.#$#0 (+-*/)
IF # = # SKIP #.
#F50$
$
IF # NE # SKIP #.
#F51$
$
SKIP #.
#F4
$
DLD; PTR#.
DAC#26$
IF #22 NE #10 SKIP 1$
#F9$
IF #10 NE 0 SKIP 2
CLEARDAC.
#F9
IF #10 NE 1 SKIP 2
NL0001;MQL#F1
#F9
IF #10 NE 2 SKIP 2
NL0002;MQL#F1
#F9
IF #10 NE 3 SKIP 2
NL0003;MQL#F1
#F9
IF #10 NE 7 SKIP 2
DLD; PTR1
#F9
DLD;PTR#10#F1
$
DAD; PTR#
IF #10 = 7 SKIP 1
IF #10 NE 1 SKIP 2
DPIC#F1
#F9
IF #10 = 0 SKIP 2
IF #10 NE 2 SKIP 2
DPIC;DPIC#F1
#F9
DAD;PTR#10#F1
$
PTR # = # + #.
/                       PTR #10 = #20 + #30.
IF #30 = 1 SKIP 1
IF #30 NE 7 SKIP 3
DLD; PTR#20
DPIC#F1
SKIP 14
IF #30 NE 0 SKIP 5
IF #20 NE 0 SKIP 2
DPDZ;PTR#10$
#F9
DLD; PTR#20
SKIP 8
IF #20 NE 0 SKIP 2
DLD; PTR#30
SKIP 5
DLD; PTR#30
IF #20 NE #30 SKIP 2
SHL;1#F1
SKIP 1
DAD; PTR#20
DST;PTR#10#F1
DAC = #10$
$
PTR # = # - #.
IF #10 = AC SKIP 1$
/                       PTR #10 = #20 - #30.
IF #30 NE 7 SKIP 1
1#36
IF #30 NE 3 SKIP 2
NL7775;MQL;CMA#F1
SKIP 8
IF #30 NE 2 SKIP 2
NL7776;MQL;CMA#F1
SKIP 5
IF #30 NE 1 SKIP 2
NL7777;MQL;CMA#F1
SKIP 2
DLD; PTR#30
DPCM#F1
DAD; PTR#20
IF #10 = AC SKIP 2
DST; PTR#10#F1
DAC = #10$
$
CLEAR#.
IF #12 = 0 SKIP 1$
CAM$
$
BOMB#.
STORE AC = 0$
IF #12 = 0 SKIP 1
STORE DAC = *$
$
DPDZ;PTR#.
DAC = 0$
DPDZ;PTR#10#F1$
$
DAC = #.
STORE DAC = #10$
STORE AC = #10$
$
CAM.
DAC = 0$
CAM#F1$
$
COMPARE PTR # #
IF #20 NE 0 SKIP 2
DLD; PTR#10
#F9
PTR AC = #10 - #20
$
TO # IF PTR # GE #
/                       TO #10 IF PTR #20 GE #30.
COMPARE PTR #20 #30
DPGE #10$
$
TO # IF PTR # LT #.
/                       TO #10 IF PTR #20 LT #30.
COMPARE PTR #30 #20$
DPGE #10$
$
DPGE #.
SET TC = TC+1
TC#46$
STORE TST#41 = M,#10$
TST#41,JMS DPGE;LOC#10#F1$
AC0$
$
TO # IF PTR # NE #
/                       TO #10 IF PTR #20 NE #30.
COMPARE PTR #20 #30
JMS DPNE#F1
LOC#10#F1
DAC = 0$
$
TO # IF PTR # = #
/                       TO #10 IF PTR #20 = #30.
COMPARE PTR #20 #30
JMS DPEQ#F1
LOC#10#F1
DAC = 0$
$
ADDV#
IF #10 NE 0 SKIP 1
#F9
IF #10 NE 1 SKIP 2
IAC#F1
#F9
TAD VAL#10#F1
$
LOADV#
IF #10 NE 0 SKIP 2$
CLEARAC$
#F9$
IF #10 NE 1 SKIP 2
NL0001#F1
#F9
IF #10 NE 2 SKIP 2
NL0002#F1
#F9
IF #10 NE 3 SKIP 2
NL0003#F1
#F9
IF #10 NE 4 SKIP 2
NL0004#F1
#F9
IF #10 NE 6 SKIP 2
NL0006#F1
#F9
CLEARAC$
TAD VAL#10#F1
$
VAL # = # + #
/                       VAL #10 = #20 + #30.
IF #30 NE 0 SKIP 2
LOADV#20
SKIP 2
LOADV#30
ADDV#20
DCA VAL#10#F1
BOMBDAC$
$
VAL # = # - #
IF #10 = AC SKIP 1$
/                       VAL #10 = #20 - #30.
IF #30 NE 0 SKIP 2$
LOADV#20$
SKIP 12$
IF #30 NE 1 SKIP 2
NL7777#F1
SKIP 8
IF #30 NE 2 SKIP 2
NL7776#F1
SKIP 5
IF #30 NE 3 SKIP 2
NL7775#F1
SKIP 2
LOADV#30
CIA#F1
ADDV#20
IF #10 = AC SKIP 2$
DCA VAL#10#F1
BOMBDAC$
$
TO # IF VAL # = #
/                       TO #10 IF VAL #20 = #30.
COMPARE VAL #20 #30
SPEQ #10$
$
TO # IF VAL # NE #
/                       TO #10 IF VAL #20 NE #30.
COMPARE VAL #20 #30
SPNE #10$
$
COMPARE VAL # #
IF #20 NE 0 SKIP 2
LOADV#10
#F9
VAL AC = #10 - #20
$
FLG # = #
/                       FLG #10 = #20.
LOADF#20
DCA FLG#10#F1
BOMBDAC$
$
LOADF#
IF #10 NE 0 SKIP 2$
CLEARAC$
#F9$
IF #10 NE 1 SKIP 2
NL0001#F1
#F9
IF #10 NE 2 SKIP 2
NL0002#F1
#F9
IF #10 NE 3 SKIP 2
NL0003#F1
#F9
CLEARAC$
TAD FLG#10#F1
$
TO # IF FLG # = #
/                       TO #10 IF FLG #20 = #30.
COMPARE FLG #20 #30
SPEQ #10$
$
TO # IF FLG # NE #
/                       TO #10 IF FLG #20 NE #30.
COMPARE FLG #20 #30
SPNE #10$
$
COMPARE FLG # #
IF #20 NE 0 SKIP 2$
LOADF#10$
#F9
IF #20 NE 1 SKIP 2
NL7777#F1
SKIP 8
IF #20 NE 2 SKIP 2
NL7776#F1
SKIP 5
IF #20 NE 3 SKIP 2
NL7775#F1
SKIP 2
TAD FLG#20#F1$
CIA#F1$
ADDF#10
$
ADDF#
IF #10 = 0 SKIP 2
IF #10 = 1 SKIP 2
TAD FLG#10#F1
#F9
IAC#F1
$
SPNE #.
SET TC = TC+1
TC#46$
STORE TST#41 = Z,#10$
TST#41,JMS SPNE;LOC#10#F1$
BOMBDAC$
$
SPEQ #.
SET TC = TC+1$
TC#46$
STORE TST#41 = N,#10$
TST#41,JMS SPEQ;LOC#10#F1$
BOMBDAC$
$
READ NEXT #
/                       READ NEXT #10.
LOADV#10
JMS I [READ#F1
DCA FLG#10#F1
AC0$
$
WRITE NEXT #
/                       WRITE NEXT #10.
LOADV#10
JMS I [WRITE#F1
DCA FLG#10#F1
AC0$
$
AC0.
STORE AC = 0$
STORE DAC = *$
$
TO #.
/                       TO #10.
CLEARAC$
TC#46$
SET TC = TC+1$
STORE TST#41 = T,#10$
TST#41,JMS TO;LOC#10#F1$
AC0$
$
LOC #.
LOC#10,                 /LOC #10.#F1$
STORE DAC = *$
$
MESSAGE # TO #.
/                       MESSAGE #10 TO #20.
LOADV#20
JMS I [MESS#F1
TEXT /#10/#F1
*.-1#F1
DCA FLG#20#F1
DAC = 0$
$
TO # BY #.
/                       TO #10 BY #20.
JMS I [TOBY#F1
LOC#10#F1
PTR#20#F1$
AC0$
$
PTR # = VAL #.
/                       PTR #10 = VAL #20.
LOADV#20
DAC = #10$
IFC #20 GT 9 SKIP 4$
IFC #20 LT 0 SKIP 3$
MQL#F1
STORE AC = 0$
SKIP 1
ASR; 12#F1
DST; PTR#10#F1
$
IFC # GT # SKIP #.
IFV #18 GT #28 SKIP #30$
$
IFC # LT # SKIP #.
IFV #18 LT #28 SKIP #30$
$
IFV # GT # SKIP #.
#F6+$
$
IFV # LT # SKIP #
#F6-$
$
STOP.
/                       STOP.
CLEARAC$
JMP I [ENDIT#F1
AC0$
$
RETURN BY #.
/                       RETURN BY #10.
DLD;PTR#10-1#F1$
JMP JAC#F1
AC0$
$
REWIND #.
/                       REWIND #10.
CLEARAC$
TAD VAL#10#F1
JMS I [REWIND#F1
DCA FLG#10#F1
AC0$
$
PTR # = # / #.
/                       PTR #10 = #20 / #30.
IF #30 = 1 SKIP 3
IF #30 NE 0 SKIP 1
#FE
IF #30 NE 7 SKIP 3
IF #10 = #20 SKIP 1
PTR #10 = #20 + 0
#F9
JMS I [DPDIV#F1
PTR#30#F1
PTR#20#F1
PTR#10#F1
AC0$
$
PTR # = # * #.
/                       PTR #10 = #20 * #30.
IF #30 = 1 SKIP 4
IF #30 NE 0 SKIP 2
DPDZ; PTR#10$
#F9
IF #30 NE 7 SKIP 3
IF #10 = #20 SKIP 1
PTR #10 = #20 + 0
#F9
JMS I [DPMUL#F1
PTR#30#F1
PTR#20#F1
PTR#10#F1
AC0$
$
VAL # = PTR #.
/                       VAL #10 = PTR #20.
DLD; PTR#20$
CLA SWP#F1$
DCA VAL#10#F1
DAC = 0$
$
GET # = #.
/                       GET #10 = #20.
JMS I GTP#F1$
PTR#20#F1
FLG#10#F1
DAC = 0$
$
STO # = #.
/                       STO #10 = #20.
JMS I STP#F1$
PTR#10#F1$
FLG#20#F1$
DAC = 0$
$
VAL # = CHAR.
/                       VAL #10 = CHAR.
CLEARAC$
JMS I GCP#F1$
DCA VAL#10#F1
BOMBDAC$
$
CHAR = VAL #.
/                       CHAR = VAL #10.
CLEARAC$
TAD VAL#10#F1
JMS I PCP#F1$
DCA FLG#10#F1
BOMBDAC$
$
END PROGRAM.
/                       END PROGRAM.
OCTAL#F1$
STORE C = 0$
TC#F7$
ASSEMBLE C$
#F8
#F0
$
ASSEMBLE #.
SET #10 = #10+1
TST#14#26$
EXPAND #14,#21$
$
EXPAND #,#,#.
TMP#10=TST#10+1&7600#F1$
IF #20 = T SKIP 2
IFZERO LOC#30&7600-TMP#10 <*TST#10;S#20A CLA;JMP LOC#30>#F1$
#F9$
TO#10=TST#10&7600#F1$
IFZERO TMP#10-TO#10 <*TST#10;JMP I .+1>#F1$
IFZERO LOC#30&7600-TO#10 <*TST#10;JMP LOC#30>#F1$
$
SET # = #.
STORE #10 = #24$
$
STORE # = #.
#F3$
$
COPY TILL #.
#F2$
$$
STORE TC = 0.
DAC = 0.
y