00000000: D8 1F F7 1F 64 00 3B 2A 2A 2A 20 5A 57 45 49 2D |....d.;*** ZWEI-|
00000010: 42 59 54 45 2D 49 4E 54 45 47 45 52 20 2A 2A 2A |BYTE-INTEGER ***|
00000020: 00 FD 1F 6E 00 3B 00 21 20 78 00 3B 4B 4F 4E 56 |...n.;.! x.;KONV|
00000030: 45 52 54 49 45 52 55 4E 47 20 45 49 4E 45 52 20 |ERTIERUNG EINER |
00000040: 5A 57 45 49 2D 42 59 54 45 2D 00 44 20 82 00 3B |ZWEI-BYTE-.D ..;|
00000050: 49 4E 54 45 47 45 52 2D 5A 41 48 4C 20 49 4E 53 |INTEGER-ZAHL INS|
00000060: 20 46 4C 49 45 53 53 4B 4F 4D 4D 41 2D 00 64 20 | FLIESSKOMMA-.d |
00000070: 8C 00 3B 46 4F 52 4D 41 54 20 55 4E 44 20 41 55 |..;FORMAT UND AU|
00000080: 53 47 41 42 45 20 41 55 46 20 44 45 4D 00 74 20 |SGABE AUF DEM.t |
00000090: 96 00 3B 42 49 4C 44 53 43 48 49 52 4D 00 7A 20 |..;BILDSCHIRM.z |
000000A0: A0 00 3B 00 9B 20 AA 00 3B 31 2E 49 4E 54 45 47 |..;.. ..;1.INTEG|
000000B0: 45 52 5A 41 48 4C 20 4E 41 43 48 20 46 4C 49 45 |ERZAHL NACH FLIE|
000000C0: 53 53 4B 2E 00 B8 20 B4 00 3B 32 2E 41 55 46 52 |SSK... ..;2.AUFR|
000000D0: 55 46 20 56 4F 4E 20 46 41 43 3D 3E 41 53 43 49 |UF VON FAC=>ASCI|
000000E0: 49 00 D8 20 BE 00 3B 33 2E 41 55 46 52 55 46 20 |I.. ..;3.AUFRUF |
000000F0: 56 4F 4E 20 41 53 43 49 49 3D 3E 53 43 52 45 45 |VON ASCII=>SCREE|
00000100: 4E 00 DE 20 C8 00 3B 00 F4 20 D2 00 2E 45 51 20 |N.. ..;.. ...EQ |
00000110: 5A 57 45 49 50 4F 53 3D 24 42 43 34 39 00 0A 21 |ZWEIPOS=$BC49..!|
00000120: DC 00 2E 45 51 20 5A 57 45 49 4E 45 47 3D 24 42 |...EQ ZWEINEG=$B|
00000130: 43 34 34 00 1F 21 E6 00 2E 45 51 20 46 41 43 53 |C44..!...EQ FACS|
00000140: 54 52 3D 24 42 44 44 44 00 34 21 F0 00 2E 45 51 |TR=$BDDD.4!...EQ|
00000150: 20 53 54 52 4F 55 54 3D 24 41 42 31 45 00 3A 21 | STROUT=$AB1E.:!|
00000160: FA 00 3B 00 48 21 04 01 2E 42 41 20 24 43 30 30 |..;.H!...BA $C00|
00000170: 30 00 4E 21 0E 01 3B 00 54 21 18 01 3B 00 75 21 |0.N!..;.T!..;.u!|
00000180: 22 01 3B 2A 50 4F 53 49 54 49 56 45 20 49 4E 54 |".;*POSITIVE INT|
00000190: 2D 5A 41 48 4C 20 57 41 4E 44 45 4C 4E 2A 00 8E |-ZAHL WANDELN*..|
000001A0: 21 2C 01 20 4C 44 41 23 24 46 46 3B 5A 41 48 4C |!,. LDA#$FF;ZAHL|
000001B0: 3A 20 24 46 46 46 46 00 AA 21 36 01 20 53 54 41 |: $FFFF..!6. STA|
000001C0: 24 36 32 3B 48 49 47 48 2D 42 59 54 45 20 28 24 |$62;HIGH-BYTE ($|
000001D0: 46 46 29 00 C5 21 40 01 20 53 54 41 24 36 33 3B |FF)..!@. STA$63;|
000001E0: 4C 4F 57 2D 42 59 54 45 20 28 24 46 46 29 00 DE |LOW-BYTE ($FF)..|
000001F0: 21 4A 01 20 4C 44 58 23 24 39 30 3B 58 2D 52 45 |!J. LDX#$90;X-RE|
00000200: 47 2E 3A 20 24 39 30 00 F4 21 54 01 20 53 45 43 |G.: $90..!T. SEC|
00000210: 3B 43 41 52 52 59 20 53 45 54 5A 45 4E 00 04 22 |;CARRY SETZEN.."|
00000220: 5E 01 20 4A 53 52 5A 57 45 49 50 4F 53 00 0A 22 |^. JSRZWEIPOS.."|
00000230: 68 01 3B 00 1F 22 72 01 3B 2A 5A 41 48 4C 20 41 |h.;.."r.;*ZAHL A|
00000240: 55 53 47 45 42 45 4E 2A 00 3D 22 7C 01 20 4A 53 |USGEBEN*.="|. JS|
00000250: 52 46 41 43 53 54 52 3B 3D 3E 20 41 55 53 47 41 |RFACSTR;=> AUSGA|
00000260: 42 45 20 56 4F 4E 00 55 22 86 01 20 4A 53 52 53 |BE VON.U".. JSRS|
00000270: 54 52 4F 55 54 3B 20 20 20 36 35 35 33 35 00 5B |TROUT; 65535.[|
00000280: 22 90 01 3B 00 7C 22 9A 01 3B 2A 4E 45 47 41 54 |"..;.|"..;*NEGAT|
00000290: 49 56 45 20 49 4E 54 2D 5A 41 48 4C 20 57 41 4E |IVE INT-ZAHL WAN|
000002A0: 44 45 4C 4E 2A 00 95 22 A4 01 20 4C 44 41 23 24 |DELN*..".. LDA#$|
000002B0: 46 46 3B 5A 41 48 4C 3A 20 24 46 46 46 46 00 B1 |FF;ZAHL: $FFFF..|
000002C0: 22 AE 01 20 53 54 41 24 36 32 3B 48 49 47 48 2D |".. STA$62;HIGH-|
000002D0: 42 59 54 45 20 28 24 46 46 29 00 CC 22 B8 01 20 |BYTE ($FF)..".. |
000002E0: 53 54 41 24 36 33 3B 4C 4F 57 2D 42 59 54 45 20 |STA$63;LOW-BYTE |
000002F0: 28 24 46 46 29 00 E5 22 C2 01 20 4C 44 58 23 24 |($FF)..".. LDX#$|
00000300: 39 30 3B 58 2D 52 45 47 2E 3A 20 24 39 30 00 FD |90;X-REG.: $90..|
00000310: 22 CC 01 20 43 4C 43 3B 43 41 52 52 59 20 4C 4F |".. CLC;CARRY LO|
00000320: 45 53 43 48 45 4E 00 0D 23 D6 01 20 4A 53 52 5A |ESCHEN..#.. JSRZ|
00000330: 57 45 49 4E 45 47 00 13 23 E0 01 3B 00 28 23 EA |WEINEG..#..;.(#.|
00000340: 01 3B 2A 5A 41 48 4C 20 41 55 53 47 45 42 45 4E |.;*ZAHL AUSGEBEN|
00000350: 2A 00 46 23 F4 01 20 4A 53 52 46 41 43 53 54 52 |*.F#.. JSRFACSTR|
00000360: 3B 3D 3E 20 41 55 53 47 41 42 45 20 56 4F 4E 00 |;=> AUSGABE VON.|
00000370: 5B 23 FE 01 20 4A 53 52 53 54 52 4F 55 54 3B 20 |[#.. JSRSTROUT; |
00000380: 20 20 2D 31 00 64 23 08 02 20 52 54 53 00 6A 23 | -1.d#.. RTS.j#|
00000390: 12 02 3B 00 00 00 |..;... |
X...D.;*** ZWEI-BYTE-INTEGER ***...N.;.!
X.;KONVERTIERUNG EINER ZWEI-BYTE-.D ..;
INTEGER-ZAHL INS FLIESSKOMMA-.D ..;FORMA
T UND AUSGABE AUF DEM.T ..;BILDSCHIRM.Z
.;.. ..;1.INTEGERZAHL NACH FLIESSK... .
.;2.AUFRUF VON FAC=>ASCII.X ..;3.AUFRUF
VON ASCII=>SCREEN.. H.;.. R..EQ ZWEIPOS=
$BC49..!...EQ ZWEINEG=$BC44..!...EQ FACS
TR=$BDDD.4!...EQ STROUT=$AB1E.:!..;.H!..
.BA $C000.N!..;.T!..;.U!".;*POSITIVE INT
-ZAHL WANDELN*..!,. LDA#$FF;ZAHL: $FFFF.
.!6. STA$62;HIGH-BYTE ($FF).E!@. STA$63;
LOW-BYTE ($FF)..!J. LDX#$90;X-REG.: $90.
.!T. SEC;CARRY SETZEN.."^. JSRZWEIPOS.."
H.;.."R.;*ZAHL AUSGEBEN*.="|. JSRFACSTR;
=> AUSGABE VON.U".. JSRSTROUT; 65535.[
"..;.|"..;*NEGATIVE INT-ZAHL WANDELN*.."
.. LDA#$FF;ZAHL: $FFFF..".. STA$62;HIGH-
BYTE ($FF).L".. STA$63;LOW-BYTE ($FF).."
B. LDX#$90;X-REG.: $90.."L. CLC;CARRY LO
ESCHEN..#V. JSRZWEINEG..#..;.(#..;*ZAHL
AUSGEBEN*.F#.. JSRFACSTR;=> AUSGABE VON.
[#.. JSRSTROUT; -1.D#.. RTS.J#..;...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL