THATS IT.SRC
FILE INFORMATION
FILENAME(S): THATS IT.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 01:13:11
APPEARS ON: 2 disk(s)
FILE HASH
8381374258b49982a8d7302d5b9f96724a8e89ee534d9aa31b17f1efa1e9bb7b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10905 05 89 | THATS IT.SRC | PRG | C64er | 12 | 4 | DOWNLOAD FILE |
| 10905 05 89 | THATS IT.SRC | PRG | DuncanTwain | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0A 22 2E 22 0A 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |."."..; ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 00 52 22 14 00 3B 20 2A 20 20 20 |*****.R"..; * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 2A 00 76 22 1E 00 3B 20 | *.v"..; | 00000050: 2A 20 51 55 45 4C 4C 43 4F 44 45 20 5A 55 20 22 |* QUELLCODE ZU "| 00000060: 54 48 41 54 27 53 20 49 54 21 22 20 2A 00 9A 22 |THAT'S IT!" *.."| 00000070: 28 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |(.; * | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 2A 00 BE 22 32 00 3B 20 2A 20 28 43 29 20 31 39 |*.."2.; * (C) 19| 000000A0: 38 39 20 4D 41 54 54 48 49 41 53 20 55 4C 4C 4D |89 MATTHIAS ULLM| 000000B0: 41 4E 4E 20 2A 00 E2 22 3C 00 3B 20 2A 20 20 20 |ANN *.."<.; * | 000000C0: 20 20 20 20 20 20 20 48 45 4C 4D 48 4F 4C 54 5A | HELMHOLTZ| 000000D0: 53 54 52 2E 20 35 33 20 2A 00 06 23 46 00 3B 20 |STR. 53 *..#F.; | 000000E0: 2A 20 20 20 20 20 20 20 20 20 20 36 32 30 30 20 |* 6200 | 000000F0: 57 49 45 53 42 41 44 45 4E 20 31 20 2A 00 2A 23 |WIESBADEN 1 *.*#| 00000100: 50 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |P.; * | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 2A 00 4E 23 5A 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |*.N#Z.; ********| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 2A 2A 2A 00 54 23 64 00 3B 00 89 23 6E 00 |*****.T#d.;..#n.| 00000150: 2E 45 51 20 4E 41 4D 4C 53 56 20 3D 20 24 45 32 |.EQ NAMLSV = $E2| 00000160: 35 37 20 20 20 20 20 20 20 3B 20 46 49 4C 45 4E |57 ; FILEN| 00000170: 41 4D 45 4E 20 55 45 42 45 52 4E 45 48 4D 45 4E |AMEN UEBERNEHMEN| 00000180: 00 C3 23 78 00 2E 45 51 20 43 48 52 47 4F 54 20 |..#x..EQ CHRGOT | 00000190: 3D 20 24 30 30 37 39 20 20 20 20 20 20 20 3B 20 |= $0079 ; | 000001A0: 54 45 53 54 20 41 55 46 20 57 45 49 54 45 52 45 |TEST AUF WEITERE| 000001B0: 20 50 41 52 41 4D 45 54 45 52 00 F5 23 82 00 2E | PARAMETER..#...| 000001C0: 45 51 20 43 48 4B 4B 4F 4D 20 3D 20 24 41 45 46 |EQ CHKKOM = $AEF| 000001D0: 44 20 20 20 20 20 20 20 3B 20 50 52 55 45 46 55 |D ; PRUEFU| 000001E0: 4E 47 20 41 55 46 20 4B 4F 4D 4D 41 00 33 24 8C |NG AUF KOMMA.3$.| 000001F0: 00 2E 45 51 20 46 52 4D 4E 55 4D 20 3D 20 24 41 |..EQ FRMNUM = $A| 00000200: 44 38 41 20 20 20 20 20 20 20 3B 20 4E 55 4D 45 |D8A ; NUME| 00000210: 52 49 53 43 48 45 4E 20 41 55 53 44 52 55 43 4B |RISCHEN AUSDRUCK| 00000220: 20 41 55 53 57 45 52 54 45 4E 00 74 24 96 00 2E | AUSWERTEN.t$...| 00000230: 45 51 20 47 45 54 41 44 52 20 3D 20 24 42 37 46 |EQ GETADR = $B7F| 00000240: 37 20 20 20 20 20 20 20 3B 20 41 44 52 45 53 53 |7 ; ADRESS| 00000250: 45 20 28 4C 4F 57 2F 48 49 47 48 29 20 4E 41 43 |E (LOW/HIGH) NAC| 00000260: 48 20 59 2F 41 20 48 4F 4C 45 4E 00 AD 24 A0 00 |H Y/A HOLEN..$..| 00000270: 2E 45 51 20 42 53 41 56 45 20 20 3D 20 24 46 35 |.EQ BSAVE = $F5| 00000280: 45 44 20 20 20 20 20 20 20 3B 20 45 49 4E 53 50 |ED ; EINSP| 00000290: 52 55 4E 47 20 49 4E 20 53 41 56 45 2D 52 4F 55 |RUNG IN SAVE-ROU| 000002A0: 54 49 4E 45 00 E6 24 AA 00 2E 45 51 20 42 4C 4F |TINE..$...EQ BLO| 000002B0: 41 44 20 20 3D 20 24 46 34 41 35 20 20 20 20 20 |AD = $F4A5 | 000002C0: 20 20 3B 20 45 49 4E 53 50 52 55 4E 47 20 49 4E | ; EINSPRUNG IN| 000002D0: 20 4C 4F 41 44 2D 52 4F 55 54 49 4E 45 00 EC 24 | LOAD-ROUTINE..$| 000002E0: B4 00 3B 00 23 25 BE 00 2E 45 51 20 44 45 56 49 |..;.#%...EQ DEVI| 000002F0: 43 45 20 3D 20 24 42 41 20 20 20 20 20 20 20 20 |CE = $BA | 00000300: 20 3B 20 41 4B 54 55 45 4C 4C 45 20 47 45 52 41 | ; AKTUELLE GERA| 00000310: 45 54 45 41 44 52 45 53 53 45 00 5C 25 C8 00 2E |ETEADRESSE.\%...| 00000320: 45 51 20 53 45 43 41 44 52 20 3D 20 24 42 39 20 |EQ SECADR = $B9 | 00000330: 20 20 20 20 20 20 20 20 3B 20 41 4B 54 55 45 4C | ; AKTUEL| 00000340: 4C 45 20 53 45 4B 55 4E 44 41 45 52 41 44 52 45 |LE SEKUNDAERADRE| 00000350: 53 53 45 00 92 25 D2 00 2E 45 51 20 41 44 53 41 |SSE..%...EQ ADSA| 00000360: 56 31 20 3D 20 24 43 31 20 20 20 20 20 20 20 20 |V1 = $C1 | 00000370: 20 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 20 | ; STARTADRESSE | 00000380: 46 55 45 52 20 53 41 56 45 00 C6 25 DC 00 2E 45 |FUER SAVE..%...E| 00000390: 51 20 41 44 53 41 56 32 20 3D 20 24 41 45 20 20 |Q ADSAV2 = $AE | 000003A0: 20 20 20 20 20 20 20 3B 20 45 4E 44 41 44 52 45 | ; ENDADRE| 000003B0: 53 53 45 20 46 55 45 52 20 53 41 56 45 00 02 26 |SSE FUER SAVE..&| 000003C0: E6 00 2E 45 51 20 41 44 4C 4F 41 44 20 3D 20 24 |...EQ ADLOAD = $| 000003D0: 43 33 20 20 20 20 20 20 20 20 20 3B 20 41 44 52 |C3 ; ADR| 000003E0: 45 53 53 45 20 46 55 45 52 20 52 45 4C 41 54 49 |ESSE FUER RELATI| 000003F0: 56 45 53 20 4C 41 44 45 4E 00 08 26 F0 00 3B 00 |VES LADEN..&..;.| 00000400: 4C 26 FA 00 2E 42 41 20 24 43 46 42 38 20 3B 20 |L&...BA $CFB8 ; | 00000410: 41 55 46 52 55 46 20 4D 49 54 20 53 59 53 20 35 |AUFRUF MIT SYS 5| 00000420: 33 31 37 36 20 22 4E 41 4D 45 22 2C 3C 41 44 52 |3176 "NAME",<ADR| 00000430: 45 53 53 45 20 31 3E 2C 3C 41 44 52 45 53 53 45 |ESSE 1>,<ADRESSE| 00000440: 20 32 3E 00 52 26 04 01 3B 00 7D 26 0E 01 53 54 | 2>.R&..;.}&..ST| 00000450: 41 52 54 20 4A 53 52 4E 41 4D 4C 53 56 3B 20 46 |ART JSRNAMLSV; F| 00000460: 49 4C 45 4E 41 4D 45 4E 20 55 45 42 45 52 4E 45 |ILENAMEN UEBERNE| 00000470: 48 4D 45 4E 00 9B 26 18 01 20 4C 44 58 23 30 38 |HMEN..&.. LDX#08| 00000480: 3B 20 47 45 52 41 45 54 45 41 44 52 45 53 53 45 |; GERAETEADRESSE| 00000490: 20 38 00 BC 26 22 01 20 53 54 58 44 45 56 49 43 | 8..&". STXDEVIC| 000004A0: 45 3B 20 28 3D 46 4C 4F 50 50 59 29 20 53 45 54 |E; (=FLOPPY) SET| 000004B0: 5A 45 4E 00 C2 26 2C 01 3B 00 ED 26 36 01 20 4A |ZEN..&,.;..&6. J| 000004C0: 53 52 43 48 52 47 4F 54 3B 20 54 45 53 54 2C 20 |SRCHRGOT; TEST, | 000004D0: 4F 42 20 3C 41 44 52 45 53 53 45 20 31 3E 20 46 |OB <ADRESSE 1> F| 000004E0: 4F 4C 47 54 00 17 27 40 01 20 42 45 51 4C 4F 41 |OLGT..'@. BEQLOA| 000004F0: 44 41 42 53 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E |DABS; NEIN, DANN| 00000500: 20 41 42 53 4F 4C 55 54 20 4C 41 44 45 4E 00 1D | ABSOLUT LADEN..| 00000510: 27 4A 01 3B 00 52 27 54 01 20 4A 53 52 43 48 4B |'J.;.R'T. JSRCHK| 00000520: 4B 4F 4D 3B 20 50 52 55 45 46 54 20 41 55 46 20 |KOM; PRUEFT AUF | 00000530: 4B 4F 4D 4D 41 2C 20 53 4F 4E 53 54 20 53 59 4E |KOMMA, SONST SYN| 00000540: 54 41 58 20 45 52 52 4F 52 00 81 27 5E 01 20 4A |TAX ERROR..'^. J| 00000550: 53 52 46 52 4D 4E 55 4D 3B 20 4E 55 4D 45 52 49 |SRFRMNUM; NUMERI| 00000560: 53 43 48 45 4E 20 41 55 53 44 52 55 43 4B 20 41 |SCHEN AUSDRUCK A| 00000570: 55 53 57 45 52 54 45 4E 00 B4 27 68 01 20 4A 53 |USWERTEN..'h. JS| 00000580: 52 47 45 54 41 44 52 3B 20 3C 41 44 52 45 53 53 |RGETADR; <ADRESS| 00000590: 45 20 31 3E 20 4E 41 43 48 20 59 2D 52 45 47 2E |E 1> NACH Y-REG.| 000005A0: 2F 41 4B 4B 55 20 48 4F 4C 45 4E 00 DD 27 72 01 |/AKKU HOLEN..'r.| 000005B0: 20 50 48 41 3B 20 55 4E 44 20 48 49 47 48 2D 42 | PHA; UND HIGH-B| 000005C0: 59 54 45 20 41 55 46 20 53 54 41 43 4B 20 52 45 |YTE AUF STACK RE| 000005D0: 54 54 45 4E 00 1E 28 7C 01 3B 20 20 20 20 20 20 |TTEN..(|.; | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005F0: 20 20 20 20 28 41 4B 4B 55 20 57 49 52 44 20 42 | (AKKU WIRD B| 00000600: 45 49 20 43 48 52 47 4F 54 20 56 45 52 41 45 4E |EI CHRGOT VERAEN| 00000610: 44 45 52 54 29 00 24 28 86 01 3B 00 4F 28 90 01 |DERT).$(..;.O(..| 00000620: 20 4A 53 52 43 48 52 47 4F 54 3B 20 54 45 53 54 | JSRCHRGOT; TEST| 00000630: 2C 20 4F 42 20 3C 41 44 52 45 53 53 45 20 32 3E |, OB <ADRESSE 2>| 00000640: 20 46 4F 4C 47 54 00 88 28 9A 01 20 42 45 51 4C | FOLGT..(.. BEQL| 00000650: 4F 41 44 52 45 4C 3B 20 4E 45 49 4E 2C 20 44 41 |OADREL; NEIN, DA| 00000660: 4E 4E 20 52 45 4C 41 54 49 56 20 41 4E 20 3C 41 |NN RELATIV AN <A| 00000670: 44 52 45 53 53 45 20 31 3E 20 4C 41 44 45 4E 00 |DRESSE 1> LADEN.| 00000680: 8E 28 A4 01 3B 00 B6 28 AE 01 53 41 56 45 20 50 |.(..;..(..SAVE P| 00000690: 4C 41 3B 20 48 49 47 48 2D 42 59 54 45 20 56 4F |LA; HIGH-BYTE VO| 000006A0: 4D 20 53 54 41 43 4B 20 48 4F 4C 45 4E 00 F9 28 |M STACK HOLEN..(| 000006B0: B8 01 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 4B | (AK| 000006D0: 4B 55 20 4E 41 43 48 20 43 48 52 47 4F 54 20 57 |KU NACH CHRGOT W| 000006E0: 49 45 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 29 |IEDERHERSTELLEN)| 000006F0: 00 16 29 C2 01 20 53 54 59 41 44 53 41 56 31 3B |..).. STYADSAV1;| 00000700: 20 53 54 41 52 54 41 44 52 45 53 53 45 00 3E 29 | STARTADRESSE.>)| 00000710: CC 01 20 53 54 41 41 44 53 41 56 31 2B 31 3B 20 |.. STAADSAV1+1; | 00000720: 46 55 45 52 20 53 41 56 45 20 55 45 42 45 52 4E |FUER SAVE UEBERN| 00000730: 45 48 4D 45 4E 00 44 29 D6 01 3B 00 79 29 E0 01 |EHMEN.D)..;.y)..| 00000740: 20 4A 53 52 43 48 4B 4B 4F 4D 3B 20 50 52 55 45 | JSRCHKKOM; PRUE| 00000750: 46 54 20 41 55 46 20 4B 4F 4D 4D 41 2C 20 53 4F |FT AUF KOMMA, SO| 00000760: 4E 53 54 20 53 59 4E 54 41 58 20 45 52 52 4F 52 |NST SYNTAX ERROR| 00000770: 00 A8 29 EA 01 20 4A 53 52 46 52 4D 4E 55 4D 3B |..).. JSRFRMNUM;| 00000780: 20 4E 55 4D 45 52 49 53 43 48 45 4E 20 41 55 53 | NUMERISCHEN AUS| 00000790: 44 52 55 43 4B 20 41 55 53 57 45 52 54 45 4E 00 |DRUCK AUSWERTEN.| 000007A0: DB 29 F4 01 20 4A 53 52 47 45 54 41 44 52 3B 20 |.).. JSRGETADR; | 000007B0: 3C 41 44 52 45 53 53 45 20 32 3E 20 4E 41 43 48 |<ADRESSE 2> NACH| 000007C0: 20 59 2D 52 45 47 2E 2F 41 4B 4B 55 20 48 4F 4C | Y-REG./AKKU HOL| 000007D0: 45 4E 00 E1 29 FE 01 3B 00 04 2A 08 02 20 53 54 |EN..)..;..*.. ST| 000007E0: 59 41 44 53 41 56 32 3B 20 55 4E 44 20 41 4C 53 |YADSAV2; UND ALS| 000007F0: 20 45 4E 44 41 44 52 45 53 53 45 00 2C 2A 12 02 | ENDADRESSE.,*..| 00000800: 20 53 54 41 41 44 53 41 56 32 2B 31 3B 20 46 55 | STAADSAV2+1; FU| 00000810: 45 52 20 53 41 56 45 20 55 45 42 45 52 4E 45 48 |ER SAVE UEBERNEH| 00000820: 4D 45 4E 00 5F 2A 1C 02 20 4A 4D 50 42 53 41 56 |MEN._*.. JMPBSAV| 00000830: 45 3B 20 45 49 4E 53 50 52 55 4E 47 20 49 4E 20 |E; EINSPRUNG IN | 00000840: 52 45 47 55 4C 41 45 52 45 20 53 41 56 45 2D 52 |REGULAERE SAVE-R| 00000850: 4F 55 54 49 4E 45 00 65 2A 26 02 3B 00 90 2A 30 |OUTINE.e*&.;..*0| 00000860: 02 4C 4F 41 44 52 45 4C 20 50 4C 41 3B 20 48 49 |.LOADREL PLA; HI| 00000870: 47 48 2D 42 59 54 45 20 56 4F 4D 20 53 54 41 43 |GH-BYTE VOM STAC| 00000880: 4B 20 48 4F 4C 45 4E 00 D3 2A 3A 02 3B 20 20 20 |K HOLEN..*:.; | 00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008A0: 20 20 20 20 20 20 20 28 41 4B 4B 55 20 4E 41 43 | (AKKU NAC| 000008B0: 48 20 43 48 52 47 4F 54 20 57 49 45 44 45 52 48 |H CHRGOT WIEDERH| 000008C0: 45 52 53 54 45 4C 4C 45 4E 29 00 EF 2A 44 02 20 |ERSTELLEN)..*D. | 000008D0: 53 54 59 41 44 4C 4F 41 44 3B 20 4C 41 44 45 41 |STYADLOAD; LADEA| 000008E0: 44 52 45 53 53 45 00 0D 2B 4E 02 20 53 54 41 41 |DRESSE..+N. STAA| 000008F0: 44 4C 4F 41 44 2B 31 3B 20 55 45 42 45 52 4E 45 |DLOAD+1; UEBERNE| 00000900: 48 4D 45 4E 00 40 2B 58 02 20 4C 44 59 23 30 30 |HMEN.@+X. LDY#00| 00000910: 3B 20 53 45 4B 55 4E 44 41 45 52 41 44 52 45 53 |; SEKUNDAERADRES| 00000920: 53 45 20 46 55 45 52 20 52 45 4C 41 54 49 56 45 |SE FUER RELATIVE| 00000930: 53 20 4C 41 44 45 4E 00 71 2B 62 02 20 2E 42 59 |S LADEN.q+b. .BY| 00000940: 24 32 43 3B 20 22 42 49 54 22 20 55 45 42 45 52 |$2C; "BIT" UEBER| 00000950: 53 50 52 49 4E 47 54 20 46 4F 4C 47 45 4E 44 45 |SPRINGT FOLGENDE| 00000960: 4E 20 42 45 46 45 48 4C 00 77 2B 6C 02 3B 00 B1 |N BEFEHL.w+l.;..| 00000970: 2B 76 02 4C 4F 41 44 41 42 53 20 4C 44 59 23 30 |+v.LOADABS LDY#0| 00000980: 31 3B 20 53 45 4B 55 4E 44 41 45 52 41 44 52 45 |1; SEKUNDAERADRE| 00000990: 53 53 45 20 46 55 45 52 20 41 42 53 4F 4C 55 54 |SSE FUER ABSOLUT| 000009A0: 45 53 20 4C 41 44 45 4E 00 CD 2B 80 02 20 53 54 |ES LADEN..+.. ST| 000009B0: 59 53 45 43 41 44 52 3B 20 55 45 42 45 52 4E 45 |YSECADR; UEBERNE| 000009C0: 48 4D 45 4E 00 EB 2B 8A 02 20 4C 44 41 23 30 30 |HMEN..+.. LDA#00| 000009D0: 3B 20 4C 4F 41 44 2D 46 4C 41 47 20 53 45 54 5A |; LOAD-FLAG SETZ| 000009E0: 45 4E 00 1E 2C 94 02 20 4A 4D 50 42 4C 4F 41 44 |EN..,.. JMPBLOAD| 000009F0: 3B 20 45 49 4E 53 50 52 55 4E 47 20 49 4E 20 52 |; EINSPRUNG IN R| 00000A00: 45 47 55 4C 41 45 52 45 20 4C 4F 41 44 2D 52 4F |EGULAERE LOAD-RO| 00000A10: 55 54 49 4E 45 00 00 00 |UTINE... |
."."..; *****************************.R"
..; * *.V"..;
* QUELLCODE ZU "THAT'S IT!" *.."(.; *
*.."2.; * (C) 19
89 MATTHIAS ULLMANN *.."<.; * H
ELMHOLTZSTR. 53 *..#F.; * 6200
WIESBADEN 1 *.*#P.; *
*.N#Z.; ************************
*****.T#D.;..#N..EQ NAMLSV = $E257
; FILENAMEN UEBERNEHMEN.C#X..EQ CHRGOT
= $0079 ; TEST AUF WEITERE PARAMET
ER..#...EQ CHKKOM = $AEFD ; PRUEFU
NG AUF KOMMA.3$...EQ FRMNUM = $AD8A
; NUMERISCHEN AUSDRUCK AUSWERTEN.T$...
EQ GETADR = $B7F7 ; ADRESSE (LOW/H
IGH) NACH Y/A HOLEN..$ ..EQ BSAVE = $F5
ED ; EINSPRUNG IN SAVE-ROUTINE..$.
..EQ BLOAD = $F4A5 ; EINSPRUNG IN
LOAD-ROUTINE..$..;.#%...EQ DEVICE = $BA
; AKTUELLE GERAETEADRESSE.\%H..
EQ SECADR = $B9 ; AKTUELLE SEKUN
DAERADRESSE..%R..EQ ADSAV1 = $C1
; STARTADRESSE FUER SAVE.F%...EQ ADSAV2
= $AE ; ENDADRESSE FUER SAVE..&
...EQ ADLOAD = $C3 ; ADRESSE FUE
R RELATIVES LADEN..&..;.L&...BA $CFB8 ;
AUFRUF MIT SYS 53176 "NAME",<ADRESSE 1>,
<ADRESSE 2>.R&..;.}&..START JSRNAMLSV; F
ILENAMEN UEBERNEHMEN..&.. LDX#08; GERAET
EADRESSE 8..&". STXDEVICE; (=FLOPPY) SET
ZEN.B&,.;..&6. JSRCHRGOT; TEST, OB <ADRE
SSE 1> FOLGT..'@. BEQLOADABS; NEIN, DANN
ABSOLUT LADEN..'J.;.R'T. JSRCHKKOM; PRU
EFT AUF KOMMA, SONST SYNTAX ERROR..'^. J
SRFRMNUM; NUMERISCHEN AUSDRUCK AUSWERTEN
..'H. JSRGETADR; <ADRESSE 1> NACH Y-REG.
/AKKU HOLEN..'R. PHA; UND HIGH-BYTE AUF
STACK RETTEN..(|.;
(AKKU WIRD BEI CHRGOT VERAENDERT).$(
..;.O(.. JSRCHRGOT; TEST, OB <ADRESSE 2>
FOLGT..(.. BEQLOADREL; NEIN, DANN RELAT
IV AN <ADRESSE 1> LADEN..(..;..(..SAVE P
LA; HIGH-BYTE VOM STACK HOLEN..(..;
(AKKU NACH CHRGOT W
IEDERHERSTELLEN)..)B. STYADSAV1; STARTAD
RESSE.>)L. STAADSAV1+1; FUER SAVE UEBERN
EHMEN.D)V.;.Y).. JSRCHKKOM; PRUEFT AUF K
OMMA, SONST SYNTAX ERROR..).. JSRFRMNUM;
NUMERISCHEN AUSDRUCK AUSWERTEN..).. JSR
GETADR; <ADRESSE 2> NACH Y-REG./AKKU HOL
EN..)..;..*.. STYADSAV2; UND ALS ENDADRE
SSE.,*.. STAADSAV2+1; FUER SAVE UEBERNEH
MEN._*.. JMPBSAVE; EINSPRUNG IN REGULAER
E SAVE-ROUTINE.E*&.;..*0.LOADREL PLA; HI
GH-BYTE VOM STACK HOLEN.S*:.;
(AKKU NACH CHRGOT WIEDERH
ERSTELLEN)..*D. STYADLOAD; LADEADRESSE..
+N. STAADLOAD+1; UEBERNEHMEN.@+X. LDY#00
; SEKUNDAERADRESSE FUER RELATIVES LADEN.
Q+B. .BY$2C; "BIT" UEBERSPRINGT FOLGENDE
N BEFEHL.W+L.;..+V.LOADABS LDY#01; SEKUN
DAERADRESSE FUER ABSOLUTES LADEN.M+.. ST
YSECADR; UEBERNEHMEN..+.. LDA#00; LOAD-F
LAG SETZEN..,.. JMPBLOAD; EINSPRUNG IN R
EGULAERE LOAD-ROUTINE...
> CLICK IMAGE PREVIEW FOR FULL MODAL