Index: alcyon/wdfield.s
===================================================================
--- alcyon/wdfield.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/wdfield.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,2115 @@
+.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
