.globl _ebflag
.globl _ebuf
.globl _curfet
.globl _cfetp
.globl _infetp
.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 _curvce
.globl _curwdth
.globl _cursbox
.globl _hitbox
.globl _cxval
.globl _cyval
.globl _hitcx
.globl _hitcy
.globl _curwave
.globl _curwfnl
.globl _curwpnt
.globl _curwoff
.globl _curwhrm
.globl _curwhrv
.globl _curwslt
.globl _wdupdfl
.globl _wpntsv
.globl _wplast
.globl _wvlast
.globl _lstwoff
.globl _lstwpnt
.globl _offsets
.globl _vmtab
.globl _wsbuf
.globl _vknm
.globl _wdbox
.globl _wsnmod
.globl _crate1
.globl _crate2
.globl _cratex
.globl _cratey
.globl _csbp
.globl _curboxp
.globl _vbufs
.globl _wslib
.globl _wdboxes
.data
_wdboxes:
.dc.w $1
.dc.w $1
.dc.w $1FE
.dc.w $133
.dc.w $0
*line 54
.dc.l _wdfnbox
.dc.w $1
.dc.w $134
.dc.w $1FE
.dc.w $140
.dc.w $1
*line 55
.dc.l _wdfnbox
.dc.w $1
.dc.w $142
.dc.w $AE
.dc.w $15C
.dc.w $2
*line 56
.dc.l _enterit
.dc.w $B0
.dc.w $142
.dc.w $E6
.dc.w $15C
.dc.w $3
*line 57
.dc.l _wdfnbox
.dc.w $E8
.dc.w $142
.dc.w $18E
.dc.w $15C
.dc.w $4
*line 58
.dc.l _enterit
.dc.w $190
.dc.w $142
.dc.w $1FE
.dc.w $15C
.dc.w $5
*line 59
.dc.l _enterit
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.globl _dsnewws
.text
_dsnewws:
~~dsnewws:
link R14,#-4
*line 72
clr (sp)
jsr _wdswin
*line 73
move #2,(sp)
jsr _wdswin
*line 74
move #4,(sp)
jsr _wdswin
*line 75
move #5,(sp)
jsr _wdswin
L1:unlk R14
rts
.globl _newws
.text
_newws:
~~newws:
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~i=R7
~ip=R13
*line 92
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 94
*line 94
tst _curwslt
beq L3
*line 95
*line 96
clr R7
bra L6
L7:
*line 97
*line 98
move.l R13,R8
move R7,R9
add.l R9,R9
add.l R9,R8
move 3366(R8),R0
asr #5,R0
move R7,R9
add #1,R9
add.l R9,R9
add.l #_offsets,R9
move R0,(R9)
*line 99
move.l R13,R8
move R7,R9
add.l R9,R9
add.l R9,R8
move 2858(R8),R0
asr #5,R0
move R7,R9
add #1,R9
add.l R9,R9
add.l #_wsbuf,R9
move R0,(R9)
L5:
*line 96
add #1,R7
L6:
*line 96
cmp #254,R7
blt L7
L4:
*line 100
*line 101
*line 102
move #32,(sp)
move.l R13,-(sp)
add.l #3874,(sp)
move.l #_vmtab,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 103
bra L8
L3:
*line 104
*line 105
*line 106
clr R7
bra L11
L12:
*line 107
*line 108
move.l R13,R8
move R7,R9
add.l R9,R9
add.l R9,R8
move 2286(R8),R0
asr #5,R0
move R7,R9
add #1,R9
add.l R9,R9
add.l #_offsets,R9
move R0,(R9)
*line 109
move.l R13,R8
move R7,R9
add.l R9,R9
add.l R9,R8
move 1778(R8),R0
asr #5,R0
move R7,R9
add #1,R9
add.l R9,R9
add.l #_wsbuf,R9
move R0,(R9)
L10:
*line 106
add #1,R7
L11:
*line 106
cmp #254,R7
blt L12
L9:
*line 110
*line 111
*line 112
move #32,(sp)
move.l R13,-(sp)
add.l #2794,(sp)
move.l #_vmtab,-(sp)
jsr _memcpyw
addq.l #8,sp
L8:
*line 115
move 2+_offsets,_offsets
*line 116
move 2+_wsbuf,_wsbuf
*line 118
move _curwhrm,R8
add.l R8,R8
add.l #_vmtab,R8
move (R8),_curwhrv
*line 119
move _curwpnt,R8
add #1,R8
add.l R8,R8
move.l #_offsets,R9
move 0(R8,R9.l),R0
move R0,_curwoff
move R0,_wvlast
move R0,_lstwoff
*line 120
move _curwpnt,R8
add #1,R8
add.l R8,R8
add.l #_wsbuf,R8
move (R8),_curwfnl
*line 121
move _curwpnt,R0
move R0,_wplast
move R0,_lstwpnt
*line 123
move #16384,(sp)
clr -(sp)
move.l #_vknm,-(sp)
jsr _memsetw
addq.l #6,sp
*line 124
jsr _wadj
L2:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _wdfnbox
.text
_wdfnbox:
~~wdfnbox:
~n=8
link R14,#0
movem.l R5-R7/R13-R13,-(sp)
~wval=R7
~wsgn=R6
~fpuws=R13
*line 144
move 8(R14),R0
bra L15
*line 145
L16:
*line 146
*line 147
*line 148
move _wpntsv,R0
bra L18
*line 149
L19:
*line 150
*line 151
*line 152
move #1,_wpntsv
*line 153
move _cxval,R0
sub #2,R0
ext.l R0
divs #2,R0
move R0,_curwpnt
*line 154
*line 155
*line 156
cmp #254,_curwpnt
blt L20
*line 156
move #253,_curwpnt
bra L21
L20:
*line 157
*line 158
tst _curwpnt
bge L22
*line 158
clr _curwpnt
*line 159
L22:L21:
*line 160
move.l #_crate2,_cratex
*line 161
move.l #_crate2,_cratey
*line 162
jsr _newws
*line 163
move #133,R0
move _curwoff,R1
ext.l R1
divs #8,R1
sub R1,R0
move R0,_cyval
*line 164
move _curwpnt,R0
asl #1,R0
add #2,R0
move R0,_cxval
*line 165
move #13,(sp)
jsr _arcurs
*line 166
move _cyval,(sp)
move _cxval,-(sp)
jsr _gcurpos
addq.l #2,sp
*line 167
move _curwpnt,_wplast
*line 168
move _curwoff,_wvlast
*line 169
move #4,(sp)
jsr _wdswin
bra L17
*line 170
*line 171
*line 172
L23:
*line 173
*line 174
*line 175
clr _wpntsv
*line 176
move.l #_crate1,_cratex
*line 177
move.l #_crate1,_cratey
*line 178
*line 179
move #1,(sp)
jsr _arcurs
*line 180
move _cyval,(sp)
move _cxval,-(sp)
jsr _gcurpos
addq.l #2,sp
bra L17
*line 181
*line 182
L24:
*line 183
*line 184
*line 185
clr _wpntsv
*line 186
move.l #_crate1,_cratex
*line 187
move.l #_crate1,_cratey
*line 188
*line 189
move #1,(sp)
jsr _arcurs
*line 190
move _curwhrm,R0
asl #1,R0
move R0,(sp)
add #1,(sp)
move #22,-(sp)
jsr _settc
addq.l #2,sp
bra L17
*line 191
bra L17
L18:tst R0
beq L19
cmp #1,R0
beq L23
cmp #2,R0
beq L24
bra L17
L17:
*line 192
*line 193
*line 194
move #1,R0
bra L13
*line 195
L25:
*line 196
*line 197
*line 198
move #2,_wpntsv
*line 199
move.l #_crate1,_cratex
*line 200
move.l #_crate1,_cratey
*line 201
*line 202
move _cxval,R0
asr #4,R0
move R0,_curwhrm
*line 203
move _curwhrm,R8
add.l R8,R8
add.l #_vmtab,R8
move (R8),_curwhrv
*line 204
*line 205
move _curwhrm,R0
asl #4,R0
add #8,R0
move R0,_cxval
*line 206
*line 207
*line 207
tst _curwhrv
bge L26
*line 208
*line 209
move #306,R0
move _curwhrv,R1
neg R1
asl #7,R1
ext.l R1
divs #100,R1
sub R1,R0
move R0,_cyval
*line 210
bra L27
L26:
*line 211
*line 212
*line 213
move #306,R0
move _curwhrv,R1
asl #7,R1
ext.l R1
divs #100,R1
sub R1,R0
move R0,_cyval
L27:
*line 214
*line 215
*line 216
move #13,(sp)
jsr _arcurs
*line 217
move _cyval,(sp)
move _cxval,-(sp)
jsr _gcurpos
addq.l #2,sp
*line 218
move #5,(sp)
jsr _wdswin
*line 219
move #1,R0
bra L13
*line 220
*line 221
L28:
*line 222
*line 223
*line 224
move _curvce,R8
add.l R8,R8
add.l R8,R8
move _curwslt,R9
add.l R9,R9
add.l R9,R8
add.l #_wsnmod,R8
clr (R8)
*line 225
*line 226
*line 226
cmp #336,_cyval
bge L29
*line 227
*line 228
*line 229
*line 230
*line 231
move #540,(sp)
tst _curwslt
beq L10000
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-(sp)
add.l #2858,(sp)
bra L10002
L10000:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-(sp)
add.l #1778,(sp)
L10002:move _curwave,R0
muls #1080,R0
add.l #_wslib,R0
move.l R0,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 232
*line 233
move #2,(sp)
jsr _wdswin
*line 234
bra L30
L29:
*line 235
*line 236
*line 237
*line 238
*line 239
*line 240
move #540,(sp)
move _curwave,R0
muls #1080,R0
add.l #_wslib,R0
move.l R0,-(sp)
tst _curwslt
beq L10003
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-(sp)
add.l #2858,(sp)
bra L10005
L10003:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-(sp)
add.l #1778,(sp)
L10005:jsr _memcpyw
addq.l #8,sp
*line 241
*line 242
jsr _updfpu
*line 243
jsr _newws
*line 244
jsr _dsnewws
L30:
*line 245
*line 246
*line 247
move.l #_crate1,_cratex
*line 248
move.l #_crate1,_cratey
*line 249
move #1,R0
bra L13
*line 250
L31:
*line 251
*line 252
*line 253
move.l #_crate1,_cratex
*line 254
move.l #_crate1,_cratey
*line 255
clr R0
bra L13
bra L14
L15:tst R0
beq L16
cmp #1,R0
beq L25
cmp #3,R0
beq L28
bra L31
L14:L13:tst.l (sp)+
movem.l (sp)+,R6-R7/R13-R13
unlk R14
rts
.data