Index: alcyon/msl.s
===================================================================
--- alcyon/msl.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/msl.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,2072 @@
+.globl _lcdx
+.globl _lcdy
+.globl _lcdbit
+.globl _lcdrow
+.globl _lcdcol
+.globl _lcdbase
+.globl _lcdctl1
+.globl _lcdctl2
+.globl _v_obtab
+.globl _v_curob
+.globl _v_nobj
+.globl _v_obpri
+.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 _QQsw
+.globl _QQanch
+.globl _QQin
+.globl _QQip
+.globl _QQop
+.globl _QQnum
+.globl _QQlnum
+.globl _QQchr
+.globl _QQdig
+.globl _QQstr
+.globl _ebflag
+.globl _ebuf
+.globl _curfet
+.globl _cfetp
+.globl _infetp
+.globl _stmptr
+.globl _defptr
+.globl _patches
+.globl _defents
+.globl _seqtab
+.globl _seqflag
+.globl _seqline
+.globl _seqstim
+.globl _seqtime
+.globl _sregval
+.globl _trstate
+.globl _timers
+.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 _cx_key
+.globl _cy_key
+.globl _d_key
+.globl _e_key
+.globl _m_key
+.globl _x_key
+.globl _swpt
+.globl _aflag
+.globl _amplval
+.globl _ancmsw
+.globl _angroup
+.globl _asig
+.globl _astat
+.globl _aval
+.globl _clkctl
+.globl _clkrun
+.globl _ctrsw
+.globl _cxrate
+.globl _cxval
+.globl _cyrate
+.globl _cyval
+.globl _dsp_ok
+.globl _editss
+.globl _editsw
+.globl _lampsw
+.globl _ndisp
+.globl _nxtflag
+.globl _pchsw
+.globl _recsw
+.globl _runit
+.globl _swback
+.globl _swctrl
+.globl _swdelta
+.globl _swdir
+.globl _swfiin
+.globl _swflag
+.globl _swlast
+.globl _swndx
+.globl _swstop
+.globl _swthr
+.globl _swtime
+.globl _swwait
+.globl _sd
+.globl _se
+.globl _stcrow
+.globl _stccol
+.globl _tglclk
+.globl _tglpch
+.globl _timemlt
+.globl _tmpomlt
+.globl _tmpoval
+.globl _tuneval
+.globl _vtpcol
+.globl _vtprow
+.globl _obj8
+.globl _afi
+.globl _lcdtime
+.globl _swcount
+.globl _swrate
+.globl _swrmin
+.globl _swtemp
+.globl _grpmode
+.globl _grpstat
+.globl _prstab
+.globl _simled
+.globl _swfifo
+.globl _tmultab
+.globl _vce2trg
+.globl _veltab
+.globl _trgtab
+.globl _grp2prt
+.globl _sigtab
+.globl _varmode
+.globl _gdstbc
+.globl _ptefifo
+.globl _fifoval
+.comm _fifoval,2
+.globl _clk_ped
+.text
+_clk_ped:
+~~clk_ped:
+~stat=8
+link R14,#-4
+*line 159
+*line 160
+tst 8(R14)
+beq L2
+*line 160
+move #1,_tglclk
+L2:L1:unlk R14
+rts
+.globl _pch_ped
+.text
+_pch_ped:
+~~pch_ped:
+~stat=8
+link R14,#-4
+*line 172
+*line 173
+tst 8(R14)
+beq L4
+tst _pchsw
+beq L4
+*line 173
+move #1,_tglpch
+L4:L3:unlk R14
+rts
+.globl _msl
+.text
+_msl:
+~~msl:
+link R14,#-30
+movem.l R3-R7/R11-R13,-(sp)
+~ioadr=R13
+~fpu=R12
+~ep=R11
+~i=R7
+~ti=R6
+~val=R5
+~rt=R4
+~chan=-2
+~crel=-4
+~oldsr=-6
+~port=-8
+~trg=-10
+~trig=-12
+~vel=-14
+~cxprev=-16
+~cyprev=-18
+~esi=-20
+~newsig=-22
+~oldclk=-24
+~oldrec=-26
+~fctemp=-30
+*line 201
+move #1,_runit
+*line 203
+bra L8
+L7:
+*line 204
+*line 205
+move #1,_dsp_ok
+*line 206
+*line 207
+move.l #2+_io_ser,R13
+*line 208
+move.b (R13),R0
+ext.w R0
+and #8,R0
+move R0,-20(R14)
+*line 209
+*line 210
+*line 210
+move _editss,R0
+cmp -20(R14),R0
+beq L9
+*line 211
+*line 212
+move -20(R14),_editss
+*line 213
+*line 214
+*line 215
+tst _editss
+beq L10
+*line 215
+tst _editsw
+beq L10000
+clr R0
+bra L10001
+L10000:move #1,R0
+L10001:move R0,_editsw
+L10:
+*line 216
+*line 217
+L9:
+*line 218
+*line 219
+tst _editsw
+beq L11
+*line 219
+move.b #158,_io_leds
+*line 220
+bra L12
+L11:
+*line 221
+move.b #30,_io_leds
+L12:
+*line 222
+*line 223
+*line 223
+tst _lampsw
+bne L13
+tst.l _lcdtime
+beq L13
+*line 224
+*line 225
+*line 226
+sub.l #$1,_lcdtime
+bne L14
+*line 226
+move.b #31,_io_leds
+L14:
+*line 227
+*line 228
+L13:
+*line 229
+jsr _msm
+*line 230
+*line 231
+*line 232
+*line 233
+*line 233
+tst _tglclk
+beq L15
+*line 234
+*line 235
+move #9984,(sp)
+jsr _setsr
+move R0,-6(R14)
+*line 236
+clr _tglclk
+*line 237
+move -6(R14),(sp)
+jsr _setsr
+*line 238
+*line 239
+tst _clkrun
+beq L10002
+clr (sp)
+bra L10003
+L10002:move #1,(sp)
+L10003:jsr _clkset
+*line 240
+jsr _dclkmd
+*line 241
+*line 242
+L15:
+*line 243
+*line 243
+tst _tglpch
+beq L16
+*line 244
+*line 245
+move #9984,(sp)
+jsr _setsr
+move R0,-6(R14)
+*line 246
+clr _tglpch
+*line 247
+move -6(R14),(sp)
+jsr _setsr
+*line 248
+*line 249
+*line 250
+cmp #2,_ndisp
+bne L17
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L17
+*line 250
+clr (sp)
+jsr _vbank
+*line 251
+L17:
+*line 252
+clr R7
+bra L20
+L21:
+*line 253
+*line 254
+*line 254
+move R7,R8
+add.l R8,R8
+add.l #_grpmode,R8
+cmp #1,(R8)
+bne L22
+*line 255
+*line 256
+move R7,R8
+add.l R8,R8
+add.l #_grpmode,R8
+move #2,(R8)
+*line 257
+*line 258
+*line 259
+cmp #2,_ndisp
+bne L23
+*line 260
+move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R8
+add.l R8,R8
+move.l #_simled,R9
+move 0(R8,R9.l),(sp)
+move #42,-(sp)
+move R7,R0
+muls #5,R0
+move R0,-(sp)
+add #6,(sp)
+move #2,-(sp)
+move.l _obj8,-(sp)
+jsr _vputc
+adda.l #10,sp
+*line 261
+L23:bra L24
+L22:
+*line 262
+*line 262
+move R7,R8
+add.l R8,R8
+add.l #_grpmode,R8
+cmp #2,(R8)
+bne L25
+*line 263
+*line 264
+move R7,R8
+add.l R8,R8
+add.l #_grpmode,R8
+clr (R8)
+*line 265
+*line 266
+*line 267
+cmp #2,_ndisp
+bne L26
+*line 268
+move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R8
+add.l R8,R8
+move.l #_simled,R9
+move 0(R8,R9.l),(sp)
+move #42,-(sp)
+move R7,R0
+muls #5,R0
+move R0,-(sp)
+add #6,(sp)
+move #2,-(sp)
+move.l _obj8,-(sp)
+jsr _vputc
+adda.l #10,sp
+L26:
+*line 269
+L25:L24:L19:
+*line 252
+add #1,R7
+L20:
+*line 252
+cmp #12,R7
+blt L21
+L18:
+*line 270
+*line 271
+*line 272
+*line 273
+*line 274
+*line 275
+*line 276
+L16:
+*line 277
+*line 277
+move.l #_fifoval,(sp)
+move.l #_ptefifo,-(sp)
+jsr _getwq
+addq.l #4,sp
+tst R0
+blt L27
+*line 278
+*line 279
+clr R0
+move _fifoval,R0
+and #-32768,R0
+move R0,-4(R14)
+*line 280
+*line 281
+clr R0
+move _fifoval,R0
+and #8191,R0
+move R0,-10(R14)
+*line 282
+clr R0
+move _fifoval,R0
+move #11,R1
+lsr R1,R0
+and #3,R0
+move R0,-8(R14)
+*line 283
+clr R0
+move _fifoval,R0
+lsr #7,R0
+and #15,R0
+move R0,-2(R14)
+*line 284
+clr R0
+move _fifoval,R0
+and #127,R0
+move R0,-12(R14)
+*line 285
+*line 286
+move #16128,R0
+move R0,-14(R14)
+clr R1
+move -10(R14),R1
+lsl #1,R1
+swap R1
+clr R1
+swap R1
+add.l #_veltab,R1
+move.l R1,R9
+move R0,(R9)
+*line 287
+clr R0
+move -10(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_prstab,R0
+move.l R0,R8
+clr (R8)
+*line 288
+*line 289
+*line 289
+tst -4(R14)
+beq L28
+*line 290
+*line 291
+move.l #_trgtab,R8
+clr.l R9
+move -10(R14),R9
+add.l R9,R8
+and.b #-2,(R8)
+*line 292
+*line 293
+clr R7
+bra L31
+L32:
+*line 294
+*line 295
+*line 295
+move R7,R8
+add.l R8,R8
+move.l #_vce2trg,R9
+move 0(R8,R9.l),R0
+cmp -10(R14),R0
+bne L33
+*line 296
+*line 297
+move R7,R8
+add.l R8,R8
+add.l #_vce2trg,R8
+move #-1,(R8)
+*line 298
+move -10(R14),(sp)
+jsr _procpfl
+*line 299
+*line 300
+L33:L30:
+*line 293
+add #1,R7
+L31:
+*line 293
+cmp #12,R7
+blt L32
+L29:
+*line 301
+*line 302
+*line 303
+move _fifoval,(sp)
+jsr _stmproc
+*line 304
+bra L34
+L28:
+*line 305
+*line 306
+*line 307
+move.l #_trgtab,R8
+clr.l R9
+move -10(R14),R9
+add.l R9,R8
+or.b #1,(R8)
+*line 308
+*line 309
+move _fifoval,(sp)
+jsr _stmproc
+*line 310
+*line 311
+clr R7
+bra L37
+L38:
+*line 312
+*line 313
+*line 314
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_grp2prt,R9
+move 0(R8,R9.l),R0
+clr R1
+move -8(R14),R1
+add #1,R1
+cmp R1,R0
+bne L39
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_grp2prt,R9
+move 2(R8,R9.l),R0
+clr R1
+move -2(R14),R1
+add #1,R1
+cmp R1,R0
+bne L39
+*line 314
+move -14(R14),(sp)
+move -12(R14),-(sp)
+move -2(R14),-(sp)
+move -8(R14),-(sp)
+move R7,-(sp)
+jsr _asgvce
+addq.l #8,sp
+L39:L36:
+*line 311
+add #1,R7
+L37:
+*line 311
+cmp #12,R7
+blt L38
+L35:L34:
+*line 315
+*line 316
+*line 317
+*line 318
+L27:
+*line 319
+*line 319
+move #8,(sp)
+jsr _trap14
+move.l R0,_afi
+cmp.l #$ffffffff,R0
+beq L40
+*line 320
+*line 321
+move.l _afi,R0
+asr.l #$8,R0
+and.l #$7f,R0
+move R0,_asig
+*line 322
+move.l _afi,R0
+asr.l #$7,R0
+and.l #$1,R0
+move R0,_astat
+*line 323
+move.l _afi,R0
+and.l #$7f,R0
+move R0,_aval
+*line 324
+*line 325
+*line 325
+tst _asig
+beq L41
+*line 326
+*line 327
+move #1,_aflag
+*line 328
+tst _astat
+beq L10005
+move _asig,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_sigtab,R9
+tst 2(R8,R9.l)
+beq L10004
+L10005:clr R0
+bra L10006
+L10004:move #1,R0
+L10006:move R0,-22(R14)
+*line 329
+*line 330
+move _asig,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_sigtab,R8
+move _aval,(R8)
+*line 331
+move _asig,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_sigtab,R8
+move _astat,2(R8)
+*line 332
+bra L42
+L41:
+*line 333
+*line 334
+*line 335
+clr _aflag
+*line 336
+clr -22(R14)
+*line 337
+*line 338
+clr R7
+bra L45
+L46:
+*line 339
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_sigtab,R8
+clr 2(R8)
+L44:
+*line 338
+add #1,R7
+L45:
+*line 338
+cmp #128,R7
+blt L46
+L43:
+*line 339
+L42:
+*line 340
+*line 341
+*line 342
+*line 343
+*line 344
+*line 344
+tst _aflag
+beq L47
+*line 345
+*line 346
+*line 346
+cmp #1,_asig
+blt L48
+cmp #24,_asig
+bgt L48
+*line 347
+*line 348
+*line 349
+*line 350
+move _asig,(sp)
+jsr _localkb
+*line 351
+bra L49
+L48:
+*line 352
+*line 352
+cmp #25,_asig
+blt L50
+cmp #38,_asig
+bgt L50
+*line 353
+*line 354
+*line 355
+tst _astat
+beq L51
+*line 355
+jsr _lcd_on
+*line 356
+L51:
+*line 357
+*line 358
+tst -22(R14)
+bne L52
+*line 358
+jsr _doslide
+*line 359
+L52:bra L53
+L50:
+*line 360
+*line 360
+cmp #39,_asig
+blt L54
+cmp #52,_asig
+bgt L54
+*line 361
+*line 362
+*line 363
+tst _astat
+beq L55
+*line 363
+jsr _lcd_on
+*line 364
+L55:
+*line 365
+move _asig,-(sp)
+add #-39,(sp)
+move _astat,-(sp)
+move.l _swpt,R8
+move _asig,R9
+add #-39,R9
+add.l R9,R9
+add.l R9,R9
+move.l 0(R8,R9.l),R8
+jsr (R8)
+addq.l #4,sp
+*line 366
+bra L56
+L54:
+*line 367
+*line 367
+cmp #60,_asig
+blt L57
+cmp #69,_asig
+bgt L57
+*line 368
+*line 369
+move _asig,-(sp)
+add #-60,(sp)
+move.l _d_key,R8
+jsr (R8)
+addq.l #2,sp
+*line 370
+*line 371
+*line 372
+bra L58
+L57:
+*line 373
+move _asig,R0
+bra L60
+*line 374
+L61:
+*line 375
+*line 376
+*line 377
+move _aval,R5
+muls #252,R5
+and #32736,R5
+*line 378
+*line 379
+clr R7
+bra L64
+L65:
+*line 380
+*line 381
+*line 381
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L66
+*line 382
+*line 383
+*line 383
+move R5,(sp)
+move #11,-(sp)
+move R7,-(sp)
+jsr _newsv
+addq.l #4,sp
+tst R0
+beq L67
+*line 384
+*line 385
+*line 386
+tst _recsw
+beq L68
+move R7,R8
+add.l R8,R8
+move.l #_grpstat,R9
+tst 0(R8,R9.l)
+beq L68
+tst _ancmsw
+beq L10007
+move R7,R8
+add.l R8,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 L68
+*line 387
+*line 388
+*line 388
+move #6,(sp)
+jsr _e_alc
+move.l R0,R11
+move.l R11,R0
+beq L69
+*line 389
+*line 390
+move.l _t_cur,(R11)
+*line 391
+move.b #14,5(R11)
+*line 392
+move.b R7,6(R11)
+*line 393
+move R5,R0
+ext.l R0
+move.l #$10,R1
+asl.l R1,R0
+move.l R0,16(R11)
+*line 394
+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 R11,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 395
+move #1,_ctrsw
+*line 396
+move #1,(sp)
+move.l #_gdstbc,-(sp)
+clr -(sp)
+move.l R11,-(sp)
+jsr _se_disp
+adda.l #10,sp
+*line 397
+clr _ctrsw
+*line 398
+*line 399
+L69:bra L70
+L68:
+*line 400
+*line 400
+move _angroup,R0
+sub #1,R0
+cmp R0,R7
+bne L71
+*line 401
+*line 402
+clr (sp)
+jsr _dsanval
+*line 403
+L71:L70:
+*line 404
+L67:
+*line 405
+L66:L63:
+*line 379
+add #1,R7
+L64:
+*line 379
+cmp #12,R7
+blt L65
+L62:
+*line 406
+*line 407
+bra L59
+*line 408
+*line 409
+*line 410
+L72:
+*line 411
+*line 412
+*line 413
+move _aval,R5
+muls #252,R5
+and #32736,R5
+*line 414
+*line 415
+clr R7
+bra L75
+L76:
+*line 416
+*line 417
+*line 417
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L77
+*line 418
+*line 419
+*line 419
+move R5,(sp)
+move #12,-(sp)
+move R7,-(sp)
+jsr _newsv
+addq.l #4,sp
+tst R0
+beq L78
+*line 420
+*line 421
+*line 422
+tst _recsw
+beq L79
+move R7,R8
+add.l R8,R8
+move.l #_grpstat,R9
+tst 0(R8,R9.l)
+beq L79
+tst _ancmsw
+beq L10010
+move R7,R8
+add.l R8,R8
+move.l #_varmode,R9
+move 32(R8,R9.l),R0
+bra L10012
+L10010:move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R0
+L10012:cmp #2,R0
+bne L79
+*line 423
+*line 424
+*line 424
+move #6,(sp)
+jsr _e_alc
+move.l R0,R11
+move.l R11,R0
+beq L80
+*line 425
+*line 426
+move.l _t_cur,(R11)
+*line 427
+move.b #14,5(R11)
+*line 428
+move R7,R0
+or #16,R0
+move.b R0,6(R11)
+*line 429
+move R5,R0
+ext.l R0
+move.l #$10,R1
+asl.l R1,R0
+move.l R0,16(R11)
+*line 430
+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 R11,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 431
+move #1,_ctrsw
+*line 432
+move #1,(sp)
+move.l #_gdstbc,-(sp)
+clr -(sp)
+move.l R11,-(sp)
+jsr _se_disp
+adda.l #10,sp
+*line 433
+clr _ctrsw
+*line 434
+*line 435
+L80:bra L81
+L79:
+*line 436
+*line 436
+move _angroup,R0
+sub #1,R0
+cmp R0,R7
+bne L82
+*line 437
+*line 438
+move #1,(sp)
+jsr _dsanval
+*line 439
+L82:L81:
+*line 440
+L78:
+*line 441
+L77:L74:
+*line 415
+add #1,R7
+L75:
+*line 415
+cmp #12,R7
+blt L76
+L73:
+*line 442
+*line 443
+bra L59
+*line 444
+*line 445
+L83:
+*line 446
+*line 447
+*line 448
+move.l _cx_key,R8
+jsr (R8)
+bra L59
+*line 449
+L84:
+*line 450
+*line 451
+*line 452
+move.l _cy_key,R8
+jsr (R8)
+bra L59
+*line 453
+*line 454
+L85:
+*line 455
+*line 456
+*line 457
+move _aval,R5
+muls #252,R5
+and #32736,R5
+*line 458
+*line 459
+clr R7
+bra L88
+L89:
+*line 460
+*line 461
+*line 461
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L90
+*line 462
+*line 463
+*line 463
+move R5,(sp)
+move #13,-(sp)
+move R7,-(sp)
+jsr _newsv
+addq.l #4,sp
+tst R0
+beq L91
+*line 464
+*line 465
+*line 466
+tst _recsw
+beq L92
+move R7,R8
+add.l R8,R8
+move.l #_grpstat,R9
+tst 0(R8,R9.l)
+beq L92
+tst _ancmsw
+beq L10013
+move R7,R8
+add.l R8,R8
+move.l #_varmode,R9
+move 64(R8,R9.l),R0
+bra L10015
+L10013:move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R0
+L10015:cmp #2,R0
+bne L92
+*line 467
+*line 468
+*line 468
+move #6,(sp)
+jsr _e_alc
+move.l R0,R11
+move.l R11,R0
+beq L93
+*line 469
+*line 470
+move.l _t_cur,(R11)
+*line 471
+move.b #14,5(R11)
+*line 472
+move R7,R0
+or #32,R0
+move.b R0,6(R11)
+*line 473
+move R5,R0
+ext.l R0
+move.l #$10,R1
+asl.l R1,R0
+move.l R0,16(R11)
+*line 474
+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 R11,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 475
+move #1,_ctrsw
+*line 476
+move #1,(sp)
+move.l #_gdstbc,-(sp)
+clr -(sp)
+move.l R11,-(sp)
+jsr _se_disp
+adda.l #10,sp
+*line 477
+clr _ctrsw
+*line 478
+*line 479
+L93:bra L94
+L92:
+*line 480
+*line 480
+move _angroup,R0
+sub #1,R0
+cmp R0,R7
+bne L95
+*line 481
+*line 482
+move #2,(sp)
+jsr _dsanval
+*line 483
+L95:L94:
+*line 484
+L91:
+*line 485
+L90:L87:
+*line 459
+add #1,R7
+L88:
+*line 459
+cmp #12,R7
+blt L89
+L86:
+*line 486
+*line 487
+bra L59
+*line 488
+*line 489
+*line 490
+*line 491
+L96:
+*line 492
+*line 493
+*line 494
+jsr _wheel
+bra L59
+*line 495
+L97:
+*line 496
+*line 497
+*line 498
+move.l _x_key,R8
+jsr (R8)
+bra L59
+*line 499
+L98:
+*line 500
+*line 501
+*line 506
+*line 507
+move.l _e_key,R8
+jsr (R8)
+*line 508
+*line 513
+*line 514
+bra L59
+*line 515
+*line 516
+L99:
+*line 517
+*line 518
+*line 519
+move.l _m_key,R8
+jsr (R8)
+bra L59
+*line 520
+L100:
+*line 521
+*line 522
+*line 523
+*line 524
+cmp #50,_aval
+ble L101
+*line 524
+*line 525
+cmp #53,_aval
+bge L102
+*line 525
+move #50,_aval
+*line 526
+bra L103
+L102:
+*line 527
+sub #2,_aval
+L103:
+*line 528
+L101:
+*line 529
+cmp #100,_aval
+ble L10016
+move #100,R0
+bra L10018
+L10016:move _aval,R0
+L10018:move R0,_tmpomlt
+*line 530
+*line 531
+move _tmpomlt,R6
+add #50,R6
+muls _tmpoval,R6
+*line 532
+move R6,R0
+ext.l R0
+move.l R0,-(sp)
+move.l #$124f800,-(sp)
+jsr ldiv
+addq.l #8,sp
+sub.l #$1,R0
+move R0,R6
+*line 533
+*line 534
+move R6,R0
+asr #8,R0
+move.b R0,8+_io_time
+*line 535
+move R6,R0
+and #255,R0
+move.b R0,10+_io_time
+*line 536
+*line 537
+*line 537
+cmp #50,_tmpomlt
+bne L104
+*line 538
+*line 539
+move.b #24,_io_leds
+*line 540
+move.b #25,_io_leds
+*line 541
+bra L105
+L104:
+*line 542
+*line 542
+cmp #50,_tmpomlt
+ble L106
+*line 543
+*line 544
+move.b #152,_io_leds
+*line 545
+move.b #25,_io_leds
+*line 546
+bra L107
+L106:
+*line 547
+*line 548
+*line 549
+move.b #24,_io_leds
+*line 550
+move.b #153,_io_leds
+L107:L105:
+*line 551
+*line 552
+bra L59
+*line 553
+*line 554
+*line 555
+L108:
+*line 556
+*line 557
+*line 558
+*line 559
+cmp #50,_aval
+ble L109
+*line 559
+*line 560
+cmp #53,_aval
+bge L110
+*line 560
+move #50,_aval
+*line 561
+bra L111
+L110:
+*line 562
+sub #2,_aval
+L111:
+*line 563
+L109:
+*line 564
+cmp #100,_aval
+ble L10019
+move #100,R0
+bra L10021
+L10019:move _aval,R0
+L10021:move R0,R6
+*line 565
+move R6,R8
+add.l R8,R8
+add.l #_tmultab,R8
+move (R8),_timemlt
+*line 566
+*line 567
+*line 567
+cmp #50,R6
+bne L112
+*line 568
+*line 569
+move.b #26,_io_leds
+*line 570
+move.b #27,_io_leds
+*line 571
+bra L113
+L112:
+*line 572
+*line 572
+cmp #50,R6
+ble L114
+*line 573
+*line 574
+move.b #154,_io_leds
+*line 575
+move.b #27,_io_leds
+*line 576
+bra L115
+L114:
+*line 577
+*line 578
+*line 579
+move.b #26,_io_leds
+*line 580
+move.b #155,_io_leds
+L115:L113:
+*line 581
+*line 582
+bra L59
+*line 583
+*line 584
+*line 585
+*line 586
+L116:
+*line 587
+*line 588
+*line 589
+*line 590
+cmp #50,_aval
+ble L117
+*line 590
+*line 591
+cmp #53,_aval
+bge L118
+*line 591
+move #50,_aval
+*line 592
+bra L119
+L118:
+*line 593
+sub #2,_aval
+L119:
+*line 594
+L117:
+*line 595
+cmp #100,_aval
+ble L10022
+move #100,R0
+bra L10024
+L10022:move _aval,R0
+L10024:move R0,R7
+*line 596
+move R7,R0
+add #-50,R0
+asl #2,R0
+move R0,_tuneval
+*line 597
+jsr _settune
+*line 598
+*line 599
+*line 599
+cmp #50,R7
+bne L120
+*line 600
+*line 601
+move.b #28,_io_leds
+*line 602
+move.b #29,_io_leds
+*line 603
+bra L121
+L120:
+*line 604
+*line 604
+cmp #50,R7
+ble L122
+*line 605
+*line 606
+move.b #156,_io_leds
+*line 607
+move.b #29,_io_leds
+*line 608
+bra L123
+L122:
+*line 609
+*line 610
+*line 611
+move.b #28,_io_leds
+*line 612
+move.b #157,_io_leds
+L123:L121:
+*line 613
+*line 614
+bra L59
+*line 615
+*line 616
+*line 617
+L124:
+*line 618
+*line 619
+*line 620
+move _aval,R0
+asr #2,R0
+add R0,_aval
+*line 621
+*line 622
+*line 623
+cmp #127,_aval
+ble L125
+*line 623
+move #127,_aval
+*line 624
+L125:
+*line 625
+move _aval,R0
+move #9,R1
+asl R1,R0
+move #-32768,R1
+eor R1,R0
+move R0,_amplval
+*line 626
+move _amplval,(sp)
+clr -(sp)
+clr -(sp)
+jsr _sendval
+addq.l #4,sp
+bra L59
+*line 627
+*line 628
+L126:
+*line 629
+*line 630
+*line 631
+move _aval,R5
+muls #252,R5
+and #32736,R5
+*line 632
+*line 633
+clr R7
+bra L129
+L130:
+*line 634
+*line 635
+*line 635
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L131
+*line 636
+*line 637
+*line 637
+move R5,(sp)
+move #8,-(sp)
+move R7,-(sp)
+jsr _newsv
+addq.l #4,sp
+tst R0
+beq L132
+*line 638
+*line 639
+*line 640
+tst _recsw
+beq L133
+move R7,R8
+add.l R8,R8
+move.l #_grpstat,R9
+tst 0(R8,R9.l)
+beq L133
+tst _ancmsw
+beq L10025
+move R7,R8
+add.l R8,R8
+add.l #_varmode,R8
+move 128(R8),R0
+bra L10027
+L10025:move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R0
+L10027:cmp #2,R0
+bne L133
+*line 641
+*line 642
+*line 642
+move #6,(sp)
+jsr _e_alc
+move.l R0,R11
+move.l R11,R0
+beq L134
+*line 643
+*line 644
+move.l _t_cur,(R11)
+*line 645
+move.b #14,5(R11)
+*line 646
+move R7,R0
+or #64,R0
+move.b R0,6(R11)
+*line 647
+move R5,R0
+ext.l R0
+move.l #$10,R1
+asl.l R1,R0
+move.l R0,16(R11)
+*line 648
+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 R11,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 649
+move #1,_ctrsw
+*line 650
+move #1,(sp)
+move.l #_gdstbc,-(sp)
+clr -(sp)
+move.l R11,-(sp)
+jsr _se_disp
+adda.l #10,sp
+*line 651
+clr _ctrsw
+*line 652
+*line 653
+L134:bra L135
+L133:
+*line 654
+*line 654
+move _angroup,R0
+sub #1,R0
+cmp R0,R7
+bne L136
+*line 655
+*line 656
+move #4,(sp)
+jsr _dsanval
+*line 657
+L136:L135:
+*line 658
+L132:
+*line 659
+L131:L128:
+*line 633
+add #1,R7
+L129:
+*line 633
+cmp #12,R7
+blt L130
+L127:
+*line 660
+*line 661
+bra L59
+*line 662
+*line 663
+*line 664
+*line 665
+L137:
+*line 666
+*line 667
+*line 668
+move _aval,R5
+muls #252,R5
+and #32736,R5
+*line 669
+*line 670
+clr R7
+bra L140
+L141:
+*line 671
+*line 672
+*line 672
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L142
+*line 673
+*line 674
+*line 674
+move R5,(sp)
+move #2,-(sp)
+move R7,-(sp)
+jsr _newsv
+addq.l #4,sp
+tst R0
+beq L143
+*line 675
+*line 676
+*line 677
+tst _recsw
+beq L144
+move R7,R8
+add.l R8,R8
+move.l #_grpstat,R9
+tst 0(R8,R9.l)
+beq L144
+tst _ancmsw
+beq L10028
+move R7,R8
+add.l R8,R8
+move.l #_varmode,R9
+move 96(R8,R9.l),R0
+bra L10030
+L10028:move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R0
+L10030:cmp #2,R0
+bne L144
+*line 678
+*line 679
+*line 679
+move #6,(sp)
+jsr _e_alc
+move.l R0,R11
+move.l R11,R0
+beq L145
+*line 680
+*line 681
+move.l _t_cur,(R11)
+*line 682
+move.b #14,5(R11)
+*line 683
+move R7,R0
+or #48,R0
+move.b R0,6(R11)
+*line 684
+move R5,R0
+ext.l R0
+move.l #$10,R1
+asl.l R1,R0
+move.l R0,16(R11)
+*line 685
+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 R11,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 686
+move #1,_ctrsw
+*line 687
+move #1,(sp)
+move.l #_gdstbc,-(sp)
+clr -(sp)
+move.l R11,-(sp)
+jsr _se_disp
+adda.l #10,sp
+*line 688
+clr _ctrsw
+*line 689
+*line 690
+L145:L144:
+*line 691
+*line 691
+move _angroup,R0
+sub #1,R0
+cmp R0,R7
+bne L146
+*line 692
+*line 693
+move #3,(sp)
+jsr _dsanval
+*line 694
+L146:
+*line 695
+L143:
+*line 696
+L142:L139:
+*line 670
+add #1,R7
+L140:
+*line 670
+cmp #12,R7
+blt L141
+L138:
+*line 697
+*line 698
+bra L59
+*line 699
+*line 700
+bra L59
+L60:sub #53,R0
+cmp #26,R0
+bhi L59
+asl #2,R0
+move R0,R8
+add.l #L147,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L147:.dc.l L61
+.dc.l L72
+.dc.l L83
+.dc.l L84
+.dc.l L59
+.dc.l L85
+.dc.l L96
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L59
+.dc.l L97
+.dc.l L98
+.dc.l L99
+.dc.l L100
+.dc.l L108
+.dc.l L116
+.dc.l L124
+.dc.l L126
+.dc.l L59
+.dc.l L137
+.text
+L59:L58:L56:L53:L49:
+*line 701
+*line 702
+L47:
+*line 703
+*line 704
+*line 705
+*line 706
+*line 713
+*line 714
+*line 715
+*line 716
+L40:
+*line 717
+*line 717
+cmp #2,_ndisp
+bne L148
+tst.b _se_chg
+beq L148
+tst _dsp_ok
+beq L148
+*line 718
+*line 719
+jsr _dsmem
+*line 720
+clr.b _se_chg
+*line 721
+*line 722
+L148:
+*line 723
+clr _nxtflag
+*line 724
+move.l _fc_val,-30(R14)
+*line 725
+*line 726
+*line 726
+move.l _t_cur,R0
+cmp.l -30(R14),R0
+beq L149
+*line 727
+*line 728
+*line 728
+move.l _t_cur,R0
+cmp.l -30(R14),R0
+bge L150
+*line 729
+*line 730
+*line 731
+cmp #1,_se
+bne L151
+*line 731
+jsr _chgsef
+*line 732
+L151:
+*line 733
+move.l -30(R14),(sp)
+jsr _sc_trek
+*line 734
+bra L152
+L150:
+*line 735
+*line 736
+*line 737
+*line 738
+tst _se
+bne L153
+*line 738
+jsr _chgseb
+*line 739
+L153:
+*line 740
+move.l -30(R14),(sp)
+jsr _sc_trek
+L152:
+*line 741
+*line 742
+*line 743
+*line 744
+bra L154
+L149:
+*line 745
+*line 745
+tst _dsp_ok
+beq L155
+move.l _t_ctr,R0
+cmp.l _t_cur,R0
+beq L155
+*line 746
+*line 747
+*line 747
+move.l _t_ctr,R0
+cmp.l _t_cur,R0
+bge L156
+*line 748
+*line 749
+*line 750
+cmp #1,_sd
+bne L157
+*line 750
+jsr _chgsdf
+*line 751
+L157:
+*line 752
+move.l _t_ctr,(sp)
+add.l #$1,(sp)
+jsr _sc_trak
+*line 753
+bra L158
+L156:
+*line 754
+*line 755
+*line 756
+*line 757
+tst _sd
+bne L159
+*line 757
+jsr _chgsdb
+*line 758
+L159:
+*line 759
+move.l _t_ctr,(sp)
+sub.l #$1,(sp)
+jsr _sc_trak
+L158:
+*line 760
+*line 761
+*line 762
+*line 763
+*line 768
+*line 769
+*line 770
+*line 771
+L155:L154:
+*line 772
+*line 772
+tst _nxtflag
+beq L160
+tst _sd
+bne L160
+*line 773
+*line 774
+move _recsw,-26(R14)
+*line 775
+move _clkrun,-24(R14)
+*line 776
+*line 777
+move _curscor,R6
+add #1,R6
+*line 778
+*line 779
+*line 780
+cmp #20,R6
+blt L161
+*line 780
+clr R6
+*line 781
+L161:
+*line 782
+clr R7
+bra L164
+L165:
+*line 783
+*line 784
+*line 784
+move R6,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_scores,R8
+tst.l (R8)
+beq L166
+*line 785
+*line 786
+move R6,(sp)
+jsr _selscor
+bra L162
+*line 787
+*line 788
+*line 789
+L166:
+*line 790
+*line 791
+add #1,R6
+move R6,R0
+cmp #20,R0
+blt L167
+*line 791
+clr R6
+L167:L163:
+*line 782
+add #1,R7
+L164:
+*line 782
+cmp #20,R7
+blt L165
+L162:
+*line 792
+*line 793
+*line 794
+move -24(R14),(sp)
+jsr _clkset
+*line 795
+jsr _dsclk
+*line 796
+move -26(R14),_recsw
+*line 797
+jsr _dsrpmod
+*line 798
+clr _nxtflag
+*line 799
+*line 800
+*line 804
+*line 805
+L160:
+*line 806
+jsr _curproc
+*line 807
+*line 811
+*line 812
+*line 813
+jsr _seqproc
+L8:
+*line 814
+tst _runit
+bne L7
+L6:L5:tst.l (sp)+
+movem.l (sp)+,R4-R7/R11-R13
+unlk R14
+rts
+.data
