Index: alcyon/msm.s
===================================================================
--- alcyon/msm.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/msm.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,2689 @@
+.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
