.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 _stmptr
.globl _defptr
.globl _patches
.globl _defents
.globl _seqtab
.globl _seqflag
.globl _seqline
.globl _seqstim
.globl _seqtime
.globl _sregval
.globl _trstate
.globl _BakLine
.globl _FwdLine
.globl _obj8
.globl _obj9
.globl _obj10
.globl _obj11
.globl _LineBuf
.globl _ScObAdr
.globl _OldLine
.globl _LineAtr
.globl _CurLine
.globl _CurScan
.globl _ScrlObj
.globl _SmScNsl
.globl _PdScDnF
.globl _PdScUpF
.globl _ctcsw
.globl _submenu
.globl _stccol
.globl _stcrow
.globl _cxval
.globl _cg3
.globl _TheBuf
.globl _curslin
.comm _curslin,2
.globl _sqhead
.data
_sqhead:
.dc.b $B0,$20,$4C,$69,$6E,$20,$54,$69,$6D,$65,$20,$20,$41,$63,$74,$69,$6F,$6E,$20,$31,$20,$20,$20,$20,$41,$63,$74,$69,$6F,$6E
.dc.b $20,$32,$20,$20,$20,$20,$41,$63,$74,$69,$6F,$6E,$20,$33,$20,$20,$20,$20,$B0,$20,$4E,$6F,$20,$53,$65,$71,$20,$52,$67,$20
.dc.b $54,$20,$B0,$0
.globl _sqmcon
.data
_sqmcon:
*line 55
.dc.l L2
*line 56
.dc.l L3
*line 57
.dc.l L4
*line 58
.dc.l L5
*line 60
.dc.l L6
.globl _seqpal
.data
_seqpal:
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $2
.dc.w $3
.dc.w $3
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $2
.dc.w $0
.dc.w $2
.dc.w $0
.dc.w $0
.dc.w $3
.dc.w $3
.dc.w $0
.dc.w $0
.dc.w $3
.dc.w $3
.dc.w $0
.dc.w $1
.dc.w $2
.dc.w $0
.dc.w $0
.dc.w $3
.dc.w $3
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $0
.dc.w $3
.dc.w $0
.dc.w $3
.dc.w $1
.dc.w $2
.dc.w $0
.dc.w $2
.dc.w $3
.dc.w $2
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $1
.dc.w $2
.dc.w $3
.dc.w $3
.dc.w $3
.globl _sqatype
.data
_sqatype:
.dc.w $0
.dc.w $3
.dc.w $1
.dc.w $2
.dc.w $4
.dc.w $5
.dc.w $6
.dc.w $7
.dc.w $8
.dc.w $F
.dc.w $E
.dc.w $0
.dc.w $D
.dc.w $9
.dc.w $10
.dc.w $A
.dc.w $B
.dc.w $C
.globl _sqdsptb
.data
_sqdsptb:
*line 112
.dc.l L7
*line 113
.dc.l L8
*line 114
.dc.l L9
*line 115
.dc.l L10
*line 116
.dc.l L11
*line 117
.dc.l L12
*line 118
.dc.l L13
*line 119
.dc.l L14
*line 120
.dc.l L15
*line 121
.dc.l L16
*line 122
.dc.l L17
*line 123
.dc.l L18
*line 124
.dc.l L19
*line 125
.dc.l L20
*line 126
.dc.l L21
*line 127
.dc.l L22
*line 129
.dc.l L23
.globl _initsq
.text
_initsq:
~~initsq:
link R14,#0
movem.l R6-R7,-(sp)
~i=R7
*line 144
clr R7
bra L27
L28:
*line 145
*line 146
move R7,R8
add.l R8,R8
add.l #_seqflag,R8
clr (R8)
*line 147
move R7,R8
add.l R8,R8
add.l #_seqline,R8
clr (R8)
*line 148
move R7,R8
add.l R8,R8
add.l #_sregval,R8
clr (R8)
*line 149
move R7,R8
add.l R8,R8
add.l #_trstate,R8
clr (R8)
*line 150
move R7,R8
add.l R8,R8
add.l #_seqstim,R8
clr (R8)
*line 151
move R7,R8
add.l R8,R8
add.l #_seqtime,R8
clr (R8)
L26:
*line 144
add #1,R7
L27:
*line 144
cmp #16,R7
blt L28
L25:
*line 154
move #7000,(sp)
clr -(sp)
move.l #_seqtab,-(sp)
jsr _memsetw
addq.l #6,sp
L24:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _dsact
.text
_dsact:
~~dsact:
~buf=8
~act=12
~dat=14
link R14,#-28
~sqa=-2
~sqd=-4
~sqf=-6
~sqr=-8
~sqt=-10
~t1=-12
~t2=-14
~val=-16
~chan=-18
~i=-20
~key=-22
~port=-24
*line 173
clr R0
move 12(R14),R0
and #255,R0
move R0,-2(R14)
*line 175
clr R0
move -2(R14),R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_sqdsptb,R9
move.l 0(R8,R9.l),(sp)
move.l 8(R14),-(sp)
jsr _strcpy
addq.l #4,sp
*line 177
clr R0
move -2(R14),R0
bra L31
*line 178
L32:
*line 179
L33:
*line 180
L34:
*line 181
L35:
*line 182
*line 183
*line 184
clr R0
move 14(R14),R0
move #11,R1
lsr R1,R0
and #3,R0
move R0,-24(R14)
*line 185
clr R0
move 14(R14),R0
lsr #7,R0
and #15,R0
move R0,-18(R14)
*line 186
clr R0
move 14(R14),R0
and #127,R0
move R0,-22(R14)
*line 187
*line 188
*line 189
cmp #2,-24(R14)
bne L36
*line 189
move -22(R14),(sp)
add #1,(sp)
move.l #L37,-(sp)
move.l 8(R14),-(sp)
add.l #3,(sp)
jsr _sprintf
addq.l #8,sp
*line 190
bra L38
L36:
*line 191
move -18(R14),(sp)
add #1,(sp)
move -24(R14),-(sp)
add #1,(sp)
move -22(R14),-(sp)
add #1,(sp)
move.l #L39,-(sp)
move.l 8(R14),-(sp)
add.l #3,(sp)
jsr _sprintf
adda.l #12,sp
L38:
*line 192
bra L30
*line 193
*line 194
L40:
*line 195
L41:
*line 196
L42:
*line 197
L43:
*line 198
*line 199
*line 200
move 14(R14),(sp)
add #1,(sp)
move.l #L44,-(sp)
move.l 8(R14),-(sp)
add.l #9,(sp)
jsr _sprintf
addq.l #8,sp
bra L30
*line 201
*line 202
*line 203
L45:
*line 204
*line 205
*line 206
clr R0
move 14(R14),R0
and #-4096,R0
beq L10000
move #45,R0
bra L10002
L10000:move #43,R0
L10002:move R0,-6(R14)
bra L46
*line 207
*line 208
L47:
*line 209
L48:
*line 210
*line 211
*line 212
move #61,-6(R14)
bra L46
*line 213
*line 214
L49:
*line 215
*line 216
*line 217
move #60,-6(R14)
bra L46
*line 218
*line 219
L50:
*line 220
*line 221
*line 222
move #62,-6(R14)
*line 223
L46:
*line 224
*line 225
*line 226
clr R0
move 12(R14),R0
and #-256,R0
lsr #8,R0
add #1,R0
move R0,-8(R14)
*line 227
clr R0
move 14(R14),R0
and #255,R0
move R0,-4(R14)
*line 228
clr R0
move 14(R14),R0
and #3840,R0
move R0,-10(R14)
*line 229
*line 230
clr R0
move -10(R14),R0
bra L52
*line 231
L53:
*line 232
*line 233
*line 234
move -4(R14),(sp)
add #1,(sp)
move -6(R14),-(sp)
move -8(R14),-(sp)
move.l #L54,-(sp)
move.l 8(R14),-(sp)
add.l #4,(sp)
jsr _sprintf
adda.l #12,sp
bra L51
*line 235
*line 236
L55:
*line 237
*line 238
*line 239
move -4(R14),(sp)
move -6(R14),-(sp)
move -8(R14),-(sp)
move.l #L56,-(sp)
move.l 8(R14),-(sp)
add.l #4,(sp)
jsr _sprintf
adda.l #12,sp
bra L51
*line 240
*line 241
L57:
*line 242
*line 243
*line 244
move -4(R14),(sp)
add #1,(sp)
move -6(R14),-(sp)
move -8(R14),-(sp)
move.l #L58,-(sp)
move.l 8(R14),-(sp)
add.l #4,(sp)
jsr _sprintf
adda.l #12,sp
bra L51
*line 245
*line 246
L59:
*line 247
*line 248
*line 249
move -4(R14),(sp)
move -6(R14),-(sp)
move -8(R14),-(sp)
move.l #L60,-(sp)
move.l 8(R14),-(sp)
add.l #4,(sp)
jsr _sprintf
adda.l #12,sp
bra L51
*line 250
bra L51
L52:tst R0
beq L53
cmp #256,R0
beq L55
cmp #512,R0
beq L57
cmp #768,R0
beq L59
bra L51
L51:
*line 251
*line 252
bra L30
*line 253
*line 254
*line 255
L61:
*line 256
*line 257
*line 258
move 14(R14),(sp)
move.l #L62,-(sp)
move.l 8(R14),-(sp)
add.l #8,(sp)
jsr _sprintf
addq.l #8,sp
bra L30
*line 259
*line 260
L63:
*line 261
L64:
*line 262
L65:
*line 263
*line 264
bra L30
*line 265
bra L30
L31:cmp #16,R0
bhi L30
asl #2,R0
move R0,R8
add.l #L66,R8
move.l (R8),R8
jmp (R8)
.data
L66:.dc.l L63
.dc.l L32
.dc.l L33
.dc.l L34
.dc.l L35
.dc.l L40
.dc.l L41
.dc.l L42
.dc.l L43
.dc.l L47
.dc.l L48
.dc.l L49
.dc.l L50
.dc.l L64
.dc.l L61
.dc.l L65
.dc.l L45
.text
L30:
*line 268
clr -20(R14)
bra L69
L70:
*line 269
*line 270
move.l 8(R14),R8
clr.l R9
move -20(R14),R9
add.l R9,R8
tst.b (R8)
bne L71
*line 270
move.l 8(R14),R8
clr.l R9
move -20(R14),R9
add.l R9,R8
move.b #32,(R8)
L71:L68:
*line 268
add #1,-20(R14)
L69:
*line 268
cmp #12,-20(R14)
blo L70
L67:L29:unlk R14
rts
.globl _dsqlin
.text
_dsqlin:
~~dsqlin:
~buf=8
~slin=12
link R14,#0
movem.l R4-R7/R13-R13,-(sp)
~sp=R13
~i=R7
~t1=R6
~t2=R5
*line 289
move 12(R14),R0
muls #14,R0
move.l R0,R13
add.l #_seqtab,R13
*line 291
move (R13),R6
ext.l R6
divs #100,R6
*line 292
move (R13),R5
move R6,R0
muls #100,R0
sub R0,R5
*line 294
move R5,(sp)
move R6,-(sp)
move 12(R14),-(sp)
move.l #L73,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #12,sp
*line 296
move 4(R13),(sp)
move 2(R13),-(sp)
move.l 8(R14),-(sp)
add.l #12,(sp)
jsr _dsact
addq.l #6,sp
*line 297
move 8(R13),(sp)
move 6(R13),-(sp)
move.l 8(R14),-(sp)
add.l #24,(sp)
jsr _dsact
addq.l #6,sp
*line 298
move 12(R13),(sp)
move 10(R13),-(sp)
move.l 8(R14),-(sp)
add.l #36,(sp)
jsr _dsact
addq.l #6,sp
*line 300
move.l 8(R14),R8
move.b #176,(R8)
*line 302
clr R7
bra L76
L77:
*line 303
*line 304
move R7,R8
add.l 8(R14),R8
tst.b (R8)
bne L78
*line 304
move R7,R8
add.l 8(R14),R8
move.b #32,(R8)
*line 305
L78:L75:
*line 302
add #1,R7
L76:
*line 302
cmp #48,R7
blt L77
L74:
*line 306
move.l 8(R14),R8
clr.b 48(R8)
L72:tst.l (sp)+
movem.l (sp)+,R5-R7/R13-R13
unlk R14
rts
.globl _dcursq
.text
_dcursq:
~~dcursq:
link R14,#-4
*line 320
move _curslin,(sp)
move.l #_TheBuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 321
move #18,(sp)
move.l #_TheBuf,-(sp)
clr -(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 322
jsr _ctcon
L79:unlk R14
rts
.globl _dstw
.text
_dstw:
~~dstw:
link R14,#0
movem.l R5-R7,-(sp)
~slin=R7
~srow=R6
*line 335
move _curslin,R7
sub #7,R7
*line 337
*line 338
tst R7
bge L81
*line 338
add #1000,R7
*line 339
L81:
*line 340
clr R6
bra L84
L85:
*line 341
*line 342
move R7,(sp)
move.l #_TheBuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 343
cmp #7,R6
bne L10003
move #18,(sp)
bra L10005
L10003:move #18,(sp)
L10005:move.l #_TheBuf,-(sp)
clr -(sp)
move R6,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 344
*line 345
*line 346
add #1,R7
move R7,R0
cmp #1000,R0
blt L86
*line 346
sub #1000,R7
L86:L83:
*line 340
add #1,R6
L84:
*line 340
cmp #16,R6
blt L85
L82:
*line 349
jsr _seq2buf
*line 350
jsr _ctcon
L80:tst.l (sp)+
movem.l (sp)+,R6-R7
unlk R14
rts
.globl _sqwin
.text
_sqwin:
~~sqwin:
~n=8
link R14,#-194
movem.l R5-R7,-(sp)
~i=R7
~j=R6
~atrbuf=-128
~linbuf=-194
*line 369
*line 370
clr R0
move 10+_v_regs,R0
and #384,R0
beq L88
*line 370
clr (sp)
jsr _vbank
*line 371
L88:
*line 372
move 8(R14),R0
bra L90
*line 373
L91:
*line 374
*line 375
*line 376
*line 377
*line 378
move #63,(sp)
move #177,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
jsr _memset
addq.l #6,sp
*line 379
move.b #186,-194(R14)
*line 380
move.b #183,-146(R14)
*line 381
move.b #187,-132(R14)
*line 382
clr.b -131(R14)
*line 383
*line 384
move #63,(sp)
move #226,-(sp)
move.l R14,-(sp)
add.l #-128,(sp)
jsr _memsetw
addq.l #6,sp
*line 385
clr -2(R14)
*line 386
*line 387
move.l R14,(sp)
add.l #-128,(sp)
move.l R14,-(sp)
add.l #-194,(sp)
clr -(sp)
clr -(sp)
move.l _obj8,-(sp)
jsr _vputsa
adda.l #12,sp
*line 388
*line 389
*line 390
*line 391
move #64,(sp)
move #274,-(sp)
move.l R14,-(sp)
add.l #-128,(sp)
jsr _memsetw
addq.l #6,sp
*line 392
move #226,-128(R14)
*line 393
move #18,-126(R14)
*line 394
move #18,-118(R14)
*line 395
move #18,-106(R14)
*line 396
move #18,-82(R14)
*line 397
move #18,-58(R14)
*line 398
move #18,-34(R14)
*line 399
move #226,-32(R14)
*line 400
move #18,-30(R14)
*line 401
move #18,-24(R14)
*line 402
move #18,-16(R14)
*line 403
move #18,-10(R14)
*line 404
move #18,-6(R14)
*line 405
move #226,-4(R14)
*line 406
clr -2(R14)
*line 407
*line 408
move.l R14,(sp)
add.l #-128,(sp)
move.l #_sqhead,-(sp)
clr -(sp)
move #1,-(sp)
move.l _obj8,-(sp)
jsr _vputsa
adda.l #12,sp
*line 409
*line 410
*line 411
*line 412
*line 413
move #63,(sp)
move #177,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
jsr _memset
addq.l #6,sp
*line 414
move.b #182,-194(R14)
*line 415
move.b #181,-146(R14)
*line 416
move.b #180,-132(R14)
*line 417
clr.b -131(R14)
*line 418
*line 419
move #63,(sp)
move #226,-(sp)
move.l R14,-(sp)
add.l #-128,(sp)
jsr _memsetw
addq.l #6,sp
*line 420
clr -2(R14)
*line 421
*line 422
move.l R14,(sp)
add.l #-128,(sp)
move.l R14,-(sp)
add.l #-194,(sp)
clr -(sp)
clr -(sp)
move.l _obj11,-(sp)
jsr _vputsa
adda.l #12,sp
*line 423
*line 424
*line 425
*line 426
move #63,(sp)
move #177,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
jsr _memset
addq.l #6,sp
*line 427
move.b #185,-194(R14)
*line 428
move.b #184,-132(R14)
*line 429
clr.b -131(R14)
*line 430
*line 431
move #63,(sp)
move #226,-(sp)
move.l R14,-(sp)
add.l #-128,(sp)
jsr _memsetw
addq.l #6,sp
*line 432
clr -2(R14)
*line 433
*line 434
move.l R14,(sp)
add.l #-128,(sp)
move.l R14,-(sp)
add.l #-194,(sp)
clr -(sp)
move #6,-(sp)
move.l _obj11,-(sp)
jsr _vputsa
adda.l #12,sp
*line 435
bra L89
*line 436
*line 437
*line 438
L92:
*line 439
*line 440
*line 441
move #13,(sp)
clr -(sp)
jsr _SetDTop
addq.l #2,sp
*line 442
jsr _dstw
bra L89
*line 443
*line 444
L93:
*line 445
*line 446
*line 447
clr R7
bra L96
L97:
*line 448
*line 449
*line 450
move R7,R8
add.l R8,R8
move.l #_trstate,R9
move 0(R8,R9.l),(sp)
move R7,R8
add.l R8,R8
move.l #_sregval,R9
move 0(R8,R9.l),-(sp)
move R7,R8
add.l R8,R8
move.l #_seqline,R9
move 0(R8,R9.l),-(sp)
move.l #L98,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
jsr _sprintf
adda.l #12,sp
*line 451
*line 452
*line 453
move.l #_cg3,(sp)
move #14,-(sp)
move #14,-(sp)
move.l #L99,-(sp)
clr -(sp)
move R7,-(sp)
move #2,-(sp)
move #14,-(sp)
move #16,-(sp)
move.l _obj10,-(sp)
jsr _vvputsv
adda.l #22,sp
*line 454
*line 455
*line 456
move.l #_cg3,(sp)
move #14,-(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
move #1,-(sp)
move R7,-(sp)
move #2,-(sp)
move #1,-(sp)
move #16,-(sp)
move.l _obj10,-(sp)
jsr _vvputsv
adda.l #22,sp
*line 457
*line 458
*line 459
move.l #_cg3,(sp)
move #14,-(sp)
move #14,-(sp)
move.l #L100,-(sp)
move #14,-(sp)
move R7,-(sp)
move #2,-(sp)
move #14,-(sp)
move #16,-(sp)
move.l _obj10,-(sp)
jsr _vvputsv
adda.l #22,sp
*line 460
*line 461
*line 461
cmp #7,R7
bne L101
*line 462
*line 463
*line 463
move _cxval,R0
asr #3,R0
cmp #48,R0
bne L102
*line 464
*line 465
*line 466
move.l #_cg3,(sp)
move #14,-(sp)
move #14,-(sp)
move.l #L103,-(sp)
clr -(sp)
move R7,-(sp)
move #6,-(sp)
move #16,-(sp)
move.l _obj10,-(sp)
jsr _vsplot4
adda.l #20,sp
*line 467
bra L104
L102:
*line 468
*line 469
*line 470
*line 471
move.l #_cg3,(sp)
move #14,-(sp)
move #14,-(sp)
move.l #L105,-(sp)
clr -(sp)
move R7,-(sp)
move #6,-(sp)
move #16,-(sp)
move.l _obj10,-(sp)
jsr _vsplot4
adda.l #20,sp
L104:
*line 472
*line 473
*line 474
L101:
*line 475
move R7,(sp)
add #1,(sp)
move.l #L106,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
jsr _sprintf
addq.l #8,sp
*line 476
*line 477
*line 478
*line 479
move.l #_cg3,(sp)
move #14,-(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-194,(sp)
move #2,-(sp)
move R7,-(sp)
move #2,-(sp)
move R7,R8
add.l R8,R8
move.l #_seqflag,R9
clr R0
move 0(R8,R9.l),R0
and #-32768,R0
beq L10006
move #6,-(sp)
bra L10008
L10006:move #1,-(sp)
L10008:move #16,-(sp)
move.l _obj10,-(sp)
jsr _vvputsv
adda.l #22,sp
L95:
*line 447
add #1,R7
L96:
*line 447
cmp #16,R7
blt L97
L94:
*line 480
*line 481
bra L89
*line 482
*line 483
L107:
*line 484
*line 485
*line 486
move #64,(sp)
move #146,-(sp)
move.l R14,-(sp)
add.l #-128,(sp)
jsr _memsetw
addq.l #6,sp
*line 487
move #226,-128(R14)
*line 488
move #226,-4(R14)
*line 489
clr -2(R14)
*line 490
*line 491
clr R7
bra L110
L111:
*line 492
move.l R14,(sp)
add.l #-128,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_sqmcon,R9
move.l 0(R8,R9.l),-(sp)
clr -(sp)
move R7,-(sp)
add #1,(sp)
move.l _obj11,-(sp)
jsr _vputsa
adda.l #12,sp
L109:
*line 491
add #1,R7
L110:
*line 491
cmp #5,R7
blt L111
L108:
*line 492
*line 493
bra L89
*line 494
bra L89
L90:tst R0
beq L91
cmp #1,R0
beq L92
cmp #2,R0
beq L93
cmp #3,R0
beq L107
bra L89
L89:L87:tst.l (sp)+
movem.l (sp)+,R6-R7
unlk R14
rts
.globl _SqBakLn
.text
_SqBakLn:
~~SqBakLn:
link R14,#0
movem.l R6-R7,-(sp)
~slin=R7
*line 512
*line 513
sub #1,_curslin
bge L113
*line 513
add #1000,_curslin
*line 514
L113:
*line 515
move _curslin,R7
sub #7,R7
*line 517
*line 518
tst R7
bge L114
*line 518
add #1000,R7
*line 519
L114:
*line 520
move R7,(sp)
move.l #_TheBuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 521
move.l #_TheBuf,R0
bra L112
L112:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _SqFwdLn
.text
_SqFwdLn:
~~SqFwdLn:
link R14,#0
movem.l R6-R7,-(sp)
~slin=R7
*line 538
*line 539
add #1,_curslin
move _curslin,R0
cmp #1000,R0
blt L116
*line 539
sub #1000,_curslin
*line 540
L116:
*line 541
move _curslin,R7
add #8,R7
*line 543
*line 544
cmp #1000,R7
blt L117
*line 544
sub #1000,R7
*line 545
L117:
*line 546
move R7,(sp)
move.l #_TheBuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 547
move.l #_TheBuf,R0
bra L115
L115:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _sqwins
.text
_sqwins:
~~sqwins:
link R14,#0
movem.l R6-R7,-(sp)
~i=R7
*line 560
clr R7
bra L121
L122:
*line 561
move R7,(sp)
jsr _sqwin
L120:
*line 560
add #1,R7
L121:
*line 560
cmp #4,R7
blt L122
L119:L118:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _sqdisp
.text
_sqdisp:
~~sqdisp:
link R14,#-4
*line 580
jsr _dswap
*line 582
move.l #_SqBakLn,_BakLine
*line 583
move.l #_SqFwdLn,_FwdLine
*line 587
move.l #_v_score,_obj8
*line 588
move.l #2048+_v_score,_obj9
*line 589
move.l #16384+_v_score,_obj10
*line 590
move.l #8192+_v_score,_obj11
*line 592
move #9,_ScrlObj
*line 593
move.l _obj9,_ScObAdr
*line 594
move.l _obj9,_LineBuf
*line 595
clr.l _OldLine
*line 596
move #18,_LineAtr
*line 598
clr _CurLine
*line 599
move #13,_CurScan
*line 601
clr _PdScDnF
*line 602
clr _PdScUpF
*line 607
move #-1,(sp)
move #72,-(sp)
clr -(sp)
clr -(sp)
move #28,-(sp)
move #512,-(sp)
move.l _obj8,-(sp)
clr -(sp)
move #1,-(sp)
move #8,-(sp)
jsr _SetObj
adda.l #20,sp
*line 608
move #-1,(sp)
move #72,-(sp)
move #28,-(sp)
clr -(sp)
move #224,-(sp)
move #384,-(sp)
move.l _obj9,-(sp)
clr -(sp)
move #1,-(sp)
move #9,-(sp)
jsr _SetObj
adda.l #20,sp
*line 609
move #-1,(sp)
move #1536,-(sp)
move #28,-(sp)
move #384,-(sp)
move #224,-(sp)
move #128,-(sp)
move.l _obj10,-(sp)
clr -(sp)
clr -(sp)
move #10,-(sp)
jsr _SetObj
adda.l #20,sp
*line 610
move #-1,(sp)
move #72,-(sp)
move #252,-(sp)
clr -(sp)
move #98,-(sp)
move #512,-(sp)
move.l _obj11,-(sp)
clr -(sp)
move #1,-(sp)
move #11,-(sp)
jsr _SetObj
adda.l #20,sp
*line 612
*line 613
clr R0
move 10+_v_regs,R0
and #384,R0
beq L124
*line 613
clr (sp)
jsr _vbank
*line 614
L124:
*line 615
move #32767,(sp)
clr -(sp)
move.l #_v_score,-(sp)
jsr _memsetw
addq.l #6,sp
*line 616
move #24577,(sp)
clr -(sp)
move.l #65534+_v_score,-(sp)
jsr _memsetw
addq.l #6,sp
*line 618
jsr _sqwins
*line 624
move #8,(sp)
move #8,-(sp)
jsr _SetPri
addq.l #2,sp
*line 625
move #9,(sp)
move #9,-(sp)
jsr _SetPri
addq.l #2,sp
*line 626
move #10,(sp)
move #10,-(sp)
jsr _SetPri
addq.l #2,sp
*line 627
move #11,(sp)
move #11,-(sp)
jsr _SetPri
addq.l #2,sp
*line 629
*line 630
clr R0
move 10+_v_regs,R0
and #384,R0
beq L125
*line 630
clr (sp)
jsr _vbank
*line 631
L125:
*line 632
move #3584,(sp)
move.l #_cg3,-(sp)
move.l #_v_cgtab,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 633
clr R0
move 2+_v_regs,R0
and #4095,R0
or #-8192,R0
move R0,2+_v_regs
*line 637
clr R0
move 64+_v_odtab,R0
and #4095,R0
or #-12288,R0
move R0,64+_v_odtab
*line 638
clr R0
move 72+_v_odtab,R0
and #4095,R0
or #-12288,R0
move R0,72+_v_odtab
*line 640
clr R0
move 88+_v_odtab,R0
and #4095,R0
or #-12288,R0
move R0,88+_v_odtab
*line 642
clr _submenu
*line 644
move #1,_ctcsw
*line 645
move #2,(sp)
move #9,-(sp)
jsr _ctcpos
addq.l #2,sp
*line 646
jsr _postcm
*line 648
move.l #_seqpal,(sp)
jsr _vsndpal
L123:unlk R14
rts
.data
L2:.dc.b $B0,$20,$4B,$65,$79,$20,$74,$72,$61,$6E,$73,$69,$65,$6E,$74,$20,$20,$54,$72,$69,$67,$67,$65,$72,$20,$6F,$6E,$20,$20,$20
.dc.b $53,$74,$6F,$70,$20,$20,$20,$20,$20,$20,$20,$20,$20,$53,$65,$74,$20,$72,$65,$67,$20,$20,$20,$56,$61,$6C,$75,$65,$20,$20
.dc.b $20,$20,$B0,$0
L3:.dc.b $B0,$20,$4B,$65,$79,$20,$63,$6C,$6F,$73,$75,$72,$65,$20,$20,$20,$20,$54,$72,$69,$67,$67,$65,$72,$20,$6F,$66,$66,$20,$20
.dc.b $4A,$75,$6D,$70,$20,$74,$6F,$20,$6C,$69,$6E,$20,$20,$49,$6E,$63,$20,$52,$65,$67,$20,$20,$20,$52,$65,$67,$69,$73,$74,$65
.dc.b $72,$20,$B0,$0
L4:.dc.b $B0,$20,$4B,$65,$79,$20,$72,$65,$6C,$65,$61,$73,$65,$20,$20,$20,$20,$54,$72,$69,$67,$20,$74,$6F,$67,$67,$6C,$65,$20,$20
.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$49,$66,$20,$72,$65,$67,$20,$3D,$20,$20,$56,$6F,$6C,$74,$61,$67,$65
.dc.b $20,$20,$B0,$0
L5:.dc.b $B0,$20,$49,$66,$20,$6B,$65,$79,$20,$61,$63,$74,$69,$76,$65,$20,$20,$49,$66,$20,$74,$72,$69,$67,$20,$61,$63,$74,$20,$20
.dc.b $49,$66,$20,$73,$74,$69,$6D,$20,$61,$63,$74,$20,$20,$49,$66,$20,$72,$65,$67,$20,$3C,$20,$20,$52,$61,$6E,$64,$6F,$6D,$20
.dc.b $20,$20,$B0,$0
L6:.dc.b $B0,$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,$20,$20,$20,$20,$20,$20,$20,$20,$20,$49,$66,$20,$72,$65,$67,$20,$3E,$20,$20,$20,$20,$20,$20,$20,$20,$20
.dc.b $20,$20,$B0,$0
L7:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
L8:.dc.b $4B,$63,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
L9:.dc.b $4B,$72,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
L10:.dc.b $4B,$74,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
L11:.dc.b $49,$66,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
L12:.dc.b $54,$72,$69,$67,$20,$6F,$6E,$20,$20,$30,$31,$0
L13:.dc.b $54,$72,$69,$67,$20,$6F,$66,$66,$20,$30,$31,$0
L14:.dc.b $54,$72,$69,$67,$20,$74,$67,$6C,$20,$30,$31,$0
L15:.dc.b $49,$66,$20,$74,$72,$69,$67,$20,$20,$30,$31,$0
L16:.dc.b $53,$65,$74,$20,$52,$30,$31,$3D,$30,$30,$20,$0
L17:.dc.b $49,$66,$20,$20,$52,$30,$31,$3D,$30,$30,$20,$0
L18:.dc.b $49,$66,$20,$20,$52,$30,$31,$3C,$30,$30,$20,$0
L19:.dc.b $49,$66,$20,$20,$52,$30,$31,$3E,$30,$30,$20,$0
L20:.dc.b $49,$66,$20,$73,$74,$69,$6D,$20,$61,$63,$74,$0
L21:.dc.b $4A,$75,$6D,$70,$20,$74,$6F,$20,$30,$30,$30,$0
L22:.dc.b $53,$74,$6F,$70,$20,$20,$20,$20,$20,$20,$20,$0
L23:.dc.b $49,$6E,$63,$20,$52,$30,$31,$2B,$30,$30,$20,$0
L37:.dc.b $25,$30,$33,$75,$20,$4C,$20,$20,$20,$0
L39:.dc.b $25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$0
L44:.dc.b $25,$30,$32,$75,$0
L54:.dc.b $52,$25,$30,$32,$75,$25,$63,$52,$25,$30,$32,$75,$0
L56:.dc.b $52,$25,$30,$32,$75,$25,$63,$25,$30,$32,$75,$20,$0
L58:.dc.b $52,$25,$30,$32,$75,$25,$63,$56,$25,$75,$20,$0
L60:.dc.b $52,$25,$30,$32,$75,$25,$63,$3F,$25,$75,$20,$0
L62:.dc.b $25,$30,$33,$75,$0
L73:.dc.b $20,$20,$25,$30,$33,$75,$20,$25,$30,$32,$75,$2E,$25,$30,$32,$75,$0
L98:.dc.b $20,$20,$20,$20,$25,$30,$33,$64,$20,$25,$30,$32,$64,$20,$25,$64,$20,$0
L99:.dc.b $B0,$0
L100:.dc.b $B0,$0
L103:.dc.b $BF,$0
L105:.dc.b $BC,$0
L106:.dc.b $25,$30,$32,$64,$0