TOKEN & VAR
FILE INFORMATION
FILENAME(S): TOKEN & VAR
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
1504df07fffa0219cec220225879e7c7e393acab992389a4edf868cb0a79aac0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | TOKEN & VAR | PRG | DuncanTwain | 10 | 5 | DOWNLOAD FILE |
| RANS ISK2 | TOKEN & VAR | PRG | DuncanTwain | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 58 1E 80 1E 00 00 8F 20 54 4F 4B 45 4E 20 26 20 |X...... TOKEN & |
00000010: 56 41 52 20 28 41 50 52 49 4C 20 37 2F 38 35 29 |VAR (APRIL 7/85)|
00000020: 20 20 20 20 20 20 20 20 3A 00 86 1E 01 00 3A 00 | :.....:.|
00000030: A6 1E 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |..... 0 STATEMEN|
00000040: 54 53 2C 20 32 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 2 FUNCTIONS.|
00000050: AC 1E 03 00 3A 00 C9 1E 04 00 8F 20 4B 45 59 57 |....:...... KEYW|
00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: |
00000070: 31 31 00 CF 1E 05 00 3A 00 F7 1E 06 00 8F 20 4B |11.....:...... 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 1E 1F 07 00 8F 20 54 4F 4B 45 4E 24 28 20 20 |...... TOKEN$( |
000000B0: 20 20 20 54 4F 4B 45 4E 20 20 20 20 36 31 33 32 | TOKEN 6132|
000000C0: 20 20 20 20 30 37 38 00 45 1F 08 00 8F 20 56 41 | 078.E.... VA|
000000D0: 52 28 20 20 20 20 20 20 20 20 56 41 52 20 20 20 |R( VAR |
000000E0: 20 20 20 36 31 39 38 20 20 20 20 30 37 39 00 4B | 6198 079.K|
000000F0: 1F 09 00 3A 00 63 1F 0A 00 8F 20 55 2F 55 53 46 |...:.c.... U/USF|
00000100: 50 20 28 32 36 32 30 2F 30 30 36 29 00 69 1F 0B |P (2620/006).i..|
00000110: 00 3A 00 90 1F 0C 00 8F 20 3D 3D 3D 3D 3D 3D 3D |.:...... =======|
00000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 96 1F 0D 00 3A 00 |=========.....:.|
00000140: B1 1F 63 02 2E C6 20 22 54 4F 4B 45 4E 24 22 3A |..c... "TOKEN$":|
00000150: 20 2E 42 59 54 45 20 24 41 38 00 C9 1F 64 02 2E | .BYTE $A8...d..|
00000160: C6 20 22 56 41 52 22 3A 20 2E 42 59 54 45 20 24 |. "VAR": .BYTE $|
00000170: 41 38 00 D9 1F 4B 06 2E 57 B0 44 20 A4 4B 45 4E |A8...K..W.D .KEN|
00000180: AB 31 00 E8 1F 4C 06 2E 57 B0 44 20 56 41 52 AB |.1...L..W.D VAR.|
00000190: 31 00 FC 1F 3C 0A 55 53 46 50 20 4C 44 58 20 23 |1...<.USFP LDX #|
000001A0: 30 20 20 20 20 00 10 20 3E 0A 53 54 58 20 24 30 |0 .. >.STX $0|
000001B0: 44 20 20 20 20 20 20 20 20 00 24 20 40 0A 53 54 |D .$ @.ST|
000001C0: 41 20 24 36 32 20 20 20 20 20 20 20 20 00 38 20 |A $62 .8 |
000001D0: 42 0A 53 54 59 20 24 36 33 20 20 20 20 20 20 20 |B.STY $63 |
000001E0: 20 00 4C 20 44 0A 4C 44 58 20 23 24 39 30 20 20 | .L D.LDX #$90 |
000001F0: 20 20 20 20 20 00 60 20 46 0A 53 45 43 20 20 20 | .` F.SEC |
00000200: 20 20 20 20 20 20 20 20 20 00 6E 20 48 0A 4A 4D | .n H.JM|
00000210: 50 20 24 42 43 34 39 00 74 20 4A 0A 3B 00 88 20 |P $BC49.t J.;.. |
00000220: F4 17 A4 4B 45 4E 20 4A 53 52 20 24 42 33 41 36 |...KEN JSR $B3A6|
00000230: 20 00 9D 20 F6 17 4A 53 52 20 24 41 45 46 34 20 | .. ..JSR $AEF4 |
00000240: 20 20 20 20 20 20 00 B2 20 F8 17 4A 53 52 20 24 | .. ..JSR $|
00000250: 42 36 41 33 20 20 20 20 20 20 20 00 BF 20 F9 17 |B6A3 .. ..|
00000260: 43 4D 50 20 23 24 35 39 00 D4 20 FA 17 42 43 53 |CMP #$59.. ..BCS|
00000270: 20 54 4B 4E 34 20 20 20 20 20 20 20 20 00 DC 20 | TKN4 .. |
00000280: FB 17 54 41 59 00 F1 20 FC 17 4C 44 41 20 23 30 |..TAY.. ..LDA #0|
00000290: 20 20 20 20 20 20 20 20 20 20 00 F9 20 FE 17 54 | .. ..T|
000002A0: 41 58 00 0E 21 00 18 54 4B 4E 31 20 53 54 41 20 |AX..!..TKN1 STA |
000002B0: 24 32 30 30 2C 59 20 00 23 21 02 18 44 45 59 20 |$200,Y .#!..DEY |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 00 38 21 04 | .8!.|
000002D0: 18 4C 44 41 20 28 24 32 32 29 2C 59 20 20 20 20 |.LDA ($22),Y |
000002E0: 20 00 45 21 06 18 43 50 59 20 23 24 46 46 00 52 | .E!..CPY #$FF.R|
000002F0: 21 08 18 42 4E 45 20 54 4B 4E 31 00 67 21 0A 18 |!..BNE TKN1.g!..|
00000300: 4C 44 41 20 24 37 41 20 20 20 20 20 20 20 20 20 |LDA $7A |
00000310: 00 6F 21 0C 18 50 48 41 00 7B 21 0E 18 4C 44 41 |.o!..PHA.{!..LDA|
00000320: 20 24 37 42 00 83 21 10 18 50 48 41 00 8F 21 12 | $7B..!..PHA..!.|
00000330: 18 53 54 58 20 24 37 41 00 A3 21 14 18 4A 53 52 |.STX $7A..!..JSR|
00000340: 20 A4 4B 20 20 20 20 20 20 20 20 20 00 B8 21 16 | .K ..!.|
00000350: 18 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 20 |.PLA |
00000360: 20 00 C4 21 18 18 53 54 41 20 24 37 42 00 CC 21 | ..!..STA $7B..!|
00000370: 1A 18 50 4C 41 00 D8 21 1C 18 53 54 41 20 24 37 |..PLA..!..STA $7|
00000380: 41 00 ED 21 1E 18 54 59 41 20 20 20 20 20 20 20 |A..!..TYA |
00000390: 20 20 20 20 20 20 00 02 22 20 18 53 45 43 20 20 | .." .SEC |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 00 0D 22 22 18 | .."".|
000003B0: 53 42 43 20 23 35 00 22 22 24 18 4A 53 52 20 24 |SBC #5.""$.JSR $|
000003C0: 42 34 37 44 20 20 20 20 20 20 20 00 2A 22 26 18 |B47D .*"&.|
000003D0: 54 41 59 00 3F 22 28 18 54 4B 4E 32 20 44 45 59 |TAY.?"(.TKN2 DEY|
000003E0: 20 20 20 20 20 20 20 20 00 54 22 2A 18 42 4D 49 | .T"*.BMI|
000003F0: 20 54 4B 4E 33 20 20 20 20 20 20 20 20 00 69 22 | TKN3 .i"|
00000400: 2C 18 4C 44 41 20 24 32 30 30 2C 59 20 20 20 20 |,.LDA $200,Y |
00000410: 20 20 00 79 22 2E 18 53 54 41 20 28 24 36 32 29 | .y"..STA ($62)|
00000420: 2C 59 00 86 22 30 18 42 4E 45 20 54 4B 4E 32 00 |,Y.."0.BNE TKN2.|
00000430: 9B 22 32 18 54 4B 4E 33 20 4A 4D 50 20 24 42 34 |."2.TKN3 JMP $B4|
00000440: 43 41 20 20 00 B0 22 33 18 54 4B 4E 34 20 4A 4D |CA .."3.TKN4 JM|
00000450: 50 20 24 42 36 35 38 20 20 00 B6 22 34 18 3B 00 |P $B658 .."4.;.|
00000460: CB 22 36 18 56 41 52 20 4A 53 52 20 24 42 30 38 |."6.VAR JSR $B08|
00000470: 42 20 20 20 00 E0 22 38 18 4C 44 59 20 24 34 37 |B .."8.LDY $47|
00000480: 20 20 20 20 20 20 20 20 20 00 F5 22 3A 18 4C 44 | ..":.LD|
00000490: 41 20 24 34 38 20 20 20 20 20 20 20 20 20 00 0A |A $48 ..|
000004A0: 23 3C 18 4A 53 52 20 55 53 46 50 20 20 20 20 20 |#<.JSR USFP |
000004B0: 20 20 20 00 1F 23 3E 18 4A 4D 50 20 24 41 45 46 | ..#>.JMP $AEF|
000004C0: 37 20 20 20 20 20 20 20 00 25 23 40 18 3B 00 00 |7 .%#@.;..|
000004D0: 00 |. |
X...... TOKEN & VAR (APRIL 7/85)
:.....:...... 0 STATEMENTS, 2 FUNCTIONS.
....:.I.... KEYWORD CHARACTERS: 11.O...:
...... KEYWORD ROUTINE LINE SER #
...... TOKEN$( TOKEN 6132 078.
E.... VAR( VAR 6198 079.K
...:.C.... U/USFP (2620/006).I...:......
================================.....:.
..C..F "TOKEN$": .BYTE $A8.I.D..F "VAR":
.BYTE $A8.Y.K..W.D .KEN.1...L..W.D VAR.
1...<.USFP LDX #0 .. >.STX $0D
.$ @.STA $62 .8 B.STY $63
.L D.LDX #$90 .` F.SEC
.N H.JMP $BC49.T J.;.. ...KEN JSR $B3A6
.. ..JSR $AEF4 .. ..JSR $B6A3
.. ..CMP #$59.T ..BCS TKN4 ..
..TAY.. ..LDA #0 .. ..TAX..!..T
KN1 STA $200,Y .#!..DEY .8!.
.LDA ($22),Y .E!..CPY #$FF.R!..BNE T
KN1.G!..LDA $7A .O!..PHA.{!..LDA
$7B..!..PHA..!..STX $7A..!..JSR .K
..!..PLA .D!..STA $7B.L!
..PLA.X!..STA $7A..!..TYA ..
" .SEC .."".SBC #5.""$.JSR $
B47D .*"&.TAY.?"(.TKN2 DEY
.T"*.BMI TKN3 .I",.LDA $200,Y
.Y"..STA ($62),Y.."0.BNE TKN2.."2.TKN3
JMP $B4CA .."3.TKN4 JMP $B658 .."4.;.
K"6.VAR JSR $B08B .."8.LDY $47
..":.LDA $48 ..#<.JSR USFP
..#>.JMP $AEF7 .%#@.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL