LISTINGS 5-9
FILE INFORMATION
FILENAME(S): LISTINGS 5-9
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 2 disk(s)
FILE HASH
27b1dc1ea6c139cbae8e7b4108b68190eee5bb7e64a1fa27711382c42c13c100
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | LISTINGS 5-9 | PRG | Treasure Chest - ToGuMi | 26 | 4 | DOWNLOAD FILE |
| SONDERHEFT ASS | LISTINGS 5-9 | PRG | C64er | 26 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 64 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |....d.;=========| 00000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000020: 3D 3D 3D 3D 3D 3D 3D 00 20 20 6E 00 3B 20 45 49 |=======. n.; EI| 00000030: 4E 49 47 45 20 41 4C 4C 47 45 4D 45 49 4E 20 4E |NIGE ALLGEMEIN N| 00000040: 55 45 54 5A 4C 49 43 48 45 00 46 20 78 00 3B 20 |UETZLICHE.F x.; | 00000050: 4D 41 53 43 48 49 4E 45 4E 53 50 52 41 43 48 45 |MASCHINENSPRACHE| 00000060: 2D 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 45 00 |-UNTERPROGRAMME.| 00000070: 62 20 82 00 3B 20 46 55 45 52 20 44 45 4E 20 41 |b ..; FUER DEN A| 00000080: 55 46 52 55 46 20 44 55 52 43 48 00 78 20 8C 00 |UFRUF DURCH.x ..| 00000090: 3B 20 42 41 53 49 43 2D 50 52 4F 47 52 41 4D 4D |; BASIC-PROGRAMM| 000000A0: 45 00 7E 20 96 00 3B 00 A1 20 A0 00 3B 20 45 49 |E.~ ..;.. ..; EI| 000000B0: 4E 46 41 43 48 45 20 50 41 52 41 4D 45 54 45 52 |NFACHE PARAMETER| 000000C0: 55 45 42 45 52 47 41 42 45 3A 00 C7 20 AA 00 3B |UEBERGABE:.. ..;| 000000D0: 20 53 59 53 20 53 54 41 52 54 41 44 52 45 53 53 | SYS STARTADRESS| 000000E0: 45 2C 50 41 52 41 4D 45 54 45 52 4C 49 53 54 45 |E,PARAMETERLISTE| 000000F0: 00 ED 20 B4 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. ..;==========| 00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000110: 3D 3D 3D 3D 3D 3D 00 F3 20 BE 00 3B 00 01 21 C8 |======.. ..;..!.| 00000120: 00 20 2E 42 41 24 43 30 30 30 00 29 21 D2 00 3B |. .BA$C000.)!..;| 00000130: 20 45 49 4E 53 50 52 55 4E 47 50 55 4E 4B 54 45 | EINSPRUNGPUNKTE| 00000140: 20 55 4E 44 20 55 4E 54 45 52 52 4F 55 54 49 4E | UND UNTERROUTIN| 00000150: 45 4E 00 46 21 DC 00 3B 20 44 45 53 20 42 41 53 |EN.F!..; DES BAS| 00000160: 49 43 2D 49 4E 54 45 52 50 52 45 54 45 52 53 00 |IC-INTERPRETERS.| 00000170: 6C 21 E6 00 20 2E 45 51 43 48 4B 4B 4F 4D 3D 24 |l!.. .EQCHKKOM=$| 00000180: 41 45 46 44 3B 50 52 55 45 46 54 20 41 55 46 20 |AEFD;PRUEFT AUF | 00000190: 4B 4F 4D 4D 41 00 A7 21 F0 00 20 2E 45 51 46 52 |KOMMA..!.. .EQFR| 000001A0: 4D 4E 55 4D 3D 24 41 44 38 41 3B 42 45 52 45 43 |MNUM=$AD8A;BEREC| 000001B0: 48 4E 45 54 20 4E 55 4D 45 52 49 53 43 48 45 4E |HNET NUMERISCHEN| 000001C0: 20 41 55 53 44 52 55 43 4B 20 49 4E 20 46 41 43 | AUSDRUCK IN FAC| 000001D0: 00 E3 21 FA 00 20 2E 45 51 47 45 54 41 44 52 3D |..!.. .EQGETADR=| 000001E0: 24 42 37 46 37 3B 57 41 4E 44 45 4C 54 20 46 41 |$B7F7;WANDELT FA| 000001F0: 43 20 49 4E 20 49 4E 54 45 47 45 52 46 4F 52 4D |C IN INTEGERFORM| 00000200: 41 54 20 28 24 31 34 2F 24 31 35 29 00 0D 22 04 |AT ($14/$15)..".| 00000210: 01 20 2E 45 51 58 42 59 54 45 3D 24 42 37 39 45 |. .EQXBYTE=$B79E| 00000220: 3B 48 4F 4C 54 20 42 59 54 45 2D 57 45 52 54 20 |;HOLT BYTE-WERT | 00000230: 4E 41 43 48 20 58 00 2E 22 0E 01 20 2E 45 51 50 |NACH X..".. .EQP| 00000240: 4C 4F 54 3D 24 46 46 46 30 3B 43 55 52 53 4F 52 |LOT=$FFF0;CURSOR| 00000250: 20 53 45 54 5A 45 4E 00 4E 22 18 01 20 2E 45 51 | SETZEN.N".. .EQ| 00000260: 50 52 49 4E 54 3D 24 41 41 41 30 3B 42 41 53 49 |PRINT=$AAA0;BASI| 00000270: 43 2D 50 52 49 4E 54 00 78 22 22 01 20 2E 45 51 |C-PRINT.x"". .EQ| 00000280: 53 45 54 4C 46 53 3D 24 46 46 42 41 3B 46 49 4C |SETLFS=$FFBA;FIL| 00000290: 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 |EPARAMETER SETZE| 000002A0: 4E 00 8B 22 2C 01 20 2E 45 51 53 41 56 45 3D 24 |N..",. .EQSAVE=$| 000002B0: 46 46 44 38 00 91 22 36 01 3B 00 A3 22 40 01 3B |FFD8.."6.;.."@.;| 000002C0: 20 53 50 52 55 4E 47 4C 49 53 54 45 00 A9 22 4A | SPRUNGLISTE.."J| 000002D0: 01 3B 00 B9 22 54 01 20 4A 4D 50 50 52 49 4E 54 |.;.."T. JMPPRINT| 000002E0: 41 54 00 C6 22 5E 01 20 4A 4D 50 44 45 45 4B 00 |AT.."^. JMPDEEK.| 000002F0: D3 22 68 01 20 4A 4D 50 44 4F 4B 45 00 DF 22 72 |."h. JMPDOKE.."r| 00000300: 01 20 4A 4D 50 53 41 56 00 E5 22 7C 01 3B 00 0B |. JMPSAV.."|.;..| 00000310: 23 86 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |#..;------------| 00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000330: 2D 2D 2D 2D 00 1A 23 90 01 3B 20 50 52 49 4E 54 |----..#..; PRINT| 00000340: 20 41 54 00 46 23 9A 01 3B 20 41 55 46 52 55 46 | AT.F#..; AUFRUF| 00000350: 3A 20 53 59 53 50 52 2C 5A 45 49 4C 45 2C 53 50 |: SYSPR,ZEILE,SP| 00000360: 41 4C 54 45 2C 50 52 49 4E 54 4C 49 53 54 45 00 |ALTE,PRINTLISTE.| 00000370: 6C 23 A4 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |l#..;-----------| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000390: 2D 2D 2D 2D 2D 00 8B 23 AE 01 50 52 49 4E 54 41 |-----..#..PRINTA| 000003A0: 54 20 4A 53 52 43 48 4B 4B 4F 4D 3B 31 2E 20 4B |T JSRCHKKOM;1. K| 000003B0: 4F 4D 4D 41 00 A6 23 B8 01 20 4A 53 52 58 42 59 |OMMA..#.. JSRXBY| 000003C0: 54 45 3B 5A 45 49 4C 45 20 4E 41 43 48 20 58 00 |TE;ZEILE NACH X.| 000003D0: AF 23 C2 01 20 54 58 41 00 D4 23 CC 01 20 50 48 |.#.. TXA..#.. PH| 000003E0: 41 3B 41 55 46 20 53 54 41 43 4B 20 5A 57 49 53 |A;AUF STACK ZWIS| 000003F0: 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 EC 23 |CHENSPEICHERN..#| 00000400: D6 01 20 4A 53 52 43 48 4B 4B 4F 4D 3B 32 2E 20 |.. JSRCHKKOM;2. | 00000410: 4B 4F 4D 4D 41 00 08 24 E0 01 20 4A 53 52 58 42 |KOMMA..$.. JSRXB| 00000420: 59 54 45 3B 53 50 41 4C 54 45 20 4E 41 43 48 20 |YTE;SPALTE NACH | 00000430: 58 00 11 24 EA 01 20 54 58 41 00 28 24 F4 01 20 |X..$.. TXA.($.. | 00000440: 54 41 59 3B 53 50 41 4C 54 45 20 4E 41 43 48 20 |TAY;SPALTE NACH | 00000450: 59 00 31 24 FE 01 20 50 4C 41 00 47 24 08 02 20 |Y.1$.. PLA.G$.. | 00000460: 54 41 58 3B 5A 45 49 4C 45 20 4E 41 43 48 20 58 |TAX;ZEILE NACH X| 00000470: 00 50 24 12 02 20 43 4C 43 00 73 24 1C 02 20 4A |.P$.. CLC.s$.. J| 00000480: 53 52 50 4C 4F 54 3B 43 55 52 53 4F 52 50 4F 53 |SRPLOT;CURSORPOS| 00000490: 49 54 49 4F 4E 20 53 45 54 5A 45 4E 00 8A 24 26 |ITION SETZEN..$&| 000004A0: 02 20 4A 53 52 43 48 4B 4B 4F 4D 3B 33 2E 4B 4F |. JSRCHKKOM;3.KO| 000004B0: 4D 4D 41 00 AF 24 30 02 20 4A 4D 50 50 52 49 4E |MMA..$0. JMPPRIN| 000004C0: 54 3B 57 45 49 54 45 52 20 4D 49 54 20 42 41 53 |T;WEITER MIT BAS| 000004D0: 49 43 2D 50 52 49 4E 54 00 B5 24 3A 02 3B 00 DB |IC-PRINT..$:.;..| 000004E0: 24 44 02 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |$D.;------------| 000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000500: 2D 2D 2D 2D 00 F4 24 4E 02 3B 20 44 45 45 4B 20 |----..$N.; DEEK | 00000510: 28 31 36 2D 42 49 54 2D 50 45 45 4B 29 00 15 25 |(16-BIT-PEEK)..%| 00000520: 58 02 3B 20 44 45 52 20 55 53 52 20 56 45 4B 54 |X.; DER USR VEKT| 00000530: 4F 52 20 28 24 33 31 31 2F 24 33 31 32 29 00 3B |OR ($311/$312).;| 00000540: 25 62 02 3B 20 4D 55 53 53 20 41 55 46 20 44 49 |%b.; MUSS AUF DI| 00000550: 45 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 5A 45 |ESES PROGRAMM ZE| 00000560: 49 47 45 4E 00 56 25 6C 02 3B 20 41 55 46 52 55 |IGEN.V%l.; AUFRU| 00000570: 46 3A 20 55 53 52 28 41 44 52 45 53 53 45 29 00 |F: USR(ADRESSE).| 00000580: 7C 25 76 02 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ||%v.;-----------| 00000590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000005A0: 2D 2D 2D 2D 2D 00 A9 25 80 02 44 45 45 4B 20 4A |-----..%..DEEK J| 000005B0: 53 52 47 45 54 41 44 52 3B 46 41 43 20 4E 41 43 |SRGETADR;FAC NAC| 000005C0: 48 20 49 4E 54 45 47 45 52 20 28 24 31 34 2F 31 |H INTEGER ($14/1| 000005D0: 35 29 00 B4 25 8A 02 20 4C 44 59 23 30 00 BD 25 |5)..%.. LDY#0..%| 000005E0: 94 02 20 53 45 49 00 D6 25 9E 02 20 4C 44 41 28 |.. SEI..%.. LDA(| 000005F0: 24 31 34 29 2C 59 3B 4C 4F 57 2D 42 59 54 45 00 |$14),Y;LOW-BYTE.| 00000600: EF 25 A8 02 20 53 54 41 24 36 33 3B 46 41 43 20 |.%.. STA$63;FAC | 00000610: 4D 41 4E 54 49 53 53 45 00 F8 25 B2 02 20 49 4E |MANTISSE..%.. IN| 00000620: 59 00 12 26 BC 02 20 4C 44 41 28 24 31 34 29 2C |Y..&.. LDA($14),| 00000630: 59 3B 48 49 47 48 2D 42 59 54 45 00 1B 26 C6 02 |Y;HIGH-BYTE..&..| 00000640: 20 43 4C 49 00 34 26 D0 02 20 53 54 41 24 36 32 | CLI.4&.. STA$62| 00000650: 3B 46 41 43 20 4D 41 4E 54 49 53 53 45 00 4E 26 |;FAC MANTISSE.N&| 00000660: DA 02 20 4C 44 58 23 24 39 30 3B 46 41 43 20 45 |.. LDX#$90;FAC E| 00000670: 58 50 4F 4E 45 4E 54 00 69 26 E4 02 20 53 45 43 |XPONENT.i&.. SEC| 00000680: 3B 4E 49 43 48 54 20 49 4E 56 45 52 54 49 45 52 |;NICHT INVERTIER| 00000690: 45 4E 00 8B 26 EE 02 20 4A 4D 50 24 42 43 34 39 |EN..&.. JMP$BC49| 000006A0: 3B 46 41 43 20 4B 4F 4D 50 4C 45 54 54 20 4D 41 |;FAC KOMPLETT MA| 000006B0: 43 48 45 4E 00 91 26 F8 02 3B 00 B7 26 02 03 3B |CHEN..&..;..&..;| 000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006E0: 00 D0 26 0C 03 3B 20 44 4F 4B 45 20 28 31 36 2D |..&..; DOKE (16-| 000006F0: 42 49 54 2D 50 4F 4B 45 29 00 F1 26 16 03 3B 20 |BIT-POKE)..&..; | 00000700: 41 55 46 52 55 46 3A 20 53 59 53 44 4F 2C 41 44 |AUFRUF: SYSDO,AD| 00000710: 52 45 53 53 45 2C 57 45 52 54 00 17 27 20 03 3B |RESSE,WERT..' .;| 00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000740: 00 33 27 2A 03 44 4F 4B 45 20 4A 53 52 43 48 4B |.3'*.DOKE JSRCHK| 00000750: 4B 4F 4D 3B 31 2E 20 4B 4F 4D 4D 41 00 53 27 34 |KOM;1. KOMMA.S'4| 00000760: 03 20 4A 53 52 46 52 4D 4E 55 4D 3B 41 44 52 45 |. JSRFRMNUM;ADRE| 00000770: 53 53 45 20 4E 41 43 48 20 46 41 43 00 7C 27 3E |SSE NACH FAC.|'>| 00000780: 03 20 4A 53 52 47 45 54 41 44 52 3B 46 41 43 20 |. JSRGETADR;FAC | 00000790: 4E 41 43 48 20 49 4E 54 45 47 45 52 20 28 24 31 |NACH INTEGER ($1| 000007A0: 34 2F 31 35 29 00 88 27 48 03 20 4C 44 41 24 31 |4/15)..'H. LDA$1| 000007B0: 34 00 A8 27 52 03 20 53 54 41 24 39 45 3B 41 44 |4..'R. STA$9E;AD| 000007C0: 52 45 53 53 45 20 4E 41 43 48 20 24 39 45 2F 39 |RESSE NACH $9E/9| 000007D0: 46 00 B4 27 5C 03 20 4C 44 41 24 31 35 00 C0 27 |F..'\. LDA$15..'| 000007E0: 66 03 20 53 54 41 24 39 46 00 D7 27 70 03 20 4A |f. STA$9F..'p. J| 000007F0: 53 52 43 48 4B 4B 4F 4D 3B 32 2E 4B 4F 4D 4D 41 |SRCHKKOM;2.KOMMA| 00000800: 00 F4 27 7A 03 20 4A 53 52 46 52 4D 4E 55 4D 3B |..'z. JSRFRMNUM;| 00000810: 57 45 52 54 20 4E 41 43 48 20 46 41 43 00 1D 28 |WERT NACH FAC..(| 00000820: 84 03 20 4A 53 52 47 45 54 41 44 52 3B 46 41 43 |.. JSRGETADR;FAC| 00000830: 20 4E 41 43 48 20 49 4E 54 45 47 45 52 20 28 24 | NACH INTEGER ($| 00000840: 31 34 2F 31 35 29 00 28 28 8E 03 20 4C 44 59 23 |14/15).((.. LDY#| 00000850: 30 00 31 28 98 03 20 53 45 49 00 4B 28 A2 03 20 |0.1(.. SEI.K(.. | 00000860: 4C 44 41 24 31 34 3B 57 45 52 54 20 4C 4F 57 2D |LDA$14;WERT LOW-| 00000870: 42 59 54 45 00 5B 28 AC 03 20 53 54 41 28 24 39 |BYTE.[(.. STA($9| 00000880: 45 29 2C 59 00 64 28 B6 03 20 49 4E 59 00 7F 28 |E),Y.d(.. INY..(| 00000890: C0 03 20 4C 44 41 24 31 35 3B 57 45 52 54 20 48 |.. LDA$15;WERT H| 000008A0: 49 47 48 2D 42 59 54 45 00 8F 28 CA 03 20 53 54 |IGH-BYTE..(.. ST| 000008B0: 41 28 24 39 45 29 2C 59 00 98 28 D4 03 20 43 4C |A($9E),Y..(.. CL| 000008C0: 49 00 A1 28 DE 03 20 52 54 53 00 A7 28 E8 03 3B |I..(.. RTS..(..;| 000008D0: 00 CD 28 F2 03 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..(..;----------| 000008E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008F0: 2D 2D 2D 2D 2D 2D 00 D7 28 FC 03 3B 20 53 41 56 |------..(..; SAV| 00000900: 00 03 29 06 04 3B 20 53 50 45 49 43 48 45 52 45 |..)..; SPEICHERE| 00000910: 20 42 45 4C 49 45 42 49 47 45 4E 20 42 45 52 45 | BELIEBIGEN BERE| 00000920: 49 43 48 20 41 55 46 20 44 49 53 4B 00 48 29 10 |ICH AUF DISK.H).| 00000930: 04 3B 20 41 55 46 52 55 46 3A 20 53 59 53 53 41 |.; AUFRUF: SYSSA| 00000940: 56 2C 44 41 54 45 49 4E 41 4D 45 2C 47 45 52 41 |V,DATEINAME,GERA| 00000950: 45 54 45 4E 55 4D 4D 45 52 2C 53 54 41 52 54 41 |ETENUMMER,STARTA| 00000960: 44 52 45 53 53 45 2C 45 4E 44 41 44 52 45 53 53 |DRESSE,ENDADRESS| 00000970: 45 00 6E 29 1A 04 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |E.n)..;---------| 00000980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000990: 2D 2D 2D 2D 2D 2D 2D 00 89 29 24 04 53 41 56 20 |-------..)$.SAV | 000009A0: 4A 53 52 43 48 4B 4B 4F 4D 3B 31 2E 20 4B 4F 4D |JSRCHKKOM;1. KOM| 000009B0: 4D 41 00 B2 29 2E 04 20 4A 53 52 24 45 32 35 37 |MA..).. JSR$E257| 000009C0: 3B 46 49 4C 45 4E 41 4D 45 4E 20 48 4F 4C 45 4E |;FILENAMEN HOLEN| 000009D0: 20 55 4E 44 20 53 45 54 5A 45 4E 00 CA 29 38 04 | UND SETZEN..)8.| 000009E0: 20 4A 53 52 43 48 4B 4B 4F 4D 3B 32 2E 20 4B 4F | JSRCHKKOM;2. KO| 000009F0: 4D 4D 41 00 ED 29 42 04 20 4A 53 52 58 42 59 54 |MMA..)B. JSRXBYT| 00000A00: 45 3B 47 45 52 41 45 54 45 4E 55 4D 4D 45 52 20 |E;GERAETENUMMER | 00000A10: 4E 41 43 48 20 58 00 09 2A 4C 04 20 4C 44 59 23 |NACH X..*L. LDY#| 00000A20: 30 3B 53 45 4B 55 4E 44 41 45 52 41 44 52 45 53 |0;SEKUNDAERADRES| 00000A30: 53 45 00 2D 2A 56 04 20 4A 53 52 53 45 54 4C 46 |SE.-*V. JSRSETLF| 00000A40: 53 3B 46 49 4C 45 50 41 52 41 4D 45 54 45 52 20 |S;FILEPARAMETER | 00000A50: 53 45 54 5A 45 4E 00 45 2A 60 04 20 4A 53 52 43 |SETZEN.E*`. JSRC| 00000A60: 48 4B 4B 4F 4D 3B 33 2E 20 4B 4F 4D 4D 41 00 61 |HKKOM;3. KOMMA.a| 00000A70: 2A 6A 04 20 4A 53 52 46 52 4D 4E 55 4D 3B 53 54 |*j. JSRFRMNUM;ST| 00000A80: 41 52 54 41 44 52 45 53 53 45 00 84 2A 74 04 20 |ARTADRESSE..*t. | 00000A90: 4A 53 52 47 45 54 41 44 52 3B 4E 41 43 48 20 24 |JSRGETADR;NACH $| 00000AA0: 31 34 2F 31 35 20 55 4E 44 20 59 2F 41 00 97 2A |14/15 UND Y/A..*| 00000AB0: 7E 04 20 50 48 41 3B 48 49 47 48 2D 42 59 54 45 |~. PHA;HIGH-BYTE| 00000AC0: 00 A0 2A 88 04 20 54 59 41 00 B2 2A 92 04 20 50 |..*.. TYA..*.. P| 00000AD0: 48 41 3B 4C 4F 57 2D 42 59 54 45 00 CA 2A 9C 04 |HA;LOW-BYTE..*..| 00000AE0: 20 4A 53 52 43 48 4B 4B 4F 4D 3B 34 2E 20 4B 4F | JSRCHKKOM;4. KO| 00000AF0: 4D 4D 41 00 E4 2A A6 04 20 4A 53 52 46 52 4D 4E |MMA..*.. JSRFRMN| 00000B00: 55 4D 3B 45 4E 44 41 44 52 45 53 53 45 00 07 2B |UM;ENDADRESSE..+| 00000B10: B0 04 20 4A 53 52 47 45 54 41 44 52 3B 4E 41 43 |.. JSRGETADR;NAC| 00000B20: 48 20 24 31 34 2F 31 35 20 55 4E 44 20 59 2F 41 |H $14/15 UND Y/A| 00000B30: 00 10 2B BA 04 20 50 48 41 00 19 2B C4 04 20 54 |..+.. PHA..+.. T| 00000B40: 59 41 00 22 2B CE 04 20 54 41 58 00 2B 2B D8 04 |YA."+.. TAX.++..| 00000B50: 20 50 4C 41 00 53 2B E2 04 20 54 41 59 3B 45 4E | PLA.S+.. TAY;EN| 00000B60: 44 41 44 52 45 53 53 45 20 4C 4F 57 20 49 4E 20 |DADRESSE LOW IN | 00000B70: 58 2C 20 48 49 47 48 20 49 4E 20 59 00 72 2B EC |X, HIGH IN Y.r+.| 00000B80: 04 20 50 4C 41 3B 53 54 41 52 54 41 44 52 45 53 |. PLA;STARTADRES| 00000B90: 53 45 20 4C 4F 57 2D 42 59 54 45 00 7E 2B F6 04 |SE LOW-BYTE.~+..| 00000BA0: 20 53 54 41 24 31 34 00 9E 2B 00 05 20 50 4C 41 | STA$14..+.. PLA| 00000BB0: 3B 53 54 41 52 54 41 44 52 45 53 53 45 20 48 49 |;STARTADRESSE HI| 00000BC0: 47 48 2D 42 59 54 45 00 C1 2B 0A 05 20 53 54 41 |GH-BYTE..+.. STA| 00000BD0: 24 31 35 3B 53 54 41 52 54 41 44 52 45 53 53 45 |$15;STARTADRESSE| 00000BE0: 20 49 4E 20 24 31 34 2F 31 35 00 E7 2B 14 05 20 | IN $14/15..+.. | 00000BF0: 4C 44 41 23 24 31 34 3B 41 44 52 45 53 53 45 20 |LDA#$14;ADRESSE | 00000C00: 44 45 52 20 53 54 41 52 54 41 44 52 45 53 53 45 |DER STARTADRESSE| 00000C10: 00 F4 2B 1E 05 20 4A 53 52 53 41 56 45 00 10 2C |..+.. JSRSAVE..,| 00000C20: 28 05 20 42 43 43 53 41 56 45 4E 44 45 3B 4B 45 |(. BCCSAVENDE;KE| 00000C30: 49 4E 20 46 45 48 4C 45 52 00 2C 2C 32 05 20 4A |IN FEHLER.,,2. J| 00000C40: 4D 50 24 45 30 46 39 3B 46 45 48 4C 45 52 41 55 |MP$E0F9;FEHLERAU| 00000C50: 53 47 41 4E 47 00 3C 2C 3C 05 53 41 56 45 4E 44 |SGANG.<,<.SAVEND| 00000C60: 45 20 52 54 53 00 00 00 |E RTS... |
X...D.;================================. N.; EINIGE ALLGEMEIN NUETZLICHE.F X.; MASCHINENSPRACHE-UNTERPROGRAMME.B ..; FU ER DEN AUFRUF DURCH.X ..; BASIC-PROGRAMM E.~ ..;.. .; EINFACHE PARAMETERUEBERGAB E:.G ..; SYS STARTADRESSE,PARAMETERLISTE .. ..;================================.. ..;..!H. .BA$C000.)!R.; EINSPRUNGPUNKTE UND UNTERROUTINEN.F!..; DES BASIC-INTER PRETERS.L!.. .EQCHKKOM=$AEFD;PRUEFT AUF KOMMA..!.. .EQFRMNUM=$AD8A;BERECHNET NUM ERISCHEN AUSDRUCK IN FAC..!.. .EQGETADR= $B7F7;WANDELT FAC IN INTEGERFORMAT ($14/ $15)..".. .EQXBYTE=$B79E;HOLT BYTE-WERT NACH X..".. .EQPLOT=$FFF0;CURSOR SETZEN. N".. .EQPRINT=$AAA0;BASIC-PRINT.X"". .EQ SETLFS=$FFBA;FILEPARAMETER SETZEN..",. . EQSAVE=$FFD8.."6.;.."@.; SPRUNGLISTE.."J .;.."T. JMPPRINTAT.F"^. JMPDEEK.S"H. JMP DOKE.."R. JMPSAV.."|.;..#..;------------ --------------------..#..; PRINT AT.F#.. ; AUFRUF: SYSPR,ZEILE,SPALTE,PRINTLISTE. L#..;--------------------------------..# ..PRINTAT JSRCHKKOM;1. KOMMA..#.. JSRXBY TE;ZEILE NACH X..#B. TXA.T#L. PHA;AUF ST ACK ZWISCHENSPEICHERN..#V. JSRCHKKOM;2. KOMMA..$.. JSRXBYTE;SPALTE NACH X..$.. T XA.($.. TAY;SPALTE NACH Y.1$.. PLA.G$.. TAX;ZEILE NACH X.P$.. CLC.S$.. JSRPLOT;C URSORPOSITION SETZEN..$&. JSRCHKKOM;3.KO MMA..$0. JMPPRINT;WEITER MIT BASIC-PRINT ..$:.;..$D.;---------------------------- ----..$N.; DEEK (16-BIT-PEEK)..%X.; DER USR VEKTOR ($311/$312).;%B.; MUSS AUF DI ESES PROGRAMM ZEIGEN.V%L.; AUFRUF: USR(A DRESSE).|%V.;--------------------------- -----..%..DEEK JSRGETADR;FAC NACH INTEGE R ($14/15)..%.. LDY#0..%.. SEI.V%.. LDA( $14),Y;LOW-BYTE..%.. STA$63;FAC MANTISSE ..%.. INY..&.. LDA($14),Y;HIGH-BYTE..&F. CLI.4&P. STA$62;FAC MANTISSE.N&Z. LDX#$ 90;FAC EXPONENT.I&.. SEC;NICHT INVERTIER EN..&.. JMP$BC49;FAC KOMPLETT MACHEN..&. .;..&..;-------------------------------- .P&..; DOKE (16-BIT-POKE)..&..; AUFRUF: SYSDO,ADRESSE,WERT..' .;---------------- ----------------.3'*.DOKE JSRCHKKOM;1. K OMMA.S'4. JSRFRMNUM;ADRESSE NACH FAC.|'> . JSRGETADR;FAC NACH INTEGER ($14/15)..' H. LDA$14..'R. STA$9E;ADRESSE NACH $9E/9 F..'\. LDA$15..'F. STA$9F.W'P. JSRCHKKOM ;2.KOMMA..'Z. JSRFRMNUM;WERT NACH FAC..( .. JSRGETADR;FAC NACH INTEGER ($14/15).( (.. LDY#0.1(.. SEI.K(.. LDA$14;WERT LOW- BYTE.[(.. STA($9E),Y.D(.. INY.(.. LDA$1 5;WERT HIGH-BYTE..(J. STA($9E),Y..(T. CL I..(.. RTS..(..;.M(..;------------------ --------------.W(..; SAV..)..; SPEICHERE BELIEBIGEN BEREICH AUF DISK.H)..; AUFRU F: SYSSAV,DATEINAME,GERAETENUMMER,STARTA DRESSE,ENDADRESSE.N)..;----------------- ---------------..)$.SAV JSRCHKKOM;1. KOM MA..).. JSR$E257;FILENAMEN HOLEN UND SET ZEN.J)8. JSRCHKKOM;2. KOMMA..)B. JSRXBYT E;GERAETENUMMER NACH X..*L. LDY#0;SEKUND AERADRESSE.-*V. JSRSETLFS;FILEPARAMETER SETZEN.E*`. JSRCHKKOM;3. KOMMA.A*J. JSRF RMNUM;STARTADRESSE..*T. JSRGETADR;NACH $ 14/15 UND Y/A..*~. PHA;HIGH-BYTE. *.. TY A..*.. PHA;LOW-BYTE.J*.. JSRCHKKOM;4. KO MMA..*.. JSRFRMNUM;ENDADRESSE..+.. JSRGE TADR;NACH $14/15 UND Y/A..+.. PHA..+D. T YA."+N. TAX.++X. PLA.S+.. TAY;ENDADRESSE LOW IN X, HIGH IN Y.R+.. PLA;STARTADRES SE LOW-BYTE.~+.. STA$14..+.. PLA;STARTAD RESSE HIGH-BYTE.A+.. STA$15;STARTADRESSE IN $14/15..+.. LDA#$14;ADRESSE DER STAR TADRESSE..+.. JSRSAVE..,(. BCCSAVENDE;KE IN FEHLER.,,2. JMP$E0F9;FEHLERAUSGANG.<, <.SAVENDE RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL