Index: alcyon/im700.s
===================================================================
--- alcyon/im700.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/im700.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,2069 @@
+.globl _QQsw
+.globl _QQanch
+.globl _QQin
+.globl _QQip
+.globl _QQop
+.globl _QQnum
+.globl _QQlnum
+.globl _QQchr
+.globl _QQdig
+.globl _QQstr
+.globl _lcdx
+.globl _lcdy
+.globl _lcdbit
+.globl _lcdrow
+.globl _lcdcol
+.globl _lcdbase
+.globl _lcdctl1
+.globl _lcdctl2
+.globl _io_time
+.globl _io_lcd
+.globl _io_ser
+.globl _io_midi
+.globl _io_disk
+.globl _io_tone
+.globl _io_leds
+.globl _io_kbrd
+.globl _lcd_a0
+.globl _lcd_a1
+.globl _io_vreg
+.globl _io_vraw
+.globl _io_vram
+.globl _io_fpu
+.globl _v_regs
+.globl _v_odtab
+.globl _v_actab
+.globl _v_ct0
+.globl _v_gt1
+.globl _v_score
+.globl _v_cgtab
+.globl _v_curs0
+.globl _v_curs1
+.globl _v_curs2
+.globl _v_curs3
+.globl _v_curs4
+.globl _v_curs5
+.globl _v_curs6
+.globl _v_curs7
+.globl _v_tcur
+.globl _v_kbobj
+.globl _v_lnobj
+.globl _v_win0
+.globl _v_cur
+.globl _fc_sw
+.globl _fc_val
+.globl _timers
+.globl _v_obtab
+.globl _v_curob
+.globl _v_nobj
+.globl _v_obpri
+.globl _ac_code
+.globl _scname
+.globl _se_chg
+.globl _curscor
+.globl _cursect
+.globl _se1_cnt
+.globl _se2_cnt
+.globl _se3_cnt
+.globl _spool
+.globl _pspool
+.globl _spcount
+.globl _frags
+.globl _t_bak
+.globl _t_cur
+.globl _t_ctr
+.globl _t_fwd
+.globl _size1
+.globl _size2
+.globl _size3
+.globl _scores
+.globl _scp
+.globl _seclist
+.globl _hplist
+.globl _p_bak
+.globl _p_cur
+.globl _p_ctr
+.globl _p_fwd
+.globl _blakpal
+.globl _t_prmtr
+.globl _funcndx
+.globl _keystat
+.globl _ldcmnt
+.globl _ldfile
+.globl _loadedc
+.globl _loadedf
+.globl _masens
+.globl _mctlval
+.globl _mdbyte
+.globl _mpsust
+.globl _mrstat
+.globl _trgtab
+.globl _fnoff
+.globl _articen
+.globl _grpmode
+.globl _grpsel
+.globl _grpstat
+.globl _gtctab
+.globl _lastvce
+.globl _lastvel
+.globl _mpbend
+.globl _msmstv
+.globl _prstab
+.globl _vce2trg
+.globl _veltab
+.globl _oldsw
+.globl _swpt
+.globl _curmove
+.globl _curtype
+.globl _cx_key
+.globl _cx_upd
+.globl _cy_key
+.globl _cy_upd
+.globl _d_key
+.globl _e_key
+.globl _m_key
+.globl _not_fld
+.globl _premove
+.globl _pstmove
+.globl _x_key
+.globl _xy_dn
+.globl _xy_up
+.globl _cratex
+.globl _cratey
+.globl _admctl
+.comm _admctl,2
+.globl _adnamsw
+.comm _adnamsw,2
+.globl _aflag
+.comm _aflag,2
+.globl _aform
+.comm _aform,2
+.globl _amplval
+.comm _amplval,2
+.globl _ancmsw
+.comm _ancmsw,2
+.globl _angroup
+.comm _angroup,2
+.globl _asgfks
+.comm _asgfks,2
+.globl _asghit
+.comm _asghit,2
+.globl _asgmod
+.comm _asgmod,2
+.globl _asig
+.comm _asig,2
+.globl _asmode
+.comm _asmode,2
+.globl _astat
+.comm _astat,2
+.globl _auxctl
+.comm _auxctl,2
+.globl _aval
+.comm _aval,2
+.globl _bform
+.comm _bform,2
+.globl _catin
+.comm _catin,2
+.globl _cents
+.comm _cents,2
+.globl _chtime
+.comm _chtime,2
+.globl _chwait
+.comm _chwait,2
+.globl _cflag
+.comm _cflag,2
+.globl _clkctl
+.comm _clkctl,2
+.globl _clkrun
+.comm _clkrun,2
+.globl _clksrc
+.comm _clksrc,2
+.globl _cmfirst
+.comm _cmfirst,2
+.globl _cmtype
+.comm _cmtype,2
+.globl _cnote
+.comm _cnote,2
+.globl _ctrsw
+.comm _ctrsw,2
+.globl _curasg
+.comm _curasg,2
+.globl _curfunc
+.comm _curfunc,2
+.globl _curgrp
+.comm _curgrp,2
+.globl _curinst
+.comm _curinst,2
+.globl _curmop
+.comm _curmop,2
+.globl _curpnt
+.comm _curpnt,2
+.globl _curpos
+.comm _curpos,2
+.globl _cursbox
+.comm _cursbox,2
+.globl _curscor
+.comm _curscor,2
+.globl _cursect
+.comm _cursect,2
+.globl _curslim
+.comm _curslim,2
+.globl _curtun
+.comm _curtun,2
+.globl _curvce
+.comm _curvce,2
+.globl _curwave
+.comm _curwave,2
+.globl _curwdth
+.comm _curwdth,2
+.globl _curwfnl
+.comm _curwfnl,2
+.globl _curwhrm
+.comm _curwhrm,2
+.globl _curwhrv
+.comm _curwhrv,2
+.globl _curwoff
+.comm _curwoff,2
+.globl _curwpnt
+.comm _curwpnt,2
+.globl _curwslt
+.comm _curwslt,2
+.globl _cvtime
+.comm _cvtime,2
+.globl _cvwait
+.comm _cvwait,2
+.globl _cxrate
+.comm _cxrate,2
+.globl _cxval
+.comm _cxval,2
+.globl _cyrate
+.comm _cyrate,2
+.globl _cyval
+.comm _cyval,2
+.globl _debugne
+.comm _debugne,2
+.globl _defect
+.comm _defect,2
+.globl _dferror
+.comm _dferror,2
+.globl _dfsides
+.comm _dfsides,2
+.globl _dftype
+.comm _dftype,2
+.globl _dsp_ok
+.comm _dsp_ok,2
+.globl _dubsw
+.comm _dubsw,2
+.globl _ebflag
+.comm _ebflag,2
+.globl _editss
+.comm _editss,2
+.globl _editsw
+.comm _editsw,2
+.globl _endflg
+.comm _endflg,2
+.globl _ext_cv1
+.comm _ext_cv1,2
+.globl _ext_cv2
+.comm _ext_cv2,2
+.globl _ext_cv3
+.comm _ext_cv3,2
+.globl _ext_cv4
+.comm _ext_cv4,2
+.globl _ext_mod
+.comm _ext_mod,2
+.globl _gomode
+.comm _gomode,2
+.globl _grptran
+.comm _grptran,2
+.globl _gtmsel
+.comm _gtmsel,2
+.globl _hitbox
+.comm _hitbox,2
+.globl _hitcx
+.comm _hitcx,2
+.globl _hitcy
+.comm _hitcy,2
+.globl _idcfsw
+.comm _idcfsw,2
+.globl _idimsw
+.comm _idimsw,2
+.globl _idintmp
+.comm _idintmp,2
+.globl _idnamsw
+.comm _idnamsw,2
+.globl _idsrcsw
+.comm _idsrcsw,2
+.globl _idtdat
+.comm _idtdat,2
+.globl _imflag
+.comm _imflag,2
+.globl _initcfg
+.comm _initcfg,2
+.globl _insmode
+.comm _insmode,2
+.globl _ismode
+.comm _ismode,2
+.globl _lampio
+.comm _lampio,2
+.globl _lampsw
+.comm _lampsw,2
+.globl _lasgsw
+.comm _lasgsw,2
+.globl _lastam
+.comm _lastam,2
+.globl _ldelsw
+.comm _ldelsw,2
+.globl _lderrsw
+.comm _lderrsw,2
+.globl _ldidsiz
+.comm _ldidsiz,2
+.globl _ldkind
+.comm _ldkind,2
+.globl _ldpass
+.comm _ldpass,2
+.globl _ldrow
+.comm _ldrow,2
+.globl _ldslot
+.comm _ldslot,2
+.globl _legato
+.comm _legato,2
+.globl _lksel
+.comm _lksel,2
+.globl _lmwtype
+.comm _lmwtype,2
+.globl _loadrow
+.comm _loadrow,2
+.globl _loadsw
+.comm _loadsw,2
+.globl _lorchl
+.comm _lorchl,2
+.globl _lorchsw
+.comm _lorchsw,2
+.globl _lorclsw
+.comm _lorclsw,2
+.globl _lpatsw
+.comm _lpatsw,2
+.globl _lrasw
+.comm _lrasw,2
+.globl _lscrsw
+.comm _lscrsw,2
+.globl _lselsw
+.comm _lselsw,2
+.globl _lseqsw
+.comm _lseqsw,2
+.globl _lstbgnc
+.comm _lstbgnc,2
+.globl _lstendc
+.comm _lstendc,2
+.globl _lstflag
+.comm _lstflag,2
+.globl _lstrsw
+.comm _lstrsw,2
+.globl _lstwoff
+.comm _lstwoff,2
+.globl _lstwpnt
+.comm _lstwpnt,2
+.globl _ltagged
+.comm _ltagged,2
+.globl _ltunsw
+.comm _ltunsw,2
+.globl _lwavsw
+.comm _lwavsw,2
+.globl _mascntr
+.comm _mascntr,2
+.globl _mdb1
+.comm _mdb1,2
+.globl _mdb2
+.comm _mdb2,2
+.globl _michan
+.comm _michan,2
+.globl _midiclk
+.comm _midiclk,2
+.globl _midigo
+.comm _midigo,2
+.globl _mistat
+.comm _mistat,2
+.globl _nchwait
+.comm _nchwait,2
+.globl _ncvwait
+.comm _ncvwait,2
+.globl _ndisp
+.comm _ndisp,2
+.globl _newflag
+.comm _newflag,2
+.globl _nkdown
+.comm _nkdown,2
+.globl _notenum
+.comm _notenum,2
+.globl _noteop
+.comm _noteop,2
+.globl _notepit
+.comm _notepit,2
+.globl _notesel
+.comm _notesel,2
+.globl _npts
+.comm _npts,2
+.globl _nxtflag
+.comm _nxtflag,2
+.globl _oldltag
+.comm _oldltag,2
+.globl _oldpk
+.comm _oldpk,2
+.globl _oldsl
+.comm _oldsl,2
+.globl _pchsw
+.comm _pchsw,2
+.globl _pecase
+.comm _pecase,2
+.globl _pkctrl
+.comm _pkctrl,2
+.globl _pntsv
+.comm _pntsv,2
+.globl _prgchan
+.comm _prgchan,2
+.globl _ps_dpth
+.comm _ps_dpth,2
+.globl _ps_intn
+.comm _ps_intn,2
+.globl _ps_rate
+.comm _ps_rate,2
+.globl _pulsclk
+.comm _pulsclk,2
+.globl _recsw
+.comm _recsw,2
+.globl _runit
+.comm _runit,2
+.globl _sbase
+.comm _sbase,2
+.globl _scmctl
+.comm _scmctl,2
+.globl _scrlpot
+.comm _scrlpot,2
+.globl _sd
+.comm _sd,2
+.globl _se
+.comm _se,2
+.globl _sdmcol
+.comm _sdmcol,2
+.globl _sdmctl
+.comm _sdmctl,2
+.globl _sdmrow
+.comm _sdmrow,2
+.globl _secop
+.comm _secop,2
+.globl _secopok
+.comm _secopok,2
+.globl _sgcsw
+.comm _sgcsw,2
+.globl _sgoflag
+.comm _sgoflag,2
+.globl _sharp
+.comm _sharp,2
+.globl _sliders
+.comm _sliders,2
+.globl _soffset
+.comm _soffset,2
+.globl _ss_ptsw
+.comm _ss_ptsw,2
+.globl _ss_sqsw
+.comm _ss_sqsw,2
+.globl _stccol
+.comm _stccol,2
+.globl _stcrow
+.comm _stcrow,2
+.globl _stepclk
+.comm _stepclk,2
+.globl _stepenb
+.comm _stepenb,2
+.globl _stepint
+.comm _stepint,2
+.globl _stepwgt
+.comm _stepwgt,2
+.globl _subj
+.comm _subj,2
+.globl _submenu
+.comm _submenu,2
+.globl _swctrl
+.comm _swctrl,2
+.globl _swdelta
+.comm _swdelta,2
+.globl _swdir
+.comm _swdir,2
+.globl _swfiin
+.comm _swfiin,2
+.globl _swflag
+.comm _swflag,2
+.globl _swlast
+.comm _swlast,2
+.globl _swstop
+.comm _swstop,2
+.globl _swndx
+.comm _swndx,2
+.globl _tagslot
+.comm _tagslot,2
+.globl _tdnamsw
+.comm _tdnamsw,2
+.globl _temax
+.comm _temax,2
+.globl _temin
+.comm _temin,2
+.globl _testing
+.comm _testing,2
+.globl _tglclk
+.comm _tglclk,2
+.globl _tglpch
+.comm _tglpch,2
+.globl _thescore
+.comm _thescore,2
+.globl _timemlt
+.comm _timemlt,2
+.globl _tkctrl
+.comm _tkctrl,2
+.globl _tmpomlt
+.comm _tmpomlt,2
+.globl _tmpoval
+.comm _tmpoval,2
+.globl _trkball
+.comm _trkball,2
+.globl _ttcmdsv
+.comm _ttcmdsv,2
+.globl _ttsel1
+.comm _ttsel1,2
+.globl _ttsel2
+.comm _ttsel2,2
+.globl _ttsel3
+.comm _ttsel3,2
+.globl _tuneval
+.comm _tuneval,2
+.globl _tunmod
+.comm _tunmod,2
+.globl _tunval
+.comm _tunval,2
+.globl _txfiin
+.comm _txfiin,2
+.globl _txflag
+.comm _txflag,2
+.globl _txlast
+.comm _txlast,2
+.globl _txstop
+.comm _txstop,2
+.globl _tyfiin
+.comm _tyfiin,2
+.globl _tyflag
+.comm _tyflag,2
+.globl _tylast
+.comm _tylast,2
+.globl _tystop
+.comm _tystop,2
+.globl _velflag
+.comm _velflag,2
+.globl _verbose
+.comm _verbose,2
+.globl _vlbtype
+.comm _vlbtype,2
+.globl _vrbw08
+.comm _vrbw08,2
+.globl _vrbw09
+.comm _vrbw09,2
+.globl _vrbw10
+.comm _vrbw10,2
+.globl _vrbw11
+.comm _vrbw11,2
+.globl _vrbw12
+.comm _vrbw12,2
+.globl _vrbw13
+.comm _vrbw13,2
+.globl _vrbw14
+.comm _vrbw14,2
+.globl _vrbw15
+.comm _vrbw15,2
+.globl _vrcw
+.comm _vrcw,2
+.globl _vtccol
+.comm _vtccol,2
+.globl _vtcrow
+.comm _vtcrow,2
+.globl _vtdechr
+.comm _vtdechr,2
+.globl _vtdecol
+.comm _vtdecol,2
+.globl _vtpcol
+.comm _vtpcol,2
+.globl _vtprow
+.comm _vtprow,2
+.globl _vtwcol
+.comm _vtwcol,2
+.globl _vtwrow
+.comm _vtwrow,2
+.globl _vtxval
+.comm _vtxval,2
+.globl _vtyval
+.comm _vtyval,2
+.globl _wcflag
+.comm _wcflag,2
+.globl _wcmcol
+.comm _wcmcol,2
+.globl _wcmrow
+.comm _wcmrow,2
+.globl _wcpage
+.comm _wcpage,2
+.globl _wdupdfl
+.comm _wdupdfl,2
+.globl _wmcsel
+.comm _wmcsel,2
+.globl _wmctag
+.comm _wmctag,2
+.globl _wplast
+.comm _wplast,2
+.globl _wpntsv
+.comm _wpntsv,2
+.globl _wshmax
+.comm _wshmax,2
+.globl _wvlast
+.comm _wvlast,2
+.globl _xkcount
+.comm _xkcount,2
+.globl _xkstat
+.comm _xkstat,2
+.globl _xycntr
+.comm _xycntr,2
+.globl _ykcount
+.comm _ykcount,2
+.globl _ykstat
+.comm _ykstat,2
+.globl _anrs
+.comm _anrs,256
+.globl _grp2prt
+.comm _grp2prt,48
+.globl _sctctab
+.comm _sctctab,1280
+.globl _sigtab
+.comm _sigtab,512
+.globl _tunlib
+.comm _tunlib,2560
+.globl _varmode
+.comm _varmode,256
+.globl _wsnmod
+.comm _wsnmod,48
+.globl _mphead
+.comm _mphead,28
+.globl _cfetp
+.comm _cfetp,4
+.globl _curfet
+.comm _curfet,4
+.globl _infetp
+.comm _infetp,4
+.globl _gdfsep
+.comm _gdfsep,4
+.globl _pntptr
+.comm _pntptr,4
+.globl _ldhead
+.comm _ldhead,56
+.globl _nefree
+.comm _nefree,4
+.globl _nelist
+.comm _nelist,4
+.globl _adoct
+.comm _adoct,4
+.globl _ldoct
+.comm _ldoct,4
+.globl _mdoct
+.comm _mdoct,4
+.globl _tdoct
+.comm _tdoct,4
+.globl _wdoct
+.comm _wdoct,4
+.globl _idoct
+.comm _idoct,4
+.globl _pflist
+.comm _pflist,4
+.globl _pfqhdr
+.comm _pfqhdr,4
+.globl _libsp
+.comm _libsp,4
+.globl _peg
+.comm _peg,4
+.globl _size1
+.comm _size1,4
+.globl _size2
+.comm _size2,4
+.globl _size3
+.comm _size3,4
+.globl _csbp
+.comm _csbp,4
+.globl _curboxp
+.comm _curboxp,4
+.globl _p_bak
+.comm _p_bak,4
+.globl _p_cbgn
+.comm _p_cbgn,4
+.globl _p_cend
+.comm _p_cend,4
+.globl _p_cur
+.comm _p_cur,4
+.globl _p_ctr
+.comm _p_ctr,4
+.globl _p_fwd
+.comm _p_fwd,4
+.globl _p_nbeg
+.comm _p_nbeg,4
+.globl _p_nend
+.comm _p_nend,4
+.globl _p_sbgn
+.comm _p_sbgn,4
+.globl _p_sec1
+.comm _p_sec1,4
+.globl _p_sec2
+.comm _p_sec2,4
+.globl _p_send
+.comm _p_send,4
+.globl _scp
+.comm _scp,4
+.globl _asgtab
+.comm _asgtab,33200
+.globl _filecat
+.comm _filecat,1120
+.globl _gdstbc
+.comm _gdstbc,68
+.globl _gdstbn
+.comm _gdstbn,68
+.globl _gdstbp
+.comm _gdstbp,68
+.globl _gdfsl
+.comm _gdfsl,2048
+.globl _idefs
+.comm _idefs,161458
+.globl _lstbgns
+.comm _lstbgns,192
+.globl _lstends
+.comm _lstends,192
+.globl _vbufs
+.comm _vbufs,47256
+.globl _nevents
+.comm _nevents,256
+.globl _pfents
+.comm _pfents,10752
+.globl _sindex
+.comm _sindex,400
+.globl _vpsms
+.comm _vpsms,768
+.globl _sments
+.comm _sments,2304
+.globl _valents
+.comm _valents,1920
+.globl _wslib
+.comm _wslib,21600
+.globl _scores
+.comm _scores,80
+.globl _stimes
+.comm _stimes,4800
+.globl _hplist
+.comm _hplist,960
+.globl _seclist
+.comm _seclist,1600
+.globl _asgob
+.comm _asgob,4
+.globl _consl
+.comm _consl,4
+.globl _cursl
+.comm _cursl,4
+.globl _instob
+.comm _instob,4
+.globl _librob
+.comm _librob,4
+.globl _menuob
+.comm _menuob,4
+.globl _nxtsl
+.comm _nxtsl,4
+.globl _obj0
+.comm _obj0,4
+.globl _obj1
+.comm _obj1,4
+.globl _obj2
+.comm _obj2,4
+.globl _obj3
+.comm _obj3,4
+.globl _obj4
+.comm _obj4,4
+.globl _obj5
+.comm _obj5,4
+.globl _obj6
+.comm _obj6,4
+.globl _obj7
+.comm _obj7,4
+.globl _obj8
+.comm _obj8,4
+.globl _obj9
+.comm _obj9,4
+.globl _obj10
+.comm _obj10,4
+.globl _obj11
+.comm _obj11,4
+.globl _obj12
+.comm _obj12,4
+.globl _obj13
+.comm _obj13,4
+.globl _obj14
+.comm _obj14,4
+.globl _obj15
+.comm _obj15,4
+.globl _prvsl
+.comm _prvsl,4
+.globl _saddr
+.comm _saddr,4
+.globl _tunob
+.comm _tunob,4
+.globl _vtobj
+.comm _vtobj,4
+.globl _waveob
+.comm _waveob,4
+.globl _curintp
+.comm _curintp,2
+.globl _scrl
+.comm _scrl,2
+.globl _vtbgval
+.comm _vtbgval,2
+.globl _vtfgval
+.comm _vtfgval,2
+.globl _dfbuf
+.comm _dfbuf,8192
+.globl _slices
+.comm _slices,1792
+.globl _debugsw
+.data
+_debugsw:
+.dc.w $0
+.globl _swback
+.data
+_swback:
+.dc.w $A
+.globl _swthr
+.data
+_swthr:
+.dc.w $4
+.globl _swtime
+.data
+_swtime:
+.dc.w $A
+.globl _swwait
+.data
+_swwait:
+.dc.w $2
+.globl _tkback
+.data
+_tkback:
+.dc.w $8
+.globl _tkrmin
+.data
+_tkrmin:
+.dc.w $6
+.globl _tkthr
+.data
+_tkthr:
+.dc.w $3
+.globl _tktime
+.data
+_tktime:
+.dc.w $A
+.globl _tkwait
+.data
+_tkwait:
+.dc.w $2
+.globl _curhold
+.data
+_curhold:
+.dc.w $12C
+.globl _hcwval
+.data
+_hcwval:
+.dc.w $1E
+.globl _thcwval
+.data
+_thcwval:
+.dc.w $3C
+.globl _tvcwval
+.data
+_tvcwval:
+.dc.w $78
+.globl _vcwval
+.data
+_vcwval:
+.dc.w $1E
+.globl _tmultab
+.data
+_tmultab:
+.dc.w $FFFF
+.dc.w $FAFA
+.dc.w $F627
+.dc.w $F182
+.dc.w $ED09
+.dc.w $E8BA
+.dc.w $E492
+.dc.w $E08F
+.dc.w $DCB0
+.dc.w $D8F2
+.dc.w $D555
+.dc.w $D1D6
+.dc.w $CE73
+.dc.w $CB2C
+.dc.w $C800
+.dc.w $C4EC
+.dc.w $C1F0
+.dc.w $BF0B
+.dc.w $BC3C
+.dc.w $B981
+.dc.w $B6DB
+.dc.w $B448
+.dc.w $B1C7
+.dc.w $AF57
+.dc.w $ACF9
+.dc.w $AAAA
+.dc.w $A86B
+.dc.w $A63B
+.dc.w $A41A
+.dc.w $A206
+.dc.w $A000
+.dc.w $9E06
+.dc.w $9C18
+.dc.w $9A37
+.dc.w $9861
+.dc.w $9696
+.dc.w $94D6
+.dc.w $9320
+.dc.w $9174
+.dc.w $8FD1
+.dc.w $8E38
+.dc.w $8CA8
+.dc.w $8B21
+.dc.w $89A2
+.dc.w $882B
+.dc.w $86BC
+.dc.w $8555
+.dc.w $83F5
+.dc.w $829C
+.dc.w $814A
+.dc.w $8000
+.dc.w $7EBB
+.dc.w $7D7D
+.dc.w $7C45
+.dc.w $7B13
+.dc.w $79E7
+.dc.w $78C1
+.dc.w $77A0
+.dc.w $7684
+.dc.w $756E
+.dc.w $745D
+.dc.w $7350
+.dc.w $7249
+.dc.w $7146
+.dc.w $7047
+.dc.w $6F4D
+.dc.w $6E58
+.dc.w $6D66
+.dc.w $6C79
+.dc.w $6B90
+.dc.w $6AAA
+.dc.w $69C8
+.dc.w $68EB
+.dc.w $6810
+.dc.w $6739
+.dc.w $6666
+.dc.w $6596
+.dc.w $64C9
+.dc.w $6400
+.dc.w $6339
+.dc.w $6276
+.dc.w $61B5
+.dc.w $60F8
+.dc.w $603D
+.dc.w $5F85
+.dc.w $5ED0
+.dc.w $5E1E
+.dc.w $5D6E
+.dc.w $5CC0
+.dc.w $5C16
+.dc.w $5B6D
+.dc.w $5AC7
+.dc.w $5A24
+.dc.w $5982
+.dc.w $58E3
+.dc.w $5846
+.dc.w $57AB
+.dc.w $5713
+.dc.w $567C
+.dc.w $55E7
+.dc.w $5555
+.globl _crate0
+.data
+_crate0:
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.globl _crate1
+.data
+_crate1:
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $5
+.dc.w $5
+.dc.w $5
+.dc.w $5
+.dc.w $5
+.dc.w $5
+.dc.w $5
+.dc.w $5
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $9
+.dc.w $9
+.dc.w $9
+.dc.w $9
+.dc.w $9
+.dc.w $9
+.dc.w $9
+.dc.w $9
+.dc.w $B
+.dc.w $B
+.dc.w $B
+.dc.w $B
+.dc.w $B
+.dc.w $B
+.dc.w $B
+.dc.w $B
+.dc.w $D
+.dc.w $D
+.dc.w $D
+.dc.w $D
+.dc.w $D
+.dc.w $D
+.dc.w $D
+.dc.w $D
+.globl _crate2
+.data
+_crate2:
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $4
+.dc.w $4
+.dc.w $4
+.dc.w $4
+.dc.w $8
+.dc.w $8
+.dc.w $8
+.dc.w $8
+.dc.w $10
+.dc.w $10
+.dc.w $10
+.dc.w $10
+.dc.w $20
+.dc.w $20
+.dc.w $20
+.dc.w $20
+.dc.w $40
+.dc.w $40
+.dc.w $40
+.dc.w $40
+.dc.w $80
+.dc.w $80
+.dc.w $80
+.dc.w $80
+.dc.w $60
+.dc.w $60
+.dc.w $60
+.dc.w $60
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.dc.w $100
+.globl _loctab
+.data
+_loctab:
+.dc.w $0
+.dc.w $FA0
+.dc.w $1F40
+.dc.w $2EE0
+.dc.w $3E80
+.dc.w $4E20
+.dc.w $5DC0
+.dc.w $6D60
+.dc.w $7D00
+.globl _valof
+.text
+_valof:
+~~valof:
+~srcv=8
+link R14,#-4
+*line 591
+move 8(R14),R0
+bra L3
+*line 592
+L4:
+*line 593
+*line 594
+clr R0
+bra L1
+*line 595
+L5:
+*line 596
+*line 597
+clr (sp)
+jsr _xgetran
+bra L1
+*line 598
+L6:
+*line 599
+*line 600
+move 316+_sigtab,R0
+muls #252,R0
+and #32736,R0
+bra L1
+*line 601
+L7:
+*line 602
+L8:
+*line 603
+L9:
+*line 604
+*line 605
+clr R0
+bra L1
+*line 606
+L10:
+*line 607
+*line 608
+move 308+_sigtab,R0
+muls #252,R0
+and #32736,R0
+bra L1
+*line 609
+L11:
+*line 610
+*line 611
+clr R0
+bra L1
+*line 612
+L12:
+*line 613
+*line 614
+move 216+_sigtab,R0
+muls #252,R0
+and #32736,R0
+bra L1
+*line 615
+L13:
+*line 616
+*line 617
+move 228+_sigtab,R0
+muls #252,R0
+and #32736,R0
+bra L1
+*line 618
+L14:
+*line 619
+*line 620
+clr R0
+bra L1
+bra L2
+L3:cmp #13,R0
+bhi L14
+asl #2,R0
+move R0,R8
+add.l #L15,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L15:.dc.l L4
+.dc.l L5
+.dc.l L6
+.dc.l L14
+.dc.l L14
+.dc.l L7
+.dc.l L8
+.dc.l L9
+.dc.l L10
+.dc.l L14
+.dc.l L14
+.dc.l L11
+.dc.l L12
+.dc.l L13
+.text
+L2:L1:unlk R14
+rts
+.globl _inismtb
+.text
+_inismtb:
+~~inismtb:
+link R14,#0
+movem.l R5-R7,-(sp)
+~i=R7
+~oldi=R6
+*line 637
+move #2,(sp)
+jsr _setipl
+move R0,R6
+*line 641
+clr R7
+bra L19
+L20:
+*line 642
+*line 643
+move R7,R0
+muls #10,R0
+add.l #_valents,R0
+move R7,R1
+muls #10,R1
+add.l #_valents,R1
+move.l R1,R9
+move.l R0,(R9)
+*line 644
+move R7,R0
+muls #10,R0
+add.l #_valents,R0
+move R7,R1
+muls #10,R1
+add.l #_valents,R1
+move.l R1,R9
+move.l R0,4(R9)
+*line 645
+move R7,(sp)
+and #15,(sp)
+jsr _valof
+move R0,-(sp)
+move R7,R0
+muls #10,R0
+add.l #_valents,R0
+move.l R0,R8
+move (sp)+,8(R8)
+L18:
+*line 641
+add #1,R7
+L19:
+*line 641
+cmp #192,R7
+blt L20
+L17:
+*line 648
+clr R7
+bra L23
+L24:
+*line 649
+*line 650
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move R7,R9
+add.l R9,R9
+add.l R9,R9
+add.l #_vpsms,R9
+move.l R0,(R9)
+*line 651
+*line 652
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move.l R0,R8
+move.l #_valents,4(R8)
+*line 653
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move.l R0,R8
+move.l _valents,(R8)
+*line 654
+*line 655
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move.l _valents,R9
+move.l R0,4(R9)
+*line 656
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move.l R0,_valents
+*line 657
+*line 658
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move.l R0,R8
+move R7,8(R8)
+*line 659
+move R7,R0
+muls #12,R0
+add.l #_sments,R0
+move.l R0,R8
+clr 10(R8)
+L22:
+*line 648
+add #1,R7
+L23:
+*line 648
+cmp #192,R7
+blt L24
+L21:
+*line 662
+move R6,(sp)
+jsr _setipl
+L16:tst.l (sp)+
+movem.l (sp)+,R6-R7
+unlk R14
+rts
+.globl _clrpfl
+.text
+_clrpfl:
+~~clrpfl:
+link R14,#0
+movem.l R6-R7,-(sp)
+~i=R7
+*line 681
+move #5376,(sp)
+clr -(sp)
+move.l #_pfents,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 683
+clr R7
+bra L28
+L29:
+*line 684
+move R7,R0
+add #1,R0
+asl #5,R0
+ext.l R0
+add.l #_pfents,R0
+move R7,R1
+asl #5,R1
+ext.l R1
+add.l #_pfents,R1
+move.l R1,R9
+move.l R0,(R9)
+L27:
+*line 683
+add #1,R7
+L28:
+*line 683
+cmp #335,R7
+blt L29
+L26:
+*line 686
+move.l #_pfents,_pfqhdr
+*line 687
+clr.l _pflist
+L25:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _im700
+.text
+_im700:
+~~im700:
+link R14,#0
+movem.l R4-R7/R12-R13,-(sp)
+~i=R7
+~j=R6
+~k=R5
+~ioadr=R13
+~ip=R12
+*line 705
+clr _debugsw
+*line 707
+jsr _GLCinit
+*line 708
+move #1,(sp)
+jsr _GLCcurs
+*line 709
+move.l #L31,(sp)
+move #1,-(sp)
+move #2,-(sp)
+jsr _GLCtext
+addq.l #4,sp
+*line 710
+clr (sp)
+jsr _GLCcurs
+*line 712
+move.l #_blakpal,(sp)
+jsr _vsndpal
+*line 714
+jsr _VHinit
+*line 715
+jsr _VSinit
+*line 717
+move #24,(sp)
+clr -(sp)
+move.l #_keystat,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 718
+move #6144,(sp)
+clr -(sp)
+move.l #_trgtab,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 719
+move #6144,(sp)
+clr -(sp)
+move.l #_mctlval,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 721
+move #12,(sp)
+clr -(sp)
+move.l #_grpmode,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 722
+move #12,(sp)
+move #1,-(sp)
+move.l #_grpstat,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 723
+move #12,(sp)
+move #1,-(sp)
+move.l #_grpsel,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 724
+move #256,(sp)
+clr -(sp)
+move.l #_sigtab,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 726
+move #6144,(sp)
+move #16128,-(sp)
+move.l #_veltab,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 727
+move #12,(sp)
+move #16128,-(sp)
+move.l #_lastvel,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 728
+move #6144,(sp)
+clr -(sp)
+move.l #_prstab,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 730
+move #100,(sp)
+jsr _tofpu
+move R0,_curintp
+*line 732
+move #-1,_angroup
+*line 733
+clr _ancmsw
+*line 734
+clr _velflag
+*line 736
+move #1,_dubsw
+*line 738
+clr _sd
+*line 739
+clr _se
+*line 741
+jsr _swinit
+*line 743
+jsr _inismtb
+*line 744
+jsr _clrnl
+*line 745
+jsr _clrpfl
+*line 747
+clr _lstbgnc
+*line 748
+clr _lstendc
+*line 749
+move #1,_lstflag
+*line 751
+move #96,(sp)
+clr -(sp)
+move.l #_lstbgns,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 752
+move #96,(sp)
+clr -(sp)
+move.l #_lstends,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 756
+clr R7
+bra L34
+L35:
+*line 757
+*line 758
+move R7,R0
+muls #3938,R0
+move.l R0,R12
+add.l #_vbufs,R12
+*line 759
+*line 760
+clr R6
+bra L38
+L39:
+*line 761
+*line 762
+move R7,R5
+asl #4,R5
+move R6,R8
+add.l R8,R8
+add.l #_fnoff,R8
+move (R8),R0
+add R0,R5
+*line 763
+*line 764
+move.l R12,R0
+move R6,R1
+muls #12,R1
+add.l R1,R0
+add.l #86,R0
+move R5,R1
+asl #3,R1
+ext.l R1
+add.l #_funcndx,R1
+move.l R1,R9
+move.l R0,(R9)
+*line 765
+move R5,R1
+asl #3,R1
+ext.l R1
+add.l #_funcndx,R1
+move.l R1,R9
+lea 242(R12),R8
+move.l R8,4(R9)
+L37:
+*line 760
+add #1,R6
+L38:
+*line 760
+cmp #13,R6
+blt L39
+L36:
+*line 766
+L33:
+*line 756
+add #1,R7
+L34:
+*line 756
+cmp #12,R7
+blt L35
+L32:
+*line 771
+clr R7
+bra L42
+L43:
+*line 772
+*line 773
+move R7,R8
+add.l R8,R8
+add.l #_msmstv,R8
+clr (R8)
+*line 774
+move R7,R8
+add.l #_mrstat,R8
+clr.b (R8)
+*line 775
+move R7,R8
+add.l #_mdbyte,R8
+clr.b (R8)
+*line 776
+move R7,R8
+add.l #_masens,R8
+clr.b (R8)
+L41:
+*line 771
+add #1,R7
+L42:
+*line 771
+cmp #3,R7
+blt L43
+L40:
+*line 779
+clr R7
+bra L46
+L47:
+*line 780
+*line 781
+move R7,R8
+add.l R8,R8
+add.l #_mpbend,R8
+clr (R8)
+*line 782
+move R7,R8
+add.l #_mpsust,R8
+clr.b (R8)
+L45:
+*line 779
+add #1,R7
+L46:
+*line 779
+cmp #48,R7
+blt L47
+L44:
+*line 785
+clr R7
+bra L50
+L51:
+*line 786
+*line 787
+clr R6
+bra L54
+L55:
+*line 788
+*line 789
+move R6,R0
+asl #5,R0
+ext.l R0
+move R7,R1
+asl #1,R1
+ext.l R1
+add.l R1,R0
+add.l #_varmode,R0
+move.l R0,R8
+clr (R8)
+*line 790
+move R6,R0
+asl #5,R0
+ext.l R0
+move R7,R1
+asl #1,R1
+ext.l R1
+add.l R1,R0
+add.l #_anrs,R0
+move.l R0,R8
+move #4,(R8)
+L53:
+*line 787
+add #1,R6
+L54:
+*line 787
+cmp #6,R6
+blt L55
+L52:
+*line 791
+*line 792
+*line 793
+move #6,(sp)
+move R7,-(sp)
+jsr _setdyn
+addq.l #2,sp
+*line 794
+move #4,(sp)
+move R7,-(sp)
+jsr _setloc
+addq.l #2,sp
+*line 795
+move R7,R8
+add.l R8,R8
+add.l #_lastvce,R8
+clr (R8)
+*line 796
+move R7,R8
+add.l R8,R8
+add.l #_vce2trg,R8
+move #-1,(R8)
+L49:
+*line 785
+add #1,R7
+L50:
+*line 785
+cmp #12,R7
+blt L51
+L48:
+*line 799
+clr R7
+bra L58
+L59:
+*line 800
+*line 801
+move #37,(sp)
+move #32,-(sp)
+move R7,R0
+muls #37,R0
+add.l #_loadedc,R0
+move.l R0,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 802
+move #8,(sp)
+move #32,-(sp)
+move R7,R0
+asl #3,R0
+ext.l R0
+add.l #_loadedf,R0
+move.l R0,-(sp)
+jsr _memset
+addq.l #6,sp
+L57:
+*line 799
+add #1,R7
+L58:
+*line 799
+cmp #8,R7
+blt L59
+L56:
+*line 805
+move #8,(sp)
+move #32,-(sp)
+move.l #_ldfile,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 806
+clr.b 8+_ldfile
+*line 808
+move #37,(sp)
+move #32,-(sp)
+move.l #_ldcmnt,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 809
+clr.b 37+_ldcmnt
+*line 813
+move #1,_xkcount
+*line 814
+move #1,_ykcount
+*line 815
+move #50,_xycntr
+*line 817
+clr _clksrc
+*line 818
+clr _clkctl
+*line 819
+clr _clkrun
+*line 820
+clr _midiclk
+*line 821
+clr _pulsclk
+*line 822
+clr _stepclk
+*line 823
+clr _fc_sw
+*line 824
+clr.l _fc_val
+*line 825
+clr _scrlpot
+*line 826
+move #50,_tmpomlt
+*line 827
+move.b #24,_io_leds
+*line 828
+move.b #25,_io_leds
+*line 829
+move #60,(sp)
+jsr _settmpo
+*line 831
+move 100+_tmultab,_timemlt
+*line 832
+move.b #26,_io_leds
+*line 833
+move.b #27,_io_leds
+*line 835
+clr _tuneval
+*line 836
+move.b #28,_io_leds
+*line 837
+move.b #29,_io_leds
+*line 839
+clr R7
+bra L62
+L63:
+*line 840
+move R7,R0
+add #3,R0
+move #12,R1
+asl R1,R0
+move R7,R1
+add #3,R1
+asl #8,R1
+or R1,R0
+move R7,R1
+add #3,R1
+asl #4,R1
+or R1,R0
+move R7,R1
+add #3,R1
+or R1,R0
+move R7,R9
+add.l R9,R9
+add.l #_gtctab,R9
+move R0,(R9)
+L61:
+*line 839
+add #1,R7
+L62:
+*line 839
+cmp #12,R7
+blt L63
+L60:
+*line 842
+clr _editsw
+*line 843
+move.b #30,_io_leds
+*line 844
+move.l #2+_io_ser,R13
+*line 845
+move.b (R13),R0
+ext.w R0
+and #8,R0
+move R0,_editss
+*line 847
+move.b #4,_ac_code
+*line 849
+move #12,(sp)
+move #1,-(sp)
+move.l #_articen,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 852
+move.l #_cmvgen,_curmove
+*line 853
+move.l #_nokey,_premove
+*line 854
+move.l #_nokey,_pstmove
+*line 855
+move.l #_stdctp2,_curtype
+*line 857
+move.l #_nokey,_x_key
+*line 858
+move.l #_nokey,_e_key
+*line 859
+move.l #_stdmkey,_m_key
+*line 860
+move.l #_nokey,_d_key
+*line 862
+move.l #_nokey,_not_fld
+*line 864
+move.l #_cxkstd,_cx_key
+*line 865
+move.l #_cykstd,_cy_key
+*line 866
+move.l #_cxgen,_cx_upd
+*line 867
+move.l #_cygen,_cy_upd
+*line 868
+move.l #_nokey,_xy_up
+*line 869
+move.l #_nokey,_xy_dn
+*line 871
+move #349,_curslim
+*line 873
+move _hcwval,_chtime
+*line 874
+move _vcwval,_cvtime
+*line 875
+move _curhold,_nchwait
+*line 876
+move _curhold,_ncvwait
+*line 877
+move #1,_chwait
+*line 878
+move #1,_cvwait
+*line 880
+move.l #_crate1,_cratex
+*line 881
+move.l #_crate1,_cratey
+*line 883
+move #1,_cmfirst
+*line 884
+clr _cmtype
+*line 886
+move #256,_cxval
+*line 887
+move #175,_cyval
+*line 889
+move _cyval,R0
+ext.l R0
+divs #14,R0
+move R0,_stcrow
+*line 890
+move _cxval,R0
+ext.l R0
+divs #8,R0
+move R0,_stccol
+*line 892
+clr _submenu
+*line 895
+clr _curinst
+*line 896
+move #12,_curfunc
+*line 897
+clr _curvce
+*line 899
+clr _asmode
+*line 900
+clr _gomode
+*line 901
+clr _ismode
+*line 902
+clr _pkctrl
+*line 903
+move _pkctrl,_oldpk
+*line 904
+clr _sliders
+*line 905
+move _sliders,_oldsl
+*line 906
+move.l #_t_prmtr,_swpt
+*line 907
+move.l _swpt,_oldsw
+*line 908
+jsr _setleds
+*line 910
+jsr _initpt
+*line 911
+jsr _initsq
+*line 912
+jsr _initil
+*line 913
+jsr _iniwslb
+*line 914
+jsr _inital
+*line 915
+jsr _inittl
+*line 916
+jsr _scinit
+*line 918
+clr (sp)
+move #1,-(sp)
+jsr _clearer
+addq.l #2,sp
+*line 919
+clr R0
+move R0,_curasg
+move R0,(sp)
+jsr _getasg
+*line 921
+jsr _lcdlbls
+*line 922
+clr _lampsw
+L30:tst.l (sp)+
+movem.l (sp)+,R5-R7/R12-R13
+unlk R14
+rts
+.data
+L31:.dc.b $4D,$49,$44,$41,$53,$20,$37,$20,$2D,$2D,$20,$49,$6E,$69,$74,$69,$61,$6C,$69,$7A,$61,$74,$69,$6F,$6E,$20,$69,$6E,$20,$70
+.dc.b $72,$6F,$67,$72,$65,$73,$73,$20,$2D,$2D,$20,$50,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0
