INTERPRET-128.A
FILE INFORMATION
FILENAME(S): INTERPRET-128.A
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-02 16:27:55
APPEARS ON: 4 disk(s)
FILE HASH
d8558357342f47a4c22272d7785dba792885f006c9f100cbcdaf0bbc7e63eac4
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FUCK FOR TUEV | INTERPRET-128.A | PRG | Treasure Chest - NeppMOS | 14 | 1 | DOWNLOAD FILE |
| 128ER SONDERHEFT | INTERPRET-128.A | PRG | C64er | 23 | 9 | DOWNLOAD FILE |
| 2405 THE FOX | INTERPRET-128.A | PRG | DuncanTwain | 8 | 4 | DOWNLOAD FILE |
| 128ER SONDERHEFT | INTERPRET-128.A | PRG | DuncanTwain | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 27 1C 01 00 8F 20 22 20 20 20 20 20 20 20 |..'.... " | 00000010: 20 20 20 20 20 20 20 20 C9 4E 54 45 52 50 52 45 | .NTERPRE| 00000020: 54 2D 31 32 38 2E 41 00 2D 1C 02 00 3A 00 5B 1C |T-128.A.-...:.[.| 00000030: 03 00 8F 20 22 20 20 20 20 20 20 20 20 56 45 52 |... " VER| 00000040: BB 4E 44 45 52 54 20 C9 4E 54 45 52 50 52 45 54 |.NDERT .NTERPRET| 00000050: 45 52 2D D3 43 48 4C 45 49 46 45 00 61 1C 04 00 |ER-.CHLEIFE.a...| 00000060: 3A 00 84 1C 05 00 8F 20 22 20 20 20 20 20 20 20 |:...... " | 00000070: 20 20 20 20 20 20 20 20 20 20 28 43 29 20 42 59 | (C) BY| 00000080: 20 CB D2 D7 00 8A 1C 06 00 3A 00 AB 1C 07 00 8F | ........:......| 00000090: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | " | 000000A0: 20 20 20 20 20 20 20 31 39 38 35 00 B1 1C 08 00 | 1985.....| 000000B0: 3A 00 D6 1C 09 00 8F 20 22 20 20 20 20 20 20 20 |:...... " | 000000C0: 20 20 20 20 20 20 20 20 20 20 56 45 52 53 49 4F | VERSIO| 000000D0: 4E 20 31 2E 30 30 00 DC 1C 0A 00 3A 00 E2 1C 0B |N 1.00.....:....| 000000E0: 00 3A 00 FB 1C 14 00 4E 24 B2 22 49 4E 54 45 52 |.:.....N$."INTER| 000000F0: 50 52 45 54 2D 31 32 38 2E 4D 22 00 1B 1D 1E 00 |PRET-128.M".....| 00000100: 9F 20 31 35 2C 38 2C 31 35 2C 22 53 30 3A 22 AA |. 15,8,15,"S0:".| 00000110: 4E 24 3A 20 8D 20 36 30 31 30 30 00 3A 1D 28 00 |N$: . 60100.:.(.| 00000120: 9F 20 32 2C 38 2C 32 2C 4E 24 AA 22 2C 50 2C 57 |. 2,8,2,N$.",P,W| 00000130: 22 3A 20 8D 20 36 30 31 30 30 00 40 1D 46 00 3A |": . 60100.@.F.:| 00000140: 00 4D 1D 50 00 9E 20 39 AC 34 30 39 36 00 53 1D |.M.P.. 9.4096.S.| 00000150: 5A 00 3B 00 5F 1D 64 00 2E 4F 50 54 20 4F 32 00 |Z.;._.d..OPT O2.| 00000160: 65 1D 6E 00 3B 00 84 1D DC 00 3B 20 22 2A 2A 2A |e.n.;.....; "***| 00000170: 20 D5 4E 54 45 52 50 52 4F 47 52 41 4D 4D 45 20 | .NTERPROGRAMME | 00000180: 2A 2A 2A 22 00 8A 1D E6 00 3B 00 C8 1D F0 00 43 |***".....;.....C| 00000190: 48 52 A1 20 20 20 B2 20 20 24 30 33 38 30 20 20 |HR. . $0380 | 000001A0: 20 20 20 20 3B 20 22 48 4F 4C 54 20 4E BB 43 48 | ; "HOLT N.CH| 000001B0: 53 54 45 53 20 C2 59 54 45 20 41 55 53 20 C2 C1 |STES .YTE AUS ..| 000001C0: D3 C9 C3 2D D4 45 58 54 00 03 1E FA 00 45 58 45 |...-.EXT.....EXE| 000001D0: 43 55 54 45 20 20 B2 20 20 24 34 41 46 33 20 20 |CUTE . $4AF3 | 000001E0: 20 20 20 20 3B 20 22 46 BD 48 52 54 20 C2 45 46 | ; "F.HRT .EF| 000001F0: 45 48 4C 20 41 55 53 2C 20 54 4F 4B 45 4E 20 49 |EHL AUS, TOKEN I| 00000200: 4E 20 C1 00 46 1E 04 01 B5 45 52 20 20 20 20 B2 |N ..F....ER .| 00000210: 20 20 24 34 41 46 36 20 20 20 20 20 20 3B 20 22 | $4AF6 ; "| 00000220: 48 4F 4C 54 20 4E BB 43 48 53 54 45 4E 20 C2 45 |HOLT N.CHSTEN .E| 00000230: 46 45 48 4C 20 55 4E 44 20 46 BD 48 52 54 20 49 |FEHL UND F.HRT I| 00000240: 48 4E 20 41 55 53 00 4C 1E 0E 01 3B 00 64 1E 2C |HN AUS.L...;.d.,| 00000250: 01 3B 20 22 2A 2A 2A 20 D6 41 52 49 41 42 4C 45 |.; "*** .ARIABLE| 00000260: 20 2A 2A 2A 00 6A 1E 36 01 3B 00 92 1E 40 01 4D | ***.j.6.;...@.M| 00000270: 49 4E 20 20 20 20 20 B2 20 24 44 45 20 20 20 20 |IN . $DE | 00000280: 3B 20 22 4B 4C 45 49 4E 53 54 45 53 20 54 4F 4B |; "KLEINSTES TOK| 00000290: 45 4E 00 B8 1E 4A 01 4D 41 58 20 20 20 20 20 B2 |EN...J.MAX .| 000002A0: 20 24 45 39 20 20 20 20 3B 20 22 47 52 BC BE 54 | $E9 ; "GR..T| 000002B0: 45 53 20 54 4F 4B 45 4E 00 BE 1E 68 01 3B 00 CB |ES TOKEN...h.;..| 000002C0: 1E 84 03 AC B2 20 24 31 33 30 30 00 D1 1E 8E 03 |..... $1300.....| 000002D0: 3B 00 E8 1E E8 03 AE 20 20 20 20 20 20 20 4A 4D |;...... JM| 000002E0: 50 20 41 4E 46 41 4E 47 00 FD 1E F2 03 AE 20 20 |P ANFANG...... | 000002F0: 20 20 20 20 20 4A 4D 50 20 49 4E 49 54 00 03 1F | JMP INIT...| 00000300: FC 03 3B 00 37 1F D0 07 49 4E 49 54 20 20 20 20 |..;.7...INIT | 00000310: 53 45 49 20 20 20 20 20 20 20 20 20 20 20 20 20 |SEI | 00000320: 20 20 20 20 20 3B 20 22 50 4F 49 4E 54 45 52 20 | ; "POINTER | 00000330: 46 BD 52 20 44 49 45 00 79 1F DA 07 AE 20 20 20 |F.R DIE.y.... | 00000340: 20 20 20 20 4C 44 41 20 23 B3 41 4E 46 41 4E 47 | LDA #.ANFANG| 00000350: 20 20 20 20 20 20 20 20 20 3B 20 22 C9 4E 54 45 | ; ".NTE| 00000360: 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 45 20 |RPRETERSCHLEIFE | 00000370: D0 52 47 2D CD 4F 44 55 53 00 B1 1F E4 07 AE 20 |.RG-.ODUS...... | 00000380: 20 20 20 20 20 20 53 54 41 20 24 30 33 30 38 20 | STA $0308 | 00000390: 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 41 55 | ; "AU| 000003A0: 46 20 27 41 4E 46 41 4E 47 27 20 53 45 54 5A 45 |F 'ANFANG' SETZE| 000003B0: 4E 00 CA 1F EE 07 AE 20 20 20 20 20 20 20 4C 44 |N...... LD| 000003C0: 41 20 23 B1 41 4E 46 41 4E 47 00 E0 1F F8 07 AE |A #.ANFANG......| 000003D0: 20 20 20 20 20 20 20 53 54 41 20 24 30 33 30 39 | STA $0309| 000003E0: 00 F0 1F 02 08 AE 20 20 20 20 20 20 20 43 4C 49 |...... CLI| 000003F0: 00 05 20 0C 08 AE 20 20 20 20 20 20 20 4C 44 41 |.. ... LDA| 00000400: 20 23 24 30 30 00 3D 20 16 08 AE 20 20 20 20 20 | #$00.= ... | 00000410: 20 20 53 54 41 20 24 46 46 30 30 20 20 20 20 20 | STA $FF00 | 00000420: 20 20 20 20 20 20 20 3B 20 22 42 41 4E 4B 20 31 | ; "BANK 1| 00000430: 35 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 52 20 |5 EINSCHALTEN.R | 00000440: 20 08 AE 20 20 20 20 20 20 20 4C 44 41 20 23 24 | .. LDA #$| 00000450: 30 36 00 97 20 2A 08 AE 20 20 20 20 20 20 20 53 |06.. *.. S| 00000460: 54 41 20 24 44 35 30 36 20 20 20 20 20 20 20 20 |TA $D506 | 00000470: 20 20 20 20 3B 20 22 24 30 2D 24 31 46 46 46 20 | ; "$0-$1FFF | 00000480: 47 45 4D 45 49 4E 53 41 4D 45 52 20 D2 C1 CD 2D |GEMEINSAMER ...-| 00000490: C2 45 52 45 49 43 48 00 AC 20 34 08 AE 20 20 20 |.EREICH.. 4.. | 000004A0: 20 20 20 20 4C 44 41 20 23 24 32 30 00 C0 20 3E | LDA #$20.. >| 000004B0: 08 AE 20 20 20 20 20 20 20 53 54 41 20 24 33 30 |.. STA $30| 000004C0: 00 D4 20 48 08 AE 20 20 20 20 20 20 20 53 54 41 |.. H.. STA| 000004D0: 20 24 33 32 00 E8 20 52 08 AE 20 20 20 20 20 20 | $32.. R.. | 000004E0: 20 53 54 41 20 24 33 34 00 2A 21 5C 08 AE 20 20 | STA $34.*!\.. | 000004F0: 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 | LDA #$00 | 00000500: 20 20 20 20 20 20 20 20 20 20 3B 20 22 D6 41 52 | ; ".AR| 00000510: 49 41 42 4C 45 4E 2D DA 45 49 47 45 52 20 45 4E |IABLEN-.EIGER EN| 00000520: 54 53 50 52 45 43 48 45 4E 44 00 57 21 66 08 AE |TSPRECHEND.W!f..| 00000530: 20 20 20 20 20 20 20 53 54 41 20 24 32 46 20 20 | STA $2F | 00000540: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 41 | ; "A| 00000550: 4E 50 41 53 53 45 4E 00 6B 21 70 08 AE 20 20 20 |NPASSEN.k!p.. | 00000560: 20 20 20 20 53 54 41 20 24 33 31 00 7F 21 7A 08 | STA $31..!z.| 00000570: AE 20 20 20 20 20 20 20 53 54 41 20 24 33 33 00 |. STA $33.| 00000580: 8F 21 84 08 AE 20 20 20 20 20 20 20 52 54 53 00 |.!... RTS.| 00000590: 95 21 8E 08 3B 00 C4 21 B8 0B 41 4E 46 41 4E 47 |.!..;..!..ANFANG| 000005A0: 20 20 4A 53 52 20 43 48 52 A1 20 20 20 20 20 20 | JSR CHR. | 000005B0: 20 20 20 20 20 3B 20 22 C2 45 46 45 48 4C 20 48 | ; ".EFEHL H| 000005C0: 4F 4C 45 4E 00 03 22 C2 0B AE 20 20 20 20 20 20 |OLEN.."... | 000005D0: 20 43 4D 50 20 23 4D 49 4E 20 20 20 20 20 20 20 | CMP #MIN | 000005E0: 20 20 20 20 20 20 3B 20 22 45 49 4E 45 53 20 44 | ; "EINES D| 000005F0: 45 52 20 27 54 4F 4B 45 4E 27 2C 20 44 49 45 20 |ER 'TOKEN', DIE | 00000600: 41 55 46 00 4B 22 CC 0B AE 20 20 20 20 20 20 20 |AUF.K"... | 00000610: 42 43 43 20 41 4C 54 20 20 20 20 20 20 20 20 20 |BCC ALT | 00000620: 20 20 20 20 20 3B 20 22 4E 45 55 45 20 C2 45 46 | ; "NEUE .EF| 00000630: 45 48 4C 53 41 44 52 45 53 53 45 20 46 BD 48 52 |EHLSADRESSE F.HR| 00000640: 45 4E 20 53 4F 4C 4C 45 4E 20 3F 00 60 22 D6 0B |EN SOLLEN ?.`"..| 00000650: AE 20 20 20 20 20 20 20 43 4D 50 20 23 4D 41 58 |. CMP #MAX| 00000660: 00 74 22 E0 0B AE 20 20 20 20 20 20 20 42 43 53 |.t"... BCS| 00000670: 20 41 4C 54 00 A1 22 EA 0B AE 20 20 20 20 20 20 | ALT.."... | 00000680: 20 54 41 58 20 20 20 20 20 20 20 20 20 20 20 20 | TAX | 00000690: 20 20 20 20 20 20 3B 20 22 4A 41 2C 20 44 41 4E | ; "JA, DAN| 000006A0: 4E 00 E1 22 EC 0B AE 20 20 20 20 20 20 20 42 49 |N.."... BI| 000006B0: 54 20 24 44 37 20 20 20 20 20 20 20 20 20 20 20 |T $D7 | 000006C0: 20 20 20 3B 20 22 41 55 46 20 34 30 2D DA 45 49 | ; "AUF 40-.EI| 000006D0: 43 48 45 4E 2D CD 4F 44 55 53 20 54 45 53 54 45 |CHEN-.ODUS TESTE| 000006E0: 4E 00 2E 23 EE 0B AE 20 20 20 20 20 20 20 42 50 |N..#... BP| 000006F0: 4C 20 56 49 43 20 20 20 20 20 20 20 20 20 20 20 |L VIC | 00000700: 20 20 20 3B 20 22 34 30 20 DA 2E 2C 20 44 41 4E | ; "40 .., DAN| 00000710: 4E 20 D3 50 52 55 4E 47 20 41 55 46 20 27 4E 4F |N .PRUNG AUF 'NO| 00000720: 52 4D 41 4C 45 27 20 C1 44 52 45 53 53 45 00 62 |RMALE' .DRESSE.b| 00000730: 23 F4 0B AE 20 20 20 20 20 20 20 4C 44 41 20 54 |#... LDA T| 00000740: 41 42 4C 4F 57 AB 4D 49 4E 2C 58 20 20 20 20 20 |ABLOW.MIN,X | 00000750: 3B 20 22 38 30 20 DA 2E 3A 20 4C 4F 57 2D C2 59 |; "80 ..: LOW-.Y| 00000760: 54 45 00 AF 23 FE 0B AE 20 20 20 20 20 20 20 53 |TE..#... S| 00000770: 54 41 20 50 52 47 AA 31 20 20 20 20 20 20 20 20 |TA PRG.1 | 00000780: 20 20 20 20 3B 20 22 20 20 20 20 20 20 20 20 20 | ; " | 00000790: 20 20 20 20 20 20 20 44 45 52 20 4E 45 55 45 4E | DER NEUEN| 000007A0: 20 C2 45 46 45 48 4C 53 41 44 52 45 53 53 45 00 | .EFEHLSADRESSE.| 000007B0: E4 23 08 0C AE 20 20 20 20 20 20 20 4C 44 41 20 |.#... LDA | 000007C0: 54 41 42 48 49 47 48 AB 4D 49 4E 2C 58 20 20 20 |TABHIGH.MIN,X | 000007D0: 20 3B 20 22 20 20 20 20 20 20 20 48 49 47 48 2D | ; " HIGH-| 000007E0: C2 59 54 45 00 2E 24 12 0C AE 20 20 20 20 20 20 |.YTE..$... | 000007F0: 20 53 54 41 20 50 52 47 AA 32 20 20 20 20 20 20 | STA PRG.2 | 00000800: 20 20 20 20 20 20 3B 20 22 20 20 20 20 20 20 20 | ; " | 00000810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000820: 20 4E 41 43 48 20 50 52 47 2B 31 2C 2B 32 00 3E | NACH PRG+1,+2.>| 00000830: 24 1C 0C 52 4F 55 54 45 20 20 20 54 58 41 00 7F |$..ROUTE TXA..| 00000840: 24 26 0C AE 20 20 20 20 20 20 20 4A 53 52 20 43 |$&.. JSR C| 00000850: 48 52 A1 20 20 20 20 20 20 20 20 20 20 20 3B 20 |HR. ; | 00000860: 22 5A 55 52 BD 43 4B 20 5A 55 52 20 C9 4E 54 45 |"ZUR.CK ZUR .NTE| 00000870: 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 45 00 |RPRETERSCHLEIFE.| 00000880: B4 24 30 0C 50 52 47 20 20 20 20 20 4A 53 52 20 |.$0.PRG JSR | 00000890: 24 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 |$0000 | 000008A0: 20 3B 20 22 C2 45 46 45 48 4C 20 41 55 53 46 BD | ; ".EFEHL AUSF.| 000008B0: 48 52 45 4E 00 F5 24 3A 0C AE 20 20 20 20 20 20 |HREN..$:.. | 000008C0: 20 4A 4D 50 20 B5 45 52 20 20 20 20 20 20 20 20 | JMP .ER | 000008D0: 20 20 20 20 3B 20 22 5A 55 52 BD 43 4B 20 5A 55 | ; "ZUR.CK ZU| 000008E0: 52 20 C9 4E 54 45 52 50 52 45 54 45 52 53 43 48 |R .NTERPRETERSCH| 000008F0: 4C 45 49 46 45 00 3D 25 44 0C 41 4C 54 20 20 20 |LEIFE.=%D.ALT | 00000900: 20 20 4A 53 52 20 43 48 52 A1 AA 36 20 20 20 20 | JSR CHR..6 | 00000910: 20 20 20 20 20 3B 20 22 4B 45 49 4E 20 D3 4F 4E | ; "KEIN .ON| 00000920: 44 45 52 42 45 46 45 48 4C 2C 20 27 4E 4F 52 4D |DERBEFEHL, 'NORM| 00000930: 41 4C 45 27 20 D3 43 48 4C 45 49 46 45 00 55 25 |ALE' .CHLEIFE.U%| 00000940: 4E 0C AE 20 20 20 20 20 20 20 4A 4D 50 20 45 58 |N.. JMP EX| 00000950: 45 43 55 54 45 00 5B 25 3C 0F 3B 00 89 25 A0 0F |ECUTE.[%<.;..%..| 00000960: 54 41 42 4C 4F 57 20 20 2E 42 59 54 20 24 33 45 |TABLOW .BYT $3E| 00000970: 2C 20 24 37 32 2C 20 24 44 37 2C 20 24 38 31 2C |, $72, $D7, $81,| 00000980: 20 24 39 33 2C 20 24 38 44 00 B7 25 AA 0F AE 20 | $93, $8D..%... | 00000990: 20 20 20 20 20 20 2E 42 59 54 20 24 32 42 2C 20 | .BYT $2B, | 000009A0: 24 35 36 2C 20 24 35 38 2C 20 24 45 32 2C 20 24 |$56, $58, $E2, $| 000009B0: 37 39 2C 20 24 36 30 00 BD 25 B4 0F 3B 00 EB 25 |79, $60..%..;..%| 000009C0: 88 13 54 41 42 48 49 47 48 20 2E 42 59 54 20 24 |..TABHIGH .BYT $| 000009D0: 31 41 2C 20 24 31 36 2C 20 24 36 37 2C 20 24 31 |1A, $16, $67, $1| 000009E0: 37 2C 20 24 31 38 2C 20 24 36 35 00 19 26 92 13 |7, $18, $65..&..| 000009F0: AE 20 20 20 20 20 20 20 2E 42 59 54 20 24 36 34 |. .BYT $64| 00000A00: 2C 20 24 31 38 2C 20 24 36 39 2C 20 24 36 39 2C |, $18, $69, $69,| 00000A10: 20 24 36 41 2C 20 24 36 39 00 1F 26 9C 13 3B 00 | $6A, $69..&..;.| 00000A20: 4C 26 70 17 56 49 43 20 20 20 20 20 4C 44 41 20 |L&p.VIC LDA | 00000A30: 4C 4F 57 54 41 42 AB 4D 49 4E 2C 58 20 20 20 20 |LOWTAB.MIN,X | 00000A40: 20 3B 20 22 4C 4F 57 2D C2 59 54 45 00 97 26 7A | ; "LOW-.YTE..&z| 00000A50: 17 AE 20 20 20 20 20 20 20 53 54 41 20 50 52 47 |.. STA PRG| 00000A60: AA 31 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |.1 ; | 00000A70: 22 20 20 20 20 20 20 20 20 20 20 44 45 52 20 27 |" DER '| 00000A80: 34 30 2D DA 2E 2D C1 44 52 45 53 53 45 27 20 4E |40-..-.DRESSE' N| 00000A90: 41 43 48 20 50 52 47 00 C5 26 84 17 AE 20 20 20 |ACH PRG..&... | 00000AA0: 20 20 20 20 4C 44 41 20 48 49 47 48 54 41 42 AB | LDA HIGHTAB.| 00000AB0: 4D 49 4E 2C 58 20 20 20 20 3B 20 22 48 49 47 48 |MIN,X ; "HIGH| 00000AC0: 2D C2 59 54 45 00 DB 26 8E 17 AE 20 20 20 20 20 |-.YTE..&... | 00000AD0: 20 20 53 54 41 20 50 52 47 AA 32 00 0B 27 98 17 | STA PRG.2..'..| 00000AE0: AE 20 20 20 20 20 20 20 4A 4D 50 20 52 4F 55 54 |. JMP ROUT| 00000AF0: 45 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 22 |E ; "| 00000B00: 57 45 49 54 45 52 20 53 2E 4F 2E 00 11 27 A2 17 |WEITER S.O...'..| 00000B10: 3B 00 3F 27 58 1B 4C 4F 57 54 41 42 20 20 2E 42 |;.?'X.LOWTAB .B| 00000B20: 59 54 20 24 35 41 2C 20 24 41 38 2C 20 24 44 37 |YT $5A, $A8, $D7| 00000B30: 2C 20 24 42 37 2C 20 24 38 45 2C 20 24 38 44 00 |, $B7, $8E, $8D.| 00000B40: 6D 27 62 1B AE 20 20 20 20 20 20 20 2E 42 59 54 |m'b.. .BYT| 00000B50: 20 24 32 42 2C 20 24 39 37 2C 20 24 35 35 2C 20 | $2B, $97, $55, | 00000B60: 24 45 32 2C 20 24 37 39 2C 20 24 36 30 00 73 27 |$E2, $79, $60.s'| 00000B70: 6C 1B 3B 00 A1 27 76 1B 48 49 47 48 54 41 42 20 |l.;..'v.HIGHTAB | 00000B80: 2E 42 59 54 20 24 36 42 2C 20 24 36 31 2C 20 24 |.BYT $6B, $61, $| 00000B90: 36 37 2C 20 24 36 32 2C 20 24 36 36 2C 20 24 36 |67, $62, $66, $6| 00000BA0: 35 00 CF 27 80 1B AE 20 20 20 20 20 20 20 2E 42 |5..'... .B| 00000BB0: 59 54 20 24 36 34 2C 20 24 36 37 2C 20 24 36 39 |YT $64, $67, $69| 00000BC0: 2C 20 24 36 39 2C 20 24 36 41 2C 20 24 36 39 00 |, $69, $6A, $69.| 00000BD0: D5 27 8A 1B 3B 00 DC 27 40 1F 2E 80 00 E2 27 28 |.'..;..'@.....'(| 00000BE0: 23 80 00 02 28 60 EA 5A 5A 24 B2 22 49 4E 54 45 |#...(`.ZZ$."INTE| 00000BF0: 52 50 52 45 54 2D 31 32 38 2E 41 22 3A 20 55 4E |RPRET-128.A": UN| 00000C00: B2 38 00 1B 28 6A EA 9F 20 31 35 2C 55 4E 2C 31 |.8..(j.. 15,UN,1| 00000C10: 35 2C 22 53 30 3A 22 AA 5A 5A 24 00 27 28 74 EA |5,"S0:".ZZ$.'(t.| 00000C20: 8D 20 36 30 31 30 30 00 34 28 7E EA 94 20 5A 5A |. 60100.4(~.. ZZ| 00000C30: 24 2C 55 4E 00 40 28 88 EA 8D 20 36 30 31 30 30 |$,UN.@(... 60100| 00000C40: 00 4D 28 92 EA 95 20 5A 5A 24 2C 55 4E 00 56 28 |.M(... ZZ$,UN.V(| 00000C50: 9C EA A0 20 31 35 00 5C 28 A6 EA 80 00 74 28 C4 |... 15.\(....t(.| 00000C60: EA 84 31 35 2C 20 53 31 2C 20 53 24 2C 20 53 32 |..15, S1, S$, S2| 00000C70: 2C 20 53 33 00 8A 28 CE EA 8B 20 53 31 B2 31 20 |, S3..(... S1.1 | 00000C80: A7 20 99 20 53 32 3B 20 53 24 00 9A 28 D8 EA 8B |. . S2; S$..(...| 00000C90: 20 53 31 B3 32 30 20 A7 20 8E 00 BA 28 E2 EA 99 | S1.20 . ...(...| 00000CA0: 20 53 31 20 22 2C 20 22 20 53 24 20 22 2C 22 20 | S1 ", " S$ "," | 00000CB0: 53 32 3B 20 22 2C 22 20 53 33 00 C3 28 EC EA A0 |S2; "," S3..(...| 00000CC0: 20 31 35 00 00 00 | 15... |
..'.... " INTERPRET-128.A.
-...:.[.... " VER.NDERT INTERPRET
ER-SCHLEIFE.A...:...... "
(C) BY KRW.....:...... "
1985.....:.V.... "
VERSION 1.00.....:.....:.....N$."INTER
PRET-128.M"...... 15,8,15,"S0:".N$: . 60
100.:.(.. 2,8,2,N$.",P,W": . 60100.@.F.:
.M.P.. 9.4096.S.Z.;._.D..OPT O2.E.N.;...
..; "*** UNTERPROGRAMME ***".....;.H...C
HR. . $0380 ; "HOLT N.CHSTES BYT
E AUS BASIC-TEXT.....EXECUTE . $4AF3
; "F.HRT BEFEHL AUS, TOKEN IN A.F...
.ER . $4AF6 ; "HOLT N.CHSTEN BE
FEHL UND F.HRT IHN AUS.L...;.D.,.; "***
VARIABLE ***.J.6.;...@.MIN . $DE
; "KLEINSTES TOKEN...J.MAX . $E9
; "GR..TES TOKEN...H.;.K..... $1300.Q...
;...... JMP ANFANG...... JMP
INIT.....;.7.P.INIT SEI
; "POINTER F.R DIE.Y.Z.. LDA
#.ANFANG ; "INTERPRETERSCHLEIFE
PRG-MODUS...... STA $0308
; "AUF 'ANFANG' SETZEN.J.... LD
A #.ANFANG...... STA $0309......
CLI.. ... LDA #$00.= ...
STA $FF00 ; "BANK 15 EINSCH
ALTEN.R .. LDA #$06.. *.. S
TA $D506 ; "$0-$1FFF GEMEINSA
MER RAM-BEREICH.. 4.. LDA #$20.. >
.. STA $30.T H.. STA $32.. R
.. STA $34.*!\.. LDA #$00
; "VARIABLEN-ZEIGER ENTSPRECHE
ND.W!F.. STA $2F ; "A
NPASSEN.K!P.. STA $31.!Z..
STA $33..!... RTS..!..;.D!..ANFANG
JSR CHR. ; "BEFEHL HOLEN.."B
.. CMP #MIN ; "EINES D
ER 'TOKEN', DIE AUF.K"L.. BCC ALT
; "NEUE BEFEHLSADRESSE F.HR
EN SOLLEN ?.`"V.. CMP #MAX.T"...
BCS ALT.."... TAX
; "JA, DANN.."... BIT $D7
; "AUF 40-ZEICHEN-MODUS TESTE
N..#... BPL VIC ; "40
Z., DANN SPRUNG AUF 'NORMALE' ADRESSE.B
#... LDA TABLOW.MIN,X ; "80 Z.
: LOW-BYTE..#... STA PRG.1
; " DER NEUEN BEFEHLS
ADRESSE..#... LDA TABHIGH.MIN,X
; " HIGH-BYTE..$... STA PRG
.2 ; "
NACH PRG+1,+2.>$..ROUTE TXA.$&..
JSR CHR. ; "ZUR.CK ZUR INTE
RPRETERSCHLEIFE..$0.PRG JSR $0000
; "BEFEHL AUSF.HREN..$:..
JMP .ER ; "ZUR.CK ZUR INTERP
RETERSCHLEIFE.=%D.ALT JSR CHR..6
; "KEIN SONDERBEFEHL, 'NORMALE' SCH
LEIFE.U%N.. JMP EXECUTE.[%<.;..% .
TABLOW .BYT $3E, $72, $D7, $81, $93, $8
D..%... .BYT $2B, $56, $58, $E2, $
79, $60..%..;..%..TABHIGH .BYT $1A, $16,
$67, $17, $18, $65..&... .BYT $64
, $18, $69, $69, $6A, $69..&..;.L&P.VIC
LDA LOWTAB.MIN,X ; "LOW-BYTE..&Z
.. STA PRG.1 ; "
DER '40-Z.-ADRESSE' NACH PRG.E&...
LDA HIGHTAB.MIN,X ; "HIGH-BYTE..&
... STA PRG.2..'... JMP ROUT
E ; "WEITER S.O...'..;.?'X.LO
WTAB .BYT $5A, $A8, $D7, $B7, $8E, $8D.
M'B.. .BYT $2B, $97, $55, $E2, $79
, $60.S'L.;..'V.HIGHTAB .BYT $6B, $61, $
67, $62, $66, $65.O'... .BYT $64,
$67, $69, $69, $6A, $69.U'..;..'@.....'(
#...(`.ZZ$."INTERPRET-128.A": UN.8..(J..
15,UN,15,"S0:".ZZ$.'(T.. 60100.4(~.. ZZ
$,UN.@(... 60100.M(... ZZ$,UN.V(.. 15.\
(....T(D..15, S1, S$, S2, S3..(N.. S1.1
. . S2; S$..(X.. S1.20 . ...(... S1 ", "
S$ "," S2; "," S3.C(.. 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL