setbaud.:
call c.ent
hl=0177762+sp->sp
hl=&0177762+de
sp<=hl
hl=base.
hl+1+1+1
sp<=hl
call in.
af<=sp
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177762+de
hl=a^hl
a=l|0200->l=h|0->h
sp<=hl
hl=base.
hl+1+1+1
sp<=hl
call out.
af<=sp<=sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.1: / 16
hl=&0177770+de
a=*hl-010=*(hl+1)-^0
jp .3
hl=&0177770+de
hl=a^hl
hl+hl
bc=&abaud.
hl+bc
sp<=hl
hl=&baud.
bc<=sp
a=*bc::*hl jnz .2=*(bc+1)::*(hl+1)
.2:
jnz .5
hl=&0177766+de
sp<=hl
hl=&0177764+de
sp<=hl
hl=&0177770+de
hl=a^hl
hl+hl
bc=&dbaud.
hl+bc
bc<=sp
a=*hl->*bc=*(hl+1)->*(bc+1)
bc-1
hl<=sp
a=*bc->*hl=*(bc+1)->*(hl+1)
.3: /23
hl=&0177766+de
a=*hl&0377->*hl=*(hl+1)&0->*hl
hl=&0177764+de
sp<=hl
hl=&0177764+de
bc=^hl=>sp
hl=&010=>sp
call c.irsh
hl<=sp
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177766+de
bc=^hl=>sp
hl=base.=>sp
call out.
af<=sp<=sp
hl=&0177764+de
bc=^hl=>sp
hl=base.
hl+1
sp<=hl
call out.
af<=sp<=sp
hl=&0177762+de
bc=^hl=>sp
hl=base.
hl+1+1+1
sp<=hl
call out.
af<=sp<=sp
jmp c.ret
.5: /16
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .1
ckbaud.:
call c.ent
hl=0177760+sp->sp
hl=&0177760+de
sp<=hl
hl=base.
hl+1+1+1
sp<=hl
call in.
af<=sp
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
.31: / 42
hl=&0177766+de
a=*hl-010=*(hl+1)-^0
jp .51
hl=&0177766+de
hl=a^hl
hl+hl
bc=&abaud.
hl+bc
sp<=hl
hl=&baud.
bc<=sp
a=*bc::*hl jnz .4=*(bc+1)::*(hl+1)
.4:
jnz .71
hl=&0177764+de
sp<=hl
hl=&0177762+de
sp<=hl
hl=&0177766+de
hl=a^hl
hl+hl
bc=&dbaud.
hl+bc
bc<=sp
a=*hl->*bc=*(hl+1)->*(bc+1)
bc-1
hl<=sp
a=*bc->*hl=*(bc+1)->*(hl+1)
.51: /49
hl=&0177764+de
a=*hl&0377->*hl=*(hl+1)&0->*hl
hl=&0177762+de
sp<=hl
hl=&0177762+de
bc=^hl=>sp
hl=&010=>sp
call c.irsh
hl<=sp
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177760+de
hl=a^hl
a=l|0200->l=h|0->h
sp<=hl
hl=base.
hl+1+1+1
sp<=hl
call out.
af<=sp<=sp
hl=base.=>sp
call in.
af<=sp
hl=&0177764+de
a=c::*hl jnz .6=b::*(hl+1)
.6:
jnz .72
hl=base.
hl+1
sp<=hl
call in.
af<=sp
hl=&0177762+de
a=c::*hl jnz .01=b::*(hl+1)
.01:
jz .52
jmp .72
.71: /42
hl=&0177766+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .31
.72: /54
hl=&0177770+de
a=0->*hl=0401->*(hl+1)
.13: / 57
hl=&0177760+de
bc=^hl=>sp
hl=base.
hl+1+1+1
sp<=hl
call out.
af<=sp<=sp
hl=&0177770+de
hl=a^hl
bc=hl
jmp c.ret
.52: /56
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
jmp .13
.16:
040,0142,0141,0165,0144,040,0162,0141
0164,0145,041,012,012,0
.75:
0164,0150,0145,040,0164,0145,0163,0164
040,0142,0157,0141,0162,0144,040,0167
0157,0156,047,0164,040,0163,0145,0164
040,0164,0157,040,0
.35:
040,0142,0141,0165,0144,040,0162,0141
0164,0145,041,012,012,0
.15:
0164,0150,0145,040,0156,0157,0156,055
0164,0145,0163,0164,040,0142,0157,0141
0162,0144,040,0167,0157,0156,047,0164
040,0163,0145,0164,040,0164,0157,040
0
.53:
040,052,052,052,052,052,052,012
012,0
.33:
012,052,052,052,052,052,052,0164
0145,0163,0164,0151,0156,0147,040,0164
0150,0145,040,0142,0141,0165,0144,040
0162,0141,0164,0145,0163,040,0157,0156
040,0160,0157,0162,0164,040,043,0
albaud.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&albaud.
hl->error.
hl=&.33
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.53
sp<=hl
call puts.
af<=sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.73: / 71
hl=&0177770+de
a=*hl-010=*(hl+1)-^0
jp .14
hl=&0177770+de
hl=a^hl
hl+hl
bc=&abaud.
hl+bc
hl=a^hl
hl->baud.
a=0140->base.+a-^a->base.[01]
call setbaud.
call ckbaud.
a=0377-c=0-^b
jp .74
hl=&.15
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.35
sp<=hl
call puts.
af<=sp
call terflg.
jmp .74
.14: /99
jmp c.ret
.74: /87
a=0150->base.+a-^a->base.[01]
call setbaud.
call ckbaud.
a=0377-c=0-^b
jp .55
hl=&.75
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.16
sp<=hl
call puts.
af<=sp
call terflg.
.55: /98
call comm.
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .73
.711:
040,0142,0141,0165,0144,040,0162,0141
0164,0145,041,012,012,0
.511:
0160,0141,0163,0163,0145,0163,040,0162
0145,0143,0151,0145,0166,0145,040,0164
0145,0163,0164,040,0100,040,0
.111:
040,0142,0141,0165,0144,040,0162,0141
0164,0145,041,012,012,0
.701:
040,0100,040,0
.501:
0167,0157,0162,0144,040,061,060,061
060,060,061,060,061,040,0167,0141
0163,040,0162,0145,0143,0151,0145,0166
0145,0144,040,0141,0163,040,0167,0157
0162,0144,040,0
.77:
040,0142,0141,0165,0144,040,0162,0141
0164,0145,041,012,012,0
.57:
0160,0141,0163,0163,0145,0163,040,0164
0162,0141,0156,0163,0155,0151,0164,040
0164,0145,0163,0164,040,0100,040,0
.37:
040,0142,0141,0165,0144,040,0162,0141
0164,0145,040,0157,0156,040,0164,0150
0145,040,0156,0157,0156,055,0164,0145
0163,0164,040,0142,0157,0141,0162,0144
041,012,012,0
.17:
040,0100,040,0
.76:
0167,0157,0162,0144,040,061,060,061
060,060,061,060,061,040,0167,0141
0163,040,0162,0145,0143,0151,0145,0166
0145,0144,040,0141,0163,040,0167,0157
0162,0144,040,0
comm.:
call c.ent
af=>sp=>sp=>sp=>sp
a=0150->base.+a-^a->base.[01]
hl=&comm.
hl->error.
hl=&0245=>sp
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
hl=&0177770+de
sp<=hl
call rec.
hl<=sp
a=c->*hl=b->*(hl+1)
hl-1
a=0377-*hl=0-^*(hl+1)
jp .36
call terflg.
.36: /118
hl=&0177770+de
a=*hl::0245 jnz .21=*(hl+1)::0
.21:
jz .56
hl=&.76
sp<=hl
call puts.
af<=sp
hl=&0177770+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.17
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.37
sp<=hl
call puts.
af<=sp
call terflg.
.56: /128
hl=&.57
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.77
sp<=hl
call puts.
af<=sp
hl=&0245=>sp
call tran.
af<=sp
a=0150->base.+a-^a->base.[01]
hl=&0177770+de
sp<=hl
call rec.
hl<=sp
a=c->*hl=b->*(hl+1)
hl-1
a=0377-*hl=0-^*(hl+1)
jp .101
call terflg.
.101: /141
hl=&0177770+de
a=*hl::0245 jnz .41=*(hl+1)::0
.41:
jz .301
hl=&.501
sp<=hl
call puts.
af<=sp
hl=&0177770+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.701
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.111
sp<=hl
call puts.
af<=sp
call terflg.
jmp .311
.301: /151
hl=&.511
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.711
sp<=hl
call puts.
af<=sp
.311: / 156
jmp c.ret
setparm.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&wrdsze.
a=05-*hl=0-^*(hl+1)
jp .61
bc=(hl=wrdsze.)
jmp .02
.61:
bc=05
.02:
hl=bc
hl->wrdsze.
hl=&wrdsze.
a=010-*hl=0-^*(hl+1)
jp .22
bc=010
jmp .42
.22:
bc=(hl=wrdsze.)
.42:
hl=bc
hl->wrdsze.
hl=&0177770+de
sp<=hl
hl=wrdsze.
hl+(bc=&0177773)
bc<=sp
a=l->*bc=h->*(bc+1)
a=stopsze.::0154
jnz .121
hl=&0177770+de
a=*hl|04->*hl=*(hl+1)|0->*hl
.121: /174
a=parity.::0171
jnz .321
hl=&0177770+de
a=*hl|010->*hl=*(hl+1)|0->*hl
a=eoparty.::0145
jnz .321
hl=&0177770+de
a=*hl|020->*hl=*(hl+1)|0->*hl
.321: /180
hl=&0177770+de
bc=^hl=>sp
hl=base.
hl+1+1+1
sp<=hl
call out.
af<=sp<=sp
jmp c.ret
ckparm.:
call c.ent
hl=0177766+sp->sp
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
hl=&0177770+de
sp<=hl
hl=wrdsze.
hl+(bc=&0177773)
bc<=sp
a=l->*bc=h->*(bc+1)
a=stopsze.::0154
jnz .721
hl=&0177770+de
a=*hl|04->*hl=*(hl+1)|0->*hl
.721: /192
a=parity.::0171
jnz .131
hl=&0177770+de
a=*hl|010->*hl=*(hl+1)|0->*hl
a=eoparty.::0145
jnz .131
hl=&0177770+de
a=*hl|020->*hl=*(hl+1)|0->*hl
.131: /198
hl=base.
hl+1+1+1
sp<=hl
call in.
af<=sp
hl=&0177770+de
a=c::*hl jnz .62=b::*(hl+1)
.62:
jz .531
hl=&0177766+de
a=0->*hl=0401->*(hl+1)
jmp .731
.531: /200
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
.731: / 201
hl=&0177766+de
hl=a^hl
bc=hl
jmp c.ret
setmod.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
a=dtr.::0171
jnz .141
hl=&0177770+de
a=*hl|0401->*hl=*(hl+1)|0->*hl
.141: /214
a=rts.::0171
jnz .341
hl=&0177770+de
a=*hl|02->*hl=*(hl+1)|0->*hl
.341: /216
hl=&0177770+de
bc=^hl=>sp
hl=base.
hl+1+1+1+1
sp<=hl
call out.
af<=sp<=sp
jmp c.ret
ckmod.:
call c.ent
hl=0177766+sp->sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
a=dtr.::0171
jnz .541
hl=&0177770+de
a=*hl|0401->*hl=*(hl+1)|0->*hl
.541: /227
a=rts.::0171
jnz .741
hl=&0177770+de
a=*hl|02->*hl=*(hl+1)|0->*hl
.741: /229
hl=base.
hl+1+1+1+1
sp<=hl
call in.
af<=sp
hl=&0177770+de
a=c::*hl jnz .03=b::*(hl+1)
.03:
jz .151
hl=&0177766+de
a=0->*hl=0401->*(hl+1)
jmp .351
.151: /231
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
.351: / 232
hl=&0177766+de
hl=a^hl
bc=hl
jmp c.ret
setint.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
a=drint.::0171
jnz .551
hl=&0177770+de
a=*hl|0401->*hl=*(hl+1)|0->*hl
.551: /244
a=threint.::0171
jnz .751
hl=&0177770+de
a=*hl|02->*hl=*(hl+1)|0->*hl
.751: /246
a=rlint.::0171
jnz .161
hl=&0177770+de
a=*hl|04->*hl=*(hl+1)|0->*hl
.161: /248
a=modint.::0171
jnz .361
hl=&0177770+de
a=*hl|010->*hl=*(hl+1)|0->*hl
.361: /250
hl=&0177770+de
bc=^hl=>sp
hl=base.
hl+1
sp<=hl
call out.
af<=sp<=sp
jmp c.ret
ckint.:
call c.ent
hl=0177766+sp->sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
a=drint.::0171
jnz .561
hl=&0177770+de
a=*hl|0401->*hl=*(hl+1)|0->*hl
.561: /261
a=threint.::0171
jnz .761
hl=&0177770+de
a=*hl|02->*hl=*(hl+1)|0->*hl
.761: /263
a=rlint.::0171
jnz .171
hl=&0177770+de
a=*hl|04->*hl=*(hl+1)|0->*hl
.171: /265
a=modint.::0171
jnz .371
hl=&0177770+de
a=*hl|010->*hl=*(hl+1)|0->*hl
.371: /267
hl=base.
hl+1
sp<=hl
call in.
af<=sp
hl=&0177770+de
a=c::*hl jnz .23=b::*(hl+1)
.23:
jz .571
hl=&0177766+de
a=0->*hl=0401->*(hl+1)
jmp .771
.571: /269
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
.771: / 270
hl=&0177766+de
hl=a^hl
bc=hl
jmp c.ret
.122:
012,0167,0151,0154,0154,040,0156,0157
0164,040,0145,0155,0160,0164,0171,040
041,012,0
.712:
012,0164,0150,0145,040,0164,0162,0141
0156,0163,0155,0151,0164,040,0162,0145
0147,0151,0163,0164,0145,0162,040,0151
0156,040,0160,0157,0162,0164,040,043
0
tran.:
call c.ent
hl=0177766+sp->sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.102: / 282
hl=&0177770+de
a=*hl-020=*(hl+1)-^047
jp .302
hl=&0177766+de
sp<=hl
hl=base.
hl+(bc=&05)
sp<=hl
call in.
af<=sp
a=c&040->c=b&0->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177766+de
a=*hl::040 jnz .43=*(hl+1)::0
.43:
jnz .502
.302: /287
hl=&0177766+de
a=*hl::040 jnz .63=*(hl+1)::0
.63:
jnz .312
hl=&04+de
bc=^hl=>sp
hl=base.=>sp
call out.
af<=sp<=sp
jmp .512
.502: /282
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .102
.312: /291
hl=&.712
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
call torstd.
hl=&.122
sp<=hl
call puts.
af<=sp
call fatal.
.512: / 298
jmp c.ret
.372:
040,040,0142,0141,0165,0144,040,0162
0141,0164,0145,040,041,012,0
.172:
012,0100,040,0
.762:
012,0146,0162,0141,0155,0151,0156,0147
040,0145,0162,0162,0157,0162,040,0157
0156,040,0160,0157,0162,0164,040,043
0
.362:
040,040,0142,0141,0165,0144,040,0162
0141,0164,0145,040,041,012,0
.162:
012,0100,040,0
.752:
012,0160,0141,0162,0151,0164,0171,040
0145,0162,0162,0157,0162,040,0157,0156
040,0160,0157,0162,0164,040,043,0
.352:
040,040,0142,0141,0165,0144,040,0162
0141,0164,0145,041,012,0
.152:
012,0100,040,0
.742:
012,0157,0166,0145,0162,0162,0165,0156
040,0145,0162,0162,0157,0162,040,0157
0156,040,0160,0157,0162,0164,040,043
0
.342:
0150,0141,0166,0145,040,0142,0145,0145
0156,040,0157,0156,040,0160,0157,0162
0164,040,043,0
.142:
012,0144,0141,0164,0141,040,0167,0141
0163,040,0156,0157,0164,040,0162,0145
0141,0144,0171,040,0167,0150,0145,0156
040,0151,0164,040,0163,0150,0157,0165
0154,0144,040,0
rec.:
call c.ent
hl=0177766+sp->sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.322: / 311
hl=&0177770+de
a=*hl-020=*(hl+1)-^047
jp .522
hl=&0177766+de
sp<=hl
hl=base.
hl+(bc=&05)
sp<=hl
call in.
af<=sp
a=c&017->c=b&0->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177766+de
hl=a^hl
a=l&0401->l=h&0->h
a=l|h
jz .722
.522: /316
hl=&0177766+de
a=*hl::0401 jnz .04=*(hl+1)::0
.04:
jz .532
hl=&0177766+de
a=*hl|*(hl+1)
jnz .732
hl=&.142
sp<=hl
call puts.
af<=sp
hl=&.342
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
call torstd.
hl=&012=>sp
call putc.
af<=sp
jmp .732
.722: /311
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .322
.532: /361
hl=base.=>sp
call in.
af<=sp
jmp c.ret
.732: /329
hl=&0177766+de
hl=a^hl
a=l&02->l=h&0->h
a=l|h
jz .542
hl=&.742
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
call torstd.
hl=&.152
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.352
sp<=hl
call puts.
af<=sp
.542: /339
hl=&0177766+de
hl=a^hl
a=l&04->l=h&0->h
a=l|h
jz .552
hl=&.752
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
call torstd.
hl=&.162
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.362
sp<=hl
call puts.
af<=sp
.552: /349
hl=&0177766+de
hl=a^hl
a=l&010->l=h&0->h
a=l|h
jz .562
hl=&.762
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
call torstd.
hl=&.172
sp<=hl
call puts.
af<=sp
hl=baud.=>sp
call putdec.
af<=sp
hl=&.372
sp<=hl
call puts.
af<=sp
.562: /359
bc=0400
jmp c.ret
.572:
012,0164,0150,0151,0163,040,0151,0163
040,0141,040,0146,0141,0164,0141,0154
040,0145,0162,0162,0157,0162,040,041
012,0
fatal.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
hl=&.572
sp<=hl
call puts.
af<=sp
hl=&0177770+de
hl=a^hl
call c.ihl
jmp c.ret
.303:
0164,0157,040,0145,0156,0144,040,0154
0157,0157,0160,040,0164,0171,0160,0145
040,0141,0156,0171,040,0153,0145,0171
056,012,0
.772:
0144,0157,040,0171,0157,0165,040,0167
0141,0156,0164,040,0164,0157,040,0154
0157,0157,0160,040,0151,0156,040,0164
0150,0145,040,0164,0145,0163,0164,040
0164,0150,0141,0164,040,0146,0141,0151
0154,0145,0144,040,050,0171,057,0156
054,074,0143,0162,056,076,051,040
077,040,012,0
nonfata.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
hl=&.772
sp<=hl
call puts.
af<=sp
hl=&07=>sp
call putc.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call getch.
a=c::0171 jnz .24=b::0
.24:
jnz .103
a=0401->erflg.+a-^a->erflg.[01]
hl=&.303
sp<=hl
call puts.
af<=sp
.503: / 388
hl=&013=>sp
call cpm.
af<=sp
a=c|b
jnz .703
hl=error.
call c.ihl
jmp .503
.103: /393
hl=&0177770+de
hl=a^hl
call c.ihl
jmp c.ret
.703: /389
hl=&01=>sp
call cpm.
af<=sp
jmp .103
putc.:
call c.ent
hl=&04+de
a=*hl::012 jnz .44=*(hl+1)::0
.44:
jnz .113
hl=&015=>sp
call putc.
af<=sp
.113: /401
hl=&04+de
bc=^hl=>sp
hl=&02=>sp
call cpm.
af<=sp<=sp
jmp c.ret
puts.:
call c.ent
af=>sp=>sp=>sp=>sp
.313: / 409
hl=&04+de
hl=a^hl
a=*hl|a
jz .513
hl=&04+de
hl=a^hl
a=*hl->c+a-^a->b
sp<=bc
call putc.
af<=sp
hl=&04+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .313
.513: /410
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.323: / 411
hl=&0177770+de
a=*hl-020=*(hl+1)-^047
jp .523
.723: / 411
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .323
.523: /412
jmp c.ret
putf.:
call c.ent
hl=&03=>sp
hl=&02=>sp
hl=&04+de
hl+(bc=8);a=4
.64:
b=*(hl-1);c=*(hl-1);bc=>sp
a-1 jnz .64
hl=&buff.
sp<=hl
call dtof.
hl=016+sp->sp
sp<=bc
hl=&buff.
sp<=hl
call putb.
af<=sp<=sp
jmp c.ret
putdec.:
call c.ent
hl=&012=>sp
hl=&04+de
bc=^hl=>sp
hl=&buff.
sp<=hl
call itob.
af<=sp<=sp<=sp
sp<=bc
hl=&buff.
sp<=hl
call putb.
af<=sp<=sp
jmp c.ret
putbin.:
call c.ent
hl=0177762+sp->sp
hl=&0177770+de
sp<=hl
hl=&02=>sp
hl=&04+de
bc=^hl=>sp
hl=&buff.
sp<=hl
call itob.
af<=sp<=sp<=sp
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177770+de
a=*hl-010=*(hl+1)-^0
jp .333
hl=&0177766+de
sp<=hl
hl=&010
sp<=hl
hl=&0177770+de
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177764+de
sp<=hl
hl=&0177770+de
bc<=sp
a=*hl->*bc=*(hl+1)->*(bc+1)
.533: / 436
hl=&0177764+de
a-a-*hl=0-^*(hl+1)
jp .733
hl=&0177764+de
hl=a^hl
hl+(bc=&0177777)
sp<=hl
hl=&0177766+de
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
bc=&buff.
hl+bc
sp<=hl
hl=&0177764+de
hl=a^hl
bc=&buff.[0177777]
hl+bc
bc<=sp
a=*hl->*bc
hl=&0177764+de
a=*hl-0401->*hl=*(hl+1)-^0->*hl
jmp .533
.333: /442
hl=&010=>sp
hl=&buff.
sp<=hl
call putb.
af<=sp<=sp
jmp c.ret
.733: /437
hl=&0177762+de
a=0->*hl+a-^a->*(hl+1)
.543: / 438
hl=&0177762+de
sp<=hl
hl=&0177766+de
bc<=sp
a=*bc-*hl=*(bc+1)-^*(hl+1)
jp .333
hl=&buff.
sp<=hl
hl=&0177762+de
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
*hl=060
hl=&0177762+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .543
putb.:
call c.ent
af=>sp=>sp=>sp=>sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.553: / 451
hl=&0177770+de
sp<=hl
hl=&06+de
bc<=sp
a=*bc-*hl=*(bc+1)-^*(hl+1)
jp .753
hl=&04+de
bc=^hl=>sp
hl=&04+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
hl<=sp
a=*hl->c+a-^a->b
sp<=bc
call putc.
af<=sp
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .553
.753: /452
jmp c.ret
.373:
040,0157,0156,040,0164,0150,0145,040
0164,0145,0163,0164,040,0142,0144,056
0
.763:
040,0157,0156,040,0164,0150,0145,040
0156,0157,0156,055,0164,0145,0163,0164
040,0142,0144,056,0
torstd.:
call c.ent
a=base.::0140 jnz .05=base.[01]::0
.05:
jnz .563
hl=&.763
sp<=hl
call puts.
af<=sp
jmp .173
.563: /460
hl=&.373
sp<=hl
call puts.
af<=sp
.173: / 461
jmp c.ret
.573:
012,012,012,012,012,012,012,012
012,012,012,012,012,012,012,012
012,012,012,012,012,012,012,012
012,0
formfee.:
call c.ent
hl=&.573
sp<=hl
call puts.
af<=sp
jmp c.ret
terflg.:
call c.ent
hl=&erflg.
a=*hl|*(hl+1)
jnz .773
call nonfata.
.773: /475
jmp c.ret
.334:
0160,0141,0163,0163,0145,0163,040,0164
0162,0141,0156,0163,0155,0151,0164,040
0167,0141,0154,0153,055,0164,0145,0163
0164,040,041,012,0
.304:
040,052,052,052,052,052,052,012
012,0
.104:
012,052,052,052,052,052,052,040
0164,0162,0141,0156,0163,0155,0151,0164
040,0167,0141,0154,0153,055,0164,0145
0163,0164,040,0157,0156,040,0160,0157
0162,0164,040,043,0
public waler.
public twalk.
public formfee.
public itob.
public dtof.
public putb.
public putf.
public cpm.
public getch.
public nonfata.
public putc.
public torstd.
public fatal.
public ckint.
public setint.
public ckmod.
public setmod.
public ckparm.
public setparm.
public putbin.
public rec.
public tran.
public terflg.
public comm.
public putdec.
public puts.
public albaud.
public ckbaud.
public out.
public in.
public setbaud.
public erflg.
public error.
public dbaud.
public abaud.
public baud.
public buff.
public modint.
public rlint.
public drint.
public threint.
public rts.
public dtr.
public eoparty.
public parity.
public stopsze.
public wrdsze.
public functs.
public group.
public base.
public stdout.
twalk.:
call c.ent
hl=0177764+sp->sp
hl=&twalk.
hl->error.
hl=&.104
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.304
sp<=hl
call puts.
af<=sp
hl=&0140=>sp
call in.
af<=sp
hl=&0177764+de
sp<=hl
hl=&0177770+de
a=0401->*hl+a-^a->*(hl+1)
hl-1
bc<=sp
a=*hl->*bc=*(hl+1)->*(bc+1)
.504: / 487
hl=&0177764+de
a=*hl-012=*(hl+1)-^0
jp .704
a=0150->base.+a-^a->base.[01]
hl=&0177770+de
bc=^hl=>sp
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
hl=&0177766+de
sp<=hl
call rec.
hl<=sp
a=c->*hl=b->*(hl+1)
hl-1
a=0377-*hl=0-^*(hl+1)
jp .514
call terflg.
jmp .714
.704: /512
hl=&erflg.
a=*hl|*(hl+1)
jnz .134
hl=&.334
sp<=hl
call puts.
af<=sp
jmp .134
.514: /496
hl=&0177766+de
sp<=hl
hl=&0177770+de
bc<=sp
a=*bc::*hl jnz .25=*(bc+1)::*(hl+1)
.25:
jz .714
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
bc=^hl=>sp
call waler.
af<=sp<=sp
.714: /501
a=0150->base.+a-^a->base.[01]
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
a=l&0377->l=h&0->h
sp<=hl
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
hl=&0177766+de
sp<=hl
call rec.
hl<=sp
a=c->*hl=b->*(hl+1)
hl-1
a=0377-*hl=0-^*(hl+1)
jp .324
call terflg.
jmp .524
.324: /508
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
a=l&0377->l=h&0->h
sp<=hl
hl=&0177766+de
bc<=sp
a=c::*hl jnz .45=b::*(hl+1)
.45:
jz .524
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
a=l&0377->l=h&0->h
sp<=hl
call waler.
af<=sp<=sp
.524: /511
hl=&0177770+de
sp<=hl
hl=&0177770+de
hl=a^hl
hl+hl
a=l&0377->l=h&0->h
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177764+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .504
.134: /515
jmp c.ret