.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 _ebflag
.globl _ebuf
.globl _curfet
.globl _cfetp
.globl _infetp
.globl _v_obtab
.globl _v_curob
.globl _v_nobj
.globl _v_obpri
.globl _lcdx
.globl _lcdy
.globl _lcdbit
.globl _lcdrow
.globl _lcdcol
.globl _lcdbase
.globl _lcdctl1
.globl _lcdctl2
.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 _secopok
.globl _t_sbgn
.globl _t_send
.globl _t_sect
.globl _t_sec1
.globl _t_sec2
.globl _t_cbgn
.globl _t_cend
.globl _p_sbgn
.globl _p_send
.globl _p_sec1
.globl _p_sec2
.globl _p_cbgn
.globl _p_cend
.globl _itxput
.globl _point
.globl _ancmsw
.globl _angroup
.globl _asmode
.globl _clkrun
.globl _clkctl
.globl _clksrc
.globl _ctrsw
.globl _cxval
.globl _cyval
.globl _dubsw
.globl _gomode
.globl _grptran
.globl _gtmsel
.globl _hitbox
.globl _hitcx
.globl _hitcy
.globl _insmode
.globl _ismode
.globl _lastam
.globl _midiclk
.globl _noteop
.globl _notesel
.globl _oldpk
.globl _oldsl
.globl _pchsw
.globl _pkctrl
.globl _pulsclk
.globl _recsw
.globl _scmctl
.globl _sdmcol
.globl _sdmctl
.globl _sdmrow
.globl _secop
.globl _sgoflag
.globl _sliders
.globl _stccol
.globl _stcrow
.globl _stepclk
.globl _stepenb
.globl _submenu
.globl _velflag
.globl _vtccol
.globl _vtcrow
.globl _grptmap
.globl _sctctab
.globl _asgtab
.globl _csbp
.globl _curboxp
.globl _stimes
.globl _obj8
.globl _obj11
.globl _swpt
.globl _oldsw
.globl _t_ngrp
.globl _bfs
.globl _tunname
.globl _gdstbc
.globl _sdmenus
.data
_sdmenus:
*line 122
.dc.l L1
*line 123
.dc.l L2
*line 124
.dc.l L3
*line 128
.dc.l L4
*line 129
.dc.l L5
*line 130
.dc.l L6
*line 134
.dc.l L7
*line 135
.dc.l L8
*line 136
.dc.l L9
*line 140
.dc.l L10
*line 141
.dc.l L11
*line 142
.dc.l L12
*line 146
.dc.l L13
*line 147
.dc.l L14
*line 148
.dc.l L15
.globl _sdmln3
.data
_sdmln3:
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$52,$65,$47,$72,$70,$20,$20,$52,$65,$6D,$6F,$76,$65,$20,$54,$72,$6E,$20,$53,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
.even
.globl _sdmln4
.data
_sdmln4:
.dc.b $45,$73,$63,$61,$70,$65,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$44,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
.even
.globl _sdmht
.data
_sdmht:
.dc.w $6
.dc.w $0
.dc.w $0
.dc.w $3
.dc.w $1
.dc.w $4
.dc.w $4
.dc.w $1
.dc.w $5
.dc.w $5
.dc.w $1
.dc.w $3
.dc.w $3
.dc.w $8
.dc.w $B
.dc.w $4
.dc.w $8
.dc.w $B
.dc.w $5
.dc.w $8
.dc.w $C
.dc.w $3
.dc.w $F
.dc.w $13
.dc.w $4
.dc.w $F
.dc.w $17
.dc.w $5
.dc.w $F
.dc.w $17
.dc.w $6
.dc.w $F
.dc.w $14
.dc.w $6
.dc.w $8
.dc.w $C
.globl _sdmlim
.data
_sdmlim:
.dc.w $13
.dc.w $1
.dc.w $15
.dc.w $1E
.dc.w $13
.dc.w $1
.dc.w $15
.dc.w $1E
.dc.w $13
.dc.w $1
.dc.w $15
.dc.w $14
.dc.w $13
.dc.w $1
.dc.w $15
.dc.w $13
.dc.w $13
.dc.w $1
.dc.w $17
.dc.w $3E
.globl _nedlbl
.data
_nedlbl:
*line 194
.dc.l L18
*line 195
.dc.l L19
*line 196
.dc.l L20
*line 197
.dc.l L21
*line 198
.dc.l L22
*line 199
.dc.l L23
*line 201
.dc.l L24
.globl _sdboxes
.data
_sdboxes:
.dc.w $0
.dc.w $0
.dc.w $AF
.dc.w $D
.dc.w $0
*line 208
.dc.l _sdboxfn
.dc.w $B0
.dc.w $0
.dc.w $E7
.dc.w $D
.dc.w $1
*line 209
.dc.l _sdboxfn
.dc.w $E8
.dc.w $0
.dc.w $1B7
.dc.w $D
.dc.w $2
*line 210
.dc.l _sdboxfn
.dc.w $1B8
.dc.w $0
.dc.w $1FF
.dc.w $D
.dc.w $3
*line 211
.dc.l _sdboxfn
.dc.w $0
.dc.w $EE
.dc.w $6F
.dc.w $FB
.dc.w $4
*line 213
.dc.l _sdboxfn
.dc.w $70
.dc.w $EE
.dc.w $A7
.dc.w $FB
.dc.w $5
*line 214
.dc.l _sdboxfn
.dc.w $A8
.dc.w $EE
.dc.w $F7
.dc.w $FB
.dc.w $6
*line 215
.dc.l _enterit
.dc.w $F8
.dc.w $EE
.dc.w $13F
.dc.w $FB
.dc.w $7
*line 216
.dc.l _enterit
.dc.w $140
.dc.w $EE
.dc.w $18E
.dc.w $FB
.dc.w $8
*line 217
.dc.l _sdboxfn
.dc.w $190
.dc.w $EE
.dc.w $1C7
.dc.w $FB
.dc.w $9
*line 218
.dc.l _sdboxfn
.dc.w $1C8
.dc.w $EE
.dc.w $1FF
.dc.w $FB
.dc.w $A
*line 219
.dc.l _sdboxfn
.dc.w $0
.dc.w $FC
.dc.w $1FF
.dc.w $133
.dc.w $B
*line 221
.dc.l _sdboxfn
.dc.w $0
.dc.w $134
.dc.w $1FF
.dc.w $14F
.dc.w $C
*line 223
.dc.l _sdboxfn
.dc.w $0
.dc.w $150
.dc.w $D7
.dc.w $15D
.dc.w $D
*line 225
.dc.l _sdboxfn
.dc.w $D8
.dc.w $150
.dc.w $1C7
.dc.w $15D
.dc.w $E
*line 226
.dc.l _sdboxfn
.dc.w $1C8
.dc.w $150
.dc.w $1FF
.dc.w $15D
.dc.w $F
*line 227
.dc.l _sdboxfn
.dc.w $0
.dc.w $E
.dc.w $1FF
.dc.w $ED
.dc.w $10
*line 229
.dc.l _sdboxfn
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.globl _insect
.text
_insect:
~~insect:
link R14,#0
movem.l R6-R7,-(sp)
~col=R7
*line 248
move _vtccol,R7
add #-24,R7
*line 250
*line 251
tst R7
bge L26
*line 251
move #-1,R0
bra L25
*line 252
L26:
*line 253
move R7,R0
and #3,R0
move R0,_sgoflag
*line 255
*line 256
cmp #19,_vtcrow
blt L10000
cmp #20,_vtcrow
ble L27
L10000:*line 256
move #-1,R0
bra L25
*line 257
L27:
*line 258
move R7,R0
asr #2,R0
move _vtcrow,R1
add #-19,R1
muls #10,R1
add R1,R0
bra L25
L25:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _svtdsp
.text
_svtdsp:
~~svtdsp:
~obj=8
~fg=12
~bg=14
~row=16
~col=18
~buf=20
link R14,#-4
*line 273
*line 274
clr R0
move 10+_v_regs,R0
and #384,R0
beq L29
*line 274
clr (sp)
jsr _vbank
*line 275
L29:
*line 276
move #19,(sp)
move.l 20(R14),-(sp)
move 18(R14),-(sp)
move 16(R14),-(sp)
add #-16,(sp)
move.l 8(R14),-(sp)
jsr _vputs
adda.l #12,sp
L28:unlk R14
rts
.globl _svtstop
.text
_svtstop:
~~svtstop:
link R14,#-4
*line 290
move #-1,(sp)
jsr _sdmenu
L30:unlk R14
rts
.globl _bspscur
.text
_bspscur:
~~bspscur:
link R14,#0
movem.l R6-R7,-(sp)
~newcol=R7
*line 303
*line 304
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L32
*line 304
move.l _infetp,_cfetp
*line 305
bra L33
L32:bra L31
L33:
*line 308
move _stccol,R7
sub #1,R7
*line 310
*line 311
move.l _cfetp,R8
cmp 2(R8),R7
blt L34
*line 311
move R7,(sp)
move _stcrow,-(sp)
jsr _stcpos
addq.l #2,sp
*line 312
L34:
*line 313
move _stccol,R0
asl #3,R0
move R0,_cxval
*line 314
move _stcrow,R0
muls #14,R0
move R0,_cyval
L31:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _dsects
.text
_dsects:
~~dsects:
link R14,#-18
movem.l R2-R7/R13-R13,-(sp)
~atr=R7
~row=R6
~col=R5
~i=R4
~j=R3
~buf=-8
~cl=-10
~cr=-12
~csl=-14
~csr=-16
~begun=-18
~sp=R13
*line 336
*line 337
clr R0
move 10+_v_regs,R0
and #384,R0
beq L36
*line 337
clr (sp)
jsr _vbank
*line 338
L36:
*line 339
move #3,R6
*line 341
clr R4
bra L39
L40:
*line 342
*line 343
move #24,R5
*line 344
*line 345
clr R3
bra L43
L44:
*line 346
*line 347
*line 347
move _curscor,R0
muls #240,R0
move R4,R1
add R3,R1
muls #12,R1
add.l R1,R0
move.l R0,R8
move.l #_stimes,R9
tst 0(R8,R9.l)
beq L45
*line 348
*line 349
move.b #91,-14(R14)
*line 350
move.b #93,-16(R14)
*line 351
bra L46
L45:
*line 352
*line 353
*line 354
move.b #123,-14(R14)
*line 355
move.b #125,-16(R14)
L46:
*line 356
*line 357
*line 358
move.b #32,-10(R14)
*line 359
move.b #32,-12(R14)
*line 360
*line 361
*line 361
move _curscor,R0
muls #80,R0
move R4,R1
add R3,R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
tst.l (R8)
beq L47
*line 362
*line 363
move #1,-18(R14)
*line 364
move #84,R7
*line 365
move.b -14(R14),-10(R14)
*line 366
bra L48
L47:
*line 367
*line 368
*line 369
clr -18(R14)
*line 370
move #20,R7
L48:
*line 371
*line 372
*line 373
move _curscor,R0
muls #48,R0
add.l #_hplist,R0
move.l R0,R8
move.l 44(R8),R13
*line 374
*line 375
bra L51
L50:
*line 376
*line 377
*line 377
move R4,R0
add R3,R0
move.b 6(R13),R1
ext.w R1
cmp R1,R0
bne L52
*line 378
*line 379
tst -18(R14)
beq L10001
move.b -16(R14),R0
ext.w R0
bra L10003
L10001:move #125,R0
L10003:move.b R0,-12(R14)
bra L49
*line 380
*line 381
*line 382
L52:
*line 383
move.l 20(R13),R13
L51:
*line 384
move.l R13,R0
bne L50
L49:
*line 385
*line 386
move.b -12(R14),R0
ext.w R0
move R0,(sp) 
move R4,-(sp)
move R3,R0
add R0,(sp)
add #1,(sp)
move.b -10(R14),R0
ext.w R0
move R0,-(sp) 
move.l #L53,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
adda.l #12,sp
*line 387
*line 388
move R7,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move R5,-(sp)
move R6,-(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
*line 389
add #4,R5
L42:
*line 345
add #1,R3
L43:
*line 345
cmp #10,R3
blt L44
L41:
*line 390
*line 391
*line 392
add #1,R6
L38:
*line 341
add #10,R4
L39:
*line 341
cmp #20,R4
blt L40
L37:L35:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.globl _dsgtmn
.text
_dsgtmn:
~~dsgtmn:
~n=8
~f=10
link R14,#-12
~buf=-4
~atr=-6
~col=-8
*line 411
move 8(R14),(sp)
add #1,(sp)
move.l #L55,-(sp)
move.l R14,-(sp)
sub.l #4,(sp)
jsr _sprintf
addq.l #8,sp
*line 413
move 8(R14),R0
muls #3,R0
add #28,R0
move R0,-8(R14)
*line 414
tst 10(R14)
beq L10004
move #84,R0
bra L10006
L10004:move #20,R0
L10006:move R0,-6(R14)
*line 416
*line 417
clr R0
move 10+_v_regs,R0
and #384,R0
beq L56
*line 417
clr (sp)
jsr _vbank
*line 418
L56:
*line 419
move -6(R14),(sp)
move.l R14,-(sp)
sub.l #4,(sp)
move -8(R14),-(sp)
move #6,-(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
L54:unlk R14
rts
.globl _dsgtme
.text
_dsgtme:
~~dsgtme:
~n=8
link R14,#-10
~buf=-4
~col=-6
*line 434
*line 435
move 8(R14),R8
add.l R8,R8
add.l #_grptmap,R8
cmp #-1,(R8)
bne L58
*line 435
move.l #L59,(sp)
move.l R14,-(sp)
sub.l #4,(sp)
jsr _strcpy
addq.l #4,sp
*line 436
bra L60
L58:
*line 437
move 8(R14),R8
add.l R8,R8
move.l #_grptmap,R9
move 0(R8,R9.l),(sp)
add #1,(sp)
move.l #L61,-(sp)
move.l R14,-(sp)
sub.l #4,(sp)
jsr _sprintf
addq.l #8,sp
L60:
*line 439
move 8(R14),R0
muls #3,R0
add #28,R0
move R0,-6(R14)
*line 441
*line 442
clr R0
move 10+_v_regs,R0
and #384,R0
beq L62
*line 442
clr (sp)
jsr _vbank
*line 443
L62:
*line 444
move #20,(sp)
move.l R14,-(sp)
sub.l #4,(sp)
move -6(R14),-(sp)
move #7,-(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
L57:unlk R14
rts
.globl _dsgtmap
.text
_dsgtmap:
~~dsgtmap:
link R14,#-6
movem.l R6-R7,-(sp)
~buf=-6
~i=R7
*line 461
*line 462
clr R0
move 10+_v_regs,R0
and #384,R0
beq L64
*line 462
clr (sp)
jsr _vbank
*line 463
L64:
*line 464
tst _grptran
bge L10007
move _grptran,R0
neg R0
move R0,(sp)
bra L10009
L10007:move _grptran,(sp)
L10009:tst _grptran
bge L10010
move #45,-(sp)
bra L10012
L10010:move #43,-(sp)
L10012:move.l #L65,-(sp)
move.l R14,-(sp)
sub.l #6,(sp)
jsr _sprintf
adda.l #10,sp
*line 466
move #20,(sp)
move.l R14,-(sp)
sub.l #6,(sp)
move #22,-(sp)
move #7,-(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
*line 468
clr R7
bra L68
L69:
*line 469
*line 470
cmp _gtmsel,R7
beq L10013
clr (sp)
bra L10014
L10013:move #1,(sp)
L10014:move R7,-(sp)
jsr _dsgtmn
addq.l #2,sp
*line 471
move R7,(sp)
jsr _dsgtme
L67:
*line 468
add #1,R7
L68:
*line 468
cmp #12,R7
blt L69
L66:L63:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _ingroup
.text
_ingroup:
~~ingroup:
link R14,#0
movem.l R6-R7,-(sp)
~col=R7
*line 486
move _vtccol,R7
add #-28,R7
*line 488
*line 489
tst R7
bge L71
*line 489
move #-1,R0
bra L70
*line 490
L71:
*line 491
*line 492
move R7,R0
ext.l R0
divs #3,R0
swap R0
cmp #2,R0
bne L72
*line 492
move #-1,R0
bra L70
*line 493
L72:
*line 494
move R7,R0
ext.l R0
divs #3,R0
bra L70
L70:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _sdmtxt
.text
_sdmtxt:
~~sdmtxt:
~row=8
~col=10
~txt=12
~tag=16
link R14,#-4
*line 511
*line 512
clr R0
move 10+_v_regs,R0
and #384,R0
cmp #256,R0
beq L74
*line 512
move #1,(sp)
jsr _vbank
*line 513
L74:
*line 514
move #14,(sp)
move.l 12(R14),-(sp)
move 10(R14),-(sp)
move 8(R14),-(sp)
move #2,-(sp)
move #1,-(sp)
move #64,-(sp)
move.l _obj11,-(sp)
jsr _vcputsv
adda.l #18,sp
L73:unlk R14
rts
.globl _showam
.text
_showam:
~~showam:
~asg=R7
link R14,#0
movem.l R3-R7,-(sp)
~col=R6
~na=R5
~row=R4
*line 531
move 8(R14),R7
*line 531
*line 532
cmp #1,R7
bne L76
*line 532
move #48,R5
*line 533
bra L77
L76:
*line 534
move #100,R5
L77:
*line 536
move #2,R6
bra L80
L81:
*line 537
*line 538
*line 539
cmp R5,R7
bge L75
*line 540
*line 541
clr -(sp)
move.l #L82,-(sp)
move R6,-(sp)
clr -(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 542
*line 543
move #1,R4
bra L85
L86:
*line 544
*line 545
*line 546
cmp R5,R7
bge L75
*line 547
*line 548
move R7,R0
muls #332,R0
add.l #_asgtab,R0
move.l R0,(sp)
add.l #316,(sp)
move R7,-(sp)
move.l #L87,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 549
move #1,-(sp)
move.l #_bfs,-(sp)
move R6,-(sp)
move R4,-(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 550
add #1,R7
L84:
*line 543
add #1,R4
L85:
*line 543
cmp #15,R4
blt L86
L83:
*line 551
L79:
*line 536
add #15,R6
L80:
*line 536
cmp #60,R6
blt L81
L78:L75:tst.l (sp)+
movem.l (sp)+,R4-R7
unlk R14
rts
.globl _showtm
.text
_showtm:
~~showtm:
link R14,#0
movem.l R5-R7,-(sp)
~row=R7
~tun=R6
*line 568
clr R6
*line 570
clr -(sp)
move.l #L89,-(sp)
clr -(sp)
clr -(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 572
move #1,R7
bra L92
L93:
*line 573
*line 574
move R6,R0
asl #5,R0
ext.l R0
add.l #_tunname,R0
move.l R0,(sp)
move R6,-(sp)
move.l #L94,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 575
move #1,-(sp)
move.l #_bfs,-(sp)
clr -(sp)
move R7,-(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 576
add #1,R6
L91:
*line 572
add #1,R7
L92:
*line 572
cmp #11,R7
blt L93
L90:L88:tst.l (sp)+
movem.l (sp)+,R6-R7
unlk R14
rts
.globl _showsm
.text
_showsm:
~~showsm:
link R14,#0
movem.l R4-R7,-(sp)
~col=R7
~row=R6
~scr=R5
*line 593
move #1,R5
*line 595
move #1,R7
bra L98
L99:
*line 596
*line 597
*line 598
cmp #20,R5
bgt L95
*line 599
*line 600
clr -(sp)
move.l #L100,-(sp)
move R7,-(sp)
clr -(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 601
*line 602
move #1,R6
bra L103
L104:
*line 603
*line 604
*line 605
cmp #20,R5
bgt L95
*line 606
*line 607
move R5,R0
sub #1,R0
asl #4,R0
ext.l R0
add.l #_scname,R0
move.l R0,(sp)
move R5,-(sp)
move.l #L105,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 608
move #1,-(sp)
move.l #_bfs,-(sp)
move R7,-(sp)
move R6,-(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 609
add #1,R5
L102:
*line 602
add #1,R6
L103:
*line 602
cmp #15,R6
blt L104
L101:
*line 610
L97:
*line 595
add #22,R7
L98:
*line 595
cmp #46,R7
blt L99
L96:L95:tst.l (sp)+
movem.l (sp)+,R5-R7
unlk R14
rts
.globl _scmenu
.text
_scmenu:
~~scmenu:
~n=R7
link R14,#0
movem.l R5-R7/R13-R13,-(sp)
~i=R6
~op=R13
*line 629
move 8(R14),R7
*line 629
*line 629
tst R7
blt L107
*line 630
*line 631
move.l #_sdmtxt,_itxput
*line 632
*line 633
clr (sp)
jsr _vbank
*line 634
*line 635
or #16,_v_odtab
*line 636
clr (sp)
jsr _objclr
*line 637
*line 638
or #16,8+_v_odtab
*line 639
move #1,(sp)
jsr _objclr
*line 640
*line 641
or #16,16+_v_odtab
*line 642
move #2,(sp)
jsr _objclr
*line 643
*line 644
move #1,(sp)
jsr _vbank
*line 645
move #2,(sp)
jsr _exp_c
move R0,(sp)
move #223,-(sp)
move #511,-(sp)
clr -(sp)
clr -(sp)
move #128,-(sp)
move.l _obj11,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 646
*line 647
clr (sp)
jsr _vbank
*line 648
move #4,(sp)
move #11,-(sp)
jsr _SetPri
addq.l #2,sp
*line 649
*line 650
move R7,R0
bra L109
*line 651
L110:
*line 652
*line 653
*line 654
jsr _showim
bra L108
*line 655
*line 656
L111:
*line 657
*line 658
*line 659
move _lastam,(sp)
jsr _showam
*line 660
move #11,(sp)
move #17,-(sp)
jsr _stcpos
addq.l #2,sp
*line 661
*line 662
move #88,_cxval
*line 663
move #238,_cyval
*line 664
*line 665
*line 666
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L112
*line 666
move.l _infetp,_cfetp
*line 667
L112:bra L108
*line 668
*line 669
L113:
*line 670
*line 671
*line 672
jsr _showtm
*line 673
move #19,(sp)
move #17,-(sp)
jsr _stcpos
addq.l #2,sp
*line 674
*line 675
move #152,_cxval
*line 676
move #238,_cyval
*line 677
*line 678
*line 679
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L114
*line 679
move.l _infetp,_cfetp
*line 680
L114:bra L108
*line 681
*line 682
L115:
*line 683
*line 684
*line 685
jsr _showsm
*line 686
move #7,(sp)
move #24,-(sp)
jsr _stcpos
addq.l #2,sp
*line 687
*line 688
move #56,_cxval
*line 689
move #336,_cyval
*line 690
*line 691
*line 692
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L116
*line 692
move.l _infetp,_cfetp
*line 693
L116:bra L108
*line 694
*line 695
L117:
*line 696
*line 697
bra L108
*line 698
bra L108
L109:tst R0
beq L110
cmp #1,R0
beq L111
cmp #2,R0
beq L113
cmp #3,R0
beq L115
bra L117
L108:
*line 699
*line 700
bra L118
L107:
*line 701
*line 702
*line 703
clr (sp)
jsr _vbank
*line 704
*line 705
or #16,32+_v_odtab
*line 706
move #4,(sp)
jsr _objclr
*line 707
*line 708
move.l #234+_v_obtab,R13
*line 709
move (R13),(sp)
move 6(R13),-(sp)
move #2,-(sp)
jsr _objon
addq.l #4,sp
*line 710
and #-17,16+_v_odtab
*line 711
*line 712
move.l #252+_v_obtab,R13
*line 713
move (R13),(sp)
move 6(R13),-(sp)
move #1,-(sp)
jsr _objon
addq.l #4,sp
*line 714
and #-17,8+_v_odtab
*line 715
*line 716
move.l #270+_v_obtab,R13
*line 717
move (R13),(sp)
move 6(R13),-(sp)
clr -(sp)
jsr _objon
addq.l #4,sp
*line 718
and #-17,_v_odtab
L118:
*line 721
move R7,_scmctl
L106:tst.l (sp)+
movem.l (sp)+,R6-R7/R13-R13
unlk R14
rts
.globl _sdmenu
.text
_sdmenu:
~~sdmenu:
~n=R7
link R14,#0
movem.l R4-R7,-(sp)
~i=R6
~wasup=R5
*line 737
move 8(R14),R7
*line 737
move _sdmctl,R5
*line 738
move R7,_sdmctl
*line 740
*line 740
tst R7
blt L120
*line 741
*line 742
move #1,_submenu
*line 743
*line 744
move _stcrow,_sdmrow
*line 745
move _stccol,_sdmcol
*line 746
*line 747
move #64,(sp)
move #4,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move.l #384+_sctctab,-(sp)
jsr _memsetw
addq.l #6,sp
*line 748
move #64,(sp)
move #4,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move.l #512+_sctctab,-(sp)
jsr _memsetw
addq.l #6,sp
*line 749
move #64,(sp)
move #4,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move.l #640+_sctctab,-(sp)
jsr _memsetw
addq.l #6,sp
*line 750
*line 751
*line 751
cmp #4,R7
bne L121
*line 752
*line 753
move #64,(sp)
move #4,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move.l #768+_sctctab,-(sp)
jsr _memsetw
addq.l #6,sp
*line 754
move #64,(sp)
move #4,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move.l #896+_sctctab,-(sp)
jsr _memsetw
addq.l #6,sp
*line 755
*line 756
L121:
*line 757
jsr _stcclr
*line 758
move _sdmcol,(sp)
move _sdmrow,-(sp)
jsr _stcpos
addq.l #2,sp
*line 759
*line 760
*line 761
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L122
*line 761
move.l _infetp,_cfetp
*line 762
L122:
*line 763
*line 764
clr R0
move 10+_v_regs,R0
and #384,R0
beq L123
*line 764
clr (sp)
jsr _vbank
*line 765
L123:
*line 766
clr R6
bra L126
L127:
*line 767
move #20,(sp)
move R7,R0
muls #12,R0
move R6,R1
asl #2,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_sdmenus,R9
move.l 0(R8,R9.l),-(sp)
clr -(sp)
move R6,-(sp)
add #3,(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
L125:
*line 766
add #1,R6
L126:
*line 766
cmp #3,R6
blt L127
L124:
*line 767
*line 768
*line 769
*line 770
*line 770
cmp #4,R7
bne L128
*line 771
*line 772
move #20,(sp)
move.l #_sdmln3,-(sp)
clr -(sp)
move #6,-(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
*line 773
move #20,(sp)
move.l #_sdmln4,-(sp)
clr -(sp)
move #7,-(sp)
move.l _obj8,-(sp)
jsr _vputs
adda.l #12,sp
*line 774
*line 775
clr _secop
*line 776
*line 777
clr _grptran
*line 778
move #-1,_gtmsel
*line 779
*line 780
clr R6
bra L131
L132:
*line 781
move R6,R8
add.l R8,R8
add.l #_grptmap,R8
move R6,(R8)
L130:
*line 780
add #1,R6
L131:
*line 780
cmp #12,R6
blt L132
L129:
*line 781
*line 782
*line 783
jsr _dsects
*line 784
jsr _dsgtmap
*line 785
*line 786
move.l #_GLCplot,_point
*line 787
move #1,(sp)
jsr _GLCcurs
*line 788
*line 789
*line 789
tst _ismode
beq L133
*line 790
*line 791
clr _ismode
*line 792
move _oldpk,_pkctrl
*line 793
move _oldsl,_sliders
*line 794
move.l _oldsw,_swpt
*line 795
jsr _lcdlbls
*line 796
*line 797
L133:
*line 798
*line 798
tst _gomode
beq L134
*line 799
*line 800
clr _gomode
*line 801
move _oldpk,_pkctrl
*line 802
clr (sp)
move #54,-(sp)
move #215,-(sp)
move #54,-(sp)
move #186,-(sp)
jsr _lseg
addq.l #8,sp
*line 803
*line 804
L134:
*line 805
*line 805
tst _asmode
beq L135
*line 806
*line 807
clr _asmode
*line 808
move _oldpk,_pkctrl
*line 809
move.l _oldsw,_swpt
*line 810
clr (sp)
move #54,-(sp)
move #287,-(sp)
move #54,-(sp)
move #258,-(sp)
jsr _lseg
addq.l #8,sp
*line 811
*line 812
L135:
*line 813
*line 814
tst _pkctrl
beq L10015
cmp #1,_pkctrl
bne L136
L10015:*line 814
move _pkctrl,_oldpk
*line 815
L136:
*line 816
*line 817
cmp #5,_sliders
beq L137
*line 817
move _sliders,_oldsl
*line 818
L137:
*line 819
move.l _swpt,_oldsw
*line 820
move.l #_t_ngrp,_swpt
*line 821
move #6,_pkctrl
*line 822
move #6,_sliders
*line 823
*line 824
jsr _lcdlbls
*line 825
jsr _setleds
*line 826
*line 827
L128:
*line 828
move #14,(sp)
move #2,-(sp)
jsr _SetPri
addq.l #2,sp
*line 829
move R7,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 2(R8,R9.l),(sp)
move R7,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_sdmlim,R9
move 0(R8,R9.l),-(sp)
jsr _ttcpos
addq.l #2,sp
*line 830
*line 831
bra L138
L120:
*line 832
*line 833
*line 834
clr _submenu
*line 835
*line 836
*line 837
clr R0
move 10+_v_regs,R0
and #384,R0
beq L139
*line 837
clr (sp)
jsr _vbank
*line 838
L139:
*line 839
move #14,(sp)
jsr _objclr
*line 840
jsr _stcset
*line 841
jsr _stcclr
*line 842
move #11,(sp)
jsr _sdwin
*line 843
*line 844
*line 844
cmp #4,R5
bne L140
*line 845
*line 846
move #12,(sp)
jsr _sdwin
*line 847
*line 848
move _sdmcol,(sp)
move _sdmrow,-(sp)
jsr _stcpos
addq.l #2,sp
*line 849
*line 850
move _sdmcol,R0
asl #3,R0
move R0,_cxval
*line 851
move _sdmrow,R0
muls #14,R0
move R0,_cyval
*line 852
*line 853
*line 854
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L141
*line 854
move.l _infetp,_cfetp
*line 855
L141:
*line 856
move _oldpk,_pkctrl
*line 857
move _oldsl,_sliders
*line 858
move.l _oldsw,_swpt
*line 859
*line 860
jsr _lcdlbls
*line 861
jsr _setleds
*line 862
bra L142
L140:
*line 863
*line 864
*line 865
move _sdmcol,(sp)
move _sdmrow,-(sp)
jsr _stcpos
addq.l #2,sp
*line 866
*line 867
move _sdmcol,R0
asl #3,R0
move R0,_cxval
*line 868
move _sdmrow,R0
muls #14,R0
move R0,_cyval
*line 869
*line 870
*line 871
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L143
*line 871
move.l _infetp,_cfetp
L143:L142:
*line 872
L138:L119:tst.l (sp)+
movem.l (sp)+,R5-R7
unlk R14
rts
.globl _hilitnt
.text
_hilitnt:
~~hilitnt:
~nop=8
link R14,#-4
*line 888
move 8(R14),_noteop
*line 889
clr _notesel
*line 890
move #-1,(sp)
jsr _sdmenu
*line 891
jsr _dnedmod
L144:unlk R14
rts
.globl _hilitop
.text
_hilitop:
~~hilitop:
~n=R7
link R14,#0
movem.l R2-R7,-(sp)
~row=R6
~lc=R5
~rc=R4
~col=R3
*line 908
move 8(R14),R7
*line 908
*line 909
tst _clkrun
bne L145
*line 910
*line 911
*line 912
clr R0
move 10+_v_regs,R0
and #384,R0
beq L146
*line 912
clr (sp)
jsr _vbank
*line 913
L146:
*line 914
*line 914
tst _secop
beq L147
*line 915
*line 916
move _secop,R0
muls #6,R0
add.l #_sdmht,R0
move.l R0,R8
move (R8),R6
*line 917
move _secop,R0
muls #6,R0
add.l #_sdmht,R0
move.l R0,R8
move 2(R8),R5
*line 918
move _secop,R0
muls #6,R0
add.l #_sdmht,R0
move.l R0,R8
move 4(R8),R4
*line 919
*line 920
move R5,R3
bra L150
L151:
*line 921
move #20,(sp)
move R3,-(sp)
move R6,-(sp)
move.l _obj8,-(sp)
jsr _vputa
addq.l #8,sp
L149:
*line 920
add #1,R3
L150:
*line 920
cmp R4,R3
ble L151
L148:
*line 921
*line 922
*line 923
L147:
*line 924
move R7,_secop
*line 926
move R7,R0
muls #6,R0
add.l #_sdmht,R0
move.l R0,R8
move (R8),R6
*line 927
move R7,R0
muls #6,R0
add.l #_sdmht,R0
move.l R0,R8
move 2(R8),R5
*line 928
move R7,R0
muls #6,R0
add.l #_sdmht,R0
move.l R0,R8
move 4(R8),R4
*line 930
move R5,R3
bra L154
L155:
*line 931
move #100,(sp)
move R3,-(sp)
move R6,-(sp)
move.l _obj8,-(sp)
jsr _vputa
addq.l #8,sp
L153:
*line 930
add #1,R3
L154:
*line 930
cmp R4,R3
ble L155
L152:L145:tst.l (sp)+
movem.l (sp)+,R3-R7
unlk R14
rts
.globl _dosecop
.text
_dosecop:
~~dosecop:
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~sect=R7
~ep=R13
*line 948
*line 948
tst _clkrun
bne L10016
jsr _insect
move R0,R7
cmp #-1,R7
bne L157
L10016:*line 949
*line 950
clr _secop
bra L156
*line 951
*line 952
*line 953
L157:
*line 954
*line 954
tst _insmode
beq L158
*line 955
*line 956
jsr _icancel
*line 957
jsr _dsimode
*line 958
*line 959
L158:
*line 960
move _secop,R0
bra L160
*line 961
L161:
*line 962
*line 963
*line 964
*line 964
cmp #3,_sgoflag
bne L162
*line 965
*line 966
move _curscor,R0
muls #48,R0
add.l #_hplist,R0
move.l R0,R8
move.l 44(R8),R13
*line 967
*line 968
bra L165
L164:
*line 969
*line 970
*line 970
move.b 6(R13),R0
ext.w R0
cmp R0,R7
bne L166
*line 971
*line 972
move.l (R13),R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
bra L163
*line 973
*line 974
*line 975
L166:
*line 976
move.l 20(R13),R13
L165:
*line 977
move.l R13,R0
bne L164
L163:
*line 978
bra L167
L162:
*line 979
*line 980
*line 981
*line 982
move _curscor,R0
muls #80,R0
move R7,R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
move.l (R8),R13
move.l R13,R0
beq L168
*line 982
move.l (R13),R0
move.l R0,_fc_val
move.l R0,(sp)
jsr _sc_goto
L168:L167:
*line 983
*line 984
bra L159
*line 985
*line 986
*line 987
L169:
*line 988
*line 989
*line 990
*line 991
tst _recsw
beq L159
*line 992
*line 993
*line 994
clr R0
move 10+_v_regs,R0
and #384,R0
beq L170
*line 994
clr (sp)
jsr _vbank
*line 995
L170:
*line 996
*line 996
move _curscor,R0
muls #80,R0
move R7,R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
move.l (R8),R13
move.l R13,R0
beq L171
*line 997
*line 998
move #10,(sp)
move.l R13,-(sp)
jsr _eh_rmv
addq.l #4,sp
*line 999
move.l R13,(sp)
jsr _e_rmv
*line 1000
move.l _t_cur,(R13)
*line 1001
move.l _t_cur,(sp)
move #1,-(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,R8
move.l 8(R8),(sp)
move.l R13,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 1002
move #10,(sp)
move.l R13,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 1003
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1004
bra L172
L171:
*line 1005
*line 1005
move #6,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L173
*line 1006
*line 1007
move.l _t_cur,(R13)
*line 1008
move.b #2,5(R13)
*line 1009
move.b R7,6(R13)
*line 1010
move.l _t_cur,(sp)
move #1,-(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,R8
move.l 8(R8),(sp)
move.l R13,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 1011
move #10,(sp)
move.l R13,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 1012
move _curscor,R0
muls #80,R0
move R7,R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
move.l R13,(R8)
*line 1013
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1014
*line 1015
L173:L172:
*line 1016
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1017
*line 1018
*line 1019
L174:
*line 1020
*line 1021
*line 1022
*line 1023
tst _recsw
beq L159
*line 1024
*line 1025
*line 1026
clr R0
move 10+_v_regs,R0
and #384,R0
beq L175
*line 1026
clr (sp)
jsr _vbank
*line 1027
L175:
*line 1028
*line 1028
move #-1,(sp)
move R7,-(sp)
move.l #$ffffffff,-(sp)
move #11,-(sp)
jsr _ehfind
addq.l #8,sp
move.l R0,R13
move.l R13,R0
beq L176
*line 1029
*line 1030
move #11,(sp)
move.l R13,-(sp)
jsr _eh_rmv
addq.l #4,sp
*line 1031
move.l R13,(sp)
jsr _e_rmv
*line 1032
move.l _t_cur,(R13)
*line 1033
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 1034
move #11,(sp)
move.l R13,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 1035
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1036
bra L177
L176:
*line 1037
*line 1037
move #6,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L178
*line 1038
*line 1039
move.l _t_cur,(R13)
*line 1040
move.b #3,5(R13)
*line 1041
move.b R7,6(R13)
*line 1042
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 1043
move #11,(sp)
move.l R13,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 1044
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1045
*line 1046
L178:L177:
*line 1047
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1048
*line 1049
*line 1050
L179:
*line 1051
*line 1052
*line 1053
*line 1054
tst _recsw
beq L159
*line 1055
*line 1056
*line 1057
move R7,(sp)
jsr _sec_mov
tst R0
bne L159
*line 1058
*line 1059
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1060
*line 1061
L180:
*line 1062
*line 1063
*line 1064
*line 1065
tst _recsw
beq L159
*line 1066
*line 1067
*line 1068
move R7,(sp)
jsr _sec_cpy
tst R0
bne L159
*line 1069
*line 1070
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1071
*line 1072
L181:
*line 1073
*line 1074
*line 1075
*line 1076
tst _recsw
beq L159
*line 1077
*line 1078
*line 1079
move R7,(sp)
jsr _sec_mrg
tst R0
bne L159
*line 1080
*line 1081
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1082
*line 1083
L182:
*line 1084
*line 1085
*line 1086
*line 1087
tst _recsw
beq L159
*line 1088
*line 1089
*line 1090
move R7,(sp)
jsr _sec_grp
tst R0
bne L159
*line 1091
*line 1092
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1093
*line 1094
*line 1095
*line 1096
L183:
*line 1097
*line 1098
*line 1099
*line 1100
tst _recsw
beq L159
*line 1101
bra L159
*line 1102
*line 1103
L184:
*line 1104
*line 1105
*line 1106
*line 1107
tst _recsw
beq L159
*line 1108
*line 1109
*line 1110
move R7,(sp)
jsr _sec_dgr
tst R0
bne L159
*line 1111
*line 1112
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1113
*line 1114
L185:
*line 1115
*line 1116
*line 1117
*line 1118
tst _recsw
beq L159
*line 1119
*line 1120
*line 1121
move R7,(sp)
jsr _sec_dev
tst R0
bne L159
*line 1122
*line 1123
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1124
*line 1125
L186:
*line 1126
*line 1127
*line 1128
*line 1129
tst _recsw
beq L159
*line 1130
*line 1131
*line 1132
move R7,(sp)
jsr _sec_rmv
tst R0
bne L159
*line 1133
*line 1134
move.l _fc_val,(sp)
jsr _sc_refr
bra L159
*line 1135
bra L159
L160:sub #1,R0
cmp #10,R0
bhi L159
asl #2,R0
move R0,R8
add.l #L187,R8
move.l (R8),R8
jmp (R8)
.data
L187:.dc.l L161
.dc.l L169
.dc.l L174
.dc.l L179
.dc.l L180
.dc.l L181
.dc.l L183
.dc.l L184
.dc.l L185
.dc.l L186
.dc.l L182
.text
L159:
*line 1138
clr _secop
L156:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _clkset
.text
_clkset:
~~clkset:
~st=R7
link R14,#0
movem.l R6-R7,-(sp)
*line 1153
move 8(R14),R7
*line 1153
move R7,_clkrun
*line 1155
move _clksrc,R0
bra L190
*line 1156
L191:
*line 1157
L192:
*line 1158
*line 1159
*line 1160
clr _midiclk
*line 1161
clr _pulsclk
*line 1162
*line 1163
*line 1164
tst R7
beq L193
*line 1164
move #1,_fc_sw
*line 1165
bra L194
L193:
*line 1166
clr _fc_sw
L194:
*line 1167
bra L188
*line 1168
*line 1169
L195:
*line 1170
*line 1171
*line 1172
clr _fc_sw
*line 1173
clr _pulsclk
*line 1174
*line 1175
*line 1176
tst R7
beq L196
*line 1176
move #1,_midiclk
*line 1177
bra L197
L196:
*line 1178
clr _midiclk
L197:
*line 1179
bra L188
*line 1180
*line 1181
*line 1182
L198:
*line 1183
L199:
*line 1184
L200:
*line 1185
*line 1186
*line 1187
clr _fc_sw
*line 1188
clr _midiclk
*line 1189
*line 1190
*line 1191
tst R7
beq L201
*line 1191
move #1,_pulsclk
*line 1192
bra L202
L201:
*line 1193
clr _pulsclk
L202:
*line 1194
bra L188
*line 1195
*line 1196
L203:
*line 1197
*line 1198
*line 1199
clr _fc_sw
*line 1200
clr _midiclk
*line 1201
clr _pulsclk
*line 1202
bra L188
*line 1203
bra L189
L190:cmp #6,R0
bhi L189
asl #2,R0
move R0,R8
add.l #L204,R8
move.l (R8),R8
jmp (R8)
.data
L204:.dc.l L191
.dc.l L195
.dc.l L192
.dc.l L198
.dc.l L199
.dc.l L200
.dc.l L203
.text
L189:L188:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _sdboxfn
.text
_sdboxfn:
~~sdboxfn:
~n=8
link R14,#-4
movem.l R2-R7/R13-R13,-(sp)
~row=R7
~col=R6
~grp=R5
~what=R4
~i=R3
~ep=R13
~atr=-2
~modewas=-4
*line 1224
move _hitcy,R7
ext.l R7
divs #14,R7
*line 1225
move _hitcx,R6
asr #3,R6
*line 1227
move _hitbox,R0
bra L207
*line 1228
L208:
*line 1229
*line 1230
*line 1231
*line 1231
tst R6
bne L209
*line 1232
*line 1233
*line 1234
tst _clkrun
beq L210
*line 1234
move #-1,R0
bra L205
*line 1235
L210:
*line 1236
*line 1237
cmp.b #4,_ac_code
bne L211
*line 1237
move.b #1,_ac_code
*line 1238
bra L212
L211:
*line 1239
move.b #4,_ac_code
L212:
*line 1240
*line 1241
move.l _fc_val,(sp)
jsr _sc_refr
*line 1242
clr R0
bra L205
*line 1243
bra L213
L209:
*line 1244
*line 1244
cmp #2,R6
blt L214
cmp #4,R6
bgt L214
*line 1245
*line 1246
*line 1247
tst _clkrun
beq L215
*line 1247
move #-1,R0
bra L205
*line 1248
L215:
*line 1249
*line 1249
cmp #-1,_sdmctl
bne L216
*line 1250
*line 1251
move #4,(sp)
jsr _sdmenu
*line 1252
clr R0
bra L205
*line 1253
*line 1254
bra L217
L216:
*line 1255
*line 1256
*line 1257
*line 1257
cmp #19,_vtcrow
bne L218
*line 1258
*line 1259
*line 1260
cmp #1,_vtccol
blt L219
cmp #4,_vtccol
bgt L219
*line 1261
*line 1262
move #1,(sp)
jsr _hilitop
*line 1263
clr R0
bra L205
*line 1264
bra L220
L219:
*line 1265
*line 1266
cmp #8,_vtccol
blt L221
cmp #11,_vtccol
bgt L221
*line 1267
*line 1268
move #4,(sp)
jsr _hilitop
*line 1269
clr R0
bra L205
*line 1270
bra L222
L221:
*line 1271
*line 1272
cmp #15,_vtccol
blt L223
cmp #19,_vtccol
bgt L223
*line 1273
*line 1274
move #7,(sp)
jsr _hilitop
*line 1275
clr R0
bra L205
*line 1276
bra L224
L223:
*line 1277
*line 1278
cmp #24,_vtccol
blt L225
cmp #62,_vtccol
bgt L225
*line 1279
*line 1280
*line 1280
jsr _insect
cmp #-1,R0
beq L226
*line 1281
*line 1282
move #-1,(sp)
jsr _sdmenu
*line 1283
jsr _dosecop
*line 1284
*line 1285
L226:
*line 1286
clr R0
bra L205
*line 1287
*line 1288
*line 1289
L225:L224:L222:L220:bra L227
L218:
*line 1290
*line 1290
cmp #20,_vtcrow
bne L228
*line 1291
*line 1292
*line 1293
cmp #1,_vtccol
blt L229
cmp #5,_vtccol
bgt L229
*line 1294
*line 1295
move #2,(sp)
jsr _hilitop
*line 1296
clr R0
bra L205
*line 1297
bra L230
L229:
*line 1298
*line 1299
cmp #8,_vtccol
blt L231
cmp #11,_vtccol
bgt L231
*line 1300
*line 1301
move #5,(sp)
jsr _hilitop
*line 1302
clr R0
bra L205
*line 1303
bra L232
L231:
*line 1304
*line 1305
cmp #15,_vtccol
blt L233
cmp #20,_vtccol
bgt L233
*line 1306
*line 1307
move #8,(sp)
jsr _hilitop
*line 1308
clr R0
bra L205
*line 1309
bra L234
L233:
*line 1310
*line 1311
cmp #24,_vtccol
blt L235
cmp #62,_vtccol
bgt L235
*line 1312
*line 1313
*line 1313
jsr _insect
cmp #-1,R0
beq L236
*line 1314
*line 1315
move #-1,(sp)
jsr _sdmenu
*line 1316
jsr _dosecop
*line 1317
*line 1318
L236:
*line 1319
clr R0
bra L205
*line 1320
*line 1321
*line 1322
L235:L234:L232:L230:bra L237
L228:
*line 1323
*line 1323
cmp #21,_vtcrow
bne L238
*line 1324
*line 1325
*line 1326
cmp #1,_vtccol
blt L239
cmp #3,_vtccol
bgt L239
*line 1327
*line 1328
move #3,(sp)
jsr _hilitop
*line 1329
clr R0
bra L205
*line 1330
bra L240
L239:
*line 1331
*line 1332
cmp #8,_vtccol
blt L241
cmp #12,_vtccol
bgt L241
*line 1333
*line 1334
move #6,(sp)
jsr _hilitop
*line 1335
clr R0
bra L205
*line 1336
bra L242
L241:
*line 1337
*line 1338
cmp #15,_vtccol
blt L243
cmp #20,_vtccol
bgt L243
*line 1339
*line 1340
move #9,(sp)
jsr _hilitop
*line 1341
clr R0
bra L205
*line 1342
*line 1343
*line 1344
*line 1345
L243:L242:L240:bra L244
L238:
*line 1346
*line 1346
cmp #22,_vtcrow
bne L245
*line 1347
*line 1348
*line 1349
cmp #8,_vtccol
blt L246
cmp #12,_vtccol
bgt L246
*line 1350
*line 1351
move #11,(sp)
jsr _hilitop
*line 1352
clr R0
bra L205
*line 1353
bra L247
L246:
*line 1354
*line 1355
cmp #15,_vtccol
blt L248
cmp #20,_vtccol
bgt L248
*line 1356
*line 1357
move #10,(sp)
jsr _hilitop
*line 1358
clr R0
bra L205
*line 1359
bra L249
L248:
*line 1360
*line 1361
cmp #28,_vtccol
blt L250
cmp #62,_vtccol
bgt L250
*line 1362
*line 1363
*line 1364
tst _gtmsel
blt L251
*line 1364
clr (sp)
move _gtmsel,-(sp)
jsr _dsgtmn
addq.l #2,sp
*line 1365
L251:
*line 1366
*line 1367
jsr _ingroup
move R0,_gtmsel
cmp #-1,R0
beq L252
*line 1367
move #1,(sp)
move _gtmsel,-(sp)
jsr _dsgtmn
addq.l #2,sp
*line 1368
L252:
*line 1369
clr R0
bra L205
*line 1370
*line 1371
L250:L249:L247:bra L253
L245:
*line 1372
*line 1372
cmp #23,_vtcrow
bne L254
*line 1373
*line 1374
*line 1375
cmp #1,_vtccol
blt L255
cmp #6,_vtccol
bgt L255
*line 1376
*line 1377
clr _secop
*line 1378
move #-1,(sp)
jsr _sdmenu
*line 1379
clr R0
bra L205
*line 1380
bra L256
L255:
*line 1381
*line 1382
cmp #22,_vtccol
blt L257
cmp #24,_vtccol
bgt L257
*line 1383
*line 1384
jsr _enterit
bra L205
*line 1385
L257:L256:
*line 1386
L254:L253:L244:L237:L227:L217:
*line 1387
*line 1388
*line 1389
move #-1,R0
bra L205
*line 1390
*line 1391
bra L258
L214:
*line 1392
jsr _enterit
bra L205
L258:L213:
*line 1393
*line 1394
*line 1395
L259:
*line 1396
*line 1397
*line 1398
move _insmode,-4(R14)
*line 1399
*line 1400
*line 1401
tst _insmode
beq L260
*line 1401
jsr _icancel
*line 1402
bra L261
L260:
*line 1403
jsr _istart
L261:
*line 1404
*line 1405
*line 1406
move -4(R14),R0
cmp _insmode,R0
beq L262
*line 1406
move.l _fc_val,(sp)
jsr _sc_refr
*line 1407
L262:
*line 1408
jsr _dsimode
*line 1409
clr R0
bra L205
*line 1410
L263:
*line 1411
*line 1412
*line 1413
*line 1413
cmp #33,R6
bgt L264
*line 1414
*line 1415
tst _clkrun
beq L10017
clr (sp)
bra L10018
L10017:move #1,(sp)
L10018:jsr _clkset
*line 1416
jsr _dsclk
*line 1417
clr R0
bra L205
*line 1418
*line 1419
*line 1420
bra L265
L264:
*line 1421
*line 1421
cmp #35,R6
blt L266
cmp #43,R6
bgt L266
*line 1422
*line 1423
*line 1423
cmp #-1,_sdmctl
bne L267
*line 1424
*line 1425
move #3,(sp)
jsr _sdmenu
*line 1426
clr R0
bra L205
*line 1427
bra L268
L267:
*line 1428
*line 1429
*line 1430
*line 1430
cmp #19,_vtcrow
bne L269
*line 1431
*line 1432
*line 1433
cmp #1,_vtccol
blt L270
cmp #5,_vtccol
bgt L270
*line 1434
*line 1435
clr _clkctl
*line 1436
move #-1,(sp)
jsr _sdmenu
*line 1437
move #2,(sp)
jsr _sdwin
*line 1438
clr R0
bra L205
*line 1439
*line 1440
L270:bra L271
L269:
*line 1441
*line 1441
cmp #20,_vtcrow
bne L272
*line 1442
*line 1443
*line 1444
cmp #1,_vtccol
blt L273
cmp #5,_vtccol
bgt L273
*line 1445
*line 1446
move #1,_clkctl
*line 1447
move #-1,(sp)
jsr _sdmenu
*line 1448
move #2,(sp)
jsr _sdwin
*line 1449
clr R0
bra L205
*line 1450
*line 1451
L273:bra L274
L272:
*line 1452
*line 1452
cmp #21,_vtcrow
bne L275
*line 1453
*line 1454
*line 1455
cmp #1,_vtccol
blt L276
cmp #5,_vtccol
bgt L276
*line 1456
*line 1457
move #2,_clkctl
*line 1458
move #-1,(sp)
jsr _sdmenu
*line 1459
move #2,(sp)
jsr _sdwin
*line 1460
clr R0
bra L205
*line 1461
L276:
*line 1462
L275:L274:L271:L268:
*line 1463
*line 1464
*line 1465
move #-1,R0
bra L205
*line 1466
*line 1467
bra L277
L266:
*line 1468
*line 1468
cmp #45,R6
blt L278
*line 1469
*line 1470
*line 1470
cmp #-1,_sdmctl
bne L279
*line 1471
*line 1472
move #2,(sp)
jsr _sdmenu
*line 1473
jsr _setleds
*line 1474
clr R0
bra L205
*line 1475
bra L280
L279:
*line 1476
*line 1477
*line 1478
*line 1478
cmp #19,_vtcrow
bne L281
*line 1479
*line 1480
*line 1481
cmp #1,_vtccol
blt L282
cmp #5,_vtccol
bgt L282
*line 1482
*line 1483
clr _clksrc
*line 1484
clr _pkctrl
*line 1485
jsr _setleds
*line 1486
move #-1,(sp)
jsr _sdmenu
*line 1487
move #2,(sp)
jsr _sdwin
*line 1488
clr R0
bra L205
*line 1489
bra L283
L282:
*line 1490
*line 1491
cmp #9,_vtccol
blt L284
cmp #13,_vtccol
bgt L284
*line 1492
*line 1493
move #3,_clksrc
*line 1494
clr _pkctrl
*line 1495
jsr _setleds
*line 1496
move #-1,(sp)
jsr _sdmenu
*line 1497
move #2,(sp)
jsr _sdwin
*line 1498
clr R0
bra L205
*line 1499
bra L285
L284:
*line 1500
*line 1501
cmp #17,_vtccol
blt L286
cmp #20,_vtccol
bgt L286
*line 1502
*line 1503
move #6,_clksrc
*line 1504
move #1,_pkctrl
*line 1505
move #1,_stepenb
*line 1506
jsr _setleds
*line 1507
move #-1,(sp)
jsr _sdmenu
*line 1508
move #2,(sp)
jsr _sdwin
*line 1509
clr R0
bra L205
*line 1510
*line 1511
*line 1512
*line 1513
L286:L285:L283:bra L287
L281:
*line 1514
*line 1514
cmp #20,_vtcrow
bne L288
*line 1515
*line 1516
*line 1517
cmp #1,_vtccol
blt L289
cmp #5,_vtccol
bgt L289
*line 1518
*line 1519
move #1,_clksrc
*line 1520
clr _pkctrl
*line 1521
jsr _setleds
*line 1522
move #-1,(sp)
jsr _sdmenu
*line 1523
move #2,(sp)
jsr _sdwin
*line 1524
clr R0
bra L205
*line 1525
bra L290
L289:
*line 1526
*line 1527
cmp #9,_vtccol
blt L291
cmp #13,_vtccol
bgt L291
*line 1528
*line 1529
move #4,_clksrc
*line 1530
clr _pkctrl
*line 1531
jsr _setleds
*line 1532
move #-1,(sp)
jsr _sdmenu
*line 1533
move #2,(sp)
jsr _sdwin
*line 1534
clr R0
bra L205
*line 1535
*line 1536
*line 1537
L291:L290:bra L292
L288:
*line 1538
*line 1538
cmp #21,_vtcrow
bne L293
*line 1539
*line 1540
*line 1541
cmp #1,_vtccol
blt L294
cmp #5,_vtccol
bgt L294
*line 1542
*line 1543
move #2,_clksrc
*line 1544
clr _pkctrl
*line 1545
jsr _setleds
*line 1546
move #-1,(sp)
jsr _sdmenu
*line 1547
move #2,(sp)
jsr _sdwin
*line 1548
clr R0
bra L205
*line 1549
bra L295
L294:
*line 1550
*line 1551
cmp #9,_vtccol
blt L296
cmp #13,_vtccol
bgt L296
*line 1552
*line 1553
move #5,_clksrc
*line 1554
clr _pkctrl
*line 1555
jsr _setleds
*line 1556
move #-1,(sp)
jsr _sdmenu
*line 1557
move #2,(sp)
jsr _sdwin
*line 1558
clr R0
bra L205
*line 1559
L296:L295:
*line 1560
L293:L292:L287:L280:
*line 1561
*line 1562
*line 1563
L278:L277:L265:
*line 1564
move #-1,R0
bra L205
*line 1565
*line 1566
*line 1567
L297:
*line 1568
*line 1569
*line 1570
*line 1571
tst _clkrun
beq L298
*line 1571
move #-1,R0
bra L205
*line 1572
L298:
*line 1573
*line 1574
cmp #-1,_scmctl
beq L299
*line 1574
move #-1,(sp)
jsr _scmenu
*line 1575
L299:
*line 1576
*line 1576
cmp #-1,_sdmctl
bne L300
*line 1577
*line 1578
move #1,(sp)
jsr _sdmenu
*line 1579
clr _noteop
*line 1580
clr R0
bra L205
*line 1581
bra L301
L300:
*line 1582
*line 1583
*line 1584
*line 1584
cmp #19,_vtcrow
bne L302
*line 1585
*line 1586
*line 1587
cmp #1,_vtccol
blt L303
cmp #9,_vtccol
bgt L303
*line 1588
*line 1589
move #1,(sp)
jsr _hilitnt
*line 1590
clr R0
bra L205
*line 1591
bra L304
L303:
*line 1592
*line 1593
cmp #13,_vtccol
blt L305
cmp #21,_vtccol
bgt L305
*line 1594
*line 1595
move #4,(sp)
jsr _hilitnt
*line 1596
clr R0
bra L205
*line 1597
bra L306
L305:
*line 1598
*line 1599
cmp #25,_vtccol
blt L307
cmp #30,_vtccol
bgt L307
*line 1600
*line 1601
clr (sp)
jsr _hilitnt
*line 1602
clr R0
bra L205
*line 1603
*line 1604
*line 1605
L307:L306:L304:
*line 1606
move #-1,R0
bra L205
*line 1607
*line 1608
bra L308
L302:
*line 1609
*line 1609
cmp #20,_vtcrow
bne L309
*line 1610
*line 1611
*line 1612
cmp #1,_vtccol
blt L310
cmp #9,_vtccol
bgt L310
*line 1613
*line 1614
move #2,(sp)
jsr _hilitnt
*line 1615
clr R0
bra L205
*line 1616
bra L311
L310:
*line 1617
*line 1618
cmp #13,_vtccol
blt L312
cmp #22,_vtccol
bgt L312
*line 1619
*line 1620
move #5,(sp)
jsr _hilitnt
*line 1621
clr R0
bra L205
*line 1622
*line 1623
L312:L311:
*line 1624
move #-1,R0
bra L205
*line 1625
bra L313
L309:
*line 1626
*line 1626
cmp #21,_vtcrow
bne L314
*line 1627
*line 1628
*line 1629
cmp #1,_vtccol
blt L315
cmp #8,_vtccol
bgt L315
*line 1630
*line 1631
move #3,(sp)
jsr _hilitnt
*line 1632
clr R0
bra L205
*line 1633
bra L316
L315:
*line 1634
*line 1635
cmp #13,_vtccol
blt L317
cmp #20,_vtccol
bgt L317
*line 1636
*line 1637
move #6,(sp)
jsr _hilitnt
*line 1638
clr R0
bra L205
*line 1639
*line 1640
L317:L316:
*line 1641
move #-1,R0
bra L205
*line 1642
*line 1643
bra L318
L314:
*line 1644
move #-1,R0
bra L205
L318:L313:L308:L301:
*line 1645
*line 1646
*line 1647
move #-1,R0
bra L205
*line 1648
*line 1649
*line 1650
L319:
*line 1651
*line 1652
*line 1653
*line 1653
cmp #9,R6
bgt L320
*line 1654
*line 1655
*line 1655
cmp #1,_scmctl
beq L321
*line 1656
*line 1657
clr _lastam
*line 1658
move #1,(sp)
jsr _scmenu
*line 1659
bra L322
L321:
*line 1660
*line 1661
*line 1662
*line 1662
tst _lastam
bne L323
*line 1663
*line 1664
move #60,_lastam
*line 1665
move #1,(sp)
jsr _scmenu
*line 1666
bra L324
L323:
*line 1667
*line 1668
*line 1669
clr _lastam
*line 1670
move #-1,(sp)
jsr _scmenu
L324:
*line 1671
L322:
*line 1672
*line 1673
*line 1674
clr R0
bra L205
*line 1675
bra L325
L320:
*line 1676
*line 1677
*line 1678
jsr _enterit
bra L205
L325:
*line 1679
*line 1680
L326:
*line 1681
*line 1682
*line 1683
*line 1683
cmp #14,R6
blt L327
cmp #17,R6
bgt L327
*line 1684
*line 1685
*line 1686
cmp #2,_scmctl
beq L328
*line 1686
move #2,(sp)
jsr _scmenu
*line 1687
bra L329
L328:
*line 1688
move #-1,(sp)
jsr _scmenu
L329:
*line 1689
*line 1690
clr R0
bra L205
*line 1691
bra L330
L327:
*line 1692
*line 1693
*line 1694
jsr _enterit
bra L205
L330:
*line 1695
*line 1696
*line 1697
L331:
*line 1698
*line 1699
*line 1700
*line 1700
cmp #40,R6
blt L332
cmp #43,R6
bgt L332
*line 1701
*line 1702
*line 1702
tst _recsw
beq L333
*line 1703
*line 1704
*line 1705
clr R0
move 10+_v_regs,R0
and #384,R0
beq L334
*line 1705
clr (sp)
jsr _vbank
*line 1706
L334:
*line 1707
*line 1707
move #-1,(sp)
move #-1,-(sp)
move #7,-(sp)
move.l _t_cur,-(sp)
move.l _p_cur,-(sp)
jsr _findev
adda.l #12,sp
move.l R0,R13
move.l R13,R0
beq L335
*line 1708
*line 1709
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1710
bra L336
L335:
*line 1711
*line 1711
move #5,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L337
*line 1712
*line 1713
move.l _t_cur,(R13)
*line 1714
move.b #7,5(R13)
*line 1715
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 1716
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1717
move #1,_ctrsw
*line 1718
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 1719
jsr _scupd
*line 1720
L337:L336:
*line 1721
*line 1722
L333:bra L338
L332:
*line 1723
*line 1723
cmp #45,R6
blt L339
cmp #48,R6
bgt L339
*line 1724
*line 1725
*line 1725
tst _recsw
beq L340
*line 1726
*line 1727
*line 1728
clr R0
move 10+_v_regs,R0
and #384,R0
beq L341
*line 1728
clr (sp)
jsr _vbank
*line 1729
L341:
*line 1730
*line 1730
move #-1,(sp)
move #-1,-(sp)
move #24,-(sp)
move.l _t_cur,-(sp)
move.l _p_cur,-(sp)
jsr _findev
adda.l #12,sp
move.l R0,R13
move.l R13,R0
beq L342
*line 1731
*line 1732
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1733
bra L343
L342:
*line 1734
*line 1734
move #5,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L344
*line 1735
*line 1736
move.l _t_cur,(R13)
*line 1737
move.b #24,5(R13)
*line 1738
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 1739
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1740
move #1,_ctrsw
*line 1741
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 1742
jsr _scupd
*line 1743
L344:L343:
*line 1744
*line 1745
L340:
*line 1746
*line 1747
L339:L338:
*line 1748
clr R0
bra L205
*line 1749
*line 1750
*line 1751
L345:
*line 1752
*line 1753
*line 1754
*line 1754
cmp #50,R6
blt L346
cmp #51,R6
bgt L346
*line 1755
*line 1756
*line 1756
tst _recsw
beq L347
*line 1757
*line 1758
*line 1759
clr R0
move 10+_v_regs,R0
and #384,R0
beq L348
*line 1759
clr (sp)
jsr _vbank
*line 1760
L348:
*line 1761
*line 1761
move #-1,(sp)
move #1,-(sp)
move #7,-(sp)
move.l _t_cur,-(sp)
move.l _p_cur,-(sp)
jsr _findev
adda.l #12,sp
move.l R0,R13
move.l R13,R0
beq L349
*line 1762
*line 1763
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1764
bra L350
L349:
*line 1765
*line 1765
move #5,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L351
*line 1766
*line 1767
move.l _t_cur,(R13)
*line 1768
move.b #19,5(R13)
*line 1769
move.b #1,6(R13)
*line 1770
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 1771
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1772
move #1,_ctrsw
*line 1773
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 1774
jsr _scupd
*line 1775
L351:L350:
*line 1776
*line 1777
L347:bra L352
L346:
*line 1778
*line 1778
cmp #53,R6
blt L353
cmp #55,R6
bgt L353
*line 1779
*line 1780
*line 1780
tst _recsw
beq L354
*line 1781
*line 1782
*line 1783
clr R0
move 10+_v_regs,R0
and #384,R0
beq L355
*line 1783
clr (sp)
jsr _vbank
*line 1784
L355:
*line 1785
*line 1785
move #-1,(sp)
clr -(sp)
move #19,-(sp)
move.l _t_cur,-(sp)
move.l _p_cur,-(sp)
jsr _findev
adda.l #12,sp
move.l R0,R13
move.l R13,R0
beq L356
*line 1786
*line 1787
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1788
bra L357
L356:
*line 1789
*line 1789
move #5,(sp)
jsr _e_alc
move.l R0,R13
move.l R13,R0
beq L358
*line 1790
*line 1791
move.l _t_cur,(R13)
*line 1792
move.b #19,5(R13)
*line 1793
clr.b 6(R13)
*line 1794
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 1795
clr (sp)
move.l R13,-(sp)
jsr _se_exec
addq.l #4,sp
*line 1796
move #1,_ctrsw
*line 1797
move #1,(sp)
move.l #_gdstbc,-(sp)
clr -(sp)
move.l R13,-(sp)
jsr _se_disp
adda.l #10,sp
*line 1798
jsr _scupd
*line 1799
L358:L357:
*line 1800
*line 1801
L354:
*line 1802
*line 1803
L353:L352:
*line 1804
clr R0
bra L205
*line 1805
*line 1806
L359:
*line 1807
*line 1808
*line 1809
clr R0
bra L205
*line 1810
L360:
*line 1811
*line 1812
*line 1813
*line 1813
cmp #18,R7
bne L361
cmp #3,R6
bgt L361
*line 1814
*line 1815
*line 1816
tst _scmctl
beq L362
*line 1816
clr (sp)
jsr _scmenu
*line 1817
bra L363
L362:
*line 1818
move #-1,(sp)
jsr _scmenu
L363:
*line 1819
*line 1820
clr R0
bra L205
*line 1821
bra L364
L361:
*line 1822
*line 1822
cmp #21,R7
bne L365
cmp #3,R6
bgt L365
*line 1823
*line 1824
tst _velflag
beq L10019
clr R0
bra L10020
L10019:move #1,R0
L10020:move R0,_velflag
*line 1825
jsr _ds_vmod
*line 1826
clr R0
bra L205
*line 1827
*line 1828
bra L366
L365:
*line 1829
jsr _enterit
bra L205
L366:L364:
*line 1830
*line 1831
*line 1832
L367:
*line 1833
*line 1834
*line 1835
*line 1835
cmp #23,R7
bne L368
cmp #4,R6
bgt L368
*line 1836
*line 1837
move _angroup,R0
neg R0
move R0,_angroup
*line 1838
*line 1839
*line 1840
tst _angroup
bge L369
*line 1840
move #18,-2(R14)
*line 1841
bra L370
L369:
*line 1842
move #82,-2(R14)
L370:
*line 1843
*line 1844
*line 1845
clr R0
move 10+_v_regs,R0
and #384,R0
beq L371
*line 1845
clr (sp)
jsr _vbank
*line 1846
L371:
*line 1847
clr R3
bra L374
L375:
*line 1848
move -2(R14),(sp)
move R3,-(sp)
move #7,-(sp)
move.l _obj8,-(sp)
jsr _vputa
addq.l #8,sp
L373:
*line 1847
add #1,R3
L374:
*line 1847
cmp #4,R3
blt L375
L372:
*line 1848
*line 1849
*line 1850
clr R0
bra L205
*line 1851
bra L376
L368:
*line 1852
*line 1852
cmp #22,R7
bne L377
cmp #4,R6
bgt L377
*line 1853
*line 1854
tst _ancmsw
beq L10021
clr R0
bra L10022
L10021:move #1,R0
L10022:move R0,_ancmsw
*line 1855
*line 1856
*line 1857
tst _ancmsw
beq L378
*line 1857
move #82,-2(R14)
*line 1858
bra L379
L378:
*line 1859
move #18,-2(R14)
L379:
*line 1860
*line 1861
*line 1862
clr R0
move 10+_v_regs,R0
and #384,R0
beq L380
*line 1862
clr (sp)
jsr _vbank
*line 1863
L380:
*line 1864
clr R3
bra L383
L384:
*line 1865
move -2(R14),(sp)
move R3,-(sp)
move #6,-(sp)
move.l _obj8,-(sp)
jsr _vputa
addq.l #8,sp
L382:
*line 1864
add #1,R3
L383:
*line 1864
cmp #4,R3
blt L384
L381:
*line 1865
*line 1866
*line 1867
clr R0
bra L205
*line 1868
bra L385
L377:
*line 1869
*line 1870
*line 1871
jsr _enterit
bra L205
L385:L376:
*line 1872
*line 1873
*line 1874
L386:
*line 1875
*line 1876
*line 1877
*line 1877
cmp #4,R6
bgt L387
*line 1878
*line 1879
*line 1880
cmp #3,_scmctl
beq L388
*line 1880
move #3,(sp)
jsr _scmenu
*line 1881
bra L389
L388:
*line 1882
move #-1,(sp)
jsr _scmenu
L389:
*line 1883
*line 1884
clr R0
bra L205
*line 1885
bra L390
L387:
*line 1886
*line 1886
cmp #10,R6
blt L391
cmp #25,R6
bgt L391
*line 1887
*line 1888
*line 1888
tst _sdmctl
beq L392
*line 1889
*line 1890
clr (sp)
jsr _sdmenu
*line 1891
*line 1892
*line 1893
*line 1894
move #3,(sp)
move #99,-(sp)
move.l #_svtstop,-(sp)
move.l #_nokey,-(sp)
move.l #_nokey,-(sp)
move.l #_bspscur,-(sp)
move.l #_advscur,-(sp)
move #1,-(sp)
move #19,-(sp)
move _curscor,R0
asl #4,R0
ext.l R0
add.l #_scname,R0
move.l R0,-(sp)
move #10,-(sp)
move.l #_svtdsp,-(sp)
move.l _obj8,-(sp)
jsr _vtsetup
adda.l #40,sp
*line 1895
bra L393
L392:
*line 1896
*line 1897
*line 1898
jsr _vtyper
L393:
*line 1899
*line 1900
*line 1901
clr R0
bra L205
*line 1902
*line 1903
bra L394
L391:
*line 1904
jsr _enterit
bra L205
L394:L390:
*line 1905
*line 1906
L395:
*line 1907
*line 1908
*line 1909
*line 1909
cmp #31,R6
blt L396
cmp #34,R6
bgt L396
*line 1910
*line 1911
clr _recsw
*line 1912
jsr _dsrpmod
*line 1913
clr R0
bra L205
*line 1914
bra L397
L396:
*line 1915
*line 1915
cmp #36,R6
blt L398
cmp #40,R6
bgt L398
*line 1916
*line 1917
move #1,_recsw
*line 1918
jsr _dsrpmod
*line 1919
clr R0
bra L205
*line 1920
bra L399
L398:
*line 1921
*line 1921
cmp #42,R6
blt L400
cmp #47,R6
bgt L400
*line 1922
*line 1923
tst _dubsw
beq L10023
clr R0
bra L10024
L10023:move #1,R0
L10024:move R0,_dubsw
*line 1924
jsr _dsrpmod
*line 1925
clr R0
bra L205
*line 1926
bra L401
L400:
*line 1927
*line 1927
cmp #49,R6
blt L402
cmp #55,R6
bgt L402
*line 1928
*line 1929
tst _pchsw
beq L10025
clr R0
bra L10026
L10025:move #1,R0
L10026:move R0,_pchsw
*line 1930
jsr _dsrpmod
*line 1931
clr R0
bra L205
*line 1932
*line 1933
*line 1934
L402:L401:L399:L397:
*line 1935
move #-1,R0
bra L205
*line 1936
L403:
*line 1937
*line 1938
*line 1939
*line 1940
tst _noteop
beq L404
*line 1940
jsr _donote
*line 1941
L404:
*line 1942
clr R0
bra L205
bra L206
L207:cmp #16,R0
bhi L206
asl #2,R0
move R0,R8
add.l #L405,R8
move.l (R8),R8
jmp (R8)
.data
L405:.dc.l L208
.dc.l L259
.dc.l L263
.dc.l L297
.dc.l L319
.dc.l L326
.dc.l L206
.dc.l L206
.dc.l L331
.dc.l L345
.dc.l L359
.dc.l L360
.dc.l L367
.dc.l L386
.dc.l L395
.dc.l L206
.dc.l L403
.text
L206:
*line 1945
move #-1,R0
bra L205
L205:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.data
L1:.dc.b $20,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F,$50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$20,$20,$7C
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L2:.dc.b $20,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F,$70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$20,$2D,$2A
.dc.b $2D,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L3:.dc.b $20,$20,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$2B,$2D,$2F,$2A,$28,$29,$2E,$2C,$3A,$3B,$21,$3F,$26,$3C,$3E,$20,$20,$7C
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L4:.dc.b $20,$42,$65,$67,$69,$6E,$20,$41,$63,$63,$20,$20,$20,$4D,$6F,$76,$65,$20,$4E,$6F,$74,$65,$20,$20,$20,$45,$73,$63,$61,$70
.dc.b $65,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L5:.dc.b $20,$42,$65,$67,$69,$6E,$20,$4E,$61,$74,$20,$20,$20,$4D,$6F,$76,$65,$20,$42,$65,$67,$69,$6E,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L6:.dc.b $20,$45,$6E,$64,$20,$4E,$6F,$74,$65,$20,$20,$20,$20,$4D,$6F,$76,$65,$20,$45,$6E,$64,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L7:.dc.b $20,$4C,$6F,$63,$61,$6C,$20,$20,$20,$50,$4C,$53,$32,$34,$20,$20,$20,$53,$74,$65,$70,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L8:.dc.b $20,$4D,$49,$44,$49,$20,$20,$20,$20,$50,$4C,$53,$34,$38,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L9:.dc.b $20,$53,$4D,$50,$54,$45,$20,$20,$20,$50,$4C,$53,$39,$36,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L10:.dc.b $20,$4C,$6F,$63,$61,$6C,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L11:.dc.b $20,$4D,$49,$44,$49,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L12:.dc.b $20,$53,$4D,$50,$54,$45,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L13:.dc.b $20,$47,$6F,$54,$6F,$20,$20,$20,$4D,$6F,$76,$65,$20,$20,$20,$53,$4D,$50,$54,$45,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L14:.dc.b $20,$42,$65,$67,$69,$6E,$20,$20,$43,$6F,$70,$79,$20,$20,$20,$44,$65,$6C,$20,$47,$72,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L15:.dc.b $20,$45,$6E,$64,$20,$20,$20,$20,$4D,$65,$72,$67,$65,$20,$20,$44,$65,$6C,$20,$45,$76,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$20,$20,$0
L18:.dc.b $4E,$6F,$74,$65,$20,$45,$64,$69,$74,$0
L19:.dc.b $42,$65,$67,$69,$6E,$20,$41,$63,$63,$0
L20:.dc.b $42,$65,$67,$69,$6E,$20,$4E,$61,$74,$0
L21:.dc.b $45,$6E,$64,$20,$4E,$6F,$74,$65,$20,$0
L22:.dc.b $4D,$6F,$76,$65,$20,$4E,$6F,$74,$65,$0
L23:.dc.b $4D,$6F,$76,$65,$20,$42,$65,$67,$20,$0
L24:.dc.b $4D,$6F,$76,$65,$20,$45,$6E,$64,$20,$0
L53:.dc.b $25,$63,$25,$30,$32,$64,$25,$63,$0
L55:.dc.b $25,$30,$32,$64,$0
L59:.dc.b $20,$20,$0
L61:.dc.b $25,$30,$32,$64,$0
L65:.dc.b $25,$63,$25,$30,$32,$64,$0
L82:.dc.b $4E,$6F,$20,$41,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$0
L87:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$30,$2E,$31,$30,$73,$0
L89:.dc.b $4E,$20,$4E,$61,$6D,$65,$0
L94:.dc.b $25,$64,$20,$25,$2D,$33,$32,$2E,$33,$32,$73,$0
L100:.dc.b $4E,$6F,$20,$53,$63,$6F,$72,$65,$0
L105:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$36,$2E,$31,$36,$73,$0