)�"PIC Assembler V0.95 (C)SPROW 1997"'
(F*KEY 9CHAIN"ADFS::RiscHD.$.Language.BasicV.PICs.K2Project.K2sauce"
2:
Fsource$=""
P
loaded%=�
Zopcount%=0
dkeycount%=6
n
�reset
x:
�C�:�bit$,mnemonic$,meaning$:opcount%=opcount%+1:�mnemonic$="[[["
��
�allow%=128
�D�bit$(opcount%),mnemonic$(opcount%),meaning$(opcount%+keycount%)
�0�jumpto%(28),token$(127),keyword$(keycount%)
�@�string$(allow%),integer%(allow%),real(allow%),name$(allow%)
�:
��data%=1�opcount%
�1�bit$(data%),mnemonic$(data%),meaning$(data%)
��mnemonic$(data%),1)<>delta$�jumpto%(1+�(delta$)-64)=data%:jumpto%(�(�mnemonic$(data%),1))-64)=data%:delta$=�mnemonic$(data%),1)
��
�:

�

'�token$:tokennum%=�("&"+�token$,2))

.token$(tokennum%-128)=�token$,�(token$)-2)

"��token$,2)="FF"

,:

6�data%=1�keycount%

@-�keyword$(data%),meaning$(opcount%+data%)

J�

T:

^�:�:�#0

h�

r�">"command$

|,command$=�stripleft(command$):support%=�

�A�command$,4)="HELP"�support%=�help(�command$,�(command$)-4))

�C�command$,5)="CHAIN"�support%=�chain(�command$,�(command$)-5))

�A�command$,4)="LOAD"�support%=�load(�command$,�(command$)-4))

�A�command$,4)="LIST"�support%=�list(�command$,�(command$)-4))

�A�command$,4)="QUIT"�support%=�quit(�command$,�(command$)-4))

�?�command$,3)="RUN"�support%=�run(�command$,�(command$)-3))

�?�command$,1)="*"�support%=�oscli(�command$,�(command$)-1))

�5�support%=���command$>0��'"Command not supported"

���nospaces(command$)="QUIT"

��

�:

�ݤoscli(parameter$)

��parameter$
=�
:
ݤquit(parameter$)
&2�nospaces(parameter$)<>""��'"Syntax error":=�
0J�("SAVE from100 "+�~(code%)+" +"+�~(2*�findvalue("P%"))+" 0 FFFFF800")
:=�
D:
Nݤrun(parameter$)
X2�nospaces(parameter$)<>""��'"Syntax error":=�
b'�loaded%=���'"No program loaded":=�
l=�chain(�34+source$+�34)
v:
�ݤhelp(parameter$)
��data%,found%,mnemonic$
�found%=�
�$parameter$=�nospaces(parameter$)
�r�parameter$=""��"Help is available on the following:"'"HELP <assembler mnemonic>"'"HELP <command>"'"HELP .":=�
�3�parameter$="."��14:�"Help with the assembler:"
��data%=1�(opcount%-1)
�(mnemonic$=�isolate(mnemonic$(data%))
�p�mnemonic$=�ucase(�parameter$,�(mnemonic$)))�parameter$="."��mnemonic$(data%);" - ";meaning$(data%):found%=�
��
9�parameter$="."��'"Help with the available keywords:"
�data%=1�keycount%
w�keyword$(data%),�(parameter$))=parameter$�parameter$="."��keyword$(data%);" - ";meaning$(opcount%+data%):found%=�
 �
*1�found%=���'"No help available on that topic"
4=�
>:
Hݤload(parameter$)
R%parameter$=�stripleft(parameter$)
f0�parameter$,1)<>�34��'"No such variable":=�
z1lastditto%=��parameter$,�(parameter$)-1),�34)
�%�lastditto%=0��'"Missing "+�34:=�
�M�(�anymore(�parameter$,�(parameter$)-lastditto%)))=0��'"Syntax error":=�
�'in%=��parameter$,2,�(parameter$)-2)
� �in%=0��'"File not found":=�
�1�#in%<>13��'"Bad program":loaded%=�:�#in%:=�
��#in%=(�#in%)-1
�2�#in%<>255��'"Bad program":loaded%=�:�#in%:=�
�:loaded%=�:�#in%:source$=�parameter$,2,�(parameter$)-2)
�
�reset
�=�
�:
�ݤlist(parameter$)
N�lo%,hi%,linenum$,linenum%,minline%,maxline%,rangehi$,rangelo$,work%,byte%
$Grangelo$=�popnext(parameter$,","):rangehi$=�popnext(parameter$,",")
..�rangelo$<>""�rangehi$=""�rangehi$="&8000"
8N�rangehi$+rangelo$=""�maxline%=&8000�minline%=�rangelo$:maxline%=�rangehi$
B'�loaded%=���'"No program loaded":=�
L#pointer%=1:in%=�source$:�#in%=1
V�
`Hhi%=�#in%:lo%=�#in%:linenum$=�(lo%+(hi%*256)):linenum%=lo%+(hi%*256)
jS�(linenum%>=minline%)�(linenum%<=maxline%)���5-�(�(linenum%))," ");�(linenum%);
t&pointer%=pointer%+3:�#in%=pointer%
~�
�byte%=�#in%
�@�(linenum%<minline%)�(linenum%>maxline%)�work%=0�work%=byte%
�,�work%<127��work%��;�unpacktoken(work%);
�pointer%=pointer%+1
�!�byte%=13�pointer%>=(�#in%-1)
�0�(linenum%>=minline%)�(linenum%<=maxline%)��
�%�linenum%>maxline%�pointer%=�#in%
��pointer%>=(�#in%-1)
�	�#in%
�=�
�:
�ݤchain(parameter$)
�byte%,work$,status%

status%=�load(parameter$)
�loaded%=��in%=0�=�
in%=�source$:�#in%=1
(�
2work$=""
<�
F6byte%=�#in%:work$=work$+�byte%:pointer%=pointer%+1
P+�(byte%=13��work$>3)�(pointer%=�#in%-1)
Z*work$=�stripleft(�work$,4,�(work$)-4))
d2�work$=�"["��work$=�"]"�inasm%=�(�work$-�"]")
nA�inasm%=��status%=�basicmode(work$)�status%=�inasmmode(work$)
x"�pointer%>=(�#in%-1)�status%=�
�	�#in%
�=�
�:
���reset
�pointer%=0
�inasm%=�
�
fsp%=0
�for$=""
�code%=0
�s%=0:i%=0:r%=0:n%=0
�delta$="@"
�
option%=0
�
:
":
,ݤbasicmode(string$)
@�byte%,token$,work$
Jbyte%=�(�string$,1))
TB�byte%>127�byte%<>&8D�token$=�unpacktoken(byte%)�token$=�byte%
^work$=�popnext(string$,":")
h3�token$="REM"�token$=":"�token$="]"�byte%=-1�=�
r�token$="DIM"�=�dim(work$)
|�token$="FOR"�=�for(work$)
��token$="NEXT"�=�next
�O�byte%<127�work$<>""��assignvariable(work$):=���'"Command not supported":=�
�:
�ݤinasmmode(string$)
�(�data%,byte%,found%,initial%,number%
��data%=1��string$
�byte%=�(�string$,data%,1))
�`�byte%>127�byte%<>&8D�string$=�string$,data%-1)+�unpacktoken(byte%)+�string$,�string$-data%)
��
�Y�(option%�2)=2�number%=�findvalue("P%"):��4-�(�~(number%)),"0");�~number%;" ";string$
�-string$=�stripleft(�popnext(string$,"\"))
�+�string$,1)="."�=�assignlabel(string$)
?�string$,1)="["�string$=�popnext(�string$,�string$-1),"\")
0秤ucase(string$),"OPT")=1�=�option(string$)
+秤ucase(string$),"EQU")=1��'"Silly":=�
&initial%=�(�ucase(string$))
0#�initial%>�"Z"�initial%<�"A"�=�
D6�data%=jumpto%(initial%-64)�jumpto%(1+initial%-64)
N(mnemonic$=�isolate(mnemonic$(data%))
XI�mnemonic$=�ucase(�string$,�(mnemonic$)))�found%=data%:data%=opcount%
b�
v@�found%=���'"No such mnemonic":=��=�asmparms(found%,string$)
�=�
�:
� ݤasmparms(pointer%,string$)
��work$,length%
�'length%=�mnemonic$(pointer%)," ")-1
�)parameter$=�string$,�string$-length%)
�T�mnemonic$(pointer%),4,2)="LW"���stripleft(parameter$),1)<>"#"��'"Missing #":=�
�Gwork$=�nospaces(�mnemonic$(pointer%),�mnemonic$(pointer%)-length%))
�work$=�nocommas(work$)
�L=�tomemory(�work$,work$,�nohashes(parameter$),�nospaces(bit$(pointer%)))
:
+ݤtomemory(number%,work$,string$,byte$)
 
�data%
*4�number%=0��nospaces(string$)<>""��'"Mistake":=�
4'�number%=0��poke(�setbin(byte$)):=�
>�data%=1�number%
HE�data%=1�got$=�popnext(string$,",")�got$=�popnext(parameter$,",")
R7byte$=�overlay(�setnum(got$),�work$,data%,1),byte$)
\�
f�poke(�setbin(byte$))
p=�
z:
�ݤoption(string$)
�,option%=�findvalue(�string$,�string$-3))
� �option%>7��'"Bad option":=�
�=�
�:
�
ݤnext
��step%,limit%,for%,name$
��fsp%=0��'"No FOR":=�
�name$=�popnext(for$,",")
�name$=�name$,�name$,"=")-1)
�&limit%=�(�popnext(parameter$,","))
�%step%=�(�popnext(parameter$,","))
	 for%=�findvalue(name$)+step%
	&�assignvariable(name$+"="+�(for%))
	)�for%>limit%�fsp%=0:pointer%=�#in%:=�
	$�#in%=fsp%:pointer%=fsp%:=�
	.:
	8ݤfor(string$)
	L"�string$,�&B8)=0��'"No TO":=�
	V$�string$,�&88)=0��'"No STEP":=�
	`,string$=�stripleft(�string$,�string$-1))
	t+�assignvariable(�popnext(string$,�&B8))
	�Zfor$=�popnext(string$,�&B8)+","+�popnext(parameter$,�&88)+","+�popnext(parameter$,�13)
	�for$=�nospaces(for$)
	�fsp%=�#in%
	�=�
	�:
	�ݤdim(string$)
	��name$,amount$
	�,string$=�stripleft(�string$,�string$-1))
	�#name$=�findwild(1,string$,"% ")
	�-�string$,1+�name$,1)="%"�name$=name$+"%"
	�+amount$=�findwild(1+�name$,string$,":")
'�name$=""�amount$=""��'"Bad DIM":=�

0�name$=""�amount$=""��'"No such variable":=�
�code%2*�setnum(amount$)
%�assignvariable(name$+"="+�code%)
(=�
2:
<��poke(byte%)
PP%=�findvalue("P%")
d9?(code%+(P%*2))=byte%�256:?(code%+(P%*2)+1)=byte%�256
x9�assignvariable("O%=O%+1"):�assignvariable("P%=P%+1")
��
�:
�
��dump
��s%,i%,r%,data%
��n%=0��
�,�"There are ";n%;" variables defined..."
��
��name$(data%);" is a";
�9��name$(data%),1)="$"��" string=",string$(s%):s%=s%+1
�<��name$(data%),1)="%"��"n integer=",integer%(i%):i%=i%+1
�R��name$(data%),1)<>"$"��name$(data%),1)<>"%"��" real number=",real(r%):r%=r%+1
�data%=data%+1
�
�data%=n%
�
:
ݤfindvalue(string$)
"�lookup%
,lookup%=�allocate(string$)
6&��string$,1)="$"�=string$(lookup%)
@'��string$,1)="%"�=integer%(lookup%)
J=real(lookup%)
T:
^ݤunpacktoken(tokennum%)
r)�number%,mask%,lo%,hi%,byte%,pointer%
|*�tokennum%<>&8D�=token$(tokennum%-128)
�#byte%=�#in%:lo%=�#in%:hi%=�#in%
�number%=(byte%�(32+16))*4
�number%=number%�lo%
�mask%=(byte%�(8+4))*16
�mask%=mask%�hi%
�pointer%=pointer%+3
�=number%+(mask%*256)
�:
�ݤcount(lttr$,string$)
��data%,count%
��data%=1��(string$)
,�string$,data%,1)=lttr$�count%=count%+1
�
=count%
&:
0"ݤoverlay(over%,lttr$,string$)
D�binary$,data%,count%
N)�data%=(�count(lttr$,string$)-1)�0�-1
X)binary$=binary$+�(�(over%�(2^data%)))
b�
lZ=�string$,�string$,lttr$)-1)+binary$+�string$,�(string$)-�string$,lttr$)-�(binary$)+1)
v:
�:
�+ݤfindwild(pointer%,string$,separator$)
��length%,notfound%
�notfound%=�
��data%=pointer%��string$
�e�separator$,�string$,data%,1))=0��(�string$,data%,1))<127�length%=length%+�notfound%�notfound%=0
��
�data%=pointer%+length%-1
�*=�nospaces(�string$,pointer%,length%))
�:
�!ݤpopnext(string$,separator$)

0�string$,separator$)=0�=�stripleft(string$)

8parameter$=�string$,�(string$)-�string$,separator$))

%=�string$,�string$,separator$)-1)

 :

*ݤstripright(string$)

>�data%,pointer%

H�data%=�(string$)�1�-1

R5�pointer%=0��string$,data%,1)<>" "�pointer%=data%

\�

f=�string$,pointer%)

p:

zݤstripleft(string$)

��data%,pointer%

��data%=1��(string$)

�5�pointer%=0��string$,data%,1)<>" "�pointer%=data%

��

�$=�string$,�(string$)-pointer%+1)

�:

� ݤnowild(string$,separator$)

��work$,data%

��data%=1��string$

�@�string$,data%,1)<>separator$�work$=work$+�string$,data%,1)

��

=work$
:
ݤnohashes(string$)
$=�nowild(string$,"#")
.:
8ݤnospaces(string$)
B=�nowild(string$," ")
L:
Vݤnocommas(string$)
`=�nowild(string$,",")
j:
tݤisolate(string$)
�=�string$,�string$," ")-1)
�:
�ݤanymore(string$)
��data%,pointer%
��data%=1��(string$)
�?�string$,data%,1)=" "��string$,data%,1)=":"�pointer%=data%
��
�$=�string$,�(string$)-pointer%+1)
�:
�ݤucase(string$)

�data%

�data%=1��(string$)
��(�string$,data%,1))>96��(�string$,data%,1))<123�string$=�string$,data%-1)+�(�(�string$,data%,1))�&DF)+�string$,�(string$)-data%)
�
(=string$
2:
F:
P��assignvariable(string$)
d�data%,lttr$,work$
n+work$=�stripleft(�popnext(string$,"="))
xwork$=�stripright(work$)
��data%=1�(�(work$)-1)
�lttr$=�work$,data%,1)
�=秽34+" !#%&'()*+,-./:;<=>?@[\]^`",lttr$)<>0��"Mistake":�
��(lttr$)>122��"Mistake":�
��
�lttr$=�work$,1)
�.�"0123456789",lttr$)<>0��"Syntax error":�
�.�lttr$="$"��"Don't use the '$' operator":�
�lttr$=�work$,1)
�<秽34+" !#&'()*+,-./:;<=>?@[\]^`",lttr$)<>0��"Mistake":�
�(lttr$)>122��"Mistake":�
Dentry%=�allocate(work$):work$=�string$,�(string$)-�string$,"="))
"-�lttr$="$"�string$(entry%)=�setstr(work$)
,.�lttr$="%"�integer%(entry%)=�setnum(work$)
66�lttr$<>"%"�lttr$<>"$"�real(entry%)=�setnum(work$)
@�
J:
Tݤassignlabel(string$)
h�data%,lttr$
r.string$=�stripleft(�string$,�(string$)-1))
| string$=�stripright(string$)
��data%=1�(�(string$)-1)
�lttr$=�string$,data%,1)
�?秽34+" !#%&'()*+,-./:;<=>?@[\]^`",lttr$)<>0��'"Mistake":=�
� �(lttr$)>122��'"Mistake":=�
��
�7�"$0123456789",�string$,1))<>0��'"Syntax error":=�
�lttr$=�string$,1)
�#�lttr$="$"��'"Type mismatch":=�
�>秽34+" !#&'()*+,-./:;<=>?@[\]^`",lttr$)<>0��'"Mistake":=�
�entry%=�allocate(string$)
string$=string$+"=P%"
N�lttr$="%"�integer%(entry%)=�setnum(string$)�real(entry%)=�setnum(string$)
=�
&:
0ݤsetnum(string$)
D.string$=�string$,�(string$)-�string$,"="))
Nstring$=�nospaces(string$)
X&�string$,1)="%"�=�setbin(string$)
b=�(�expandnum(string$))
l:
vݤsetstr(string$)
�=�(�expandstr(string$))
�:
�ݤsetbin(string$)
��data%,result%,lttr$
�9string$=�nospaces(�string$,�(string$)-�string$,"%")))
��string$>14��'"Too big":=0
�!�string$=0��'"Bad binary":=0
��data%=1��string$
�lttr$=�string$,data%,1)
�3�lttr$="1"�result%=result%�(2^(�string$-data%))
�
=result%
:
 ݤallocate(string$)
>%�data%,sFind%,iFind%,rFind%,type%
HsFind%=�:iFind%=�:rFind%=�
R��string$,1)="$"�type%=�"s"
\��string$,1)="%"�type%=�"i"
f1��string$,1)<>"%"��string$,1)<>"$"�type%=�"r"
pnotfound%=�
z�data%=0�n%
�)��name$(data%),1)="$"�sFind%=sFind%+1
�)��name$(data%),1)="%"�iFind%=iFind%+1
�@��name$(data%),1)<>"%"��name$(data%),1)<>"$"�rFind%=rFind%+1
�5�string$=name$(data%)�notfound%=�(�type%+"Find%")
��
��notfound%<>��=notfound%
�name$(n%)=string$:n%=n%+1
�"��string$,1)="$"�s%=s%+1:=s%-1
�"��string$,1)="%"�i%=i%+1:=i%-1
�r%=r%+1:=r%-1
�:
�ݤexpandstr(string$)
=string$
:
$ݤexpandnum(string$)
8#�data%,result$,name$,byte$,hex%
B�data%=1��string$
Lbyte$=�string$,data%,1)
V(�"0123456789ABCDEF",byte$)=0�hex%=�
j?�(byte$)>127�result$=result$+�unpacktoken(�byte$):byte$=""
tB�"0123456789&^()*-+/ ",byte$)<>0�hex%=��result$=result$+byte$
~y�"0123456789&^()*-+/ ",byte$)=0�hex%=��name$=�findwild(data%,string$,"!^*-+/ "):result$=result$+�(�findvalue(name$))
��byte$="&"�hex%=�
��
�=result$
�:
�:
�3�"00 0111 dfff ffff","ADDWF  f,d","Add W and f"
�3�"00 0101 dfff ffff","ANDWF  f,d","AND W and f"
�8�"11 111x kkkk kkkk","ADDLW  k  ","Add literal to W"
�9�"11 1001 kkkk kkkk","ANDLW  k  ","And literal and W"
�3�"01 00bb bfff ffff","BCF    f,b","Bit clear f"
1�"01 01bb bfff ffff","BSF    f,b","Bit set f"

@�"01 10bb bfff ffff","BTFSC  f,b","Bit test,skip if clear  "
<�"01 11bb bfff ffff","BTFSS  f,b","Bit test,skip if set"
7�"10 0kkk kkkk kkkk","CALL   k  ","Call subroutine"
(=�"00 0000 0110 0100","CLRWDT    ","Clear watch dog timer"
2/�"00 0001 0xxx xxxx","CLRW      ","Clear W"
</�"00 0001 1fff ffff","CLRF   f  ","Clear f"
F4�"00 1001 dfff ffff","COMF   f,d","Complement f"
PA�"00 1011 dfff ffff","DECFSZ f,d","Decrement f, skip if zero"
Z3�"00 0011 dfff ffff","DECF   f,d","Decrement f"
d7�"10 1kkk kkkk kkkk","GOTO   k  ","Goto address  k"
nB�"11 1000 kkkk kkkk","IORLW  k  ","Inclusive OR literal and W"
x@�"00 1111 dfff ffff","INCFSZ f,d","Increment f,skip if zero"
�3�"00 1010 dfff ffff","INCF   f,d","Increment f"
�<�"00 0100 dfff ffff","IORWF  f,d","Inclusive OR W and f"
�.�"00 1000 dfff ffff","MOVF   f,d","Move f"
�3�"00 0000 1fff ffff","MOVWF  f  ","Move W to f"
�9�"11 00xx kkkk kkkk","MOVLW  k  ","Move Literal to W"
�4�"00 0000 0xx0 0000","NOP       ","No operation"
�C�"00 0000 0110 0010","OPTION    ","Load OPTION register with W"
�5�"00 1101 dfff ffff","RLF    f,d","Rotate left f"
�6�"00 1100 dfff ffff","RRF    f,d","Rotate right f"
�=�"00 0000 0000 1001","RETFIE    ","Return from Interrupt"
�@�"11 01xx kkkk kkkk","RETLW  k  ","Return with literal in W"
�>�"00 0000 0000 1000","RETURN    ","Return from subroutine"
�9�"00 0010 dfff ffff","SUBWF  f,d","Subtract W from f"
F�"00 1110 dfff ffff","SWAPF  f,d","Swap left & right nybbles of f"
=�"00 0000 0110 0011","SLEEP     ","Go into stand by mode"
?�"11 110x kkkk kkkk","SUBLW  k  ","Subtract W from literal"
"7�"00 0000 0110 0fff","TRIS   f  ","Tristate port f"
,<�"00 0110 dfff ffff","XORWF  f,d","Exclusive OR W and f"
6B�"11 1010 kkkk kkkk","XORLW  k  ","Exclusive OR literal and W"
@?�"[[[","[[[","EOT marker CHR$91 is ASC'Z'+1 which is a '['"
J:
^X� "80AND","81DIV","82EOR","83MOD","84OR","85ERROR","86LINE","87OFF","88STEP","89SPC"
hX� "8ATAB","8BELSE","8CTHEN","8EOPENIN","8FPTR","90PAGE","91TIME","92LOMEM","93HIMEM"
rZ� "94ABS","95ACS","96ADVAL","97ASC","98ASN","99ATN","9ABGET","9BCOS","9CCOUNT","9DDEG"
|\� "9EERL","9FERR","A0EVAL","A1EXP","A2EXT","A3FALSE","A4FN","A5GET","A6INKEY","A7INSTR("
�]� "A8INT","A9LEN","AALN","ABLOG","ACNOT","ADOPENUP","AEOPENOUT","AFPI","B0POINT(","B1POS"
�U� "B2RAD","B3RND","B4SGN","B5SIN","B6SQR","B7TAN","B8TO","B9TRUE","BAUSR","BBVAL"
�U� "BCVPOS","BDCHR$","BEGET$","BFINKEY$","C0LEFT$(","C1MID$(","C2RIGHT$(","C3STR$"
�]� "C4STRING$(","C5EOF","C6AUTO","C7DELETE","C8LOAD","C9LIST","CANEW","CBOLD","CCRENUMBER"
�X� "CDSAVE","CFPTR","D0PAGE","D1TIME","D2LOMEM","D3HIMEM","D4SOUND","D5BPUT","D6CALL"
�]� "D7CHAIN","D8CLEAR","D9CLOSE","DACLG","DBCLS","DCDATA","DDDEF","DEDIM","DFDRAW","E0END"
�[� "E1ENDPROC","E2ENVELOPE","E3FOR","E4GOSUB","E5GOTO","E6GCOL","E7IF","E8INPUT","E9LET"
�^� "EALOCAL","EBMODE","ECMOVE","EDNEXT","EEON","EFVDU","F0PLOT","F1PRINT","F2PROC","F3READ"
�`� "F4REM","F5REPEAT","F6REPORT","F7RESTORE","F8RETURN","F9RUN","FASTOP","FBCOLOUR","FCTRACE"
�#� "FDUNTIL","FEWIDTH","FFOSCLI"
�:
�,� HELP,"Gives details of available help"
?� CHAIN"filename","Loads and assembles the PIC source code"
0� LOAD"filename","Loads the PIC source code"
@� LIST [<from><,to>],"Optionally list program <from>...<to>"
&2� RUN,"Clears variables then executes program"
0#� QUIT,"Ends the PIC assembler"
�

00000000  0d 00 1e 29 f1 22 50 49  43 20 41 73 73 65 6d 62  |...)."PIC Assemb|
00000010  6c 65 72 20 56 30 2e 39  35 20 28 43 29 53 50 52  |ler V0.95 (C)SPR|
00000020  4f 57 20 31 39 39 37 22  27 0d 00 28 46 2a 4b 45  |OW 1997"'..(F*KE|
00000030  59 20 39 43 48 41 49 4e  22 41 44 46 53 3a 3a 52  |Y 9CHAIN"ADFS::R|
00000040  69 73 63 48 44 2e 24 2e  4c 61 6e 67 75 61 67 65  |iscHD.$.Language|
00000050  2e 42 61 73 69 63 56 2e  50 49 43 73 2e 4b 32 50  |.BasicV.PICs.K2P|
00000060  72 6f 6a 65 63 74 2e 4b  32 73 61 75 63 65 22 0d  |roject.K2sauce".|
00000070  00 32 05 3a 0d 00 46 0e  73 6f 75 72 63 65 24 3d  |.2.:..F.source$=|
00000080  22 22 0d 00 50 0d 6c 6f  61 64 65 64 25 3d a3 0d  |""..P.loaded%=..|
00000090  00 5a 0e 6f 70 63 6f 75  6e 74 25 3d 30 0d 00 64  |.Z.opcount%=0..d|
000000a0  0f 6b 65 79 63 6f 75 6e  74 25 3d 36 0d 00 6e 0a  |.keycount%=6..n.|
000000b0  f2 72 65 73 65 74 0d 00  78 05 3a 0d 00 8c 43 f5  |.reset..x.:...C.|
000000c0  3a f3 62 69 74 24 2c 6d  6e 65 6d 6f 6e 69 63 24  |:.bit$,mnemonic$|
000000d0  2c 6d 65 61 6e 69 6e 67  24 3a 6f 70 63 6f 75 6e  |,meaning$:opcoun|
000000e0  74 25 3d 6f 70 63 6f 75  6e 74 25 2b 31 3a fd 6d  |t%=opcount%+1:.m|
000000f0  6e 65 6d 6f 6e 69 63 24  3d 22 5b 5b 5b 22 0d 00  |nemonic$="[[["..|
00000100  96 05 f7 0d 00 a0 0e 61  6c 6c 6f 77 25 3d 31 32  |.......allow%=12|
00000110  38 0d 00 aa 44 de 62 69  74 24 28 6f 70 63 6f 75  |8...D.bit$(opcou|
00000120  6e 74 25 29 2c 6d 6e 65  6d 6f 6e 69 63 24 28 6f  |nt%),mnemonic$(o|
00000130  70 63 6f 75 6e 74 25 29  2c 6d 65 61 6e 69 6e 67  |pcount%),meaning|
00000140  24 28 6f 70 63 6f 75 6e  74 25 2b 6b 65 79 63 6f  |$(opcount%+keyco|
00000150  75 6e 74 25 29 0d 00 b4  30 de 6a 75 6d 70 74 6f  |unt%)...0.jumpto|
00000160  25 28 32 38 29 2c 74 6f  6b 65 6e 24 28 31 32 37  |%(28),token$(127|
00000170  29 2c 6b 65 79 77 6f 72  64 24 28 6b 65 79 63 6f  |),keyword$(keyco|
00000180  75 6e 74 25 29 0d 00 be  40 de 73 74 72 69 6e 67  |unt%)...@.string|
00000190  24 28 61 6c 6c 6f 77 25  29 2c 69 6e 74 65 67 65  |$(allow%),intege|
000001a0  72 25 28 61 6c 6c 6f 77  25 29 2c 72 65 61 6c 28  |r%(allow%),real(|
000001b0  61 6c 6c 6f 77 25 29 2c  6e 61 6d 65 24 28 61 6c  |allow%),name$(al|
000001c0  6c 6f 77 25 29 0d 00 c8  05 3a 0d 00 d2 15 e3 64  |low%)....:.....d|
000001d0  61 74 61 25 3d 31 b8 6f  70 63 6f 75 6e 74 25 0d  |ata%=1.opcount%.|
000001e0  00 dc 31 f3 62 69 74 24  28 64 61 74 61 25 29 2c  |..1.bit$(data%),|
000001f0  6d 6e 65 6d 6f 6e 69 63  24 28 64 61 74 61 25 29  |mnemonic$(data%)|
00000200  2c 6d 65 61 6e 69 6e 67  24 28 64 61 74 61 25 29  |,meaning$(data%)|
00000210  0d 00 e6 85 e7 c0 6d 6e  65 6d 6f 6e 69 63 24 28  |......mnemonic$(|
00000220  64 61 74 61 25 29 2c 31  29 3c 3e 64 65 6c 74 61  |data%),1)<>delta|
00000230  24 8c 6a 75 6d 70 74 6f  25 28 31 2b 97 28 64 65  |$.jumpto%(1+.(de|
00000240  6c 74 61 24 29 2d 36 34  29 3d 64 61 74 61 25 3a  |lta$)-64)=data%:|
00000250  6a 75 6d 70 74 6f 25 28  97 28 c0 6d 6e 65 6d 6f  |jumpto%(.(.mnemo|
00000260  6e 69 63 24 28 64 61 74  61 25 29 2c 31 29 29 2d  |nic$(data%),1))-|
00000270  36 34 29 3d 64 61 74 61  25 3a 64 65 6c 74 61 24  |64)=data%:delta$|
00000280  3d c0 6d 6e 65 6d 6f 6e  69 63 24 28 64 61 74 61  |=.mnemonic$(data|
00000290  25 29 2c 31 29 0d 00 f0  05 ed 0d 00 fa 05 3a 0d  |%),1).........:.|
000002a0  01 04 05 f5 0d 01 0e 27  f3 74 6f 6b 65 6e 24 3a  |.......'.token$:|
000002b0  74 6f 6b 65 6e 6e 75 6d  25 3d a0 28 22 26 22 2b  |tokennum%=.("&"+|
000002c0  c0 74 6f 6b 65 6e 24 2c  32 29 29 0d 01 18 2e 74  |.token$,2))....t|
000002d0  6f 6b 65 6e 24 28 74 6f  6b 65 6e 6e 75 6d 25 2d  |oken$(tokennum%-|
000002e0  31 32 38 29 3d c2 74 6f  6b 65 6e 24 2c a9 28 74  |128)=.token$,.(t|
000002f0  6f 6b 65 6e 24 29 2d 32  29 0d 01 22 14 fd c0 74  |oken$)-2).."...t|
00000300  6f 6b 65 6e 24 2c 32 29  3d 22 46 46 22 0d 01 2c  |oken$,2)="FF"..,|
00000310  05 3a 0d 01 36 16 e3 64  61 74 61 25 3d 31 b8 6b  |.:..6..data%=1.k|
00000320  65 79 63 6f 75 6e 74 25  0d 01 40 2d f3 6b 65 79  |eycount%..@-.key|
00000330  77 6f 72 64 24 28 64 61  74 61 25 29 2c 6d 65 61  |word$(data%),mea|
00000340  6e 69 6e 67 24 28 6f 70  63 6f 75 6e 74 25 2b 64  |ning$(opcount%+d|
00000350  61 74 61 25 29 0d 01 4a  05 ed 0d 01 54 05 3a 0d  |ata%)..J....T.:.|
00000360  01 5e 0e ee 85 f6 3a f1  9e 3a d9 23 30 0d 01 68  |.^....:..:.#0..h|
00000370  05 f5 0d 01 72 11 e8 86  22 3e 22 63 6f 6d 6d 61  |....r...">"comma|
00000380  6e 64 24 0d 01 7c 2c 63  6f 6d 6d 61 6e 64 24 3d  |nd$..|,command$=|
00000390  a4 73 74 72 69 70 6c 65  66 74 28 63 6f 6d 6d 61  |.stripleft(comma|
000003a0  6e 64 24 29 3a 73 75 70  70 6f 72 74 25 3d a3 0d  |nd$):support%=..|
000003b0  01 86 41 e7 c0 63 6f 6d  6d 61 6e 64 24 2c 34 29  |..A..command$,4)|
000003c0  3d 22 48 45 4c 50 22 8c  73 75 70 70 6f 72 74 25  |="HELP".support%|
000003d0  3d a4 68 65 6c 70 28 c2  63 6f 6d 6d 61 6e 64 24  |=.help(.command$|
000003e0  2c a9 28 63 6f 6d 6d 61  6e 64 24 29 2d 34 29 29  |,.(command$)-4))|
000003f0  0d 01 90 43 e7 c0 63 6f  6d 6d 61 6e 64 24 2c 35  |...C..command$,5|
00000400  29 3d 22 43 48 41 49 4e  22 8c 73 75 70 70 6f 72  |)="CHAIN".suppor|
00000410  74 25 3d a4 63 68 61 69  6e 28 c2 63 6f 6d 6d 61  |t%=.chain(.comma|
00000420  6e 64 24 2c a9 28 63 6f  6d 6d 61 6e 64 24 29 2d  |nd$,.(command$)-|
00000430  35 29 29 0d 01 9a 41 e7  c0 63 6f 6d 6d 61 6e 64  |5))...A..command|
00000440  24 2c 34 29 3d 22 4c 4f  41 44 22 8c 73 75 70 70  |$,4)="LOAD".supp|
00000450  6f 72 74 25 3d a4 6c 6f  61 64 28 c2 63 6f 6d 6d  |ort%=.load(.comm|
00000460  61 6e 64 24 2c a9 28 63  6f 6d 6d 61 6e 64 24 29  |and$,.(command$)|
00000470  2d 34 29 29 0d 01 a4 41  e7 c0 63 6f 6d 6d 61 6e  |-4))...A..comman|
00000480  64 24 2c 34 29 3d 22 4c  49 53 54 22 8c 73 75 70  |d$,4)="LIST".sup|
00000490  70 6f 72 74 25 3d a4 6c  69 73 74 28 c2 63 6f 6d  |port%=.list(.com|
000004a0  6d 61 6e 64 24 2c a9 28  63 6f 6d 6d 61 6e 64 24  |mand$,.(command$|
000004b0  29 2d 34 29 29 0d 01 ae  41 e7 c0 63 6f 6d 6d 61  |)-4))...A..comma|
000004c0  6e 64 24 2c 34 29 3d 22  51 55 49 54 22 8c 73 75  |nd$,4)="QUIT".su|
000004d0  70 70 6f 72 74 25 3d a4  71 75 69 74 28 c2 63 6f  |pport%=.quit(.co|
000004e0  6d 6d 61 6e 64 24 2c a9  28 63 6f 6d 6d 61 6e 64  |mmand$,.(command|
000004f0  24 29 2d 34 29 29 0d 01  b8 3f e7 c0 63 6f 6d 6d  |$)-4))...?..comm|
00000500  61 6e 64 24 2c 33 29 3d  22 52 55 4e 22 8c 73 75  |and$,3)="RUN".su|
00000510  70 70 6f 72 74 25 3d a4  72 75 6e 28 c2 63 6f 6d  |pport%=.run(.com|
00000520  6d 61 6e 64 24 2c a9 28  63 6f 6d 6d 61 6e 64 24  |mand$,.(command$|
00000530  29 2d 33 29 29 0d 01 c2  3f e7 c0 63 6f 6d 6d 61  |)-3))...?..comma|
00000540  6e 64 24 2c 31 29 3d 22  2a 22 8c 73 75 70 70 6f  |nd$,1)="*".suppo|
00000550  72 74 25 3d a4 6f 73 63  6c 69 28 c2 63 6f 6d 6d  |rt%=.oscli(.comm|
00000560  61 6e 64 24 2c a9 28 63  6f 6d 6d 61 6e 64 24 29  |and$,.(command$)|
00000570  2d 31 29 29 0d 01 cc 35  e7 73 75 70 70 6f 72 74  |-1))...5.support|
00000580  25 3d a3 80 a9 63 6f 6d  6d 61 6e 64 24 3e 30 8c  |%=...command$>0.|
00000590  f1 27 22 43 6f 6d 6d 61  6e 64 20 6e 6f 74 20 73  |.'"Command not s|
000005a0  75 70 70 6f 72 74 65 64  22 0d 01 d6 1f fd a4 6e  |upported"......n|
000005b0  6f 73 70 61 63 65 73 28  63 6f 6d 6d 61 6e 64 24  |ospaces(command$|
000005c0  29 3d 22 51 55 49 54 22  0d 01 e0 05 e0 0d 01 ea  |)="QUIT"........|
000005d0  05 3a 0d 01 f4 17 dd a4  6f 73 63 6c 69 28 70 61  |.:......oscli(pa|
000005e0  72 61 6d 65 74 65 72 24  29 0d 01 fe 0f ff 70 61  |rameter$).....pa|
000005f0  72 61 6d 65 74 65 72 24  0d 02 08 06 3d b9 0d 02  |rameter$....=...|
00000600  12 05 3a 0d 02 1c 16 dd  a4 71 75 69 74 28 70 61  |..:......quit(pa|
00000610  72 61 6d 65 74 65 72 24  29 0d 02 26 32 e7 a4 6e  |rameter$)..&2..n|
00000620  6f 73 70 61 63 65 73 28  70 61 72 61 6d 65 74 65  |ospaces(paramete|
00000630  72 24 29 3c 3e 22 22 8c  f1 27 22 53 79 6e 74 61  |r$)<>""..'"Synta|
00000640  78 20 65 72 72 6f 72 22  3a 3d b9 0d 02 30 4a ff  |x error":=...0J.|
00000650  28 22 53 41 56 45 20 66  72 6f 6d 31 30 30 20 22  |("SAVE from100 "|
00000660  2b c3 7e 28 63 6f 64 65  25 29 2b 22 20 2b 22 2b  |+.~(code%)+" +"+|
00000670  c3 7e 28 32 2a a4 66 69  6e 64 76 61 6c 75 65 28  |.~(2*.findvalue(|
00000680  22 50 25 22 29 29 2b 22  20 30 20 46 46 46 46 46  |"P%"))+" 0 FFFFF|
00000690  38 30 30 22 29 0d 02 3a  06 3d b9 0d 02 44 05 3a  |800")..:.=...D.:|
000006a0  0d 02 4e 15 dd a4 72 75  6e 28 70 61 72 61 6d 65  |..N...run(parame|
000006b0  74 65 72 24 29 0d 02 58  32 e7 a4 6e 6f 73 70 61  |ter$)..X2..nospa|
000006c0  63 65 73 28 70 61 72 61  6d 65 74 65 72 24 29 3c  |ces(parameter$)<|
000006d0  3e 22 22 8c f1 27 22 53  79 6e 74 61 78 20 65 72  |>""..'"Syntax er|
000006e0  72 6f 72 22 3a 3d b9 0d  02 62 27 e7 6c 6f 61 64  |ror":=...b'.load|
000006f0  65 64 25 3d a3 8c f1 27  22 4e 6f 20 70 72 6f 67  |ed%=...'"No prog|
00000700  72 61 6d 20 6c 6f 61 64  65 64 22 3a 3d b9 0d 02  |ram loaded":=...|
00000710  6c 1c 3d a4 63 68 61 69  6e 28 bd 33 34 2b 73 6f  |l.=.chain(.34+so|
00000720  75 72 63 65 24 2b bd 33  34 29 0d 02 76 05 3a 0d  |urce$+.34)..v.:.|
00000730  02 80 16 dd a4 68 65 6c  70 28 70 61 72 61 6d 65  |.....help(parame|
00000740  74 65 72 24 29 0d 02 8a  1b ea 64 61 74 61 25 2c  |ter$).....data%,|
00000750  66 6f 75 6e 64 25 2c 6d  6e 65 6d 6f 6e 69 63 24  |found%,mnemonic$|
00000760  0d 02 94 0c 66 6f 75 6e  64 25 3d a3 0d 02 9e 24  |....found%=....$|
00000770  70 61 72 61 6d 65 74 65  72 24 3d a4 6e 6f 73 70  |parameter$=.nosp|
00000780  61 63 65 73 28 70 61 72  61 6d 65 74 65 72 24 29  |aces(parameter$)|
00000790  0d 02 b2 72 e7 70 61 72  61 6d 65 74 65 72 24 3d  |...r.parameter$=|
000007a0  22 22 8c f1 22 48 65 6c  70 20 69 73 20 61 76 61  |"".."Help is ava|
000007b0  69 6c 61 62 6c 65 20 6f  6e 20 74 68 65 20 66 6f  |ilable on the fo|
000007c0  6c 6c 6f 77 69 6e 67 3a  22 27 22 48 45 4c 50 20  |llowing:"'"HELP |
000007d0  3c 61 73 73 65 6d 62 6c  65 72 20 6d 6e 65 6d 6f  |<assembler mnemo|
000007e0  6e 69 63 3e 22 27 22 48  45 4c 50 20 3c 63 6f 6d  |nic>"'"HELP <com|
000007f0  6d 61 6e 64 3e 22 27 22  48 45 4c 50 20 2e 22 3a  |mand>"'"HELP .":|
00000800  3d b9 0d 02 c6 33 e7 70  61 72 61 6d 65 74 65 72  |=....3.parameter|
00000810  24 3d 22 2e 22 8c ef 31  34 3a f1 22 48 65 6c 70  |$="."..14:."Help|
00000820  20 77 69 74 68 20 74 68  65 20 61 73 73 65 6d 62  | with the assemb|
00000830  6c 65 72 3a 22 0d 02 d0  19 e3 64 61 74 61 25 3d  |ler:".....data%=|
00000840  31 b8 28 6f 70 63 6f 75  6e 74 25 2d 31 29 0d 02  |1.(opcount%-1)..|
00000850  da 28 6d 6e 65 6d 6f 6e  69 63 24 3d a4 69 73 6f  |.(mnemonic$=.iso|
00000860  6c 61 74 65 28 6d 6e 65  6d 6f 6e 69 63 24 28 64  |late(mnemonic$(d|
00000870  61 74 61 25 29 29 0d 02  e4 70 e7 6d 6e 65 6d 6f  |ata%))...p.mnemo|
00000880  6e 69 63 24 3d a4 75 63  61 73 65 28 c0 70 61 72  |nic$=.ucase(.par|
00000890  61 6d 65 74 65 72 24 2c  a9 28 6d 6e 65 6d 6f 6e  |ameter$,.(mnemon|
000008a0  69 63 24 29 29 29 84 70  61 72 61 6d 65 74 65 72  |ic$))).parameter|
000008b0  24 3d 22 2e 22 8c f1 6d  6e 65 6d 6f 6e 69 63 24  |$="."..mnemonic$|
000008c0  28 64 61 74 61 25 29 3b  22 20 2d 20 22 3b 6d 65  |(data%);" - ";me|
000008d0  61 6e 69 6e 67 24 28 64  61 74 61 25 29 3a 66 6f  |aning$(data%):fo|
000008e0  75 6e 64 25 3d b9 0d 02  ee 05 ed 0d 03 02 39 e7  |und%=.........9.|
000008f0  70 61 72 61 6d 65 74 65  72 24 3d 22 2e 22 8c f1  |parameter$="."..|
00000900  27 22 48 65 6c 70 20 77  69 74 68 20 74 68 65 20  |'"Help with the |
00000910  61 76 61 69 6c 61 62 6c  65 20 6b 65 79 77 6f 72  |available keywor|
00000920  64 73 3a 22 0d 03 0c 16  e3 64 61 74 61 25 3d 31  |ds:".....data%=1|
00000930  b8 6b 65 79 63 6f 75 6e  74 25 0d 03 16 77 e7 c0  |.keycount%...w..|
00000940  6b 65 79 77 6f 72 64 24  28 64 61 74 61 25 29 2c  |keyword$(data%),|
00000950  a9 28 70 61 72 61 6d 65  74 65 72 24 29 29 3d 70  |.(parameter$))=p|
00000960  61 72 61 6d 65 74 65 72  24 84 70 61 72 61 6d 65  |arameter$.parame|
00000970  74 65 72 24 3d 22 2e 22  8c f1 6b 65 79 77 6f 72  |ter$="."..keywor|
00000980  64 24 28 64 61 74 61 25  29 3b 22 20 2d 20 22 3b  |d$(data%);" - ";|
00000990  6d 65 61 6e 69 6e 67 24  28 6f 70 63 6f 75 6e 74  |meaning$(opcount|
000009a0  25 2b 64 61 74 61 25 29  3a 66 6f 75 6e 64 25 3d  |%+data%):found%=|
000009b0  b9 0d 03 20 05 ed 0d 03  2a 31 e7 66 6f 75 6e 64  |... ....*1.found|
000009c0  25 3d a3 8c f1 27 22 4e  6f 20 68 65 6c 70 20 61  |%=...'"No help a|
000009d0  76 61 69 6c 61 62 6c 65  20 6f 6e 20 74 68 61 74  |vailable on that|
000009e0  20 74 6f 70 69 63 22 0d  03 34 06 3d b9 0d 03 3e  | topic"..4.=...>|
000009f0  05 3a 0d 03 48 16 dd a4  6c 6f 61 64 28 70 61 72  |.:..H...load(par|
00000a00  61 6d 65 74 65 72 24 29  0d 03 52 25 70 61 72 61  |ameter$)..R%para|
00000a10  6d 65 74 65 72 24 3d a4  73 74 72 69 70 6c 65 66  |meter$=.striplef|
00000a20  74 28 70 61 72 61 6d 65  74 65 72 24 29 0d 03 66  |t(parameter$)..f|
00000a30  30 e7 c0 70 61 72 61 6d  65 74 65 72 24 2c 31 29  |0..parameter$,1)|
00000a40  3c 3e bd 33 34 8c f1 27  22 4e 6f 20 73 75 63 68  |<>.34..'"No such|
00000a50  20 76 61 72 69 61 62 6c  65 22 3a 3d b9 0d 03 7a  | variable":=...z|
00000a60  31 6c 61 73 74 64 69 74  74 6f 25 3d a7 c2 70 61  |1lastditto%=..pa|
00000a70  72 61 6d 65 74 65 72 24  2c a9 28 70 61 72 61 6d  |rameter$,.(param|
00000a80  65 74 65 72 24 29 2d 31  29 2c bd 33 34 29 0d 03  |eter$)-1),.34)..|
00000a90  84 25 e7 6c 61 73 74 64  69 74 74 6f 25 3d 30 8c  |.%.lastditto%=0.|
00000aa0  f1 27 22 4d 69 73 73 69  6e 67 20 22 2b bd 33 34  |.'"Missing "+.34|
00000ab0  3a 3d b9 0d 03 98 4d e7  a9 28 a4 61 6e 79 6d 6f  |:=....M..(.anymo|
00000ac0  72 65 28 c2 70 61 72 61  6d 65 74 65 72 24 2c a9  |re(.parameter$,.|
00000ad0  28 70 61 72 61 6d 65 74  65 72 24 29 2d 6c 61 73  |(parameter$)-las|
00000ae0  74 64 69 74 74 6f 25 29  29 29 3d 30 8c f1 27 22  |tditto%)))=0..'"|
00000af0  53 79 6e 74 61 78 20 65  72 72 6f 72 22 3a 3d b9  |Syntax error":=.|
00000b00  0d 03 a2 27 69 6e 25 3d  8e c1 70 61 72 61 6d 65  |...'in%=..parame|
00000b10  74 65 72 24 2c 32 2c a9  28 70 61 72 61 6d 65 74  |ter$,2,.(paramet|
00000b20  65 72 24 29 2d 32 29 0d  03 ac 20 e7 69 6e 25 3d  |er$)-2)... .in%=|
00000b30  30 8c f1 27 22 46 69 6c  65 20 6e 6f 74 20 66 6f  |0..'"File not fo|
00000b40  75 6e 64 22 3a 3d b9 0d  03 b6 31 e7 9a 23 69 6e  |und":=....1..#in|
00000b50  25 3c 3e 31 33 8c f1 27  22 42 61 64 20 70 72 6f  |%<>13..'"Bad pro|
00000b60  67 72 61 6d 22 3a 6c 6f  61 64 65 64 25 3d a3 3a  |gram":loaded%=.:|
00000b70  d9 23 69 6e 25 3a 3d b9  0d 03 c0 13 cf 23 69 6e  |.#in%:=......#in|
00000b80  25 3d 28 a2 23 69 6e 25  29 2d 31 0d 03 ca 32 e7  |%=(.#in%)-1...2.|
00000b90  9a 23 69 6e 25 3c 3e 32  35 35 8c f1 27 22 42 61  |.#in%<>255..'"Ba|
00000ba0  64 20 70 72 6f 67 72 61  6d 22 3a 6c 6f 61 64 65  |d program":loade|
00000bb0  64 25 3d a3 3a d9 23 69  6e 25 3a 3d b9 0d 03 d4  |d%=.:.#in%:=....|
00000bc0  3a 6c 6f 61 64 65 64 25  3d b9 3a d9 23 69 6e 25  |:loaded%=.:.#in%|
00000bd0  3a 73 6f 75 72 63 65 24  3d c1 70 61 72 61 6d 65  |:source$=.parame|
00000be0  74 65 72 24 2c 32 2c a9  28 70 61 72 61 6d 65 74  |ter$,2,.(paramet|
00000bf0  65 72 24 29 2d 32 29 0d  03 de 0a f2 72 65 73 65  |er$)-2).....rese|
00000c00  74 0d 03 e8 06 3d b9 0d  03 f2 05 3a 0d 03 fc 16  |t....=.....:....|
00000c10  dd a4 6c 69 73 74 28 70  61 72 61 6d 65 74 65 72  |..list(parameter|
00000c20  24 29 0d 04 10 4e ea 6c  6f 25 2c 68 69 25 2c 6c  |$)...N.lo%,hi%,l|
00000c30  69 6e 65 6e 75 6d 24 2c  6c 69 6e 65 6e 75 6d 25  |inenum$,linenum%|
00000c40  2c 6d 69 6e 6c 69 6e 65  25 2c 6d 61 78 6c 69 6e  |,minline%,maxlin|
00000c50  65 25 2c 72 61 6e 67 65  68 69 24 2c 72 61 6e 67  |e%,rangehi$,rang|
00000c60  65 6c 6f 24 2c 77 6f 72  6b 25 2c 62 79 74 65 25  |elo$,work%,byte%|
00000c70  0d 04 24 47 72 61 6e 67  65 6c 6f 24 3d a4 70 6f  |..$Grangelo$=.po|
00000c80  70 6e 65 78 74 28 70 61  72 61 6d 65 74 65 72 24  |pnext(parameter$|
00000c90  2c 22 2c 22 29 3a 72 61  6e 67 65 68 69 24 3d a4  |,","):rangehi$=.|
00000ca0  70 6f 70 6e 65 78 74 28  70 61 72 61 6d 65 74 65  |popnext(paramete|
00000cb0  72 24 2c 22 2c 22 29 0d  04 2e 2e e7 72 61 6e 67  |r$,",").....rang|
00000cc0  65 6c 6f 24 3c 3e 22 22  80 72 61 6e 67 65 68 69  |elo$<>"".rangehi|
00000cd0  24 3d 22 22 8c 72 61 6e  67 65 68 69 24 3d 22 26  |$="".rangehi$="&|
00000ce0  38 30 30 30 22 0d 04 38  4e e7 72 61 6e 67 65 68  |8000"..8N.rangeh|
00000cf0  69 24 2b 72 61 6e 67 65  6c 6f 24 3d 22 22 8c 6d  |i$+rangelo$="".m|
00000d00  61 78 6c 69 6e 65 25 3d  26 38 30 30 30 8b 6d 69  |axline%=&8000.mi|
00000d10  6e 6c 69 6e 65 25 3d a0  72 61 6e 67 65 6c 6f 24  |nline%=.rangelo$|
00000d20  3a 6d 61 78 6c 69 6e 65  25 3d a0 72 61 6e 67 65  |:maxline%=.range|
00000d30  68 69 24 0d 04 42 27 e7  6c 6f 61 64 65 64 25 3d  |hi$..B'.loaded%=|
00000d40  a3 8c f1 27 22 4e 6f 20  70 72 6f 67 72 61 6d 20  |...'"No program |
00000d50  6c 6f 61 64 65 64 22 3a  3d b9 0d 04 4c 23 70 6f  |loaded":=...L#po|
00000d60  69 6e 74 65 72 25 3d 31  3a 69 6e 25 3d 8e 73 6f  |inter%=1:in%=.so|
00000d70  75 72 63 65 24 3a cf 23  69 6e 25 3d 31 0d 04 56  |urce$:.#in%=1..V|
00000d80  05 f5 0d 04 60 48 68 69  25 3d 9a 23 69 6e 25 3a  |....`Hhi%=.#in%:|
00000d90  6c 6f 25 3d 9a 23 69 6e  25 3a 6c 69 6e 65 6e 75  |lo%=.#in%:linenu|
00000da0  6d 24 3d c3 28 6c 6f 25  2b 28 68 69 25 2a 32 35  |m$=.(lo%+(hi%*25|
00000db0  36 29 29 3a 6c 69 6e 65  6e 75 6d 25 3d 6c 6f 25  |6)):linenum%=lo%|
00000dc0  2b 28 68 69 25 2a 32 35  36 29 0d 04 6a 53 e7 28  |+(hi%*256)..jS.(|
00000dd0  6c 69 6e 65 6e 75 6d 25  3e 3d 6d 69 6e 6c 69 6e  |linenum%>=minlin|
00000de0  65 25 29 80 28 6c 69 6e  65 6e 75 6d 25 3c 3d 6d  |e%).(linenum%<=m|
00000df0  61 78 6c 69 6e 65 25 29  8c f1 c4 35 2d a9 28 c3  |axline%)...5-.(.|
00000e00  28 6c 69 6e 65 6e 75 6d  25 29 29 2c 22 20 22 29  |(linenum%))," ")|
00000e10  3b c3 28 6c 69 6e 65 6e  75 6d 25 29 3b 0d 04 74  |;.(linenum%);..t|
00000e20  26 70 6f 69 6e 74 65 72  25 3d 70 6f 69 6e 74 65  |&pointer%=pointe|
00000e30  72 25 2b 33 3a cf 23 69  6e 25 3d 70 6f 69 6e 74  |r%+3:.#in%=point|
00000e40  65 72 25 0d 04 7e 05 f5  0d 04 88 0f 62 79 74 65  |er%..~......byte|
00000e50  25 3d 9a 23 69 6e 25 0d  04 92 40 e7 28 6c 69 6e  |%=.#in%...@.(lin|
00000e60  65 6e 75 6d 25 3c 6d 69  6e 6c 69 6e 65 25 29 84  |enum%<minline%).|
00000e70  28 6c 69 6e 65 6e 75 6d  25 3e 6d 61 78 6c 69 6e  |(linenum%>maxlin|
00000e80  65 25 29 8c 77 6f 72 6b  25 3d 30 8b 77 6f 72 6b  |e%).work%=0.work|
00000e90  25 3d 62 79 74 65 25 0d  04 9c 2c e7 77 6f 72 6b  |%=byte%...,.work|
00000ea0  25 3c 31 32 37 8c ef 77  6f 72 6b 25 8b f1 3b a4  |%<127..work%..;.|
00000eb0  75 6e 70 61 63 6b 74 6f  6b 65 6e 28 77 6f 72 6b  |unpacktoken(work|
00000ec0  25 29 3b 0d 04 a6 17 70  6f 69 6e 74 65 72 25 3d  |%);....pointer%=|
00000ed0  70 6f 69 6e 74 65 72 25  2b 31 0d 04 b0 21 fd 62  |pointer%+1...!.b|
00000ee0  79 74 65 25 3d 31 33 84  70 6f 69 6e 74 65 72 25  |yte%=13.pointer%|
00000ef0  3e 3d 28 a2 23 69 6e 25  2d 31 29 0d 04 ba 30 e7  |>=(.#in%-1)...0.|
00000f00  28 6c 69 6e 65 6e 75 6d  25 3e 3d 6d 69 6e 6c 69  |(linenum%>=minli|
00000f10  6e 65 25 29 80 28 6c 69  6e 65 6e 75 6d 25 3c 3d  |ne%).(linenum%<=|
00000f20  6d 61 78 6c 69 6e 65 25  29 8c f1 0d 04 c4 25 e7  |maxline%).....%.|
00000f30  6c 69 6e 65 6e 75 6d 25  3e 6d 61 78 6c 69 6e 65  |linenum%>maxline|
00000f40  25 8c 70 6f 69 6e 74 65  72 25 3d a2 23 69 6e 25  |%.pointer%=.#in%|
00000f50  0d 04 ce 18 fd 70 6f 69  6e 74 65 72 25 3e 3d 28  |.....pointer%>=(|
00000f60  a2 23 69 6e 25 2d 31 29  0d 04 d8 09 d9 23 69 6e  |.#in%-1).....#in|
00000f70  25 0d 04 e2 06 3d b9 0d  04 ec 05 3a 0d 04 f6 17  |%....=.....:....|
00000f80  dd a4 63 68 61 69 6e 28  70 61 72 61 6d 65 74 65  |..chain(paramete|
00000f90  72 24 29 0d 05 00 18 ea  62 79 74 65 25 2c 77 6f  |r$).....byte%,wo|
00000fa0  72 6b 24 2c 73 74 61 74  75 73 25 0d 05 0a 1d 73  |rk$,status%....s|
00000fb0  74 61 74 75 73 25 3d a4  6c 6f 61 64 28 70 61 72  |tatus%=.load(par|
00000fc0  61 6d 65 74 65 72 24 29  0d 05 14 17 e7 6c 6f 61  |ameter$).....loa|
00000fd0  64 65 64 25 3d a3 84 69  6e 25 3d 30 8c 3d b9 0d  |ded%=..in%=0.=..|
00000fe0  05 1e 18 69 6e 25 3d 8e  73 6f 75 72 63 65 24 3a  |...in%=.source$:|
00000ff0  cf 23 69 6e 25 3d 31 0d  05 28 05 f5 0d 05 32 0c  |.#in%=1..(....2.|
00001000  77 6f 72 6b 24 3d 22 22  0d 05 3c 05 f5 0d 05 46  |work$=""..<....F|
00001010  36 62 79 74 65 25 3d 9a  23 69 6e 25 3a 77 6f 72  |6byte%=.#in%:wor|
00001020  6b 24 3d 77 6f 72 6b 24  2b bd 62 79 74 65 25 3a  |k$=work$+.byte%:|
00001030  70 6f 69 6e 74 65 72 25  3d 70 6f 69 6e 74 65 72  |pointer%=pointer|
00001040  25 2b 31 0d 05 50 2b fd  28 62 79 74 65 25 3d 31  |%+1..P+.(byte%=1|
00001050  33 80 a9 77 6f 72 6b 24  3e 33 29 84 28 70 6f 69  |3..work$>3).(poi|
00001060  6e 74 65 72 25 3d a2 23  69 6e 25 2d 31 29 0d 05  |nter%=.#in%-1)..|
00001070  5a 2a 77 6f 72 6b 24 3d  a4 73 74 72 69 70 6c 65  |Z*work$=.striple|
00001080  66 74 28 c1 77 6f 72 6b  24 2c 34 2c a9 28 77 6f  |ft(.work$,4,.(wo|
00001090  72 6b 24 29 2d 34 29 29  0d 05 64 32 e7 97 77 6f  |rk$)-4))..d2..wo|
000010a0  72 6b 24 3d 97 22 5b 22  84 97 77 6f 72 6b 24 3d  |rk$=."["..work$=|
000010b0  97 22 5d 22 8c 69 6e 61  73 6d 25 3d b4 28 97 77  |."]".inasm%=.(.w|
000010c0  6f 72 6b 24 2d 97 22 5d  22 29 0d 05 6e 41 e7 69  |ork$-."]")..nA.i|
000010d0  6e 61 73 6d 25 3d a3 8c  73 74 61 74 75 73 25 3d  |nasm%=..status%=|
000010e0  a4 62 61 73 69 63 6d 6f  64 65 28 77 6f 72 6b 24  |.basicmode(work$|
000010f0  29 8b 73 74 61 74 75 73  25 3d a4 69 6e 61 73 6d  |).status%=.inasm|
00001100  6d 6f 64 65 28 77 6f 72  6b 24 29 0d 05 78 22 fd  |mode(work$)..x".|
00001110  70 6f 69 6e 74 65 72 25  3e 3d 28 a2 23 69 6e 25  |pointer%>=(.#in%|
00001120  2d 31 29 84 73 74 61 74  75 73 25 3d a3 0d 05 82  |-1).status%=....|
00001130  09 d9 23 69 6e 25 0d 05  8c 06 3d b9 0d 05 96 05  |..#in%....=.....|
00001140  3a 0d 05 a0 0b dd f2 72  65 73 65 74 0d 05 b4 0e  |:......reset....|
00001150  70 6f 69 6e 74 65 72 25  3d 30 0d 05 be 0c 69 6e  |pointer%=0....in|
00001160  61 73 6d 25 3d a3 0d 05  c8 0a 66 73 70 25 3d 30  |asm%=.....fsp%=0|
00001170  0d 05 d2 0b 66 6f 72 24  3d 22 22 0d 05 dc 0b 63  |....for$=""....c|
00001180  6f 64 65 25 3d 30 0d 05  e6 17 73 25 3d 30 3a 69  |ode%=0....s%=0:i|
00001190  25 3d 30 3a 72 25 3d 30  3a 6e 25 3d 30 0d 05 f0  |%=0:r%=0:n%=0...|
000011a0  0e 64 65 6c 74 61 24 3d  22 40 22 0d 05 fa 0d 6f  |.delta$="@"....o|
000011b0  70 74 69 6f 6e 25 3d 30  0d 06 04 05 e1 0d 06 0e  |ption%=0........|
000011c0  05 3a 0d 06 22 05 3a 0d  06 2c 18 dd a4 62 61 73  |.:..".:..,...bas|
000011d0  69 63 6d 6f 64 65 28 73  74 72 69 6e 67 24 29 0d  |icmode(string$).|
000011e0  06 40 17 ea 62 79 74 65  25 2c 74 6f 6b 65 6e 24  |.@..byte%,token$|
000011f0  2c 77 6f 72 6b 24 0d 06  4a 18 62 79 74 65 25 3d  |,work$..J.byte%=|
00001200  97 28 c0 73 74 72 69 6e  67 24 2c 31 29 29 0d 06  |.(.string$,1))..|
00001210  54 42 e7 62 79 74 65 25  3e 31 32 37 80 62 79 74  |TB.byte%>127.byt|
00001220  65 25 3c 3e 26 38 44 8c  74 6f 6b 65 6e 24 3d a4  |e%<>&8D.token$=.|
00001230  75 6e 70 61 63 6b 74 6f  6b 65 6e 28 62 79 74 65  |unpacktoken(byte|
00001240  25 29 8b 74 6f 6b 65 6e  24 3d bd 62 79 74 65 25  |%).token$=.byte%|
00001250  0d 06 5e 1f 77 6f 72 6b  24 3d a4 70 6f 70 6e 65  |..^.work$=.popne|
00001260  78 74 28 73 74 72 69 6e  67 24 2c 22 3a 22 29 0d  |xt(string$,":").|
00001270  06 68 33 e7 74 6f 6b 65  6e 24 3d 22 52 45 4d 22  |.h3.token$="REM"|
00001280  84 74 6f 6b 65 6e 24 3d  22 3a 22 84 74 6f 6b 65  |.token$=":".toke|
00001290  6e 24 3d 22 5d 22 84 62  79 74 65 25 3d 2d 31 8c  |n$="]".byte%=-1.|
000012a0  3d b9 0d 06 72 1e e7 74  6f 6b 65 6e 24 3d 22 44  |=...r..token$="D|
000012b0  49 4d 22 8c 3d a4 64 69  6d 28 77 6f 72 6b 24 29  |IM".=.dim(work$)|
000012c0  0d 06 7c 1e e7 74 6f 6b  65 6e 24 3d 22 46 4f 52  |..|..token$="FOR|
000012d0  22 8c 3d a4 66 6f 72 28  77 6f 72 6b 24 29 0d 06  |".=.for(work$)..|
000012e0  86 19 e7 74 6f 6b 65 6e  24 3d 22 4e 45 58 54 22  |...token$="NEXT"|
000012f0  8c 3d a4 6e 65 78 74 0d  06 90 4f e7 62 79 74 65  |.=.next...O.byte|
00001300  25 3c 31 32 37 80 77 6f  72 6b 24 3c 3e 22 22 8c  |%<127.work$<>"".|
00001310  f2 61 73 73 69 67 6e 76  61 72 69 61 62 6c 65 28  |.assignvariable(|
00001320  77 6f 72 6b 24 29 3a 3d  b9 8b f1 27 22 43 6f 6d  |work$):=...'"Com|
00001330  6d 61 6e 64 20 6e 6f 74  20 73 75 70 70 6f 72 74  |mand not support|
00001340  65 64 22 3a 3d a3 0d 06  9a 05 3a 0d 06 a4 18 dd  |ed":=.....:.....|
00001350  a4 69 6e 61 73 6d 6d 6f  64 65 28 73 74 72 69 6e  |.inasmmode(strin|
00001360  67 24 29 0d 06 ae 28 ea  64 61 74 61 25 2c 62 79  |g$)...(.data%,by|
00001370  74 65 25 2c 66 6f 75 6e  64 25 2c 69 6e 69 74 69  |te%,found%,initi|
00001380  61 6c 25 2c 6e 75 6d 62  65 72 25 0d 06 c2 15 e3  |al%,number%.....|
00001390  64 61 74 61 25 3d 31 b8  a9 73 74 72 69 6e 67 24  |data%=1..string$|
000013a0  0d 06 cc 1e 62 79 74 65  25 3d 97 28 c1 73 74 72  |....byte%=.(.str|
000013b0  69 6e 67 24 2c 64 61 74  61 25 2c 31 29 29 0d 06  |ing$,data%,1))..|
000013c0  d6 60 e7 62 79 74 65 25  3e 31 32 37 80 62 79 74  |.`.byte%>127.byt|
000013d0  65 25 3c 3e 26 38 44 8c  73 74 72 69 6e 67 24 3d  |e%<>&8D.string$=|
000013e0  c0 73 74 72 69 6e 67 24  2c 64 61 74 61 25 2d 31  |.string$,data%-1|
000013f0  29 2b a4 75 6e 70 61 63  6b 74 6f 6b 65 6e 28 62  |)+.unpacktoken(b|
00001400  79 74 65 25 29 2b c2 73  74 72 69 6e 67 24 2c a9  |yte%)+.string$,.|
00001410  73 74 72 69 6e 67 24 2d  64 61 74 61 25 29 0d 06  |string$-data%)..|
00001420  e0 05 ed 0d 06 ea 59 e7  28 6f 70 74 69 6f 6e 25  |......Y.(option%|
00001430  80 32 29 3d 32 8c 6e 75  6d 62 65 72 25 3d a4 66  |.2)=2.number%=.f|
00001440  69 6e 64 76 61 6c 75 65  28 22 50 25 22 29 3a f1  |indvalue("P%"):.|
00001450  c4 34 2d a9 28 c3 7e 28  6e 75 6d 62 65 72 25 29  |.4-.(.~(number%)|
00001460  29 2c 22 30 22 29 3b c3  7e 6e 75 6d 62 65 72 25  |),"0");.~number%|
00001470  3b 22 20 22 3b 73 74 72  69 6e 67 24 0d 06 f4 2d  |;" ";string$...-|
00001480  73 74 72 69 6e 67 24 3d  a4 73 74 72 69 70 6c 65  |string$=.striple|
00001490  66 74 28 a4 70 6f 70 6e  65 78 74 28 73 74 72 69  |ft(.popnext(stri|
000014a0  6e 67 24 2c 22 5c 22 29  29 0d 06 fe 2b e7 c0 73  |ng$,"\"))...+..s|
000014b0  74 72 69 6e 67 24 2c 31  29 3d 22 2e 22 8c 3d a4  |tring$,1)=".".=.|
000014c0  61 73 73 69 67 6e 6c 61  62 65 6c 28 73 74 72 69  |assignlabel(stri|
000014d0  6e 67 24 29 0d 07 08 3f  e7 c0 73 74 72 69 6e 67  |ng$)...?..string|
000014e0  24 2c 31 29 3d 22 5b 22  8c 73 74 72 69 6e 67 24  |$,1)="[".string$|
000014f0  3d a4 70 6f 70 6e 65 78  74 28 c2 73 74 72 69 6e  |=.popnext(.strin|
00001500  67 24 2c a9 73 74 72 69  6e 67 24 2d 31 29 2c 22  |g$,.string$-1),"|
00001510  5c 22 29 0d 07 12 30 e7  a7 a4 75 63 61 73 65 28  |\")...0...ucase(|
00001520  73 74 72 69 6e 67 24 29  2c 22 4f 50 54 22 29 3d  |string$),"OPT")=|
00001530  31 8c 3d a4 6f 70 74 69  6f 6e 28 73 74 72 69 6e  |1.=.option(strin|
00001540  67 24 29 0d 07 1c 2b e7  a7 a4 75 63 61 73 65 28  |g$)...+...ucase(|
00001550  73 74 72 69 6e 67 24 29  2c 22 45 51 55 22 29 3d  |string$),"EQU")=|
00001560  31 8c f1 27 22 53 69 6c  6c 79 22 3a 3d a3 0d 07  |1..'"Silly":=...|
00001570  26 1f 69 6e 69 74 69 61  6c 25 3d 97 28 a4 75 63  |&.initial%=.(.uc|
00001580  61 73 65 28 73 74 72 69  6e 67 24 29 29 0d 07 30  |ase(string$))..0|
00001590  23 e7 69 6e 69 74 69 61  6c 25 3e 97 22 5a 22 84  |#.initial%>."Z".|
000015a0  69 6e 69 74 69 61 6c 25  3c 97 22 41 22 8c 3d b9  |initial%<."A".=.|
000015b0  0d 07 44 36 e3 64 61 74  61 25 3d 6a 75 6d 70 74  |..D6.data%=jumpt|
000015c0  6f 25 28 69 6e 69 74 69  61 6c 25 2d 36 34 29 b8  |o%(initial%-64).|
000015d0  6a 75 6d 70 74 6f 25 28  31 2b 69 6e 69 74 69 61  |jumpto%(1+initia|
000015e0  6c 25 2d 36 34 29 0d 07  4e 28 6d 6e 65 6d 6f 6e  |l%-64)..N(mnemon|
000015f0  69 63 24 3d a4 69 73 6f  6c 61 74 65 28 6d 6e 65  |ic$=.isolate(mne|
00001600  6d 6f 6e 69 63 24 28 64  61 74 61 25 29 29 0d 07  |monic$(data%))..|
00001610  58 49 e7 6d 6e 65 6d 6f  6e 69 63 24 3d a4 75 63  |XI.mnemonic$=.uc|
00001620  61 73 65 28 c0 73 74 72  69 6e 67 24 2c a9 28 6d  |ase(.string$,.(m|
00001630  6e 65 6d 6f 6e 69 63 24  29 29 29 8c 66 6f 75 6e  |nemonic$))).foun|
00001640  64 25 3d 64 61 74 61 25  3a 64 61 74 61 25 3d 6f  |d%=data%:data%=o|
00001650  70 63 6f 75 6e 74 25 0d  07 62 05 ed 0d 07 76 40  |pcount%..b....v@|
00001660  e7 66 6f 75 6e 64 25 3d  a3 8c f1 27 22 4e 6f 20  |.found%=...'"No |
00001670  73 75 63 68 20 6d 6e 65  6d 6f 6e 69 63 22 3a 3d  |such mnemonic":=|
00001680  a3 8b 3d a4 61 73 6d 70  61 72 6d 73 28 66 6f 75  |..=.asmparms(fou|
00001690  6e 64 25 2c 73 74 72 69  6e 67 24 29 0d 07 80 06  |nd%,string$)....|
000016a0  3d b9 0d 07 8a 05 3a 0d  07 94 20 dd a4 61 73 6d  |=.....:... ..asm|
000016b0  70 61 72 6d 73 28 70 6f  69 6e 74 65 72 25 2c 73  |parms(pointer%,s|
000016c0  74 72 69 6e 67 24 29 0d  07 a8 12 ea 77 6f 72 6b  |tring$).....work|
000016d0  24 2c 6c 65 6e 67 74 68  25 0d 07 b2 27 6c 65 6e  |$,length%...'len|
000016e0  67 74 68 25 3d a7 6d 6e  65 6d 6f 6e 69 63 24 28  |gth%=.mnemonic$(|
000016f0  70 6f 69 6e 74 65 72 25  29 2c 22 20 22 29 2d 31  |pointer%)," ")-1|
00001700  0d 07 bc 29 70 61 72 61  6d 65 74 65 72 24 3d c2  |...)parameter$=.|
00001710  73 74 72 69 6e 67 24 2c  a9 73 74 72 69 6e 67 24  |string$,.string$|
00001720  2d 6c 65 6e 67 74 68 25  29 0d 07 d0 54 e7 c1 6d  |-length%)...T..m|
00001730  6e 65 6d 6f 6e 69 63 24  28 70 6f 69 6e 74 65 72  |nemonic$(pointer|
00001740  25 29 2c 34 2c 32 29 3d  22 4c 57 22 80 c0 a4 73  |%),4,2)="LW"...s|
00001750  74 72 69 70 6c 65 66 74  28 70 61 72 61 6d 65 74  |tripleft(paramet|
00001760  65 72 24 29 2c 31 29 3c  3e 22 23 22 8c f1 27 22  |er$),1)<>"#"..'"|
00001770  4d 69 73 73 69 6e 67 20  23 22 3a 3d a3 0d 07 da  |Missing #":=....|
00001780  47 77 6f 72 6b 24 3d a4  6e 6f 73 70 61 63 65 73  |Gwork$=.nospaces|
00001790  28 c2 6d 6e 65 6d 6f 6e  69 63 24 28 70 6f 69 6e  |(.mnemonic$(poin|
000017a0  74 65 72 25 29 2c a9 6d  6e 65 6d 6f 6e 69 63 24  |ter%),.mnemonic$|
000017b0  28 70 6f 69 6e 74 65 72  25 29 2d 6c 65 6e 67 74  |(pointer%)-lengt|
000017c0  68 25 29 29 0d 07 e4 1a  77 6f 72 6b 24 3d a4 6e  |h%))....work$=.n|
000017d0  6f 63 6f 6d 6d 61 73 28  77 6f 72 6b 24 29 0d 07  |ocommas(work$)..|
000017e0  f8 4c 3d a4 74 6f 6d 65  6d 6f 72 79 28 a9 77 6f  |.L=.tomemory(.wo|
000017f0  72 6b 24 2c 77 6f 72 6b  24 2c a4 6e 6f 68 61 73  |rk$,work$,.nohas|
00001800  68 65 73 28 70 61 72 61  6d 65 74 65 72 24 29 2c  |hes(parameter$),|
00001810  a4 6e 6f 73 70 61 63 65  73 28 62 69 74 24 28 70  |.nospaces(bit$(p|
00001820  6f 69 6e 74 65 72 25 29  29 29 0d 08 02 05 3a 0d  |ointer%)))....:.|
00001830  08 0c 2b dd a4 74 6f 6d  65 6d 6f 72 79 28 6e 75  |..+..tomemory(nu|
00001840  6d 62 65 72 25 2c 77 6f  72 6b 24 2c 73 74 72 69  |mber%,work$,stri|
00001850  6e 67 24 2c 62 79 74 65  24 29 0d 08 20 0a ea 64  |ng$,byte$).. ..d|
00001860  61 74 61 25 0d 08 2a 34  e7 6e 75 6d 62 65 72 25  |ata%..*4.number%|
00001870  3d 30 80 a4 6e 6f 73 70  61 63 65 73 28 73 74 72  |=0..nospaces(str|
00001880  69 6e 67 24 29 3c 3e 22  22 8c f1 27 22 4d 69 73  |ing$)<>""..'"Mis|
00001890  74 61 6b 65 22 3a 3d a3  0d 08 34 27 e7 6e 75 6d  |take":=...4'.num|
000018a0  62 65 72 25 3d 30 8c f2  70 6f 6b 65 28 a4 73 65  |ber%=0..poke(.se|
000018b0  74 62 69 6e 28 62 79 74  65 24 29 29 3a 3d b9 0d  |tbin(byte$)):=..|
000018c0  08 3e 14 e3 64 61 74 61  25 3d 31 b8 6e 75 6d 62  |.>..data%=1.numb|
000018d0  65 72 25 0d 08 48 45 e7  64 61 74 61 25 3d 31 8c  |er%..HE.data%=1.|
000018e0  67 6f 74 24 3d a4 70 6f  70 6e 65 78 74 28 73 74  |got$=.popnext(st|
000018f0  72 69 6e 67 24 2c 22 2c  22 29 8b 67 6f 74 24 3d  |ring$,",").got$=|
00001900  a4 70 6f 70 6e 65 78 74  28 70 61 72 61 6d 65 74  |.popnext(paramet|
00001910  65 72 24 2c 22 2c 22 29  0d 08 52 37 62 79 74 65  |er$,",")..R7byte|
00001920  24 3d a4 6f 76 65 72 6c  61 79 28 a4 73 65 74 6e  |$=.overlay(.setn|
00001930  75 6d 28 67 6f 74 24 29  2c c1 77 6f 72 6b 24 2c  |um(got$),.work$,|
00001940  64 61 74 61 25 2c 31 29  2c 62 79 74 65 24 29 0d  |data%,1),byte$).|
00001950  08 5c 05 ed 0d 08 66 19  f2 70 6f 6b 65 28 a4 73  |.\....f..poke(.s|
00001960  65 74 62 69 6e 28 62 79  74 65 24 29 29 0d 08 70  |etbin(byte$))..p|
00001970  06 3d b9 0d 08 7a 05 3a  0d 08 84 15 dd a4 6f 70  |.=...z.:......op|
00001980  74 69 6f 6e 28 73 74 72  69 6e 67 24 29 0d 08 98  |tion(string$)...|
00001990  2c 6f 70 74 69 6f 6e 25  3d a4 66 69 6e 64 76 61  |,option%=.findva|
000019a0  6c 75 65 28 c2 73 74 72  69 6e 67 24 2c a9 73 74  |lue(.string$,.st|
000019b0  72 69 6e 67 24 2d 33 29  29 0d 08 a2 20 e7 6f 70  |ring$-3))... .op|
000019c0  74 69 6f 6e 25 3e 37 8c  f1 27 22 42 61 64 20 6f  |tion%>7..'"Bad o|
000019d0  70 74 69 6f 6e 22 3a 3d  a3 0d 08 ac 06 3d b9 0d  |ption":=.....=..|
000019e0  08 b6 05 3a 0d 08 c0 0a  dd a4 6e 65 78 74 0d 08  |...:......next..|
000019f0  ca 1c ea 73 74 65 70 25  2c 6c 69 6d 69 74 25 2c  |...step%,limit%,|
00001a00  66 6f 72 25 2c 6e 61 6d  65 24 0d 08 d4 19 e7 66  |for%,name$.....f|
00001a10  73 70 25 3d 30 8c f1 27  22 4e 6f 20 46 4f 52 22  |sp%=0..'"No FOR"|
00001a20  3a 3d a3 0d 08 de 1c 6e  61 6d 65 24 3d a4 70 6f  |:=.....name$=.po|
00001a30  70 6e 65 78 74 28 66 6f  72 24 2c 22 2c 22 29 0d  |pnext(for$,",").|
00001a40  08 e8 1f 6e 61 6d 65 24  3d c0 6e 61 6d 65 24 2c  |...name$=.name$,|
00001a50  a7 6e 61 6d 65 24 2c 22  3d 22 29 2d 31 29 0d 08  |.name$,"=")-1)..|
00001a60  f2 26 6c 69 6d 69 74 25  3d a0 28 a4 70 6f 70 6e  |.&limit%=.(.popn|
00001a70  65 78 74 28 70 61 72 61  6d 65 74 65 72 24 2c 22  |ext(parameter$,"|
00001a80  2c 22 29 29 0d 08 fc 25  73 74 65 70 25 3d a0 28  |,"))...%step%=.(|
00001a90  a4 70 6f 70 6e 65 78 74  28 70 61 72 61 6d 65 74  |.popnext(paramet|
00001aa0  65 72 24 2c 22 2c 22 29  29 0d 09 06 20 66 6f 72  |er$,","))... for|
00001ab0  25 3d a4 66 69 6e 64 76  61 6c 75 65 28 6e 61 6d  |%=.findvalue(nam|
00001ac0  65 24 29 2b 73 74 65 70  25 0d 09 10 26 f2 61 73  |e$)+step%...&.as|
00001ad0  73 69 67 6e 76 61 72 69  61 62 6c 65 28 6e 61 6d  |signvariable(nam|
00001ae0  65 24 2b 22 3d 22 2b c3  28 66 6f 72 25 29 29 0d  |e$+"="+.(for%)).|
00001af0  09 1a 29 e7 66 6f 72 25  3e 6c 69 6d 69 74 25 8c  |..).for%>limit%.|
00001b00  66 73 70 25 3d 30 3a 70  6f 69 6e 74 65 72 25 3d  |fsp%=0:pointer%=|
00001b10  8f 23 69 6e 25 3a 3d b9  0d 09 24 1f cf 23 69 6e  |.#in%:=...$..#in|
00001b20  25 3d 66 73 70 25 3a 70  6f 69 6e 74 65 72 25 3d  |%=fsp%:pointer%=|
00001b30  66 73 70 25 3a 3d b9 0d  09 2e 05 3a 0d 09 38 12  |fsp%:=.....:..8.|
00001b40  dd a4 66 6f 72 28 73 74  72 69 6e 67 24 29 0d 09  |..for(string$)..|
00001b50  4c 22 e7 a7 73 74 72 69  6e 67 24 2c bd 26 42 38  |L"..string$,.&B8|
00001b60  29 3d 30 8c f1 27 22 4e  6f 20 54 4f 22 3a 3d a3  |)=0..'"No TO":=.|
00001b70  0d 09 56 24 e7 a7 73 74  72 69 6e 67 24 2c bd 26  |..V$..string$,.&|
00001b80  38 38 29 3d 30 8c f1 27  22 4e 6f 20 53 54 45 50  |88)=0..'"No STEP|
00001b90  22 3a 3d a3 0d 09 60 2c  73 74 72 69 6e 67 24 3d  |":=...`,string$=|
00001ba0  a4 73 74 72 69 70 6c 65  66 74 28 c2 73 74 72 69  |.stripleft(.stri|
00001bb0  6e 67 24 2c a9 73 74 72  69 6e 67 24 2d 31 29 29  |ng$,.string$-1))|
00001bc0  0d 09 74 2b f2 61 73 73  69 67 6e 76 61 72 69 61  |..t+.assignvaria|
00001bd0  62 6c 65 28 a4 70 6f 70  6e 65 78 74 28 73 74 72  |ble(.popnext(str|
00001be0  69 6e 67 24 2c bd 26 42  38 29 29 0d 09 88 5a 66  |ing$,.&B8))...Zf|
00001bf0  6f 72 24 3d a4 70 6f 70  6e 65 78 74 28 73 74 72  |or$=.popnext(str|
00001c00  69 6e 67 24 2c bd 26 42  38 29 2b 22 2c 22 2b a4  |ing$,.&B8)+","+.|
00001c10  70 6f 70 6e 65 78 74 28  70 61 72 61 6d 65 74 65  |popnext(paramete|
00001c20  72 24 2c bd 26 38 38 29  2b 22 2c 22 2b a4 70 6f  |r$,.&88)+","+.po|
00001c30  70 6e 65 78 74 28 70 61  72 61 6d 65 74 65 72 24  |pnext(parameter$|
00001c40  2c bd 31 33 29 0d 09 92  18 66 6f 72 24 3d a4 6e  |,.13)....for$=.n|
00001c50  6f 73 70 61 63 65 73 28  66 6f 72 24 29 0d 09 9c  |ospaces(for$)...|
00001c60  0e 66 73 70 25 3d 8f 23  69 6e 25 0d 09 a6 06 3d  |.fsp%=.#in%....=|
00001c70  b9 0d 09 b0 05 3a 0d 09  ba 12 dd a4 64 69 6d 28  |.....:......dim(|
00001c80  73 74 72 69 6e 67 24 29  0d 09 ce 12 ea 6e 61 6d  |string$).....nam|
00001c90  65 24 2c 61 6d 6f 75 6e  74 24 0d 09 d8 2c 73 74  |e$,amount$...,st|
00001ca0  72 69 6e 67 24 3d a4 73  74 72 69 70 6c 65 66 74  |ring$=.stripleft|
00001cb0  28 c2 73 74 72 69 6e 67  24 2c a9 73 74 72 69 6e  |(.string$,.strin|
00001cc0  67 24 2d 31 29 29 0d 09  e2 23 6e 61 6d 65 24 3d  |g$-1))...#name$=|
00001cd0  a4 66 69 6e 64 77 69 6c  64 28 31 2c 73 74 72 69  |.findwild(1,stri|
00001ce0  6e 67 24 2c 22 25 20 22  29 0d 09 ec 2d e7 c1 73  |ng$,"% ")...-..s|
00001cf0  74 72 69 6e 67 24 2c 31  2b a9 6e 61 6d 65 24 2c  |tring$,1+.name$,|
00001d00  31 29 3d 22 25 22 8c 6e  61 6d 65 24 3d 6e 61 6d  |1)="%".name$=nam|
00001d10  65 24 2b 22 25 22 0d 09  f6 2b 61 6d 6f 75 6e 74  |e$+"%"...+amount|
00001d20  24 3d a4 66 69 6e 64 77  69 6c 64 28 31 2b a9 6e  |$=.findwild(1+.n|
00001d30  61 6d 65 24 2c 73 74 72  69 6e 67 24 2c 22 3a 22  |ame$,string$,":"|
00001d40  29 0d 0a 00 27 e7 6e 61  6d 65 24 3d 22 22 80 61  |)...'.name$="".a|
00001d50  6d 6f 75 6e 74 24 3d 22  22 8c f1 27 22 42 61 64  |mount$=""..'"Bad|
00001d60  20 44 49 4d 22 3a 3d a3  0d 0a 0a 30 e7 6e 61 6d  | DIM":=....0.nam|
00001d70  65 24 3d 22 22 84 61 6d  6f 75 6e 74 24 3d 22 22  |e$="".amount$=""|
00001d80  8c f1 27 22 4e 6f 20 73  75 63 68 20 76 61 72 69  |..'"No such vari|
00001d90  61 62 6c 65 22 3a 3d a3  0d 0a 14 1c de 63 6f 64  |able":=......cod|
00001da0  65 25 32 2a a4 73 65 74  6e 75 6d 28 61 6d 6f 75  |e%2*.setnum(amou|
00001db0  6e 74 24 29 0d 0a 1e 25  f2 61 73 73 69 67 6e 76  |nt$)...%.assignv|
00001dc0  61 72 69 61 62 6c 65 28  6e 61 6d 65 24 2b 22 3d  |ariable(name$+"=|
00001dd0  22 2b c3 63 6f 64 65 25  29 0d 0a 28 06 3d b9 0d  |"+.code%)..(.=..|
00001de0  0a 32 05 3a 0d 0a 3c 11  dd f2 70 6f 6b 65 28 62  |.2.:..<...poke(b|
00001df0  79 74 65 25 29 0d 0a 50  17 50 25 3d a4 66 69 6e  |yte%)..P.P%=.fin|
00001e00  64 76 61 6c 75 65 28 22  50 25 22 29 0d 0a 64 39  |dvalue("P%")..d9|
00001e10  3f 28 63 6f 64 65 25 2b  28 50 25 2a 32 29 29 3d  |?(code%+(P%*2))=|
00001e20  62 79 74 65 25 83 32 35  36 3a 3f 28 63 6f 64 65  |byte%.256:?(code|
00001e30  25 2b 28 50 25 2a 32 29  2b 31 29 3d 62 79 74 65  |%+(P%*2)+1)=byte|
00001e40  25 81 32 35 36 0d 0a 78  39 f2 61 73 73 69 67 6e  |%.256..x9.assign|
00001e50  76 61 72 69 61 62 6c 65  28 22 4f 25 3d 4f 25 2b  |variable("O%=O%+|
00001e60  31 22 29 3a f2 61 73 73  69 67 6e 76 61 72 69 61  |1"):.assignvaria|
00001e70  62 6c 65 28 22 50 25 3d  50 25 2b 31 22 29 0d 0a  |ble("P%=P%+1")..|
00001e80  82 05 e1 0d 0a 8c 05 3a  0d 0a 96 0a dd f2 64 75  |.......:......du|
00001e90  6d 70 0d 0a a0 13 ea 73  25 2c 69 25 2c 72 25 2c  |mp.....s%,i%,r%,|
00001ea0  64 61 74 61 25 0d 0a aa  0b e7 6e 25 3d 30 8c e1  |data%.....n%=0..|
00001eb0  0d 0a b4 2c f1 22 54 68  65 72 65 20 61 72 65 20  |...,."There are |
00001ec0  22 3b 6e 25 3b 22 20 76  61 72 69 61 62 6c 65 73  |";n%;" variables|
00001ed0  20 64 65 66 69 6e 65 64  2e 2e 2e 22 0d 0a be 05  | defined..."....|
00001ee0  f5 0d 0a c8 1a f1 6e 61  6d 65 24 28 64 61 74 61  |......name$(data|
00001ef0  25 29 3b 22 20 69 73 20  61 22 3b 0d 0a d2 39 e7  |%);" is a";...9.|
00001f00  c2 6e 61 6d 65 24 28 64  61 74 61 25 29 2c 31 29  |.name$(data%),1)|
00001f10  3d 22 24 22 8c f1 22 20  73 74 72 69 6e 67 3d 22  |="$".." string="|
00001f20  2c 73 74 72 69 6e 67 24  28 73 25 29 3a 73 25 3d  |,string$(s%):s%=|
00001f30  73 25 2b 31 0d 0a dc 3c  e7 c2 6e 61 6d 65 24 28  |s%+1...<..name$(|
00001f40  64 61 74 61 25 29 2c 31  29 3d 22 25 22 8c f1 22  |data%),1)="%".."|
00001f50  6e 20 69 6e 74 65 67 65  72 3d 22 2c 69 6e 74 65  |n integer=",inte|
00001f60  67 65 72 25 28 69 25 29  3a 69 25 3d 69 25 2b 31  |ger%(i%):i%=i%+1|
00001f70  0d 0a e6 52 e7 c2 6e 61  6d 65 24 28 64 61 74 61  |...R..name$(data|
00001f80  25 29 2c 31 29 3c 3e 22  24 22 80 c2 6e 61 6d 65  |%),1)<>"$"..name|
00001f90  24 28 64 61 74 61 25 29  2c 31 29 3c 3e 22 25 22  |$(data%),1)<>"%"|
00001fa0  8c f1 22 20 72 65 61 6c  20 6e 75 6d 62 65 72 3d  |.." real number=|
00001fb0  22 2c 72 65 61 6c 28 72  25 29 3a 72 25 3d 72 25  |",real(r%):r%=r%|
00001fc0  2b 31 0d 0a f0 11 64 61  74 61 25 3d 64 61 74 61  |+1....data%=data|
00001fd0  25 2b 31 0d 0a fa 0d fd  64 61 74 61 25 3d 6e 25  |%+1.....data%=n%|
00001fe0  0d 0b 04 05 e1 0d 0b 0e  05 3a 0d 0b 18 18 dd a4  |.........:......|
00001ff0  66 69 6e 64 76 61 6c 75  65 28 73 74 72 69 6e 67  |findvalue(string|
00002000  24 29 0d 0b 22 0c ea 6c  6f 6f 6b 75 70 25 0d 0b  |$).."..lookup%..|
00002010  2c 1e 6c 6f 6f 6b 75 70  25 3d a4 61 6c 6c 6f 63  |,.lookup%=.alloc|
00002020  61 74 65 28 73 74 72 69  6e 67 24 29 0d 0b 36 26  |ate(string$)..6&|
00002030  e7 c2 73 74 72 69 6e 67  24 2c 31 29 3d 22 24 22  |..string$,1)="$"|
00002040  8c 3d 73 74 72 69 6e 67  24 28 6c 6f 6f 6b 75 70  |.=string$(lookup|
00002050  25 29 0d 0b 40 27 e7 c2  73 74 72 69 6e 67 24 2c  |%)..@'..string$,|
00002060  31 29 3d 22 25 22 8c 3d  69 6e 74 65 67 65 72 25  |1)="%".=integer%|
00002070  28 6c 6f 6f 6b 75 70 25  29 0d 0b 4a 12 3d 72 65  |(lookup%)..J.=re|
00002080  61 6c 28 6c 6f 6f 6b 75  70 25 29 0d 0b 54 05 3a  |al(lookup%)..T.:|
00002090  0d 0b 5e 1c dd a4 75 6e  70 61 63 6b 74 6f 6b 65  |..^...unpacktoke|
000020a0  6e 28 74 6f 6b 65 6e 6e  75 6d 25 29 0d 0b 72 29  |n(tokennum%)..r)|
000020b0  ea 6e 75 6d 62 65 72 25  2c 6d 61 73 6b 25 2c 6c  |.number%,mask%,l|
000020c0  6f 25 2c 68 69 25 2c 62  79 74 65 25 2c 70 6f 69  |o%,hi%,byte%,poi|
000020d0  6e 74 65 72 25 0d 0b 7c  2a e7 74 6f 6b 65 6e 6e  |nter%..|*.tokenn|
000020e0  75 6d 25 3c 3e 26 38 44  8c 3d 74 6f 6b 65 6e 24  |um%<>&8D.=token$|
000020f0  28 74 6f 6b 65 6e 6e 75  6d 25 2d 31 32 38 29 0d  |(tokennum%-128).|
00002100  0b 90 23 62 79 74 65 25  3d 9a 23 69 6e 25 3a 6c  |..#byte%=.#in%:l|
00002110  6f 25 3d 9a 23 69 6e 25  3a 68 69 25 3d 9a 23 69  |o%=.#in%:hi%=.#i|
00002120  6e 25 0d 0b 9a 1d 6e 75  6d 62 65 72 25 3d 28 62  |n%....number%=(b|
00002130  79 74 65 25 80 28 33 32  2b 31 36 29 29 2a 34 0d  |yte%.(32+16))*4.|
00002140  0b a4 17 6e 75 6d 62 65  72 25 3d 6e 75 6d 62 65  |...number%=numbe|
00002150  72 25 82 6c 6f 25 0d 0b  ae 1a 6d 61 73 6b 25 3d  |r%.lo%....mask%=|
00002160  28 62 79 74 65 25 80 28  38 2b 34 29 29 2a 31 36  |(byte%.(8+4))*16|
00002170  0d 0b b8 13 6d 61 73 6b  25 3d 6d 61 73 6b 25 82  |....mask%=mask%.|
00002180  68 69 25 0d 0b c2 17 70  6f 69 6e 74 65 72 25 3d  |hi%....pointer%=|
00002190  70 6f 69 6e 74 65 72 25  2b 33 0d 0b cc 18 3d 6e  |pointer%+3....=n|
000021a0  75 6d 62 65 72 25 2b 28  6d 61 73 6b 25 2a 32 35  |umber%+(mask%*25|
000021b0  36 29 0d 0b d6 05 3a 0d  0b e0 1a dd a4 63 6f 75  |6)....:......cou|
000021c0  6e 74 28 6c 74 74 72 24  2c 73 74 72 69 6e 67 24  |nt(lttr$,string$|
000021d0  29 0d 0b f4 11 ea 64 61  74 61 25 2c 63 6f 75 6e  |).....data%,coun|
000021e0  74 25 0d 0b fe 17 e3 64  61 74 61 25 3d 31 b8 a9  |t%.....data%=1..|
000021f0  28 73 74 72 69 6e 67 24  29 0d 0c 08 2c e7 c1 73  |(string$)...,..s|
00002200  74 72 69 6e 67 24 2c 64  61 74 61 25 2c 31 29 3d  |tring$,data%,1)=|
00002210  6c 74 74 72 24 8c 63 6f  75 6e 74 25 3d 63 6f 75  |lttr$.count%=cou|
00002220  6e 74 25 2b 31 0d 0c 12  05 ed 0d 0c 1c 0b 3d 63  |nt%+1.........=c|
00002230  6f 75 6e 74 25 0d 0c 26  05 3a 0d 0c 30 22 dd a4  |ount%..&.:..0"..|
00002240  6f 76 65 72 6c 61 79 28  6f 76 65 72 25 2c 6c 74  |overlay(over%,lt|
00002250  74 72 24 2c 73 74 72 69  6e 67 24 29 0d 0c 44 19  |tr$,string$)..D.|
00002260  ea 62 69 6e 61 72 79 24  2c 64 61 74 61 25 2c 63  |.binary$,data%,c|
00002270  6f 75 6e 74 25 0d 0c 4e  29 e3 64 61 74 61 25 3d  |ount%..N).data%=|
00002280  28 a4 63 6f 75 6e 74 28  6c 74 74 72 24 2c 73 74  |(.count(lttr$,st|
00002290  72 69 6e 67 24 29 2d 31  29 b8 30 88 2d 31 0d 0c  |ring$)-1).0.-1..|
000022a0  58 29 62 69 6e 61 72 79  24 3d 62 69 6e 61 72 79  |X)binary$=binary|
000022b0  24 2b c3 28 b4 28 6f 76  65 72 25 80 28 32 5e 64  |$+.(.(over%.(2^d|
000022c0  61 74 61 25 29 29 29 0d  0c 62 05 ed 0d 0c 6c 5a  |ata%)))..b....lZ|
000022d0  3d c0 73 74 72 69 6e 67  24 2c a7 73 74 72 69 6e  |=.string$,.strin|
000022e0  67 24 2c 6c 74 74 72 24  29 2d 31 29 2b 62 69 6e  |g$,lttr$)-1)+bin|
000022f0  61 72 79 24 2b c2 73 74  72 69 6e 67 24 2c a9 28  |ary$+.string$,.(|
00002300  73 74 72 69 6e 67 24 29  2d a7 73 74 72 69 6e 67  |string$)-.string|
00002310  24 2c 6c 74 74 72 24 29  2d a9 28 62 69 6e 61 72  |$,lttr$)-.(binar|
00002320  79 24 29 2b 31 29 0d 0c  76 05 3a 0d 0c 8a 05 3a  |y$)+1)..v.:....:|
00002330  0d 0c 94 2b dd a4 66 69  6e 64 77 69 6c 64 28 70  |...+..findwild(p|
00002340  6f 69 6e 74 65 72 25 2c  73 74 72 69 6e 67 24 2c  |ointer%,string$,|
00002350  73 65 70 61 72 61 74 6f  72 24 29 0d 0c a8 16 ea  |separator$).....|
00002360  6c 65 6e 67 74 68 25 2c  6e 6f 74 66 6f 75 6e 64  |length%,notfound|
00002370  25 0d 0c b2 0f 6e 6f 74  66 6f 75 6e 64 25 3d b9  |%....notfound%=.|
00002380  0d 0c bc 1c e3 64 61 74  61 25 3d 70 6f 69 6e 74  |.....data%=point|
00002390  65 72 25 b8 a9 73 74 72  69 6e 67 24 0d 0c c6 65  |er%..string$...e|
000023a0  e7 a7 73 65 70 61 72 61  74 6f 72 24 2c c1 73 74  |..separator$,.st|
000023b0  72 69 6e 67 24 2c 64 61  74 61 25 2c 31 29 29 3d  |ring$,data%,1))=|
000023c0  30 80 97 28 c1 73 74 72  69 6e 67 24 2c 64 61 74  |0..(.string$,dat|
000023d0  61 25 2c 31 29 29 3c 31  32 37 8c 6c 65 6e 67 74  |a%,1))<127.lengt|
000023e0  68 25 3d 6c 65 6e 67 74  68 25 2b 94 6e 6f 74 66  |h%=length%+.notf|
000023f0  6f 75 6e 64 25 8b 6e 6f  74 66 6f 75 6e 64 25 3d  |ound%.notfound%=|
00002400  30 0d 0c d0 05 ed 0d 0c  da 1c 64 61 74 61 25 3d  |0.........data%=|
00002410  70 6f 69 6e 74 65 72 25  2b 6c 65 6e 67 74 68 25  |pointer%+length%|
00002420  2d 31 0d 0c e4 2a 3d a4  6e 6f 73 70 61 63 65 73  |-1...*=.nospaces|
00002430  28 c1 73 74 72 69 6e 67  24 2c 70 6f 69 6e 74 65  |(.string$,pointe|
00002440  72 25 2c 6c 65 6e 67 74  68 25 29 29 0d 0c ee 05  |r%,length%))....|
00002450  3a 0d 0c f8 21 dd a4 70  6f 70 6e 65 78 74 28 73  |:...!..popnext(s|
00002460  74 72 69 6e 67 24 2c 73  65 70 61 72 61 74 6f 72  |tring$,separator|
00002470  24 29 0d 0d 02 30 e7 a7  73 74 72 69 6e 67 24 2c  |$)...0..string$,|
00002480  73 65 70 61 72 61 74 6f  72 24 29 3d 30 8c 3d a4  |separator$)=0.=.|
00002490  73 74 72 69 70 6c 65 66  74 28 73 74 72 69 6e 67  |stripleft(string|
000024a0  24 29 0d 0d 0c 38 70 61  72 61 6d 65 74 65 72 24  |$)...8parameter$|
000024b0  3d c2 73 74 72 69 6e 67  24 2c a9 28 73 74 72 69  |=.string$,.(stri|
000024c0  6e 67 24 29 2d a7 73 74  72 69 6e 67 24 2c 73 65  |ng$)-.string$,se|
000024d0  70 61 72 61 74 6f 72 24  29 29 0d 0d 16 25 3d c0  |parator$))...%=.|
000024e0  73 74 72 69 6e 67 24 2c  a7 73 74 72 69 6e 67 24  |string$,.string$|
000024f0  2c 73 65 70 61 72 61 74  6f 72 24 29 2d 31 29 0d  |,separator$)-1).|
00002500  0d 20 05 3a 0d 0d 2a 19  dd a4 73 74 72 69 70 72  |. .:..*...stripr|
00002510  69 67 68 74 28 73 74 72  69 6e 67 24 29 0d 0d 3e  |ight(string$)..>|
00002520  13 ea 64 61 74 61 25 2c  70 6f 69 6e 74 65 72 25  |..data%,pointer%|
00002530  0d 0d 48 1a e3 64 61 74  61 25 3d a9 28 73 74 72  |..H..data%=.(str|
00002540  69 6e 67 24 29 b8 31 88  2d 31 0d 0d 52 35 e7 70  |ing$).1.-1..R5.p|
00002550  6f 69 6e 74 65 72 25 3d  30 80 c1 73 74 72 69 6e  |ointer%=0..strin|
00002560  67 24 2c 64 61 74 61 25  2c 31 29 3c 3e 22 20 22  |g$,data%,1)<>" "|
00002570  8c 70 6f 69 6e 74 65 72  25 3d 64 61 74 61 25 0d  |.pointer%=data%.|
00002580  0d 5c 05 ed 0d 0d 66 17  3d c0 73 74 72 69 6e 67  |.\....f.=.string|
00002590  24 2c 70 6f 69 6e 74 65  72 25 29 0d 0d 70 05 3a  |$,pointer%)..p.:|
000025a0  0d 0d 7a 18 dd a4 73 74  72 69 70 6c 65 66 74 28  |..z...stripleft(|
000025b0  73 74 72 69 6e 67 24 29  0d 0d 8e 13 ea 64 61 74  |string$).....dat|
000025c0  61 25 2c 70 6f 69 6e 74  65 72 25 0d 0d 98 17 e3  |a%,pointer%.....|
000025d0  64 61 74 61 25 3d 31 b8  a9 28 73 74 72 69 6e 67  |data%=1..(string|
000025e0  24 29 0d 0d a2 35 e7 70  6f 69 6e 74 65 72 25 3d  |$)...5.pointer%=|
000025f0  30 80 c1 73 74 72 69 6e  67 24 2c 64 61 74 61 25  |0..string$,data%|
00002600  2c 31 29 3c 3e 22 20 22  8c 70 6f 69 6e 74 65 72  |,1)<>" ".pointer|
00002610  25 3d 64 61 74 61 25 0d  0d ac 05 ed 0d 0d b6 24  |%=data%........$|
00002620  3d c2 73 74 72 69 6e 67  24 2c a9 28 73 74 72 69  |=.string$,.(stri|
00002630  6e 67 24 29 2d 70 6f 69  6e 74 65 72 25 2b 31 29  |ng$)-pointer%+1)|
00002640  0d 0d c0 05 3a 0d 0d ca  20 dd a4 6e 6f 77 69 6c  |....:... ..nowil|
00002650  64 28 73 74 72 69 6e 67  24 2c 73 65 70 61 72 61  |d(string$,separa|
00002660  74 6f 72 24 29 0d 0d de  10 ea 77 6f 72 6b 24 2c  |tor$).....work$,|
00002670  64 61 74 61 25 0d 0d e8  15 e3 64 61 74 61 25 3d  |data%.....data%=|
00002680  31 b8 a9 73 74 72 69 6e  67 24 0d 0d f2 40 e7 c1  |1..string$...@..|
00002690  73 74 72 69 6e 67 24 2c  64 61 74 61 25 2c 31 29  |string$,data%,1)|
000026a0  3c 3e 73 65 70 61 72 61  74 6f 72 24 8c 77 6f 72  |<>separator$.wor|
000026b0  6b 24 3d 77 6f 72 6b 24  2b c1 73 74 72 69 6e 67  |k$=work$+.string|
000026c0  24 2c 64 61 74 61 25 2c  31 29 0d 0d fc 05 ed 0d  |$,data%,1)......|
000026d0  0e 06 0a 3d 77 6f 72 6b  24 0d 0e 10 05 3a 0d 0e  |...=work$....:..|
000026e0  1a 17 dd a4 6e 6f 68 61  73 68 65 73 28 73 74 72  |....nohashes(str|
000026f0  69 6e 67 24 29 0d 0e 24  19 3d a4 6e 6f 77 69 6c  |ing$)..$.=.nowil|
00002700  64 28 73 74 72 69 6e 67  24 2c 22 23 22 29 0d 0e  |d(string$,"#")..|
00002710  2e 05 3a 0d 0e 38 17 dd  a4 6e 6f 73 70 61 63 65  |..:..8...nospace|
00002720  73 28 73 74 72 69 6e 67  24 29 0d 0e 42 19 3d a4  |s(string$)..B.=.|
00002730  6e 6f 77 69 6c 64 28 73  74 72 69 6e 67 24 2c 22  |nowild(string$,"|
00002740  20 22 29 0d 0e 4c 05 3a  0d 0e 56 17 dd a4 6e 6f  | ")..L.:..V...no|
00002750  63 6f 6d 6d 61 73 28 73  74 72 69 6e 67 24 29 0d  |commas(string$).|
00002760  0e 60 19 3d a4 6e 6f 77  69 6c 64 28 73 74 72 69  |.`.=.nowild(stri|
00002770  6e 67 24 2c 22 2c 22 29  0d 0e 6a 05 3a 0d 0e 74  |ng$,",")..j.:..t|
00002780  16 dd a4 69 73 6f 6c 61  74 65 28 73 74 72 69 6e  |...isolate(strin|
00002790  67 24 29 0d 0e 88 1e 3d  c0 73 74 72 69 6e 67 24  |g$)....=.string$|
000027a0  2c a7 73 74 72 69 6e 67  24 2c 22 20 22 29 2d 31  |,.string$," ")-1|
000027b0  29 0d 0e 92 05 3a 0d 0e  9c 16 dd a4 61 6e 79 6d  |)....:......anym|
000027c0  6f 72 65 28 73 74 72 69  6e 67 24 29 0d 0e b0 13  |ore(string$)....|
000027d0  ea 64 61 74 61 25 2c 70  6f 69 6e 74 65 72 25 0d  |.data%,pointer%.|
000027e0  0e ba 17 e3 64 61 74 61  25 3d 31 b8 a9 28 73 74  |....data%=1..(st|
000027f0  72 69 6e 67 24 29 0d 0e  c4 3f e7 c1 73 74 72 69  |ring$)...?..stri|
00002800  6e 67 24 2c 64 61 74 61  25 2c 31 29 3d 22 20 22  |ng$,data%,1)=" "|
00002810  84 c1 73 74 72 69 6e 67  24 2c 64 61 74 61 25 2c  |..string$,data%,|
00002820  31 29 3d 22 3a 22 8c 70  6f 69 6e 74 65 72 25 3d  |1)=":".pointer%=|
00002830  64 61 74 61 25 0d 0e ce  05 ed 0d 0e d8 24 3d c2  |data%........$=.|
00002840  73 74 72 69 6e 67 24 2c  a9 28 73 74 72 69 6e 67  |string$,.(string|
00002850  24 29 2d 70 6f 69 6e 74  65 72 25 2b 31 29 0d 0e  |$)-pointer%+1)..|
00002860  e2 05 3a 0d 0e ec 14 dd  a4 75 63 61 73 65 28 73  |..:......ucase(s|
00002870  74 72 69 6e 67 24 29 0d  0f 00 0a ea 64 61 74 61  |tring$).....data|
00002880  25 0d 0f 0a 17 e3 64 61  74 61 25 3d 31 b8 a9 28  |%.....data%=1..(|
00002890  73 74 72 69 6e 67 24 29  0d 0f 14 86 e7 97 28 c1  |string$)......(.|
000028a0  73 74 72 69 6e 67 24 2c  64 61 74 61 25 2c 31 29  |string$,data%,1)|
000028b0  29 3e 39 36 80 97 28 c1  73 74 72 69 6e 67 24 2c  |)>96..(.string$,|
000028c0  64 61 74 61 25 2c 31 29  29 3c 31 32 33 8c 73 74  |data%,1))<123.st|
000028d0  72 69 6e 67 24 3d c0 73  74 72 69 6e 67 24 2c 64  |ring$=.string$,d|
000028e0  61 74 61 25 2d 31 29 2b  bd 28 97 28 c1 73 74 72  |ata%-1)+.(.(.str|
000028f0  69 6e 67 24 2c 64 61 74  61 25 2c 31 29 29 80 26  |ing$,data%,1)).&|
00002900  44 46 29 2b c2 73 74 72  69 6e 67 24 2c a9 28 73  |DF)+.string$,.(s|
00002910  74 72 69 6e 67 24 29 2d  64 61 74 61 25 29 0d 0f  |tring$)-data%)..|
00002920  1e 05 ed 0d 0f 28 0c 3d  73 74 72 69 6e 67 24 0d  |.....(.=string$.|
00002930  0f 32 05 3a 0d 0f 46 05  3a 0d 0f 50 1d dd f2 61  |.2.:..F.:..P...a|
00002940  73 73 69 67 6e 76 61 72  69 61 62 6c 65 28 73 74  |ssignvariable(st|
00002950  72 69 6e 67 24 29 0d 0f  64 16 ea 64 61 74 61 25  |ring$)..d..data%|
00002960  2c 6c 74 74 72 24 2c 77  6f 72 6b 24 0d 0f 6e 2b  |,lttr$,work$..n+|
00002970  77 6f 72 6b 24 3d a4 73  74 72 69 70 6c 65 66 74  |work$=.stripleft|
00002980  28 a4 70 6f 70 6e 65 78  74 28 73 74 72 69 6e 67  |(.popnext(string|
00002990  24 2c 22 3d 22 29 29 0d  0f 78 1c 77 6f 72 6b 24  |$,"="))..x.work$|
000029a0  3d a4 73 74 72 69 70 72  69 67 68 74 28 77 6f 72  |=.stripright(wor|
000029b0  6b 24 29 0d 0f 8c 19 e3  64 61 74 61 25 3d 31 b8  |k$).....data%=1.|
000029c0  28 a9 28 77 6f 72 6b 24  29 2d 31 29 0d 0f 96 19  |(.(work$)-1)....|
000029d0  6c 74 74 72 24 3d c1 77  6f 72 6b 24 2c 64 61 74  |lttr$=.work$,dat|
000029e0  61 25 2c 31 29 0d 0f a0  3d e7 a7 bd 33 34 2b 22  |a%,1)...=...34+"|
000029f0  20 21 23 25 26 27 28 29  2a 2b 2c 2d 2e 2f 3a 3b  | !#%&'()*+,-./:;|
00002a00  3c 3d 3e 3f 40 5b 5c 5d  5e 60 22 2c 6c 74 74 72  |<=>?@[\]^`",lttr|
00002a10  24 29 3c 3e 30 8c f1 22  4d 69 73 74 61 6b 65 22  |$)<>0.."Mistake"|
00002a20  3a e1 0d 0f aa 1e e7 97  28 6c 74 74 72 24 29 3e  |:.......(lttr$)>|
00002a30  31 32 32 8c f1 22 4d 69  73 74 61 6b 65 22 3a e1  |122.."Mistake":.|
00002a40  0d 0f b4 05 ed 0d 0f c8  13 6c 74 74 72 24 3d c0  |.........lttr$=.|
00002a50  77 6f 72 6b 24 2c 31 29  0d 0f d2 2e e7 a7 22 30  |work$,1)......"0|
00002a60  31 32 33 34 35 36 37 38  39 22 2c 6c 74 74 72 24  |123456789",lttr$|
00002a70  29 3c 3e 30 8c f1 22 53  79 6e 74 61 78 20 65 72  |)<>0.."Syntax er|
00002a80  72 6f 72 22 3a e1 0d 0f  dc 2e e7 6c 74 74 72 24  |ror":......lttr$|
00002a90  3d 22 24 22 8c f1 22 44  6f 6e 27 74 20 75 73 65  |="$".."Don't use|
00002aa0  20 74 68 65 20 27 24 27  20 6f 70 65 72 61 74 6f  | the '$' operato|
00002ab0  72 22 3a e1 0d 0f f0 13  6c 74 74 72 24 3d c2 77  |r":.....lttr$=.w|
00002ac0  6f 72 6b 24 2c 31 29 0d  0f fa 3c e7 a7 bd 33 34  |ork$,1)...<...34|
00002ad0  2b 22 20 21 23 26 27 28  29 2a 2b 2c 2d 2e 2f 3a  |+" !#&'()*+,-./:|
00002ae0  3b 3c 3d 3e 3f 40 5b 5c  5d 5e 60 22 2c 6c 74 74  |;<=>?@[\]^`",ltt|
00002af0  72 24 29 3c 3e 30 8c f1  22 4d 69 73 74 61 6b 65  |r$)<>0.."Mistake|
00002b00  22 3a e1 0d 10 04 1e e7  97 28 6c 74 74 72 24 29  |":.......(lttr$)|
00002b10  3e 31 32 32 8c f1 22 4d  69 73 74 61 6b 65 22 3a  |>122.."Mistake":|
00002b20  e1 0d 10 18 44 65 6e 74  72 79 25 3d a4 61 6c 6c  |....Dentry%=.all|
00002b30  6f 63 61 74 65 28 77 6f  72 6b 24 29 3a 77 6f 72  |ocate(work$):wor|
00002b40  6b 24 3d c2 73 74 72 69  6e 67 24 2c a9 28 73 74  |k$=.string$,.(st|
00002b50  72 69 6e 67 24 29 2d a7  73 74 72 69 6e 67 24 2c  |ring$)-.string$,|
00002b60  22 3d 22 29 29 0d 10 22  2d e7 6c 74 74 72 24 3d  |"=")).."-.lttr$=|
00002b70  22 24 22 8c 73 74 72 69  6e 67 24 28 65 6e 74 72  |"$".string$(entr|
00002b80  79 25 29 3d a4 73 65 74  73 74 72 28 77 6f 72 6b  |y%)=.setstr(work|
00002b90  24 29 0d 10 2c 2e e7 6c  74 74 72 24 3d 22 25 22  |$)..,..lttr$="%"|
00002ba0  8c 69 6e 74 65 67 65 72  25 28 65 6e 74 72 79 25  |.integer%(entry%|
00002bb0  29 3d a4 73 65 74 6e 75  6d 28 77 6f 72 6b 24 29  |)=.setnum(work$)|
00002bc0  0d 10 36 36 e7 6c 74 74  72 24 3c 3e 22 25 22 80  |..66.lttr$<>"%".|
00002bd0  6c 74 74 72 24 3c 3e 22  24 22 8c 72 65 61 6c 28  |lttr$<>"$".real(|
00002be0  65 6e 74 72 79 25 29 3d  a4 73 65 74 6e 75 6d 28  |entry%)=.setnum(|
00002bf0  77 6f 72 6b 24 29 0d 10  40 05 e1 0d 10 4a 05 3a  |work$)..@....J.:|
00002c00  0d 10 54 1a dd a4 61 73  73 69 67 6e 6c 61 62 65  |..T...assignlabe|
00002c10  6c 28 73 74 72 69 6e 67  24 29 0d 10 68 10 ea 64  |l(string$)..h..d|
00002c20  61 74 61 25 2c 6c 74 74  72 24 0d 10 72 2e 73 74  |ata%,lttr$..r.st|
00002c30  72 69 6e 67 24 3d a4 73  74 72 69 70 6c 65 66 74  |ring$=.stripleft|
00002c40  28 c2 73 74 72 69 6e 67  24 2c a9 28 73 74 72 69  |(.string$,.(stri|
00002c50  6e 67 24 29 2d 31 29 29  0d 10 7c 20 73 74 72 69  |ng$)-1))..| stri|
00002c60  6e 67 24 3d a4 73 74 72  69 70 72 69 67 68 74 28  |ng$=.stripright(|
00002c70  73 74 72 69 6e 67 24 29  0d 10 90 1b e3 64 61 74  |string$).....dat|
00002c80  61 25 3d 31 b8 28 a9 28  73 74 72 69 6e 67 24 29  |a%=1.(.(string$)|
00002c90  2d 31 29 0d 10 9a 1b 6c  74 74 72 24 3d c1 73 74  |-1)....lttr$=.st|
00002ca0  72 69 6e 67 24 2c 64 61  74 61 25 2c 31 29 0d 10  |ring$,data%,1)..|
00002cb0  a4 3f e7 a7 bd 33 34 2b  22 20 21 23 25 26 27 28  |.?...34+" !#%&'(|
00002cc0  29 2a 2b 2c 2d 2e 2f 3a  3b 3c 3d 3e 3f 40 5b 5c  |)*+,-./:;<=>?@[\|
00002cd0  5d 5e 60 22 2c 6c 74 74  72 24 29 3c 3e 30 8c f1  |]^`",lttr$)<>0..|
00002ce0  27 22 4d 69 73 74 61 6b  65 22 3a 3d a3 0d 10 ae  |'"Mistake":=....|
00002cf0  20 e7 97 28 6c 74 74 72  24 29 3e 31 32 32 8c f1  | ..(lttr$)>122..|
00002d00  27 22 4d 69 73 74 61 6b  65 22 3a 3d a3 0d 10 b8  |'"Mistake":=....|
00002d10  05 ed 0d 10 cc 37 e7 a7  22 24 30 31 32 33 34 35  |.....7.."$012345|
00002d20  36 37 38 39 22 2c c0 73  74 72 69 6e 67 24 2c 31  |6789",.string$,1|
00002d30  29 29 3c 3e 30 8c f1 27  22 53 79 6e 74 61 78 20  |))<>0..'"Syntax |
00002d40  65 72 72 6f 72 22 3a 3d  a3 0d 10 e0 15 6c 74 74  |error":=.....ltt|
00002d50  72 24 3d c2 73 74 72 69  6e 67 24 2c 31 29 0d 10  |r$=.string$,1)..|
00002d60  ea 23 e7 6c 74 74 72 24  3d 22 24 22 8c f1 27 22  |.#.lttr$="$"..'"|
00002d70  54 79 70 65 20 6d 69 73  6d 61 74 63 68 22 3a 3d  |Type mismatch":=|
00002d80  a3 0d 10 f4 3e e7 a7 bd  33 34 2b 22 20 21 23 26  |....>...34+" !#&|
00002d90  27 28 29 2a 2b 2c 2d 2e  2f 3a 3b 3c 3d 3e 3f 40  |'()*+,-./:;<=>?@|
00002da0  5b 5c 5d 5e 60 22 2c 6c  74 74 72 24 29 3c 3e 30  |[\]^`",lttr$)<>0|
00002db0  8c f1 27 22 4d 69 73 74  61 6b 65 22 3a 3d a3 0d  |..'"Mistake":=..|
00002dc0  10 fe 1d 65 6e 74 72 79  25 3d a4 61 6c 6c 6f 63  |...entry%=.alloc|
00002dd0  61 74 65 28 73 74 72 69  6e 67 24 29 0d 11 08 19  |ate(string$)....|
00002de0  73 74 72 69 6e 67 24 3d  73 74 72 69 6e 67 24 2b  |string$=string$+|
00002df0  22 3d 50 25 22 0d 11 12  4e e7 6c 74 74 72 24 3d  |"=P%"...N.lttr$=|
00002e00  22 25 22 8c 69 6e 74 65  67 65 72 25 28 65 6e 74  |"%".integer%(ent|
00002e10  72 79 25 29 3d a4 73 65  74 6e 75 6d 28 73 74 72  |ry%)=.setnum(str|
00002e20  69 6e 67 24 29 8b 72 65  61 6c 28 65 6e 74 72 79  |ing$).real(entry|
00002e30  25 29 3d a4 73 65 74 6e  75 6d 28 73 74 72 69 6e  |%)=.setnum(strin|
00002e40  67 24 29 0d 11 1c 06 3d  b9 0d 11 26 05 3a 0d 11  |g$)....=...&.:..|
00002e50  30 15 dd a4 73 65 74 6e  75 6d 28 73 74 72 69 6e  |0...setnum(strin|
00002e60  67 24 29 0d 11 44 2e 73  74 72 69 6e 67 24 3d c2  |g$)..D.string$=.|
00002e70  73 74 72 69 6e 67 24 2c  a9 28 73 74 72 69 6e 67  |string$,.(string|
00002e80  24 29 2d a7 73 74 72 69  6e 67 24 2c 22 3d 22 29  |$)-.string$,"=")|
00002e90  29 0d 11 4e 1e 73 74 72  69 6e 67 24 3d a4 6e 6f  |)..N.string$=.no|
00002ea0  73 70 61 63 65 73 28 73  74 72 69 6e 67 24 29 0d  |spaces(string$).|
00002eb0  11 58 26 e7 c0 73 74 72  69 6e 67 24 2c 31 29 3d  |.X&..string$,1)=|
00002ec0  22 25 22 8c 3d a4 73 65  74 62 69 6e 28 73 74 72  |"%".=.setbin(str|
00002ed0  69 6e 67 24 29 0d 11 62  1b 3d a0 28 a4 65 78 70  |ing$)..b.=.(.exp|
00002ee0  61 6e 64 6e 75 6d 28 73  74 72 69 6e 67 24 29 29  |andnum(string$))|
00002ef0  0d 11 6c 05 3a 0d 11 76  15 dd a4 73 65 74 73 74  |..l.:..v...setst|
00002f00  72 28 73 74 72 69 6e 67  24 29 0d 11 8a 1b 3d a0  |r(string$)....=.|
00002f10  28 a4 65 78 70 61 6e 64  73 74 72 28 73 74 72 69  |(.expandstr(stri|
00002f20  6e 67 24 29 29 0d 11 94  05 3a 0d 11 9e 15 dd a4  |ng$))....:......|
00002f30  73 65 74 62 69 6e 28 73  74 72 69 6e 67 24 29 0d  |setbin(string$).|
00002f40  11 b2 18 ea 64 61 74 61  25 2c 72 65 73 75 6c 74  |....data%,result|
00002f50  25 2c 6c 74 74 72 24 0d  11 c6 39 73 74 72 69 6e  |%,lttr$...9strin|
00002f60  67 24 3d a4 6e 6f 73 70  61 63 65 73 28 c2 73 74  |g$=.nospaces(.st|
00002f70  72 69 6e 67 24 2c a9 28  73 74 72 69 6e 67 24 29  |ring$,.(string$)|
00002f80  2d a7 73 74 72 69 6e 67  24 2c 22 25 22 29 29 29  |-.string$,"%")))|
00002f90  0d 11 d0 1f e7 a9 73 74  72 69 6e 67 24 3e 31 34  |......string$>14|
00002fa0  8c f1 27 22 54 6f 6f 20  62 69 67 22 3a 3d 30 0d  |..'"Too big":=0.|
00002fb0  11 da 21 e7 a9 73 74 72  69 6e 67 24 3d 30 8c f1  |..!..string$=0..|
00002fc0  27 22 42 61 64 20 62 69  6e 61 72 79 22 3a 3d 30  |'"Bad binary":=0|
00002fd0  0d 11 e4 15 e3 64 61 74  61 25 3d 31 b8 a9 73 74  |.....data%=1..st|
00002fe0  72 69 6e 67 24 0d 11 ee  1b 6c 74 74 72 24 3d c1  |ring$....lttr$=.|
00002ff0  73 74 72 69 6e 67 24 2c  64 61 74 61 25 2c 31 29  |string$,data%,1)|
00003000  0d 11 f8 33 e7 6c 74 74  72 24 3d 22 31 22 8c 72  |...3.lttr$="1".r|
00003010  65 73 75 6c 74 25 3d 72  65 73 75 6c 74 25 84 28  |esult%=result%.(|
00003020  32 5e 28 a9 73 74 72 69  6e 67 24 2d 64 61 74 61  |2^(.string$-data|
00003030  25 29 29 0d 12 02 05 ed  0d 12 0c 0c 3d 72 65 73  |%)).........=res|
00003040  75 6c 74 25 0d 12 16 05  3a 0d 12 20 17 dd a4 61  |ult%....:.. ...a|
00003050  6c 6c 6f 63 61 74 65 28  73 74 72 69 6e 67 24 29  |llocate(string$)|
00003060  0d 12 3e 25 ea 64 61 74  61 25 2c 73 46 69 6e 64  |..>%.data%,sFind|
00003070  25 2c 69 46 69 6e 64 25  2c 72 46 69 6e 64 25 2c  |%,iFind%,rFind%,|
00003080  74 79 70 65 25 0d 12 48  1e 73 46 69 6e 64 25 3d  |type%..H.sFind%=|
00003090  b9 3a 69 46 69 6e 64 25  3d b9 3a 72 46 69 6e 64  |.:iFind%=.:rFind|
000030a0  25 3d b9 0d 12 52 1f e7  c2 73 74 72 69 6e 67 24  |%=...R...string$|
000030b0  2c 31 29 3d 22 24 22 8c  74 79 70 65 25 3d 97 22  |,1)="$".type%=."|
000030c0  73 22 0d 12 5c 1f e7 c2  73 74 72 69 6e 67 24 2c  |s"..\...string$,|
000030d0  31 29 3d 22 25 22 8c 74  79 70 65 25 3d 97 22 69  |1)="%".type%=."i|
000030e0  22 0d 12 66 31 e7 c2 73  74 72 69 6e 67 24 2c 31  |"..f1..string$,1|
000030f0  29 3c 3e 22 25 22 80 c2  73 74 72 69 6e 67 24 2c  |)<>"%"..string$,|
00003100  31 29 3c 3e 22 24 22 8c  74 79 70 65 25 3d 97 22  |1)<>"$".type%=."|
00003110  72 22 0d 12 70 0f 6e 6f  74 66 6f 75 6e 64 25 3d  |r"..p.notfound%=|
00003120  b9 0d 12 7a 0f e3 64 61  74 61 25 3d 30 b8 6e 25  |...z..data%=0.n%|
00003130  0d 12 84 29 e7 c2 6e 61  6d 65 24 28 64 61 74 61  |...)..name$(data|
00003140  25 29 2c 31 29 3d 22 24  22 8c 73 46 69 6e 64 25  |%),1)="$".sFind%|
00003150  3d 73 46 69 6e 64 25 2b  31 0d 12 8e 29 e7 c2 6e  |=sFind%+1...)..n|
00003160  61 6d 65 24 28 64 61 74  61 25 29 2c 31 29 3d 22  |ame$(data%),1)="|
00003170  25 22 8c 69 46 69 6e 64  25 3d 69 46 69 6e 64 25  |%".iFind%=iFind%|
00003180  2b 31 0d 12 98 40 e7 c2  6e 61 6d 65 24 28 64 61  |+1...@..name$(da|
00003190  74 61 25 29 2c 31 29 3c  3e 22 25 22 80 c2 6e 61  |ta%),1)<>"%"..na|
000031a0  6d 65 24 28 64 61 74 61  25 29 2c 31 29 3c 3e 22  |me$(data%),1)<>"|
000031b0  24 22 8c 72 46 69 6e 64  25 3d 72 46 69 6e 64 25  |$".rFind%=rFind%|
000031c0  2b 31 0d 12 a2 35 e7 73  74 72 69 6e 67 24 3d 6e  |+1...5.string$=n|
000031d0  61 6d 65 24 28 64 61 74  61 25 29 8c 6e 6f 74 66  |ame$(data%).notf|
000031e0  6f 75 6e 64 25 3d a0 28  bd 74 79 70 65 25 2b 22  |ound%=.(.type%+"|
000031f0  46 69 6e 64 25 22 29 0d  12 ac 05 ed 0d 12 b6 1c  |Find%").........|
00003200  e7 6e 6f 74 66 6f 75 6e  64 25 3c 3e b9 8c 3d 6e  |.notfound%<>..=n|
00003210  6f 74 66 6f 75 6e 64 25  0d 12 c0 1d 6e 61 6d 65  |otfound%....name|
00003220  24 28 6e 25 29 3d 73 74  72 69 6e 67 24 3a 6e 25  |$(n%)=string$:n%|
00003230  3d 6e 25 2b 31 0d 12 ca  22 e7 c2 73 74 72 69 6e  |=n%+1..."..strin|
00003240  67 24 2c 31 29 3d 22 24  22 8c 73 25 3d 73 25 2b  |g$,1)="$".s%=s%+|
00003250  31 3a 3d 73 25 2d 31 0d  12 d4 22 e7 c2 73 74 72  |1:=s%-1..."..str|
00003260  69 6e 67 24 2c 31 29 3d  22 25 22 8c 69 25 3d 69  |ing$,1)="%".i%=i|
00003270  25 2b 31 3a 3d 69 25 2d  31 0d 12 de 11 72 25 3d  |%+1:=i%-1....r%=|
00003280  72 25 2b 31 3a 3d 72 25  2d 31 0d 12 e8 05 3a 0d  |r%+1:=r%-1....:.|
00003290  12 f2 18 dd a4 65 78 70  61 6e 64 73 74 72 28 73  |.....expandstr(s|
000032a0  74 72 69 6e 67 24 29 0d  13 10 0c 3d 73 74 72 69  |tring$)....=stri|
000032b0  6e 67 24 0d 13 1a 05 3a  0d 13 24 18 dd a4 65 78  |ng$....:..$...ex|
000032c0  70 61 6e 64 6e 75 6d 28  73 74 72 69 6e 67 24 29  |pandnum(string$)|
000032d0  0d 13 38 23 ea 64 61 74  61 25 2c 72 65 73 75 6c  |..8#.data%,resul|
000032e0  74 24 2c 6e 61 6d 65 24  2c 62 79 74 65 24 2c 68  |t$,name$,byte$,h|
000032f0  65 78 25 0d 13 42 15 e3  64 61 74 61 25 3d 31 b8  |ex%..B..data%=1.|
00003300  a9 73 74 72 69 6e 67 24  0d 13 4c 1b 62 79 74 65  |.string$..L.byte|
00003310  24 3d c1 73 74 72 69 6e  67 24 2c 64 61 74 61 25  |$=.string$,data%|
00003320  2c 31 29 0d 13 56 28 e7  a7 22 30 31 32 33 34 35  |,1)..V(.."012345|
00003330  36 37 38 39 41 42 43 44  45 46 22 2c 62 79 74 65  |6789ABCDEF",byte|
00003340  24 29 3d 30 8c 68 65 78  25 3d a3 0d 13 6a 3f e7  |$)=0.hex%=...j?.|
00003350  97 28 62 79 74 65 24 29  3e 31 32 37 8c 72 65 73  |.(byte$)>127.res|
00003360  75 6c 74 24 3d 72 65 73  75 6c 74 24 2b a4 75 6e  |ult$=result$+.un|
00003370  70 61 63 6b 74 6f 6b 65  6e 28 97 62 79 74 65 24  |packtoken(.byte$|
00003380  29 3a 62 79 74 65 24 3d  22 22 0d 13 74 42 e7 a7  |):byte$=""..tB..|
00003390  22 30 31 32 33 34 35 36  37 38 39 26 5e 28 29 2a  |"0123456789&^()*|
000033a0  2d 2b 2f 20 22 2c 62 79  74 65 24 29 3c 3e 30 84  |-+/ ",byte$)<>0.|
000033b0  68 65 78 25 3d b9 8c 72  65 73 75 6c 74 24 3d 72  |hex%=..result$=r|
000033c0  65 73 75 6c 74 24 2b 62  79 74 65 24 0d 13 7e 79  |esult$+byte$..~y|
000033d0  e7 a7 22 30 31 32 33 34  35 36 37 38 39 26 5e 28  |.."0123456789&^(|
000033e0  29 2a 2d 2b 2f 20 22 2c  62 79 74 65 24 29 3d 30  |)*-+/ ",byte$)=0|
000033f0  80 68 65 78 25 3d a3 8c  6e 61 6d 65 24 3d a4 66  |.hex%=..name$=.f|
00003400  69 6e 64 77 69 6c 64 28  64 61 74 61 25 2c 73 74  |indwild(data%,st|
00003410  72 69 6e 67 24 2c 22 21  5e 2a 2d 2b 2f 20 22 29  |ring$,"!^*-+/ ")|
00003420  3a 72 65 73 75 6c 74 24  3d 72 65 73 75 6c 74 24  |:result$=result$|
00003430  2b c3 28 a4 66 69 6e 64  76 61 6c 75 65 28 6e 61  |+.(.findvalue(na|
00003440  6d 65 24 29 29 0d 13 88  15 e7 62 79 74 65 24 3d  |me$)).....byte$=|
00003450  22 26 22 8c 68 65 78 25  3d b9 0d 13 92 05 ed 0d  |"&".hex%=.......|
00003460  13 9c 0c 3d 72 65 73 75  6c 74 24 0d 13 a6 05 3a  |...=result$....:|
00003470  0d 13 ba 05 3a 0d 13 ce  33 dc 22 30 30 20 30 31  |....:...3."00 01|
00003480  31 31 20 64 66 66 66 20  66 66 66 66 22 2c 22 41  |11 dfff ffff","A|
00003490  44 44 57 46 20 20 66 2c  64 22 2c 22 41 64 64 20  |DDWF  f,d","Add |
000034a0  57 20 61 6e 64 20 66 22  0d 13 d8 33 dc 22 30 30  |W and f"...3."00|
000034b0  20 30 31 30 31 20 64 66  66 66 20 66 66 66 66 22  | 0101 dfff ffff"|
000034c0  2c 22 41 4e 44 57 46 20  20 66 2c 64 22 2c 22 41  |,"ANDWF  f,d","A|
000034d0  4e 44 20 57 20 61 6e 64  20 66 22 0d 13 e2 38 dc  |ND W and f"...8.|
000034e0  22 31 31 20 31 31 31 78  20 6b 6b 6b 6b 20 6b 6b  |"11 111x kkkk kk|
000034f0  6b 6b 22 2c 22 41 44 44  4c 57 20 20 6b 20 20 22  |kk","ADDLW  k  "|
00003500  2c 22 41 64 64 20 6c 69  74 65 72 61 6c 20 74 6f  |,"Add literal to|
00003510  20 57 22 0d 13 ec 39 dc  22 31 31 20 31 30 30 31  | W"...9."11 1001|
00003520  20 6b 6b 6b 6b 20 6b 6b  6b 6b 22 2c 22 41 4e 44  | kkkk kkkk","AND|
00003530  4c 57 20 20 6b 20 20 22  2c 22 41 6e 64 20 6c 69  |LW  k  ","And li|
00003540  74 65 72 61 6c 20 61 6e  64 20 57 22 0d 13 f6 33  |teral and W"...3|
00003550  dc 22 30 31 20 30 30 62  62 20 62 66 66 66 20 66  |."01 00bb bfff f|
00003560  66 66 66 22 2c 22 42 43  46 20 20 20 20 66 2c 62  |fff","BCF    f,b|
00003570  22 2c 22 42 69 74 20 63  6c 65 61 72 20 66 22 0d  |","Bit clear f".|
00003580  14 00 31 dc 22 30 31 20  30 31 62 62 20 62 66 66  |..1."01 01bb bff|
00003590  66 20 66 66 66 66 22 2c  22 42 53 46 20 20 20 20  |f ffff","BSF    |
000035a0  66 2c 62 22 2c 22 42 69  74 20 73 65 74 20 66 22  |f,b","Bit set f"|
000035b0  0d 14 0a 40 dc 22 30 31  20 31 30 62 62 20 62 66  |...@."01 10bb bf|
000035c0  66 66 20 66 66 66 66 22  2c 22 42 54 46 53 43 20  |ff ffff","BTFSC |
000035d0  20 66 2c 62 22 2c 22 42  69 74 20 74 65 73 74 2c  | f,b","Bit test,|
000035e0  73 6b 69 70 20 69 66 20  63 6c 65 61 72 20 20 22  |skip if clear  "|
000035f0  0d 14 14 3c dc 22 30 31  20 31 31 62 62 20 62 66  |...<."01 11bb bf|
00003600  66 66 20 66 66 66 66 22  2c 22 42 54 46 53 53 20  |ff ffff","BTFSS |
00003610  20 66 2c 62 22 2c 22 42  69 74 20 74 65 73 74 2c  | f,b","Bit test,|
00003620  73 6b 69 70 20 69 66 20  73 65 74 22 0d 14 1e 37  |skip if set"...7|
00003630  dc 22 31 30 20 30 6b 6b  6b 20 6b 6b 6b 6b 20 6b  |."10 0kkk kkkk k|
00003640  6b 6b 6b 22 2c 22 43 41  4c 4c 20 20 20 6b 20 20  |kkk","CALL   k  |
00003650  22 2c 22 43 61 6c 6c 20  73 75 62 72 6f 75 74 69  |","Call subrouti|
00003660  6e 65 22 0d 14 28 3d dc  22 30 30 20 30 30 30 30  |ne"..(=."00 0000|
00003670  20 30 31 31 30 20 30 31  30 30 22 2c 22 43 4c 52  | 0110 0100","CLR|
00003680  57 44 54 20 20 20 20 22  2c 22 43 6c 65 61 72 20  |WDT    ","Clear |
00003690  77 61 74 63 68 20 64 6f  67 20 74 69 6d 65 72 22  |watch dog timer"|
000036a0  0d 14 32 2f dc 22 30 30  20 30 30 30 31 20 30 78  |..2/."00 0001 0x|
000036b0  78 78 20 78 78 78 78 22  2c 22 43 4c 52 57 20 20  |xx xxxx","CLRW  |
000036c0  20 20 20 20 22 2c 22 43  6c 65 61 72 20 57 22 0d  |    ","Clear W".|
000036d0  14 3c 2f dc 22 30 30 20  30 30 30 31 20 31 66 66  |.</."00 0001 1ff|
000036e0  66 20 66 66 66 66 22 2c  22 43 4c 52 46 20 20 20  |f ffff","CLRF   |
000036f0  66 20 20 22 2c 22 43 6c  65 61 72 20 66 22 0d 14  |f  ","Clear f"..|
00003700  46 34 dc 22 30 30 20 31  30 30 31 20 64 66 66 66  |F4."00 1001 dfff|
00003710  20 66 66 66 66 22 2c 22  43 4f 4d 46 20 20 20 66  | ffff","COMF   f|
00003720  2c 64 22 2c 22 43 6f 6d  70 6c 65 6d 65 6e 74 20  |,d","Complement |
00003730  66 22 0d 14 50 41 dc 22  30 30 20 31 30 31 31 20  |f"..PA."00 1011 |
00003740  64 66 66 66 20 66 66 66  66 22 2c 22 44 45 43 46  |dfff ffff","DECF|
00003750  53 5a 20 66 2c 64 22 2c  22 44 65 63 72 65 6d 65  |SZ f,d","Decreme|
00003760  6e 74 20 66 2c 20 73 6b  69 70 20 69 66 20 7a 65  |nt f, skip if ze|
00003770  72 6f 22 0d 14 5a 33 dc  22 30 30 20 30 30 31 31  |ro"..Z3."00 0011|
00003780  20 64 66 66 66 20 66 66  66 66 22 2c 22 44 45 43  | dfff ffff","DEC|
00003790  46 20 20 20 66 2c 64 22  2c 22 44 65 63 72 65 6d  |F   f,d","Decrem|
000037a0  65 6e 74 20 66 22 0d 14  64 37 dc 22 31 30 20 31  |ent f"..d7."10 1|
000037b0  6b 6b 6b 20 6b 6b 6b 6b  20 6b 6b 6b 6b 22 2c 22  |kkk kkkk kkkk","|
000037c0  47 4f 54 4f 20 20 20 6b  20 20 22 2c 22 47 6f 74  |GOTO   k  ","Got|
000037d0  6f 20 61 64 64 72 65 73  73 20 20 6b 22 0d 14 6e  |o address  k"..n|
000037e0  42 dc 22 31 31 20 31 30  30 30 20 6b 6b 6b 6b 20  |B."11 1000 kkkk |
000037f0  6b 6b 6b 6b 22 2c 22 49  4f 52 4c 57 20 20 6b 20  |kkkk","IORLW  k |
00003800  20 22 2c 22 49 6e 63 6c  75 73 69 76 65 20 4f 52  | ","Inclusive OR|
00003810  20 6c 69 74 65 72 61 6c  20 61 6e 64 20 57 22 0d  | literal and W".|
00003820  14 78 40 dc 22 30 30 20  31 31 31 31 20 64 66 66  |.x@."00 1111 dff|
00003830  66 20 66 66 66 66 22 2c  22 49 4e 43 46 53 5a 20  |f ffff","INCFSZ |
00003840  66 2c 64 22 2c 22 49 6e  63 72 65 6d 65 6e 74 20  |f,d","Increment |
00003850  66 2c 73 6b 69 70 20 69  66 20 7a 65 72 6f 22 0d  |f,skip if zero".|
00003860  14 82 33 dc 22 30 30 20  31 30 31 30 20 64 66 66  |..3."00 1010 dff|
00003870  66 20 66 66 66 66 22 2c  22 49 4e 43 46 20 20 20  |f ffff","INCF   |
00003880  66 2c 64 22 2c 22 49 6e  63 72 65 6d 65 6e 74 20  |f,d","Increment |
00003890  66 22 0d 14 8c 3c dc 22  30 30 20 30 31 30 30 20  |f"...<."00 0100 |
000038a0  64 66 66 66 20 66 66 66  66 22 2c 22 49 4f 52 57  |dfff ffff","IORW|
000038b0  46 20 20 66 2c 64 22 2c  22 49 6e 63 6c 75 73 69  |F  f,d","Inclusi|
000038c0  76 65 20 4f 52 20 57 20  61 6e 64 20 66 22 0d 14  |ve OR W and f"..|
000038d0  96 2e dc 22 30 30 20 31  30 30 30 20 64 66 66 66  |..."00 1000 dfff|
000038e0  20 66 66 66 66 22 2c 22  4d 4f 56 46 20 20 20 66  | ffff","MOVF   f|
000038f0  2c 64 22 2c 22 4d 6f 76  65 20 66 22 0d 14 a0 33  |,d","Move f"...3|
00003900  dc 22 30 30 20 30 30 30  30 20 31 66 66 66 20 66  |."00 0000 1fff f|
00003910  66 66 66 22 2c 22 4d 4f  56 57 46 20 20 66 20 20  |fff","MOVWF  f  |
00003920  22 2c 22 4d 6f 76 65 20  57 20 74 6f 20 66 22 0d  |","Move W to f".|
00003930  14 aa 39 dc 22 31 31 20  30 30 78 78 20 6b 6b 6b  |..9."11 00xx kkk|
00003940  6b 20 6b 6b 6b 6b 22 2c  22 4d 4f 56 4c 57 20 20  |k kkkk","MOVLW  |
00003950  6b 20 20 22 2c 22 4d 6f  76 65 20 4c 69 74 65 72  |k  ","Move Liter|
00003960  61 6c 20 74 6f 20 57 22  0d 14 b4 34 dc 22 30 30  |al to W"...4."00|
00003970  20 30 30 30 30 20 30 78  78 30 20 30 30 30 30 22  | 0000 0xx0 0000"|
00003980  2c 22 4e 4f 50 20 20 20  20 20 20 20 22 2c 22 4e  |,"NOP       ","N|
00003990  6f 20 6f 70 65 72 61 74  69 6f 6e 22 0d 14 be 43  |o operation"...C|
000039a0  dc 22 30 30 20 30 30 30  30 20 30 31 31 30 20 30  |."00 0000 0110 0|
000039b0  30 31 30 22 2c 22 4f 50  54 49 4f 4e 20 20 20 20  |010","OPTION    |
000039c0  22 2c 22 4c 6f 61 64 20  4f 50 54 49 4f 4e 20 72  |","Load OPTION r|
000039d0  65 67 69 73 74 65 72 20  77 69 74 68 20 57 22 0d  |egister with W".|
000039e0  14 c8 35 dc 22 30 30 20  31 31 30 31 20 64 66 66  |..5."00 1101 dff|
000039f0  66 20 66 66 66 66 22 2c  22 52 4c 46 20 20 20 20  |f ffff","RLF    |
00003a00  66 2c 64 22 2c 22 52 6f  74 61 74 65 20 6c 65 66  |f,d","Rotate lef|
00003a10  74 20 66 22 0d 14 d2 36  dc 22 30 30 20 31 31 30  |t f"...6."00 110|
00003a20  30 20 64 66 66 66 20 66  66 66 66 22 2c 22 52 52  |0 dfff ffff","RR|
00003a30  46 20 20 20 20 66 2c 64  22 2c 22 52 6f 74 61 74  |F    f,d","Rotat|
00003a40  65 20 72 69 67 68 74 20  66 22 0d 14 dc 3d dc 22  |e right f"...=."|
00003a50  30 30 20 30 30 30 30 20  30 30 30 30 20 31 30 30  |00 0000 0000 100|
00003a60  31 22 2c 22 52 45 54 46  49 45 20 20 20 20 22 2c  |1","RETFIE    ",|
00003a70  22 52 65 74 75 72 6e 20  66 72 6f 6d 20 49 6e 74  |"Return from Int|
00003a80  65 72 72 75 70 74 22 0d  14 e6 40 dc 22 31 31 20  |errupt"...@."11 |
00003a90  30 31 78 78 20 6b 6b 6b  6b 20 6b 6b 6b 6b 22 2c  |01xx kkkk kkkk",|
00003aa0  22 52 45 54 4c 57 20 20  6b 20 20 22 2c 22 52 65  |"RETLW  k  ","Re|
00003ab0  74 75 72 6e 20 77 69 74  68 20 6c 69 74 65 72 61  |turn with litera|
00003ac0  6c 20 69 6e 20 57 22 0d  14 f0 3e dc 22 30 30 20  |l in W"...>."00 |
00003ad0  30 30 30 30 20 30 30 30  30 20 31 30 30 30 22 2c  |0000 0000 1000",|
00003ae0  22 52 45 54 55 52 4e 20  20 20 20 22 2c 22 52 65  |"RETURN    ","Re|
00003af0  74 75 72 6e 20 66 72 6f  6d 20 73 75 62 72 6f 75  |turn from subrou|
00003b00  74 69 6e 65 22 0d 14 fa  39 dc 22 30 30 20 30 30  |tine"...9."00 00|
00003b10  31 30 20 64 66 66 66 20  66 66 66 66 22 2c 22 53  |10 dfff ffff","S|
00003b20  55 42 57 46 20 20 66 2c  64 22 2c 22 53 75 62 74  |UBWF  f,d","Subt|
00003b30  72 61 63 74 20 57 20 66  72 6f 6d 20 66 22 0d 15  |ract W from f"..|
00003b40  04 46 dc 22 30 30 20 31  31 31 30 20 64 66 66 66  |.F."00 1110 dfff|
00003b50  20 66 66 66 66 22 2c 22  53 57 41 50 46 20 20 66  | ffff","SWAPF  f|
00003b60  2c 64 22 2c 22 53 77 61  70 20 6c 65 66 74 20 26  |,d","Swap left &|
00003b70  20 72 69 67 68 74 20 6e  79 62 62 6c 65 73 20 6f  | right nybbles o|
00003b80  66 20 66 22 0d 15 0e 3d  dc 22 30 30 20 30 30 30  |f f"...=."00 000|
00003b90  30 20 30 31 31 30 20 30  30 31 31 22 2c 22 53 4c  |0 0110 0011","SL|
00003ba0  45 45 50 20 20 20 20 20  22 2c 22 47 6f 20 69 6e  |EEP     ","Go in|
00003bb0  74 6f 20 73 74 61 6e 64  20 62 79 20 6d 6f 64 65  |to stand by mode|
00003bc0  22 0d 15 18 3f dc 22 31  31 20 31 31 30 78 20 6b  |"...?."11 110x k|
00003bd0  6b 6b 6b 20 6b 6b 6b 6b  22 2c 22 53 55 42 4c 57  |kkk kkkk","SUBLW|
00003be0  20 20 6b 20 20 22 2c 22  53 75 62 74 72 61 63 74  |  k  ","Subtract|
00003bf0  20 57 20 66 72 6f 6d 20  6c 69 74 65 72 61 6c 22  | W from literal"|
00003c00  0d 15 22 37 dc 22 30 30  20 30 30 30 30 20 30 31  |.."7."00 0000 01|
00003c10  31 30 20 30 66 66 66 22  2c 22 54 52 49 53 20 20  |10 0fff","TRIS  |
00003c20  20 66 20 20 22 2c 22 54  72 69 73 74 61 74 65 20  | f  ","Tristate |
00003c30  70 6f 72 74 20 66 22 0d  15 2c 3c dc 22 30 30 20  |port f"..,<."00 |
00003c40  30 31 31 30 20 64 66 66  66 20 66 66 66 66 22 2c  |0110 dfff ffff",|
00003c50  22 58 4f 52 57 46 20 20  66 2c 64 22 2c 22 45 78  |"XORWF  f,d","Ex|
00003c60  63 6c 75 73 69 76 65 20  4f 52 20 57 20 61 6e 64  |clusive OR W and|
00003c70  20 66 22 0d 15 36 42 dc  22 31 31 20 31 30 31 30  | f"..6B."11 1010|
00003c80  20 6b 6b 6b 6b 20 6b 6b  6b 6b 22 2c 22 58 4f 52  | kkkk kkkk","XOR|
00003c90  4c 57 20 20 6b 20 20 22  2c 22 45 78 63 6c 75 73  |LW  k  ","Exclus|
00003ca0  69 76 65 20 4f 52 20 6c  69 74 65 72 61 6c 20 61  |ive OR literal a|
00003cb0  6e 64 20 57 22 0d 15 40  3f dc 22 5b 5b 5b 22 2c  |nd W"..@?."[[[",|
00003cc0  22 5b 5b 5b 22 2c 22 45  4f 54 20 6d 61 72 6b 65  |"[[[","EOT marke|
00003cd0  72 20 43 48 52 24 39 31  20 69 73 20 41 53 43 27  |r CHR$91 is ASC'|
00003ce0  5a 27 2b 31 20 77 68 69  63 68 20 69 73 20 61 20  |Z'+1 which is a |
00003cf0  27 5b 27 22 0d 15 4a 05  3a 0d 15 5e 58 dc 20 22  |'['"..J.:..^X. "|
00003d00  38 30 41 4e 44 22 2c 22  38 31 44 49 56 22 2c 22  |80AND","81DIV","|
00003d10  38 32 45 4f 52 22 2c 22  38 33 4d 4f 44 22 2c 22  |82EOR","83MOD","|
00003d20  38 34 4f 52 22 2c 22 38  35 45 52 52 4f 52 22 2c  |84OR","85ERROR",|
00003d30  22 38 36 4c 49 4e 45 22  2c 22 38 37 4f 46 46 22  |"86LINE","87OFF"|
00003d40  2c 22 38 38 53 54 45 50  22 2c 22 38 39 53 50 43  |,"88STEP","89SPC|
00003d50  22 0d 15 68 58 dc 20 22  38 41 54 41 42 22 2c 22  |"..hX. "8ATAB","|
00003d60  38 42 45 4c 53 45 22 2c  22 38 43 54 48 45 4e 22  |8BELSE","8CTHEN"|
00003d70  2c 22 38 45 4f 50 45 4e  49 4e 22 2c 22 38 46 50  |,"8EOPENIN","8FP|
00003d80  54 52 22 2c 22 39 30 50  41 47 45 22 2c 22 39 31  |TR","90PAGE","91|
00003d90  54 49 4d 45 22 2c 22 39  32 4c 4f 4d 45 4d 22 2c  |TIME","92LOMEM",|
00003da0  22 39 33 48 49 4d 45 4d  22 0d 15 72 5a dc 20 22  |"93HIMEM"..rZ. "|
00003db0  39 34 41 42 53 22 2c 22  39 35 41 43 53 22 2c 22  |94ABS","95ACS","|
00003dc0  39 36 41 44 56 41 4c 22  2c 22 39 37 41 53 43 22  |96ADVAL","97ASC"|
00003dd0  2c 22 39 38 41 53 4e 22  2c 22 39 39 41 54 4e 22  |,"98ASN","99ATN"|
00003de0  2c 22 39 41 42 47 45 54  22 2c 22 39 42 43 4f 53  |,"9ABGET","9BCOS|
00003df0  22 2c 22 39 43 43 4f 55  4e 54 22 2c 22 39 44 44  |","9CCOUNT","9DD|
00003e00  45 47 22 0d 15 7c 5c dc  20 22 39 45 45 52 4c 22  |EG"..|\. "9EERL"|
00003e10  2c 22 39 46 45 52 52 22  2c 22 41 30 45 56 41 4c  |,"9FERR","A0EVAL|
00003e20  22 2c 22 41 31 45 58 50  22 2c 22 41 32 45 58 54  |","A1EXP","A2EXT|
00003e30  22 2c 22 41 33 46 41 4c  53 45 22 2c 22 41 34 46  |","A3FALSE","A4F|
00003e40  4e 22 2c 22 41 35 47 45  54 22 2c 22 41 36 49 4e  |N","A5GET","A6IN|
00003e50  4b 45 59 22 2c 22 41 37  49 4e 53 54 52 28 22 0d  |KEY","A7INSTR(".|
00003e60  15 86 5d dc 20 22 41 38  49 4e 54 22 2c 22 41 39  |..]. "A8INT","A9|
00003e70  4c 45 4e 22 2c 22 41 41  4c 4e 22 2c 22 41 42 4c  |LEN","AALN","ABL|
00003e80  4f 47 22 2c 22 41 43 4e  4f 54 22 2c 22 41 44 4f  |OG","ACNOT","ADO|
00003e90  50 45 4e 55 50 22 2c 22  41 45 4f 50 45 4e 4f 55  |PENUP","AEOPENOU|
00003ea0  54 22 2c 22 41 46 50 49  22 2c 22 42 30 50 4f 49  |T","AFPI","B0POI|
00003eb0  4e 54 28 22 2c 22 42 31  50 4f 53 22 0d 15 90 55  |NT(","B1POS"...U|
00003ec0  dc 20 22 42 32 52 41 44  22 2c 22 42 33 52 4e 44  |. "B2RAD","B3RND|
00003ed0  22 2c 22 42 34 53 47 4e  22 2c 22 42 35 53 49 4e  |","B4SGN","B5SIN|
00003ee0  22 2c 22 42 36 53 51 52  22 2c 22 42 37 54 41 4e  |","B6SQR","B7TAN|
00003ef0  22 2c 22 42 38 54 4f 22  2c 22 42 39 54 52 55 45  |","B8TO","B9TRUE|
00003f00  22 2c 22 42 41 55 53 52  22 2c 22 42 42 56 41 4c  |","BAUSR","BBVAL|
00003f10  22 0d 15 9a 55 dc 20 22  42 43 56 50 4f 53 22 2c  |"...U. "BCVPOS",|
00003f20  22 42 44 43 48 52 24 22  2c 22 42 45 47 45 54 24  |"BDCHR$","BEGET$|
00003f30  22 2c 22 42 46 49 4e 4b  45 59 24 22 2c 22 43 30  |","BFINKEY$","C0|
00003f40  4c 45 46 54 24 28 22 2c  22 43 31 4d 49 44 24 28  |LEFT$(","C1MID$(|
00003f50  22 2c 22 43 32 52 49 47  48 54 24 28 22 2c 22 43  |","C2RIGHT$(","C|
00003f60  33 53 54 52 24 22 0d 15  a4 5d dc 20 22 43 34 53  |3STR$"...]. "C4S|
00003f70  54 52 49 4e 47 24 28 22  2c 22 43 35 45 4f 46 22  |TRING$(","C5EOF"|
00003f80  2c 22 43 36 41 55 54 4f  22 2c 22 43 37 44 45 4c  |,"C6AUTO","C7DEL|
00003f90  45 54 45 22 2c 22 43 38  4c 4f 41 44 22 2c 22 43  |ETE","C8LOAD","C|
00003fa0  39 4c 49 53 54 22 2c 22  43 41 4e 45 57 22 2c 22  |9LIST","CANEW","|
00003fb0  43 42 4f 4c 44 22 2c 22  43 43 52 45 4e 55 4d 42  |CBOLD","CCRENUMB|
00003fc0  45 52 22 0d 15 ae 58 dc  20 22 43 44 53 41 56 45  |ER"...X. "CDSAVE|
00003fd0  22 2c 22 43 46 50 54 52  22 2c 22 44 30 50 41 47  |","CFPTR","D0PAG|
00003fe0  45 22 2c 22 44 31 54 49  4d 45 22 2c 22 44 32 4c  |E","D1TIME","D2L|
00003ff0  4f 4d 45 4d 22 2c 22 44  33 48 49 4d 45 4d 22 2c  |OMEM","D3HIMEM",|
00004000  22 44 34 53 4f 55 4e 44  22 2c 22 44 35 42 50 55  |"D4SOUND","D5BPU|
00004010  54 22 2c 22 44 36 43 41  4c 4c 22 0d 15 b8 5d dc  |T","D6CALL"...].|
00004020  20 22 44 37 43 48 41 49  4e 22 2c 22 44 38 43 4c  | "D7CHAIN","D8CL|
00004030  45 41 52 22 2c 22 44 39  43 4c 4f 53 45 22 2c 22  |EAR","D9CLOSE","|
00004040  44 41 43 4c 47 22 2c 22  44 42 43 4c 53 22 2c 22  |DACLG","DBCLS","|
00004050  44 43 44 41 54 41 22 2c  22 44 44 44 45 46 22 2c  |DCDATA","DDDEF",|
00004060  22 44 45 44 49 4d 22 2c  22 44 46 44 52 41 57 22  |"DEDIM","DFDRAW"|
00004070  2c 22 45 30 45 4e 44 22  0d 15 c2 5b dc 20 22 45  |,"E0END"...[. "E|
00004080  31 45 4e 44 50 52 4f 43  22 2c 22 45 32 45 4e 56  |1ENDPROC","E2ENV|
00004090  45 4c 4f 50 45 22 2c 22  45 33 46 4f 52 22 2c 22  |ELOPE","E3FOR","|
000040a0  45 34 47 4f 53 55 42 22  2c 22 45 35 47 4f 54 4f  |E4GOSUB","E5GOTO|
000040b0  22 2c 22 45 36 47 43 4f  4c 22 2c 22 45 37 49 46  |","E6GCOL","E7IF|
000040c0  22 2c 22 45 38 49 4e 50  55 54 22 2c 22 45 39 4c  |","E8INPUT","E9L|
000040d0  45 54 22 0d 15 cc 5e dc  20 22 45 41 4c 4f 43 41  |ET"...^. "EALOCA|
000040e0  4c 22 2c 22 45 42 4d 4f  44 45 22 2c 22 45 43 4d  |L","EBMODE","ECM|
000040f0  4f 56 45 22 2c 22 45 44  4e 45 58 54 22 2c 22 45  |OVE","EDNEXT","E|
00004100  45 4f 4e 22 2c 22 45 46  56 44 55 22 2c 22 46 30  |EON","EFVDU","F0|
00004110  50 4c 4f 54 22 2c 22 46  31 50 52 49 4e 54 22 2c  |PLOT","F1PRINT",|
00004120  22 46 32 50 52 4f 43 22  2c 22 46 33 52 45 41 44  |"F2PROC","F3READ|
00004130  22 0d 15 d6 60 dc 20 22  46 34 52 45 4d 22 2c 22  |"...`. "F4REM","|
00004140  46 35 52 45 50 45 41 54  22 2c 22 46 36 52 45 50  |F5REPEAT","F6REP|
00004150  4f 52 54 22 2c 22 46 37  52 45 53 54 4f 52 45 22  |ORT","F7RESTORE"|
00004160  2c 22 46 38 52 45 54 55  52 4e 22 2c 22 46 39 52  |,"F8RETURN","F9R|
00004170  55 4e 22 2c 22 46 41 53  54 4f 50 22 2c 22 46 42  |UN","FASTOP","FB|
00004180  43 4f 4c 4f 55 52 22 2c  22 46 43 54 52 41 43 45  |COLOUR","FCTRACE|
00004190  22 0d 15 e0 23 dc 20 22  46 44 55 4e 54 49 4c 22  |"...#. "FDUNTIL"|
000041a0  2c 22 46 45 57 49 44 54  48 22 2c 22 46 46 4f 53  |,"FEWIDTH","FFOS|
000041b0  43 4c 49 22 0d 15 ea 05  3a 0d 15 fe 2c dc 20 48  |CLI"....:...,. H|
000041c0  45 4c 50 2c 22 47 69 76  65 73 20 64 65 74 61 69  |ELP,"Gives detai|
000041d0  6c 73 20 6f 66 20 61 76  61 69 6c 61 62 6c 65 20  |ls of available |
000041e0  68 65 6c 70 22 0d 16 08  3f dc 20 43 48 41 49 4e  |help"...?. CHAIN|
000041f0  22 66 69 6c 65 6e 61 6d  65 22 2c 22 4c 6f 61 64  |"filename","Load|
00004200  73 20 61 6e 64 20 61 73  73 65 6d 62 6c 65 73 20  |s and assembles |
00004210  74 68 65 20 50 49 43 20  73 6f 75 72 63 65 20 63  |the PIC source c|
00004220  6f 64 65 22 0d 16 12 30  dc 20 4c 4f 41 44 22 66  |ode"...0. LOAD"f|
00004230  69 6c 65 6e 61 6d 65 22  2c 22 4c 6f 61 64 73 20  |ilename","Loads |
00004240  74 68 65 20 50 49 43 20  73 6f 75 72 63 65 20 63  |the PIC source c|
00004250  6f 64 65 22 0d 16 1c 40  dc 20 4c 49 53 54 20 5b  |ode"...@. LIST [|
00004260  3c 66 72 6f 6d 3e 3c 2c  74 6f 3e 5d 2c 22 4f 70  |<from><,to>],"Op|
00004270  74 69 6f 6e 61 6c 6c 79  20 6c 69 73 74 20 70 72  |tionally list pr|
00004280  6f 67 72 61 6d 20 3c 66  72 6f 6d 3e 2e 2e 2e 3c  |ogram <from>...<|
00004290  74 6f 3e 22 0d 16 26 32  dc 20 52 55 4e 2c 22 43  |to>"..&2. RUN,"C|
000042a0  6c 65 61 72 73 20 76 61  72 69 61 62 6c 65 73 20  |lears variables |
000042b0  74 68 65 6e 20 65 78 65  63 75 74 65 73 20 70 72  |then executes pr|
000042c0  6f 67 72 61 6d 22 0d 16  30 23 dc 20 51 55 49 54  |ogram"..0#. QUIT|
000042d0  2c 22 45 6e 64 73 20 74  68 65 20 50 49 43 20 61  |,"Ends the PIC a|
000042e0  73 73 65 6d 62 6c 65 72  22 0d ff                 |ssembler"..|
000042eb