.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 _stcrow
.globl _stccol
.globl _curvce
.globl _idbox
.globl _instob
.globl _dspbuf
.globl _vbufs
.globl _cents
.globl _bform
.globl _notes
.data
_notes:
.dc.w $2
.dc.w $2
.dc.w $3
.dc.w $3
.dc.w $4
.dc.w $5
.dc.w $5
.dc.w $6
.dc.w $6
.dc.w $0
.dc.w $0
.dc.w $1
.globl _pitches
.data
_pitches:
.dc.w $384
.dc.w $44C
.dc.w $0
.dc.w $C8
.dc.w $190
.dc.w $1F4
.dc.w $2BC
.globl _ratio
.data
_ratio:
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FB50
.dc.w $F892
.dc.w $F6A0
.dc.w $F51E
.dc.w $F3E2
.dc.w $F2D7
.dc.w $F1F0
.dc.w $F124
.dc.w $0
.dc.w $4B0
.dc.w $0
.dc.w $FD42
.dc.w $FB50
.dc.w $F9CE
.dc.w $F892
.dc.w $F787
.dc.w $F6A0
.dc.w $F5D4
.dc.w $0
.dc.w $76E
.dc.w $2BE
.dc.w $0
.dc.w $FE0E
.dc.w $FC8C
.dc.w $FB50
.dc.w $FA45
.dc.w $F95E
.dc.w $F892
.dc.w $0
.dc.w $960
.dc.w $4B0
.dc.w $1F2
.dc.w $0
.dc.w $FE7E
.dc.w $FD42
.dc.w $FC37
.dc.w $FB50
.dc.w $FA84
.dc.w $0
.dc.w $AE2
.dc.w $632
.dc.w $374
.dc.w $182
.dc.w $0
.dc.w $FEC4
.dc.w $FDB9
.dc.w $FCD2
.dc.w $FC06
.dc.w $0
.dc.w $C1E
.dc.w $76E
.dc.w $4B0
.dc.w $2BE
.dc.w $13C
.dc.w $0
.dc.w $FEF5
.dc.w $FE0E
.dc.w $FD42
.dc.w $0
.dc.w $D29
.dc.w $879
.dc.w $5BB
.dc.w $3C9
.dc.w $247
.dc.w $10B
.dc.w $0
.dc.w $FF19
.dc.w $FE4D
.dc.w $0
.dc.w $E10
.dc.w $960
.dc.w $6A2
.dc.w $4B0
.dc.w $32E
.dc.w $1F2
.dc.w $E7
.dc.w $0
.dc.w $FF34
.dc.w $0
.dc.w $EDC
.dc.w $A2C
.dc.w $76E
.dc.w $57C
.dc.w $3FA
.dc.w $2BE
.dc.w $1B3
.dc.w $CC
.dc.w $0
.globl _sharps
.data
_sharps:
.dc.w $7
.dc.w $9
.dc.w $7
.dc.w $9
.dc.w $7
.dc.w $7
.dc.w $9
.dc.w $7
.dc.w $9
.dc.w $7
.dc.w $9
.dc.w $7
.globl _shrpflt
.data
_shrpflt:
.dc.w $0
.dc.w $FF9C
.dc.w $64
.globl _sfdsp
.data
_sfdsp:
.dc.b $20
.dc.b $A9
.dc.b $A8
.even
.data
L1:.dc.b $2B,$30,$30,$30,$30,$0
.text
.data
L3:.dc.b $31,$2F,$31,$0
.text
.data
L5:.dc.b $30,$30,$2E,$30,$0
.even
.text
.data
L7:.dc.b $30,$43,$20,$30,$30,$0
.text
.globl _ndvals
.data
_ndvals:
.dc.w $0
.dc.w $0
.dc.w $4B0
.dc.w $76E
.dc.w $960
.dc.w $AE2
.dc.w $C1E
.dc.w $D29
.dc.w $E10
.dc.w $EDC
.globl _int2rat
.text
_int2rat:
~~int2rat:
~rat=8
link R14,#0
movem.l R4-R7,-(sp)
~den=R7
~inum=R6
~num=R5
*line 81
move.b #49,_ebuf
*line 82
move.b #47,1+_ebuf
*line 83
move.b #49,2+_ebuf
*line 84
clr.b 3+_ebuf
*line 86
move #1,R5
bra L12
L13:
*line 87
*line 88
move R5,R6
muls #10,R6
*line 89
*line 90
move #1,R7
bra L16
L17:
*line 91
*line 92
*line 92
move R6,R8
add R7,R8
add.l R8,R8
move.l #_ratio,R9
move 0(R8,R9.l),R0
cmp 8(R14),R0
bne L18
*line 93
*line 94
move R5,R0
add #48,R0
move.b R0,_ebuf
*line 95
move R7,R0
add #48,R0
move.b R0,2+_ebuf
bra L9
*line 96
*line 97
L18:L15:
*line 90
add #1,R7
L16:
*line 90
cmp #10,R7
blt L17
L14:
*line 98
L11:
*line 86
add #1,R5
L12:
*line 86
cmp #10,R5
blt L13
L10:L9:tst.l (sp)+
movem.l (sp)+,R5-R7
unlk R14
rts
.globl _cnvc2p
.text
_cnvc2p:
~~cnvc2p:
~buf=8
~cv=12
link R14,#-8
~rem=-2
~tmp=-4
*line 117
sub #160,12(R14)
*line 118
move 12(R14),R0
ext.l R0
divs #1200,R0
move.l 8(R14),R9
move.b R0,(R9)
*line 119
move 12(R14),R0
move.l 8(R14),R9
move.b (R9),R1
ext.w R1
muls #1200,R1
sub R1,R0
move R0,-2(R14)
*line 120
move -2(R14),R0
ext.l R0
divs #100,R0
move R0,-4(R14)
*line 121
move -4(R14),R0
muls #100,R0
sub R0,-2(R14)
*line 122
move -4(R14),R8
add.l R8,R8
move.l #_notes,R9
move 0(R8,R9.l),R0
move.l 8(R14),R9
move.b R0,1(R9)
*line 123
move -4(R14),R8
add.l R8,R8
move.l #_sharps,R9
move 0(R8,R9.l),R0
move.l 8(R14),R9
move.b R0,2(R9)
*line 124
move -2(R14),R0
ext.l R0
divs #10,R0
move.l 8(R14),R9
move.b R0,3(R9)
*line 125
move -2(R14),R0
move.l 8(R14),R9
move.b 3(R9),R1
ext.w R1
muls #10,R1
sub R1,R0
move.l 8(R14),R9
move.b R0,4(R9)
L19:unlk R14
rts
.globl _cnvp2c
.text
_cnvp2c:
~~cnvp2c:
link R14,#-4
*line 150
*line 151
cmp.b #9,_ebuf
bne L21
*line 151
*line 152
cmp.b #2,1+_ebuf
ble L22
*line 152
move #-1,R0
bra L20
bra L23
L22:
*line 153
*line 154
cmp.b #2,1+_ebuf
bne L24
*line 154
*line 155
cmp.b #7,2+_ebuf
beq L25
*line 155
move #-1,R0
bra L20
bra L26
L25:
*line 156
*line 157
tst.b 3+_ebuf
bne L10000
tst.b 4+_ebuf
beq L27
L10000:*line 157
move #-1,R0
bra L20
*line 158
L27:L26:L24:L23:L21:
*line 159
*line 160
move.b _ebuf,R0
ext.w R0
muls #1200,R0
move.b 1+_ebuf,R1
ext.w R1
move R1,R9
add.l R9,R9
add.l #_pitches,R9
move (R9),R1
add R1,R0
move.b 2+_ebuf,R1
ext.w R1
sub #7,R1
move R1,R9
add.l R9,R9
add.l #_shrpflt,R9
move (R9),R1
add R1,R0
move.b 3+_ebuf,R1
ext.w R1
muls #10,R1
add R1,R0
move.b 4+_ebuf,R1
ext.w R1
add R1,R0
add #160,R0
move R0,_cents
*line 162
clr R0
bra L20
L20:unlk R14
rts
.globl _et_iosc
.text
_et_iosc:
~~et_iosc:
~nn=8
link R14,#0
movem.l R2-R7/R13-R13,-(sp)
~ip=R13
~val=R7
~ctl=R6
~fh=R5
~fl=R4
~v=R3
*line 181
move 8(R14),R3
asr #8,R3
and #3,R3
*line 182
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 184
move R3,R0
bra L30
*line 185
L31:
*line 186
*line 187
*line 188
move 78(R13),R7
*line 189
move.b 74(R13),R6
ext.w R6
bra L29
*line 190
*line 191
L32:
*line 192
*line 193
*line 194
move 80(R13),R7
*line 195
move.b 75(R13),R6
ext.w R6
bra L29
*line 196
*line 197
L33:
*line 198
*line 199
*line 200
move 82(R13),R7
*line 201
move.b 76(R13),R6
ext.w R6
bra L29
*line 202
*line 203
L34:
*line 204
*line 205
*line 206
move 84(R13),R7
*line 207
move.b 77(R13),R6
ext.w R6
bra L29
*line 208
bra L29
L30:tst R0
beq L31
cmp #1,R0
beq L32
cmp #2,R0
beq L33
cmp #3,R0
beq L34
bra L29
L29:
*line 212
move R6,R0
and #3,R0
move R0,_bform
*line 214
move _bform,R0
bra L36
*line 215
L37:
*line 216
*line 217
*line 218
*line 219
tst R7
bge L10001
move #45,(sp)
bra L10003
L10001:move #43,(sp)
L10003:tst R7
bge L10004
move R7,R0
neg R0
bra L10006
L10004:move R7,R0
L10006:asr #1,R0
move R0,-(sp)
move.l #L38,-(sp)
move.l #_ebuf,-(sp)
jsr _sprintf
adda.l #10,sp
*line 220
*line 221
move #1,_ebflag
*line 222
clr R0
bra L28
*line 223
L39:
*line 224
*line 225
*line 226
move R7,R0
asr #1,R0
move R0,(sp)
jsr _int2rat
*line 227
move #1,_ebflag
*line 228
clr R0
bra L28
*line 229
L40:
*line 230
*line 231
*line 232
move R7,R5
asr R5
ext.l R5
divs #10,R5
*line 233
move R7,R4
asr R4
move R5,R0
muls #10,R0
sub R0,R4
*line 234
*line 235
move R4,(sp)
move R5,-(sp)
move.l #L41,-(sp)
move.l #_ebuf,-(sp)
jsr _sprintf
adda.l #10,sp
*line 236
move #1,_ebflag
*line 237
clr R0
bra L28
*line 238
L42:
*line 239
*line 240
*line 241
move R7,R0
asr #1,R0
move R0,(sp)
move.l #_ebuf,-(sp)
jsr _cnvc2p
addq.l #4,sp
*line 242
move #1,_ebflag
*line 243
clr R0
bra L28
bra L35
L36:tst R0
beq L37
cmp #1,R0
beq L39
cmp #2,R0
beq L40
cmp #3,R0
beq L42
bra L35
L35:L28:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.globl _setoval
.text
_setoval:
~~setoval:
~ip=R13
~v=R7
~val=R6
link R14,#0
movem.l R5-R7/R13-R13,-(sp)
*line 260
move.l 8(R14),R13
*line 260
move 12(R14),R7
*line 260
move 14(R14),R6
*line 260
move R7,R0
bra L45
*line 261
L46:
*line 262
*line 263
*line 264
move R6,R0
asl #1,R0
move R0,78(R13)
*line 265
move.b 74(R13),R0
ext.w R0
and #-4,R0
or _bform,R0
move.b R0,74(R13)
bra L44
*line 266
*line 267
L47:
*line 268
*line 269
*line 270
move R6,R0
asl #1,R0
move R0,80(R13)
*line 271
move.b 75(R13),R0
ext.w R0
and #-4,R0
or _bform,R0
move.b R0,75(R13)
bra L44
*line 272
*line 273
L48:
*line 274
*line 275
*line 276
move R6,R0
asl #1,R0
move R0,82(R13)
*line 277
move.b 76(R13),R0
ext.w R0
and #-4,R0
or _bform,R0
move.b R0,76(R13)
bra L44
*line 278
*line 279
L49:
*line 280
*line 281
*line 282
move R6,R0
asl #1,R0
move R0,84(R13)
*line 283
move.b 77(R13),R0
ext.w R0
and #-4,R0
or _bform,R0
move.b R0,77(R13)
bra L44
*line 284
bra L44
L45:tst R0
beq L46
cmp #1,R0
beq L47
cmp #2,R0
beq L48
cmp #3,R0
beq L49
bra L44
L44:
*line 287
*line 288
move R7,R0
muls #12,R0
move.b 93(R13,R0.l),R0
ext.w R0
and #-5,R0
btst #1,1+_bform
beq L10007
move #4,R1
bra L10009
L10007:clr R1
L10009:or R1,R0
move.l R13,R9
move R7,R2
muls #12,R2
add.l R2,R9
move.b R0,93(R9)
L43:tst.l (sp)+
movem.l (sp)+,R6-R7/R13-R13
unlk R14
rts
.globl _ef_iosc
.text
_ef_iosc:
~~ef_iosc:
~nn=8
link R14,#0
movem.l R4-R7/R13-R13,-(sp)
~ip=R13
~v=R7
~i=R6
~tmp=R5
*line 307
move 8(R14),R7
asr #8,R7
and #3,R7
*line 308
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 309
clr _ebflag
*line 311
move _bform,R0
bra L52
*line 312
L53:
*line 313
*line 314
*line 315
clr R5
*line 316
*line 317
clr R6
bra L56
L57:
*line 318
muls #10,R5
move.l #_ebuf,R8
move.b 0(R8,R6),R0
ext.w R0
add R0,R5
add #-48,R5
L55:
*line 317
add #1,R6
L56:
*line 317
cmp #4,R6
blt L57
L54:
*line 318
*line 319
*line 320
*line 321
cmp.b #45,4+_ebuf
bne L58
*line 321
move R5,R0
neg R0
move R0,R5
*line 322
L58:
*line 323
move R5,(sp)
move R7,-(sp)
move.l R13,-(sp)
jsr _setoval
addq.l #6,sp
*line 324
jsr _modinst
*line 325
clr R0
bra L50
*line 326
L59:
*line 327
*line 328
*line 329
move.b _ebuf,R0
ext.w R0
add #-48,R0
move R0,R8
add.l R8,R8
add.l #_ndvals,R8
move (R8),R5
move.b 2+_ebuf,R0
ext.w R0
add #-48,R0
move R0,R8
add.l R8,R8
add.l #_ndvals,R8
move (R8),R0
sub R0,R5
*line 330
*line 331
move R5,(sp)
move R7,-(sp)
move.l R13,-(sp)
jsr _setoval
addq.l #6,sp
*line 332
jsr _modinst
*line 333
clr R0
bra L50
*line 334
*line 335
L60:
*line 336
*line 337
*line 338
clr R5
*line 339
*line 340
clr R6
bra L63
L64:
*line 341
muls #10,R5
move.l #_ebuf,R8
move.b 0(R8,R6),R0
ext.w R0
add R0,R5
add #-48,R5
L62:
*line 340
add #1,R6
L63:
*line 340
cmp #2,R6
blt L64
L61:
*line 341
*line 342
*line 343
muls #10,R5
move.b 3+_ebuf,R0
ext.w R0
add R0,R5
add #-48,R5
*line 344
*line 345
*line 346
cmp #159,R5
ble L65
*line 346
move #-1,R0
bra L50
*line 347
L65:
*line 348
move R5,(sp)
move R7,-(sp)
move.l R13,-(sp)
jsr _setoval
addq.l #6,sp
*line 349
jsr _modinst
*line 350
clr R0
bra L50
*line 351
L66:
*line 352
*line 353
*line 354
*line 355
jsr _cnvp2c
cmp #-1,R0
bne L67
*line 355
move #-1,R0
bra L50
*line 356
L67:
*line 357
move _cents,(sp)
move R7,-(sp)
move.l R13,-(sp)
jsr _setoval
addq.l #6,sp
*line 358
jsr _modinst
*line 359
clr R0
bra L50
bra L51
L52:tst R0
beq L53
cmp #1,R0
beq L59
cmp #2,R0
beq L60
cmp #3,R0
beq L66
bra L51
L51:L50:tst.l (sp)+
movem.l (sp)+,R5-R7/R13-R13
unlk R14
rts
.globl _rd_iosc
.text
_rd_iosc:
~~rd_iosc:
~nn=8
link R14,#-4
movem.l R2-R7/R13-R13,-(sp)
~ip=R13
~val=R7
~ctl=R6
~fh=R5
~fl=R4
~v=R3
~n=-2
~ocs=-4
*line 381
move 8(R14),R3
asr #8,R3
and #3,R3
*line 382
move 8(R14),R0
and #255,R0
move R0,-2(R14)
*line 383
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 385
move R3,R0
bra L70
*line 386
L71:
*line 387
*line 388
*line 389
move 78(R13),R7
*line 390
move.b 74(R13),R6
ext.w R6
bra L69
*line 391
*line 392
L72:
*line 393
*line 394
*line 395
move 80(R13),R7
*line 396
move.b 75(R13),R6
ext.w R6
bra L69
*line 397
*line 398
L73:
*line 399
*line 400
*line 401
move 82(R13),R7
*line 402
move.b 76(R13),R6
ext.w R6
bra L69
*line 403
*line 404
L74:
*line 405
*line 406
*line 407
move 84(R13),R7
*line 408
move.b 77(R13),R6
ext.w R6
bra L69
*line 409
bra L69
L70:tst R0
beq L71
cmp #1,R0
beq L72
cmp #2,R0
beq L73
cmp #3,R0
beq L74
bra L69
L69:
*line 413
move R6,R0
and #3,R0
move R0,_bform
*line 414
cmp #3,R3
bne L10010
move #32,R0
bra L10012
L10010:btst #2,R6
beq L10013
move #83,R0
bra L10015
L10013:move #115,R0
L10015:L10012:move.b R0,-4(R14)
*line 416
move _bform,R0
bra L76
*line 417
L77:
*line 418
*line 419
*line 420
*line 421
*line 422
*line 423
move.b -4(R14),R0
ext.w R0
move R0,(sp) 
tst R7
bge L10016
move R7,R0
neg R0
bra L10018
L10016:move R7,R0
L10018:asr #1,R0
move R0,-(sp)
tst R7
bge L10019
move #45,-(sp)
bra L10021
L10019:move #43,-(sp)
L10021:move.l #L78,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
bra L75
*line 424
*line 425
L79:
*line 426
*line 427
*line 428
move R7,R0
asr #1,R0
move R0,(sp)
jsr _int2rat
*line 429
move.b -4(R14),R0
ext.w R0
move R0,(sp) 
move.b 2+_ebuf,R0
ext.w R0
move R0,-(sp) 
move.b _ebuf,R0
ext.w R0
move R0,-(sp) 
move.l #L80,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
bra L75
*line 430
*line 431
L81:
*line 432
*line 433
*line 434
move R7,R5
asr R5
ext.l R5
divs #10,R5
*line 435
move R7,R4
asr R4
move R5,R0
muls #10,R0
sub R0,R4
*line 436
*line 437
move.b -4(R14),R0
ext.w R0
move R0,(sp) 
move R4,-(sp)
move R5,-(sp)
move.l #L82,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
bra L75
*line 438
*line 439
L83:
*line 440
*line 441
*line 442
move.l #L84,(sp)
move.l #_dspbuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 443
move R7,R0
asr #1,R0
move R0,(sp)
move.l #4+_dspbuf,-(sp)
jsr _cnvc2p
addq.l #4,sp
*line 444
add.b #48,4+_dspbuf
*line 445
add.b #65,5+_dspbuf
*line 446
move.b 6+_dspbuf,R0
ext.w R0
ext.l R0
add.l #_sfdsp,R0
move.l R0,R8
move.b -7(R8),6+_dspbuf
*line 447
add.b #48,7+_dspbuf
*line 448
add.b #48,8+_dspbuf
*line 449
move.b #32,9+_dspbuf
*line 450
move.b -4(R14),10+_dspbuf
*line 451
clr.b 11+_dspbuf
bra L75
*line 452
bra L75
L76:tst R0
beq L77
cmp #1,R0
beq L79
cmp #2,R0
beq L81
cmp #3,R0
beq L83
bra L75
L75:
*line 455
*line 456
clr R0
move 10+_v_regs,R0
and #384,R0
beq L85
*line 456
clr (sp)
jsr _vbank
*line 457
L85:
*line 458
move #14,(sp)
move.l #_dspbuf,-(sp)
move #36,-(sp)
move R3,-(sp)
add #18,(sp)
move -2(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move -2(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 8(R8,R9.l),-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 460
clr R0
bra L68
L68:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.globl _setoscb
.text
_setoscb:
~~setoscb:
~n=8
~v=10
link R14,#0
movem.l R3-R7/R13-R13,-(sp)
~ip=R13
~bfm=R7
~ctl=R6
~val=R5
~ocs=R4
*line 479
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 481
move 10(R14),R0
bra L88
*line 482
L89:
*line 483
*line 484
*line 485
move.b 74(R13),R6
ext.w R6
*line 486
move 78(R13),R5
bra L87
*line 487
*line 488
L90:
*line 489
*line 490
*line 491
move.b 75(R13),R6
ext.w R6
*line 492
move 80(R13),R5
bra L87
*line 493
*line 494
L91:
*line 495
*line 496
*line 497
move.b 76(R13),R6
ext.w R6
*line 498
move 82(R13),R5
bra L87
*line 499
*line 500
L92:
*line 501
*line 502
*line 503
move.b 77(R13),R6
ext.w R6
*line 504
move 84(R13),R5
bra L87
*line 505
bra L87
L88:tst R0
beq L89
cmp #1,R0
beq L90
cmp #2,R0
beq L91
cmp #3,R0
beq L92
bra L87
L87:
*line 508
cmp #3,10(R14)
bne L10022
move #32,R0
bra L10024
L10022:btst #2,R6
beq L10025
move #83,R0
bra L10027
L10025:move #115,R0
L10027:L10024:move.b R0,R4
*line 510
move R6,R7
and #3,R7
*line 513
move _bform,R0
bra L94
*line 514
L95:
*line 515
*line 516
*line 517
*line 517
cmp #1,R7
beq L10028
tst R7
bne L96
L10028:*line 518
*line 519
*line 520
tst R5
bge L10029
move #45,(sp)
bra L10031
L10029:move #43,(sp)
L10031:tst R5
bge L10032
move R5,R0
neg R0
bra L10034
L10032:move R5,R0
L10034:asr #1,R0
move R0,-(sp)
move.l #L97,-(sp)
move.l #_ebuf,-(sp)
jsr _sprintf
adda.l #10,sp
*line 521
*line 522
*line 523
*line 524
*line 525
move.b R4,R0
ext.w R0
move R0,(sp) 
tst R5
bge L10035
move R5,R0
neg R0
bra L10037
L10035:move R5,R0
L10037:asr #1,R0
move R0,-(sp)
tst R5
bge L10038
move #45,-(sp)
bra L10040
L10038:move #43,-(sp)
L10040:move.l #L98,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
*line 526
bra L99
L96:
*line 527
*line 528
*line 529
move.l #L100,(sp)
move.l #_ebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 530
move.b R4,R0
ext.w R0
move R0,(sp) 
move.l #L1,-(sp)
move.l #L101,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
L99:
*line 531
*line 532
bra L93
*line 533
*line 534
L102:
*line 535
*line 536
*line 537
*line 537
cmp #1,R7
bne L103
*line 538
*line 539
move R5,R0
asr #1,R0
move R0,(sp)
jsr _int2rat
*line 540
*line 541
*line 542
move.b R4,R0
ext.w R0
move R0,(sp) 
move.b 2+_ebuf,R0
ext.w R0
move R0,-(sp) 
move.b _ebuf,R0
ext.w R0
move R0,-(sp) 
move.l #L104,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
*line 543
bra L105
L103:
*line 544
*line 545
*line 546
move.l #L3,(sp)
move.l #_ebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 547
move.b R4,R0
ext.w R0
move R0,(sp) 
move.l #L3,-(sp)
move.l #L106,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
L105:
*line 548
*line 549
bra L93
*line 550
*line 551
*line 552
L107:
*line 553
*line 554
*line 555
move.l #L5,(sp)
move.l #_ebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 556
move.b R4,R0
ext.w R0
move R0,(sp) 
move.l #L5,-(sp)
move.l #L108,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
bra L93
*line 557
*line 558
L109:
*line 559
*line 560
*line 561
clr.b _ebuf
*line 562
move.b #2,1+_ebuf
*line 563
move.b #7,2+_ebuf
*line 564
clr.b 3+_ebuf
*line 565
clr.b 4+_ebuf
*line 566
*line 567
move.b R4,R0
ext.w R0
move R0,(sp) 
move.l #L7,-(sp)
move.l #L110,-(sp)
move.l #_dspbuf,-(sp)
jsr _sprintf
adda.l #12,sp
bra L93
*line 568
bra L93
L94:tst R0
beq L95
cmp #1,R0
beq L102
cmp #2,R0
beq L107
cmp #3,R0
beq L109
bra L93
L93:
*line 571
move #1,_ebflag
*line 573
*line 574
clr R0
move 10+_v_regs,R0
and #384,R0
beq L111
*line 574
clr (sp)
jsr _vbank
*line 575
L111:
*line 576
*line 577
move #14,(sp)
move.l #_dspbuf,-(sp)
move #36,-(sp)
move _stcrow,-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move #10,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
L86:tst.l (sp)+
movem.l (sp)+,R4-R7/R13-R13
unlk R14
rts
.globl _setosyn
.text
_setosyn:
~~setosyn:
~n=8
~v=10
~t=12
link R14,#0
movem.l R7-R7/R12-R13,-(sp)
~ip=R13
~sc=R12
*line 595
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 597
*line 598
cmp #21,_stcrow
beq L112
*line 599
*line 600
tst 12(R14)
beq L10041
move.l #L113,R0
bra L10043
L10041:move.l #L114,R0
L10043:move.l R0,R12
*line 602
move 10(R14),R0
bra L116
*line 603
L117:
*line 604
*line 605
*line 606
move.b 74(R13),R0
ext.w R0
and #-5,R0
tst 12(R14)
beq L10044
move #4,R1
bra L10046
L10044:clr R1
L10046:or R1,R0
move.b R0,74(R13)
bra L115
*line 607
*line 608
L118:
*line 609
*line 610
*line 611
move.b 75(R13),R0
ext.w R0
and #-5,R0
tst 12(R14)
beq L10047
move #4,R1
bra L10049
L10047:clr R1
L10049:or R1,R0
move.b R0,75(R13)
bra L115
*line 612
*line 613
L119:
*line 614
*line 615
*line 616
move.b 76(R13),R0
ext.w R0
and #-5,R0
tst 12(R14)
beq L10050
move #4,R1
bra L10052
L10050:clr R1
L10052:or R1,R0
move.b R0,76(R13)
bra L115
*line 617
*line 618
L120:
*line 619
*line 620
bra L112
*line 621
bra L115
L116:tst R0
beq L117
cmp #1,R0
beq L118
cmp #2,R0
beq L119
cmp #3,R0
beq L120
bra L115
L115:
*line 624
move _curvce,(sp)
jsr _dosync
*line 626
*line 627
clr R0
move 10+_v_regs,R0
and #384,R0
beq L121
*line 627
clr (sp)
jsr _vbank
*line 628
L121:
*line 629
move #14,(sp)
move.l R12,-(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 8(R8,R9.l),-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 630
jsr _modinst
L112:tst.l (sp)+
movem.l (sp)+,R12-R13
unlk R14
rts
.globl _nd_iosc
.text
_nd_iosc:
~~nd_iosc:
~nn=8
~k=10
link R14,#0
movem.l R5-R7,-(sp)
~v=R7
~n=R6
*line 648
move 8(R14),R6
and #255,R6
*line 649
move 8(R14),R7
asr #8,R7
and #3,R7
*line 651
*line 651
cmp #39,_stccol
bge L123
*line 652
*line 653
*line 653
cmp #8,10(R14)
bne L124
*line 654
*line 655
*line 656
sub #1,_bform
bge L125
*line 656
move #3,_bform
*line 657
L125:
*line 658
move R7,(sp)
move R6,-(sp)
jsr _setoscb
addq.l #2,sp
*line 659
clr R0
bra L122
*line 660
bra L126
L124:
*line 661
*line 661
cmp #9,10(R14)
bne L127
*line 662
*line 663
*line 664
add #1,_bform
move _bform,R0
cmp #3,R0
ble L128
*line 664
clr _bform
*line 665
L128:
*line 666
move R7,(sp)
move R6,-(sp)
jsr _setoscb
addq.l #2,sp
*line 667
clr R0
bra L122
*line 668
*line 669
bra L129
L127:
*line 670
move #-1,R0
bra L122
L129:L126:
*line 671
*line 672
bra L130
L123:
*line 673
*line 673
cmp #46,_stccol
bne L131
*line 674
*line 675
*line 676
cmp #21,_stcrow
bne L132
*line 676
move #-1,R0
bra L122
*line 677
L132:
*line 678
*line 678
cmp #8,10(R14)
bne L133
*line 679
*line 680
clr (sp)
move R7,-(sp)
move R6,-(sp)
jsr _setosyn
addq.l #4,sp
*line 681
clr R0
bra L122
*line 682
bra L134
L133:
*line 683
*line 683
cmp #9,10(R14)
bne L135
*line 684
*line 685
move #1,(sp)
move R7,-(sp)
move R6,-(sp)
jsr _setosyn
addq.l #4,sp
*line 686
clr R0
bra L122
*line 687
*line 688
bra L136
L135:
*line 689
move #-1,R0
bra L122
L136:L134:
*line 690
*line 691
*line 692
bra L137
L131:
*line 693
*line 693
cmp #40,_stccol
blt L138
cmp #44,_stccol
bgt L138
*line 694
*line 695
move _bform,R0
bra L140
*line 696
L141:
*line 697
*line 698
*line 699
*line 699
cmp #40,_stccol
bne L142
*line 700
*line 701
*line 701
cmp #8,10(R14)
bne L143
*line 702
*line 703
move #45,10(R14)
*line 704
move.b #45,4+_ebuf
*line 705
bra L144
L143:
*line 706
*line 706
cmp #9,10(R14)
bne L145
*line 707
*line 708
move #43,10(R14)
*line 709
move.b #43,4+_ebuf
*line 710
*line 711
bra L146
L145:
*line 712
move #-1,R0
bra L122
L146:L144:
*line 713
bra L147
L142:
*line 714
*line 715
*line 716
move 10(R14),R0
add #48,R0
move _stccol,R9
add.l #_ebuf,R9
move.b R0,-41(R9)
L147:
*line 717
*line 718
*line 719
cmp #9,10(R14)
ble L10053
move 10(R14),R0
bra L10055
L10053:move 10(R14),R0
add #48,R0
L10055:move.b R0,_dspbuf
*line 720
clr.b 1+_dspbuf
*line 721
*line 722
*line 723
clr R0
move 10+_v_regs,R0
and #384,R0
beq L148
*line 723
clr (sp)
jsr _vbank
*line 724
L148:
*line 725
*line 726
move #14,(sp)
move.l #_dspbuf,-(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
move R6,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move #10,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 727
*line 728
*line 729
cmp #44,_stccol
bne L149
*line 729
clr R0
bra L122
*line 730
L149:
*line 731
jsr _advicur
*line 732
clr R0
bra L122
*line 733
*line 734
L150:
*line 735
*line 736
*line 737
*line 737
cmp #40,_stccol
bne L151
*line 738
*line 739
*line 739
tst 10(R14)
beq L152
*line 740
*line 741
move 10(R14),R0
add #48,R0
move.b R0,_dspbuf
move.b R0,_ebuf
*line 742
clr.b 1+_dspbuf
*line 743
*line 744
*line 745
clr R0
move 10+_v_regs,R0
and #384,R0
beq L153
*line 745
clr (sp)
jsr _vbank
*line 746
L153:
*line 747
*line 748
move #14,(sp)
move.l #_dspbuf,-(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
move R6,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move #10,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 749
*line 750
jsr _advicur
*line 751
jsr _advicur
*line 752
*line 753
clr R0
bra L122
*line 754
*line 755
bra L154
L152:
*line 756
move #-1,R0
bra L122
L154:
*line 757
bra L155
L151:
*line 758
*line 758
cmp #42,_stccol
bne L156
*line 759
*line 760
*line 760
tst 10(R14)
beq L157
*line 761
*line 762
move 10(R14),R0
add #48,R0
move.b R0,_dspbuf
move.b R0,2+_ebuf
*line 763
clr.b 1+_dspbuf
*line 764
*line 765
*line 766
clr R0
move 10+_v_regs,R0
and #384,R0
beq L158
*line 766
clr (sp)
jsr _vbank
*line 767
L158:
*line 768
*line 769
move #14,(sp)
move.l #_dspbuf,-(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
move R6,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move #10,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 770
*line 771
clr R0
bra L122
*line 772
*line 773
bra L159
L157:
*line 774
move #-1,R0
bra L122
L159:bra L160
L156:
*line 775
*line 776
*line 777
move #-1,R0
bra L122
L160:L155:
*line 778
*line 779
*line 780
L161:
*line 781
*line 782
*line 783
*line 784
cmp #42,_stccol
bne L162
*line 784
move #-1,R0
bra L122
*line 785
L162:
*line 786
move 10(R14),R0
add #48,R0
move _stccol,R9
add.l #_ebuf,R9
move.b R0,-40(R9)
*line 787
move 10(R14),R0
add #48,R0
move.b R0,_dspbuf
*line 788
clr.b 1+_dspbuf
*line 789
*line 790
*line 791
clr R0
move 10+_v_regs,R0
and #384,R0
beq L163
*line 791
clr (sp)
jsr _vbank
*line 792
L163:
*line 793
*line 794
move #14,(sp)
move.l #_dspbuf,-(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
move R6,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move #10,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 795
*line 796
*line 797
cmp #44,_stccol
bne L164
*line 797
clr R0
bra L122
*line 798
L164:
*line 799
jsr _advicur
*line 800
*line 801
*line 802
cmp #42,_stccol
bne L165
*line 802
jsr _advicur
*line 803
L165:
*line 804
clr R0
bra L122
*line 805
*line 806
L166:
*line 807
*line 808
*line 809
move _stccol,R0
bra L168
*line 810
L169:
*line 811
*line 812
*line 813
move 10(R14),R0
move.b R0,_ebuf
*line 814
move 10(R14),R0
add #48,R0
move.b R0,_dspbuf
bra L167
*line 815
*line 816
L170:
*line 817
*line 818
*line 819
*line 820
cmp #6,10(R14)
ble L171
*line 820
move #-1,R0
bra L122
*line 821
L171:
*line 822
move 10(R14),R0
move.b R0,1+_ebuf
*line 823
move 10(R14),R0
add #65,R0
move.b R0,_dspbuf
bra L167
*line 824
*line 825
L172:
*line 826
*line 827
*line 828
*line 828
cmp #7,10(R14)
bne L173
*line 829
*line 830
move 10(R14),R0
move.b R0,2+_ebuf
*line 831
move.b _sfdsp,_dspbuf
bra L167
*line 832
*line 833
bra L174
L173:
*line 834
*line 834
cmp #8,10(R14)
bne L175
*line 835
*line 836
move 10(R14),R0
move.b R0,2+_ebuf
*line 837
move.b 1+_sfdsp,_dspbuf
bra L167
*line 838
*line 839
bra L176
L175:
*line 840
*line 840
cmp #9,10(R14)
bne L177
*line 841
*line 842
move 10(R14),R0
move.b R0,2+_ebuf
*line 843
move.b 2+_sfdsp,_dspbuf
bra L167
*line 844
*line 845
*line 846
bra L178
L177:
*line 847
move #-1,R0
bra L122
L178:L176:L174:L179:
*line 848
L180:
*line 849
*line 850
*line 851
move 10(R14),R0
move _stccol,R9
add.l #_ebuf,R9
move.b R0,-40(R9)
*line 852
move 10(R14),R0
add #48,R0
move.b R0,_dspbuf
bra L167
*line 853
bra L167
L168:sub #40,R0
cmp #4,R0
bhi L167
asl #2,R0
move R0,R8
add.l #L181,R8
move.l (R8),R8
jmp (R8)
.data
L181:.dc.l L169
.dc.l L170
.dc.l L172
.dc.l L179
.dc.l L180
.text
L167:
*line 854
*line 855
*line 856
*line 857
*line 858
clr.b 1+_dspbuf
*line 859
*line 860
*line 861
clr R0
move 10+_v_regs,R0
and #384,R0
beq L182
*line 861
clr (sp)
jsr _vbank
*line 862
L182:
*line 863
*line 864
move #14,(sp)
move.l #_dspbuf,-(sp)
move _stccol,-(sp)
move _stcrow,-(sp)
move R6,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),-(sp)
move #10,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 865
*line 866
*line 867
cmp #44,_stccol
bne L183
*line 867
clr R0
bra L122
*line 868
L183:
*line 869
jsr _advicur
*line 870
clr R0
bra L122
bra L139
L140:tst R0
beq L141
cmp #1,R0
beq L150
cmp #2,R0
beq L161
cmp #3,R0
beq L166
bra L139
L139:
*line 871
*line 872
bra L184
L138:
*line 873
*line 874
*line 875
move #-1,R0
bra L122
L184:L137:L130:L122:tst.l (sp)+
movem.l (sp)+,R6-R7
unlk R14
rts
.data
L38:.dc.b $25,$30,$34,$64,$25,$63,$0
L41:.dc.b $25,$30,$32,$64,$2E,$25,$64,$0
L78:.dc.b $49,$6E,$74,$20,$25,$63,$25,$30,$34,$64,$20,$25,$63,$0
L80:.dc.b $52,$61,$74,$20,$25,$63,$2F,$25,$63,$20,$20,$20,$25,$63,$0
L82:.dc.b $46,$72,$71,$20,$25,$30,$32,$64,$2E,$25,$64,$20,$20,$25,$63,$0
L84:.dc.b $50,$63,$68,$20,$0
L97:.dc.b $25,$30,$34,$64,$25,$63,$0
L98:.dc.b $49,$6E,$74,$20,$25,$63,$25,$30,$34,$64,$20,$25,$63,$0
L100:.dc.b $30,$30,$30,$30,$2B,$0
L101:.dc.b $49,$6E,$74,$20,$25,$73,$20,$25,$63,$0
L104:.dc.b $52,$61,$74,$20,$25,$63,$2F,$25,$63,$20,$20,$20,$25,$63,$0
L106:.dc.b $52,$61,$74,$20,$25,$73,$20,$20,$20,$25,$63,$0
L108:.dc.b $46,$72,$71,$20,$25,$73,$20,$20,$25,$63,$0
L110:.dc.b $50,$63,$68,$20,$25,$73,$20,$25,$63,$0
L113:.dc.b $53,$0
L114:.dc.b $73,$0