!� TRACKER M/Code Disassembler
%� Original Program by Mark Bolton
� Electron User August 1988
(#� ROM version, Part 1 (TKRsrc1)
2#� By Richard Dimond, March 1997
<�
Z�134
d
� Q% 1000
nmem=&70:tmp=&72:ptr=&F2
x*osasci=&FFE3:oswrch=&FFEE:osnewl=&FFE7
��pass=4�6�2
�P%=&8000:O%=Q%
�[OPTpass
�.romstrt
�	EQUB0
�	EQUB0
�	EQUB0
�JMPservice
�EQUB&82
�EQUB(copyr-romstrt)
�	EQUB0
�'.title EQUS"TRACKER M/C DISSEMBLER"
�	EQUB0

EQUS"1.00"


EQUB&D

.copyr EQUB0

"=EQUS"(C) 1993 Richard A. Dimond & Electron User Aug 1988"

,	EQUB0

6.service PHP:PHA

@CMP#4:BEQcommand

JCMP#9:BEQhelp

TPLA:PLP:RTS

^.prt

hSTXmem:STYmem+1

r.lp1 LDY#0

|.lp2 LDA(mem),Y

�CMP#&FF:BEQexit

�JSRosasci:INY:BNElp2

�INCmem+1

�
JMPlp1

�
.exit RTS

�	.help

�TXA:PHA:TYA:PHA

�LDA(ptr),Y:CMP#13:BEQnonly

�LDX#&FF:DEY

�
.help1

�INX:INY

�LDAhword,X:CMP#13:BEQbhelp

� LDA(ptr),Y:CMP#�".":BEQbhelp
�#&DF:CMPhword,X:BEQhelp1
.out
PLA:TAY:PLA:TAX:PLA:PLP:RTS
&.nonly JSRnameonly:JMPout
0.bhelp LDA#14:JSRoswrch
:JSRnameonly
DLDX#hlptxt �256
NLDY#hlptxt �256
X"JSRprt:LDA#15:JSRoswrch:JMPout
b
.command 
l TXA:PHA:TYA:PHA:LDX#0:STYtmp
v+.com1 LDAcoms,X:CMP#&FF:BEQnocom:LDYtmp
�S.com2 LDAcoms,X:BEQgotcom:LDA(ptr),Y:�#&DF:CMPcoms,X:BNEnextone:INY:INX:BNEcom2
�9.nextone INX:LDAcoms,X:BNEnextone:INX:INX:INX:BNEcom1
�>.gotcom INX:LDAcoms,X:STAmem:LDAcoms+1,X:STAmem+1:JMP(mem)
�.nocom JMPout
�-.comout PLA:TAY:PLA:TAX:PLA:LDA#0:PLP:RTS
�
JMPout
�
.nameonly
�
JSRosnewl
�LDY#&FF
�
.pname
�%INY:LDAtitle,Y:JSRoswrch:BNEpname
�JSRosnewl:RTS
�.hword EQUS"TKR"+�13
.hlptxt EQUS �13
EQUS"Control Keys:"+�13+�13
$EQUS"J - Toggles JSR on/off"+�13
 $EQUS"M - Toggles JMP on/off"+�13
*(EQUS"P - Toggles Printer on/off"+�13
4)EQUS"F - Jumps Forward 256 bytes"+�13
>*EQUS"B - Jumps Backward 256 bytes"+�13
H&EQUS"A - To enter new address"+�13
R+EQUS"* - To enter Star command"+�13+�13
W-EQUS"ESCAPE - To return to BASIC"+�13+�13
\3EQUS"Enter ROM numbers in Decimal (0 - 15)"+�13
fEQUB&FF
p	.coms
zEQUS"TKR"+�0:EQUWtkr
�.tkr
�]
��
��"Saving..."
�.�"SAVE TRACK1 "+�~Q%+" "+�~O%+" 8000 8000"
�

00000000  0d 00 0a 21 f4 20 54 52  41 43 4b 45 52 20 4d 2f  |...!. TRACKER M/|
00000010  43 6f 64 65 20 44 69 73  61 73 73 65 6d 62 6c 65  |Code Disassemble|
00000020  72 0d 00 14 25 f4 20 4f  72 69 67 69 6e 61 6c 20  |r...%. Original |
00000030  50 72 6f 67 72 61 6d 20  62 79 20 4d 61 72 6b 20  |Program by Mark |
00000040  42 6f 6c 74 6f 6e 0d 00  1e 1f f4 20 45 6c 65 63  |Bolton..... Elec|
00000050  74 72 6f 6e 20 55 73 65  72 20 41 75 67 75 73 74  |tron User August|
00000060  20 31 39 38 38 0d 00 28  23 f4 20 52 4f 4d 20 76  | 1988..(#. ROM v|
00000070  65 72 73 69 6f 6e 2c 20  50 61 72 74 20 31 20 28  |ersion, Part 1 (|
00000080  54 4b 52 73 72 63 31 29  0d 00 32 23 f4 20 42 79  |TKRsrc1)..2#. By|
00000090  20 52 69 63 68 61 72 64  20 44 69 6d 6f 6e 64 2c  | Richard Dimond,|
000000a0  20 4d 61 72 63 68 20 31  39 39 37 0d 00 3c 05 f4  | March 1997..<..|
000000b0  0d 00 5a 08 eb 31 33 34  0d 00 64 0d de 20 51 25  |..Z..134..d.. Q%|
000000c0  20 31 30 30 30 0d 00 6e  1b 6d 65 6d 3d 26 37 30  | 1000..n.mem=&70|
000000d0  3a 74 6d 70 3d 26 37 32  3a 70 74 72 3d 26 46 32  |:tmp=&72:ptr=&F2|
000000e0  0d 00 78 2a 6f 73 61 73  63 69 3d 26 46 46 45 33  |..x*osasci=&FFE3|
000000f0  3a 6f 73 77 72 63 68 3d  26 46 46 45 45 3a 6f 73  |:oswrch=&FFEE:os|
00000100  6e 65 77 6c 3d 26 46 46  45 37 0d 00 82 0f e3 70  |newl=&FFE7.....p|
00000110  61 73 73 3d 34 b8 36 88  32 0d 00 8c 12 50 25 3d  |ass=4.6.2....P%=|
00000120  26 38 30 30 30 3a 4f 25  3d 51 25 0d 00 96 0c 5b  |&8000:O%=Q%....[|
00000130  4f 50 54 70 61 73 73 0d  00 a0 0c 2e 72 6f 6d 73  |OPTpass.....roms|
00000140  74 72 74 0d 00 aa 09 45  51 55 42 30 0d 00 b4 09  |trt....EQUB0....|
00000150  45 51 55 42 30 0d 00 be  09 45 51 55 42 30 0d 00  |EQUB0....EQUB0..|
00000160  c8 0e 4a 4d 50 73 65 72  76 69 63 65 0d 00 d2 0b  |..JMPservice....|
00000170  45 51 55 42 26 38 32 0d  00 dc 17 45 51 55 42 28  |EQUB&82....EQUB(|
00000180  63 6f 70 79 72 2d 72 6f  6d 73 74 72 74 29 0d 00  |copyr-romstrt)..|
00000190  e6 09 45 51 55 42 30 0d  00 f0 27 2e 74 69 74 6c  |..EQUB0...'.titl|
000001a0  65 20 45 51 55 53 22 54  52 41 43 4b 45 52 20 4d  |e EQUS"TRACKER M|
000001b0  2f 43 20 44 49 53 53 45  4d 42 4c 45 52 22 0d 00  |/C DISSEMBLER"..|
000001c0  fa 09 45 51 55 42 30 0d  01 04 0e 45 51 55 53 22  |..EQUB0....EQUS"|
000001d0  31 2e 30 30 22 0d 01 0e  0a 45 51 55 42 26 44 0d  |1.00"....EQUB&D.|
000001e0  01 18 10 2e 63 6f 70 79  72 20 45 51 55 42 30 0d  |....copyr EQUB0.|
000001f0  01 22 3d 45 51 55 53 22  28 43 29 20 31 39 39 33  |."=EQUS"(C) 1993|
00000200  20 52 69 63 68 61 72 64  20 41 2e 20 44 69 6d 6f  | Richard A. Dimo|
00000210  6e 64 20 26 20 45 6c 65  63 74 72 6f 6e 20 55 73  |nd & Electron Us|
00000220  65 72 20 41 75 67 20 31  39 38 38 22 0d 01 2c 09  |er Aug 1988"..,.|
00000230  45 51 55 42 30 0d 01 36  14 2e 73 65 72 76 69 63  |EQUB0..6..servic|
00000240  65 20 50 48 50 3a 50 48  41 0d 01 40 14 43 4d 50  |e PHP:PHA..@.CMP|
00000250  23 34 3a 42 45 51 63 6f  6d 6d 61 6e 64 0d 01 4a  |#4:BEQcommand..J|
00000260  11 43 4d 50 23 39 3a 42  45 51 68 65 6c 70 0d 01  |.CMP#9:BEQhelp..|
00000270  54 0f 50 4c 41 3a 50 4c  50 3a 52 54 53 0d 01 5e  |T.PLA:PLP:RTS..^|
00000280  08 2e 70 72 74 0d 01 68  13 53 54 58 6d 65 6d 3a  |..prt..h.STXmem:|
00000290  53 54 59 6d 65 6d 2b 31  0d 01 72 0e 2e 6c 70 31  |STYmem+1..r..lp1|
000002a0  20 4c 44 59 23 30 0d 01  7c 13 2e 6c 70 32 20 4c  | LDY#0..|..lp2 L|
000002b0  44 41 28 6d 65 6d 29 2c  59 0d 01 86 13 43 4d 50  |DA(mem),Y....CMP|
000002c0  23 26 46 46 3a 42 45 51  65 78 69 74 0d 01 90 18  |#&FF:BEQexit....|
000002d0  4a 53 52 6f 73 61 73 63  69 3a 49 4e 59 3a 42 4e  |JSRosasci:INY:BN|
000002e0  45 6c 70 32 0d 01 9a 0c  49 4e 43 6d 65 6d 2b 31  |Elp2....INCmem+1|
000002f0  0d 01 a4 0a 4a 4d 50 6c  70 31 0d 01 ae 0d 2e 65  |....JMPlp1.....e|
00000300  78 69 74 20 52 54 53 0d  01 b8 09 2e 68 65 6c 70  |xit RTS.....help|
00000310  0d 01 c2 13 54 58 41 3a  50 48 41 3a 54 59 41 3a  |....TXA:PHA:TYA:|
00000320  50 48 41 0d 01 cc 1e 4c  44 41 28 70 74 72 29 2c  |PHA....LDA(ptr),|
00000330  59 3a 43 4d 50 23 31 33  3a 42 45 51 6e 6f 6e 6c  |Y:CMP#13:BEQnonl|
00000340  79 0d 01 d6 0f 4c 44 58  23 26 46 46 3a 44 45 59  |y....LDX#&FF:DEY|
00000350  0d 01 e0 0a 2e 68 65 6c  70 31 0d 01 ea 0b 49 4e  |.....help1....IN|
00000360  58 3a 49 4e 59 0d 01 f4  1e 4c 44 41 68 77 6f 72  |X:INY....LDAhwor|
00000370  64 2c 58 3a 43 4d 50 23  31 33 3a 42 45 51 62 68  |d,X:CMP#13:BEQbh|
00000380  65 6c 70 0d 01 fe 20 4c  44 41 28 70 74 72 29 2c  |elp... LDA(ptr),|
00000390  59 3a 43 4d 50 23 97 22  2e 22 3a 42 45 51 62 68  |Y:CMP#.".":BEQbh|
000003a0  65 6c 70 0d 02 08 1d 80  23 26 44 46 3a 43 4d 50  |elp.....#&DF:CMP|
000003b0  68 77 6f 72 64 2c 58 3a  42 45 51 68 65 6c 70 31  |hword,X:BEQhelp1|
000003c0  0d 02 12 08 2e 6f 75 74  0d 02 1c 1f 50 4c 41 3a  |.....out....PLA:|
000003d0  54 41 59 3a 50 4c 41 3a  54 41 58 3a 50 4c 41 3a  |TAY:PLA:TAX:PLA:|
000003e0  50 4c 50 3a 52 54 53 0d  02 26 1d 2e 6e 6f 6e 6c  |PLP:RTS..&..nonl|
000003f0  79 20 4a 53 52 6e 61 6d  65 6f 6e 6c 79 3a 4a 4d  |y JSRnameonly:JM|
00000400  50 6f 75 74 0d 02 30 1b  2e 62 68 65 6c 70 20 4c  |Pout..0..bhelp L|
00000410  44 41 23 31 34 3a 4a 53  52 6f 73 77 72 63 68 0d  |DA#14:JSRoswrch.|
00000420  02 3a 0f 4a 53 52 6e 61  6d 65 6f 6e 6c 79 0d 02  |.:.JSRnameonly..|
00000430  44 13 4c 44 58 23 68 6c  70 74 78 74 20 83 32 35  |D.LDX#hlptxt .25|
00000440  36 0d 02 4e 13 4c 44 59  23 68 6c 70 74 78 74 20  |6..N.LDY#hlptxt |
00000450  81 32 35 36 0d 02 58 22  4a 53 52 70 72 74 3a 4c  |.256..X"JSRprt:L|
00000460  44 41 23 31 35 3a 4a 53  52 6f 73 77 72 63 68 3a  |DA#15:JSRoswrch:|
00000470  4a 4d 50 6f 75 74 0d 02  62 0d 2e 63 6f 6d 6d 61  |JMPout..b..comma|
00000480  6e 64 20 0d 02 6c 20 54  58 41 3a 50 48 41 3a 54  |nd ..l TXA:PHA:T|
00000490  59 41 3a 50 48 41 3a 4c  44 58 23 30 3a 53 54 59  |YA:PHA:LDX#0:STY|
000004a0  74 6d 70 0d 02 76 2b 2e  63 6f 6d 31 20 4c 44 41  |tmp..v+.com1 LDA|
000004b0  63 6f 6d 73 2c 58 3a 43  4d 50 23 26 46 46 3a 42  |coms,X:CMP#&FF:B|
000004c0  45 51 6e 6f 63 6f 6d 3a  4c 44 59 74 6d 70 0d 02  |EQnocom:LDYtmp..|
000004d0  80 53 2e 63 6f 6d 32 20  4c 44 41 63 6f 6d 73 2c  |.S.com2 LDAcoms,|
000004e0  58 3a 42 45 51 67 6f 74  63 6f 6d 3a 4c 44 41 28  |X:BEQgotcom:LDA(|
000004f0  70 74 72 29 2c 59 3a 80  23 26 44 46 3a 43 4d 50  |ptr),Y:.#&DF:CMP|
00000500  63 6f 6d 73 2c 58 3a 42  4e 45 6e 65 78 74 6f 6e  |coms,X:BNEnexton|
00000510  65 3a 49 4e 59 3a 49 4e  58 3a 42 4e 45 63 6f 6d  |e:INY:INX:BNEcom|
00000520  32 0d 02 8a 39 2e 6e 65  78 74 6f 6e 65 20 49 4e  |2...9.nextone IN|
00000530  58 3a 4c 44 41 63 6f 6d  73 2c 58 3a 42 4e 45 6e  |X:LDAcoms,X:BNEn|
00000540  65 78 74 6f 6e 65 3a 49  4e 58 3a 49 4e 58 3a 49  |extone:INX:INX:I|
00000550  4e 58 3a 42 4e 45 63 6f  6d 31 0d 02 94 3e 2e 67  |NX:BNEcom1...>.g|
00000560  6f 74 63 6f 6d 20 49 4e  58 3a 4c 44 41 63 6f 6d  |otcom INX:LDAcom|
00000570  73 2c 58 3a 53 54 41 6d  65 6d 3a 4c 44 41 63 6f  |s,X:STAmem:LDAco|
00000580  6d 73 2b 31 2c 58 3a 53  54 41 6d 65 6d 2b 31 3a  |ms+1,X:STAmem+1:|
00000590  4a 4d 50 28 6d 65 6d 29  0d 02 9e 11 2e 6e 6f 63  |JMP(mem).....noc|
000005a0  6f 6d 20 4a 4d 50 6f 75  74 0d 02 a8 2d 2e 63 6f  |om JMPout...-.co|
000005b0  6d 6f 75 74 20 50 4c 41  3a 54 41 59 3a 50 4c 41  |mout PLA:TAY:PLA|
000005c0  3a 54 41 58 3a 50 4c 41  3a 4c 44 41 23 30 3a 50  |:TAX:PLA:LDA#0:P|
000005d0  4c 50 3a 52 54 53 0d 02  b2 0a 4a 4d 50 6f 75 74  |LP:RTS....JMPout|
000005e0  0d 02 bc 0d 2e 6e 61 6d  65 6f 6e 6c 79 0d 02 c6  |.....nameonly...|
000005f0  0d 4a 53 52 6f 73 6e 65  77 6c 0d 02 d0 0b 4c 44  |.JSRosnewl....LD|
00000600  59 23 26 46 46 0d 02 da  0a 2e 70 6e 61 6d 65 0d  |Y#&FF.....pname.|
00000610  02 e4 25 49 4e 59 3a 4c  44 41 74 69 74 6c 65 2c  |..%INY:LDAtitle,|
00000620  59 3a 4a 53 52 6f 73 77  72 63 68 3a 42 4e 45 70  |Y:JSRoswrch:BNEp|
00000630  6e 61 6d 65 0d 02 ee 11  4a 53 52 6f 73 6e 65 77  |name....JSRosnew|
00000640  6c 3a 52 54 53 0d 02 f8  18 2e 68 77 6f 72 64 20  |l:RTS.....hword |
00000650  45 51 55 53 22 54 4b 52  22 2b bd 31 33 0d 03 02  |EQUS"TKR"+.13...|
00000660  14 2e 68 6c 70 74 78 74  20 45 51 55 53 20 bd 31  |..hlptxt EQUS .1|
00000670  33 0d 03 0c 1f 45 51 55  53 22 43 6f 6e 74 72 6f  |3....EQUS"Contro|
00000680  6c 20 4b 65 79 73 3a 22  2b bd 31 33 2b bd 31 33  |l Keys:"+.13+.13|
00000690  0d 03 16 24 45 51 55 53  22 4a 20 2d 20 54 6f 67  |...$EQUS"J - Tog|
000006a0  67 6c 65 73 20 4a 53 52  20 6f 6e 2f 6f 66 66 22  |gles JSR on/off"|
000006b0  2b bd 31 33 0d 03 20 24  45 51 55 53 22 4d 20 2d  |+.13.. $EQUS"M -|
000006c0  20 54 6f 67 67 6c 65 73  20 4a 4d 50 20 6f 6e 2f  | Toggles JMP on/|
000006d0  6f 66 66 22 2b bd 31 33  0d 03 2a 28 45 51 55 53  |off"+.13..*(EQUS|
000006e0  22 50 20 2d 20 54 6f 67  67 6c 65 73 20 50 72 69  |"P - Toggles Pri|
000006f0  6e 74 65 72 20 6f 6e 2f  6f 66 66 22 2b bd 31 33  |nter on/off"+.13|
00000700  0d 03 34 29 45 51 55 53  22 46 20 2d 20 4a 75 6d  |..4)EQUS"F - Jum|
00000710  70 73 20 46 6f 72 77 61  72 64 20 32 35 36 20 62  |ps Forward 256 b|
00000720  79 74 65 73 22 2b bd 31  33 0d 03 3e 2a 45 51 55  |ytes"+.13..>*EQU|
00000730  53 22 42 20 2d 20 4a 75  6d 70 73 20 42 61 63 6b  |S"B - Jumps Back|
00000740  77 61 72 64 20 32 35 36  20 62 79 74 65 73 22 2b  |ward 256 bytes"+|
00000750  bd 31 33 0d 03 48 26 45  51 55 53 22 41 20 2d 20  |.13..H&EQUS"A - |
00000760  54 6f 20 65 6e 74 65 72  20 6e 65 77 20 61 64 64  |To enter new add|
00000770  72 65 73 73 22 2b bd 31  33 0d 03 52 2b 45 51 55  |ress"+.13..R+EQU|
00000780  53 22 2a 20 2d 20 54 6f  20 65 6e 74 65 72 20 53  |S"* - To enter S|
00000790  74 61 72 20 63 6f 6d 6d  61 6e 64 22 2b bd 31 33  |tar command"+.13|
000007a0  2b bd 31 33 0d 03 57 2d  45 51 55 53 22 45 53 43  |+.13..W-EQUS"ESC|
000007b0  41 50 45 20 2d 20 54 6f  20 72 65 74 75 72 6e 20  |APE - To return |
000007c0  74 6f 20 42 41 53 49 43  22 2b bd 31 33 2b bd 31  |to BASIC"+.13+.1|
000007d0  33 0d 03 5c 33 45 51 55  53 22 45 6e 74 65 72 20  |3..\3EQUS"Enter |
000007e0  52 4f 4d 20 6e 75 6d 62  65 72 73 20 69 6e 20 44  |ROM numbers in D|
000007f0  65 63 69 6d 61 6c 20 28  30 20 2d 20 31 35 29 22  |ecimal (0 - 15)"|
00000800  2b bd 31 33 0d 03 66 0b  45 51 55 42 26 46 46 0d  |+.13..f.EQUB&FF.|
00000810  03 70 09 2e 63 6f 6d 73  0d 03 7a 18 45 51 55 53  |.p..coms..z.EQUS|
00000820  22 54 4b 52 22 2b bd 30  3a 45 51 55 57 74 6b 72  |"TKR"+.0:EQUWtkr|
00000830  0d 03 84 08 2e 74 6b 72  0d 03 8e 05 5d 0d 03 98  |.....tkr....]...|
00000840  05 ed 0d 03 a2 10 f1 22  53 61 76 69 6e 67 2e 2e  |......."Saving..|
00000850  2e 22 0d 03 ac 2e ff 22  53 41 56 45 20 54 52 41  |."....."SAVE TRA|
00000860  43 4b 31 20 22 2b c3 7e  51 25 2b 22 20 22 2b c3  |CK1 "+.~Q%+" "+.|
00000870  7e 4f 25 2b 22 20 38 30  30 30 20 38 30 30 30 22  |~O%+" 8000 8000"|
00000880  0d ff                                             |..|
00000882