.:=.data
L1:
.:=.[02]
L3:
.:=.[02]
L5:
.:=.[02]
L7:
.:=.[02]
L11:
.:=.[02]
L31:
.:=.[02]
L51:
.:=.[02]
L71:
.:=.[02]
L12:
.:=.[02]
L32:
.:=.[02]
L52:
.:=.[02]
L72:
.:=.[02]
L13:
.:=.[02]
L33:
.:=.[02]
L53:
.:=.[02]
L73:
.:=.[02]
L14:
.:=.[02]
L34:
.:=.[02]
L54:
.:=.[02]
L74:
.:=.[02]
L15:
.:=.[02]
.:=.text
L161:
0117,0165,0164,040,0157,0146,040,0163
0164,0162,0151,0156,0147,040,0163,0160
0141,0143,0145,012,0
L501:
0103,0150,0141,0162,040,0164,0162,0141
0156,040,0164,0141,0142,0154,0145,040
0156,0157,0164,040,0154,0141,0163,0164
040,0151,0156,040,0154,0151,0163,0164
012,0
L101:
0116,0157,040,0143,0150,0141,0162,056
040,0164,0162,0141,0156,0163,0154,0141
0164,0151,0157,0156,040,0164,0141,0142
0154,0145,040,0146,0157,0165,0156,0144
012,0
L17:
0103,0157,0162,0162,0165,0160,0164,040
0164,0162,0141,0156,0163,0154,0141,0164
0151,0157,0156,040,0164,0141,0142,0154
0145,040,0154,0151,0163,0164,012,0
L75:
040,0157,0165,0164,040,0157,0146,040
0162,0141,0156,0147,0145,040,0104,0103
0101,040,0160,0157,0151,0156,0164,0145
0162,012,0
_fixbios:
call c.ent
hl=_biosbuf
hl+1
hl->L12
hl=L12
hl=a^hl
a-a->l=h&0377->h
hl+(bc=&0173000)
hl->L53
hl=_biosbuf
hl+(bc=&0120)
hl->L12
hl=_biosbuf
sp<=hl
hl=L12
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
sp<=hl
hl=&L53
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
hl->L73
hl=&_biosbuf
a=L73-*hl=L73[01]-^*(hl+1)
jc L35
hl=_biosbuf
hl+(bc=&05000)
a=L73-l=L73[01]-^h
jnc L35
hl=&026=>sp
hl=_term=>sp
hl=&0104=>sp
call c.imul
hl<=sp
bc=&_termina[04]
hl+bc
sp<=hl
hl=L73=>sp
call _cpybuf
af<=sp<=sp<=sp
jmp L55
L35: /59
hl=&L75
sp<=hl
call _prs
af<=sp
L55: / 62
hl=L73=>sp
call _ffterm
af<=sp
hl=L73
hl+(bc=&06)
sp<=hl
call _ffterm
af<=sp
hl=L73
hl+(bc=&014)
sp<=hl
call _ffterm
af<=sp
hl=_biosbuf
hl+(bc=&0106)
hl->L12
hl=_biosbuf
sp<=hl
hl=L12
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
sp<=hl
hl=&L53
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
hl->L14
L16: / 86
hl=&_biosbuf
a=L14-*hl=L14[01]-^*(hl+1)
jc L76
hl=_biosbuf
hl+(bc=&05000)
sp<=hl
hl=&L14
bc<=sp
a=c-*hl=b-^*(hl+1)
jnc L56
L76: /88
hl=&L17
sp<=hl
call _fatal
af<=sp
L56: / 93
hl=L14
a=*hl->c-a->b
a=c::0376 jnz L2=b::0
L2:
jz L36
hl=L14
a=*hl->c-a->b
a=c::0377 jnz L4=b::0
L4:
jz L36
hl=L14
sp<=hl
hl=L14
hl+1
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
hl+1+1+1
hl->L14
jmp L16
L36: /97
hl=L14
a=*hl->c-a->b
a=c::0377 jnz L6=b::0
L6:
jnz L77
hl=&L101
sp<=hl
call _fatal
af<=sp
L77: /102
hl=L14
sp<=hl
hl=L14
hl+1
hl=a^hl
hl<>*sp;bc<=sp
hl+bc
hl+1+1+1
hl->L34
hl=L34
a=*hl->c-a->b
a=c::0377 jnz L01=b::0
L01:
jz L301
hl=&L501
sp<=hl
call _fatal
af<=sp
L301: /107
hl=L34
hl+1
hl=a^hl
hl->L71
hl=L14
hl+1
hl=a^hl
hl->L33
hl=L14
hl+1+1+1
hl->L1
hl=_biosbuf
hl+(bc=&0110)
hl->L12
hl=L12
sp<=hl
hl=L1
sp<=hl
hl=&_biosbuf
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
sp<=hl
hl=L53
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=l->*bc=h->*(bc+1)
hl=_term=>sp
hl=&0104=>sp
call c.imul
hl<=sp
bc=&_termina[076]
hl+bc
hl->L54
a-a->L52->L52[01]
a-a->L32->L32[01]
L701: / 139
a=L32-02=L32[01]-^0
jp L111
hl=L54
hl+1
hl=a^hl
a=*hl|a
jz L311
hl=L1=>sp
hl=L1
hl+1
hl->L1
hl<=sp
sp<=hl
hl=L54
bc<=sp
a=*hl->*bc
hl=L52
hl+1
hl->L52
jmp L311
L111: /143
hl=L1=>sp
hl=L1
hl+1
hl->L1
hl<=sp
*hl=0377
hl=_biosbuf
hl+(bc=&0112)
hl->L12
hl=L12
sp<=hl
hl=L1
sp<=hl
hl=&_biosbuf
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
sp<=hl
hl=L53
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=l->*bc=h->*(bc+1)
hl=_term=>sp
hl=&0104=>sp
call c.imul
hl<=sp
bc=&_termina[032]
hl+bc
hl->L54
a-a->L72->L72[01]
a-a->L32->L32[01]
L121: / 166
a=L32-014=L32[01]-^0
jp L321
hl=L54
hl+1
hl=a^hl
a=*hl|a
jz L521
hl=L1=>sp
hl=L1
hl+1
hl->L1
hl<=sp
sp<=hl
hl=L54
bc<=sp
a=*hl->*bc
hl=L72
hl+1
hl->L72
jmp L521
L311: /139
hl=L32
hl+1
hl->L32
hl=L54
hl+1+1+1
hl->L54
jmp L701
L321: /170
hl=L1=>sp
hl=L1
hl+1
hl->L1
hl<=sp
*hl=0377
hl=L52
sp<=hl
hl=L72
hl<>*sp;bc<=sp
hl+bc
hl+hl
sp<=hl
hl=L1
hl<>*sp;bc<=sp
hl+bc
hl->L51
hl=L1
hl->L3
hl=_biosbuf
hl+(bc=&0114)
hl->L12
hl=L12
sp<=hl
hl=L3
sp<=hl
hl=&_biosbuf
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
sp<=hl
hl=L53
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=l->*bc=h->*(bc+1)
hl=_term=>sp
hl=&0104=>sp
call c.imul
hl<=sp
bc=&_termina[076]
hl+bc
hl->L54
a-a->L32->L32[01]
L331: / 191
a=L32-02=L32[01]-^0
jp L531
hl=L54
hl+1
hl=a^hl
a=*hl|a
jz L731
hl=L3=>sp
hl=L3
hl+1+1
hl->L3
hl<=sp
sp<=hl
hl=L51
sp<=hl
hl=L53
hl<>*sp;bc<=sp
hl+bc
sp<=hl
hl=&_biosbuf
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0=>sp
hl=L54
hl+1
bc=^hl=>sp
hl=L51=>sp
call _cpystr
af<=sp<=sp<=sp
hl=bc
hl->L51
hl=L51=>sp
hl=L51
hl+1
hl->L51
hl<=sp
*hl=0377
jmp L731
L521: /166
hl=L32
hl+1
hl->L32
hl=L54
hl+1+1+1
hl->L54
jmp L121
L531: /199
hl=_biosbuf
hl+(bc=&0116)
hl->L12
hl=L12
sp<=hl
hl=L3
sp<=hl
hl=&_biosbuf
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
sp<=hl
hl=L53
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=l->*bc=h->*(bc+1)
hl=_term=>sp
hl=&0104=>sp
call c.imul
hl<=sp
bc=&_termina[032]
hl+bc
hl->L54
a-a->L32->L32[01]
L541: / 214
a=L32-014=L32[01]-^0
jp L741
hl=L54
hl+1
hl=a^hl
a=*hl|a
jz L151
hl=L3=>sp
hl=L3
hl+1+1
hl->L3
hl<=sp
sp<=hl
hl=L51
sp<=hl
hl=L53
hl<>*sp;bc<=sp
hl+bc
sp<=hl
hl=&_biosbuf
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0=>sp
hl=L54
hl+1
bc=^hl=>sp
hl=L51=>sp
call _cpystr
af<=sp<=sp<=sp
hl=bc
hl->L51
hl=L51=>sp
hl=L51
hl+1
hl->L51
hl<=sp
*hl=0377
jmp L151
L731: /191
hl=L32
hl+1
hl->L32
hl=L54
hl+1+1+1
hl->L54
jmp L331
L741: /222
hl=L51
sp<=hl
hl=L14
hl+1+1+1
bc<=sp
a=c-l->c=b-^h->b
hl=bc
hl->L13
hl=&L13
a=L33-*hl=L33[01]-^*(hl+1)
jp L751
hl=L13
sp<=hl
hl=&L33
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
a=L71-c=L71[01]-^b
jp L751
hl=&L161
sp<=hl
call _fatal
af<=sp
jmp L751
L151: /214
hl=L32
hl+1
hl->L32
hl=L54
hl+1+1+1
hl->L54
jmp L541
L751: /237
hl=L51
hl->L34
hl=L14
hl+1
a=L13->*hl=L13[01]->*(hl+1)
hl=L34
*hl=0377
hl=L34
hl+1
sp<=hl
hl=L71
sp<=hl
hl=&L13
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
sp<=hl
hl=L33
hl<>*sp;bc<=sp
hl+bc
bc<=sp
a=l->*bc=h->*(bc+1)
hl=_biosbuf
hl+(bc=&0104)
hl->L12
hl=L12
hl=a^hl
sp<=hl
hl=&L53
bc<=sp
a=c-*hl->c=b-^*(hl+1)->b
hl=bc
sp<=hl
hl=_biosbuf
hl<>*sp;bc<=sp
hl+bc
hl->L74
a-a->L32->L32[01]
L361: / 268
a=L32-05=L32[01]-^0
jp L561
hl=L32
bc=>sp=hl;hl+hl+hl+hl+bc;bc<=sp
sp<=hl
hl=L74
hl<>*sp;bc<=sp
hl+bc
hl->L15
hl=L15
a=*hl&0370->*hl
hl=L15
hl+1
a=*hl&0174->*hl
a=_ndrives->c+a-^a->b
hl=&L32
a=c-*hl=b-^*(hl+1)
jm L371
hl=&L32
a=*hl|*(hl+1)
jnz L571
hl=L15
a=*hl|0401->*hl
jmp L771
L561: /301
jmp c.ret
L371: /292
hl=L15
a=*hl|0401->*hl
hl=L15
hl+1
a=*hl|0200->*hl
L761: / 268
hl=L32
hl+1
hl->L32
jmp L361
L571: /284
a=L32::0401 jnz L21=L32[01]::0
L21:
jnz L102
hl=L15
a=*hl|02->*hl
jmp L771
L102: /287
hl=L15
a=*hl|03->*hl
L771: / 288
hl=L15
hl+1
sp<=hl
hl=L32
a=l&03->l-a->h
bc<=sp
a=*bc|l->*bc
jmp L761
public _cpystr
public _fatal
public _ffterm
public _prs
public _cpybuf
public _fixbios
public _termina
public _nterm
public _term
public _ndrives
public _biosbuf
public _drive
_ffterm:
call c.ent
L702: / 311
hl=&04+de
hl=a^hl
a=*hl|a
jz L112
hl=&04+de
a=*hl+0401->*hl=*(hl+1)+^0->*hl
jmp L702
L112: /312
hl=&04+de
hl=a^hl
*hl=0377
jmp c.ret