FN PARSER.PAL
FILE INFORMATION
FILENAME(S): FN PARSER.PAL
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-11-30 21:15:11
APPEARS ON: 1 disk(s)
FILE HASH
b549ae1fe436964cb57da8625851232fc230c1b9a7ba76ea1fd343aa2c4e1f38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | FN PARSER.PAL | PRG | DuncanTwain | 28 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 E8 03 9E 37 30 30 00 31 08 F2 03 3B |.......700.1...;|
00000010: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000030: AC 00 58 08 FC 03 3B AC 20 46 49 4C 45 AB 53 50 |..X...;. FILE.SP|
00000040: 45 43 20 50 41 52 53 45 52 20 20 20 20 20 20 20 |EC PARSER |
00000050: 20 20 20 20 20 20 20 AC 00 7E 08 06 04 3B AC 20 | ..~...;. |
00000060: 53 45 50 20 32 31 2C 20 31 39 38 37 20 20 56 45 |SEP 21, 1987 VE|
00000070: 52 53 49 91 20 31 2E 30 20 20 20 20 20 AC 00 A5 |RSI. 1.0 ...|
00000080: 08 10 04 3B AC 20 20 20 20 20 20 20 20 20 20 20 |...;. |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 AC 00 CC 08 1A 04 3B AC 20 4B 45 41 | ......;. KEA|
000000B0: 54 48 20 4D 49 4C 4C 49 47 41 4E 20 20 20 20 20 |TH MILLIGAN |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 AC 00 F3 08 24 | ....$|
000000D0: 04 3B AC 20 31 31 39 30 39 20 53 57 41 4E 20 44 |.;. 11909 SWAN D|
000000E0: 52 49 56 45 20 20 20 20 20 20 20 20 20 20 20 20 |RIVE |
000000F0: 20 20 AC 00 1A 09 2E 04 3B AC 20 41 55 53 54 49 | ......;. AUSTI|
00000100: 4E 2C 20 54 58 20 37 38 37 35 30 20 20 20 20 20 |N, TX 78750 |
00000110: 20 20 20 20 20 20 20 20 20 AC 00 41 09 38 04 3B | ..A.8.;|
00000120: AC 20 28 35 31 32 29 20 33 33 31 AB 38 34 35 31 |. (512) 331.8451|
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: AC 00 68 09 42 04 3B AC AC AC AC AC AC AC AC AC |..h.B.;.........|
00000150: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000160: AC AC AC AC AC AC AC AC 00 6E 09 4C 04 3B 00 74 |.........n.L.;.t|
00000170: 09 56 04 3B 00 89 09 60 04 20 20 20 20 20 20 20 |.V.;...`. |
00000180: 20 20 2E 4F 50 54 20 4F 4F 00 8F 09 6A 04 3B 00 | .OPT OO...j.;.|
00000190: 9F 09 74 04 A5 C3 20 20 20 20 B2 20 24 42 37 00 |..t... . $B7.|
000001A0: B2 09 7E 04 4C 41 20 20 20 20 20 20 20 B2 20 24 |..~.LA . $|
000001B0: 42 38 00 C5 09 88 04 53 41 20 20 20 20 20 20 20 |B8.....SA |
000001C0: B2 20 24 42 39 00 D8 09 92 04 46 41 20 20 20 20 |. $B9.....FA |
000001D0: 20 20 20 B2 20 24 42 41 00 EA 09 9C 04 A5 41 44 | . $BA......AD|
000001E0: 52 20 20 20 20 B2 20 24 42 42 00 FD 09 A6 04 41 |R . $BB.....A|
000001F0: 50 54 52 20 20 20 20 20 B2 20 24 30 33 00 10 0A |PTR . $03...|
00000200: B0 04 42 50 54 52 20 20 20 20 20 B2 20 24 30 35 |..BPTR . $05|
00000210: 00 16 0A BA 04 3B 00 2D 0A C4 04 20 20 20 20 20 |.....;.-... |
00000220: 20 20 20 20 4C 44 41 20 23 B3 9F 42 50 00 44 0A | LDA #..BP.D.|
00000230: CE 04 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |.. LDY #|
00000240: B1 9F 42 50 00 59 0A D8 04 20 20 20 20 20 20 20 |..BP.Y... |
00000250: 20 20 53 54 41 20 37 39 34 00 6E 0A E2 04 20 20 | STA 794.n... |
00000260: 20 20 20 20 20 20 20 53 54 59 20 37 39 35 00 85 | STY 795..|
00000270: 0A EC 04 20 20 20 20 20 20 20 20 20 4C 44 41 20 |... LDA |
00000280: 23 B3 93 42 50 00 9C 0A F6 04 20 20 20 20 20 20 |#..BP..... |
00000290: 20 20 20 4C 44 59 20 23 B1 93 42 50 00 B1 0A 00 | LDY #..BP....|
000002A0: 05 20 20 20 20 20 20 20 20 20 53 54 41 20 38 31 |. STA 81|
000002B0: 36 00 C6 0A 0A 05 20 20 20 20 20 20 20 20 20 53 |6..... S|
000002C0: 54 59 20 38 31 37 00 DD 0A 14 05 20 20 20 20 20 |TY 817..... |
000002D0: 20 20 20 20 4C 44 41 20 23 B3 94 42 50 00 F4 0A | LDA #..BP...|
000002E0: 1E 05 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |.. LDY #|
000002F0: B1 94 42 50 00 09 0B 28 05 20 20 20 20 20 20 20 |..BP...(. |
00000300: 20 20 53 54 41 20 38 31 38 00 1E 0B 32 05 20 20 | STA 818...2. |
00000310: 20 20 20 20 20 20 20 53 54 41 20 38 31 39 00 2F | STA 819./|
00000320: 0B 3C 05 20 20 20 20 20 20 20 20 20 52 54 53 00 |.<. RTS.|
00000330: 35 0B 46 05 3B 00 49 0B 50 05 9F 42 50 20 20 20 |5.F.;.I.P..BP |
00000340: 4A 53 52 20 50 41 52 53 45 00 60 0B 5A 05 20 20 |JSR PARSE.`.Z. |
00000350: 20 20 20 20 20 20 20 4A 4D 50 20 24 46 33 34 41 | JMP $F34A|
00000360: 00 66 0B 64 05 3B 00 74 0B 6E 05 93 42 50 20 20 |.f.d.;.t.n..BP |
00000370: 20 50 48 41 00 8B 0B 78 05 20 20 20 20 20 20 20 | PHA...x. |
00000380: 20 20 4A 53 52 20 50 41 52 53 45 00 9C 0B 82 05 | JSR PARSE.....|
00000390: 20 20 20 20 20 20 20 20 20 50 4C 41 00 B3 0B 8C | PLA....|
000003A0: 05 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 46 |. JMP $F|
000003B0: 34 41 35 00 B9 0B 96 05 3B 00 CD 0B A0 05 94 42 |4A5.....;......B|
000003C0: 50 20 20 20 4A 53 52 20 50 41 52 53 45 00 E4 0B |P JSR PARSE...|
000003D0: AA 05 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 |.. JMP $|
000003E0: 46 35 45 44 00 EA 0B B4 05 3B 00 05 0C BE 05 3B |F5ED.....;.....;|
000003F0: AC AC AC 20 50 41 52 53 45 20 52 4F 55 54 49 4E |... PARSE ROUTIN|
00000400: 45 20 AC AC AC 00 0B 0C C8 05 3B 00 21 0C D2 05 |E ........;.!...|
00000410: 50 41 52 53 45 20 20 20 20 4C 44 41 20 A5 41 44 |PARSE LDA .AD|
00000420: 52 00 39 0C DC 05 20 20 20 20 20 20 20 20 20 53 |R.9... S|
00000430: 54 41 20 A5 50 54 52 AA 31 00 51 0C E6 05 20 20 |TA .PTR.1.Q... |
00000440: 20 20 20 20 20 20 20 4C 44 41 20 A5 41 44 52 AA | LDA .ADR.|
00000450: 31 00 69 0C F0 05 20 20 20 20 20 20 20 20 20 53 |1.i... S|
00000460: 54 41 20 A5 50 54 52 AA 32 00 7D 0C FA 05 20 20 |TA .PTR.2.}... |
00000470: 20 20 20 20 20 20 20 4C 44 41 20 46 41 00 93 0C | LDA FA...|
00000480: 04 06 20 20 20 20 20 20 20 20 20 53 54 41 20 54 |.. STA T|
00000490: 44 45 56 00 A7 0C 0E 06 20 20 20 20 20 20 20 20 |DEV..... |
000004A0: 20 4C 44 41 20 53 41 00 BC 0C 18 06 20 20 20 20 | LDA SA..... |
000004B0: 20 20 20 20 20 53 54 41 20 54 53 41 00 D0 0C 22 | STA TSA..."|
000004C0: 06 20 20 20 20 20 20 20 20 20 4C 44 41 20 A5 C3 |. LDA ..|
000004D0: 00 E5 0C 2C 06 20 20 20 20 20 20 20 20 20 53 54 |...,. ST|
000004E0: 41 20 43 54 52 00 FC 0C 36 06 20 20 20 20 20 20 |A CTR...6. |
000004F0: 20 20 20 4A 53 52 20 A1 46 43 48 52 00 12 0D 40 | JSR .FCHR...@|
00000500: 06 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 |. CMP #"|
00000510: 23 22 00 2A 0D 4A 06 20 20 20 20 20 20 20 20 20 |#".*.J. |
00000520: 42 45 51 20 43 48 45 43 4B A5 00 40 0D 54 06 20 |BEQ CHECK..@.T. |
00000530: 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 44 22 | CMP #"D"|
00000540: 00 58 0D 5E 06 20 20 20 20 20 20 20 20 20 42 45 |.X.^. BE|
00000550: 51 20 43 48 45 43 4B A5 00 6E 0D 68 06 20 20 20 |Q CHECK..n.h. |
00000560: 20 20 20 20 20 20 43 4D 50 20 23 22 50 22 00 86 | CMP #"P"..|
00000570: 0D 72 06 20 20 20 20 20 20 20 20 20 42 4E 45 20 |.r. BNE |
00000580: 43 48 4B 44 45 56 00 99 0D 7C 06 43 48 45 43 4B |CHKDEV...|.CHECK|
00000590: A5 20 20 4C 44 58 20 23 30 00 B1 0D 86 06 20 20 |. LDX #0..... |
000005A0: 20 20 20 20 20 20 20 53 54 41 20 54 44 4E 41 4D | STA TDNAM|
000005B0: 45 00 C3 0D 90 06 A1 82 20 20 4A 53 52 20 A1 46 |E....... JSR .F|
000005C0: 43 48 52 00 D9 0D 9A 06 20 20 20 20 20 20 20 20 |CHR..... |
000005D0: 20 53 54 41 20 54 53 45 50 00 EF 0D A4 06 20 20 | STA TSEP..... |
000005E0: 20 20 20 20 20 20 20 43 4D 50 20 23 22 3A 22 00 | CMP #":".|
000005F0: 04 0E AE 06 20 20 20 20 20 20 20 20 20 42 45 51 |.... BEQ|
00000600: 20 A5 4F 4B 00 1A 0E B8 06 20 20 20 20 20 20 20 | .OK..... |
00000610: 20 20 43 4D 50 20 23 22 2C 22 00 2F 0E C2 06 20 | CMP #","./... |
00000620: 20 20 20 20 20 20 20 20 42 45 51 20 A5 4F 4B 00 | BEQ .OK.|
00000630: 45 0E CC 06 20 20 20 20 20 20 20 20 20 43 4D 50 |E... CMP|
00000640: 20 23 22 30 22 00 5D 0E D6 06 20 20 20 20 20 20 | #"0".]... |
00000650: 20 20 20 42 43 43 20 43 48 4B 44 45 56 00 75 0E | BCC CHKDEV.u.|
00000660: E0 06 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |.. CMP #|
00000670: 22 39 22 AA 31 00 8D 0E EA 06 20 20 20 20 20 20 |"9".1..... |
00000680: 20 20 20 42 43 53 20 43 48 4B 44 45 56 00 9E 0E | BCS CHKDEV...|
00000690: F4 06 20 20 20 20 20 20 20 20 20 49 4E 58 00 B2 |.. INX..|
000006A0: 0E FE 06 20 20 20 20 20 20 20 20 20 43 50 58 20 |... CPX |
000006B0: 23 33 00 C6 0E 08 07 20 20 20 20 20 20 20 20 20 |#3..... |
000006C0: 42 4E 45 20 47 82 00 DA 0E 12 07 43 48 4B 44 45 |BNE G......CHKDE|
000006D0: 56 20 20 20 4C 44 41 20 A5 C3 00 F2 0E 1C 07 20 |V LDA ....... |
000006E0: 20 20 20 20 20 20 20 20 42 45 51 20 50 41 52 53 | BEQ PARS|
000006F0: 45 58 00 06 0F 26 07 20 20 20 20 20 20 20 20 20 |EX...&. |
00000700: 4C 44 41 20 46 41 00 1A 0F 30 07 20 20 20 20 20 |LDA FA...0. |
00000710: 20 20 20 20 43 4D 50 20 23 31 00 32 0F 3A 07 20 | CMP #1.2.:. |
00000720: 20 20 20 20 20 20 20 20 42 4E 45 20 50 41 52 53 | BNE PARS|
00000730: 45 58 00 58 0F 44 07 20 20 20 20 20 20 20 20 20 |EX.X.D. |
00000740: 4C 44 41 20 23 38 20 20 20 20 20 20 3B 96 41 55 |LDA #8 ;.AU|
00000750: 4C 54 20 44 52 49 56 45 00 6C 0F 4E 07 20 20 20 |LT DRIVE.l.N. |
00000760: 20 20 20 20 20 20 53 54 41 20 46 41 00 7D 0F 58 | STA FA.}.X|
00000770: 07 50 41 52 53 45 58 20 20 20 52 54 53 00 8E 0F |.PARSEX RTS...|
00000780: 62 07 47 82 20 20 20 20 42 4E 45 20 A1 82 00 B3 |b.G. BNE ....|
00000790: 0F 6C 07 A5 4F 4B 20 20 20 20 20 43 50 58 20 23 |.l..OK CPX #|
000007A0: 30 20 20 20 20 20 20 3B 23 20 4F 46 20 44 49 47 |0 ;# OF DIG|
000007B0: 49 54 53 00 CB 0F 76 07 20 20 20 20 20 20 20 20 |ITS...v. |
000007C0: 20 42 45 51 20 43 48 4B 44 45 56 00 E1 0F 80 07 | BEQ CHKDEV.....|
000007D0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 A5 41 44 | LDA .AD|
000007E0: 52 00 F9 0F 8A 07 20 20 20 20 20 20 20 20 20 53 |R..... S|
000007F0: 54 41 20 A5 50 54 52 AA 31 00 11 10 94 07 20 20 |TA .PTR.1..... |
00000800: 20 20 20 20 20 20 20 4C 44 41 20 A5 41 44 52 AA | LDA .ADR.|
00000810: 31 00 29 10 9E 07 20 20 20 20 20 20 20 20 20 53 |1.)... S|
00000820: 54 41 20 A5 50 54 52 AA 32 00 3D 10 A8 07 20 20 |TA .PTR.2.=... |
00000830: 20 20 20 20 20 20 20 4C 44 41 20 A5 C3 00 52 10 | LDA ...R.|
00000840: B2 07 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |.. STA C|
00000850: 54 52 00 6F 10 BC 07 3B A1 20 50 4F B5 45 52 20 |TR.o...;. PO.ER |
00000860: 91 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 00 |. DEVICE NUMBER.|
00000870: 86 10 C6 07 20 20 20 20 20 20 20 20 20 4A 53 52 |.... JSR|
00000880: 20 A1 46 43 48 52 00 9E 10 D0 07 20 20 20 20 20 | .FCHR..... |
00000890: 20 20 20 20 4C 44 41 20 A5 50 54 52 AA 31 00 B4 | LDA .PTR.1..|
000008A0: 10 DA 07 20 20 20 20 20 20 20 20 20 53 54 41 20 |... STA |
000008B0: 41 50 54 52 00 CC 10 E4 07 20 20 20 20 20 20 20 |APTR..... |
000008C0: 20 20 4C 44 41 20 A5 50 54 52 AA 32 00 E4 10 EE | LDA .PTR.2....|
000008D0: 07 20 20 20 20 20 20 20 20 20 53 54 41 20 41 50 |. STA AP|
000008E0: 54 52 AA 31 00 F5 10 F8 07 20 20 20 20 20 20 20 |TR.1..... |
000008F0: 20 20 54 58 41 00 0B 11 02 08 20 20 20 20 20 20 | TXA..... |
00000900: 20 20 20 4A 53 52 20 C6 32 57 B0 00 23 11 0C 08 | JSR .2W..#...|
00000910: 20 20 20 20 20 20 20 20 20 42 43 53 20 50 41 53 | BCS PAS|
00000920: 53 49 54 00 48 11 16 08 20 20 20 20 20 20 20 20 |SIT.H... |
00000930: 20 4C 44 41 20 42 50 54 52 20 3B 44 45 56 49 43 | LDA BPTR ;DEVIC|
00000940: 45 20 4E 55 4D 42 45 52 00 5E 11 20 08 20 20 20 |E NUMBER.^. . |
00000950: 20 20 20 20 20 20 53 54 41 20 54 44 45 56 00 75 | STA TDEV.u|
00000960: 11 2A 08 49 4C 4F 4F 50 20 20 20 20 4A 53 52 20 |.*.ILOOP JSR |
00000970: A1 46 43 48 52 00 8B 11 34 08 50 41 52 53 45 43 |.FCHR...4.PARSEC|
00000980: 20 20 20 43 4D 50 20 23 22 3A 22 00 A5 11 3E 08 | CMP #":"...>.|
00000990: 20 20 20 20 20 20 20 20 20 42 45 51 20 46 49 4E | BEQ FIN|
000009A0: 49 53 48 46 53 00 BB 11 48 08 20 20 20 20 20 20 |ISHFS...H. |
000009B0: 20 20 20 43 4D 50 20 23 22 2C 22 00 D2 11 52 08 | CMP #","...R.|
000009C0: 20 20 20 20 20 20 20 20 20 42 45 51 20 43 48 4B | BEQ CHK|
000009D0: 53 41 00 E9 11 5C 08 20 20 20 20 20 20 20 20 20 |SA...\. |
000009E0: 42 4E 45 20 49 4C 4F 4F 50 00 01 12 66 08 46 49 |BNE ILOOP...f.FI|
000009F0: 4E 49 53 48 46 53 20 4C 44 41 20 A5 50 54 52 AA |NISHFS LDA .PTR.|
00000A00: 31 00 17 12 70 08 20 20 20 20 20 20 20 20 20 53 |1...p. S|
00000A10: 54 41 20 A5 41 44 52 00 2F 12 7A 08 20 20 20 20 |TA .ADR./.z. |
00000A20: 20 20 20 20 20 4C 44 41 20 A5 50 54 52 AA 32 00 | LDA .PTR.2.|
00000A30: 47 12 84 08 20 20 20 20 20 20 20 20 20 53 54 41 |G... STA|
00000A40: 20 A5 41 44 52 AA 31 00 5C 12 8E 08 20 20 20 20 | .ADR.1.\... |
00000A50: 20 20 20 20 20 4C 44 41 20 43 54 52 00 70 12 98 | LDA CTR.p..|
00000A60: 08 20 20 20 20 20 20 20 20 20 53 54 41 20 A5 C3 |. STA ..|
00000A70: 00 85 12 A2 08 20 20 20 20 20 20 20 20 20 4C 44 |..... LD|
00000A80: 41 20 54 53 41 00 99 12 AC 08 20 20 20 20 20 20 |A TSA..... |
00000A90: 20 20 20 53 54 41 20 53 41 00 AF 12 B6 08 20 20 | STA SA..... |
00000AA0: 20 20 20 20 20 20 20 4C 44 41 20 54 44 45 56 00 | LDA TDEV.|
00000AB0: C3 12 C0 08 20 20 20 20 20 20 20 20 20 53 54 41 |.... STA|
00000AC0: 20 46 41 00 D7 12 CA 08 20 20 20 20 20 20 20 20 | FA..... |
00000AD0: 20 43 4D 50 20 23 31 00 EF 12 D4 08 20 20 20 20 | CMP #1..... |
00000AE0: 20 20 20 20 20 42 4E 45 20 50 41 53 53 49 54 00 | BNE PASSIT.|
00000AF0: 00 13 DE 08 20 20 20 20 20 20 20 20 20 52 54 53 |.... RTS|
00000B00: 00 18 13 E8 08 50 41 53 53 49 54 20 20 20 4A 4D |.....PASSIT JM|
00000B10: 50 20 43 48 4B 44 45 56 00 2C 13 F2 08 43 48 4B |P CHKDEV.,...CHK|
00000B20: 53 41 20 20 20 20 4C 44 58 20 23 30 00 44 13 FC |SA LDX #0.D..|
00000B30: 08 20 20 20 20 20 20 20 20 20 4C 44 41 20 A5 50 |. LDA .P|
00000B40: 54 52 AA 31 00 5A 13 06 09 20 20 20 20 20 20 20 |TR.1.Z... |
00000B50: 20 20 53 54 41 20 41 50 54 52 00 72 13 10 09 20 | STA APTR.r... |
00000B60: 20 20 20 20 20 20 20 20 4C 44 41 20 A5 50 54 52 | LDA .PTR|
00000B70: AA 32 00 8A 13 1A 09 20 20 20 20 20 20 20 20 20 |.2..... |
00000B80: 53 54 41 20 41 50 54 52 AA 31 00 A1 13 24 09 43 |STA APTR.1...$.C|
00000B90: 53 41 4C 4F 4F 50 20 20 4A 53 52 20 A1 46 43 48 |SALOOP JSR .FCH|
00000BA0: 52 00 B7 13 2E 09 20 20 20 20 20 20 20 20 20 43 |R..... C|
00000BB0: 4D 50 20 23 22 3A 22 00 CF 13 38 09 20 20 20 20 |MP #":"...8. |
00000BC0: 20 20 20 20 20 42 45 51 20 43 53 41 4F 55 54 00 | BEQ CSAOUT.|
00000BD0: E0 13 42 09 20 20 20 20 20 20 20 20 20 49 4E 58 |..B. INX|
00000BE0: 00 F4 13 4C 09 20 20 20 20 20 20 20 20 20 43 50 |...L. CP|
00000BF0: 58 20 23 34 00 0C 14 56 09 20 20 20 20 20 20 20 |X #4...V. |
00000C00: 20 20 42 45 51 20 43 53 41 45 52 52 00 22 14 60 | BEQ CSAERR.".`|
00000C10: 09 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 |. CMP #"|
00000C20: 30 22 00 3A 14 6A 09 20 20 20 20 20 20 20 20 20 |0".:.j. |
00000C30: 42 43 43 20 43 53 41 45 52 52 00 52 14 74 09 20 |BCC CSAERR.R.t. |
00000C40: 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 39 22 | CMP #"9"|
00000C50: AA 31 00 6B 14 7E 09 20 20 20 20 20 20 20 20 20 |.1.k.~. |
00000C60: 42 43 43 20 43 53 41 4C 4F 4F 50 00 7C 14 88 09 |BCC CSALOOP.|...|
00000C70: 43 53 41 45 52 52 20 20 20 52 54 53 00 8D 14 92 |CSAERR RTS....|
00000C80: 09 43 53 41 4F 55 54 20 20 20 54 58 41 00 A5 14 |.CSAOUT TXA...|
00000C90: 9C 09 20 20 20 20 20 20 20 20 20 42 45 51 20 43 |.. BEQ C|
00000CA0: 53 41 45 52 52 00 BB 14 A6 09 20 20 20 20 20 20 |SAERR..... |
00000CB0: 20 20 20 4A 53 52 20 C6 32 57 B0 00 D1 14 B0 09 | JSR .2W......|
00000CC0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 50 54 | LDA BPT|
00000CD0: 52 00 E6 14 BA 09 20 20 20 20 20 20 20 20 20 53 |R..... S|
00000CE0: 54 41 20 54 53 41 00 00 15 C4 09 20 20 20 20 20 |TA TSA..... |
00000CF0: 20 20 20 20 4A 4D 50 20 46 49 4E 49 53 48 46 53 | JMP FINISHFS|
00000D00: 00 06 15 CE 09 3B 00 15 15 D8 09 A1 46 43 48 52 |.....;......FCHR|
00000D10: 20 20 B2 20 AC 00 37 15 E2 09 A5 50 54 52 20 20 | . ..7....PTR |
00000D20: 20 20 4C 44 41 20 24 46 46 46 46 20 3B 44 55 4D | LDA $FFFF ;DUM|
00000D30: 4D 59 20 41 44 44 52 00 60 15 EC 09 20 20 20 20 |MY ADDR.`... |
00000D40: 20 20 20 20 20 AF 20 23 25 30 31 31 31 31 31 31 | . #%0111111|
00000D50: 31 20 3B 4D 41 53 4B 20 48 49 47 48 AB 42 49 54 |1 ;MASK HIGH.BIT|
00000D60: 00 78 15 F6 09 20 20 20 20 20 20 20 20 20 49 4E |.x... IN|
00000D70: 43 20 A5 50 54 52 AA 31 00 8D 15 00 0A 20 20 20 |C .PTR.1..... |
00000D80: 20 20 20 20 20 20 42 4E 45 20 47 46 43 00 A5 15 | BNE GFC...|
00000D90: 0A 0A 20 20 20 20 20 20 20 20 20 49 4E 43 20 A5 |.. INC .|
00000DA0: 50 54 52 AA 32 00 BA 15 14 0A 47 46 43 20 20 20 |PTR.2.....GFC |
00000DB0: 20 20 20 44 45 43 20 43 54 52 00 CE 15 1E 0A 20 | DEC CTR..... |
00000DC0: 20 20 20 20 20 20 20 20 43 4D 50 20 23 30 00 DF | CMP #0..|
00000DD0: 15 28 0A 20 20 20 20 20 20 20 20 20 52 54 53 00 |.(. RTS.|
00000DE0: E5 15 32 0A 3B 00 F9 15 3C 0A 54 44 45 56 20 20 |..2.;...<.TDEV |
00000DF0: 20 20 20 2E 42 59 54 20 30 00 0D 16 46 0A 54 53 | .BYT 0...F.TS|
00000E00: 41 20 20 20 20 20 20 2E 42 59 54 20 30 00 21 16 |A .BYT 0.!.|
00000E10: 50 0A 54 44 4E 41 4D 45 20 20 20 2E 42 59 54 20 |P.TDNAME .BYT |
00000E20: 30 00 35 16 5A 0A 43 54 52 20 20 20 20 20 20 2E |0.5.Z.CTR .|
00000E30: 42 59 54 20 30 00 49 16 64 0A 54 53 45 50 20 20 |BYT 0.I.d.TSEP |
00000E40: 20 20 20 2E 42 59 54 20 30 00 4F 16 6E 0A 3B 00 | .BYT 0.O.n.;.|
00000E50: 76 16 78 0A 3B AC AC AC AC AC AC AC AC AC AC AC |v.x.;...........|
00000E60: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000E70: AC AC AC AC AC AC 00 98 16 82 0A 3B AC 20 43 91 |...........;. C.|
00000E80: 56 45 52 54 20 44 45 43 49 4D 41 4C 20 C6 49 49 |VERT DECIMAL .II|
00000E90: 20 A4 20 57 B0 44 20 AC 00 BD 16 8C 0A 3B AC 20 | . W.D ......;. |
00000EA0: 2E 41 20 B2 20 C3 47 54 48 20 4F 46 20 53 54 52 |.A . .GTH OF STR|
00000EB0: 49 4E 47 20 20 20 20 20 20 20 20 20 AC 00 E1 16 |ING ....|
00000EC0: 96 0A 3B AC 20 41 50 54 52 20 50 4F B5 53 20 A4 |..;. APTR PO.S .|
00000ED0: 20 53 54 52 49 4E 47 20 20 20 20 20 20 20 20 20 | STRING |
00000EE0: AC 00 07 17 A0 0A 3B AC 20 52 45 54 AB 20 42 50 |......;. RET. BP|
00000EF0: 54 52 20 B2 20 31 36 20 42 49 54 20 57 B0 44 20 |TR . 16 BIT W.D |
00000F00: 20 20 20 20 20 20 AC 00 2D 17 AA 0A 3B AC 20 20 | ..-...;. |
00000F10: 20 20 20 20 43 53 20 B2 20 45 52 52 B0 2C 20 43 | CS . ERR., C|
00000F20: 43 20 B2 20 4F 4B 20 20 20 20 20 20 AC 00 54 17 |C . OK ..T.|
00000F30: B4 0A 3B AC AC AC AC AC AC AC AC AC AC AC AC AC |..;.............|
00000F40: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000F50: AC AC AC AC 00 5A 17 BE 0A 3B 00 60 17 C8 0A 3B |.....Z...;.`...;|
00000F60: 00 73 17 D2 0A C6 32 57 B0 20 20 53 54 41 20 44 |.s....2W. STA D|
00000F70: 45 43 C3 00 87 17 DC 0A 20 20 20 20 20 20 20 20 |EC...... |
00000F80: 20 4C 44 41 20 23 30 00 99 17 E6 0A 20 20 20 20 | LDA #0..... |
00000F90: 20 20 20 20 20 54 41 59 20 00 AF 17 F0 0A 20 20 | TAY ..... |
00000FA0: 20 20 20 20 20 20 20 4C 44 58 20 44 45 43 C3 00 | LDX DEC..|
00000FB0: C5 17 FA 0A 20 20 20 20 20 20 20 20 20 53 54 41 |.... STA|
00000FC0: 20 42 50 54 52 00 DD 17 04 0B 20 20 20 20 20 20 | BPTR..... |
00000FD0: 20 20 20 53 54 41 20 42 50 54 52 2B 31 00 EF 17 | STA BPTR+1...|
00000FE0: 0E 0B 20 20 20 20 20 20 20 20 20 43 4C 43 20 00 |.. CLC .|
00000FF0: 12 18 18 0B C6 32 57 B0 31 20 4A 53 52 20 42 59 |.....2W.1 JSR BY|
00001000: 31 30 20 3B 4D 55 4C 54 49 50 4C 59 20 42 59 20 |10 ;MULTIPLY BY |
00001010: 31 30 00 3B 18 22 0B 20 20 20 20 20 20 20 20 20 |10.;.". |
00001020: 42 43 53 20 41 53 43 32 57 4F 52 58 20 3B 43 53 |BCS ASC2WORX ;CS|
00001030: 20 2D 20 4F 56 45 52 46 4C 4F 57 00 55 18 2C 0B | - OVERFLOW.U.,.|
00001040: 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 41 50 | LDA (AP|
00001050: 54 52 29 2C 59 00 71 18 36 0B 20 20 20 20 20 20 |TR),Y.q.6. |
00001060: 20 20 20 41 4E 44 20 23 25 30 30 30 30 31 31 31 | AND #%0000111|
00001070: 31 00 83 18 40 0B 20 20 20 20 20 20 20 20 20 43 |1...@. C|
00001080: 4C 43 20 00 99 18 4A 0B 20 20 20 20 20 20 20 20 |LC ...J. |
00001090: 20 41 44 43 20 42 50 54 52 00 AF 18 54 0B 20 20 | ADC BPTR...T. |
000010A0: 20 20 20 20 20 20 20 53 54 41 20 42 50 54 52 00 | STA BPTR.|
000010B0: C9 18 5E 0B 20 20 20 20 20 20 20 20 20 42 43 43 |..^. BCC|
000010C0: 20 41 53 43 32 57 4F 52 32 00 E1 18 68 0B 20 20 | ASC2WOR2...h. |
000010D0: 20 20 20 20 20 20 20 49 4E 43 20 42 50 54 52 2B | INC BPTR+|
000010E0: 31 00 F3 18 72 0B 20 20 20 20 20 20 20 20 20 53 |1...r. S|
000010F0: 45 43 20 00 1C 19 7C 0B 20 20 20 20 20 20 20 20 |EC ...|. |
00001100: 20 42 45 51 20 41 53 43 32 57 4F 52 58 20 3B 45 | BEQ ASC2WORX ;E|
00001110: 51 20 2D 20 4F 56 45 52 46 4C 4F 57 00 2A 19 86 |Q - OVERFLOW.*..|
00001120: 0B C6 32 57 B0 32 20 43 4C 43 00 3C 19 90 0B 20 |..2W.2 CLC.<... |
00001130: 20 20 20 20 20 20 20 20 49 4E 59 20 00 4E 19 9A | INY .N..|
00001140: 0B 20 20 20 20 20 20 20 20 20 44 45 58 20 00 68 |. DEX .h|
00001150: 19 A4 0B 20 20 20 20 20 20 20 20 20 42 4E 45 20 |... BNE |
00001160: 41 53 43 32 57 4F 52 31 00 76 19 AE 0B C6 32 57 |ASC2WOR1.v....2W|
00001170: B0 58 20 52 54 53 00 7C 19 B8 0B 3B 00 97 19 C2 |.X RTS.|...;....|
00001180: 0B 3B 20 42 59 31 30 AB 20 4D 55 4C 54 49 50 4C |.; BY10. MULTIPL|
00001190: 59 20 42 59 20 31 30 00 9D 19 CC 0B 3B 00 B8 19 |Y BY 10.....;...|
000011A0: D6 0B 42 59 31 30 20 20 20 20 20 41 53 4C 20 42 |..BY10 ASL B|
000011B0: 50 54 52 20 3B 58 20 32 00 D0 19 E0 0B 20 20 20 |PTR ;X 2..... |
000011C0: 20 20 20 20 20 20 52 4F 4C 20 42 50 54 52 2B 31 | ROL BPTR+1|
000011D0: 00 F6 19 EA 0B 20 20 20 20 20 20 20 20 20 42 43 |..... BC|
000011E0: 53 20 42 59 31 30 52 20 3B 43 53 20 2D 20 4F 56 |S BY10R ;CS - OV|
000011F0: 45 52 46 4C 4F 57 00 0E 1A F4 0B 20 20 20 20 20 |ERFLOW..... |
00001200: 20 20 20 20 4C 44 41 20 42 50 54 52 2B 31 00 20 | LDA BPTR+1. |
00001210: 1A FE 0B 20 20 20 20 20 20 20 20 20 50 48 41 20 |... PHA |
00001220: 00 36 1A 08 0C 20 20 20 20 20 20 20 20 20 4C 44 |.6... LD|
00001230: 41 20 42 50 54 52 00 48 1A 12 0C 20 20 20 20 20 |A BPTR.H... |
00001240: 20 20 20 20 50 48 41 20 00 63 1A 1C 0C 20 20 20 | PHA .c... |
00001250: 20 20 20 20 20 20 41 53 4C 20 42 50 54 52 20 3B | ASL BPTR ;|
00001260: 58 20 32 00 7B 1A 26 0C 20 20 20 20 20 20 20 20 |X 2.{.&. |
00001270: 20 52 4F 4C 20 42 50 54 52 2B 31 00 A1 1A 30 0C | ROL BPTR+1...0.|
00001280: 20 20 20 20 20 20 20 20 20 42 43 53 20 42 59 31 | BCS BY1|
00001290: 30 58 20 3B 43 53 20 2D 20 4F 56 45 52 46 4C 4F |0X ;CS - OVERFLO|
000012A0: 57 00 BC 1A 3A 0C 20 20 20 20 20 20 20 20 20 41 |W...:. A|
000012B0: 53 4C 20 42 50 54 52 20 3B 58 20 32 00 D4 1A 44 |SL BPTR ;X 2...D|
000012C0: 0C 20 20 20 20 20 20 20 20 20 52 4F 4C 20 42 50 |. ROL BP|
000012D0: 54 52 2B 31 00 FA 1A 4E 0C 20 20 20 20 20 20 20 |TR+1...N. |
000012E0: 20 20 42 43 53 20 42 59 31 30 58 20 3B 43 53 20 | BCS BY10X ;CS |
000012F0: 2D 20 4F 56 45 52 46 4C 4F 57 00 0C 1B 58 0C 20 |- OVERFLOW...X. |
00001300: 20 20 20 20 20 20 20 20 50 4C 41 20 00 22 1B 62 | PLA .".b|
00001310: 0C 20 20 20 20 20 20 20 20 20 41 44 43 20 42 50 |. ADC BP|
00001320: 54 52 00 38 1B 6C 0C 20 20 20 20 20 20 20 20 20 |TR.8.l. |
00001330: 53 54 41 20 42 50 54 52 00 4A 1B 76 0C 20 20 20 |STA BPTR.J.v. |
00001340: 20 20 20 20 20 20 50 4C 41 20 00 62 1B 80 0C 20 | PLA .b... |
00001350: 20 20 20 20 20 20 20 20 41 44 43 20 42 50 54 52 | ADC BPTR|
00001360: 2B 31 00 7A 1B 8A 0C 20 20 20 20 20 20 20 20 20 |+1.z... |
00001370: 53 54 41 20 42 50 54 52 2B 31 00 8B 1B 94 0C 42 |STA BPTR+1.....B|
00001380: 59 31 30 52 20 20 20 20 52 54 53 00 9C 1B 9E 0C |Y10R RTS.....|
00001390: 42 59 31 30 58 20 20 20 20 50 4C 41 00 AE 1B A8 |BY10X PLA....|
000013A0: 0C 20 20 20 20 20 20 20 20 20 50 4C 41 20 00 BF |. PLA ..|
000013B0: 1B B2 0C 20 20 20 20 20 20 20 20 20 52 54 53 00 |... RTS.|
000013C0: C5 1B BC 0C 3B 00 D7 1B C6 0C 44 45 43 C3 20 20 |....;.....DEC. |
000013D0: 20 2E 42 59 54 20 30 00 00 00 | .BYT 0... |
.......700.1...;........................
..........X...;. FILE.SPEC PARSER
..~...;. SEP 21, 1987 VERSI. 1.0
......;.
..L...;. KEATH MILLIGAN
....$.;. 11909 SWAN DRIVE
......;. AUSTIN, TX 78750
..A.8.;. (512) 331.8451
..H.B.;.................................
.N.L.;.T.V.;...`. .OPT OO...J.;.
..T..C . $B7...~.LA . $B8.E...S
A . $B9.X...FA . $BA......AD
R . $BB.....APTR . $03.....BPTR
. $05.....;.-.D. LDA #..BP.D.
N. LDY #..BP.Y.X. STA 79
4.N... STY 795..... LDA
#..BP..... LDY #..BP.....
STA 816.F... STY 817.....
LDA #..BP..... LDY #..BP...(
. STA 818...2. STA 819./
.<. RTS.5.F.;.I.P..BP JSR PARS
E.`.Z. JMP $F34A.F.D.;.T.N..BP
PHA...X. JSR PARSE.....
PLA..... JMP $F4A5.....;.M. ..B
P JSR PARSE..... JMP $F5ED....
.;.....;... PARSE ROUTINE ......H.;.!.R.
PARSE LDA .ADR.9... STA .PTR.
1.Q... LDA .ADR.1.I... S
TA .PTR.2.}... LDA FA.....
STA TDEV..... LDA SA.....
STA TSA.P.". LDA .C...,.
STA CTR...6. JSR .FCHR...@
. CMP #"#".*.J. BEQ CHEC
K..@.T. CMP #"D".X.^. BE
Q CHECK..N.H. CMP #"P"...R.
BNE CHKDEV...|.CHECK. LDX #0.....
STA TDNAME.C..... JSR .FCHR.Y...
STA TSEP..... CMP #":".
.... BEQ .OK..... CMP #"
,"./.B. BEQ .OK.E.L. CMP
#"0".].V. BCC CHKDEV.U...
CMP #"9".1..... BCS CHKDEV...
.. INX..... CPX #3.F...
BNE G..Z...CHKDEV LDA .C.....
BEQ PARSEX...&. LDA FA..
.0. CMP #1.2.:. BNE PARS
EX.X.D. LDA #8 ;.AULT DRIVE
.L.N. STA FA.}.X.PARSEX RTS...
B.G. BNE .....L..OK CPX #0 ;
# OF DIGITS.K.V. BEQ CHKDEV.....
LDA .ADR..... STA .PTR.
1..... LDA .ADR.1.)... S
TA .PTR.2.=... LDA .C.R...
STA CTR.O...;. PO.ER . DEVICE NUMBER.
..F. JSR .FCHR...P. LDA
.PTR.1...Z. STA APTR.L...
LDA .PTR.2..... STA APTR.1....
. TXA..... JSR F2W..#...
BCS PASSIT.H... LDA BPT
R ;DEVICE NUMBER.^. . STA TDEV.U
.*.ILOOP JSR .FCHR...4.PARSEC CMP #
":"...>. BEQ FINISHFS...H.
CMP #",".R.R. BEQ CHKSA...\.
BNE ILOOP...F.FINISHFS LDA .PTR.
1...P. STA .ADR./.Z. LDA
.PTR.2.G... STA .ADR.1.\...
LDA CTR.P... STA .C.....
LDA TSA..... STA SA.....
LDA TDEV.C... STA FA.W.J.
CMP #1...T. BNE PASSIT.
.... RTS.....PASSIT JMP CHKDEV
.,...CHKSA LDX #0.D... LDA .P
TR.1.Z... STA APTR.R...
LDA .PTR.2..... STA APTR.1...$.C
SALOOP JSR .FCHR..... CMP #":".
O.8. BEQ CSAOUT...B. INX
...L. CPX #4...V. BEQ CS
AERR.".`. CMP #"0".:.J.
BCC CSAERR.R.T. CMP #"9".1.K.~.
BCC CSALOOP.|...CSAERR RTS....
.CSAOUT TXA..... BEQ CSAERR...
.. JSR F2W..Q... LDA BPT
R..... STA TSA...D. JMP
FINISHFS...N.;...X..FCHR . ..7....PTR
LDA $FFFF ;DUMMY ADDR.`... . #
%01111111 ;MASK HIGH.BIT.X... IN
C .PTR.1..... BNE GFC.....
INC .PTR.2.....GFC DEC CTR.N...
CMP #0...(. RTS...2.;...
<.TDEV .BYT 0...F.TSA .BYT 0.!.
P.TDNAME .BYT 0.5.Z.CTR .BYT 0.I.
D.TSEP .BYT 0.O.N.;.V.X.;...........
...........................;. C.VERT DEC
IMAL FII . W.D ......;. .A . CGTH OF STR
ING ......;. APTR PO.S . STRING
.... .;. RET. BPTR . 16 BIT W.D
..-...;. CS . ERR., CC . OK
..T...;.............................
.....Z...;.`.H.;.S.R.F2W. STA DECC.....
LDA #0..... TAY .....
LDX DECC.E... STA BPTR...
.. STA BPTR+1..... CLC .
....F2W.1 JSR BY10 ;MULTIPLY BY 10.;.".
BCS ASC2WORX ;CS - OVERFLOW.U.,.
LDA (APTR),Y.Q.6. AND #
%00001111...@. CLC ...J.
ADC BPTR...T. STA BPTR.I.^.
BCC ASC2WOR2...H. INC BPTR+
1...R. SEC ...|. BEQ ASC
2WORX ;EQ - OVERFLOW.*...F2W.2 CLC.<...
INY .N... DEX .H...
BNE ASC2WOR1.V...F2W.X RTS.|...;...B
.; BY10. MULTIPLY BY 10...L.;...V.BY10
ASL BPTR ;X 2.P... ROL BPTR+1
..... BCS BY10R ;CS - OVERFLOW..
... LDA BPTR+1. ... PHA
.6... LDA BPTR.H... PHA
.C... ASL BPTR ;X 2.{.&.
ROL BPTR+1...0. BCS BY10X ;CS -
OVERFLOW...:. ASL BPTR ;X 2.T.D
. ROL BPTR+1...N. BCS BY
10X ;CS - OVERFLOW...X. PLA .".B
. ADC BPTR.8.L. STA BPTR
.J.V. PLA .B... ADC BPTR
+1.Z... STA BPTR+1.....BY10R
RTS.....BY10X PLA..... PLA ..
... RTS.E...;.W.F.DECC .BYT 0.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL