DIR
FILE INFORMATION
FILENAME(S): DIR
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 21:24:05
APPEARS ON: 1 disk(s)
FILE HASH
70d3c7602d53714332cba55900f3a531ccd50b5e70d839495547ae1c577ed6f5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HERMAN | DIR | PRG | DuncanTwain | 19 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 4F 55 54 20 34 00 2D 08 14 00 |......OUT 4.-...| 00000010: AC B2 24 43 41 30 30 20 21 50 52 4F 47 52 41 4D |..$CA00 !PROGRAM| 00000020: 20 44 49 52 20 56 49 41 20 43 43 30 30 00 50 08 | DIR VIA CC00.P.| 00000030: 1E 00 4C 4C 42 42 B2 24 38 30 38 30 20 21 56 4F |..LLBB.$8080 !VO| 00000040: B0 20 45 50 52 4F 4D 20 47 45 53 43 48 49 4B 54 |. EPROM GESCHIKT| 00000050: 00 76 08 28 00 42 34 B2 24 38 30 44 44 20 21 47 |.v.(.B4.$80DD !G| 00000060: 45 4D 41 41 4B 54 20 4F 50 20 38 30 30 30 20 30 |EMAAKT OP 8000 0| 00000070: 33 AD 37 AD 38 35 00 90 08 32 00 57 B0 20 24 38 |3.7.85...2.W. $8| 00000080: 30 30 39 20 21 4B 4F 55 44 45 20 53 54 41 52 54 |009 !KOUDE START| 00000090: 00 AA 08 3C 00 57 B0 20 24 38 30 30 19 20 21 57 |...<.W. $800. !W| 000000A0: 41 52 4D 45 20 53 54 41 52 54 00 B6 08 46 00 42 |ARME START...F.B| 000000B0: 59 54 20 24 43 33 00 C2 08 50 00 42 59 54 20 24 |YT $C3...P.BYT $| 000000C0: 43 32 00 CE 08 5A 00 42 59 54 20 24 43 44 00 DA |C2...Z.BYT $CD..| 000000D0: 08 64 00 42 59 54 20 24 33 38 00 E6 08 6E 00 42 |.d.BYT $38...n.B| 000000E0: 59 54 20 24 33 30 00 FA 08 78 00 53 54 58 20 24 |YT $30...x.STX $| 000000F0: 44 30 31 36 20 21 49 4E 49 54 00 08 09 82 00 4A |D016 !INIT.....J| 00000100: 53 52 20 24 46 44 41 33 00 16 09 8C 00 4A 53 52 |SR $FDA3.....JSR| 00000110: 20 24 46 44 35 30 00 24 09 96 00 4A 53 52 20 24 | $FD50.$...JSR $| 00000120: 46 44 31 35 00 32 09 A0 00 4A 53 52 20 24 46 46 |FD15.2...JSR $FF| 00000130: 35 42 00 3A 09 AA 00 43 4C 49 00 48 09 B4 00 4A |5B.:...CLI.H...J| 00000140: 53 52 20 24 45 34 35 33 00 56 09 BE 00 4A 53 52 |SR $E453.V...JSR| 00000150: 20 24 45 33 42 46 00 64 09 C8 00 4A 53 52 20 24 | $E3BF.d...JSR $| 00000160: 45 34 32 32 00 71 09 D2 00 4C 44 58 20 23 24 46 |E422.q...LDX #$F| 00000170: 42 00 82 09 DC 00 54 58 53 20 21 93 20 53 54 41 |B.....TXS !. STA| 00000180: 43 4B 00 A0 09 E6 00 4C 44 41 20 23 24 30 35 20 |CK.....LDA #$05 | 00000190: 21 53 45 54 20 56 45 52 54 20 49 4E 20 53 45 43 |!SET VERT IN SEC| 000001A0: 00 C1 09 F0 00 4A 53 52 20 24 38 30 38 31 20 21 |.....JSR $8081 !| 000001B0: 43 41 4C 4C 20 53 55 42 AC AC AC AC AC AC AC AC |CALL SUB........| 000001C0: AC 00 D1 09 FA 00 54 58 54 20 22 53 54 41 52 54 |......TXT "START| 000001D0: 22 00 ED 09 04 01 4C 44 41 20 23 24 38 20 21 4C |".....LDA #$8 !L| 000001E0: 41 41 44 20 44 45 56 49 43 45 20 4E 52 00 0E 0A |AAD DEVICE NR...| 000001F0: 0E 01 4C 44 58 20 23 24 30 38 20 21 53 45 54 20 |..LDX #$08 !SET | 00000200: BC 49 43 41 4C 20 46 49 4C 45 20 4E 52 32 00 2F |.ICAL FILE NR2./| 00000210: 0A 18 01 4C 44 59 20 23 24 30 38 20 21 53 45 54 |...LDY #$08 !SET| 00000220: 20 9D 20 4F 50 20 44 45 56 49 43 45 20 4E 52 00 | . OP DEVICE NR.| 00000230: 46 0A 22 01 4A 53 52 20 24 46 46 42 41 20 21 53 |F.".JSR $FFBA !S| 00000240: 45 54 20 4C 46 53 00 69 0A 2C 01 4C 44 41 20 23 |ET LFS.i.,.LDA #| 00000250: 24 30 35 20 21 53 45 54 20 41 41 4E 54 41 4C 20 |$05 !SET AANTAL | 00000260: 88 54 52 53 20 4E 41 41 4D 00 89 0A 36 01 4C 44 |.TRS NAAM...6.LD| 00000270: 58 20 23 24 32 41 20 21 AC AC AC AC AC AC AC AC |X #$2A !........| 00000280: AC AC AC AC AC AC AC AC AC 00 AA 0A 40 01 4C 44 |............@.LD| 00000290: 59 20 23 24 38 30 20 21 53 45 54 20 41 44 52 20 |Y #$80 !SET ADR | 000002A0: 46 49 C3 41 4D 45 AC AC AC AC 00 C6 0A 4A 01 4A |FI.AME.......J.J| 000002B0: 53 52 20 24 46 46 42 44 20 21 43 41 4C 4C 20 53 |SR $FFBD !CALL S| 000002C0: 45 54 4E 41 4D 45 00 E5 0A 54 01 4C 44 41 20 23 |ETNAME...T.LDA #| 000002D0: 24 30 20 21 53 45 54 20 41 43 20 56 4F B0 20 93 |$0 !SET AC VO. .| 000002E0: 20 44 49 53 43 00 F2 0A 5E 01 4C 44 59 20 23 24 | DISC...^.LDY #$| 000002F0: 46 46 00 FF 0A 68 01 4C 44 58 20 23 24 46 46 00 |FF...h.LDX #$FF.| 00000300: 1A 0B 72 01 4A 53 52 20 24 46 46 44 35 20 21 43 |..r.JSR $FFD5 !C| 00000310: 41 4C 4C 20 93 20 44 49 53 43 00 27 0B 7C 01 42 |ALL . DISC.'.|.B| 00000320: 43 43 20 4C 41 42 33 00 37 0B 86 01 54 41 58 20 |CC LAB3.7...TAX | 00000330: 21 94 20 41 43 43 55 00 51 0B 90 01 44 45 58 20 |!. ACCU.Q...DEX | 00000340: 21 54 45 53 54 20 4F 50 20 46 49 4C 45 20 A8 20 |!TEST OP FILE . | 00000350: D2 00 59 0B 9A 01 44 45 58 00 61 0B A4 01 44 45 |..Y...DEX.a...DE| 00000360: 58 00 69 0B AE 01 44 45 58 00 85 0B B8 01 42 4E |X.i...DEX.....BN| 00000370: 45 20 4C 41 42 34 20 21 42 49 4A 20 45 52 52 B0 |E LAB4 !BIJ ERR.| 00000380: 20 41 42 B0 54 00 9A 0B C2 01 4C 44 41 20 23 24 | AB.T.....LDA #$| 00000390: 30 38 20 21 A0 20 46 49 4C 45 00 A8 0B CC 01 4A |08 !. FILE.....J| 000003A0: 53 52 20 24 46 46 43 33 00 B5 0B D6 01 4C 44 41 |SR $FFC3.....LDA| 000003B0: 20 23 24 30 35 00 D5 0B E0 01 4A 53 52 20 24 38 | #$05.....JSR $8| 000003C0: 30 38 31 20 21 43 41 4C 4C 20 53 45 43 AC AC AC |081 !CALL SEC...| 000003D0: AC AC AC AC AC 00 FA 0B EA 01 4A 53 52 20 24 38 |..........JSR $8| 000003E0: 30 39 31 20 21 53 45 54 20 44 49 52 20 4F 50 20 |091 !SET DIR OP | 000003F0: 53 43 48 45 52 4D AC AC AC AC 00 0C 0C F4 01 4A |SCHERM.........J| 00000400: 4D 50 20 4C 4C 42 42 20 21 89 20 80 00 26 0C FE |MP LLBB !. ..&..| 00000410: 01 4C 41 42 33 20 4C 44 41 20 23 24 30 38 20 21 |.LAB3 LDA #$08 !| 00000420: A0 20 46 49 4C 45 00 34 0C 08 02 4A 53 52 20 24 |. FILE.4...JSR $| 00000430: 46 46 43 33 00 56 0C 12 02 4C 44 41 20 23 24 30 |FFC3.V...LDA #$0| 00000440: 34 20 21 53 45 54 20 4B 45 42 4F 41 52 44 20 43 |4 !SET KEBOARD C| 00000450: 4F 55 4E 54 45 52 00 62 0C 1C 02 53 54 41 20 31 |OUNTER.b...STA 1| 00000460: 39 38 00 74 0C 26 02 4C 44 41 20 23 24 35 32 20 |98.t.&.LDA #$52 | 00000470: 21 22 52 22 00 93 0C 30 02 53 54 41 20 36 33 31 |!"R"...0.STA 631| 00000480: 20 21 93 20 4B 45 59 42 4F 41 52 44 20 42 55 46 | !. KEYBOARD BUF| 00000490: 46 45 52 00 A3 0C 3A 02 4C 44 41 20 23 24 35 35 |FER...:.LDA #$55| 000004A0: 20 21 55 00 AF 0C 44 02 53 54 41 20 36 33 32 00 | !U...D.STA 632.| 000004B0: BF 0C 4E 02 4C 44 41 20 23 24 34 45 20 21 4E 00 |..N.LDA #$4E !N.| 000004C0: CB 0C 58 02 53 54 41 20 36 33 33 00 E3 0C 62 02 |..X.STA 633...b.| 000004D0: 4C 44 41 20 23 24 30 44 20 21 43 41 52 49 41 47 |LDA #$0D !CARIAG| 000004E0: 45 20 8E 00 EF 0C 6C 02 53 54 41 20 36 33 34 00 |E ....l.STA 634.| 000004F0: 02 0D 76 02 4C 41 42 34 20 52 54 53 20 21 4C 41 |..v.LAB4 RTS !LA| 00000500: 42 34 00 26 0D 80 02 4C 44 59 20 23 24 46 46 20 |B4.&...LDY #$FF | 00000510: 21 53 54 41 52 54 20 56 45 52 54 52 41 47 20 53 |!START VERTRAG S| 00000520: 55 42 52 AC AC AC 00 44 0D 8A 02 4C 41 42 32 20 |UBR....D...LAB2 | 00000530: 4C 44 58 20 23 24 46 46 20 21 53 45 54 20 56 52 |LDX #$FF !SET VR| 00000540: 54 20 49 4E 00 5E 0D 94 02 4C 41 42 31 20 44 45 |T IN.^...LAB1 DE| 00000550: 58 20 21 53 45 43 20 49 4E 20 41 43 43 55 00 77 |X !SEC IN ACCU.w| 00000560: 0D 9E 02 42 4E 45 20 4C 41 42 31 20 21 A7 20 43 |...BNE LAB1 !. C| 00000570: 41 4C 4C 20 53 55 42 00 7F 0D A8 02 44 45 59 00 |ALL SUB.....DEY.| 00000580: 8C 0D B2 02 42 4E 45 20 4C 41 42 32 00 94 0D BC |....BNE LAB2....| 00000590: 02 54 41 58 00 9C 0D C6 02 44 45 58 00 A4 0D D0 |.TAX.....DEX....| 000005A0: 02 54 58 41 00 B1 0D DA 02 42 4E 45 20 4C 41 42 |.TXA.....BNE LAB| 000005B0: 32 00 B9 0D E4 02 52 54 53 00 D9 0D EE 02 4C 44 |2.....RTS.....LD| 000005C0: 41 20 23 24 32 34 20 21 53 45 54 20 22 24 22 20 |A #$24 !SET "$" | 000005D0: 46 49 4C 45 20 4E 41 4D 45 00 E5 0D F8 02 53 54 |FILE NAME.....ST| 000005E0: 41 20 24 46 42 00 05 0E 02 03 4C 44 41 20 23 24 |A $FB.....LDA #$| 000005F0: 46 42 20 21 53 45 54 20 50 4F B5 45 52 20 4F 50 |FB !SET PO.ER OP| 00000600: 20 46 49 4C 45 00 11 0E 0C 03 53 54 41 20 24 42 | FILE.....STA $B| 00000610: 42 00 1D 0E 16 03 4C 44 41 20 23 30 30 00 29 0E |B.....LDA #00.).| 00000620: 20 03 53 54 41 20 24 42 43 00 45 0E 2A 03 4C 44 | .STA $BC.E.*.LD| 00000630: 41 20 23 24 30 31 20 21 53 45 54 20 C3 47 54 45 |A #$01 !SET .GTE| 00000640: 20 4E 41 4D 45 00 51 0E 34 03 53 54 41 20 24 42 | NAME.Q.4.STA $B| 00000650: 37 00 71 0E 3E 03 4C 44 41 20 23 24 30 38 20 21 |7.q.>.LDA #$08 !| 00000660: 53 45 54 20 44 45 56 49 43 45 20 4E 55 4D 4D 45 |SET DEVICE NUMME| 00000670: 52 00 7D 0E 48 03 53 54 41 20 24 42 41 00 9E 0E |R.}.H.STA $BA...| 00000680: 52 03 4C 44 41 20 23 24 36 30 20 21 53 45 54 20 |R.LDA #$60 !SET | 00000690: 53 45 43 44 41 52 59 20 41 44 44 52 45 53 00 AA |SECDARY ADDRES..| 000006A0: 0E 5C 03 53 54 41 20 24 42 39 00 B8 0E 66 03 4A |.\.STA $B9...f.J| 000006B0: 53 52 20 24 46 33 44 35 00 D9 0E 70 03 4C 44 41 |SR $F3D5...p.LDA| 000006C0: 20 24 42 41 20 21 93 20 43 55 52 52 45 4E 54 20 | $BA !. CURRENT | 000006D0: 44 45 56 49 43 45 20 4E 52 00 E9 0E 7A 03 4A 53 |DEVICE NR...z.JS| 000006E0: 52 20 24 46 46 42 34 20 21 00 03 0F 84 03 4C 44 |R $FFB4 !.....LD| 000006F0: 41 20 24 42 39 20 21 93 20 53 45 43 20 41 44 44 |A $B9 !. SEC ADD| 00000700: 52 45 53 00 11 0F 8E 03 4A 53 52 20 24 46 46 39 |RES.....JSR $FF9| 00000710: 36 00 1E 0F 98 03 4C 44 41 20 23 24 30 30 00 41 |6.....LDA #$00.A| 00000720: 0F A2 03 53 54 41 20 24 39 30 20 21 53 45 54 20 |...STA $90 !SET | 00000730: 4B 45 52 4E 41 4C 20 49 AD 4F 20 53 54 41 54 55 |KERNAL I.O STATU| 00000740: 53 00 4E 0F AC 03 4C 44 59 20 23 24 30 33 00 5D |S.N...LDY #$03.]| 00000750: 0F B6 03 42 32 20 53 54 59 20 24 46 42 00 82 0F |...B2 STY $FB...| 00000760: C0 03 4A 53 52 20 24 46 46 41 35 20 21 4C 45 45 |..JSR $FFA5 !LEE| 00000770: 53 20 42 59 54 20 56 41 4E 20 53 45 52 3A 50 4F |S BYT VAN SER:PO| 00000780: B0 54 00 8E 0F CA 03 53 54 41 20 24 46 43 00 9A |.T.....STA $FC..| 00000790: 0F D4 03 4C 44 59 20 24 39 30 00 B5 0F DE 03 42 |...LDY $90.....B| 000007A0: 4E 45 20 42 31 20 21 54 45 53 54 20 4F 50 20 53 |NE B1 !TEST OP S| 000007B0: 54 41 54 55 53 00 CF 0F E8 03 4A 53 52 20 24 46 |TATUS.....JSR $F| 000007C0: 46 41 35 20 21 4C 45 45 53 20 82 20 42 59 54 00 |FA5 !LEES . BYT.| 000007D0: DB 0F F2 03 4C 44 59 20 24 39 30 00 E6 0F FC 03 |....LDY $90.....| 000007E0: 42 4E 45 20 42 31 00 F2 0F 06 04 4C 44 59 20 24 |BNE B1.....LDY $| 000007F0: 46 42 00 FA 0F 10 04 44 45 59 00 05 10 1A 04 42 |FB.....DEY.....B| 00000800: 4E 45 20 42 32 00 11 10 24 04 4C 44 58 20 24 46 |NE B2...$.LDX $F| 00000810: 43 00 1F 10 2E 04 4A 53 52 20 24 42 44 43 44 00 |C.....JSR $BDCD.| 00000820: 37 10 38 04 4C 44 41 20 23 24 32 30 20 21 9F 20 |7.8.LDA #$20 !. | 00000830: 43 48 41 4E 4E 45 4C 00 45 10 42 04 4A 53 52 20 |CHANNEL.E.B.JSR | 00000840: 24 46 46 44 32 00 5F 10 4C 04 4A 53 52 20 24 46 |$FFD2._.L.JSR $F| 00000850: 46 41 35 20 21 42 34 20 87 20 24 46 46 41 35 00 |FA5 !B4 . $FFA5.| 00000860: 6B 10 56 04 4C 44 58 20 24 39 30 00 76 10 60 04 |k.V.LDX $90.v.`.| 00000870: 42 4E 45 20 42 31 00 7E 10 6A 04 54 41 58 00 89 |BNE B1.~.j.TAX..| 00000880: 10 74 04 42 45 51 20 42 33 00 AA 10 7E 04 4A 53 |.t.BEQ B3...~.JS| 00000890: 52 20 24 46 46 44 32 20 21 53 45 54 20 43 48 52 |R $FFD2 !SET CHR| 000008A0: 20 4F 50 20 44 45 20 42 55 53 00 B5 10 88 04 4A | OP DE BUS.....J| 000008B0: 4D 50 20 42 34 00 D0 10 92 04 42 33 20 4C 44 41 |MP B4.....B3 LDA| 000008C0: 20 23 24 30 44 20 21 4C 44 20 43 41 52 52 20 8E | #$0D !LD CARR .| 000008D0: 00 ED 10 9C 04 4A 53 52 20 24 46 46 44 32 20 21 |.....JSR $FFD2 !| 000008E0: 53 45 54 20 4F 50 20 44 45 20 42 55 53 00 FA 10 |SET OP DE BUS...| 000008F0: A6 04 4C 44 59 20 23 24 30 32 00 05 11 B0 04 42 |..LDY #$02.....B| 00000900: 4E 45 20 42 32 00 16 11 BA 04 42 31 20 4A 53 52 |NE B2.....B1 JSR| 00000910: 20 24 46 36 34 32 00 22 11 C4 04 4C 44 58 20 23 | $F642."...LDX #| 00000920: 24 30 00 30 11 CE 04 4A 53 52 20 24 46 46 43 46 |$0.0...JSR $FFCF| 00000930: 00 4F 11 D8 04 4C 44 41 20 23 24 30 31 20 21 53 |.O...LDA #$01 !S| 00000940: 45 54 20 42 41 53 49 43 20 50 4F B5 45 52 53 00 |ET BASIC PO.ERS.| 00000950: 5A 11 E2 04 53 54 41 20 34 33 00 67 11 EC 04 4C |Z...STA 43.g...L| 00000960: 44 41 20 23 24 30 38 00 72 11 F6 04 53 54 41 20 |DA #$08.r...STA | 00000970: 34 34 00 7D 11 00 05 53 54 41 20 34 36 00 88 11 |44.}...STA 46...| 00000980: 0A 05 53 54 41 20 34 38 00 93 11 14 05 53 54 41 |..STA 48.....STA| 00000990: 20 35 30 00 A0 11 1E 05 4C 44 41 20 23 24 41 30 | 50.....LDA #$A0| 000009A0: 00 AB 11 28 05 53 54 41 20 35 32 00 B6 11 32 05 |...(.STA 52...2.| 000009B0: 53 54 41 20 35 36 00 C3 11 3C 05 4C 44 41 20 23 |STA 56...<.LDA #| 000009C0: 24 30 30 00 CE 11 46 05 53 54 41 20 35 31 00 D9 |$00...F.STA 51..| 000009D0: 11 50 05 53 54 41 20 35 33 00 E4 11 5A 05 53 54 |.P.STA 53...Z.ST| 000009E0: 41 20 35 35 00 EF 11 64 05 53 54 41 20 35 34 00 |A 55...d.STA 54.| 000009F0: 0C 12 6E 05 53 54 41 20 31 35 33 20 21 49 4E 56 |..n.STA 153 !INV| 00000A00: 4F 45 52 20 4B 45 59 42 4F 41 52 44 00 17 12 78 |OER KEYBOARD...x| 00000A10: 05 53 54 41 20 36 32 00 22 12 82 05 53 54 41 20 |.STA 62."...STA | 00000A20: 36 33 00 2D 12 8C 05 53 54 41 20 36 34 00 38 12 |63.-...STA 64.8.| 00000A30: 96 05 53 54 41 20 36 39 00 43 12 A0 05 53 54 41 |..STA 69.C...STA| 00000A40: 20 37 30 00 60 12 AA 05 4C 44 41 20 23 24 30 33 | 70.`...LDA #$03| 00000A50: 20 21 55 49 54 56 4F 45 52 20 53 43 48 45 52 4D | !UITVOER SCHERM| 00000A60: 00 6C 12 B4 05 53 54 41 20 31 35 34 00 77 12 BE |.l...STA 154.w..| 00000A70: 05 53 54 41 20 34 35 00 82 12 C8 05 53 54 41 20 |.STA 45.....STA | 00000A80: 34 37 00 8D 12 D2 05 53 54 41 20 34 39 00 AC 12 |47.....STA 49...| 00000A90: DC 05 52 54 53 20 20 20 20 20 21 45 49 4E 44 45 |..RTS !EINDE| 00000AA0: 20 53 45 54 20 64 4A 4F 50 20 64 7D 00 CB 12 E6 | SET dJOP d}....| 00000AB0: 05 4C 44 58 20 23 24 46 42 20 21 53 54 41 52 54 |.LDX #$FB !START| 00000AC0: 20 9C 20 64 01 20 AA 43 4F 4C B0 00 E4 12 F0 05 | . d. .COL......| 00000AD0: 4C 44 41 20 23 24 32 30 20 21 93 20 53 45 43 20 |LDA #$20 !. SEC | 00000AE0: 41 44 52 53 00 FF 12 FA 05 53 54 41 20 24 46 43 |ADRS.....STA $FC| 00000AF0: 20 20 21 49 4E 20 5A 45 52 4F 20 50 41 47 45 00 | !IN ZERO PAGE.| 00000B00: 0C 13 04 06 4C 44 41 20 23 24 30 30 00 18 13 0E |....LDA #$00....| 00000B10: 06 53 54 41 20 24 46 42 00 28 13 18 06 41 31 20 |.STA $FB.(...A1 | 00000B20: 4C 44 41 20 23 24 30 30 00 3B 13 22 06 53 54 41 |LDA #$00.;.".STA| 00000B30: 20 28 24 30 2C 58 29 20 21 41 31 00 47 13 2C 06 | ($0,X) !A1.G.,.| 00000B40: 49 4E 43 20 24 46 42 00 5E 13 36 06 43 4D 50 20 |INC $FB.^.6.CMP | 00000B50: 24 46 42 20 21 43 4D 50 20 4D 45 4D AB 30 00 69 |$FB !CMP MEM.0.i| 00000B60: 13 40 06 42 4E 45 20 41 31 00 75 13 4A 06 49 4E |.@.BNE A1.u.J.IN| 00000B70: 43 20 24 46 43 00 82 13 54 06 4C 44 41 20 23 24 |C $FC...T.LDA #$| 00000B80: 34 30 00 8E 13 5E 06 43 4D 50 20 24 46 43 00 AD |40...^.CMP $FC..| 00000B90: 13 68 06 42 4E 45 20 41 31 20 21 45 49 4E 44 45 |.h.BNE A1 !EINDE| 00000BA0: 20 43 4C 45 41 52 20 53 43 48 45 52 4D 00 C8 13 | CLEAR SCHERM...| 00000BB0: 72 06 4C 44 41 20 23 24 30 30 20 21 53 54 41 52 |r.LDA #$00 !STAR| 00000BC0: 54 20 93 20 43 4F 4C B0 00 E1 13 7C 06 53 54 41 |T . COL....|.STA| 00000BD0: 20 24 46 42 20 21 53 45 54 20 4C 4F AB 43 4F 44 | $FB !SET LO.COD| 00000BE0: 45 00 FC 13 86 06 4C 44 41 20 23 24 30 34 20 21 |E.....LDA #$04 !| 00000BF0: 31 30 32 34 20 A4 54 20 32 30 32 34 00 15 14 90 |1024 .T 2024....| 00000C00: 06 53 54 41 20 24 46 43 20 21 53 45 54 20 48 49 |.STA $FC !SET HI| 00000C10: AB 43 4F 44 45 00 35 14 9A 06 4C 44 58 20 23 24 |.CODE.5...LDX #$| 00000C20: 46 42 20 21 53 45 54 20 58 20 4F 50 20 49 4E 44 |FB !SET X OP IND| 00000C30: 49 52 45 43 54 00 58 14 A4 06 41 32 20 4C 44 41 |IRECT.X...A2 LDA| 00000C40: 20 23 24 30 33 20 21 53 45 54 20 4F 50 20 4B 4C | #$03 !SET OP KL| 00000C50: 45 55 52 20 43 59 41 4E 00 67 14 AE 06 53 54 41 |EUR CYAN.g...STA| 00000C60: 20 28 24 30 2C 58 29 00 73 14 B8 06 49 4E 43 20 | ($0,X).s...INC | 00000C70: 24 46 42 00 80 14 C2 06 4C 44 41 20 23 24 30 30 |$FB.....LDA #$00| 00000C80: 00 8C 14 CC 06 43 4D 50 20 24 46 42 00 97 14 D6 |.....CMP $FB....| 00000C90: 06 42 4E 45 20 41 32 00 A3 14 E0 06 49 4E 43 20 |.BNE A2.....INC | 00000CA0: 24 46 43 00 AF 14 EA 06 4C 44 41 20 23 24 37 00 |$FC.....LDA #$7.| 00000CB0: C5 14 F4 06 43 4D 50 20 24 46 43 20 21 54 53 54 |....CMP $FC !TST| 00000CC0: 20 45 49 4E 44 00 D0 14 FE 06 42 4E 45 20 41 32 | EIND.....BNE A2| 00000CD0: 00 EA 14 08 07 41 33 20 4C 44 41 20 23 24 30 33 |.....A3 LDA #$03| 00000CE0: 20 21 53 45 54 20 43 4F 4C B0 00 F9 14 12 07 53 | !SET COL......S| 00000CF0: 54 41 20 28 24 30 2C 58 29 00 05 15 1C 07 49 4E |TA ($0,X).....IN| 00000D00: 43 20 24 46 42 00 12 15 26 07 4C 44 41 20 23 24 |C $FB...&.LDA #$| 00000D10: 45 38 00 1E 15 30 07 43 4D 50 20 24 46 42 00 35 |E8...0.CMP $FB.5| 00000D20: 15 3A 07 42 4E 45 20 41 33 20 21 54 53 54 20 4F |.:.BNE A3 !TST O| 00000D30: 50 20 37 45 37 00 52 15 44 07 52 54 53 20 21 45 |P 7E7.R.D.RTS !E| 00000D40: 49 4E 44 45 20 9C 20 64 01 20 53 45 54 20 43 4F |INDE . d. SET CO| 00000D50: 4C B0 00 77 15 4E 07 4C 44 41 20 23 24 30 32 20 |L..w.N.LDA #$02 | 00000D60: 21 53 45 54 20 4F 50 20 44 55 42 42 45 4C 45 20 |!SET OP DUBBELE | 00000D70: 42 52 45 45 44 54 45 00 83 15 58 07 53 54 41 20 |BREEDTE...X.STA | 00000D80: 24 30 32 00 A6 15 62 07 4C 44 41 20 24 44 44 30 |$02...b.LDA $DD0| 00000D90: 30 20 21 54 45 53 54 20 4F 50 56 52 49 4A 45 20 |0 !TEST OPVRIJE | 00000DA0: 52 53 20 32 33 32 00 B1 15 6C 07 AF 20 23 24 30 |RS 232...l.. #$0| 00000DB0: 33 00 BD 15 76 07 45 B0 20 23 24 30 33 00 CA 15 |3...v.E. #$03...| 00000DC0: 80 07 4C 44 59 20 23 24 30 36 00 D8 15 8A 07 4C |..LDY #$06.....L| 00000DD0: 42 31 20 41 53 4C 20 41 00 E0 15 94 07 44 45 59 |B1 ASL A.....DEY| 00000DE0: 00 EC 15 9E 07 42 4E 45 20 4C 42 31 00 0E 16 A8 |.....BNE LB1....| 00000DF0: 07 53 54 41 20 24 30 33 38 34 20 21 53 45 54 20 |.STA $0384 !SET | 00000E00: 49 4E 20 54 41 50 45 20 42 55 46 46 45 52 00 1C |IN TAPE BUFFER..| 00000E10: 16 B2 07 4C 44 41 20 24 44 30 31 38 00 27 16 BC |...LDA $D018.'..| 00000E20: 07 AF 20 23 24 30 38 00 33 16 C6 07 42 45 51 20 |.. #$08.3...BEQ | 00000E30: 4C 42 32 00 3B 16 D0 07 43 4C 43 00 48 16 DA 07 |LB2.;...CLC.H...| 00000E40: 4C 44 41 20 23 24 32 30 00 56 16 E4 07 41 44 43 |LDA #$20.V...ADC| 00000E50: 20 24 30 33 38 34 00 64 16 EE 07 53 54 41 20 24 | $0384.d...STA $| 00000E60: 30 33 38 34 00 75 16 F8 07 4C 42 32 20 4C 44 41 |0384.u...LB2 LDA| 00000E70: 20 23 24 30 30 00 83 16 02 08 4A 53 52 20 24 46 | #$00.....JSR $F| 00000E80: 46 42 44 00 90 16 0C 08 4C 44 41 20 23 24 30 34 |FBD.....LDA #$04| 00000E90: 00 98 16 16 08 54 41 58 00 A5 16 20 08 4C 44 59 |.....TAX... .LDY| 00000EA0: 20 23 24 46 46 00 B3 16 2A 08 4A 53 52 20 24 46 | #$FF...*.JSR $F| 00000EB0: 46 42 41 00 C1 16 34 08 4A 53 52 20 24 46 46 43 |FBA...4.JSR $FFC| 00000EC0: 30 00 CE 16 3E 08 4C 44 58 20 23 24 30 34 00 DC |0...>.LDX #$04..| 00000ED0: 16 48 08 4A 53 52 20 24 46 46 43 39 00 EE 16 52 |.H.JSR $FFC9...R| 00000EE0: 08 42 43 53 20 4C 42 33 20 21 43 43 33 41 00 00 |.BCS LB3 !CC3A..| 00000EF0: 17 5C 08 4A 4D 50 20 4C 42 34 20 21 43 43 33 44 |.\.JMP LB4 !CC3D| 00000F00: 00 16 17 66 08 4C 42 33 20 4A 4D 50 20 4C 42 35 |...f.LB3 JMP LB5| 00000F10: 20 21 43 44 32 30 00 27 17 70 08 4C 42 34 20 4C | !CD20.'.p.LB4 L| 00000F20: 44 41 20 23 24 30 38 00 35 17 7A 08 4A 53 52 20 |DA #$08.5.z.JSR | 00000F30: 24 46 46 44 32 00 42 17 84 08 4C 44 41 20 23 24 |$FFD2.B...LDA #$| 00000F40: 30 44 00 50 17 8E 08 4A 53 52 20 24 46 46 44 32 |0D.P...JSR $FFD2| 00000F50: 00 5D 17 98 08 4C 44 58 20 23 24 30 30 00 6A 17 |.]...LDX #$00.j.| 00000F60: A2 08 4C 44 41 20 23 24 30 31 00 78 17 AC 08 53 |..LDA #$01.x...S| 00000F70: 54 41 20 24 43 44 43 36 00 85 17 B6 08 4C 44 41 |TA $CDC6.....LDA| 00000F80: 20 23 24 30 30 00 93 17 C0 08 53 54 41 20 24 43 | #$00.....STA $C| 00000F90: 44 43 37 00 A0 17 CA 08 4C 44 41 20 23 24 30 30 |DC7.....LDA #$00| 00000FA0: 00 AE 17 D4 08 53 54 41 20 24 43 44 43 38 00 BB |.....STA $CDC8..| 00000FB0: 17 DE 08 4C 44 41 20 23 24 43 37 00 C9 17 E8 08 |...LDA #$C7.....| 00000FC0: 53 54 41 20 24 43 44 43 39 00 DC 17 F2 08 4C 42 |STA $CDC9.....LB| 00000FD0: 31 30 20 4A 53 52 20 24 46 46 45 31 00 EE 17 FC |10 JSR $FFE1....| 00000FE0: 08 42 4E 45 20 4C 42 36 20 21 43 43 36 35 00 00 |.BNE LB6 !CC65..| 00000FF0: 18 06 09 4A 4D 50 20 4C 42 35 20 21 43 44 32 30 |...JMP LB5 !CD20| 00001000: 00 0C 18 10 09 4C 42 36 20 54 58 41 00 14 18 1A |.....LB6 TXA....| 00001010: 09 50 48 41 00 1C 18 24 09 54 59 41 00 24 18 2E |.PHA...$.TYA.$..| 00001020: 09 50 48 41 00 36 18 38 09 4A 53 52 20 4C 42 37 |.PHA.6.8.JSR LB7| 00001030: 20 21 43 44 32 39 00 3E 18 42 09 50 4C 41 00 46 | !CD29.>.B.PLA.F| 00001040: 18 4C 09 54 41 59 00 4E 18 56 09 50 4C 41 00 56 |.L.TAY.N.V.PLA.V| 00001050: 18 60 09 54 41 58 00 64 18 6A 09 4C 44 41 20 24 |.`.TAX.d.j.LDA $| 00001060: 43 44 43 44 00 70 18 74 09 AF 20 24 43 44 43 42 |CDCD.p.t.. $CDCB| 00001070: 00 82 18 7E 09 42 45 51 20 4C 42 38 20 21 43 43 |...~.BEQ LB8 !CC| 00001080: 38 34 00 90 18 88 09 4C 44 41 20 24 43 44 43 41 |84.....LDA $CDCA| 00001090: 00 9D 18 92 09 B0 41 20 24 43 44 43 36 00 AB 18 |......A $CDC6...| 000010A0: 9C 09 53 54 41 20 24 43 44 43 41 00 BC 18 A6 09 |..STA $CDCA.....| 000010B0: 4A 4D 50 20 4C 38 20 21 43 43 38 46 00 CE 18 B0 |JMP L8 !CC8F....| 000010C0: 09 4C 42 38 20 4C 44 41 20 24 43 44 43 36 00 DA |.LB8 LDA $CDC6..| 000010D0: 18 BA 09 45 B0 20 23 24 46 46 00 E6 18 C4 09 AF |...E. #$FF......| 000010E0: 20 24 43 44 43 41 00 F4 18 CE 09 53 54 41 20 24 | $CDCA.....STA $| 000010F0: 43 44 43 41 00 05 19 D8 09 4C 38 20 41 53 4C 20 |CDCA.....L8 ASL | 00001100: 24 43 44 43 36 00 13 19 E2 09 4C 44 41 20 24 43 |$CDC6.....LDA $C| 00001110: 44 43 36 00 20 19 EC 09 43 4D 50 20 23 24 38 30 |DC6. ...CMP #$80| 00001120: 00 32 19 F6 09 42 45 51 20 4C 42 39 20 21 43 43 |.2...BEQ LB9 !CC| 00001130: 41 44 00 3A 19 00 0A 43 4C 43 00 48 19 0A 0A 4C |AD.:...CLC.H...L| 00001140: 44 41 20 24 43 44 43 37 00 55 19 14 0A 41 44 43 |DA $CDC7.U...ADC| 00001150: 20 23 24 30 31 00 63 19 1E 0A 53 54 41 20 24 43 | #$01.c...STA $C| 00001160: 44 43 37 00 71 19 28 0A 4C 44 41 20 24 43 44 43 |DC7.q.(.LDA $CDC| 00001170: 38 00 7E 19 32 0A 41 44 43 20 23 24 30 30 00 8C |8.~.2.ADC #$00..| 00001180: 19 3C 0A 53 54 41 20 24 43 44 43 38 00 9F 19 46 |.<.STA $CDC8...F| 00001190: 0A 4A 4D 50 20 4C 42 31 30 20 21 43 43 35 44 00 |.JMP LB10 !CC5D.| 000011A0: B1 19 50 0A 4C 42 39 20 4C 44 41 20 24 43 44 43 |..P.LB9 LDA $CDC| 000011B0: 41 00 BD 19 5A 0A B0 41 20 23 24 38 30 00 CA 19 |A...Z..A #$80...| 000011C0: 64 0A 43 50 58 20 23 24 32 44 00 DD 19 6E 0A 42 |d.CPX #$2D...n.B| 000011D0: 43 43 20 4C 42 31 31 20 21 43 43 43 30 00 EB 19 |CC LB11 !CCC0...| 000011E0: 78 0A 4C 44 41 20 24 43 44 43 41 00 F6 19 82 0A |x.LDA $CDCA.....| 000011F0: AF 20 23 24 31 46 00 02 1A 8C 0A B0 41 20 23 24 |. #$1F......A #$| 00001200: 38 30 00 10 1A 96 0A 53 54 41 20 24 43 44 43 41 |80.....STA $CDCA| 00001210: 00 23 1A A0 0A 4C 42 31 31 20 53 54 58 20 24 43 |.#...LB11 STX $C| 00001220: 44 43 46 00 2F 1A AA 0A 4C 44 58 20 24 30 32 00 |DCF./...LDX $02.| 00001230: 3D 1A B4 0A 53 54 58 20 24 43 44 43 45 00 49 1A |=...STX $CDCE.I.| 00001240: BE 0A 4C 31 31 20 54 41 59 00 59 1A C8 0A 4A 53 |..L11 TAY.Y...JS| 00001250: 52 20 24 46 46 44 32 20 21 00 61 1A D2 0A 54 59 |R $FFD2 !.a...TY| 00001260: 41 00 6F 1A DC 0A 44 45 43 20 24 43 44 43 45 00 |A.o...DEC $CDCE.| 00001270: 82 1A E6 0A 42 4E 45 20 4C 31 31 20 21 24 43 43 |....BNE L11 !$CC| 00001280: 43 38 00 90 1A F0 0A 4C 44 58 20 24 43 44 43 46 |C8.....LDX $CDCF| 00001290: 00 9D 1A FA 0A 4C 44 41 20 23 24 30 31 00 AB 1A |.....LDA #$01...| 000012A0: 04 0B 53 54 41 20 24 43 44 43 36 00 B8 1A 0E 0B |..STA $CDC6.....| 000012B0: 4C 44 41 20 23 24 30 30 00 C6 1A 18 0B 53 54 41 |LDA #$00.....STA| 000012C0: 20 24 43 44 43 41 00 CE 1A 22 0B 53 45 43 00 DC | $CDCA...".SEC..| 000012D0: 1A 2C 0B 4C 44 41 20 24 43 44 43 37 00 E9 1A 36 |.,.LDA $CDC7...6| 000012E0: 0B 53 42 43 20 23 24 30 36 00 F7 1A 40 0B 53 54 |.SBC #$06...@.ST| 000012F0: 41 20 24 43 44 43 37 00 05 1B 4A 0B 4C 44 41 20 |A $CDC7...J.LDA | 00001300: 24 43 44 43 38 00 12 1B 54 0B 53 42 43 20 23 24 |$CDC8...T.SBC #$| 00001310: 30 30 00 20 1B 5E 0B 53 54 41 20 24 43 44 43 38 |00. .^.STA $CDC8| 00001320: 00 2E 1B 68 0B 44 45 43 20 24 43 44 43 39 00 3C |...h.DEC $CDC9.<| 00001330: 1B 72 0B 4C 44 41 20 24 43 44 43 39 00 49 1B 7C |.r.LDA $CDC9.I.|| 00001340: 0B 43 4D 50 20 23 24 46 46 00 5D 1B 86 0B 42 45 |.CMP #$FF.]...BE| 00001350: 51 20 4C 42 31 32 20 21 24 43 43 46 44 00 71 1B |Q LB12 !$CCFD.q.| 00001360: 90 0B 4A 4D 50 20 4C 42 31 30 20 21 24 43 43 35 |..JMP LB10 !$CC5| 00001370: 44 00 83 1B 9A 0B 4C 42 31 32 20 43 50 58 20 23 |D.....LB12 CPX #| 00001380: 24 32 44 00 96 1B A4 0B 42 43 53 20 4C 42 35 20 |$2D.....BCS LB5 | 00001390: 21 24 43 44 32 30 00 9E 1B AE 0B 43 4C 43 00 AC |!$CD20.....CLC..| 000013A0: 1B B8 0B 4C 44 41 20 24 43 44 43 37 00 B9 1B C2 |...LDA $CDC7....| 000013B0: 0B 41 44 43 20 23 24 30 37 00 C7 1B CC 0B 53 54 |.ADC #$07.....ST| 000013C0: 41 20 24 43 44 43 37 00 D5 1B D6 0B 4C 44 41 20 |A $CDC7.....LDA | 000013D0: 24 43 44 43 38 00 E2 1B E0 0B 41 44 43 20 23 24 |$CDC8.....ADC #$| 000013E0: 30 30 00 F0 1B EA 0B 53 54 41 20 24 43 44 43 38 |00.....STA $CDC8| 000013F0: 00 F8 1B F4 0B 49 4E 58 00 05 1C FE 0B 4C 44 41 |.....INX.....LDA| 00001400: 20 23 24 43 37 00 13 1C 08 0C 53 54 41 20 24 43 | #$C7.....STA $C| 00001410: 44 43 39 00 20 1C 12 0C 4C 44 41 20 23 24 30 44 |DC9. ...LDA #$0D| 00001420: 00 30 1C 1C 0C 4A 53 52 20 24 46 46 44 32 20 21 |.0...JSR $FFD2 !| 00001430: 00 43 1C 26 0C 4A 4D 50 20 4C 42 31 30 20 21 43 |.C.&.JMP LB10 !C| 00001440: 43 35 44 00 54 1C 30 0C 4C 42 35 20 4C 44 41 20 |C5D.T.0.LB5 LDA | 00001450: 23 24 30 44 00 64 1C 3A 0C 4A 53 52 20 24 46 46 |#$0D.d.:.JSR $FF| 00001460: 44 32 20 21 00 72 1C 44 0C 4A 53 52 20 24 46 46 |D2 !.r.D.JSR $FF| 00001470: 45 37 00 7C 1C 4E 0C 52 54 53 20 21 00 8E 1C 58 |E7.|.N.RTS !...X| 00001480: 0C 4C 42 37 20 4C 44 41 20 24 43 44 43 39 00 99 |.LB7 LDA $CDC9..| 00001490: 1C 62 0C AF 20 23 24 30 37 00 A7 1C 6C 0C 53 54 |.b.. #$07...l.ST| 000014A0: 41 20 24 43 44 43 43 00 B5 1C 76 0C 4C 44 41 20 |A $CDCC...v.LDA | 000014B0: 24 43 44 43 39 00 BF 1C 80 0C 4C 53 52 20 41 00 |$CDC9.....LSR A.| 000014C0: C9 1C 8A 0C 4C 53 52 20 41 00 D3 1C 94 0C 4C 53 |....LSR A.....LS| 000014D0: 52 20 41 00 DB 1C 9E 0C 54 41 59 00 EB 1C A8 0C |R A.....TAY.....| 000014E0: 4C 44 41 20 24 43 44 39 32 2C 59 00 F7 1C B2 0C |LDA $CD92,Y.....| 000014F0: 53 54 41 20 24 46 42 00 07 1D BC 0C 4C 44 41 20 |STA $FB.....LDA | 00001500: 24 43 44 41 43 2C 59 00 13 1D C6 0C 53 54 41 20 |$CDAC,Y.....STA | 00001510: 24 46 43 00 1B 1D D0 0C 43 4C 43 00 27 1D DA 0C |$FC.....CLC.'...| 00001520: 4C 44 41 20 24 46 42 00 35 1D E4 0C 41 44 43 20 |LDA $FB.5...ADC | 00001530: 24 43 44 43 43 00 41 1D EE 0C 53 54 41 20 24 46 |$CDCC.A...STA $F| 00001540: 42 00 4D 1D F8 0C 4C 44 41 20 24 46 43 00 5A 1D |B.M...LDA $FC.Z.| 00001550: 02 0D 41 44 43 20 23 24 30 30 00 66 1D 0C 0D 53 |..ADC #$00.f...S| 00001560: 54 41 20 24 46 43 00 6E 1D 16 0D 43 4C 43 00 7C |TA $FC.n...CLC.|| 00001570: 1D 20 0D 4C 44 41 20 24 30 33 38 34 00 88 1D 2A |. .LDA $0384...*| 00001580: 0D 41 44 43 20 24 46 43 00 94 1D 34 0D 53 54 41 |.ADC $FC...4.STA| 00001590: 20 24 46 43 00 A2 1D 3E 0D 4C 44 41 20 24 43 44 | $FC...>.LDA $CD| 000015A0: 43 37 00 AD 1D 48 0D AF 20 23 24 30 37 00 B9 1D |C7...H.. #$07...| 000015B0: 52 0D 45 B0 20 23 24 30 37 00 C1 1D 5C 0D 54 41 |R.E. #$07...\.TA| 000015C0: 59 00 C9 1D 66 0D 49 4E 59 00 D6 1D 70 0D 4C 44 |Y...f.INY...p.LD| 000015D0: 41 20 23 24 30 30 00 DE 1D 7A 0D 53 45 43 00 ED |A #$00...z.SEC..| 000015E0: 1D 84 0D 4C 42 31 34 20 52 4F 4C 20 41 00 F5 1D |...LB14 ROL A...| 000015F0: 8E 0D 44 45 59 00 02 1E 98 0D 42 4E 45 20 4C 42 |..DEY.....BNE LB| 00001600: 31 34 00 10 1E A2 0D 53 54 41 20 24 43 44 43 42 |14.....STA $CDCB| 00001610: 00 18 1E AC 0D 43 4C 43 00 26 1E B6 0D 4C 44 41 |.....CLC.&...LDA| 00001620: 20 24 43 44 43 38 00 32 1E C0 0D 41 44 43 20 24 | $CDC8.2...ADC $| 00001630: 46 43 00 3E 1E CA 0D 53 54 41 20 24 46 43 00 4C |FC.>...STA $FC.L| 00001640: 1E D4 0D 4C 44 41 20 24 43 44 43 37 00 57 1E DE |...LDA $CDC7.W..| 00001650: 0D AF 20 23 24 46 38 00 5F 1E E8 0D 54 41 59 00 |.. #$F8._...TAY.| 00001660: 67 1E F2 0D 54 58 41 00 6F 1E FC 0D 50 48 41 00 |g...TXA.o...PHA.| 00001670: 77 1E 06 0E 53 45 49 00 84 1E 10 0E 4C 44 58 20 |w...SEI.....LDX | 00001680: 23 24 33 34 00 8F 1E 1A 0E 53 54 58 20 30 31 00 |#$34.....STX 01.| 00001690: 9F 1E 24 0E 4C 44 41 20 28 24 46 42 29 2C 59 00 |..$.LDA ($FB),Y.| 000016A0: AC 1E 2E 0E 4C 44 58 20 23 24 33 37 00 B8 1E 38 |....LDX #$37...8| 000016B0: 0E 53 54 58 20 24 30 31 00 C0 1E 42 0E 43 4C 49 |.STX $01...B.CLI| 000016C0: 00 C8 1E 4C 0E 54 41 59 00 D0 1E 56 0E 50 4C 41 |...L.TAY...V.PLA| 000016D0: 00 D8 1E 60 0E 54 41 58 00 E0 1E 6A 0E 54 59 41 |...`.TAX...j.TYA| 000016E0: 00 EC 1E 74 0E AF 20 24 43 44 43 42 00 FA 1E 7E |...t.. $CDCB...~| 000016F0: 0E 53 54 41 20 24 43 44 43 44 00 02 1F 88 0E 52 |.STA $CDCD.....R| 00001700: 54 53 00 08 1F 92 0E 80 00 00 00 |TS......... |
......OUT 4.-.....$CA00 !PROGRAM DIR VIA CC00.P...LLBB.$8080 !VO. EPROM GESCHIKT .V.(.B4.$80DD !GEMAAKT OP 8000 03.7.85.. .2.W. $8009 !KOUDE START...<.W. $800. !W ARME START...F.BYT $C3.B.P.BYT $C2.N.Z.B YT $CD.Z.D.BYT $38...N.BYT $30...X.STX $ D016 !INIT.....JSR $FDA3.....JSR $FD50.$ ...JSR $FD15.2. .JSR $FF5B.:...CLI.H...J SR $E453.V...JSR $E3BF.D.H.JSR $E422.Q.R .LDX #$FB.....TXS !. STACK. ...LDA #$05 !SET VERT IN SEC.A...JSR $8081 !CALL SUB ..........Q...TXT "START".....LDA #$8 !L AAD DEVICE NR.....LDX #$08 !SET .ICAL FI LE NR2./...LDY #$08 !SET . OP DEVICE NR. F.".JSR $FFBA !SET LFS.I.,.LDA #$05 !SET AANTAL .TRS NAAM...6.LDX #$2A !........ ............@.LDY #$80 !SET ADR FICAME.. ...F.J.JSR $FFBD !CALL SETNAME...T.LDA # $0 !SET AC VO. . DISC...^.LDY #$FF...H.L DX #$FF...R.JSR $FFD5 !CALL . DISC.'.|.B CC LAB3.7...TAX !. ACCU.Q...DEX !TEST OP FILE . R.Y...DEX.A...DEX.I...DEX.....BN E LAB4 !BIJ ERR. AB.T...B.LDA #$08 ! FI LE...L.JSR $FFC3...V.LDA #$05.U...JSR $8 081 !CALL SEC.............JSR $8091 !SET DIR OP SCHERM.........JMP LLBB !. ..&.. .LAB3 LDA #$08 ! FILE.4...JSR $FFC3.V.. .LDA #$04 !SET KEBOARD COUNTER.B...STA 1 98.T.&.LDA #$52 !"R"...0.STA 631 !. KEYB OARD BUFFER...:.LDA #$55 !U...D.STA 632. ..N.LDA #$4E !N.K.X.STA 633...B.LDA #$0D !CARIAGE ....L.STA 634...V.LAB4 RTS !LA B4.&...LDY #$FF !START VERTRAG SUBR....D ...LAB2 LDX #$FF !SET VRT IN.^...LAB1 DE X !SEC IN ACCU.W...BNE LAB1 !. CALL SUB. ...DEY.....BNE LAB2.....TAX...F.DEX...P .TXA...Z.BNE LAB2.....RTS.Y...LDA #$24 ! SET "$" FILE NAME.....STA $FB.....LDA #$ FB !SET PO.ER OP FILE.....STA $BB.....LD A #00.). .STA $BC.E.*.LDA #$01 !SET CGTE NAME.Q.4.STA $B7.Q.>.LDA #$08 !SET DEVI CE NUMMER.}.H.STA $BA...R.LDA #$60 !SET SECDARY ADDRES...\.STA $B9...F.JSR $F3D5 .Y.P.LDA $BA !. CURRENT DEVICE NR...Z.JS R $FFB4 !.....LDA $B9 !. SEC ADDRES..... JSR $FF96.....LDA #$00.A...STA $90 !SET KERNAL I.O STATUS.N...LDY #$03.]...B2 ST Y $FB.....JSR $FFA5 !LEES BYT VAN SER:PO .T...J.STA $FC...T.LDY $90.....BNE B1 !T EST OP STATUS.O...JSR $FFA5 !LEES . BYT. ....LDY $90.....BNE B1.....LDY $FB.....D EY.....BNE B2...$.LDX $FC.....JSR $BDCD. 7.8.LDA #$20 !. CHANNEL.E.B.JSR $FFD2._. L.JSR $FFA5 !B4 . $FFA5.K.V.LDX $90.V.`. BNE B1.~.J.TAX...T.BEQ B3...~.JSR $FFD2 !SET CHR OP DE BUS.....JMP B4.P...B3 LDA #$0D !LD CARR ......JSR $FFD2 !SET OP D E BUS.....LDY #$02.....BNE B2.....B1 JSR $F642.".D.LDX #$0.0.N.JSR $FFCF.O.X.LDA #$01 !SET BASIC PO.ERS.Z...STA 43.G...L DA #$08.R...STA 44.}...STA 46.....STA 48 .....STA 50. ...LDA #$A0...(.STA 52...2. STA 56.C.<.LDA #$00.N.F.STA 51.Y.P.STA 5 3...Z.STA 55...D.STA 54...N.STA 153 !INV OER KEYBOARD...X.STA 62."...STA 63.-...S TA 64.8...STA 69.C. .STA 70.`...LDA #$03 !UITVOER SCHERM.L...STA 154.W...STA 45. ..H.STA 47...R.STA 49.....RTS !EINDE SET DJOP D}.K...LDX #$FB !START . D. .C OL......LDA #$20 !. SEC ADRS.....STA $FC !IN ZERO PAGE.....LDA #$00.....STA $FB .(...A1 LDA #$00.;.".STA ($0,X) !A1.G.,. INC $FB.^.6.CMP $FB !CMP MEM.0.I.@.BNE A 1.U.J.INC $FC...T.LDA #$40...^.CMP $FC.. .H.BNE A1 !EINDE CLEAR SCHERM.H.R.LDA #$ 00 !START . COL....|.STA $FB !SET LO.COD E.....LDA #$04 !1024 .T 2024.....STA $FC !SET HI.CODE.5...LDX #$FB !SET X OP IND IRECT.X...A2 LDA #$03 !SET OP KLEUR CYAN .G...STA ($0,X).S...INC $FB...B.LDA #$00 ...L.CMP $FB...V.BNE A2.....INC $FC..... LDA #$7.E...CMP $FC !TST EIND.P...BNE A2 .....A3 LDA #$03 !SET COL......STA ($0,X ).....INC $FB...&.LDA #$E8...0.CMP $FB.5 .:.BNE A3 !TST OP 7E7.R.D.RTS !EINDE . D . SET COL..W.N.LDA #$02 !SET OP DUBBELE BREEDTE...X.STA $02...B.LDA $DD00 !TEST OPVRIJE RS 232...L.. #$03...V.E. #$03.J. ..LDY #$06.X...LB1 ASL A.....DEY.....BNE LB1.....STA $0384 !SET IN TAPE BUFFER.. ...LDA $D018.'.... #$08.3.F.BEQ LB2.;.P. CLC.H.Z.LDA #$20.V...ADC $0384.D...STA $ 0384.U...LB2 LDA #$00.....JSR $FFBD..... LDA #$04.....TAX... .LDY #$FF...*.JSR $F FBA.A.4.JSR $FFC0.N.>.LDX #$04...H.JSR $ FFC9...R.BCS LB3 !CC3A...\.JMP LB4 !CC3D ...F.LB3 JMP LB5 !CD20.'.P.LB4 LDA #$08. 5.Z.JSR $FFD2.B...LDA #$0D.P...JSR $FFD2 .]...LDX #$00.J...LDA #$01.X...STA $CDC6 .....LDA #$00.....STA $CDC7. .J.LDA #$00 ...T.STA $CDC8.....LDA #$C7.I...STA $CDC 9.....LB10 JSR $FFE1.....BNE LB6 !CC65.. ...JMP LB5 !CD20.....LB6 TXA.....PHA...$ .TYA.$...PHA.6.8.JSR LB7 !CD29.>.B.PLA.F .L.TAY.N.V.PLA.V.`.TAX.D.J.LDA $CDCD.P.T .. $CDCB...~.BEQ LB8 !CC84.....LDA $CDCA ......A $CDC6.....STA $CDCA.....JMP L8 ! CC8F.N...LB8 LDA $CDC6.Z...E. #$FF...D.. $CDCA...N.STA $CDCA...X.L8 ASL $CDC6... ..LDA $CDC6. ...CMP #$80.2...BEQ LB9 !CC AD.:...CLC.H...LDA $CDC7.U...ADC #$01.C. ..STA $CDC7.Q.(.LDA $CDC8.~.2.ADC #$00.. .<.STA $CDC8...F.JMP LB10 !CC5D...P.LB9 LDA $CDCA...Z..A #$80.J.D.CPX #$2D...N.B CC LB11 !CCC0...X.LDA $CDCA...... #$1F.. ....A #$80.....STA $CDCA.#. .LB11 STX $C DCF./...LDX $02.=...STX $CDCE.I...L11 TA Y.Y.H.JSR $FFD2 !.A.R.TYA.O...DEC $CDCE. ....BNE L11 !$CCC8.....LDX $CDCF.....LDA #$01.....STA $CDC6.....LDA #$00.F...STA $CDCA.N.".SEC...,.LDA $CDC7...6.SBC #$0 6...@.STA $CDC7...J.LDA $CDC8...T.SBC #$ 00. .^.STA $CDC8...H.DEC $CDC9.<.R.LDA $ CDC9.I.|.CMP #$FF.]...BEQ LB12 !$CCFD.Q. ..JMP LB10 !$CC5D.....LB12 CPX #$2D..... BCS LB5 !$CD20.....CLC.....LDA $CDC7...B .ADC #$07.G.L.STA $CDC7.U.V.LDA $CDC8... ..ADC #$00.....STA $CDC8.....INX.....LDA #$C7.....STA $CDC9. ...LDA #$0D.0...JSR $FFD2 !.C.&.JMP LB10 !CC5D.T.0.LB5 LDA #$0D.D.:.JSR $FFD2 !.R.D.JSR $FFE7.|.N.R TS !...X.LB7 LDA $CDC9...B.. #$07...L.ST A $CDCC...V.LDA $CDC9.....LSR A.I...LSR A.S...LSR A.....TAY.....LDA $CD92,Y..... STA $FB.....LDA $CDAC,Y...F.STA $FC...P. CLC.'.Z.LDA $FB.5...ADC $CDCC.A...STA $F B.M...LDA $FC.Z...ADC #$00.F...STA $FC.N ...CLC.|. .LDA $0384...*.ADC $FC...4.STA $FC...>.LDA $CDC7...H.. #$07...R.E. #$0 7.A.\.TAY.I.F.INY.V.P.LDA #$00...Z.SEC.. ...LB14 ROL A.....DEY.....BNE LB14.....S TA $CDCB.....CLC.&...LDA $CDC8.2...ADC $ FC.>.J.STA $FC.L.T.LDA $CDC7.W.... #$F8. _...TAY.G...TXA.O...PHA.W...SEI.....LDX #$34.....STX 01...$.LDA ($FB),Y.....LDX #$37...8.STX $01...B.CLI.H.L.TAY.P.V.PLA .X.`.TAX...J.TYA...T.. $CDCB...~.STA $CD CD.....RTS.........
> CLICK IMAGE PREVIEW FOR FULL MODAL