.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 _clkctl
.globl _ctrsw
.globl _curasg
.globl _curvce
.globl _dsp_ok
.globl _editsw
.globl _mascntr
.globl _mdb1
.globl _mdb2
.globl _michan
.globl _midiclk
.globl _midigo
.globl _mistat
.globl _ndisp
.globl _recsw
.globl _prgchan
.globl _masens
.globl _mctlval
.globl _mdbyte
.globl _mpsust
.globl _mrstat
.globl _trgtab
.globl _grpmode
.globl _grpstat
.globl _key2grp
.globl _vce2grp
.globl _veltab
.globl _mctlnum
.globl _mpbend
.globl _msmstv
.globl _prstab
.globl _src2var
.globl _tuntab
.globl _vce2trg
.globl _grp2prt
.globl _varmode
.globl _gdstbc
.globl _mpmap
.data
_mpmap:
.dc.w $3
.dc.w $4
.dc.w $2
.globl _msmnext
.data
_msmnext:
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $1
.dc.w $1
.dc.w $2
.dc.w $0
.globl _msmcnxt
.data
_msmcnxt:
.dc.w $0
.dc.w $0
.dc.w $2
.dc.w $1
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.globl _ctl2src
.data
_ctl2src:
.dc.w $C
.dc.w $D
.dc.w $2
.dc.w $8
.globl _msm
.text
_msm:
~~msm:
link R14,#-8
movem.l R2-R7/R13-R13,-(sp)
~miport=R7
~midiin=R6
~i=R5
~t1=R4
~t2=R3
~ep=R13
~j=-2
~nvel=-4
~where=-8
*line 107
clr R7
bra L4
L5:
*line 108
*line 109
bra L8
L7:
*line 110
*line 111
clr _dsp_ok
*line 112
*line 113
move R7,R8
add.l R8,R8
move.l #_mpmap,R9
move 0(R8,R9.l),(sp)
move #2,-(sp)
jsr _trap13
addq.l #2,sp
and.l #$ff,R0
move R0,R6
*line 114
*line 115
*line 116
move.l #_masens,R8
tst.b 0(R8,R7)
beq L9
*line 116
move R7,R8
add.l #_masens,R8
or.b #15,(R8)
*line 117
L9:
*line 118
move R7,R8
add.l R8,R8
move.l #_msmstv,R9
move 0(R8,R9.l),R0
bra L11
*line 119
*line 120
L12:
*line 121
*line 122
*line 123
*line 123
btst #7,R6
beq L13
*line 124
*line 125
move R6,R0
and #15,R0
move R0,_michan
*line 126
move R6,R0
asr #4,R0
and #15,R0
move R0,_mistat
*line 127
*line 128
*line 128
cmp #240,R6
bge L14
*line 129
*line 130
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _mistat,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmnext,R9
move (R9),(R8)
*line 131
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 132
bra L15
L14:
*line 133
*line 133
cmp #248,R6
bge L16
*line 134
*line 135
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _michan,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmcnxt,R9
move (R9),(R8)
*line 136
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 137
*line 138
bra L17
L16:
*line 139
*line 140
*line 141
move R6,R0
and #7,R0
bra L19
*line 142
L20:
*line 143
*line 144
*line 145
*line 146
tst _midiclk
beq L21
tst _midigo
beq L21
*line 146
*line 147
add.l #$2,_fc_val
move.l _fc_val,R0
cmp.l #$ffffff,R0
ble L22
*line 147
move.l #$ffffff,_fc_val
*line 148
L22:L21:bra L18
*line 149
*line 150
L23:
*line 151
*line 152
*line 153
*line 154
cmp #1,_clkctl
bne L24
tst _midigo
bne L24
*line 155
*line 156
move #1,_midigo
*line 157
*line 158
*line 159
tst.l _fc_val
beq L25
*line 159
clr.l R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
*line 160
L25:
*line 161
move #1,(sp)
jsr _clkset
*line 162
jsr _dsclk
*line 163
*line 164
L24:bra L18
*line 165
*line 166
L26:
*line 167
*line 168
*line 169
*line 170
cmp #1,_clkctl
bne L27
tst _midigo
bne L27
*line 171
*line 172
move #1,_midigo
*line 173
move #1,(sp)
jsr _clkset
*line 174
jsr _dsclk
*line 175
*line 176
L27:bra L18
*line 177
*line 178
*line 179
L28:
*line 180
*line 181
*line 182
*line 183
cmp #1,_clkctl
bne L29
tst _midigo
beq L29
*line 184
*line 185
clr _midigo
*line 186
clr (sp)
jsr _clkset
*line 187
jsr _dsclk
*line 188
*line 189
L29:bra L18
*line 190
*line 191
L30:
*line 192
*line 193
*line 194
move R7,R8
add.l #_masens,R8
or.b #255,(R8)
bra L18
*line 195
*line 196
L31:
*line 197
*line 198
*line 199
clr R5
bra L34
L35:
*line 200
*line 201
move R5,R8
add.l #_mrstat,R8
clr.b (R8)
*line 202
move R5,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 203
move R5,R8
add.l #_masens,R8
clr.b (R8)
L33:
*line 199
add #1,R5
L34:
*line 199
cmp #2,R5
blt L35
L32:
*line 204
*line 205
bra L18
*line 206
bra L18
L19:cmp #7,R0
bhi L18
asl #2,R0
move R0,R8
add.l #L36,R8
move.l (R8),R8
jmp (R8)
.data
L36:.dc.l L20
.dc.l L18
.dc.l L23
.dc.l L26
.dc.l L28
.dc.l L18
.dc.l L30
.dc.l L31
.text
L18:
*line 207
L17:L15:
*line 208
*line 209
*line 210
L13:bra L8
*line 211
*line 212
*line 213
L37:
*line 214
*line 215
*line 216
*line 216
btst #7,R6
beq L38
*line 217
*line 218
move R6,R0
and #15,R0
move R0,_michan
*line 219
move R6,R0
asr #4,R0
and #15,R0
move R0,_mistat
*line 220
*line 221
*line 221
cmp #240,R6
bge L39
*line 222
*line 223
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _mistat,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmnext,R9
move (R9),(R8)
*line 224
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 225
bra L40
L39:
*line 226
*line 226
cmp #248,R6
bge L41
*line 227
*line 228
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _michan,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmcnxt,R9
move (R9),(R8)
*line 229
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 230
*line 231
bra L42
L41:
*line 232
*line 233
*line 234
move R6,R0
and #7,R0
bra L44
*line 235
L45:
*line 236
*line 237
*line 238
*line 239
tst _midiclk
beq L46
tst _midigo
beq L46
*line 239
*line 240
add.l #$2,_fc_val
move.l _fc_val,R0
cmp.l #$ffffff,R0
ble L47
*line 240
move.l #$ffffff,_fc_val
*line 241
L47:L46:bra L43
*line 242
*line 243
L48:
*line 244
*line 245
*line 246
*line 247
cmp #1,_clkctl
bne L49
tst _midigo
bne L49
*line 248
*line 249
move #1,_midigo
*line 250
*line 251
*line 252
tst.l _fc_val
beq L50
*line 252
clr.l R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
*line 253
L50:
*line 254
move #1,(sp)
jsr _clkset
*line 255
jsr _dsclk
*line 256
*line 257
L49:bra L43
*line 258
*line 259
L51:
*line 260
*line 261
*line 262
*line 263
cmp #1,_clkctl
bne L52
tst _midigo
bne L52
*line 264
*line 265
move #1,_midigo
*line 266
move #1,(sp)
jsr _clkset
*line 267
jsr _dsclk
*line 268
*line 269
L52:bra L43
*line 270
*line 271
*line 272
L53:
*line 273
*line 274
*line 275
*line 276
cmp #1,_clkctl
bne L54
tst _midigo
beq L54
*line 277
*line 278
clr _midigo
*line 279
clr (sp)
jsr _clkset
*line 280
jsr _dsclk
*line 281
*line 282
L54:bra L43
*line 283
*line 284
L55:
*line 285
*line 286
*line 287
move R7,R8
add.l #_masens,R8
or.b #255,(R8)
bra L43
*line 288
*line 289
L56:
*line 290
*line 291
*line 292
clr R5
bra L59
L60:
*line 293
*line 294
move R5,R8
add.l #_mrstat,R8
clr.b (R8)
*line 295
move R5,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 296
move R5,R8
add.l #_masens,R8
clr.b (R8)
L58:
*line 292
add #1,R5
L59:
*line 292
cmp #2,R5
blt L60
L57:
*line 297
*line 298
bra L43
*line 299
bra L43
L44:cmp #7,R0
bhi L43
asl #2,R0
move R0,R8
add.l #L61,R8
move.l (R8),R8
jmp (R8)
.data
L61:.dc.l L45
.dc.l L43
.dc.l L48
.dc.l L51
.dc.l L53
.dc.l L43
.dc.l L55
.dc.l L56
.text
L43:
*line 300
L42:L40:
*line 301
*line 302
*line 303
bra L62
L38:
*line 304
*line 305
*line 306
move.l #_mrstat,R8
move.b 0(R8,R7),R0
ext.w R0
and #15,R0
move R0,_michan
*line 307
move.l #_mrstat,R8
move.b 0(R8,R7),R0
ext.w R0
asr #4,R0
and #15,R0
move R0,_mistat
*line 308
*line 309
*line 309
cmp #12,_mistat
bne L63
*line 310
*line 311
*line 312
*line 313
*line 314
*line 315
tst R7
bne L64
move _michan,R0
add #1,R0
cmp _prgchan,R0
bne L64
cmp #100,R6
bge L64
*line 316
*line 317
move R6,R0
move R0,_curasg
move R0,(sp)
jsr _getasg
*line 318
jsr _mpcupd
*line 319
*line 320
*line 321
L64:bra L65
L63:
*line 322
*line 322
cmp #13,_mistat
bne L66
*line 323
*line 324
*line 325
*line 326
move R6,R0
muls #252,R0
and #32736,R0
move R0,_mdb1
*line 327
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
or R0,R4
*line 328
move R4,R3
add #128,R3
*line 329
*line 330
move R4,R5
bra L69
L70:
*line 331
move R5,R8
add.l R8,R8
add.l #_prstab,R8
move _mdb1,(R8)
L68:
*line 330
add #1,R5
L69:
*line 330
cmp R3,R5
blt L70
L67:
*line 331
*line 332
*line 333
clr R5
bra L73
L74:
*line 334
*line 335
*line 336
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L75
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L75
*line 337
*line 338
*line 338
move _mdb1,(sp)
move #6,-(sp)
move R5,-(sp)
jsr _newsv
addq.l #4,sp
tst R0
beq L76
*line 339
*line 340
*line 341
tst _recsw
beq L77
move R5,R8
add.l R8,R8
move.l #_grpstat,R9
tst 0(R8,R9.l)
beq L77
tst _ancmsw
beq L10000
move R5,R8
add.l R8,R8
add.l #_varmode,R8
move 160(R8),R0
bra L10002
L10000:move R5,R8
add.l R8,R8
move.l #_grpmode,R9
move 0(R8,R9.l),R0
L10002:cmp #2,R0
bne L77
*line 342
*line 343
*line 343
move #6,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L78
*line 344
*line 345
move.l _t_cur,(R13)
*line 346
move.b #14,5(R13)
*line 347
move R5,R0
or #80,R0
move.b R0,6(R13)
*line 348
move _mdb1,R0
ext.l R0
move.l #$10,R1
asl.l R1,R0
move.l R0,16(R13)
*line 349
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,(sp)
move.l R13,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 350
move #1,_ctrsw
*line 351
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 352
clr _ctrsw
*line 353
*line 354
L78:bra L79
L77:
*line 355
*line 355
move _angroup,R0
sub #1,R0
cmp R0,R5
bne L80
*line 356
*line 357
move #5,(sp)
jsr _dsanval
*line 358
L80:L79:
*line 359
L76:
*line 360
L75:L72:
*line 333
add #1,R5
L73:
*line 333
cmp #12,R5
blt L74
L71:
*line 361
*line 362
*line 363
bra L81
L66:
*line 364
*line 365
*line 366
cmp #15,_mistat
bne L82
cmp #3,_michan
bne L82
tst _midigo
bne L82
*line 367
*line 368
*line 368
cmp #20,R6
bge L83
*line 369
*line 370
move R6,(sp)
jsr _selscor
*line 371
*line 372
*line 373
cmp #2,_ndisp
bne L84
*line 373
jsr _sdwins
L84:
*line 374
*line 375
L83:bra L85
L82:
*line 376
*line 377
*line 378
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 379
move R7,R8
add.l #_mrstat,R8
clr.b (R8)
L85:L81:L65:
*line 380
L62:
*line 381
*line 382
bra L8
*line 383
*line 384
*line 385
L86:
*line 386
*line 387
*line 388
*line 388
btst #7,R6
beq L87
*line 389
*line 390
move R6,R0
and #15,R0
move R0,_michan
*line 391
move R6,R0
asr #4,R0
and #15,R0
move R0,_mistat
*line 392
*line 393
*line 393
cmp #240,R6
bge L88
*line 394
*line 395
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _mistat,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmnext,R9
move (R9),(R8)
*line 396
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 397
bra L89
L88:
*line 398
*line 398
cmp #248,R6
bge L90
*line 399
*line 400
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _michan,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmcnxt,R9
move (R9),(R8)
*line 401
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 402
*line 403
bra L91
L90:
*line 404
*line 405
*line 406
move R6,R0
and #7,R0
bra L93
*line 407
L94:
*line 408
*line 409
*line 410
*line 411
tst _midiclk
beq L95
tst _midigo
beq L95
*line 411
*line 412
add.l #$2,_fc_val
move.l _fc_val,R0
cmp.l #$ffffff,R0
ble L96
*line 412
move.l #$ffffff,_fc_val
*line 413
L96:L95:bra L92
*line 414
*line 415
L97:
*line 416
*line 417
*line 418
*line 419
cmp #1,_clkctl
bne L98
tst _midigo
bne L98
*line 420
*line 421
move #1,_midigo
*line 422
*line 423
*line 424
tst.l _fc_val
beq L99
*line 424
clr.l R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
*line 425
L99:
*line 426
move #1,(sp)
jsr _clkset
*line 427
jsr _dsclk
*line 428
*line 429
L98:bra L92
*line 430
*line 431
L100:
*line 432
*line 433
*line 434
*line 435
cmp #1,_clkctl
bne L101
tst _midigo
bne L101
*line 436
*line 437
move #1,_midigo
*line 438
move #1,(sp)
jsr _clkset
*line 439
jsr _dsclk
*line 440
*line 441
L101:bra L92
*line 442
*line 443
*line 444
L102:
*line 445
*line 446
*line 447
*line 448
cmp #1,_clkctl
bne L103
tst _midigo
beq L103
*line 449
*line 450
clr _midigo
*line 451
clr (sp)
jsr _clkset
*line 452
jsr _dsclk
*line 453
*line 454
L103:bra L92
*line 455
*line 456
L104:
*line 457
*line 458
*line 459
move R7,R8
add.l #_masens,R8
or.b #255,(R8)
bra L92
*line 460
*line 461
L105:
*line 462
*line 463
*line 464
clr R5
bra L108
L109:
*line 465
*line 466
move R5,R8
add.l #_mrstat,R8
clr.b (R8)
*line 467
move R5,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 468
move R5,R8
add.l #_masens,R8
clr.b (R8)
L107:
*line 464
add #1,R5
L108:
*line 464
cmp #2,R5
blt L109
L106:
*line 469
*line 470
bra L92
*line 471
bra L92
L93:cmp #7,R0
bhi L92
asl #2,R0
move R0,R8
add.l #L110,R8
move.l (R8),R8
jmp (R8)
.data
L110:.dc.l L94
.dc.l L92
.dc.l L97
.dc.l L100
.dc.l L102
.dc.l L92
.dc.l L104
.dc.l L105
.text
L92:
*line 472
L91:L89:
*line 473
*line 474
bra L111
L87:
*line 475
*line 476
*line 477
move R6,R0
move R7,R9
add.l #_mdbyte,R9
move.b R0,(R9)
*line 478
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move #3,(R8)
L111:
*line 479
*line 480
bra L8
*line 481
*line 482
*line 483
L112:
*line 484
*line 485
*line 486
*line 486
btst #7,R6
beq L113
*line 487
*line 488
move R6,R0
and #15,R0
move R0,_michan
*line 489
move R6,R0
asr #4,R0
and #15,R0
move R0,_mistat
*line 490
*line 491
*line 491
cmp #240,R6
bge L114
*line 492
*line 493
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _mistat,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmnext,R9
move (R9),(R8)
*line 494
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 495
bra L115
L114:
*line 496
*line 496
cmp #248,R6
bge L116
*line 497
*line 498
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move _michan,R1
and #7,R1
move R1,R9
add.l R9,R9
add.l #_msmcnxt,R9
move (R9),(R8)
*line 499
move R6,R0
move R7,R9
add.l #_mrstat,R9
move.b R0,(R9)
*line 500
*line 501
bra L117
L116:
*line 502
*line 503
*line 504
move R6,R0
and #7,R0
bra L119
*line 505
L120:
*line 506
*line 507
*line 508
*line 509
tst _midiclk
beq L121
tst _midigo
beq L121
*line 509
*line 510
add.l #$2,_fc_val
move.l _fc_val,R0
cmp.l #$ffffff,R0
ble L122
*line 510
move.l #$ffffff,_fc_val
*line 511
L122:L121:bra L118
*line 512
*line 513
L123:
*line 514
*line 515
*line 516
*line 517
cmp #1,_clkctl
bne L124
tst _midigo
bne L124
*line 518
*line 519
move #1,_midigo
*line 520
*line 521
*line 522
tst.l _fc_val
beq L125
*line 522
clr.l R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
*line 523
L125:
*line 524
move #1,(sp)
jsr _clkset
*line 525
jsr _dsclk
*line 526
*line 527
L124:bra L118
*line 528
*line 529
L126:
*line 530
*line 531
*line 532
*line 533
cmp #1,_clkctl
bne L127
tst _midigo
bne L127
*line 534
*line 535
move #1,_midigo
*line 536
move #1,(sp)
jsr _clkset
*line 537
jsr _dsclk
*line 538
*line 539
L127:bra L118
*line 540
*line 541
*line 542
L128:
*line 543
*line 544
*line 545
*line 546
cmp #1,_clkctl
bne L129
tst _midigo
beq L129
*line 547
*line 548
clr _midigo
*line 549
clr (sp)
jsr _clkset
*line 550
jsr _dsclk
*line 551
*line 552
L129:bra L118
*line 553
*line 554
L130:
*line 555
*line 556
*line 557
move R7,R8
add.l #_masens,R8
or.b #255,(R8)
bra L118
*line 558
*line 559
L131:
*line 560
*line 561
*line 562
clr R5
bra L134
L135:
*line 563
*line 564
move R5,R8
add.l #_mrstat,R8
clr.b (R8)
*line 565
move R5,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 566
move R5,R8
add.l #_masens,R8
clr.b (R8)
L133:
*line 562
add #1,R5
L134:
*line 562
cmp #2,R5
blt L135
L132:
*line 567
*line 568
bra L118
*line 569
bra L118
L119:cmp #7,R0
bhi L118
asl #2,R0
move R0,R8
add.l #L136,R8
move.l (R8),R8
jmp (R8)
.data
L136:.dc.l L120
.dc.l L118
.dc.l L123
.dc.l L126
.dc.l L128
.dc.l L118
.dc.l L130
.dc.l L131
.text
L118:
*line 570
L117:L115:
*line 571
*line 572
*line 573
bra L137
L113:
*line 574
*line 575
*line 576
move.l #_mrstat,R8
move.b 0(R8,R7),R0
ext.w R0
and #15,R0
move R0,_michan
*line 577
move.l #_mrstat,R8
move.b 0(R8,R7),R0
ext.w R0
asr #4,R0
and #15,R0
move R0,_mistat
*line 578
move.l #_mdbyte,R8
move.b 0(R8,R7),R0
ext.w R0
move R0,_mdb1
*line 579
move R6,_mdb2
*line 580
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
move #2,(R8)
*line 581
*line 582
move _mistat,R0
bra L139
*line 583
L140:
*line 584
*line 585
*line 586
*line 586
tst _mdb2
beq L141
*line 587
*line 588
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
add R0,R4
add _mdb1,R4
*line 589
move _michan,R8
move R7,R1
asl #4,R1
ext.l R1
add.l #_mpsust,R1
move.b 0(R8,R1.l),R0
ext.w R0
move R0,-(sp) 
or #1,(sp)
move R4,R8
add.l #_trgtab,R8
move.b (R8),R0
or (sp)+,R0
move.b R0,(R8)
*line 590
move _mdb2,R0
muls #252,R0
and #32736,R0
move R0,-4(R14)
move R4,R9
add.l R9,R9
add.l #_veltab,R9
move R0,(R9)
*line 591
move R4,R8
add.l R8,R8
add.l #_prstab,R8
clr (R8)
*line 592
*line 593
move R4,(sp)
jsr _stmproc
*line 594
*line 595
*line 595
tst _editsw
beq L142
*line 596
*line 597
clr (sp)
move _curvce,-(sp)
move _mdb1,R8
add.l R8,R8
move.l #_tuntab,R9
move 0(R8,R9.l),-(sp)
move R4,-(sp)
jsr _execkey
addq.l #6,sp
bra L138
*line 598
*line 599
*line 600
L142:
*line 601
*line 601
tst R7
beq L143
*line 602
*line 603
clr R5
bra L146
L147:
*line 604
*line 605
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L148
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L148
*line 606
*line 607
move -4(R14),(sp)
move _mdb1,-(sp)
move _michan,-(sp)
move R7,-(sp)
move R5,-(sp)
jsr _asgvce
addq.l #8,sp
*line 608
move -4(R14),(sp)
move _mdb1,-(sp)
move R5,-(sp)
jsr _ne_bgn
addq.l #4,sp
*line 609
*line 610
L148:L145:
*line 603
add #1,R5
L146:
*line 603
cmp #12,R5
blt L147
L144:bra L149
L143:
*line 611
*line 612
*line 613
*line 614
cmp #21,_mdb1
blt L10004
cmp #108,_mdb1
ble L10003
L10004:clr R0
bra L10006
L10003:move _mdb1,R8
add #-21,R8
add.l R8,R8
move.l #_key2grp,R9
move 0(R8,R9.l),R0
L10006:move R0,R3
*line 615
*line 616
clr R5
bra L152
L153:
*line 617
*line 618
move R3,R0
move #1,R1
move R5,R2
asl R2,R1
and R1,R0
beq L154
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L154
*line 619
*line 620
move -4(R14),(sp)
move _mdb1,-(sp)
move _michan,-(sp)
move R7,-(sp)
move R5,-(sp)
jsr _asgvce
addq.l #8,sp
*line 621
move -4(R14),(sp)
move _mdb1,-(sp)
move R5,-(sp)
jsr _ne_bgn
addq.l #4,sp
*line 622
L154:L151:
*line 616
add #1,R5
L152:
*line 616
cmp #12,R5
blt L153
L150:L149:
*line 623
*line 624
bra L138
*line 625
*line 626
*line 627
*line 628
L141:L155:
*line 629
*line 630
*line 631
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
add R0,R4
add _mdb1,R4
*line 632
move R4,R8
add.l #_trgtab,R8
and.b #-2,(R8)
*line 633
*line 634
*line 634
move R4,R8
add.l #_trgtab,R8
tst.b (R8)
bne L156
*line 635
*line 636
clr R5
bra L159
L160:
*line 637
*line 638
*line 638
move R5,R8
add.l R8,R8
add.l #_vce2trg,R8
cmp (R8),R4
bne L161
*line 639
*line 640
move R5,R8
add.l R8,R8
add.l #_vce2trg,R8
move #-1,(R8)
*line 641
move R4,(sp)
jsr _procpfl
*line 642
*line 643
L161:
*line 644
*line 645
*line 646
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L162
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L162
*line 646
move R5,(sp)
move R4,-(sp)
jsr _ne_end
addq.l #2,sp
L162:L158:
*line 636
add #1,R5
L159:
*line 636
cmp #12,R5
blt L160
L157:
*line 647
*line 648
*line 649
move R4,(sp)
or #-32768,(sp)
jsr _stmproc
*line 650
*line 651
L156:bra L138
*line 652
*line 653
L163:
*line 654
*line 655
*line 656
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
add R0,R4
add _mdb1,R4
*line 657
move _mdb2,R3
muls #252,R3
and #32736,R3
*line 658
move R4,R8
add.l R8,R8
add.l #_prstab,R8
move R3,(R8)
*line 659
*line 660
clr R5
bra L166
L167:
*line 661
*line 662
*line 663
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L168
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L168
*line 663
move R3,(sp)
move #6,-(sp)
move R5,-(sp)
move R4,-(sp)
jsr _newpps
addq.l #6,sp
*line 664
L168:L165:
*line 660
add #1,R5
L166:
*line 660
cmp #12,R5
blt L167
L164:bra L138
*line 665
*line 666
*line 667
L169:
*line 668
*line 669
*line 670
move _mdb2,R0
move R7,R1
move #11,R2
asl R2,R1
move _michan,R2
asl #7,R2
add R2,R1
ext.l R1
add.l #_mctlval,R1
move _mdb1,R2
ext.l R2
add.l R2,R1
move.l R1,R9
move.b R0,(R9)
*line 671
*line 672
*line 672
cmp #64,_mdb1
bne L170
*line 673
*line 674
*line 675
*line 676
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
or R0,R4
*line 677
move R4,R3
add #128,R3
*line 678
*line 679
*line 679
cmp #63,_mdb2
ble L171
*line 680
*line 681
move R7,R0
asl #4,R0
ext.l R0
add.l #_mpsust,R0
move _michan,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.b #8,(R8)
*line 682
*line 683
move R4,R5
bra L174
L175:
*line 684
*line 685
move.l #_trgtab,R8
tst.b 0(R8,R5)
beq L176
*line 685
move R5,R8
add.l #_trgtab,R8
or.b #8,(R8)
*line 686
L176:L173:
*line 683
add #1,R5
L174:
*line 683
cmp R3,R5
blt L175
L172:bra L177
L171:
*line 687
*line 687
cmp #64,_mdb2
bge L178
*line 688
*line 689
move R7,R0
asl #4,R0
ext.l R0
add.l #_mpsust,R0
move _michan,R1
ext.l R1
add.l R1,R0
move.l R0,R8
clr.b (R8)
*line 690
*line 691
move R4,R5
bra L181
L182:
*line 692
*line 693
*line 693
move.l #_trgtab,R8
tst.b 0(R8,R5)
beq L183
*line 694
*line 695
move R5,R8
add.l #_trgtab,R8
and.b #-9,(R8)
*line 696
*line 697
*line 697
move R5,R8
add.l #_trgtab,R8
tst.b (R8)
bne L184
*line 698
*line 699
clr R4
bra L187
L188:
*line 700
*line 701
*line 701
move R4,R8
add.l R8,R8
add.l #_vce2trg,R8
cmp (R8),R5
bne L189
*line 702
*line 703
move R4,R8
add.l R8,R8
add.l #_vce2trg,R8
move #-1,(R8)
*line 704
move R5,(sp)
jsr _procpfl
*line 705
*line 706
L189:
*line 707
*line 708
*line 709
move R4,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L190
move R4,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L190
*line 709
move R4,(sp)
move R5,-(sp)
jsr _ne_end
addq.l #2,sp
L190:L186:
*line 699
add #1,R4
L187:
*line 699
cmp #12,R4
blt L188
L185:
*line 710
*line 711
L184:
*line 712
L183:L180:
*line 691
add #1,R5
L181:
*line 691
cmp R3,R5
blt L182
L179:
*line 713
*line 714
*line 715
*line 716
L178:L177:bra L191
L170:
*line 717
*line 717
cmp #66,_mdb1
bne L192
*line 718
*line 719
*line 720
*line 721
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
or R0,R4
*line 722
move R4,R3
add #128,R3
*line 723
*line 724
*line 724
cmp #63,_mdb2
ble L193
*line 725
*line 726
move R4,R5
bra L196
L197:
*line 727
*line 727
move R5,R8
add.l #_trgtab,R8
btst #0,(R8)
beq L198
*line 728
*line 729
clr R4
bra L201
L202:
*line 730
*line 731
move R4,R8
add.l R8,R8
move.l #_vce2trg,R9
move 0(R8,R9.l),R0
and #16383,R0
cmp R0,R5
bne L203
*line 731
move R4,R8
add.l R8,R8
add.l #_vce2trg,R8
or #-32768,(R8)
L203:L200:
*line 729
add #1,R4
L201:
*line 729
cmp #12,R4
blt L202
L199:
*line 732
*line 733
L198:L195:
*line 726
add #1,R5
L196:
*line 726
cmp R3,R5
blt L197
L194:bra L204
L193:
*line 734
*line 734
cmp #64,_mdb2
bge L205
*line 735
*line 736
clr R5
bra L208
L209:
*line 737
*line 738
*line 738
move R5,R8
add.l R8,R8
add.l #_vce2trg,R8
cmp #-1,(R8)
beq L210
*line 739
*line 740
move R5,R8
add.l R8,R8
add.l #_vce2trg,R8
and #32767,(R8)
*line 741
*line 742
*line 742
move R5,R8
add.l R8,R8
move.l #_vce2trg,R9
move 0(R8,R9.l),R0
and #-16384,R0
bne L211
*line 743
*line 744
move R5,R8
add.l R8,R8
add.l #_vce2trg,R8
move (R8),R4
*line 745
*line 746
*line 746
move R4,R8
add.l #_trgtab,R8
tst.b (R8)
bne L212
*line 747
*line 748
move R5,R8
add.l R8,R8
add.l #_vce2trg,R8
move #-1,(R8)
*line 749
move R4,(sp)
jsr _procpfl
*line 750
L212:
*line 751
L211:
*line 752
L210:L207:
*line 736
add #1,R5
L208:
*line 736
cmp #12,R5
blt L209
L206:
*line 753
*line 754
*line 755
*line 756
L205:L204:bra L213
L192:
*line 757
*line 758
*line 759
move R7,R4
move #11,R0
asl R0,R4
move _michan,R0
asl #7,R0
or R0,R4
or _mdb1,R4
*line 760
move _mdb2,R3
muls #252,R3
and #32736,R3
*line 761
move R3,R0
move R4,R9
add.l #_mctlval,R9
move.b R0,(R9)
*line 762
*line 763
clr -2(R14)
bra L216
L217:
*line 764
*line 765
*line 765
move -2(R14),R8
add.l R8,R8
move.l #_mctlnum,R9
move 0(R8,R9.l),R0
and #255,R0
cmp _mdb1,R0
bne L218
*line 766
*line 767
move -2(R14),R8
add.l R8,R8
add.l #_ctl2src,R8
move (R8),R5
*line 768
*line 769
clr R4
bra L221
L222:
*line 770
*line 771
*line 772
*line 773
move -2(R14),R8
add.l R8,R8
add.l #_mctlnum,R8
btst #0,(R8)
bne L10007
move R4,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L223
move R4,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L223
L10007:*line 774
*line 775
*line 775
move R3,(sp)
move R5,-(sp)
move R4,-(sp)
jsr _newsv
addq.l #4,sp
tst R0
beq L224
*line 776
*line 777
*line 778
tst _recsw
beq L225
move R4,R8
add.l R8,R8
move.l #_grpstat,R9
tst 0(R8,R9.l)
beq L225
tst _ancmsw
beq L10008
move R5,R8
add.l R8,R8
move.l #_src2var,R9
move 0(R8,R9.l),R0
asl #5,R0
ext.l R0
move R4,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 L10010
L10008:move R4,R8
add.l R8,R8
move.l #_grpmode,R9
move 0(R8,R9.l),R0
L10010:cmp #2,R0
bne L225
*line 779
*line 780
*line 780
move #6,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L226
*line 781
*line 782
move.l _t_cur,(R13)
*line 783
move.b #14,5(R13)
*line 784
move R4,R0
move R5,R9
add.l R9,R9
add.l #_src2var,R9
move (R9),R1
asl #4,R1
or R1,R0
move.b R0,6(R13)
*line 785
move R3,R0
ext.l R0
move.l #$10,R1
asl.l R1,R0
move.l R0,16(R13)
*line 786
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,(sp)
move.l R13,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 787
move #1,_ctrsw
*line 788
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 789
clr _ctrsw
*line 790
*line 791
L226:bra L227
L225:
*line 792
*line 792
move _angroup,R0
sub #1,R0
cmp R0,R4
bne L228
*line 793
*line 794
move R5,R8
add.l R8,R8
move.l #_src2var,R9
move 0(R8,R9.l),(sp)
jsr _dsanval
*line 795
L228:L227:
*line 796
L224:
*line 797
L223:L220:
*line 769
add #1,R4
L221:
*line 769
cmp #12,R4
blt L222
L219:
*line 798
*line 799
L218:L215:
*line 763
add #1,-2(R14)
L216:
*line 763
cmp #4,-2(R14)
blt L217
L214:
*line 800
L213:L191:
*line 801
*line 802
bra L138
*line 803
*line 804
*line 805
L229:
*line 806
*line 807
*line 808
move R7,R4
asl #4,R4
or _michan,R4
*line 809
move _mdb2,R3
move #9,R0
asl R0,R3
move _mdb1,R0
asl #2,R0
or R0,R3
eor #-32768,R3
*line 810
move R4,R8
add.l R8,R8
add.l #_mpbend,R8
move R3,(R8)
*line 811
*line 812
clr R5
bra L232
L233:
*line 813
*line 814
*line 815
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 0(R8,R9.l),R0
move R7,R1
add #1,R1
cmp R1,R0
bne L234
move R5,R8
add.l R8,R8
add.l R8,R8
move.l #_grp2prt,R9
move 2(R8,R9.l),R0
move _michan,R1
add #1,R1
cmp R1,R0
bne L234
*line 816
*line 817
*line 817
move R3,(sp)
move #11,-(sp)
move R5,-(sp)
jsr _newsv
addq.l #4,sp
tst R0
beq L235
*line 818
*line 819
*line 820
tst _recsw
beq L236
move R5,R8
add.l R8,R8
move.l #_grpstat,R9
tst 0(R8,R9.l)
beq L236
tst _ancmsw
beq L10011
move R5,R8
add.l R8,R8
move.l #_varmode,R9
move 0(R8,R9.l),R0
bra L10013
L10011:move R5,R8
add.l R8,R8
move.l #_grpmode,R9
move 0(R8,R9.l),R0
L10013:cmp #2,R0
bne L236
*line 821
*line 822
*line 822
move #6,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L237
*line 823
*line 824
move.l _t_cur,(R13)
*line 825
move.b #14,5(R13)
*line 826
move.b R5,6(R13)
*line 827
move R3,R0
ext.l R0
move.l #$10,R1
asl.l R1,R0
move.l R0,16(R13)
*line 828
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,(sp)
move.l R13,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 829
move #1,_ctrsw
*line 830
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 831
clr _ctrsw
*line 832
*line 833
L237:bra L238
L236:
*line 834
*line 834
move _angroup,R0
sub #1,R0
cmp R0,R5
bne L239
*line 835
*line 836
clr (sp)
jsr _dsanval
*line 837
L239:L238:
*line 838
L235:
*line 839
L234:L231:
*line 812
add #1,R5
L232:
*line 812
cmp #12,R5
blt L233
L230:
*line 840
*line 841
bra L138
*line 842
*line 843
*line 844
L240:
*line 845
*line 846
*line 847
*line 847
cmp #2,_michan
bne L241
*line 848
*line 849
*line 850
cmp #1,_clkctl
bne L242
tst _midigo
bne L242
*line 851
*line 852
move _mdb1,R0
asl #7,R0
or _mdb2,R0
muls #12,R0
move.l R0,-8(R14)
*line 853
*line 854
*line 855
move.l _fc_val,R0
cmp.l -8(R14),R0
beq L243
*line 855
move.l -8(R14),R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
L243:
*line 856
*line 857
L242:bra L138
*line 858
*line 859
bra L244
L241:
*line 860
*line 861
*line 862
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 863
move R7,R8
add.l #_mrstat,R8
clr.b (R8)
bra L138
*line 864
L244:
*line 865
*line 866
L245:
*line 867
*line 868
*line 869
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 870
move R7,R8
add.l #_mrstat,R8
clr.b (R8)
bra L138
*line 871
*line 872
bra L138
L139:sub #8,R0
cmp #7,R0
bhi L245
asl #2,R0
move R0,R8
add.l #L246,R8
move.l (R8),R8
jmp (R8)
.data
L246:.dc.l L155
.dc.l L140
.dc.l L163
.dc.l L169
.dc.l L245
.dc.l L245
.dc.l L229
.dc.l L240
.text
L138:
*line 873
*line 874
L137:
*line 875
*line 876
bra L8
*line 877
*line 878
L247:
*line 879
*line 880
*line 881
move R7,R8
add.l R8,R8
add.l #_msmstv,R8
clr (R8)
*line 882
move R7,R8
add.l #_mrstat,R8
clr.b (R8)
bra L10
*line 883
*line 884
bra L10
L11:tst R0
beq L12
cmp #1,R0
beq L37
cmp #2,R0
beq L86
cmp #3,R0
beq L112
bra L247
L10:
*line 885
L8:
*line 886
move R7,R8
add.l R8,R8
move.l #_mpmap,R9
move 0(R8,R9.l),(sp)
move #1,-(sp)
jsr _trap13
addq.l #2,sp
tst.l R0
bne L7
L6:L3:
*line 107
add #1,R7
L4:
*line 107
cmp #2,R7
blt L5
L2:L1:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.data