VOCAB MANAGER
FILE INFORMATION
FILENAME(S): VOCAB MANAGER
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
502152691cbc194d7cb75ccebf3aedb4e4ec0355fb74c329d317a36919c9ea6f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | VOCAB MANAGER | PRG | DuncanTwain | 5 | 1 | DOWNLOAD FILE |
| RANS ISK2 | VOCAB MANAGER | PRG | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 56 4F 43 41 42 20 4D 41 |..).... VOCAB MA| 00000010: 4E 41 47 45 52 20 28 41 55 47 20 32 39 2F 38 34 |NAGER (AUG 29/84| 00000020: 29 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 |) :./...:.| 00000030: 4F 08 02 00 8F 20 32 20 53 54 41 54 45 4D 45 4E |O.... 2 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 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW| 00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: | 00000070: 32 30 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B |20.x...:...... K| 00000080: 45 59 57 4F 52 44 20 20 20 20 20 52 4F 55 54 49 |EYWORD ROUTI| 00000090: 4E 45 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 |NE LINE SER #| 000000A0: 00 C7 08 07 00 8F 20 53 2F 46 49 4C 45 20 20 20 |...... S/FILE | 000000B0: 20 20 20 46 49 4C 20 20 20 20 20 20 34 31 39 34 | FIL 4194| 000000C0: 20 20 20 20 30 35 30 00 EE 08 08 00 8F 20 53 2F | 050...... S/| 000000D0: 49 4E 49 54 46 50 20 20 20 20 49 4E 46 50 54 52 |INITFP INFPTR| 000000E0: 20 20 20 34 32 37 34 20 20 20 20 30 35 31 00 15 | 4274 051..| 000000F0: 09 09 00 8F 20 46 2F 46 50 4C 4F 43 20 20 20 20 |.... F/FPLOC | 00000100: 20 46 50 4C 4F 20 20 20 20 20 34 33 30 38 20 20 | FPLO 4308 | 00000110: 20 20 30 35 32 00 3B 09 0A 00 8F 20 46 2F 53 43 | 052.;.... F/SC| 00000120: 41 4E 28 20 20 20 20 53 43 41 4E 20 20 20 20 20 |AN( SCAN | 00000130: 34 33 31 36 20 20 20 20 30 35 33 00 41 09 0B 00 |4316 053.A...| 00000140: 3A 00 5B 09 0C 00 8F 20 55 2F 43 49 46 43 48 52 |:.[.... U/CIFCHR| 00000150: 20 28 32 35 36 30 2F 30 30 33 29 00 75 09 0D 00 | (2560/003).u...| 00000160: 8F 20 55 2F 55 53 46 50 20 20 20 28 32 36 32 30 |. U/USFP (2620| 00000170: 2F 30 30 36 29 00 8F 09 0E 00 8F 20 55 2F 43 49 |/006)...... U/CI| 00000180: 46 4E 55 4D 20 28 34 30 39 32 2F 30 34 37 29 00 |FNUM (4092/047).| 00000190: A9 09 0F 00 8F 20 44 2F 46 4C 50 54 52 20 20 28 |..... D/FLPTR (| 000001A0: 34 34 37 30 2F 30 35 34 29 00 AF 09 10 00 3A 00 |4470/054).....:.| 000001B0: D6 09 11 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..... ==========| 000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001D0: 3D 3D 3D 3D 3D 3D 00 DC 09 12 00 3A 00 F0 09 71 |======.....:...q| 000001E0: 00 2E C6 20 22 46 49 4C C5 49 4E 49 54 46 D0 22 |... "FIL.INITF."| 000001F0: 00 04 0A 62 02 2E C6 20 22 46 50 4C 4F C3 53 43 |...b... "FPLO.SC| 00000200: 41 4E A8 22 00 1C 0A 59 04 2E 57 B0 44 20 46 49 |AN."...Y..W.D FI| 00000210: 4C AB 31 2C 49 4E 46 50 54 52 AB 31 00 33 0A 4A |L.1,INFPTR.1.3.J| 00000220: 06 2E 57 B0 44 20 46 50 4C 4F AB 31 2C 53 43 41 |..W.D FPLO.1,SCA| 00000230: 4E AB 31 00 56 0A 00 0A 43 8B 43 48 52 20 43 4D |N.1.V...C.CHR CM| 00000240: 50 20 23 24 35 42 3B 54 45 53 54 20 41 4C 50 48 |P #$5B;TEST ALPH| 00000250: 41 42 45 54 49 43 00 63 0A 02 0A 42 43 43 20 43 |ABETIC.c...BCC C| 00000260: 49 43 31 00 6B 0A 04 0A 43 4C 43 00 78 0A 06 0A |IC1.k...CLC.x...| 00000270: 42 43 43 20 43 49 43 32 00 8A 0A 08 0A 43 49 43 |BCC CIC2.....CIC| 00000280: 31 20 43 4D 50 20 23 24 34 31 00 97 0A 0A 0A 43 |1 CMP #$41.....C| 00000290: 49 43 32 20 52 54 53 00 9D 0A 0C 0A 3B 00 AD 0A |IC2 RTS.....;...| 000002A0: 3C 0A 55 53 46 50 20 4C 44 58 20 23 30 00 B9 0A |<.USFP LDX #0...| 000002B0: 3E 0A 53 54 58 20 24 30 44 00 C5 0A 40 0A 53 54 |>.STX $0D...@.ST| 000002C0: 41 20 24 36 32 00 D1 0A 42 0A 53 54 59 20 24 36 |A $62...B.STY $6| 000002D0: 33 00 DE 0A 44 0A 4C 44 58 20 23 24 39 30 00 E6 |3...D.LDX #$90..| 000002E0: 0A 46 0A 53 45 43 00 F4 0A 48 0A 4A 4D 50 20 24 |.F.SEC...H.JMP $| 000002F0: 42 43 34 39 00 FA 0A 4A 0A 3B 00 1A 0B FC 0F 43 |BC49...J.;.....C| 00000300: 8B 4E 55 4D 20 43 4D 50 20 23 22 3A 22 3B 54 45 |.NUM CMP #":";TE| 00000310: 53 54 20 4E 55 4D 45 52 49 43 00 27 0B FE 0F 42 |ST NUMERIC.'...B| 00000320: 43 43 20 43 49 4E 31 00 2F 0B 00 10 43 4C 43 00 |CC CIN1./...CLC.| 00000330: 3C 0B 02 10 42 43 43 20 43 49 4E 32 00 4E 0B 04 |<...BCC CIN2.N..| 00000340: 10 43 49 4E 31 20 43 4D 50 20 23 22 30 22 00 5B |.CIN1 CMP #"0".[| 00000350: 0B 06 10 43 49 4E 32 20 52 54 53 00 61 0B 08 10 |...CIN2 RTS.a...| 00000360: 3B 00 72 0B 62 10 46 49 4C 20 43 4D 50 20 23 24 |;.r.b.FIL CMP #$| 00000370: 32 32 00 7E 0B 64 10 42 4E 45 20 46 49 34 00 8C |22.~.d.BNE FI4..| 00000380: 0B 66 10 4C 44 59 20 46 4C 50 54 52 00 9C 0B 68 |.f.LDY FLPTR...h| 00000390: 10 4C 44 41 20 46 4C 50 54 52 AA 31 00 A8 0B 6A |.LDA FLPTR.1...j| 000003A0: 10 53 54 59 20 24 32 32 00 B4 0B 6C 10 53 54 41 |.STY $22...l.STA| 000003B0: 20 24 32 33 00 C3 0B 6E 10 46 49 31 20 4C 44 59 | $23...n.FI1 LDY| 000003C0: 20 23 30 00 CF 0B 70 10 4A 53 52 20 24 37 33 00 | #0...p.JSR $73.| 000003D0: DB 0B 72 10 42 43 43 20 46 49 32 00 E6 0B 74 10 |..r.BCC FI2...t.| 000003E0: 43 4D 50 20 23 30 00 F2 0B 76 10 42 45 51 20 46 |CMP #0...v.BEQ F| 000003F0: 49 33 00 FF 0B 78 10 43 4D 50 20 23 24 32 32 00 |I3...x.CMP #$22.| 00000400: 0B 0C 7A 10 42 45 51 20 46 49 34 00 18 0C 7C 10 |..z.BEQ FI4...|.| 00000410: 43 4D 50 20 23 22 2C 22 00 24 0C 7E 10 42 45 51 |CMP #",".$.~.BEQ| 00000420: 20 46 49 33 00 32 0C 80 10 4A 53 52 20 43 8B 43 | FI3.2...JSR C.C| 00000430: 48 52 00 3E 0C 82 10 42 43 43 20 46 49 31 00 4A |HR.>...BCC FI1.J| 00000440: 0C 84 10 46 49 32 20 54 41 58 00 5A 0C 86 10 53 |...FI2 TAX.Z...S| 00000450: 54 41 20 28 24 32 32 29 2C 59 00 66 0C 88 10 49 |TA ($22),Y.f...I| 00000460: 4E 43 20 24 32 32 00 72 0C 8A 10 42 4E 45 20 46 |NC $22.r...BNE F| 00000470: 49 31 00 7E 0C 8C 10 49 4E 43 20 24 32 33 00 8A |I1.~...INC $23..| 00000480: 0C 8D 10 4C 44 41 20 24 32 33 00 97 0C 8E 10 43 |...LDA $23.....C| 00000490: 4D 50 20 23 24 43 30 00 A3 0C 90 10 42 4E 45 20 |MP #$C0.....BNE | 000004A0: 46 49 31 00 B1 0C 92 10 4A 4D 50 20 24 41 34 33 |FI1.....JMP $A43| 000004B0: 35 00 BD 0C 94 10 46 49 33 20 50 48 41 00 C5 0C |5.....FI3 PHA...| 000004C0: 96 10 44 45 59 00 D1 0C 98 10 44 45 43 20 24 32 |..DEY.....DEC $2| 000004D0: 33 00 D9 0C 9A 10 54 58 41 00 E5 0C 9C 10 B0 41 |3.....TXA......A| 000004E0: 20 23 24 38 30 00 F5 0C 9E 10 53 54 41 20 28 24 | #$80.....STA ($| 000004F0: 32 32 29 2C 59 00 01 0D A0 10 49 4E 43 20 24 32 |22),Y.....INC $2| 00000500: 33 00 09 0D A2 10 50 4C 41 00 16 0D A4 10 43 4D |3.....PLA.....CM| 00000510: 50 20 23 22 2C 22 00 22 0D A6 10 42 45 51 20 46 |P #","."...BEQ F| 00000520: 49 31 00 2E 0D A8 10 4C 44 59 20 24 32 32 00 3A |I1.....LDY $22.:| 00000530: 0D AA 10 4C 44 41 20 24 32 33 00 46 0D AC 10 42 |...LDA $23.F...B| 00000540: 4E 45 20 8B 50 34 00 58 0D AE 10 46 49 34 20 4A |NE .P4.X...FI4 J| 00000550: 4D 50 20 24 41 46 30 38 00 5E 0D B0 10 3B 00 7A |MP $AF08.^...;.z| 00000560: 0D B2 10 49 4E 46 50 54 52 20 42 45 51 20 8B 50 |...INFPTR BEQ .P| 00000570: 32 3B 4E 4F 20 50 41 52 41 4D 00 88 0D B4 10 4A |2;NO PARAM.....J| 00000580: 53 52 20 24 41 44 38 41 00 96 0D B6 10 4A 53 52 |SR $AD8A.....JSR| 00000590: 20 24 42 37 46 37 00 A3 0D B8 10 43 4D 50 20 23 | $B7F7.....CMP #| 000005A0: 24 41 30 00 AF 0D BA 10 42 43 43 20 8B 50 31 00 |$A0.....BCC .P1.| 000005B0: BB 0D BC 10 42 45 51 20 8B 50 33 00 C8 0D BE 10 |....BEQ .P3.....| 000005C0: 43 4D 50 20 23 24 43 30 00 D4 0D C0 10 42 43 43 |CMP #$C0.....BCC| 000005D0: 20 8B 50 34 00 E6 0D C2 10 8B 50 31 20 4A 4D 50 | .P4......P1 JMP| 000005E0: 20 24 42 32 34 38 00 F5 0D C4 10 8B 50 32 20 4C | $B248......P2 L| 000005F0: 44 59 20 23 31 00 02 0E C6 10 4C 44 41 20 23 24 |DY #1.....LDA #$| 00000600: 41 30 00 11 0E C8 10 8B 50 33 20 43 50 59 20 23 |A0......P3 CPY #| 00000610: 30 00 1D 0E CA 10 42 45 51 20 8B 50 31 00 2F 0E |0.....BEQ .P1./.| 00000620: CC 10 8B 50 34 20 53 54 59 20 46 4C 50 54 52 00 |...P4 STY FLPTR.| 00000630: 3F 0E CE 10 53 54 41 20 46 4C 50 54 52 AA 31 00 |?...STA FLPTR.1.| 00000640: 47 0E D0 10 52 54 53 00 4D 0E D2 10 3B 00 60 0E |G...RTS.M...;.`.| 00000650: D4 10 46 50 4C 4F 20 4C 44 59 20 46 4C 50 54 52 |..FPLO LDY FLPTR| 00000660: 00 70 0E D6 10 4C 44 41 20 46 4C 50 54 52 AA 31 |.p...LDA FLPTR.1| 00000670: 00 7D 0E D8 10 4A 4D 50 20 55 53 46 50 00 83 0E |.}...JMP USFP...| 00000680: DA 10 3B 00 96 0E DC 10 53 43 41 4E 20 4A 53 52 |..;.....SCAN JSR| 00000690: 20 24 41 45 46 34 00 A4 0E DE 10 4A 53 52 20 24 | $AEF4.....JSR $| 000006A0: 42 36 41 33 00 AF 0E E0 10 53 54 41 20 54 33 00 |B6A3.....STA T3.| 000006B0: BA 0E E2 10 53 54 41 20 54 34 00 C2 0E E4 10 54 |....STA T4.....T| 000006C0: 58 41 00 CA 0E E6 10 50 48 41 00 D2 0E E8 10 54 |XA.....PHA.....T| 000006D0: 59 41 00 DA 0E EA 10 50 48 41 00 E5 0E EC 10 4C |YA.....PHA.....L| 000006E0: 44 41 20 54 33 00 F3 0E EE 10 4A 53 52 20 24 42 |DA T3.....JSR $B| 000006F0: 34 37 44 00 FF 0E F0 10 53 54 58 20 24 32 34 00 |47D.....STX $24.| 00000700: 0B 0F F2 10 53 54 59 20 24 32 35 00 13 0F F4 10 |....STY $25.....| 00000710: 50 4C 41 00 1F 0F F6 10 53 54 41 20 24 32 33 00 |PLA.....STA $23.| 00000720: 27 0F F8 10 50 4C 41 00 33 0F FA 10 53 54 41 20 |'...PLA.3...STA | 00000730: 24 32 32 00 3D 0F FC 10 44 45 43 20 31 00 4A 0F |$22.=...DEC 1.J.| 00000740: FE 10 4C 44 59 20 23 24 46 46 00 55 0F 00 11 4C |..LDY #$FF.U...L| 00000750: 44 58 20 23 30 00 65 0F 02 11 53 43 41 31 20 44 |DX #0.e...SCA1 D| 00000760: 45 43 20 54 34 00 72 0F 04 11 53 43 41 32 20 49 |EC T4.r...SCA2 I| 00000770: 4E 59 00 7D 0F 06 11 43 50 59 20 54 33 00 8A 0F |NY.}...CPY T3...| 00000780: 08 11 42 45 51 20 53 43 41 34 00 9A 0F 0A 11 4C |..BEQ SCA4.....L| 00000790: 44 41 20 28 24 32 32 29 2C 59 00 A8 0F 0C 11 4A |DA ($22),Y.....J| 000007A0: 53 52 20 43 8B 4E 55 4D 00 B5 0F 0E 11 42 43 53 |SR C.NUM.....BCS| 000007B0: 20 53 43 41 33 00 C0 0F 10 11 AF 20 23 24 37 46 | SCA3...... #$7F| 000007C0: 00 CE 0F 12 11 4A 53 52 20 43 8B 43 48 52 00 DB |.....JSR C.CHR..| 000007D0: 0F 14 11 42 43 43 20 53 43 41 31 00 FF 0F 16 11 |...BCC SCA1.....| 000007E0: 53 43 41 33 20 53 54 41 20 28 24 36 32 2C 58 29 |SCA3 STA ($62,X)| 000007F0: 3B 41 44 44 20 A4 20 A2 20 53 54 52 49 4E 47 00 |;ADD . . STRING.| 00000800: 0D 10 18 11 4A 53 52 20 42 4D 50 36 32 00 1A 10 |....JSR BMP62...| 00000810: 1A 11 42 4E 45 20 53 43 41 32 00 2A 10 1C 11 53 |..BNE SCA2.*...S| 00000820: 43 41 34 20 53 54 58 20 54 35 00 35 10 1E 11 53 |CA4 STX T5.5...S| 00000830: 54 58 20 54 36 00 40 10 20 11 42 49 54 20 54 34 |TX T6.@. .BIT T4| 00000840: 00 4E 10 22 11 42 4D 49 20 53 43 41 31 31 00 59 |.N.".BMI SCA11.Y| 00000850: 10 24 11 4C 44 41 20 23 31 00 65 10 26 11 53 54 |.$.LDA #1.e.&.ST| 00000860: 41 20 24 36 32 00 72 10 28 11 4C 44 41 20 23 24 |A $62.r.(.LDA #$| 00000870: 41 30 00 7E 10 2A 11 53 54 41 20 24 36 33 00 8E |A0.~.*.STA $63..| 00000880: 10 2C 11 53 43 41 35 20 49 4E 43 20 54 35 00 9B |.,.SCA5 INC T5..| 00000890: 10 2E 11 42 4E 45 20 53 43 41 36 00 A6 10 30 11 |...BNE SCA6...0.| 000008A0: 49 4E 43 20 54 36 00 B7 10 32 11 53 43 41 36 20 |INC T6...2.SCA6 | 000008B0: 4C 44 41 20 24 36 33 00 C7 10 34 11 43 4D 50 20 |LDA $63...4.CMP | 000008C0: 46 4C 50 54 52 AA 31 00 D4 10 36 11 42 4E 45 20 |FLPTR.1...6.BNE | 000008D0: 53 43 41 37 00 E0 10 38 11 4C 44 41 20 24 36 32 |SCA7...8.LDA $62| 000008E0: 00 EE 10 3A 11 43 4D 50 20 46 4C 50 54 52 00 FB |...:.CMP FLPTR..| 000008F0: 10 3C 11 53 43 41 37 20 54 58 41 00 03 11 3E 11 |.<.SCA7 TXA...>.| 00000900: 54 41 59 00 11 11 40 11 42 43 53 20 53 43 41 31 |TAY...@.BCS SCA1| 00000910: 32 00 19 11 42 11 44 45 59 00 26 11 44 11 53 43 |2...B.DEY.&.D.SC| 00000920: 41 38 20 49 4E 59 00 36 11 46 11 4C 44 41 20 28 |A8 INY.6.F.LDA (| 00000930: 24 36 32 29 2C 59 00 41 11 48 11 43 50 59 20 54 |$62),Y.A.H.CPY T| 00000940: 34 00 4E 11 4A 11 42 45 51 20 53 43 41 39 00 5E |4.N.J.BEQ SCA9.^| 00000950: 11 4C 11 43 4D 50 20 28 24 32 34 29 2C 59 00 6B |.L.CMP ($24),Y.k| 00000960: 11 4E 11 42 45 51 20 53 43 41 38 00 79 11 50 11 |.N.BEQ SCA8.y.P.| 00000970: 42 4E 45 20 53 43 41 31 30 00 9E 11 52 11 53 43 |BNE SCA10...R.SC| 00000980: 41 39 20 53 42 43 20 28 24 32 34 29 2C 59 3B 54 |A9 SBC ($24),Y;T| 00000990: 45 53 54 20 4C 41 53 54 20 56 4F 43 41 42 00 AB |EST LAST VOCAB..| 000009A0: 11 54 11 43 4D 50 20 23 24 38 30 00 B9 11 56 11 |.T.CMP #$80...V.| 000009B0: 42 45 51 20 53 43 41 31 31 00 DD 11 58 11 53 43 |BEQ SCA11...X.SC| 000009C0: 41 31 30 20 4C 44 41 20 28 24 36 32 2C 58 29 3B |A10 LDA ($62,X);| 000009D0: 41 44 56 41 4E 43 45 20 56 4F 43 41 42 00 E5 11 |ADVANCE VOCAB...| 000009E0: 5A 11 50 48 50 00 F3 11 5C 11 4A 53 52 20 42 4D |Z.PHP...\.JSR BM| 000009F0: 50 36 32 00 FB 11 5E 11 50 4C 50 00 09 12 60 11 |P62...^.PLP...`.| 00000A00: 42 50 4C 20 53 43 41 31 30 00 16 12 62 11 42 4D |BPL SCA10...b.BM| 00000A10: 49 20 53 43 41 35 00 27 12 64 11 53 43 41 31 31 |I SCA5.'.d.SCA11| 00000A20: 20 4C 44 59 20 54 35 00 32 12 66 11 4C 44 41 20 | LDY T5.2.f.LDA | 00000A30: 54 36 00 42 12 68 11 53 43 41 31 32 20 49 4E 43 |T6.B.h.SCA12 INC| 00000A40: 20 31 00 50 12 6A 11 4A 4D 50 20 24 42 33 39 31 | 1.P.j.JMP $B391| 00000A50: 00 62 12 6C 11 42 4D 50 36 32 20 49 4E 43 20 24 |.b.l.BMP62 INC $| 00000A60: 36 32 00 6E 12 6E 11 42 4E 45 20 42 36 32 00 7A |62.n.n.BNE B62.z| 00000A70: 12 70 11 49 4E 43 20 24 36 33 00 86 12 72 11 42 |.p.INC $63...r.B| 00000A80: 36 32 20 52 54 53 00 8C 12 74 11 3B 00 B1 12 76 |62 RTS...t.;...v| 00000A90: 11 46 4C 50 54 52 20 2E 57 B0 44 20 24 41 30 30 |.FLPTR .W.D $A00| 00000AA0: 31 3B 50 54 52 20 A4 20 46 49 4C 45 20 42 55 46 |1;PTR . FILE BUF| 00000AB0: 52 00 B7 12 78 11 3B 00 00 00 |R...x.;... |
..).... VOCAB MANAGER (AUG 29/84) :./...:.O.... 2 STATEMENTS, 2 FUNCTIONS. U...:.R.... KEYWORD CHARACTERS: 20.X...: . .... KEYWORD ROUTINE LINE SER # .G.... S/FILE FIL 4194 050. ..... S/INITFP INFPTR 4274 051.. .... F/FPLOC FPLO 4308 052.;. ... F/SCAN( SCAN 4316 053.A... :.[.... U/CIFCHR (2560/003).U.... U/USFP (2620/006)...... U/CIFNUM (4092/047). ..... D/FLPTR (4470/054).....:.V.... == ==============================.....:...Q ..F "FILEINITFP"...B..F "FPLOCSCAN."...Y ..W.D FIL.1,INFPTR.1.3.J..W.D FPLO.1,SCA N.1.V...C.CHR CMP #$5B;TEST ALPHABETIC.C ...BCC CIC1.K...CLC.X...BCC CIC2.....CIC 1 CMP #$41.....CIC2 RTS.....;...<.USFP L DX #0...>.STX $0D.E.@.STA $62.Q.B.STY $6 3...D.LDX #$90...F.SEC...H.JMP $BC49...J .;.....C.NUM CMP #":";TEST NUMERIC.'...B CC CIN1./...CLC.<...BCC CIN2.N...CIN1 CM P #"0".[...CIN2 RTS.A...;.R.B.FIL CMP #$ 22.~.D.BNE FI4...F.LDY FLPTR...H.LDA FLP TR.1...J.STY $22...L.STA $23.C.N.FI1 LDY #0.O.P.JSR $73...R.BCC FI2...T.CMP #0.. .V.BEQ FI3...X.CMP #$22...Z.BEQ FI4...|. CMP #",".$.~.BEQ FI3.2...JSR C.CHR.>...B CC FI1.J...FI2 TAX.Z...STA ($22),Y.F...I NC $22.R...BNE FI1.~...INC $23.....LDA $ 23.....CMP #$C0.....BNE FI1.....JMP $A43 5.....FI3 PHA.E...DEY.Q...DEC $23.Y...TX A......A #$80.....STA ($22),Y... .INC $2 3.....PLA.....CMP #","."...BEQ FI1.....L DY $22.:...LDA $23.F...BNE .P4.X...FI4 J MP $AF08.^...;.Z...INFPTR BEQ .P2;NO PAR AM.....JSR $AD8A.....JSR $B7F7.....CMP # $A0.....BCC .P1.....BEQ .P3.H...CMP #$C0 .T...BCC .P4...B..P1 JMP $B248...D..P2 L DY #1...F.LDA #$A0...H..P3 CPY #0...J.BE Q .P1./.L..P4 STY FLPTR.?.N.STA FLPTR.1. G.P.RTS.M.R.;.`.T.FPLO LDY FLPTR.P.V.LDA FLPTR.1.}.X.JMP USFP...Z.;.....SCAN JSR $AEF4.....JSR $B6A3.....STA T3.....STA T4.B...TXA.J...PHA.R...TYA.Z...PHA.....L DA T3.....JSR $B47D.....STX $24.....STY $25.....PLA.....STA $23.'...PLA.3...STA $22.=...DEC 1.J...LDY #$FF.U...LDX #0.E. ..SCA1 DEC T4.R...SCA2 INY.}...CPY T3... ..BEQ SCA4.....LDA ($22),Y.....JSR C.NUM .....BCS SCA3...... #$7F.N...JSR C.CHR.. ...BCC SCA1.....SCA3 STA ($62,X);ADD . . STRING.....JSR BMP62.....BNE SCA2.*...S CA4 STX T5.5...STX T6.@. .BIT T4.N.".BMI SCA11.Y.$.LDA #1.E.&.STA $62.R.(.LDA #$ A0.~.*.STA $63...,.SCA5 INC T5.....BNE S CA6...0.INC T6...2.SCA6 LDA $63.G.4.CMP FLPTR.1.T.6.BNE SCA7...8.LDA $62...:.CMP FLPTR...<.SCA7 TXA...>.TAY...@.BCS SCA1 2...B.DEY.&.D.SCA8 INY.6.F.LDA ($62),Y.A .H.CPY T4.N.J.BEQ SCA9.^.L.CMP ($24),Y.K .N.BEQ SCA8.Y.P.BNE SCA10...R.SCA9 SBC ( $24),Y;TEST LAST VOCAB...T.CMP #$80...V. BEQ SCA11...X.SCA10 LDA ($62,X);ADVANCE VOCAB...Z.PHP...\.JSR BMP62...^.PLP...`. BPL SCA10...B.BMI SCA5.'.D.SCA11 LDY T5. 2.F.LDA T6.B.H.SCA12 INC 1.P.J.JMP $B391 .B.L.BMP62 INC $62.N.N.BNE B62.Z.P.INC $ 63...R.B62 RTS...T.;...V.FLPTR .W.D $A00 1;PTR . FILE BUFR...X.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL