.:=.data
testad.:
&0
.:=.text
.33:
0160,0141,0163,0163,0145,0163,040,0164
0150,0145,040,0162,0145,0143,0151,0145
0166,0145,040,0167,0141,0154,0153,055
0164,0145,0163,0164,040,041,012,0
.3:
040,052,052,052,052,052,052,012
012,0
.1:
012,052,052,052,052,052,052,040
0162,0145,0143,0151,0145,0166,0145,040
0167,0141,0154,0153,055,0164,0145,0163
0164,040,0157,0156,040,0160,0157,0162
0164,040,043,0
rwalk.:
call c.ent
hl=0177764+sp->sp
hl=&rwalk.
hl->error.
hl=&.1
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.3
sp<=hl
call puts.
af<=sp
hl=&0150=>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)
.5: / 17
hl=&0177764+de
a=*hl-012=*(hl+1)-^0
jp .7
a=0140->base.+a-^a->base.[01]
hl=&0177770+de
bc=^hl=>sp
call tran.
af<=sp
a=0150->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 .51
call terflg.
jmp .71
.7: /42
hl=&erflg.
a=*hl|*(hl+1)
jnz .13
hl=&.33
sp<=hl
call puts.
af<=sp
jmp .13
.51: /26
hl=&0177766+de
sp<=hl
hl=&0177770+de
bc<=sp
a=*bc::*hl jnz .2=*(bc+1)::*(hl+1)
.2:
jz .71
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
bc=^hl=>sp
call waler.
af<=sp<=sp
.71: /31
a=0140->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=0150->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 .32
call terflg.
jmp .52
.32: /38
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 .4=b::*(hl+1)
.4:
jz .52
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
.52: /41
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 .5
.13: /45
jmp c.ret
.14:
040,0143,0141,0155,0145,040,0164,0150
0162,0157,0165,0147,0150,040,0141,0163
040,0
.73:
040,0146,0141,0151,0154,0145,0144,040
0164,0150,0145,040,0167,0141,0154,0153
055,0164,0145,0163,0164,040,041,012
0167,0157,0162,0144,040,0
.53:
0160,0157,0162,0164,040,043,0
waler.:
call c.ent
hl=&.53
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.73
sp<=hl
call puts.
af<=sp
hl=&04+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.14
sp<=hl
call puts.
af<=sp
hl=&06+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call terflg.
jmp c.ret
.17:
0160,0141,0163,0163,0145,0163,040,0167
0157,0162,0144,040,0154,0145,0156,0147
0164,0150,040,0164,0145,0163,0164,040
041,012,012,0
.36:
040,0142,0151,0164,0163,040,041,012
012,0
.16:
0146,0141,0151,0154,0145,0144,040,0164
0157,040,0163,0145,0164,040,0167,0157
0162,0144,040,0154,0145,0156,0147,0164
0150,040,0164,0157,040,0
.54:
012,012,0
.34:
012,052,052,052,052,052,052,040
0164,0145,0163,0164,0151,0156,0147,040
0144,0151,0146,0146,0145,0162,0145,0156
0164,040,0167,0157,0162,0144,040,0154
0145,0156,0147,0164,0150,0163,040,0157
0156,040,0160,0157,0162,0164,040,043
0
bitest.:
call c.ent
hl=0177766+sp->sp
hl=&bitest.
hl->error.
hl=&.34
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.54
sp<=hl
call puts.
af<=sp
hl=&0140=>sp
call in.
af<=sp
hl=&0150=>sp
call in.
af<=sp
hl=&0177770+de
a=05->*hl+a-^a->*(hl+1)
.74: / 73
hl=&0177770+de
a=*hl-011=*(hl+1)-^0
jp .15
hl=&0177770+de
hl=a^hl
hl->wrdsze.
a=0150->base.+a-^a->base.[01]
call setparm.
hl=&0177766+de
a=0->*hl+a-^a->*(hl+1)
hl=&0177766+de
sp<=hl
call ckparm.
hl<=sp
a=c->*hl=b->*(hl+1)
a=0140->base.+a-^a->base.[01]
call setparm.
hl=&0177766+de
sp<=hl
call ckparm.
a=0377-c=0-^b
jp .21
bc=01
jmp .41
.21:
bc=0
.41:
hl<=sp
a=*hl|c->*hl=*(hl+1)|b->*hl
hl-1
a=*hl|*(hl+1)
jz .75
hl=&.16
sp<=hl
call puts.
af<=sp
hl=&0177770+de
bc=^hl=>sp
call putdec.
af<=sp
hl=&.36
sp<=hl
call puts.
af<=sp
call terflg.
jmp .35
.15: /93
hl=&erflg.
a=*hl|*(hl+1)
jnz .76
hl=&.17
sp<=hl
call puts.
af<=sp
jmp .76
.75: /91
hl=&0177770+de
bc=^hl=>sp
call walktes.
af<=sp
.35: / 73
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .74
.76: /97
jmp c.ret
.37:
&.501
&010
&.301
&07
&.101
&06
&.77
&05
&0
&.57
walktes.:
call c.ent
hl=0177762+sp->sp
hl=&04+de
hl=a^hl
bc=hl
hl=&.37 jmp c.switch
.77: /105
hl=&0177762+de
a=037->*hl+a-^a->*(hl+1)
.57: /120
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)
.701: / 122
hl=&0177764+de
a=*hl-011=*(hl+1)-^0
jp .111
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 .711
call terflg.
jmp .711
.101: /109
hl=&0177762+de
a=077->*hl+a-^a->*(hl+1)
jmp .57
.301: /113
hl=&0177762+de
a=0177->*hl+a-^a->*(hl+1)
jmp .57
.501: /117
hl=&0177762+de
a=0377->*hl=0->*(hl+1)
jmp .57
.111: /146
jmp c.ret
.711: /131
hl=&0177770+de
hl=a^hl
sp<=hl
hl=&0177762+de
bc<=sp
a=c&*hl->c=b&*(hl+1)->b
hl=&0177766+de
a=c::*hl jnz .61=b::*(hl+1)
.61:
jz .121
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
hl=a^hl
sp<=hl
hl=&0177762+de
bc<=sp
a=c&*hl->c=b&*(hl+1)->b
sp<=bc
hl=&0177770+de
bc=^hl=>sp
call walker.
af<=sp<=sp<=sp
.121: /136
a=0150->base.+a-^a->base.[01]
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->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 .321
call terflg.
.321: /143
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
sp<=hl
hl=&0177762+de
bc<=sp
a=c&*hl->c=b&*(hl+1)->b
hl=&0177766+de
a=c::*hl jnz .02=b::*(hl+1)
.02:
jz .521
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
sp<=hl
hl=&0177762+de
bc<=sp
a=c&*hl->c=b&*(hl+1)->b
sp<=bc
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
a=l&0377->l=h&0->h
sp<=hl
call walker.
af<=sp<=sp<=sp
.521: /145
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 .701
.531:
040,0142,0165,0164,040,0143,0141,0155
0145,040,0164,0150,0162,0157,0165,0147
0150,040,0141,0163,040,0
.331:
040,0163,0150,0157,0165,0154,0144,040
0150,0141,0166,0145,040,0143,0157,0155
0145,040,0164,0150,0162,0157,0165,0147
0150,040,0141,0163,040,0
.131:
040,0146,0141,0151,0154,0145,0144,040
0164,0150,0145,040,0167,0157,0162,0144
040,0154,0145,0156,0147,0164,0150,040
0164,0145,0163,0164,040,041,012,0167
0157,0162,0144,040,0
.721:
0160,0157,0162,0164,040,043,0
walker.:
call c.ent
hl=&.721
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.131
sp<=hl
call puts.
af<=sp
hl=&04+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.331
sp<=hl
call puts.
af<=sp
hl=&06+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.531
sp<=hl
call puts.
af<=sp
hl=&010+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call terflg.
jmp c.ret
.552:
0160,0141,0163,0163,0145,0163,040,0160
0141,0162,0151,0164,0171,040,0164,0145
0163,0164,040,041,012,0
.152:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0163,0145,0156,0144,040
0145,0166,0145,0156,040,0160,0141,0162
0151,0164,0171,041,012,0
.742:
0160,0157,0162,0164,040,043,0
.342:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0144,0145,0164,0145,0143
0164,040,0157,0144,0144,040,0160,0141
0162,0151,0164,0171,040,0145,0162,0162
0157,0162,041,012,0
.142:
0160,0157,0162,0164,040,043,0
.332:
0146,0141,0151,0154,0145,0144,040,0164
0157,040,0163,0145,0164,040,0160,0141
0162,0151,0164,0171,041,012,0
.722:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0163,0145,0156,0144,040
0157,0144,0144,040,0160,0141,0162,0151
0164,0171,041,012,0
.522:
0160,0157,0162,0164,040,043,0
.122:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0144,0145,0164,0145,0143
0164,040,0160,0141,0162,0151,0164,0171
040,0145,0162,0162,0157,0162,041,012
0
.712:
0160,0157,0162,0164,040,043,0
.112:
0146,0141,0151,0154,0145,0144,040,0164
0157,040,0163,0145,0164,040,0164,0157
040,0145,0166,0145,0156,040,0160,0141
0162,0151,0164,0171,041,012,0
.502:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0162,0145,0143,0151,0145
0166,0145,040,0157,0144,0144,040,0160
0141,0162,0151,0164,0171,041,012,0
.302:
0160,0157,0162,0164,040,043,0
.771:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0164,0162,0141,0156,0163
0155,0151,0164,040,0157,0144,0144,040
0160,0141,0162,0151,0164,0171,041,012
0
.571:
0160,0157,0162,0164,040,043,0
.761:
0146,0141,0151,0154,0145,0144,040,0164
0157,040,0163,0145,0164,040,0157,0144
0144,040,0160,0141,0162,0151,0164,0171
041,012,0
.361:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0162,0145,0143,0151,0145
0166,0145,040,0145,0166,0145,0156,040
0160,0141,0162,0151,0164,0171,041,012
0
.161:
0160,0157,0162,0164,040,043,0
.551:
040,0146,0141,0151,0154,0145,0144,040
0164,0157,040,0164,0162,0141,0156,0163
0155,0151,0164,040,0145,0166,0145,0156
040,0160,0141,0162,0151,0164,0171,012
0
.351:
0160,0157,0162,0164,040,043,0
.541:
0146,0141,0151,0154,0145,0144,040,0164
0157,040,0163,0145,0164,040,0160,0141
0162,0151,0164,0171,040,0143,0157,0162
0162,0145,0143,0164,0154,0171,012,0
.141:
040,052,052,052,052,052,052,012
012,0
.731:
012,012,052,052,052,052,052,052
040,0164,0145,0163,0164,0151,0156,0147
040,0160,0141,0162,0151,0164,0171,040
0157,0156,040,0160,0157,0162,0164,040
043,0
parytes.:
call c.ent
hl=0177766+sp->sp
hl=&parytes.
hl->error.
hl=&.731
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.141
sp<=hl
call puts.
af<=sp
a=0171->parity.
a=0145->eoparty.
call bothset.
a=0377-c=0-^b
jp .341
hl=&.541
sp<=hl
call puts.
af<=sp
call terflg.
jmp .741
.341: /184
a=0150->base.+a-^a->base.[01]
hl=&0245=>sp
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
call rece.
a=c::0401 jnz .22=b::0
.22:
jz .151
hl=&.351
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.551
sp<=hl
call puts.
af<=sp
call terflg.
jmp .151
.741: /318
hl=&erflg.
a=*hl|*(hl+1)
jnz .352
hl=&.552
sp<=hl
call puts.
af<=sp
jmp .352
.151: /198
a=0140->base.+a-^a->base.[01]
hl=&0245=>sp
call tran.
af<=sp
a=0150->base.+a-^a->base.[01]
call rece.
a=c::0401 jnz .42=b::0
.42:
jz .751
hl=&.161
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.361
sp<=hl
call puts.
af<=sp
call terflg.
.751: /212
a=0157->eoparty.
call bothset.
a=0377-c=0-^b
jp .561
hl=&.761
sp<=hl
call puts.
af<=sp
call terflg.
jmp .171
.561: /219
a=0150->base.+a-^a->base.[01]
hl=&0245=>sp
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
call rece.
a=c::0401 jnz .62=b::0
.62:
jz .371
hl=&.571
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.771
sp<=hl
call puts.
af<=sp
call terflg.
jmp .371
.171: /245
a=0145->eoparty.
call setparm.
call ckparm.
a=0377-c=0-^b
jp .702
hl=&.112
sp<=hl
call puts.
af<=sp
call terflg.
jmp .312
.371: /233
a=0140->base.+a-^a->base.[01]
hl=&0245=>sp
call tran.
af<=sp
a=0150->base.+a-^a->base.[01]
call rece.
a=c::0401 jnz .03=b::0
.03:
jz .171
hl=&.302
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.502
sp<=hl
call puts.
af<=sp
call terflg.
jmp .171
.702: /256
hl=&0245=>sp
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
call rece.
a=c::05 jnz .23=b::0
.23:
jz .512
hl=&.712
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.122
sp<=hl
call puts.
af<=sp
call terflg.
jmp .512
.312: /279
a=0157->eoparty.
call setparm.
hl=&0177766+de
sp<=hl
call ckparm.
hl<=sp
a=c->*hl=b->*(hl+1)
a=0140->base.+a-^a->base.[01]
a=0145->eoparty.
call setparm.
hl=&0177766+de
sp<=hl
call ckparm.
a=0377-c=0-^b
jp .24
bc=01
jmp .44
.24:
bc=0
.44:
hl<=sp
a=*hl|c->*hl=*(hl+1)|b->*hl
hl-1
a=*hl|*(hl+1)
jz .132
hl=&.332
sp<=hl
call puts.
af<=sp
call terflg.
jmp .741
.512: /269
hl=&0245=>sp
call tran.
af<=sp
a=0150->base.+a-^a->base.[01]
call rece.
a=c::05 jnz .43=b::0
.43:
jz .312
hl=&.522
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.722
sp<=hl
call puts.
af<=sp
call terflg.
jmp .312
.132: /294
hl=&0245=>sp
call tran.
af<=sp
a=0150->base.+a-^a->base.[01]
call rece.
a=c::05 jnz .64=b::0
.64:
jz .732
hl=&.142
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.342
sp<=hl
call puts.
af<=sp
call terflg.
.732: /307
hl=&0245=>sp
call tran.
af<=sp
a=0140->base.+a-^a->base.[01]
call rece.
a=c::05 jnz .05=b::0
.05:
jz .741
hl=&.742
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.152
sp<=hl
call puts.
af<=sp
call terflg.
jmp .741
.352: /322
jmp c.ret
.103:
0160,0141,0163,0163,0145,0163,040,0157
0166,0145,0162,040,0146,0154,0157,0167
040,0164,0145,0163,0164,040,041,012
0
.572:
012,040,0144,0151,0144,0156,047,0164
040,0157,0166,0145,0162,0146,0154,0157
0167,040,0157,0156,040,0160,0157,0162
0164,040,043,0
.162:
040,052,052,052,052,052,052,012
012,0
.752:
012,012,052,052,052,052,052,052
040,0157,0166,0145,0162,0146,0154,0157
0167,040,0164,0145,0163,0164,040,0157
0156,040,0160,0157,0162,0164,040,043
0
ovtest.:
call c.ent
hl=0177766+sp->sp
hl=&.752
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&.162
sp<=hl
call puts.
af<=sp
hl=&ovtest.
hl->error.
a=0140->base.+a-^a->base.[01]
hl=&065=>sp
call tran.
af<=sp
hl=&065=>sp
call tran.
af<=sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.362: / 337
hl=&0177770+de
a=*hl-0350=*(hl+1)-^03
jp .562
.762: / 337
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .362
.562: /338
a=0150->base.+a-^a->base.[01]
hl=&0177766+de
sp<=hl
call rece.
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177766+de
a=*hl::03 jnz .25=*(hl+1)::0
.25:
jz .372
hl=&.572
sp<=hl
call puts.
af<=sp
hl=group.=>sp
call putdec.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call terflg.
jmp .772
.372: /350
hl=&.103
sp<=hl
call puts.
af<=sp
.772: / 351
jmp c.ret
rece.:
call c.ent
hl=0177766+sp->sp
hl=&0177770+de
a=0->*hl+a-^a->*(hl+1)
.303: / 359
hl=&0177770+de
a=*hl-020=*(hl+1)-^047
jp .503
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-1
hl=a^hl
a=l&0401->l=h&0->h
a=l|h
jz .703
.503: /363
hl=base.=>sp
call in.
af<=sp
hl=&0177766+de
hl=a^hl
bc=hl
jmp c.ret
.703: /359
hl=&0177770+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .303
bgsel.:
call c.ent
a=0140->base.+a-^a->base.[01]
call groupse.
a=0150->base.+a-^a->base.[01]
call groupse.
jmp c.ret
.733:
0160,0141,0163,0163,0145,0163,040,0164
0150,0145,040,0160,0141,0162,0141,0154
0154,0145,0154,040,0160,0157,0162,0164
040,0164,0145,0163,0164,040,041,012
012,0
.333:
0164,0150,0145,040,0162,0145,0163,0164
0157,0162,0145,040,0142,0151,0164,040
0151,0163,0156,047,0164,040,0154,0157
0167,040,0157,0156,040,0164,0145,0163
0164,040,0142,0157,0141,0162,0144,012
0
.723:
0164,0150,0145,040,0162,0145,0163,0164
0157,0162,0145,040,0142,0151,0164,040
0151,0163,0156,047,0164,040,0150,0151
0147,0150,040,0157,0156,040,0164,0145
0163,0164,040,0142,0157,0141,0162,0144
012,0
.123:
0164,0150,0145,040,0160,0162,0151,0156
0164,0145,0162,040,0160,0157,0162,0164
040,0167,0157,0156,047,0164,040,0144
0151,0163,0141,0142,0154,0145,040,0146
0162,0157,0155,040,0164,0150,0145,040
0164,0145,0163,0164,040,0142,0157,0141
0162,0144,040,041,012,0
.513:
052,052,052,052,052,052,0160,0141
0162,0141,0154,0154,0145,0154,040,0160
0157,0162,0164,0163,040,0141,0162,0145
040,0142,0145,0151,0156,0147,040,0164
0145,0163,0164,0145,0144,052,052,052
052,052,052,012,012,0
partest.:
call c.ent
hl=&partest.
hl->error.
hl=&.513
sp<=hl
call puts.
af<=sp
a=functs.&0317->functs.=functs.[01]&0->functs.[01]
a=0->group.+a-^a->group.[01]
call bgsel.
hl=&0=>sp
hl=&0140=>sp
call out.
af<=sp<=sp
hl=&0=>sp
hl=&0141=>sp
call out.
af<=sp<=sp
hl=&0=>sp
hl=&0150=>sp
call out.
af<=sp<=sp
hl=&0=>sp
hl=&0151=>sp
call out.
af<=sp<=sp
hl=&0140=>sp
call in.
af<=sp
a=c|b
jz .713
hl=&.123
sp<=hl
call puts.
af<=sp
call terflg.
jmp .323
.713: /409
a=functs.|040->functs.=functs.[01]|0->functs.[01]
call bgsel.
call pinwalk.
hl=&0=>sp
call poutwal.
af<=sp
hl=&01=>sp
hl=&0140=>sp
call out.
af<=sp<=sp
hl=&01=>sp
call poutwal.
af<=sp
hl=&02=>sp
hl=&0140=>sp
call out.
af<=sp<=sp
hl=&0140=>sp
call in.
af<=sp
a=c&0401->c=b&0->b
a=c|b
jz .523
hl=&.723
sp<=hl
call puts.
af<=sp
call terflg.
.523: /429
a=functs.|020->functs.=functs.[01]|0->functs.[01]
call bgsel.
.323: / 438
a=functs.&0317->functs.=functs.[01]&0->functs.[01]
call bgsel.
hl=&erflg.
a=*hl|*(hl+1)
jnz .533
hl=&.733
sp<=hl
call puts.
af<=sp
.533: /444
jmp c.ret
bothset.:
call c.ent
af=>sp=>sp=>sp=>sp
a=0150->base.+a-^a->base.[01]
call setparm.
hl=&0177770+de
sp<=hl
call ckparm.
hl<=sp
a=c->*hl=b->*(hl+1)
a=0140->base.+a-^a->base.[01]
call setparm.
hl=&0177770+de
sp<=hl
call ckparm.
hl<=sp
a=*hl|c->*hl=*(hl+1)|b->*hl
hl=&0177770+de
hl=a^hl
bc=hl
jmp c.ret
.753:
0160,0141,0163,0163,0145,0163,040,0160
0141,0162,0141,0154,0154,0145,0154,040
0151,0156,0160,0165,0164,040,0167,0141
0154,0153,055,0164,0145,0163,0164,040
0157,0156,040,0160,0157,0162,0164,040
043,060,040,041,012,012,0
pinwalk.:
call c.ent
hl=0177764+sp->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)
.143: / 467
hl=&0177764+de
a=*hl-012=*(hl+1)-^0
jp .343
hl=&0177770+de
bc=^hl=>sp
hl=&0141=>sp
call out.
af<=sp<=sp
hl=&0177766+de
sp<=hl
hl=&0150=>sp
call in.
af<=sp
a=c=!a->c=b=!a->b
a=c&0377->c=b&0->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177766+de
sp<=hl
hl=&0177770+de
bc<=sp
a=*bc::*hl jnz .45=*(bc+1)::*(hl+1)
.45:
jz .153
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
bc=^hl=>sp
call pwerr.
af<=sp<=sp
jmp .153
.343: /484
hl=&erflg.
a=*hl|*(hl+1)
jnz .553
hl=&.753
sp<=hl
call puts.
af<=sp
jmp .553
.153: /477
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
a=l&0377->l=h&0->h
sp<=hl
hl=&0141=>sp
call out.
af<=sp<=sp
hl=&0177766+de
sp<=hl
hl=&0150=>sp
call in.
af<=sp
a=c=!a->c=b=!a->b
a=c&0377->c=b&0->b
hl<=sp
a=c->*hl=b->*(hl+1)
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 .65=b::*(hl+1)
.65:
jz .353
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 pwerr.
af<=sp<=sp
.353: /483
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 .143
.553: /487
jmp c.ret
.763:
012,012,0
.563:
040,0143,0141,0155,0145,040,0164,0150
0162,0157,0165,0147,0150,040,0141,0163
040,0167,0157,0162,0144,040,0
.363:
0167,0157,0162,0144,040,0
.163:
0160,0141,0162,0141,0154,0154,0145,0154
040,0160,0157,0162,0164,040,0146,0141
0151,0154,0145,0144,040,0164,0150,0145
040,0151,0156,0160,0165,0164,040,0167
0141,0154,0153,055,0164,0145,0163,0164
012,0
pwerr.:
call c.ent
hl=&.163
sp<=hl
call puts.
af<=sp
hl=&.363
sp<=hl
call puts.
af<=sp
hl=&04+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.563
sp<=hl
call puts.
af<=sp
hl=&06+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.763
sp<=hl
call puts.
af<=sp
call terflg.
jmp c.ret
.114:
012,012,0
.704:
0160,0141,0163,0163,0145,0163,040,0160
0141,0162,0141,0154,0154,0145,0154,040
0157,0165,0164,0160,0165,0164,040,0167
0141,0154,0153,055,0164,0145,0163,0164
040,0157,0156,040,0160,0157,0162,0164
040,043,0
poutwal.:
call c.ent
hl=0177764+sp->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)
.173: / 510
hl=&0177764+de
a=*hl-012=*(hl+1)-^0
jp .373
hl=&0177770+de
bc=^hl=>sp
hl=&04+de
hl=a^hl
hl+(bc=&0150)
sp<=hl
call out.
af<=sp<=sp
hl=&0177766+de
sp<=hl
hl=&0140=>sp
call in.
af<=sp
a=c=!a->c=b=!a->b
a=c&0377->c=b&0->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177766+de
sp<=hl
hl=&0177770+de
bc<=sp
a=*bc::*hl jnz .06=*(bc+1)::*(hl+1)
.06:
jz .104
hl=&0177766+de
bc=^hl=>sp
hl=&0177770+de
bc=^hl=>sp
call poerr.
af<=sp<=sp
jmp .104
.373: /527
hl=&erflg.
a=*hl|*(hl+1)
jnz .504
hl=&.704
sp<=hl
call puts.
af<=sp
hl=&04+de
bc=^hl=>sp
call putdec.
af<=sp
hl=&.114
sp<=hl
call puts.
af<=sp
jmp .504
.104: /520
hl=&0177770+de
hl=a^hl
a=l=!a->l=h=!a->h
a=l&0377->l=h&0->h
sp<=hl
hl=&04+de
hl=a^hl
hl+(bc=&0150)
sp<=hl
call out.
af<=sp<=sp
hl=&0177766+de
sp<=hl
hl=&0140=>sp
call in.
af<=sp
a=c=!a->c=b=!a->b
a=c&0377->c=b&0->b
hl<=sp
a=c->*hl=b->*(hl+1)
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 .26=b::*(hl+1)
.26:
jz .304
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 poerr.
af<=sp<=sp
.304: /526
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 .173
.504: /534
jmp c.ret
.124:
012,012,0
.714:
040,0143,0141,0155,0145,040,0164,0150
0162,0157,0165,0147,0150,040,0141,0163
040,0167,0157,0162,0144,040,0
.514:
0167,0157,0162,0144,040,0
.314:
0160,0141,0162,0141,0154,0154,0145,0154
040,0160,0157,0162,0164,040,0146,0141
0151,0154,0145,0144,040,0164,0150,0145
040,0157,0165,0164,0160,0165,0164,040
0167,0141,0154,0153,055,0164,0145,0163
0164,012,0
poerr.:
call c.ent
hl=&.314
sp<=hl
call puts.
af<=sp
hl=&.514
sp<=hl
call puts.
af<=sp
hl=&04+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.714
sp<=hl
call puts.
af<=sp
hl=&06+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.124
sp<=hl
call puts.
af<=sp
call terflg.
jmp c.ret
.525:
0160,0141,0163,0163,0145,0163,040,0155
0145,0155,0157,0162,0171,040,0164,0145
0163,0164,040,041,012,0
.125:
040,0162,0145,0141,0144,040,0141,0163
040,0167,0157,0162,0144,040,0
.715:
040,012,0167,0157,0162,0144,040,0
.515:
0155,0145,0155,0157,0162,0171,040,0146
0141,0151,0154,0163,040,0157,0156,040
0160,0141,0147,0145,040,043,0
.174:
040,0162,0145,0141,0144,040,0141,0163
040,0167,0157,0162,0144,040,0
.764:
012,0167,0157,0162,0144,040,0
.564:
0155,0145,0155,0157,0162,0171,040,0146
0141,0151,0154,0163,040,0164,0145,0163
0164,040,0141,0164,040,0154,0157,0143
0141,0164,0151,0157,0156,040,043,0
.144:
040,0143,0141,0155,0145,040,0164,0150
0162,0157,0165,0147,0150,040,0141,0163
040,0167,0157,0162,0144,040,0
.734:
0167,0157,0162,0144,040,0
.534:
0155,0145,0155,0157,0162,0171,040,0146
0141,0151,0154,0163,040,0167,0141,0154
0153,055,0142,0151,0164,040,0164,0145
0163,0164,040,0141,0164,040,0146,0151
0162,0163,0164,040,0154,0157,0143,0141
0164,0151,0157,0156,012,0
testram.:
call c.ent
hl=0177762+sp->sp
hl=&0177762+de
a=testad.->*hl=testad.[01]->*(hl+1)
hl=&0177770+de
a=0401->*hl+a-^a->*(hl+1)
hl=&0177764+de
a=0->*hl+a-^a->*(hl+1)
.324: / 562
hl=&0177764+de
a=*hl-010=*(hl+1)-^0
jp .524
hl=&0177762+de
hl=a^hl
sp<=hl
hl=&0177770+de
bc<=sp
a=*hl->*bc
hl=&0177766+de
sp<=hl
hl=&0177762+de
hl=a^hl
bc<=sp
a=*hl->*bc-a->*(bc+1)
hl=&0177770+de
hl=a^hl
a=l&0377->l=h&0->h
sp<=hl
hl=&0177766+de
bc<=sp
a=c::*hl jnz .46=b::*(hl+1)
.46:
jz .334
hl=&.534
sp<=hl
call puts.
af<=sp
hl=&.734
sp<=hl
call puts.
af<=sp
hl=&0177770+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.144
sp<=hl
call puts.
af<=sp
hl=&0177766+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call memerr.
.524: /578
hl=&0177764+de
a=0->*hl+a-^a->*(hl+1)
.344: / 579
hl=&0177764+de
a=*hl-0=*(hl+1)-^0401
jp .544
hl=&0177762+de
hl=a^hl
sp<=hl
hl=&0177764+de
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
sp<=hl
hl=&0177764+de
bc<=sp
a=*hl->*bc
hl=&0177764+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .344
.334: /577
hl=&0177770+de
sp<=hl
hl<=sp=>sp
hl=a^hl
hl+hl
bc<=sp
a=l->*bc=h->*(bc+1)
bc-1
hl=&0177764+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .324
.544: /580
hl=&0177764+de
a=0->*hl+a-^a->*(hl+1)
.354: / 581
hl=&0177764+de
a=*hl-0=*(hl+1)-^0401
jp .554
hl=&0177766+de
sp<=hl
hl=&0177762+de
hl=a^hl
sp<=hl
hl=&0177764+de
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=*hl->*bc-a->*(bc+1)
hl=&0177766+de
sp<=hl
hl=&0177764+de
bc<=sp
a=*bc::*hl jnz .66=*(bc+1)::*(hl+1)
.66:
jz .754
hl=&.564
sp<=hl
call puts.
af<=sp
hl=&0177764+de
bc=^hl=>sp
call putdec.
af<=sp
hl=&.764
sp<=hl
call puts.
af<=sp
hl=&0177764+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.174
sp<=hl
call puts.
af<=sp
hl=&0177766+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call memerr.
jmp .754
.554: /595
hl=&0177764+de
a=0->*hl+a-^a->*(hl+1)
.374: / 597
hl=&0177764+de
a=*hl-020=*(hl+1)-^0
jp .574
hl=&0177764+de
bc=^hl=>sp
hl=&0400=>sp
call c.imul
hl<=sp
sp<=hl
hl=&0177762+de
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
sp<=hl
hl=&0177764+de
bc<=sp
a=*hl->*bc
hl=&0177764+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .374
.754: /581
hl=&0177764+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .354
.574: /598
hl=&0177764+de
a=0->*hl+a-^a->*(hl+1)
.305: / 600
hl=&0177764+de
a=*hl-020=*(hl+1)-^0
jp .505
hl=&0177766+de
sp<=hl
hl=&0177764+de
bc=^hl=>sp
hl=&0400=>sp
call c.imul
hl<=sp
sp<=hl
hl=&0177762+de
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=*hl->*bc-a->*(bc+1)
hl=&0177766+de
sp<=hl
hl=&0177764+de
bc<=sp
a=*bc::*hl jnz .07=*(bc+1)::*(hl+1)
.07:
jz .705
hl=&.515
sp<=hl
call puts.
af<=sp
hl=&0177764+de
bc=^hl=>sp
call putdec.
af<=sp
hl=&.715
sp<=hl
call puts.
af<=sp
hl=&0177764+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&.125
sp<=hl
call puts.
af<=sp
hl=&0177766+de
bc=^hl=>sp
call putbin.
af<=sp
hl=&012=>sp
call putc.
af<=sp
call memerr.
jmp .705
.505: /614
hl=&erflg.
a=*hl|*(hl+1)
jnz .325
hl=&.525
sp<=hl
call puts.
af<=sp
jmp .325
.705: /600
hl=&0177764+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp .305
.325: /618
call oldtask.
jmp c.ret
memerr.:
call c.ent
call oldtask.
call terflg.
jmp c.ret
.135:
012,040,0143,0160,057,0155,040,0151
0163,0156,047,0164,040,0142,0151,0147
040,0145,0156,0157,0165,0147,0150,041
041,041,041,0
finadd.:
call c.ent
hl=0177766+sp->sp
hl=&0177770+de
a=06->*hl+a-^a->*(hl+1)
hl=&0177766+de
sp<=hl
hl=&0177770+de
hl=a^hl
bc<=sp
a=*hl->*bc=*(hl+1)->*(bc+1)
hl=&0177766+de
a=*hl&0->*hl=*(hl+1)&0360->*hl
hl=&0177766+de
a=*hl-0->*hl=*(hl+1)-^020->*hl
hl=&0177766+de
hl=a^hl
hl->testad.
a=testad.-0=testad.[01]-^0200
jnc .725
hl=&.135
sp<=hl
call puts.
af<=sp
call fatal.
.725: /648
jmp c.ret
memchng.:
call c.ent
hl=0177764+sp->sp
hl=&0177766+de
sp<=hl
hl=testad.=>sp
hl=&014=>sp
call c.ursh
hl<=sp
hl+hl
hl+(bc=&01040)
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177766+de
hl=a^hl
*hl=0374
hl=&0177766+de
hl=a^hl
hl+(bc=&02000)
*hl=0374
hl=&0177764+de
a=025->*hl+a-^a->*(hl+1)
hl=&0177764+de
hl=a^hl
bc=&testram.
a=c&0377->c=b&0->b
a=c->*hl
hl=&0177764+de
hl=a^hl
hl+1
sp<=hl
hl=&testram.
sp<=hl
hl=&0400=>sp
call c.udiv
hl<=sp
bc<=sp
a=l->*bc
hl=&0177770+de
a=025->*hl=010->*(hl+1)
hl=&0177770+de
hl=a^hl
call c.ihl
jmp c.ret
.335:
012,012,052,052,052,052,052,052
040,0164,0145,0163,0164,0151,0156,0147
040,0155,0145,0155,0157,0162,0171,040
052,052,052,052,052,052,012,012
0
memtest.:
call c.ent
hl=0177763+sp->sp
hl=&.335
sp<=hl
call puts.
af<=sp
hl=&memtest.
hl->error.
hl=&0177763+de
*hl=0166
hl=&0177764+de
*hl=0166
hl=&0177765+de
*hl=0303
hl=&0177766+de
bc=&memchng.
a=c&0377->c=b&0->b
a=c->*hl
hl=&0177767+de
sp<=hl
hl=&memchng.
sp<=hl
hl=&0400=>sp
call c.udiv
hl<=sp
bc<=sp
a=l->*bc
hl=&0177770+de
sp<=hl
hl=&0177763+de
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177770+de
hl=a^hl
call c.ihl
jmp c.ret
endtest.:
call c.ent
jmp c.ret
unchng.:
call c.ent
hl=0177764+sp->sp
hl=&0177766+de
sp<=hl
hl=testad.=>sp
hl=&014=>sp
call c.ursh
hl<=sp
hl+hl
hl+(bc=&01040)
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177766+de
hl=a^hl
sp<=hl
hl=testad.=>sp
hl=&014=>sp
call c.ursh
hl<=sp
bc<=sp
a=l->*bc
hl=&0177766+de
hl=a^hl
hl+(bc=&02000)
sp<=hl
hl=testad.=>sp
hl=&014=>sp
call c.ursh
hl<=sp
bc<=sp
a=l->*bc
hl=&0177764+de
a=025->*hl+a-^a->*(hl+1)
hl=&0177764+de
hl=a^hl
bc=&endtest.
a=c&0377->c=b&0->b
a=c->*hl
hl=&0177764+de
hl=a^hl
hl+1
sp<=hl
hl=&endtest.
sp<=hl
hl=&0400=>sp
call c.udiv
hl<=sp
bc<=sp
a=l->*bc
hl=&0177770+de
a=025->*hl=010->*(hl+1)
hl=&0177770+de
hl=a^hl
call c.ihl
jmp c.ret
public unchng.
public endtest.
public memtest.
public memchng.
public fatal.
public finadd.
public oldtask.
public memerr.
public testram.
public poerr.
public pwerr.
public pinwalk.
public poutwal.
public out.
public partest.
public groupse.
public bgsel.
public ovtest.
public rece.
public bothset.
public parytes.
public walker.
public setparm.
public ckparm.
public walktes.
public bitest.
public putc.
public putbin.
public tran.
public rec.
public terflg.
public waler.
public in.
public putdec.
public puts.
public rwalk.
public testad.
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.
oldtask.:
call c.ent
hl=0177763+sp->sp
hl=&0177763+de
*hl=0166
hl=&0177764+de
*hl=0166
hl=&0177765+de
*hl=0303
hl=&0177766+de
bc=&unchng.
a=c&0377->c=b&0->b
a=c->*hl
hl=&0177767+de
sp<=hl
hl=&unchng.
sp<=hl
hl=&0400=>sp
call c.udiv
hl<=sp
bc<=sp
a=l->*bc
hl=&0177770+de
sp<=hl
hl=&0177763+de
bc<=sp
a=l->*bc=h->*(bc+1)
hl=&0177770+de
hl=a^hl
call c.ihl
jmp c.ret