.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 _obj3
.globl _cxval
.globl _cyval
.globl _stcrow
.globl _stccol
.globl _sctctab
.globl _sctccon
.data
_sctccon:
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.dc.w $4
.globl _stcclr
.text
_stcclr:
~~stcclr:
link R14,#0
movem.l R4-R7/R13-R13,-(sp)
~obj=R13
~i=R7
~j=R6
~k=R5
*line 174
*line 175
clr R0
move 10+_v_regs,R0
and #384,R0
cmp #256,R0
beq L2
*line 175
move #1,(sp)
jsr _vbank
*line 176
L2:
*line 177
clr _stcrow
*line 178
clr _stccol
*line 180
move.l _obj3,R13
*line 182
clr R7
bra L5
L6:
*line 183
*line 184
clr R6
bra L9
L10:
*line 185
*line 186
move R7,R0
asl #7,R0
ext.l R0
move R6,R1
asl #1,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_sctctab,R9
move 0(R8,R9.l),(sp)
jsr _exp_c
move R0,R5
*line 187
*line 188
move R5,(R13)+
*line 189
move R5,(R13)+
L8:
*line 184
add #1,R6
L9:
*line 184
cmp #64,R6
blt L10
L7:
*line 190
*line 191
*line 192
clr R6
bra L13
L14:
*line 193
*line 194
cmp #5,R7
bne L10000
move #9,R0
bra L10002
L10000:move R7,R0
L10002:asl #7,R0
ext.l R0
move R6,R1
asl #1,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_sctctab,R9
move 0(R8,R9.l),(sp)
jsr _exp_c
move R0,R5
*line 195
*line 196
move R5,(R13)+
*line 197
move R5,(R13)+
L12:
*line 192
add #1,R6
L13:
*line 192
cmp #64,R6
blt L14
L11:
*line 198
L4:
*line 182
add #1,R7
L5:
*line 182
cmp #9,R7
blt L6
L3:L1:tst.l (sp)+
movem.l (sp)+,R5-R7/R13-R13
unlk R14
rts
.globl _stcoff
.text
_stcoff:
~~stcoff:
link R14,#0
movem.l R5-R7/R13-R13,-(sp)
~ccv=R7
~tcp=R13
~tcrow=R6
*line 216
tst _stcrow
beq L10003
move _stcrow,R0
add #-16,R0
bra L10005
L10003:clr R0
L10005:move R0,R6
*line 218
*line 219
clr R0
move 10+_v_regs,R0
and #384,R0
cmp #256,R0
beq L16
*line 219
move #1,(sp)
jsr _vbank
*line 220
L16:
*line 221
move R6,R0
asl #8,R0
asl #1,R0
ext.l R0
move.l R0,R13
move _stccol,R0
asl #1,R0
asl #1,R0
ext.l R0
add.l R0,R13
add.l _obj3,R13
*line 225
move R6,R0
asl #7,R0
ext.l R0
move _stccol,R1
asl #1,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_sctctab,R9
move 0(R8,R9.l),(sp)
jsr _exp_c
move R0,R7
*line 227
move R7,(R13)+
*line 228
move R7,(R13)
L15:tst.l (sp)+
movem.l (sp)+,R6-R7/R13-R13
unlk R14
rts
.globl _stcpos
.text
_stcpos:
~~stcpos:
~row=8
~col=10
link R14,#0
movem.l R3-R7/R12-R13,-(sp)
~ccp=R13
~tcp=R12
~curson=R7
~ccv=R6
~ncrow=R5
~tcrow=R4
*line 247
tst _stcrow
beq L10006
move _stcrow,R0
add #-16,R0
bra L10008
L10006:clr R0
L10008:move R0,R4
*line 248
tst 8(R14)
beq L10009
move 8(R14),R0
add #-16,R0
bra L10011
L10009:clr R0
L10011:move R0,R5
*line 250
*line 251
clr R0
move 10+_v_regs,R0
and #384,R0
cmp #256,R0
beq L18
*line 251
move #1,(sp)
jsr _vbank
*line 252
L18:
*line 253
move #15,(sp)
jsr _exp_c
move R0,R7
*line 257
move R4,R0
asl #7,R0
ext.l R0
move _stccol,R1
asl #1,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_sctctab,R9
move 0(R8,R9.l),(sp)
jsr _exp_c
move R0,R6
*line 259
move R4,R0
asl #8,R0
asl #1,R0
ext.l R0
move.l R0,R12
move _stccol,R0
asl #1,R0
asl #1,R0
ext.l R0
add.l R0,R12
add.l _obj3,R12
*line 260
move R5,R0
asl #8,R0
asl #1,R0
ext.l R0
move.l R0,R13
move 10(R14),R0
asl #1,R0
asl #1,R0
ext.l R0
add.l R0,R13
add.l _obj3,R13
*line 262
move R6,(R12)+
*line 263
move R6,(R12)
*line 265
move R7,(R13)+
*line 266
move R7,(R13)
*line 268
move 8(R14),_stcrow
*line 269
move 10(R14),_stccol
L17:tst.l (sp)+
movem.l (sp)+,R4-R7/R12-R13
unlk R14
rts
.globl _advscur
.text
_advscur:
~~advscur:
link R14,#0
movem.l R6-R7,-(sp)
~newcol=R7
*line 285
*line 286
move.l _curfet,(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
jsr _infield
addq.l #4,sp
tst R0
beq L20
*line 286
move.l _infetp,_cfetp
*line 287
bra L21
L20:bra L19
L21:
*line 290
move _stccol,R7
add #1,R7
*line 292
*line 293
move.l _cfetp,R8
cmp 4(R8),R7
bgt L22
*line 293
move R7,(sp)
move _stcrow,-(sp)
jsr _stcpos
addq.l #2,sp
L22:L19:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _stcset
.text
_stcset:
~~stcset:
link R14,#-4
*line 304
move #640,(sp)
move.l #_sctccon,-(sp)
move.l #_sctctab,-(sp)
jsr _memcpyw
addq.l #8,sp
L23:unlk R14
rts
.data