DOS SUPPORT
FILE INFORMATION
FILENAME(S): DOS SUPPORT
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
0d3244c44b6b9b682c56baf1b15c9915eb43070094bc6557a45f05ab839195a0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | DOS SUPPORT | PRG | DuncanTwain | 27 | 6 | DOWNLOAD FILE |
| RANS ISK2 | DOS SUPPORT | PRG | DuncanTwain | 27 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 44 4F 53 20 53 55 50 50 |..).... DOS SUPP|
00000010: 4F 52 54 20 28 44 2E 20 53 50 52 55 59 54 2C 20 |ORT (D. SPRUYT, |
00000020: 31 39 38 35 29 20 20 20 3A 00 2F 08 01 00 3A 00 |1985) :./...:.|
00000030: 4F 08 02 00 8F 20 35 20 53 54 41 54 45 4D 45 4E |O.... 5 STATEMEN|
00000040: 54 53 2C 20 32 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 2 FUNCTIONS.|
00000050: 55 08 03 00 3A 00 6D 08 04 00 8F 20 4B 45 59 57 |U...:.m.... KEYW|
00000060: 4F 52 44 20 43 48 41 52 53 3A 20 32 34 00 73 08 |ORD CHARS: 24.s.|
00000070: 05 00 3A 00 9B 08 06 00 8F 20 4B 45 59 57 4F 52 |..:...... KEYWOR|
00000080: 44 20 20 20 20 20 52 4F 55 54 49 4E 45 20 20 4C |D ROUTINE L|
00000090: 49 4E 45 20 20 20 53 45 52 20 23 00 C2 08 07 00 |INE SER #.....|
000000A0: 8F 20 20 53 2F 43 41 54 20 20 20 20 20 20 4B 41 |. S/CAT KA|
000000B0: 54 20 20 20 20 20 20 38 36 34 34 20 20 20 20 31 |T 8644 1|
000000C0: 32 33 00 E9 08 08 00 8F 20 20 53 2F 44 4F 53 20 |23...... S/DOS |
000000D0: 20 20 20 20 20 43 4F 4D 4D 53 20 20 20 20 38 37 | COMMS 87|
000000E0: 34 32 20 20 20 20 31 32 34 00 10 09 09 00 8F 20 |42 124...... |
000000F0: 20 53 2F 44 45 56 20 20 20 20 20 20 44 56 43 20 | S/DEV DVC |
00000100: 20 20 20 20 20 38 37 36 36 20 20 20 20 31 32 35 | 8766 125|
00000110: 00 36 09 0A 00 8F 20 53 2F 44 4C 4F 41 44 20 20 |.6.... S/DLOAD |
00000120: 20 20 44 4C 44 20 20 20 20 20 20 38 38 30 38 20 | DLD 8808 |
00000130: 20 20 20 31 32 36 00 5C 09 0B 00 8F 20 53 2F 44 | 126.\.... S/D|
00000140: 53 41 56 45 20 20 20 20 44 53 56 45 20 20 20 20 |SAVE DSVE |
00000150: 20 38 38 31 34 20 20 20 20 31 32 37 00 82 09 0C | 8814 127....|
00000160: 00 8F 20 46 2F 44 53 24 20 20 20 20 20 20 44 53 |.. F/DS$ DS|
00000170: 53 20 20 20 20 20 20 38 35 39 38 20 20 20 20 31 |S 8598 1|
00000180: 32 38 00 A8 09 0D 00 8F 20 46 2F 44 53 20 20 20 |28...... F/DS |
00000190: 20 20 20 20 44 53 4E 20 20 20 20 20 20 38 36 31 | DSN 861|
000001A0: 38 20 20 20 20 31 32 39 00 AE 09 0E 00 3A 00 C6 |8 129.....:..|
000001B0: 09 0F 00 8F 20 55 2F 55 53 46 50 20 28 32 36 32 |.... U/USFP (262|
000001C0: 30 2F 30 30 36 29 00 CC 09 10 00 3A 00 F3 09 11 |0/006).....:....|
000001D0: 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
000001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001F0: 3D 3D 3D 00 F9 09 12 00 3A 00 0C 0A 86 00 2E C6 |===.....:.......|
00000200: 20 22 43 41 D4 44 4F D3 44 45 D6 22 00 20 0A 87 | "CA.DO.DE.". ..|
00000210: 00 2E C6 20 22 44 4C 4F 41 C4 44 53 41 56 C5 22 |... "DLOA.DSAV."|
00000220: 00 3E 0A 6C 02 2E C6 20 22 44 53 22 3A 2E 42 59 |.>.l... "DS":.BY|
00000230: 54 45 20 24 41 34 3A 2E C6 20 22 44 D3 22 00 5B |TE $A4:.. "D.".[|
00000240: 0A 6E 04 2E 57 B0 44 20 4B 41 54 AB 31 2C 43 4F |.n..W.D KAT.1,CO|
00000250: 4D 4D 53 AB 31 2C 44 56 43 AB 31 00 71 0A 6F 04 |MMS.1,DVC.1.q.o.|
00000260: 2E 57 B0 44 20 44 4C 44 AB 31 2C 44 53 56 45 AB |.W.D DLD.1,DSVE.|
00000270: 31 00 86 0A 54 06 2E 57 B0 44 20 44 53 53 AB 31 |1...T..W.D DSS.1|
00000280: 2C 44 53 4E AB 31 00 96 0A 3C 0A 55 53 46 50 20 |,DSN.1...<.USFP |
00000290: 4C 44 58 20 23 30 00 A2 0A 3E 0A 53 54 58 20 24 |LDX #0...>.STX $|
000002A0: 30 44 00 AE 0A 40 0A 53 54 41 20 24 36 32 00 BA |0D...@.STA $62..|
000002B0: 0A 42 0A 53 54 59 20 24 36 33 00 C7 0A 44 0A 4C |.B.STY $63...D.L|
000002C0: 44 58 20 23 24 39 30 00 CF 0A 46 0A 53 45 43 00 |DX #$90...F.SEC.|
000002D0: DD 0A 48 0A 4A 4D 50 20 24 42 43 34 39 00 E3 0A |..H.JMP $BC49...|
000002E0: 4A 0A 3B 00 F7 0A 70 21 44 53 53 31 20 4C 44 41 |J.;...p!DSS1 LDA|
000002F0: 20 44 45 56 49 43 45 00 03 0B 72 21 53 54 41 20 | DEVICE...r!STA |
00000300: 24 42 41 00 10 0B 74 21 4C 44 41 20 23 24 36 46 |$BA...t!LDA #$6F|
00000310: 00 1C 0B 76 21 53 54 41 20 24 42 39 00 27 0B 78 |...v!STA $B9.'.x|
00000320: 21 4C 44 41 20 23 30 00 33 0B 7A 21 53 54 41 20 |!LDA #0.3.z!STA |
00000330: 24 42 37 00 42 0B 7C 21 4A 53 52 20 43 48 50 52 |$B7.B.|!JSR CHPR|
00000340: 45 53 00 4E 0B 7E 21 4C 44 41 20 24 42 41 00 5C |ES.N.~!LDA $BA.\|
00000350: 0B 80 21 4A 53 52 20 24 46 46 42 34 00 68 0B 82 |..!JSR $FFB4.h..|
00000360: 21 4C 44 41 20 24 42 39 00 76 0B 84 21 4A 53 52 |!LDA $B9.v..!JSR|
00000370: 20 24 46 46 39 36 00 83 0B 86 21 4C 44 59 20 23 | $FF96....!LDY #|
00000380: 24 46 46 00 90 0B 88 21 44 53 53 32 20 49 4E 59 |$FF....!DSS2 INY|
00000390: 00 9E 0B 8A 21 4A 53 52 20 24 46 46 41 35 00 AE |....!JSR $FFA5..|
000003A0: 0B 8C 21 53 54 41 20 44 53 42 55 46 2C 59 00 BB |..!STA DSBUF,Y..|
000003B0: 0B 8E 21 43 4D 50 20 23 24 30 44 00 C8 0B 90 21 |..!CMP #$0D....!|
000003C0: 42 4E 45 20 44 53 53 32 00 D6 0B 92 21 4A 53 52 |BNE DSS2....!JSR|
000003D0: 20 24 46 36 34 32 00 DE 0B 94 21 52 54 53 00 EF | $F642....!RTS..|
000003E0: 0B 96 21 44 53 53 20 4A 53 52 20 44 53 53 31 00 |..!DSS JSR DSS1.|
000003F0: F7 0B 98 21 54 59 41 00 05 0C 9A 21 4A 53 52 20 |...!TYA....!JSR |
00000400: 24 42 34 37 44 00 0D 0C 9C 21 54 41 59 00 22 0C |$B47D....!TAY.".|
00000410: 9E 21 44 53 53 33 20 4C 44 41 20 44 53 42 55 46 |.!DSS3 LDA DSBUF|
00000420: 2C 59 00 32 0C A0 21 53 54 41 20 28 24 36 32 29 |,Y.2..!STA ($62)|
00000430: 2C 59 00 3A 0C A2 21 44 45 59 00 47 0C A4 21 42 |,Y.:..!DEY.G..!B|
00000440: 50 4C 20 44 53 53 33 00 55 0C A6 21 4A 4D 50 20 |PL DSS3.U..!JMP |
00000450: 24 42 34 43 41 00 5B 0C A8 21 3B 00 6C 0C AA 21 |$B4CA.[..!;.l..!|
00000460: 44 53 4E 20 4A 53 52 20 44 53 53 31 00 7A 0C AC |DSN JSR DSS1.z..|
00000470: 21 4C 44 58 20 44 53 42 55 46 00 8A 0C AE 21 4C |!LDX DSBUF....!L|
00000480: 44 41 20 44 53 42 55 46 AA 31 00 95 0C B0 21 AF |DA DSBUF.1....!.|
00000490: 20 23 24 30 46 00 A7 0C B2 21 44 53 4E 31 20 43 | #$0F....!DSN1 C|
000004A0: 50 58 20 23 22 30 22 00 B4 0C B4 21 42 45 51 20 |PX #"0"....!BEQ |
000004B0: 44 53 4E 32 00 BC 0C B6 21 44 45 58 00 C7 0C B8 |DSN2....!DEX....|
000004C0: 21 41 44 43 20 23 39 00 D4 0C BA 21 42 43 43 20 |!ADC #9....!BCC |
000004D0: 44 53 4E 31 00 E1 0C BC 21 44 53 4E 32 20 54 41 |DSN1....!DSN2 TA|
000004E0: 59 00 EC 0C BE 21 4C 44 41 20 23 30 00 F9 0C C0 |Y....!LDA #0....|
000004F0: 21 4A 4D 50 20 55 53 46 50 00 FF 0C C2 21 3B 00 |!JMP USFP....!;.|
00000500: 12 0D C4 21 4B 41 54 20 4C 44 41 20 44 45 56 49 |...!KAT LDA DEVI|
00000510: 43 45 00 1E 0D C6 21 53 54 41 20 24 42 41 00 2B |CE....!STA $BA.+|
00000520: 0D C8 21 4C 44 41 20 23 24 36 30 00 37 0D CA 21 |..!LDA #$60.7..!|
00000530: 53 54 41 20 24 42 39 00 42 0D CC 21 4C 44 41 20 |STA $B9.B..!LDA |
00000540: 23 31 00 53 0D CE 21 4C 44 59 20 23 B1 44 4F 4C |#1.S..!LDY #.DOL|
00000550: 4C 41 52 00 64 0D D0 21 4C 44 58 20 23 B3 44 4F |LAR.d..!LDX #.DO|
00000560: 4C 4C 41 52 00 72 0D D2 21 4A 53 52 20 24 46 46 |LLAR.r..!JSR $FF|
00000570: 42 44 00 80 0D D4 21 4A 53 52 20 24 46 33 44 35 |BD....!JSR $F3D5|
00000580: 00 8C 0D D6 21 4C 44 41 20 24 42 41 00 9A 0D D8 |....!LDA $BA....|
00000590: 21 4A 53 52 20 24 46 46 42 34 00 A6 0D DA 21 4C |!JSR $FFB4....!L|
000005A0: 44 41 20 24 42 39 00 B4 0D DC 21 4A 53 52 20 24 |DA $B9....!JSR $|
000005B0: 46 46 39 36 00 BF 0D DE 21 4C 44 41 20 23 30 00 |FF96....!LDA #0.|
000005C0: CB 0D E0 21 53 54 41 20 24 39 30 00 D9 0D E2 21 |...!STA $90....!|
000005D0: 4A 53 52 20 24 46 46 41 35 00 E7 0D E4 21 4A 53 |JSR $FFA5....!JS|
000005E0: 52 20 24 46 46 41 35 00 FA 0D E6 21 4B 41 54 31 |R $FFA5....!KAT1|
000005F0: 20 4A 53 52 20 24 46 46 41 35 00 08 0E E8 21 4A | JSR $FFA5....!J|
00000600: 53 52 20 24 46 46 41 35 00 14 0E EA 21 4C 44 58 |SR $FFA5....!LDX|
00000610: 20 24 39 30 00 21 0E EC 21 42 4E 45 20 4B 41 54 | $90.!..!BNE KAT|
00000620: 32 00 29 0E EE 21 54 41 58 00 36 0E F0 21 42 4E |2.)..!TAX.6..!BN|
00000630: 45 20 4B 41 54 33 00 49 0E F2 21 4B 41 54 32 20 |E KAT3.I..!KAT2 |
00000640: 4A 53 52 20 24 46 36 34 32 00 57 0E F4 21 4A 4D |JSR $F642.W..!JM|
00000650: 50 20 24 41 41 44 37 00 6A 0E F6 21 4B 41 54 33 |P $AAD7.j..!KAT3|
00000660: 20 4A 53 52 20 24 41 41 44 37 00 78 0E F8 21 4A | JSR $AAD7.x..!J|
00000670: 53 52 20 24 46 46 41 35 00 83 0E FA 21 53 54 41 |SR $FFA5....!STA|
00000680: 20 54 32 00 91 0E FC 21 4A 53 52 20 24 46 46 41 | T2....!JSR $FFA|
00000690: 35 00 9C 0E FE 21 4C 44 58 20 54 32 00 AA 0E 00 |5....!LDX T2....|
000006A0: 22 4A 53 52 20 24 42 44 43 44 00 B8 0E 02 22 4A |"JSR $BDCD...."J|
000006B0: 53 52 20 24 41 42 33 46 00 CB 0E 04 22 4B 41 54 |SR $AB3F...."KAT|
000006C0: 34 20 4A 53 52 20 24 46 46 41 35 00 D7 0E 06 22 |4 JSR $FFA5...."|
000006D0: 4C 44 58 20 24 39 30 00 E4 0E 08 22 42 4E 45 20 |LDX $90...."BNE |
000006E0: 4B 41 54 32 00 F2 0E 0A 22 4A 53 52 20 24 46 46 |KAT2...."JSR $FF|
000006F0: 44 32 00 FF 0E 0C 22 42 4E 45 20 4B 41 54 34 00 |D2...."BNE KAT4.|
00000700: 0D 0F 0E 22 4A 53 52 20 24 46 46 45 31 00 1A 0F |..."JSR $FFE1...|
00000710: 10 22 42 45 51 20 4B 41 54 32 00 28 0F 12 22 4A |."BEQ KAT2.(.."J|
00000720: 53 52 20 24 46 46 45 34 00 35 0F 14 22 42 45 51 |SR $FFE4.5.."BEQ|
00000730: 20 4B 41 54 31 00 48 0F 16 22 4B 41 54 35 20 4A | KAT1.H.."KAT5 J|
00000740: 53 52 20 24 46 46 45 31 00 55 0F 18 22 42 45 51 |SR $FFE1.U.."BEQ|
00000750: 20 4B 41 54 32 00 63 0F 1A 22 4A 53 52 20 24 46 | KAT2.c.."JSR $F|
00000760: 46 45 34 00 70 0F 1C 22 42 45 51 20 4B 41 54 35 |FE4.p.."BEQ KAT5|
00000770: 00 7D 0F 1E 22 42 4E 45 20 4B 41 54 31 00 92 0F |.}.."BNE KAT1...|
00000780: 20 22 44 4F 4C 4C 41 52 20 2E 42 59 54 45 20 22 | "DOLLAR .BYTE "|
00000790: 24 22 00 A5 0F 22 22 44 45 56 49 43 45 20 2E 42 |$"...""DEVICE .B|
000007A0: 59 54 45 20 38 00 AB 0F 24 22 3B 00 BF 0F 26 22 |YTE 8...$";...&"|
000007B0: 43 4F 4D 4D 53 20 4A 53 52 20 24 41 44 39 45 00 |COMMS JSR $AD9E.|
000007C0: CD 0F 28 22 4A 53 52 20 24 42 36 41 33 00 D9 0F |..("JSR $B6A3...|
000007D0: 2A 22 53 54 41 20 24 42 37 00 E5 0F 2C 22 53 54 |*"STA $B7...,"ST|
000007E0: 59 20 24 42 43 00 F1 0F 2E 22 53 54 58 20 24 42 |Y $BC...."STX $B|
000007F0: 42 00 00 10 30 22 4C 44 41 20 44 45 56 49 43 45 |B...0"LDA DEVICE|
00000800: 00 0C 10 32 22 53 54 41 20 24 42 41 00 19 10 34 |...2"STA $BA...4|
00000810: 22 4C 44 41 20 23 24 36 46 00 25 10 36 22 53 54 |"LDA #$6F.%.6"ST|
00000820: 41 20 24 42 39 00 34 10 38 22 4A 53 52 20 43 48 |A $B9.4.8"JSR CH|
00000830: 50 52 45 53 00 42 10 3A 22 4A 4D 50 20 24 46 33 |PRES.B.:"JMP $F3|
00000840: 44 35 00 48 10 3C 22 3B 00 5A 10 3E 22 44 56 43 |D5.H.<";.Z.>"DVC|
00000850: 20 4A 53 52 20 24 42 37 39 45 00 65 10 40 22 43 | JSR $B79E.e.@"C|
00000860: 50 58 20 23 38 00 72 10 42 22 42 43 43 20 44 56 |PX #8.r.B"BCC DV|
00000870: 43 32 00 7F 10 44 22 43 50 58 20 23 24 30 43 00 |C2...D"CPX #$0C.|
00000880: 8C 10 46 22 42 43 53 20 44 56 43 32 00 9B 10 48 |..F"BCS DVC2...H|
00000890: 22 53 54 58 20 44 45 56 49 43 45 00 A8 10 4A 22 |"STX DEVICE...J"|
000008A0: 44 56 43 31 20 52 54 53 00 BB 10 4C 22 44 56 43 |DVC1 RTS...L"DVC|
000008B0: 32 20 4A 4D 50 20 24 42 32 34 38 00 C1 10 4E 22 |2 JMP $B248...N"|
000008C0: 3B 00 D1 10 50 22 4E 41 4D 45 20 4C 44 41 20 23 |;...P"NAME LDA #|
000008D0: 30 00 DD 10 52 22 53 54 41 20 24 42 39 00 E9 10 |0...R"STA $B9...|
000008E0: 54 22 53 54 41 20 24 30 41 00 F7 10 56 22 4A 53 |T"STA $0A...V"JS|
000008F0: 52 20 24 45 32 35 37 00 06 11 58 22 4C 44 41 20 |R $E257...X"LDA |
00000900: 44 45 56 49 43 45 00 12 11 5A 22 53 54 41 20 24 |DEVICE...Z"STA $|
00000910: 42 41 00 1E 11 5C 22 4A 53 52 20 24 37 39 00 2B |BA...\"JSR $79.+|
00000920: 11 5E 22 42 45 51 20 44 56 43 31 00 39 11 60 22 |.^"BEQ DVC1.9.`"|
00000930: 4A 53 52 20 24 41 45 46 44 00 47 11 62 22 4A 53 |JSR $AEFD.G.b"JS|
00000940: 52 20 24 42 37 39 45 00 55 11 64 22 4A 4D 50 20 |R $B79E.U.d"JMP |
00000950: 24 45 31 45 43 00 5B 11 66 22 3B 00 6C 11 68 22 |$E1EC.[.f";.l.h"|
00000960: 44 4C 44 20 4A 53 52 20 4E 41 4D 45 00 7A 11 6A |DLD JSR NAME.z.j|
00000970: 22 4A 4D 50 20 24 45 31 36 46 00 80 11 6C 22 3B |"JMP $E16F...l";|
00000980: 00 92 11 6E 22 44 53 56 45 20 4A 53 52 20 4E 41 |...n"DSVE JSR NA|
00000990: 4D 45 00 A0 11 70 22 4A 4D 50 20 24 45 31 35 39 |ME...p"JMP $E159|
000009A0: 00 A6 11 72 22 3B 00 B8 11 74 22 43 48 50 52 45 |...r";...t"CHPRE|
000009B0: 53 20 4C 44 41 20 23 30 00 C4 11 76 22 53 54 41 |S LDA #0...v"STA|
000009C0: 20 24 39 30 00 D0 11 78 22 4C 44 41 20 24 42 41 | $90...x"LDA $BA|
000009D0: 00 DE 11 7A 22 4A 53 52 20 24 46 46 42 31 00 EC |...z"JSR $FFB1..|
000009E0: 11 7C 22 4A 53 52 20 24 46 46 41 45 00 F8 11 7E |.|"JSR $FFAE...~|
000009F0: 22 4C 44 41 20 24 39 30 00 05 12 80 22 42 4E 45 |"LDA $90...."BNE|
00000A00: 20 43 48 50 31 00 0D 12 82 22 52 54 53 00 1D 12 | CHP1...."RTS...|
00000A10: 84 22 43 48 50 31 20 4C 44 58 20 23 35 00 2C 12 |."CHP1 LDX #5.,.|
00000A20: 86 22 4A 4D 50 20 28 24 33 30 30 29 00 32 12 88 |."JMP ($300).2..|
00000A30: 22 3B 00 44 12 8A 22 44 53 42 55 46 20 AC B2 AC |";.D.."DSBUF ...|
00000A40: AA 24 32 34 00 4A 12 8C 22 3B 00 00 00 |.$24.J..";... |
..).... DOS SUPPORT (D. SPRUYT, 1985)
:./...:.O.... 5 STATEMENTS, 2 FUNCTIONS.
U...:.M.... KEYWORD CHARS: 24.S...:.....
. KEYWORD ROUTINE LINE SER #.B...
. S/CAT KAT 8644 123......
S/DOS COMMS 8742 124......
S/DEV DVC 8766 125.6.... S
/DLOAD DLD 8808 126.\.... S/D
SAVE DSVE 8814 127...... F/DS$
DSS 8598 128...... F/DS
DSN 8618 129.....:.F.... U/U
SFP (2620/006).L...:...... =============
===================.....:......F "CATDOS
DEV". ....F "DLOADDSAVE".>.L..F "DS":.BY
TE $A4:.F "DS".[.N..W.D KAT.1,COMMS.1,DV
C.1.Q.O..W.D DLD.1,DSVE.1...T..W.D DSS.1
,DSN.1...<.USFP LDX #0...>.STX $0D...@.S
TA $62...B.STY $63.G.D.LDX #$90.O.F.SEC.
..H.JMP $BC49...J.;...P!DSS1 LDA DEVICE.
..R!STA $BA...T!LDA #$6F...V!STA $B9.'.X
!LDA #0.3.Z!STA $B7.B.|!JSR CHPRES.N.~!L
DA $BA.\..!JSR $FFB4.H..!LDA $B9.V..!JSR
$FF96....!LDY #$FF....!DSS2 INY....!JSR
$FFA5....!STA DSBUF,Y....!CMP #$0D.H..!
BNE DSS2.V..!JSR $F642....!RTS....!DSS J
SR DSS1....!TYA....!JSR $B47D....!TAY.".
.!DSS3 LDA DSBUF,Y.2. !STA ($62),Y.:..!D
EY.G..!BPL DSS3.U..!JMP $B4CA.[..!;.L..!
DSN JSR DSS1.Z..!LDX DSBUF....!LDA DSBUF
.1....!. #$0F....!DSN1 CPX #"0"....!BEQ
DSN2....!DEX.G..!ADC #9.T..!BCC DSN1....
!DSN2 TAY....!LDA #0....!JMP USFP...B!;.
..D!KAT LDA DEVICE...F!STA $BA.+.H!LDA #
$60.7.J!STA $B9.B.L!LDA #1.S.N!LDY #.DOL
LAR.D.P!LDX #.DOLLAR.R.R!JSR $FFBD...T!J
SR $F3D5...V!LDA $BA...X!JSR $FFB4...Z!L
DA $B9....!JSR $FF96....!LDA #0.K..!STA
$90.Y..!JSR $FFA5....!JSR $FFA5....!KAT1
JSR $FFA5....!JSR $FFA5....!LDX $90.!..
!BNE KAT2.)..!TAX.6..!BNE KAT3.I..!KAT2
JSR $F642.W..!JMP $AAD7.J..!KAT3 JSR $AA
D7.X..!JSR $FFA5....!STA T2....!JSR $FFA
5....!LDX T2...."JSR $BDCD...."JSR $AB3F
.K.."KAT4 JSR $FFA5.W.."LDX $90...."BNE
KAT2...."JSR $FFD2...."BNE KAT4...."JSR
$FFE1...."BEQ KAT2.(.."JSR $FFE4.5.."BEQ
KAT1.H.."KAT5 JSR $FFE1.U.."BEQ KAT2.C.
."JSR $FFE4.P.."BEQ KAT5.}.."BNE KAT1...
"DOLLAR .BYTE "$"...""DEVICE .BYTE 8...
$";...&"COMMS JSR $AD9E.M.("JSR $B6A3.Y.
*"STA $B7...,"STY $BC...."STX $BB...0"LD
A DEVICE...2"STA $BA...4"LDA #$6F.%.6"ST
A $B9.4.8"JSR CHPRES.B.:"JMP $F3D5.H.<";
.Z.>"DVC JSR $B79E.E.@"CPX #8.R.B"BCC DV
C2..D"CPX #$0C...F"BCS DVC2...H"STX DEV
ICE...J"DVC1 RTS...L"DVC2 JMP $B248.A.N"
;.Q.P"NAME LDA #0...R"STA $B9...T"STA $0
A...V"JSR $E257...X"LDA DEVICE...Z"STA $
BA...\"JSR $79.+.^"BEQ DVC1.9.`"JSR $AEF
D.G.B"JSR $B79E.U.D"JMP $E1EC.[.F";.L.H"
DLD JSR NAME.Z.J"JMP $E16F...L";...N"DSV
E JSR NAME. .P"JMP $E159...R";...T"CHPRE
S LDA #0.D.V"STA $90.P.X"LDA $BA...Z"JSR
$FFB1...|"JSR $FFAE...~"LDA $90...."BNE
CHP1...."RTS...."CHP1 LDX #5.,.."JMP ($
300).2..";.D.."DSBUF ....$24.J..";...
> CLICK IMAGE PREVIEW FOR FULL MODAL