.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 _stmptr
.globl _defptr
.globl _patches
.globl _defents
.globl _seqtab
.globl _seqflag
.globl _seqline
.globl _seqstim
.globl _seqtime
.globl _sregval
.globl _trstate
.globl _xy_up
.globl _xy_dn
.globl _premove
.globl _pstmove
.globl _curtype
.globl _astat
.globl _cmfirst
.globl _cmtype
.globl _curhold
.globl _curslin
.globl _cvtime
.globl _cvwait
.globl _ncvwait
.globl _sqdeflg
.globl _stccol
.globl _ss_ptsw
.globl _ss_sqsw
.globl _syrate
.globl _tvcwval
.globl _vcwval
.globl _crate1
.globl _csbp
.globl _sqboxes
.globl _seqbuf
.globl _seqtab
.globl _sqdebuf
.globl _sq_flds
.data
_sq_flds:
*line 72
.dc.l _stdctp5
*line 73
.dc.l _nokey
*line 74
.dc.l _postcm
*line 75
.dc.l _cxkstd
*line 76
.dc.l _cykstd
*line 77
.dc.l _smxupd
*line 78
.dc.l _sqyupd
*line 79
.dc.l _stopsm
*line 80
.dc.l _nokey
*line 81
.dc.l _sqxkey
*line 82
.dc.l _sqekey
*line 83
.dc.l _sqmkey
*line 84
.dc.l _sqdkey
*line 85
.dc.l _nokey
.dc.l $0
*line 87
.dc.l _sqboxes
*line 88
.dc.l _crate1
*line 89
.dc.l _crate1
.dc.w $4
.dc.w $10
.dc.w $7E
.globl _sqmkey
.text
_sqmkey:
~~sqmkey:
link R14,#0
movem.l R6-R7,-(sp)
~nc=R7
*line 108
*line 108
tst _astat
beq L2
*line 109
*line 110
*line 110
cmp #48,_stccol
bne L3
*line 111
*line 112
*line 112
tst _ss_ptsw
bne L4
*line 113
*line 114
move.l _xy_dn,R8
jsr (R8)
*line 115
*line 116
move.l _premove,R8
jsr (R8)
*line 117
*line 118
move.l _curtype,R8
jsr (R8)
move R0,R7
*line 119
*line 120
move _syrate,_cvtime
*line 121
move _curhold,_ncvwait
*line 122
*line 123
move #-1,_ss_sqsw
*line 124
move R7,_cmtype
*line 125
move #1,_cvwait
*line 126
*line 127
L4:
*line 128
bra L5
L3:
*line 129
jsr _stdmkey
L5:
*line 130
bra L6
L2:
*line 131
*line 132
*line 133
*line 133
cmp #48,_stccol
bne L7
*line 134
*line 135
clr _ss_sqsw
*line 136
move #1,_cvwait
*line 137
move _cvtime,_ncvwait
*line 138
move #1,_cmfirst
*line 139
*line 140
*line 141
tst _ss_ptsw
bne L8
*line 141
move.l _xy_up,R8
jsr (R8)
*line 142
L8:
*line 143
move.l _pstmove,R8
jsr (R8)
*line 144
*line 145
bra L9
L7:
*line 146
jsr _stdmkey
L9:L6:L1:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _sqekey
.text
_sqekey:
~~sqekey:
link R14,#0
movem.l R6-R7,-(sp)
~nc=R7
*line 163
*line 163
tst _astat
beq L11
*line 164
*line 165
*line 165
cmp #48,_stccol
bne L12
*line 166
*line 167
*line 167
tst _ss_ptsw
bne L13
*line 168
*line 169
move.l _xy_dn,R8
jsr (R8)
*line 170
*line 171
move.l _premove,R8
jsr (R8)
*line 172
*line 173
move.l _curtype,R8
jsr (R8)
move R0,R7
*line 174
*line 175
move _syrate,_cvtime
*line 176
move _curhold,_ncvwait
*line 177
*line 178
move #1,_ss_sqsw
*line 179
move R7,_cmtype
*line 180
move #1,_cvwait
*line 181
*line 182
L13:
*line 183
bra L14
L12:
*line 184
jsr _select
L14:
*line 185
bra L15
L11:
*line 186
*line 187
*line 188
*line 188
cmp #48,_stccol
bne L16
*line 189
*line 190
clr _ss_sqsw
*line 191
move #1,_cvwait
*line 192
move _cvtime,_ncvwait
*line 193
move #1,_cmfirst
*line 194
*line 195
*line 196
tst _ss_ptsw
bne L17
*line 196
move.l _xy_up,R8
jsr (R8)
*line 197
L17:
*line 198
move.l _pstmove,R8
jsr (R8)
*line 199
*line 200
bra L18
L16:
*line 201
jsr _select
L18:L15:L10:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _sqxkey
.text
_sqxkey:
~~sqxkey:
link R14,#-4
*line 216
*line 217
tst _astat
beq L19
*line 218
*line 219
*line 219
cmp #2,_stccol
blt L20
cmp #4,_stccol
bgt L20
*line 220
*line 221
move #7,(sp)
clr -(sp)
move.l #_seqbuf,-(sp)
jsr _memsetw
addq.l #6,sp
*line 222
move #7,(sp)
clr -(sp)
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,-(sp)
jsr _memsetw
addq.l #6,sp
*line 223
move _curslin,(sp)
move.l #_sqdebuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 224
move #1,_sqdeflg
*line 225
jsr _dcursq
*line 226
bra L21
L20:
*line 227
*line 227
cmp #12,_stccol
blt L22
cmp #22,_stccol
bgt L22
*line 228
*line 229
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,R8
clr 2(R8)
*line 230
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,R8
clr 4(R8)
*line 231
move #7,(sp)
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,-(sp)
move.l #_seqbuf,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 232
move _curslin,(sp)
move.l #_sqdebuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 233
move #1,_sqdeflg
*line 234
jsr _dcursq
*line 235
bra L23
L22:
*line 236
*line 236
cmp #24,_stccol
blt L24
cmp #34,_stccol
bgt L24
*line 237
*line 238
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,R8
clr 6(R8)
*line 239
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,R8
clr 8(R8)
*line 240
move #7,(sp)
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,-(sp)
move.l #_seqbuf,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 241
move _curslin,(sp)
move.l #_sqdebuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 242
move #1,_sqdeflg
*line 243
jsr _dcursq
*line 244
bra L25
L24:
*line 245
*line 245
cmp #36,_stccol
blt L26
cmp #46,_stccol
bgt L26
*line 246
*line 247
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,R8
clr 10(R8)
*line 248
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,R8
clr 12(R8)
*line 249
move #7,(sp)
move _curslin,R0
muls #14,R0
add.l #_seqtab,R0
move.l R0,-(sp)
move.l #_seqbuf,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 250
move _curslin,(sp)
move.l #_sqdebuf,-(sp)
jsr _dsqlin
addq.l #4,sp
*line 251
move #1,_sqdeflg
*line 252
jsr _dcursq
*line 253
L26:L25:L23:L21:L19:unlk R14
rts
.globl _sqfield
.text
_sqfield:
~~sqfield:
link R14,#-4
*line 273
move.l #_sq_flds,(sp)
jsr _curset
L27:unlk R14
rts
.data