.:=.data
_cbaud:
06
_pbaud:
06
_ptype:
0
_protoco:
0
_cent:
0
_hard:
0
.:=.text
__main:
call c.ent
call _main
jmp c.ret
_main:
call c.ent
call _load_sy
call _readset
call _setup
jmp c.ret
L5:
&L33
&033
&L32
&0146
&L12
&0145
&L71
&0144
&L51
&0143
&L31
&0142
&L11
&0141
&0
&L7
L13:
015,012,012,0125,0156,0141,0142,0154
0145,040,0164,0157,040,0165,0160,0144
0141,0164,0145,040,0103,0120,0115,063
056,0123,0131,0123,040,0146,0151,0154
0145,054,040,0160,0162,0145,0163,0163
040,0141,0156,0171,040,0153,0145,0171
040,0164,0157,040,0143,0157,0156,0164
0151,0156,0165,0145,056,040,044,0
L52:
040,0125,0160,0144,0141,0164,0151,0156
0147,040,0103,0120,0115,063,056,0123
0131,0123,040,0146,0151,0154,0145,056
040,044,0
_setup:
call c.ent
hl=0177704+sp->sp
call _mainmen
L1: / 44
call _cgetc
hl=&L5 jmp c.switch
L11: /48
hl=&01=>sp
call _toggle
af<=sp
hl=&03=>sp
call _set_cur
af<=sp
a=_cbaud->c-a->b
hl=bc
hl+hl
bc=&_baudnam
hl+bc
bc=^hl=>sp
call _prs
af<=sp
call _selecti
jmp L1
L7: /110
jmp L1
L31: /57
hl=&03=>sp
call _toggle
af<=sp
hl=&05=>sp
call _set_cur
af<=sp
a=_ptype->c-a->b
hl=bc
hl+hl
bc=&_pname
hl+bc
bc=^hl=>sp
call _prs
af<=sp
call _selecti
jmp L1
L51: /66
hl=&02=>sp
call _toggle
af<=sp
hl=&07=>sp
call _set_cur
af<=sp
a=_pbaud->c-a->b
hl=bc
hl+hl
bc=&_baudnam
hl+bc
bc=^hl=>sp
call _prs
af<=sp
call _selecti
jmp L1
L71: /75
hl=&0=>sp
call _toggle
af<=sp
hl=&011=>sp
call _set_cur
af<=sp
a=_protoco->c-a->b
hl=bc
hl+hl
bc=&_protona
hl+bc
bc=^hl=>sp
call _prs
af<=sp
call _selecti
jmp L1
L12: /84
call _softset
call _mainmen
jmp L1
L32: /91
hl=&L52
sp<=hl
call _prs
af<=sp
hl=&0177770+de
sp<=hl
call _hardset
hl<=sp
a=c->*hl=b->*(hl+1)
hl=&0177770+de
a=*hl|*(hl+1)
jnz L72
hl=&L13
sp<=hl
call _prs
af<=sp
call _cgetc
L72: /100
call _mainmen
jmp L1
L33: /104
call _clear
call _exit
jmp L1
L53:
&L36
&0
&L55
&03
&L74
&02
&L14
&01
&0
&L73
public _cgetc
public _clear
public _exit
public _hardset
public _softset
public _toggle
public _set_cur
public _prs
public _selecti
public _mainmen
public _setup
public _readset
public _load_sy
public _main
public __main
public _protoco
public _ptype
public _pbaud
public _cbaud
public _protona
public _pname
public _hard
public _cent
public _baudnam
_toggle:
call c.ent
hl=&04+de
hl=a^hl
bc=hl
hl=&L53 jmp c.switch
L14: /124
a=_cbaud::07
jnz L34
a=0->_cbaud
jmp L73
L34: /128
a=_cbaud+0401->_cbaud
L73: /163
jmp c.ret
L74: /134
a=_pbaud::07
jnz L15
a=0->_pbaud
jmp L73
L15: /138
a=_pbaud+0401->_pbaud
jmp L73
L55: /144
a=_ptype::0401
jnz L75
a=0->_ptype
jmp L73
L75: /148
a=0401->_ptype
jmp L73
L36: /154
a=_protoco|a
jnz L56
a=0401->_protoco
jmp L73
L56: /158
a=0->_protoco
jmp L73