DECLARE 88 SRC
FILE INFORMATION
FILENAME(S): DECLARE 88 SRC
FILE TYPE(S): PRG
FILE SIZE: 21K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 1 disk(s)
FILE HASH
eaa253febd2cb6374d819e6b78a0d0d23e32f1dfe16df187dffa511ded7e62e5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10907 SEITE A | DECLARE 88 SRC | PRG | C64er, DuncanTwain | 9 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 00 00 97 35 33 32 38 30 2C 31 31 3A |..#....53280,11:|
00000010: 97 35 33 32 38 31 2C 31 35 3A 99 C7 28 31 34 34 |.53281,15:..(144|
00000020: 29 3A 80 00 3F 08 0A 00 9E 39 AC 34 30 39 36 3A |):..?....9.4096:|
00000030: 2E 4F 50 54 20 4F 4F 3A AC B2 24 43 30 30 30 00 |.OPT OO:..$C000.|
00000040: 62 08 14 00 3B 20 AC AC AC 20 50 52 4F 47 52 41 |b...; ... PROGRA|
00000050: 4D 4D 54 45 49 4C 41 44 52 45 53 53 45 4E 20 AC |MMTEILADRESSEN .|
00000060: AC AC 00 82 08 1D 00 50 52 47 30 41 20 B2 20 24 |.......PRG0A . $|
00000070: 37 33 30 30 3A 50 52 47 30 45 20 B2 20 24 37 33 |7300:PRG0E . $73|
00000080: 46 46 00 A2 08 1E 00 50 52 47 31 41 20 B2 20 24 |FF.....PRG1A . $|
00000090: 43 30 30 30 3A 50 52 47 31 45 20 B2 20 24 43 33 |C000:PRG1E . $C3|
000000A0: 46 46 00 C2 08 22 00 50 52 47 33 41 20 B2 20 24 |FF...".PRG3A . $|
000000B0: 38 30 30 30 3A 50 52 47 33 45 20 B2 20 24 38 33 |8000:PRG3E . $83|
000000C0: 46 46 00 E2 08 23 00 50 52 47 34 41 20 B2 20 24 |FF...#.PRG4A . $|
000000D0: 44 34 30 30 3A 50 52 47 34 45 20 B2 20 24 44 37 |D400:PRG4E . $D7|
000000E0: 46 46 00 0C 09 96 00 4C 4F 20 B2 20 31 36 37 3A |FF.....LO . 167:|
000000F0: 48 49 20 B2 20 31 36 38 3A 4C 4F 32 20 B2 20 31 |HI . 168:LO2 . 1|
00000100: 36 39 3A 48 49 32 20 B2 20 31 37 30 00 32 09 9B |69:HI2 . 170.2..|
00000110: 00 53 54 52 50 54 20 B2 20 31 37 38 3B 31 37 39 |.STRPT . 178;179|
00000120: 3A 43 4F 55 4E 54 45 52 20 B2 20 31 38 30 3B 31 |:COUNTER . 180;1|
00000130: 38 31 00 45 09 9C 00 53 54 41 52 54 41 44 52 20 |81.E...STARTADR |
00000140: B2 20 32 35 30 00 65 09 A0 00 83 20 3D 20 24 38 |. 250.e.... = $8|
00000150: 33 3A 8F 20 3D 20 24 38 46 3A 50 52 49 4E 54 20 |3:. = $8F:PRINT |
00000160: 3D 20 24 39 39 00 84 09 B4 00 50 4E 54 32 20 B2 |= $99.....PNT2 .|
00000170: 20 24 34 39 3A 43 48 41 52 4F 55 54 20 B2 20 24 | $49:CHAROUT . $|
00000180: 41 42 34 37 00 A6 09 C8 00 43 48 41 52 20 B2 20 |AB47.....CHAR . |
00000190: 38 3A 43 4F 55 4E 54 20 B2 20 31 31 3A 50 4E 54 |8:COUNT . 11:PNT|
000001A0: 20 B2 20 24 37 31 00 CD 09 E6 00 51 55 4F 54 45 | . $71.....QUOTE|
000001B0: 20 B2 20 24 32 32 3A 46 4C 41 47 20 B2 20 31 35 | . $22:FLAG . 15|
000001C0: 3A 54 58 54 50 54 52 20 B2 20 24 37 41 00 ED 09 |:TXTPTR . $7A...|
000001D0: 04 01 42 55 46 46 45 52 20 B2 20 24 32 30 30 3A |..BUFFER . $200:|
000001E0: 54 41 42 4C 45 20 B2 20 24 41 30 39 45 00 0A 0A |TABLE . $A09E...|
000001F0: 09 01 87 59 20 B2 20 24 41 34 37 34 3A 43 4B 43 |...Y . $A474:CKC|
00000200: 4F 4D 20 B2 20 24 41 45 46 44 00 2E 0A 0E 01 53 |OM . $AEFD.....S|
00000210: 50 45 49 43 48 45 52 20 B2 20 24 37 30 30 30 3A |PEICHER . $7000:|
00000220: 43 41 53 53 45 54 54 45 20 B2 20 38 32 38 00 40 |CASSETTE . 828.@|
00000230: 0A 2D 01 3B 20 4E 45 55 45 20 43 4F 4D 4D AF 53 |.-.; NEUE COMM.S|
00000240: 00 68 0A 2F 01 9D 53 54 41 52 54 20 B2 20 24 43 |.h./..START . $C|
00000250: 43 3A 9D 4C 41 53 54 20 B2 20 24 44 31 3A 46 55 |C:.LAST . $D1:FU|
00000260: 4E 80 20 B2 20 24 46 46 00 84 0A 77 01 3B 20 AC |N. . $FF...w.; .|
00000270: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000280: AC AC AC AC 00 A0 0A 78 01 3B 20 AC AC AC 20 50 |.......x.; ... P|
00000290: 52 4F 47 52 41 4D 4D 54 45 49 4C 31 20 AC AC AC |ROGRAMMTEIL1 ...|
000002A0: 00 BC 0A 7A 01 3B 20 AC AC AC 20 B5 45 52 50 52 |...z.; ... .ERPR|
000002B0: 45 54 45 52 20 4E 45 55 20 AC AC AC 00 E1 0A B8 |ETER NEU .......|
000002C0: 01 A4 4B 45 4E 87 20 4C 44 58 20 54 58 54 50 54 |..KEN. LDX TXTPT|
000002D0: 52 3A 4C 44 59 20 23 34 3A 53 54 59 20 46 4C 41 |R:LDY #4:STY FLA|
000002E0: 47 00 11 0B C2 01 4A 53 52 20 44 4F 57 4E 3A 4A |G.....JSR DOWN:J|
000002F0: 53 52 20 82 43 48 41 52 3A 50 48 41 3A 4A 53 52 |SR .CHAR:PHA:JSR|
00000300: 20 55 50 3A 50 4C 41 3A 4A 4D 50 20 24 41 36 30 | UP:PLA:JMP $A60|
00000310: 39 00 3B 0B 3A 02 3B 20 46 55 45 52 20 56 45 52 |9.;.:.; FUER VER|
00000320: 47 4C 45 49 43 48 20 4D 49 54 20 54 41 42 4C 45 |GLEICH MIT TABLE|
00000330: 20 41 55 46 54 41 55 43 48 45 4E 00 6E 0B 44 02 | AUFTAUCHEN.n.D.|
00000340: 4C 35 37 35 20 4A 53 52 20 55 50 3A 4A 53 52 20 |L575 JSR UP:JSR |
00000350: 43 4F 4D 50 41 52 45 3A 4A 4D 50 20 44 4F 57 4E |COMPARE:JMP DOWN|
00000360: 3B 20 42 41 43 4B 20 A4 20 82 43 48 41 52 00 8B |; BACK . .CHAR..|
00000370: 0B D0 07 3B 20 AC AC AC 20 4E 45 55 45 20 9B AB |...; ... NEUE ..|
00000380: 52 4F 55 54 49 4E 45 20 AC AC AC 00 9D 0B EE 07 |ROUTINE ........|
00000390: A4 4B 45 4E 9B 20 42 50 4C 20 4F 55 54 00 BD 0B |.KEN. BPL OUT...|
000003A0: F1 07 42 49 54 20 46 4C 41 47 3A 42 4D 49 20 4F |..BIT FLAG:BMI O|
000003B0: 55 54 3B 51 55 4F 54 AB 4D 4F 44 55 53 00 D2 0B |UT;QUOT.MODUS...|
000003C0: F3 07 43 4D 50 20 23 24 46 46 3A 42 45 51 20 4F |..CMP #$FF:BEQ O|
000003D0: 55 54 00 E6 0B F8 07 43 4D 50 20 23 24 43 43 3A |UT.....CMP #$CC:|
000003E0: 42 43 53 20 A2 9B 00 02 0C 02 08 4A 4D 50 20 24 |BCS .......JMP $|
000003F0: 41 37 32 34 3A 4F 55 54 20 4A 4D 50 20 24 41 36 |A724:OUT JMP $A6|
00000400: 46 33 00 1A 0C 07 08 A2 9B 20 43 4D 50 20 9D 80 |F3....... CMP ..|
00000410: 3A 42 43 43 20 4C 32 30 36 30 00 36 0C 0A 08 53 |:BCC L2060.6...S|
00000420: 42 43 20 46 55 4E 53 54 41 52 54 3A 43 4C 43 3A |BC FUNSTART:CLC:|
00000430: 41 44 43 20 9D 80 00 5A 0C 0C 08 4C 32 30 36 30 |ADC ...Z...L2060|
00000440: 20 53 45 43 3A 53 42 43 20 23 24 43 42 3A 54 41 | SEC:SBC #$CB:TA|
00000450: 58 3A 53 54 59 20 50 4E 54 32 00 9B 0C 11 08 4C |X:STY PNT2.....L|
00000460: 44 41 20 23 B3 28 A2 54 41 42 AB 31 29 3A 53 54 |DA #.(.TAB.1):ST|
00000470: 41 20 4C 4F 3A 4C 44 41 20 23 B1 28 A2 54 41 42 |A LO:LDA #.(.TAB|
00000480: AB 31 29 3A 53 54 41 20 48 49 3A 4C 44 59 20 23 |.1):STA HI:LDY #|
00000490: 30 3A 42 45 51 20 4C 32 30 38 35 00 D3 0C 20 08 |0:BEQ L2085... .|
000004A0: 4C 4F 4F 50 20 49 4E 59 3A 42 4E 45 20 4C 32 30 |LOOP INY:BNE L20|
000004B0: 38 30 3A 49 4E 43 20 48 49 3A 4C 32 30 38 30 20 |80:INC HI:L2080 |
000004C0: 4C 44 41 20 28 4C 4F 29 2C 59 3A 42 50 4C 20 4C |LDA (LO),Y:BPL L|
000004D0: 4F 4F 50 00 EA 0C 25 08 4C 32 30 38 35 20 44 45 |OOP...%.L2085 DE|
000004E0: 58 3A 42 4E 45 20 4C 4F 4F 50 00 09 0D 2A 08 46 |X:BNE LOOP...*.F|
000004F0: 4F 55 4E 44 20 49 4E 59 3A 42 4E 45 20 4C 32 30 |OUND INY:BNE L20|
00000500: 39 35 3A 49 4E 43 20 48 49 00 3D 0D 2F 08 4C 32 |95:INC HI.=./.L2|
00000510: 30 39 35 20 4C 44 41 20 28 4C 4F 29 2C 59 3A 42 |095 LDA (LO),Y:B|
00000520: 4D 49 20 4F 4C 44 80 3A 4A 53 52 20 43 48 41 52 |MI OLD.:JSR CHAR|
00000530: 4F 55 54 3A 42 4E 45 20 46 4F 55 4E 44 00 50 0D |OUT:BNE FOUND.P.|
00000540: 34 08 4F 4C 44 80 20 4A 4D 50 20 24 41 36 45 46 |4.OLD. JMP $A6EF|
00000550: 00 70 0D B8 0B 3B 20 AC AC AC 20 43 4F 4D 4D AF |.p...; ... COMM.|
00000560: 53 20 41 55 53 46 55 45 48 52 45 4E 20 AC AC AC |S AUSFUEHREN ...|
00000570: 00 9B 0D CC 0B 54 59 50 46 4C 41 47 20 B2 20 31 |.....TYPFLAG . 1|
00000580: 33 3A 43 48 52 A1 20 B2 20 24 37 33 3A 43 48 52 |3:CHR. . $73:CHR|
00000590: CB 54 20 B2 20 43 48 52 A1 AA 36 00 CB 0D D6 0B |.T . CHR..6.....|
000005A0: 45 58 45 43 4F 4C 44 20 B2 20 24 41 37 45 44 3A |EXECOLD . $A7ED:|
000005B0: B5 45 52 20 B2 20 24 41 37 41 45 3A 46 55 4E 4B |.ER . $A7AE:FUNK|
000005C0: A4 4C 44 20 B2 20 24 41 45 38 44 00 EE 0D E0 0B |.LD . $AE8D.....|
000005D0: A1 54 45 52 4D 20 B2 20 24 41 45 46 31 3A 43 48 |.TERM . $AEF1:CH|
000005E0: 45 43 4B 4E 55 4D 20 B2 20 24 41 44 38 44 00 07 |ECKNUM . $AD8D..|
000005F0: 0E EA 0B 3B 20 AC AC AC 20 50 52 4F 43 45 44 55 |...; ... PROCEDU|
00000600: 52 45 53 20 AC AC AC 00 29 0E 26 0C A2 9D 20 4A |RES ....).&... J|
00000610: 53 52 20 43 48 52 A1 3A 4A 53 52 20 54 45 53 54 |SR CHR.:JSR TEST|
00000620: 9D 3A 4A 4D 50 20 B5 45 52 00 56 0E 30 0C 54 45 |.:JMP .ER.V.0.TE|
00000630: 53 54 9D 20 43 4D 50 20 23 9D 53 54 41 52 54 3A |ST. CMP #.START:|
00000640: 42 43 43 20 4F 4C 44 9D 3A 43 4D 50 20 9D 80 3A |BCC OLD.:CMP ..:|
00000650: 42 43 43 20 9D 32 00 75 0E 3A 0C 4F 4C 44 9D 20 |BCC .2.u.:.OLD. |
00000660: 4A 53 52 20 43 48 52 CB 54 3A 4A 4D 50 20 45 58 |JSR CHR.T:JMP EX|
00000670: 45 43 4F 4C 44 00 94 0E 44 0C 9D 32 20 53 45 43 |ECOLD...D..2 SEC|
00000680: 3A 53 42 43 20 23 9D 53 54 41 52 54 3A 41 53 4C |:SBC #.START:ASL|
00000690: 3A 54 41 59 00 BC 0E 49 0C 4C 44 41 20 23 B3 9D |:TAY...I.LDA #..|
000006A0: 54 41 42 3A 53 54 41 20 4C 4F 3A 4C 44 41 20 23 |TAB:STA LO:LDA #|
000006B0: B1 9D 54 41 42 3A 53 54 41 20 48 49 00 EF 0E 4E |..TAB:STA HI...N|
000006C0: 0C 49 4E 59 3A 4C 44 41 20 28 4C 4F 29 2C 59 3A |.INY:LDA (LO),Y:|
000006D0: 44 45 59 3A 50 48 41 3A 4C 44 41 20 28 4C 4F 29 |DEY:PHA:LDA (LO)|
000006E0: 2C 59 3A 50 48 41 3A 4A 4D 50 20 43 48 52 A1 00 |,Y:PHA:JMP CHR..|
000006F0: 06 0F 53 0C 3B 20 AC AC AC 20 46 55 4E 43 54 49 |..S.; ... FUNCTI|
00000700: 91 53 20 AC AC AC 00 43 0F 58 0C A2 46 55 4E 20 |.S ....C.X..FUN |
00000710: 4C 44 41 20 23 30 3A 53 54 41 20 54 59 50 46 4C |LDA #0:STA TYPFL|
00000720: 41 47 3A 4A 53 52 20 43 48 52 A1 3A 43 4D 50 20 |AG:JSR CHR.:CMP |
00000730: 46 55 4E 53 54 41 52 54 3A 42 43 43 20 4F 4C 44 |FUNSTART:BCC OLD|
00000740: 46 55 4E 00 5A 0F 62 0C 43 4D 50 20 23 46 55 4E |FUN.Z.b.CMP #FUN|
00000750: 80 3A 42 43 43 20 46 55 4E 32 00 7B 0F 6C 0C 4F |.:BCC FUN2.{.l.O|
00000760: 4C 44 46 55 4E 20 4A 53 52 20 43 48 52 CB 54 3A |LDFUN JSR CHR.T:|
00000770: 4A 4D 50 20 46 55 4E 4B A4 4C 44 00 B9 0F 76 0C |JMP FUNK.LD...v.|
00000780: 46 55 4E 32 20 53 45 43 3A 53 42 43 20 46 55 4E |FUN2 SEC:SBC FUN|
00000790: 53 54 41 52 54 3A 41 53 4C 3A 43 4C 43 3A 41 44 |START:ASL:CLC:AD|
000007A0: 43 20 46 55 4E 54 41 42 41 4E 46 3A 53 54 41 20 |C FUNTABANF:STA |
000007B0: 4A 55 4D 50 49 4E 44 AA 31 00 E2 0F 78 0C 4C 44 |JUMPIND.1...x.LD|
000007C0: 41 20 46 55 4E 54 41 42 41 4E 46 AA 31 3A 41 44 |A FUNTABANF.1:AD|
000007D0: 43 20 23 30 3A 53 54 41 20 4A 55 4D 50 49 4E 44 |C #0:STA JUMPIND|
000007E0: AA 32 00 12 10 7A 0C 4A 53 52 20 43 48 52 A1 3A |.2...z.JSR CHR.:|
000007F0: 4A 53 52 20 A1 54 45 52 4D 3A 4A 53 52 20 4A 55 |JSR .TERM:JSR JU|
00000800: 4D 50 49 4E 44 3A 4A 4D 50 20 43 48 45 43 4B 4E |MPIND:JMP CHECKN|
00000810: 55 4D 00 2A 10 8A 0C 4A 55 4D 50 49 4E 44 20 4A |UM.*...JUMPIND J|
00000820: 4D 50 20 28 24 46 46 46 46 29 00 4E 10 E4 0C 3B |MP ($FFFF).N...;|
00000830: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
00000840: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 72 |...............r|
00000850: 10 E6 0C 3B 20 AC AC AC 20 50 52 4F 43 45 44 55 |...; ... PROCEDU|
00000860: 52 45 20 44 45 4B 4C 41 52 49 45 52 45 4E 20 AC |RE DEKLARIEREN .|
00000870: AC AC 00 93 10 F0 0C 50 52 4F 43 45 44 55 52 45 |.......PROCEDURE|
00000880: 20 4C 44 41 20 23 31 3A 4A 53 52 20 44 45 43 4C | LDA #1:JSR DECL|
00000890: 41 52 45 00 A4 10 F2 0C 50 52 4F 43 32 20 49 4E |ARE.....PROC2 IN|
000008A0: 43 20 9D 80 00 EB 10 F8 0C 4C 44 41 20 46 55 4E |C .......LDA FUN|
000008B0: 53 54 52 41 4E 46 3A 43 4C 43 3A 41 44 43 20 53 |STRANF:CLC:ADC S|
000008C0: 54 52 C3 3A 53 54 41 20 46 55 4E 53 54 52 41 4E |TR.:STA FUNSTRAN|
000008D0: 46 3A 42 43 43 20 4C 33 33 33 38 3A 49 4E 43 20 |F:BCC L3338:INC |
000008E0: 46 55 4E 53 54 52 41 4E 46 AA 31 00 36 11 0A 0D |FUNSTRANF.1.6...|
000008F0: 4C 33 33 33 38 20 4C 44 41 20 46 55 4E 54 41 42 |L3338 LDA FUNTAB|
00000900: 41 4E 46 3A 43 4C 43 3A 41 44 43 20 23 32 3A 53 |ANF:CLC:ADC #2:S|
00000910: 54 41 20 46 55 4E 54 41 42 41 4E 46 3A 42 43 43 |TA FUNTABANF:BCC|
00000920: 20 4C 33 33 34 32 3A 49 4E 43 20 46 55 4E 54 41 | L3342:INC FUNTA|
00000930: 42 41 4E 46 AA 31 00 44 11 0E 0D 4C 33 33 34 32 |BANF.1.D...L3342|
00000940: 20 52 54 53 00 67 11 48 0D 3B 20 AC AC AC AC AC | RTS.g.H.; .....|
00000950: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000960: AC AC AC AC AC AC AC 00 89 11 4A 0D 3B 20 AC AC |..........J.; ..|
00000970: AC 20 46 55 4E 4B 54 49 91 20 44 45 4B 4C 41 52 |. FUNKTI. DEKLAR|
00000980: 49 45 52 45 4E 20 AC AC AC 00 A8 11 53 0D 46 55 |IEREN ......S.FU|
00000990: 4E 43 54 49 91 20 4C 44 41 20 23 30 3A 4A 53 52 |NCTI. LDA #0:JSR|
000009A0: 20 44 45 43 4C 41 52 45 00 C4 11 5C 0D 46 55 4E | DECLARE...\.FUN|
000009B0: 43 54 32 20 44 45 43 20 46 55 4E 53 54 41 52 54 |CT2 DEC FUNSTART|
000009C0: 3A 52 54 53 00 E9 11 B6 0D 3B 20 AC AC AC AC AC |:RTS.....; .....|
000009D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000009E0: AC AC AC AC AC AC AC AC AC 00 0E 12 B7 0D 3B 20 |..............; |
000009F0: AC AC 20 46 55 4E AD 50 52 4F 43 AD 50 41 43 4B |.. FUN.PROC.PACK|
00000A00: 20 4E 41 4D 45 20 4C 45 53 45 4E 20 AC AC 00 44 | NAME LESEN ...D|
00000A10: 12 C0 0D 54 49 54 4C 45 20 4A 53 52 20 53 54 52 |...TITLE JSR STR|
00000A20: 45 56 4C 3A 53 54 41 20 54 49 54 C3 3A 53 54 59 |EVL:STA TIT.:STY|
00000A30: 20 54 49 54 50 4F B5 AA 31 3A 53 54 58 20 54 49 | TITPO..1:STX TI|
00000A40: 54 50 4F B5 00 75 12 C5 0D 4A 53 52 20 24 45 32 |TPO..u...JSR $E2|
00000A50: 30 30 3A 53 54 58 20 44 45 56 49 43 45 3A 4C 44 |00:STX DEVICE:LD|
00000A60: 41 20 23 30 3A 53 54 41 20 41 44 52 45 53 53 45 |A #0:STA ADRESSE|
00000A70: 4E 3A 52 54 53 00 9A 12 CA 0D 3B 20 AC AC AC AC |N:RTS.....; ....|
00000A80: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000A90: AC AC AC AC AC AC AC AC AC AC 00 BD 12 CB 0D 3B |...............;|
00000AA0: 20 54 45 53 54 2C 20 4F 42 20 9D 20 44 45 4B 4C | TEST, OB . DEKL|
00000AB0: 2E 20 57 45 52 44 45 4E 20 4B 41 4E 4E 00 D2 12 |. WERDEN KANN...|
00000AC0: CC 0D 3B 20 4E 41 4D 45 20 49 4D 20 42 55 46 46 |..; NAME IM BUFF|
00000AD0: 45 52 00 01 13 CF 0D 44 45 4B 4C 54 45 53 54 20 |ER.....DEKLTEST |
00000AE0: 4A 53 52 20 43 4F 4D 50 41 52 45 3A 42 4E 45 20 |JSR COMPARE:BNE |
00000AF0: 45 52 52 B0 31 39 3B 20 52 45 96 49 4E 49 54 49 |ERR.19; RE.INITI|
00000B00: 91 00 1C 13 D4 0D 3B 20 54 45 53 54 45 4E 2C 20 |......; TESTEN, |
00000B10: 4F 42 20 4E 55 4D 4D 45 52 20 B8 49 00 43 13 D6 |OB NUMMER .I.C..|
00000B20: 0D 4C 44 41 20 46 55 4E 53 54 41 52 54 3A 43 4D |.LDA FUNSTART:CM|
00000B30: 50 20 9D 80 3A 42 45 51 20 45 52 52 B0 31 36 3A |P ..:BEQ ERR.16:|
00000B40: 52 54 53 00 6B 13 DE 0D 45 52 52 B0 31 36 20 4C |RTS.k...ERR.16 L|
00000B50: 44 58 20 23 31 36 3B 20 4F 55 54 20 4F 46 20 CE |DX #16; OUT OF .|
00000B60: 20 3A 2E 42 59 54 45 20 24 32 43 00 91 13 E0 0D | :.BYTE $2C.....|
00000B70: 45 52 52 B0 31 39 20 4C 44 58 20 23 31 39 3A 4A |ERR.19 LDX #19:J|
00000B80: 4D 50 20 45 52 52 B0 3B 20 52 45 86 20 45 52 52 |MP ERR.; RE. ERR|
00000B90: B0 00 B8 13 0E 0E 3B 20 AC AC AC AC AC AC AC AC |......; ........|
00000BA0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000BB0: AC AC AC AC AC AC AC AC 00 DF 13 0F 0E 3B 20 AC |.............; .|
00000BC0: AC 20 50 52 4F 43 AD 46 55 4E 20 4C 41 44 45 4E |. PROC.FUN LADEN|
00000BD0: AD 41 53 53 45 4D 42 4C 49 45 52 45 4E 20 AC 00 |.ASSEMBLIEREN ..|
00000BE0: 0B 14 10 0E 44 45 43 4C 41 52 45 20 53 54 41 20 |....DECLARE STA |
00000BF0: 54 59 50 45 3A 4A 53 52 20 54 49 54 4C 45 3A 4A |TYPE:JSR TITLE:J|
00000C00: 53 52 20 44 45 4B 4C 54 45 53 54 00 25 14 11 0E |SR DEKLTEST.%...|
00000C10: 4A 53 52 20 56 B0 42 3B 20 43 4B 43 4F 4D AD 4F |JSR V.B; CKCOM.O|
00000C20: 50 46 49 4C 45 00 3C 14 1F 0E 4A 53 52 20 49 4E |PFILE.<...JSR IN|
00000C30: 50 53 54 52 49 4E 47 3B 44 4F 57 4E 00 5E 14 2E |PSTRING;DOWN.^..|
00000C40: 0E 4A 53 52 20 44 45 43 4C 32 3B 20 48 45 41 44 |.JSR DECL2; HEAD|
00000C50: 45 52 20 55 4E 44 20 50 52 47 54 45 49 4C 00 7E |ER UND PRGTEIL.~|
00000C60: 14 6D 0E 3B 20 AC AC 20 43 4F 4D 4D AF 20 28 54 |.m.; .. COMM. (T|
00000C70: 49 54 4C 45 29 20 45 49 4E 42 41 55 45 4E 00 B0 |ITLE) EINBAUEN..|
00000C80: 14 6F 0E 4C 44 41 20 54 49 54 50 4F B5 3A 53 54 |.o.LDA TITPO.:ST|
00000C90: 41 20 53 54 52 50 54 3A 4C 44 41 20 54 49 54 50 |A STRPT:LDA TITP|
00000CA0: 4F B5 AA 31 3A 53 54 41 20 53 54 52 50 54 AA 31 |O..1:STA STRPT.1|
00000CB0: 00 DA 14 72 0E 4C 44 41 20 54 49 54 C3 3A 53 54 |...r.LDA TIT.:ST|
00000CC0: 41 20 53 54 52 C3 3A 4A 53 52 20 45 49 4E 42 41 |A STR.:JSR EINBA|
00000CD0: 55 45 4E 3A 4A 4D 50 20 55 50 00 01 15 74 0E 3B |UEN:JMP UP...t.;|
00000CE0: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
00000CF0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000D00: AC 00 28 15 75 0E 3B 20 AC AC 20 5A 45 49 43 48 |..(.u.; .. ZEICH|
00000D10: 45 4E 4B 45 54 54 45 20 4E 41 43 48 20 28 53 54 |ENKETTE NACH (ST|
00000D20: 52 50 54 29 20 20 AC AC 00 4C 15 77 0E 3B 20 AC |RPT) ...L.w.; .|
00000D30: AC 20 20 20 80 45 20 4D 49 54 20 44 4F 50 50 45 |. .E MIT DOPPE|
00000D40: 4C 50 55 4E 4B 54 20 20 20 20 AC AC 00 73 15 78 |LPUNKT ...s.x|
00000D50: 0E 3B 20 AC AC 20 4B 45 48 52 54 20 49 4E 20 44 |.; .. KEHRT IN D|
00000D60: 4F 57 4E AB 4D 4F 44 45 20 5A 55 52 55 45 43 4B |OWN.MODE ZURUECK|
00000D70: 20 AC AC 00 9D 15 7E 0E 49 4E 50 53 54 52 49 4E | .....~.INPSTRIN|
00000D80: 47 20 4A 53 52 20 55 50 3A 4C 44 41 20 44 45 56 |G JSR UP:LDA DEV|
00000D90: 49 43 45 3A 42 4E 45 20 4C 33 37 31 36 00 BF 15 |ICE:BNE L3716...|
00000DA0: 80 0E 4A 53 52 20 53 54 52 45 56 4C 3A 4A 4D 50 |..JSR STREVL:JMP|
00000DB0: 20 44 4F 57 4E 3B 20 44 45 56 49 43 45 20 30 00 | DOWN; DEVICE 0.|
00000DC0: FC 15 84 0E 4C 33 37 31 36 20 4C 44 41 20 43 4F |....L3716 LDA CO|
00000DD0: 4D 4D 80 3A 53 54 41 20 53 54 52 50 54 3A 4C 44 |MM.:STA STRPT:LD|
00000DE0: 41 20 43 4F 4D 4D 80 AA 31 3A 53 54 41 20 53 54 |A COMM..1:STA ST|
00000DF0: 52 50 54 AA 31 3A 4C 44 59 20 23 30 00 20 16 86 |RPT.1:LDY #0. ..|
00000E00: 0E 3B 20 AC AC AC 20 48 45 41 44 45 52 20 4D 55 |.; ... HEADER MU|
00000E10: 53 53 20 47 45 48 4F 4C 54 20 57 45 52 44 45 4E |SS GEHOLT WERDEN|
00000E20: 00 46 16 88 0E 4C 33 37 32 30 20 4C 44 41 20 44 |.F...L3720 LDA D|
00000E30: 45 56 49 43 45 3A 43 4D 50 20 23 31 3A 42 45 51 |EVICE:CMP #1:BEQ|
00000E40: 20 4C 33 37 32 35 00 5F 16 89 0E 3B 20 AC AC AC | L3725._...; ...|
00000E50: 20 2E C6 20 56 91 20 44 49 53 4B 20 20 AC AC 00 | .. V. DISK ...|
00000E60: 7F 16 8A 0E 4A 53 52 20 24 45 31 31 32 3A 42 49 |....JSR $E112:BI|
00000E70: 54 20 31 34 34 3A 42 56 43 20 4C 33 37 32 38 00 |T 144:BVC L3728.|
00000E80: A2 16 8B 0E 4C 33 37 32 33 20 4C 44 58 20 23 31 |....L3723 LDX #1|
00000E90: 31 3A 4A 4D 50 20 45 52 52 B0 3B 20 53 59 4E 54 |1:JMP ERR.; SYNT|
00000EA0: 41 58 00 C7 16 8C 0E 3B 20 AC AC AC 20 2E C6 20 |AX.....; ... .. |
00000EB0: 49 4D 20 53 50 45 49 43 48 45 52 20 41 42 47 45 |IM SPEICHER ABGE|
00000EC0: 4C 45 47 54 20 AC AC 00 E2 16 8D 0E 4C 33 37 32 |LEGT .......L372|
00000ED0: 35 20 4C 44 41 20 28 53 54 41 52 54 41 44 52 29 |5 LDA (STARTADR)|
00000EE0: 2C 59 00 1B 17 90 0E 4C 33 37 32 38 20 53 54 41 |,Y.....L3728 STA|
00000EF0: 20 28 53 54 52 50 54 29 2C 59 3A 49 4E 59 3A 42 | (STRPT),Y:INY:B|
00000F00: 45 51 20 4C 33 37 32 33 3A 43 4D 50 20 23 22 3A |EQ L3723:CMP #":|
00000F10: 22 3A 42 4E 45 20 4C 33 37 32 30 00 2C 17 92 0E |":BNE L3720.,...|
00000F20: 54 59 41 3A 53 54 41 20 53 54 52 C3 00 6D 17 94 |TYA:STA STR..m..|
00000F30: 0E 4C 33 37 33 32 20 43 4C 43 3A 41 44 43 20 53 |.L3732 CLC:ADC S|
00000F40: 54 41 52 54 41 44 52 3A 53 54 41 20 53 54 41 52 |TARTADR:STA STAR|
00000F50: 54 41 44 52 3A 42 43 43 20 4C 33 37 33 34 3A 49 |TADR:BCC L3734:I|
00000F60: 4E 43 20 53 54 41 52 54 41 44 52 AA 31 00 80 17 |NC STARTADR.1...|
00000F70: 96 0E 4C 33 37 33 34 20 4A 4D 50 20 44 4F 57 4E |..L3734 JMP DOWN|
00000F80: 00 A7 17 C1 0E 3B 20 AC AC AC AC AC AC AC AC AC |.....; .........|
00000F90: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000FA0: AC AC AC AC AC AC AC 00 CE 17 C2 0E 3B 20 AC 20 |............; . |
00000FB0: 53 54 52 49 4E 47 20 41 55 53 57 45 52 54 45 4E |STRING AUSWERTEN|
00000FC0: 2C 20 53 54 52 50 54 20 53 45 54 5A 45 4E 00 10 |, STRPT SETZEN..|
00000FD0: 18 C4 0E 53 54 52 45 56 4C 20 4A 53 52 20 24 41 |...STREVL JSR $A|
00000FE0: 44 39 45 3A 4A 53 52 20 24 42 36 41 33 3A 53 54 |D9E:JSR $B6A3:ST|
00000FF0: 41 20 53 54 52 C3 3A 53 54 59 20 53 54 52 50 54 |A STR.:STY STRPT|
00001000: AA 31 3A 53 54 58 20 53 54 52 50 54 3A 52 54 53 |.1:STX STRPT:RTS|
00001010: 00 2F 18 A0 0F 3B 20 AC AC AC AC AC AC AC AC AC |./...; .........|
00001020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
00001030: 4E 18 A1 0F 3B 20 AC AC AC 20 50 41 43 4B 20 44 |N...; ... PACK D|
00001040: 45 4B 4C 41 52 49 45 52 45 4E 20 AC AC AC 00 8F |EKLARIEREN .....|
00001050: 18 AC 0F 50 41 43 4B 20 4A 53 52 20 54 49 54 4C |...PACK JSR TITL|
00001060: 45 3A 4C 44 41 20 43 4F 4D 4D 80 3A 53 54 41 20 |E:LDA COMM.:STA |
00001070: 50 52 47 41 4E 46 3A 4C 44 41 20 43 4F 4D 4D 80 |PRGANF:LDA COMM.|
00001080: AA 31 3A 53 54 41 20 50 52 47 41 4E 46 AA 31 00 |.1:STA PRGANF.1.|
00001090: B9 18 C3 0F 4C 44 41 20 23 32 3A 53 54 41 20 54 |....LDA #2:STA T|
000010A0: 59 50 45 3A 4A 53 52 20 56 B0 42 3B 20 43 4B 43 |YPE:JSR V.B; CKC|
000010B0: 4F 4D AD 4F 50 46 49 4C 45 00 D0 18 09 10 4A 53 |OM.OPFILE.....JS|
000010C0: 52 20 49 4E 50 53 54 52 49 4E 47 3B 44 4F 57 4E |R INPSTRING;DOWN|
000010D0: 00 F8 18 0E 10 4A 53 52 20 50 41 43 32 3B 20 48 |.....JSR PAC2; H|
000010E0: 45 41 44 45 52 2C 50 52 47 54 45 49 4C 20 48 4F |EADER,PRGTEIL HO|
000010F0: C3 3A 4A 4D 50 20 55 50 00 23 19 40 10 3B 20 AC |.:JMP UP.#.@.; .|
00001100: AC 20 41 55 53 20 50 41 43 32 20 46 55 45 52 20 |. AUS PAC2 FUER |
00001110: 44 45 4B 4C 54 45 53 54 20 41 55 46 54 41 55 43 |DEKLTEST AUFTAUC|
00001120: 48 45 4E 00 5A 19 45 10 4C 34 31 36 35 20 4A 53 |HEN.Z.E.L4165 JS|
00001130: 52 20 55 50 3A 4A 53 52 20 44 45 4B 4C 54 45 53 |R UP:JSR DEKLTES|
00001140: 54 3A 4A 4D 50 20 44 4F 57 4E 3B 20 42 41 43 4B |T:JMP DOWN; BACK|
00001150: 20 4E 41 43 48 20 50 41 43 32 00 7E 19 68 10 3B | NACH PAC2.~.h.;|
00001160: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
00001170: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 9E |................|
00001180: 19 69 10 3B 20 AC AC 20 48 45 41 44 45 52 AB 87 |.i.; .. HEADER..|
00001190: 20 56 B0 42 45 52 45 49 54 45 4E 20 AC AC 00 BB | V.BEREITEN ....|
000011A0: 19 6A 10 56 B0 42 20 4C 44 41 20 44 45 56 49 43 |.j.V.B LDA DEVIC|
000011B0: 45 3A 42 45 51 20 4C 34 32 31 38 00 D0 19 6C 10 |E:BEQ L4218...l.|
000011C0: 43 4D 50 20 23 38 3A 42 45 51 20 4C 34 32 31 34 |CMP #8:BEQ L4214|
000011D0: 00 00 1A 6E 10 3B 20 AC AC AC 20 44 45 56 49 43 |...n.; ... DEVIC|
000011E0: 45 20 31 2C 20 41 55 53 20 53 50 45 49 43 48 45 |E 1, AUS SPEICHE|
000011F0: 52 20 AB 20 53 54 41 52 54 41 44 52 20 48 4F C3 |R . STARTADR HO.|
00001200: 00 22 1A 70 10 4A 53 52 20 43 4B 43 4F 4D 3A 4A |.".p.JSR CKCOM:J|
00001210: 53 52 20 24 41 44 38 41 3A 4A 53 52 20 24 42 43 |SR $AD8A:JSR $BC|
00001220: 39 42 00 56 1A 72 10 4C 44 41 20 24 36 35 3A 53 |9B.V.r.LDA $65:S|
00001230: 54 41 20 53 54 41 52 54 41 44 52 3A 4C 44 41 20 |TA STARTADR:LDA |
00001240: 24 36 34 3A 53 54 41 20 53 54 41 52 54 41 44 52 |$64:STA STARTADR|
00001250: AA 31 3A 52 54 53 00 6C 1A 74 10 3B 20 AC AC 20 |.1:RTS.l.t.; .. |
00001260: 4E 55 52 20 44 45 56 49 43 45 20 38 00 85 1A 76 |NUR DEVICE 8...v|
00001270: 10 4C 34 32 31 34 20 4A 4D 50 20 4F 50 46 49 4C |.L4214 JMP OPFIL|
00001280: 45 3B 52 54 53 00 9B 1A 78 10 3B 20 AC AC 20 4E |E;RTS...x.; .. N|
00001290: 55 52 20 44 45 56 49 43 45 20 30 00 B3 1A 7A 10 |UR DEVICE 0...z.|
000012A0: 4C 34 32 31 38 20 4A 4D 50 20 43 4B 43 4F 4D 3B |L4218 JMP CKCOM;|
000012B0: 52 54 53 00 D8 1A CC 10 3B 20 AC AC AC AC AC AC |RTS.....; ......|
000012C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000012D0: AC AC AC AC AC AC AC AC 00 FB 1A CD 10 3B 20 AC |.............; .|
000012E0: 20 55 50 2C 50 52 4F 47 52 41 4D 4D 54 45 49 4C | UP,PROGRAMMTEIL|
000012F0: 20 48 4F C3 2C 44 4F 57 4E 20 AC 00 32 1B D6 10 | HO.,DOWN ..2...|
00001300: 49 4E 50 52 47 20 4A 53 52 20 55 50 3A 4C 44 41 |INPRG JSR UP:LDA|
00001310: 20 44 45 56 49 43 45 3A 42 45 51 20 4C 34 33 31 | DEVICE:BEQ L431|
00001320: 36 3A 43 4D 50 20 23 31 3A 42 45 51 20 4C 34 33 |6:CMP #1:BEQ L43|
00001330: 32 30 00 48 1B D9 10 3B 20 AC AC 20 4E 55 52 20 |20.H...; .. NUR |
00001340: 44 45 56 49 43 45 20 38 00 67 1B DA 10 4A 4D 50 |DEVICE 8.g...JMP|
00001350: 20 49 4E 46 49 4C 45 3B 93 2C 44 4F 57 4E 2C 41 | INFILE;.,DOWN,A|
00001360: 4E 50 41 53 53 45 4E 00 7D 1B DB 10 3B 20 AC AC |NPASSEN.}...; ..|
00001370: 20 4E 55 52 20 44 45 56 49 43 45 20 30 00 A5 1B | NUR DEVICE 0...|
00001380: DC 10 4C 34 33 31 36 20 4A 4D 50 20 41 53 4D 50 |..L4316 JMP ASMP|
00001390: 52 47 3B 20 41 53 53 45 4D 42 4C 49 45 52 45 4E |RG; ASSEMBLIEREN|
000013A0: 2C 44 4F 57 4E 00 E2 1B DE 10 3B 20 AC AC AC 20 |,DOWN.....; ... |
000013B0: 4E 55 52 20 44 45 56 49 43 45 20 31 20 AB 20 4E |NUR DEVICE 1 . N|
000013C0: 41 43 48 20 43 4F 4D 4D 80 20 4B 4F 50 49 45 52 |ACH COMM. KOPIER|
000013D0: 45 4E 20 2C 44 4F 57 4E 2C 20 41 4E 50 41 53 53 |EN ,DOWN, ANPASS|
000013E0: 45 4E 00 2D 1C E0 10 4C 34 33 32 30 20 4C 44 59 |EN.-...L4320 LDY|
000013F0: 20 23 30 3A 4C 44 41 20 28 53 54 41 52 54 41 44 | #0:LDA (STARTAD|
00001400: 52 29 2C 59 3A 53 54 41 20 80 41 44 52 3A 49 4E |R),Y:STA .ADR:IN|
00001410: 59 3A 4C 44 41 20 28 53 54 41 52 54 41 44 52 29 |Y:LDA (STARTADR)|
00001420: 2C 59 3A 53 54 41 20 80 41 44 52 AA 31 00 5B 1C |,Y:STA .ADR.1.[.|
00001430: E2 10 4C 44 41 20 23 32 3A 4A 53 52 20 4C 33 37 |..LDA #2:JSR L37|
00001440: 33 32 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 |32; STARTADRESSE|
00001450: AA 41 43 43 55 2C 20 44 4F 57 4E 00 7D 1C E6 10 |.ACCU, DOWN.}...|
00001460: 3B 20 AC AC AC 20 34 33 32 38 AB 34 33 33 36 20 |; ... 4328.4336 |
00001470: 44 4F 57 4E AB 4D 4F 44 45 20 AC AC AC 00 AB 1C |DOWN.MODE ......|
00001480: E8 10 4C 34 33 32 38 20 4C 44 41 20 43 4F 4D 4D |..L4328 LDA COMM|
00001490: 80 3A 53 54 41 20 4C 4F 3A 4C 44 41 20 43 4F 4D |.:STA LO:LDA COM|
000014A0: 4D 80 AA 31 3A 53 54 41 20 48 49 00 E2 1C E9 10 |M..1:STA HI.....|
000014B0: 4C 44 41 20 53 54 41 52 54 41 44 52 3A 53 54 41 |LDA STARTADR:STA|
000014C0: 20 4C 4F 32 3A 4C 44 41 20 53 54 41 52 54 41 44 | LO2:LDA STARTAD|
000014D0: 52 AA 31 3A 53 54 41 20 48 49 32 3A 4C 44 59 20 |R.1:STA HI2:LDY |
000014E0: 23 30 00 03 1D EA 10 4C 34 33 33 30 20 4C 44 41 |#0.....L4330 LDA|
000014F0: 20 28 4C 4F 32 29 2C 59 3A 53 54 41 20 28 4C 4F | (LO2),Y:STA (LO|
00001500: 29 2C 59 00 21 1D EC 10 49 4E 43 20 4C 4F 32 3A |),Y.!...INC LO2:|
00001510: 42 4E 45 20 4C 34 33 33 33 3A 49 4E 43 20 48 49 |BNE L4333:INC HI|
00001520: 32 00 43 1D ED 10 4C 34 33 33 33 20 49 4E 43 20 |2.C...L4333 INC |
00001530: 4C 4F 3A 42 4E 45 20 4C 34 33 33 34 3A 49 4E 43 |LO:BNE L4334:INC|
00001540: 20 48 49 00 7F 1D EE 10 4C 34 33 33 34 20 53 45 | HI.....L4334 SE|
00001550: 43 3A 4C 44 41 20 4C 4F 32 3A 53 42 43 20 80 41 |C:LDA LO2:SBC .A|
00001560: 44 52 3A 4C 44 41 20 48 49 32 3A 53 42 43 20 80 |DR:LDA HI2:SBC .|
00001570: 41 44 52 AA 31 3A 42 43 43 20 4C 34 33 33 30 00 |ADR.1:BCC L4330.|
00001580: 8E 1D F0 10 4A 4D 50 20 41 44 52 41 4E 50 00 B5 |....JMP ADRANP..|
00001590: 1D ED 13 3B 20 AC AC AC AC AC AC AC AC AC AC AC |...; ...........|
000015A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000015B0: AC AC AC AC AC 00 DC 1D EE 13 3B 20 53 54 52 49 |..........; STRI|
000015C0: 4E 47 20 28 53 54 52 50 54 29 20 4D 49 54 20 54 |NG (STRPT) MIT T|
000015D0: 41 42 4C 45 53 20 56 45 52 47 4C 2E 00 01 1E EF |ABLES VERGL.....|
000015E0: 13 3B 45 52 47 45 42 4E 49 53 20 41 B1 30 20 43 |.;ERGEBNIS A.0 C|
000015F0: 4F 55 4E 54 AB 4E 52 20 44 45 53 20 A4 4B 45 4E |OUNT.NR DES .KEN|
00001600: 53 00 25 1E F0 13 3B 20 20 20 20 20 20 20 20 41 |S.%...; A|
00001610: B2 30 20 A4 4B 45 4E 20 4E 49 43 48 54 20 96 49 |.0 .KEN NICHT .I|
00001620: 4E 49 45 52 54 00 41 1E F6 13 3B 20 AC AC AC 20 |NIERT.A...; ... |
00001630: 4D 49 54 20 52 4F 4D AB 54 41 42 4C 45 20 AC AC |MIT ROM.TABLE ..|
00001640: AC 00 5E 1E 00 14 43 4F 4D 50 41 52 45 20 4C 44 |..^...COMPARE LD|
00001650: 41 20 23 30 3A 53 54 41 20 43 4F 55 4E 54 00 9E |A #0:STA COUNT..|
00001660: 1E 02 14 4C 44 41 20 23 B1 54 41 42 4C 45 3A 53 |...LDA #.TABLE:S|
00001670: 54 41 20 48 49 3A 4C 44 41 20 23 B3 54 41 42 4C |TA HI:LDA #.TABL|
00001680: 45 3A 53 54 41 20 4C 4F 3A 4A 53 52 20 43 4F 4D |E:STA LO:JSR COM|
00001690: 50 53 55 42 3A 42 4E 45 20 4C 35 32 37 34 00 B5 |PSUB:BNE L5274..|
000016A0: 1E 0A 14 3B 20 AC AC AC 20 4D 49 54 20 A2 54 41 |...; ... MIT .TA|
000016B0: 42 20 AC AC AC 00 E6 1E 14 14 43 4F 4D 50 41 52 |B ........COMPAR|
000016C0: 45 32 20 4C 44 41 20 23 B1 A2 54 41 42 3A 53 54 |E2 LDA #..TAB:ST|
000016D0: 41 20 48 49 3A 4C 44 41 20 23 B3 A2 54 41 42 3A |A HI:LDA #..TAB:|
000016E0: 53 54 41 20 4C 4F 00 00 1F 16 14 4C 44 41 20 23 |STA LO.....LDA #|
000016F0: 9D 53 54 41 52 54 3A 53 54 41 20 43 4F 55 4E 54 |.START:STA COUNT|
00001700: 00 27 1F 64 14 3B 20 AC AC AC AC AC AC AC AC AC |.'.d.; .........|
00001710: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001720: AC AC AC AC AC AC AC 00 4E 1F 66 14 3B 20 AC AC |........N.f.; ..|
00001730: 20 4D 49 54 20 54 41 42 4C 45 20 28 4C 4F AD 48 | MIT TABLE (LO.H|
00001740: 49 29 20 56 45 52 47 4C 45 49 43 48 45 4E 00 6B |I) VERGLEICHEN.k|
00001750: 1F 6E 14 43 4F 4D 50 53 55 42 20 4C 44 41 20 23 |.n.COMPSUB LDA #|
00001760: 30 3A 53 54 41 20 43 4F 4D 50 C3 00 7C 1F 7D 14 |0:STA COMP..|.}.|
00001770: 4C 35 32 34 35 20 4C 44 59 20 23 30 00 B8 1F 80 |L5245 LDY #0....|
00001780: 14 4C 35 32 34 38 20 4C 44 41 20 28 53 54 52 50 |.L5248 LDA (STRP|
00001790: 54 29 2C 59 3A 53 45 43 3A 53 42 43 20 28 4C 4F |T),Y:SEC:SBC (LO|
000017A0: 29 2C 59 3A 49 4E 59 3A AF 20 23 24 46 46 3A 42 |),Y:INY:. #$FF:B|
000017B0: 45 51 20 4C 35 32 34 38 00 CF 1F 82 14 43 4D 50 |EQ L5248.....CMP|
000017C0: 20 23 24 38 30 3A 42 45 51 20 4C 35 32 37 30 00 | #$80:BEQ L5270.|
000017D0: E5 1F 83 14 49 4E 43 20 43 4F 55 4E 54 3A 44 45 |....INC COUNT:DE|
000017E0: 59 3A 44 45 59 00 21 20 84 14 4C 35 32 35 32 20 |Y:DEY.! ..L5252 |
000017F0: 49 4E 59 3A 4C 44 41 20 28 4C 4F 29 2C 59 3A 42 |INY:LDA (LO),Y:B|
00001800: 50 4C 20 4C 35 32 35 32 3A 49 4E 59 3A 4C 44 41 |PL L5252:INY:LDA|
00001810: 20 28 4C 4F 29 2C 59 3A 42 45 51 20 4C 35 32 37 | (LO),Y:BEQ L527|
00001820: 32 00 56 20 87 14 54 59 41 3A 43 4C 43 3A 41 44 |2.V ..TYA:CLC:AD|
00001830: 43 20 4C 4F 3A 53 54 41 20 4C 4F 3A 42 43 43 20 |C LO:STA LO:BCC |
00001840: 4C 35 32 34 35 3A 49 4E 43 20 48 49 3A 42 4E 45 |L5245:INC HI:BNE|
00001850: 20 4C 35 32 34 35 00 73 20 96 14 4C 35 32 37 30 | L5245.s ..L5270|
00001860: 20 B0 41 20 43 4F 55 4E 54 3A 53 54 59 20 43 4F | .A COUNT:STY CO|
00001870: 4D 50 C3 00 87 20 98 14 4C 35 32 37 32 20 53 54 |MP... ..L5272 ST|
00001880: 41 20 43 4F 55 4E 54 00 95 20 9A 14 4C 35 32 37 |A COUNT.. ..L527|
00001890: 34 20 52 54 53 00 B0 20 7C 15 3B 20 AC AC AC AC |4 RTS.. |.; ....|
000018A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000018B0: 00 CA 20 7D 15 3B 20 AC AC AC 20 4D 45 4D B0 59 |.. }.; ... MEM.Y|
000018C0: AB 44 55 4D 50 20 20 AC AC AC 00 FF 20 80 15 4D |.DUMP ..... ..M|
000018D0: 45 4D B0 59 20 4C 44 41 20 23 B3 A2 54 41 42 3A |EM.Y LDA #..TAB:|
000018E0: 53 54 41 20 4C 4F 3A 4C 44 41 20 23 B1 A2 54 41 |STA LO:LDA #..TA|
000018F0: 42 3A 53 54 41 20 48 49 3A 4C 44 59 20 23 30 00 |B:STA HI:LDY #0.|
00001900: 28 21 82 15 4C 35 35 30 36 20 4C 44 41 20 28 4C |(!..L5506 LDA (L|
00001910: 4F 29 2C 59 3A 42 45 51 20 4C 35 35 32 30 3A 42 |O),Y:BEQ L5520:B|
00001920: 50 4C 20 4C 35 35 31 32 00 4B 21 86 15 4C 35 35 |PL L5512.K!..L55|
00001930: 31 30 20 AF 20 23 31 32 37 3A 4A 53 52 20 24 46 |10 . #127:JSR $F|
00001940: 31 43 41 3A 4C 44 41 20 23 31 33 00 7E 21 88 15 |1CA:LDA #13.~!..|
00001950: 4C 35 35 31 32 20 4A 53 52 20 24 46 31 43 41 3A |L5512 JSR $F1CA:|
00001960: 49 4E 59 3A 42 4E 45 20 4C 35 35 30 36 3A 49 4E |INY:BNE L5506:IN|
00001970: 43 20 48 49 3A 42 4E 45 20 4C 35 35 30 36 00 B1 |C HI:BNE L5506..|
00001980: 21 8E 15 3B 20 AC AC AC 20 41 4E 46 41 4E 47 20 |!..; ... ANFANG |
00001990: 55 4E 44 20 80 45 20 44 45 53 20 50 52 4F 43 45 |UND .E DES PROCE|
000019A0: 44 55 52 45 53 50 45 49 43 48 45 52 53 20 AC AC |DURESPEICHERS ..|
000019B0: AC 00 DD 21 90 15 4C 35 35 32 30 20 4C 44 41 20 |...!..L5520 LDA |
000019C0: 43 4F 4D 4D AF 53 AA 31 3A 4C 44 58 20 43 4F 4D |COMM.S.1:LDX COM|
000019D0: 4D AF 53 3A 4A 53 52 20 24 42 44 43 44 00 F4 21 |M.S:JSR $BDCD..!|
000019E0: 92 15 4C 44 41 20 23 22 2D 22 3A 4A 53 52 20 24 |..LDA #"-":JSR $|
000019F0: 46 31 43 41 00 18 22 94 15 4C 44 41 20 43 4F 4D |F1CA.."..LDA COM|
00001A00: 4D 80 AA 31 3A 4C 44 58 20 43 4F 4D 4D 80 3A 4A |M..1:LDX COMM.:J|
00001A10: 4D 50 20 24 42 44 43 44 00 3E 22 E0 15 3B 20 AC |MP $BDCD.>"..; .|
00001A20: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001A30: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 60 |...............`|
00001A40: 22 E1 15 3B 20 AC AC AC 20 C6 49 49 AB 5A 41 48 |"..; ... .II.ZAH|
00001A50: 4C 20 49 4D 20 42 55 46 46 45 52 20 AB B1 20 B5 |L IM BUFFER .. .|
00001A60: 00 80 22 E2 15 3B 20 AC AC AC 20 41 55 53 20 44 |.."..; ... AUS D|
00001A70: 4F 57 4E 2C 20 80 45 20 4D 49 54 20 44 4F 57 4E |OWN, .E MIT DOWN|
00001A80: 00 A9 22 E4 15 42 55 46 46 B5 20 4A 53 52 20 55 |.."..BUFF. JSR U|
00001A90: 50 3A 4C 44 41 20 24 37 41 3A 50 48 41 3A 4C 44 |P:LDA $7A:PHA:LD|
00001AA0: 41 20 24 37 42 3A 50 48 41 00 F1 22 E6 15 4C 44 |A $7B:PHA.."..LD|
00001AB0: 41 20 53 54 52 50 54 AA 31 3A 53 54 41 20 24 37 |A STRPT.1:STA $7|
00001AC0: 42 3A 4C 44 41 20 53 54 52 50 54 3A 53 54 41 20 |B:LDA STRPT:STA |
00001AD0: 24 37 41 3A 4A 53 52 20 24 30 30 37 39 3A 4A 53 |$7A:JSR $0079:JS|
00001AE0: 52 20 24 42 43 46 33 3A 4A 53 52 20 24 42 43 39 |R $BCF3:JSR $BC9|
00001AF0: 42 00 1B 23 E8 15 4C 44 41 20 24 37 41 3A 53 54 |B..#..LDA $7A:ST|
00001B00: 41 20 53 54 52 50 54 3A 4C 44 41 20 24 37 42 3A |A STRPT:LDA $7B:|
00001B10: 53 54 41 20 53 54 52 50 54 AA 31 00 40 23 EA 15 |STA STRPT.1.@#..|
00001B20: 50 4C 41 3A 53 54 41 20 24 37 42 3A 50 4C 41 3A |PLA:STA $7B:PLA:|
00001B30: 53 54 41 20 24 37 41 3A 4A 4D 50 20 44 4F 57 4E |STA $7A:JMP DOWN|
00001B40: 00 67 23 38 18 3B 20 AC AC AC AC AC AC AC AC AC |.g#8.; .........|
00001B50: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001B60: AC AC AC AC AC AC AC 00 8D 23 39 18 3B 20 AC AC |.........#9.; ..|
00001B70: 20 50 52 4F 47 52 41 4D 4D 54 45 49 4C 20 56 91 | PROGRAMMTEIL V.|
00001B80: 20 44 49 53 4B 20 4C 45 53 45 4E 20 AC 00 B4 23 | DISK LESEN ...#|
00001B90: 3A 18 3B 20 AC AC 20 55 4E 44 20 41 44 52 45 53 |:.; .. UND ADRES|
00001BA0: 53 45 4E 20 41 4E 50 41 53 53 45 4E 20 20 20 20 |SEN ANPASSEN |
00001BB0: 20 20 20 AC 00 E3 23 48 18 49 4E 46 49 4C 45 20 | ...#H.INFILE |
00001BC0: 4C 44 41 20 43 4F 4D 4D 80 3A 53 54 41 20 4C 4F |LDA COMM.:STA LO|
00001BD0: 3A 4C 44 41 20 43 4F 4D 4D 80 AA 31 3A 53 54 41 |:LDA COMM..1:STA|
00001BE0: 20 48 49 00 07 24 4C 18 42 41 BF 20 4A 53 52 20 | HI..$L.BA. JSR |
00001BF0: 24 46 46 43 46 3A 4C 44 59 20 23 30 3A 53 54 41 |$FFCF:LDY #0:STA|
00001C00: 20 28 4C 4F 29 2C 59 00 23 24 50 18 49 4E 43 20 | (LO),Y.#$P.INC |
00001C10: 4C 4F 3A 42 4E 45 20 4C 36 32 32 36 3A 49 4E 43 |LO:BNE L6226:INC|
00001C20: 20 48 49 00 3D 24 52 18 4C 36 32 32 36 20 42 49 | HI.=$R.L6226 BI|
00001C30: 54 20 31 34 34 3A 42 56 43 20 42 41 BF 00 5B 24 |T 144:BVC BA..[$|
00001C40: 60 18 3B 20 AC AC AC 20 46 49 4C 45 20 53 43 48 |`.; ... FILE SCH|
00001C50: 4C 49 45 53 53 45 4E 20 AC AC AC 00 7F 24 64 18 |LIESSEN .....$d.|
00001C60: 4C 36 32 34 34 20 4A 53 52 20 A0 3A 4A 53 52 20 |L6244 JSR .:JSR |
00001C70: 44 4F 57 4E 3A 4A 4D 50 20 41 44 52 41 4E 50 00 |DOWN:JMP ADRANP.|
00001C80: A1 24 9C 18 3B 20 AC AC AC AC AC AC AC AC AC AC |.$..; ..........|
00001C90: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001CA0: AC 00 C2 24 9D 18 3B 20 AC AC AC 20 4F 42 4A 45 |...$..; ... OBJE|
00001CB0: 43 54 20 46 49 4C 45 20 4F 45 46 A5 45 4E 20 AC |CT FILE OEF.EN .|
00001CC0: AC AC 00 DB 24 9E 18 3B 20 46 49 C3 41 4D 45 20 |....$..; FI.AME |
00001CD0: 4B 4F 4D 50 88 54 49 45 52 45 4E 00 08 25 9F 18 |KOMP.TIEREN..%..|
00001CE0: 4F 50 46 49 4C 45 20 4C 44 41 20 23 31 3A 4A 53 |OPFILE LDA #1:JS|
00001CF0: 52 20 24 46 46 43 33 3B 46 49 4C 45 31 20 53 43 |R $FFC3;FILE1 SC|
00001D00: 48 4C 49 45 53 53 45 4E 00 3D 25 A0 18 4C 44 41 |HLIESSEN.=%..LDA|
00001D10: 20 23 31 3A 4C 44 58 20 44 45 56 49 43 45 3A 4C | #1:LDX DEVICE:L|
00001D20: 44 59 20 23 32 3A 4A 53 52 20 24 46 46 42 41 3A |DY #2:JSR $FFBA:|
00001D30: 4C 44 59 20 23 30 3A 4C 44 58 20 23 30 00 7B 25 |LDY #0:LDX #0.{%|
00001D40: A2 18 4C 36 33 30 36 20 4C 44 41 20 28 53 54 52 |..L6306 LDA (STR|
00001D50: 50 54 29 2C 59 3A 53 54 41 20 43 41 53 53 45 54 |PT),Y:STA CASSET|
00001D60: 54 45 2C 59 3A 49 4E 59 3A 43 50 59 20 53 54 52 |TE,Y:INY:CPY STR|
00001D70: C3 3A 42 4E 45 20 4C 36 33 30 36 00 9F 25 A4 18 |.:BNE L6306..%..|
00001D80: 4C 36 33 30 38 20 4C 44 41 20 54 59 50 45 3A 43 |L6308 LDA TYPE:C|
00001D90: 4D 50 20 23 32 3A 42 45 51 20 4C 36 33 31 32 00 |MP #2:BEQ L6312.|
00001DA0: B6 25 A5 18 3B 20 AC AC AC 20 4E 41 4D 45 2E 4F |.%..; ... NAME.O|
00001DB0: 42 4A 20 AC AC AC 00 D1 25 A6 18 4C 44 41 20 4F |BJ .....%..LDA O|
00001DC0: 42 4A 53 54 52 2C 58 3A 42 4E 45 20 4C 36 33 31 |BJSTR,X:BNE L631|
00001DD0: 34 00 E8 25 A7 18 3B 20 AC AC AC 20 4E 41 4D 45 |4..%..; ... NAME|
00001DE0: 2E 50 41 43 20 AC AC AC 00 FF 25 A8 18 4C 36 33 |.PAC .....%..L63|
00001DF0: 31 32 20 4C 44 41 20 50 41 43 53 54 52 2C 58 00 |12 LDA PACSTR,X.|
00001E00: 31 26 AA 18 4C 36 33 31 34 20 53 54 41 20 43 41 |1&..L6314 STA CA|
00001E10: 53 53 45 54 54 45 2C 59 3A 49 4E 59 3A 49 4E 58 |SSETTE,Y:INY:INX|
00001E20: 3A 43 50 58 20 23 34 3A 42 4E 45 20 4C 36 33 30 |:CPX #4:BNE L630|
00001E30: 38 00 44 26 AB 18 3B 20 AC AC 20 46 49 4C 45 20 |8.D&..; .. FILE |
00001E40: 9F 20 AC AC 00 84 26 AC 18 4C 36 33 31 36 20 54 |. ....&..L6316 T|
00001E50: 59 41 3A 4C 44 58 20 23 B3 43 41 53 53 45 54 54 |YA:LDX #.CASSETT|
00001E60: 45 3A 4C 44 59 20 23 B1 43 41 53 53 45 54 54 45 |E:LDY #.CASSETTE|
00001E70: 3A 4A 53 52 20 24 46 46 42 44 3A 4A 53 52 20 24 |:JSR $FFBD:JSR $|
00001E80: 46 46 43 30 00 A2 26 B0 18 3B 20 AC AC 20 45 52 |FFC0..&..; .. ER|
00001E90: 52 B0 20 9A 52 4F 4C 20 23 32 2C 38 2C 31 35 20 |R. .ROL #2,8,15 |
00001EA0: AC AC 00 CA 26 B2 18 4C 44 41 20 23 32 3A 4C 44 |....&..LDA #2:LD|
00001EB0: 58 20 44 45 56 49 43 45 3A 4C 44 59 20 23 31 35 |X DEVICE:LDY #15|
00001EC0: 3A 4A 53 52 20 24 46 46 42 41 00 FA 26 B4 18 4C |:JSR $FFBA..&..L|
00001ED0: 44 41 20 23 30 3A 4A 53 52 20 24 46 46 42 44 3A |DA #0:JSR $FFBD:|
00001EE0: 4A 53 52 20 24 46 46 43 30 3A 4C 44 58 20 23 32 |JSR $FFC0:LDX #2|
00001EF0: 3A 4A 53 52 20 24 46 46 43 36 00 38 27 B6 18 4A |:JSR $FFC6.8'..J|
00001F00: 53 52 20 24 46 46 43 46 3A 43 4D 50 20 23 34 38 |SR $FFCF:CMP #48|
00001F10: 3A 42 45 51 20 4C 36 33 32 38 3A 4C 44 58 20 23 |:BEQ L6328:LDX #|
00001F20: 34 3A 4A 4D 50 20 45 52 52 B0 3B 20 46 49 4C 45 |4:JMP ERR.; FILE|
00001F30: 20 A8 20 46 4F 55 4E 44 00 64 27 B8 18 4C 36 33 | . FOUND.d'..L63|
00001F40: 32 38 20 4A 53 52 20 24 46 46 43 43 3A 4C 44 58 |28 JSR $FFCC:LDX|
00001F50: 20 23 31 3A 4A 53 52 20 24 46 46 43 36 3B 20 46 | #1:JSR $FFC6; F|
00001F60: 49 4C 45 31 00 9C 27 BA 18 4A 53 52 20 24 46 46 |ILE1..'..JSR $FF|
00001F70: 43 46 3A 53 54 41 20 53 54 41 52 54 41 44 52 3A |CF:STA STARTADR:|
00001F80: 4A 53 52 20 24 46 46 43 46 3A 53 54 41 20 53 54 |JSR $FFCF:STA ST|
00001F90: 41 52 54 41 44 52 AA 31 3A 52 54 53 00 BC 27 0A |ARTADR.1:RTS..'.|
00001FA0: 19 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............|
00001FB0: AC AC AC AC AC AC AC AC AC AC AC AC 00 D8 27 0B |..............'.|
00001FC0: 19 3B 20 AC AC AC 20 A0 20 46 49 4C 45 53 20 23 |.; ... . FILES #|
00001FD0: 31 2C 23 32 20 AC AC AC 00 14 28 0C 19 A0 20 4A |1,#2 .....(... J|
00001FE0: 53 52 20 24 46 46 43 43 3A 4C 44 41 20 23 31 3A |SR $FFCC:LDA #1:|
00001FF0: 4A 53 52 20 24 46 46 43 33 3A 4C 44 41 20 23 32 |JSR $FFC3:LDA #2|
00002000: 3A 4A 53 52 20 24 46 46 43 33 3A 4A 4D 50 20 24 |:JSR $FFC3:JMP $|
00002010: 46 44 31 35 00 38 28 14 19 3B 20 AC AC AC AC AC |FD15.8(..; .....|
00002020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00002030: AC AC AC AC AC AC AC AC 00 5B 28 16 19 3B 20 AC |.........[(..; .|
00002040: AC AC 20 45 52 52 B0 20 41 55 53 20 52 41 4D 20 |.. ERR. AUS RAM |
00002050: 45 42 45 4E 45 20 32 20 AC AC AC 00 8B 28 18 19 |EBENE 2 .....(..|
00002060: 45 52 52 B0 20 4A 53 52 20 55 50 3A 54 58 41 3A |ERR. JSR UP:TXA:|
00002070: 50 48 41 3A 4A 53 52 20 A0 3A 50 4C 41 3A 54 41 |PHA:JSR .:PLA:TA|
00002080: 58 3A 4A 4D 50 20 24 41 34 33 41 00 AF 28 64 19 |X:JMP $A43A..(d.|
00002090: 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |; ..............|
000020A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
000020B0: D1 28 65 19 3B 20 AC AC AC 20 9E 54 45 4D 20 49 |.(e.; ... .TEM I|
000020C0: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 AC AC |NITIALISIEREN ..|
000020D0: AC 00 EE 28 6E 19 49 4E 49 54 20 4A 53 52 20 44 |...(n.INIT JSR D|
000020E0: 4F 57 4E 3A 4A 4D 50 20 4C 31 36 35 30 34 00 12 |OWN:JMP L16504..|
000020F0: 29 C8 19 3B 20 AC AC AC AC AC AC AC AC AC AC AC |)..; ...........|
00002100: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00002110: AC AC 00 34 29 C9 19 3B 20 AC AC AC 20 53 50 45 |...4)..; ... SPE|
00002120: 49 43 48 45 52 4B 91 46 49 47 55 52 41 54 49 91 |ICHERK.FIGURATI.|
00002130: 20 AC AC AC 00 58 29 D2 19 44 4F 57 4E 20 53 45 | ....X)..DOWN SE|
00002140: 49 3A 4C 44 41 20 31 3A AF 20 23 32 34 38 3A 53 |I:LDA 1:. #248:S|
00002150: 54 41 20 31 3A 52 54 53 00 79 29 D4 19 55 50 20 |TA 1:RTS.y)..UP |
00002160: 4C 44 41 20 31 3A B0 41 20 23 37 3A 53 54 41 20 |LDA 1:.A #7:STA |
00002170: 31 3A 43 4C 49 3A 52 54 53 00 9D 29 1A 1D 3B 20 |1:CLI:RTS..)..; |
00002180: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00002190: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 C1 29 |...............)|
000021A0: 1B 1D 3B 20 AC AC AC 20 50 52 4F 47 52 41 4D 4D |..; ... PROGRAMM|
000021B0: 20 41 53 53 45 4D 42 4C 49 45 52 45 4E 20 AC AC | ASSEMBLIEREN ..|
000021C0: AC 00 DE 29 1C 1D 3B 20 53 54 41 52 54 41 44 52 |...)..; STARTADR|
000021D0: 45 53 53 45 20 48 B5 45 52 4C 45 47 45 4E 00 09 |ESSE H.ERLEGEN..|
000021E0: 2A 1E 1D 41 53 4D 50 52 47 20 54 53 58 3A 53 54 |*..ASMPRG TSX:ST|
000021F0: 58 20 56 41 52 3A 4A 53 52 20 44 4F 57 4E 3A 4A |X VAR:JSR DOWN:J|
00002200: 53 52 20 4C 31 36 33 30 34 00 17 2A 24 1D 4A 4D |SR L16304..*$.JM|
00002210: 50 20 24 39 30 30 30 00 34 2A 25 1D 3B 20 41 53 |P $9000.4*%.; AS|
00002220: 53 45 4D 42 4C 45 52 20 4E B0 4D 41 4C 49 53 49 |SEMBLER N.MALISI|
00002230: 45 52 45 4E 00 51 2A 26 1D 42 41 43 4B 20 4A 53 |EREN.Q*&.BACK JS|
00002240: 52 20 44 4F 57 4E 3A 4A 53 52 20 4C 31 36 33 31 |R DOWN:JSR L1631|
00002250: 32 00 6E 2A 2D 1D 3B 20 57 49 45 44 45 52 20 49 |2.n*-.; WIEDER I|
00002260: 4E 20 41 53 4D 20 53 50 52 49 4E 47 45 4E 00 A0 |N ASM SPRINGEN..|
00002270: 2A 2E 1D 4A 53 52 20 24 39 44 44 42 3A 54 53 58 |*..JSR $9DDB:TSX|
00002280: 3A 43 50 58 20 56 41 52 3A 42 4E 45 20 4C 37 34 |:CPX VAR:BNE L74|
00002290: 37 32 3A 4A 4D 50 20 44 4F 57 4E 3B 20 52 54 53 |72:JMP DOWN; RTS|
000022A0: 00 B1 2A 30 1D 4C 37 34 37 32 20 4A 4D 50 20 87 |..*0.L7472 JMP .|
000022B0: 59 00 D4 2A 4C 1D 3B 20 AC AC 20 4C 45 45 52 42 |Y..*L.; .. LEERB|
000022C0: 59 54 45 53 20 42 49 53 20 56 41 52 49 41 42 C3 |YTES BIS VARIAB.|
000022D0: 41 4E 46 2E 00 F3 2A 28 23 3B 20 AC AC AC AC AC |ANF...*(#; .....|
000022E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000022F0: AC AC AC 00 10 2B 29 23 3B 20 AC AC AC 20 56 41 |.....+)#; ... VA|
00002300: 52 49 41 42 C3 42 45 52 45 49 43 48 20 AC AC AC |RIAB.BEREICH ...|
00002310: 00 2F 2B 2A 23 AC B2 24 43 34 38 30 20 3B 20 34 |./+*#..$C480 ; 4|
00002320: 38 20 42 59 54 45 53 20 AB 20 24 43 34 42 30 00 |8 BYTES . $C4B0.|
00002330: 42 2B 3C 23 54 59 50 45 20 2E 42 59 54 45 20 24 |B+<#TYPE .BYTE $|
00002340: 46 46 00 6F 2B 41 23 43 4F 4D 4D AF 53 20 2E 57 |FF.o+A#COMM.S .W|
00002350: B0 44 20 53 50 45 49 43 48 45 52 3A 43 4F 4D 4D |.D SPEICHER:COMM|
00002360: 80 20 2E 57 B0 44 20 53 50 45 49 43 48 45 52 00 |. .W.D SPEICHER.|
00002370: 9C 2B 58 24 9D 80 20 2E 42 59 54 45 20 9D 4C 41 |.+X$.. .BYTE .LA|
00002380: 53 54 3B 20 AA 35 20 28 50 52 4F 43 AA 46 55 4E |ST; .5 (PROC.FUN|
00002390: AA 49 4E AA 4D 45 4D AA 50 41 43 29 00 B4 2B 59 |.IN.MEM.PAC)..+Y|
000023A0: 24 46 55 4E 53 54 41 52 54 20 2E 42 59 54 45 20 |$FUNSTART .BYTE |
000023B0: 46 55 4E 80 00 D1 2B 5B 24 46 55 4E 53 54 52 41 |FUN...+[$FUNSTRA|
000023C0: 4E 46 20 2E 57 B0 44 20 46 55 4E 53 54 52 54 41 |NF .W.D FUNSTRTA|
000023D0: 42 00 EC 2B 5C 24 46 55 4E 53 54 52 80 20 2E 57 |B..+\$FUNSTR. .W|
000023E0: B0 44 20 46 55 4E 53 54 52 54 41 42 00 06 2C 5E |.D FUNSTRTAB..,^|
000023F0: 24 46 55 4E 54 41 42 41 4E 46 20 2E 57 B0 44 20 |$FUNTABANF .W.D |
00002400: 46 55 4E 54 41 42 00 1E 2C 60 24 46 55 4E 54 41 |FUNTAB..,`$FUNTA|
00002410: 42 80 20 2E 57 B0 44 20 46 55 4E 54 41 42 00 42 |B. .W.D FUNTAB.B|
00002420: 2C 63 24 80 41 44 52 20 2E 57 B0 44 20 30 30 20 |,c$.ADR .W.D 00 |
00002430: 20 20 3B 20 41 4C 54 45 53 20 50 52 4F 47 52 41 | ; ALTES PROGRA|
00002440: 4D 4D 00 63 2C 65 24 50 52 47 41 4E 46 20 2E 57 |MM.c,e$PRGANF .W|
00002450: B0 44 20 30 30 20 20 20 3B 20 44 45 53 20 4E 45 |.D 00 ; DES NE|
00002460: 55 45 4E 00 82 2C 66 24 50 52 47 80 20 2E 57 B0 |UEN..,f$PRG. .W.|
00002470: 44 20 30 30 20 20 20 3B 20 50 52 4F 47 52 41 4D |D 00 ; PROGRAM|
00002480: 4D 53 00 A2 2C 98 24 54 49 54 50 4F B5 20 2E 57 |MS..,.$TITPO. .W|
00002490: B0 44 20 30 30 3A 54 49 54 C3 20 2E 42 59 54 45 |.D 00:TIT. .BYTE|
000024A0: 20 30 00 B3 2C 99 24 53 54 52 C3 20 2E 42 59 54 | 0..,.$STR. .BYT|
000024B0: 45 20 30 00 D4 2C 9B 24 43 4F 4D 50 C3 20 2E 42 |E 0..,.$COMP. .B|
000024C0: 59 54 45 20 30 3A 49 4E 53 41 4E 46 20 2E 57 B0 |YTE 0:INSANF .W.|
000024D0: 44 20 30 30 00 F8 2C 9C 24 41 44 52 45 53 53 45 |D 00..,.$ADRESSE|
000024E0: 4E 20 2E 42 59 54 45 20 30 30 3A 55 53 41 44 52 |N .BYTE 00:USADR|
000024F0: 20 2E 57 B0 44 20 30 30 00 19 2D 9D 24 44 45 56 | .W.D 00..-.$DEV|
00002500: 49 43 45 20 2E 42 59 54 45 20 30 30 3A 56 41 52 |ICE .BYTE 00:VAR|
00002510: 20 2E 42 59 54 45 20 30 30 00 2E 2D 9F 24 4F 42 | .BYTE 00..-.$OB|
00002520: 4A 53 54 52 20 2E C6 20 22 2E 4F 42 4A 22 00 43 |JSTR .. ".OBJ".C|
00002530: 2D A0 24 50 41 43 53 54 52 20 2E C6 20 22 2E 50 |-.$PACSTR .. ".P|
00002540: 41 43 22 00 5F 2D 10 27 3B 20 AC AC AC AC AC AC |AC"._-.'; ......|
00002550: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
00002560: 7B 2D 11 27 3B 20 AC AC AC 20 50 52 4F 47 52 41 |{-.'; ... PROGRA|
00002570: 4D 4D 54 45 49 4C 32 20 AC AC AC 00 97 2D 12 27 |MMTEIL2 .....-.'|
00002580: 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |; ..............|
00002590: AC AC AC AC AC AC AC 00 A3 2D 74 27 AC B2 24 38 |.........-t'..$8|
000025A0: 30 30 30 00 C5 2D 6E 28 3B 20 AC AC AC AC AC AC |000..-n(; ......|
000025B0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000025C0: AC AC AC AC AC 00 E5 2D 70 28 3B 20 AC AC AC 20 |.......-p(; ... |
000025D0: B5 45 52 50 52 45 54 45 52 20 50 41 52 54 20 49 |.ERPRETER PART I|
000025E0: 49 20 AC AC AC 00 21 2E 8C 28 82 43 48 41 52 20 |I ....!..(.CHAR |
000025F0: 4C 44 41 20 42 55 46 46 45 52 2C 58 3A 42 50 4C |LDA BUFFER,X:BPL|
00002600: 20 4E B0 4D 41 4C 3A 49 4E 58 3A 43 4D 50 20 23 | N.MAL:INX:CMP #|
00002610: 24 46 46 3A 42 4E 45 20 82 43 48 41 52 3A 44 45 |$FF:BNE .CHAR:DE|
00002620: 58 00 47 2E AA 28 3B 20 AC 20 41 4C 4C 45 20 5A |X.G..(; . ALLE Z|
00002630: 45 49 43 48 45 4E 20 B3 31 32 38 20 55 4E 44 20 |EICHEN .128 UND |
00002640: 24 46 46 B2 FF 20 AC 00 6D 2E C8 28 4E B0 4D 41 |$FF.. ..m..(N.MA|
00002650: 4C 20 42 49 54 20 46 4C 41 47 3A 42 56 53 20 54 |L BIT FLAG:BVS T|
00002660: 41 4B 43 48 41 52 3B 83 5A 45 49 4C 45 00 84 2E |AKCHAR;.ZEILE...|
00002670: FA 28 43 4D 50 20 23 22 3F 22 3A 42 45 51 20 43 |.(CMP #"?":BEQ C|
00002680: 48 52 36 33 00 A3 2E 40 29 3B 20 AC AC AC 20 41 |HR63...@); ... A|
00002690: 55 46 20 A4 4B 45 4E 53 20 54 45 53 54 45 4E 20 |UF .KENS TESTEN |
000026A0: AC AC AC 00 C4 2E 4A 29 43 48 45 43 4B A4 4B 45 |......J)CHECK.KE|
000026B0: 4E 20 53 54 59 20 50 4E 54 3A 53 54 58 20 54 58 |N STY PNT:STX TX|
000026C0: 54 50 54 52 00 FF 2E 4F 29 53 54 58 20 53 54 52 |TPTR...O)STX STR|
000026D0: 50 54 3A 4C 44 41 20 23 32 3A 53 54 41 20 53 54 |PT:LDA #2:STA ST|
000026E0: 52 50 54 AA 31 3A 4A 53 52 20 4C 35 37 35 3B 20 |RPT.1:JSR L575; |
000026F0: 43 4F 4D 50 20 4D 49 54 20 54 41 42 4C 45 53 00 |COMP MIT TABLES.|
00002700: 28 2F 50 29 4C 44 41 20 43 4F 4D 50 C3 3A 43 4C |(/P)LDA COMP.:CL|
00002710: 43 3A 41 44 43 20 54 58 54 50 54 52 3A 54 41 58 |C:ADC TXTPTR:TAX|
00002720: 3A 4C 44 59 20 50 4E 54 00 58 2F 54 29 4C 44 41 |:LDY PNT.X/T)LDA|
00002730: 20 43 4F 55 4E 54 3A 42 45 51 20 A8 46 4F 55 4E | COUNT:BEQ .FOUN|
00002740: 44 3A 44 45 58 3A 43 4D 50 20 9D 80 3A 42 43 43 |D:DEX:CMP ..:BCC|
00002750: 20 54 41 4B 43 48 41 52 00 84 2F 59 29 53 45 43 | TAKCHAR../Y)SEC|
00002760: 3A 53 42 43 20 9D 80 3A 43 4C 43 3A 41 44 43 20 |:SBC ..:CLC:ADC |
00002770: 46 55 4E 53 54 41 52 54 3A 42 4E 45 20 54 41 4B |FUNSTART:BNE TAK|
00002780: 43 48 41 52 00 9E 2F 5E 29 3B 20 AC AC AC AC AC |CHAR../^); .....|
00002790: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 BB |................|
000027A0: 2F D6 29 43 48 52 36 33 20 4C 44 41 20 23 99 3A |/.)CHR63 LDA #.:|
000027B0: 42 4E 45 20 54 41 4B 43 48 41 52 00 D5 2F DB 29 |BNE TAKCHAR../.)|
000027C0: 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |; ..............|
000027D0: AC AC AC AC AC 00 ED 2F E0 29 A8 46 4F 55 4E 44 |......./.).FOUND|
000027E0: 20 4C 44 41 20 42 55 46 46 45 52 2C 58 00 0F 30 | LDA BUFFER,X..0|
000027F0: EA 29 3B 20 AC AC AC 20 5A 45 49 43 48 45 4E 20 |.); ... ZEICHEN |
00002800: 55 45 42 45 52 4E 45 48 4D 45 4E 20 AC AC AC 00 |UEBERNEHMEN ....|
00002810: 2E 30 EB 29 3B 20 55 4E 44 20 41 55 46 20 22 3A |.0.); UND AUF ":|
00002820: 22 2C 83 2C 52 45 4D 20 54 45 53 54 45 4E 00 51 |",.,REM TESTEN.Q|
00002830: 30 F4 29 54 41 4B 43 48 41 52 20 49 4E 58 3A 49 |0.)TAKCHAR INX:I|
00002840: 4E 59 3A 53 54 41 20 42 55 46 46 45 52 AB 35 2C |NY:STA BUFFER.5,|
00002850: 59 00 6F 30 08 2A 43 4D 50 20 23 30 3A 42 45 51 |Y.o0.*CMP #0:BEQ|
00002860: 20 80 45 3B 20 AC 20 5A 45 49 C3 80 45 20 AC 00 | .E; . ZEI..E ..|
00002870: 8E 30 12 2A 3B 20 AC AC 20 54 45 53 54 20 41 55 |.0.*; .. TEST AU|
00002880: 46 20 48 4F 43 48 4B 4F 4D 4D 41 20 AC AC 00 A7 |F HOCHKOMMA ....|
00002890: 30 13 2A 43 4D 50 20 23 51 55 4F 54 45 3A 42 45 |0.*CMP #QUOTE:BE|
000028A0: 51 20 43 48 52 33 34 00 C0 30 1C 2A 3B 20 AC AC |Q CHR34..0.*; ..|
000028B0: 20 54 45 53 54 20 41 55 46 20 22 3A 22 20 AC AC | TEST AUF ":" ..|
000028C0: 00 E8 30 1D 2A 43 4D 50 20 23 22 3A 22 3A 42 4E |..0.*CMP #":":BN|
000028D0: 45 20 4C 31 30 37 39 31 3A 4C 44 41 20 23 30 3A |E L10791:LDA #0:|
000028E0: 53 54 41 20 46 4C 41 47 00 FF 30 26 2A 3B 20 AC |STA FLAG..0&*; .|
000028F0: AC 20 54 45 53 54 20 41 55 46 20 83 20 2A 2A 00 |. TEST AUF . **.|
00002900: 2D 31 27 2A 4C 31 30 37 39 31 20 43 4D 50 20 23 |-1'*L10791 CMP #|
00002910: 83 3A 42 4E 45 20 4C 31 30 38 30 31 3A 4C 44 41 |.:BNE L10801:LDA|
00002920: 20 23 36 34 3A 53 54 41 20 46 4C 41 47 00 44 31 | #64:STA FLAG.D1|
00002930: 30 2A 3B 20 AC AC 20 54 45 53 54 20 41 55 46 20 |0*; .. TEST AUF |
00002940: 8F 20 2A 2A 00 63 31 31 2A 4C 31 30 38 30 31 20 |. **.c11*L10801 |
00002950: 43 4D 50 20 23 8F 3A 42 4E 45 20 4E 45 58 54 43 |CMP #.:BNE NEXTC|
00002960: 48 41 52 00 7C 31 3A 2A 3B 20 AC AC AC AC AC AC |HAR.|1:*; ......|
00002970: AC AC AC AC AC AC AC AC AC AC AC AC 00 8F 31 5D |..............1]|
00002980: 2A 43 48 52 33 34 20 53 54 41 20 43 48 41 52 00 |*CHR34 STA CHAR.|
00002990: AE 31 62 2A 3B 20 AC AC AC 20 54 45 58 54 20 55 |.1b*; ... TEXT U|
000029A0: 45 42 45 52 4E 45 48 4D 45 4E 20 AC AC AC 00 DF |EBERNEHMEN .....|
000029B0: 31 6C 2A 43 4F 50 59 54 45 58 54 20 4C 44 41 20 |1l*COPYTEXT LDA |
000029C0: 42 55 46 46 45 52 2C 58 3A 49 4E 59 3A 49 4E 58 |BUFFER,X:INY:INX|
000029D0: 3A 53 54 41 20 42 55 46 46 45 52 AB 35 2C 59 00 |:STA BUFFER.5,Y.|
000029E0: 0A 32 76 2A 43 4D 50 20 43 48 41 52 3A 42 45 51 |.2v*CMP CHAR:BEQ|
000029F0: 20 82 43 48 41 52 3A 43 4D 50 20 23 30 3A 42 4E | .CHAR:CMP #0:BN|
00002A00: 45 20 43 4F 50 59 54 45 58 54 00 1D 32 7B 2A 80 |E COPYTEXT..2{*.|
00002A10: 45 20 52 54 53 3B 20 5A 45 49 C3 80 45 00 39 32 |E RTS; ZEI..E.92|
00002A20: 64 32 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC |d2; ............|
00002A30: AC AC AC AC AC AC AC AC AC 00 55 32 65 32 3B 20 |..........U2e2; |
00002A40: AC AC 20 46 49 4C 45 20 42 45 41 52 42 45 49 54 |.. FILE BEARBEIT|
00002A50: 45 4E 20 AC AC 00 79 32 6E 32 4C 31 32 39 31 30 |EN ...y2n2L12910|
00002A60: 20 4C 44 58 20 23 31 31 3A 4A 4D 50 20 45 52 52 | LDX #11:JMP ERR|
00002A70: B0 3B 20 53 59 4E 54 41 58 00 94 32 78 32 3B 20 |.; SYNTAX..2x2; |
00002A80: AC AC AC 20 48 45 41 44 45 52 20 4C 45 53 45 4E |... HEADER LESEN|
00002A90: 20 AC AC AC 00 AE 32 79 32 3B 20 AC AC AC 20 22 | .....2y2; ... "|
00002AA0: 4E 55 52 20 42 45 49 20 50 41 43 4B 3A 22 00 D1 |NUR BEI PACK:"..|
00002AB0: 32 7A 32 3B 20 AC AC 20 22 50 52 4F 43 45 44 55 |2z2; .. "PROCEDU|
00002AC0: 52 45 20 4F 44 45 52 20 46 55 4E 43 54 49 4F 4E |RE ODER FUNCTION|
00002AD0: 22 00 09 33 AF 32 50 41 43 32 20 4A 53 52 20 43 |"..3.2PAC2 JSR C|
00002AE0: 4F 4D 50 41 52 45 32 3A 53 45 43 3A 53 42 43 20 |OMPARE2:SEC:SBC |
00002AF0: 23 9D 53 54 41 52 54 3A 43 4D 50 20 23 32 3A 42 |#.START:CMP #2:B|
00002B00: 43 53 20 4C 31 32 39 31 30 00 4E 33 BE 32 45 B0 |CS L12910.N3.2E.|
00002B10: 20 23 31 3A 53 54 41 20 54 59 50 45 3A 4C 44 41 | #1:STA TYPE:LDA|
00002B20: 20 43 4F 4D 50 C3 3A 4A 53 52 20 41 44 44 53 54 | COMP.:JSR ADDST|
00002B30: 52 50 3A 4A 53 52 20 82 43 48 52 3A 43 50 58 20 |RP:JSR .CHR:CPX |
00002B40: 23 33 32 3A 42 4E 45 20 4C 31 32 39 31 30 00 72 |#32:BNE L12910.r|
00002B50: 33 CC 32 4A 53 52 20 4C 34 31 36 35 3B 20 44 45 |3.2JSR L4165; DE|
00002B60: 4B 4C 54 45 53 54 20 55 50 3A 4C 44 59 20 23 24 |KLTEST UP:LDY #$|
00002B70: 46 46 00 8F 33 D2 32 3B 20 AC AC AC 20 53 54 52 |FF..3.2; ... STR|
00002B80: C3 20 42 45 53 54 49 4D 4D 45 4E 20 AC AC AC 00 |. BESTIMMEN ....|
00002B90: CD 33 D4 32 4C 31 33 30 31 32 20 49 4E 59 3A 4C |.3.2L13012 INY:L|
00002BA0: 44 41 20 28 53 54 52 50 54 29 2C 59 3A 42 45 51 |DA (STRPT),Y:BEQ|
00002BB0: 20 4C 31 32 39 31 30 3A 43 4D 50 20 23 51 55 4F | L12910:CMP #QUO|
00002BC0: 54 45 3A 42 45 51 20 4C 31 32 39 31 30 00 F9 33 |TE:BEQ L12910..3|
00002BD0: D6 32 43 4D 50 20 23 22 2C 22 3A 42 45 51 20 4C |.2CMP #",":BEQ L|
00002BE0: 31 33 30 32 30 3A 43 4D 50 20 23 22 3A 22 3A 42 |13020:CMP #":":B|
00002BF0: 4E 45 20 4C 31 33 30 31 32 00 2F 34 DC 32 4C 31 |NE L13012./4.2L1|
00002C00: 33 30 32 30 20 53 54 59 20 53 54 52 C3 3A 4A 53 |3020 STY STR.:JS|
00002C10: 52 20 45 49 4E 42 41 55 45 4E 3A 4C 44 41 20 53 |R EINBAUEN:LDA S|
00002C20: 54 52 C3 3A 4A 53 52 20 41 44 44 53 54 52 50 00 |TR.:JSR ADDSTRP.|
00002C30: 6E 34 E6 32 4C 44 41 20 54 59 50 45 3A 42 45 51 |n4.2LDA TYPE:BEQ|
00002C40: 20 4C 31 33 30 33 30 3A 4A 53 52 20 50 52 4F 43 | L13030:JSR PROC|
00002C50: 32 3A 42 4E 45 20 4C 31 33 30 34 30 3A 4C 31 33 |2:BNE L13040:L13|
00002C60: 30 33 30 20 4A 53 52 20 46 55 4E 43 54 32 00 B2 |030 JSR FUNCT2..|
00002C70: 34 F0 32 4C 31 33 30 34 30 20 4C 44 41 20 50 52 |4.2L13040 LDA PR|
00002C80: 47 41 4E 46 3A 43 4C 43 3A 41 44 43 20 23 33 3A |GANF:CLC:ADC #3:|
00002C90: 53 54 41 20 50 52 47 41 4E 46 3A 42 43 43 20 4C |STA PRGANF:BCC L|
00002CA0: 31 33 30 34 35 3A 49 4E 43 20 50 52 47 41 4E 46 |13045:INC PRGANF|
00002CB0: AA 31 00 EC 34 F5 32 4C 31 33 30 34 35 20 4A 53 |.1..4.2L13045 JS|
00002CC0: 52 20 82 43 48 52 3A 43 50 58 20 23 22 2C 22 3A |R .CHR:CPX #",":|
00002CD0: 42 45 51 20 50 41 43 32 3A 43 50 58 20 23 22 3A |BEQ PAC2:CPX #":|
00002CE0: 22 3A 42 4E 45 20 4C 31 32 39 31 30 00 13 35 04 |":BNE L12910..5.|
00002CF0: 33 4C 44 41 20 44 45 56 49 43 45 3A 42 45 51 20 |3LDA DEVICE:BEQ |
00002D00: 44 45 43 4C 32 3A 4A 53 52 20 49 4E 50 53 54 52 |DECL2:JSR INPSTR|
00002D10: 49 4E 47 00 33 35 2C 33 3B 20 AC AC AC AC AC AC |ING.35,3; ......|
00002D20: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00002D30: AC AC AC 00 50 35 2E 33 3B 20 AC 20 27 50 52 4F |....P5.3; . 'PRO|
00002D40: 47 52 41 4D 27 20 4F 44 45 52 20 27 55 BF 47 27 |GRAM' ODER 'U.G'|
00002D50: 00 75 35 30 33 3B 20 AC 20 22 50 41 43 4B 22 20 |.u503; . "PACK" |
00002D60: 55 4E 44 20 53 4F 4C 4F AB 44 45 4B 4C 41 52 41 |UND SOLO.DEKLARA|
00002D70: 54 49 91 45 4E 00 A8 35 34 33 44 45 43 4C 32 20 |TI.EN..543DECL2 |
00002D80: 4A 53 52 20 54 58 56 45 52 47 4C 3B 20 58 20 30 |JSR TXVERGL; X 0|
00002D90: B2 55 53 2C 31 B2 50 52 47 3A 54 58 41 3A 42 4E |.US,1.PRG:TXA:BN|
00002DA0: 45 20 4C 31 33 32 31 30 00 C8 35 36 33 4A 53 52 |E L13210..563JSR|
00002DB0: 20 82 43 48 52 3A 43 50 58 20 23 33 32 3A 42 4E | .CHR:CPX #32:BN|
00002DC0: 45 20 4C 31 33 34 35 32 00 EA 35 3B 33 3B 20 AC |E L13452..5;3; .|
00002DD0: AC 20 55 BF 47 AB 53 54 41 54 45 4D 45 4E 54 20 |. U.G.STATEMENT |
00002DE0: 42 45 41 52 42 45 49 54 45 4E 00 0D 36 40 33 4C |BEARBEITEN..6@3L|
00002DF0: 31 33 31 32 30 20 4A 53 52 20 43 4F 4D 50 41 52 |13120 JSR COMPAR|
00002E00: 45 32 3A 42 45 51 20 4C 31 33 34 35 30 00 27 36 |E2:BEQ L13450.'6|
00002E10: 44 33 4C 44 41 20 43 4F 4D 50 C3 3A 4A 53 52 20 |D3LDA COMP.:JSR |
00002E20: 41 44 44 53 54 52 50 00 48 36 46 33 4A 53 52 20 |ADDSTRP.H6F3JSR |
00002E30: 82 43 48 52 3A 43 50 58 20 23 22 2C 22 3A 42 4E |.CHR:CPX #",":BN|
00002E40: 45 20 4C 31 33 34 35 32 00 61 36 48 33 4A 53 52 |E L13452.a6H3JSR|
00002E50: 20 55 BF 47 41 44 52 3A 4A 53 52 20 42 55 46 46 | U.GADR:JSR BUFF|
00002E60: B5 00 A4 36 4F 33 4C 44 41 20 55 53 41 44 52 3A |...6O3LDA USADR:|
00002E70: 43 4C 43 3A 41 44 43 20 24 36 35 3A 50 48 41 3A |CLC:ADC $65:PHA:|
00002E80: 4C 44 41 20 55 53 41 44 52 AA 31 3A 41 44 43 20 |LDA USADR.1:ADC |
00002E90: 24 36 34 3A 50 48 41 3A 49 4E 43 20 41 44 52 45 |$64:PHA:INC ADRE|
00002EA0: 53 53 45 4E 00 E1 36 54 33 4A 53 52 20 82 43 48 |SSEN..6T3JSR .CH|
00002EB0: 52 3A 43 50 58 20 23 22 2C 22 3A 42 45 51 20 4C |R:CPX #",":BEQ L|
00002EC0: 31 33 31 32 30 3A 43 50 58 20 23 22 3A 22 3A 42 |13120:CPX #":":B|
00002ED0: 4E 45 20 4C 31 33 34 35 32 3B 20 53 59 4E 54 41 |NE L13452; SYNTA|
00002EE0: 58 00 09 37 56 33 4C 44 41 20 44 45 56 49 43 45 |X..7V3LDA DEVICE|
00002EF0: 3A 42 45 51 20 4C 31 33 31 34 34 3A 4A 53 52 20 |:BEQ L13144:JSR |
00002F00: 49 4E 50 53 54 52 49 4E 47 00 2D 37 57 33 3B 20 |INPSTRING.-7W3; |
00002F10: AC AC 20 48 45 41 44 45 52 AB 54 45 53 54 20 41 |.. HEADER.TEST A|
00002F20: 55 46 20 22 50 52 4F 47 52 41 4D 3A 22 00 53 37 |UF "PROGRAM:".S7|
00002F30: 58 33 4C 31 33 31 34 34 20 4A 53 52 20 54 58 56 |X3L13144 JSR TXV|
00002F40: 45 52 47 4C 3A 54 58 41 3A 42 45 51 20 4C 31 33 |ERGL:TXA:BEQ L13|
00002F50: 34 35 32 00 78 37 90 33 3B 20 AC AC 20 22 50 52 |452.x7.3; .. "PR|
00002F60: 4F 47 52 41 4D 3A 22 20 AB B1 20 50 52 47 54 45 |OGRAM:" .. PRGTE|
00002F70: 49 4C 20 4C 41 44 45 4E 00 A0 37 9A 33 4C 31 33 |IL LADEN..7.3L13|
00002F80: 32 31 30 20 4A 53 52 20 82 43 48 52 3A 43 50 58 |210 JSR .CHR:CPX|
00002F90: 20 23 22 3A 22 3A 42 4E 45 20 4C 31 33 34 35 32 | #":":BNE L13452|
00002FA0: 00 DC 37 9C 33 4C 44 41 20 43 4F 4D 4D 80 3A 53 |..7.3LDA COMM.:S|
00002FB0: 54 41 20 50 52 47 41 4E 46 3A 4C 44 41 20 43 4F |TA PRGANF:LDA CO|
00002FC0: 4D 4D 80 AA 31 3A 53 54 41 20 50 52 47 41 4E 46 |MM..1:STA PRGANF|
00002FD0: AA 31 3A 4A 53 52 20 49 4E 50 52 47 00 00 38 A4 |.1:JSR INPRG..8.|
00002FE0: 33 3B 20 AC 20 47 47 46 2E 20 55 BF 47 AB 41 44 |3; . GGF. U.G.AD|
00002FF0: 52 45 53 53 45 4E 20 45 49 4E 53 45 54 5A 45 4E |RESSEN EINSETZEN|
00003000: 00 1E 38 A5 33 3B 20 AC 20 55 BF 47 41 55 53 57 |..8.3; . U.GAUSW|
00003010: 20 4E 49 43 48 54 20 4D 49 54 20 4A 53 52 00 57 | NICHT MIT JSR.W|
00003020: 38 AA 33 4C 44 41 20 41 44 52 45 53 53 45 4E 3A |8.3LDA ADRESSEN:|
00003030: 42 45 51 20 4C 31 33 32 33 30 3A 4A 4D 50 20 55 |BEQ L13230:JMP U|
00003040: BF 47 41 55 53 57 3B 20 4D 49 54 20 4A 4D 50 20 |.GAUSW; MIT JMP |
00003050: 5A 55 52 55 45 43 4B 00 71 38 AC 33 3B 20 AC AC |ZURUECK.q8.3; ..|
00003060: 20 43 4F 4D 4D AF 53 AB 80 45 20 53 45 54 5A 45 | COMM.S..E SETZE|
00003070: 4E 00 AA 38 AE 33 4C 31 33 32 33 30 20 4C 44 41 |N..8.3L13230 LDA|
00003080: 20 50 52 47 80 3A 53 54 41 20 43 4F 4D 4D 80 3A | PRG.:STA COMM.:|
00003090: 4C 44 41 20 50 52 47 80 AA 31 3A 53 54 41 20 43 |LDA PRG..1:STA C|
000030A0: 4F 4D 4D 80 AA 31 3A 52 54 53 00 C6 38 76 34 3B |OMM..1:RTS..8v4;|
000030B0: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
000030C0: AC AC AC AC AC AC 00 E2 38 77 34 3B 20 AC AC 20 |........8w4; .. |
000030D0: 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 45 4E 20 |FEHLERMELDUNGEN |
000030E0: AC AC 00 10 39 8A 34 4C 31 33 34 35 30 20 4C 44 |....9.4L13450 LD|
000030F0: 58 20 23 31 37 3A 2E 42 59 54 45 20 24 32 43 3B |X #17:.BYTE $2C;|
00003100: 20 55 4E 96 27 44 20 53 54 41 54 45 4D 45 4E 54 | UN.'D STATEMENT|
00003110: 00 34 39 8C 34 4C 31 33 34 35 32 20 4C 44 58 20 |.49.4L13452 LDX |
00003120: 23 31 31 3A 4A 4D 50 20 45 52 52 B0 3B 20 53 59 |#11:JMP ERR.; SY|
00003130: 4E 54 41 58 00 5A 39 BC 34 3B 20 AC AC AC AC AC |NTAX.Z9.4; .....|
00003140: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003150: AC AC AC AC AC AC AC AC AC AC 00 7E 39 BD 34 3B |...........~9.4;|
00003160: 20 AC 20 28 53 54 52 50 54 29 20 4D 49 54 20 27 | . (STRPT) MIT '|
00003170: 55 BF 47 27 2C 27 50 52 4F 47 52 41 4D 27 00 A2 |U.G','PROGRAM'..|
00003180: 39 BE 34 3B 20 AC 20 56 45 52 47 4C 2E 20 58 20 |9.4; . VERGL. X |
00003190: AB B1 20 30 B2 55 BF 47 2C 31 B2 50 52 4F 47 52 |.. 0.U.G,1.PROGR|
000031A0: 41 4D 00 E5 39 C6 34 54 58 56 45 52 47 4C 20 4C |AM..9.4TXVERGL L|
000031B0: 44 41 20 23 B1 55 53 54 41 42 3A 53 54 41 20 48 |DA #.USTAB:STA H|
000031C0: 49 3A 4C 44 41 20 23 B3 55 53 54 41 42 3A 53 54 |I:LDA #.USTAB:ST|
000031D0: 41 20 4C 4F 3A 4C 44 41 20 23 30 3A 53 54 41 20 |A LO:LDA #0:STA |
000031E0: 43 4F 55 4E 54 00 00 3A D0 34 4A 53 52 20 43 4F |COUNT..:.4JSR CO|
000031F0: 4D 50 53 55 42 3A 42 45 51 20 4C 31 33 34 35 32 |MPSUB:BEQ L13452|
00003200: 00 27 3A D4 34 AF 20 23 31 3A 54 41 58 3A 4C 44 |.':.4. #1:TAX:LD|
00003210: 41 20 43 4F 4D 50 C3 3A 42 4E 45 20 41 44 44 53 |A COMP.:BNE ADDS|
00003220: 54 52 50 3B 52 54 53 00 4C 3A 20 35 3B 20 AC AC |TRP;RTS.L: 5; ..|
00003230: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003240: AC AC AC AC AC AC AC AC AC AC AC AC 00 6E 3A 21 |.............n:!|
00003250: 35 3B 20 AC 20 82 20 43 48 41 52 20 42 45 49 20 |5; . . CHAR BEI |
00003260: 28 53 54 52 50 54 29 20 AB B1 20 58 20 AC 00 88 |(STRPT) .. X ...|
00003270: 3A 22 35 3B 20 AC 20 55 4E 44 20 53 54 52 50 54 |:"5; . UND STRPT|
00003280: 20 49 4E 43 8F 45 4E 54 00 B1 3A 25 35 82 43 48 | INC.ENT..:%5.CH|
00003290: 52 20 4C 44 59 20 23 30 3A 4C 44 41 20 28 53 54 |R LDY #0:LDA (ST|
000032A0: 52 50 54 29 2C 59 3A 54 41 58 3A 4C 44 41 20 23 |RPT),Y:TAX:LDA #|
000032B0: 31 00 D5 3A 28 35 3B 20 AC AC AC 20 41 4B 4B 55 |1..:(5; ... AKKU|
000032C0: 20 5A 55 20 53 54 52 50 54 20 41 44 44 49 45 52 | ZU STRPT ADDIER|
000032D0: 45 4E 20 AC AC 00 10 3B 2A 35 41 44 44 53 54 52 |EN ....;*5ADDSTR|
000032E0: 50 20 43 4C 43 3A 41 44 43 20 53 54 52 50 54 3A |P CLC:ADC STRPT:|
000032F0: 53 54 41 20 53 54 52 50 54 3A 42 43 43 20 4C 31 |STA STRPT:BCC L1|
00003300: 33 36 31 32 3A 49 4E 43 20 53 54 52 50 54 AA 31 |3612:INC STRPT.1|
00003310: 00 1F 3B 2C 35 4C 31 33 36 31 32 20 52 54 53 00 |..;,5L13612 RTS.|
00003320: 42 3B 8C 35 3B 20 AC AC AC AC AC AC AC AC AC AC |B;.5; ..........|
00003330: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003340: AC AC 00 65 3B 8D 35 3B 20 AC 20 43 4F 4D 4D 41 |...e;.5; . COMMA|
00003350: 4D 44 20 28 53 54 52 50 29 20 45 49 4E 42 41 55 |MD (STRP) EINBAU|
00003360: 45 4E 20 AC AC 00 84 3B 8E 35 3B 20 AC 20 53 54 |EN ....;.5; . ST|
00003370: 52 49 4E 47 54 41 42 45 4C 4C 45 20 53 43 48 49 |RINGTABELLE SCHI|
00003380: 45 42 45 4E 00 98 3B 8F 35 3B 20 AC 20 46 55 4E |EBEN..;.5; . FUN|
00003390: 53 54 52 80 20 AA 20 C3 00 E4 3B 90 35 45 49 4E |STR. . ...;.5EIN|
000033A0: 42 41 55 45 4E 20 4C 44 58 20 53 54 52 C3 3A 4C |BAUEN LDX STR.:L|
000033B0: 44 41 20 46 55 4E 53 54 52 41 4E 46 3A 53 54 41 |DA FUNSTRANF:STA|
000033C0: 20 49 4E 53 41 4E 46 3A 4C 44 41 20 46 55 4E 53 | INSANF:LDA FUNS|
000033D0: 54 52 41 4E 46 AA 31 3A 53 54 41 20 49 4E 53 41 |TRANF.1:STA INSA|
000033E0: 4E 46 AA 31 00 14 3C 92 35 4C 44 41 20 46 55 4E |NF.1..<.5LDA FUN|
000033F0: 53 54 52 80 3A 53 54 41 20 4C 4F 3A 43 4C 43 3A |STR.:STA LO:CLC:|
00003400: 41 44 43 20 53 54 52 C3 3A 53 54 41 20 46 55 4E |ADC STR.:STA FUN|
00003410: 53 54 52 80 00 4D 3C 94 35 4C 44 41 20 46 55 4E |STR..M<.5LDA FUN|
00003420: 53 54 52 80 AA 31 3A 53 54 41 20 48 49 3A 41 44 |STR..1:STA HI:AD|
00003430: 43 20 23 30 3A 53 54 41 20 46 55 4E 53 54 52 80 |C #0:STA FUNSTR.|
00003440: AA 31 3A 4A 53 52 20 49 4E 53 45 52 54 00 6A 3C |.1:JSR INSERT.j<|
00003450: 98 35 3B 20 AC AC AC 20 53 54 52 49 4E 47 20 49 |.5; ... STRING I|
00003460: 4E 20 A2 54 41 42 20 AC AC AC 00 75 3C 99 35 4C |N .TAB ....u<.5L|
00003470: 44 59 20 23 30 00 B1 3C 9A 35 4C 31 33 37 32 32 |DY #0..<.5L13722|
00003480: 20 4C 44 41 20 28 53 54 52 50 54 29 2C 59 3A 53 | LDA (STRPT),Y:S|
00003490: 54 41 20 28 4C 4F 29 2C 59 3A 49 4E 59 3A 43 50 |TA (LO),Y:INY:CP|
000034A0: 59 20 53 54 52 C3 3A 42 4E 45 20 4C 31 33 37 32 |Y STR.:BNE L1372|
000034B0: 32 00 D7 3C 9C 35 44 45 59 3A 4C 44 41 20 28 4C |2..<.5DEY:LDA (L|
000034C0: 4F 29 2C 59 3A B0 41 20 23 24 38 30 3A 53 54 41 |O),Y:.A #$80:STA|
000034D0: 20 28 4C 4F 29 2C 59 00 F8 3C AA 35 3B 20 AC 20 | (LO),Y..<.5; . |
000034E0: 41 44 52 45 53 53 45 4E 54 41 42 45 4C 4C 45 20 |ADRESSENTABELLE |
000034F0: 53 43 48 49 45 42 45 4E 00 0C 3D AB 35 3B 20 AC |SCHIEBEN..=.5; .|
00003500: 20 46 55 4E 54 41 42 80 20 AA 20 32 00 4D 3D AC | FUNTAB. . 2.M=.|
00003510: 35 4C 44 58 20 23 32 3A 4C 44 41 20 46 55 4E 54 |5LDX #2:LDA FUNT|
00003520: 41 42 41 4E 46 3A 53 54 41 20 49 4E 53 41 4E 46 |ABANF:STA INSANF|
00003530: 3A 4C 44 41 20 46 55 4E 54 41 42 41 4E 46 AA 31 |:LDA FUNTABANF.1|
00003540: 3A 53 54 41 20 49 4E 53 41 4E 46 AA 31 00 7B 3D |:STA INSANF.1.{=|
00003550: AE 35 4C 44 41 20 46 55 4E 54 41 42 80 3A 53 54 |.5LDA FUNTAB.:ST|
00003560: 41 20 4C 4F 3A 43 4C 43 3A 41 44 43 20 23 32 3A |A LO:CLC:ADC #2:|
00003570: 53 54 41 20 46 55 4E 54 41 42 80 00 B4 3D B6 35 |STA FUNTAB...=.5|
00003580: 4C 44 41 20 46 55 4E 54 41 42 80 AA 31 3A 53 54 |LDA FUNTAB..1:ST|
00003590: 41 20 48 49 3A 41 44 43 20 23 30 3A 53 54 41 20 |A HI:ADC #0:STA |
000035A0: 46 55 4E 54 41 42 80 AA 31 3A 4A 53 52 20 49 4E |FUNTAB..1:JSR IN|
000035B0: 53 45 52 54 00 D5 3D D2 35 3B 20 AC AC AC 20 41 |SERT..=.5; ... A|
000035C0: 4E 46 2E 41 44 52 20 49 4E 20 54 41 42 45 4C 4C |NF.ADR IN TABELL|
000035D0: 45 20 AC AC AC 00 F6 3D D3 35 3B 20 AC AC AC 20 |E .....=.5; ... |
000035E0: 50 52 4F 43 53 20 20 20 20 41 44 52 B2 41 4E 46 |PROCS ADR.ANF|
000035F0: AB 31 20 AC AC AC 00 28 3E D4 35 4C 44 59 20 23 |.1 ....(>.5LDY #|
00003600: 30 3A 53 45 43 3A 4C 44 41 20 50 52 47 41 4E 46 |0:SEC:LDA PRGANF|
00003610: 3A 53 42 43 20 54 59 50 45 3A 53 54 41 20 28 4C |:SBC TYPE:STA (L|
00003620: 4F 29 2C 59 3A 49 4E 59 00 4F 3E D8 35 4C 44 41 |O),Y:INY.O>.5LDA|
00003630: 20 50 52 47 41 4E 46 AA 31 3A 53 42 43 20 23 30 | PRGANF.1:SBC #0|
00003640: 3A 53 54 41 20 28 4C 4F 29 2C 59 3A 52 54 53 00 |:STA (LO),Y:RTS.|
00003650: 75 3E 85 39 3B 20 AC AC AC AC AC AC AC AC AC AC |u>.9; ..........|
00003660: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003670: AC AC AC AC AC 00 99 3E 8C 39 3B 20 AC AC 20 55 |.......>.9; .. U|
00003680: BF 47 AB 41 44 52 45 53 53 45 20 4E 41 43 48 20 |.G.ADRESSE NACH |
00003690: 55 53 41 44 52 20 20 AC AC 00 B4 3E 8D 39 3B 20 |USADR ....>.9; |
000036A0: 49 4E 20 43 4F 55 4E 54 20 55 BF 47 AB A4 4B 45 |IN COUNT U.G..KE|
000036B0: 4E AB 4E 52 00 DF 3E 94 39 55 BF 47 41 44 52 20 |N.NR..>.9U.GADR |
000036C0: 4C 44 41 20 43 4F 55 4E 54 3A 53 42 43 20 23 9D |LDA COUNT:SBC #.|
000036D0: 53 54 41 52 54 3A 41 53 4C 20 41 3A 54 41 59 00 |START:ASL A:TAY.|
000036E0: F8 3E 96 39 4C 44 41 20 9D 80 3A 43 4C 43 3A 53 |.>.9LDA ..:CLC:S|
000036F0: 42 43 20 43 4F 55 4E 54 00 1D 3F 9E 39 3B 20 50 |BC COUNT..?.9; P|
00003700: 52 4F 43 20 AB B1 20 43 41 52 52 59 20 53 45 54 |ROC .. CARRY SET|
00003710: 20 AB B1 20 41 44 52 45 53 53 45 AA 31 00 40 3F | .. ADRESSE.1.@?|
00003720: A0 39 3B 20 46 55 4E 43 20 AB B1 20 43 41 52 52 |.9; FUNC .. CARR|
00003730: 59 20 9C 20 AB B1 20 41 44 52 45 53 53 45 AA 30 |Y . .. ADRESSE.0|
00003740: 00 66 3F B2 39 3B 20 AC 20 54 41 42 AB 41 44 52 |.f?.9; . TAB.ADR|
00003750: 45 53 53 45 20 AA 43 41 52 52 59 20 AB B1 20 55 |ESSE .CARRY .. U|
00003760: 53 41 44 52 20 AC 00 8E 3F B4 39 4C 44 41 20 23 |SADR ...?.9LDA #|
00003770: B3 9D 54 41 42 3A 53 54 41 20 4C 4F 3A 4C 44 41 |..TAB:STA LO:LDA|
00003780: 20 23 B1 9D 54 41 42 3A 53 54 41 20 48 49 00 AE | #..TAB:STA HI..|
00003790: 3F B5 39 4C 44 41 20 28 4C 4F 29 2C 59 3A 41 44 |?.9LDA (LO),Y:AD|
000037A0: 43 20 23 30 3A 53 54 41 20 55 53 41 44 52 00 D8 |C #0:STA USADR..|
000037B0: 3F B6 39 49 4E 59 3A 4C 44 41 20 28 4C 4F 29 2C |?.9INY:LDA (LO),|
000037C0: 59 3A 41 44 43 20 23 30 3A 53 54 41 20 55 53 41 |Y:ADC #0:STA USA|
000037D0: 44 52 AA 31 3A 52 54 53 00 FC 3F D0 39 3B 20 AC |DR.1:RTS..?.9; .|
000037E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000037F0: AC AC AC AC AC AC AC AC AC AC AC AC 00 1F 40 D1 |..............@.|
00003800: 39 3B 20 AC 20 50 52 4F 47 52 41 4D 4D 54 45 49 |9; . PROGRAMMTEI|
00003810: 4C 20 56 91 20 44 49 53 4B 20 20 20 20 20 AC 00 |L V. DISK ..|
00003820: 43 40 D2 39 3B 20 AC 20 54 45 49 4C 32 20 AB 20 |C@.9; . TEIL2 . |
00003830: 41 44 52 45 53 53 45 4E 20 41 4E 50 41 53 53 45 |ADRESSEN ANPASSE|
00003840: 4E 20 AC 00 7E 40 FD 39 41 44 52 41 4E 50 20 4C |N ..~@.9ADRANP L|
00003850: 44 41 20 43 4F 4D 4D 80 3A 53 54 41 20 43 4F 55 |DA COMM.:STA COU|
00003860: 4E 54 45 52 3A 4C 44 41 20 43 4F 4D 4D 80 AA 31 |NTER:LDA COMM..1|
00003870: 3A 53 54 41 20 43 4F 55 4E 54 45 52 AA 31 00 A0 |:STA COUNTER.1..|
00003880: 40 02 3A 3B 20 AC AC 20 50 52 47 C3 20 28 41 AD |@.:; .. PRG. (A.|
00003890: 59 29 B2 20 48 49 AD 4C 4F AB 50 52 47 41 4E 46 |Y). HI.LO.PRGANF|
000038A0: 00 CF 40 04 3A 4C 44 41 20 4C 4F 3A 53 54 41 20 |..@.:LDA LO:STA |
000038B0: 50 52 47 80 3A 53 45 43 3A 53 42 43 20 50 52 47 |PRG.:SEC:SBC PRG|
000038C0: 41 4E 46 3A 54 41 58 3B 50 52 47 C3 AB 4C 4F 00 |ANF:TAX;PRG..LO.|
000038D0: FE 40 06 3A 4C 44 41 20 48 49 3A 53 54 41 20 50 |.@.:LDA HI:STA P|
000038E0: 52 47 80 AA 31 3A 53 42 43 20 50 52 47 41 4E 46 |RG..1:SBC PRGANF|
000038F0: AA 31 3A 54 41 59 3B 50 52 47 C3 AB 48 49 00 20 |.1:TAY;PRG..HI. |
00003900: 41 0C 3A 3B 20 AC AC 20 80 41 44 52 B2 53 54 41 |A.:; .. .ADR.STA|
00003910: 52 54 41 44 52 AA 50 52 47 C3 20 28 41 AD 59 29 |RTADR.PRG. (A.Y)|
00003920: 00 42 41 0E 3A 54 58 41 3A 43 4C 43 3A 41 44 43 |.BA.:TXA:CLC:ADC|
00003930: 20 53 54 41 52 54 41 44 52 3A 53 54 41 20 80 41 | STARTADR:STA .A|
00003940: 44 52 00 64 41 10 3A 54 59 41 3A 41 44 43 20 53 |DR.dA.:TYA:ADC S|
00003950: 54 41 52 54 41 44 52 AA 31 3A 53 54 41 20 80 41 |TARTADR.1:STA .A|
00003960: 44 52 AA 31 00 8A 41 34 3A 3B 20 AC AC AC AC AC |DR.1..A4:; .....|
00003970: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003980: AC AC AC AC AC AC AC AC AC AC 00 AE 41 36 3A 3B |............A6:;|
00003990: 20 AC AC 20 B6 4F 4C 55 54 45 20 41 44 52 45 53 | .. .OLUTE ADRES|
000039A0: 53 45 4E 20 53 55 43 48 45 4E 20 AC AC AC 00 D4 |SEN SUCHEN .....|
000039B0: 41 37 3A 3B 20 AC AC 20 42 49 53 20 55 4E 42 52 |A7:; .. BIS UNBR|
000039C0: 41 55 43 48 42 41 52 45 53 20 5A 45 49 43 48 45 |AUCHBARES ZEICHE|
000039D0: 4E 20 AC AC 00 E9 41 38 3A 3B 20 AC AC 20 5A 2E |N ....A8:; .. Z.|
000039E0: 42 2E 20 24 46 46 20 AC AC 00 25 42 3E 3A 41 44 |B. $FF ...%B>:AD|
000039F0: 41 50 54 20 4C 44 59 20 23 30 3A 4C 44 41 20 28 |APT LDY #0:LDA (|
00003A00: 43 4F 55 4E 54 45 52 29 2C 59 3A 43 4D 50 20 23 |COUNTER),Y:CMP #|
00003A10: 24 46 46 3A 42 45 51 20 4C 34 39 32 34 3A 54 41 |$FF:BEQ L4924:TA|
00003A20: 58 3A 44 45 59 00 5C 42 3F 3A 4C 31 34 39 31 31 |X:DEY.\B?:L14911|
00003A30: 20 49 4E 59 3A 54 58 41 3A AF 20 4D 41 53 4B 54 | INY:TXA:. MASKT|
00003A40: 41 42 2C 59 3A 43 4D 50 20 42 49 54 54 41 42 2C |AB,Y:CMP BITTAB,|
00003A50: 59 3A 42 4E 45 20 4C 31 34 39 31 31 00 8E 42 42 |Y:BNE L14911..BB|
00003A60: 3A 4C 44 41 20 C3 54 41 42 2C 59 3A 43 4D 50 20 |:LDA .TAB,Y:CMP |
00003A70: 23 33 3A 42 4E 45 20 4C 34 39 31 38 3A 50 48 41 |#3:BNE L4918:PHA|
00003A80: 3A 4A 53 52 20 B6 4F 4C 55 54 3A 50 4C 41 00 CC |:JSR .OLUT:PLA..|
00003A90: 42 46 3A 4C 34 39 31 38 20 43 4C 43 3A 41 44 43 |BF:L4918 CLC:ADC|
00003AA0: 20 43 4F 55 4E 54 45 52 3A 53 54 41 20 43 4F 55 | COUNTER:STA COU|
00003AB0: 4E 54 45 52 3A 42 43 43 20 4C 34 39 32 30 3A 49 |NTER:BCC L4920:I|
00003AC0: 4E 43 20 43 4F 55 4E 54 45 52 AA 31 00 06 43 48 |NC COUNTER.1..CH|
00003AD0: 3A 4C 34 39 32 30 20 53 45 43 3A 53 42 43 20 50 |:L4920 SEC:SBC P|
00003AE0: 52 47 80 3A 4C 44 41 20 43 4F 55 4E 54 45 52 AA |RG.:LDA COUNTER.|
00003AF0: 31 3A 53 42 43 20 50 52 47 80 AA 31 3A 42 43 43 |1:SBC PRG..1:BCC|
00003B00: 20 41 44 41 50 54 00 14 43 4C 3A 4C 34 39 32 34 | ADAPT..CL:L4924|
00003B10: 20 52 54 53 00 38 43 66 3A 3B 20 AC AC AC 20 B6 | RTS.8Cf:; ... .|
00003B20: 4F 4C 55 54 45 20 41 44 52 20 B3 20 53 54 41 52 |OLUTE ADR . STAR|
00003B30: 54 41 44 52 45 53 53 45 00 6A 43 6A 3A B6 4F 4C |TADRESSE.jCj:.OL|
00003B40: 55 54 20 4C 44 59 20 23 31 3A 53 45 43 3A 4C 44 |UT LDY #1:SEC:LD|
00003B50: 41 20 28 43 4F 55 4E 54 45 52 29 2C 59 3A 53 42 |A (COUNTER),Y:SB|
00003B60: 43 20 53 54 41 52 54 41 44 52 00 9B 43 6C 3A 49 |C STARTADR..Cl:I|
00003B70: 4E 59 3A 4C 44 41 20 28 43 4F 55 4E 54 45 52 29 |NY:LDA (COUNTER)|
00003B80: 2C 59 3A 53 42 43 20 53 54 41 52 54 41 44 52 AA |,Y:SBC STARTADR.|
00003B90: 31 3A 42 43 43 20 4C 34 39 38 38 00 B6 43 75 3A |1:BCC L4988..Cu:|
00003BA0: 3B 20 AC AC AC 20 B6 2E 41 44 52 20 B1 20 80 41 |; ... ..ADR . .A|
00003BB0: 44 52 45 53 53 45 00 DE 43 7A 3A 4C 44 59 20 23 |DRESSE..Cz:LDY #|
00003BC0: 31 3A 53 45 43 3A 4C 44 41 20 80 41 44 52 3A 53 |1:SEC:LDA .ADR:S|
00003BD0: 42 43 20 28 43 4F 55 4E 54 45 52 29 2C 59 00 0B |BC (COUNTER),Y..|
00003BE0: 44 7C 3A 49 4E 59 3A 4C 44 41 20 80 41 44 52 AA |D|:INY:LDA .ADR.|
00003BF0: 31 3A 53 42 43 20 28 43 4F 55 4E 54 45 52 29 2C |1:SBC (COUNTER),|
00003C00: 59 3A 42 43 43 20 4C 34 39 38 38 00 29 44 84 3A |Y:BCC L4988.)D.:|
00003C10: 3B 20 AC AC AC 20 B6 2E 41 44 52 2E 20 41 4E 50 |; ... ..ADR. ANP|
00003C20: 41 53 53 45 4E 20 AC AC AC 00 63 44 86 3A 4C 34 |ASSEN ....cD.:L4|
00003C30: 39 38 32 20 4C 44 59 20 23 31 3A 4C 44 41 20 28 |982 LDY #1:LDA (|
00003C40: 43 4F 55 4E 54 45 52 29 2C 59 3A 53 45 43 3A 53 |COUNTER),Y:SEC:S|
00003C50: 42 43 20 53 54 41 52 54 41 44 52 3A 54 41 58 3B |BC STARTADR:TAX;|
00003C60: 20 4C 4F 00 92 44 88 3A 49 4E 59 3A 4C 44 41 20 | LO..D.:INY:LDA |
00003C70: 28 43 4F 55 4E 54 45 52 29 2C 59 3A 53 42 43 20 |(COUNTER),Y:SBC |
00003C80: 53 54 41 52 54 41 44 52 AA 31 3A 50 48 41 3B 20 |STARTADR.1:PHA; |
00003C90: 48 49 00 BD 44 8A 3A 44 45 59 3A 54 58 41 3A 43 |HI..D.:DEY:TXA:C|
00003CA0: 4C 43 3A 41 44 43 20 50 52 47 41 4E 46 3A 53 54 |LC:ADC PRGANF:ST|
00003CB0: 41 20 28 43 4F 55 4E 54 45 52 29 2C 59 00 F0 44 |A (COUNTER),Y..D|
00003CC0: 8C 3A 49 4E 59 3A 50 4C 41 3A 41 44 43 20 50 52 |.:INY:PLA:ADC PR|
00003CD0: 47 41 4E 46 AA 31 3A 53 54 41 20 28 43 4F 55 4E |GANF.1:STA (COUN|
00003CE0: 54 45 52 29 2C 59 3A 4C 34 39 38 38 20 52 54 53 |TER),Y:L4988 RTS|
00003CF0: 00 14 45 93 3A 3B 20 AC AC AC AC AC AC AC AC AC |..E.:; .........|
00003D00: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003D10: AC AC AC AC 00 36 45 94 3A 3B 20 AC AC 20 20 55 |.....6E.:; .. U|
00003D20: BF 47 AB 50 4C 41 45 54 5A 45 20 53 55 43 48 45 |.G.PLAETZE SUCHE|
00003D30: 4E 20 20 20 20 AC 00 58 45 95 3A 3B 20 AC AC 20 |N ..XE.:; .. |
00003D40: 41 44 52 45 53 53 45 4E 20 41 55 53 20 53 54 41 |ADRESSEN AUS STA|
00003D50: 43 4B 20 48 4F C3 20 AC 00 7C 45 99 3A 3B 20 AC |CK HO. ..|E.:; .|
00003D60: AC 20 20 55 4E 44 20 45 49 4E 53 45 54 5A 45 4E |. UND EINSETZEN|
00003D70: 20 20 20 20 20 20 20 20 20 20 20 AC 00 B6 45 9A | ...E.|
00003D80: 3A 55 BF 47 41 55 53 57 20 54 53 58 3A 54 58 41 |:U.GAUSW TSX:TXA|
00003D90: 3A 43 4C 43 3A 41 44 43 20 41 44 52 45 53 53 45 |:CLC:ADC ADRESSE|
00003DA0: 4E 3A 41 44 43 20 41 44 52 45 53 53 45 4E 3A 54 |N:ADC ADRESSEN:T|
00003DB0: 41 58 3A 54 58 53 00 EC 45 9C 3A 4C 44 41 20 50 |AX:TXS..E.:LDA P|
00003DC0: 52 47 41 4E 46 3A 53 54 41 20 43 4F 55 4E 54 45 |RGANF:STA COUNTE|
00003DD0: 52 3A 4C 44 41 20 50 52 47 41 4E 46 AA 31 3A 53 |R:LDA PRGANF.1:S|
00003DE0: 54 41 20 43 4F 55 4E 54 45 52 AA 31 00 34 46 9D |TA COUNTER.1.4F.|
00003DF0: 3A 4C 31 35 30 30 35 20 4C 44 59 20 23 30 3A 4C |:L15005 LDY #0:L|
00003E00: 44 41 20 28 43 4F 55 4E 54 45 52 29 2C 59 3A 49 |DA (COUNTER),Y:I|
00003E10: 4E 59 3A AF 20 28 43 4F 55 4E 54 45 52 29 2C 59 |NY:. (COUNTER),Y|
00003E20: 3A 43 4D 50 20 23 24 46 46 3A 42 45 51 20 41 44 |:CMP #$FF:BEQ AD|
00003E30: 52 45 49 4E 00 5D 46 A0 3A 49 4E 43 20 43 4F 55 |REIN.]F.:INC COU|
00003E40: 4E 54 45 52 3A 42 4E 45 20 4C 31 35 30 31 30 3A |NTER:BNE L15010:|
00003E50: 49 4E 43 20 43 4F 55 4E 54 45 52 AA 31 00 A5 46 |INC COUNTER.1..F|
00003E60: A2 3A 4C 31 35 30 31 30 20 53 45 43 3A 4C 44 41 |.:L15010 SEC:LDA|
00003E70: 20 43 4F 55 4E 54 45 52 3A 53 42 43 20 50 52 47 | COUNTER:SBC PRG|
00003E80: 80 3A 4C 44 41 20 43 4F 55 4E 54 45 52 AA 31 3A |.:LDA COUNTER.1:|
00003E90: 53 42 43 20 50 52 47 80 AA 31 3A 42 43 43 20 4C |SBC PRG..1:BCC L|
00003EA0: 31 35 30 30 35 00 C9 46 A7 3A 3B 20 AC AC 20 4B |15005..F.:; .. K|
00003EB0: 45 49 4E 20 50 4C 41 54 5A 20 46 55 45 52 20 55 |EIN PLATZ FUER U|
00003EC0: BF 47 AB 41 44 52 20 AC AC 00 EE 46 AC 3A 4C 44 |.G.ADR ....F.:LD|
00003ED0: 58 20 23 31 33 3A 4A 4D 50 20 45 52 52 B0 3B 20 |X #13:JMP ERR.; |
00003EE0: 4F 55 54 20 4F 46 20 83 20 45 52 52 4F 52 00 11 |OUT OF . ERROR..|
00003EF0: 47 B4 3A 3B 20 AC AC 20 41 44 52 20 41 55 53 20 |G.:; .. ADR AUS |
00003F00: 53 54 41 43 4B AB 42 45 52 45 49 43 48 20 48 4F |STACK.BEREICH HO|
00003F10: C3 00 3C 47 B6 3A 41 44 52 45 49 4E 20 4C 44 41 |..<G.:ADREIN LDA|
00003F20: 20 24 30 31 30 30 2C 58 3A 44 45 59 3A 53 54 41 | $0100,X:DEY:STA|
00003F30: 20 28 43 4F 55 4E 54 45 52 29 2C 59 00 68 47 B8 | (COUNTER),Y.hG.|
00003F40: 3A 49 4E 59 3A 44 45 58 3A 4C 44 41 20 24 30 31 |:INY:DEX:LDA $01|
00003F50: 30 30 2C 58 3A 53 54 41 20 28 43 4F 55 4E 54 45 |00,X:STA (COUNTE|
00003F60: 52 29 2C 59 3A 44 45 58 00 9E 47 BA 3A 44 45 43 |R),Y:DEX..G.:DEC|
00003F70: 20 41 44 52 45 53 53 45 4E 3A 42 4E 45 20 4C 31 | ADRESSEN:BNE L1|
00003F80: 35 30 30 35 3A 4A 4D 50 20 4C 31 33 32 33 30 3B |5005:JMP L13230;|
00003F90: 20 50 52 41 4B 54 49 53 43 48 20 52 54 53 00 BB | PRAKTISCH RTS..|
00003FA0: 47 F0 3C 3B 20 AC AC AC 20 50 4C 41 54 5A 20 53 |G.<; ... PLATZ S|
00003FB0: 43 48 41 46 46 45 4E 20 AC AC AC 00 D8 47 F1 3C |CHAFFEN .....G.<|
00003FC0: 3B 20 AC AC 20 49 4D 20 58 AB 52 45 47 20 41 4E |; .. IM X.REG AN|
00003FD0: 5A 41 48 4C 20 AC AC AC 00 F8 47 F2 3C 3B 20 AC |ZAHL .....G.<; .|
00003FE0: AC 20 56 91 20 49 4E 53 41 4E 46 20 42 49 53 20 |. V. INSANF BIS |
00003FF0: 4C 4F AD 48 49 20 AC AC 00 0B 48 F3 3C 49 4E 53 |LO.HI ....H.<INS|
00004000: 45 52 54 20 53 54 58 20 56 41 52 00 3A 48 F5 3C |ERT STX VAR.:H.<|
00004010: 4C 35 36 30 35 20 4C 44 59 20 23 30 3A 4C 44 41 |L5605 LDY #0:LDA|
00004020: 20 28 4C 4F 29 2C 59 3A 4C 44 59 20 56 41 52 3A | (LO),Y:LDY VAR:|
00004030: 53 54 41 20 28 4C 4F 29 2C 59 00 72 48 FA 3C 53 |STA (LO),Y.rH.<S|
00004040: 45 43 3A 4C 44 41 20 49 4E 53 41 4E 46 3A 53 42 |EC:LDA INSANF:SB|
00004050: 43 20 4C 4F 3A 4C 44 41 20 49 4E 53 41 4E 46 AA |C LO:LDA INSANF.|
00004060: 31 3A 53 42 43 20 48 49 3A 42 43 53 20 4C 35 36 |1:SBC HI:BCS L56|
00004070: 32 30 00 A8 48 FF 3C 44 45 43 20 4C 4F 3A 4C 44 |20..H.<DEC LO:LD|
00004080: 41 20 4C 4F 3A 43 4D 50 20 23 24 46 46 3A 42 4E |A LO:CMP #$FF:BN|
00004090: 45 20 4C 35 36 30 35 3A 44 45 43 20 48 49 3A 42 |E L5605:DEC HI:B|
000040A0: 4E 45 20 4C 35 36 30 35 00 B6 48 04 3D 4C 35 36 |NE L5605..H.=L56|
000040B0: 32 30 20 52 54 53 00 DA 48 74 40 3B 20 AC AC AC |20 RTS..Ht@; ...|
000040C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000040D0: AC AC AC AC AC AC AC AC AC AC 00 FC 48 75 40 3B |............Hu@;|
000040E0: 20 AC AC AC 20 9E 54 45 4D 20 49 4E 49 54 49 41 | ... .TEM INITIA|
000040F0: 4C 49 53 49 45 52 45 4E 20 AC AC AC 00 30 49 78 |LISIEREN ....0Ix|
00004100: 40 4C 31 36 35 30 34 20 4C 44 41 20 23 9D 4C 41 |@L16504 LDA #.LA|
00004110: 53 54 3A 53 54 41 20 9D 80 3A 4C 44 41 20 23 46 |ST:STA ..:LDA #F|
00004120: 55 4E 80 3A 53 54 41 20 46 55 4E 53 54 41 52 54 |UN.:STA FUNSTART|
00004130: 00 5E 49 7A 40 4C 44 41 20 23 B3 46 55 4E 53 54 |.^Iz@LDA #.FUNST|
00004140: 52 54 41 42 3A 53 54 41 20 46 55 4E 53 54 52 41 |RTAB:STA FUNSTRA|
00004150: 4E 46 3A 53 54 41 20 46 55 4E 53 54 52 80 00 90 |NF:STA FUNSTR...|
00004160: 49 7B 40 4C 44 41 20 23 B1 46 55 4E 53 54 52 54 |I{@LDA #.FUNSTRT|
00004170: 41 42 3A 53 54 41 20 46 55 4E 53 54 52 41 4E 46 |AB:STA FUNSTRANF|
00004180: AA 31 3A 53 54 41 20 46 55 4E 53 54 52 80 AA 31 |.1:STA FUNSTR..1|
00004190: 00 BB 49 7E 40 4C 44 41 20 23 B3 46 55 4E 54 41 |..I~@LDA #.FUNTA|
000041A0: 42 3A 53 54 41 20 46 55 4E 54 41 42 41 4E 46 3A |B:STA FUNTABANF:|
000041B0: 53 54 41 20 46 55 4E 54 41 42 80 00 EA 49 7F 40 |STA FUNTAB...I.@|
000041C0: 4C 44 41 20 23 B1 46 55 4E 54 41 42 3A 53 54 41 |LDA #.FUNTAB:STA|
000041D0: 20 46 55 4E 54 41 42 41 4E 46 AA 31 3A 53 54 41 | FUNTABANF.1:STA|
000041E0: 20 46 55 4E 54 41 42 80 AA 31 00 1C 4A 83 40 4C | FUNTAB..1..J.@L|
000041F0: 44 41 20 43 4F 4D 4D AF 53 3A 53 54 41 20 43 4F |DA COMM.S:STA CO|
00004200: 4D 4D 80 3A 4C 44 41 20 43 4F 4D 4D AF 53 AA 31 |MM.:LDA COMM.S.1|
00004210: 3A 53 54 41 20 43 4F 4D 4D 80 AA 31 00 64 4A 86 |:STA COMM..1.dJ.|
00004220: 40 4C 44 41 20 23 30 3A 53 54 41 20 46 55 4E 54 |@LDA #0:STA FUNT|
00004230: 41 42 3A 53 54 41 20 46 55 4E 54 41 42 AA 31 3A |AB:STA FUNTAB.1:|
00004240: 53 54 41 20 46 55 4E 53 54 52 54 41 42 3A 53 54 |STA FUNSTRTAB:ST|
00004250: 41 20 46 55 4E 53 54 52 54 41 42 AA 31 3A 4A 4D |A FUNSTRTAB.1:JM|
00004260: 50 20 55 50 00 7F 4A 9A 42 3B 20 AC AC AC 20 44 |P UP..J.B; ... D|
00004270: 49 53 41 53 53 AB 44 41 54 45 4E 20 AC AC AC 00 |ISASS.DATEN ....|
00004280: A0 4A 9B 42 3B 20 42 59 54 45 53 20 50 52 4F 20 |.J.B; BYTES PRO |
00004290: 42 45 46 45 48 4C 20 24 30 30 20 AB 20 24 46 46 |BEFEHL $00 . $FF|
000042A0: 00 AE 4A 9C 42 2E 42 59 54 45 20 24 46 46 00 D7 |..J.B.BYTE $FF..|
000042B0: 4A A4 42 4D 41 53 4B 54 41 42 20 2E 42 59 54 45 |J.BMASKTAB .BYTE|
000042C0: 20 25 30 30 30 30 31 31 30 30 3B 24 58 43 2C 58 | %00001100;$XC,X|
000042D0: 44 2C 58 45 2C 58 46 00 EF 4A A5 42 2E 42 59 54 |D,XE,XF..J.B.BYT|
000042E0: 45 20 25 31 31 31 31 31 31 31 31 3B 24 32 30 00 |E %11111111;$20.|
000042F0: 0D 4B A6 42 2E 42 59 54 45 20 25 31 30 30 31 31 |.K.B.BYTE %10011|
00004300: 31 31 31 3B 24 30 30 2C 34 30 2C 36 30 00 28 4B |111;$00,40,60.(K|
00004310: A7 42 2E 42 59 54 45 20 25 30 30 30 30 31 30 30 |.B.BYTE %0000100|
00004320: 30 3B 24 58 30 AB 58 37 00 43 4B A8 42 2E 42 59 |0;$X0.X7.CK.B.BY|
00004330: 54 45 20 25 30 30 30 30 31 31 30 31 3B 24 58 38 |TE %00001101;$X8|
00004340: 2C 58 41 00 64 4B A9 42 2E 42 59 54 45 20 25 30 |,XA.dK.B.BYTE %0|
00004350: 30 30 31 31 31 30 31 3B 48 49 20 32 58 AA 4C 4F |0011101;HI 2X.LO|
00004360: 20 39 2C 42 00 7F 4B AA 42 2E 42 59 54 45 20 25 | 9,B..K.B.BYTE %|
00004370: 31 31 30 31 31 31 31 31 3B 24 39 42 2C 42 42 00 |11011111;$9B,BB.|
00004380: A3 4B AB 42 2E 42 59 54 45 20 25 30 30 30 31 31 |.K.B.BYTE %00011|
00004390: 31 30 31 3B 48 49 28 32 58 AA 31 29 AA 4C 4F 20 |101;HI(2X.1).LO |
000043A0: 39 2C 42 00 BE 4B AE 42 42 49 54 54 41 42 20 2E |9,B..K.BBITTAB .|
000043B0: 42 59 54 45 20 25 30 30 30 30 31 31 30 30 00 D2 |BYTE %00001100..|
000043C0: 4B AF 42 2E 42 59 54 45 20 25 30 30 31 30 30 30 |K.B.BYTE %001000|
000043D0: 30 30 00 E6 4B B0 42 2E 42 59 54 45 20 25 30 30 |00..K.B.BYTE %00|
000043E0: 30 30 30 30 30 30 00 FA 4B B1 42 2E 42 59 54 45 |000000..K.B.BYTE|
000043F0: 20 25 30 30 30 30 30 30 30 30 00 0E 4C B2 42 2E | %00000000..L.B.|
00004400: 42 59 54 45 20 25 30 30 30 30 31 30 30 30 00 22 |BYTE %00001000."|
00004410: 4C B3 42 2E 42 59 54 45 20 25 30 30 30 30 31 30 |L.B.BYTE %000010|
00004420: 30 31 00 36 4C B4 42 2E 42 59 54 45 20 25 31 30 |01.6L.B.BYTE %10|
00004430: 30 31 31 30 31 31 00 4A 4C B5 42 2E 42 59 54 45 |011011.JL.B.BYTE|
00004440: 20 25 30 30 30 31 31 30 30 31 00 69 4C B8 42 C3 | %00011001.iL.B.|
00004450: 54 41 42 20 2E 42 59 54 45 20 33 2C 33 2C 31 2C |TAB .BYTE 3,3,1,|
00004460: 32 2C 31 2C 32 2C 31 2C 33 00 8D 4C 7C 47 3B 20 |2,1,2,1,3..L|G; |
00004470: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00004480: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 B1 4C |...............L|
00004490: 7D 47 3B 20 AC AC AC 20 50 52 4F 47 52 41 4D 4D |}G; ... PROGRAMM|
000044A0: 20 41 53 53 45 4D 42 4C 49 45 52 45 4E 20 AC AC | ASSEMBLIEREN ..|
000044B0: AC 00 CE 4C 7E 47 3B 20 53 54 41 52 54 41 44 52 |...L~G; STARTADR|
000044C0: 45 53 53 45 20 48 B5 45 52 4C 45 47 45 4E 00 03 |ESSE H.ERLEGEN..|
000044D0: 4D 80 47 4C 31 36 33 30 34 20 4C 44 41 20 43 4F |M.GL16304 LDA CO|
000044E0: 4D 4D 80 3A 53 54 41 20 24 39 30 32 45 3A 4C 44 |MM.:STA $902E:LD|
000044F0: 41 20 43 4F 4D 4D 80 AA 31 3A 53 54 41 20 24 39 |A COMM..1:STA $9|
00004500: 30 33 32 00 16 4D 83 47 3B 20 41 53 4D 20 56 45 |032..M.G; ASM VE|
00004510: 52 41 80 45 52 4E 00 2D 4D 84 47 4C 44 41 20 23 |RA.ERN.-M.GLDA #|
00004520: 24 32 43 3A 53 54 41 20 24 39 36 32 30 00 75 4D |$2C:STA $9620.uM|
00004530: 85 47 4C 44 41 20 23 24 34 43 3A 53 54 41 20 24 |.GLDA #$4C:STA $|
00004540: 39 38 36 43 3A 4C 44 41 20 23 B1 42 41 43 4B 3A |986C:LDA #.BACK:|
00004550: 53 54 41 20 24 39 38 36 45 3A 4C 44 41 20 23 B3 |STA $986E:LDA #.|
00004560: 42 41 43 4B 3A 53 54 41 20 24 39 38 36 44 3A 4A |BACK:STA $986D:J|
00004570: 4D 50 20 55 50 00 8C 4D 87 47 3B 20 41 53 4D 20 |MP UP..M.G; ASM |
00004580: 4E B0 4D 41 4C 49 53 49 45 52 45 4E 00 AA 4D 88 |N.MALISIEREN..M.|
00004590: 47 4C 31 36 33 31 32 20 4C 44 41 20 23 24 41 32 |GL16312 LDA #$A2|
000045A0: 3A 53 54 41 20 24 39 36 32 30 00 E7 4D 89 47 4C |:STA $9620..M.GL|
000045B0: 44 41 20 23 24 32 30 3A 53 54 41 20 24 39 38 36 |DA #$20:STA $986|
000045C0: 43 3A 4C 44 41 20 23 24 39 44 3A 53 54 41 20 24 |C:LDA #$9D:STA $|
000045D0: 39 38 36 45 3A 4C 44 41 20 23 24 44 42 3A 53 54 |986E:LDA #$DB:ST|
000045E0: 41 20 24 39 38 36 44 00 FE 4D 8A 47 3B 20 80 41 |A $986D..M.G; .A|
000045F0: 44 52 45 53 53 45 20 42 45 53 B0 47 45 4E 00 26 |DRESSE BES.GEN.&|
00004600: 4E 8B 47 4C 44 41 20 24 34 46 3A 53 54 41 20 50 |N.GLDA $4F:STA P|
00004610: 52 47 80 3A 4C 44 41 20 24 35 30 3A 53 54 41 20 |RG.:LDA $50:STA |
00004620: 50 52 47 80 AA 31 00 31 4E 8C 47 4A 4D 50 20 55 |PRG..1.1N.GJMP U|
00004630: 50 00 3E 4E B8 6F AC B2 20 24 43 34 30 30 00 79 |P.>N.o.. $C400.y|
00004640: 4E B9 6F 3B 20 9D 54 41 42 AA 46 55 4E 54 41 42 |N.o; .TAB.FUNTAB|
00004650: 20 B3 20 31 32 38 42 59 54 45 53 2C 20 4D 41 58 | . 128BYTES, MAX|
00004660: 2E 20 35 31 20 45 B5 52 41 45 47 45 20 AB B1 20 |. 51 E.RAEGE .. |
00004670: 42 49 53 20 24 43 43 37 46 00 97 4E BA 6F 3B 20 |BIS $CC7F..N.o; |
00004680: AC AC AC 20 41 44 52 45 53 53 45 4E 54 41 42 45 |... ADRESSENTABE|
00004690: 4C 4C 45 20 AC AC AC 00 B1 4E 1E 70 9D 54 41 42 |LLE .....N.p.TAB|
000046A0: 20 2E 57 B0 44 20 50 52 4F 43 45 44 55 52 45 AB | .W.D PROCEDURE.|
000046B0: 31 00 C4 4E 1F 70 2E 57 B0 44 20 46 55 4E 43 54 |1..N.p.W.D FUNCT|
000046C0: 49 91 AB 31 00 D4 4E 20 70 2E 57 B0 44 20 50 41 |I..1..N p.W.D PA|
000046D0: 43 4B AB 31 00 E5 4E 21 70 2E 57 B0 44 20 4D 45 |CK.1..N!p.W.D ME|
000046E0: 4D B0 59 AB 31 00 F5 4E 22 70 2E 57 B0 44 20 49 |M.Y.1..N"p.W.D I|
000046F0: 4E 49 54 AB 31 00 08 4F 30 70 46 55 4E 54 41 42 |NIT.1..O0pFUNTAB|
00004700: 20 2E 57 B0 44 20 30 30 00 2D 4F 3A 70 3B 20 24 | .W.D 00.-O:p; $|
00004710: 43 34 38 30 20 56 41 52 49 41 42 C3 53 50 45 49 |C480 VARIAB.SPEI|
00004720: 43 48 45 52 20 34 38 20 42 59 54 45 53 00 39 4F |CHER 48 BYTES.9O|
00004730: 43 70 AC B2 24 43 34 42 30 00 4E 4F 4E 70 55 53 |Cp..$C4B0.NONpUS|
00004740: 54 41 42 20 2E C6 20 22 55 53 49 4E C7 22 00 5F |TAB .. "USIN."._|
00004750: 4F 50 70 2E C6 20 22 50 52 4F 47 52 41 CD 22 00 |OPp.. "PROGRA.".|
00004760: 6C 4F 52 70 2E 42 59 54 45 20 30 30 00 89 4F 7E |lORp.BYTE 00..O~|
00004770: 70 3B 20 AC AC AC AC 20 53 54 52 49 4E 47 54 41 |p; .... STRINGTA|
00004780: 42 45 4C 4C 45 20 AC AC AC 00 A1 4F 80 70 A2 54 |BELLE .....O.p.T|
00004790: 41 42 20 2E C6 20 22 50 52 4F 43 45 44 55 52 C5 |AB .. "PROCEDUR.|
000047A0: 22 00 B3 4F 81 70 2E C6 20 22 46 55 4E 43 54 49 |"..O.p.. "FUNCTI|
000047B0: 4F CE 22 00 C1 4F 82 70 2E C6 20 22 50 41 43 CB |O."..O.p.. "PAC.|
000047C0: 22 00 D1 4F 83 70 2E C6 20 22 4D 45 4D 4F 52 D9 |"..O.p.. "MEMOR.|
000047D0: 22 00 DF 4F 84 70 2E C6 20 22 49 4E 49 D4 22 00 |"..O.p.. "INI.".|
000047E0: F5 4F 94 70 46 55 4E 53 54 52 54 41 42 20 2E 57 |.O.pFUNSTRTAB .W|
000047F0: B0 44 20 30 30 00 14 50 C6 98 AC B2 24 33 30 34 |.D 00..P....$304|
00004800: 3A 2E 42 59 54 45 20 B3 A4 4B 45 4E 87 2C B1 A4 |:.BYTE ..KEN.,..|
00004810: 4B 45 4E 87 00 33 50 D0 98 AC B2 24 33 30 36 3A |KEN..3P....$306:|
00004820: 2E 42 59 54 45 20 B3 A4 4B 45 4E 9B 2C B1 A4 4B |.BYTE ..KEN.,..K|
00004830: 45 4E 9B 00 4C 50 DA 98 AC B2 24 33 30 38 3A 2E |EN..LP....$308:.|
00004840: 42 59 54 45 20 B3 A2 9D 2C B1 A2 9D 00 69 50 E4 |BYTE ...,....iP.|
00004850: 98 AC B2 24 33 30 41 3A 2E 42 59 54 45 20 B3 A2 |...$30A:.BYTE ..|
00004860: 46 55 4E 2C B1 A2 46 55 4E 00 8E 50 34 9E 3B 20 |FUN,..FUN..P4.; |
00004870: AC AC AC AC AC AC 20 50 52 4F 47 52 41 4D 4D 54 |...... PROGRAMMT|
00004880: 45 49 4C 20 32 20 AC AC AC AC AC AC AC AC 00 B3 |EIL 2 ..........|
00004890: 50 35 9E 3B 20 AC AC AC 20 4E 41 43 48 20 24 44 |P5.; ... NACH $D|
000048A0: 34 30 30 20 55 45 42 45 52 54 52 41 47 45 4E 20 |400 UEBERTRAGEN |
000048B0: AC AC AC 00 C6 50 3E 9E AC B2 24 37 30 30 30 3B |.....P>...$7000;|
000048C0: 20 32 38 36 37 32 00 E7 50 3F 9E 3B 20 41 44 52 | 28672..P?.; ADR|
000048D0: 45 53 53 45 4E 20 49 4E 20 50 52 47 54 45 49 4C |ESSEN IN PRGTEIL|
000048E0: 31 20 41 80 45 52 4E 00 1F 51 42 9E 4C 44 41 20 |1 A.ERN..QB.LDA |
000048F0: 23 B3 50 52 47 33 41 3A 53 54 41 20 53 54 41 52 |#.PRG3A:STA STAR|
00004900: 54 41 44 52 3A 4C 44 41 20 23 B1 50 52 47 33 41 |TADR:LDA #.PRG3A|
00004910: 3A 53 54 41 20 53 54 41 52 54 41 44 52 AA 31 00 |:STA STARTADR.1.|
00004920: 4F 51 44 9E 4C 44 41 20 23 B3 50 52 47 33 45 3A |OQD.LDA #.PRG3E:|
00004930: 53 54 41 20 80 41 44 52 3A 4C 44 41 20 23 B1 50 |STA .ADR:LDA #.P|
00004940: 52 47 33 45 3A 53 54 41 20 80 41 44 52 AA 31 00 |RG3E:STA .ADR.1.|
00004950: 85 51 48 9E 4C 44 41 20 23 B3 50 52 47 31 41 3A |.QH.LDA #.PRG1A:|
00004960: 53 54 41 20 43 4F 55 4E 54 45 52 3A 4C 44 41 20 |STA COUNTER:LDA |
00004970: 23 B1 50 52 47 31 41 3A 53 54 41 20 43 4F 55 4E |#.PRG1A:STA COUN|
00004980: 54 45 52 AA 31 00 B5 51 4A 9E 4C 44 41 20 23 B3 |TER.1..QJ.LDA #.|
00004990: 50 52 47 31 45 3A 53 54 41 20 50 52 47 80 3A 4C |PRG1E:STA PRG.:L|
000049A0: 44 41 20 23 B1 50 52 47 31 45 3A 53 54 41 20 50 |DA #.PRG1E:STA P|
000049B0: 52 47 80 AA 31 00 E9 51 52 9E 4C 44 41 20 23 B3 |RG..1..QR.LDA #.|
000049C0: 50 52 47 34 41 3A 53 54 41 20 50 52 47 41 4E 46 |PRG4A:STA PRGANF|
000049D0: 3A 4C 44 41 20 23 B1 50 52 47 34 41 3A 53 54 41 |:LDA #.PRG4A:STA|
000049E0: 20 50 52 47 41 4E 46 AA 31 00 09 52 57 9E 4A 53 | PRGANF.1..RW.JS|
000049F0: 52 20 44 4F 57 4E 3A 4A 53 52 20 41 44 41 50 54 |R DOWN:JSR ADAPT|
00004A00: 3A 4A 53 52 20 44 4F 57 4E 00 28 52 98 9E 3B 20 |:JSR DOWN.(R..; |
00004A10: 50 52 47 54 45 49 4C 33 20 4E 41 43 48 20 44 45 |PRGTEIL3 NACH DE|
00004A20: 53 54 49 4E 41 54 49 91 00 52 52 9A 9E 4C 44 41 |STINATI..RR..LDA|
00004A30: 20 23 B3 50 52 47 33 41 3A 53 54 41 20 4C 4F 3A | #.PRG3A:STA LO:|
00004A40: 4C 44 41 20 23 B1 50 52 47 33 41 3A 53 54 41 20 |LDA #.PRG3A:STA |
00004A50: 48 49 00 9B 52 9C 9E 4C 44 41 20 23 B3 50 52 47 |HI..R..LDA #.PRG|
00004A60: 34 41 3A 53 54 41 20 4C 4F 32 3A 4C 44 41 20 23 |4A:STA LO2:LDA #|
00004A70: B1 50 52 47 34 41 3A 53 54 41 20 48 49 32 3A 4C |.PRG4A:STA HI2:L|
00004A80: 44 58 20 23 34 3A 4C 44 59 20 23 24 46 46 3A 4A |DX #4:LDY #$FF:J|
00004A90: 53 52 20 54 52 41 4E 53 46 45 52 00 BC 52 AB 9E |SR TRANSFER..R..|
00004AA0: 3B 20 41 44 52 45 53 53 45 4E 20 49 4E 20 50 52 |; ADRESSEN IN PR|
00004AB0: 47 54 45 49 4C 33 20 41 80 45 52 4E 00 F4 52 B0 |GTEIL3 A.ERN..R.|
00004AC0: 9E 4C 44 41 20 23 B3 50 52 47 33 41 3A 53 54 41 |.LDA #.PRG3A:STA|
00004AD0: 20 53 54 41 52 54 41 44 52 3A 4C 44 41 20 23 B1 | STARTADR:LDA #.|
00004AE0: 50 52 47 33 41 3A 53 54 41 20 53 54 41 52 54 41 |PRG3A:STA STARTA|
00004AF0: 44 52 AA 31 00 24 53 B2 9E 4C 44 41 20 23 B3 50 |DR.1.$S..LDA #.P|
00004B00: 52 47 33 45 3A 53 54 41 20 80 41 44 52 3A 4C 44 |RG3E:STA .ADR:LD|
00004B10: 41 20 23 B1 50 52 47 33 45 3A 53 54 41 20 80 41 |A #.PRG3E:STA .A|
00004B20: 44 52 AA 31 00 72 53 B6 9E 4C 44 41 20 23 B3 50 |DR.1.rS..LDA #.P|
00004B30: 52 47 34 41 3A 53 54 41 20 43 4F 55 4E 54 45 52 |RG4A:STA COUNTER|
00004B40: 3A 53 54 41 20 50 52 47 41 4E 46 3A 4C 44 41 20 |:STA PRGANF:LDA |
00004B50: 23 B1 50 52 47 34 41 3A 53 54 41 20 43 4F 55 4E |#.PRG4A:STA COUN|
00004B60: 54 45 52 AA 31 3A 53 54 41 20 50 52 47 41 4E 46 |TER.1:STA PRGANF|
00004B70: AA 31 00 A2 53 B8 9E 4C 44 41 20 23 B3 50 52 47 |.1..S..LDA #.PRG|
00004B80: 34 45 3A 53 54 41 20 50 52 47 80 3A 4C 44 41 20 |4E:STA PRG.:LDA |
00004B90: 23 B1 50 52 47 34 45 3A 53 54 41 20 50 52 47 80 |#.PRG4E:STA PRG.|
00004BA0: AA 31 00 C0 53 C5 9E 4A 53 52 20 44 4F 57 4E 3A |.1..S..JSR DOWN:|
00004BB0: 4A 53 52 20 41 44 41 50 54 3A 4A 4D 50 20 55 50 |JSR ADAPT:JMP UP|
00004BC0: 00 E1 53 11 A4 3B 20 AC AC AC 20 41 4C 4C 45 53 |..S..; ... ALLES|
00004BD0: 20 8A 54 45 52 4B 4F 50 49 45 52 45 4E 20 AC AC | .TERKOPIEREN ..|
00004BE0: AC 00 05 54 E0 AB 3B 20 AC AC AC 20 50 52 4F 47 |...T..; ... PROG|
00004BF0: 52 41 4D 4D 54 45 49 4C 45 20 53 41 4D 4D 45 4C |RAMMTEILE SAMMEL|
00004C00: 4E 20 AC AC AC 00 23 54 E1 AB 3B 20 AC AC AC 20 |N ....#T..; ... |
00004C10: 54 45 49 4C 32 20 42 45 49 20 24 44 34 30 30 20 |TEIL2 BEI $D400 |
00004C20: AC AC AC 00 35 54 E4 AB AC B2 24 37 32 30 30 3B |....5T....$7200;|
00004C30: 32 39 31 38 34 00 4F 54 FE AB 4A 53 52 20 44 4F |29184.OT..JSR DO|
00004C40: 57 4E 3A 4C 44 59 20 23 30 3A 53 54 59 20 32 00 |WN:LDY #0:STY 2.|
00004C50: 6F 54 00 AC 4C 34 34 30 33 32 20 4C 44 41 20 43 |oT..L44032 LDA C|
00004C60: 4F 50 59 54 41 42 2C 59 3A 53 54 41 20 4C 4F 00 |OPYTAB,Y:STA LO.|
00004C70: 8A 54 02 AC 4C 44 41 20 43 4F 50 59 54 41 42 AA |.T..LDA COPYTAB.|
00004C80: 31 2C 59 3A 53 54 41 20 48 49 00 A6 54 04 AC 4C |1,Y:STA HI..T..L|
00004C90: 44 41 20 43 4F 50 59 54 41 42 AA 32 2C 59 3A 53 |DA COPYTAB.2,Y:S|
00004CA0: 54 41 20 4C 4F 32 00 C2 54 06 AC 4C 44 41 20 43 |TA LO2..T..LDA C|
00004CB0: 4F 50 59 54 41 42 AA 33 2C 59 3A 53 54 41 20 48 |OPYTAB.3,Y:STA H|
00004CC0: 49 32 00 DA 54 08 AC 4C 44 41 20 43 4F 50 59 54 |I2..T..LDA COPYT|
00004CD0: 41 42 AA 34 2C 59 3A 54 41 58 00 F2 54 0A AC 4C |AB.4,Y:TAX..T..L|
00004CE0: 44 41 20 43 4F 50 59 54 41 42 AA 35 2C 59 3A 54 |DA COPYTAB.5,Y:T|
00004CF0: 41 59 00 31 55 0C AC 4A 53 52 20 54 52 41 4E 53 |AY.1U..JSR TRANS|
00004D00: 46 45 52 3A 4C 44 41 20 32 3A 43 4C 43 3A 41 44 |FER:LDA 2:CLC:AD|
00004D10: 43 20 23 36 3A 53 54 41 20 32 3A 54 41 59 3A 43 |C #6:STA 2:TAY:C|
00004D20: 4D 50 20 23 33 30 3A 42 4E 45 20 4C 34 34 30 33 |MP #30:BNE L4403|
00004D30: 32 00 4E 55 12 AC 3B 20 AC AC AC 20 54 45 49 4C |2.NU..; ... TEIL|
00004D40: 30 20 41 4E 50 41 53 53 45 4E 20 AC AC AC 00 86 |0 ANPASSEN .....|
00004D50: 55 16 AC 4C 44 41 20 23 B3 50 52 47 30 41 3A 53 |U..LDA #.PRG0A:S|
00004D60: 54 41 20 53 54 41 52 54 41 44 52 3A 4C 44 41 20 |TA STARTADR:LDA |
00004D70: 23 B1 50 52 47 30 41 3A 53 54 41 20 53 54 41 52 |#.PRG0A:STA STAR|
00004D80: 54 41 44 52 AA 31 00 B6 55 18 AC 4C 44 41 20 23 |TADR.1..U..LDA #|
00004D90: B3 50 52 47 30 45 3A 53 54 41 20 80 41 44 52 3A |.PRG0E:STA .ADR:|
00004DA0: 4C 44 41 20 23 B1 50 52 47 30 45 3A 53 54 41 20 |LDA #.PRG0E:STA |
00004DB0: 80 41 44 52 AA 31 00 EA 55 1C AC 4C 44 41 20 23 |.ADR.1..U..LDA #|
00004DC0: B3 4D 49 44 30 3A 53 54 41 20 43 4F 55 4E 54 45 |.MID0:STA COUNTE|
00004DD0: 52 3A 4C 44 41 20 23 B1 4D 49 44 30 3A 53 54 41 |R:LDA #.MID0:STA|
00004DE0: 20 43 4F 55 4E 54 45 52 AA 31 00 12 56 1E AC 4C | COUNTER.1..V..L|
00004DF0: 44 41 20 23 24 46 46 3A 53 54 41 20 50 52 47 80 |DA #$FF:STA PRG.|
00004E00: 3A 4C 44 41 20 23 38 3A 53 54 41 20 50 52 47 80 |:LDA #8:STA PRG.|
00004E10: AA 31 00 3C 56 26 AC 4C 44 41 20 23 30 3A 53 54 |.1.<V&.LDA #0:ST|
00004E20: 41 20 50 52 47 41 4E 46 3A 4C 44 41 20 23 38 3A |A PRGANF:LDA #8:|
00004E30: 53 54 41 20 50 52 47 41 4E 46 AA 31 00 51 56 2B |STA PRGANF.1.QV+|
00004E40: AC 4A 53 52 20 41 44 41 50 54 3A 4A 4D 50 20 55 |.JSR ADAPT:JMP U|
00004E50: 50 00 5D 56 50 C3 AC B2 24 37 33 30 30 00 75 56 |P.]VP...$7300.uV|
00004E60: 51 C3 3B 20 AC AC AC 20 80 50 52 4F 47 52 41 4D |Q.; ... .PROGRAM|
00004E70: 4D 20 AC AC AC 00 97 56 52 C3 3B 20 AC AC AC 20 |M .....VR.; ... |
00004E80: 34 30 20 42 59 54 45 53 20 24 30 38 30 30 AB 30 |40 BYTES $0800.0|
00004E90: 38 32 37 20 AC AC AC 00 B8 56 53 C3 2E 42 59 54 |827 .....VS..BYT|
00004EA0: 45 20 30 2C 33 34 2C 38 2C 31 39 36 2C 37 2C 31 |E 0,34,8,196,7,1|
00004EB0: 35 38 2C 33 32 2C 35 30 00 DA 56 54 C3 2E 42 59 |58,32,50..VT..BY|
00004EC0: 54 45 20 34 38 2C 35 36 2C 35 36 2C 34 34 2C 35 |TE 48,56,56,44,5|
00004ED0: 31 2C 35 30 2C 35 35 2C 35 34 00 FC 56 56 C3 2E |1,50,55,54..VV..|
00004EE0: 42 59 54 45 20 35 36 2C 33 32 2C 36 36 2C 38 39 |BYTE 56,32,66,89|
00004EF0: 2C 33 32 2C 38 37 2C 37 39 2C 37 36 00 1E 57 58 |,32,87,79,76..WX|
00004F00: C3 2E 42 59 54 45 20 37 30 2C 37 31 2C 36 35 2C |..BYTE 70,71,65,|
00004F10: 37 38 2C 37 31 2C 33 32 2C 37 37 2C 36 35 00 40 |78,71,32,77,65.@|
00004F20: 57 5A C3 2E 42 59 54 45 20 38 39 2C 30 30 2C 30 |WZ..BYTE 89,00,0|
00004F30: 30 2C 30 30 2C 30 30 2C 30 30 2C 30 30 2C 30 30 |0,00,00,00,00,00|
00004F40: 00 68 57 64 C3 3B 20 AC AC AC 20 50 52 4F 47 52 |.hWd.; ... PROGR|
00004F50: 41 4D 4D 20 56 45 52 54 45 49 C3 20 20 41 42 20 |AMM VERTEI. AB |
00004F60: 24 30 38 32 38 20 AC AC 00 90 57 69 C3 53 45 49 |$0828 ....Wi.SEI|
00004F70: 3A 4C 44 41 20 31 3A AF 20 23 32 34 38 3A 53 54 |:LDA 1:. #248:ST|
00004F80: 41 20 31 3A 4C 44 59 20 23 30 3A 53 54 59 20 32 |A 1:LDY #0:STY 2|
00004F90: 00 B1 57 70 C3 4C 35 30 30 33 32 20 4C 44 41 20 |..Wp.L50032 LDA |
00004FA0: 43 4F 50 59 54 41 42 2C 59 3A 53 54 41 20 4C 4F |COPYTAB,Y:STA LO|
00004FB0: 32 00 CD 57 72 C3 4C 44 41 20 43 4F 50 59 54 41 |2..Wr.LDA COPYTA|
00004FC0: 42 AA 31 2C 59 3A 53 54 41 20 48 49 32 00 E8 57 |B.1,Y:STA HI2..W|
00004FD0: 74 C3 4C 44 41 20 43 4F 50 59 54 41 42 AA 32 2C |t.LDA COPYTAB.2,|
00004FE0: 59 3A 53 54 41 20 4C 4F 00 03 58 76 C3 4C 44 41 |Y:STA LO..Xv.LDA|
00004FF0: 20 43 4F 50 59 54 41 42 AA 33 2C 59 3A 53 54 41 | COPYTAB.3,Y:STA|
00005000: 20 48 49 00 1B 58 78 C3 4C 44 41 20 43 4F 50 59 | HI..Xx.LDA COPY|
00005010: 54 41 42 AA 34 2C 59 3A 54 41 58 00 33 58 7A C3 |TAB.4,Y:TAX.3Xz.|
00005020: 4C 44 41 20 43 4F 50 59 54 41 42 AA 35 2C 59 3A |LDA COPYTAB.5,Y:|
00005030: 54 41 59 00 72 58 7C C3 4A 53 52 20 54 52 41 4E |TAY.rX|.JSR TRAN|
00005040: 53 46 45 52 3A 4C 44 41 20 32 3A 43 4C 43 3A 41 |SFER:LDA 2:CLC:A|
00005050: 44 43 20 23 36 3A 53 54 41 20 32 3A 54 41 59 3A |DC #6:STA 2:TAY:|
00005060: 43 4D 50 20 23 32 34 3A 42 4E 45 20 4C 35 30 30 |CMP #24:BNE L500|
00005070: 33 32 00 8F 58 96 C3 3B 20 AC AC AC 20 56 45 4B |32..X..; ... VEK|
00005080: A4 52 45 4E 20 53 45 54 5A 45 4E 20 AC AC AC 00 |.REN SETZEN ....|
00005090: BF 58 A0 C3 4C 44 41 20 23 B3 A4 4B 45 4E 87 3A |.X..LDA #..KEN.:|
000050A0: 53 54 41 20 24 30 33 30 34 3A 4C 44 41 20 23 B1 |STA $0304:LDA #.|
000050B0: A4 4B 45 4E 87 3A 53 54 41 20 24 30 33 30 35 00 |.KEN.:STA $0305.|
000050C0: EF 58 A2 C3 4C 44 41 20 23 B3 A4 4B 45 4E 9B 3A |.X..LDA #..KEN.:|
000050D0: 53 54 41 20 24 30 33 30 36 3A 4C 44 41 20 23 B1 |STA $0306:LDA #.|
000050E0: A4 4B 45 4E 9B 3A 53 54 41 20 24 30 33 30 37 00 |.KEN.:STA $0307.|
000050F0: 19 59 A4 C3 4C 44 41 20 23 B3 A2 9D 3A 53 54 41 |.Y..LDA #...:STA|
00005100: 20 24 30 33 30 38 3A 4C 44 41 20 23 B1 A2 9D 3A | $0308:LDA #...:|
00005110: 53 54 41 20 24 30 33 30 39 00 47 59 A6 C3 4C 44 |STA $0309.GY..LD|
00005120: 41 20 23 B3 A2 46 55 4E 3A 53 54 41 20 24 30 33 |A #..FUN:STA $03|
00005130: 30 41 3A 4C 44 41 20 23 B1 A2 46 55 4E 3A 53 54 |0A:LDA #..FUN:ST|
00005140: 41 20 24 30 33 30 42 00 61 59 AA C3 4C 44 41 20 |A $030B.aY..LDA |
00005150: 31 3A B0 41 20 23 37 3A 53 54 41 20 31 3A 43 4C |1:.A #7:STA 1:CL|
00005160: 49 00 95 59 AF C3 3B 20 AC AC 20 41 4E 46 2E 41 |I..Y..; .. ANF.A|
00005170: 44 52 20 44 45 53 20 50 52 4F 43 45 44 55 52 45 |DR DES PROCEDURE|
00005180: 53 50 45 49 43 48 45 52 53 20 41 42 4C 45 47 45 |SPEICHERS ABLEGE|
00005190: 4E 20 AC AC AC 00 B7 59 B4 C3 4A 53 52 20 43 4B |N .....Y..JSR CK|
000051A0: 43 4F 4D 3A 4A 53 52 20 24 41 44 38 41 3A 4A 53 |COM:JSR $AD8A:JS|
000051B0: 52 20 24 42 43 39 42 00 F9 59 B5 C3 4C 44 41 20 |R $BC9B..Y..LDA |
000051C0: 24 36 35 3A 53 54 41 20 43 4F 4D 4D AF 53 3A 53 |$65:STA COMM.S:S|
000051D0: 54 41 20 43 4F 4D 4D 80 3A 4C 44 41 20 24 36 34 |TA COMM.:LDA $64|
000051E0: 3A 53 54 41 20 43 4F 4D 4D AF 53 AA 31 3A 53 54 |:STA COMM.S.1:ST|
000051F0: 41 20 43 4F 4D 4D 80 AA 31 00 30 5A B6 C3 3B 20 |A COMM..1.0Z..; |
00005200: AC AC 20 42 41 53 49 43 20 80 45 20 20 24 33 37 |.. BASIC .E $37|
00005210: AD 33 38 20 4F 44 45 52 20 41 4E 46 AB 41 44 52 |.38 ODER ANF.ADR|
00005220: 20 50 52 4F 43 45 44 55 52 45 53 50 2E 20 AC AC | PROCEDURESP. ..|
00005230: 00 47 5A B7 C3 43 4D 50 20 24 33 38 3A 42 43 53 |.GZ..CMP $38:BCS|
00005240: 20 4C 35 30 31 30 36 00 83 5A B8 C3 53 54 41 20 | L50106..Z..STA |
00005250: 24 33 34 3A 53 54 41 20 24 33 36 3A 53 54 41 20 |$34:STA $36:STA |
00005260: 24 33 38 3A 4C 44 41 20 24 36 35 3A 53 54 41 20 |$38:LDA $65:STA |
00005270: 24 33 33 3A 53 54 41 20 24 33 35 3A 53 54 41 20 |$33:STA $35:STA |
00005280: 24 33 37 00 A5 5A BA C3 4C 35 30 31 30 36 20 4A |$37..Z..L50106 J|
00005290: 53 52 20 24 41 36 34 34 3B 20 A2 3A 4A 4D 50 20 |SR $A644; .:JMP |
000052A0: 24 41 37 41 45 00 C0 5A 18 C4 3B 20 AC AC AC 20 |$A7AE..Z..; ... |
000052B0: 43 4F 50 59 20 52 4F 55 54 49 4E 45 20 AC AC AC |COPY ROUTINE ...|
000052C0: 00 FE 5A 1C C4 54 52 41 4E 53 46 45 52 20 4C 44 |..Z..TRANSFER LD|
000052D0: 41 20 28 4C 4F 29 2C 59 3A 53 54 41 20 28 4C 4F |A (LO),Y:STA (LO|
000052E0: 32 29 2C 59 3A 44 45 59 3A 43 50 59 20 23 24 46 |2),Y:DEY:CPY #$F|
000052F0: 46 3A 42 4E 45 20 54 52 41 4E 53 46 45 52 00 26 |F:BNE TRANSFER.&|
00005300: 5B 1E C4 49 4E 43 20 48 49 3A 49 4E 43 20 48 49 |[..INC HI:INC HI|
00005310: 32 3A 44 45 58 3A 42 4E 45 20 54 52 41 4E 53 46 |2:DEX:BNE TRANSF|
00005320: 45 52 3A 52 54 53 00 3C 5B 7C C4 3B 20 AC AC AC |ER:RTS.<[|.; ...|
00005330: 20 43 4F 50 59 54 41 42 20 AC AC AC 00 65 5B 7E | COPYTAB ....e[~|
00005340: C4 43 4F 50 59 54 41 42 20 2E 57 B0 44 20 24 43 |.COPYTAB .W.D $C|
00005350: 30 30 30 2C 24 30 39 30 30 3A 2E 42 59 54 45 20 |000,$0900:.BYTE |
00005360: 34 2C 24 46 46 00 86 5B 80 C4 2E 57 B0 44 20 24 |4,$FF..[...W.D $|
00005370: 44 34 30 30 2C 24 30 44 30 30 3A 2E 42 59 54 45 |D400,$0D00:.BYTE|
00005380: 20 34 2C 24 46 46 00 A6 5B 82 C4 2E 57 B0 44 20 | 4,$FF..[...W.D |
00005390: 24 43 34 30 30 2C 24 31 31 30 30 3A 2E 42 59 54 |$C400,$1100:.BYT|
000053A0: 45 20 31 2C 31 32 00 C7 5B 84 C4 2E 57 B0 44 20 |E 1,12..[...W.D |
000053B0: 24 43 34 38 30 2C 24 31 31 31 30 3A 2E 42 59 54 |$C480,$1110:.BYT|
000053C0: 45 20 31 2C 24 38 30 00 E8 5B 86 C4 2E 57 B0 44 |E 1,$80..[...W.D|
000053D0: 20 24 37 33 30 30 2C 24 30 38 30 30 3A 2E 42 59 | $7300,$0800:.BY|
000053E0: 54 45 20 31 2C 24 46 46 00 F9 5B 88 C4 4D 49 44 |TE 1,$FF..[..MID|
000053F0: 30 20 B2 20 24 30 38 32 38 00 02 5C 5F EA 2E 80 |0 . $0828..\_...|
00005400: 3A 80 00 00 00 00 00 2E C6 20 22 53 FF 00 FF 00 |:........ "S....|
00005410: 00 FF FF |... |
..#....53280,11:.53281,15:.G(144):..?...
.9.4096:.OPT OO:..$C000.B...; ... PROGRA
MMTEILADRESSEN ........PRG0A . $7300:PRG
0E . $73FF.....PRG1A . $C000:PRG1E . $C3
FF.B.".PRG3A . $8000:PRG3E . $83FF...#.P
RG4A . $D400:PRG4E . $D7FF.....LO . 167:
HI . 168:LO2 . 169:HI2 . 170.2...STRPT .
178;179:COUNTER . 180;181.E...STARTADR
. 250.E. .. = $83:. = $8F:PRINT = $99...
..PNT2 . $49:CHAROUT . $AB47...H.CHAR .
8:COUNT . 11:PNT . $71.M...QUOTE . $22:F
LAG . 15:TXTPTR . $7A.....BUFFER . $200:
TABLE . $A09E......Y . $A474:CKCOM . $AE
FD.....SPEICHER . $7000:CASSETTE . 828.@
.-.; NEUE COMM.S.H./..START . $CC:.LAST
. $D1:FUN. . $FF...W.; .................
..... .X.; ... PROGRAMMTEIL1 ......Z.; .
.. .ERPRETER NEU .........KEN. LDX TXTPT
R:LDY #4:STY FLAG...B.JSR DOWN:JSR .CHAR
:PHA:JSR UP:PLA:JMP $A609.;.:.; FUER VER
GLEICH MIT TABLE AUFTAUCHEN.N.D.L575 JSR
UP:JSR COMPARE:JMP DOWN; BACK . .CHAR..
.P.; ... NEUE ..ROUTINE .........KEN. BP
L OUT.....BIT FLAG:BMI OUT;QUOT.MODUS.R.
..CMP #$FF:BEQ OUT.....CMP #$CC:BCS ....
...JMP $A724:OUT JMP $A6F3....... CMP ..
:BCC L2060.6...SBC FUNSTART:CLC:ADC ...Z
...L2060 SEC:SBC #$CB:TAX:STY PNT2.....L
DA #.(.TAB.1):STA LO:LDA #.(.TAB.1):STA
HI:LDY #0:BEQ L2085.S. .LOOP INY:BNE L20
80:INC HI:L2080 LDA (LO),Y:BPL LOOP...%.
L2085 DEX:BNE LOOP...*.FOUND INY:BNE L20
95:INC HI.=./.L2095 LDA (LO),Y:BMI OLD.:
JSR CHAROUT:BNE FOUND.P.4.OLD. JMP $A6EF
.P...; ... COMM.S AUSFUEHREN ......L.TYP
FLAG . 13:CHR. . $73:CHRKT . CHR..6.K.V.
EXECOLD . $A7ED:.ER . $A7AE:FUNK.LD . $A
E8D......TERM . $AEF1:CHECKNUM . $AD8D..
...; ... PROCEDURES ....).&... JSR CHR.:
JSR TEST.:JMP .ER.V.0.TEST. CMP #.START:
BCC OLD.:CMP ..:BCC .2.U.:.OLD. JSR CHRK
T:JMP EXECOLD...D..2 SEC:SBC #.START:ASL
:TAY...I.LDA #..TAB:STA LO:LDA #..TAB:ST
A HI...N.INY:LDA (LO),Y:DEY:PHA:LDA (LO)
,Y:PHA:JMP CHR....S.; ... FUNCTI.S ....C
.X..FUN LDA #0:STA TYPFLAG:JSR CHR.:CMP
FUNSTART:BCC OLDFUN.Z.B.CMP #FUN.:BCC FU
N2.{.L.OLDFUN JSR CHRKT:JMP FUNK.LD...V.
FUN2 SEC:SBC FUNSTART:ASL:CLC:ADC FUNTAB
ANF:STA JUMPIND.1...X.LDA FUNTABANF.1:AD
C #0:STA JUMPIND.2...Z.JSR CHR.:JSR .TER
M:JSR JUMPIND:JMP CHECKNUM.*...JUMPIND J
MP ($FFFF).N...; .......................
.......R...; ... PROCEDURE DEKLARIEREN .
.......PROCEDURE LDA #1:JSR DECLARE.....
PROC2 INC .......LDA FUNSTRANF:CLC:ADC S
TRC:STA FUNSTRANF:BCC L3338:INC FUNSTRAN
F.1.6...L3338 LDA FUNTABANF:CLC:ADC #2:S
TA FUNTABANF:BCC L3342:INC FUNTABANF.1.D
...L3342 RTS.G.H.; .....................
..........J.; ... FUNKTI. DEKLARIEREN ..
....S.FUNCTI. LDA #0:JSR DECLARE.D.\.FUN
CT2 DEC FUNSTART:RTS.....; .............
......................; .. FUN.PROC.PACK
NAME LESEN ...D...TITLE JSR STREVL:STA
TITC:STY TITPO..1:STX TITPO..U.E.JSR $E2
00:STX DEVICE:LDA #0:STA ADRESSEN:RTS...
J.; .................................K.;
TEST, OB . DEKL. WERDEN KANN.R.L.; NAME
IM BUFFER...O.DEKLTEST JSR COMPARE:BNE
ERR.19; RE.INITI....T.; TESTEN, OB NUMME
R .I.C.V.LDA FUNSTART:CMP ..:BEQ ERR.16:
RTS.K...ERR.16 LDX #16; OUT OF N :.BYTE
$2C.....ERR.19 LDX #19:JMP ERR.; RE. ERR
......; ................................
.....; .. PROC.FUN LADEN.ASSEMBLIEREN ..
....DECLARE STA TYPE:JSR TITLE:JSR DEKLT
EST.%...JSR V.B; CKCOM.OPFILE.<...JSR IN
PSTRING;DOWN.^...JSR DECL2; HEADER UND P
RGTEIL.~.M.; .. COMM. (TITLE) EINBAUEN..
.O.LDA TITPO.:STA STRPT:LDA TITPO..1:STA
STRPT.1.Z.R.LDA TITC:STA STRC:JSR EINBA
UEN:JMP UP...T.; .......................
..........(.U.; .. ZEICHENKETTE NACH (ST
RPT) ...L.W.; .. .E MIT DOPPELPUNKT
...S.X.; .. KEHRT IN DOWN.MODE ZURUECK
.....~.INPSTRING JSR UP:LDA DEVICE:BNE
L3716.....JSR STREVL:JMP DOWN; DEVICE 0.
....L3716 LDA COMM.:STA STRPT:LDA COMM..
1:STA STRPT.1:LDY #0. ...; ... HEADER MU
SS GEHOLT WERDEN.F...L3720 LDA DEVICE:CM
P #1:BEQ L3725._...; ... .F V. DISK ...
...JSR $E112:BIT 144:BVC L3728.....L372
3 LDX #11:JMP ERR.; SYNTAX.G...; ... .F
IM SPEICHER ABGELEGT .......L3725 LDA (S
TARTADR),Y.....L3728 STA (STRPT),Y:INY:B
EQ L3723:CMP #":":BNE L3720.,...TYA:STA
STRC.M...L3732 CLC:ADC STARTADR:STA STAR
TADR:BCC L3734:INC STARTADR.1.....L3734
JMP DOWN...A.; .........................
........N.B.; . STRING AUSWERTEN, STRPT
SETZEN...D.STREVL JSR $AD9E:JSR $B6A3:ST
A STRC:STY STRPT.1:STX STRPT:RTS./. .; .
........................N...; ... PACK D
EKLARIEREN ........PACK JSR TITLE:LDA CO
MM.:STA PRGANF:LDA COMM..1:STA PRGANF.1.
..C.LDA #2:STA TYPE:JSR V.B; CKCOM.OPFIL
E.P...JSR INPSTRING;DOWN.....JSR PAC2; H
EADER,PRGTEIL HOC:JMP UP.#.@.; .. AUS PA
C2 FUER DEKLTEST AUFTAUCHEN.Z.E.L4165 JS
R UP:JSR DEKLTEST:JMP DOWN; BACK NACH PA
C2.~.H.; ...............................
.I.; .. HEADER.. V.BEREITEN .....J.V.B L
DA DEVICE:BEQ L4218.P.L.CMP #8:BEQ L4214
...N.; ... DEVICE 1, AUS SPEICHER . STAR
TADR HOC.".P.JSR CKCOM:JSR $AD8A:JSR $BC
9B.V.R.LDA $65:STA STARTADR:LDA $64:STA
STARTADR.1:RTS.L.T.; .. NUR DEVICE 8...V
.L4214 JMP OPFILE;RTS...X.; .. NUR DEVIC
E 0...Z.L4218 JMP CKCOM;RTS.X.L.; ......
...........................M.; . UP,PROG
RAMMTEIL HOC,DOWN ..2.V.INPRG JSR UP:LDA
DEVICE:BEQ L4316:CMP #1:BEQ L4320.H.Y.;
.. NUR DEVICE 8.G.Z.JMP INFILE;.,DOWN,A
NPASSEN.}...; .. NUR DEVICE 0.....L4316
JMP ASMPRG; ASSEMBLIEREN,DOWN.....; ...
NUR DEVICE 1 . NACH COMM. KOPIEREN ,DOWN
, ANPASSEN.-...L4320 LDY #0:LDA (STARTAD
R),Y:STA .ADR:INY:LDA (STARTADR),Y:STA .
ADR.1.[...LDA #2:JSR L3732; STARTADRESSE
.ACCU, DOWN.}...; ... 4328.4336 DOWN.MOD
E ........L4328 LDA COMM.:STA LO:LDA COM
M..1:STA HI.....LDA STARTADR:STA LO2:LDA
STARTADR.1:STA HI2:LDY #0.....L4330 LDA
(LO2),Y:STA (LO),Y.!...INC LO2:BNE L433
3:INC HI2.C...L4333 INC LO:BNE L4334:INC
HI....L4334 SEC:LDA LO2:SBC .ADR:LDA H
I2:SBC .ADR.1:BCC L4330.....JMP ADRANP..
...; ...................................
..; STRING (STRPT) MIT TABLES VERGL.....
.;ERGEBNIS A.0 COUNT.NR DES .KENS.%...;
A.0 .KEN NICHT .INIERT.A...; ...
MIT ROM.TABLE ....^...COMPARE LDA #0:STA
COUNT.....LDA #.TABLE:STA HI:LDA #.TABL
E:STA LO:JSR COMPSUB:BNE L5274.....; ...
MIT .TAB ........COMPARE2 LDA #..TAB:ST
A HI:LDA #..TAB:STA LO.....LDA #.START:S
TA COUNT.'.D.; .........................
........N.F.; .. MIT TABLE (LO.HI) VERGL
EICHEN.K.N.COMPSUB LDA #0:STA COMPC.|.}.
L5245 LDY #0.....L5248 LDA (STRPT),Y:SEC
:SBC (LO),Y:INY:. #$FF:BEQ L5248.O...CMP
#$80:BEQ L5270.....INC COUNT:DEY:DEY.!
..L5252 INY:LDA (LO),Y:BPL L5252:INY:LDA
(LO),Y:BEQ L5272.V ..TYA:CLC:ADC LO:STA
LO:BCC L5245:INC HI:BNE L5245.S ..L5270
.A COUNT:STY COMPC.. ..L5272 STA COUNT.
. ..L5274 RTS.. |.; ....................
.J }.; ... MEM.Y.DUMP ..... ..MEM.Y LDA
#..TAB:STA LO:LDA #..TAB:STA HI:LDY #0.
(!..L5506 LDA (LO),Y:BEQ L5520:BPL L5512
.K!..L5510 . #127:JSR $F1CA:LDA #13.~!..
L5512 JSR $F1CA:INY:BNE L5506:INC HI:BNE
L5506..!..; ... ANFANG UND .E DES PROCE
DURESPEICHERS .....!..L5520 LDA COMM.S.1
:LDX COMM.S:JSR $BDCD..!..LDA #"-":JSR $
F1CA.."..LDA COMM..1:LDX COMM.:JMP $BDCD
.>"..; ................................`
"..; ... FII.ZAHL IM BUFFER .. ..."..; .
.. AUS DOWN, .E MIT DOWN.."..BUFF. JSR U
P:LDA $7A:PHA:LDA $7B:PHA.."..LDA STRPT.
1:STA $7B:LDA STRPT:STA $7A:JSR $0079:JS
R $BCF3:JSR $BC9B..#..LDA $7A:STA STRPT:
LDA $7B:STA STRPT.1.@#..PLA:STA $7B:PLA:
STA $7A:JMP DOWN.G#8.; .................
.................#9.; .. PROGRAMMTEIL V.
DISK LESEN ...#:.; .. UND ADRESSEN ANPA
SSEN ...#H.INFILE LDA COMM.:STA LO
:LDA COMM..1:STA HI..$L.BA. JSR $FFCF:LD
Y #0:STA (LO),Y.#$P.INC LO:BNE L6226:INC
HI.=$R.L6226 BIT 144:BVC BA..[$`.; ...
FILE SCHLIESSEN ....$D.L6244 JSR :JSR
DOWN:JMP ADRANP..$..; ..................
..........B$..; ... OBJECT FILE OEF.EN .
....$..; FICAME KOMP.TIEREN..%..OPFILE L
DA #1:JSR $FFC3;FILE1 SCHLIESSEN.=% .LDA
#1:LDX DEVICE:LDY #2:JSR $FFBA:LDY #0:L
DX #0.{%..L6306 LDA (STRPT),Y:STA CASSET
TE,Y:INY:CPY STRC:BNE L6306..%..L6308 LD
A TYPE:CMP #2:BEQ L6312..%..; ... NAME.O
BJ ....Q%..LDA OBJSTR,X:BNE L6314..%..;
... NAME.PAC .....%..L6312 LDA PACSTR,X.
1&..L6314 STA CASSETTE,Y:INY:INX:CPX #4:
BNE L6308.D&..; .. FILE . ....&..L6316 T
YA:LDX #.CASSETTE:LDY #.CASSETTE:JSR $FF
BD:JSR $FFC0..&..; .. ERR. .ROL #2,8,15
...J&..LDA #2:LDX DEVICE:LDY #15:JSR $FF
BA..&..LDA #0:JSR $FFBD:JSR $FFC0:LDX #2
:JSR $FFC6.8'..JSR $FFCF:CMP #48:BEQ L63
28:LDX #4:JMP ERR.; FILE . FOUND.D'..L63
28 JSR $FFCC:LDX #1:JSR $FFC6; FILE1..'.
.JSR $FFCF:STA STARTADR:JSR $FFCF:STA ST
ARTADR.1:RTS..'..; .....................
.....X'..; ... FILES #1,#2 .....(.. J
SR $FFCC:LDA #1:JSR $FFC3:LDA #2:JSR $FF
C3:JMP $FD15.8(..; .....................
.........[(..; ... ERR. AUS RAM EBENE 2
.....(..ERR. JSR UP:TXA:PHA:JSR :PLA:TA
X:JMP $A43A..(D.; ......................
........Q(E.; ... .TEM INITIALISIEREN ..
...(N.INIT JSR DOWN:JMP L16504..)H.; ...
...........................4)I.; ... SPE
ICHERK.FIGURATI. ....X)R.DOWN SEI:LDA 1:
. #248:STA 1:RTS.Y)T.UP LDA 1:.A #7:STA
1:CLI:RTS..)..; ........................
......A)..; ... PROGRAMM ASSEMBLIEREN ..
...)..; STARTADRESSE H.ERLEGEN..*..ASMPR
G TSX:STX VAR:JSR DOWN:JSR L16304..*$.JM
P $9000.4*%.; ASSEMBLER N.MALISIEREN.Q*&
.BACK JSR DOWN:JSR L16312.N*-.; WIEDER I
N ASM SPRINGEN. *..JSR $9DDB:TSX:CPX VAR
:BNE L7472:JMP DOWN; RTS..*0.L7472 JMP .
Y.T*L.; .. LEERBYTES BIS VARIABCANF...*(
#; ..........................+)#; ... VA
RIABCBEREICH ..../+*#..$C480 ; 48 BYTES
. $C4B0.B+<#TYPE .BYTE $FF.O+A#COMM.S .W
.D SPEICHER:COMM. .W.D SPEICHER..+X$.. .
BYTE .LAST; .5 (PROC.FUN.IN.MEM.PAC)..+Y
$FUNSTART .BYTE FUN..Q+[$FUNSTRANF .W.D
FUNSTRTAB..+\$FUNSTR. .W.D FUNSTRTAB..,^
$FUNTABANF .W.D FUNTAB..,`$FUNTAB. .W.D
FUNTAB.B,C$.ADR .W.D 00 ; ALTES PROGRA
MM.C,E$PRGANF .W.D 00 ; DES NEUEN..,F$
PRG. .W.D 00 ; PROGRAMMS..,.$TITPO. .W
.D 00:TITC .BYTE 0..,.$STRC .BYTE 0.T,.$
COMPC .BYTE 0:INSANF .W.D 00..,.$ADRESSE
N .BYTE 00:USADR .W.D 00..-.$DEVICE .BYT
E 00:VAR .BYTE 00..-.$OBJSTR .F ".OBJ".C
- $PACSTR .F ".PAC"._-.'; ..............
........{-.'; ... PROGRAMMTEIL2 .....-.'
; .......................-T'..$8000.E-N(
; .............................-P(; ...
.ERPRETER PART II ....!..(.CHAR LDA BUFF
ER,X:BPL N.MAL:INX:CMP #$FF:BNE .CHAR:DE
X.G..(; . ALLE ZEICHEN .128 UND $FF.. ..
M.H(N.MAL BIT FLAG:BVS TAKCHAR;.ZEILE...
.(CMP #"?":BEQ CHR63...@); ... AUF .KENS
TESTEN ....D.J)CHECK.KEN STY PNT:STX TX
TPTR...O)STX STRPT:LDA #2:STA STRPT.1:JS
R L575; COMP MIT TABLES.(/P)LDA COMPC:CL
C:ADC TXTPTR:TAX:LDY PNT.X/T)LDA COUNT:B
EQ .FOUND:DEX:CMP ..:BCC TAKCHAR../Y)SEC
:SBC ..:CLC:ADC FUNSTART:BNE TAKCHAR../^
); ...................../V)CHR63 LDA #.:
BNE TAKCHAR.U/.); ...................../
.).FOUND LDA BUFFER,X..0.); ... ZEICHEN
UEBERNEHMEN .....0.); UND AUF ":",.,REM
TESTEN.Q0.)TAKCHAR INX:INY:STA BUFFER.5,
Y.O0.*CMP #0:BEQ .E; . ZEIC.E ...0.*; ..
TEST AUF HOCHKOMMA ....0.*CMP #QUOTE:BE
Q CHR34..0.*; .. TEST AUF ":" ....0.*CMP
#":":BNE L10791:LDA #0:STA FLAG..0&*; .
. TEST AUF . **.-1'*L10791 CMP #.:BNE L1
0801:LDA #64:STA FLAG.D10*; .. TEST AUF
. **.C11*L10801 CMP #.:BNE NEXTCHAR.|1:*
; ....................1]*CHR34 STA CHAR.
.1B*; ... TEXT UEBERNEHMEN .....1L*COPYT
EXT LDA BUFFER,X:INY:INX:STA BUFFER.5,Y.
.2V*CMP CHAR:BEQ .CHAR:CMP #0:BNE COPYTE
XT..2{*.E RTS; ZEIC.E.92D2; ............
..........U2E2; .. FILE BEARBEITEN ...Y2
N2L12910 LDX #11:JMP ERR.; SYNTAX..2X2;
... HEADER LESEN .....2Y2; ... "NUR BEI
PACK:".Q2Z2; .. "PROCEDURE ODER FUNCTION
"..3.2PAC2 JSR COMPARE2:SEC:SBC #.START:
CMP #2:BCS L12910.N3.2E. #1:STA TYPE:LDA
COMPC:JSR ADDSTRP:JSR .CHR:CPX #32:BNE
L12910.R3L2JSR L4165; DEKLTEST UP:LDY #$
FF..3R2; ... STRC BESTIMMEN ....M3T2L130
12 INY:LDA (STRPT),Y:BEQ L12910:CMP #QUO
TE:BEQ L12910..3V2CMP #",":BEQ L13020:CM
P #":":BNE L13012./4.2L13020 STY STRC:JS
R EINBAUEN:LDA STRC:JSR ADDSTRP.N4.2LDA
TYPE:BEQ L13030:JSR PROC2:BNE L13040:L13
030 JSR FUNCT2..4.2L13040 LDA PRGANF:CLC
:ADC #3:STA PRGANF:BCC L13045:INC PRGANF
.1..4.2L13045 JSR .CHR:CPX #",":BEQ PAC2
:CPX #":":BNE L12910..5.3LDA DEVICE:BEQ
DECL2:JSR INPSTRING.35,3; ..............
............P5.3; . 'PROGRAM' ODER 'U.G'
.U503; . "PACK" UND SOLO.DEKLARATI.EN..5
43DECL2 JSR TXVERGL; X 0.US,1.PRG:TXA:BN
E L13210.H563JSR .CHR:CPX #32:BNE L13452
..5;3; .. U.G.STATEMENT BEARBEITEN..6@3L
13120 JSR COMPARE2:BEQ L13450.'6D3LDA CO
MPC:JSR ADDSTRP.H6F3JSR .CHR:CPX #",":BN
E L13452.A6H3JSR U.GADR:JSR BUFF...6O3LD
A USADR:CLC:ADC $65:PHA:LDA USADR.1:ADC
$64:PHA:INC ADRESSEN..6T3JSR .CHR:CPX #"
,":BEQ L13120:CPX #":":BNE L13452; SYNTA
X..7V3LDA DEVICE:BEQ L13144:JSR INPSTRIN
G.-7W3; .. HEADER.TEST AUF "PROGRAM:".S7
X3L13144 JSR TXVERGL:TXA:BEQ L13452.X7.3
; .. "PROGRAM:" .. PRGTEIL LADEN. 7.3L13
210 JSR .CHR:CPX #":":BNE L13452..7.3LDA
COMM.:STA PRGANF:LDA COMM..1:STA PRGANF
.1:JSR INPRG..8.3; . GGF. U.G.ADRESSEN E
INSETZEN..8.3; . U.GAUSW NICHT MIT JSR.W
8.3LDA ADRESSEN:BEQ L13230:JMP U.GAUSW;
MIT JMP ZURUECK.Q8.3; .. COMM.S..E SETZE
N..8.3L13230 LDA PRG.:STA COMM.:LDA PRG.
.1:STA COMM..1:RTS.F8V4; ...............
........8W4; .. FEHLERMELDUNGEN ....9.4L
13450 LDX #17:.BYTE $2C; UN.'D STATEMENT
.49.4L13452 LDX #11:JMP ERR.; SYNTAX.Z9.
4; ................................~9.4;
. (STRPT) MIT 'U.G','PROGRAM'..9.4; . V
ERGL. X .. 0.U.G,1.PROGRAM..9F4TXVERGL L
DA #.USTAB:STA HI:LDA #.USTAB:STA LO:LDA
#0:STA COUNT..:P4JSR COMPSUB:BEQ L13452
.':T4. #1:TAX:LDA COMPC:BNE ADDSTRP;RTS.
L: 5; ...............................N:!
5; . . CHAR BEI (STRPT) .. X ...:"5; . U
ND STRPT INC.ENT..:%5.CHR LDY #0:LDA (ST
RPT),Y:TAX:LDA #1.U:(5; ... AKKU ZU STRP
T ADDIEREN ....;*5ADDSTRP CLC:ADC STRPT:
STA STRPT:BCC L13612:INC STRPT.1..;,5L13
612 RTS.B;.5; ..........................
...E;.5; . COMMAMD (STRP) EINBAUEN ....;
.5; . STRINGTABELLE SCHIEBEN..;.5; . FUN
STR. . C..;.5EINBAUEN LDX STRC:LDA FUNST
RANF:STA INSANF:LDA FUNSTRANF.1:STA INSA
NF.1..<.5LDA FUNSTR.:STA LO:CLC:ADC STRC
:STA FUNSTR..M<.5LDA FUNSTR..1:STA HI:AD
C #0:STA FUNSTR..1:JSR INSERT.J<.5; ...
STRING IN .TAB ....U<.5LDY #0..<.5L13722
LDA (STRPT),Y:STA (LO),Y:INY:CPY STRC:B
NE L13722.W<.5DEY:LDA (LO),Y:.A #$80:STA
(LO),Y..<.5; . ADRESSENTABELLE SCHIEBEN
..=.5; . FUNTAB. . 2.M=.5LDX #2:LDA FUNT
ABANF:STA INSANF:LDA FUNTABANF.1:STA INS
ANF.1.{=.5LDA FUNTAB.:STA LO:CLC:ADC #2:
STA FUNTAB...=.5LDA FUNTAB..1:STA HI:ADC
#0:STA FUNTAB..1:JSR INSERT.U=R5; ... A
NF.ADR IN TABELLE .....=S5; ... PROCS
ADR.ANF.1 ....(>T5LDY #0:SEC:LDA PRGANF
:SBC TYPE:STA (LO),Y:INY.O>X5LDA PRGANF.
1:SBC #0:STA (LO),Y:RTS.U>.9; ..........
.......................>.9; .. U.G.ADRES
SE NACH USADR ....>.9; IN COUNT U.G..KE
N.NR..>.9U.GADR LDA COUNT:SBC #.START:AS
L A:TAY..>.9LDA ..:CLC:SBC COUNT..?.9; P
ROC .. CARRY SET .. ADRESSE.1.@? 9; FUNC
.. CARRY . .. ADRESSE.0.F?.9; . TAB.ADR
ESSE .CARRY .. USADR ...?.9LDA #..TAB:ST
A LO:LDA #..TAB:STA HI..?.9LDA (LO),Y:AD
C #0:STA USADR.X?.9INY:LDA (LO),Y:ADC #0
:STA USADR.1:RTS..?P9; .................
..............@Q9; . PROGRAMMTEIL V. DIS
K ..C@R9; . TEIL2 . ADRESSEN ANPASSE
N ..~@.9ADRANP LDA COMM.:STA COUNTER:LDA
COMM..1:STA COUNTER.1. @.:; .. PRGC (A.
Y). HI.LO.PRGANF.O@.:LDA LO:STA PRG.:SEC
:SBC PRGANF:TAX;PRGC.LO..@.:LDA HI:STA P
RG..1:SBC PRGANF.1:TAY;PRGC.HI. A.:; ..
.ADR.STARTADR.PRGC (A.Y).BA.:TXA:CLC:ADC
STARTADR:STA .ADR.DA.:TYA:ADC STARTADR.
1:STA .ADR.1..A4:; .....................
............A6:; .. .OLUTE ADRESSEN SUCH
EN ....TA7:; .. BIS UNBRAUCHBARES ZEICHE
N ....A8:; .. Z.B. $FF ...%B>:ADAPT LDY
#0:LDA (COUNTER),Y:CMP #$FF:BEQ L4924:TA
X:DEY.\B?:L14911 INY:TXA:. MASKTAB,Y:CMP
BITTAB,Y:BNE L14911..BB:LDA CTAB,Y:CMP
#3:BNE L4918:PHA:JSR .OLUT:PLA.LBF:L4918
CLC:ADC COUNTER:STA COUNTER:BCC L4920:I
NC COUNTER.1..CH:L4920 SEC:SBC PRG.:LDA
COUNTER.1:SBC PRG..1:BCC ADAPT..CL:L4924
RTS.8CF:; ... .OLUTE ADR . STARTADRESSE
.JCJ:.OLUT LDY #1:SEC:LDA (COUNTER),Y:SB
C STARTADR..CL:INY:LDA (COUNTER),Y:SBC S
TARTADR.1:BCC L4988..CU:; ... ..ADR . .A
DRESSE..CZ:LDY #1:SEC:LDA .ADR:SBC (COUN
TER),Y..D|:INY:LDA .ADR.1:SBC (COUNTER),
Y:BCC L4988.)D.:; ... ..ADR. ANPASSEN ..
..CD.:L4982 LDY #1:LDA (COUNTER),Y:SEC:S
BC STARTADR:TAX; LO..D.:INY:LDA (COUNTER
),Y:SBC STARTADR.1:PHA; HI..D.:DEY:TXA:C
LC:ADC PRGANF:STA (COUNTER),Y..D.:INY:PL
A:ADC PRGANF.1:STA (COUNTER),Y:L4988 RTS
..E.:; ..............................6E.
:; .. U.G.PLAETZE SUCHEN ..XE.:; ..
ADRESSEN AUS STACK HOC ..|E.:; .. UND E
INSETZEN ...E.:U.GAUSW TSX:TXA
:CLC:ADC ADRESSEN:ADC ADRESSEN:TAX:TXS..
E.:LDA PRGANF:STA COUNTER:LDA PRGANF.1:S
TA COUNTER.1.4F.:L15005 LDY #0:LDA (COUN
TER),Y:INY:. (COUNTER),Y:CMP #$FF:BEQ AD
REIN.]F :INC COUNTER:BNE L15010:INC COUN
TER.1..F.:L15010 SEC:LDA COUNTER:SBC PRG
.:LDA COUNTER.1:SBC PRG..1:BCC L15005.IF
.:; .. KEIN PLATZ FUER U.G.ADR ....F.:LD
X #13:JMP ERR.; OUT OF . ERROR..G.:; ..
ADR AUS STACK.BEREICH HOC.<G.:ADREIN LDA
$0100,X:DEY:STA (COUNTER),Y.HG.:INY:DEX
:LDA $0100,X:STA (COUNTER),Y:DEX..G.:DEC
ADRESSEN:BNE L15005:JMP L13230; PRAKTIS
CH RTS..G.<; ... PLATZ SCHAFFEN ....XG.<
; .. IM X.REG ANZAHL .....G.<; .. V. INS
ANF BIS LO.HI ....H.<INSERT STX VAR.:H.<
L5605 LDY #0:LDA (LO),Y:LDY VAR:STA (LO)
,Y.RH.<SEC:LDA INSANF:SBC LO:LDA INSANF.
1:SBC HI:BCS L5620..H.<DEC LO:LDA LO:CMP
#$FF:BNE L5605:DEC HI:BNE L5605..H.=L56
20 RTS.ZHT@; ...........................
....HU@; ... .TEM INITIALISIEREN ....0IX
@L16504 LDA #.LAST:STA ..:LDA #FUN.:STA
FUNSTART.^IZ@LDA #.FUNSTRTAB:STA FUNSTRA
NF:STA FUNSTR...I{@LDA #.FUNSTRTAB:STA F
UNSTRANF.1:STA FUNSTR..1..I~@LDA #.FUNTA
B:STA FUNTABANF:STA FUNTAB...I@LDA #.FU
NTAB:STA FUNTABANF.1:STA FUNTAB..1..J.@L
DA COMM.S:STA COMM.:LDA COMM.S.1:STA COM
M..1.DJ.@LDA #0:STA FUNTAB:STA FUNTAB.1:
STA FUNSTRTAB:STA FUNSTRTAB.1:JMP UP.J.
B; ... DISASS.DATEN .... J.B; BYTES PRO
BEFEHL $00 . $FF..J.B.BYTE $FF.WJ.BMASKT
AB .BYTE %00001100;$XC,XD,XE,XF..J.B.BYT
E %11111111;$20..K.B.BYTE %10011111;$00,
40,60.(K.B.BYTE %00001000;$X0.X7.CK.B.BY
TE %00001101;$X8,XA.DK.B.BYTE %00011101;
HI 2X.LO 9,B.K.B.BYTE %11011111;$9B,BB.
.K.B.BYTE %00011101;HI(2X.1).LO 9,B..K.B
BITTAB .BYTE %00001100.RK.B.BYTE %001000
00..K.B.BYTE %00000000..K.B.BYTE %000000
00..L.B.BYTE %00001000."L.B.BYTE %000010
01.6L.B.BYTE %10011011.JL.B.BYTE %000110
01.IL.BCTAB .BYTE 3,3,1,2,1,2,1,3..L|G;
...............................L}G; ...
PROGRAMM ASSEMBLIEREN ....NL~G; STARTADR
ESSE H.ERLEGEN..M.GL16304 LDA COMM.:STA
$902E:LDA COMM..1:STA $9032..M.G; ASM VE
RA.ERN.-M.GLDA #$2C:STA $9620.UM.GLDA #$
4C:STA $986C:LDA #.BACK:STA $986E:LDA #.
BACK:STA $986D:JMP UP..M.G; ASM N.MALISI
EREN..M.GL16312 LDA #$A2:STA $9620..M.GL
DA #$20:STA $986C:LDA #$9D:STA $986E:LDA
#$DB:STA $986D..M.G; .ADRESSE BES.GEN.&
N.GLDA $4F:STA PRG.:LDA $50:STA PRG..1.1
N.GJMP UP.>N.O.. $C400.YN.O; .TAB.FUNTAB
. 128BYTES, MAX. 51 E.RAEGE .. BIS $CC7
F..N.O; ... ADRESSENTABELLE .....N.P.TAB
.W.D PROCEDURE.1.DN.P.W.D FUNCTI..1.TN
P.W.D PACK.1..N!P.W.D MEM.Y.1..N"P.W.D I
NIT.1..O0PFUNTAB .W.D 00.-O:P; $C480 VAR
IABCSPEICHER 48 BYTES.9OCP..$C4B0.NONPUS
TAB .F "USING"._OPP.F "PROGRAM".LORP.BYT
E 00..O~P; .... STRINGTABELLE .....O.P.T
AB .F "PROCEDURE"..O.P.F "FUNCTION".AO.P
.F "PACK".QO.P.F "MEMORY"..O.P.F "INIT".
.O.PFUNSTRTAB .W.D 00..PF...$304:.BYTE .
.KEN.,..KEN..3PP...$306:.BYTE ..KEN.,..K
EN..LPZ...$308:.BYTE ...,....IP....$30A:
.BYTE ..FUN,..FUN..P4.; ...... PROGRAMMT
EIL 2 ..........P5.; ... NACH $D400 UEBE
RTRAGEN ....FP>...$7000; 28672..P?.; ADR
ESSEN IN PRGTEIL1 A.ERN..QB.LDA #.PRG3A:
STA STARTADR:LDA #.PRG3A:STA STARTADR.1.
OQD.LDA #.PRG3E:STA .ADR:LDA #.PRG3E:STA
.ADR.1..QH.LDA #.PRG1A:STA COUNTER:LDA
#.PRG1A:STA COUNTER.1..QJ.LDA #.PRG1E:ST
A PRG.:LDA #.PRG1E:STA PRG..1..QR.LDA #.
PRG4A:STA PRGANF:LDA #.PRG4A:STA PRGANF.
1..RW.JSR DOWN:JSR ADAPT:JSR DOWN.(R..;
PRGTEIL3 NACH DESTINATI..RR..LDA #.PRG3A
:STA LO:LDA #.PRG3A:STA HI..R..LDA #.PRG
4A:STA LO2:LDA #.PRG4A:STA HI2:LDX #4:LD
Y #$FF:JSR TRANSFER..R..; ADRESSEN IN PR
GTEIL3 A.ERN..R..LDA #.PRG3A:STA STARTAD
R:LDA #.PRG3A:STA STARTADR.1.$S..LDA #.P
RG3E:STA .ADR:LDA #.PRG3E:STA .ADR.1.RS.
.LDA #.PRG4A:STA COUNTER:STA PRGANF:LDA
#.PRG4A:STA COUNTER.1:STA PRGANF.1..S..L
DA #.PRG4E:STA PRG.:LDA #.PRG4E:STA PRG.
.1..SE.JSR DOWN:JSR ADAPT:JMP UP..S..; .
.. ALLES .TERKOPIEREN .....T..; ... PROG
RAMMTEILE SAMMELN ....#T..; ... TEIL2 BE
I $D400 ....5T....$7200;29184.OT..JSR DO
WN:LDY #0:STY 2.OT..L44032 LDA COPYTAB,Y
:STA LO..T..LDA COPYTAB.1,Y:STA HI..T..L
DA COPYTAB.2,Y:STA LO2.BT..LDA COPYTAB.3
,Y:STA HI2.ZT..LDA COPYTAB.4,Y:TAX..T..L
DA COPYTAB.5,Y:TAY.1U..JSR TRANSFER:LDA
2:CLC:ADC #6:STA 2:TAY:CMP #30:BNE L4403
2.NU..; ... TEIL0 ANPASSEN .....U..LDA #
.PRG0A:STA STARTADR:LDA #.PRG0A:STA STAR
TADR.1..U..LDA #.PRG0E:STA .ADR:LDA #.PR
G0E:STA .ADR.1..U..LDA #.MID0:STA COUNTE
R:LDA #.MID0:STA COUNTER.1..V..LDA #$FF:
STA PRG.:LDA #8:STA PRG..1.<V&.LDA #0:ST
A PRGANF:LDA #8:STA PRGANF.1.QV+.JSR ADA
PT:JMP UP.]VPC..$7300.UVQC; ... .PROGRAM
M .....VRC; ... 40 BYTES $0800.0827 ....
.VSC.BYTE 0,34,8,196,7,158,32,50.ZVTC.BY
TE 48,56,56,44,51,50,55,54..VVC.BYTE 56,
32,66,89,32,87,79,76..WXC.BYTE 70,71,65,
78,71,32,77,65.@WZC.BYTE 89,00,00,00,00,
00,00,00.HWDC; ... PROGRAMM VERTEIC AB
$0828 ....WICSEI:LDA 1:. #248:STA 1:LDY
#0:STY 2..WPCL50032 LDA COPYTAB,Y:STA LO
2.MWRCLDA COPYTAB.1,Y:STA HI2..WTCLDA CO
PYTAB.2,Y:STA LO..XVCLDA COPYTAB.3,Y:STA
HI..XXCLDA COPYTAB.4,Y:TAX.3XZCLDA COPY
TAB.5,Y:TAY.RX|CJSR TRANSFER:LDA 2:CLC:A
DC #6:STA 2:TAY:CMP #24:BNE L50032..X.C;
... VEK.REN SETZEN .....X CLDA #..KEN.:
STA $0304:LDA #..KEN.:STA $0305..X.CLDA
#..KEN.:STA $0306:LDA #..KEN.:STA $0307.
.Y.CLDA #...:STA $0308:LDA #...:STA $030
9.GY.CLDA #..FUN:STA $030A:LDA #..FUN:ST
A $030B.AY.CLDA 1:.A #7:STA 1:CLI..Y.C;
.. ANF.ADR DES PROCEDURESPEICHERS ABLEGE
N .....Y.CJSR CKCOM:JSR $AD8A:JSR $BC9B.
.Y.CLDA $65:STA COMM.S:STA COMM.:LDA $64
:STA COMM.S.1:STA COMM..1.0Z.C; .. BASIC
.E $37.38 ODER ANF.ADR PROCEDURESP. ..
.GZ.CCMP $38:BCS L50106..Z.CSTA $34:STA
$36:STA $38:LDA $65:STA $33:STA $35:STA
$37..Z.CL50106 JSR $A644; .:JMP $A7AE..Z
.D; ... COPY ROUTINE .....Z.DTRANSFER LD
A (LO),Y:STA (LO2),Y:DEY:CPY #$FF:BNE TR
ANSFER.&[.DINC HI:INC HI2:DEX:BNE TRANSF
ER:RTS.<[|D; ... COPYTAB ....E[~DCOPYTAB
.W.D $C000,$0900:.BYTE 4,$FF..[.D.W.D $
D400,$0D00:.BYTE 4,$FF..[.D.W.D $C400,$1
100:.BYTE 1,12.G[.D.W.D $C480,$1110:.BYT
E 1,$80..[.D.W.D $7300,$0800:.BYTE 1,$FF
..[.DMID0 . $0828..\_...:.......F "S....
...
> CLICK IMAGE PREVIEW FOR FULL MODAL