CAT
FILE INFORMATION
FILENAME(S): CAT
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:24:06
APPEARS ON: 1 disk(s)
FILE HASH
10517ded6ef3ae240e538d125a7b2f0b1a9d507a768aa07a3ea9fdb769a98ef5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HERMAN | CAT | PRG | DuncanTwain | 17 | 1 | 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 17 08 14 00 |......OUT 4.....|
00000010: AC B2 24 43 30 30 30 00 31 08 1E 00 57 B0 20 24 |..$C000.1...W. $|
00000020: 38 30 30 39 20 21 4B 4F 55 44 45 20 53 54 41 52 |8009 !KOUDE STAR|
00000030: 54 00 4B 08 28 00 57 B0 20 24 38 30 30 39 20 21 |T.K.(.W. $8009 !|
00000040: 57 41 52 4D 45 20 53 54 41 52 54 00 57 08 32 00 |WARME START.W.2.|
00000050: 42 59 54 20 24 43 33 00 63 08 3C 00 42 59 54 20 |BYT $C3.c.<.BYT |
00000060: 24 43 32 00 6F 08 46 00 42 59 54 20 24 43 44 00 |$C2.o.F.BYT $CD.|
00000070: 7B 08 50 00 42 59 54 20 24 33 38 00 87 08 5A 00 |{.P.BYT $38...Z.|
00000080: 42 59 54 20 24 33 30 00 9B 08 64 00 53 54 58 20 |BYT $30...d.STX |
00000090: 24 44 30 31 36 20 21 49 4E 49 54 00 A9 08 6E 00 |$D016 !INIT...n.|
000000A0: 4A 53 52 20 24 46 44 41 33 00 B7 08 78 00 4A 53 |JSR $FDA3...x.JS|
000000B0: 52 20 24 46 44 35 30 00 C5 08 82 00 4A 53 52 20 |R $FD50.....JSR |
000000C0: 24 46 44 31 35 00 D3 08 8C 00 4A 53 52 20 24 46 |$FD15.....JSR $F|
000000D0: 46 35 42 00 DB 08 96 00 43 4C 49 00 E9 08 A0 00 |F5B.....CLI.....|
000000E0: 4A 53 52 20 24 45 34 35 33 00 F7 08 AA 00 4A 53 |JSR $E453.....JS|
000000F0: 52 20 24 45 33 42 46 00 05 09 B4 00 4A 53 52 20 |R $E3BF.....JSR |
00000100: 24 45 34 32 32 00 12 09 BE 00 4C 44 58 20 23 24 |$E422.....LDX #$|
00000110: 46 42 00 23 09 C8 00 54 58 53 20 21 93 20 53 54 |FB.#...TXS !. ST|
00000120: 41 43 4B 00 41 09 D2 00 4C 44 41 20 23 24 30 35 |ACK.A...LDA #$05|
00000130: 20 21 53 45 54 20 56 45 52 54 20 49 4E 20 53 45 | !SET VERT IN SE|
00000140: 43 00 62 09 DC 00 4A 53 52 20 24 43 30 38 31 20 |C.b...JSR $C081 |
00000150: 21 43 41 4C 4C 20 53 55 42 AC AC AC AC AC AC AC |!CALL SUB.......|
00000160: AC AC 00 72 09 E6 00 54 58 54 20 22 53 54 41 52 |...r...TXT "STAR|
00000170: 54 22 00 8E 09 F0 00 4C 44 41 20 23 24 38 20 21 |T".....LDA #$8 !|
00000180: 4C 41 41 44 20 44 45 56 49 43 45 20 4E 52 00 AF |LAAD DEVICE NR..|
00000190: 09 FA 00 4C 44 58 20 23 24 30 38 20 21 53 45 54 |...LDX #$08 !SET|
000001A0: 20 BC 49 43 41 4C 20 46 49 4C 45 20 4E 52 32 00 | .ICAL FILE NR2.|
000001B0: D0 09 04 01 4C 44 59 20 23 24 30 38 20 21 53 45 |....LDY #$08 !SE|
000001C0: 54 20 9D 20 4F 50 20 44 45 56 49 43 45 20 4E 52 |T . OP DEVICE NR|
000001D0: 00 E7 09 0E 01 4A 53 52 20 24 46 46 42 41 20 21 |.....JSR $FFBA !|
000001E0: 53 45 54 20 4C 46 53 00 0A 0A 18 01 4C 44 41 20 |SET LFS.....LDA |
000001F0: 23 24 30 35 20 21 53 45 54 20 41 41 4E 54 41 4C |#$05 !SET AANTAL|
00000200: 20 88 54 52 53 20 4E 41 41 4D 00 2A 0A 22 01 4C | .TRS NAAM.*.".L|
00000210: 44 58 20 23 24 32 41 20 21 AC AC AC AC AC AC AC |DX #$2A !.......|
00000220: AC AC AC AC AC AC AC AC AC AC 00 4B 0A 2C 01 4C |...........K.,.L|
00000230: 44 59 20 23 24 43 30 20 21 53 45 54 20 41 44 52 |DY #$C0 !SET ADR|
00000240: 20 46 49 C3 41 4D 45 AC AC AC AC 00 67 0A 36 01 | FI.AME.....g.6.|
00000250: 4A 53 52 20 24 46 46 42 44 20 21 43 41 4C 4C 20 |JSR $FFBD !CALL |
00000260: 53 45 54 4E 41 4D 45 00 86 0A 40 01 4C 44 41 20 |SETNAME...@.LDA |
00000270: 23 24 30 20 21 53 45 54 20 41 43 20 56 4F B0 20 |#$0 !SET AC VO. |
00000280: 93 20 44 49 53 43 00 93 0A 4A 01 4C 44 59 20 23 |. DISC...J.LDY #|
00000290: 24 46 46 00 A0 0A 54 01 4C 44 58 20 23 24 46 46 |$FF...T.LDX #$FF|
000002A0: 00 BB 0A 5E 01 4A 53 52 20 24 46 46 44 35 20 21 |...^.JSR $FFD5 !|
000002B0: 43 41 4C 4C 20 93 20 44 49 53 43 00 C8 0A 68 01 |CALL . DISC...h.|
000002C0: 42 43 43 20 4C 41 42 33 00 D8 0A 72 01 54 41 58 |BCC LAB3...r.TAX|
000002D0: 20 21 94 20 41 43 43 55 00 F2 0A 7C 01 44 45 58 | !. ACCU...|.DEX|
000002E0: 20 21 54 45 53 54 20 4F 50 20 46 49 4C 45 20 A8 | !TEST OP FILE .|
000002F0: 20 D2 00 FA 0A 86 01 44 45 58 00 02 0B 90 01 44 | ......DEX.....D|
00000300: 45 58 00 0A 0B 9A 01 44 45 58 00 26 0B A4 01 42 |EX.....DEX.&...B|
00000310: 4E 45 20 4C 41 42 34 20 21 42 49 4A 20 45 52 52 |NE LAB4 !BIJ ERR|
00000320: B0 20 41 42 B0 54 00 3B 0B AE 01 4C 44 41 20 23 |. AB.T.;...LDA #|
00000330: 24 30 38 20 21 A0 20 46 49 4C 45 00 49 0B B8 01 |$08 !. FILE.I...|
00000340: 4A 53 52 20 24 46 46 43 33 00 56 0B C2 01 4C 44 |JSR $FFC3.V...LD|
00000350: 41 20 23 24 30 35 00 76 0B CC 01 4A 53 52 20 24 |A #$05.v...JSR $|
00000360: 43 30 38 31 20 21 43 41 4C 4C 20 53 45 43 AC AC |C081 !CALL SEC..|
00000370: AC AC AC AC AC AC 00 9B 0B D6 01 4A 53 52 20 24 |...........JSR $|
00000380: 43 30 39 31 20 21 53 45 54 20 44 49 52 20 4F 50 |C091 !SET DIR OP|
00000390: 20 53 43 48 45 52 4D AC AC AC AC 00 AD 0B E0 01 | SCHERM.........|
000003A0: 4A 4D 50 20 4C 41 42 34 20 21 89 20 80 00 C7 0B |JMP LAB4 !. ....|
000003B0: EA 01 4C 41 42 33 20 4C 44 41 20 23 24 30 38 20 |..LAB3 LDA #$08 |
000003C0: 21 A0 20 46 49 4C 45 00 D5 0B F4 01 4A 53 52 20 |!. FILE.....JSR |
000003D0: 24 46 46 43 33 00 F7 0B FE 01 4C 44 41 20 23 24 |$FFC3.....LDA #$|
000003E0: 30 34 20 21 53 45 54 20 4B 45 42 4F 41 52 44 20 |04 !SET KEBOARD |
000003F0: 43 4F 55 4E 54 45 52 00 03 0C 08 02 53 54 41 20 |COUNTER.....STA |
00000400: 31 39 38 00 15 0C 12 02 4C 44 41 20 23 24 35 32 |198.....LDA #$52|
00000410: 20 21 22 52 22 00 34 0C 1C 02 53 54 41 20 36 33 | !"R".4...STA 63|
00000420: 31 20 21 93 20 4B 45 59 42 4F 41 52 44 20 42 55 |1 !. KEYBOARD BU|
00000430: 46 46 45 52 00 44 0C 26 02 4C 44 41 20 23 24 35 |FFER.D.&.LDA #$5|
00000440: 35 20 21 55 00 50 0C 30 02 53 54 41 20 36 33 32 |5 !U.P.0.STA 632|
00000450: 00 60 0C 3A 02 4C 44 41 20 23 24 34 45 20 21 4E |.`.:.LDA #$4E !N|
00000460: 00 6C 0C 44 02 53 54 41 20 36 33 33 00 84 0C 4E |.l.D.STA 633...N|
00000470: 02 4C 44 41 20 23 24 30 44 20 21 43 41 52 49 41 |.LDA #$0D !CARIA|
00000480: 47 45 20 8E 00 90 0C 58 02 53 54 41 20 36 33 34 |GE ....X.STA 634|
00000490: 00 9D 0C 62 02 4C 41 42 34 20 52 54 53 00 C1 0C |...b.LAB4 RTS...|
000004A0: 6C 02 4C 44 59 20 23 24 46 46 20 21 53 54 41 52 |l.LDY #$FF !STAR|
000004B0: 54 20 56 45 52 54 52 41 47 20 53 55 42 52 AC AC |T VERTRAG SUBR..|
000004C0: AC 00 DF 0C 76 02 4C 41 42 32 20 4C 44 58 20 23 |....v.LAB2 LDX #|
000004D0: 24 46 46 20 21 53 45 54 20 56 52 54 20 49 4E 00 |$FF !SET VRT IN.|
000004E0: F9 0C 80 02 4C 41 42 31 20 44 45 58 20 21 53 45 |....LAB1 DEX !SE|
000004F0: 43 20 49 4E 20 41 43 43 55 00 12 0D 8A 02 42 4E |C IN ACCU.....BN|
00000500: 45 20 4C 41 42 31 20 21 A7 20 43 41 4C 4C 20 53 |E LAB1 !. CALL S|
00000510: 55 42 00 1A 0D 94 02 44 45 59 00 27 0D 9E 02 42 |UB.....DEY.'...B|
00000520: 4E 45 20 4C 41 42 32 00 2F 0D A8 02 54 41 58 00 |NE LAB2./...TAX.|
00000530: 37 0D B2 02 44 45 58 00 3F 0D BC 02 54 58 41 00 |7...DEX.?...TXA.|
00000540: 4C 0D C6 02 42 4E 45 20 4C 41 42 32 00 54 0D D0 |L...BNE LAB2.T..|
00000550: 02 52 54 53 00 74 0D DA 02 4C 44 41 20 23 24 32 |.RTS.t...LDA #$2|
00000560: 34 20 21 53 45 54 20 22 24 22 20 46 49 4C 45 20 |4 !SET "$" FILE |
00000570: 4E 41 4D 45 00 80 0D E4 02 53 54 41 20 24 46 42 |NAME.....STA $FB|
00000580: 00 A0 0D EE 02 4C 44 41 20 23 24 46 42 20 21 53 |.....LDA #$FB !S|
00000590: 45 54 20 50 4F B5 45 52 20 4F 50 20 46 49 4C 45 |ET PO.ER OP FILE|
000005A0: 00 AC 0D F8 02 53 54 41 20 24 42 42 00 B8 0D 02 |.....STA $BB....|
000005B0: 03 4C 44 41 20 23 30 30 00 C4 0D 0C 03 53 54 41 |.LDA #00.....STA|
000005C0: 20 24 42 43 00 E0 0D 16 03 4C 44 41 20 23 24 30 | $BC.....LDA #$0|
000005D0: 31 20 21 53 45 54 20 C3 47 54 45 20 4E 41 4D 45 |1 !SET .GTE NAME|
000005E0: 00 EC 0D 20 03 53 54 41 20 24 42 37 00 0C 0E 2A |... .STA $B7...*|
000005F0: 03 4C 44 41 20 23 24 30 38 20 21 53 45 54 20 44 |.LDA #$08 !SET D|
00000600: 45 56 49 43 45 20 4E 55 4D 4D 45 52 00 18 0E 34 |EVICE NUMMER...4|
00000610: 03 53 54 41 20 24 42 41 00 39 0E 3E 03 4C 44 41 |.STA $BA.9.>.LDA|
00000620: 20 23 24 36 30 20 21 53 45 54 20 53 45 43 44 41 | #$60 !SET SECDA|
00000630: 52 59 20 41 44 44 52 45 53 00 45 0E 48 03 53 54 |RY ADDRES.E.H.ST|
00000640: 41 20 24 42 39 00 53 0E 52 03 4A 53 52 20 24 46 |A $B9.S.R.JSR $F|
00000650: 33 44 35 00 74 0E 5C 03 4C 44 41 20 24 42 41 20 |3D5.t.\.LDA $BA |
00000660: 21 93 20 43 55 52 52 45 4E 54 20 44 45 56 49 43 |!. CURRENT DEVIC|
00000670: 45 20 4E 52 00 84 0E 66 03 4A 53 52 20 24 46 46 |E NR...f.JSR $FF|
00000680: 42 34 20 21 00 9E 0E 70 03 4C 44 41 20 24 42 39 |B4 !...p.LDA $B9|
00000690: 20 21 93 20 53 45 43 20 41 44 44 52 45 53 00 AC | !. SEC ADDRES..|
000006A0: 0E 7A 03 4A 53 52 20 24 46 46 39 36 00 B9 0E 84 |.z.JSR $FF96....|
000006B0: 03 4C 44 41 20 23 24 30 30 00 DC 0E 8E 03 53 54 |.LDA #$00.....ST|
000006C0: 41 20 24 39 30 20 21 53 45 54 20 4B 45 52 4E 41 |A $90 !SET KERNA|
000006D0: 4C 20 49 AD 4F 20 53 54 41 54 55 53 00 E9 0E 98 |L I.O STATUS....|
000006E0: 03 4C 44 59 20 23 24 30 33 00 F8 0E A2 03 42 32 |.LDY #$03.....B2|
000006F0: 20 53 54 59 20 24 46 42 00 1D 0F AC 03 4A 53 52 | STY $FB.....JSR|
00000700: 20 24 46 46 41 35 20 21 4C 45 45 53 20 42 59 54 | $FFA5 !LEES BYT|
00000710: 20 56 41 4E 20 53 45 52 3A 50 4F B0 54 00 29 0F | VAN SER:PO.T.).|
00000720: B6 03 53 54 41 20 24 46 43 00 35 0F C0 03 4C 44 |..STA $FC.5...LD|
00000730: 59 20 24 39 30 00 50 0F CA 03 42 4E 45 20 42 31 |Y $90.P...BNE B1|
00000740: 20 21 54 45 53 54 20 4F 50 20 53 54 41 54 55 53 | !TEST OP STATUS|
00000750: 00 6A 0F D4 03 4A 53 52 20 24 46 46 41 35 20 21 |.j...JSR $FFA5 !|
00000760: 4C 45 45 53 20 82 20 42 59 54 00 76 0F DE 03 4C |LEES . BYT.v...L|
00000770: 44 59 20 24 39 30 00 81 0F E8 03 42 4E 45 20 42 |DY $90.....BNE B|
00000780: 31 00 8D 0F F2 03 4C 44 59 20 24 46 42 00 95 0F |1.....LDY $FB...|
00000790: FC 03 44 45 59 00 A0 0F 06 04 42 4E 45 20 42 32 |..DEY.....BNE B2|
000007A0: 00 AC 0F 10 04 4C 44 58 20 24 46 43 00 BA 0F 1A |.....LDX $FC....|
000007B0: 04 4A 53 52 20 24 42 44 43 44 00 D2 0F 24 04 4C |.JSR $BDCD...$.L|
000007C0: 44 41 20 23 24 32 30 20 21 9F 20 43 48 41 4E 4E |DA #$20 !. CHANN|
000007D0: 45 4C 00 E0 0F 2E 04 4A 53 52 20 24 46 46 44 32 |EL.....JSR $FFD2|
000007E0: 00 FA 0F 38 04 42 34 20 4A 53 52 20 24 46 46 41 |...8.B4 JSR $FFA|
000007F0: 35 20 21 87 20 24 46 46 41 35 00 06 10 42 04 4C |5 !. $FFA5...B.L|
00000800: 44 58 20 24 39 30 00 11 10 4C 04 42 4E 45 20 42 |DX $90...L.BNE B|
00000810: 31 00 19 10 56 04 54 41 58 00 24 10 60 04 42 45 |1...V.TAX.$.`.BE|
00000820: 51 20 42 33 00 45 10 6A 04 4A 53 52 20 24 46 46 |Q B3.E.j.JSR $FF|
00000830: 44 32 20 21 53 45 54 20 43 48 52 20 4F 50 20 44 |D2 !SET CHR OP D|
00000840: 45 20 42 55 53 00 50 10 74 04 4A 4D 50 20 42 34 |E BUS.P.t.JMP B4|
00000850: 00 6B 10 7E 04 42 33 20 4C 44 41 20 23 24 30 44 |.k.~.B3 LDA #$0D|
00000860: 20 21 4C 44 20 43 41 52 52 20 8E 00 88 10 88 04 | !LD CARR ......|
00000870: 4A 53 52 20 24 46 46 44 32 20 21 53 45 54 20 4F |JSR $FFD2 !SET O|
00000880: 50 20 44 45 20 42 55 53 00 95 10 92 04 4C 44 59 |P DE BUS.....LDY|
00000890: 20 23 24 30 32 00 A0 10 9C 04 42 4E 45 20 42 32 | #$02.....BNE B2|
000008A0: 00 B1 10 A6 04 42 31 20 4A 53 52 20 24 46 36 34 |.....B1 JSR $F64|
000008B0: 32 00 BD 10 B0 04 4C 44 58 20 23 24 30 00 CB 10 |2.....LDX #$0...|
000008C0: BA 04 4A 53 52 20 24 46 46 43 46 00 EA 10 C4 04 |..JSR $FFCF.....|
000008D0: 4C 44 41 20 23 24 30 31 20 21 53 45 54 20 42 41 |LDA #$01 !SET BA|
000008E0: 53 49 43 20 50 4F B5 45 52 53 00 F5 10 CE 04 53 |SIC PO.ERS.....S|
000008F0: 54 41 20 34 33 00 02 11 D8 04 4C 44 41 20 23 24 |TA 43.....LDA #$|
00000900: 30 38 00 0D 11 E2 04 53 54 41 20 34 34 00 18 11 |08.....STA 44...|
00000910: EC 04 53 54 41 20 34 36 00 23 11 F6 04 53 54 41 |..STA 46.#...STA|
00000920: 20 34 38 00 2E 11 00 05 53 54 41 20 35 30 00 3B | 48.....STA 50.;|
00000930: 11 0A 05 4C 44 41 20 23 24 41 30 00 46 11 14 05 |...LDA #$A0.F...|
00000940: 53 54 41 20 35 32 00 51 11 1E 05 53 54 41 20 35 |STA 52.Q...STA 5|
00000950: 36 00 5E 11 28 05 4C 44 41 20 23 24 30 30 00 69 |6.^.(.LDA #$00.i|
00000960: 11 32 05 53 54 41 20 35 31 00 74 11 3C 05 53 54 |.2.STA 51.t.<.ST|
00000970: 41 20 35 33 00 7F 11 46 05 53 54 41 20 35 35 00 |A 53...F.STA 55.|
00000980: 8A 11 50 05 53 54 41 20 35 34 00 A7 11 5A 05 53 |..P.STA 54...Z.S|
00000990: 54 41 20 31 35 33 20 21 49 4E 56 4F 45 52 20 4B |TA 153 !INVOER K|
000009A0: 45 59 42 4F 41 52 44 00 B2 11 64 05 53 54 41 20 |EYBOARD...d.STA |
000009B0: 36 32 00 BD 11 6E 05 53 54 41 20 36 33 00 C8 11 |62...n.STA 63...|
000009C0: 78 05 53 54 41 20 36 34 00 D3 11 82 05 53 54 41 |x.STA 64.....STA|
000009D0: 20 36 39 00 DE 11 8C 05 53 54 41 20 37 30 00 FB | 69.....STA 70..|
000009E0: 11 96 05 4C 44 41 20 23 24 30 33 20 21 55 49 54 |...LDA #$03 !UIT|
000009F0: 56 4F 45 52 20 53 43 48 45 52 4D 00 07 12 A0 05 |VOER SCHERM.....|
00000A00: 53 54 41 20 31 35 34 00 12 12 AA 05 53 54 41 20 |STA 154.....STA |
00000A10: 34 35 00 1D 12 B4 05 53 54 41 20 34 37 00 28 12 |45.....STA 47.(.|
00000A20: BE 05 53 54 41 20 34 39 00 30 12 C8 05 52 54 53 |..STA 49.0...RTS|
00000A30: 00 36 12 D2 05 80 00 00 00 DC |.6........ |
......OUT 4.......$C000.1...W. $8009 !KO
UDE START.K.(.W. $8009 !WARME START.W.2.
BYT $C3.C.<.BYT $C2.O.F.BYT $CD.{.P.BYT
$38...Z.BYT $30...D.STX $D016 !INIT...N.
JSR $FDA3...X.JSR $FD50.E...JSR $FD15.S.
..JSR $FF5B.....CLI... .JSR $E453.....JS
R $E3BF.....JSR $E422.....LDX #$FB.#.H.T
XS !. STACK.A.R.LDA #$05 !SET VERT IN SE
C.B...JSR $C081 !CALL SUB..........R...T
XT "START".....LDA #$8 !LAAD DEVICE NR..
...LDX #$08 !SET .ICAL FILE NR2.P...LDY
#$08 !SET . OP DEVICE NR.....JSR $FFBA !
SET LFS.....LDA #$05 !SET AANTAL .TRS NA
AM.*.".LDX #$2A !..................K.,.L
DY #$C0 !SET ADR FICAME.....G.6.JSR $FFB
D !CALL SETNAME...@.LDA #$0 !SET AC VO.
. DISC...J.LDY #$FF. .T.LDX #$FF...^.JSR
$FFD5 !CALL . DISC.H.H.BCC LAB3.X.R.TAX
!. ACCU...|.DEX !TEST OP FILE . R.....D
EX.....DEX.....DEX.&...BNE LAB4 !BIJ ERR
. AB.T.;...LDA #$08 ! FILE.I...JSR $FFC
3.V.B.LDA #$05.V.L.JSR $C081 !CALL SEC..
.........V.JSR $C091 !SET DIR OP SCHERM.
........JMP LAB4 !. ..G...LAB3 LDA #$08
! FILE.U...JSR $FFC3.....LDA #$04 !SET
KEBOARD COUNTER.....STA 198.....LDA #$52
!"R".4...STA 631 !. KEYBOARD BUFFER.D.&
.LDA #$55 !U.P.0.STA 632.`.:.LDA #$4E !N
.L.D.STA 633...N.LDA #$0D !CARIAGE ....X
.STA 634...B.LAB4 RTS.A.L.LDY #$FF !STAR
T VERTRAG SUBR......V.LAB2 LDX #$FF !SET
VRT IN.....LAB1 DEX !SEC IN ACCU.....BN
E LAB1 !. CALL SUB.....DEY.'...BNE LAB2.
/...TAX.7...DEX.?...TXA.L.F.BNE LAB2.T.P
.RTS.T.Z.LDA #$24 !SET "$" FILE NAME....
.STA $FB. ...LDA #$FB !SET PO.ER OP FILE
.....STA $BB.....LDA #00.D...STA $BC....
.LDA #$01 !SET CGTE NAME... .STA $B7...*
.LDA #$08 !SET DEVICE NUMMER...4.STA $BA
.9.>.LDA #$60 !SET SECDARY ADDRES.E.H.ST
A $B9.S.R.JSR $F3D5.T.\.LDA $BA !. CURRE
NT DEVICE NR...F.JSR $FFB4 !...P.LDA $B9
!. SEC ADDRES...Z.JSR $FF96.....LDA #$0
0.....STA $90 !SET KERNAL I.O STATUS....
.LDY #$03.....B2 STY $FB.....JSR $FFA5 !
LEES BYT VAN SER:PO.T.)...STA $FC.5...LD
Y $90.P.J.BNE B1 !TEST OP STATUS.J.T.JSR
$FFA5 !LEES . BYT.V...LDY $90.....BNE B
1.....LDY $FB.....DEY. ...BNE B2.....LDX
$FC.....JSR $BDCD.R.$.LDA #$20 !. CHANN
EL.....JSR $FFD2...8.B4 JSR $FFA5 !. $FF
A5...B.LDX $90...L.BNE B1...V.TAX.$.`.BE
Q B3.E.J.JSR $FFD2 !SET CHR OP DE BUS.P.
T.JMP B4.K.~.B3 LDA #$0D !LD CARR ......
JSR $FFD2 !SET OP DE BUS.....LDY #$02. .
..BNE B2.....B1 JSR $F642.....LDX #$0.K.
..JSR $FFCF...D.LDA #$01 !SET BASIC PO.E
RS...N.STA 43...X.LDA #$08.....STA 44...
..STA 46.#...STA 48.....STA 50.;...LDA #
$A0.F...STA 52.Q...STA 56.^.(.LDA #$00.I
.2.STA 51.T.<.STA 53..F.STA 55...P.STA
54...Z.STA 153 !INVOER KEYBOARD...D.STA
62...N.STA 63.H.X.STA 64.S...STA 69.....
STA 70.....LDA #$03 !UITVOER SCHERM... .
STA 154.....STA 45.....STA 47.(...STA 49
.0.H.RTS.6.R......
> CLICK IMAGE PREVIEW FOR FULL MODAL