Index: alcyon/dopatch.s
===================================================================
--- alcyon/dopatch.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/dopatch.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,1900 @@
+.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 _stmptr
+.globl _defptr
+.globl _patches
+.globl _defents
+.globl _seqtab
+.globl _seqflag
+.globl _seqline
+.globl _seqstim
+.globl _seqtime
+.globl _sregval
+.globl _trstate
+.globl _S1IoRec
+.globl _S2IoRec
+.globl _M1IoRec
+.globl _M2IoRec
+.globl _seqdupd
+.comm _seqdupd,2
+.globl _bform
+.globl _curinst
+.globl _curvce
+.globl _timemlt
+.globl _expbit
+.globl _ins2grp
+.globl _s_inst
+.globl _vce2grp
+.globl _seqflag
+.globl _seqline
+.globl _sregval
+.globl _trstate
+.globl _ptefifo
+.globl _vbufs
+.globl _wslib
+.globl _ledstat
+.comm _ledstat,24
+.globl _frq2par
+.data
+_frq2par:
+.dc.w $1
+.dc.w $3
+.dc.w $5
+.dc.w $7
+.globl _ind2par
+.data
+_ind2par:
+.dc.w $9
+.dc.w $B
+.dc.w $C
+.dc.w $D
+.dc.w $E
+.dc.w $F
+.globl _cv2vce
+.data
+_cv2vce:
+.dc.w $B
+.dc.w $A
+.dc.w $6
+.dc.w $8
+.globl _lg2base
+.data
+_lg2base:
+.dc.w $0
+.dc.w $3
+.dc.w $7
+.dc.w $A
+.dc.w $E
+.dc.w $11
+.dc.w $15
+.globl _vgtype
+.data
+_vgtype:
+.dc.b $0
+.dc.b $2
+.dc.b $2
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $1
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.dc.b $0
+.even
+.globl _pdows
+.text
+_pdows:
+~~pdows:
+~slot=8
+~voice=10
+~wsn=12
+link R14,#-8
+~fpuws=-4
+*line 118
+*line 118
+tst 8(R14)
+beq L2
+*line 119
+*line 120
+move 12(R14),R0
+move 10(R14),R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move.b R0,73(R9)
+*line 121
+*line 122
+*line 123
+move #540,(sp)
+move 12(R14),R0
+muls #1080,R0
+add.l #_wslib,R0
+move.l R0,-(sp)
+move 10(R14),R0
+muls #3938,R0
+add.l #_vbufs,R0
+move.l R0,-(sp)
+add.l #2858,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 124
+*line 125
+move 10(R14),R0
+move #9,R1
+asl R1,R0
+asl #1,R0
+ext.l R0
+add.l #_io_fpu,R0
+add.l #$2,R0
+move.l R0,-4(R14)
+*line 126
+*line 127
+move #254,(sp)
+move 10(R14),R0
+muls #3938,R0
+add.l #_vbufs,R0
+move.l R0,-(sp)
+add.l #2858,(sp)
+move.l -4(R14),-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 128
+*line 129
+move.l -4(R14),R8
+move 10(R14),R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move 2858(R9),-2(R8)
+*line 130
+move.l -4(R14),R8
+move 10(R14),R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move 3364(R9),508(R8)
+*line 131
+bra L3
+L2:
+*line 132
+*line 133
+*line 134
+move 12(R14),R0
+move 10(R14),R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move.b R0,72(R9)
+*line 135
+*line 136
+*line 137
+move #540,(sp)
+move 12(R14),R0
+muls #1080,R0
+add.l #_wslib,R0
+move.l R0,-(sp)
+move 10(R14),R0
+muls #3938,R0
+add.l #_vbufs,R0
+move.l R0,-(sp)
+add.l #1778,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 138
+*line 139
+move 10(R14),R0
+move #9,R1
+asl R1,R0
+asl #1,R0
+ext.l R0
+add.l #_io_fpu,R0
+add.l #$202,R0
+move.l R0,-4(R14)
+*line 140
+*line 141
+move #254,(sp)
+move _curvce,R0
+muls #3938,R0
+add.l #_vbufs,R0
+move.l R0,-(sp)
+add.l #1778,(sp)
+move.l -4(R14),-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 142
+*line 143
+move.l -4(R14),R8
+move 10(R14),R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move 1778(R9),-2(R8)
+*line 144
+move.l -4(R14),R8
+move 10(R14),R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move 2284(R9),508(R8)
+*line 145
+L3:L1:unlk R14
+rts
+.globl _pfpufn
+.text
+_pfpufn:
+~~pfpufn:
+~voice=8
+~par=10
+~dat1=12
+~dat2=14
+link R14,#-2
+movem.l R7-R7/R13-R13,-(sp)
+~fpu=R13
+~delay=-2
+*line 164
+clr R0
+move 8(R14),R0
+lsl #8,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R13
+clr R0
+move 10(R14),R0
+lsl #4,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l R0,R13
+add.l #_io_fpu,R13
+add.l #$4000,R13
+*line 166
+clr R0
+move 12(R14),R0
+bra L6
+*line 167
+L7:
+*line 168
+bra L5
+*line 169
+*line 170
+L8:
+*line 171
+*line 172
+*line 173
+move.l R13,R8
+add.l #$a,R8
+move 14(R14),(R8)
+bra L5
+*line 174
+*line 175
+L9:
+*line 176
+*line 177
+*line 178
+*line 179
+move.l R13,-(sp)
+add.l #$14,(sp)
+move _timemlt,R0
+ext.l R0
+and.l #$ffff,R0
+move.l R0,-(sp)
+clr.l R0
+move 14(R14),R0
+and.l #$fff0,R0
+move.l R0,-(sp)
+jsr lmul
+addq.l #8,sp
+move.l #$f,R1
+asr.l R1,R0
+move.l (sp)+,R8
+move R0,(R8)
+*line 180
+*line 181
+add #1,-2(R14)
+*line 182
+*line 183
+move.l R13,R8
+add.l #$16,R8
+clr R1
+move 14(R14),R1
+and #15,R1
+lsl #1,R1
+swap R1
+clr R1
+swap R1
+add.l #_expbit,R1
+move.l R1,R9
+move (R9),(R8)
+*line 184
+bra L5
+*line 185
+*line 186
+L10:
+*line 187
+*line 188
+*line 189
+move 14(R14),(sp)
+move 10(R14),-(sp)
+move 8(R14),-(sp)
+jsr _sendval
+addq.l #4,sp
+bra L5
+*line 190
+*line 191
+L11:
+*line 192
+bra L5
+*line 193
+*line 194
+L12:
+*line 195
+bra L5
+*line 196
+bra L5
+L6:cmp #4,R0
+bhi L12
+asl #2,R0
+move R0,R8
+add.l #L13,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L13:.dc.l L7
+.dc.l L8
+.dc.l L9
+.dc.l L10
+.dc.l L11
+.text
+L5:L4:tst.l (sp)+
+movem.l (sp)+,R13-R13
+unlk R14
+rts
+.globl _pdoctl
+.text
+_pdoctl:
+~~pdoctl:
+~voice=R7
+~osc=R6
+~dat1=R5
+~dat2=R4
+link R14,#0
+movem.l R3-R7/R13-R13,-(sp)
+~ip=R13
+*line 214
+move 8(R14),R7
+*line 214
+move 10(R14),R6
+*line 214
+move 12(R14),R5
+*line 214
+move 14(R14),R4
+*line 214
+move R7,R0
+muls #3938,R0
+move.l R0,R13
+add.l #_vbufs,R13
+*line 215
+move R5,_bform
+*line 216
+move R4,R0
+asr #1,R0
+move R0,(sp)
+move R6,-(sp)
+move.l R13,-(sp)
+jsr _setoval
+addq.l #6,sp
+L14:tst.l (sp)+
+movem.l (sp)+,R4-R7/R13-R13
+unlk R14
+rts
+.globl _dopatch
+.text
+_dopatch:
+~~dopatch:
+~pp=R13
+link R14,#-26
+movem.l R2-R7/R11-R13,-(sp)
+~suba=R7
+~dat1=R6
+~dat2=R5
+~i=R4
+~temp=R3
+~ser=R12
+~iorec=R11
+~chan=-2
+~oldsr=-4
+~osc=-6
+~port=-8
+~spec=-10
+~sat=-12
+~trig=-14
+~vgr=-16
+~vgn=-18
+~vgt=-20
+~baseled=-22
+~curled=-24
+~ledctl=-26
+*line 237
+move.l 8(R14),R13
+*line 237
+clr R0
+move 8(R13),R0
+and #255,R0
+move R0,-10(R14)
+*line 238
+move 10(R13),R7
+*line 239
+move 12(R13),R6
+*line 240
+move 14(R13),R5
+*line 242
+clr R8
+move -10(R14),R8
+move.l #_vgtype,R9
+move.b 0(R8,R9.l),R0
+ext.w R0
+move R0,-12(R14)
+*line 244
+*line 244
+btst #0,-11(R14)
+beq L16
+*line 245
+*line 246
+clr R0
+move R7,R0
+lsr #8,R0
+and #255,R0
+move R0,-16(R14)
+*line 247
+clr R0
+move R7,R0
+and #255,R0
+move R0,-6(R14)
+*line 248
+*line 249
+*line 249
+cmp #11,-16(R14)
+bls L17
+*line 250
+*line 251
+move #1,-20(R14)
+*line 252
+clr R0
+move -16(R14),R0
+add #-12,R0
+move R0,-18(R14)
+*line 253
+bra L18
+L17:
+*line 254
+*line 255
+*line 256
+clr -20(R14)
+*line 257
+move -16(R14),-18(R14)
+L18:
+*line 258
+*line 259
+bra L19
+L16:
+*line 260
+*line 260
+btst #1,-11(R14)
+beq L20
+*line 261
+*line 262
+clr R0
+move R7,R0
+move #11,R1
+lsr R1,R0
+and #3,R0
+move R0,-8(R14)
+*line 263
+clr R0
+move R7,R0
+lsr #7,R0
+and #15,R0
+move R0,-2(R14)
+*line 264
+clr R0
+move R7,R0
+and #127,R0
+move R0,-14(R14)
+*line 265
+*line 266
+*line 267
+L20:L19:
+*line 268
+clr R0
+move -10(R14),R0
+bra L22
+*line 269
+L23:
+*line 270
+*line 271
+*line 272
+*line 273
+tst R5
+beq L10000
+cmp #2,R5
+bne L24
+L10000:*line 273
+move R7,(sp)
+and #8191,(sp)
+move.l #_ptefifo,-(sp)
+jsr _putwq
+addq.l #4,sp
+*line 274
+L24:
+*line 275
+*line 276
+tst R5
+beq L10001
+cmp #1,R5
+bne L25
+L10001:*line 276
+move R7,(sp)
+or #-32768,(sp)
+move.l #_ptefifo,-(sp)
+jsr _putwq
+addq.l #4,sp
+*line 277
+L25:bra L21
+*line 278
+*line 279
+L26:
+*line 280
+*line 281
+*line 282
+and #15,-14(R14)
+*line 283
+clr R0
+move -14(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_trstate,R0
+move.l R0,R8
+move R5,(R8)
+*line 284
+*line 285
+*line 286
+tst R5
+beq L27
+*line 286
+move R7,(sp)
+move.l #_ptefifo,-(sp)
+jsr _putwq
+addq.l #4,sp
+*line 287
+L27:
+*line 288
+move #1,R0
+clr R1
+move -14(R14),R1
+asl R1,R0
+or R0,_seqdupd
+bra L21
+*line 289
+*line 290
+L28:
+*line 291
+*line 292
+*line 293
+*line 293
+tst R7
+beq L29
+*line 294
+*line 295
+move.l #10+_io_midi,R12
+*line 296
+move.l _M2IoRec,R11
+*line 297
+bra L30
+L29:
+*line 298
+*line 299
+*line 300
+move.l #2+_io_midi,R12
+*line 301
+move.l _M1IoRec,R11
+L30:
+*line 302
+*line 303
+*line 304
+move #9984,(sp)
+jsr _setsr
+move R0,-4(R14)
+*line 305
+*line 306
+move.b 29(R11),R3
+ext.w R3
+*line 307
+*line 308
+clr R0
+move R5,R0
+bra L32
+*line 309
+L33:
+*line 310
+*line 311
+*line 312
+move R3,R0
+or #130,R0
+move.b R0,(R12)
+*line 313
+move R3,R0
+and #253,R0
+or #128,R0
+move.b R0,(R12)
+bra L31
+*line 314
+*line 315
+L34:
+*line 316
+*line 317
+*line 318
+move R3,R0
+and #253,R0
+or #128,R0
+move.b R0,(R12)
+bra L31
+*line 319
+*line 320
+L35:
+*line 321
+*line 322
+*line 323
+move R3,R0
+or #130,R0
+move.b R0,(R12)
+bra L31
+*line 324
+bra L31
+L32:tst R0
+beq L33
+cmp #1,R0
+beq L34
+cmp #2,R0
+beq L35
+bra L31
+L31:
+*line 325
+*line 326
+*line 327
+move -4(R14),(sp)
+jsr _setsr
+*line 328
+bra L21
+*line 329
+*line 330
+*line 331
+L36:
+*line 332
+*line 333
+*line 334
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_lg2base,R0
+move.l R0,R8
+move (R8),-22(R14)
+*line 335
+*line 336
+clr R4
+bra L39
+L40:
+*line 337
+*line 338
+move R4,R0
+add -22(R14),R0
+move R0,-24(R14)
+*line 339
+clr R0
+move R6,R0
+move #14,R1
+move R4,R2
+asl #1,R2
+sub R2,R1
+lsr R1,R0
+and #3,R0
+move R0,-26(R14)
+*line 340
+*line 341
+*line 341
+cmp #1,-26(R14)
+bne L41
+*line 342
+*line 343
+move.l #_ledstat,R8
+move -24(R14),R9
+add.l R9,R8
+move.b #1,(R8)
+*line 344
+move -24(R14),R0
+move.b R0,_io_leds
+*line 345
+bra L42
+L41:
+*line 346
+*line 346
+cmp #2,-26(R14)
+bne L43
+*line 347
+*line 348
+move.l #_ledstat,R8
+move -24(R14),R9
+add.l R9,R8
+clr.b (R8)
+*line 349
+move -24(R14),R0
+or #128,R0
+move.b R0,_io_leds
+*line 350
+bra L44
+L43:
+*line 351
+*line 351
+cmp #3,-26(R14)
+bne L45
+*line 352
+*line 353
+*line 353
+move -24(R14),R8
+move.l #_ledstat,R9
+tst.b 0(R8,R9.l)
+beq L46
+*line 354
+*line 355
+move.l #_ledstat,R8
+move -24(R14),R9
+add.l R9,R8
+clr.b (R8)
+*line 356
+move -24(R14),R0
+or #128,R0
+move.b R0,_io_leds
+*line 357
+bra L47
+L46:
+*line 358
+*line 359
+*line 360
+move.l #_ledstat,R8
+move -24(R14),R9
+add.l R9,R8
+move.b #1,(R8)
+*line 361
+move -24(R14),R0
+move.b R0,_io_leds
+L47:
+*line 362
+*line 363
+L45:L44:L42:L38:
+*line 336
+add #1,R4
+L39:
+*line 336
+clr R0
+move R7,R0
+and #1,R0
+add #3,R0
+cmp R0,R4
+blo L40
+L37:
+*line 364
+*line 365
+bra L21
+*line 366
+*line 367
+L48:
+*line 368
+*line 369
+*line 370
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_seqline,R0
+move.l R0,R8
+move R6,(R8)
+*line 371
+move #1,R0
+clr R1
+move R7,R1
+asl R1,R0
+or R0,_seqdupd
+bra L21
+*line 372
+*line 373
+L49:
+*line 374
+*line 375
+*line 376
+*line 377
+*line 377
+tst R5
+beq L50
+*line 378
+*line 379
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_seqflag,R0
+move.l R0,R8
+or #-16384,(R8)
+*line 380
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_seqtime,R0
+move.l R0,R8
+clr R1
+move R7,R1
+lsl #1,R1
+swap R1
+clr R1
+swap R1
+add.l #_seqline,R1
+move.l R1,R9
+clr R1
+move (R9),R1
+mulu #14,R1
+add.l #_seqtab,R1
+move.l R1,R9
+move (R9),(R8)
+*line 381
+*line 386
+*line 387
+bra L51
+L50:
+*line 388
+*line 389
+*line 390
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_seqflag,R0
+move.l R0,R8
+clr (R8)
+*line 391
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_seqtime,R0
+move.l R0,R8
+clr (R8)
+*line 392
+*line 397
+*line 398
+L51:
+*line 399
+*line 400
+*line 401
+move #1,R0
+clr R1
+move R7,R1
+asl R1,R0
+or R0,_seqdupd
+bra L21
+*line 402
+*line 403
+*line 404
+L52:
+*line 405
+*line 406
+*line 407
+move R6,(sp)
+jsr _gettun
+bra L21
+*line 408
+*line 409
+L53:
+*line 410
+*line 411
+*line 412
+tst R6
+beq L10002
+clr R0
+move R5,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_sregval,R9
+clr R0
+move 0(R8,R9.l),R0
+bra L10004
+L10002:clr R0
+move R5,R0
+L10004:clr R1
+move R7,R1
+lsl #1,R1
+swap R1
+clr R1
+swap R1
+add.l #_sregval,R1
+move.l R1,R9
+move R0,(R9)
+*line 413
+move #1,R0
+clr R1
+move R7,R1
+asl R1,R0
+or R0,_seqdupd
+bra L21
+*line 414
+*line 415
+L54:
+*line 416
+*line 417
+*line 418
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_sregval,R0
+move.l R0,R8
+move (R8),R3
+tst R6
+beq L10005
+clr R0
+move R5,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_sregval,R9
+clr R0
+move 0(R8,R9.l),R0
+bra L10007
+L10005:clr R0
+move R5,R0
+L10007:add R0,R3
+*line 419
+*line 420
+*line 421
+cmp #99,R3
+ble L55
+*line 421
+move #99,R3
+bra L56
+L55:
+*line 422
+*line 423
+tst R3
+bge L57
+*line 423
+clr R3
+*line 424
+L57:L56:
+*line 425
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_sregval,R0
+move.l R0,R8
+move R3,(R8)
+*line 426
+move #1,R0
+clr R1
+move R7,R1
+asl R1,R0
+or R0,_seqdupd
+bra L21
+*line 427
+*line 428
+L58:
+*line 429
+*line 430
+*line 431
+*line 431
+tst -20(R14)
+beq L59
+*line 432
+*line 433
+clr R0
+move R6,R0
+clr R1
+move -18(R14),R1
+lsl #1,R1
+swap R1
+clr R1
+swap R1
+add.l #_ins2grp,R1
+move.l R1,R9
+move (R9),R1
+and #-256,R1
+or R1,R0
+clr R1
+move -18(R14),R1
+lsl #1,R1
+swap R1
+clr R1
+swap R1
+add.l #_ins2grp,R1
+move.l R1,R9
+move R0,(R9)
+*line 434
+move -18(R14),(sp)
+jsr _setv2gi
+*line 435
+bra L60
+L59:
+*line 436
+*line 437
+*line 438
+*line 439
+move _curvce,R0
+cmp -18(R14),R0
+bne L61
+*line 439
+move R6,_curinst
+*line 440
+L61:
+*line 441
+clr R0
+move -18(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_s_inst,R0
+move.l R0,R8
+move R6,(R8)
+*line 442
+move #1,(sp)
+move R6,-(sp)
+move -18(R14),-(sp)
+jsr _execins
+addq.l #4,sp
+L60:
+*line 443
+*line 444
+bra L21
+*line 445
+*line 446
+*line 447
+*line 448
+L62:
+*line 449
+*line 450
+*line 451
+*line 451
+tst -20(R14)
+beq L63
+*line 452
+*line 453
+clr R4
+bra L66
+L67:
+*line 454
+*line 455
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L68
+*line 455
+move R5,(sp)
+move R6,-(sp)
+move -6(R14),-(sp)
+move R4,-(sp)
+jsr _pdoctl
+addq.l #6,sp
+*line 456
+L68:L65:
+*line 453
+add #1,R4
+L66:
+*line 453
+cmp #12,R4
+blt L67
+L64:bra L69
+L63:
+*line 457
+*line 458
+*line 459
+move R5,(sp)
+move R6,-(sp)
+move -6(R14),-(sp)
+move -18(R14),-(sp)
+jsr _pdoctl
+addq.l #6,sp
+L69:
+*line 460
+*line 461
+bra L21
+*line 462
+*line 463
+*line 464
+L70:
+*line 465
+*line 466
+*line 467
+*line 467
+tst -20(R14)
+beq L71
+*line 468
+*line 469
+clr R4
+bra L74
+L75:
+*line 470
+*line 471
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L76
+*line 471
+move R6,(sp)
+move R4,-(sp)
+clr -(sp)
+jsr _pdows
+addq.l #4,sp
+*line 472
+L76:L73:
+*line 469
+add #1,R4
+L74:
+*line 469
+cmp #12,R4
+blt L75
+L72:bra L77
+L71:
+*line 473
+*line 474
+*line 475
+move R6,(sp)
+move -18(R14),-(sp)
+clr -(sp)
+jsr _pdows
+addq.l #4,sp
+L77:
+*line 476
+*line 477
+bra L21
+*line 478
+*line 479
+L78:
+*line 480
+*line 481
+*line 482
+*line 482
+tst -20(R14)
+beq L79
+*line 483
+*line 484
+clr R4
+bra L82
+L83:
+*line 485
+*line 486
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L84
+*line 486
+move R6,(sp)
+move R4,-(sp)
+move #1,-(sp)
+jsr _pdows
+addq.l #4,sp
+*line 487
+L84:L81:
+*line 484
+add #1,R4
+L82:
+*line 484
+cmp #12,R4
+blt L83
+L80:bra L85
+L79:
+*line 488
+*line 489
+*line 490
+move R6,(sp)
+move -18(R14),-(sp)
+move #1,-(sp)
+jsr _pdows
+addq.l #4,sp
+L85:
+*line 491
+*line 492
+bra L21
+*line 493
+*line 494
+L86:
+*line 495
+*line 496
+*line 497
+*line 497
+tst -20(R14)
+beq L87
+*line 498
+*line 499
+clr R4
+bra L90
+L91:
+*line 500
+*line 500
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L92
+*line 501
+*line 502
+clr R0
+move R6,R0
+move R4,R1
+muls #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move.b R0,70(R9)
+*line 503
+move R4,(sp)
+jsr _dosync
+*line 504
+L92:L89:
+*line 499
+add #1,R4
+L90:
+*line 499
+cmp #12,R4
+blt L91
+L88:bra L93
+L87:
+*line 505
+*line 506
+*line 507
+clr R0
+move R6,R0
+clr R1
+move -18(R14),R1
+mulu #3938,R1
+add.l #_vbufs,R1
+move.l R1,R9
+move.b R0,70(R9)
+*line 508
+move -18(R14),(sp)
+jsr _dosync
+L93:
+*line 509
+*line 510
+bra L21
+*line 511
+*line 512
+*line 513
+L94:
+*line 514
+*line 515
+*line 516
+*line 516
+tst -20(R14)
+beq L95
+*line 517
+*line 518
+clr R4
+bra L98
+L99:
+*line 519
+*line 520
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L100
+*line 520
+move R5,(sp)
+move R6,-(sp)
+move #2,-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 521
+L100:L97:
+*line 518
+add #1,R4
+L98:
+*line 518
+cmp #12,R4
+blt L99
+L96:bra L101
+L95:
+*line 522
+*line 523
+*line 524
+move R5,(sp)
+move R6,-(sp)
+move #2,-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L101:
+*line 525
+*line 526
+bra L21
+*line 527
+*line 528
+L102:
+*line 529
+*line 530
+*line 531
+*line 531
+tst -20(R14)
+beq L103
+*line 532
+*line 533
+clr R4
+bra L106
+L107:
+*line 534
+*line 535
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L108
+*line 535
+move R5,(sp)
+move R6,-(sp)
+clr R0
+move -6(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_ind2par,R9
+move 0(R8,R9.l),-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 536
+L108:L105:
+*line 533
+add #1,R4
+L106:
+*line 533
+cmp #12,R4
+blt L107
+L104:bra L109
+L103:
+*line 537
+*line 538
+*line 539
+move R5,(sp)
+move R6,-(sp)
+clr R0
+move -6(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_ind2par,R9
+move 0(R8,R9.l),-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L109:
+*line 540
+*line 541
+bra L21
+*line 542
+*line 543
+*line 544
+L110:
+*line 545
+*line 546
+*line 547
+*line 547
+tst -20(R14)
+beq L111
+*line 548
+*line 549
+clr R4
+bra L114
+L115:
+*line 550
+*line 551
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L116
+*line 551
+move R5,(sp)
+move R6,-(sp)
+clr R0
+move -6(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_frq2par,R9
+move 0(R8,R9.l),-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 552
+L116:L113:
+*line 549
+add #1,R4
+L114:
+*line 549
+cmp #12,R4
+blt L115
+L112:bra L117
+L111:
+*line 553
+*line 554
+*line 555
+move R5,(sp)
+move R6,-(sp)
+clr R0
+move -6(R14),R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_frq2par,R9
+move 0(R8,R9.l),-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L117:
+*line 556
+*line 557
+bra L21
+*line 558
+*line 559
+L118:
+*line 560
+*line 561
+*line 562
+*line 562
+tst -20(R14)
+beq L119
+*line 563
+*line 564
+clr R4
+bra L122
+L123:
+*line 565
+*line 566
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L124
+*line 566
+move R5,(sp)
+move R6,-(sp)
+move #10,-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 567
+L124:L121:
+*line 564
+add #1,R4
+L122:
+*line 564
+cmp #12,R4
+blt L123
+L120:bra L125
+L119:
+*line 568
+*line 569
+*line 570
+move R5,(sp)
+move R6,-(sp)
+move #10,-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L125:
+*line 571
+*line 572
+bra L21
+*line 573
+*line 574
+*line 575
+L126:
+*line 576
+*line 577
+*line 578
+*line 578
+tst -20(R14)
+beq L127
+*line 579
+*line 580
+clr R4
+bra L130
+L131:
+*line 581
+*line 582
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L132
+*line 582
+move R5,(sp)
+move R6,-(sp)
+move #6,-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 583
+L132:L129:
+*line 580
+add #1,R4
+L130:
+*line 580
+cmp #12,R4
+blt L131
+L128:bra L133
+L127:
+*line 584
+*line 585
+*line 586
+move R5,(sp)
+move R6,-(sp)
+move #6,-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L133:
+*line 587
+*line 588
+bra L21
+*line 589
+*line 590
+L134:
+*line 591
+*line 592
+*line 593
+*line 593
+tst -20(R14)
+beq L135
+*line 594
+*line 595
+clr R4
+bra L138
+L139:
+*line 596
+*line 597
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L140
+*line 597
+move R5,(sp)
+move R6,-(sp)
+move #4,-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 598
+L140:L137:
+*line 595
+add #1,R4
+L138:
+*line 595
+cmp #12,R4
+blt L139
+L136:bra L141
+L135:
+*line 599
+*line 600
+*line 601
+move R5,(sp)
+move R6,-(sp)
+move #4,-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L141:
+*line 602
+*line 603
+bra L21
+*line 604
+*line 605
+*line 606
+L142:
+*line 607
+*line 608
+*line 609
+*line 609
+tst -20(R14)
+beq L143
+*line 610
+*line 611
+clr R4
+bra L146
+L147:
+*line 612
+*line 613
+move R4,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),R0
+clr R1
+move -18(R14),R1
+add #1,R1
+cmp R1,R0
+bne L148
+*line 613
+move R5,(sp)
+move R6,-(sp)
+move #8,-(sp)
+move R4,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+*line 614
+L148:L145:
+*line 611
+add #1,R4
+L146:
+*line 611
+cmp #12,R4
+blt L147
+L144:bra L149
+L143:
+*line 615
+*line 616
+*line 617
+move R5,(sp)
+move R6,-(sp)
+move #8,-(sp)
+move -18(R14),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+L149:
+*line 618
+*line 619
+bra L21
+*line 620
+*line 621
+L150:
+*line 622
+*line 623
+*line 624
+move R5,(sp)
+move R6,-(sp)
+clr -(sp)
+move #9,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+bra L21
+*line 625
+*line 626
+L151:
+*line 627
+*line 628
+*line 629
+move R5,(sp)
+move R6,-(sp)
+clr -(sp)
+move #2,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+bra L21
+*line 630
+*line 631
+L152:
+*line 632
+*line 633
+*line 634
+move R5,(sp)
+move R6,-(sp)
+clr -(sp)
+move #1,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+bra L21
+*line 635
+*line 636
+L153:
+*line 637
+*line 638
+*line 639
+move R5,(sp)
+move R6,-(sp)
+clr -(sp)
+move #3,-(sp)
+jsr _pfpufn
+addq.l #6,sp
+bra L21
+*line 640
+*line 641
+L154:
+*line 642
+*line 643
+*line 644
+move R5,(sp)
+move R6,-(sp)
+clr -(sp)
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+move.l R0,R8
+move.l #_cv2vce,R9
+move 0(R8,R9.l),-(sp)
+jsr _pfpufn
+addq.l #6,sp
+bra L21
+*line 645
+*line 646
+bra L21
+L22:sub #1,R0
+cmp #25,R0
+bhi L21
+asl #2,R0
+move R0,R8
+add.l #L155,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L155:.dc.l L23
+.dc.l L26
+.dc.l L28
+.dc.l L36
+.dc.l L48
+.dc.l L49
+.dc.l L52
+.dc.l L53
+.dc.l L54
+.dc.l L58
+.dc.l L62
+.dc.l L70
+.dc.l L78
+.dc.l L86
+.dc.l L94
+.dc.l L102
+.dc.l L110
+.dc.l L118
+.dc.l L126
+.dc.l L134
+.dc.l L142
+.dc.l L150
+.dc.l L151
+.dc.l L152
+.dc.l L153
+.dc.l L154
+.text
+L21:L15:tst.l (sp)+
+movem.l (sp)+,R3-R7/R11-R13
+unlk R14
+rts
+.data
