� >Flop
.�        FP assembler (by L. Mongey) v0.06
� Lorcan Mongey
� 56 Salisbury Court
� Dublin Road
� Belfast BT7 1DD
� Tel: 0232 234386

	�   MACHINE:  Archimedes

�   LANGUAGE: BBC BASIC V
�   AUTHOR:   Cy Booker,
H�             86 Church View, Main Road, Crockenhill, Swanley, Kent.

�             BR8 8JW
�   FUNCTIONS:
�    flop(inst$)
�    equfe(f$)
�    equfp(f$)
�    equfd(f$)
�    equfs(f$)
	�   :
�   PROCEDURES:
�    (none)
	�   :
�   EXTERNALS:
�    (none)
�  :
�   INTERNALS:
�    Flop_BCD%
�    Flop_Num%
�    Flop_(E|D|S)toP%
�    Flop_Pto(E|D|S)%
 	�   :
!�   UPDATES:
"�  Cy Booker changed
#(�     1. conditionals are lower case
$+�     2. spaces after commas obligatory
%$�     3. ERROR 0's --> ERROR 1's
&8�     4. ERROR "Bad syntax" --> explanation appended
'H�     5. New instruction SMF & LMF that perform multiple STF, LDF on
(G�        a STMDB/LDMIA (FD) stack - so can easily SMFE sp!, {F0-F7}
)3�     6. "FLT Fd, Rn" - not as was "FLT Rn, Fd"
*�     7. Added FNequfe
+4�     8. Local errors => appends library message
,=�     9. Trap EVAL errors so shows what couldn't evaluate
-<�  05.02.1992 CJB Added Flop_?toP% & Flop_Pto?% routines
./�                 Added FNequf(e|p|s|d)(s$)
/-�  06.02.1992 CJB Now loads up fpemulator
0*�  23.04.1992 CJB uses %.CAsm's FNeval
1"�  29.05.1993 CJB local errors
21�  17.06.1993 CJB default precision is Double
3J�  30.06.1993 006 CJB no longer includes CAsm, as FNeval in LibHandler
4:
5� �_Flop_version  :  = 006
6:
7� �_hard_initialise_Flop
8� code%, P%, L%, O%, pass%
9
  L% = 96
:  � code% L%:L%+=code%
;   P% = code% : pass% = %1010
<[OPT pass%
=        ALIGN
>#.Flop_BCD%:EQUD 0:EQUD 0:EQUD 0
?#.Flop_Num%:EQUD 0:EQUD 0:EQUD 0
@.Flop_PtoE%
A"�flop("LDFP    F0, Flop_BCD%")
B"�flop("STFE    F0, Flop_Num%")
C        MOVS    PC,R14
D.Flop_PtoD%
E"�flop("LDFP    F0, Flop_BCD%")
F"�flop("STFD    F0, Flop_Num%")
G        MOVS    PC,R14
H.Flop_PtoS%
I"�flop("LDFP    F0, Flop_BCD%")
J"�flop("STFS    F0, Flop_Num%")
K        MOVS    PC,R14
L.Flop_EtoP%
M"�flop("LDFE    F0, Flop_Num%")
N"�flop("STFP    F0, Flop_BCD%")
O        MOVS    PC,R14
P.Flop_DtoP%
Q"�flop("LDFD    F0, Flop_Num%")
R"�flop("STFP    F0, Flop_BCD%")
S        MOVS    PC,R14
T.Flop_StoP%
U"�flop("LDFS    F0, Flop_Num%")
V"�flop("STFP    F0, Flop_BCD%")
W        MOVS    PC,R14
X]
YM  ș "OS_CLI","RMEnsure FPEmulator 2.80 RMLoad System:Modules.FPEmulator"
Z= 0
[:
\K� *********************************************************************
]F� These functions allow the definition of floating point constants
^;� using the expected decimal/scientific notation.  E.g.
_B�   [sign] [digits] [`.' [digits]] [(`e' | `E') [sign] digits]
`?� with the proviso that starts with either a digit or a `.'
a=�   E.g.    `3.14', `+31.4E-1', `.0314e+000000002' are OK
b2� zero values are recognised and made positive
c:
dݤequfe(f$)
e� �
f&� � � � �:�_e("equfe(`"+ f$+ "')")
g  �equf(f$)
h  � Flop_PtoE%
iB[OPT pass%:EQUD !Flop_Num%:EQUD Flop_Num%!4:EQUD Flop_Num%!8:]
j=0
k:
lݤequfd(f$)
m� �
n&� � � � �:�_e("equfd(`"+ f$+ "')")
o  �equf(f$)
p  � Flop_PtoD%
q1[OPT pass%:EQUD !Flop_Num%:EQUD Flop_Num%!4:]
r=0
s:
tݤequfp(f$)
u� �
v&� � � � �:�_e("equfp(`"+ f$+ "')")
w  �equf(f$)
xB[OPT pass%:EQUD !Flop_BCD%:EQUD Flop_BCD%!4:EQUD Flop_BCD%!8:]
y=0
z:
{ݤequfs(f$)
|� �
}&� � � � �:�_e("equfs(`"+ f$+ "')")
~  �equf(f$)
  � Flop_PtoS%
� [OPT pass%:EQUD !Flop_Num%:]
�=0
�:
�� �equf(s$)
�&� exp%,int$,i%,neg%,esgn%,x%,w%,n%
�  exp%=0
�  neg%=�
�  � �(s$)=�("+") �
�    s$=�s$,2)
�  �
�    neg%=(�(s$)=�("-"))
�    � neg% � s$=�s$,2)
�  �
�-  � �"eE", �s$,1)) � � 1, "Premature `e'"
�!  ȕ �(s$)=�("0"):s$=�s$,2):�
�  exp%=0
�  � s$="" �
�    int$="0"
�  �
�4    ȕ �"0123456789",�s$,exp%+1,1)) � exp%<�(s$)
�      exp%+=1
�	    �
�,    � exp% � int$=�s$,1,exp%) � int$="0"
�    s$=�s$,exp%+1)
�    � s$<>"" �
�      � �(s$)=�(".") �
�        s$=�s$,2)
�        � s$<>"" �
�          � exp%=0 �
�            int$=""
�3            ȕ �(s$)=�("0"):exp%-=1:s$=�s$,2):�
�-            � �"0123456789eE",�s$,1))=0 �
�7              � 1, "Unexpected character in number"
�            �
�          �
�!          � �"eE",�s$,1))=0 �
�            i%=0
�8            ȕ �"0123456789",�s$,i%+1,1)) � i%<�(s$)
�              i%+=1
�            �
�            int$+=�s$,1,i%)
�            s$=�s$,i%+1)
�          �
�
        �
�      �
�$      � s$<>"" � �"eE",�s$,1)) �
�        s$=�s$,2)
�        esgn%=1
�        � �(s$)=�("+") �
�          s$=�s$,2)
�
        �
�          � �(s$)=�("-") �
�            s$=�s$,2)
�            esgn%=-1
�          �
�
        �
�1        � s$="" � � 1, "Nothing for exponent"
�'        � �"0123456789",�s$,1))=0 �
�5          � 1, "Unexpected character in exponent"
�
        �
�        i%=0
�
        �
�          i%+=1
�7        � (�"0123456789",�s$,i%,1))=0) � (i%>�(s$))
�"        exp%+=esgn%*�(�s$,i%))
�        s$=�s$,i%+1)
�      �
�	    �
�  �
�+  � s$<>"" � � 1, "Junk follows number"
�
  exp%-=1
�*  � int$="0" � int$="" � exp%=0:neg%=�
�2  � �(exp%)>340 � � 1, "Exponent out of range"
�A  � �(int$)>19 � � 1, "Too many significant figures (max 19)"
�.  int$=�"0000"+�(�(exp%)),5)+int$+�19,"0")
�
  i%=1
�  � w%=0 � 8 � 4
�    x% = 0
�    � n%=28 � 0 � -4
�+      x%+=(�(�int$,i%,1))-�("0")) << n%
�      i%+=1
�    � n%
�    Flop_BCD%!w%=x%
�
  � w%
�&  � exp%<0 � !Flop_BCD%+=&40000000
�$  � neg% � !Flop_BCD%+=&80000000
��
�:
�K� *********************************************************************
�<� Processes pseudo - data transfer operations (LMF, SMF)
�� Syntax is
�)�     op<cond><prec> <rn>!, {<flist>}
�%�     <rn> = Rn or number [0, 15]
�,�     <flist> = <fn> [-<fn>] {, <flist>}
�
�
��mdatran
�<�areg%,end%,flow%,fmask%,freg%,off%,pp%,ud%,wb%,a$,freg$
�opcode%-=40
�off%=�inst$,"!, {")
�/�off%=0� �1,"Bad syntax - expecting `!, {'"
�1areg%=�armreg(�inst$,pointer%,off%-pointer%))
�pointer%=off%+4
�fmask%=0
�end%=�(inst$)
��
�  freg$=""
�  a$=�inst$,pointer%,1)
�  off%=pointer%
�  ȕa$<>","�a$<>"}"
�    pointer%+=1
�>    �pointer%>end%� �1,"Bad syntax - Expecting `,' or `}'"
�    a$=�inst$,pointer%,1)
�  �
�3  �pointer%=off%� �1,"Bad syntax - no register"
�&  freg$=�inst$,off%,pointer%-off%)
�  off%=�freg$,"-")
�  �off%�
�$    flow%=�reg(�freg$,1,off%-1))
�"    freg%=�reg(�freg$,off%+1))
�:    �flow%>freg%� �1,"Bad syntax - Fn-Fm not low-high"
�    ȕflow%<=freg%
�"      fmask%=fmask%�(1<<flow%)
�      flow%+=1
�	    �
�  �
�&    fmask%=fmask%�(1<<�reg(freg$))
�  �
�  �a$<>"}"� pointer%+=2

�a$="}"


pp%=1-opcode%

"off%=(1+prec%):�prec%=3�off%=3

wb%=1-opcode%

ud%=opcode%

�word%=(cond%<<28)+(3<<26)+(pp%<<24)+(ud%<<23)+((prec%�2)<<22)+(wb%<<21)+(opcode%<<20)+(areg%<<16)+((prec%�2)<<15)+(1<<8)+off%


�opcode%�

  mask%=&FE:i%=0

  ȕfmask%�mask%

	8    �fmask%�(1<<i%)� [OPT pass%:EQUDword%+(i%<<12):]



    i%+=1

    mask%+=mask%

  �


  word%+=i%<<12

�

  mask%=&7F:i%=7<<12

  ȕfmask%�mask%

4    �fmask%�(mask%+1)� [OPT pass%:EQUDword%+i%:]

    i%-=1<<12

    mask%=mask%>>>1

  �

  word%+=i%

�

�



I� *******************************************************************




��address

2� Processes an address and the addressing mode

�inst$,pointer%,1)="["�

  pointer%+=1

7  ȕ�inst$,pointer%,1)<>"]"��inst$,pointer%,1)<>","

 !    areg$+=�inst$,pointer%,1)

!    pointer%+=1

"  �

#  areg%=�armreg(areg$)

$  �inst$,pointer%,1)="]"�

%    �pointer%=�(inst$)�

&4      ud%=1                       :� non-indexed

'2    �                          :� post-indexed

(      pointer%+=1

)B      �inst$,pointer%,1)<>","��1,"Bad syntax - expecting `,'"

*      pointer%+=2

+B      �inst$,pointer%,1)<>"#"��1,"Bad syntax - expecting `#'"

,      pointer%+=1

-1      off%=�eval(�inst$,�(inst$)-pointer%+1))

.	    �

/1  �                            :� pre-indexed

0
    pp%=1

1    pointer%+=2

2@    �inst$,pointer%,1)<>"#"��1,"Bad syntax - expecting `#'"

3    pointer%+=1

4!    ȕ�inst$,pointer%,1)<>"]"

5"      off$+=�inst$,pointer%,1)

6      pointer%+=1

7	    �

8    off%=�eval(off$)

9    �pointer%<>�(inst$)�

:      pointer%+=1

;B      �inst$,pointer%,1)<>"!"��1,"Bad syntax - expecting `!'"

<      wb%=1

=	    �

>  �

?7�                              :� simple expression

@  areg%=15

A4  off%=�eval(�inst$,�(inst$)-pointer%+1))-(P%+8)

B  pp%=1

C  wb%=0

D�

E1� pass%�2 � off%�3 ��1,"Bad offset - not 4.n"

F�off%>=0�ud%=1

Goff%=�(off%)�4

H3� pass%�2 � off%>256 ��1,"Bad offset - too big"

I�

J

K
��dydatop

L&� Processes dyadic data operations

M$�dest%,lhs%,rhs%,dest$,lhs$,rhs$

Nopcode%-=1

Oȕ�inst$,pointer%,1)<>","

Pdest$+=�inst$,pointer%,1)

Qpointer%+=1

R�

Sdest%=�reg(dest$)

Tpointer%+=2

Uȕ�inst$,pointer%,1)<>","

Vlhs$+=�inst$,pointer%,1)

Wpointer%+=1

X�

Ylhs%=�reg(lhs$)

Z$rhs$=�inst$,�(inst$)-pointer%-1)

[rhs%=�reg(rhs$)

\nword%=(&E<<24)+(opcode%<<20)+((prec%�2)<<19)+(lhs%<<16)+(dest%<<12)+(1<<8)+((prec%�2)<<7)+(round%<<5)+rhs%

]�

^

_
��comp

`<� Processes comparison operations (CMF, CNF, CMFE, CNFE)

a�lhs%,rhs%,lhs$,rhs$

bopcode%-=30

cȕ�inst$,pointer%,1)<>","

dlhs$+=�inst$,pointer%,1)

epointer%+=1

f�

glhs%=�reg(lhs$)

h$rhs$=�inst$,�(inst$)-pointer%-1)

irhs%=�reg(rhs$)

jzword%=(&E<<24)+(opcode%<<21)+(1<<20)+((prec%�2)<<19)+(lhs%<<16)+(&F<<12)+(1<<8)+((prec%�2)<<7)+(round%<<5)+(1<<4)+rhs%

k�

l

m
��constat

nK� Processes FPU status/control register operations (RFS, WFS, RFC, WFC)

o�reg%,reg$

popcode%-=28

q"reg$=�inst$,�(inst$)-pointer%)

rreg%=�armreg(reg$)

sdword%=(&E<<24)+(opcode%<<20)+((prec%�2)<<19)+(reg%<<12)+(1<<8)+((prec%�2)<<7)+(round%<<5)+(1<<4)

t�

u

v��datran

w3� Processes data transfer operations (LDF, STF)

x2�areg%,freg%,off%,pp%,ud%,wb%,areg$,freg$,off$

yopcode%-=38

zȕ�inst$,pointer%,1)<>","

{freg$+=�inst$,pointer%,1)

|pointer%+=1

}�

~freg%=�reg(freg$)

pointer%+=2

��address

��word%=(3<<26)+(pp%<<24)+(ud%<<23)+((prec%�2)<<22)+(wb%<<21)+(opcode%<<20)+(areg%<<16)+((prec%�2)<<15)+(freg%<<12)+(1<<8)+off%

��

�

���mondatop

�'� Processes monadic data operations

��dest%,rhs%,dest$,rhs$

�opcode%-=14

�ȕ�inst$,pointer%,1)<>","

�dest$+=�inst$,pointer%,1)

�pointer%+=1

��

�dest%=�reg(dest$)

�$rhs$=�inst$,�(inst$)-pointer%-1)

�rhs%=�reg(rhs$)

�kword%=(&E<<24)+(opcode%<<20)+((prec%�2)<<19)+(1<<15)+(dest%<<12)+(1<<8)+((prec%�2)<<7)+(round%<<5)+rhs%

��

�

���typcon

�+� Processes type conversions (FIX, FLT)

��areg%,freg%,dest$,srce$

�opcode%-=28

�ȕ�inst$,pointer%,1)<>","

�  dest$+=�inst$,pointer%,1)

�  pointer%+=1

��

�%srce$=�inst$,�(inst$)-pointer%-1)

�
�opcode%�

�  areg%=�armreg(dest$)

�  freg%=�reg(srce$)

��

�  areg%=�armreg(srce$)

�  freg%=�reg(dest$)

��

�wword%=(&E<<24)+(opcode%<<20)+((prec%�2)<<19)+(freg%<<16)+(areg%<<12)+(1<<8)+((prec%�2)<<7)+(round%<<5)+(1<<4)+freg%

��

�

�ݤarmreg(reg$)

�?� Returns a number representing an ARM register or constant

�	�reg%

��reg$,1)="#"�

�?  imm%=(�"0.01.02.03.04.05.00.510.0",�reg$,�(reg$)-1))+2)�3

�(  �imm%=0��1,"Bad immediate operand"

�  reg%=7+imm%

��

�  �reg$,1)="R"�

�     reg%=�(�reg$,�(reg$)-1))

�  �

�    �reg$="PC"�

�      reg%=15

�	    �

�      reg%=�eval(reg$)

�	    �

�  �

��

�	=reg%

�

�ݤcond(inst$)

�6� Returns a number representing the condition code

��cond%,cond$

�cond$=�inst$,pointer%,2)

�
Ȏcond$ �

��"lo":cond%=3:pointer%+=2

��"hs":cond%=2:pointer%+=2

�<:cond%=(�"eqnecsccmiplvsvchilsgeltgtlealnv",cond$)+1)�2

�"�cond%=0�cond%=15 �pointer%+=2

�cond%-=1

��

�
=cond%

�

�ݤflop(inst$)

�F� Decodes and assembles floating point instruction (returns dummy)

��pointer%,word%

�� �

�(� � � � �:�_e("flop(`"+ inst$+ "')")

�opcode%=�opcode(inst$)

�cond%=�cond(inst$)

�prec%=�prec(inst$)

�round%=�round(inst$)

�ȕ�inst$,pointer%,1)=" "

�  pointer%+=1

��

�	Ȏ� �

�  �opcode%<14:�dydatop

�  �opcode%<28:�mondatop

�  �opcode%<30:�typcon

�  �opcode%<34:�constat

�  �opcode%<38:�comp

�  �opcode%<40:�datran

�  �mdatran

��

�word%=word%�(cond%<<28)

�[OPT pass%

�EQUD word%

�]

�=0

�

�ݤopcode(inst$)

�B� Returns the opcode representing a floating point instruction

��opcode%,opcode$,temp$

� opcode$=�inst$,3):pointer%=4

�!�opcode$="CMF"�opcode$="CNF"�

�  temp$=�inst$,pointer%,1)

�+  �temp$="E"�opcode$+=temp$:pointer%+=1

��

��opcode%=(�"ADF MUF SUF RSF DVF RDF POW RPW RMF FML FDV FRD POL MVF MNF ABS RND SQT LOG LGN EXP SIN COS TAN ASN ACS ATN FLT FIX WFS RFS WFC RFC CMF CNF CMFECNFESTF LDF SMF LMF ",opcode$)+3)�4

�"�opcode%=0��1,"Unknown opcode"

�=opcode%

�

�ݤprec(inst$)

�1� Returns a number representing the precision

�$�IFopcode%>29ANDopcode%<34THEN=0

��prec%,prec$

�prec$=�inst$,pointer%,1)

�prec%=�"SDEP ",prec$)

��prec%=5�prec%=2

��prec%=0��1,"Bad precision"

�prec%-=1

�pointer%+=1

�
=prec%

�

�ݤreg(reg$)

�I� Returns a number representing a floating point register or constant

�	�reg%

��reg$,1)="#"�

�?  imm%=(�"0.01.02.03.04.05.00.510.0",�reg$,�(reg$)-1))+2)�3

�(  �imm%=0��1,"Bad immediate operand"

�  reg%=7+imm%
�

  �reg$,1)="F"�
     reg%=�(�reg$,�(reg$)-1))
  �
    reg%=�eval(reg$)
  �
�
	=reg%

	ݤround(inst$)

6� Returns a number representing the rounding mound
,�(opcode%>29�opcode%<34)�(opcode%>37)�=0
�round%,round$

round$=�inst$,pointer%,1)
round%=�"PMZ",round$)
�round%<>0�pointer%+=1
=round%


ݤtestFPE
1� Checks whether the FP emulator is installed
�flags%
)ș"XOS_Module",3,"FPEmulator"�;flags%
_�(flags%�1)=1��"You must install the Floating Point Emulator before running this program":�
=�
:
.� Last line of <BasicV_Assembler$Lib>.Flop
�

00000000  0d 00 01 0b f4 20 3e 46  6c 6f 70 0d 00 02 2e f4  |..... >Flop.....|
00000010  20 20 20 20 20 20 20 20  46 50 20 61 73 73 65 6d  |        FP assem|
00000020  62 6c 65 72 20 28 62 79  20 4c 2e 20 4d 6f 6e 67  |bler (by L. Mong|
00000030  65 79 29 20 76 30 2e 30  36 0d 00 03 13 f4 20 4c  |ey) v0.06..... L|
00000040  6f 72 63 61 6e 20 4d 6f  6e 67 65 79 0d 00 04 18  |orcan Mongey....|
00000050  f4 20 35 36 20 53 61 6c  69 73 62 75 72 79 20 43  |. 56 Salisbury C|
00000060  6f 75 72 74 0d 00 05 11  f4 20 44 75 62 6c 69 6e  |ourt..... Dublin|
00000070  20 52 6f 61 64 0d 00 06  15 f4 20 42 65 6c 66 61  | Road..... Belfa|
00000080  73 74 20 42 54 37 20 31  44 44 0d 00 07 16 f4 20  |st BT7 1DD..... |
00000090  54 65 6c 3a 20 30 32 33  32 20 32 33 34 33 38 36  |Tel: 0232 234386|
000000a0  0d 00 08 04 0d 00 09 1c  f4 20 20 20 4d 41 43 48  |.........   MACH|
000000b0  49 4e 45 3a 20 20 41 72  63 68 69 6d 65 64 65 73  |INE:  Archimedes|
000000c0  0d 00 0a 1d f4 20 20 20  4c 41 4e 47 55 41 47 45  |.....   LANGUAGE|
000000d0  3a 20 42 42 43 20 42 41  53 49 43 20 56 0d 00 0b  |: BBC BASIC V...|
000000e0  1c f4 20 20 20 41 55 54  48 4f 52 3a 20 20 20 43  |..   AUTHOR:   C|
000000f0  79 20 42 6f 6f 6b 65 72  2c 0d 00 0c 48 f4 20 20  |y Booker,...H.  |
00000100  20 20 20 20 20 20 20 20  20 20 20 38 36 20 43 68  |           86 Ch|
00000110  75 72 63 68 20 56 69 65  77 2c 20 4d 61 69 6e 20  |urch View, Main |
00000120  52 6f 61 64 2c 20 43 72  6f 63 6b 65 6e 68 69 6c  |Road, Crockenhil|
00000130  6c 2c 20 53 77 61 6e 6c  65 79 2c 20 4b 65 6e 74  |l, Swanley, Kent|
00000140  2e 0d 00 0d 19 f4 20 20  20 20 20 20 20 20 20 20  |......          |
00000150  20 20 20 42 52 38 20 38  4a 57 0d 00 0e 12 f4 20  |   BR8 8JW..... |
00000160  20 20 46 55 4e 43 54 49  4f 4e 53 3a 0d 00 0f 14  |  FUNCTIONS:....|
00000170  f4 20 20 20 20 66 6c 6f  70 28 69 6e 73 74 24 29  |.    flop(inst$)|
00000180  0d 00 10 12 f4 20 20 20  20 65 71 75 66 65 28 66  |.....    equfe(f|
00000190  24 29 0d 00 11 12 f4 20  20 20 20 65 71 75 66 70  |$).....    equfp|
000001a0  28 66 24 29 0d 00 12 12  f4 20 20 20 20 65 71 75  |(f$).....    equ|
000001b0  66 64 28 66 24 29 0d 00  13 12 f4 20 20 20 20 65  |fd(f$).....    e|
000001c0  71 75 66 73 28 66 24 29  0d 00 14 09 f4 20 20 20  |qufs(f$).....   |
000001d0  3a 0d 00 15 13 f4 20 20  20 50 52 4f 43 45 44 55  |:.....   PROCEDU|
000001e0  52 45 53 3a 0d 00 16 0f  f4 20 20 20 20 28 6e 6f  |RES:.....    (no|
000001f0  6e 65 29 0d 00 17 09 f4  20 20 20 3a 0d 00 18 12  |ne).....   :....|
00000200  f4 20 20 20 45 58 54 45  52 4e 41 4c 53 3a 0d 00  |.   EXTERNALS:..|
00000210  19 0f f4 20 20 20 20 28  6e 6f 6e 65 29 0d 00 1a  |...    (none)...|
00000220  08 f4 20 20 3a 0d 00 1b  12 f4 20 20 20 49 4e 54  |..  :.....   INT|
00000230  45 52 4e 41 4c 53 3a 0d  00 1c 12 f4 20 20 20 20  |ERNALS:.....    |
00000240  46 6c 6f 70 5f 42 43 44  25 0d 00 1d 12 f4 20 20  |Flop_BCD%.....  |
00000250  20 20 46 6c 6f 70 5f 4e  75 6d 25 0d 00 1e 19 f4  |  Flop_Num%.....|
00000260  20 20 20 20 46 6c 6f 70  5f 28 45 7c 44 7c 53 29  |    Flop_(E|D|S)|
00000270  74 6f 50 25 0d 00 1f 19  f4 20 20 20 20 46 6c 6f  |toP%.....    Flo|
00000280  70 5f 50 74 6f 28 45 7c  44 7c 53 29 25 0d 00 20  |p_Pto(E|D|S)%.. |
00000290  09 f4 20 20 20 3a 0d 00  21 10 f4 20 20 20 55 50  |..   :..!..   UP|
000002a0  44 41 54 45 53 3a 0d 00  22 18 f4 20 20 43 79 20  |DATES:.."..  Cy |
000002b0  42 6f 6f 6b 65 72 20 63  68 61 6e 67 65 64 0d 00  |Booker changed..|
000002c0  23 28 f4 20 20 20 20 20  31 2e 20 63 6f 6e 64 69  |#(.     1. condi|
000002d0  74 69 6f 6e 61 6c 73 20  61 72 65 20 6c 6f 77 65  |tionals are lowe|
000002e0  72 20 63 61 73 65 0d 00  24 2b f4 20 20 20 20 20  |r case..$+.     |
000002f0  32 2e 20 73 70 61 63 65  73 20 61 66 74 65 72 20  |2. spaces after |
00000300  63 6f 6d 6d 61 73 20 6f  62 6c 69 67 61 74 6f 72  |commas obligator|
00000310  79 0d 00 25 24 f4 20 20  20 20 20 33 2e 20 45 52  |y..%$.     3. ER|
00000320  52 4f 52 20 30 27 73 20  2d 2d 3e 20 45 52 52 4f  |ROR 0's --> ERRO|
00000330  52 20 31 27 73 0d 00 26  38 f4 20 20 20 20 20 34  |R 1's..&8.     4|
00000340  2e 20 45 52 52 4f 52 20  22 42 61 64 20 73 79 6e  |. ERROR "Bad syn|
00000350  74 61 78 22 20 2d 2d 3e  20 65 78 70 6c 61 6e 61  |tax" --> explana|
00000360  74 69 6f 6e 20 61 70 70  65 6e 64 65 64 0d 00 27  |tion appended..'|
00000370  48 f4 20 20 20 20 20 35  2e 20 4e 65 77 20 69 6e  |H.     5. New in|
00000380  73 74 72 75 63 74 69 6f  6e 20 53 4d 46 20 26 20  |struction SMF & |
00000390  4c 4d 46 20 74 68 61 74  20 70 65 72 66 6f 72 6d  |LMF that perform|
000003a0  20 6d 75 6c 74 69 70 6c  65 20 53 54 46 2c 20 4c  | multiple STF, L|
000003b0  44 46 20 6f 6e 0d 00 28  47 f4 20 20 20 20 20 20  |DF on..(G.      |
000003c0  20 20 61 20 53 54 4d 44  42 2f 4c 44 4d 49 41 20  |  a STMDB/LDMIA |
000003d0  28 46 44 29 20 73 74 61  63 6b 20 2d 20 73 6f 20  |(FD) stack - so |
000003e0  63 61 6e 20 65 61 73 69  6c 79 20 53 4d 46 45 20  |can easily SMFE |
000003f0  73 70 21 2c 20 7b 46 30  2d 46 37 7d 0d 00 29 33  |sp!, {F0-F7}..)3|
00000400  f4 20 20 20 20 20 36 2e  20 22 46 4c 54 20 46 64  |.     6. "FLT Fd|
00000410  2c 20 52 6e 22 20 2d 20  6e 6f 74 20 61 73 20 77  |, Rn" - not as w|
00000420  61 73 20 22 46 4c 54 20  52 6e 2c 20 46 64 22 0d  |as "FLT Rn, Fd".|
00000430  00 2a 1a f4 20 20 20 20  20 37 2e 20 41 64 64 65  |.*..     7. Adde|
00000440  64 20 46 4e 65 71 75 66  65 0d 00 2b 34 f4 20 20  |d FNequfe..+4.  |
00000450  20 20 20 38 2e 20 4c 6f  63 61 6c 20 65 72 72 6f  |   8. Local erro|
00000460  72 73 20 3d 3e 20 61 70  70 65 6e 64 73 20 6c 69  |rs => appends li|
00000470  62 72 61 72 79 20 6d 65  73 73 61 67 65 0d 00 2c  |brary message..,|
00000480  3d f4 20 20 20 20 20 39  2e 20 54 72 61 70 20 45  |=.     9. Trap E|
00000490  56 41 4c 20 65 72 72 6f  72 73 20 73 6f 20 73 68  |VAL errors so sh|
000004a0  6f 77 73 20 77 68 61 74  20 63 6f 75 6c 64 6e 27  |ows what couldn'|
000004b0  74 20 65 76 61 6c 75 61  74 65 0d 00 2d 3c f4 20  |t evaluate..-<. |
000004c0  20 30 35 2e 30 32 2e 31  39 39 32 20 43 4a 42 20  | 05.02.1992 CJB |
000004d0  41 64 64 65 64 20 46 6c  6f 70 5f 3f 74 6f 50 25  |Added Flop_?toP%|
000004e0  20 26 20 46 6c 6f 70 5f  50 74 6f 3f 25 20 72 6f  | & Flop_Pto?% ro|
000004f0  75 74 69 6e 65 73 0d 00  2e 2f f4 20 20 20 20 20  |utines.../.     |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 41 64 64 65  |            Adde|
00000510  64 20 46 4e 65 71 75 66  28 65 7c 70 7c 73 7c 64  |d FNequf(e|p|s|d|
00000520  29 28 73 24 29 0d 00 2f  2d f4 20 20 30 36 2e 30  |)(s$)../-.  06.0|
00000530  32 2e 31 39 39 32 20 43  4a 42 20 4e 6f 77 20 6c  |2.1992 CJB Now l|
00000540  6f 61 64 73 20 75 70 20  66 70 65 6d 75 6c 61 74  |oads up fpemulat|
00000550  6f 72 0d 00 30 2a f4 20  20 32 33 2e 30 34 2e 31  |or..0*.  23.04.1|
00000560  39 39 32 20 43 4a 42 20  75 73 65 73 20 25 2e 43  |992 CJB uses %.C|
00000570  41 73 6d 27 73 20 46 4e  65 76 61 6c 0d 00 31 22  |Asm's FNeval..1"|
00000580  f4 20 20 32 39 2e 30 35  2e 31 39 39 33 20 43 4a  |.  29.05.1993 CJ|
00000590  42 20 6c 6f 63 61 6c 20  65 72 72 6f 72 73 0d 00  |B local errors..|
000005a0  32 31 f4 20 20 31 37 2e  30 36 2e 31 39 39 33 20  |21.  17.06.1993 |
000005b0  43 4a 42 20 64 65 66 61  75 6c 74 20 70 72 65 63  |CJB default prec|
000005c0  69 73 69 6f 6e 20 69 73  20 44 6f 75 62 6c 65 0d  |ision is Double.|
000005d0  00 33 4a f4 20 20 33 30  2e 30 36 2e 31 39 39 33  |.3J.  30.06.1993|
000005e0  20 30 30 36 20 43 4a 42  20 6e 6f 20 6c 6f 6e 67  | 006 CJB no long|
000005f0  65 72 20 69 6e 63 6c 75  64 65 73 20 43 41 73 6d  |er includes CAsm|
00000600  2c 20 61 73 20 46 4e 65  76 61 6c 20 69 6e 20 4c  |, as FNeval in L|
00000610  69 62 48 61 6e 64 6c 65  72 0d 00 34 05 3a 0d 00  |ibHandler..4.:..|
00000620  35 1e dd 20 a4 5f 46 6c  6f 70 5f 76 65 72 73 69  |5.. ._Flop_versi|
00000630  6f 6e 20 20 3a 20 20 3d  20 30 30 36 0d 00 36 05  |on  :  = 006..6.|
00000640  3a 0d 00 37 1c dd 20 a4  5f 68 61 72 64 5f 69 6e  |:..7.. ._hard_in|
00000650  69 74 69 61 6c 69 73 65  5f 46 6c 6f 70 0d 00 38  |itialise_Flop..8|
00000660  1e ea 20 63 6f 64 65 25  2c 20 50 25 2c 20 4c 25  |.. code%, P%, L%|
00000670  2c 20 4f 25 2c 20 70 61  73 73 25 0d 00 39 0d 20  |, O%, pass%..9. |
00000680  20 4c 25 20 3d 20 39 36  0d 00 3a 1a 20 20 de 20  | L% = 96..:.  . |
00000690  63 6f 64 65 25 20 4c 25  3a 4c 25 2b 3d 63 6f 64  |code% L%:L%+=cod|
000006a0  65 25 0d 00 3b 20 20 20  50 25 20 3d 20 63 6f 64  |e%..;   P% = cod|
000006b0  65 25 20 3a 20 70 61 73  73 25 20 3d 20 25 31 30  |e% : pass% = %10|
000006c0  31 30 0d 00 3c 0e 5b 4f  50 54 20 70 61 73 73 25  |10..<.[OPT pass%|
000006d0  0d 00 3d 11 20 20 20 20  20 20 20 20 41 4c 49 47  |..=.        ALIG|
000006e0  4e 0d 00 3e 23 2e 46 6c  6f 70 5f 42 43 44 25 3a  |N..>#.Flop_BCD%:|
000006f0  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 45 51  |EQUD 0:EQUD 0:EQ|
00000700  55 44 20 30 0d 00 3f 23  2e 46 6c 6f 70 5f 4e 75  |UD 0..?#.Flop_Nu|
00000710  6d 25 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  |m%:EQUD 0:EQUD 0|
00000720  3a 45 51 55 44 20 30 0d  00 40 0f 2e 46 6c 6f 70  |:EQUD 0..@..Flop|
00000730  5f 50 74 6f 45 25 0d 00  41 22 a4 66 6c 6f 70 28  |_PtoE%..A".flop(|
00000740  22 4c 44 46 50 20 20 20  20 46 30 2c 20 46 6c 6f  |"LDFP    F0, Flo|
00000750  70 5f 42 43 44 25 22 29  0d 00 42 22 a4 66 6c 6f  |p_BCD%")..B".flo|
00000760  70 28 22 53 54 46 45 20  20 20 20 46 30 2c 20 46  |p("STFE    F0, F|
00000770  6c 6f 70 5f 4e 75 6d 25  22 29 0d 00 43 1a 20 20  |lop_Num%")..C.  |
00000780  20 20 20 20 20 20 4d 4f  56 53 20 20 20 20 50 43  |      MOVS    PC|
00000790  2c 52 31 34 0d 00 44 0f  2e 46 6c 6f 70 5f 50 74  |,R14..D..Flop_Pt|
000007a0  6f 44 25 0d 00 45 22 a4  66 6c 6f 70 28 22 4c 44  |oD%..E".flop("LD|
000007b0  46 50 20 20 20 20 46 30  2c 20 46 6c 6f 70 5f 42  |FP    F0, Flop_B|
000007c0  43 44 25 22 29 0d 00 46  22 a4 66 6c 6f 70 28 22  |CD%")..F".flop("|
000007d0  53 54 46 44 20 20 20 20  46 30 2c 20 46 6c 6f 70  |STFD    F0, Flop|
000007e0  5f 4e 75 6d 25 22 29 0d  00 47 1a 20 20 20 20 20  |_Num%")..G.     |
000007f0  20 20 20 4d 4f 56 53 20  20 20 20 50 43 2c 52 31  |   MOVS    PC,R1|
00000800  34 0d 00 48 0f 2e 46 6c  6f 70 5f 50 74 6f 53 25  |4..H..Flop_PtoS%|
00000810  0d 00 49 22 a4 66 6c 6f  70 28 22 4c 44 46 50 20  |..I".flop("LDFP |
00000820  20 20 20 46 30 2c 20 46  6c 6f 70 5f 42 43 44 25  |   F0, Flop_BCD%|
00000830  22 29 0d 00 4a 22 a4 66  6c 6f 70 28 22 53 54 46  |")..J".flop("STF|
00000840  53 20 20 20 20 46 30 2c  20 46 6c 6f 70 5f 4e 75  |S    F0, Flop_Nu|
00000850  6d 25 22 29 0d 00 4b 1a  20 20 20 20 20 20 20 20  |m%")..K.        |
00000860  4d 4f 56 53 20 20 20 20  50 43 2c 52 31 34 0d 00  |MOVS    PC,R14..|
00000870  4c 0f 2e 46 6c 6f 70 5f  45 74 6f 50 25 0d 00 4d  |L..Flop_EtoP%..M|
00000880  22 a4 66 6c 6f 70 28 22  4c 44 46 45 20 20 20 20  |".flop("LDFE    |
00000890  46 30 2c 20 46 6c 6f 70  5f 4e 75 6d 25 22 29 0d  |F0, Flop_Num%").|
000008a0  00 4e 22 a4 66 6c 6f 70  28 22 53 54 46 50 20 20  |.N".flop("STFP  |
000008b0  20 20 46 30 2c 20 46 6c  6f 70 5f 42 43 44 25 22  |  F0, Flop_BCD%"|
000008c0  29 0d 00 4f 1a 20 20 20  20 20 20 20 20 4d 4f 56  |)..O.        MOV|
000008d0  53 20 20 20 20 50 43 2c  52 31 34 0d 00 50 0f 2e  |S    PC,R14..P..|
000008e0  46 6c 6f 70 5f 44 74 6f  50 25 0d 00 51 22 a4 66  |Flop_DtoP%..Q".f|
000008f0  6c 6f 70 28 22 4c 44 46  44 20 20 20 20 46 30 2c  |lop("LDFD    F0,|
00000900  20 46 6c 6f 70 5f 4e 75  6d 25 22 29 0d 00 52 22  | Flop_Num%")..R"|
00000910  a4 66 6c 6f 70 28 22 53  54 46 50 20 20 20 20 46  |.flop("STFP    F|
00000920  30 2c 20 46 6c 6f 70 5f  42 43 44 25 22 29 0d 00  |0, Flop_BCD%")..|
00000930  53 1a 20 20 20 20 20 20  20 20 4d 4f 56 53 20 20  |S.        MOVS  |
00000940  20 20 50 43 2c 52 31 34  0d 00 54 0f 2e 46 6c 6f  |  PC,R14..T..Flo|
00000950  70 5f 53 74 6f 50 25 0d  00 55 22 a4 66 6c 6f 70  |p_StoP%..U".flop|
00000960  28 22 4c 44 46 53 20 20  20 20 46 30 2c 20 46 6c  |("LDFS    F0, Fl|
00000970  6f 70 5f 4e 75 6d 25 22  29 0d 00 56 22 a4 66 6c  |op_Num%")..V".fl|
00000980  6f 70 28 22 53 54 46 50  20 20 20 20 46 30 2c 20  |op("STFP    F0, |
00000990  46 6c 6f 70 5f 42 43 44  25 22 29 0d 00 57 1a 20  |Flop_BCD%")..W. |
000009a0  20 20 20 20 20 20 20 4d  4f 56 53 20 20 20 20 50  |       MOVS    P|
000009b0  43 2c 52 31 34 0d 00 58  05 5d 0d 00 59 4d 20 20  |C,R14..X.]..YM  |
000009c0  c8 99 20 22 4f 53 5f 43  4c 49 22 2c 22 52 4d 45  |.. "OS_CLI","RME|
000009d0  6e 73 75 72 65 20 46 50  45 6d 75 6c 61 74 6f 72  |nsure FPEmulator|
000009e0  20 32 2e 38 30 20 52 4d  4c 6f 61 64 20 53 79 73  | 2.80 RMLoad Sys|
000009f0  74 65 6d 3a 4d 6f 64 75  6c 65 73 2e 46 50 45 6d  |tem:Modules.FPEm|
00000a00  75 6c 61 74 6f 72 22 0d  00 5a 07 3d 20 30 0d 00  |ulator"..Z.= 0..|
00000a10  5b 05 3a 0d 00 5c 4b f4  20 2a 2a 2a 2a 2a 2a 2a  |[.:..\K. *******|
00000a20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000a50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000a60  5d 46 f4 20 54 68 65 73  65 20 66 75 6e 63 74 69  |]F. These functi|
00000a70  6f 6e 73 20 61 6c 6c 6f  77 20 74 68 65 20 64 65  |ons allow the de|
00000a80  66 69 6e 69 74 69 6f 6e  20 6f 66 20 66 6c 6f 61  |finition of floa|
00000a90  74 69 6e 67 20 70 6f 69  6e 74 20 63 6f 6e 73 74  |ting point const|
00000aa0  61 6e 74 73 0d 00 5e 3b  f4 20 75 73 69 6e 67 20  |ants..^;. using |
00000ab0  74 68 65 20 65 78 70 65  63 74 65 64 20 64 65 63  |the expected dec|
00000ac0  69 6d 61 6c 2f 73 63 69  65 6e 74 69 66 69 63 20  |imal/scientific |
00000ad0  6e 6f 74 61 74 69 6f 6e  2e 20 20 45 2e 67 2e 0d  |notation.  E.g..|
00000ae0  00 5f 42 f4 20 20 20 5b  73 69 67 6e 5d 20 5b 64  |._B.   [sign] [d|
00000af0  69 67 69 74 73 5d 20 5b  60 2e 27 20 5b 64 69 67  |igits] [`.' [dig|
00000b00  69 74 73 5d 5d 20 5b 28  60 65 27 20 7c 20 60 45  |its]] [(`e' | `E|
00000b10  27 29 20 5b 73 69 67 6e  5d 20 64 69 67 69 74 73  |') [sign] digits|
00000b20  5d 0d 00 60 3f f4 20 77  69 74 68 20 74 68 65 20  |]..`?. with the |
00000b30  70 72 6f 76 69 73 6f 20  74 68 61 74 20 73 74 61  |proviso that sta|
00000b40  72 74 73 20 77 69 74 68  20 65 69 74 68 65 72 20  |rts with either |
00000b50  61 20 64 69 67 69 74 20  6f 72 20 61 20 60 2e 27  |a digit or a `.'|
00000b60  0d 00 61 3d f4 20 20 20  45 2e 67 2e 20 20 20 20  |..a=.   E.g.    |
00000b70  60 33 2e 31 34 27 2c 20  60 2b 33 31 2e 34 45 2d  |`3.14', `+31.4E-|
00000b80  31 27 2c 20 60 2e 30 33  31 34 65 2b 30 30 30 30  |1', `.0314e+0000|
00000b90  30 30 30 30 32 27 20 61  72 65 20 4f 4b 0d 00 62  |00002' are OK..b|
00000ba0  32 f4 20 7a 65 72 6f 20  76 61 6c 75 65 73 20 61  |2. zero values a|
00000bb0  72 65 20 72 65 63 6f 67  6e 69 73 65 64 20 61 6e  |re recognised an|
00000bc0  64 20 6d 61 64 65 20 70  6f 73 69 74 69 76 65 0d  |d made positive.|
00000bd0  00 63 05 3a 0d 00 64 0f  dd a4 65 71 75 66 65 28  |.c.:..d...equfe(|
00000be0  66 24 29 0d 00 65 07 ea  20 85 0d 00 66 26 ee 20  |f$)..e.. ...f&. |
00000bf0  85 20 ea 20 f7 20 85 3a  f2 5f 65 28 22 65 71 75  |. . . .:._e("equ|
00000c00  66 65 28 60 22 2b 20 66  24 2b 20 22 27 29 22 29  |fe(`"+ f$+ "')")|
00000c10  0d 00 67 0f 20 20 f2 65  71 75 66 28 66 24 29 0d  |..g.  .equf(f$).|
00000c20  00 68 12 20 20 d6 20 46  6c 6f 70 5f 50 74 6f 45  |.h.  . Flop_PtoE|
00000c30  25 0d 00 69 42 5b 4f 50  54 20 70 61 73 73 25 3a  |%..iB[OPT pass%:|
00000c40  45 51 55 44 20 21 46 6c  6f 70 5f 4e 75 6d 25 3a  |EQUD !Flop_Num%:|
00000c50  45 51 55 44 20 46 6c 6f  70 5f 4e 75 6d 25 21 34  |EQUD Flop_Num%!4|
00000c60  3a 45 51 55 44 20 46 6c  6f 70 5f 4e 75 6d 25 21  |:EQUD Flop_Num%!|
00000c70  38 3a 5d 0d 00 6a 06 3d  30 0d 00 6b 05 3a 0d 00  |8:]..j.=0..k.:..|
00000c80  6c 0f dd a4 65 71 75 66  64 28 66 24 29 0d 00 6d  |l...equfd(f$)..m|
00000c90  07 ea 20 85 0d 00 6e 26  ee 20 85 20 ea 20 f7 20  |.. ...n&. . . . |
00000ca0  85 3a f2 5f 65 28 22 65  71 75 66 64 28 60 22 2b  |.:._e("equfd(`"+|
00000cb0  20 66 24 2b 20 22 27 29  22 29 0d 00 6f 0f 20 20  | f$+ "')")..o.  |
00000cc0  f2 65 71 75 66 28 66 24  29 0d 00 70 12 20 20 d6  |.equf(f$)..p.  .|
00000cd0  20 46 6c 6f 70 5f 50 74  6f 44 25 0d 00 71 31 5b  | Flop_PtoD%..q1[|
00000ce0  4f 50 54 20 70 61 73 73  25 3a 45 51 55 44 20 21  |OPT pass%:EQUD !|
00000cf0  46 6c 6f 70 5f 4e 75 6d  25 3a 45 51 55 44 20 46  |Flop_Num%:EQUD F|
00000d00  6c 6f 70 5f 4e 75 6d 25  21 34 3a 5d 0d 00 72 06  |lop_Num%!4:]..r.|
00000d10  3d 30 0d 00 73 05 3a 0d  00 74 0f dd a4 65 71 75  |=0..s.:..t...equ|
00000d20  66 70 28 66 24 29 0d 00  75 07 ea 20 85 0d 00 76  |fp(f$)..u.. ...v|
00000d30  26 ee 20 85 20 ea 20 f7  20 85 3a f2 5f 65 28 22  |&. . . . .:._e("|
00000d40  65 71 75 66 70 28 60 22  2b 20 66 24 2b 20 22 27  |equfp(`"+ f$+ "'|
00000d50  29 22 29 0d 00 77 0f 20  20 f2 65 71 75 66 28 66  |)")..w.  .equf(f|
00000d60  24 29 0d 00 78 42 5b 4f  50 54 20 70 61 73 73 25  |$)..xB[OPT pass%|
00000d70  3a 45 51 55 44 20 21 46  6c 6f 70 5f 42 43 44 25  |:EQUD !Flop_BCD%|
00000d80  3a 45 51 55 44 20 46 6c  6f 70 5f 42 43 44 25 21  |:EQUD Flop_BCD%!|
00000d90  34 3a 45 51 55 44 20 46  6c 6f 70 5f 42 43 44 25  |4:EQUD Flop_BCD%|
00000da0  21 38 3a 5d 0d 00 79 06  3d 30 0d 00 7a 05 3a 0d  |!8:]..y.=0..z.:.|
00000db0  00 7b 0f dd a4 65 71 75  66 73 28 66 24 29 0d 00  |.{...equfs(f$)..|
00000dc0  7c 07 ea 20 85 0d 00 7d  26 ee 20 85 20 ea 20 f7  ||.. ...}&. . . .|
00000dd0  20 85 3a f2 5f 65 28 22  65 71 75 66 73 28 60 22  | .:._e("equfs(`"|
00000de0  2b 20 66 24 2b 20 22 27  29 22 29 0d 00 7e 0f 20  |+ f$+ "')")..~. |
00000df0  20 f2 65 71 75 66 28 66  24 29 0d 00 7f 12 20 20  | .equf(f$)....  |
00000e00  d6 20 46 6c 6f 70 5f 50  74 6f 53 25 0d 00 80 20  |. Flop_PtoS%... |
00000e10  5b 4f 50 54 20 70 61 73  73 25 3a 45 51 55 44 20  |[OPT pass%:EQUD |
00000e20  21 46 6c 6f 70 5f 4e 75  6d 25 3a 5d 0d 00 81 06  |!Flop_Num%:]....|
00000e30  3d 30 0d 00 82 05 3a 0d  00 83 0f dd 20 f2 65 71  |=0....:..... .eq|
00000e40  75 66 28 73 24 29 0d 00  84 26 ea 20 65 78 70 25  |uf(s$)...&. exp%|
00000e50  2c 69 6e 74 24 2c 69 25  2c 6e 65 67 25 2c 65 73  |,int$,i%,neg%,es|
00000e60  67 6e 25 2c 78 25 2c 77  25 2c 6e 25 0d 00 85 0c  |gn%,x%,w%,n%....|
00000e70  20 20 65 78 70 25 3d 30  0d 00 86 0c 20 20 6e 65  |  exp%=0....  ne|
00000e80  67 25 3d a3 0d 00 87 16  20 20 e7 20 97 28 73 24  |g%=.....  . .(s$|
00000e90  29 3d 97 28 22 2b 22 29  20 8c 0d 00 88 11 20 20  |)=.("+") .....  |
00000ea0  20 20 73 24 3d c1 73 24  2c 32 29 0d 00 89 07 20  |  s$=.s$,2).... |
00000eb0  20 cc 0d 00 8a 1b 20 20  20 20 6e 65 67 25 3d 28  | .....    neg%=(|
00000ec0  97 28 73 24 29 3d 97 28  22 2d 22 29 29 0d 00 8b  |.(s$)=.("-"))...|
00000ed0  1a 20 20 20 20 e7 20 6e  65 67 25 20 8c 20 73 24  |.    . neg% . s$|
00000ee0  3d c1 73 24 2c 32 29 0d  00 8c 07 20 20 cd 0d 00  |=.s$,2)....  ...|
00000ef0  8d 2d 20 20 e7 20 a7 22  65 45 22 2c 20 c0 73 24  |.-  . ."eE", .s$|
00000f00  2c 31 29 29 20 8c 20 85  20 31 2c 20 22 50 72 65  |,1)) . . 1, "Pre|
00000f10  6d 61 74 75 72 65 20 60  65 27 22 0d 00 8e 21 20  |mature `e'"...! |
00000f20  20 c8 95 20 97 28 73 24  29 3d 97 28 22 30 22 29  | .. .(s$)=.("0")|
00000f30  3a 73 24 3d c1 73 24 2c  32 29 3a ce 0d 00 8f 0c  |:s$=.s$,2):.....|
00000f40  20 20 65 78 70 25 3d 30  0d 00 90 0f 20 20 e7 20  |  exp%=0....  . |
00000f50  73 24 3d 22 22 20 8c 0d  00 91 10 20 20 20 20 69  |s$="" .....    i|
00000f60  6e 74 24 3d 22 30 22 0d  00 92 07 20 20 cc 0d 00  |nt$="0"....  ...|
00000f70  93 34 20 20 20 20 c8 95  20 a7 22 30 31 32 33 34  |.4    .. ."01234|
00000f80  35 36 37 38 39 22 2c c1  73 24 2c 65 78 70 25 2b  |56789",.s$,exp%+|
00000f90  31 2c 31 29 29 20 80 20  65 78 70 25 3c a9 28 73  |1,1)) . exp%<.(s|
00000fa0  24 29 0d 00 94 11 20 20  20 20 20 20 65 78 70 25  |$)....      exp%|
00000fb0  2b 3d 31 0d 00 95 09 20  20 20 20 ce 0d 00 96 2c  |+=1....    ....,|
00000fc0  20 20 20 20 e7 20 65 78  70 25 20 8c 20 69 6e 74  |    . exp% . int|
00000fd0  24 3d c1 73 24 2c 31 2c  65 78 70 25 29 20 8b 20  |$=.s$,1,exp%) . |
00000fe0  69 6e 74 24 3d 22 30 22  0d 00 97 16 20 20 20 20  |int$="0"....    |
00000ff0  73 24 3d c1 73 24 2c 65  78 70 25 2b 31 29 0d 00  |s$=.s$,exp%+1)..|
00001000  98 12 20 20 20 20 e7 20  73 24 3c 3e 22 22 20 8c  |..    . s$<>"" .|
00001010  0d 00 99 1a 20 20 20 20  20 20 e7 20 97 28 73 24  |....      . .(s$|
00001020  29 3d 97 28 22 2e 22 29  20 8c 0d 00 9a 15 20 20  |)=.(".") .....  |
00001030  20 20 20 20 20 20 73 24  3d c1 73 24 2c 32 29 0d  |      s$=.s$,2).|
00001040  00 9b 16 20 20 20 20 20  20 20 20 e7 20 73 24 3c  |...        . s$<|
00001050  3e 22 22 20 8c 0d 00 9c  18 20 20 20 20 20 20 20  |>"" .....       |
00001060  20 20 20 e7 20 65 78 70  25 3d 30 20 8c 0d 00 9d  |   . exp%=0 ....|
00001070  17 20 20 20 20 20 20 20  20 20 20 20 20 69 6e 74  |.            int|
00001080  24 3d 22 22 0d 00 9e 33  20 20 20 20 20 20 20 20  |$=""...3        |
00001090  20 20 20 20 c8 95 20 97  28 73 24 29 3d 97 28 22  |    .. .(s$)=.("|
000010a0  30 22 29 3a 65 78 70 25  2d 3d 31 3a 73 24 3d c1  |0"):exp%-=1:s$=.|
000010b0  73 24 2c 32 29 3a ce 0d  00 9f 2d 20 20 20 20 20  |s$,2):....-     |
000010c0  20 20 20 20 20 20 20 e7  20 a7 22 30 31 32 33 34  |       . ."01234|
000010d0  35 36 37 38 39 65 45 22  2c c0 73 24 2c 31 29 29  |56789eE",.s$,1))|
000010e0  3d 30 20 8c 0d 00 a0 37  20 20 20 20 20 20 20 20  |=0 ....7        |
000010f0  20 20 20 20 20 20 85 20  31 2c 20 22 55 6e 65 78  |      . 1, "Unex|
00001100  70 65 63 74 65 64 20 63  68 61 72 61 63 74 65 72  |pected character|
00001110  20 69 6e 20 6e 75 6d 62  65 72 22 0d 00 a1 11 20  | in number".... |
00001120  20 20 20 20 20 20 20 20  20 20 20 cd 0d 00 a2 0f  |           .....|
00001130  20 20 20 20 20 20 20 20  20 20 cd 0d 00 a3 21 20  |          ....! |
00001140  20 20 20 20 20 20 20 20  20 e7 20 a7 22 65 45 22  |         . ."eE"|
00001150  2c c0 73 24 2c 31 29 29  3d 30 20 8c 0d 00 a4 14  |,.s$,1))=0 .....|
00001160  20 20 20 20 20 20 20 20  20 20 20 20 69 25 3d 30  |            i%=0|
00001170  0d 00 a5 38 20 20 20 20  20 20 20 20 20 20 20 20  |...8            |
00001180  c8 95 20 a7 22 30 31 32  33 34 35 36 37 38 39 22  |.. ."0123456789"|
00001190  2c c1 73 24 2c 69 25 2b  31 2c 31 29 29 20 80 20  |,.s$,i%+1,1)) . |
000011a0  69 25 3c a9 28 73 24 29  0d 00 a6 17 20 20 20 20  |i%<.(s$)....    |
000011b0  20 20 20 20 20 20 20 20  20 20 69 25 2b 3d 31 0d  |          i%+=1.|
000011c0  00 a7 11 20 20 20 20 20  20 20 20 20 20 20 20 ce  |...            .|
000011d0  0d 00 a8 1f 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
000011e0  69 6e 74 24 2b 3d c1 73  24 2c 31 2c 69 25 29 0d  |int$+=.s$,1,i%).|
000011f0  00 a9 1c 20 20 20 20 20  20 20 20 20 20 20 20 73  |...            s|
00001200  24 3d c1 73 24 2c 69 25  2b 31 29 0d 00 aa 0f 20  |$=.s$,i%+1).... |
00001210  20 20 20 20 20 20 20 20  20 cd 0d 00 ab 0d 20 20  |         .....  |
00001220  20 20 20 20 20 20 cd 0d  00 ac 0b 20 20 20 20 20  |      .....     |
00001230  20 cd 0d 00 ad 24 20 20  20 20 20 20 e7 20 73 24  | ....$      . s$|
00001240  3c 3e 22 22 20 80 20 a7  22 65 45 22 2c c0 73 24  |<>"" . ."eE",.s$|
00001250  2c 31 29 29 20 8c 0d 00  ae 15 20 20 20 20 20 20  |,1)) .....      |
00001260  20 20 73 24 3d c1 73 24  2c 32 29 0d 00 af 13 20  |  s$=.s$,2).... |
00001270  20 20 20 20 20 20 20 65  73 67 6e 25 3d 31 0d 00  |       esgn%=1..|
00001280  b0 1c 20 20 20 20 20 20  20 20 e7 20 97 28 73 24  |..        . .(s$|
00001290  29 3d 97 28 22 2b 22 29  20 8c 0d 00 b1 17 20 20  |)=.("+") .....  |
000012a0  20 20 20 20 20 20 20 20  73 24 3d c1 73 24 2c 32  |        s$=.s$,2|
000012b0  29 0d 00 b2 0d 20 20 20  20 20 20 20 20 cc 0d 00  |)....        ...|
000012c0  b3 1e 20 20 20 20 20 20  20 20 20 20 e7 20 97 28  |..          . .(|
000012d0  73 24 29 3d 97 28 22 2d  22 29 20 8c 0d 00 b4 19  |s$)=.("-") .....|
000012e0  20 20 20 20 20 20 20 20  20 20 20 20 73 24 3d c1  |            s$=.|
000012f0  73 24 2c 32 29 0d 00 b5  18 20 20 20 20 20 20 20  |s$,2)....       |
00001300  20 20 20 20 20 65 73 67  6e 25 3d 2d 31 0d 00 b6  |     esgn%=-1...|
00001310  0f 20 20 20 20 20 20 20  20 20 20 cd 0d 00 b7 0d  |.          .....|
00001320  20 20 20 20 20 20 20 20  cd 0d 00 b8 31 20 20 20  |        ....1   |
00001330  20 20 20 20 20 e7 20 73  24 3d 22 22 20 8c 20 85  |     . s$="" . .|
00001340  20 31 2c 20 22 4e 6f 74  68 69 6e 67 20 66 6f 72  | 1, "Nothing for|
00001350  20 65 78 70 6f 6e 65 6e  74 22 0d 00 b9 27 20 20  | exponent"...'  |
00001360  20 20 20 20 20 20 e7 20  a7 22 30 31 32 33 34 35  |      . ."012345|
00001370  36 37 38 39 22 2c c0 73  24 2c 31 29 29 3d 30 20  |6789",.s$,1))=0 |
00001380  8c 0d 00 ba 35 20 20 20  20 20 20 20 20 20 20 85  |....5          .|
00001390  20 31 2c 20 22 55 6e 65  78 70 65 63 74 65 64 20  | 1, "Unexpected |
000013a0  63 68 61 72 61 63 74 65  72 20 69 6e 20 65 78 70  |character in exp|
000013b0  6f 6e 65 6e 74 22 0d 00  bb 0d 20 20 20 20 20 20  |onent"....      |
000013c0  20 20 cd 0d 00 bc 10 20  20 20 20 20 20 20 20 69  |  .....        i|
000013d0  25 3d 30 0d 00 bd 0d 20  20 20 20 20 20 20 20 f5  |%=0....        .|
000013e0  0d 00 be 13 20 20 20 20  20 20 20 20 20 20 69 25  |....          i%|
000013f0  2b 3d 31 0d 00 bf 37 20  20 20 20 20 20 20 20 fd  |+=1...7        .|
00001400  20 28 a7 22 30 31 32 33  34 35 36 37 38 39 22 2c  | (."0123456789",|
00001410  c1 73 24 2c 69 25 2c 31  29 29 3d 30 29 20 84 20  |.s$,i%,1))=0) . |
00001420  28 69 25 3e a9 28 73 24  29 29 0d 00 c0 22 20 20  |(i%>.(s$))..."  |
00001430  20 20 20 20 20 20 65 78  70 25 2b 3d 65 73 67 6e  |      exp%+=esgn|
00001440  25 2a bb 28 c0 73 24 2c  69 25 29 29 0d 00 c1 18  |%*.(.s$,i%))....|
00001450  20 20 20 20 20 20 20 20  73 24 3d c1 73 24 2c 69  |        s$=.s$,i|
00001460  25 2b 31 29 0d 00 c2 0b  20 20 20 20 20 20 cd 0d  |%+1)....      ..|
00001470  00 c3 09 20 20 20 20 cd  0d 00 c4 07 20 20 cd 0d  |...    .....  ..|
00001480  00 c5 2b 20 20 e7 20 73  24 3c 3e 22 22 20 8c 20  |..+  . s$<>"" . |
00001490  85 20 31 2c 20 22 4a 75  6e 6b 20 66 6f 6c 6c 6f  |. 1, "Junk follo|
000014a0  77 73 20 6e 75 6d 62 65  72 22 0d 00 c6 0d 20 20  |ws number"....  |
000014b0  65 78 70 25 2d 3d 31 0d  00 c7 2a 20 20 e7 20 69  |exp%-=1...*  . i|
000014c0  6e 74 24 3d 22 30 22 20  84 20 69 6e 74 24 3d 22  |nt$="0" . int$="|
000014d0  22 20 8c 20 65 78 70 25  3d 30 3a 6e 65 67 25 3d  |" . exp%=0:neg%=|
000014e0  a3 0d 00 c8 32 20 20 e7  20 94 28 65 78 70 25 29  |....2  . .(exp%)|
000014f0  3e 33 34 30 20 8c 20 85  20 31 2c 20 22 45 78 70  |>340 . . 1, "Exp|
00001500  6f 6e 65 6e 74 20 6f 75  74 20 6f 66 20 72 61 6e  |onent out of ran|
00001510  67 65 22 0d 00 c9 41 20  20 e7 20 a9 28 69 6e 74  |ge"...A  . .(int|
00001520  24 29 3e 31 39 20 8c 20  85 20 31 2c 20 22 54 6f  |$)>19 . . 1, "To|
00001530  6f 20 6d 61 6e 79 20 73  69 67 6e 69 66 69 63 61  |o many significa|
00001540  6e 74 20 66 69 67 75 72  65 73 20 28 6d 61 78 20  |nt figures (max |
00001550  31 39 29 22 0d 00 ca 2e  20 20 69 6e 74 24 3d c2  |19)"....  int$=.|
00001560  22 30 30 30 30 22 2b c3  28 94 28 65 78 70 25 29  |"0000"+.(.(exp%)|
00001570  29 2c 35 29 2b 69 6e 74  24 2b c4 31 39 2c 22 30  |),5)+int$+.19,"0|
00001580  22 29 0d 00 cb 0a 20 20  69 25 3d 31 0d 00 cc 14  |")....  i%=1....|
00001590  20 20 e3 20 77 25 3d 30  20 b8 20 38 20 88 20 34  |  . w%=0 . 8 . 4|
000015a0  0d 00 cd 0e 20 20 20 20  78 25 20 3d 20 30 0d 00  |....    x% = 0..|
000015b0  ce 18 20 20 20 20 e3 20  6e 25 3d 32 38 20 b8 20  |..    . n%=28 . |
000015c0  30 20 88 20 2d 34 0d 00  cf 2b 20 20 20 20 20 20  |0 . -4...+      |
000015d0  78 25 2b 3d 28 97 28 c1  69 6e 74 24 2c 69 25 2c  |x%+=(.(.int$,i%,|
000015e0  31 29 29 2d 97 28 22 30  22 29 29 20 3c 3c 20 6e  |1))-.("0")) << n|
000015f0  25 0d 00 d0 0f 20 20 20  20 20 20 69 25 2b 3d 31  |%....      i%+=1|
00001600  0d 00 d1 0c 20 20 20 20  ed 20 6e 25 0d 00 d2 17  |....    . n%....|
00001610  20 20 20 20 46 6c 6f 70  5f 42 43 44 25 21 77 25  |    Flop_BCD%!w%|
00001620  3d 78 25 0d 00 d3 0a 20  20 ed 20 77 25 0d 00 d4  |=x%....  . w%...|
00001630  26 20 20 e7 20 65 78 70  25 3c 30 20 8c 20 21 46  |&  . exp%<0 . !F|
00001640  6c 6f 70 5f 42 43 44 25  2b 3d 26 34 30 30 30 30  |lop_BCD%+=&40000|
00001650  30 30 30 0d 00 d5 24 20  20 e7 20 6e 65 67 25 20  |000...$  . neg% |
00001660  8c 20 21 46 6c 6f 70 5f  42 43 44 25 2b 3d 26 38  |. !Flop_BCD%+=&8|
00001670  30 30 30 30 30 30 30 0d  00 d6 05 e1 0d 00 d7 05  |0000000.........|
00001680  3a 0d 00 d8 4b f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |:...K. *********|
00001690  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000016c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 d9 3c  |************...<|
000016d0  f4 20 50 72 6f 63 65 73  73 65 73 20 70 73 65 75  |. Processes pseu|
000016e0  64 6f 20 2d 20 64 61 74  61 20 74 72 61 6e 73 66  |do - data transf|
000016f0  65 72 20 6f 70 65 72 61  74 69 6f 6e 73 20 28 4c  |er operations (L|
00001700  4d 46 2c 20 53 4d 46 29  0d 00 da 0f f4 20 53 79  |MF, SMF)..... Sy|
00001710  6e 74 61 78 20 69 73 0d  00 db 29 f4 20 20 20 20  |ntax is...).    |
00001720  20 6f 70 3c 63 6f 6e 64  3e 3c 70 72 65 63 3e 20  | op<cond><prec> |
00001730  3c 72 6e 3e 21 2c 20 7b  3c 66 6c 69 73 74 3e 7d  |<rn>!, {<flist>}|
00001740  0d 00 dc 25 f4 20 20 20  20 20 3c 72 6e 3e 20 3d  |...%.     <rn> =|
00001750  20 52 6e 20 6f 72 20 6e  75 6d 62 65 72 20 5b 30  | Rn or number [0|
00001760  2c 20 31 35 5d 0d 00 dd  2c f4 20 20 20 20 20 3c  |, 15]...,.     <|
00001770  66 6c 69 73 74 3e 20 3d  20 3c 66 6e 3e 20 5b 2d  |flist> = <fn> [-|
00001780  3c 66 6e 3e 5d 20 7b 2c  20 3c 66 6c 69 73 74 3e  |<fn>] {, <flist>|
00001790  7d 0d 00 de 04 0d 00 df  0d dd f2 6d 64 61 74 72  |}..........mdatr|
000017a0  61 6e 0d 00 e0 3c ea 61  72 65 67 25 2c 65 6e 64  |an...<.areg%,end|
000017b0  25 2c 66 6c 6f 77 25 2c  66 6d 61 73 6b 25 2c 66  |%,flow%,fmask%,f|
000017c0  72 65 67 25 2c 6f 66 66  25 2c 70 70 25 2c 75 64  |reg%,off%,pp%,ud|
000017d0  25 2c 77 62 25 2c 61 24  2c 66 72 65 67 24 0d 00  |%,wb%,a$,freg$..|
000017e0  e1 0f 6f 70 63 6f 64 65  25 2d 3d 34 30 0d 00 e2  |..opcode%-=40...|
000017f0  17 6f 66 66 25 3d a7 69  6e 73 74 24 2c 22 21 2c  |.off%=.inst$,"!,|
00001800  20 7b 22 29 0d 00 e3 2f  e7 6f 66 66 25 3d 30 8c  | {").../.off%=0.|
00001810  20 85 31 2c 22 42 61 64  20 73 79 6e 74 61 78 20  | .1,"Bad syntax |
00001820  2d 20 65 78 70 65 63 74  69 6e 67 20 60 21 2c 20  |- expecting `!, |
00001830  7b 27 22 0d 00 e4 31 61  72 65 67 25 3d a4 61 72  |{'"...1areg%=.ar|
00001840  6d 72 65 67 28 c1 69 6e  73 74 24 2c 70 6f 69 6e  |mreg(.inst$,poin|
00001850  74 65 72 25 2c 6f 66 66  25 2d 70 6f 69 6e 74 65  |ter%,off%-pointe|
00001860  72 25 29 29 0d 00 e5 13  70 6f 69 6e 74 65 72 25  |r%))....pointer%|
00001870  3d 6f 66 66 25 2b 34 0d  00 e6 0c 66 6d 61 73 6b  |=off%+4....fmask|
00001880  25 3d 30 0d 00 e7 11 65  6e 64 25 3d a9 28 69 6e  |%=0....end%=.(in|
00001890  73 74 24 29 0d 00 e8 05  f5 0d 00 e9 0e 20 20 66  |st$).........  f|
000018a0  72 65 67 24 3d 22 22 0d  00 ea 1b 20 20 61 24 3d  |reg$=""....  a$=|
000018b0  c1 69 6e 73 74 24 2c 70  6f 69 6e 74 65 72 25 2c  |.inst$,pointer%,|
000018c0  31 29 0d 00 eb 13 20 20  6f 66 66 25 3d 70 6f 69  |1)....  off%=poi|
000018d0  6e 74 65 72 25 0d 00 ec  17 20 20 c8 95 61 24 3c  |nter%....  ..a$<|
000018e0  3e 22 2c 22 80 61 24 3c  3e 22 7d 22 0d 00 ed 13  |>",".a$<>"}"....|
000018f0  20 20 20 20 70 6f 69 6e  74 65 72 25 2b 3d 31 0d  |    pointer%+=1.|
00001900  00 ee 3e 20 20 20 20 e7  70 6f 69 6e 74 65 72 25  |..>    .pointer%|
00001910  3e 65 6e 64 25 8c 20 85  31 2c 22 42 61 64 20 73  |>end%. .1,"Bad s|
00001920  79 6e 74 61 78 20 2d 20  45 78 70 65 63 74 69 6e  |yntax - Expectin|
00001930  67 20 60 2c 27 20 6f 72  20 60 7d 27 22 0d 00 ef  |g `,' or `}'"...|
00001940  1d 20 20 20 20 61 24 3d  c1 69 6e 73 74 24 2c 70  |.    a$=.inst$,p|
00001950  6f 69 6e 74 65 72 25 2c  31 29 0d 00 f0 07 20 20  |ointer%,1)....  |
00001960  ce 0d 00 f1 33 20 20 e7  70 6f 69 6e 74 65 72 25  |....3  .pointer%|
00001970  3d 6f 66 66 25 8c 20 85  31 2c 22 42 61 64 20 73  |=off%. .1,"Bad s|
00001980  79 6e 74 61 78 20 2d 20  6e 6f 20 72 65 67 69 73  |yntax - no regis|
00001990  74 65 72 22 0d 00 f2 26  20 20 66 72 65 67 24 3d  |ter"...&  freg$=|
000019a0  c1 69 6e 73 74 24 2c 6f  66 66 25 2c 70 6f 69 6e  |.inst$,off%,poin|
000019b0  74 65 72 25 2d 6f 66 66  25 29 0d 00 f3 16 20 20  |ter%-off%)....  |
000019c0  6f 66 66 25 3d a7 66 72  65 67 24 2c 22 2d 22 29  |off%=.freg$,"-")|
000019d0  0d 00 f4 0c 20 20 e7 6f  66 66 25 8c 0d 00 f5 24  |....  .off%....$|
000019e0  20 20 20 20 66 6c 6f 77  25 3d a4 72 65 67 28 c1  |    flow%=.reg(.|
000019f0  66 72 65 67 24 2c 31 2c  6f 66 66 25 2d 31 29 29  |freg$,1,off%-1))|
00001a00  0d 00 f6 22 20 20 20 20  66 72 65 67 25 3d a4 72  |..."    freg%=.r|
00001a10  65 67 28 c1 66 72 65 67  24 2c 6f 66 66 25 2b 31  |eg(.freg$,off%+1|
00001a20  29 29 0d 00 f7 3a 20 20  20 20 e7 66 6c 6f 77 25  |))...:    .flow%|
00001a30  3e 66 72 65 67 25 8c 20  85 31 2c 22 42 61 64 20  |>freg%. .1,"Bad |
00001a40  73 79 6e 74 61 78 20 2d  20 46 6e 2d 46 6d 20 6e  |syntax - Fn-Fm n|
00001a50  6f 74 20 6c 6f 77 2d 68  69 67 68 22 0d 00 f8 16  |ot low-high"....|
00001a60  20 20 20 20 c8 95 66 6c  6f 77 25 3c 3d 66 72 65  |    ..flow%<=fre|
00001a70  67 25 0d 00 f9 22 20 20  20 20 20 20 66 6d 61 73  |g%..."      fmas|
00001a80  6b 25 3d 66 6d 61 73 6b  25 84 28 31 3c 3c 66 6c  |k%=fmask%.(1<<fl|
00001a90  6f 77 25 29 0d 00 fa 12  20 20 20 20 20 20 66 6c  |ow%)....      fl|
00001aa0  6f 77 25 2b 3d 31 0d 00  fb 09 20 20 20 20 ce 0d  |ow%+=1....    ..|
00001ab0  00 fc 07 20 20 cc 0d 00  fd 26 20 20 20 20 66 6d  |...  ....&    fm|
00001ac0  61 73 6b 25 3d 66 6d 61  73 6b 25 84 28 31 3c 3c  |ask%=fmask%.(1<<|
00001ad0  a4 72 65 67 28 66 72 65  67 24 29 29 0d 00 fe 07  |.reg(freg$))....|
00001ae0  20 20 cd 0d 00 ff 1b 20  20 e7 61 24 3c 3e 22 7d  |  .....  .a$<>"}|
00001af0  22 8c 20 70 6f 69 6e 74  65 72 25 2b 3d 32 0d 01  |". pointer%+=2..|
00001b00  00 0b fd 61 24 3d 22 7d  22 0d 01 01 11 70 70 25  |...a$="}"....pp%|
00001b10  3d 31 2d 6f 70 63 6f 64  65 25 0d 01 02 22 6f 66  |=1-opcode%..."of|
00001b20  66 25 3d 28 31 2b 70 72  65 63 25 29 3a e7 70 72  |f%=(1+prec%):.pr|
00001b30  65 63 25 3d 33 8c 6f 66  66 25 3d 33 0d 01 03 11  |ec%=3.off%=3....|
00001b40  77 62 25 3d 31 2d 6f 70  63 6f 64 65 25 0d 01 04  |wb%=1-opcode%...|
00001b50  0f 75 64 25 3d 6f 70 63  6f 64 65 25 0d 01 05 81  |.ud%=opcode%....|
00001b60  77 6f 72 64 25 3d 28 63  6f 6e 64 25 3c 3c 32 38  |word%=(cond%<<28|
00001b70  29 2b 28 33 3c 3c 32 36  29 2b 28 70 70 25 3c 3c  |)+(3<<26)+(pp%<<|
00001b80  32 34 29 2b 28 75 64 25  3c 3c 32 33 29 2b 28 28  |24)+(ud%<<23)+((|
00001b90  70 72 65 63 25 81 32 29  3c 3c 32 32 29 2b 28 77  |prec%.2)<<22)+(w|
00001ba0  62 25 3c 3c 32 31 29 2b  28 6f 70 63 6f 64 65 25  |b%<<21)+(opcode%|
00001bb0  3c 3c 32 30 29 2b 28 61  72 65 67 25 3c 3c 31 36  |<<20)+(areg%<<16|
00001bc0  29 2b 28 28 70 72 65 63  25 83 32 29 3c 3c 31 35  |)+((prec%.2)<<15|
00001bd0  29 2b 28 31 3c 3c 38 29  2b 6f 66 66 25 0d 01 06  |)+(1<<8)+off%...|
00001be0  0d e7 6f 70 63 6f 64 65  25 8c 0d 01 07 14 20 20  |..opcode%.....  |
00001bf0  6d 61 73 6b 25 3d 26 46  45 3a 69 25 3d 30 0d 01  |mask%=&FE:i%=0..|
00001c00  08 14 20 20 c8 95 66 6d  61 73 6b 25 80 6d 61 73  |..  ..fmask%.mas|
00001c10  6b 25 0d 01 09 38 20 20  20 20 e7 66 6d 61 73 6b  |k%...8    .fmask|
00001c20  25 80 28 31 3c 3c 69 25  29 8c 20 5b 4f 50 54 20  |%.(1<<i%). [OPT |
00001c30  70 61 73 73 25 3a 45 51  55 44 77 6f 72 64 25 2b  |pass%:EQUDword%+|
00001c40  28 69 25 3c 3c 31 32 29  3a 5d 0d 01 0a 0d 20 20  |(i%<<12):]....  |
00001c50  20 20 69 25 2b 3d 31 0d  01 0b 14 20 20 20 20 6d  |  i%+=1....    m|
00001c60  61 73 6b 25 2b 3d 6d 61  73 6b 25 0d 01 0c 07 20  |ask%+=mask%.... |
00001c70  20 ce 0d 01 0d 13 20 20  77 6f 72 64 25 2b 3d 69  | .....  word%+=i|
00001c80  25 3c 3c 31 32 0d 01 0e  05 cc 0d 01 0f 18 20 20  |%<<12.........  |
00001c90  6d 61 73 6b 25 3d 26 37  46 3a 69 25 3d 37 3c 3c  |mask%=&7F:i%=7<<|
00001ca0  31 32 0d 01 10 14 20 20  c8 95 66 6d 61 73 6b 25  |12....  ..fmask%|
00001cb0  80 6d 61 73 6b 25 0d 01  11 34 20 20 20 20 e7 66  |.mask%...4    .f|
00001cc0  6d 61 73 6b 25 80 28 6d  61 73 6b 25 2b 31 29 8c  |mask%.(mask%+1).|
00001cd0  20 5b 4f 50 54 20 70 61  73 73 25 3a 45 51 55 44  | [OPT pass%:EQUD|
00001ce0  77 6f 72 64 25 2b 69 25  3a 5d 0d 01 12 11 20 20  |word%+i%:]....  |
00001cf0  20 20 69 25 2d 3d 31 3c  3c 31 32 0d 01 13 17 20  |  i%-=1<<12.... |
00001d00  20 20 20 6d 61 73 6b 25  3d 6d 61 73 6b 25 3e 3e  |   mask%=mask%>>|
00001d10  3e 31 0d 01 14 07 20 20  ce 0d 01 15 0f 20 20 77  |>1....  .....  w|
00001d20  6f 72 64 25 2b 3d 69 25  0d 01 16 05 cd 0d 01 17  |ord%+=i%........|
00001d30  05 e1 0d 01 18 04 0d 01  19 49 f4 20 2a 2a 2a 2a  |.........I. ****|
00001d40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00001d70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00001d80  01 1a 04 0d 01 1b 0d dd  f2 61 64 64 72 65 73 73  |.........address|
00001d90  0d 01 1c 32 f4 20 50 72  6f 63 65 73 73 65 73 20  |...2. Processes |
00001da0  61 6e 20 61 64 64 72 65  73 73 20 61 6e 64 20 74  |an address and t|
00001db0  68 65 20 61 64 64 72 65  73 73 69 6e 67 20 6d 6f  |he addressing mo|
00001dc0  64 65 0d 01 1d 1c e7 c1  69 6e 73 74 24 2c 70 6f  |de......inst$,po|
00001dd0  69 6e 74 65 72 25 2c 31  29 3d 22 5b 22 8c 0d 01  |inter%,1)="["...|
00001de0  1e 11 20 20 70 6f 69 6e  74 65 72 25 2b 3d 31 0d  |..  pointer%+=1.|
00001df0  01 1f 37 20 20 c8 95 c1  69 6e 73 74 24 2c 70 6f  |..7  ...inst$,po|
00001e00  69 6e 74 65 72 25 2c 31  29 3c 3e 22 5d 22 80 c1  |inter%,1)<>"]"..|
00001e10  69 6e 73 74 24 2c 70 6f  69 6e 74 65 72 25 2c 31  |inst$,pointer%,1|
00001e20  29 3c 3e 22 2c 22 0d 01  20 21 20 20 20 20 61 72  |)<>",".. !    ar|
00001e30  65 67 24 2b 3d c1 69 6e  73 74 24 2c 70 6f 69 6e  |eg$+=.inst$,poin|
00001e40  74 65 72 25 2c 31 29 0d  01 21 13 20 20 20 20 70  |ter%,1)..!.    p|
00001e50  6f 69 6e 74 65 72 25 2b  3d 31 0d 01 22 07 20 20  |ointer%+=1..".  |
00001e60  ce 0d 01 23 1a 20 20 61  72 65 67 25 3d a4 61 72  |...#.  areg%=.ar|
00001e70  6d 72 65 67 28 61 72 65  67 24 29 0d 01 24 1e 20  |mreg(areg$)..$. |
00001e80  20 e7 c1 69 6e 73 74 24  2c 70 6f 69 6e 74 65 72  | ..inst$,pointer|
00001e90  25 2c 31 29 3d 22 5d 22  8c 0d 01 25 1b 20 20 20  |%,1)="]"...%.   |
00001ea0  20 e7 70 6f 69 6e 74 65  72 25 3d a9 28 69 6e 73  | .pointer%=.(ins|
00001eb0  74 24 29 8c 0d 01 26 34  20 20 20 20 20 20 75 64  |t$)...&4      ud|
00001ec0  25 3d 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |%=1             |
00001ed0  20 20 20 20 20 20 20 20  20 20 3a f4 20 6e 6f 6e  |          :. non|
00001ee0  2d 69 6e 64 65 78 65 64  0d 01 27 32 20 20 20 20  |-indexed..'2    |
00001ef0  cc 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001f00  20 20 20 20 20 20 20 20  20 20 20 3a f4 20 70 6f  |           :. po|
00001f10  73 74 2d 69 6e 64 65 78  65 64 0d 01 28 15 20 20  |st-indexed..(.  |
00001f20  20 20 20 20 70 6f 69 6e  74 65 72 25 2b 3d 31 0d  |    pointer%+=1.|
00001f30  01 29 42 20 20 20 20 20  20 e7 c1 69 6e 73 74 24  |.)B      ..inst$|
00001f40  2c 70 6f 69 6e 74 65 72  25 2c 31 29 3c 3e 22 2c  |,pointer%,1)<>",|
00001f50  22 8c 85 31 2c 22 42 61  64 20 73 79 6e 74 61 78  |"..1,"Bad syntax|
00001f60  20 2d 20 65 78 70 65 63  74 69 6e 67 20 60 2c 27  | - expecting `,'|
00001f70  22 0d 01 2a 15 20 20 20  20 20 20 70 6f 69 6e 74  |"..*.      point|
00001f80  65 72 25 2b 3d 32 0d 01  2b 42 20 20 20 20 20 20  |er%+=2..+B      |
00001f90  e7 c1 69 6e 73 74 24 2c  70 6f 69 6e 74 65 72 25  |..inst$,pointer%|
00001fa0  2c 31 29 3c 3e 22 23 22  8c 85 31 2c 22 42 61 64  |,1)<>"#"..1,"Bad|
00001fb0  20 73 79 6e 74 61 78 20  2d 20 65 78 70 65 63 74  | syntax - expect|
00001fc0  69 6e 67 20 60 23 27 22  0d 01 2c 15 20 20 20 20  |ing `#'"..,.    |
00001fd0  20 20 70 6f 69 6e 74 65  72 25 2b 3d 31 0d 01 2d  |  pointer%+=1..-|
00001fe0  31 20 20 20 20 20 20 6f  66 66 25 3d a4 65 76 61  |1      off%=.eva|
00001ff0  6c 28 c2 69 6e 73 74 24  2c a9 28 69 6e 73 74 24  |l(.inst$,.(inst$|
00002000  29 2d 70 6f 69 6e 74 65  72 25 2b 31 29 29 0d 01  |)-pointer%+1))..|
00002010  2e 09 20 20 20 20 cd 0d  01 2f 31 20 20 cc 20 20  |..    .../1  .  |
00002020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002030  20 20 20 20 20 20 20 20  20 20 3a f4 20 70 72 65  |          :. pre|
00002040  2d 69 6e 64 65 78 65 64  0d 01 30 0d 20 20 20 20  |-indexed..0.    |
00002050  70 70 25 3d 31 0d 01 31  13 20 20 20 20 70 6f 69  |pp%=1..1.    poi|
00002060  6e 74 65 72 25 2b 3d 32  0d 01 32 40 20 20 20 20  |nter%+=2..2@    |
00002070  e7 c1 69 6e 73 74 24 2c  70 6f 69 6e 74 65 72 25  |..inst$,pointer%|
00002080  2c 31 29 3c 3e 22 23 22  8c 85 31 2c 22 42 61 64  |,1)<>"#"..1,"Bad|
00002090  20 73 79 6e 74 61 78 20  2d 20 65 78 70 65 63 74  | syntax - expect|
000020a0  69 6e 67 20 60 23 27 22  0d 01 33 13 20 20 20 20  |ing `#'"..3.    |
000020b0  70 6f 69 6e 74 65 72 25  2b 3d 31 0d 01 34 21 20  |pointer%+=1..4! |
000020c0  20 20 20 c8 95 c1 69 6e  73 74 24 2c 70 6f 69 6e  |   ...inst$,poin|
000020d0  74 65 72 25 2c 31 29 3c  3e 22 5d 22 0d 01 35 22  |ter%,1)<>"]"..5"|
000020e0  20 20 20 20 20 20 6f 66  66 24 2b 3d c1 69 6e 73  |      off$+=.ins|
000020f0  74 24 2c 70 6f 69 6e 74  65 72 25 2c 31 29 0d 01  |t$,pointer%,1)..|
00002100  36 15 20 20 20 20 20 20  70 6f 69 6e 74 65 72 25  |6.      pointer%|
00002110  2b 3d 31 0d 01 37 09 20  20 20 20 ce 0d 01 38 18  |+=1..7.    ...8.|
00002120  20 20 20 20 6f 66 66 25  3d a4 65 76 61 6c 28 6f  |    off%=.eval(o|
00002130  66 66 24 29 0d 01 39 1c  20 20 20 20 e7 70 6f 69  |ff$)..9.    .poi|
00002140  6e 74 65 72 25 3c 3e a9  28 69 6e 73 74 24 29 8c  |nter%<>.(inst$).|
00002150  0d 01 3a 15 20 20 20 20  20 20 70 6f 69 6e 74 65  |..:.      pointe|
00002160  72 25 2b 3d 31 0d 01 3b  42 20 20 20 20 20 20 e7  |r%+=1..;B      .|
00002170  c1 69 6e 73 74 24 2c 70  6f 69 6e 74 65 72 25 2c  |.inst$,pointer%,|
00002180  31 29 3c 3e 22 21 22 8c  85 31 2c 22 42 61 64 20  |1)<>"!"..1,"Bad |
00002190  73 79 6e 74 61 78 20 2d  20 65 78 70 65 63 74 69  |syntax - expecti|
000021a0  6e 67 20 60 21 27 22 0d  01 3c 0f 20 20 20 20 20  |ng `!'"..<.     |
000021b0  20 77 62 25 3d 31 0d 01  3d 09 20 20 20 20 cd 0d  | wb%=1..=.    ..|
000021c0  01 3e 07 20 20 cd 0d 01  3f 37 cc 20 20 20 20 20  |.>.  ...?7.     |
000021d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000021e0  20 20 20 20 20 20 20 20  20 3a f4 20 73 69 6d 70  |         :. simp|
000021f0  6c 65 20 65 78 70 72 65  73 73 69 6f 6e 0d 01 40  |le expression..@|
00002200  0e 20 20 61 72 65 67 25  3d 31 35 0d 01 41 34 20  |.  areg%=15..A4 |
00002210  20 6f 66 66 25 3d a4 65  76 61 6c 28 c2 69 6e 73  | off%=.eval(.ins|
00002220  74 24 2c a9 28 69 6e 73  74 24 29 2d 70 6f 69 6e  |t$,.(inst$)-poin|
00002230  74 65 72 25 2b 31 29 29  2d 28 50 25 2b 38 29 0d  |ter%+1))-(P%+8).|
00002240  01 42 0b 20 20 70 70 25  3d 31 0d 01 43 0b 20 20  |.B.  pp%=1..C.  |
00002250  77 62 25 3d 30 0d 01 44  05 cd 0d 01 45 31 e7 20  |wb%=0..D....E1. |
00002260  70 61 73 73 25 80 32 20  e7 20 6f 66 66 25 80 33  |pass%.2 . off%.3|
00002270  20 8c 85 31 2c 22 42 61  64 20 6f 66 66 73 65 74  | ..1,"Bad offset|
00002280  20 2d 20 6e 6f 74 20 34  2e 6e 22 0d 01 46 12 e7  | - not 4.n"..F..|
00002290  6f 66 66 25 3e 3d 30 8c  75 64 25 3d 31 0d 01 47  |off%>=0.ud%=1..G|
000022a0  12 6f 66 66 25 3d 94 28  6f 66 66 25 29 81 34 0d  |.off%=.(off%).4.|
000022b0  01 48 33 e7 20 70 61 73  73 25 80 32 20 e7 20 6f  |.H3. pass%.2 . o|
000022c0  66 66 25 3e 32 35 36 20  8c 85 31 2c 22 42 61 64  |ff%>256 ..1,"Bad|
000022d0  20 6f 66 66 73 65 74 20  2d 20 74 6f 6f 20 62 69  | offset - too bi|
000022e0  67 22 0d 01 49 05 e1 0d  01 4a 04 0d 01 4b 0d dd  |g"..I....J...K..|
000022f0  f2 64 79 64 61 74 6f 70  0d 01 4c 26 f4 20 50 72  |.dydatop..L&. Pr|
00002300  6f 63 65 73 73 65 73 20  64 79 61 64 69 63 20 64  |ocesses dyadic d|
00002310  61 74 61 20 6f 70 65 72  61 74 69 6f 6e 73 0d 01  |ata operations..|
00002320  4d 24 ea 64 65 73 74 25  2c 6c 68 73 25 2c 72 68  |M$.dest%,lhs%,rh|
00002330  73 25 2c 64 65 73 74 24  2c 6c 68 73 24 2c 72 68  |s%,dest$,lhs$,rh|
00002340  73 24 0d 01 4e 0e 6f 70  63 6f 64 65 25 2d 3d 31  |s$..N.opcode%-=1|
00002350  0d 01 4f 1d c8 95 c1 69  6e 73 74 24 2c 70 6f 69  |..O....inst$,poi|
00002360  6e 74 65 72 25 2c 31 29  3c 3e 22 2c 22 0d 01 50  |nter%,1)<>","..P|
00002370  1d 64 65 73 74 24 2b 3d  c1 69 6e 73 74 24 2c 70  |.dest$+=.inst$,p|
00002380  6f 69 6e 74 65 72 25 2c  31 29 0d 01 51 0f 70 6f  |ointer%,1)..Q.po|
00002390  69 6e 74 65 72 25 2b 3d  31 0d 01 52 05 ce 0d 01  |inter%+=1..R....|
000023a0  53 15 64 65 73 74 25 3d  a4 72 65 67 28 64 65 73  |S.dest%=.reg(des|
000023b0  74 24 29 0d 01 54 0f 70  6f 69 6e 74 65 72 25 2b  |t$)..T.pointer%+|
000023c0  3d 32 0d 01 55 1d c8 95  c1 69 6e 73 74 24 2c 70  |=2..U....inst$,p|
000023d0  6f 69 6e 74 65 72 25 2c  31 29 3c 3e 22 2c 22 0d  |ointer%,1)<>",".|
000023e0  01 56 1c 6c 68 73 24 2b  3d c1 69 6e 73 74 24 2c  |.V.lhs$+=.inst$,|
000023f0  70 6f 69 6e 74 65 72 25  2c 31 29 0d 01 57 0f 70  |pointer%,1)..W.p|
00002400  6f 69 6e 74 65 72 25 2b  3d 31 0d 01 58 05 ce 0d  |ointer%+=1..X...|
00002410  01 59 13 6c 68 73 25 3d  a4 72 65 67 28 6c 68 73  |.Y.lhs%=.reg(lhs|
00002420  24 29 0d 01 5a 24 72 68  73 24 3d c2 69 6e 73 74  |$)..Z$rhs$=.inst|
00002430  24 2c a9 28 69 6e 73 74  24 29 2d 70 6f 69 6e 74  |$,.(inst$)-point|
00002440  65 72 25 2d 31 29 0d 01  5b 13 72 68 73 25 3d a4  |er%-1)..[.rhs%=.|
00002450  72 65 67 28 72 68 73 24  29 0d 01 5c 6e 77 6f 72  |reg(rhs$)..\nwor|
00002460  64 25 3d 28 26 45 3c 3c  32 34 29 2b 28 6f 70 63  |d%=(&E<<24)+(opc|
00002470  6f 64 65 25 3c 3c 32 30  29 2b 28 28 70 72 65 63  |ode%<<20)+((prec|
00002480  25 81 32 29 3c 3c 31 39  29 2b 28 6c 68 73 25 3c  |%.2)<<19)+(lhs%<|
00002490  3c 31 36 29 2b 28 64 65  73 74 25 3c 3c 31 32 29  |<16)+(dest%<<12)|
000024a0  2b 28 31 3c 3c 38 29 2b  28 28 70 72 65 63 25 83  |+(1<<8)+((prec%.|
000024b0  32 29 3c 3c 37 29 2b 28  72 6f 75 6e 64 25 3c 3c  |2)<<7)+(round%<<|
000024c0  35 29 2b 72 68 73 25 0d  01 5d 05 e1 0d 01 5e 04  |5)+rhs%..]....^.|
000024d0  0d 01 5f 0a dd f2 63 6f  6d 70 0d 01 60 3c f4 20  |.._...comp..`<. |
000024e0  50 72 6f 63 65 73 73 65  73 20 63 6f 6d 70 61 72  |Processes compar|
000024f0  69 73 6f 6e 20 6f 70 65  72 61 74 69 6f 6e 73 20  |ison operations |
00002500  28 43 4d 46 2c 20 43 4e  46 2c 20 43 4d 46 45 2c  |(CMF, CNF, CMFE,|
00002510  20 43 4e 46 45 29 0d 01  61 18 ea 6c 68 73 25 2c  | CNFE)..a..lhs%,|
00002520  72 68 73 25 2c 6c 68 73  24 2c 72 68 73 24 0d 01  |rhs%,lhs$,rhs$..|
00002530  62 0f 6f 70 63 6f 64 65  25 2d 3d 33 30 0d 01 63  |b.opcode%-=30..c|
00002540  1d c8 95 c1 69 6e 73 74  24 2c 70 6f 69 6e 74 65  |....inst$,pointe|
00002550  72 25 2c 31 29 3c 3e 22  2c 22 0d 01 64 1c 6c 68  |r%,1)<>","..d.lh|
00002560  73 24 2b 3d c1 69 6e 73  74 24 2c 70 6f 69 6e 74  |s$+=.inst$,point|
00002570  65 72 25 2c 31 29 0d 01  65 0f 70 6f 69 6e 74 65  |er%,1)..e.pointe|
00002580  72 25 2b 3d 31 0d 01 66  05 ce 0d 01 67 13 6c 68  |r%+=1..f....g.lh|
00002590  73 25 3d a4 72 65 67 28  6c 68 73 24 29 0d 01 68  |s%=.reg(lhs$)..h|
000025a0  24 72 68 73 24 3d c2 69  6e 73 74 24 2c a9 28 69  |$rhs$=.inst$,.(i|
000025b0  6e 73 74 24 29 2d 70 6f  69 6e 74 65 72 25 2d 31  |nst$)-pointer%-1|
000025c0  29 0d 01 69 13 72 68 73  25 3d a4 72 65 67 28 72  |)..i.rhs%=.reg(r|
000025d0  68 73 24 29 0d 01 6a 7a  77 6f 72 64 25 3d 28 26  |hs$)..jzword%=(&|
000025e0  45 3c 3c 32 34 29 2b 28  6f 70 63 6f 64 65 25 3c  |E<<24)+(opcode%<|
000025f0  3c 32 31 29 2b 28 31 3c  3c 32 30 29 2b 28 28 70  |<21)+(1<<20)+((p|
00002600  72 65 63 25 81 32 29 3c  3c 31 39 29 2b 28 6c 68  |rec%.2)<<19)+(lh|
00002610  73 25 3c 3c 31 36 29 2b  28 26 46 3c 3c 31 32 29  |s%<<16)+(&F<<12)|
00002620  2b 28 31 3c 3c 38 29 2b  28 28 70 72 65 63 25 83  |+(1<<8)+((prec%.|
00002630  32 29 3c 3c 37 29 2b 28  72 6f 75 6e 64 25 3c 3c  |2)<<7)+(round%<<|
00002640  35 29 2b 28 31 3c 3c 34  29 2b 72 68 73 25 0d 01  |5)+(1<<4)+rhs%..|
00002650  6b 05 e1 0d 01 6c 04 0d  01 6d 0d dd f2 63 6f 6e  |k....l...m...con|
00002660  73 74 61 74 0d 01 6e 4b  f4 20 50 72 6f 63 65 73  |stat..nK. Proces|
00002670  73 65 73 20 46 50 55 20  73 74 61 74 75 73 2f 63  |ses FPU status/c|
00002680  6f 6e 74 72 6f 6c 20 72  65 67 69 73 74 65 72 20  |ontrol register |
00002690  6f 70 65 72 61 74 69 6f  6e 73 20 28 52 46 53 2c  |operations (RFS,|
000026a0  20 57 46 53 2c 20 52 46  43 2c 20 57 46 43 29 0d  | WFS, RFC, WFC).|
000026b0  01 6f 0e ea 72 65 67 25  2c 72 65 67 24 0d 01 70  |.o..reg%,reg$..p|
000026c0  0f 6f 70 63 6f 64 65 25  2d 3d 32 38 0d 01 71 22  |.opcode%-=28..q"|
000026d0  72 65 67 24 3d c2 69 6e  73 74 24 2c a9 28 69 6e  |reg$=.inst$,.(in|
000026e0  73 74 24 29 2d 70 6f 69  6e 74 65 72 25 29 0d 01  |st$)-pointer%)..|
000026f0  72 16 72 65 67 25 3d a4  61 72 6d 72 65 67 28 72  |r.reg%=.armreg(r|
00002700  65 67 24 29 0d 01 73 64  77 6f 72 64 25 3d 28 26  |eg$)..sdword%=(&|
00002710  45 3c 3c 32 34 29 2b 28  6f 70 63 6f 64 65 25 3c  |E<<24)+(opcode%<|
00002720  3c 32 30 29 2b 28 28 70  72 65 63 25 81 32 29 3c  |<20)+((prec%.2)<|
00002730  3c 31 39 29 2b 28 72 65  67 25 3c 3c 31 32 29 2b  |<19)+(reg%<<12)+|
00002740  28 31 3c 3c 38 29 2b 28  28 70 72 65 63 25 83 32  |(1<<8)+((prec%.2|
00002750  29 3c 3c 37 29 2b 28 72  6f 75 6e 64 25 3c 3c 35  |)<<7)+(round%<<5|
00002760  29 2b 28 31 3c 3c 34 29  0d 01 74 05 e1 0d 01 75  |)+(1<<4)..t....u|
00002770  04 0d 01 76 0c dd f2 64  61 74 72 61 6e 0d 01 77  |...v...datran..w|
00002780  33 f4 20 50 72 6f 63 65  73 73 65 73 20 64 61 74  |3. Processes dat|
00002790  61 20 74 72 61 6e 73 66  65 72 20 6f 70 65 72 61  |a transfer opera|
000027a0  74 69 6f 6e 73 20 28 4c  44 46 2c 20 53 54 46 29  |tions (LDF, STF)|
000027b0  0d 01 78 32 ea 61 72 65  67 25 2c 66 72 65 67 25  |..x2.areg%,freg%|
000027c0  2c 6f 66 66 25 2c 70 70  25 2c 75 64 25 2c 77 62  |,off%,pp%,ud%,wb|
000027d0  25 2c 61 72 65 67 24 2c  66 72 65 67 24 2c 6f 66  |%,areg$,freg$,of|
000027e0  66 24 0d 01 79 0f 6f 70  63 6f 64 65 25 2d 3d 33  |f$..y.opcode%-=3|
000027f0  38 0d 01 7a 1d c8 95 c1  69 6e 73 74 24 2c 70 6f  |8..z....inst$,po|
00002800  69 6e 74 65 72 25 2c 31  29 3c 3e 22 2c 22 0d 01  |inter%,1)<>","..|
00002810  7b 1d 66 72 65 67 24 2b  3d c1 69 6e 73 74 24 2c  |{.freg$+=.inst$,|
00002820  70 6f 69 6e 74 65 72 25  2c 31 29 0d 01 7c 0f 70  |pointer%,1)..|.p|
00002830  6f 69 6e 74 65 72 25 2b  3d 31 0d 01 7d 05 ce 0d  |ointer%+=1..}...|
00002840  01 7e 15 66 72 65 67 25  3d a4 72 65 67 28 66 72  |.~.freg%=.reg(fr|
00002850  65 67 24 29 0d 01 7f 0f  70 6f 69 6e 74 65 72 25  |eg$)....pointer%|
00002860  2b 3d 32 0d 01 80 0c f2  61 64 64 72 65 73 73 0d  |+=2.....address.|
00002870  01 81 81 77 6f 72 64 25  3d 28 33 3c 3c 32 36 29  |...word%=(3<<26)|
00002880  2b 28 70 70 25 3c 3c 32  34 29 2b 28 75 64 25 3c  |+(pp%<<24)+(ud%<|
00002890  3c 32 33 29 2b 28 28 70  72 65 63 25 81 32 29 3c  |<23)+((prec%.2)<|
000028a0  3c 32 32 29 2b 28 77 62  25 3c 3c 32 31 29 2b 28  |<22)+(wb%<<21)+(|
000028b0  6f 70 63 6f 64 65 25 3c  3c 32 30 29 2b 28 61 72  |opcode%<<20)+(ar|
000028c0  65 67 25 3c 3c 31 36 29  2b 28 28 70 72 65 63 25  |eg%<<16)+((prec%|
000028d0  83 32 29 3c 3c 31 35 29  2b 28 66 72 65 67 25 3c  |.2)<<15)+(freg%<|
000028e0  3c 31 32 29 2b 28 31 3c  3c 38 29 2b 6f 66 66 25  |<12)+(1<<8)+off%|
000028f0  0d 01 82 05 e1 0d 01 83  04 0d 01 84 0e dd f2 6d  |...............m|
00002900  6f 6e 64 61 74 6f 70 0d  01 85 27 f4 20 50 72 6f  |ondatop...'. Pro|
00002910  63 65 73 73 65 73 20 6d  6f 6e 61 64 69 63 20 64  |cesses monadic d|
00002920  61 74 61 20 6f 70 65 72  61 74 69 6f 6e 73 0d 01  |ata operations..|
00002930  86 1a ea 64 65 73 74 25  2c 72 68 73 25 2c 64 65  |...dest%,rhs%,de|
00002940  73 74 24 2c 72 68 73 24  0d 01 87 0f 6f 70 63 6f  |st$,rhs$....opco|
00002950  64 65 25 2d 3d 31 34 0d  01 88 1d c8 95 c1 69 6e  |de%-=14.......in|
00002960  73 74 24 2c 70 6f 69 6e  74 65 72 25 2c 31 29 3c  |st$,pointer%,1)<|
00002970  3e 22 2c 22 0d 01 89 1d  64 65 73 74 24 2b 3d c1  |>","....dest$+=.|
00002980  69 6e 73 74 24 2c 70 6f  69 6e 74 65 72 25 2c 31  |inst$,pointer%,1|
00002990  29 0d 01 8a 0f 70 6f 69  6e 74 65 72 25 2b 3d 31  |)....pointer%+=1|
000029a0  0d 01 8b 05 ce 0d 01 8c  15 64 65 73 74 25 3d a4  |.........dest%=.|
000029b0  72 65 67 28 64 65 73 74  24 29 0d 01 8d 24 72 68  |reg(dest$)...$rh|
000029c0  73 24 3d c2 69 6e 73 74  24 2c a9 28 69 6e 73 74  |s$=.inst$,.(inst|
000029d0  24 29 2d 70 6f 69 6e 74  65 72 25 2d 31 29 0d 01  |$)-pointer%-1)..|
000029e0  8e 13 72 68 73 25 3d a4  72 65 67 28 72 68 73 24  |..rhs%=.reg(rhs$|
000029f0  29 0d 01 8f 6b 77 6f 72  64 25 3d 28 26 45 3c 3c  |)...kword%=(&E<<|
00002a00  32 34 29 2b 28 6f 70 63  6f 64 65 25 3c 3c 32 30  |24)+(opcode%<<20|
00002a10  29 2b 28 28 70 72 65 63  25 81 32 29 3c 3c 31 39  |)+((prec%.2)<<19|
00002a20  29 2b 28 31 3c 3c 31 35  29 2b 28 64 65 73 74 25  |)+(1<<15)+(dest%|
00002a30  3c 3c 31 32 29 2b 28 31  3c 3c 38 29 2b 28 28 70  |<<12)+(1<<8)+((p|
00002a40  72 65 63 25 83 32 29 3c  3c 37 29 2b 28 72 6f 75  |rec%.2)<<7)+(rou|
00002a50  6e 64 25 3c 3c 35 29 2b  72 68 73 25 0d 01 90 05  |nd%<<5)+rhs%....|
00002a60  e1 0d 01 91 04 0d 01 92  0c dd f2 74 79 70 63 6f  |...........typco|
00002a70  6e 0d 01 93 2b f4 20 50  72 6f 63 65 73 73 65 73  |n...+. Processes|
00002a80  20 74 79 70 65 20 63 6f  6e 76 65 72 73 69 6f 6e  | type conversion|
00002a90  73 20 28 46 49 58 2c 20  46 4c 54 29 0d 01 94 1c  |s (FIX, FLT)....|
00002aa0  ea 61 72 65 67 25 2c 66  72 65 67 25 2c 64 65 73  |.areg%,freg%,des|
00002ab0  74 24 2c 73 72 63 65 24  0d 01 95 0f 6f 70 63 6f  |t$,srce$....opco|
00002ac0  64 65 25 2d 3d 32 38 0d  01 96 1d c8 95 c1 69 6e  |de%-=28.......in|
00002ad0  73 74 24 2c 70 6f 69 6e  74 65 72 25 2c 31 29 3c  |st$,pointer%,1)<|
00002ae0  3e 22 2c 22 0d 01 97 1f  20 20 64 65 73 74 24 2b  |>","....  dest$+|
00002af0  3d c1 69 6e 73 74 24 2c  70 6f 69 6e 74 65 72 25  |=.inst$,pointer%|
00002b00  2c 31 29 0d 01 98 11 20  20 70 6f 69 6e 74 65 72  |,1)....  pointer|
00002b10  25 2b 3d 31 0d 01 99 05  ce 0d 01 9a 25 73 72 63  |%+=1........%src|
00002b20  65 24 3d c2 69 6e 73 74  24 2c a9 28 69 6e 73 74  |e$=.inst$,.(inst|
00002b30  24 29 2d 70 6f 69 6e 74  65 72 25 2d 31 29 0d 01  |$)-pointer%-1)..|
00002b40  9b 0d e7 6f 70 63 6f 64  65 25 8c 0d 01 9c 1a 20  |...opcode%..... |
00002b50  20 61 72 65 67 25 3d a4  61 72 6d 72 65 67 28 64  | areg%=.armreg(d|
00002b60  65 73 74 24 29 0d 01 9d  17 20 20 66 72 65 67 25  |est$)....  freg%|
00002b70  3d a4 72 65 67 28 73 72  63 65 24 29 0d 01 9e 05  |=.reg(srce$)....|
00002b80  cc 0d 01 9f 1a 20 20 61  72 65 67 25 3d a4 61 72  |.....  areg%=.ar|
00002b90  6d 72 65 67 28 73 72 63  65 24 29 0d 01 a0 17 20  |mreg(srce$).... |
00002ba0  20 66 72 65 67 25 3d a4  72 65 67 28 64 65 73 74  | freg%=.reg(dest|
00002bb0  24 29 0d 01 a1 05 cd 0d  01 a2 77 77 6f 72 64 25  |$)........wword%|
00002bc0  3d 28 26 45 3c 3c 32 34  29 2b 28 6f 70 63 6f 64  |=(&E<<24)+(opcod|
00002bd0  65 25 3c 3c 32 30 29 2b  28 28 70 72 65 63 25 81  |e%<<20)+((prec%.|
00002be0  32 29 3c 3c 31 39 29 2b  28 66 72 65 67 25 3c 3c  |2)<<19)+(freg%<<|
00002bf0  31 36 29 2b 28 61 72 65  67 25 3c 3c 31 32 29 2b  |16)+(areg%<<12)+|
00002c00  28 31 3c 3c 38 29 2b 28  28 70 72 65 63 25 83 32  |(1<<8)+((prec%.2|
00002c10  29 3c 3c 37 29 2b 28 72  6f 75 6e 64 25 3c 3c 35  |)<<7)+(round%<<5|
00002c20  29 2b 28 31 3c 3c 34 29  2b 66 72 65 67 25 0d 01  |)+(1<<4)+freg%..|
00002c30  a3 05 e1 0d 01 a4 04 0d  01 a5 12 dd a4 61 72 6d  |.............arm|
00002c40  72 65 67 28 72 65 67 24  29 0d 01 a6 3f f4 20 52  |reg(reg$)...?. R|
00002c50  65 74 75 72 6e 73 20 61  20 6e 75 6d 62 65 72 20  |eturns a number |
00002c60  72 65 70 72 65 73 65 6e  74 69 6e 67 20 61 6e 20  |representing an |
00002c70  41 52 4d 20 72 65 67 69  73 74 65 72 20 6f 72 20  |ARM register or |
00002c80  63 6f 6e 73 74 61 6e 74  0d 01 a7 09 ea 72 65 67  |constant.....reg|
00002c90  25 0d 01 a8 12 e7 c0 72  65 67 24 2c 31 29 3d 22  |%......reg$,1)="|
00002ca0  23 22 8c 0d 01 a9 3f 20  20 69 6d 6d 25 3d 28 a7  |#"....?  imm%=(.|
00002cb0  22 30 2e 30 31 2e 30 32  2e 30 33 2e 30 34 2e 30  |"0.01.02.03.04.0|
00002cc0  35 2e 30 30 2e 35 31 30  2e 30 22 2c c2 72 65 67  |5.00.510.0",.reg|
00002cd0  24 2c a9 28 72 65 67 24  29 2d 31 29 29 2b 32 29  |$,.(reg$)-1))+2)|
00002ce0  81 33 0d 01 aa 28 20 20  e7 69 6d 6d 25 3d 30 8c  |.3...(  .imm%=0.|
00002cf0  85 31 2c 22 42 61 64 20  69 6d 6d 65 64 69 61 74  |.1,"Bad immediat|
00002d00  65 20 6f 70 65 72 61 6e  64 22 0d 01 ab 11 20 20  |e operand"....  |
00002d10  72 65 67 25 3d 37 2b 69  6d 6d 25 0d 01 ac 05 cc  |reg%=7+imm%.....|
00002d20  0d 01 ad 14 20 20 e7 c0  72 65 67 24 2c 31 29 3d  |....  ..reg$,1)=|
00002d30  22 52 22 8c 0d 01 ae 20  20 20 20 20 72 65 67 25  |"R"....     reg%|
00002d40  3d bb 28 c2 72 65 67 24  2c a9 28 72 65 67 24 29  |=.(.reg$,.(reg$)|
00002d50  2d 31 29 29 0d 01 af 07  20 20 cc 0d 01 b0 13 20  |-1))....  ..... |
00002d60  20 20 20 e7 72 65 67 24  3d 22 50 43 22 8c 0d 01  |   .reg$="PC"...|
00002d70  b1 11 20 20 20 20 20 20  72 65 67 25 3d 31 35 0d  |..      reg%=15.|
00002d80  01 b2 09 20 20 20 20 cc  0d 01 b3 1a 20 20 20 20  |...    .....    |
00002d90  20 20 72 65 67 25 3d a4  65 76 61 6c 28 72 65 67  |  reg%=.eval(reg|
00002da0  24 29 0d 01 b4 09 20 20  20 20 cd 0d 01 b5 07 20  |$)....    ..... |
00002db0  20 cd 0d 01 b6 05 cd 0d  01 b7 09 3d 72 65 67 25  | ..........=reg%|
00002dc0  0d 01 b8 04 0d 01 b9 11  dd a4 63 6f 6e 64 28 69  |..........cond(i|
00002dd0  6e 73 74 24 29 0d 01 ba  36 f4 20 52 65 74 75 72  |nst$)...6. Retur|
00002de0  6e 73 20 61 20 6e 75 6d  62 65 72 20 72 65 70 72  |ns a number repr|
00002df0  65 73 65 6e 74 69 6e 67  20 74 68 65 20 63 6f 6e  |esenting the con|
00002e00  64 69 74 69 6f 6e 20 63  6f 64 65 0d 01 bb 10 ea  |dition code.....|
00002e10  63 6f 6e 64 25 2c 63 6f  6e 64 24 0d 01 bc 1c 63  |cond%,cond$....c|
00002e20  6f 6e 64 24 3d c1 69 6e  73 74 24 2c 70 6f 69 6e  |ond$=.inst$,poin|
00002e30  74 65 72 25 2c 32 29 0d  01 bd 0d c8 8e 63 6f 6e  |ter%,2)......con|
00002e40  64 24 20 ca 0d 01 be 1d  c9 22 6c 6f 22 3a 63 6f  |d$ ......"lo":co|
00002e50  6e 64 25 3d 33 3a 70 6f  69 6e 74 65 72 25 2b 3d  |nd%=3:pointer%+=|
00002e60  32 0d 01 bf 1d c9 22 68  73 22 3a 63 6f 6e 64 25  |2....."hs":cond%|
00002e70  3d 32 3a 70 6f 69 6e 74  65 72 25 2b 3d 32 0d 01  |=2:pointer%+=2..|
00002e80  c0 3c 7f 3a 63 6f 6e 64  25 3d 28 a7 22 65 71 6e  |.<.:cond%=(."eqn|
00002e90  65 63 73 63 63 6d 69 70  6c 76 73 76 63 68 69 6c  |ecsccmiplvsvchil|
00002ea0  73 67 65 6c 74 67 74 6c  65 61 6c 6e 76 22 2c 63  |sgeltgtlealnv",c|
00002eb0  6f 6e 64 24 29 2b 31 29  81 32 0d 01 c1 22 e7 63  |ond$)+1).2...".c|
00002ec0  6f 6e 64 25 3d 30 8c 63  6f 6e 64 25 3d 31 35 20  |ond%=0.cond%=15 |
00002ed0  8b 70 6f 69 6e 74 65 72  25 2b 3d 32 0d 01 c2 0c  |.pointer%+=2....|
00002ee0  63 6f 6e 64 25 2d 3d 31  0d 01 c3 05 cb 0d 01 c4  |cond%-=1........|
00002ef0  0a 3d 63 6f 6e 64 25 0d  01 c5 04 0d 01 c6 11 dd  |.=cond%.........|
00002f00  a4 66 6c 6f 70 28 69 6e  73 74 24 29 0d 01 c7 46  |.flop(inst$)...F|
00002f10  f4 20 44 65 63 6f 64 65  73 20 61 6e 64 20 61 73  |. Decodes and as|
00002f20  73 65 6d 62 6c 65 73 20  66 6c 6f 61 74 69 6e 67  |sembles floating|
00002f30  20 70 6f 69 6e 74 20 69  6e 73 74 72 75 63 74 69  | point instructi|
00002f40  6f 6e 20 28 72 65 74 75  72 6e 73 20 64 75 6d 6d  |on (returns dumm|
00002f50  79 29 0d 01 c8 13 ea 70  6f 69 6e 74 65 72 25 2c  |y).....pointer%,|
00002f60  77 6f 72 64 25 0d 01 c9  07 ea 20 85 0d 01 ca 28  |word%..... ....(|
00002f70  ee 20 85 20 ea 20 f7 20  85 3a f2 5f 65 28 22 66  |. . . . .:._e("f|
00002f80  6c 6f 70 28 60 22 2b 20  69 6e 73 74 24 2b 20 22  |lop(`"+ inst$+ "|
00002f90  27 29 22 29 0d 01 cb 1a  6f 70 63 6f 64 65 25 3d  |')")....opcode%=|
00002fa0  a4 6f 70 63 6f 64 65 28  69 6e 73 74 24 29 0d 01  |.opcode(inst$)..|
00002fb0  cc 16 63 6f 6e 64 25 3d  a4 63 6f 6e 64 28 69 6e  |..cond%=.cond(in|
00002fc0  73 74 24 29 0d 01 cd 16  70 72 65 63 25 3d a4 70  |st$)....prec%=.p|
00002fd0  72 65 63 28 69 6e 73 74  24 29 0d 01 ce 18 72 6f  |rec(inst$)....ro|
00002fe0  75 6e 64 25 3d a4 72 6f  75 6e 64 28 69 6e 73 74  |und%=.round(inst|
00002ff0  24 29 0d 01 cf 1c c8 95  c1 69 6e 73 74 24 2c 70  |$).......inst$,p|
00003000  6f 69 6e 74 65 72 25 2c  31 29 3d 22 20 22 0d 01  |ointer%,1)=" "..|
00003010  d0 11 20 20 70 6f 69 6e  74 65 72 25 2b 3d 31 0d  |..  pointer%+=1.|
00003020  01 d1 05 ce 0d 01 d2 09  c8 8e b9 20 ca 0d 01 d3  |........... ....|
00003030  1a 20 20 c9 6f 70 63 6f  64 65 25 3c 31 34 3a f2  |.  .opcode%<14:.|
00003040  64 79 64 61 74 6f 70 0d  01 d4 1b 20 20 c9 6f 70  |dydatop....  .op|
00003050  63 6f 64 65 25 3c 32 38  3a f2 6d 6f 6e 64 61 74  |code%<28:.mondat|
00003060  6f 70 0d 01 d5 19 20 20  c9 6f 70 63 6f 64 65 25  |op....  .opcode%|
00003070  3c 33 30 3a f2 74 79 70  63 6f 6e 0d 01 d6 1a 20  |<30:.typcon.... |
00003080  20 c9 6f 70 63 6f 64 65  25 3c 33 34 3a f2 63 6f  | .opcode%<34:.co|
00003090  6e 73 74 61 74 0d 01 d7  17 20 20 c9 6f 70 63 6f  |nstat....  .opco|
000030a0  64 65 25 3c 33 38 3a f2  63 6f 6d 70 0d 01 d8 19  |de%<38:.comp....|
000030b0  20 20 c9 6f 70 63 6f 64  65 25 3c 34 30 3a f2 64  |  .opcode%<40:.d|
000030c0  61 74 72 61 6e 0d 01 d9  0f 20 20 7f f2 6d 64 61  |atran....  ..mda|
000030d0  74 72 61 6e 0d 01 da 05  cb 0d 01 db 1b 77 6f 72  |tran.........wor|
000030e0  64 25 3d 77 6f 72 64 25  84 28 63 6f 6e 64 25 3c  |d%=word%.(cond%<|
000030f0  3c 32 38 29 0d 01 dc 0e  5b 4f 50 54 20 70 61 73  |<28)....[OPT pas|
00003100  73 25 0d 01 dd 0e 45 51  55 44 20 77 6f 72 64 25  |s%....EQUD word%|
00003110  0d 01 de 05 5d 0d 01 df  06 3d 30 0d 01 e0 04 0d  |....]....=0.....|
00003120  01 e1 13 dd a4 6f 70 63  6f 64 65 28 69 6e 73 74  |.....opcode(inst|
00003130  24 29 0d 01 e2 42 f4 20  52 65 74 75 72 6e 73 20  |$)...B. Returns |
00003140  74 68 65 20 6f 70 63 6f  64 65 20 72 65 70 72 65  |the opcode repre|
00003150  73 65 6e 74 69 6e 67 20  61 20 66 6c 6f 61 74 69  |senting a floati|
00003160  6e 67 20 70 6f 69 6e 74  20 69 6e 73 74 72 75 63  |ng point instruc|
00003170  74 69 6f 6e 0d 01 e3 1a  ea 6f 70 63 6f 64 65 25  |tion.....opcode%|
00003180  2c 6f 70 63 6f 64 65 24  2c 74 65 6d 70 24 0d 01  |,opcode$,temp$..|
00003190  e4 20 6f 70 63 6f 64 65  24 3d c0 69 6e 73 74 24  |. opcode$=.inst$|
000031a0  2c 33 29 3a 70 6f 69 6e  74 65 72 25 3d 34 0d 01  |,3):pointer%=4..|
000031b0  e5 21 e7 6f 70 63 6f 64  65 24 3d 22 43 4d 46 22  |.!.opcode$="CMF"|
000031c0  84 6f 70 63 6f 64 65 24  3d 22 43 4e 46 22 8c 0d  |.opcode$="CNF"..|
000031d0  01 e6 1e 20 20 74 65 6d  70 24 3d c1 69 6e 73 74  |...  temp$=.inst|
000031e0  24 2c 70 6f 69 6e 74 65  72 25 2c 31 29 0d 01 e7  |$,pointer%,1)...|
000031f0  2b 20 20 e7 74 65 6d 70  24 3d 22 45 22 8c 6f 70  |+  .temp$="E".op|
00003200  63 6f 64 65 24 2b 3d 74  65 6d 70 24 3a 70 6f 69  |code$+=temp$:poi|
00003210  6e 74 65 72 25 2b 3d 31  0d 01 e8 05 cd 0d 01 e9  |nter%+=1........|
00003220  c2 6f 70 63 6f 64 65 25  3d 28 a7 22 41 44 46 20  |.opcode%=(."ADF |
00003230  4d 55 46 20 53 55 46 20  52 53 46 20 44 56 46 20  |MUF SUF RSF DVF |
00003240  52 44 46 20 50 4f 57 20  52 50 57 20 52 4d 46 20  |RDF POW RPW RMF |
00003250  46 4d 4c 20 46 44 56 20  46 52 44 20 50 4f 4c 20  |FML FDV FRD POL |
00003260  4d 56 46 20 4d 4e 46 20  41 42 53 20 52 4e 44 20  |MVF MNF ABS RND |
00003270  53 51 54 20 4c 4f 47 20  4c 47 4e 20 45 58 50 20  |SQT LOG LGN EXP |
00003280  53 49 4e 20 43 4f 53 20  54 41 4e 20 41 53 4e 20  |SIN COS TAN ASN |
00003290  41 43 53 20 41 54 4e 20  46 4c 54 20 46 49 58 20  |ACS ATN FLT FIX |
000032a0  57 46 53 20 52 46 53 20  57 46 43 20 52 46 43 20  |WFS RFS WFC RFC |
000032b0  43 4d 46 20 43 4e 46 20  43 4d 46 45 43 4e 46 45  |CMF CNF CMFECNFE|
000032c0  53 54 46 20 4c 44 46 20  53 4d 46 20 4c 4d 46 20  |STF LDF SMF LMF |
000032d0  22 2c 6f 70 63 6f 64 65  24 29 2b 33 29 81 34 0d  |",opcode$)+3).4.|
000032e0  01 ea 22 e7 6f 70 63 6f  64 65 25 3d 30 8c 85 31  |..".opcode%=0..1|
000032f0  2c 22 55 6e 6b 6e 6f 77  6e 20 6f 70 63 6f 64 65  |,"Unknown opcode|
00003300  22 0d 01 eb 0c 3d 6f 70  63 6f 64 65 25 0d 01 ec  |"....=opcode%...|
00003310  04 0d 01 ed 11 dd a4 70  72 65 63 28 69 6e 73 74  |.......prec(inst|
00003320  24 29 0d 01 ee 31 f4 20  52 65 74 75 72 6e 73 20  |$)...1. Returns |
00003330  61 20 6e 75 6d 62 65 72  20 72 65 70 72 65 73 65  |a number represe|
00003340  6e 74 69 6e 67 20 74 68  65 20 70 72 65 63 69 73  |nting the precis|
00003350  69 6f 6e 0d 01 ef 24 f4  49 46 6f 70 63 6f 64 65  |ion...$.IFopcode|
00003360  25 3e 32 39 41 4e 44 6f  70 63 6f 64 65 25 3c 33  |%>29ANDopcode%<3|
00003370  34 54 48 45 4e 3d 30 0d  01 f0 10 ea 70 72 65 63  |4THEN=0.....prec|
00003380  25 2c 70 72 65 63 24 0d  01 f1 1c 70 72 65 63 24  |%,prec$....prec$|
00003390  3d c1 69 6e 73 74 24 2c  70 6f 69 6e 74 65 72 25  |=.inst$,pointer%|
000033a0  2c 31 29 0d 01 f2 19 70  72 65 63 25 3d a7 22 53  |,1)....prec%=."S|
000033b0  44 45 50 20 22 2c 70 72  65 63 24 29 0d 01 f3 14  |DEP ",prec$)....|
000033c0  e7 70 72 65 63 25 3d 35  8c 70 72 65 63 25 3d 32  |.prec%=5.prec%=2|
000033d0  0d 01 f4 1f e7 70 72 65  63 25 3d 30 8c 85 31 2c  |.....prec%=0..1,|
000033e0  22 42 61 64 20 70 72 65  63 69 73 69 6f 6e 22 0d  |"Bad precision".|
000033f0  01 f5 0c 70 72 65 63 25  2d 3d 31 0d 01 f6 0f 70  |...prec%-=1....p|
00003400  6f 69 6e 74 65 72 25 2b  3d 31 0d 01 f7 0a 3d 70  |ointer%+=1....=p|
00003410  72 65 63 25 0d 01 f8 04  0d 01 f9 0f dd a4 72 65  |rec%..........re|
00003420  67 28 72 65 67 24 29 0d  01 fa 49 f4 20 52 65 74  |g(reg$)...I. Ret|
00003430  75 72 6e 73 20 61 20 6e  75 6d 62 65 72 20 72 65  |urns a number re|
00003440  70 72 65 73 65 6e 74 69  6e 67 20 61 20 66 6c 6f  |presenting a flo|
00003450  61 74 69 6e 67 20 70 6f  69 6e 74 20 72 65 67 69  |ating point regi|
00003460  73 74 65 72 20 6f 72 20  63 6f 6e 73 74 61 6e 74  |ster or constant|
00003470  0d 01 fb 09 ea 72 65 67  25 0d 01 fc 12 e7 c0 72  |.....reg%......r|
00003480  65 67 24 2c 31 29 3d 22  23 22 8c 0d 01 fd 3f 20  |eg$,1)="#"....? |
00003490  20 69 6d 6d 25 3d 28 a7  22 30 2e 30 31 2e 30 32  | imm%=(."0.01.02|
000034a0  2e 30 33 2e 30 34 2e 30  35 2e 30 30 2e 35 31 30  |.03.04.05.00.510|
000034b0  2e 30 22 2c c2 72 65 67  24 2c a9 28 72 65 67 24  |.0",.reg$,.(reg$|
000034c0  29 2d 31 29 29 2b 32 29  81 33 0d 01 fe 28 20 20  |)-1))+2).3...(  |
000034d0  e7 69 6d 6d 25 3d 30 8c  85 31 2c 22 42 61 64 20  |.imm%=0..1,"Bad |
000034e0  69 6d 6d 65 64 69 61 74  65 20 6f 70 65 72 61 6e  |immediate operan|
000034f0  64 22 0d 01 ff 11 20 20  72 65 67 25 3d 37 2b 69  |d"....  reg%=7+i|
00003500  6d 6d 25 0d 02 00 05 cc  0d 02 01 14 20 20 e7 c0  |mm%.........  ..|
00003510  72 65 67 24 2c 31 29 3d  22 46 22 8c 0d 02 02 20  |reg$,1)="F".... |
00003520  20 20 20 20 72 65 67 25  3d bb 28 c2 72 65 67 24  |    reg%=.(.reg$|
00003530  2c a9 28 72 65 67 24 29  2d 31 29 29 0d 02 03 07  |,.(reg$)-1))....|
00003540  20 20 cc 0d 02 04 18 20  20 20 20 72 65 67 25 3d  |  .....    reg%=|
00003550  a4 65 76 61 6c 28 72 65  67 24 29 0d 02 05 07 20  |.eval(reg$).... |
00003560  20 cd 0d 02 06 05 cd 0d  02 07 09 3d 72 65 67 25  | ..........=reg%|
00003570  0d 02 08 04 0d 02 09 12  dd a4 72 6f 75 6e 64 28  |..........round(|
00003580  69 6e 73 74 24 29 0d 02  0a 36 f4 20 52 65 74 75  |inst$)...6. Retu|
00003590  72 6e 73 20 61 20 6e 75  6d 62 65 72 20 72 65 70  |rns a number rep|
000035a0  72 65 73 65 6e 74 69 6e  67 20 74 68 65 20 72 6f  |resenting the ro|
000035b0  75 6e 64 69 6e 67 20 6d  6f 75 6e 64 0d 02 0b 2c  |unding mound...,|
000035c0  e7 28 6f 70 63 6f 64 65  25 3e 32 39 80 6f 70 63  |.(opcode%>29.opc|
000035d0  6f 64 65 25 3c 33 34 29  84 28 6f 70 63 6f 64 65  |ode%<34).(opcode|
000035e0  25 3e 33 37 29 8c 3d 30  0d 02 0c 12 ea 72 6f 75  |%>37).=0.....rou|
000035f0  6e 64 25 2c 72 6f 75 6e  64 24 0d 02 0d 1d 72 6f  |nd%,round$....ro|
00003600  75 6e 64 24 3d c1 69 6e  73 74 24 2c 70 6f 69 6e  |und$=.inst$,poin|
00003610  74 65 72 25 2c 31 29 0d  02 0e 19 72 6f 75 6e 64  |ter%,1)....round|
00003620  25 3d a7 22 50 4d 5a 22  2c 72 6f 75 6e 64 24 29  |%=."PMZ",round$)|
00003630  0d 02 0f 1a e7 72 6f 75  6e 64 25 3c 3e 30 8c 70  |.....round%<>0.p|
00003640  6f 69 6e 74 65 72 25 2b  3d 31 0d 02 10 0b 3d 72  |ointer%+=1....=r|
00003650  6f 75 6e 64 25 0d 02 11  04 0d 02 12 0d dd a4 74  |ound%..........t|
00003660  65 73 74 46 50 45 0d 02  13 31 f4 20 43 68 65 63  |estFPE...1. Chec|
00003670  6b 73 20 77 68 65 74 68  65 72 20 74 68 65 20 46  |ks whether the F|
00003680  50 20 65 6d 75 6c 61 74  6f 72 20 69 73 20 69 6e  |P emulator is in|
00003690  73 74 61 6c 6c 65 64 0d  02 14 0b ea 66 6c 61 67  |stalled.....flag|
000036a0  73 25 0d 02 15 29 c8 99  22 58 4f 53 5f 4d 6f 64  |s%...).."XOS_Mod|
000036b0  75 6c 65 22 2c 33 2c 22  46 50 45 6d 75 6c 61 74  |ule",3,"FPEmulat|
000036c0  6f 72 22 b8 3b 66 6c 61  67 73 25 0d 02 16 5f e7  |or".;flags%..._.|
000036d0  28 66 6c 61 67 73 25 80  31 29 3d 31 8c f1 22 59  |(flags%.1)=1.."Y|
000036e0  6f 75 20 6d 75 73 74 20  69 6e 73 74 61 6c 6c 20  |ou must install |
000036f0  74 68 65 20 46 6c 6f 61  74 69 6e 67 20 50 6f 69  |the Floating Poi|
00003700  6e 74 20 45 6d 75 6c 61  74 6f 72 20 62 65 66 6f  |nt Emulator befo|
00003710  72 65 20 72 75 6e 6e 69  6e 67 20 74 68 69 73 20  |re running this |
00003720  70 72 6f 67 72 61 6d 22  3a e0 0d 02 17 06 3d b9  |program":.....=.|
00003730  0d 02 18 05 3a 0d 02 19  2e f4 20 4c 61 73 74 20  |....:..... Last |
00003740  6c 69 6e 65 20 6f 66 20  3c 42 61 73 69 63 56 5f  |line of <BasicV_|
00003750  41 73 73 65 6d 62 6c 65  72 24 4c 69 62 3e 2e 46  |Assembler$Lib>.F|
00003760  6c 6f 70 0d ff                                    |lop..|
00003765