.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 _astat
.globl _cmtype
.globl _curfunc
.globl _curinst
.globl _curslim
.globl _curvce
.globl _curwave
.globl _curwdth
.globl _curwfnl
.globl _curwhrm
.globl _curwhrv
.globl _curwoff
.globl _curwpnt
.globl _curwslt
.globl _cxrate
.globl _cxval
.globl _cyrate
.globl _cyval
.globl _hitbox
.globl _lstwoff
.globl _lstwpnt
.globl _stccol
.globl _stcrow
.globl _wdupdfl
.globl _wplast
.globl _wpntsv
.globl _wvlast
.globl _crate1
.globl _offsets
.globl _vmtab
.globl _wsbuf
.globl _wsnmod
.globl _waveob
.globl _bfs
.globl _vbufs
.globl _csbp
.globl _wdboxes
.globl _wdcurtb
.data
_wdcurtb:
.dc.w $7FFF
.dc.w $7FFB
.dc.w $7FEC
.dc.w $7FD3
.dc.w $7FB1
.dc.w $7F84
.dc.w $7F4E
.dc.w $7F0E
.dc.w $7EC5
.dc.w $7E71
.dc.w $7E15
.dc.w $7DAE
.dc.w $7D3E
.dc.w $7CC5
.dc.w $7C42
.dc.w $7BB6
.dc.w $7B20
.dc.w $7A82
.dc.w $79DB
.dc.w $792A
.dc.w $7871
.dc.w $77AF
.dc.w $76E5
.dc.w $7612
.dc.w $7536
.dc.w $7453
.dc.w $7367
.dc.w $7274
.dc.w $7179
.dc.w $7076
.dc.w $6F6B
.dc.w $6E5A
.dc.w $6D41
.dc.w $6C21
.dc.w $6AFB
.dc.w $69CD
.dc.w $689A
.dc.w $6760
.dc.w $6620
.dc.w $64DA
.dc.w $638E
.dc.w $623D
.dc.w $60E7
.dc.w $5F8B
.dc.w $5E2B
.dc.w $5CC6
.dc.w $5B5D
.dc.w $59EF
.dc.w $587E
.dc.w $5708
.dc.w $558F
.dc.w $5413
.dc.w $5294
.dc.w $5112
.dc.w $4F8D
.dc.w $4E06
.dc.w $4C7C
.dc.w $4AF1
.dc.w $4964
.dc.w $47D5
.dc.w $4646
.dc.w $44B5
.dc.w $4324
.dc.w $4192
.dc.w $4000
.dc.w $3E6E
.dc.w $3CDC
.dc.w $3B4B
.dc.w $39BA
.dc.w $382A
.dc.w $369C
.dc.w $350F
.dc.w $3383
.dc.w $31FA
.dc.w $3073
.dc.w $2EEE
.dc.w $2D6C
.dc.w $2BEC
.dc.w $2A70
.dc.w $28F7
.dc.w $2782
.dc.w $2610
.dc.w $24A3
.dc.w $2339
.dc.w $21D4
.dc.w $2074
.dc.w $1F19
.dc.w $1DC2
.dc.w $1C71
.dc.w $1B26
.dc.w $19E0
.dc.w $18A0
.dc.w $1766
.dc.w $1632
.dc.w $1505
.dc.w $13DE
.dc.w $12BE
.dc.w $11A6
.dc.w $1094
.dc.w $F8A
.dc.w $E87
.dc.w $D8B
.dc.w $C98
.dc.w $BAC
.dc.w $AC9
.dc.w $9EE
.dc.w $91B
.dc.w $850
.dc.w $78E
.dc.w $6D5
.dc.w $625
.dc.w $57D
.dc.w $4DF
.dc.w $449
.dc.w $3BD
.dc.w $33B
.dc.w $2C1
.dc.w $251
.dc.w $1EB
.dc.w $18E
.dc.w $13A
.dc.w $F1
.dc.w $B1
.dc.w $7B
.dc.w $4E
.dc.w $2C
.dc.w $13
.dc.w $4
.globl _wdcurct
.data
_wdcurct:
.dc.w $1
.dc.w $80
.dc.w $2
.dc.w $40
.dc.w $4
.dc.w $20
.dc.w $8
.dc.w $10
.dc.w $10
.dc.w $8
.dc.w $20
.dc.w $4
.dc.w $40
.dc.w $2
.dc.w $80
.dc.w $1
.globl _wxrate
.data
_wxrate:
.dc.w $1
.globl _wd_fet1
.data
_wd_fet1:
.dc.w $17
.dc.w $A
.dc.w $B
.dc.w $2
*line 106
.dc.l _et_wavs
*line 106
.dc.l _ef_wavs
*line 106
.dc.l _rd_wavs
*line 106
.dc.l _nd_wavs
.dc.w $17
.dc.w $13
.dc.w $14
.dc.w $102
*line 107
.dc.l _et_wvce
*line 107
.dc.l _ef_wvce
*line 107
.dc.l _rd_wvce
*line 107
.dc.l _nd_wvce
.dc.w $17
.dc.w $22
.dc.w $24
.dc.w $4
*line 108
.dc.l _et_wpnt
*line 108
.dc.l _ef_wpnt
*line 108
.dc.l _rd_wpnt
*line 108
.dc.l _nd_wpnt
.dc.w $17
.dc.w $2C
.dc.w $30
.dc.w $104
*line 109
.dc.l _et_woff
*line 109
.dc.l _ef_woff
*line 109
.dc.l _rd_woff
*line 109
.dc.l _nd_woff
.dc.w $17
.dc.w $3D
.dc.w $3E
.dc.w $5
*line 110
.dc.l _et_whar
*line 110
.dc.l _ef_whar
*line 110
.dc.l _rd_whar
*line 110
.dc.l _nd_whar
.dc.w $18
.dc.w $14
.dc.w $14
.dc.w $302
*line 112
.dc.l _et_wslt
*line 112
.dc.l _ef_wslt
*line 112
.dc.l _rd_wslt
*line 112
.dc.l _nd_wslt
.dc.w $18
.dc.w $39
.dc.w $3C
.dc.w $105
*line 113
.dc.l _et_whrv
*line 113
.dc.l _ef_whrv
*line 113
.dc.l _rd_whrv
*line 113
.dc.l _nd_whrv
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.dc.l $0
.dc.l $0
.dc.l $0
.globl _wdbox
.data
_wdbox:
.dc.w $1
.dc.w $1
.dc.w $1FE
.dc.w $133
.dc.w $B
.dc.w $3
.dc.w $0
.dc.w $1
.dc.w $1
.dc.w $135
.dc.w $1FE
.dc.w $140
.dc.w $B
.dc.w $4
.dc.w $16
.dc.w $0
.dc.w $1
.dc.w $142
.dc.w $AE
.dc.w $15C
.dc.w $B
.dc.w $5
.dc.w $17
.dc.w $1
.dc.w $B0
.dc.w $142
.dc.w $E6
.dc.w $15C
.dc.w $B
.dc.w $E
.dc.w $17
.dc.w $17
.dc.w $E8
.dc.w $142
.dc.w $18E
.dc.w $15C
.dc.w $B
.dc.w $5
.dc.w $17
.dc.w $1E
.dc.w $190
.dc.w $142
.dc.w $1FE
.dc.w $15C
.dc.w $B
.dc.w $E
.dc.w $17
.dc.w $33
.globl _wdbxlb0
.data
_wdbxlb0:
*line 130
.dc.l L1
*line 134
.dc.l L2
*line 136
.dc.l L3
*line 137
.dc.l L4
*line 138
.dc.l L5
*line 140
.dc.l L6
.globl _wdbxlb1
.data
_wdbxlb1:
*line 144
.dc.l L7
*line 145
.dc.l L8
*line 146
.dc.l L9
*line 147
.dc.l L10
*line 148
.dc.l L11
*line 150
.dc.l L12
.globl _wd_flds
.data
_wd_flds:
*line 157
.dc.l _stdctp1
*line 158
.dc.l _nokey
*line 159
.dc.l _nokey
*line 160
.dc.l _cxkstd
*line 161
.dc.l _cykstd
*line 162
.dc.l _wdcxupd
*line 163
.dc.l _wdcyupd
*line 164
.dc.l _wdykup
*line 165
.dc.l _wdykdn
*line 166
.dc.l _wdxkey
*line 167
.dc.l _select
*line 168
.dc.l _stdmkey
*line 169
.dc.l _stddkey
*line 170
.dc.l _wdnfld
*line 171
.dc.l _wd_fet1
*line 172
.dc.l _wdboxes
*line 173
.dc.l _crate1
*line 174
.dc.l _crate1
.dc.w $0
.dc.w $100
.dc.w $80
.globl _updfpu
.text
_updfpu:
~~updfpu:
link R14,#0
movem.l R6-R7/R12-R13,-(sp)
~i=R7
~wsp1=R13
~wsp2=R12
*line 196
move _curvce,R0
move #9,R1
asl R1,R0
asl #1,R0
ext.l R0
move.l R0,R13
tst _curwslt
beq L10000
clr R0
bra L10002
L10000:move #256,R0
L10002:asl #1,R0
ext.l R0
add.l R0,R13
add.l #_io_fpu,R13
add.l #$2,R13
*line 197
tst _curwslt
beq L10003
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #2858,R0
bra L10005
L10003:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #1778,R0
L10005:move.l R0,R12
*line 199
move #254,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 203
move -2(R12),-2(R13)
*line 204
move 506(R12),508(R13)
*line 210
move #254,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 212
move -2(R12),-2(R13)
*line 213
move 506(R12),508(R13)
*line 216
move _curwpnt,R8
add.l R8,R8
move 0(R12,R8.l),R0
asr #5,R0
move R0,_curwfnl
L13:tst.l (sp)+
movem.l (sp)+,R7-R7/R12-R13
unlk R14
rts
.globl _wsupd
.text
_wsupd:
~~wsupd:
link R14,#0
movem.l R6-R7/R12-R13,-(sp)
~i=R7
~wsp1=R13
~wsp2=R12
*line 235
tst _curwslt
beq L10006
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #3366,R0
bra L10008
L10006:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #2286,R0
L10008:move.l R0,R12
*line 237
clr R7
bra L17
L18:
*line 238
move R7,R8
add.l R8,R8
move 0(R12,R8.l),R0
asr #5,R0
move R7,R9
add #1,R9
add.l R9,R9
add.l #_offsets,R9
move R0,(R9)
L16:
*line 237
add #1,R7
L17:
*line 237
cmp #254,R7
blt L18
L15:
*line 240
move 2+_offsets,_offsets
*line 242
jsr _wscalc
*line 246
tst _curwslt
beq L10009
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #2858,R0
bra L10011
L10009:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #1778,R0
L10011:move.l R0,R13
*line 248
clr R7
bra L21
L22:
*line 249
move R7,R8
add #1,R8
add.l R8,R8
move.l #_wsbuf,R9
move 0(R8,R9.l),R0
asl #5,R0
move.l R13,R9
move R7,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
L20:
*line 248
add #1,R7
L21:
*line 248
cmp #254,R7
blt L22
L19:
*line 251
jsr _updfpu
*line 252
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
move #1,(R8)
L14:tst.l (sp)+
movem.l (sp)+,R7-R7/R12-R13
unlk R14
rts
.globl _whupd
.text
_whupd:
~~whupd:
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~i=R7
~wsp1=R13
*line 268
tst _curwslt
beq L10012
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #2858,R0
bra L10014
L10012:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
add.l #1778,R0
L10014:move.l R0,R13
*line 270
clr R7
bra L26
L27:
*line 271
move R7,R8
add #1,R8
add.l R8,R8
move.l #_wsbuf,R9
move 0(R8,R9.l),R0
asl #5,R0
move.l R13,R9
move R7,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
L25:
*line 270
add #1,R7
L26:
*line 270
cmp #254,R7
blt L27
L24:
*line 273
jsr _updfpu
*line 274
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
move #1,(R8)
L23:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _pntsup
.text
_pntsup:
~~pntsup:
link R14,#-8
movem.l R2-R7/R13-R13,-(sp)
~ip=R13
~ov=-4
~i=R7
~j=R6
~k=R5
~tv=R4
~curdif=R3
~cwnp=-6
~cwin=-8
*line 293
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 295
*line 296
tst _curwslt
beq L10015
move.l R13,R0
add.l #3366,R0
bra L10017
L10015:move.l R13,R0
add.l #2286,R0
L10017:move.l R0,-4(R14)
*line 298
move _curwdth,R8
add.l R8,R8
add.l R8,R8
add.l #_wdcurct,R8
move (R8),-6(R14)
*line 300
move _curwdth,R8
add.l R8,R8
add.l R8,R8
add.l #_wdcurct,R8
move 2(R8),-8(R14)
*line 302
move _lstwoff,R3
sub _curwoff,R3
*line 306
clr R7
clr R5
bra L31
L32:
*line 307
*line 308
*line 308
tst R7
bne L33
*line 309
*line 310
move _curwoff,R0
asl #5,R0
move _curwpnt,R9
add.l R9,R9
add.l -4(R14),R9
move R0,(R9)
*line 311
bra L34
L33:
*line 312
*line 313
*line 314
move R7,R6
add _curwpnt,R6
*line 315
*line 316
*line 316
cmp #254,R6
bge L35
*line 317
*line 318
*line 319
*line 320
move.l #$8000,-(sp)
move R5,R8
add.l R8,R8
move.l #_wdcurtb,R9
move 0(R8,R9.l),R0
ext.l R0
move.l R0,-(sp)
move R3,R8
move.l R8,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,-(sp)
add.l #$4000,(sp)
jsr ldiv
addq.l #8,sp
move.l R0,-(sp)
move.l -4(R14),R8
move R6,R9
add.l R9,R9
move 0(R8,R9.l),R0
asr #5,R0
ext.l R0
sub.l (sp)+,R0
move R0,R4
*line 321
*line 322
*line 323
cmp #1023,R4
ble L36
*line 323
move #1023,R4
bra L37
L36:
*line 324
*line 325
cmp #-1023,R4
bge L38
*line 325
move #-1023,R4
*line 326
L38:L37:
*line 327
move R4,R0
asl #5,R0
move R6,R9
add.l R9,R9
add.l -4(R14),R9
move R0,(R9)
*line 328
*line 329
L35:
*line 330
move _curwpnt,R6
sub R7,R6
*line 331
*line 332
*line 332
tst R6
blt L39
*line 333
*line 334
*line 335
*line 336
move.l #$8000,-(sp)
move R5,R8
add.l R8,R8
move.l #_wdcurtb,R9
move 0(R8,R9.l),R0
ext.l R0
move.l R0,-(sp)
move R3,R8
move.l R8,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,-(sp)
add.l #$4000,(sp)
jsr ldiv
addq.l #8,sp
move.l R0,-(sp)
move.l -4(R14),R8
move R6,R9
add.l R9,R9
move 0(R8,R9.l),R0
asr #5,R0
ext.l R0
sub.l (sp)+,R0
move R0,R4
*line 337
*line 338
*line 339
cmp #1023,R4
ble L40
*line 339
move #1023,R4
bra L41
L40:
*line 340
*line 341
cmp #-1023,R4
bge L42
*line 341
move #-1023,R4
*line 342
L42:L41:
*line 343
move R4,R0
asl #5,R0
move R6,R9
add.l R9,R9
add.l -4(R14),R9
move R0,(R9)
*line 344
L39:L34:
*line 345
L30:
*line 306
add #1,R7
add -8(R14),R5
L31:
*line 306
cmp -6(R14),R7
blt L32
L29:
*line 348
jsr _wsupd
L28:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.globl _wdintp
.text
_wdintp:
~~wdintp:
link R14,#-4
movem.l R2-R7/R12-R13,-(sp)
~ip=R13
~ov=R12
~i=R7
~j=R6
~k=R5
~n=R4
~t=R3
~to=-2
~from=-4
*line 368
move _curwpnt,-2(R14)
*line 369
move _wplast,-4(R14)
*line 371
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 372
tst _curwslt
beq L10018
move.l R13,R0
add.l #3366,R0
bra L10020
L10018:move.l R13,R0
add.l #2286,R0
L10020:move.l R0,R12
*line 374
move _curwoff,R0
asl #5,R0
move.l R12,R9
move _curwpnt,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
*line 376
*line 376
move -4(R14),R0
cmp -2(R14),R0
ble L44
*line 377
*line 378
move -4(R14),R7
*line 379
move -2(R14),-4(R14)
*line 380
move R7,-2(R14)
*line 381
*line 382
L44:
*line 383
move -2(R14),R4
sub -4(R14),R4
*line 385
*line 385
cmp #1,R4
ble L45
*line 386
*line 387
move.l R12,R8
move -4(R14),R9
add.l R9,R9
add.l R9,R8
move (R8),R5
asr #5,R5
*line 388
move R4,R0
ext.l R0
move.l R0,-(sp)
move -2(R14),R8
add.l R8,R8
move 0(R12,R8.l),R0
asr #5,R0
ext.l R0
move R5,R1
ext.l R1
sub.l R1,R0
move.l #$10,R1
asl.l R1,R0
move.l R0,-(sp)
jsr ldiv
addq.l #8,sp
move.l R0,R3
*line 389
move -4(R14),R6
add #1,R6
*line 390
sub #1,R4
*line 391
*line 392
clr R7
bra L48
L49:
*line 393
move R7,R0
add #1,R0
ext.l R0
move.l R0,-(sp)
move.l R3,-(sp)
jsr lmul
addq.l #8,sp
move.l #$10,R1
asr.l R1,R0
add R5,R0
asl #5,R0
move R0,-(sp)
move.l R12,R8
move R6,R9
add.l R9,R9
add.l R9,R8
move (sp)+,(R8)
add #1,R6
L47:
*line 392
add #1,R7
L48:
*line 392
cmp R4,R7
blt L49
L46:
*line 393
*line 394
*line 395
L45:
*line 396
move _curwpnt,_wplast
*line 397
move _curwoff,_wvlast
*line 399
jsr _wsupd
L43:tst.l (sp)+
movem.l (sp)+,R3-R7/R12-R13
unlk R14
rts
.globl _wdykdn
.text
_wdykdn:
~~wdykdn:
link R14,#-4
*line 413
*line 414
tst _wpntsv
beq L50
*line 415
*line 416
move _curwpnt,_lstwpnt
*line 417
move _curwoff,_lstwoff
L50:unlk R14
rts
.globl _wdykup
.text
_wdykup:
~~wdykup:
link R14,#-4
*line 428
*line 429
tst _wpntsv
beq L51
tst _wdupdfl
beq L51
*line 430
*line 431
*line 431
cmp #1,_wpntsv
bne L52
*line 432
*line 433
*line 434
cmp #8,_curwdth
bne L53
*line 434
jsr _wdintp
*line 435
bra L54
L53:
*line 436
jsr _pntsup
L54:
*line 437
bra L55
L52:
*line 438
*line 439
*line 440
move _curwhrm,(sp)
jsr _adj
*line 441
jsr _wscalc
*line 442
jsr _whupd
L55:
*line 445
clr (sp)
jsr _wdswin
*line 446
move #2,(sp)
jsr _wdswin
*line 447
move #4,(sp)
jsr _wdswin
*line 449
clr _wdupdfl
L51:unlk R14
rts
.globl _wdcyupd
.text
_wdcyupd:
~~wdcyupd:
link R14,#-6
movem.l R2-R7/R11-R13,-(sp)
~ip=R13
~ov=R12
~hv=R11
~i=R7
~j=R6
~k=R5
~tv=R4
~wsgn=R3
~wval=-2
~cwnp=-4
~cwin=-6
*line 469
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 471
move _wpntsv,R0
bra L58
*line 472
L59:
*line 473
*line 474
*line 475
move _cyrate,R0
add R0,_cyval
*line 476
*line 477
*line 478
cmp #348,_cyval
ble L60
*line 478
move #348,_cyval
bra L61
L60:
*line 479
*line 480
cmp #1,_cyval
bge L62
*line 480
move #1,_cyval
*line 481
L62:L61:bra L56
*line 482
*line 483
*line 484
L63:
*line 485
*line 486
*line 487
move _cyrate,R0
sub R0,_curwoff
*line 488
*line 489
*line 490
cmp #1023,_curwoff
ble L64
*line 490
move #1023,_curwoff
bra L65
L64:
*line 491
*line 492
cmp #-1023,_curwoff
bge L66
*line 492
move #-1023,_curwoff
*line 493
L66:L65:
*line 494
move #133,R0
move _curwoff,R1
ext.l R1
divs #8,R1
sub R1,R0
move R0,_cyval
*line 495
*line 496
*line 496
tst _curwoff
bge L67
*line 497
*line 498
move _curwoff,R0
neg R0
move R0,-2(R14)
*line 499
move.b #45,R3
*line 500
bra L68
L67:
*line 501
*line 502
*line 503
move _curwoff,-2(R14)
*line 504
move.b #43,R3
L68:
*line 505
*line 506
*line 507
move -2(R14),(sp)
move.b R3,R0
ext.w R0
move R0,-(sp) 
move.l #L69,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 508
*line 509
*line 510
clr R0
move 10+_v_regs,R0
and #384,R0
beq L70
*line 510
clr (sp)
jsr _vbank
*line 511
L70:
*line 512
*line 513
move #14,(sp)
move.l #_bfs,-(sp)
move 78+_wdbox,-(sp)
add #14,(sp)
move 76+_wdbox,-(sp)
move 74+_wdbox,-(sp)
move 72+_wdbox,-(sp)
move #64,-(sp)
move.l _waveob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 514
*line 515
move #1,_wdupdfl
bra L56
*line 516
*line 517
*line 518
L71:
*line 519
*line 520
*line 521
tst _curwslt
beq L10021
move.l R13,R0
add.l #3874,R0
bra L10023
L10021:move.l R13,R0
add.l #2794,R0
L10023:move.l R0,R11
*line 522
*line 523
move.l R11,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
tst (R8)
bge L10024
move _curwhrm,R8
add.l R8,R8
move 0(R11,R8.l),R0
neg R0
bra L10026
L10024:move _curwhrm,R8
add.l R8,R8
move 0(R11,R8.l),R0
L10026:sub _cyrate,R0
move R0,_curwhrv
*line 524
*line 525
*line 526
cmp #100,_curwhrv
ble L72
*line 526
move #100,_curwhrv
bra L73
L72:
*line 527
*line 528
tst _curwhrv
bge L74
*line 528
clr _curwhrv
*line 529
L74:L73:
*line 530
move.l R11,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
tst (R8)
bge L10027
move _curwhrv,R0
neg R0
bra L10029
L10027:move _curwhrv,R0
L10029:move R0,_curwhrv
*line 531
*line 532
move.l R11,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
move _curwhrv,(R8)
*line 533
move _curwhrm,R8
add.l R8,R8
add.l #_vmtab,R8
move _curwhrv,(R8)
*line 534
*line 535
*line 535
tst _curwhrv
bge L75
*line 536
*line 537
move _curwhrv,R0
neg R0
move R0,-2(R14)
*line 538
move.b #45,R3
*line 539
bra L76
L75:
*line 540
*line 541
*line 542
move _curwhrv,-2(R14)
*line 543
move.b #43,R3
L76:
*line 544
*line 545
*line 546
*line 547
clr R0
move 10+_v_regs,R0
and #384,R0
beq L77
*line 547
clr (sp)
jsr _vbank
*line 548
L77:
*line 549
move -2(R14),(sp)
move.b R3,R0
ext.w R0
move R0,-(sp) 
move.l #L78,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 550
*line 551
*line 552
move #14,(sp)
move.l #_bfs,-(sp)
move 94+_wdbox,-(sp)
add #6,(sp)
move 92+_wdbox,-(sp)
add #1,(sp)
move 90+_wdbox,-(sp)
move 88+_wdbox,-(sp)
move #64,-(sp)
move.l _waveob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 553
*line 554
*line 555
tst _curwhrv
bge L79
*line 555
move #306,R0
move _curwhrv,R1
neg R1
asl #7,R1
ext.l R1
divs #100,R1
sub R1,R0
move R0,_cyval
*line 556
bra L80
L79:
*line 557
move #306,R0
move _curwhrv,R1
asl #7,R1
ext.l R1
divs #100,R1
sub R1,R0
move R0,_cyval
L80:
*line 558
*line 559
move #1,_wdupdfl
bra L56
*line 560
bra L57
L58:tst R0
beq L59
cmp #1,R0
beq L63
cmp #2,R0
beq L71
bra L57
L57:L56:tst.l (sp)+
movem.l (sp)+,R3-R7/R11-R13
unlk R14
rts
.globl _wdcxupd
.text
_wdcxupd:
~~wdcxupd:
link R14,#-4
*line 575
move _wpntsv,R0
bra L83
*line 576
L84:
*line 577
*line 578
*line 579
move _cxrate,R0
add R0,_cxval
*line 580
*line 581
*line 582
cmp #510,_cxval
ble L85
*line 582
move #510,_cxval
bra L86
L85:
*line 583
*line 584
cmp #1,_cxval
bge L87
*line 584
move #1,_cxval
*line 585
L87:L86:bra L81
*line 586
*line 587
L88:
*line 588
*line 589
*line 590
*line 591
cmp #8,_curwdth
bne L81
*line 592
*line 593
tst _cxrate
bge L10030
move _wxrate,R0
neg R0
bra L10032
L10030:move _wxrate,R0
L10032:add R0,_curwpnt
*line 594
*line 595
*line 596
cmp #254,_curwpnt
blt L89
*line 596
move #253,_curwpnt
bra L90
L89:
*line 597
*line 598
tst _curwpnt
bge L91
*line 598
clr _curwpnt
*line 599
L91:L90:
*line 600
move _curwpnt,R0
asl #1,R0
add #2,R0
move R0,_cxval
*line 601
*line 602
*line 603
clr R0
move 10+_v_regs,R0
and #384,R0
beq L92
*line 603
clr (sp)
jsr _vbank
*line 604
L92:
*line 605
move _curwpnt,(sp)
move.l #L93,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
addq.l #8,sp
*line 606
*line 607
move #14,(sp)
move.l #_bfs,-(sp)
move 78+_wdbox,-(sp)
add #4,(sp)
move 76+_wdbox,-(sp)
move 74+_wdbox,-(sp)
move 72+_wdbox,-(sp)
move #64,-(sp)
move.l _waveob,-(sp)
jsr _vcputsv
adda.l #18,sp
bra L82
L83:tst R0
beq L84
cmp #1,R0
beq L88
bra L82
L82:L81:unlk R14
rts
.globl _wdnfld
.text
_wdnfld:
~~wdnfld:
~k=8
link R14,#0
movem.l R7-R7/R12-R13,-(sp)
~hv=R13
~ip=R12
*line 627
*line 627
tst _astat
beq L95
*line 628
*line 629
*line 629
jsr _whatbox
tst R0
beq L96
*line 630
*line 631
move _curvce,R0
muls #3938,R0
move.l R0,R12
add.l #_vbufs,R12
*line 632
tst _curwslt
beq L10033
move.l R12,R0
add.l #3874,R0
bra L10035
L10033:move.l R12,R0
add.l #2794,R0
L10035:move.l R0,R13
*line 633
*line 634
*line 634
tst _hitbox
bne L97
*line 635
*line 636
move _wpntsv,R0
bra L99
*line 637
L100:
*line 638
*line 639
*line 640
*line 640
cmp #8,8(R14)
bne L101
*line 641
*line 642
*line 643
sub #1,_curwdth
bge L102
*line 643
move #8,_curwdth
*line 644
L102:
*line 645
move #4,(sp)
jsr _wdswin
*line 646
clr R0
bra L94
*line 647
bra L103
L101:
*line 648
*line 648
cmp #9,8(R14)
bne L104
*line 649
*line 650
*line 651
add #1,_curwdth
move _curwdth,R0
cmp #8,R0
ble L105
*line 651
clr _curwdth
*line 652
L105:
*line 653
move #4,(sp)
jsr _wdswin
*line 654
clr R0
bra L94
*line 655
*line 656
L104:L103:
*line 657
move #-1,R0
bra L94
*line 658
*line 659
L106:
*line 660
*line 661
*line 662
*line 662
cmp #8,8(R14)
bne L107
*line 663
*line 664
*line 665
cmp #8,_curwdth
bne L108
*line 665
move #-1,R0
bra L94
*line 666
L108:
*line 667
*line 668
sub #1,_curwdth
bge L109
*line 668
move #7,_curwdth
*line 669
L109:
*line 670
move #4,(sp)
jsr _wdswin
*line 671
clr R0
bra L94
*line 672
bra L110
L107:
*line 673
*line 673
cmp #9,8(R14)
bne L111
*line 674
*line 675
*line 675
cmp #8,_curwdth
bne L112
*line 676
*line 677
jsr _wdintp
*line 678
clr (sp)
jsr _wdswin
*line 679
move #2,(sp)
jsr _wdswin
*line 680
bra L113
L112:
*line 681
*line 682
add #1,_curwdth
move _curwdth,R0
cmp #8,R0
blt L114
*line 682
clr _curwdth
*line 683
L114:L113:
*line 684
move #4,(sp)
jsr _wdswin
*line 685
clr R0
bra L94
*line 686
*line 687
L111:L110:
*line 688
move #-1,R0
bra L94
*line 689
*line 690
L115:
*line 691
*line 692
*line 693
*line 693
cmp #8,8(R14)
bne L116
*line 694
*line 695
*line 696
move.l R13,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
tst (R8)
ble L117
*line 696
move _curwhrm,R8
add.l R8,R8
move 0(R13,R8.l),R0
neg R0
move.l R13,R9
move _curwhrm,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
*line 697
bra L118
L117:
*line 698
move #-1,R0
bra L94
L118:
*line 699
bra L119
L116:
*line 700
*line 700
cmp #9,8(R14)
bne L120
*line 701
*line 702
*line 703
move.l R13,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
tst (R8)
bge L121
*line 703
move _curwhrm,R8
add.l R8,R8
move 0(R13,R8.l),R0
neg R0
move.l R13,R9
move _curwhrm,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
*line 704
bra L122
L121:
*line 705
move #-1,R0
bra L94
L122:
*line 706
bra L123
L120:
*line 707
*line 708
*line 709
move #-1,R0
bra L94
L123:L119:
*line 710
*line 711
*line 712
move.l R13,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
move (R8),_curwhrv
*line 713
move _curwhrm,R8
add.l R8,R8
add.l #_vmtab,R8
move _curwhrv,(R8)
*line 714
move _curwhrm,(sp)
jsr _adj
*line 715
jsr _wscalc
*line 716
jsr _whupd
*line 717
clr (sp)
jsr _wdswin
*line 718
move #4,(sp)
jsr _wdswin
*line 719
move #5,(sp)
jsr _wdswin
*line 720
clr R0
bra L94
bra L98
L99:tst R0
beq L100
cmp #1,R0
beq L106
cmp #2,R0
beq L115
bra L98
L98:
*line 721
*line 722
bra L124
L97:
*line 723
*line 724
move #-1,R0
bra L94
L124:
*line 725
*line 726
bra L125
L96:
*line 727
*line 727
cmp #1,_hitbox
bne L126
*line 728
*line 729
*line 729
cmp #8,8(R14)
bne L127
*line 730
*line 731
*line 732
move.l R13,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
tst (R8)
ble L128
*line 732
move _curwhrm,R8
add.l R8,R8
move 0(R13,R8.l),R0
neg R0
move.l R13,R9
move _curwhrm,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
*line 733
bra L129
L128:
*line 734
move #-1,R0
bra L94
L129:
*line 735
bra L130
L127:
*line 736
*line 736
cmp #9,8(R14)
bne L131
*line 737
*line 738
*line 739
move.l R13,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
tst (R8)
bge L132
*line 739
move _curwhrm,R8
add.l R8,R8
move 0(R13,R8.l),R0
neg R0
move.l R13,R9
move _curwhrm,R10
add.l R10,R10
add.l R10,R9
move R0,(R9)
*line 740
bra L133
L132:
*line 741
move #-1,R0
bra L94
L133:
*line 742
bra L134
L131:
*line 743
*line 744
*line 745
move #-1,R0
bra L94
L134:L130:
*line 746
*line 747
*line 748
move.l R13,R8
move _curwhrm,R9
add.l R9,R9
add.l R9,R8
move (R8),_curwhrv
*line 749
move _curwhrm,R8
add.l R8,R8
add.l #_vmtab,R8
move _curwhrv,(R8)
*line 750
move _curwhrm,(sp)
jsr _adj
*line 751
jsr _wscalc
*line 752
jsr _whupd
*line 753
clr (sp)
jsr _wdswin
*line 754
move #4,(sp)
jsr _wdswin
*line 755
move #5,(sp)
jsr _wdswin
*line 756
clr R0
bra L94
*line 757
*line 758
L126:L125:
*line 759
move #-1,R0
bra L94
*line 760
L95:L94:tst.l (sp)+
movem.l (sp)+,R12-R13
unlk R14
rts
.globl _wdxkey
.text
_wdxkey:
~~wdxkey:
link R14,#-4
*line 775
*line 776
tst _astat
bne L136
*line 776
move #-1,R0
bra L135
*line 777
L136:
*line 778
move _cyval,R0
ext.l R0
divs #14,R0
move R0,_stcrow
*line 779
move _cxval,R0
asr #3,R0
move R0,_stccol
*line 781
*line 781
cmp #23,_stcrow
bne L137
*line 782
*line 783
*line 783
cmp #2,_stccol
bge L10036
cmp #8,_stccol
bgt L138
L10036:*line 784
*line 785
jsr _clrws
*line 786
bra L139
L138:
*line 787
*line 787
cmp #38,_stccol
blt L140
cmp #42,_stccol
bgt L140
*line 788
*line 789
*line 790
*line 791
move #254,(sp)
clr -(sp)
tst _curwslt
beq L10037
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-(sp)
add.l #3366,(sp)
bra L10039
L10037:move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-(sp)
add.l #3366,(sp)
L10039:jsr _memsetw
addq.l #6,sp
*line 792
*line 793
clr _curwoff
*line 794
jsr _wsupd
*line 795
bra L141
L140:
*line 796
*line 796
cmp #51,_stccol
blt L142
cmp #58,_stccol
bgt L142
*line 797
*line 798
move #32,(sp)
clr -(sp)
move.l #_vmtab,-(sp)
jsr _memsetw
addq.l #6,sp
*line 799
clr _curwhrv
*line 800
jsr _wadj
*line 801
jsr _wscalc
*line 802
jsr _whupd
*line 803
bra L143
L142:
*line 804
*line 805
*line 806
move #-1,R0
bra L135
L143:L141:L139:
*line 807
*line 808
*line 809
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
move #1,(R8)
*line 810
jsr _wwins
*line 811
clr R0
bra L135
*line 812
*line 813
L137:
*line 814
move #-1,R0
bra L135
L135:unlk R14
rts
.globl _wdfield
.text
_wdfield:
~~wdfield:
link R14,#-4
*line 828
move #307,_curslim
*line 830
move.l #_wd_flds,(sp)
jsr _curset
L144:unlk R14
rts
.data
L1:.dc.b $0
L2:.dc.b $D0,$C1,$20,$20,$D0,$C3,$20,$20,$D0,$C5,$20,$20,$D0,$C7,$20,$20,$D0,$C9,$20,$20,$D1,$C1,$20,$20,$D1,$C3,$20,$20,$D1,$C5
.dc.b $20,$20,$D1,$C7,$20,$20,$D1,$C9,$20,$20,$D2,$C1,$20,$20,$D2,$C3,$20,$20,$D2,$C5,$20,$20,$D2,$C7,$20,$20,$D2,$C9,$20,$20
.dc.b $D3,$C1,$20,$20,$0
L3:.dc.b $57,$61,$76,$65,$73,$68,$70,$65,$20,$20,$20,$20,$56,$6F,$69,$63,$65,$0
L4:.dc.b $53,$74,$6F,$72,$65,$0
L5:.dc.b $50,$6E,$74,$20,$20,$20,$20,$20,$4F,$66,$66,$73,$74,$0
L6:.dc.b $48,$61,$72,$6D,$6F,$6E,$69,$63,$20,$23,$0
L7:.dc.b $0
L8:.dc.b $0
L9:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$20,$20,$20,$53,$6C,$6F,$74,$0
L10:.dc.b $46,$65,$74,$63,$68,$0
L11:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$46,$69,$6E,$61,$6C,$0
L12:.dc.b $56,$61,$6C,$75,$65,$0
L69:.dc.b $25,$63,$25,$30,$34,$64,$0
L78:.dc.b $25,$63,$25,$30,$33,$64,$0
L93:.dc.b $25,$30,$33,$64,$0