� Basic System Help Utility
� by Stephen Wade
� (c) The Micro User
(� For Master/Compact and
2� any Electron/BBC B/BBC B+
<� fitted with sideways Ram
F� 7
Pbuffer=&A8:hexbuffer=&AA
Zosnewl=&FFE7:osasci=&FFE3
dosbyte=&FFF4:oswrch=&FFEE
n� pass=4 � 7 � 3
xP%=&8000:O%=&5000:[OPT pass
�\ Standard Rom header data
�OPT �equw(0):OPT �equb(0)
�=JMP srvc:OPT �equb(&82):OPT �equb(cpy � 256):OPT �equb(1)
�\ Title and version string
�.ttl
�WOPT �equs("Basic System Help Utility"):OPT �equb(0):OPT �equs(" 1.05"):OPT �equb(0)
�\ Copyright string
�.cpy
�=OPT �equb(0):OPT �equs("(C) The Micro User"):OPT �equb(0)
�\ Service entry routine
�	.srvc
�CMP #9:BEQ gh
�CMP #3:BEQ prntttl

CMP #39:BEQ prntttl:RTS

\ Print title on Break

.prntttl

"PHA:TXA:PHA:TYA:PHA:LDY #0

,.lpr

6LDA ttl,Y:BEQ tft

@JSR osasci:INY:JMP lpr

J.tft

TJSR osnewl:JSR osnewl

^PLA:TAY:PLA:TAX:PLA:TAY:RTS

h\ *Help service routine

r.gh

|#PHA:TXA:PHA:TYA:PHA:LDA (&F2),Y

�"CMP #13:BNE chk:JSR h:LDX #&FF

�	.dtls

�INX:LDA cmmnd,X:BEQ dnt

�JSR osasci:BNE dtls

�.dnt

�"JSR osasci:JSR osnewl:JMP rstr

�.chk

�LDX #&FF:DEY

�.gn

�INX:INY:LDA (&F2),Y:� #&DF

�CMP com,X:BEQ gn:LDA com,X

�CMP #&FE:BEQ main

�	.rstr
PLA:TAY:PLA:TAX:PLA:RTS
.h
JSR osnewl:LDX #&FF:JSR hlp
&JSR hlp:JSR osnewl:RTS
0.hlp
:INX:LDA ttl,X:BEQ dn
DJSR osasci:BNE hlp
N.dn
XRTS
b	.main
l$\ Start of extended help routine
v\ Check if Basic first
�LDA #187:LDX #0:LDY #&FF
�JSR osbyte:STX buffer
�LDA #252:LDX #0:LDY #&FF
�#JSR osbyte:CPX buffer:BNE isnot
�
JMP main2
�
.isnot
�#\ If not, print special message
� LDA #notbas � 256:STA buffer
�"LDA #notbas � 256:STA buffer+1
�JSR prnttxt:JMP tft
�
.main2
�\ Beginning of main routine
�\ if all is in order
JSR osnewl
\ Stack zero page workspace
LDA buffer:PHA:LDA buffer+1
 PHA:LDA hexbuffer:PHA
*LDA hexbuffer+1:PHA
4
.main3
>\ �
HLDA htptrs:STA buffer
RLDA htptrs+1:STA buffer+1
\JSR prnttxt
fLDX &18:LDY #0:JSR hxprnt
p\ �P
zLDA htptrs+2:STA buffer
�LDA htptrs+3:STA buffer+1
�JSR prnttxt
�LDX &13:LDY &12:JSR hxprnt
�\ Program size
�LDA htptrs+4:STA buffer
�LDA htptrs+5:STA buffer+1
�JSR prnttxt
�LDA &12:SEC:SBC #0:TAY
�LDA &13:SBC &18:TAX:CLC
�JSR hxprnt
�\ �
�LDA htptrs+6:STA buffer
�LDA htptrs+7:STA buffer+1
JSR prnttxt
LDX &01:LDY &00:JSR hxprnt
\ Bytes used
$LDA htptrs+8:STA buffer
.LDA htptrs+9:STA buffer+1
8JSR prnttxt
B"LDA &04:SEC:SBC &02:STA buffer
L LDA &05:SBC &03:STA buffer+1
VCLC:LDA &06:SEC:SBC #0
`"SBC buffer:TAY:LDA &07:SBC &18
jSBC buffer+1:TAX:CLC
tJSR hxprnt
~
\ Heap
�LDA htptrs+10:STA buffer
�LDA htptrs+11:STA buffer+1
�JSR prnttxt
�LDX &03:LDY &02:JSR hxprnt
�\ Bytes free
�LDA htptrs+12:STA buffer
�LDA htptrs+13:STA buffer+1
�JSR prnttxt
�LDA &04:SEC:SBC &02:TAY
�LDA &05:SBC &03:TAX:CLC
�JSR hxprnt
�\ Stack
LDA htptrs+14:STA buffer

LDA htptrs+15:STA buffer+1
JSR prnttxt
LDX &05:LDY &04:JSR hxprnt
(\ Next location
2LDA htptrs+16:STA buffer
<LDA htptrs+17:STA buffer+1
FJSR prnttxt
PLDA &02:SEC:ADC #0:TAY
ZLDA &03:ADC #0:TAX:CLC
dJSR hxprnt
n\ �
xLDA htptrs+18:STA buffer
�LDA htptrs+19:STA buffer+1
�JSR prnttxt
�LDX &07:LDY &06:JSR hxprnt
�\ �O
�LDA htptrs+20:STA buffer
�LDA htptrs+21:STA buffer+1
�JSR prnttxt
�LDA &1F:JSR hxprnt2
�
\ � depth
�LDA htptrs+22:STA buffer
�LDA htptrs+23:STA buffer+1
�JSR prnttxt
�LDA &24:JSR hxprnt2
\ �
LDA htptrs+24:STA buffer
LDA htptrs+25:STA buffer+1
""JSR prnttxt:LDA #79:JSR oswrch
,LDA &20:CMP #0:BEQ off
6LDA #78:JSR oswrch
@ LDA #32:JSR oswrch:JMP main4
J.off
T!LDA #70:JSR oswrch:JSR oswrch
^
.main4
h
\ � depth
rLDA htptrs+26:STA buffer
|LDA htptrs+27:STA buffer+1
�JSR prnttxt
�LDA &25:JSR hxprnt2
�\ �
�LDA htptrs+28:STA buffer
�LDA htptrs+29:STA buffer+1
�JSR prnttxt
�LDA &23:JSR hxprnt2
�
\ � depth
�LDA htptrs+30:STA buffer
�LDA htptrs+31:STA buffer+1
�JSR prnttxt
�LDA &26:JSR hxprnt2
�\ Tidy screen with CR's
JSR osnewl:JSR osnewl
 \ Restore registers and exit
	.lldn
&PLA:STA hexbuffer+1
0PLA:STA hexbuffer
:PLA:STA buffer+1
DPLA:STA buffer
NPLA:TAY:PLA:TAX:PLA:RTS
X\ Text printing routine
b.prnttxt
l
LDY #0
v
.prnttxt2
�LDA (buffer),Y:CMP #&FF
�BEQ prnttxt3:JSR osasci
�INY:JMP prnttxt2
�
.prnttxt3
�RTS
� \ Two-part hex number sorter
�.hxprnt
�!STX hexbuffer:STY hexbuffer+1
�LDA hexbuffer:JSR hxprnt2
�#LDA hexbuffer+1:JSR hxprnt2:RTS
�\ Hex number printer
�.hxprnt2
�PHA:� #240
LSR A:ROR A:ROR A:ROR A
JSR hxprnt3:PLA:� #15
.hxprnt3
 CLC:ADC #48:CMP #58
*BCC hxprnt4:CLC:ADC #7
4.hxprnt4
>JMP oswrch
H#\ Message if not Basic language
R.notbas
\;OPT �equs("This language is not Basic."):OPT �equb(&FF)
f \ Extended *Help test string
p.com
zOPT �equs("SYSTVARS")
�OPT �equb(&FE)
�!\ Additional help information
�
.cmmnd
�OPT �equs("  SystVars")
�OPT �equb(0)
�\ Table of pointers to the
�\ extended help texts
�.htptrs
�OPT �equw(ht1)
�OPT �equw(ht2)
�OPT �equw(ht3)
�OPT �equw(ht4)
�OPT �equw(ht5)
	OPT �equw(ht6)
	OPT �equw(ht7)
	OPT �equw(ht8)
	$OPT �equw(ht9)
	.OPT �equw(ht10)
	8OPT �equw(ht11)
	BOPT �equw(ht12)
	LOPT �equw(ht13)
	VOPT �equw(ht14)
	`OPT �equw(ht15)
	jOPT �equw(ht16)
	t.ht1
	~2OPT �equs("System variables are as follows:-")
	�OPT �equb(13):OPT �equb(13)
	�OPT �equs("PAGE  = &")
	�OPT �equb(&FF)
	�.ht2
	�OPT �equb(13)
	�OPT �equs("TOP   = &")
	�OPT �equb(&FF)
	�.ht3
	�OPT �spaces(3)
	�!OPT �equs("Program size = &")
	�OPT �equb(&FF)
	�.ht4
OPT �equb(13)

OPT �equs("LOMEM = &")
OPT �equb(&FF)
.ht5
(OPT �spaces(3)
2OPT �equs("Bytes used = &")
<OPT �equb(&FF)
F.ht6
POPT �equb(13)
ZOPT �equs("Heap  = &")
dOPT �equb(&FF)
n.ht7
xOPT �spaces(3)
�OPT �equs("Bytes free = &")
�OPT �equb(&FF)
�.ht8
�OPT �equb(13)
�OPT �equs("Stack = &")
�OPT �equb(&FF)
�.ht9
�OPT �spaces(3)
�"OPT �equs("Next location = &")
�OPT �equb(&FF)
�	.ht10
�OPT �equb(13)
�OPT �equs("HIMEM = &")
OPT �equb(&FF)
	.ht11
OPT �equb(13):OPT �equb(13)
"OPT �equs("LISTO = &")
,OPT �equb(&FF)
6	.ht12
@OPT �spaces(5)
J!OPT �equs("REPEAT depth = &")
TOPT �equb(&FF)
^	.ht13
hOPT �equb(13)
rOPT �equs("TRACE ")
|OPT �equb(&FF)
�	.ht14
�OPT �spaces(7)
� OPT �equs("GOSUB depth = &")
�OPT �equb(&FF)
�	.ht15
�OPT �equb(13)
�OPT �equs("WIDTH = &")
�OPT �equb(&FF)
�	.ht16
�OPT �spaces(5)
�OPT �equs("FOR depth = &")
�OPT �equb(&FF)
�]:�
� Auto-save code
0$&700="SAVE BasHelp 5000 "+�~O%+" 8000 8000"
X%=0:Y%=7:� &FFF7
&l� ''"Code saved under the name of BasHelp."''"To use, load into Sideways Ram and type *H. SystVars."'':�
0� Various subroutines
:� �equb(S%)
D?P%=S%:P%=P%+1
N?O%=S%:O%=O%+1:=pass
X� �equw(S%)
b!P%=S%:P%=P%+2
l!O%=S%:O%=O%+2:=pass
v� �equs(S$)
�$P%=S$:P%=P%+�(S$)
�$O%=S$:O%=O%+�(S$):=pass
�� �spaces(S%)
�� N%=1 � S%
�?P%=32:P%=P%+1
�?O%=32:O%=O%+1:�:=pass
�

00000000  0d 00 0a 1f f4 20 42 61  73 69 63 20 53 79 73 74  |..... Basic Syst|
00000010  65 6d 20 48 65 6c 70 20  55 74 69 6c 69 74 79 0d  |em Help Utility.|
00000020  00 14 15 f4 20 62 79 20  53 74 65 70 68 65 6e 20  |.... by Stephen |
00000030  57 61 64 65 0d 00 1e 18  f4 20 28 63 29 20 54 68  |Wade..... (c) Th|
00000040  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 1c  |e Micro User..(.|
00000050  f4 20 46 6f 72 20 4d 61  73 74 65 72 2f 43 6f 6d  |. For Master/Com|
00000060  70 61 63 74 20 61 6e 64  0d 00 32 1f f4 20 61 6e  |pact and..2.. an|
00000070  79 20 45 6c 65 63 74 72  6f 6e 2f 42 42 43 20 42  |y Electron/BBC B|
00000080  2f 42 42 43 20 42 2b 0d  00 3c 1e f4 20 66 69 74  |/BBC B+..<.. fit|
00000090  74 65 64 20 77 69 74 68  20 73 69 64 65 77 61 79  |ted with sideway|
000000a0  73 20 52 61 6d 0d 00 46  07 eb 20 37 0d 00 50 1c  |s Ram..F.. 7..P.|
000000b0  62 75 66 66 65 72 3d 26  41 38 3a 68 65 78 62 75  |buffer=&A8:hexbu|
000000c0  66 66 65 72 3d 26 41 41  0d 00 5a 1d 6f 73 6e 65  |ffer=&AA..Z.osne|
000000d0  77 6c 3d 26 46 46 45 37  3a 6f 73 61 73 63 69 3d  |wl=&FFE7:osasci=|
000000e0  26 46 46 45 33 0d 00 64  1d 6f 73 62 79 74 65 3d  |&FFE3..d.osbyte=|
000000f0  26 46 46 46 34 3a 6f 73  77 72 63 68 3d 26 46 46  |&FFF4:oswrch=&FF|
00000100  45 45 0d 00 6e 14 e3 20  70 61 73 73 3d 34 20 b8  |EE..n.. pass=4 .|
00000110  20 37 20 88 20 33 0d 00  78 1f 50 25 3d 26 38 30  | 7 . 3..x.P%=&80|
00000120  30 30 3a 4f 25 3d 26 35  30 30 30 3a 5b 4f 50 54  |00:O%=&5000:[OPT|
00000130  20 70 61 73 73 0d 00 82  1e 5c 20 53 74 61 6e 64  | pass....\ Stand|
00000140  61 72 64 20 52 6f 6d 20  68 65 61 64 65 72 20 64  |ard Rom header d|
00000150  61 74 61 0d 00 8c 1d 4f  50 54 20 a4 65 71 75 77  |ata....OPT .equw|
00000160  28 30 29 3a 4f 50 54 20  a4 65 71 75 62 28 30 29  |(0):OPT .equb(0)|
00000170  0d 00 96 3d 4a 4d 50 20  73 72 76 63 3a 4f 50 54  |...=JMP srvc:OPT|
00000180  20 a4 65 71 75 62 28 26  38 32 29 3a 4f 50 54 20  | .equb(&82):OPT |
00000190  a4 65 71 75 62 28 63 70  79 20 83 20 32 35 36 29  |.equb(cpy . 256)|
000001a0  3a 4f 50 54 20 a4 65 71  75 62 28 31 29 0d 00 a0  |:OPT .equb(1)...|
000001b0  1e 5c 20 54 69 74 6c 65  20 61 6e 64 20 76 65 72  |.\ Title and ver|
000001c0  73 69 6f 6e 20 73 74 72  69 6e 67 0d 00 aa 08 2e  |sion string.....|
000001d0  74 74 6c 0d 00 b4 57 4f  50 54 20 a4 65 71 75 73  |ttl...WOPT .equs|
000001e0  28 22 42 61 73 69 63 20  53 79 73 74 65 6d 20 48  |("Basic System H|
000001f0  65 6c 70 20 55 74 69 6c  69 74 79 22 29 3a 4f 50  |elp Utility"):OP|
00000200  54 20 a4 65 71 75 62 28  30 29 3a 4f 50 54 20 a4  |T .equb(0):OPT .|
00000210  65 71 75 73 28 22 20 31  2e 30 35 22 29 3a 4f 50  |equs(" 1.05"):OP|
00000220  54 20 a4 65 71 75 62 28  30 29 0d 00 be 16 5c 20  |T .equb(0)....\ |
00000230  43 6f 70 79 72 69 67 68  74 20 73 74 72 69 6e 67  |Copyright string|
00000240  0d 00 c8 08 2e 63 70 79  0d 00 d2 3d 4f 50 54 20  |.....cpy...=OPT |
00000250  a4 65 71 75 62 28 30 29  3a 4f 50 54 20 a4 65 71  |.equb(0):OPT .eq|
00000260  75 73 28 22 28 43 29 20  54 68 65 20 4d 69 63 72  |us("(C) The Micr|
00000270  6f 20 55 73 65 72 22 29  3a 4f 50 54 20 a4 65 71  |o User"):OPT .eq|
00000280  75 62 28 30 29 0d 00 dc  1b 5c 20 53 65 72 76 69  |ub(0)....\ Servi|
00000290  63 65 20 65 6e 74 72 79  20 72 6f 75 74 69 6e 65  |ce entry routine|
000002a0  0d 00 e6 09 2e 73 72 76  63 0d 00 f0 11 43 4d 50  |.....srvc....CMP|
000002b0  20 23 39 3a 42 45 51 20  67 68 0d 00 fa 16 43 4d  | #9:BEQ gh....CM|
000002c0  50 20 23 33 3a 42 45 51  20 70 72 6e 74 74 74 6c  |P #3:BEQ prntttl|
000002d0  0d 01 04 1b 43 4d 50 20  23 33 39 3a 42 45 51 20  |....CMP #39:BEQ |
000002e0  70 72 6e 74 74 74 6c 3a  52 54 53 0d 01 0e 1a 5c  |prntttl:RTS....\|
000002f0  20 50 72 69 6e 74 20 74  69 74 6c 65 20 6f 6e 20  | Print title on |
00000300  42 72 65 61 6b 0d 01 18  0c 2e 70 72 6e 74 74 74  |Break.....prnttt|
00000310  6c 0d 01 22 1e 50 48 41  3a 54 58 41 3a 50 48 41  |l..".PHA:TXA:PHA|
00000320  3a 54 59 41 3a 50 48 41  3a 4c 44 59 20 23 30 0d  |:TYA:PHA:LDY #0.|
00000330  01 2c 08 2e 6c 70 72 0d  01 36 15 4c 44 41 20 74  |.,..lpr..6.LDA t|
00000340  74 6c 2c 59 3a 42 45 51  20 74 66 74 0d 01 40 1a  |tl,Y:BEQ tft..@.|
00000350  4a 53 52 20 6f 73 61 73  63 69 3a 49 4e 59 3a 4a  |JSR osasci:INY:J|
00000360  4d 50 20 6c 70 72 0d 01  4a 08 2e 74 66 74 0d 01  |MP lpr..J..tft..|
00000370  54 19 4a 53 52 20 6f 73  6e 65 77 6c 3a 4a 53 52  |T.JSR osnewl:JSR|
00000380  20 6f 73 6e 65 77 6c 0d  01 5e 1f 50 4c 41 3a 54  | osnewl..^.PLA:T|
00000390  41 59 3a 50 4c 41 3a 54  41 58 3a 50 4c 41 3a 54  |AY:PLA:TAX:PLA:T|
000003a0  41 59 3a 52 54 53 0d 01  68 1b 5c 20 2a 48 65 6c  |AY:RTS..h.\ *Hel|
000003b0  70 20 73 65 72 76 69 63  65 20 72 6f 75 74 69 6e  |p service routin|
000003c0  65 0d 01 72 07 2e 67 68  0d 01 7c 23 50 48 41 3a  |e..r..gh..|#PHA:|
000003d0  54 58 41 3a 50 48 41 3a  54 59 41 3a 50 48 41 3a  |TXA:PHA:TYA:PHA:|
000003e0  4c 44 41 20 28 26 46 32  29 2c 59 0d 01 86 22 43  |LDA (&F2),Y..."C|
000003f0  4d 50 20 23 31 33 3a 42  4e 45 20 63 68 6b 3a 4a  |MP #13:BNE chk:J|
00000400  53 52 20 68 3a 4c 44 58  20 23 26 46 46 0d 01 90  |SR h:LDX #&FF...|
00000410  09 2e 64 74 6c 73 0d 01  9a 1b 49 4e 58 3a 4c 44  |..dtls....INX:LD|
00000420  41 20 63 6d 6d 6e 64 2c  58 3a 42 45 51 20 64 6e  |A cmmnd,X:BEQ dn|
00000430  74 0d 01 a4 17 4a 53 52  20 6f 73 61 73 63 69 3a  |t....JSR osasci:|
00000440  42 4e 45 20 64 74 6c 73  0d 01 ae 08 2e 64 6e 74  |BNE dtls.....dnt|
00000450  0d 01 b8 22 4a 53 52 20  6f 73 61 73 63 69 3a 4a  |..."JSR osasci:J|
00000460  53 52 20 6f 73 6e 65 77  6c 3a 4a 4d 50 20 72 73  |SR osnewl:JMP rs|
00000470  74 72 0d 01 c2 08 2e 63  68 6b 0d 01 cc 10 4c 44  |tr.....chk....LD|
00000480  58 20 23 26 46 46 3a 44  45 59 0d 01 d6 07 2e 67  |X #&FF:DEY.....g|
00000490  6e 0d 01 e0 1e 49 4e 58  3a 49 4e 59 3a 4c 44 41  |n....INX:INY:LDA|
000004a0  20 28 26 46 32 29 2c 59  3a 80 20 23 26 44 46 0d  | (&F2),Y:. #&DF.|
000004b0  01 ea 1e 43 4d 50 20 63  6f 6d 2c 58 3a 42 45 51  |...CMP com,X:BEQ|
000004c0  20 67 6e 3a 4c 44 41 20  63 6f 6d 2c 58 0d 01 f4  | gn:LDA com,X...|
000004d0  15 43 4d 50 20 23 26 46  45 3a 42 45 51 20 6d 61  |.CMP #&FE:BEQ ma|
000004e0  69 6e 0d 01 fe 09 2e 72  73 74 72 0d 02 08 1b 50  |in.....rstr....P|
000004f0  4c 41 3a 54 41 59 3a 50  4c 41 3a 54 41 58 3a 50  |LA:TAY:PLA:TAX:P|
00000500  4c 41 3a 52 54 53 0d 02  12 06 2e 68 0d 02 1c 1f  |LA:RTS.....h....|
00000510  4a 53 52 20 6f 73 6e 65  77 6c 3a 4c 44 58 20 23  |JSR osnewl:LDX #|
00000520  26 46 46 3a 4a 53 52 20  68 6c 70 0d 02 26 1a 4a  |&FF:JSR hlp..&.J|
00000530  53 52 20 68 6c 70 3a 4a  53 52 20 6f 73 6e 65 77  |SR hlp:JSR osnew|
00000540  6c 3a 52 54 53 0d 02 30  08 2e 68 6c 70 0d 02 3a  |l:RTS..0..hlp..:|
00000550  18 49 4e 58 3a 4c 44 41  20 74 74 6c 2c 58 3a 42  |.INX:LDA ttl,X:B|
00000560  45 51 20 64 6e 0d 02 44  16 4a 53 52 20 6f 73 61  |EQ dn..D.JSR osa|
00000570  73 63 69 3a 42 4e 45 20  68 6c 70 0d 02 4e 07 2e  |sci:BNE hlp..N..|
00000580  64 6e 0d 02 58 07 52 54  53 0d 02 62 09 2e 6d 61  |dn..X.RTS..b..ma|
00000590  69 6e 0d 02 6c 24 5c 20  53 74 61 72 74 20 6f 66  |in..l$\ Start of|
000005a0  20 65 78 74 65 6e 64 65  64 20 68 65 6c 70 20 72  | extended help r|
000005b0  6f 75 74 69 6e 65 0d 02  76 1a 5c 20 43 68 65 63  |outine..v.\ Chec|
000005c0  6b 20 69 66 20 42 61 73  69 63 20 66 69 72 73 74  |k if Basic first|
000005d0  0d 02 80 1c 4c 44 41 20  23 31 38 37 3a 4c 44 58  |....LDA #187:LDX|
000005e0  20 23 30 3a 4c 44 59 20  23 26 46 46 0d 02 8a 19  | #0:LDY #&FF....|
000005f0  4a 53 52 20 6f 73 62 79  74 65 3a 53 54 58 20 62  |JSR osbyte:STX b|
00000600  75 66 66 65 72 0d 02 94  1c 4c 44 41 20 23 32 35  |uffer....LDA #25|
00000610  32 3a 4c 44 58 20 23 30  3a 4c 44 59 20 23 26 46  |2:LDX #0:LDY #&F|
00000620  46 0d 02 9e 23 4a 53 52  20 6f 73 62 79 74 65 3a  |F...#JSR osbyte:|
00000630  43 50 58 20 62 75 66 66  65 72 3a 42 4e 45 20 69  |CPX buffer:BNE i|
00000640  73 6e 6f 74 0d 02 a8 0d  4a 4d 50 20 6d 61 69 6e  |snot....JMP main|
00000650  32 0d 02 b2 0a 2e 69 73  6e 6f 74 0d 02 bc 23 5c  |2.....isnot...#\|
00000660  20 49 66 20 6e 6f 74 2c  20 70 72 69 6e 74 20 73  | If not, print s|
00000670  70 65 63 69 61 6c 20 6d  65 73 73 61 67 65 0d 02  |pecial message..|
00000680  c6 20 4c 44 41 20 23 6e  6f 74 62 61 73 20 83 20  |. LDA #notbas . |
00000690  32 35 36 3a 53 54 41 20  62 75 66 66 65 72 0d 02  |256:STA buffer..|
000006a0  d0 22 4c 44 41 20 23 6e  6f 74 62 61 73 20 81 20  |."LDA #notbas . |
000006b0  32 35 36 3a 53 54 41 20  62 75 66 66 65 72 2b 31  |256:STA buffer+1|
000006c0  0d 02 da 17 4a 53 52 20  70 72 6e 74 74 78 74 3a  |....JSR prnttxt:|
000006d0  4a 4d 50 20 74 66 74 0d  02 e4 0a 2e 6d 61 69 6e  |JMP tft.....main|
000006e0  32 0d 02 ee 1f 5c 20 42  65 67 69 6e 6e 69 6e 67  |2....\ Beginning|
000006f0  20 6f 66 20 6d 61 69 6e  20 72 6f 75 74 69 6e 65  | of main routine|
00000700  0d 02 f8 18 5c 20 69 66  20 61 6c 6c 20 69 73 20  |....\ if all is |
00000710  69 6e 20 6f 72 64 65 72  0d 03 02 0e 4a 53 52 20  |in order....JSR |
00000720  6f 73 6e 65 77 6c 0d 03  0c 1f 5c 20 53 74 61 63  |osnewl....\ Stac|
00000730  6b 20 7a 65 72 6f 20 70  61 67 65 20 77 6f 72 6b  |k zero page work|
00000740  73 70 61 63 65 0d 03 16  1f 4c 44 41 20 62 75 66  |space....LDA buf|
00000750  66 65 72 3a 50 48 41 3a  4c 44 41 20 62 75 66 66  |fer:PHA:LDA buff|
00000760  65 72 2b 31 0d 03 20 19  50 48 41 3a 4c 44 41 20  |er+1.. .PHA:LDA |
00000770  68 65 78 62 75 66 66 65  72 3a 50 48 41 0d 03 2a  |hexbuffer:PHA..*|
00000780  17 4c 44 41 20 68 65 78  62 75 66 66 65 72 2b 31  |.LDA hexbuffer+1|
00000790  3a 50 48 41 0d 03 34 0a  2e 6d 61 69 6e 33 0d 03  |:PHA..4..main3..|
000007a0  3e 07 5c 20 90 0d 03 48  19 4c 44 41 20 68 74 70  |>.\ ...H.LDA htp|
000007b0  74 72 73 3a 53 54 41 20  62 75 66 66 65 72 0d 03  |trs:STA buffer..|
000007c0  52 1d 4c 44 41 20 68 74  70 74 72 73 2b 31 3a 53  |R.LDA htptrs+1:S|
000007d0  54 41 20 62 75 66 66 65  72 2b 31 0d 03 5c 0f 4a  |TA buffer+1..\.J|
000007e0  53 52 20 70 72 6e 74 74  78 74 0d 03 66 1d 4c 44  |SR prnttxt..f.LD|
000007f0  58 20 26 31 38 3a 4c 44  59 20 23 30 3a 4a 53 52  |X &18:LDY #0:JSR|
00000800  20 68 78 70 72 6e 74 0d  03 70 08 5c 20 b8 50 0d  | hxprnt..p.\ .P.|
00000810  03 7a 1b 4c 44 41 20 68  74 70 74 72 73 2b 32 3a  |.z.LDA htptrs+2:|
00000820  53 54 41 20 62 75 66 66  65 72 0d 03 84 1d 4c 44  |STA buffer....LD|
00000830  41 20 68 74 70 74 72 73  2b 33 3a 53 54 41 20 62  |A htptrs+3:STA b|
00000840  75 66 66 65 72 2b 31 0d  03 8e 0f 4a 53 52 20 70  |uffer+1....JSR p|
00000850  72 6e 74 74 78 74 0d 03  98 1e 4c 44 58 20 26 31  |rnttxt....LDX &1|
00000860  33 3a 4c 44 59 20 26 31  32 3a 4a 53 52 20 68 78  |3:LDY &12:JSR hx|
00000870  70 72 6e 74 0d 03 a2 12  5c 20 50 72 6f 67 72 61  |prnt....\ Progra|
00000880  6d 20 73 69 7a 65 0d 03  ac 1b 4c 44 41 20 68 74  |m size....LDA ht|
00000890  70 74 72 73 2b 34 3a 53  54 41 20 62 75 66 66 65  |ptrs+4:STA buffe|
000008a0  72 0d 03 b6 1d 4c 44 41  20 68 74 70 74 72 73 2b  |r....LDA htptrs+|
000008b0  35 3a 53 54 41 20 62 75  66 66 65 72 2b 31 0d 03  |5:STA buffer+1..|
000008c0  c0 0f 4a 53 52 20 70 72  6e 74 74 78 74 0d 03 ca  |..JSR prnttxt...|
000008d0  1a 4c 44 41 20 26 31 32  3a 53 45 43 3a 53 42 43  |.LDA &12:SEC:SBC|
000008e0  20 23 30 3a 54 41 59 0d  03 d4 1b 4c 44 41 20 26  | #0:TAY....LDA &|
000008f0  31 33 3a 53 42 43 20 26  31 38 3a 54 41 58 3a 43  |13:SBC &18:TAX:C|
00000900  4c 43 0d 03 de 0e 4a 53  52 20 68 78 70 72 6e 74  |LC....JSR hxprnt|
00000910  0d 03 e8 07 5c 20 92 0d  03 f2 1b 4c 44 41 20 68  |....\ .....LDA h|
00000920  74 70 74 72 73 2b 36 3a  53 54 41 20 62 75 66 66  |tptrs+6:STA buff|
00000930  65 72 0d 03 fc 1d 4c 44  41 20 68 74 70 74 72 73  |er....LDA htptrs|
00000940  2b 37 3a 53 54 41 20 62  75 66 66 65 72 2b 31 0d  |+7:STA buffer+1.|
00000950  04 06 0f 4a 53 52 20 70  72 6e 74 74 78 74 0d 04  |...JSR prnttxt..|
00000960  10 1e 4c 44 58 20 26 30  31 3a 4c 44 59 20 26 30  |..LDX &01:LDY &0|
00000970  30 3a 4a 53 52 20 68 78  70 72 6e 74 0d 04 1a 10  |0:JSR hxprnt....|
00000980  5c 20 42 79 74 65 73 20  75 73 65 64 0d 04 24 1b  |\ Bytes used..$.|
00000990  4c 44 41 20 68 74 70 74  72 73 2b 38 3a 53 54 41  |LDA htptrs+8:STA|
000009a0  20 62 75 66 66 65 72 0d  04 2e 1d 4c 44 41 20 68  | buffer....LDA h|
000009b0  74 70 74 72 73 2b 39 3a  53 54 41 20 62 75 66 66  |tptrs+9:STA buff|
000009c0  65 72 2b 31 0d 04 38 0f  4a 53 52 20 70 72 6e 74  |er+1..8.JSR prnt|
000009d0  74 78 74 0d 04 42 22 4c  44 41 20 26 30 34 3a 53  |txt..B"LDA &04:S|
000009e0  45 43 3a 53 42 43 20 26  30 32 3a 53 54 41 20 62  |EC:SBC &02:STA b|
000009f0  75 66 66 65 72 0d 04 4c  20 4c 44 41 20 26 30 35  |uffer..L LDA &05|
00000a00  3a 53 42 43 20 26 30 33  3a 53 54 41 20 62 75 66  |:SBC &03:STA buf|
00000a10  66 65 72 2b 31 0d 04 56  1a 43 4c 43 3a 4c 44 41  |fer+1..V.CLC:LDA|
00000a20  20 26 30 36 3a 53 45 43  3a 53 42 43 20 23 30 0d  | &06:SEC:SBC #0.|
00000a30  04 60 22 53 42 43 20 62  75 66 66 65 72 3a 54 41  |.`"SBC buffer:TA|
00000a40  59 3a 4c 44 41 20 26 30  37 3a 53 42 43 20 26 31  |Y:LDA &07:SBC &1|
00000a50  38 0d 04 6a 18 53 42 43  20 62 75 66 66 65 72 2b  |8..j.SBC buffer+|
00000a60  31 3a 54 41 58 3a 43 4c  43 0d 04 74 0e 4a 53 52  |1:TAX:CLC..t.JSR|
00000a70  20 68 78 70 72 6e 74 0d  04 7e 0a 5c 20 48 65 61  | hxprnt..~.\ Hea|
00000a80  70 0d 04 88 1c 4c 44 41  20 68 74 70 74 72 73 2b  |p....LDA htptrs+|
00000a90  31 30 3a 53 54 41 20 62  75 66 66 65 72 0d 04 92  |10:STA buffer...|
00000aa0  1e 4c 44 41 20 68 74 70  74 72 73 2b 31 31 3a 53  |.LDA htptrs+11:S|
00000ab0  54 41 20 62 75 66 66 65  72 2b 31 0d 04 9c 0f 4a  |TA buffer+1....J|
00000ac0  53 52 20 70 72 6e 74 74  78 74 0d 04 a6 1e 4c 44  |SR prnttxt....LD|
00000ad0  58 20 26 30 33 3a 4c 44  59 20 26 30 32 3a 4a 53  |X &03:LDY &02:JS|
00000ae0  52 20 68 78 70 72 6e 74  0d 04 b0 10 5c 20 42 79  |R hxprnt....\ By|
00000af0  74 65 73 20 66 72 65 65  0d 04 ba 1c 4c 44 41 20  |tes free....LDA |
00000b00  68 74 70 74 72 73 2b 31  32 3a 53 54 41 20 62 75  |htptrs+12:STA bu|
00000b10  66 66 65 72 0d 04 c4 1e  4c 44 41 20 68 74 70 74  |ffer....LDA htpt|
00000b20  72 73 2b 31 33 3a 53 54  41 20 62 75 66 66 65 72  |rs+13:STA buffer|
00000b30  2b 31 0d 04 ce 0f 4a 53  52 20 70 72 6e 74 74 78  |+1....JSR prnttx|
00000b40  74 0d 04 d8 1b 4c 44 41  20 26 30 34 3a 53 45 43  |t....LDA &04:SEC|
00000b50  3a 53 42 43 20 26 30 32  3a 54 41 59 0d 04 e2 1b  |:SBC &02:TAY....|
00000b60  4c 44 41 20 26 30 35 3a  53 42 43 20 26 30 33 3a  |LDA &05:SBC &03:|
00000b70  54 41 58 3a 43 4c 43 0d  04 ec 0e 4a 53 52 20 68  |TAX:CLC....JSR h|
00000b80  78 70 72 6e 74 0d 04 f6  0b 5c 20 53 74 61 63 6b  |xprnt....\ Stack|
00000b90  0d 05 00 1c 4c 44 41 20  68 74 70 74 72 73 2b 31  |....LDA htptrs+1|
00000ba0  34 3a 53 54 41 20 62 75  66 66 65 72 0d 05 0a 1e  |4:STA buffer....|
00000bb0  4c 44 41 20 68 74 70 74  72 73 2b 31 35 3a 53 54  |LDA htptrs+15:ST|
00000bc0  41 20 62 75 66 66 65 72  2b 31 0d 05 14 0f 4a 53  |A buffer+1....JS|
00000bd0  52 20 70 72 6e 74 74 78  74 0d 05 1e 1e 4c 44 58  |R prnttxt....LDX|
00000be0  20 26 30 35 3a 4c 44 59  20 26 30 34 3a 4a 53 52  | &05:LDY &04:JSR|
00000bf0  20 68 78 70 72 6e 74 0d  05 28 13 5c 20 4e 65 78  | hxprnt..(.\ Nex|
00000c00  74 20 6c 6f 63 61 74 69  6f 6e 0d 05 32 1c 4c 44  |t location..2.LD|
00000c10  41 20 68 74 70 74 72 73  2b 31 36 3a 53 54 41 20  |A htptrs+16:STA |
00000c20  62 75 66 66 65 72 0d 05  3c 1e 4c 44 41 20 68 74  |buffer..<.LDA ht|
00000c30  70 74 72 73 2b 31 37 3a  53 54 41 20 62 75 66 66  |ptrs+17:STA buff|
00000c40  65 72 2b 31 0d 05 46 0f  4a 53 52 20 70 72 6e 74  |er+1..F.JSR prnt|
00000c50  74 78 74 0d 05 50 1a 4c  44 41 20 26 30 32 3a 53  |txt..P.LDA &02:S|
00000c60  45 43 3a 41 44 43 20 23  30 3a 54 41 59 0d 05 5a  |EC:ADC #0:TAY..Z|
00000c70  1a 4c 44 41 20 26 30 33  3a 41 44 43 20 23 30 3a  |.LDA &03:ADC #0:|
00000c80  54 41 58 3a 43 4c 43 0d  05 64 0e 4a 53 52 20 68  |TAX:CLC..d.JSR h|
00000c90  78 70 72 6e 74 0d 05 6e  07 5c 20 93 0d 05 78 1c  |xprnt..n.\ ...x.|
00000ca0  4c 44 41 20 68 74 70 74  72 73 2b 31 38 3a 53 54  |LDA htptrs+18:ST|
00000cb0  41 20 62 75 66 66 65 72  0d 05 82 1e 4c 44 41 20  |A buffer....LDA |
00000cc0  68 74 70 74 72 73 2b 31  39 3a 53 54 41 20 62 75  |htptrs+19:STA bu|
00000cd0  66 66 65 72 2b 31 0d 05  8c 0f 4a 53 52 20 70 72  |ffer+1....JSR pr|
00000ce0  6e 74 74 78 74 0d 05 96  1e 4c 44 58 20 26 30 37  |nttxt....LDX &07|
00000cf0  3a 4c 44 59 20 26 30 36  3a 4a 53 52 20 68 78 70  |:LDY &06:JSR hxp|
00000d00  72 6e 74 0d 05 a0 08 5c  20 c9 4f 0d 05 aa 1c 4c  |rnt....\ .O....L|
00000d10  44 41 20 68 74 70 74 72  73 2b 32 30 3a 53 54 41  |DA htptrs+20:STA|
00000d20  20 62 75 66 66 65 72 0d  05 b4 1e 4c 44 41 20 68  | buffer....LDA h|
00000d30  74 70 74 72 73 2b 32 31  3a 53 54 41 20 62 75 66  |tptrs+21:STA buf|
00000d40  66 65 72 2b 31 0d 05 be  0f 4a 53 52 20 70 72 6e  |fer+1....JSR prn|
00000d50  74 74 78 74 0d 05 c8 17  4c 44 41 20 26 31 46 3a  |ttxt....LDA &1F:|
00000d60  4a 53 52 20 68 78 70 72  6e 74 32 0d 05 d2 0d 5c  |JSR hxprnt2....\|
00000d70  20 f5 20 64 65 70 74 68  0d 05 dc 1c 4c 44 41 20  | . depth....LDA |
00000d80  68 74 70 74 72 73 2b 32  32 3a 53 54 41 20 62 75  |htptrs+22:STA bu|
00000d90  66 66 65 72 0d 05 e6 1e  4c 44 41 20 68 74 70 74  |ffer....LDA htpt|
00000da0  72 73 2b 32 33 3a 53 54  41 20 62 75 66 66 65 72  |rs+23:STA buffer|
00000db0  2b 31 0d 05 f0 0f 4a 53  52 20 70 72 6e 74 74 78  |+1....JSR prnttx|
00000dc0  74 0d 05 fa 17 4c 44 41  20 26 32 34 3a 4a 53 52  |t....LDA &24:JSR|
00000dd0  20 68 78 70 72 6e 74 32  0d 06 04 07 5c 20 fc 0d  | hxprnt2....\ ..|
00000de0  06 0e 1c 4c 44 41 20 68  74 70 74 72 73 2b 32 34  |...LDA htptrs+24|
00000df0  3a 53 54 41 20 62 75 66  66 65 72 0d 06 18 1e 4c  |:STA buffer....L|
00000e00  44 41 20 68 74 70 74 72  73 2b 32 35 3a 53 54 41  |DA htptrs+25:STA|
00000e10  20 62 75 66 66 65 72 2b  31 0d 06 22 22 4a 53 52  | buffer+1..""JSR|
00000e20  20 70 72 6e 74 74 78 74  3a 4c 44 41 20 23 37 39  | prnttxt:LDA #79|
00000e30  3a 4a 53 52 20 6f 73 77  72 63 68 0d 06 2c 1a 4c  |:JSR oswrch..,.L|
00000e40  44 41 20 26 32 30 3a 43  4d 50 20 23 30 3a 42 45  |DA &20:CMP #0:BE|
00000e50  51 20 6f 66 66 0d 06 36  16 4c 44 41 20 23 37 38  |Q off..6.LDA #78|
00000e60  3a 4a 53 52 20 6f 73 77  72 63 68 0d 06 40 20 4c  |:JSR oswrch..@ L|
00000e70  44 41 20 23 33 32 3a 4a  53 52 20 6f 73 77 72 63  |DA #32:JSR oswrc|
00000e80  68 3a 4a 4d 50 20 6d 61  69 6e 34 0d 06 4a 08 2e  |h:JMP main4..J..|
00000e90  6f 66 66 0d 06 54 21 4c  44 41 20 23 37 30 3a 4a  |off..T!LDA #70:J|
00000ea0  53 52 20 6f 73 77 72 63  68 3a 4a 53 52 20 6f 73  |SR oswrch:JSR os|
00000eb0  77 72 63 68 0d 06 5e 0a  2e 6d 61 69 6e 34 0d 06  |wrch..^..main4..|
00000ec0  68 0d 5c 20 e4 20 64 65  70 74 68 0d 06 72 1c 4c  |h.\ . depth..r.L|
00000ed0  44 41 20 68 74 70 74 72  73 2b 32 36 3a 53 54 41  |DA htptrs+26:STA|
00000ee0  20 62 75 66 66 65 72 0d  06 7c 1e 4c 44 41 20 68  | buffer..|.LDA h|
00000ef0  74 70 74 72 73 2b 32 37  3a 53 54 41 20 62 75 66  |tptrs+27:STA buf|
00000f00  66 65 72 2b 31 0d 06 86  0f 4a 53 52 20 70 72 6e  |fer+1....JSR prn|
00000f10  74 74 78 74 0d 06 90 17  4c 44 41 20 26 32 35 3a  |ttxt....LDA &25:|
00000f20  4a 53 52 20 68 78 70 72  6e 74 32 0d 06 9a 07 5c  |JSR hxprnt2....\|
00000f30  20 fe 0d 06 a4 1c 4c 44  41 20 68 74 70 74 72 73  | .....LDA htptrs|
00000f40  2b 32 38 3a 53 54 41 20  62 75 66 66 65 72 0d 06  |+28:STA buffer..|
00000f50  ae 1e 4c 44 41 20 68 74  70 74 72 73 2b 32 39 3a  |..LDA htptrs+29:|
00000f60  53 54 41 20 62 75 66 66  65 72 2b 31 0d 06 b8 0f  |STA buffer+1....|
00000f70  4a 53 52 20 70 72 6e 74  74 78 74 0d 06 c2 17 4c  |JSR prnttxt....L|
00000f80  44 41 20 26 32 33 3a 4a  53 52 20 68 78 70 72 6e  |DA &23:JSR hxprn|
00000f90  74 32 0d 06 cc 0d 5c 20  e3 20 64 65 70 74 68 0d  |t2....\ . depth.|
00000fa0  06 d6 1c 4c 44 41 20 68  74 70 74 72 73 2b 33 30  |...LDA htptrs+30|
00000fb0  3a 53 54 41 20 62 75 66  66 65 72 0d 06 e0 1e 4c  |:STA buffer....L|
00000fc0  44 41 20 68 74 70 74 72  73 2b 33 31 3a 53 54 41  |DA htptrs+31:STA|
00000fd0  20 62 75 66 66 65 72 2b  31 0d 06 ea 0f 4a 53 52  | buffer+1....JSR|
00000fe0  20 70 72 6e 74 74 78 74  0d 06 f4 17 4c 44 41 20  | prnttxt....LDA |
00000ff0  26 32 36 3a 4a 53 52 20  68 78 70 72 6e 74 32 0d  |&26:JSR hxprnt2.|
00001000  06 fe 1b 5c 20 54 69 64  79 20 73 63 72 65 65 6e  |...\ Tidy screen|
00001010  20 77 69 74 68 20 43 52  27 73 0d 07 08 19 4a 53  | with CR's....JS|
00001020  52 20 6f 73 6e 65 77 6c  3a 4a 53 52 20 6f 73 6e  |R osnewl:JSR osn|
00001030  65 77 6c 0d 07 12 20 5c  20 52 65 73 74 6f 72 65  |ewl... \ Restore|
00001040  20 72 65 67 69 73 74 65  72 73 20 61 6e 64 20 65  | registers and e|
00001050  78 69 74 0d 07 1c 09 2e  6c 6c 64 6e 0d 07 26 17  |xit.....lldn..&.|
00001060  50 4c 41 3a 53 54 41 20  68 65 78 62 75 66 66 65  |PLA:STA hexbuffe|
00001070  72 2b 31 0d 07 30 15 50  4c 41 3a 53 54 41 20 68  |r+1..0.PLA:STA h|
00001080  65 78 62 75 66 66 65 72  0d 07 3a 14 50 4c 41 3a  |exbuffer..:.PLA:|
00001090  53 54 41 20 62 75 66 66  65 72 2b 31 0d 07 44 12  |STA buffer+1..D.|
000010a0  50 4c 41 3a 53 54 41 20  62 75 66 66 65 72 0d 07  |PLA:STA buffer..|
000010b0  4e 1b 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |N.PLA:TAY:PLA:TA|
000010c0  58 3a 50 4c 41 3a 52 54  53 0d 07 58 1b 5c 20 54  |X:PLA:RTS..X.\ T|
000010d0  65 78 74 20 70 72 69 6e  74 69 6e 67 20 72 6f 75  |ext printing rou|
000010e0  74 69 6e 65 0d 07 62 0c  2e 70 72 6e 74 74 78 74  |tine..b..prnttxt|
000010f0  0d 07 6c 0a 4c 44 59 20  23 30 0d 07 76 0d 2e 70  |..l.LDY #0..v..p|
00001100  72 6e 74 74 78 74 32 0d  07 80 1b 4c 44 41 20 28  |rnttxt2....LDA (|
00001110  62 75 66 66 65 72 29 2c  59 3a 43 4d 50 20 23 26  |buffer),Y:CMP #&|
00001120  46 46 0d 07 8a 1b 42 45  51 20 70 72 6e 74 74 78  |FF....BEQ prnttx|
00001130  74 33 3a 4a 53 52 20 6f  73 61 73 63 69 0d 07 94  |t3:JSR osasci...|
00001140  14 49 4e 59 3a 4a 4d 50  20 70 72 6e 74 74 78 74  |.INY:JMP prnttxt|
00001150  32 0d 07 9e 0d 2e 70 72  6e 74 74 78 74 33 0d 07  |2.....prnttxt3..|
00001160  a8 07 52 54 53 0d 07 b2  20 5c 20 54 77 6f 2d 70  |..RTS... \ Two-p|
00001170  61 72 74 20 68 65 78 20  6e 75 6d 62 65 72 20 73  |art hex number s|
00001180  6f 72 74 65 72 0d 07 bc  0b 2e 68 78 70 72 6e 74  |orter.....hxprnt|
00001190  0d 07 c6 21 53 54 58 20  68 65 78 62 75 66 66 65  |...!STX hexbuffe|
000011a0  72 3a 53 54 59 20 68 65  78 62 75 66 66 65 72 2b  |r:STY hexbuffer+|
000011b0  31 0d 07 d0 1d 4c 44 41  20 68 65 78 62 75 66 66  |1....LDA hexbuff|
000011c0  65 72 3a 4a 53 52 20 68  78 70 72 6e 74 32 0d 07  |er:JSR hxprnt2..|
000011d0  da 23 4c 44 41 20 68 65  78 62 75 66 66 65 72 2b  |.#LDA hexbuffer+|
000011e0  31 3a 4a 53 52 20 68 78  70 72 6e 74 32 3a 52 54  |1:JSR hxprnt2:RT|
000011f0  53 0d 07 e4 18 5c 20 48  65 78 20 6e 75 6d 62 65  |S....\ Hex numbe|
00001200  72 20 70 72 69 6e 74 65  72 0d 07 ee 0c 2e 68 78  |r printer.....hx|
00001210  70 72 6e 74 32 0d 07 f8  0e 50 48 41 3a 80 20 23  |prnt2....PHA:. #|
00001220  32 34 30 0d 08 02 1b 4c  53 52 20 41 3a 52 4f 52  |240....LSR A:ROR|
00001230  20 41 3a 52 4f 52 20 41  3a 52 4f 52 20 41 0d 08  | A:ROR A:ROR A..|
00001240  0c 19 4a 53 52 20 68 78  70 72 6e 74 33 3a 50 4c  |..JSR hxprnt3:PL|
00001250  41 3a 80 20 23 31 35 0d  08 16 0c 2e 68 78 70 72  |A:. #15.....hxpr|
00001260  6e 74 33 0d 08 20 17 43  4c 43 3a 41 44 43 20 23  |nt3.. .CLC:ADC #|
00001270  34 38 3a 43 4d 50 20 23  35 38 0d 08 2a 1a 42 43  |48:CMP #58..*.BC|
00001280  43 20 68 78 70 72 6e 74  34 3a 43 4c 43 3a 41 44  |C hxprnt4:CLC:AD|
00001290  43 20 23 37 0d 08 34 0c  2e 68 78 70 72 6e 74 34  |C #7..4..hxprnt4|
000012a0  0d 08 3e 0e 4a 4d 50 20  6f 73 77 72 63 68 0d 08  |..>.JMP oswrch..|
000012b0  48 23 5c 20 4d 65 73 73  61 67 65 20 69 66 20 6e  |H#\ Message if n|
000012c0  6f 74 20 42 61 73 69 63  20 6c 61 6e 67 75 61 67  |ot Basic languag|
000012d0  65 0d 08 52 0b 2e 6e 6f  74 62 61 73 0d 08 5c 3b  |e..R..notbas..\;|
000012e0  4f 50 54 20 a4 65 71 75  73 28 22 54 68 69 73 20  |OPT .equs("This |
000012f0  6c 61 6e 67 75 61 67 65  20 69 73 20 6e 6f 74 20  |language is not |
00001300  42 61 73 69 63 2e 22 29  3a 4f 50 54 20 a4 65 71  |Basic."):OPT .eq|
00001310  75 62 28 26 46 46 29 0d  08 66 20 5c 20 45 78 74  |ub(&FF)..f \ Ext|
00001320  65 6e 64 65 64 20 2a 48  65 6c 70 20 74 65 73 74  |ended *Help test|
00001330  20 73 74 72 69 6e 67 0d  08 70 08 2e 63 6f 6d 0d  | string..p..com.|
00001340  08 7a 19 4f 50 54 20 a4  65 71 75 73 28 22 53 59  |.z.OPT .equs("SY|
00001350  53 54 56 41 52 53 22 29  0d 08 84 12 4f 50 54 20  |STVARS")....OPT |
00001360  a4 65 71 75 62 28 26 46  45 29 0d 08 8e 21 5c 20  |.equb(&FE)...!\ |
00001370  41 64 64 69 74 69 6f 6e  61 6c 20 68 65 6c 70 20  |Additional help |
00001380  69 6e 66 6f 72 6d 61 74  69 6f 6e 0d 08 98 0a 2e  |information.....|
00001390  63 6d 6d 6e 64 0d 08 a2  1b 4f 50 54 20 a4 65 71  |cmmnd....OPT .eq|
000013a0  75 73 28 22 20 20 53 79  73 74 56 61 72 73 22 29  |us("  SystVars")|
000013b0  0d 08 ac 10 4f 50 54 20  a4 65 71 75 62 28 30 29  |....OPT .equb(0)|
000013c0  0d 08 b6 1e 5c 20 54 61  62 6c 65 20 6f 66 20 70  |....\ Table of p|
000013d0  6f 69 6e 74 65 72 73 20  74 6f 20 74 68 65 0d 08  |ointers to the..|
000013e0  c0 19 5c 20 65 78 74 65  6e 64 65 64 20 68 65 6c  |..\ extended hel|
000013f0  70 20 74 65 78 74 73 0d  08 ca 0b 2e 68 74 70 74  |p texts.....htpt|
00001400  72 73 0d 08 d4 12 4f 50  54 20 a4 65 71 75 77 28  |rs....OPT .equw(|
00001410  68 74 31 29 0d 08 de 12  4f 50 54 20 a4 65 71 75  |ht1)....OPT .equ|
00001420  77 28 68 74 32 29 0d 08  e8 12 4f 50 54 20 a4 65  |w(ht2)....OPT .e|
00001430  71 75 77 28 68 74 33 29  0d 08 f2 12 4f 50 54 20  |quw(ht3)....OPT |
00001440  a4 65 71 75 77 28 68 74  34 29 0d 08 fc 12 4f 50  |.equw(ht4)....OP|
00001450  54 20 a4 65 71 75 77 28  68 74 35 29 0d 09 06 12  |T .equw(ht5)....|
00001460  4f 50 54 20 a4 65 71 75  77 28 68 74 36 29 0d 09  |OPT .equw(ht6)..|
00001470  10 12 4f 50 54 20 a4 65  71 75 77 28 68 74 37 29  |..OPT .equw(ht7)|
00001480  0d 09 1a 12 4f 50 54 20  a4 65 71 75 77 28 68 74  |....OPT .equw(ht|
00001490  38 29 0d 09 24 12 4f 50  54 20 a4 65 71 75 77 28  |8)..$.OPT .equw(|
000014a0  68 74 39 29 0d 09 2e 13  4f 50 54 20 a4 65 71 75  |ht9)....OPT .equ|
000014b0  77 28 68 74 31 30 29 0d  09 38 13 4f 50 54 20 a4  |w(ht10)..8.OPT .|
000014c0  65 71 75 77 28 68 74 31  31 29 0d 09 42 13 4f 50  |equw(ht11)..B.OP|
000014d0  54 20 a4 65 71 75 77 28  68 74 31 32 29 0d 09 4c  |T .equw(ht12)..L|
000014e0  13 4f 50 54 20 a4 65 71  75 77 28 68 74 31 33 29  |.OPT .equw(ht13)|
000014f0  0d 09 56 13 4f 50 54 20  a4 65 71 75 77 28 68 74  |..V.OPT .equw(ht|
00001500  31 34 29 0d 09 60 13 4f  50 54 20 a4 65 71 75 77  |14)..`.OPT .equw|
00001510  28 68 74 31 35 29 0d 09  6a 13 4f 50 54 20 a4 65  |(ht15)..j.OPT .e|
00001520  71 75 77 28 68 74 31 36  29 0d 09 74 08 2e 68 74  |quw(ht16)..t..ht|
00001530  31 0d 09 7e 32 4f 50 54  20 a4 65 71 75 73 28 22  |1..~2OPT .equs("|
00001540  53 79 73 74 65 6d 20 76  61 72 69 61 62 6c 65 73  |System variables|
00001550  20 61 72 65 20 61 73 20  66 6f 6c 6c 6f 77 73 3a  | are as follows:|
00001560  2d 22 29 0d 09 88 1f 4f  50 54 20 a4 65 71 75 62  |-")....OPT .equb|
00001570  28 31 33 29 3a 4f 50 54  20 a4 65 71 75 62 28 31  |(13):OPT .equb(1|
00001580  33 29 0d 09 92 1a 4f 50  54 20 a4 65 71 75 73 28  |3)....OPT .equs(|
00001590  22 50 41 47 45 20 20 3d  20 26 22 29 0d 09 9c 12  |"PAGE  = &")....|
000015a0  4f 50 54 20 a4 65 71 75  62 28 26 46 46 29 0d 09  |OPT .equb(&FF)..|
000015b0  a6 08 2e 68 74 32 0d 09  b0 11 4f 50 54 20 a4 65  |...ht2....OPT .e|
000015c0  71 75 62 28 31 33 29 0d  09 ba 1a 4f 50 54 20 a4  |qub(13)....OPT .|
000015d0  65 71 75 73 28 22 54 4f  50 20 20 20 3d 20 26 22  |equs("TOP   = &"|
000015e0  29 0d 09 c4 12 4f 50 54  20 a4 65 71 75 62 28 26  |)....OPT .equb(&|
000015f0  46 46 29 0d 09 ce 08 2e  68 74 33 0d 09 d8 12 4f  |FF).....ht3....O|
00001600  50 54 20 a4 73 70 61 63  65 73 28 33 29 0d 09 e2  |PT .spaces(3)...|
00001610  21 4f 50 54 20 a4 65 71  75 73 28 22 50 72 6f 67  |!OPT .equs("Prog|
00001620  72 61 6d 20 73 69 7a 65  20 3d 20 26 22 29 0d 09  |ram size = &")..|
00001630  ec 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |..OPT .equb(&FF)|
00001640  0d 09 f6 08 2e 68 74 34  0d 0a 00 11 4f 50 54 20  |.....ht4....OPT |
00001650  a4 65 71 75 62 28 31 33  29 0d 0a 0a 1a 4f 50 54  |.equb(13)....OPT|
00001660  20 a4 65 71 75 73 28 22  4c 4f 4d 45 4d 20 3d 20  | .equs("LOMEM = |
00001670  26 22 29 0d 0a 14 12 4f  50 54 20 a4 65 71 75 62  |&")....OPT .equb|
00001680  28 26 46 46 29 0d 0a 1e  08 2e 68 74 35 0d 0a 28  |(&FF).....ht5..(|
00001690  12 4f 50 54 20 a4 73 70  61 63 65 73 28 33 29 0d  |.OPT .spaces(3).|
000016a0  0a 32 1f 4f 50 54 20 a4  65 71 75 73 28 22 42 79  |.2.OPT .equs("By|
000016b0  74 65 73 20 75 73 65 64  20 3d 20 26 22 29 0d 0a  |tes used = &")..|
000016c0  3c 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |<.OPT .equb(&FF)|
000016d0  0d 0a 46 08 2e 68 74 36  0d 0a 50 11 4f 50 54 20  |..F..ht6..P.OPT |
000016e0  a4 65 71 75 62 28 31 33  29 0d 0a 5a 1a 4f 50 54  |.equb(13)..Z.OPT|
000016f0  20 a4 65 71 75 73 28 22  48 65 61 70 20 20 3d 20  | .equs("Heap  = |
00001700  26 22 29 0d 0a 64 12 4f  50 54 20 a4 65 71 75 62  |&")..d.OPT .equb|
00001710  28 26 46 46 29 0d 0a 6e  08 2e 68 74 37 0d 0a 78  |(&FF)..n..ht7..x|
00001720  12 4f 50 54 20 a4 73 70  61 63 65 73 28 33 29 0d  |.OPT .spaces(3).|
00001730  0a 82 1f 4f 50 54 20 a4  65 71 75 73 28 22 42 79  |...OPT .equs("By|
00001740  74 65 73 20 66 72 65 65  20 3d 20 26 22 29 0d 0a  |tes free = &")..|
00001750  8c 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |..OPT .equb(&FF)|
00001760  0d 0a 96 08 2e 68 74 38  0d 0a a0 11 4f 50 54 20  |.....ht8....OPT |
00001770  a4 65 71 75 62 28 31 33  29 0d 0a aa 1a 4f 50 54  |.equb(13)....OPT|
00001780  20 a4 65 71 75 73 28 22  53 74 61 63 6b 20 3d 20  | .equs("Stack = |
00001790  26 22 29 0d 0a b4 12 4f  50 54 20 a4 65 71 75 62  |&")....OPT .equb|
000017a0  28 26 46 46 29 0d 0a be  08 2e 68 74 39 0d 0a c8  |(&FF).....ht9...|
000017b0  12 4f 50 54 20 a4 73 70  61 63 65 73 28 33 29 0d  |.OPT .spaces(3).|
000017c0  0a d2 22 4f 50 54 20 a4  65 71 75 73 28 22 4e 65  |.."OPT .equs("Ne|
000017d0  78 74 20 6c 6f 63 61 74  69 6f 6e 20 3d 20 26 22  |xt location = &"|
000017e0  29 0d 0a dc 12 4f 50 54  20 a4 65 71 75 62 28 26  |)....OPT .equb(&|
000017f0  46 46 29 0d 0a e6 09 2e  68 74 31 30 0d 0a f0 11  |FF).....ht10....|
00001800  4f 50 54 20 a4 65 71 75  62 28 31 33 29 0d 0a fa  |OPT .equb(13)...|
00001810  1a 4f 50 54 20 a4 65 71  75 73 28 22 48 49 4d 45  |.OPT .equs("HIME|
00001820  4d 20 3d 20 26 22 29 0d  0b 04 12 4f 50 54 20 a4  |M = &")....OPT .|
00001830  65 71 75 62 28 26 46 46  29 0d 0b 0e 09 2e 68 74  |equb(&FF).....ht|
00001840  31 31 0d 0b 18 1f 4f 50  54 20 a4 65 71 75 62 28  |11....OPT .equb(|
00001850  31 33 29 3a 4f 50 54 20  a4 65 71 75 62 28 31 33  |13):OPT .equb(13|
00001860  29 0d 0b 22 1a 4f 50 54  20 a4 65 71 75 73 28 22  |)..".OPT .equs("|
00001870  4c 49 53 54 4f 20 3d 20  26 22 29 0d 0b 2c 12 4f  |LISTO = &")..,.O|
00001880  50 54 20 a4 65 71 75 62  28 26 46 46 29 0d 0b 36  |PT .equb(&FF)..6|
00001890  09 2e 68 74 31 32 0d 0b  40 12 4f 50 54 20 a4 73  |..ht12..@.OPT .s|
000018a0  70 61 63 65 73 28 35 29  0d 0b 4a 21 4f 50 54 20  |paces(5)..J!OPT |
000018b0  a4 65 71 75 73 28 22 52  45 50 45 41 54 20 64 65  |.equs("REPEAT de|
000018c0  70 74 68 20 3d 20 26 22  29 0d 0b 54 12 4f 50 54  |pth = &")..T.OPT|
000018d0  20 a4 65 71 75 62 28 26  46 46 29 0d 0b 5e 09 2e  | .equb(&FF)..^..|
000018e0  68 74 31 33 0d 0b 68 11  4f 50 54 20 a4 65 71 75  |ht13..h.OPT .equ|
000018f0  62 28 31 33 29 0d 0b 72  17 4f 50 54 20 a4 65 71  |b(13)..r.OPT .eq|
00001900  75 73 28 22 54 52 41 43  45 20 22 29 0d 0b 7c 12  |us("TRACE ")..|.|
00001910  4f 50 54 20 a4 65 71 75  62 28 26 46 46 29 0d 0b  |OPT .equb(&FF)..|
00001920  86 09 2e 68 74 31 34 0d  0b 90 12 4f 50 54 20 a4  |...ht14....OPT .|
00001930  73 70 61 63 65 73 28 37  29 0d 0b 9a 20 4f 50 54  |spaces(7)... OPT|
00001940  20 a4 65 71 75 73 28 22  47 4f 53 55 42 20 64 65  | .equs("GOSUB de|
00001950  70 74 68 20 3d 20 26 22  29 0d 0b a4 12 4f 50 54  |pth = &")....OPT|
00001960  20 a4 65 71 75 62 28 26  46 46 29 0d 0b ae 09 2e  | .equb(&FF).....|
00001970  68 74 31 35 0d 0b b8 11  4f 50 54 20 a4 65 71 75  |ht15....OPT .equ|
00001980  62 28 31 33 29 0d 0b c2  1a 4f 50 54 20 a4 65 71  |b(13)....OPT .eq|
00001990  75 73 28 22 57 49 44 54  48 20 3d 20 26 22 29 0d  |us("WIDTH = &").|
000019a0  0b cc 12 4f 50 54 20 a4  65 71 75 62 28 26 46 46  |...OPT .equb(&FF|
000019b0  29 0d 0b d6 09 2e 68 74  31 36 0d 0b e0 12 4f 50  |).....ht16....OP|
000019c0  54 20 a4 73 70 61 63 65  73 28 35 29 0d 0b ea 1e  |T .spaces(5)....|
000019d0  4f 50 54 20 a4 65 71 75  73 28 22 46 4f 52 20 64  |OPT .equs("FOR d|
000019e0  65 70 74 68 20 3d 20 26  22 29 0d 0b f4 12 4f 50  |epth = &")....OP|
000019f0  54 20 a4 65 71 75 62 28  26 46 46 29 0d 0b fe 07  |T .equb(&FF)....|
00001a00  5d 3a ed 0d 0c 08 14 f4  20 41 75 74 6f 2d 73 61  |]:...... Auto-sa|
00001a10  76 65 20 63 6f 64 65 0d  0c 12 30 24 26 37 30 30  |ve code...0$&700|
00001a20  3d 22 53 41 56 45 20 42  61 73 48 65 6c 70 20 35  |="SAVE BasHelp 5|
00001a30  30 30 30 20 22 2b c3 7e  4f 25 2b 22 20 38 30 30  |000 "+.~O%+" 800|
00001a40  30 20 38 30 30 30 22 0d  0c 1c 15 58 25 3d 30 3a  |0 8000"....X%=0:|
00001a50  59 25 3d 37 3a d6 20 26  46 46 46 37 0d 0c 26 6c  |Y%=7:. &FFF7..&l|
00001a60  f1 20 27 27 22 43 6f 64  65 20 73 61 76 65 64 20  |. ''"Code saved |
00001a70  75 6e 64 65 72 20 74 68  65 20 6e 61 6d 65 20 6f  |under the name o|
00001a80  66 20 42 61 73 48 65 6c  70 2e 22 27 27 22 54 6f  |f BasHelp."''"To|
00001a90  20 75 73 65 2c 20 6c 6f  61 64 20 69 6e 74 6f 20  | use, load into |
00001aa0  53 69 64 65 77 61 79 73  20 52 61 6d 20 61 6e 64  |Sideways Ram and|
00001ab0  20 74 79 70 65 20 2a 48  2e 20 53 79 73 74 56 61  | type *H. SystVa|
00001ac0  72 73 2e 22 27 27 3a e0  0d 0c 30 19 f4 20 56 61  |rs."'':...0.. Va|
00001ad0  72 69 6f 75 73 20 73 75  62 72 6f 75 74 69 6e 65  |rious subroutine|
00001ae0  73 0d 0c 3a 0f dd 20 a4  65 71 75 62 28 53 25 29  |s..:.. .equb(S%)|
00001af0  0d 0c 44 12 3f 50 25 3d  53 25 3a 50 25 3d 50 25  |..D.?P%=S%:P%=P%|
00001b00  2b 31 0d 0c 4e 18 3f 4f  25 3d 53 25 3a 4f 25 3d  |+1..N.?O%=S%:O%=|
00001b10  4f 25 2b 31 3a 3d 70 61  73 73 0d 0c 58 0f dd 20  |O%+1:=pass..X.. |
00001b20  a4 65 71 75 77 28 53 25  29 0d 0c 62 12 21 50 25  |.equw(S%)..b.!P%|
00001b30  3d 53 25 3a 50 25 3d 50  25 2b 32 0d 0c 6c 18 21  |=S%:P%=P%+2..l.!|
00001b40  4f 25 3d 53 25 3a 4f 25  3d 4f 25 2b 32 3a 3d 70  |O%=S%:O%=O%+2:=p|
00001b50  61 73 73 0d 0c 76 0f dd  20 a4 65 71 75 73 28 53  |ass..v.. .equs(S|
00001b60  24 29 0d 0c 80 16 24 50  25 3d 53 24 3a 50 25 3d  |$)....$P%=S$:P%=|
00001b70  50 25 2b a9 28 53 24 29  0d 0c 8a 1c 24 4f 25 3d  |P%+.(S$)....$O%=|
00001b80  53 24 3a 4f 25 3d 4f 25  2b a9 28 53 24 29 3a 3d  |S$:O%=O%+.(S$):=|
00001b90  70 61 73 73 0d 0c 94 11  dd 20 a4 73 70 61 63 65  |pass..... .space|
00001ba0  73 28 53 25 29 0d 0c 9e  0f e3 20 4e 25 3d 31 20  |s(S%)..... N%=1 |
00001bb0  b8 20 53 25 0d 0c a8 12  3f 50 25 3d 33 32 3a 50  |. S%....?P%=32:P|
00001bc0  25 3d 50 25 2b 31 0d 0c  b2 1a 3f 4f 25 3d 33 32  |%=P%+1....?O%=32|
00001bd0  3a 4f 25 3d 4f 25 2b 31  3a ed 3a 3d 70 61 73 73  |:O%=O%+1:.:=pass|
00001be0  0d ff                                             |..|
00001be2