.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 _v_obtab
.globl _v_curob
.globl _v_nobj
.globl _v_obpri
.globl _point
.globl _cxval
.globl _cyval
.globl _stcrow
.globl _stccol
.globl _initcfg
.globl _curslim
.globl _idimsw
.globl _obj0
.globl _obj2
.globl _bfs
.globl _srctbl
.globl _sfdsp
.globl _vtlin1
.globl _vtlin2
.globl _vtlin3
.globl _sments
.globl _valents
.globl _vpsms
.globl _s_inst
.globl _vce2trg
.globl _vce2grp
.globl _curfunc
.globl _curinst
.globl _curpnt
.globl _curvce
.globl _idcfsw
.globl _idintmp
.globl _idnamsw
.globl _idsrcsw
.globl _npts
.globl _pecase
.globl _pntsv
.globl _subj
.globl _submenu
.globl _temax
.globl _temin
.globl _vlbtype
.globl _wcflag
.globl _wcpage
.globl _instmod
.globl _instob
.globl _idoct
.globl _pntptr
.globl _idefs
.globl _vbufs
.globl _funcndx
.globl _vlbptr
.globl _idbuf
.globl _idbox
.data
_idbox:
.dc.w $1
.dc.w $1
.dc.w $54
.dc.w $1A
.dc.w $B
.dc.w $5
.dc.w $0
.dc.w $1
.dc.w $56
.dc.w $1
.dc.w $A9
.dc.w $1A
.dc.w $B
.dc.w $5
.dc.w $0
.dc.w $B
.dc.w $AB
.dc.w $1
.dc.w $FE
.dc.w $1A
.dc.w $B
.dc.w $5
.dc.w $0
.dc.w $16
.dc.w $100
.dc.w $1
.dc.w $153
.dc.w $1A
.dc.w $B
.dc.w $5
.dc.w $0
.dc.w $21
.dc.w $155
.dc.w $1
.dc.w $1A8
.dc.w $1A
.dc.w $B
.dc.w $5
.dc.w $0
.dc.w $2C
.dc.w $1AA
.dc.w $1
.dc.w $1FD
.dc.w $1A
.dc.w $B
.dc.w $5
.dc.w $0
.dc.w $36
.dc.w $1
.dc.w $1D
.dc.w $54
.dc.w $36
.dc.w $B
.dc.w $7
.dc.w $2
.dc.w $1
.dc.w $56
.dc.w $1D
.dc.w $A9
.dc.w $36
.dc.w $B
.dc.w $7
.dc.w $2
.dc.w $B
.dc.w $AB
.dc.w $1D
.dc.w $FE
.dc.w $36
.dc.w $B
.dc.w $7
.dc.w $2
.dc.w $16
.dc.w $100
.dc.w $1D
.dc.w $153
.dc.w $36
.dc.w $B
.dc.w $7
.dc.w $2
.dc.w $21
.dc.w $155
.dc.w $1D
.dc.w $1A8
.dc.w $36
.dc.w $B
.dc.w $7
.dc.w $2
.dc.w $2C
.dc.w $1AA
.dc.w $1D
.dc.w $1FD
.dc.w $36
.dc.w $B
.dc.w $7
.dc.w $2
.dc.w $36
.dc.w $1
.dc.w $38
.dc.w $1FD
.dc.w $D0
.dc.w $B
.dc.w $6
.dc.w $4
.dc.w $36
.dc.w $1
.dc.w $D2
.dc.w $6E
.dc.w $EC
.dc.w $B
.dc.w $7
.dc.w $F
.dc.w $1
.dc.w $70
.dc.w $D2
.dc.w $8E
.dc.w $EC
.dc.w $B
.dc.w $7
.dc.w $F
.dc.w $F
.dc.w $90
.dc.w $D2
.dc.w $CE
.dc.w $EC
.dc.w $B
.dc.w $7
.dc.w $F
.dc.w $13
.dc.w $D0
.dc.w $D2
.dc.w $16E
.dc.w $EC
.dc.w $B
.dc.w $7
.dc.w $F
.dc.w $1B
.dc.w $170
.dc.w $D2
.dc.w $1FD
.dc.w $EC
.dc.w $B
.dc.w $7
.dc.w $F
.dc.w $2F
.dc.w $1
.dc.w $EE
.dc.w $83
.dc.w $15C
.dc.w $B
.dc.w $5
.dc.w $11
.dc.w $2
.dc.w $85
.dc.w $EE
.dc.w $10B
.dc.w $FB
.dc.w $B
.dc.w $6
.dc.w $11
.dc.w $11
.dc.w $10D
.dc.w $EE
.dc.w $17B
.dc.w $132
.dc.w $B
.dc.w $6
.dc.w $11
.dc.w $23
.dc.w $17D
.dc.w $EE
.dc.w $1FD
.dc.w $15C
.dc.w $B
.dc.w $5
.dc.w $11
.dc.w $30
.dc.w $85
.dc.w $134
.dc.w $17B
.dc.w $15C
.dc.w $B
.dc.w $7
.dc.w $16
.dc.w $11
.dc.w $85
.dc.w $FC
.dc.w $10B
.dc.w $132
.dc.w $B
.dc.w $6
.dc.w $12
.dc.w $11
.globl _fnoff
.data
_fnoff:
.dc.w $1
.dc.w $3
.dc.w $5
.dc.w $7
.dc.w $A
.dc.w $4
.dc.w $9
.dc.w $B
.dc.w $C
.dc.w $D
.dc.w $E
.dc.w $F
.dc.w $2
.globl _inspal
.data
_inspal:
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $2
.dc.w $2
.dc.w $2
.dc.w $3
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $3
.dc.w $2
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $0
.dc.w $1
.dc.w $1
.dc.w $1
.dc.w $0
.dc.w $1
.dc.w $3
.dc.w $2
.dc.w $0
.dc.w $1
.dc.w $1
.dc.w $2
.dc.w $2
.dc.w $3
.dc.w $0
.dc.w $2
.dc.w $3
.dc.w $3
.dc.w $3
.dc.w $0
.dc.w $2
.dc.w $0
.dc.w $2
.dc.w $3
.dc.w $0
.dc.w $3
.dc.w $0
.dc.w $3
.dc.w $3
.dc.w $0
.globl _idbxlbl
.data
_idbxlbl:
*line 180
.dc.l L1
*line 181
.dc.l L2
*line 182
.dc.l L3
*line 183
.dc.l L4
*line 184
.dc.l L5
*line 185
.dc.l L6
*line 186
.dc.l L7
*line 187
.dc.l L8
*line 188
.dc.l L9
*line 189
.dc.l L10
*line 190
.dc.l L11
*line 191
.dc.l L12
*line 192
.dc.l L13
*line 193
.dc.l L14
*line 194
.dc.l L15
*line 195
.dc.l L16
*line 196
.dc.l L17
*line 197
.dc.l L18
*line 198
.dc.l L19
*line 199
.dc.l L20
*line 200
.dc.l L21
*line 201
.dc.l L22
*line 202
.dc.l L23
*line 204
.dc.l L24
.globl _idhlbl
.data
_idhlbl:
.dc.b $20,$20,$20,$20,$20,$20,$20,$D4,$C2,$20,$20,$20,$20,$20,$D5,$C5,$20,$20,$20,$20,$20,$D6,$20,$20,$20,$20,$20,$20,$C1,$20
.dc.b $20,$20,$20,$20,$20,$C2,$20,$20,$20,$20,$20,$20,$C4,$20,$20,$20,$20,$20,$20,$C8,$20,$20,$20,$20,$20,$D1,$C6,$20,$20,$20
.dc.b $20,$D3,$C2,$0
.globl _osclbl
.data
_osclbl:
*line 213
.dc.l L26
*line 214
.dc.l L27
*line 215
.dc.l L28
*line 217
.dc.l L29
.globl _rngdiv
.data
_rngdiv:
.dc.l $FFFFFF
.dc.l $7FFFFF
.dc.l $555555
.dc.l $3FFFFF
.dc.l $333333
.dc.l $2AAAAA
.dc.l $249249
.dc.l $1FFFFF
.dc.l $1C71C7
.dc.l $199999
.globl _drawpt
.text
_drawpt:
~~drawpt:
~px=8
~py=10
~pc=12
link R14,#0
movem.l R6-R7,-(sp)
~tmp=R7
*line 250
move 8(R14),R7
sub #1,R7
*line 252
*line 253
cmp #7,R7
ble L31
*line 253
move 12(R14),(sp)
move 10(R14),-(sp)
move R7,-(sp)
jsr _idpoint
addq.l #4,sp
*line 254
L31:
*line 255
move 8(R14),R7
add #1,R7
*line 257
*line 258
cmp #509,R7
bge L32
*line 258
move 12(R14),(sp)
move 10(R14),-(sp)
move R7,-(sp)
jsr _idpoint
addq.l #4,sp
*line 259
L32:
*line 260
move 10(R14),R7
sub #1,R7
*line 262
*line 263
cmp #55,R7
ble L33
*line 263
move 12(R14),(sp)
move R7,-(sp)
move 8(R14),-(sp)
jsr _idpoint
addq.l #4,sp
*line 264
L33:
*line 265
move 10(R14),R7
add #1,R7
*line 267
*line 268
cmp #196,R7
bge L34
*line 268
move 12(R14),(sp)
move R7,-(sp)
move 8(R14),-(sp)
jsr _idpoint
addq.l #4,sp
*line 269
L34:
*line 270
move 12(R14),(sp)
move 10(R14),-(sp)
move 8(R14),-(sp)
jsr _idpoint
addq.l #4,sp
L30:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _drawfn
.text
_drawfn:
~~drawfn:
~fn=8
~how=10
~pen=12
~wn=14
link R14,#-16
movem.l R2-R7/R12-R13,-(sp)
~fp=-4
~ip=-8
~pt1=R13
~pt2=R12
~i=R7
~npt1=R6
~npt2=R5
~xp=R4
~color=R3
~np=-10
~ptx=-12
~pty=-14
~ptc=-16
*line 292
move _curvce,R0
muls #3938,R0
add.l #_vbufs,R0
move.l R0,-8(R14)
*line 293
move 8(R14),R0
muls #12,R0
add.l -8(R14),R0
add.l #86,R0
move.l R0,-4(R14)
*line 294
move.l #_idpoint,_point
*line 296
move.l -4(R14),R8
move.b 5(R8),R0
ext.w R0
move R0,-10(R14)
*line 297
move _subj,R4
*line 299
clr R6
*line 300
move #1,R5
*line 302
move.l -4(R14),R8
move.b 6(R8),R0
ext.w R0
muls #12,R0
move.l R0,R13
add.l -8(R14),R13
add.l #242,R13
*line 303
lea 12(R13),R12
*line 305
move 12(R14),(sp)
jsr _exp_c
move R0,R3
*line 309
move 14(R14),(sp)
move R6,-(sp)
move 8(R14),-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #2,sp
move R0,-12(R14)
*line 310
move 14(R14),(sp)
move 2(R13),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #2,sp
move R0,-14(R14)
*line 312
*line 313
*line 314
tst 10(R14)
beq L10000
move #3,R0
bra L10002
L10000:tst.b 7(R13)
bne L10004
tst.b 6(R13)
beq L10003
L10004:move #15,R0
bra L10006
L10003:move #11,R0
L10006:L10002:move R0,-16(R14)
*line 316
*line 316
cmp #1,-10(R14)
bne L36
*line 317
*line 318
*line 319
cmp #12,14(R14)
bne L37
*line 319
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _drawpt
addq.l #4,sp
*line 320
bra L38
L37:
*line 321
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _idpoint
addq.l #4,sp
L38:
*line 322
bra L35
*line 323
*line 324
*line 325
L36:
*line 326
*line 327
tst 10(R14)
beq L39
tst R4
bne L39
*line 327
*line 328
cmp #12,14(R14)
bne L40
*line 328
move #3,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _drawpt
addq.l #4,sp
*line 329
bra L41
L40:
*line 330
move #3,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _idpoint
addq.l #4,sp
L41:
*line 331
L39:
*line 332
move #1,R7
bra L44
L45:
*line 333
*line 334
move 14(R14),(sp)
move R5,-(sp)
move 8(R14),-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #2,sp
move R0,-12(R14)
*line 335
move 14(R14),(sp)
move 2(R12),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #2,sp
move R0,-14(R14)
*line 336
*line 337
*line 338
tst.b 7(R12)
bne L10008
tst.b 6(R12)
beq L10007
L10008:move #15,R0
bra L10010
L10007:move #11,R0
L10010:move R0,-16(R14)
*line 339
*line 340
*line 340
tst 10(R14)
beq L46
move R7,R0
sub #1,R0
cmp R0,R4
bne L46
*line 341
*line 342
*line 343
*line 344
cmp #12,14(R14)
bne L47
*line 344
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _drawpt
addq.l #4,sp
*line 345
bra L48
L47:
*line 346
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _idpoint
addq.l #4,sp
L48:
*line 347
bra L49
L46:
*line 348
*line 348
tst 10(R14)
beq L50
cmp R7,R4
bne L50
*line 349
*line 350
move #3,-16(R14)
*line 351
*line 352
*line 353
cmp #12,14(R14)
bne L51
*line 353
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _drawpt
addq.l #4,sp
*line 354
bra L52
L51:
*line 355
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _idpoint
addq.l #4,sp
L52:
*line 356
*line 357
bra L53
L50:
*line 358
*line 359
*line 360
*line 361
*line 362
move R3,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move 14(R14),-(sp)
move 2(R13),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #4,sp
move R0,-(sp)
move 14(R14),-(sp)
move R6,-(sp)
move 8(R14),-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #4,sp
move R0,-(sp)
jsr _lseg
addq.l #8,sp
*line 363
*line 364
*line 364
cmp #12,14(R14)
bne L54
*line 365
*line 366
*line 367
*line 368
*line 369
tst.b 7(R13)
bne L10012
tst.b 6(R13)
beq L10011
L10012:move #15,(sp)
bra L10014
L10011:move #11,(sp)
L10014:move 14(R14),-(sp)
move 2(R13),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #4,sp
move R0,-(sp)
move 14(R14),-(sp)
move R6,-(sp)
move 8(R14),-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #4,sp
move R0,-(sp)
jsr _drawpt
addq.l #4,sp
*line 370
*line 371
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _drawpt
addq.l #4,sp
*line 372
bra L55
L54:
*line 373
*line 374
*line 375
*line 376
*line 377
*line 378
tst.b 7(R13)
bne L10016
tst.b 6(R13)
beq L10015
L10016:move #15,(sp)
bra L10018
L10015:move #11,(sp)
L10018:move 14(R14),-(sp)
move 2(R13),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #4,sp
move R0,-(sp)
move 14(R14),-(sp)
move R6,-(sp)
move 8(R14),-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #4,sp
move R0,-(sp)
jsr _idpoint
addq.l #4,sp
*line 379
*line 380
move -16(R14),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
jsr _idpoint
addq.l #4,sp
L55:
*line 381
L53:L49:
*line 382
*line 383
*line 384
add #1,R6
*line 385
add #1,R5
*line 386
add.l #12,R13
*line 387
add.l #12,R12
L43:
*line 332
add #1,R7
L44:
*line 332
cmp -10(R14),R7
blt L45
L42:bra L35
L35:tst.l (sp)+
movem.l (sp)+,R3-R7/R12-R13
unlk R14
rts
.globl _addpch
.text
_addpch:
~~addpch:
~p1=8
~p2=10
link R14,#0
movem.l R6-R7,-(sp)
~pl=R7
*line 408
move 8(R14),R7
ext.l R7
asr.l #$5,R7
add.l #$fffffe0c,R7
asl.l #$2,R7
move 10(R14),R0
ext.l R0
add.l R0,R7
*line 410
*line 411
cmp.l #$55a0,R7
ble L57
*line 411
move.l #$55a0,R7
*line 412
L57:
*line 413
move.l R7,R0
bra L56
L56:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _irand
.text
_irand:
~~irand:
~range=8
link R14,#-4
*line 429
*line 430
tst 8(R14)
bgt L59
*line 430
clr R0
bra L58
*line 431
L59:
*line 432
*line 433
cmp #9,8(R14)
ble L60
*line 433
move #9,8(R14)
*line 434
L60:
*line 435
move 8(R14),R8
add.l R8,R8
add.l R8,R8
move.l #_rngdiv,R9
move.l 0(R8,R9.l),-(sp)
jsr _rand24
move.l R0,-(sp)
jsr ldiv
addq.l #8,sp
bra L58
L58:unlk R14
rts
.globl _xgetran
.text
_xgetran:
~~xgetran:
~mlt=8
link R14,#0
movem.l R6-R7,-(sp)
~sltmp=R7
*line 453
jsr _rand24
move R0,R7
*line 455
*line 456
tst 8(R14)
bge L62
*line 456
jsr _rand24
add R0,R7
*line 457
L62:
*line 458
move R7,R0
bra L61
L61:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _dosync
.text
_dosync:
~~dosync:
~vce=8
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~sync=R7
~ip=R13
*line 476
move 8(R14),R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 477
move.b 70(R13),R7
ext.w R7
asl #8,R7
*line 479
*line 480
btst #2,74(R13)
beq L64
*line 480
or #8192,R7
*line 481
L64:
*line 482
*line 483
btst #2,75(R13)
beq L65
*line 483
or #16384,R7
*line 484
L65:
*line 485
*line 486
btst #2,76(R13)
beq L66
*line 486
or #-32768,R7
*line 487
L66:
*line 488
move 8(R14),R8
add.l R8,R8
add.l #_io_fpu,R8
add.l #$5fe0,R8
move R7,(R8)
L63:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _oscdsp
.text
_oscdsp:
~~oscdsp:
~row=8
~val=10
~n=12
~lbl=14
~frq=18
link R14,#0
movem.l R5-R7,-(sp)
~fh=R7
~fl=R6
*line 506
move #14,(sp)
move.l 14(R14),-(sp)
move #34,-(sp)
move 8(R14),-(sp)
move 12(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 _tsplot4
adda.l #16,sp
*line 507
move #14,(sp)
move 10(R14),R0
and #3,R0
move R0,R8
add.l R8,R8
add.l R8,R8
move.l #_osclbl,R9
move.l 0(R8,R9.l),-(sp)
move #36,-(sp)
move 8(R14),-(sp)
move 12(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 _tsplot4
adda.l #16,sp
*line 509
move 10(R14),R0
and #3,R0
bra L69
*line 510
L70:
*line 511
*line 512
*line 513
*line 514
tst 18(R14)
bge L10019
move 18(R14),R0
neg R0
bra L10021
L10019:move 18(R14),R0
L10021:asr #1,R0
move R0,(sp)
tst 18(R14)
bge L10022
move #45,-(sp)
bra L10024
L10022:move #43,-(sp)
L10024:move.l #L71,-(sp)
move.l #_idbuf,-(sp)
jsr _sprintf
adda.l #10,sp
*line 515
bra L68
*line 516
*line 517
L72:
*line 518
*line 519
*line 520
move 18(R14),R0
asr #1,R0
move R0,(sp)
jsr _int2rat
*line 521
*line 522
clr _ebflag
*line 523
*line 524
move.b _ebuf,_idbuf
*line 525
move.b 1+_ebuf,1+_idbuf
*line 526
move.b 2+_ebuf,2+_idbuf
*line 527
clr.b 3+_idbuf
*line 528
bra L68
*line 529
*line 530
L73:
*line 531
*line 532
*line 533
move 18(R14),R7
asr R7
ext.l R7
divs #10,R7
*line 534
move 18(R14),R6
asr R6
move R7,R0
muls #10,R0
sub R0,R6
*line 535
*line 536
move R6,(sp)
move R7,-(sp)
move.l #L74,-(sp)
move.l #_idbuf,-(sp)
jsr _sprintf
adda.l #10,sp
bra L68
*line 537
*line 538
*line 539
L75:
*line 540
*line 541
*line 542
move 18(R14),R0
asr #1,R0
move R0,(sp)
move.l #_idbuf,-(sp)
jsr _cnvc2p
addq.l #4,sp
*line 543
add.b #48,_idbuf
*line 544
add.b #65,1+_idbuf
*line 545
move.b 2+_idbuf,R0
ext.w R0
ext.l R0
add.l #_sfdsp,R0
move.l R0,R8
move.b (R8),2+_idbuf
*line 546
add.b #48,3+_idbuf
*line 547
add.b #48,4+_idbuf
*line 548
clr.b 5+_idbuf
bra L68
*line 549
bra L68
L69:tst R0
beq L70
cmp #1,R0
beq L72
cmp #2,R0
beq L73
cmp #3,R0
beq L75
bra L68
L68:
*line 552
move #14,(sp)
move.l #_idbuf,-(sp)
move #40,-(sp)
move 8(R14),-(sp)
move 12(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 _tsplot4
adda.l #16,sp
*line 554
*line 555
cmp #21,8(R14)
beq L76
*line 556
move #14,(sp)
btst #2,11(R14)
beq L10025
move.l #L77,-(sp)
bra L10027
L10025:move.l #L78,-(sp)
L10027:move #46,-(sp)
move 8(R14),-(sp)
move 12(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 _tsplot4
adda.l #16,sp
L76:L67:tst.l (sp)+
movem.l (sp)+,R6-R7
unlk R14
rts
.globl _pltws
.text
_pltws:
~~pltws:
~ws=-2
~pen=R7
~ws=8
link R14,#0
movem.l R3-R7,-(sp)
~i=R6
~x=R5
~y=R4
*line 574
move 12(R14),R7
*line 574
move #1,R6
bra L82
L83:
*line 575
*line 576
move R6,R5
asr R5
add #382,R5
*line 577
move #348,R4
move.l 8(R14),R8
move R6,R9
add.l R9,R9
clr R0
move 0(R8,R9.l),R0
move #-32768,R1
eor R1,R0
swap R0
clr R0
swap R0
divu #676,R0
sub R0,R4
*line 578
*line 579
move R7,(sp)
move R4,-(sp)
move R5,-(sp)
jsr _idpoint
addq.l #4,sp
L81:
*line 574
add #1,R6
L82:
*line 574
cmp #254,R6
blt L83
L80:L79:tst.l (sp)+
movem.l (sp)+,R4-R7
unlk R14
rts
.globl _dswin
.text
_dswin:
~~dswin:
~n=R7
link R14,#-34
movem.l R3-R7/R11-R13,-(sp)
~th=-2
~tl=-4
~vh=-6
~vl=-8
~vv=-10
~mltval=-12
~lboff=-14
~s1=-18
~mltstr=-24
~mltsgn=-26
~tt=-30
~sc=-34
~cx=R6
~pnt=R5
~par=R4
~ip=R13
~fp=R12
~pp=R11
*line 603
move 8(R14),R7
*line 603
*line 604
cmp #-1,_wcflag
bne L84
*line 605
*line 606
*line 607
tst _idimsw
beq L10028
cmp #19,R7
beq L10028
cmp #22,R7
blt L84
L10028:*line 608
*line 609
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 611
move.l R13,R12
cmp #12,R7
bgt L10029
move R7,R0
bra L10031
L10029:move _curfunc,R0
L10031:muls #12,R0
add.l R0,R12
add.l #86,R12
*line 613
move.b 6(R12),R0
ext.w R0
add _subj,R0
move R0,_curpnt
*line 614
move.l R13,R11
move _curpnt,R0
muls #12,R0
add.l R0,R11
add.l #242,R11
*line 616
move R7,R0
asl #4,R0
ext.l R0
add.l #_idbox,R0
move.l R0,R8
move 10(R8),R6
*line 617
move R6,R0
asl #4,R0
or R0,R6
*line 618
move R6,R0
asl #8,R0
or R0,R6
*line 625
*line 626
clr R0
move 10+_v_regs,R0
and #384,R0
beq L85
*line 626
clr (sp)
jsr _vbank
*line 627
L85:
*line 628
move R6,(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 6(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 4(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 2(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 0(R8,R9.l),-(sp)
move #128,-(sp)
move.l _instob,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 630
*line 631
cmp #12,R7
bge L86
*line 631
move R7,(sp)
move #14,-(sp)
clr -(sp)
move R7,-(sp)
jsr _drawfn
addq.l #6,sp
*line 632
*line 633
*line 634
L86:
*line 635
*line 635
cmp #12,R7
ble L87
*line 636
*line 637
*line 638
move #14,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_idbxlbl,R9
move.l 0(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 639
bra L88
L87:
*line 640
*line 641
*line 642
*line 643
*line 644
move #14,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_idbxlbl,R9
move.l 0(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
move.l R13,R8
move R7,R1
muls #12,R1
add.l R1,R8
btst #0,93(R8)
beq L10032
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 8(R8,R9.l),-(sp)
bra L10034
L10032:move #2,-(sp)
L10034:move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
L88:
*line 649
move R7,R0
bra L90
*line 650
L91:
*line 651
*line 652
*line 653
*line 654
*line 655
move #14,(sp)
move.l #_idhlbl,-(sp)
clr -(sp)
move #14,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 656
*line 657
*line 658
*line 659
move #14,(sp)
move.l #L92,-(sp)
clr -(sp)
move #14,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 660
move #14,(sp)
move.l #L93,-(sp)
clr -(sp)
move #12,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 661
move #14,(sp)
move.l #L94,-(sp)
clr -(sp)
move #10,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 662
move #14,(sp)
move.l #L95,-(sp)
clr -(sp)
move #8,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 663
move #14,(sp)
move.l #L96,-(sp)
clr -(sp)
move #6,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 664
move #14,(sp)
move.l #L97,-(sp)
clr -(sp)
move #4,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 665
*line 666
clr (sp)
move #196,-(sp)
move #7,-(sp)
move #56,-(sp)
move #7,-(sp)
jsr _lseg
addq.l #8,sp
*line 667
clr (sp)
move #196,-(sp)
move #509,-(sp)
move #196,-(sp)
move #7,-(sp)
jsr _lseg
addq.l #8,sp
*line 668
*line 669
move #12,(sp)
move #14,-(sp)
clr -(sp)
move #12,-(sp)
jsr _drawfn
addq.l #6,sp
*line 670
bra L84
*line 671
*line 672
L98:
*line 673
*line 674
*line 675
move 2(R12),(sp)
move.b 4(R12),R0
ext.w R0
move R0,-(sp) 
move.l #_bfs,-(sp)
jsr _dsimlt
addq.l #6,sp
*line 676
*line 677
*line 678
move #14,(sp)
move.l #_bfs,-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
add #1,(sp)
move R7,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 _tsplot4
adda.l #16,sp
bra L84
*line 679
*line 680
L99:
*line 681
*line 682
*line 683
move _subj,(sp)
move.l #L100,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
addq.l #8,sp
*line 684
*line 685
move #14,(sp)
move.l #_bfs,-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
add #1,(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 686
bra L84
*line 687
*line 688
*line 689
L101:
*line 690
*line 691
*line 692
move.l #$3e8,-34(R14)
*line 693
move _subj,(sp)
move _curfunc,-(sp)
jsr _timeto
addq.l #2,sp
ext.l R0
move.l R0,-30(R14)
*line 694
move.l -34(R14),-(sp)
move.l -30(R14),-(sp)
jsr ldiv
addq.l #8,sp
move R0,-2(R14)
*line 695
move.l -34(R14),-(sp)
move -2(R14),R8
move.l R8,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,-(sp)
move.l -30(R14),R0
sub.l (sp)+,R0
move R0,-4(R14)
*line 696
*line 697
move -4(R14),(sp)
move -2(R14),-(sp)
move.l #L102,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 698
*line 699
move #14,(sp)
move.l #_bfs,-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
add #1,(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 700
bra L84
*line 701
*line 702
L103:
*line 703
*line 704
*line 705
move 2(R11),R0
asr #5,R0
move R0,-10(R14)
*line 706
move -10(R14),R0
ext.l R0
divs #100,R0
move R0,-6(R14)
*line 707
move -10(R14),R0
move -6(R14),R1
muls #100,R1
sub R1,R0
move R0,-8(R14)
*line 708
*line 709
move -8(R14),(sp)
move -6(R14),-(sp)
move.l #L104,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 710
*line 711
move 4(R11),(sp)
move.b 6(R11),R0
ext.w R0
move R0,-(sp) 
move.l #6+_bfs,-(sp)
jsr _dsimlt
addq.l #6,sp
*line 712
*line 713
*line 714
move #14,(sp)
move.l #_bfs,-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
add #1,(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 715
bra L84
*line 716
*line 717
*line 718
*line 719
L105:
*line 720
*line 721
*line 722
move.b 8(R11),R5
ext.w R5
*line 723
move.b 9(R11),R4
ext.w R4
*line 724
*line 725
move.b 7(R11),R0
ext.w R0
bra L107
*line 726
L108:
*line 727
*line 728
*line 729
move.l #L109,-18(R14)
bra L106
*line 730
*line 731
L110:
*line 732
*line 733
*line 734
move #170,(sp)
move.l #L111,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
addq.l #8,sp
*line 735
move.l #_bfs,-18(R14)
bra L106
*line 736
*line 737
L112:
*line 738
*line 739
*line 740
move #171,(sp)
move.l #L113,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
addq.l #8,sp
*line 741
move.l #_bfs,-18(R14)
bra L106
*line 742
*line 743
L114:
*line 744
*line 745
*line 746
move R5,(sp)
move.l #L115,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
addq.l #8,sp
*line 747
move.l #_bfs,-18(R14)
bra L106
*line 748
*line 749
*line 750
*line 751
L116:
*line 752
*line 753
*line 754
move R4,(sp)
move R5,-(sp)
move.l #L117,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 755
*line 756
*line 757
cmp.b #57,8+_bfs
bne L118
*line 757
move.b #82,8+_bfs
*line 758
L118:
*line 759
move.l #_bfs,-18(R14)
bra L106
*line 760
*line 761
L119:
*line 762
*line 763
*line 764
*line 765
move #171,(sp)
move R5,-(sp)
move.l #L120,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 766
move.l #_bfs,-18(R14)
bra L106
*line 767
*line 768
L121:
*line 769
*line 770
*line 771
*line 772
move #170,(sp)
move R5,-(sp)
move.l #L122,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 773
move.l #_bfs,-18(R14)
bra L106
*line 774
*line 775
L123:
*line 776
*line 777
*line 778
move.l #L124,-18(R14)
bra L106
*line 779
bra L106
L107:cmp #6,R0
bhi L123
asl #2,R0
move R0,R8
add.l #L125,R8
move.l (R8),R8
jmp (R8)
.data
L125:.dc.l L108
.dc.l L110
.dc.l L112
.dc.l L114
.dc.l L116
.dc.l L119
.dc.l L121
.text
L106:
*line 780
*line 781
*line 782
*line 783
move #14,(sp)
move.l -18(R14),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
add #1,(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 784
bra L84
*line 785
*line 786
*line 787
*line 788
*line 789
L126:
*line 790
*line 791
*line 792
move.b 70(R13),R0
ext.w R0
move R0,(sp) 
jsr _showcfg
bra L84
*line 793
*line 794
L127:
*line 795
*line 796
*line 797
move _curvce,(sp)
add #1,(sp)
move.l #L128,-(sp)
move.l #_idbuf,-(sp)
jsr _sprintf
addq.l #8,sp
*line 798
move #14,(sp)
move.l #_idbuf,-(sp)
move #23,-(sp)
move #17,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 799
*line 800
move _curinst,(sp)
move.l #L129,-(sp)
move.l #_idbuf,-(sp)
jsr _sprintf
addq.l #8,sp
*line 801
*line 802
move #14,(sp)
move.l #_idbuf,-(sp)
move #31,-(sp)
move #17,-(sp)
move _curvce,R8
add.l R8,R8
move.l #_instmod,R9
tst 0(R8,R9.l)
beq L10035
move #3,-(sp)
bra L10037
L10035:move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 8(R8,R9.l),-(sp)
L10037:move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 803
bra L84
*line 804
*line 805
L130:
*line 806
*line 807
*line 808
move 78(R13),(sp)
move.l #L131,-(sp)
move R7,-(sp)
move.b 74(R13),R0
ext.w R0
move R0,-(sp) 
move #18,-(sp)
jsr _oscdsp
adda.l #10,sp
*line 809
move 80(R13),(sp)
move.l #L132,-(sp)
move R7,-(sp)
move.b 75(R13),R0
ext.w R0
move R0,-(sp) 
move #19,-(sp)
jsr _oscdsp
adda.l #10,sp
*line 810
move 82(R13),(sp)
move.l #L133,-(sp)
move R7,-(sp)
move.b 76(R13),R0
ext.w R0
move R0,-(sp) 
move #20,-(sp)
jsr _oscdsp
adda.l #10,sp
*line 811
move 84(R13),(sp)
move.l #L134,-(sp)
move R7,-(sp)
move.b 77(R13),R0
ext.w R0
move R0,-(sp) 
move #21,-(sp)
jsr _oscdsp
adda.l #10,sp
*line 812
bra L84
*line 813
*line 814
L135:
*line 815
*line 816
*line 817
move.b 72(R13),R0
ext.w R0
move R0,(sp) 
add #1,(sp)
move.l #L136,-(sp)
move.l #_idbuf,-(sp)
jsr _sprintf
addq.l #8,sp
*line 818
move #14,(sp)
move.l #_idbuf,-(sp)
move #56,-(sp)
move #17,-(sp)
move #8,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 819
move #8,(sp)
move.l R13,-(sp)
add.l #1778,(sp)
jsr _pltws
addq.l #4,sp
*line 820
*line 821
move.b 73(R13),R0
ext.w R0
move R0,(sp) 
add #1,(sp)
move.l #L137,-(sp)
move.l #_idbuf,-(sp)
jsr _sprintf
addq.l #8,sp
*line 822
move #14,(sp)
move.l #_idbuf,-(sp)
move #60,-(sp)
move #17,-(sp)
move #4,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 823
move #4,(sp)
move.l R13,-(sp)
add.l #2858,(sp)
jsr _pltws
addq.l #4,sp
*line 824
bra L84
*line 825
*line 826
*line 827
L138:
*line 828
*line 829
*line 830
move #14,(sp)
move.l _vlbptr,-(sp)
move #17,-(sp)
move #22,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 831
move #14,(sp)
move.l 4+_vlbptr,-(sp)
move #17,-(sp)
move #23,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 832
move #14,(sp)
move.l 8+_vlbptr,-(sp)
move #17,-(sp)
move #24,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 833
*line 834
*line 834
tst _idsrcsw
beq L139
*line 835
*line 836
move.l #_idpoint,_point
*line 837
*line 838
move #9,(sp)
move #348,-(sp)
move #196,-(sp)
move #308,-(sp)
move #196,-(sp)
jsr _lseg
addq.l #8,sp
*line 839
move #9,(sp)
move #348,-(sp)
move #260,-(sp)
move #308,-(sp)
move #260,-(sp)
jsr _lseg
addq.l #8,sp
*line 840
move #9,(sp)
move #348,-(sp)
move #324,-(sp)
move #308,-(sp)
move #324,-(sp)
jsr _lseg
addq.l #8,sp
*line 841
*line 842
L139:bra L84
*line 843
*line 844
L140:
*line 845
*line 846
*line 847
move #14,(sp)
move.l R13,-(sp)
add.l #2,(sp)
move #17,-(sp)
move #18,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 848
move #14,(sp)
move.l R13,-(sp)
add.l #19,(sp)
move #17,-(sp)
move #19,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 849
move #14,(sp)
move.l R13,-(sp)
add.l #36,(sp)
move #17,-(sp)
move #20,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 850
move #14,(sp)
move.l R13,-(sp)
add.l #53,(sp)
move #17,-(sp)
move #21,-(sp)
move R7,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 _tsplot4
adda.l #16,sp
*line 851
bra L84
*line 852
bra L89
L90:sub #12,R0
cmp #11,R0
bhi L89
asl #2,R0
move R0,R8
add.l #L141,R8
move.l (R8),R8
jmp (R8)
.data
L141:.dc.l L91
.dc.l L98
.dc.l L99
.dc.l L101
.dc.l L103
.dc.l L105
.dc.l L126
.dc.l L127
.dc.l L130
.dc.l L135
.dc.l L138
.dc.l L140
.text
L89:L84:tst.l (sp)+
movem.l (sp)+,R4-R7/R11-R13
unlk R14
rts
.globl _allwins
.text
_allwins:
~~allwins:
link R14,#0
movem.l R6-R7,-(sp)
~i=R7
*line 869
clr R7
bra L145
L146:
*line 870
move R7,(sp)
jsr _dswin
L144:
*line 869
add #1,R7
L145:
*line 869
cmp #24,R7
blt L146
L143:L142:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _idpoint
.text
_idpoint:
~~idpoint:
~x=8
~y=10
~pen=12
link R14,#-4
*line 882
*line 883
clr R0
move 10+_v_regs,R0
and #384,R0
beq L148
*line 883
clr (sp)
jsr _vbank
*line 884
L148:
*line 885
move 12(R14),(sp)
move 10(R14),-(sp)
move 8(R14),-(sp)
move.l _idoct,-(sp)
jsr _vputp
addq.l #8,sp
L147:unlk R14
rts
.globl _idbord
.text
_idbord:
~~idbord:
link R14,#-4
*line 899
move.l #_idpoint,_point
*line 901
move #9,(sp)
clr -(sp)
move #510,-(sp)
clr -(sp)
clr -(sp)
jsr _lseg
addq.l #8,sp
*line 902
move #9,(sp)
move #349,-(sp)
move #510,-(sp)
clr -(sp)
move #510,-(sp)
jsr _lseg
addq.l #8,sp
*line 903
move #9,(sp)
move #349,-(sp)
clr -(sp)
move #349,-(sp)
move #510,-(sp)
jsr _lseg
addq.l #8,sp
*line 904
move #9,(sp)
clr -(sp)
clr -(sp)
move #349,-(sp)
clr -(sp)
jsr _lseg
addq.l #8,sp
*line 906
move #9,(sp)
move #27,-(sp)
move #510,-(sp)
move #27,-(sp)
clr -(sp)
jsr _lseg
addq.l #8,sp
*line 907
move #9,(sp)
move #55,-(sp)
move #510,-(sp)
move #55,-(sp)
clr -(sp)
jsr _lseg
addq.l #8,sp
*line 909
move #9,(sp)
move #54,-(sp)
move #85,-(sp)
move #1,-(sp)
move #85,-(sp)
jsr _lseg
addq.l #8,sp
*line 910
move #9,(sp)
move #54,-(sp)
move #170,-(sp)
move #1,-(sp)
move #170,-(sp)
jsr _lseg
addq.l #8,sp
*line 911
move #9,(sp)
move #54,-(sp)
move #255,-(sp)
move #1,-(sp)
move #255,-(sp)
jsr _lseg
addq.l #8,sp
*line 912
move #9,(sp)
move #54,-(sp)
move #340,-(sp)
move #1,-(sp)
move #340,-(sp)
jsr _lseg
addq.l #8,sp
*line 913
move #9,(sp)
move #54,-(sp)
move #425,-(sp)
move #1,-(sp)
move #425,-(sp)
jsr _lseg
addq.l #8,sp
*line 915
move #9,(sp)
move #209,-(sp)
move #510,-(sp)
move #209,-(sp)
clr -(sp)
jsr _lseg
addq.l #8,sp
*line 916
move #9,(sp)
move #237,-(sp)
move #510,-(sp)
move #237,-(sp)
clr -(sp)
jsr _lseg
addq.l #8,sp
*line 918
move #9,(sp)
move #236,-(sp)
move #111,-(sp)
move #210,-(sp)
move #111,-(sp)
jsr _lseg
addq.l #8,sp
*line 919
move #9,(sp)
move #236,-(sp)
move #143,-(sp)
move #210,-(sp)
move #143,-(sp)
jsr _lseg
addq.l #8,sp
*line 920
move #9,(sp)
move #236,-(sp)
move #207,-(sp)
move #210,-(sp)
move #207,-(sp)
jsr _lseg
addq.l #8,sp
*line 921
move #9,(sp)
move #236,-(sp)
move #367,-(sp)
move #210,-(sp)
move #367,-(sp)
jsr _lseg
addq.l #8,sp
*line 923
move #9,(sp)
move #349,-(sp)
move #132,-(sp)
move #238,-(sp)
move #132,-(sp)
jsr _lseg
addq.l #8,sp
*line 924
move #9,(sp)
move #349,-(sp)
move #380,-(sp)
move #238,-(sp)
move #380,-(sp)
jsr _lseg
addq.l #8,sp
*line 925
move #9,(sp)
move #307,-(sp)
move #380,-(sp)
move #307,-(sp)
move #132,-(sp)
jsr _lseg
addq.l #8,sp
*line 926
move #9,(sp)
move #306,-(sp)
move #268,-(sp)
move #238,-(sp)
move #268,-(sp)
jsr _lseg
addq.l #8,sp
L149:unlk R14
rts
.globl _idvlblc
.text
_idvlblc:
~~idvlblc:
link R14,#-4
*line 940
clr _vlbtype
*line 942
move.l #L151,R0
move.l R0,8+_vlbptr
move.l R0,4+_vlbptr
move.l R0,_vlbptr
L150:unlk R14
rts
.globl _idvlbld
.text
_idvlbld:
~~idvlbld:
link R14,#-4
*line 953
move #1,_vlbtype
*line 957
move.l #L153,_vlbptr
*line 958
move.l #L154,4+_vlbptr
*line 959
move.l #L155,8+_vlbptr
L152:unlk R14
rts
.globl _idvtyp
.text
_idvtyp:
~~idvtyp:
link R14,#-4
*line 973
move #2,_vlbtype
*line 975
move.l #_vtlin1,_vlbptr
*line 976
move.l #_vtlin2,4+_vlbptr
*line 977
move.l #_vtlin3,8+_vlbptr
L156:unlk R14
rts
.globl _idcpfch
.text
_idcpfch:
~~idcpfch:
link R14,#-4
*line 988
move #3,_vlbtype
*line 992
move.l #L158,_vlbptr
*line 993
move.l #L159,4+_vlbptr
*line 994
move.l #L160,8+_vlbptr
L157:unlk R14
rts
.globl _instdsp
.text
_instdsp:
~~instdsp:
link R14,#0
movem.l R7-R7/R12-R13,-(sp)
~ip=R13
~fp=R12
*line 1011
move.l #_v_score,_instob
*line 1012
move.l #144+_v_obtab,_idoct
*line 1013
move.l #_v_curs0,_obj0
*line 1014
move.l #_v_tcur,_obj2
*line 1016
clr _idnamsw
*line 1017
clr _idsrcsw
*line 1018
clr _idcfsw
*line 1019
clr _idimsw
*line 1020
clr _submenu
*line 1021
move #-1,_wcflag
*line 1022
clr _wcpage
*line 1024
jsr _setinst
*line 1026
jsr _dswap
*line 1028
clr (sp)
jsr _vbank
*line 1029
move #32767,(sp)
clr -(sp)
move.l _instob,-(sp)
jsr _memsetw
addq.l #6,sp
*line 1030
move #12033,(sp)
clr -(sp)
move.l _instob,R0
add.l #$fffe,R0
move.l R0,-(sp)
jsr _memsetw
addq.l #6,sp
*line 1032
move #-1,(sp)
move #1536,-(sp)
clr -(sp)
clr -(sp)
move #350,-(sp)
move #512,-(sp)
move.l _instob,-(sp)
clr -(sp)
clr -(sp)
move #8,-(sp)
jsr _SetObj
adda.l #20,sp
*line 1033
move #-1,(sp)
move #1540,-(sp)
move #175,-(sp)
move #256,-(sp)
move #16,-(sp)
move #16,-(sp)
move.l _obj0,-(sp)
move #1,-(sp)
clr -(sp)
clr -(sp)
jsr _SetObj
adda.l #20,sp
*line 1034
move #-1,(sp)
move #1572,-(sp)
clr -(sp)
clr -(sp)
move #16,-(sp)
move #16,-(sp)
move.l _obj2,-(sp)
move #1,-(sp)
clr -(sp)
move #2,-(sp)
jsr _SetObj
adda.l #20,sp
*line 1036
move #1,(sp)
jsr _arcurs
*line 1037
move #1,(sp)
jsr _itcini
*line 1038
move #1,(sp)
jsr _ttcini
*line 1040
clr (sp)
jsr _vbank
*line 1041
jsr _idbord
*line 1042
jsr _idvlblc
*line 1043
jsr _allwins
*line 1045
move #8,(sp)
move #8,-(sp)
jsr _SetPri
addq.l #2,sp
*line 1046
move #15,(sp)
clr -(sp)
jsr _SetPri
addq.l #2,sp
*line 1048
move #175,(sp)
move #256,-(sp)
jsr _setgc
addq.l #2,sp
*line 1050
move.l #_inspal,(sp)
jsr _vsndpal
L161:tst.l (sp)+
movem.l (sp)+,R12-R13
unlk R14
rts
.globl _reshowi
.text
_reshowi:
~~reshowi:
link R14,#-4
*line 1064
jsr _idfield
*line 1066
move #-1,_wcflag
*line 1067
clr _wcpage
*line 1069
jsr _dswap
*line 1071
clr (sp)
jsr _vbank
*line 1072
move #32767,(sp)
clr -(sp)
move.l _instob,-(sp)
jsr _memsetw
addq.l #6,sp
*line 1073
move #12033,(sp)
clr -(sp)
move.l _instob,R0
add.l #$fffe,R0
move.l R0,-(sp)
jsr _memsetw
addq.l #6,sp
*line 1075
move #-1,(sp)
move #1536,-(sp)
clr -(sp)
clr -(sp)
move #350,-(sp)
move #512,-(sp)
move.l _instob,-(sp)
clr -(sp)
clr -(sp)
move #8,-(sp)
jsr _SetObj
adda.l #20,sp
*line 1076
move #-1,(sp)
move #1540,-(sp)
move #175,-(sp)
move #256,-(sp)
move #16,-(sp)
move #16,-(sp)
move.l _obj0,-(sp)
move #1,-(sp)
clr -(sp)
clr -(sp)
jsr _SetObj
adda.l #20,sp
*line 1077
move #-1,(sp)
move #1572,-(sp)
clr -(sp)
clr -(sp)
move #16,-(sp)
move #16,-(sp)
move.l _obj2,-(sp)
move #1,-(sp)
clr -(sp)
move #2,-(sp)
jsr _SetObj
adda.l #20,sp
*line 1079
move #1,(sp)
jsr _arcurs
*line 1080
move #1,(sp)
jsr _itcini
*line 1081
move #1,(sp)
jsr _ttcini
*line 1083
clr (sp)
jsr _vbank
*line 1084
jsr _idbord
*line 1085
jsr _idvlblc
*line 1086
jsr _allwins
*line 1088
move #8,(sp)
move #8,-(sp)
jsr _SetPri
addq.l #2,sp
*line 1089
move #15,(sp)
clr -(sp)
jsr _SetPri
addq.l #2,sp
*line 1091
*line 1092
move _cyval,R0
cmp _curslim,R0
ble L163
*line 1092
move _stccol,(sp)
move _stcrow,-(sp)
jsr _settc
addq.l #2,sp
*line 1093
bra L164
L163:
*line 1094
move _cyval,(sp)
move _cxval,-(sp)
jsr _setgc
addq.l #2,sp
L164:
*line 1096
move.l #_inspal,(sp)
jsr _vsndpal
L162:unlk R14
rts
.data
L1:.dc.b $20,$20,$20,$20,$46,$72,$71,$20,$31,$0
L2:.dc.b $20,$20,$20,$20,$46,$72,$71,$20,$32,$0
L3:.dc.b $20,$20,$20,$20,$46,$72,$71,$20,$33,$0
L4:.dc.b $20,$20,$20,$20,$46,$72,$71,$20,$34,$0
L5:.dc.b $20,$20,$20,$20,$46,$69,$6C,$74,$72,$0
L6:.dc.b $20,$20,$20,$20,$4C,$6F,$63,$74,$6E,$0
L7:.dc.b $20,$20,$20,$20,$49,$6E,$64,$20,$31,$0
L8:.dc.b $20,$20,$20,$20,$49,$6E,$64,$20,$32,$0
L9:.dc.b $20,$20,$20,$20,$49,$6E,$64,$20,$33,$0
L10:.dc.b $20,$20,$20,$20,$49,$6E,$64,$20,$34,$0
L11:.dc.b $20,$20,$20,$20,$49,$6E,$64,$20,$35,$0
L12:.dc.b $20,$20,$20,$20,$49,$6E,$64,$20,$36,$0
L13:.dc.b $20,$20,$20,$20,$4C,$65,$76,$65,$6C,$0
L14:.dc.b $53,$6F,$75,$72,$63,$65,$20,$20,$4D,$75,$6C,$74,$0
L15:.dc.b $50,$74,$0
L16:.dc.b $54,$69,$6D,$65,$20,$20,$0
L17:.dc.b $56,$61,$6C,$75,$65,$20,$53,$6F,$75,$72,$63,$65,$20,$20,$4D,$75,$6C,$74,$0
L18:.dc.b $43,$6F,$6E,$64,$69,$74,$69,$6F,$6E,$65,$64,$20,$41,$63,$74,$73,$0
L19:.dc.b $20,$20,$43,$6F,$6E,$66,$69,$67,$20,$20,$23,$0
L20:.dc.b $56,$6F,$69,$63,$65,$20,$20,$20,$20,$49,$6E,$73,$74,$0
L21:.dc.b $4F,$73,$63,$69,$6C,$6C,$61,$74,$6F,$72,$73,$0
L22:.dc.b $57,$61,$76,$73,$68,$70,$65,$0
L23:.dc.b $0
L24:.dc.b $0
L26:.dc.b $49,$6E,$74,$0
L27:.dc.b $52,$61,$74,$0
L28:.dc.b $46,$72,$71,$0
L29:.dc.b $50,$63,$68,$0
L71:.dc.b $25,$63,$25,$30,$34,$64,$0
L74:.dc.b $25,$30,$32,$64,$2E,$25,$64,$20,$0
L77:.dc.b $53,$0
L78:.dc.b $73,$0
L92:.dc.b $C0,$0
L93:.dc.b $C2,$0
L94:.dc.b $C4,$0
L95:.dc.b $C6,$0
L96:.dc.b $C8,$0
L97:.dc.b $CA,$0
L100:.dc.b $25,$30,$32,$64,$0
L102:.dc.b $25,$30,$32,$64,$2E,$25,$30,$33,$64,$0
L104:.dc.b $25,$30,$32,$64,$2E,$25,$30,$32,$64,$20,$0
L109:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
L111:.dc.b $50,$61,$75,$73,$65,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$20,$20,$0
L113:.dc.b $53,$74,$6F,$70,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$20,$20,$20,$0
L115:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$66,$6F,$72,$65,$76,$65,$72,$20,$0
L117:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$25,$30,$32,$64,$20,$74,$69,$6D,$65,$73,$0
L120:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$0
L122:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$0
L124:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
L128:.dc.b $25,$30,$32,$64,$0
L129:.dc.b $25,$30,$32,$64,$0
L131:.dc.b $31,$0
L132:.dc.b $32,$0
L133:.dc.b $33,$0
L134:.dc.b $34,$0
L136:.dc.b $41,$25,$30,$32,$64,$0
L137:.dc.b $42,$25,$30,$32,$64,$0
L151:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
L153:.dc.b $50,$63,$68,$57,$2F,$48,$54,$20,$50,$63,$68,$2F,$46,$72,$71,$20,$52,$61,$6E,$64,$6F,$6D,$20,$20,$47,$50,$43,$2F,$56,$31,$0
L154:.dc.b $4D,$6F,$64,$57,$2F,$56,$54,$20,$4B,$65,$79,$20,$56,$65,$6C,$20,$50,$65,$64,$61,$6C,$20,$31,$20,$20,$20,$20,$20,$20,$20,$0
L155:.dc.b $42,$72,$74,$68,$2F,$4C,$50,$20,$4B,$65,$79,$20,$50,$72,$73,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
L158:.dc.b $46,$65,$74,$63,$68,$20,$66,$72,$6F,$6D,$20,$6C,$69,$62,$72,$61,$72,$79,$20,$20,$20,$20,$20,$45,$73,$63,$61,$70,$65,$20,$0
L159:.dc.b $43,$6F,$70,$79,$20,$74,$6F,$20,$6C,$69,$62,$72,$61,$72,$79,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
L160:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0