SYMLISTER
FILE INFORMATION
FILENAME(S): SYMLISTER
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
f2ace317990c9ac81d71e5714a86ddec20a95281918aeff259df9b45b295f81b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | SYMLISTER | PRG | DuncanTwain | 7 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 E8 03 8F 20 53 41 56 45 22 30 3A 53 |....... SAVE"0:S| 00000010: 59 4D 4C 49 53 54 45 52 22 2C 38 00 3D 08 F2 03 |YMLISTER",8.=...| 00000020: 8F 20 2A 20 32 31 20 46 45 42 20 38 37 20 20 2D |. * 21 FEB 87 -| 00000030: 20 20 4A 2E 41 2E 53 50 45 4E 43 45 52 00 60 08 | J.A.SPENCER.`.| 00000040: FC 03 8F 20 2A 20 49 4E 44 45 4E 54 53 20 41 4C |... * INDENTS AL| 00000050: 4C 20 4C 49 4E 45 53 20 53 54 41 52 54 49 4E 47 |L LINES STARTING| 00000060: 00 7A 08 06 04 8F 20 2A 20 57 49 54 48 20 36 35 |.z.... * WITH 65| 00000070: 31 30 20 4F 50 43 4F 44 45 53 00 98 08 10 04 8F |10 OPCODES......| 00000080: 20 2A 20 53 59 4D 41 53 53 20 4D 55 53 54 20 49 | * SYMASS MUST I| 00000090: 4E 53 54 41 4C 4C 45 44 00 9E 08 1A 04 3A 00 B5 |NSTALLED.....:..| 000000A0: 08 24 04 8B 20 C2 28 37 30 30 29 B2 37 36 20 A7 |.$.. .(700).76 .| 000000B0: 20 31 31 32 30 00 BB 08 2E 04 3A 00 DE 08 38 04 | 1120.....:...8.| 000000C0: 99 20 22 2A 2A 20 53 59 4D 41 53 53 20 4E 4F 54 |. "** SYMASS NOT| 000000D0: 20 49 4E 53 54 41 4C 4C 45 44 20 2A 2A 22 00 FC | INSTALLED **"..| 000000E0: 08 42 04 99 20 22 4C 4F 41 44 2F 52 55 4E 20 53 |.B.. "LOAD/RUN S| 000000F0: 59 4D 41 53 53 20 46 49 52 53 54 22 00 02 09 4C |YMASS FIRST"...L| 00000100: 04 80 00 08 09 56 04 3A 00 22 09 60 04 99 20 22 |.....V.:.".`.. "| 00000110: 53 59 53 20 38 32 38 20 54 4F 20 45 4E 41 42 4C |SYS 828 TO ENABL| 00000120: 45 22 00 52 09 6A 04 99 20 22 53 59 53 20 38 33 |E".R.j.. "SYS 83| 00000130: 31 20 54 4F 20 52 45 53 54 4F 52 45 20 50 52 45 |1 TO RESTORE PRE| 00000140: 56 49 4F 55 53 20 4C 49 53 54 20 56 45 43 54 4F |VIOUS LIST VECTO| 00000150: 52 22 00 58 09 74 04 3A 00 61 09 7E 04 9E 37 30 |R".X.t.:.a.~..70| 00000160: 30 00 6D 09 88 04 AC B2 24 30 33 33 43 00 73 09 |0.m.....$033C.s.| 00000170: 92 04 3B 00 9A 09 9C 04 53 50 41 43 45 53 20 B2 |..;.....SPACES .| 00000180: 20 24 30 38 20 20 20 3B 20 23 20 53 50 41 43 45 | $08 ; # SPACE| 00000190: 53 20 A4 20 49 4E 44 45 4E 54 00 BC 09 A6 04 53 |S . INDENT.....S| 000001A0: 52 43 41 44 20 20 B2 20 24 35 46 20 20 20 3B 20 |RCAD . $5F ; | 000001B0: 43 4F 44 45 20 41 44 44 52 45 53 53 00 E0 09 B0 |CODE ADDRESS....| 000001C0: 04 41 44 20 20 20 20 20 B2 20 24 37 41 20 20 20 |.AD . $7A | 000001D0: 3B 20 43 48 52 CB 54 20 26 20 53 59 4D 41 53 53 |; CHR.T & SYMASS| 000001E0: 00 03 0A BA 04 49 51 50 4C 4F 50 20 B2 20 24 30 |.....IQPLOP . $0| 000001F0: 33 30 36 20 3B 20 53 54 44 20 9B 20 4A 4D 50 20 |306 ; STD . JMP | 00000200: 56 45 43 00 25 0A C4 04 53 59 4D 50 54 52 20 B2 |VEC.%...SYMPTR .| 00000210: 20 24 30 32 42 44 20 3B 20 53 59 4D 41 53 53 20 | $02BD ; SYMASS | 00000220: 56 45 43 A4 52 00 47 0A CE 04 52 45 47 4C 53 54 |VEC.R.G...REGLST| 00000230: 20 B2 20 24 41 37 31 41 20 3B 20 4E B0 4D 41 4C | . $A71A ; N.MAL| 00000240: 20 9B 20 43 4F 44 45 00 63 0A D8 04 4F 55 54 44 | . CODE.c...OUTD| 00000250: 4F 20 20 B2 20 24 41 42 34 37 20 3B 20 99 20 43 |O . $AB47 ; . C| 00000260: 48 41 52 00 82 0A E2 04 46 49 4E 44 4F 50 20 B2 |HAR.....FINDOP .| 00000270: 20 24 30 30 30 30 20 3B 20 44 55 4D 4D 59 20 C5 | $0000 ; DUMMY .| 00000280: 55 45 00 94 0A EC 04 57 B0 44 20 20 20 B2 20 24 |UE.....W.D . $| 00000290: 30 30 30 30 00 9A 0A F6 04 3B 00 B2 0A 00 05 4A |0000.....;.....J| 000002A0: 4D 50 20 56 45 43 53 45 54 20 3B 20 45 4E 41 42 |MP VECSET ; ENAB| 000002B0: 4C 45 00 CB 0A 0A 05 4A 4D 50 20 4C 49 53 44 49 |LE.....JMP LISDI| 000002C0: 53 20 3B 20 44 49 53 41 42 4C 45 00 D1 0A 14 05 |S ; DISABLE.....| 000002D0: 3B 00 F2 0A 1E 05 3B 20 41 4C 54 45 52 20 54 48 |;.....; ALTER TH| 000002E0: 45 20 9B 20 56 45 43 A4 52 20 28 49 51 50 4C 4F |E . VEC.R (IQPLO| 000002F0: 50 29 00 01 0B 28 05 56 45 43 53 45 54 20 B2 20 |P)...(.VECSET . | 00000300: AC 00 1B 0B 32 05 4C 44 41 20 49 51 50 4C 4F 50 |....2.LDA IQPLOP| 00000310: 20 20 3B 20 50 49 43 4B 20 55 50 00 36 0B 3C 05 | ; PICK UP.6.<.| 00000320: 53 54 41 20 52 47 4C AA 31 20 20 20 20 3B 20 43 |STA RGL.1 ; C| 00000330: 55 52 52 45 4E 54 00 4D 0B 46 05 4C 44 41 20 49 |URRENT.M.F.LDA I| 00000340: 51 50 4C 4F 50 AA 31 20 3B 20 27 9B 27 00 66 0B |QPLOP.1 ; '.'.f.| 00000350: 50 05 53 54 41 20 52 47 4C AA 32 20 20 20 20 3B |P.STA RGL.2 ;| 00000360: 20 56 45 43 A4 52 00 83 0B 5A 05 4C 44 41 20 23 | VEC.R...Z.LDA #| 00000370: B3 4C 56 45 43 20 20 20 3B 20 49 4E 53 54 41 4C |.LVEC ; INSTAL| 00000380: 4C 20 A2 00 9A 0B 64 05 53 54 41 20 49 51 50 4C |L ....d.STA IQPL| 00000390: 4F 50 20 20 20 3B 20 27 9B 27 00 B3 0B 6E 05 4C |OP ; '.'...n.L| 000003A0: 44 41 20 23 B1 4C 56 45 43 20 20 20 3B 20 56 45 |DA #.LVEC ; VE| 000003B0: 43 A4 52 00 C4 0B 78 05 53 54 41 20 49 51 50 4C |C.R...x.STA IQPL| 000003C0: 4F 50 AA 31 00 E4 0B 82 05 4C 44 41 20 53 59 4D |OP.1.....LDA SYM| 000003D0: 50 54 52 20 20 20 3B 20 43 41 4C 43 20 41 44 44 |PTR ; CALC ADD| 000003E0: 52 20 4F 46 00 00 0C 8C 05 43 4C 43 20 20 20 20 |R OF.....CLC | 000003F0: 20 20 20 20 20 20 3B 20 27 46 49 4E 44 4F 50 27 | ; 'FINDOP'| 00000400: 00 1B 0C 96 05 41 44 43 20 23 24 39 44 20 20 20 |.....ADC #$9D | 00000410: 20 20 3B 20 52 4F 55 54 49 4E 45 00 2A 0C A0 05 | ; ROUTINE.*...| 00000420: 53 54 41 20 4F 50 46 44 AA 31 00 49 0C AA 05 4C |STA OPFD.1.I...L| 00000430: 44 41 20 53 59 4D 50 54 52 AA 31 20 3B 20 26 20 |DA SYMPTR.1 ; & | 00000440: 49 4E 53 45 52 54 20 49 4E 00 67 0C B4 05 41 44 |INSERT IN.g...AD| 00000450: 43 20 23 24 30 33 20 20 20 20 20 3B 20 43 4F 44 |C #$03 ; COD| 00000460: 45 20 42 45 4C 4F 57 00 76 0C BE 05 53 54 41 20 |E BELOW.v...STA | 00000470: 4F 50 46 44 AA 32 00 7E 0C C8 05 43 4C 43 00 9E |OPFD.2.~...CLC..| 00000480: 0C D2 05 4C 44 41 20 53 59 4D 50 54 52 20 20 20 |...LDA SYMPTR | 00000490: 3B 20 43 41 4C 43 20 41 44 44 52 20 4F 46 00 B7 |; CALC ADDR OF..| 000004A0: 0C DC 05 41 44 43 20 23 24 46 41 20 20 20 20 20 |...ADC #$FA | 000004B0: 3B 20 27 57 B0 44 27 00 D2 0C E6 05 53 54 41 20 |; 'W.D'.....STA | 000004C0: 57 52 44 AA 31 20 20 20 20 3B 20 52 4F 55 54 49 |WRD.1 ; ROUTI| 000004D0: 4E 45 00 EF 0C F0 05 4C 44 41 20 53 59 4D 50 54 |NE.....LDA SYMPT| 000004E0: 52 AA 31 20 3B 20 49 4E 20 53 59 4D 41 53 53 00 |R.1 ; IN SYMASS.| 000004F0: FC 0C FA 05 41 44 43 20 23 24 30 35 00 0A 0D 04 |....ADC #$05....| 00000500: 06 53 54 41 20 57 52 44 AA 32 00 12 0D 0E 06 52 |.STA WRD.2.....R| 00000510: 54 53 00 18 0D 18 06 3B 00 2F 0D 22 06 3B 20 A2 |TS.....;./.".; .| 00000520: 20 52 4F 55 54 49 4E 45 20 81 20 9B 49 4E 47 00 | ROUTINE . .ING.| 00000530: 4D 0D 2C 06 4C 56 45 43 20 43 50 59 20 23 24 30 |M.,.LVEC CPY #$0| 00000540: 34 20 3B 20 43 48 45 43 4B 20 91 4C 59 00 69 0D |4 ; CHECK .LY.i.| 00000550: 36 06 42 45 51 20 4F 50 53 52 43 48 20 20 20 20 |6.BEQ OPSRCH | 00000560: 3B 20 31 53 54 20 57 B0 44 00 6F 0D 40 06 3B 00 |; 1ST W.D.o.@.;.| 00000570: 8E 0D 4A 06 52 45 47 20 4C 44 41 20 28 53 52 43 |..J.REG LDA (SRC| 00000580: 41 44 29 2C 59 20 3B 20 91 20 4C 49 4E 45 00 94 |AD),Y ; . LINE..| 00000590: 0D 54 06 3B 00 A7 0D 5E 06 52 47 4C 20 4A 4D 50 |.T.;...^.RGL JMP| 000005A0: 20 52 45 47 4C 53 54 00 AD 0D 68 06 3B 00 C1 0D | REGLST...h.;...| 000005B0: 72 06 4F 50 53 52 43 48 20 20 53 54 59 20 24 34 |r.OPSRCH STY $4| 000005C0: 39 00 D0 0D 7C 06 4A 53 52 20 43 41 4C 43 41 44 |9...|.JSR CALCAD| 000005D0: 00 D6 0D 86 06 3B 00 EF 0D 90 06 57 52 44 20 4A |.....;.....WRD J| 000005E0: 53 52 20 57 B0 44 20 3B 20 A1 20 C3 20 4F 46 00 |SR W.D ; . . OF.| 000005F0: 0B 0E 9A 06 4A 53 52 20 43 41 4C 43 41 44 20 20 |....JSR CALCAD | 00000600: 3B 20 57 B0 44 20 28 24 35 39 29 00 11 0E A4 06 |; W.D ($59).....| 00000610: 3B 00 25 0E AE 06 4F 50 46 44 20 4A 53 52 20 46 |;.%...OPFD JSR F| 00000620: 49 4E 44 4F 50 00 40 0E B8 06 42 43 43 20 4A 52 |INDOP.@...BCC JR| 00000630: 45 47 20 20 20 3B 20 A8 20 4D 4E 45 4D 91 49 43 |EG ; . MNEM.IC| 00000640: 00 46 0E C2 06 3B 00 56 0E CC 06 4C 44 58 20 23 |.F...;.V...LDX #| 00000650: 53 50 41 43 45 53 00 5C 0E D6 06 3B 00 7F 0E E0 |SPACES.\...;....| 00000660: 06 43 91 32 20 4C 44 41 20 23 24 32 30 20 20 20 |.C.2 LDA #$20 | 00000670: 3B 20 49 4E 53 45 52 54 20 53 50 41 43 45 53 00 |; INSERT SPACES.| 00000680: 8D 0E EA 06 4A 53 52 20 4F 55 54 44 4F 00 95 0E |....JSR OUTDO...| 00000690: F4 06 44 45 58 00 A1 0E FE 06 42 4E 45 20 43 91 |..DEX.....BNE C.| 000006A0: 32 00 A7 0E 08 07 3B 00 C5 0E 12 07 4A 52 45 47 |2.....;.....JREG| 000006B0: 20 4C 44 59 20 24 34 39 20 20 20 20 3B 20 8C 20 | LDY $49 ; . | 000006C0: 59 20 52 45 47 00 D1 0E 1C 07 42 4E 45 20 52 45 |Y REG.....BNE RE| 000006D0: 47 00 D7 0E 26 07 3B 00 F8 0E 30 07 3B 20 53 55 |G...&.;...0.; SU| 000006E0: 42 52 4F 55 54 49 4E 45 20 A4 20 53 45 54 20 55 |BROUTINE . SET U| 000006F0: 50 20 53 45 41 52 43 48 00 15 0F 3A 07 3B 20 41 |P SEARCH...:.; A| 00000700: 44 44 52 45 53 53 20 27 41 44 27 20 49 4E 20 53 |DDRESS 'AD' IN S| 00000710: 59 4D 41 53 53 00 24 0F 44 07 43 41 4C 43 41 44 |YMASS.$.D.CALCAD| 00000720: 20 B2 20 AC 00 3E 0F 4E 07 4C 44 41 20 24 34 39 | . ..>.N.LDA $49| 00000730: 20 20 20 20 3B 20 41 44 44 20 2E 59 20 A4 00 57 | ; ADD .Y ..W| 00000740: 0F 58 07 43 4C 43 20 20 20 20 20 20 20 20 3B 20 |.X.CLC ; | 00000750: 43 55 52 52 45 4E 54 00 6D 0F 62 07 41 44 43 20 |CURRENT.m.b.ADC | 00000760: 53 52 43 41 44 20 20 3B 20 41 44 44 52 00 78 0F |SRCAD ; ADDR.x.| 00000770: 6C 07 53 54 41 20 41 44 00 85 0F 76 07 4C 44 41 |l.STA AD...v.LDA| 00000780: 20 23 24 30 30 00 95 0F 80 07 41 44 43 20 53 52 | #$00.....ADC SR| 00000790: 43 41 44 AA 31 00 A2 0F 8A 07 53 54 41 20 41 44 |CAD.1.....STA AD| 000007A0: AA 31 00 AA 0F 94 07 52 54 53 00 B0 0F 9E 07 3B |.1.....RTS.....;| 000007B0: 00 CC 0F A8 07 3B 20 9E 20 A4 20 44 49 53 41 42 |.....; . . DISAB| 000007C0: 4C 45 20 9B 20 81 4D 41 54 54 45 52 00 DB 0F B2 |LE . .MATTER....| 000007D0: 07 4C 49 53 44 49 53 20 B2 20 AC 00 F4 0F BC 07 |.LISDIS . ......| 000007E0: 4C 44 41 20 52 47 4C AA 31 20 20 20 3B 20 8C 20 |LDA RGL.1 ; . | 000007F0: 4C 41 53 54 00 0C 10 C6 07 53 54 41 20 49 51 50 |LAST.....STA IQP| 00000800: 4C 4F 50 20 20 3B 20 56 45 43 A4 52 00 1A 10 D0 |LOP ; VEC.R....| 00000810: 07 4C 44 41 20 52 47 4C AA 32 00 2B 10 DA 07 53 |.LDA RGL.2.+...S| 00000820: 54 41 20 49 51 50 4C 4F 50 AA 31 00 33 10 E4 07 |TA IQPLOP.1.3...| 00000830: 52 54 53 00 39 10 EE 07 3B 00 40 10 F8 07 2E 80 |RTS.9...;.@.....| 00000840: 00 00 00 |... |
....... SAVE"0:SYMLISTER",8.=.... * 21 F
EB 87 - J.A.SPENCER.`.... * INDENTS AL
L LINES STARTING.Z.... * WITH 6510 OPCOD
ES...... * SYMASS MUST INSTALLED.....:..
.$.. B(700).76 . 1120.....:...8.. "** SY
MASS NOT INSTALLED **"...B.. "LOAD/RUN S
YMASS FIRST"...L.....V.:.".`.. "SYS 828
TO ENABLE".R.J.. "SYS 831 TO RESTORE PRE
VIOUS LIST VECTOR".X.T.:.A.~..700.M.....
$033C.S...;.....SPACES . $08 ; # SPACE
S . INDENT.....SRCAD . $5F ; CODE ADD
RESS.....AD . $7A ; CHRKT & SYMASS
.....IQPLOP . $0306 ; STD . JMP VEC.%.D.
SYMPTR . $02BD ; SYMASS VEC.R.G.N.REGLST
. $A71A ; N.MAL . CODE.C.X.OUTDO . $AB
47 ; . CHAR.....FINDOP . $0000 ; DUMMY E
UE.....W.D . $0000.....;.....JMP VECSE
T ; ENABLE.K...JMP LISDIS ; DISABLE.Q...
;.....; ALTER THE . VEC.R (IQPLOP)...(.V
ECSET . ....2.LDA IQPLOP ; PICK UP.6.<.
STA RGL.1 ; CURRENT.M.F.LDA IQPLOP.1
; '.'.F.P.STA RGL.2 ; VEC.R...Z.LDA #
.LVEC ; INSTALL ....D.STA IQPLOP ; '
.'...N.LDA #.LVEC ; VEC.R.D.X.STA IQPL
OP.1.....LDA SYMPTR ; CALC ADDR OF....
.CLC ; 'FINDOP'.....ADC #$9D
; ROUTINE.*. .STA OPFD.1.I...LDA SYMPT
R.1 ; & INSERT IN.G...ADC #$03 ; COD
E BELOW.V...STA OPFD.2.~.H.CLC...R.LDA S
YMPTR ; CALC ADDR OF.....ADC #$FA
; 'W.D'.R...STA WRD.1 ; ROUTINE.....L
DA SYMPTR.1 ; IN SYMASS.....ADC #$05....
.STA WRD.2.....RTS.....;./.".; . ROUTINE
. .ING.M.,.LVEC CPY #$04 ; CHECK .LY.I.
6.BEQ OPSRCH ; 1ST W.D.O.@.;...J.REG
LDA (SRCAD),Y ; . LINE...T.;...^.RGL JMP
REGLST...H.;.A.R.OPSRCH STY $49.P.|.JS
R CALCAD.V...;.....WRD JSR W.D ; . C OF.
....JSR CALCAD ; W.D ($59).....;.%...OP
FD JSR FINDOP.@...BCC JREG ; . MNEM.IC
.F.B.;.V.L.LDX #SPACES.\.V.;....C.2 LDA
#$20 ; INSERT SPACES.....JSR OUTDO...
..DEX.....BNE C.2.....;.E...JREG LDY $49
; . Y REG.Q...BNE REG.W.&.;...0.; SU
BROUTINE . SET UP SEARCH...:.; ADDRESS '
AD' IN SYMASS.$.D.CALCAD . ..>.N.LDA $49
; ADD .Y ..W.X.CLC ; CURRENT.
M.B.ADC SRCAD ; ADDR.X.L.STA AD...V.LDA
#$00.....ADC SRCAD.1.....STA AD.1.....R
TS.....;.L...; . . DISABLE . .MATTER....
.LISDIS . ......LDA RGL.1 ; . LAST...F
.STA IQPLOP ; VEC.R...P.LDA RGL.2.+.Z.S
TA IQPLOP.1.3...RTS.9...;.@........
> CLICK IMAGE PREVIEW FOR FULL MODAL