.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