00000000: D8 1F F6 1F 64 00 3B 2A 2A 2A 20 45 49 4E 20 42 |....d.;*** EIN B|
00000010: 59 54 45 2D 49 4E 54 45 47 45 52 20 2A 2A 2A 00 |YTE-INTEGER ***.|
00000020: FC 1F 6E 00 3B 00 1F 20 78 00 3B 4B 4F 4E 56 45 |..n.;.. x.;KONVE|
00000030: 52 54 49 45 52 55 4E 47 20 45 49 4E 45 52 20 45 |RTIERUNG EINER E|
00000040: 49 4E 2D 42 59 54 45 2D 00 42 20 82 00 3B 49 4E |IN-BYTE-.B ..;IN|
00000050: 54 45 47 45 52 2D 5A 41 48 4C 20 49 4E 53 20 46 |TEGER-ZAHL INS F|
00000060: 4C 49 45 53 53 4B 4F 4D 4D 41 2D 00 62 20 8C 00 |LIESSKOMMA-.b ..|
00000070: 3B 46 4F 52 4D 41 54 20 55 4E 44 20 41 55 53 47 |;FORMAT UND AUSG|
00000080: 41 42 45 20 41 55 46 20 44 45 4D 00 72 20 96 00 |ABE AUF DEM.r ..|
00000090: 3B 42 49 4C 44 53 43 48 49 52 4D 00 78 20 A0 00 |;BILDSCHIRM.x ..|
000000A0: 3B 00 99 20 AA 00 3B 31 2E 49 4E 54 45 47 45 52 |;.. ..;1.INTEGER|
000000B0: 5A 41 48 4C 20 4E 41 43 48 20 46 4C 49 45 53 53 |ZAHL NACH FLIESS|
000000C0: 4B 2E 00 B6 20 B4 00 3B 32 2E 41 55 46 52 55 46 |K... ..;2.AUFRUF|
000000D0: 20 56 4F 4E 20 46 41 43 3D 3E 41 53 43 49 49 00 | VON FAC=>ASCII.|
000000E0: D6 20 BE 00 3B 33 2E 41 55 46 52 55 46 20 56 4F |. ..;3.AUFRUF VO|
000000F0: 4E 20 41 53 43 49 49 3D 3E 53 43 52 45 45 4E 00 |N ASCII=>SCREEN.|
00000100: DC 20 C8 00 3B 00 F1 20 D2 00 2E 45 51 20 45 49 |. ..;.. ...EQ EI|
00000110: 4E 50 4F 53 3D 24 42 33 41 32 00 06 21 DC 00 2E |NPOS=$B3A2..!...|
00000120: 45 51 20 45 49 4E 4E 45 47 3D 24 42 43 33 43 00 |EQ EINNEG=$BC3C.|
00000130: 1B 21 E6 00 2E 45 51 20 46 41 43 53 54 52 3D 24 |.!...EQ FACSTR=$|
00000140: 42 44 44 44 00 30 21 F0 00 2E 45 51 20 53 54 52 |BDDD.0!...EQ STR|
00000150: 4F 55 54 3D 24 41 42 31 45 00 36 21 FA 00 3B 00 |OUT=$AB1E.6!..;.|
00000160: 55 21 04 01 2E 42 41 20 24 43 30 30 30 20 20 20 |U!...BA $C000 |
00000170: 3B 50 52 4F 47 52 41 4D 4D 53 54 41 52 54 00 76 |;PROGRAMMSTART.v|
00000180: 21 22 01 3B 2A 50 4F 53 49 54 49 56 45 20 49 4E |!".;*POSITIVE IN|
00000190: 54 2D 5A 41 48 4C 20 57 41 4E 44 45 4C 4E 2A 00 |T-ZAHL WANDELN*.|
000001A0: 83 21 2C 01 20 4C 44 59 23 24 38 30 00 92 21 36 |.!,. LDY#$80..!6|
000001B0: 01 20 4A 53 52 45 49 4E 50 4F 53 00 98 21 40 01 |. JSREINPOS..!@.|
000001C0: 3B 00 AE 21 4A 01 3B 2A 5A 41 48 4C 20 20 41 55 |;..!J.;*ZAHL AU|
000001D0: 53 47 45 42 45 4E 2A 00 BD 21 54 01 20 4A 53 52 |SGEBEN*..!T. JSR|
000001E0: 46 41 43 53 54 52 00 CC 21 5E 01 20 4A 53 52 53 |FACSTR..!^. JSRS|
000001F0: 54 52 4F 55 54 00 D2 21 68 01 3B 00 F2 21 72 01 |TROUT..!h.;..!r.|
00000200: 3B 2A 4E 45 41 54 49 56 45 20 49 4E 54 2D 5A 41 |;*NEATIVE INT-ZA|
00000210: 48 4C 20 57 41 4E 44 45 4C 4E 2A 00 FF 21 7C 01 |HL WANDELN*..!|.|
00000220: 20 4C 44 41 23 24 38 30 00 0E 22 86 01 20 4A 53 | LDA#$80..".. JS|
00000230: 52 45 49 4E 4E 45 47 00 14 22 90 01 3B 00 29 22 |REINNEG.."..;.)"|
00000240: 9A 01 3B 2A 5A 41 48 4C 20 41 55 53 47 45 42 45 |..;*ZAHL AUSGEBE|
00000250: 4E 2A 00 38 22 A4 01 20 4A 53 52 46 41 43 53 54 |N*.8".. JSRFACST|
00000260: 52 00 47 22 AE 01 20 4A 53 52 53 54 52 4F 55 54 |R.G".. JSRSTROUT|
00000270: 00 50 22 B8 01 20 52 54 53 00 56 22 C2 01 3B 00 |.P".. RTS.V"..;.|
00000280: 00 00 |.. |
X...D.;*** EIN BYTE-INTEGER ***...N.;..
X.;KONVERTIERUNG EINER EIN-BYTE-.B ..;IN
TEGER-ZAHL INS FLIESSKOMMA-.B ..;FORMAT
UND AUSGABE AUF DEM.R ..;BILDSCHIRM.X .
;.. ..;1.INTEGERZAHL NACH FLIESSK... ..;
2.AUFRUF VON FAC=>ASCII.V ..;3.AUFRUF VO
N ASCII=>SCREEN.. H.;.. R..EQ EINPOS=$B3
A2..!...EQ EINNEG=$BC3C..!...EQ FACSTR=$
BDDD.0!...EQ STROUT=$AB1E.6!..;.U!...BA
$C000 ;PROGRAMMSTART.V!".;*POSITIVE IN
T-ZAHL WANDELN*..!,. LDY#$80..!6. JSREIN
POS..!@.;..!J.;*ZAHL AUSGEBEN*..!T. JSR
FACSTR.L!^. JSRSTROUT.R!H.;..!R.;*NEATIV
E INT-ZAHL WANDELN*..!|. LDA#$80..".. JS
REINNEG.."..;.)"..;*ZAHL AUSGEBEN*.8"..
JSRFACSTR.G".. JSRSTROUT.P".. RTS.V"B.;.
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL