.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