.globl _ebflag
.globl _ebuf
.globl _curfet
.globl _cfetp
.globl _infetp
.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 _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 _ancmsw
.globl _angroup
.globl _astat
.globl _clkrun
.globl _cmfirst
.globl _cmtype
.globl _curhold
.globl _curscor
.globl _cxrate
.globl _cxval
.globl _cyrate
.globl _cyval
.globl _ebflag
.globl _hcwval
.globl _insmode
.globl _oldpk
.globl _oldsl
.globl _pkctrl
.globl _recsw
.globl _scmctl
.globl _sdmctl
.globl _sliders
.globl _stccol
.globl _stcrow
.globl _thcwval
.globl _tvcwval
.globl _vcwval
.globl _vtccol
.globl _vtcrow
.globl _vtxval
.globl _vtyval
.globl _ctime
.globl _t_ins
.globl _ebuf
.globl _crate1
.globl _ehdlist
.globl _grpmode
.globl _grpstat
.globl _grptmap
.globl _sdmlim
.globl _varmode
.globl _swpt
.globl _oldsw
.globl _cfetp
.globl _curfet
.globl _infetp
.globl _csbp
.globl _sdboxes
.globl _peg
.globl _sc_fet1
.data
_sc_fet1:
.dc.w $0
.dc.w $2
.dc.w $4
.dc.w $0
*line 124
.dc.l _et_strn
*line 124
.dc.l _ef_strn
*line 124
.dc.l _rd_strn
*line 124
.dc.l _nd_strn
.dc.w $0
.dc.w $B
.dc.w $F
.dc.w $0
*line 125
.dc.l _et_snbt
*line 125
.dc.l _ef_snbt
*line 125
.dc.l _rd_snbt
*line 125
.dc.l _nd_snbt
.dc.w $11
.dc.w $B
.dc.w $C
.dc.w $0
*line 127
.dc.l _et_ioas
*line 127
.dc.l _ef_ioas
*line 127
.dc.l _rd_ioas
*line 127
.dc.l _nd_ioas
.dc.w $11
.dc.w $13
.dc.w $13
.dc.w $0
*line 128
.dc.l _et_tune
*line 128
.dc.l _ef_tune
*line 128
.dc.l _rd_tune
*line 128
.dc.l _nd_tune
.dc.w $11
.dc.w $1B
.dc.w $1D
.dc.w $0
*line 129
.dc.l _et_tmpo
*line 129
.dc.l _ef_tmpo
*line 129
.dc.l _rd_tmpo
*line 129
.dc.l _nd_tmpo
.dc.w $11
.dc.w $23
.dc.w $26
.dc.w $0
*line 130
.dc.l _et_intp
*line 130
.dc.l _ef_intp
*line 130
.dc.l _rd_intp
*line 130
.dc.l _nd_intp
.dc.w $12
.dc.w $7
.dc.w $8
.dc.w $0
*line 132
.dc.l _et_inst
*line 132
.dc.l _ef_inst
*line 132
.dc.l _rd_inst
*line 132
.dc.l _nd_inst
.dc.w $12
.dc.w $C
.dc.w $D
.dc.w $1
*line 133
.dc.l _et_inst
*line 133
.dc.l _ef_inst
*line 133
.dc.l _rd_inst
*line 133
.dc.l _nd_inst
.dc.w $12
.dc.w $11
.dc.w $12
.dc.w $2
*line 134
.dc.l _et_inst
*line 134
.dc.l _ef_inst
*line 134
.dc.l _rd_inst
*line 134
.dc.l _nd_inst
.dc.w $12
.dc.w $16
.dc.w $17
.dc.w $3
*line 135
.dc.l _et_inst
*line 135
.dc.l _ef_inst
*line 135
.dc.l _rd_inst
*line 135
.dc.l _nd_inst
.dc.w $12
.dc.w $1B
.dc.w $1C
.dc.w $4
*line 136
.dc.l _et_inst
*line 136
.dc.l _ef_inst
*line 136
.dc.l _rd_inst
*line 136
.dc.l _nd_inst
.dc.w $12
.dc.w $20
.dc.w $21
.dc.w $5
*line 137
.dc.l _et_inst
*line 137
.dc.l _ef_inst
*line 137
.dc.l _rd_inst
*line 137
.dc.l _nd_inst
.dc.w $12
.dc.w $25
.dc.w $26
.dc.w $6
*line 138
.dc.l _et_inst
*line 138
.dc.l _ef_inst
*line 138
.dc.l _rd_inst
*line 138
.dc.l _nd_inst
.dc.w $12
.dc.w $2A
.dc.w $2B
.dc.w $7
*line 139
.dc.l _et_inst
*line 139
.dc.l _ef_inst
*line 139
.dc.l _rd_inst
*line 139
.dc.l _nd_inst
.dc.w $12
.dc.w $2F
.dc.w $30
.dc.w $8
*line 140
.dc.l _et_inst
*line 140
.dc.l _ef_inst
*line 140
.dc.l _rd_inst
*line 140
.dc.l _nd_inst
.dc.w $12
.dc.w $34
.dc.w $35
.dc.w $9
*line 141
.dc.l _et_inst
*line 141
.dc.l _ef_inst
*line 141
.dc.l _rd_inst
*line 141
.dc.l _nd_inst
.dc.w $12
.dc.w $39
.dc.w $3A
.dc.w $A
*line 142
.dc.l _et_inst
*line 142
.dc.l _ef_inst
*line 142
.dc.l _rd_inst
*line 142
.dc.l _nd_inst
.dc.w $12
.dc.w $3E
.dc.w $3F
.dc.w $B
*line 143
.dc.l _et_inst
*line 143
.dc.l _ef_inst
*line 143
.dc.l _rd_inst
*line 143
.dc.l _nd_inst
.dc.w $13
.dc.w $5
.dc.w $8
.dc.w $0
*line 145
.dc.l _et_trns
*line 145
.dc.l _ef_trns
*line 145
.dc.l _rd_trns
*line 145
.dc.l _nd_trns
.dc.w $13
.dc.w $A
.dc.w $D
.dc.w $1
*line 146
.dc.l _et_trns
*line 146
.dc.l _ef_trns
*line 146
.dc.l _rd_trns
*line 146
.dc.l _nd_trns
.dc.w $13
.dc.w $F
.dc.w $12
.dc.w $2
*line 147
.dc.l _et_trns
*line 147
.dc.l _ef_trns
*line 147
.dc.l _rd_trns
*line 147
.dc.l _nd_trns
.dc.w $13
.dc.w $14
.dc.w $17
.dc.w $3
*line 148
.dc.l _et_trns
*line 148
.dc.l _ef_trns
*line 148
.dc.l _rd_trns
*line 148
.dc.l _nd_trns
.dc.w $13
.dc.w $19
.dc.w $1C
.dc.w $4
*line 149
.dc.l _et_trns
*line 149
.dc.l _ef_trns
*line 149
.dc.l _rd_trns
*line 149
.dc.l _nd_trns
.dc.w $13
.dc.w $1E
.dc.w $21
.dc.w $5
*line 150
.dc.l _et_trns
*line 150
.dc.l _ef_trns
*line 150
.dc.l _rd_trns
*line 150
.dc.l _nd_trns
.dc.w $13
.dc.w $23
.dc.w $26
.dc.w $6
*line 151
.dc.l _et_trns
*line 151
.dc.l _ef_trns
*line 151
.dc.l _rd_trns
*line 151
.dc.l _nd_trns
.dc.w $13
.dc.w $28
.dc.w $2B
.dc.w $7
*line 152
.dc.l _et_trns
*line 152
.dc.l _ef_trns
*line 152
.dc.l _rd_trns
*line 152
.dc.l _nd_trns
.dc.w $13
.dc.w $2D
.dc.w $30
.dc.w $8
*line 153
.dc.l _et_trns
*line 153
.dc.l _ef_trns
*line 153
.dc.l _rd_trns
*line 153
.dc.l _nd_trns
.dc.w $13
.dc.w $32
.dc.w $35
.dc.w $9
*line 154
.dc.l _et_trns
*line 154
.dc.l _ef_trns
*line 154
.dc.l _rd_trns
*line 154
.dc.l _nd_trns
.dc.w $13
.dc.w $37
.dc.w $3A
.dc.w $A
*line 155
.dc.l _et_trns
*line 155
.dc.l _ef_trns
*line 155
.dc.l _rd_trns
*line 155
.dc.l _nd_trns
.dc.w $13
.dc.w $3C
.dc.w $3F
.dc.w $B
*line 156
.dc.l _et_trns
*line 156
.dc.l _ef_trns
*line 156
.dc.l _rd_trns
*line 156
.dc.l _nd_trns
.dc.w $14
.dc.w $6
.dc.w $6
.dc.w $0
*line 161
.dc.l _et_dyn
*line 161
.dc.l _ef_dyn
*line 161
.dc.l _rd_dyn
*line 161
.dc.l _nd_dyn
.dc.w $14
.dc.w $8
.dc.w $8
.dc.w $0
*line 162
.dc.l _et_loc
*line 162
.dc.l _ef_loc
*line 162
.dc.l _rd_loc
*line 162
.dc.l _nd_loc
.dc.w $14
.dc.w $B
.dc.w $B
.dc.w $1
*line 164
.dc.l _et_dyn
*line 164
.dc.l _ef_dyn
*line 164
.dc.l _rd_dyn
*line 164
.dc.l _nd_dyn
.dc.w $14
.dc.w $D
.dc.w $D
.dc.w $1
*line 165
.dc.l _et_loc
*line 165
.dc.l _ef_loc
*line 165
.dc.l _rd_loc
*line 165
.dc.l _nd_loc
.dc.w $14
.dc.w $10
.dc.w $10
.dc.w $2
*line 167
.dc.l _et_dyn
*line 167
.dc.l _ef_dyn
*line 167
.dc.l _rd_dyn
*line 167
.dc.l _nd_dyn
.dc.w $14
.dc.w $12
.dc.w $12
.dc.w $2
*line 168
.dc.l _et_loc
*line 168
.dc.l _ef_loc
*line 168
.dc.l _rd_loc
*line 168
.dc.l _nd_loc
.dc.w $14
.dc.w $15
.dc.w $15
.dc.w $3
*line 170
.dc.l _et_dyn
*line 170
.dc.l _ef_dyn
*line 170
.dc.l _rd_dyn
*line 170
.dc.l _nd_dyn
.dc.w $14
.dc.w $17
.dc.w $17
.dc.w $3
*line 171
.dc.l _et_loc
*line 171
.dc.l _ef_loc
*line 171
.dc.l _rd_loc
*line 171
.dc.l _nd_loc
.dc.w $14
.dc.w $1A
.dc.w $1A
.dc.w $4
*line 173
.dc.l _et_dyn
*line 173
.dc.l _ef_dyn
*line 173
.dc.l _rd_dyn
*line 173
.dc.l _nd_dyn
.dc.w $14
.dc.w $1C
.dc.w $1C
.dc.w $4
*line 174
.dc.l _et_loc
*line 174
.dc.l _ef_loc
*line 174
.dc.l _rd_loc
*line 174
.dc.l _nd_loc
.dc.w $14
.dc.w $1F
.dc.w $1F
.dc.w $5
*line 176
.dc.l _et_dyn
*line 176
.dc.l _ef_dyn
*line 176
.dc.l _rd_dyn
*line 176
.dc.l _nd_dyn
.dc.w $14
.dc.w $21
.dc.w $21
.dc.w $5
*line 177
.dc.l _et_loc
*line 177
.dc.l _ef_loc
*line 177
.dc.l _rd_loc
*line 177
.dc.l _nd_loc
.dc.w $14
.dc.w $24
.dc.w $24
.dc.w $6
*line 179
.dc.l _et_dyn
*line 179
.dc.l _ef_dyn
*line 179
.dc.l _rd_dyn
*line 179
.dc.l _nd_dyn
.dc.w $14
.dc.w $26
.dc.w $26
.dc.w $6
*line 180
.dc.l _et_loc
*line 180
.dc.l _ef_loc
*line 180
.dc.l _rd_loc
*line 180
.dc.l _nd_loc
.dc.w $14
.dc.w $29
.dc.w $29
.dc.w $7
*line 182
.dc.l _et_dyn
*line 182
.dc.l _ef_dyn
*line 182
.dc.l _rd_dyn
*line 182
.dc.l _nd_dyn
.dc.w $14
.dc.w $2B
.dc.w $2B
.dc.w $7
*line 183
.dc.l _et_loc
*line 183
.dc.l _ef_loc
*line 183
.dc.l _rd_loc
*line 183
.dc.l _nd_loc
.dc.w $14
.dc.w $2E
.dc.w $2E
.dc.w $8
*line 185
.dc.l _et_dyn
*line 185
.dc.l _ef_dyn
*line 185
.dc.l _rd_dyn
*line 185
.dc.l _nd_dyn
.dc.w $14
.dc.w $30
.dc.w $30
.dc.w $8
*line 186
.dc.l _et_loc
*line 186
.dc.l _ef_loc
*line 186
.dc.l _rd_loc
*line 186
.dc.l _nd_loc
.dc.w $14
.dc.w $33
.dc.w $33
.dc.w $9
*line 188
.dc.l _et_dyn
*line 188
.dc.l _ef_dyn
*line 188
.dc.l _rd_dyn
*line 188
.dc.l _nd_dyn
.dc.w $14
.dc.w $35
.dc.w $35
.dc.w $9
*line 189
.dc.l _et_loc
*line 189
.dc.l _ef_loc
*line 189
.dc.l _rd_loc
*line 189
.dc.l _nd_loc
.dc.w $14
.dc.w $38
.dc.w $38
.dc.w $A
*line 191
.dc.l _et_dyn
*line 191
.dc.l _ef_dyn
*line 191
.dc.l _rd_dyn
*line 191
.dc.l _nd_dyn
.dc.w $14
.dc.w $3A
.dc.w $3A
.dc.w $A
*line 192
.dc.l _et_loc
*line 192
.dc.l _ef_loc
*line 192
.dc.l _rd_loc
*line 192
.dc.l _nd_loc
.dc.w $14
.dc.w $3D
.dc.w $3D
.dc.w $B
*line 194
.dc.l _et_dyn
*line 194
.dc.l _ef_dyn
*line 194
.dc.l _rd_dyn
*line 194
.dc.l _nd_dyn
.dc.w $14
.dc.w $3F
.dc.w $3F
.dc.w $B
*line 195
.dc.l _et_loc
*line 195
.dc.l _ef_loc
*line 195
.dc.l _rd_loc
*line 195
.dc.l _nd_loc
.dc.w $15
.dc.w $6
.dc.w $8
.dc.w $0
*line 200
.dc.l _et_vel
*line 200
.dc.l _ef_vel
*line 200
.dc.l _rd_vel
*line 200
.dc.l _nd_vel
.dc.w $15
.dc.w $B
.dc.w $D
.dc.w $1
*line 201
.dc.l _et_vel
*line 201
.dc.l _ef_vel
*line 201
.dc.l _rd_vel
*line 201
.dc.l _nd_vel
.dc.w $15
.dc.w $10
.dc.w $12
.dc.w $2
*line 202
.dc.l _et_vel
*line 202
.dc.l _ef_vel
*line 202
.dc.l _rd_vel
*line 202
.dc.l _nd_vel
.dc.w $15
.dc.w $15
.dc.w $17
.dc.w $3
*line 203
.dc.l _et_vel
*line 203
.dc.l _ef_vel
*line 203
.dc.l _rd_vel
*line 203
.dc.l _nd_vel
.dc.w $15
.dc.w $1A
.dc.w $1C
.dc.w $4
*line 204
.dc.l _et_vel
*line 204
.dc.l _ef_vel
*line 204
.dc.l _rd_vel
*line 204
.dc.l _nd_vel
.dc.w $15
.dc.w $1F
.dc.w $21
.dc.w $5
*line 205
.dc.l _et_vel
*line 205
.dc.l _ef_vel
*line 205
.dc.l _rd_vel
*line 205
.dc.l _nd_vel
.dc.w $15
.dc.w $24
.dc.w $26
.dc.w $6
*line 206
.dc.l _et_vel
*line 206
.dc.l _ef_vel
*line 206
.dc.l _rd_vel
*line 206
.dc.l _nd_vel
.dc.w $15
.dc.w $29
.dc.w $2B
.dc.w $7
*line 207
.dc.l _et_vel
*line 207
.dc.l _ef_vel
*line 207
.dc.l _rd_vel
*line 207
.dc.l _nd_vel
.dc.w $15
.dc.w $2E
.dc.w $30
.dc.w $8
*line 208
.dc.l _et_vel
*line 208
.dc.l _ef_vel
*line 208
.dc.l _rd_vel
*line 208
.dc.l _nd_vel
.dc.w $15
.dc.w $33
.dc.w $35
.dc.w $9
*line 209
.dc.l _et_vel
*line 209
.dc.l _ef_vel
*line 209
.dc.l _rd_vel
*line 209
.dc.l _nd_vel
.dc.w $15
.dc.w $38
.dc.w $3A
.dc.w $A
*line 210
.dc.l _et_vel
*line 210
.dc.l _ef_vel
*line 210
.dc.l _rd_vel
*line 210
.dc.l _nd_vel
.dc.w $15
.dc.w $3D
.dc.w $3F
.dc.w $B
*line 211
.dc.l _et_vel
*line 211
.dc.l _ef_vel
*line 211
.dc.l _rd_vel
*line 211
.dc.l _nd_vel
.dc.w $17
.dc.w $6
.dc.w $6
.dc.w $0
*line 214
.dc.l _et_res1
*line 214
.dc.l _ef_res1
*line 214
.dc.l _rd_res1
*line 214
.dc.l _nd_res1
.dc.w $17
.dc.w $8
.dc.w $C
.dc.w $0
*line 215
.dc.l _et_aval
*line 215
.dc.l _ef_aval
*line 215
.dc.l _rd_aval
*line 215
.dc.l _nd_aval
.dc.w $17
.dc.w $F
.dc.w $F
.dc.w $1
*line 217
.dc.l _et_res1
*line 217
.dc.l _ef_res1
*line 217
.dc.l _rd_res1
*line 217
.dc.l _nd_res1
.dc.w $17
.dc.w $11
.dc.w $15
.dc.w $1
*line 218
.dc.l _et_aval
*line 218
.dc.l _ef_aval
*line 218
.dc.l _rd_aval
*line 218
.dc.l _nd_aval
.dc.w $17
.dc.w $18
.dc.w $18
.dc.w $2
*line 220
.dc.l _et_res1
*line 220
.dc.l _ef_res1
*line 220
.dc.l _rd_res1
*line 220
.dc.l _nd_res1
.dc.w $17
.dc.w $1A
.dc.w $1E
.dc.w $2
*line 221
.dc.l _et_aval
*line 221
.dc.l _ef_aval
*line 221
.dc.l _rd_aval
*line 221
.dc.l _nd_aval
.dc.w $17
.dc.w $21
.dc.w $21
.dc.w $3
*line 223
.dc.l _et_res1
*line 223
.dc.l _ef_res1
*line 223
.dc.l _rd_res1
*line 223
.dc.l _nd_res1
.dc.w $17
.dc.w $23
.dc.w $27
.dc.w $3
*line 224
.dc.l _et_aval
*line 224
.dc.l _ef_aval
*line 224
.dc.l _rd_aval
*line 224
.dc.l _nd_aval
.dc.w $17
.dc.w $2A
.dc.w $2A
.dc.w $4
*line 226
.dc.l _et_res1
*line 226
.dc.l _ef_res1
*line 226
.dc.l _rd_res1
*line 226
.dc.l _nd_res1
.dc.w $17
.dc.w $2C
.dc.w $30
.dc.w $4
*line 227
.dc.l _et_aval
*line 227
.dc.l _ef_aval
*line 227
.dc.l _rd_aval
*line 227
.dc.l _nd_aval
.dc.w $17
.dc.w $33
.dc.w $33
.dc.w $5
*line 229
.dc.l _et_res1
*line 229
.dc.l _ef_res1
*line 229
.dc.l _rd_res1
*line 229
.dc.l _nd_res1
.dc.w $17
.dc.w $35
.dc.w $39
.dc.w $5
*line 230
.dc.l _et_aval
*line 230
.dc.l _ef_aval
*line 230
.dc.l _rd_aval
*line 230
.dc.l _nd_aval
.dc.w $17
.dc.w $3D
.dc.w $3E
.dc.w $0
*line 232
.dc.l _et_agrp
*line 232
.dc.l _ef_agrp
*line 232
.dc.l _rd_agrp
*line 232
.dc.l _nd_agrp
.dc.w $18
.dc.w $7
.dc.w $8
.dc.w $0
*line 234
.dc.l _et_scor
*line 234
.dc.l _ef_scor
*line 234
.dc.l _rd_scor
*line 234
.dc.l _nd_scor
.dc.w $18
.dc.w $A
.dc.w $19
.dc.w $0
*line 235
.dc.l _et_null
*line 235
.dc.l _ef_null
*line 235
.dc.l _rd_null
*line 235
.dc.l _nd_null
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.dc.l $0
.dc.l $0
.dc.l $0
.globl _sc_flds
.data
_sc_flds:
*line 246
.dc.l _stdctp3
*line 247
.dc.l _nokey
*line 248
.dc.l _nokey
*line 249
.dc.l _cxkstd
*line 250
.dc.l _cykstd
*line 251
.dc.l _sdcxu
*line 252
.dc.l _sdcyu
*line 253
.dc.l _nokey
*line 254
.dc.l _nokey
*line 255
.dc.l _sdxkey
*line 256
.dc.l _select
*line 257
.dc.l _sdmkey
*line 258
.dc.l _stddkey
*line 259
.dc.l _scntfld
*line 260
.dc.l _sc_fet1
*line 261
.dc.l _sdboxes
*line 262
.dc.l _crate1
*line 263
.dc.l _crate1
.dc.w $0
.dc.w $100
.dc.w $AF
.globl _et_null
.text
_et_null:
~~et_null:
link R14,#-4
*line 281
clr R0
bra L1
L1:unlk R14
rts
.globl _ef_null
.text
_ef_null:
~~ef_null:
link R14,#-4
*line 287
clr R0
bra L2
L2:unlk R14
rts
.globl _rd_null
.text
_rd_null:
~~rd_null:
link R14,#-4
*line 293
clr R0
bra L3
L3:unlk R14
rts
.globl _nd_null
.text
_nd_null:
~~nd_null:
link R14,#-4
*line 299
clr R0
bra L4
L4:unlk R14
rts
.globl _istart
.text
_istart:
~~istart:
link R14,#0
movem.l R7-R7/R11-R13,-(sp)
~ep=R13
~pp=R12
~tp=R11
*line 315
*line 316
tst _insmode
bne L5
*line 317
*line 318
move.l _t_cur,(sp)
move #1,-(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,R13
*line 320
*line 321
move.b 5(R13),R0
ext.w R0
and #127,R0
cmp #1,R0
bne L6
*line 321
move.l 12(R13),R13
*line 322
L6:
*line 323
*line 324
move.b 5(R13),R0
ext.w R0
and #127,R0
cmp #21,R0
beq L5
*line 325
*line 326
move _curscor,R8
add.l R8,R8
add.l R8,R8
move.l #_scores,R9
move.l 0(R8,R9.l),R8
move.l 8(R8),R11
*line 327
move.l 8(R13),R12
*line 329
clr.l 8(R13)
*line 330
move.l R11,12(R12)
*line 331
move.l 8(R11),R8
move.l #$0,12(R8)
*line 333
move.l R12,8(R11)
*line 335
move.l _t_cur,_t_ins
*line 336
move.l R13,_peg
*line 338
move.l _t_cur,(sp)
clr -(sp)
move.l R12,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 339
move.l _p_cur,_p_ctr
*line 340
move.l _t_bak,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_bak
*line 341
move.l _t_fwd,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_fwd
*line 343
move #1,_insmode
L5:tst.l (sp)+
movem.l (sp)+,R11-R13
unlk R14
rts
.globl _icancel
.text
_icancel:
~~icancel:
link R14,#-8
movem.l R7-R7/R11-R13,-(sp)
~ep=R13
~tp=R12
~rp=R11
~pp=-4
~endtime=-8
*line 361
*line 362
tst _insmode
beq L7
*line 363
*line 364
move _curscor,R8
add.l R8,R8
add.l R8,R8
move.l #_scores,R9
move.l 0(R8,R9.l),R8
move.l 8(R8),R12
*line 365
move.l 8(R12),-4(R14)
*line 367
move.l -4(R14),R8
move.l (R8),-8(R14)
*line 369
*line 370
move.l _t_cur,R0
cmp.l -8(R14),R0
ble L8
*line 370
move.l _t_cur,-8(R14)
*line 371
L8:
*line 372
move.l _peg,R11
*line 374
bra L11
L10:
*line 375
*line 376
move.l R11,R13
*line 377
move.l 12(R13),R11
*line 378
*line 379
move.l (R13),R0
sub.l _t_ins,R0
add.l -8(R14),R0
move.l R0,(R13)
L11:
*line 380
move.l R11,R0
bne L10
L9:
*line 382
move.l R12,12(R13)
*line 383
move.l R13,8(R12)
*line 385
move.l -4(R14),R8
move.l _peg,12(R8)
*line 386
move.l _peg,R8
move.l -4(R14),8(R8)
*line 388
move.l _t_cur,(sp)
clr -(sp)
move.l -4(R14),-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 389
move.l _p_cur,_p_ctr
*line 390
move.l _t_bak,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_bak
*line 391
move.l _t_fwd,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_fwd
*line 393
clr _insmode
L7:tst.l (sp)+
movem.l (sp)+,R11-R13
unlk R14
rts
.globl _sdcxu
.text
_sdcxu:
~~sdcxu:
link R14,#-4
*line 407
*line 407
tst _sdmctl
bne L13
*line 408
*line 409
jsr _vtcxupd
*line 410
bra L14
L13:
*line 411
*line 411
tst _sdmctl
ble L15
*line 412
*line 413
move _cxrate,R0
add R0,_vtxval
move _vtxval,R0
asr #3,R0
move R0,_vtccol
*line 414
*line 415
*line 416
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 6(R8,R9.l),R0
cmp _vtccol,R0
bge L16
*line 416
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 6(R8,R9.l),R0
move R0,_vtccol
asl #3,R0
move R0,_vtxval
bra L17
L16:
*line 417
*line 418
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 2(R8,R9.l),R0
cmp _vtccol,R0
ble L18
*line 418
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 2(R8,R9.l),R0
move R0,_vtccol
asl #3,R0
move R0,_vtxval
*line 419
L18:L17:bra L19
L15:
*line 420
*line 421
*line 422
move _cxrate,R0
add R0,_cxval
*line 423
*line 424
*line 425
cmp #511,_cxval
ble L20
*line 425
move #511,_cxval
bra L21
L20:
*line 426
*line 427
tst _cxval
bge L22
*line 427
clr _cxval
L22:L21:L19:L14:bra L12
L12:unlk R14
rts
.globl _sdcyu
.text
_sdcyu:
~~sdcyu:
link R14,#-4
*line 444
*line 444
tst _sdmctl
bne L24
*line 445
*line 446
jsr _vtcyupd
*line 447
bra L25
L24:
*line 448
*line 448
tst _sdmctl
ble L26
*line 449
*line 450
move _cyrate,R0
add R0,_vtyval
move _vtyval,R0
ext.l R0
divs #14,R0
move R0,_vtcrow
*line 451
*line 452
*line 453
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 0(R8,R9.l),R0
cmp _vtcrow,R0
ble L27
*line 453
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 0(R8,R9.l),R0
move R0,_vtcrow
muls #14,R0
move R0,_vtyval
bra L28
L27:
*line 454
*line 455
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 4(R8,R9.l),R0
cmp _vtcrow,R0
bge L29
*line 455
move _sdmctl,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 4(R8,R9.l),R0
move R0,_vtcrow
muls #14,R0
move R0,_vtyval
*line 456
L29:L28:bra L30
L26:
*line 457
*line 458
*line 459
move _cyrate,R0
add R0,_cyval
*line 460
*line 461
*line 462
cmp #349,_cyval
ble L31
*line 462
move #349,_cyval
bra L32
L31:
*line 463
*line 464
tst _cyval
bge L33
*line 464
clr _cyval
*line 465
L33:L32:L30:L25:bra L23
L23:unlk R14
rts
.globl _scntfld
.text
_scntfld:
~~scntfld:
~k=8
link R14,#0
movem.l R4-R7,-(sp)
~grp=R7
~fnc=R6
~var=R5
*line 486
*line 487
tst _astat
bne L35
*line 487
move #-1,R0
bra L34
*line 488
L35:
*line 489
*line 489
cmp #18,_stcrow
bne L36
*line 490
*line 491
*line 492
cmp #5,_stccol
bge L37
*line 492
move #-1,R0
bra L34
*line 493
L37:
*line 494
move _stccol,R7
sub #5,R7
ext.l R7
divs #5,R7
*line 495
move _stccol,R6
sub #5,R6
ext.l R6
divs #5,R6
swap R6
*line 496
*line 497
*line 497
tst R6
bne L38
*line 498
*line 499
*line 499
cmp #8,8(R14)
bne L39
*line 500
*line 501
move R7,R8
add.l R8,R8
add.l #_grpstat,R8
clr (R8)
*line 502
move R7,(sp)
jsr _dsgstat
*line 503
clr R0
bra L34
*line 504
bra L40
L39:
*line 505
*line 505
cmp #9,8(R14)
bne L41
*line 506
*line 507
move R7,R8
add.l R8,R8
add.l #_grpstat,R8
move #1,(R8)
*line 508
move R7,(sp)
jsr _dsgstat
*line 509
clr R0
bra L34
*line 510
*line 511
bra L42
L41:
*line 512
move #-1,R0
bra L34
L42:L40:
*line 513
*line 514
bra L43
L38:
*line 515
*line 515
cmp #1,R6
bne L44
*line 516
*line 517
*line 517
cmp #8,8(R14)
bne L45
*line 518
*line 519
move R7,R8
add.l R8,R8
add.l #_grpmode,R8
clr (R8)
*line 520
move R7,(sp)
jsr _dsgmode
*line 521
clr R0
bra L34
*line 522
bra L46
L45:
*line 523
*line 523
cmp #9,8(R14)
bne L47
*line 524
*line 525
*line 526
move R7,R8
add.l R8,R8
add.l #_grpmode,R8
add #1,(R8)
move (R8),R0
cmp #1,R0
ble L48
*line 526
move R7,R8
add.l R8,R8
add.l #_grpmode,R8
move #2,(R8)
*line 527
L48:
*line 528
move R7,(sp)
jsr _dsgmode
*line 529
clr R0
bra L34
*line 530
*line 531
bra L49
L47:
*line 532
move #-1,R0
bra L34
L49:L46:
*line 533
*line 534
bra L50
L44:
*line 535
move #-1,R0
bra L34
L50:L43:
*line 536
*line 537
bra L51
L36:
*line 538
*line 538
cmp #22,_stcrow
bne L52
*line 539
*line 540
*line 541
cmp #5,_stccol
bge L53
*line 541
move #-1,R0
bra L34
*line 542
L53:
*line 543
move _stccol,R5
sub #5,R5
ext.l R5
divs #9,R5
*line 544
move _stccol,R6
sub #5,R6
ext.l R6
divs #9,R6
swap R6
*line 545
tst _angroup
bge L10000
move _angroup,R0
neg R0
bra L10002
L10000:move _angroup,R0
L10002:move R0,R7
sub #1,R7
*line 546
*line 547
*line 547
tst R6
bne L54
*line 548
*line 549
*line 549
cmp #8,8(R14)
bne L55
*line 550
*line 551
move R5,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 552
move R5,(sp)
jsr _dsvmode
*line 553
clr R0
bra L34
*line 554
bra L56
L55:
*line 555
*line 555
cmp #9,8(R14)
bne L57
*line 556
*line 557
*line 558
move R5,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
add #1,(R8)
move (R8),R0
cmp #1,R0
ble L58
*line 558
move R5,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
move #2,(R8)
*line 559
L58:
*line 560
move R5,(sp)
jsr _dsvmode
*line 561
clr R0
bra L34
*line 562
L57:L56:
*line 563
L54:
*line 564
*line 565
L52:L51:
*line 566
move #-1,R0
bra L34
L34:tst.l (sp)+
movem.l (sp)+,R5-R7
unlk R14
rts
.globl _cp2time
.text
_cp2time:
~~cp2time:
~cx=8
link R14,#0
movem.l R6-R7,-(sp)
~ct=R7
*line 586
move 8(R14),R7
ext.l R7
add.l _t_cur,R7
add.l #$ffffff00,R7
*line 588
*line 589
tst.l R7
bge L60
*line 589
clr R0
bra L59
*line 590
L60:
*line 591
move.l R7,_ctime
*line 592
move #1,R0
bra L59
L59:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _delevts
.text
_delevts:
~~delevts:
~etp=R7
~thetime=R6
link R14,#0
movem.l R2-R7/R12-R13,-(sp)
~ep=R13
~np=R12
~et=R5
~rc=R4
~dsw=R3
*line 614
move 8(R14),R7
*line 614
move.l 10(R14),R6
*line 614
clr R4
*line 616
move.l R6,(sp)
move #1,-(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,R13
*line 620
bra L64
L63:
*line 621
*line 622
move.l 12(R13),R12
*line 623
move.b 5(R13),R5
ext.w R5
and #127,R5
*line 624
move.l R13,(sp)
jsr _oktode
move R0,R3
*line 625
*line 626
*line 627
tst R3
beq L65
cmp #-1,R7
beq L10003
cmp R7,R5
bne L65
L10003:*line 628
*line 629
move #1,R4
*line 630
*line 631
*line 632
move R5,R8
add.l R8,R8
add.l #_ehdlist,R8
cmp #-1,(R8)
beq L66
*line 632
move R5,R8
add.l R8,R8
move.l #_ehdlist,R9
move 0(R8,R9.l),(sp)
move.l R13,-(sp)
jsr _eh_rmv
addq.l #4,sp
*line 633
*line 634
*line 635
L66:
*line 636
*line 637
cmp.l _p_bak,R13
bne L67
*line 637
move.l R12,_p_bak
*line 638
L67:
*line 639
*line 640
cmp.l _p_cur,R13
bne L68
*line 640
move.l R12,_p_cur
*line 641
L68:
*line 642
*line 643
cmp.l _p_ctr,R13
bne L69
*line 643
move.l R12,_p_ctr
*line 644
L69:
*line 645
*line 646
cmp.l _p_fwd,R13
bne L70
*line 646
move.l R12,_p_fwd
*line 647
L70:
*line 648
move.l R13,(sp)
jsr _e_rmv
move.l R0,(sp)
jsr _e_del
*line 649
*line 650
L65:
*line 651
move.l R12,R13
L64:
*line 652
cmp.l (R13),R6
beq L63
L62:
*line 654
*line 655
tst R4
beq L71
*line 655
move.l _t_cur,(sp)
jsr _sc_refr
*line 656
L71:
*line 657
move R4,R0
bra L61
L61:tst.l (sp)+
movem.l (sp)+,R3-R7/R12-R13
unlk R14
rts
.globl _deladat
.text
_deladat:
~~deladat:
link R14,#0
movem.l R2-R7/R12-R13,-(sp)
~ep=R13
~rp=R12
~grp=R7
~rc=R6
~var=R5
~vc=R4
~vn=R3
*line 675
clr R6
*line 677
*line 678
cmp #6,_stccol
bge L73
*line 678
move R6,R0
bra L72
*line 679
L73:
*line 680
move _stccol,R3
sub #6,R3
ext.l R3
divs #9,R3
*line 681
move _stccol,R4
sub #6,R4
ext.l R4
divs #9,R4
swap R4
*line 683
move.l _t_cur,(sp)
move #1,-(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,R13
*line 685
*line 685
tst R4
bne L74
*line 686
*line 687
bra L77
L76:
*line 688
*line 689
move.l 12(R13),R12
*line 690
*line 691
*line 691
move.b 5(R13),R0
ext.w R0
and #127,R0
cmp #15,R0
bne L78
*line 692
*line 693
move.b 6(R13),R7
ext.w R7
and #15,R7
*line 694
move.b 6(R13),R5
ext.w R5
asr #4,R5
and #15,R5
*line 695
*line 696
*line 697
*line 698
cmp R3,R5
bne L79
move R7,R8
add.l R8,R8
move.l #_grpstat,R9
tst 0(R8,R9.l)
beq L79
tst _ancmsw
beq L10004
move R5,R0
asl #5,R0
ext.l R0
move R7,R1
asl #1,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_varmode,R9
move 0(R8,R9.l),R0
bra L10006
L10004:move R7,R8
add.l R8,R8
move.l #_grpmode,R9
move 0(R8,R9.l),R0
L10006:cmp #2,R0
bne L79
*line 699
*line 700
*line 701
*line 702
*line 703
cmp.l _p_bak,R13
bne L80
*line 703
move.l R12,_p_bak
*line 704
L80:
*line 705
*line 706
cmp.l _p_cur,R13
bne L81
*line 706
move.l R12,_p_cur
*line 707
L81:
*line 708
*line 709
cmp.l _p_ctr,R13
bne L82
*line 709
move.l R12,_p_ctr
*line 710
L82:
*line 711
*line 712
cmp.l _p_fwd,R13
bne L83
*line 712
move.l R12,_p_fwd
*line 713
*line 714
*line 715
L83:
*line 716
move #4,(sp)
move.l R13,-(sp)
jsr _eh_rmv
addq.l #4,sp
*line 717
move.l R13,(sp)
jsr _e_rmv
move.l R0,(sp)
jsr _e_del
*line 718
move #1,R6
*line 719
L79:
*line 720
*line 721
L78:
*line 722
move.l R12,R13
L77:
*line 723
move.l (R13),R0
cmp.l _t_cur,R0
beq L76
L75:
*line 724
*line 725
bra L84
L74:
*line 726
*line 726
cmp #2,R4
blt L85
cmp #6,R4
bgt L85
*line 727
*line 728
bra L88
L87:
*line 729
*line 730
move.l 12(R13),R12
*line 731
*line 732
*line 732
move.b 5(R13),R0
ext.w R0
and #127,R0
cmp #14,R0
bne L89
*line 733
*line 734
move.b 6(R13),R7
ext.w R7
and #15,R7
*line 735
move.b 6(R13),R5
ext.w R5
asr #4,R5
and #15,R5
*line 736
*line 737
*line 738
*line 739
cmp R3,R5
bne L90
move R7,R8
add.l R8,R8
move.l #_grpstat,R9
tst 0(R8,R9.l)
beq L90
tst _ancmsw
beq L10007
move R5,R0
asl #5,R0
ext.l R0
move R7,R1
asl #1,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_varmode,R9
move 0(R8,R9.l),R0
bra L10009
L10007:move R7,R8
add.l R8,R8
move.l #_grpmode,R9
move 0(R8,R9.l),R0
L10009:cmp #2,R0
bne L90
*line 740
*line 741
*line 742
*line 743
*line 744
cmp.l _p_bak,R13
bne L91
*line 744
move.l R12,_p_bak
*line 745
L91:
*line 746
*line 747
cmp.l _p_cur,R13
bne L92
*line 747
move.l R12,_p_cur
*line 748
L92:
*line 749
*line 750
cmp.l _p_ctr,R13
bne L93
*line 750
move.l R12,_p_ctr
*line 751
L93:
*line 752
*line 753
cmp.l _p_fwd,R13
bne L94
*line 753
move.l R12,_p_fwd
*line 754
L94:
*line 755
move.l R13,(sp)
jsr _e_rmv
move.l R0,(sp)
jsr _e_del
*line 756
move #1,R6
*line 757
L90:
*line 758
*line 759
L89:
*line 760
move.l R12,R13
L88:
*line 761
move.l (R13),R0
cmp.l _t_cur,R0
beq L87
L86:
*line 762
*line 763
L85:L84:
*line 764
*line 764
tst R6
beq L95
*line 765
*line 766
move.l _fc_val,(sp)
jsr _sc_refr
*line 767
jsr _ds_anrs
*line 768
jsr _ds_anvl
*line 769
*line 770
L95:
*line 771
move R6,R0
bra L72
L72:tst.l (sp)+
movem.l (sp)+,R3-R7/R12-R13
unlk R14
rts
.globl _sdxkey
.text
_sdxkey:
~~sdxkey:
link R14,#0
movem.l R4-R7/R12-R13,-(sp)
~col=R7
~grp=R6
~sect=R5
~ep=R13
~rp=R12
*line 788
*line 789
tst _astat
beq L96
*line 790
*line 791
*line 792
tst _clkrun
bne L96
*line 793
*line 794
*line 795
cmp #-1,_scmctl
bne L96
*line 796
*line 797
*line 798
*line 798
cmp #4,_sdmctl
bne L97
*line 799
*line 800
*line 801
cmp #19,_vtcrow
beq L10010
cmp #20,_vtcrow
bne L98
L10010:cmp #24,_vtccol
blt L98
*line 802
*line 803
*line 804
tst _recsw
beq L96
*line 805
*line 806
*line 807
*line 808
move _vtccol,R5
add #-24,R5
asr #2,R5
cmp #20,_vtcrow
bne L10011
move #10,R0
bra L10013
L10011:clr R0
L10013:add R0,R5
*line 809
move _vtccol,R7
add #-24,R7
and #3,R7
*line 810
*line 811
move R7,R0
bra L100
*line 812
L101:
*line 813
*line 814
*line 815
*line 816
*line 816
move _curscor,R0
muls #80,R0
move R5,R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
move.l (R8),R13
move.l R13,R0
beq L102
*line 817
*line 818
*line 819
*line 820
move.l 12(R13),R12
*line 821
*line 822
*line 823
cmp.l _p_bak,R13
bne L103
*line 823
move.l R12,_p_bak
*line 824
L103:
*line 825
*line 826
cmp.l _p_cur,R13
bne L104
*line 826
move.l R12,_p_cur
*line 827
L104:
*line 828
*line 829
cmp.l _p_ctr,R13
bne L105
*line 829
move.l R12,_p_ctr
*line 830
L105:
*line 831
*line 832
cmp.l _p_fwd,R13
bne L106
*line 832
move.l R12,_p_fwd
*line 833
L106:
*line 834
move #10,(sp)
move.l R13,-(sp)
jsr _eh_rmv
addq.l #4,sp
*line 835
move.l R13,(sp)
jsr _e_rmv
move.l R0,(sp)
jsr _e_del
*line 836
move _curscor,R0
muls #80,R0
move R5,R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
move.l #$0,(R8)
*line 837
move #-1,(sp)
jsr _sdmenu
*line 838
move.l _fc_val,(sp)
jsr _sc_refr
*line 839
*line 840
L102:bra L99
*line 841
*line 842
*line 843
L107:
*line 844
L108:
*line 845
bra L99
*line 846
*line 847
L109:
*line 848
*line 849
*line 850
*line 851
move #-1,(sp)
move R5,-(sp)
move.l #$ffffffff,-(sp)
move #3,-(sp)
jsr _ehfind
addq.l #8,sp
move.l R0,R13
move.l R13,R0
beq L110
*line 852
*line 853
*line 854
*line 855
move.l 12(R13),R12
*line 856
*line 857
*line 858
cmp.l _p_bak,R13
bne L111
*line 858
move.l R12,_p_bak
*line 859
L111:
*line 860
*line 861
cmp.l _p_cur,R13
bne L112
*line 861
move.l R12,_p_cur
*line 862
L112:
*line 863
*line 864
cmp.l _p_ctr,R13
bne L113
*line 864
move.l R12,_p_ctr
*line 865
L113:
*line 866
*line 867
cmp.l _p_fwd,R13
bne L114
*line 867
move.l R12,_p_fwd
*line 868
L114:
*line 869
move #11,(sp)
move.l R13,-(sp)
jsr _eh_rmv
addq.l #4,sp
*line 870
move.l R13,(sp)
jsr _e_rmv
move.l R0,(sp)
jsr _e_del
*line 871
move #-1,(sp)
jsr _sdmenu
*line 872
move.l _fc_val,(sp)
jsr _sc_refr
*line 873
*line 874
L110:bra L99
*line 875
bra L99
L100:tst R0
beq L101
cmp #1,R0
beq L107
cmp #2,R0
beq L108
cmp #3,R0
beq L109
bra L99
L99:
*line 876
*line 877
bra L96
*line 878
*line 879
*line 880
*line 881
bra L115
L98:
*line 882
*line 883
cmp #23,_vtcrow
bne L116
cmp #28,_vtccol
blt L116
cmp #62,_vtccol
bgt L116
*line 884
*line 885
*line 886
*line 887
move _vtccol,R7
add #-28,R7
*line 888
*line 889
*line 890
move R7,R0
ext.l R0
divs #3,R0
swap R0
cmp #2,R0
beq L96
*line 891
*line 892
move R7,R6
ext.l R6
divs #3,R6
*line 893
move R6,R8
add.l R8,R8
add.l #_grptmap,R8
move #-1,(R8)
*line 894
move R6,(sp)
jsr _dsgtme
bra L96
*line 895
*line 896
L116:L115:
*line 897
*line 898
L97:
*line 899
*line 900
tst _recsw
beq L96
*line 901
*line 902
*line 902
cmp #14,_cyval
blt L117
cmp #223,_cyval
bgt L117
*line 903
*line 904
jsr _delnote
*line 905
bra L118
L117:
*line 906
*line 906
cmp #224,_cyval
blt L119
cmp #237,_cyval
bgt L119
*line 907
*line 908
*line 909
move _cxval,(sp)
jsr _cp2time
tst R0
beq L120
*line 909
move.l _ctime,(sp)
move #-1,-(sp)
jsr _delevts
addq.l #2,sp
*line 910
*line 911
*line 912
*line 913
L120:bra L121
L119:
*line 914
*line 914
cmp #17,_stcrow
bne L122
*line 915
*line 916
*line 917
cmp #11,_stccol
blt L123
cmp #12,_stccol
bgt L123
*line 917
move.l _t_cur,(sp)
move #16,-(sp)
jsr _delevts
addq.l #2,sp
bra L124
L123:
*line 918
*line 919
cmp #19,_stccol
bne L125
*line 919
move.l _t_cur,(sp)
move #10,-(sp)
jsr _delevts
addq.l #2,sp
bra L126
L125:
*line 920
*line 921
cmp #27,_stccol
blt L127
cmp #29,_stccol
bgt L127
*line 921
move.l _t_cur,(sp)
move #9,-(sp)
jsr _delevts
addq.l #2,sp
bra L128
L127:
*line 922
*line 923
cmp #36,_stccol
blt L129
cmp #38,_stccol
bgt L129
*line 923
move.l _t_cur,(sp)
move #8,-(sp)
jsr _delevts
addq.l #2,sp
bra L130
L129:
*line 924
*line 925
cmp #40,_stccol
blt L131
cmp #43,_stccol
bgt L131
*line 925
move.l _t_cur,(sp)
move #7,-(sp)
jsr _delevts
addq.l #2,sp
bra L132
L131:
*line 926
*line 927
cmp #45,_stccol
blt L133
cmp #48,_stccol
bgt L133
*line 927
move.l _t_cur,(sp)
move #24,-(sp)
jsr _delevts
addq.l #2,sp
bra L134
L133:
*line 928
*line 929
cmp #50,_stccol
blt L135
cmp #55,_stccol
bgt L135
*line 929
move.l _t_cur,(sp)
move #19,-(sp)
jsr _delevts
addq.l #2,sp
*line 930
L135:L134:L132:L130:L128:L126:L124:bra L136
L122:
*line 931
*line 932
cmp #18,_stcrow
bne L137
move _stccol,R0
sub #5,R0
ext.l R0
divs #5,R0
swap R0
tst R0
bne L137
*line 933
*line 934
move.l _t_cur,(sp)
move #11,-(sp)
jsr _delevts
addq.l #2,sp
*line 935
bra L138
L137:
*line 936
*line 937
*line 938
cmp #18,_stcrow
bne L139
move _stccol,R0
sub #5,R0
ext.l R0
divs #5,R0
swap R0
cmp #2,R0
beq L10014
move _stccol,R0
sub #5,R0
ext.l R0
divs #5,R0
swap R0
cmp #3,R0
bne L139
L10014:*line 939
*line 940
move.l _t_cur,(sp)
move #4,-(sp)
jsr _delevts
addq.l #2,sp
*line 941
bra L140
L139:
*line 942
*line 942
cmp #19,_stcrow
bne L141
*line 943
*line 944
move.l _t_cur,(sp)
move #17,-(sp)
jsr _delevts
addq.l #2,sp
*line 945
bra L142
L141:
*line 946
*line 947
cmp #20,_stcrow
bne L143
cmp #6,_stccol
blt L143
move _stccol,R0
sub #6,R0
ext.l R0
divs #5,R0
swap R0
tst R0
bne L143
*line 948
*line 949
move.l _t_cur,(sp)
move #13,-(sp)
jsr _delevts
addq.l #2,sp
*line 950
bra L144
L143:
*line 951
*line 952
cmp #20,_stcrow
bne L145
cmp #6,_stccol
blt L145
move _stccol,R0
sub #6,R0
ext.l R0
divs #5,R0
swap R0
cmp #2,R0
bne L145
*line 953
*line 954
move.l _t_cur,(sp)
move #12,-(sp)
jsr _delevts
addq.l #2,sp
*line 955
bra L146
L145:
*line 956
*line 956
cmp #23,_stcrow
bne L147
*line 957
*line 958
jsr _deladat
*line 959
*line 960
bra L148
L147:
*line 961
*line 961
cmp #24,_stcrow
bne L149
*line 962
*line 963
*line 963
cmp #4,_stccol
bgt L150
*line 964
*line 965
*line 966
*line 967
*line 968
tst _insmode
beq L151
*line 968
jsr _icancel
*line 969
L151:
*line 970
move _curscor,(sp)
jsr _sc_clr
*line 971
move _curscor,(sp)
jsr _selscor
*line 972
bra L152
L150:
*line 973
*line 973
cmp #10,_stccol
blt L153
cmp #25,_stccol
bgt L153
*line 974
*line 975
*line 976
*line 977
move #16,(sp)
move #32,-(sp)
move _curscor,R0
asl #4,R0
ext.l R0
add.l #_scname,R0
move.l R0,-(sp)
jsr _memset
addq.l #6,sp
*line 978
move #13,(sp)
jsr _dswin
*line 979
L153:L152:
*line 980
L149:L148:L146:L144:L142:L140:L138:L136:L121:L118:L96:tst.l (sp)+
movem.l (sp)+,R5-R7/R12-R13
unlk R14
rts
.globl _sdmkey
.text
_sdmkey:
~~sdmkey:
link R14,#-4
*line 994
*line 994
tst _astat
beq L155
*line 995
*line 996
*line 997
tst _insmode
beq L156
*line 997
jsr _icancel
L156:
*line 998
*line 999
L155:
*line 1000
jsr _stdmkey
L154:unlk R14
rts
.globl _scfield
.text
_scfield:
~~scfield:
link R14,#-4
*line 1014
move.l #_sc_flds,(sp)
jsr _curset
L157:unlk R14
rts
.data