Home » CEEFAX disks » telesoftware5.adl » 22-01-88/TRACE

22-01-88/TRACE

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware5.adl
Filename: 22-01-88/TRACE
Read OK:
File size: 1164 bytes
Load address: FFFF1900
Exec address: FFFF8023
File contents
   10REM: TRACE
   20MODE7
   30HIMEM=&3C00
   40DIM save 50
   50diff=&8000-HIMEM
   60address=&70
   70stack=&105
   80mode=&355
   90osasci=&FFE3
  100osnewl=&FFE7
  110oscli=&FFF7
  120FOR pass = 0 TO 2 STEP 2
  130P%=HIMEM
  140[OPT pass
  150BRK
  160BRK
  170BRK
  180JMP service+diff
  190OPT FNequb(&82)
  200OPT FNequb((copyright+diff) MOD 256)
  210BRK
  220OPT FNequs("TRACE")
  230.copyright
  240BRK
  250OPT FNequs("(C) Gordon Horsington 1987")
  260BRK
  270.service
  280PHA
  290TXA
  300PHA
  310TYA
  320PHA
  330LDA address
  340PHA
  350STX address
  360LDA address+1
  370PHA
  380TSX
  390LDA stack,X
  400PHA
  410STA address+1
  420TYA
  430PHA
  440LDA address
  450PHA
  460LDA address+1
  470PHA
  480LDA mode
  490CMP #&07
  500BNE notmode7
  510LDA #&83
  520BNE space
  530.notmode7
  540LDA #ASC(" ")
  550.space
  560JSR osasci
  570LDA #ASC("A")
  580JSR equals+diff
  590PLA
  600JSR printbyte+diff
  610LDA #ASC("X")
  620JSR equals+diff
  630PLA
  640JSR printbyte+diff
  650LDA #ASC("Y")
  660JSR equals+diff
  670PLA
  680JSR printbyte+diff
  690PLA
  700CLC
  710ADC #2
  720CMP #&15
  730BCS endprint
  740ASL A
  750TAY
  760LDA index+diff,Y
  770STA address
  780INY
  790LDA index+diff,Y
  800STA address+1
  810LDY #&FF
  820.printloop
  830INY
  840LDA (address),Y
  850BEQ endprint
  860JSR osasci
  870JMP printloop+diff
  880.endprint
  890JSR osnewl
  900PLA
  910STA address+1
  920PLA
  930STA address
  940PLA
  950TAY
  960PLA
  970TAX
  980PLA
  990RTS
 1000.printbyte
 1010PHA
 1020LSR A
 1030LSR A
 1040LSR A
 1050LSR A
 1060JSR nibble+diff
 1070PLA
 1080JSR nibble+diff
 1090LDA #ASC(" ")
 1100JMP osasci
 1110.nibble
 1120AND #&0F
 1130SED
 1140CLC
 1150ADC #&90
 1160ADC #&40
 1170CLD
 1180JMP osasci
 1190.equals
 1200JSR osasci
 1210LDA #ASC("=")
 1220JMP osasci
 1230.index
 1240OPT FNequb((fe+diff) MOD 256)
 1250OPT FNequb((fe+diff) DIV 256)
 1260OPT FNequb((ff+diff) MOD 256)
 1270OPT FNequb((ff+diff) DIV 256)
 1280OPT FNequb((zero+diff) MOD 256)
 1290OPT FNequb((zero+diff) DIV 256)
 1300OPT FNequb((one+diff) MOD 256)
 1310OPT FNequb((one+diff) DIV 256)
 1320OPT FNequb((two+diff) MOD 256)
 1330OPT FNequb((two+diff) DIV 256)
 1340OPT FNequb((three+diff) MOD 256)
 1350OPT FNequb((three+diff) DIV 256)
 1360OPT FNequb((four+diff) MOD 256)
 1370OPT FNequb((four+diff) DIV 256)
 1380OPT FNequb((five+diff) MOD 256)
 1390OPT FNequb((five+diff) DIV 256)
 1400OPT FNequb((six+diff) MOD 256)
 1410OPT FNequb((six+diff) DIV 256)
 1420OPT FNequb((seven+diff) MOD 256)
 1430OPT FNequb((seven+diff) DIV 256)
 1440OPT FNequb((eight+diff) MOD 256)
 1450OPT FNequb((eight+diff) DIV 256)
 1460OPT FNequb((nine+diff) MOD 256)
 1470OPT FNequb((nine+diff) DIV 256)
 1480OPT FNequb((ten+diff) MOD 256)
 1490OPT FNequb((ten+diff) DIV 256)
 1500OPT FNequb((eleven+diff) MOD 256)
 1510OPT FNequb((eleven+diff) DIV 256)
 1520OPT FNequb((twelve+diff) MOD 256)
 1530OPT FNequb((twelve+diff) DIV 256)
 1540OPT FNequb((thirteen+diff) MOD 256)
 1550OPT FNequb((thirteen+diff) DIV 256)
 1560OPT FNequb((fourteen+diff) MOD 256)
 1570OPT FNequb((fourteen+diff) DIV 256)
 1580OPT FNequb((fifteen+diff) MOD 256)
 1590OPT FNequb((fifteen+diff) DIV 256)
 1600OPT FNequb((sixteen+diff) MOD 256)
 1610OPT FNequb((sixteen+diff) DIV 256)
 1620OPT FNequb((seventeen+diff) MOD 256)
 1630OPT FNequb((seventeen+diff) DIV 256)
 1640OPT FNequb((eighteen+diff) MOD 256)
 1650OPT FNequb((eighteen+diff) DIV 256)
 1660.fe
 1670OPT FNequs("Tube system post init.")
 1680BRK
 1690.ff
 1700OPT FNequs("Tube system main init.")
 1710BRK
 1720.zero
 1730OPT FNequs("No operation")
 1740BRK
 1750.one
 1760OPT FNequs("Abs. workspace claim")
 1770BRK
 1780.two
 1790OPT FNequs("Private workspace claim")
 1800BRK
 1810.three
 1820OPT FNequs("Auto-boot")
 1830BRK
 1840.four
 1850OPT FNequs("Unrecognised command")
 1860BRK
 1870.five
 1880OPT FNequs("Unrecognised interupt")
 1890BRK
 1900.six
 1910OPT FNequs("Break")
 1920BRK
 1930.seven
 1940OPT FNequs("Unrecognised Osbyte")
 1950BRK
 1960.eight
 1970OPT FNequs("Unrecognised Osword")
 1980BRK
 1990.nine
 2000OPT FNequs("Help")
 2010BRK
 2020.ten
 2030OPT FNequs("Claim static workspace")
 2040BRK
 2050.eleven
 2060OPT FNequs("NMI release")
 2070BRK
 2080.twelve
 2090OPT FNequs("NMI claim")
 2100BRK
 2110.thirteen
 2120OPT FNequs("RFS initialise")
 2130BRK
 2140.fourteen
 2150OPT FNequs("RFS byte get")
 2160BRK
 2170.fifteen
 2180OPT FNequs("Vectors claimed")
 2190BRK
 2200.sixteen
 2210OPT FNequs("SPOOL/EXEC file closure")
 2220BRK
 2230.seventeen
 2240OPT FNequs("Font implode/explode")
 2250BRK
 2260.eighteen
 2270OPT FNequs("Init. filing system")
 2280BRK
 2290.lastbyte
 2300]
 2310NEXT
 2320INPUT'"Save filename = "filename$
 2330IF filename$="" END
 2340$save="SAVE "+filename$+" "+STR$~(HIMEM)+" "+STR$~(lastbyte)+" FFFF8000 FFFF8000"
 2350X%=save MOD 256
 2360Y%=save DIV 256
 2370*OPT1,2
 2380CALL oscli
 2390*OPT1,0
 2400END
 2410DEFFNequb(byte)
 2420?P%=byte
 2430P%=P%+1
 2440=pass
 2450DEFFNequw(word)
 2460?P%=word MOD 256
 2470P%?1=word DIV 256
 2480P%=P%+2
 2490=pass
 2500DEFFNequd(double)
 2510!P%=double
 2520P%=P%+4
 2530=pass
 2540DEFFNequs(string$)
 2550$P%=string$
 2560P%=P%+LEN(string$)
 2570=pass

�: TRACE
�7
�=&3C00
(
� save 50
2diff=&8000-�
<address=&70
Fstack=&105
P
mode=&355
Zosasci=&FFE3
dosnewl=&FFE7
noscli=&FFF7
x� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�OPT �equs("TRACE")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1987")
BRK
.service
PHA
"TXA
,PHA
6TYA
@PHA
JLDA address
TPHA
^STX address
hLDA address+1
rPHA
|TSX
�LDA stack,X
�PHA
�STA address+1
�TYA
�PHA
�LDA address
�PHA
�LDA address+1
�PHA
�LDA mode
�CMP #&07
�BNE notmode7
�LDA #&83

BNE space

.notmode7
LDA #�(" ")
&
.space
0JSR osasci
:LDA #�("A")
DJSR equals+diff
NPLA
XJSR printbyte+diff
bLDA #�("X")
lJSR equals+diff
vPLA
�JSR printbyte+diff
�LDA #�("Y")
�JSR equals+diff
�PLA
�JSR printbyte+diff
�PLA
�CLC
�
ADC #2
�CMP #&15
�BCS endprint
�	ASL A
�TAY
�LDA index+diff,Y
STA address
INY
LDA index+diff,Y
 STA address+1
*LDY #&FF
4.printloop
>INY
HLDA (address),Y
RBEQ endprint
\JSR osasci
fJMP printloop+diff
p
.endprint
zJSR osnewl
�PLA
�STA address+1
�PLA
�STA address
�PLA
�TAY
�PLA
�TAX
�PLA
�RTS
�.printbyte
�PHA
�	LSR A
	LSR A
	LSR A
	LSR A
$JSR nibble+diff
.PLA
8JSR nibble+diff
BLDA #�(" ")
LJMP osasci
V.nibble
`
� #&0F
jSED
tCLC
~ADC #&90
�ADC #&40
�CLD
�JMP osasci
�.equals
�JSR osasci
�LDA #�("=")
�JMP osasci
�
.index
�OPT �equb((fe+diff) � 256)
�OPT �equb((fe+diff) � 256)
�OPT �equb((ff+diff) � 256)
�OPT �equb((ff+diff) � 256)
 OPT �equb((zero+diff) � 256)

 OPT �equb((zero+diff) � 256)
OPT �equb((one+diff) � 256)
OPT �equb((one+diff) � 256)
(OPT �equb((two+diff) � 256)
2OPT �equb((two+diff) � 256)
<!OPT �equb((three+diff) � 256)
F!OPT �equb((three+diff) � 256)
P OPT �equb((four+diff) � 256)
Z OPT �equb((four+diff) � 256)
d OPT �equb((five+diff) � 256)
n OPT �equb((five+diff) � 256)
xOPT �equb((six+diff) � 256)
�OPT �equb((six+diff) � 256)
�!OPT �equb((seven+diff) � 256)
�!OPT �equb((seven+diff) � 256)
�!OPT �equb((eight+diff) � 256)
�!OPT �equb((eight+diff) � 256)
� OPT �equb((nine+diff) � 256)
� OPT �equb((nine+diff) � 256)
�OPT �equb((ten+diff) � 256)
�OPT �equb((ten+diff) � 256)
�"OPT �equb((eleven+diff) � 256)
�"OPT �equb((eleven+diff) � 256)
�"OPT �equb((twelve+diff) � 256)
�"OPT �equb((twelve+diff) � 256)
$OPT �equb((thirteen+diff) � 256)
$OPT �equb((thirteen+diff) � 256)
$OPT �equb((fourteen+diff) � 256)
"$OPT �equb((fourteen+diff) � 256)
,#OPT �equb((fifteen+diff) � 256)
6#OPT �equb((fifteen+diff) � 256)
@#OPT �equb((sixteen+diff) � 256)
J#OPT �equb((sixteen+diff) � 256)
T%OPT �equb((seventeen+diff) � 256)
^%OPT �equb((seventeen+diff) � 256)
h$OPT �equb((eighteen+diff) � 256)
r$OPT �equb((eighteen+diff) � 256)
|.fe
�'OPT �equs("Tube system post init.")
�BRK
�.ff
�'OPT �equs("Tube system main init.")
�BRK
�	.zero
�OPT �equs("No operation")
�BRK
�.one
�%OPT �equs("Abs. workspace claim")
�BRK
�.two
�(OPT �equs("Private workspace claim")
BRK

.three
OPT �equs("Auto-boot")
&BRK
0	.four
:%OPT �equs("Unrecognised command")
DBRK
N	.five
X&OPT �equs("Unrecognised interupt")
bBRK
l.six
vOPT �equs("Break")
�BRK
�
.seven
�$OPT �equs("Unrecognised Osbyte")
�BRK
�
.eight
�$OPT �equs("Unrecognised Osword")
�BRK
�	.nine
�OPT �equs("Help")
�BRK
�.ten
�'OPT �equs("Claim static workspace")
�BRK
.eleven
OPT �equs("NMI release")
BRK
 .twelve
*OPT �equs("NMI claim")
4BRK
>
.thirteen
HOPT �equs("RFS initialise")
RBRK
\
.fourteen
fOPT �equs("RFS byte get")
pBRK
z.fifteen
� OPT �equs("Vectors claimed")
�BRK
�.sixteen
�(OPT �equs("SPOOL/EXEC file closure")
�BRK
�.seventeen
�%OPT �equs("Font implode/explode")
�BRK
�
.eighteen
�$OPT �equs("Init. filing system")
�BRK
�
.lastbyte
�]
	�
	!�'"Save filename = "filename$
	� filename$="" �
	$K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
	.X%=save � 256
	8Y%=save � 256
	B*OPT1,2
	L� oscli
	V*OPT1,0
	`�
	jݤequb(byte)
	t?P%=byte
	~P%=P%+1
	�	=pass
	�ݤequw(word)
	�?P%=word � 256
	�P%?1=word � 256
	�P%=P%+2
	�	=pass
	�ݤequd(double)
	�!P%=double
	�P%=P%+4
	�	=pass
	�ݤequs(string$)
	�$P%=string$
P%=P%+�(string$)

	=pass
�
00000000  0d 00 0a 0c f4 3a 20 54  52 41 43 45 0d 00 14 06  |.....: TRACE....|
00000010  eb 37 0d 00 1e 0b d3 3d  26 33 43 30 30 0d 00 28  |.7.....=&3C00..(|
00000020  0d de 20 73 61 76 65 20  35 30 0d 00 32 10 64 69  |.. save 50..2.di|
00000030  66 66 3d 26 38 30 30 30  2d 93 0d 00 3c 0f 61 64  |ff=&8000-...<.ad|
00000040  64 72 65 73 73 3d 26 37  30 0d 00 46 0e 73 74 61  |dress=&70..F.sta|
00000050  63 6b 3d 26 31 30 35 0d  00 50 0d 6d 6f 64 65 3d  |ck=&105..P.mode=|
00000060  26 33 35 35 0d 00 5a 10  6f 73 61 73 63 69 3d 26  |&355..Z.osasci=&|
00000070  46 46 45 33 0d 00 64 10  6f 73 6e 65 77 6c 3d 26  |FFE3..d.osnewl=&|
00000080  46 46 45 37 0d 00 6e 0f  6f 73 63 6c 69 3d 26 46  |FFE7..n.oscli=&F|
00000090  46 46 37 0d 00 78 16 e3  20 70 61 73 73 20 3d 20  |FF7..x.. pass = |
000000a0  30 20 b8 20 32 20 88 20  32 0d 00 82 08 50 25 3d  |0 . 2 . 2....P%=|
000000b0  93 0d 00 8c 0d 5b 4f 50  54 20 70 61 73 73 0d 00  |.....[OPT pass..|
000000c0  96 07 42 52 4b 0d 00 a0  07 42 52 4b 0d 00 aa 07  |..BRK....BRK....|
000000d0  42 52 4b 0d 00 b4 14 4a  4d 50 20 73 65 72 76 69  |BRK....JMP servi|
000000e0  63 65 2b 64 69 66 66 0d  00 be 12 4f 50 54 20 a4  |ce+diff....OPT .|
000000f0  65 71 75 62 28 26 38 32  29 0d 00 c8 25 4f 50 54  |equb(&82)...%OPT|
00000100  20 a4 65 71 75 62 28 28  63 6f 70 79 72 69 67 68  | .equb((copyrigh|
00000110  74 2b 64 69 66 66 29 20  83 20 32 35 36 29 0d 00  |t+diff) . 256)..|
00000120  d2 07 42 52 4b 0d 00 dc  16 4f 50 54 20 a4 65 71  |..BRK....OPT .eq|
00000130  75 73 28 22 54 52 41 43  45 22 29 0d 00 e6 0e 2e  |us("TRACE").....|
00000140  63 6f 70 79 72 69 67 68  74 0d 00 f0 07 42 52 4b  |copyright....BRK|
00000150  0d 00 fa 2b 4f 50 54 20  a4 65 71 75 73 28 22 28  |...+OPT .equs("(|
00000160  43 29 20 47 6f 72 64 6f  6e 20 48 6f 72 73 69 6e  |C) Gordon Horsin|
00000170  67 74 6f 6e 20 31 39 38  37 22 29 0d 01 04 07 42  |gton 1987")....B|
00000180  52 4b 0d 01 0e 0c 2e 73  65 72 76 69 63 65 0d 01  |RK.....service..|
00000190  18 07 50 48 41 0d 01 22  07 54 58 41 0d 01 2c 07  |..PHA..".TXA..,.|
000001a0  50 48 41 0d 01 36 07 54  59 41 0d 01 40 07 50 48  |PHA..6.TYA..@.PH|
000001b0  41 0d 01 4a 0f 4c 44 41  20 61 64 64 72 65 73 73  |A..J.LDA address|
000001c0  0d 01 54 07 50 48 41 0d  01 5e 0f 53 54 58 20 61  |..T.PHA..^.STX a|
000001d0  64 64 72 65 73 73 0d 01  68 11 4c 44 41 20 61 64  |ddress..h.LDA ad|
000001e0  64 72 65 73 73 2b 31 0d  01 72 07 50 48 41 0d 01  |dress+1..r.PHA..|
000001f0  7c 07 54 53 58 0d 01 86  0f 4c 44 41 20 73 74 61  ||.TSX....LDA sta|
00000200  63 6b 2c 58 0d 01 90 07  50 48 41 0d 01 9a 11 53  |ck,X....PHA....S|
00000210  54 41 20 61 64 64 72 65  73 73 2b 31 0d 01 a4 07  |TA address+1....|
00000220  54 59 41 0d 01 ae 07 50  48 41 0d 01 b8 0f 4c 44  |TYA....PHA....LD|
00000230  41 20 61 64 64 72 65 73  73 0d 01 c2 07 50 48 41  |A address....PHA|
00000240  0d 01 cc 11 4c 44 41 20  61 64 64 72 65 73 73 2b  |....LDA address+|
00000250  31 0d 01 d6 07 50 48 41  0d 01 e0 0c 4c 44 41 20  |1....PHA....LDA |
00000260  6d 6f 64 65 0d 01 ea 0c  43 4d 50 20 23 26 30 37  |mode....CMP #&07|
00000270  0d 01 f4 10 42 4e 45 20  6e 6f 74 6d 6f 64 65 37  |....BNE notmode7|
00000280  0d 01 fe 0c 4c 44 41 20  23 26 38 33 0d 02 08 0d  |....LDA #&83....|
00000290  42 4e 45 20 73 70 61 63  65 0d 02 12 0d 2e 6e 6f  |BNE space.....no|
000002a0  74 6d 6f 64 65 37 0d 02  1c 0f 4c 44 41 20 23 97  |tmode7....LDA #.|
000002b0  28 22 20 22 29 0d 02 26  0a 2e 73 70 61 63 65 0d  |(" ")..&..space.|
000002c0  02 30 0e 4a 53 52 20 6f  73 61 73 63 69 0d 02 3a  |.0.JSR osasci..:|
000002d0  0f 4c 44 41 20 23 97 28  22 41 22 29 0d 02 44 13  |.LDA #.("A")..D.|
000002e0  4a 53 52 20 65 71 75 61  6c 73 2b 64 69 66 66 0d  |JSR equals+diff.|
000002f0  02 4e 07 50 4c 41 0d 02  58 16 4a 53 52 20 70 72  |.N.PLA..X.JSR pr|
00000300  69 6e 74 62 79 74 65 2b  64 69 66 66 0d 02 62 0f  |intbyte+diff..b.|
00000310  4c 44 41 20 23 97 28 22  58 22 29 0d 02 6c 13 4a  |LDA #.("X")..l.J|
00000320  53 52 20 65 71 75 61 6c  73 2b 64 69 66 66 0d 02  |SR equals+diff..|
00000330  76 07 50 4c 41 0d 02 80  16 4a 53 52 20 70 72 69  |v.PLA....JSR pri|
00000340  6e 74 62 79 74 65 2b 64  69 66 66 0d 02 8a 0f 4c  |ntbyte+diff....L|
00000350  44 41 20 23 97 28 22 59  22 29 0d 02 94 13 4a 53  |DA #.("Y")....JS|
00000360  52 20 65 71 75 61 6c 73  2b 64 69 66 66 0d 02 9e  |R equals+diff...|
00000370  07 50 4c 41 0d 02 a8 16  4a 53 52 20 70 72 69 6e  |.PLA....JSR prin|
00000380  74 62 79 74 65 2b 64 69  66 66 0d 02 b2 07 50 4c  |tbyte+diff....PL|
00000390  41 0d 02 bc 07 43 4c 43  0d 02 c6 0a 41 44 43 20  |A....CLC....ADC |
000003a0  23 32 0d 02 d0 0c 43 4d  50 20 23 26 31 35 0d 02  |#2....CMP #&15..|
000003b0  da 10 42 43 53 20 65 6e  64 70 72 69 6e 74 0d 02  |..BCS endprint..|
000003c0  e4 09 41 53 4c 20 41 0d  02 ee 07 54 41 59 0d 02  |..ASL A....TAY..|
000003d0  f8 14 4c 44 41 20 69 6e  64 65 78 2b 64 69 66 66  |..LDA index+diff|
000003e0  2c 59 0d 03 02 0f 53 54  41 20 61 64 64 72 65 73  |,Y....STA addres|
000003f0  73 0d 03 0c 07 49 4e 59  0d 03 16 14 4c 44 41 20  |s....INY....LDA |
00000400  69 6e 64 65 78 2b 64 69  66 66 2c 59 0d 03 20 11  |index+diff,Y.. .|
00000410  53 54 41 20 61 64 64 72  65 73 73 2b 31 0d 03 2a  |STA address+1..*|
00000420  0c 4c 44 59 20 23 26 46  46 0d 03 34 0e 2e 70 72  |.LDY #&FF..4..pr|
00000430  69 6e 74 6c 6f 6f 70 0d  03 3e 07 49 4e 59 0d 03  |intloop..>.INY..|
00000440  48 13 4c 44 41 20 28 61  64 64 72 65 73 73 29 2c  |H.LDA (address),|
00000450  59 0d 03 52 10 42 45 51  20 65 6e 64 70 72 69 6e  |Y..R.BEQ endprin|
00000460  74 0d 03 5c 0e 4a 53 52  20 6f 73 61 73 63 69 0d  |t..\.JSR osasci.|
00000470  03 66 16 4a 4d 50 20 70  72 69 6e 74 6c 6f 6f 70  |.f.JMP printloop|
00000480  2b 64 69 66 66 0d 03 70  0d 2e 65 6e 64 70 72 69  |+diff..p..endpri|
00000490  6e 74 0d 03 7a 0e 4a 53  52 20 6f 73 6e 65 77 6c  |nt..z.JSR osnewl|
000004a0  0d 03 84 07 50 4c 41 0d  03 8e 11 53 54 41 20 61  |....PLA....STA a|
000004b0  64 64 72 65 73 73 2b 31  0d 03 98 07 50 4c 41 0d  |ddress+1....PLA.|
000004c0  03 a2 0f 53 54 41 20 61  64 64 72 65 73 73 0d 03  |...STA address..|
000004d0  ac 07 50 4c 41 0d 03 b6  07 54 41 59 0d 03 c0 07  |..PLA....TAY....|
000004e0  50 4c 41 0d 03 ca 07 54  41 58 0d 03 d4 07 50 4c  |PLA....TAX....PL|
000004f0  41 0d 03 de 07 52 54 53  0d 03 e8 0e 2e 70 72 69  |A....RTS.....pri|
00000500  6e 74 62 79 74 65 0d 03  f2 07 50 48 41 0d 03 fc  |ntbyte....PHA...|
00000510  09 4c 53 52 20 41 0d 04  06 09 4c 53 52 20 41 0d  |.LSR A....LSR A.|
00000520  04 10 09 4c 53 52 20 41  0d 04 1a 09 4c 53 52 20  |...LSR A....LSR |
00000530  41 0d 04 24 13 4a 53 52  20 6e 69 62 62 6c 65 2b  |A..$.JSR nibble+|
00000540  64 69 66 66 0d 04 2e 07  50 4c 41 0d 04 38 13 4a  |diff....PLA..8.J|
00000550  53 52 20 6e 69 62 62 6c  65 2b 64 69 66 66 0d 04  |SR nibble+diff..|
00000560  42 0f 4c 44 41 20 23 97  28 22 20 22 29 0d 04 4c  |B.LDA #.(" ")..L|
00000570  0e 4a 4d 50 20 6f 73 61  73 63 69 0d 04 56 0b 2e  |.JMP osasci..V..|
00000580  6e 69 62 62 6c 65 0d 04  60 0a 80 20 23 26 30 46  |nibble..`.. #&0F|
00000590  0d 04 6a 07 53 45 44 0d  04 74 07 43 4c 43 0d 04  |..j.SED..t.CLC..|
000005a0  7e 0c 41 44 43 20 23 26  39 30 0d 04 88 0c 41 44  |~.ADC #&90....AD|
000005b0  43 20 23 26 34 30 0d 04  92 07 43 4c 44 0d 04 9c  |C #&40....CLD...|
000005c0  0e 4a 4d 50 20 6f 73 61  73 63 69 0d 04 a6 0b 2e  |.JMP osasci.....|
000005d0  65 71 75 61 6c 73 0d 04  b0 0e 4a 53 52 20 6f 73  |equals....JSR os|
000005e0  61 73 63 69 0d 04 ba 0f  4c 44 41 20 23 97 28 22  |asci....LDA #.("|
000005f0  3d 22 29 0d 04 c4 0e 4a  4d 50 20 6f 73 61 73 63  |=")....JMP osasc|
00000600  69 0d 04 ce 0a 2e 69 6e  64 65 78 0d 04 d8 1e 4f  |i.....index....O|
00000610  50 54 20 a4 65 71 75 62  28 28 66 65 2b 64 69 66  |PT .equb((fe+dif|
00000620  66 29 20 83 20 32 35 36  29 0d 04 e2 1e 4f 50 54  |f) . 256)....OPT|
00000630  20 a4 65 71 75 62 28 28  66 65 2b 64 69 66 66 29  | .equb((fe+diff)|
00000640  20 81 20 32 35 36 29 0d  04 ec 1e 4f 50 54 20 a4  | . 256)....OPT .|
00000650  65 71 75 62 28 28 66 66  2b 64 69 66 66 29 20 83  |equb((ff+diff) .|
00000660  20 32 35 36 29 0d 04 f6  1e 4f 50 54 20 a4 65 71  | 256)....OPT .eq|
00000670  75 62 28 28 66 66 2b 64  69 66 66 29 20 81 20 32  |ub((ff+diff) . 2|
00000680  35 36 29 0d 05 00 20 4f  50 54 20 a4 65 71 75 62  |56)... OPT .equb|
00000690  28 28 7a 65 72 6f 2b 64  69 66 66 29 20 83 20 32  |((zero+diff) . 2|
000006a0  35 36 29 0d 05 0a 20 4f  50 54 20 a4 65 71 75 62  |56)... OPT .equb|
000006b0  28 28 7a 65 72 6f 2b 64  69 66 66 29 20 81 20 32  |((zero+diff) . 2|
000006c0  35 36 29 0d 05 14 1f 4f  50 54 20 a4 65 71 75 62  |56)....OPT .equb|
000006d0  28 28 6f 6e 65 2b 64 69  66 66 29 20 83 20 32 35  |((one+diff) . 25|
000006e0  36 29 0d 05 1e 1f 4f 50  54 20 a4 65 71 75 62 28  |6)....OPT .equb(|
000006f0  28 6f 6e 65 2b 64 69 66  66 29 20 81 20 32 35 36  |(one+diff) . 256|
00000700  29 0d 05 28 1f 4f 50 54  20 a4 65 71 75 62 28 28  |)..(.OPT .equb((|
00000710  74 77 6f 2b 64 69 66 66  29 20 83 20 32 35 36 29  |two+diff) . 256)|
00000720  0d 05 32 1f 4f 50 54 20  a4 65 71 75 62 28 28 74  |..2.OPT .equb((t|
00000730  77 6f 2b 64 69 66 66 29  20 81 20 32 35 36 29 0d  |wo+diff) . 256).|
00000740  05 3c 21 4f 50 54 20 a4  65 71 75 62 28 28 74 68  |.<!OPT .equb((th|
00000750  72 65 65 2b 64 69 66 66  29 20 83 20 32 35 36 29  |ree+diff) . 256)|
00000760  0d 05 46 21 4f 50 54 20  a4 65 71 75 62 28 28 74  |..F!OPT .equb((t|
00000770  68 72 65 65 2b 64 69 66  66 29 20 81 20 32 35 36  |hree+diff) . 256|
00000780  29 0d 05 50 20 4f 50 54  20 a4 65 71 75 62 28 28  |)..P OPT .equb((|
00000790  66 6f 75 72 2b 64 69 66  66 29 20 83 20 32 35 36  |four+diff) . 256|
000007a0  29 0d 05 5a 20 4f 50 54  20 a4 65 71 75 62 28 28  |)..Z OPT .equb((|
000007b0  66 6f 75 72 2b 64 69 66  66 29 20 81 20 32 35 36  |four+diff) . 256|
000007c0  29 0d 05 64 20 4f 50 54  20 a4 65 71 75 62 28 28  |)..d OPT .equb((|
000007d0  66 69 76 65 2b 64 69 66  66 29 20 83 20 32 35 36  |five+diff) . 256|
000007e0  29 0d 05 6e 20 4f 50 54  20 a4 65 71 75 62 28 28  |)..n OPT .equb((|
000007f0  66 69 76 65 2b 64 69 66  66 29 20 81 20 32 35 36  |five+diff) . 256|
00000800  29 0d 05 78 1f 4f 50 54  20 a4 65 71 75 62 28 28  |)..x.OPT .equb((|
00000810  73 69 78 2b 64 69 66 66  29 20 83 20 32 35 36 29  |six+diff) . 256)|
00000820  0d 05 82 1f 4f 50 54 20  a4 65 71 75 62 28 28 73  |....OPT .equb((s|
00000830  69 78 2b 64 69 66 66 29  20 81 20 32 35 36 29 0d  |ix+diff) . 256).|
00000840  05 8c 21 4f 50 54 20 a4  65 71 75 62 28 28 73 65  |..!OPT .equb((se|
00000850  76 65 6e 2b 64 69 66 66  29 20 83 20 32 35 36 29  |ven+diff) . 256)|
00000860  0d 05 96 21 4f 50 54 20  a4 65 71 75 62 28 28 73  |...!OPT .equb((s|
00000870  65 76 65 6e 2b 64 69 66  66 29 20 81 20 32 35 36  |even+diff) . 256|
00000880  29 0d 05 a0 21 4f 50 54  20 a4 65 71 75 62 28 28  |)...!OPT .equb((|
00000890  65 69 67 68 74 2b 64 69  66 66 29 20 83 20 32 35  |eight+diff) . 25|
000008a0  36 29 0d 05 aa 21 4f 50  54 20 a4 65 71 75 62 28  |6)...!OPT .equb(|
000008b0  28 65 69 67 68 74 2b 64  69 66 66 29 20 81 20 32  |(eight+diff) . 2|
000008c0  35 36 29 0d 05 b4 20 4f  50 54 20 a4 65 71 75 62  |56)... OPT .equb|
000008d0  28 28 6e 69 6e 65 2b 64  69 66 66 29 20 83 20 32  |((nine+diff) . 2|
000008e0  35 36 29 0d 05 be 20 4f  50 54 20 a4 65 71 75 62  |56)... OPT .equb|
000008f0  28 28 6e 69 6e 65 2b 64  69 66 66 29 20 81 20 32  |((nine+diff) . 2|
00000900  35 36 29 0d 05 c8 1f 4f  50 54 20 a4 65 71 75 62  |56)....OPT .equb|
00000910  28 28 74 65 6e 2b 64 69  66 66 29 20 83 20 32 35  |((ten+diff) . 25|
00000920  36 29 0d 05 d2 1f 4f 50  54 20 a4 65 71 75 62 28  |6)....OPT .equb(|
00000930  28 74 65 6e 2b 64 69 66  66 29 20 81 20 32 35 36  |(ten+diff) . 256|
00000940  29 0d 05 dc 22 4f 50 54  20 a4 65 71 75 62 28 28  |)..."OPT .equb((|
00000950  65 6c 65 76 65 6e 2b 64  69 66 66 29 20 83 20 32  |eleven+diff) . 2|
00000960  35 36 29 0d 05 e6 22 4f  50 54 20 a4 65 71 75 62  |56)..."OPT .equb|
00000970  28 28 65 6c 65 76 65 6e  2b 64 69 66 66 29 20 81  |((eleven+diff) .|
00000980  20 32 35 36 29 0d 05 f0  22 4f 50 54 20 a4 65 71  | 256)..."OPT .eq|
00000990  75 62 28 28 74 77 65 6c  76 65 2b 64 69 66 66 29  |ub((twelve+diff)|
000009a0  20 83 20 32 35 36 29 0d  05 fa 22 4f 50 54 20 a4  | . 256)..."OPT .|
000009b0  65 71 75 62 28 28 74 77  65 6c 76 65 2b 64 69 66  |equb((twelve+dif|
000009c0  66 29 20 81 20 32 35 36  29 0d 06 04 24 4f 50 54  |f) . 256)...$OPT|
000009d0  20 a4 65 71 75 62 28 28  74 68 69 72 74 65 65 6e  | .equb((thirteen|
000009e0  2b 64 69 66 66 29 20 83  20 32 35 36 29 0d 06 0e  |+diff) . 256)...|
000009f0  24 4f 50 54 20 a4 65 71  75 62 28 28 74 68 69 72  |$OPT .equb((thir|
00000a00  74 65 65 6e 2b 64 69 66  66 29 20 81 20 32 35 36  |teen+diff) . 256|
00000a10  29 0d 06 18 24 4f 50 54  20 a4 65 71 75 62 28 28  |)...$OPT .equb((|
00000a20  66 6f 75 72 74 65 65 6e  2b 64 69 66 66 29 20 83  |fourteen+diff) .|
00000a30  20 32 35 36 29 0d 06 22  24 4f 50 54 20 a4 65 71  | 256).."$OPT .eq|
00000a40  75 62 28 28 66 6f 75 72  74 65 65 6e 2b 64 69 66  |ub((fourteen+dif|
00000a50  66 29 20 81 20 32 35 36  29 0d 06 2c 23 4f 50 54  |f) . 256)..,#OPT|
00000a60  20 a4 65 71 75 62 28 28  66 69 66 74 65 65 6e 2b  | .equb((fifteen+|
00000a70  64 69 66 66 29 20 83 20  32 35 36 29 0d 06 36 23  |diff) . 256)..6#|
00000a80  4f 50 54 20 a4 65 71 75  62 28 28 66 69 66 74 65  |OPT .equb((fifte|
00000a90  65 6e 2b 64 69 66 66 29  20 81 20 32 35 36 29 0d  |en+diff) . 256).|
00000aa0  06 40 23 4f 50 54 20 a4  65 71 75 62 28 28 73 69  |.@#OPT .equb((si|
00000ab0  78 74 65 65 6e 2b 64 69  66 66 29 20 83 20 32 35  |xteen+diff) . 25|
00000ac0  36 29 0d 06 4a 23 4f 50  54 20 a4 65 71 75 62 28  |6)..J#OPT .equb(|
00000ad0  28 73 69 78 74 65 65 6e  2b 64 69 66 66 29 20 81  |(sixteen+diff) .|
00000ae0  20 32 35 36 29 0d 06 54  25 4f 50 54 20 a4 65 71  | 256)..T%OPT .eq|
00000af0  75 62 28 28 73 65 76 65  6e 74 65 65 6e 2b 64 69  |ub((seventeen+di|
00000b00  66 66 29 20 83 20 32 35  36 29 0d 06 5e 25 4f 50  |ff) . 256)..^%OP|
00000b10  54 20 a4 65 71 75 62 28  28 73 65 76 65 6e 74 65  |T .equb((sevente|
00000b20  65 6e 2b 64 69 66 66 29  20 81 20 32 35 36 29 0d  |en+diff) . 256).|
00000b30  06 68 24 4f 50 54 20 a4  65 71 75 62 28 28 65 69  |.h$OPT .equb((ei|
00000b40  67 68 74 65 65 6e 2b 64  69 66 66 29 20 83 20 32  |ghteen+diff) . 2|
00000b50  35 36 29 0d 06 72 24 4f  50 54 20 a4 65 71 75 62  |56)..r$OPT .equb|
00000b60  28 28 65 69 67 68 74 65  65 6e 2b 64 69 66 66 29  |((eighteen+diff)|
00000b70  20 81 20 32 35 36 29 0d  06 7c 07 2e 66 65 0d 06  | . 256)..|..fe..|
00000b80  86 27 4f 50 54 20 a4 65  71 75 73 28 22 54 75 62  |.'OPT .equs("Tub|
00000b90  65 20 73 79 73 74 65 6d  20 70 6f 73 74 20 69 6e  |e system post in|
00000ba0  69 74 2e 22 29 0d 06 90  07 42 52 4b 0d 06 9a 07  |it.")....BRK....|
00000bb0  2e 66 66 0d 06 a4 27 4f  50 54 20 a4 65 71 75 73  |.ff...'OPT .equs|
00000bc0  28 22 54 75 62 65 20 73  79 73 74 65 6d 20 6d 61  |("Tube system ma|
00000bd0  69 6e 20 69 6e 69 74 2e  22 29 0d 06 ae 07 42 52  |in init.")....BR|
00000be0  4b 0d 06 b8 09 2e 7a 65  72 6f 0d 06 c2 1d 4f 50  |K.....zero....OP|
00000bf0  54 20 a4 65 71 75 73 28  22 4e 6f 20 6f 70 65 72  |T .equs("No oper|
00000c00  61 74 69 6f 6e 22 29 0d  06 cc 07 42 52 4b 0d 06  |ation")....BRK..|
00000c10  d6 08 2e 6f 6e 65 0d 06  e0 25 4f 50 54 20 a4 65  |...one...%OPT .e|
00000c20  71 75 73 28 22 41 62 73  2e 20 77 6f 72 6b 73 70  |qus("Abs. worksp|
00000c30  61 63 65 20 63 6c 61 69  6d 22 29 0d 06 ea 07 42  |ace claim")....B|
00000c40  52 4b 0d 06 f4 08 2e 74  77 6f 0d 06 fe 28 4f 50  |RK.....two...(OP|
00000c50  54 20 a4 65 71 75 73 28  22 50 72 69 76 61 74 65  |T .equs("Private|
00000c60  20 77 6f 72 6b 73 70 61  63 65 20 63 6c 61 69 6d  | workspace claim|
00000c70  22 29 0d 07 08 07 42 52  4b 0d 07 12 0a 2e 74 68  |")....BRK.....th|
00000c80  72 65 65 0d 07 1c 1a 4f  50 54 20 a4 65 71 75 73  |ree....OPT .equs|
00000c90  28 22 41 75 74 6f 2d 62  6f 6f 74 22 29 0d 07 26  |("Auto-boot")..&|
00000ca0  07 42 52 4b 0d 07 30 09  2e 66 6f 75 72 0d 07 3a  |.BRK..0..four..:|
00000cb0  25 4f 50 54 20 a4 65 71  75 73 28 22 55 6e 72 65  |%OPT .equs("Unre|
00000cc0  63 6f 67 6e 69 73 65 64  20 63 6f 6d 6d 61 6e 64  |cognised command|
00000cd0  22 29 0d 07 44 07 42 52  4b 0d 07 4e 09 2e 66 69  |")..D.BRK..N..fi|
00000ce0  76 65 0d 07 58 26 4f 50  54 20 a4 65 71 75 73 28  |ve..X&OPT .equs(|
00000cf0  22 55 6e 72 65 63 6f 67  6e 69 73 65 64 20 69 6e  |"Unrecognised in|
00000d00  74 65 72 75 70 74 22 29  0d 07 62 07 42 52 4b 0d  |terupt")..b.BRK.|
00000d10  07 6c 08 2e 73 69 78 0d  07 76 16 4f 50 54 20 a4  |.l..six..v.OPT .|
00000d20  65 71 75 73 28 22 42 72  65 61 6b 22 29 0d 07 80  |equs("Break")...|
00000d30  07 42 52 4b 0d 07 8a 0a  2e 73 65 76 65 6e 0d 07  |.BRK.....seven..|
00000d40  94 24 4f 50 54 20 a4 65  71 75 73 28 22 55 6e 72  |.$OPT .equs("Unr|
00000d50  65 63 6f 67 6e 69 73 65  64 20 4f 73 62 79 74 65  |ecognised Osbyte|
00000d60  22 29 0d 07 9e 07 42 52  4b 0d 07 a8 0a 2e 65 69  |")....BRK.....ei|
00000d70  67 68 74 0d 07 b2 24 4f  50 54 20 a4 65 71 75 73  |ght...$OPT .equs|
00000d80  28 22 55 6e 72 65 63 6f  67 6e 69 73 65 64 20 4f  |("Unrecognised O|
00000d90  73 77 6f 72 64 22 29 0d  07 bc 07 42 52 4b 0d 07  |sword")....BRK..|
00000da0  c6 09 2e 6e 69 6e 65 0d  07 d0 15 4f 50 54 20 a4  |...nine....OPT .|
00000db0  65 71 75 73 28 22 48 65  6c 70 22 29 0d 07 da 07  |equs("Help")....|
00000dc0  42 52 4b 0d 07 e4 08 2e  74 65 6e 0d 07 ee 27 4f  |BRK.....ten...'O|
00000dd0  50 54 20 a4 65 71 75 73  28 22 43 6c 61 69 6d 20  |PT .equs("Claim |
00000de0  73 74 61 74 69 63 20 77  6f 72 6b 73 70 61 63 65  |static workspace|
00000df0  22 29 0d 07 f8 07 42 52  4b 0d 08 02 0b 2e 65 6c  |")....BRK.....el|
00000e00  65 76 65 6e 0d 08 0c 1c  4f 50 54 20 a4 65 71 75  |even....OPT .equ|
00000e10  73 28 22 4e 4d 49 20 72  65 6c 65 61 73 65 22 29  |s("NMI release")|
00000e20  0d 08 16 07 42 52 4b 0d  08 20 0b 2e 74 77 65 6c  |....BRK.. ..twel|
00000e30  76 65 0d 08 2a 1a 4f 50  54 20 a4 65 71 75 73 28  |ve..*.OPT .equs(|
00000e40  22 4e 4d 49 20 63 6c 61  69 6d 22 29 0d 08 34 07  |"NMI claim")..4.|
00000e50  42 52 4b 0d 08 3e 0d 2e  74 68 69 72 74 65 65 6e  |BRK..>..thirteen|
00000e60  0d 08 48 1f 4f 50 54 20  a4 65 71 75 73 28 22 52  |..H.OPT .equs("R|
00000e70  46 53 20 69 6e 69 74 69  61 6c 69 73 65 22 29 0d  |FS initialise").|
00000e80  08 52 07 42 52 4b 0d 08  5c 0d 2e 66 6f 75 72 74  |.R.BRK..\..fourt|
00000e90  65 65 6e 0d 08 66 1d 4f  50 54 20 a4 65 71 75 73  |een..f.OPT .equs|
00000ea0  28 22 52 46 53 20 62 79  74 65 20 67 65 74 22 29  |("RFS byte get")|
00000eb0  0d 08 70 07 42 52 4b 0d  08 7a 0c 2e 66 69 66 74  |..p.BRK..z..fift|
00000ec0  65 65 6e 0d 08 84 20 4f  50 54 20 a4 65 71 75 73  |een... OPT .equs|
00000ed0  28 22 56 65 63 74 6f 72  73 20 63 6c 61 69 6d 65  |("Vectors claime|
00000ee0  64 22 29 0d 08 8e 07 42  52 4b 0d 08 98 0c 2e 73  |d")....BRK.....s|
00000ef0  69 78 74 65 65 6e 0d 08  a2 28 4f 50 54 20 a4 65  |ixteen...(OPT .e|
00000f00  71 75 73 28 22 53 50 4f  4f 4c 2f 45 58 45 43 20  |qus("SPOOL/EXEC |
00000f10  66 69 6c 65 20 63 6c 6f  73 75 72 65 22 29 0d 08  |file closure")..|
00000f20  ac 07 42 52 4b 0d 08 b6  0e 2e 73 65 76 65 6e 74  |..BRK.....sevent|
00000f30  65 65 6e 0d 08 c0 25 4f  50 54 20 a4 65 71 75 73  |een...%OPT .equs|
00000f40  28 22 46 6f 6e 74 20 69  6d 70 6c 6f 64 65 2f 65  |("Font implode/e|
00000f50  78 70 6c 6f 64 65 22 29  0d 08 ca 07 42 52 4b 0d  |xplode")....BRK.|
00000f60  08 d4 0d 2e 65 69 67 68  74 65 65 6e 0d 08 de 24  |....eighteen...$|
00000f70  4f 50 54 20 a4 65 71 75  73 28 22 49 6e 69 74 2e  |OPT .equs("Init.|
00000f80  20 66 69 6c 69 6e 67 20  73 79 73 74 65 6d 22 29  | filing system")|
00000f90  0d 08 e8 07 42 52 4b 0d  08 f2 0d 2e 6c 61 73 74  |....BRK.....last|
00000fa0  62 79 74 65 0d 08 fc 05  5d 0d 09 06 05 ed 0d 09  |byte....].......|
00000fb0  10 21 e8 27 22 53 61 76  65 20 66 69 6c 65 6e 61  |.!.'"Save filena|
00000fc0  6d 65 20 3d 20 22 66 69  6c 65 6e 61 6d 65 24 0d  |me = "filename$.|
00000fd0  09 1a 14 e7 20 66 69 6c  65 6e 61 6d 65 24 3d 22  |.... filename$="|
00000fe0  22 20 e0 0d 09 24 4b 24  73 61 76 65 3d 22 53 41  |" ...$K$save="SA|
00000ff0  56 45 20 22 2b 66 69 6c  65 6e 61 6d 65 24 2b 22  |VE "+filename$+"|
00001000  20 22 2b c3 7e 28 93 29  2b 22 20 22 2b c3 7e 28  | "+.~(.)+" "+.~(|
00001010  6c 61 73 74 62 79 74 65  29 2b 22 20 46 46 46 46  |lastbyte)+" FFFF|
00001020  38 30 30 30 20 46 46 46  46 38 30 30 30 22 0d 09  |8000 FFFF8000"..|
00001030  2e 11 58 25 3d 73 61 76  65 20 83 20 32 35 36 0d  |..X%=save . 256.|
00001040  09 38 11 59 25 3d 73 61  76 65 20 81 20 32 35 36  |.8.Y%=save . 256|
00001050  0d 09 42 0b 2a 4f 50 54  31 2c 32 0d 09 4c 0b d6  |..B.*OPT1,2..L..|
00001060  20 6f 73 63 6c 69 0d 09  56 0b 2a 4f 50 54 31 2c  | oscli..V.*OPT1,|
00001070  30 0d 09 60 05 e0 0d 09  6a 10 dd a4 65 71 75 62  |0..`....j...equb|
00001080  28 62 79 74 65 29 0d 09  74 0c 3f 50 25 3d 62 79  |(byte)..t.?P%=by|
00001090  74 65 0d 09 7e 0b 50 25  3d 50 25 2b 31 0d 09 88  |te..~.P%=P%+1...|
000010a0  09 3d 70 61 73 73 0d 09  92 10 dd a4 65 71 75 77  |.=pass......equw|
000010b0  28 77 6f 72 64 29 0d 09  9c 12 3f 50 25 3d 77 6f  |(word)....?P%=wo|
000010c0  72 64 20 83 20 32 35 36  0d 09 a6 13 50 25 3f 31  |rd . 256....P%?1|
000010d0  3d 77 6f 72 64 20 81 20  32 35 36 0d 09 b0 0b 50  |=word . 256....P|
000010e0  25 3d 50 25 2b 32 0d 09  ba 09 3d 70 61 73 73 0d  |%=P%+2....=pass.|
000010f0  09 c4 12 dd a4 65 71 75  64 28 64 6f 75 62 6c 65  |.....equd(double|
00001100  29 0d 09 ce 0e 21 50 25  3d 64 6f 75 62 6c 65 0d  |)....!P%=double.|
00001110  09 d8 0b 50 25 3d 50 25  2b 34 0d 09 e2 09 3d 70  |...P%=P%+4....=p|
00001120  61 73 73 0d 09 ec 13 dd  a4 65 71 75 73 28 73 74  |ass......equs(st|
00001130  72 69 6e 67 24 29 0d 09  f6 0f 24 50 25 3d 73 74  |ring$)....$P%=st|
00001140  72 69 6e 67 24 0d 0a 00  14 50 25 3d 50 25 2b a9  |ring$....P%=P%+.|
00001150  28 73 74 72 69 6e 67 24  29 0d 0a 0a 09 3d 70 61  |(string$)....=pa|
00001160  73 73 0d ff                                       |ss..|
00001164
22-01-88/TRACE.m0
22-01-88/TRACE.m1
22-01-88/TRACE.m2
22-01-88/TRACE.m4
22-01-88/TRACE.m5