.globl _Cbuffs
.globl _Stdbufs
.globl _Stdbuf
.globl _ebflag
.globl _ebuf
.globl _curfet
.globl _cfetp
.globl _infetp
.globl _lcdx
.globl _lcdy
.globl _lcdbit
.globl _lcdrow
.globl _lcdcol
.globl _lcdbase
.globl _lcdctl1
.globl _lcdctl2
.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 _filecat
.globl _ac_code
.globl _scname
.globl _se_chg
.globl _curscor
.globl _cursect
.globl _se1_cnt
.globl _se2_cnt
.globl _se3_cnt
.globl _spool
.globl _pspool
.globl _spcount
.globl _frags
.globl _t_bak
.globl _t_cur
.globl _t_ctr
.globl _t_fwd
.globl _size1
.globl _size2
.globl _size3
.globl _scores
.globl _scp
.globl _seclist
.globl _hplist
.globl _p_bak
.globl _p_cur
.globl _p_ctr
.globl _p_fwd
.globl _point
.globl _asmode
.globl _catin
.globl _cxrate
.globl _cxval
.globl _cyrate
.globl _cyval
.globl _errno
.globl _gomode
.globl _hitcx
.globl _hitcy
.globl _ismode
.globl _lasgsw
.globl _ldelsw
.globl _lderrsw
.globl _ldkind
.globl _ldrow
.globl _ldslot
.globl _lksel
.globl _lmwtype
.globl _lorchl
.globl _lorchsw
.globl _lorclsw
.globl _ldpass
.globl _lpatsw
.globl _lrasw
.globl _lscrsw
.globl _lselsw
.globl _lseqsw
.globl _lstrsw
.globl _ltagged
.globl _ltunsw
.globl _lwavsw
.globl _ndisp
.globl _oldpk
.globl _oldsl
.globl _pkctrl
.globl _sliders
.globl _stcrow
.globl _stccol
.globl _tagslot
.globl _librob
.globl _ldmap
.globl _scsizes
.globl _ldbox
.globl _sindex
.globl _csbp
.globl _curboxp
.globl _swpt
.globl _oldsw
.globl _t_libr
.globl _bfs
.globl _ldfile
.globl _ldcmnt
.globl _loadedf
.globl _loadedc
.globl _ft2lt
.data
_ft2lt:
.dc.w $0
.dc.w $1
.dc.w $2
.dc.w $3
.dc.w $4
.dc.w $5
.dc.w $1
.dc.w $6
.dc.w $7
.globl _ldboxes
.data
_ldboxes:
.dc.w $1
.dc.w $1
.dc.w $1FE
.dc.w $D
.dc.w $0
*line 135
.dc.l _ldfnbox
.dc.w $1
.dc.w $E
.dc.w $1FE
.dc.w $125
.dc.w $1
*line 136
.dc.l _ldfnbox
.dc.w $1
.dc.w $126
.dc.w $4E
.dc.w $133
.dc.w $2
*line 137
.dc.l _ldfnbox
.dc.w $50
.dc.w $126
.dc.w $8F
.dc.w $133
.dc.w $3
*line 138
.dc.l _ldfnbox
.dc.w $91
.dc.w $126
.dc.w $D6
.dc.w $133
.dc.w $4
*line 139
.dc.l _ldfnbox
.dc.w $D8
.dc.w $126
.dc.w $1FE
.dc.w $133
.dc.w $5
*line 140
.dc.l _ldfnbox
.dc.w $1
.dc.w $134
.dc.w $46
.dc.w $141
.dc.w $6
*line 141
.dc.l _ldfnbox
.dc.w $1
.dc.w $142
.dc.w $46
.dc.w $14F
.dc.w $7
*line 142
.dc.l _ldfnbox
.dc.w $1
.dc.w $150
.dc.w $46
.dc.w $15D
.dc.w $8
*line 143
.dc.l _ldfnbox
.dc.w $48
.dc.w $134
.dc.w $FF
.dc.w $15D
.dc.w $9
*line 144
.dc.l _ldfnbox
.dc.w $101
.dc.w $134
.dc.w $1FE
.dc.w $15D
.dc.w $A
*line 145
.dc.l _ldfnbox
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.globl _skperr
.text
_skperr:
~~skperr:
~sn=8
link R14,#-100
~scid=-32
~erms=-96
*line 165
jsr _clrlsel
*line 167
move 8(R14),(sp)
add #1,(sp)
move.l #L2,-(sp)
move.l R14,-(sp)
add.l #-32,(sp)
jsr _sprintf
addq.l #8,sp
*line 168
move _errno,(sp)
move.l #L3,-(sp)
move.l R14,-(sp)
add.l #-96,(sp)
jsr _sprintf
addq.l #8,sp
*line 170
*line 171
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-96,(sp)
move.l R14,-(sp)
add.l #-32,(sp)
move.l #L4,-(sp)
jsr _ldermsg
adda.l #14,sp
L1:unlk R14
rts
.globl _skp_ec
.text
_skp_ec:
~~skp_ec:
~fp=R13
~len=R7
link R14,#-64
movem.l R4-R7/R13-R13,-(sp)
~count=R6
~c=R5
~errbuf=-64
*line 192
move.l 8(R14),R13
*line 192
move.l 12(R14),R7
*line 192
clr.l R6
bra L8
L9:
*line 193
*line 194
clr _errno
*line 195
*line 196
*line 196
move.l R13,(sp)
jsr _getc
move R0,R5
cmp #-1,R5
bne L10
*line 197
*line 198
move _errno,(sp)
move.l #L11,-(sp)
move.l R14,-(sp)
add.l #-64,(sp)
jsr _sprintf
addq.l #8,sp
*line 199
*line 200
*line 201
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l R14,-(sp)
add.l #-64,(sp)
move.l #L12,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 202
*line 206
*line 207
*line 208
move.l R13,(sp)
jsr _fclose
*line 209
jsr _postio
*line 210
move #-1,R0
bra L5
*line 211
L10:L7:
*line 192
add.l #$1,R6
L8:
*line 192
cmp.l R7,R6
blt L9
L6:
*line 214
clr R0
bra L5
L5:tst.l (sp)+
movem.l (sp)+,R5-R7/R13-R13
unlk R14
rts
.globl _scskip
.text
_scskip:
~~scskip:
~fp=R13
~ns=12
link R14,#-66
movem.l R5-R7/R13-R13,-(sp)
~ehdr=R7
~go=R6
~etype=-2
~erms=-66
*line 235
move.l 8(R14),R13
*line 235
move #1,R6
*line 237
*line 237
move.l #$f0,(sp)
move.l R13,-(sp)
jsr _skp_ec
addq.l #4,sp
tst R0
beq L14
*line 238
*line 239
move 12(R14),(sp)
jsr _skperr
*line 240
move #-1,R0
bra L13
*line 241
*line 242
L14:
*line 243
*line 243
move.l #$1,(sp)
move.l R14,-(sp)
sub.l #2,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L15
*line 244
*line 245
move 12(R14),(sp)
jsr _skperr
*line 246
move #-1,R0
bra L13
*line 247
*line 248
L15:
*line 249
*line 249
cmp.b #1,-2(R14)
beq L16
*line 250
*line 251
move.b -2(R14),R0
ext.w R0
move R0,(sp) 
move 12(R14),-(sp)
add #1,(sp)
move.l #L17,-(sp)
move.l R14,-(sp)
add.l #-66,(sp)
jsr _sprintf
adda.l #10,sp
*line 252
*line 253
*line 254
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-66,(sp)
move.l #L19,-(sp)
move.l #L18,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 255
*line 256
move #-1,R0
bra L13
*line 257
*line 258
L16:
*line 259
*line 259
move.b -2(R14),R0
ext.w R0
move R0,R8
add.l R8,R8
add.l R8,R8
move.l #_scsizes,R9
move 2(R8,R9.l),R0
sub #1,R0
ext.l R0
move.l R0,(sp)
move.l R13,-(sp)
jsr _skp_ec
addq.l #4,sp
tst R0
beq L20
*line 260
*line 261
move 12(R14),(sp)
jsr _skperr
*line 262
move #-1,R0
bra L13
*line 263
*line 264
*line 265
*line 266
L20:
*line 267
L23:
*line 268
*line 269
*line 269
move.l #$1,(sp)
move.l R14,-(sp)
sub.l #2,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L24
*line 270
*line 271
move 12(R14),(sp)
jsr _skperr
*line 272
move #-1,R0
bra L13
*line 273
*line 274
*line 275
*line 276
L24:
*line 277
*line 277
move.b -2(R14),R0
ext.w R0
move R0,R8
add.l R8,R8
add.l R8,R8
move.l #_scsizes,R9
move 2(R8,R9.l),R0
sub #1,R0
ext.l R0
move.l R0,(sp)
move.l R13,-(sp)
jsr _skp_ec
addq.l #4,sp
tst R0
beq L25
*line 278
*line 279
move 12(R14),(sp)
jsr _skperr
*line 280
move #-1,R0
bra L13
*line 281
*line 282
L25:
*line 283
*line 284
cmp.b #21,-2(R14)
bne L26
*line 284
clr R6
*line 285
L26:L22:
*line 286
tst R6
bne L23
L21:
*line 288
clr R0
bra L13
L13:tst.l (sp)+
movem.l (sp)+,R6-R7/R13-R13
unlk R14
rts
.globl _ldermsg
.text
_ldermsg:
~~ldermsg:
~p1=8
~p2=12
~p3=16
~p4=20
~p5=22
link R14,#-68
~msgbuf=-64
*line 306
*line 306
tst _lderrsw
bne L28
*line 307
*line 308
move.l #L29,(sp)
move.l R14,-(sp)
add.l #-64,(sp)
jsr _strcpy
addq.l #4,sp
*line 309
move.l 8(R14),(sp)
move.l R14,-(sp)
add.l #-64,(sp)
jsr _strcat
addq.l #4,sp
*line 310
*line 311
move 22(R14),(sp)
move 20(R14),-(sp)
move.l 16(R14),-(sp)
move.l 12(R14),-(sp)
move.l 8(R14),-(sp)
jsr _ldwmsg
adda.l #14,sp
*line 312
*line 313
L28:
*line 314
move #1,_lderrsw
L27:unlk R14
rts
.globl _clrerms
.text
_clrerms:
~~clrerms:
link R14,#-4
*line 325
*line 325
tst _lderrsw
beq L31
*line 326
*line 327
clr _lderrsw
*line 328
jsr _lmwclr
*line 329
move #10,(sp)
jsr _ldswin
*line 330
L31:L30:unlk R14
rts
.globl _clrlsel
.text
_clrlsel:
~~clrlsel:
link R14,#-4
*line 344
*line 344
tst _lselsw
beq L33
*line 345
*line 346
*line 346
tst _lrasw
beq L34
*line 347
*line 348
move #-1,_lksel
*line 349
clr _ldpass
*line 350
move _oldpk,_pkctrl
*line 351
move _oldsl,_sliders
*line 352
move.l _oldsw,_swpt
*line 353
jsr _lcdlbls
*line 354
jsr _setleds
*line 355
jsr _fcindex
*line 356
bra L35
L34:
*line 357
*line 358
*line 359
move _ldrow,(sp)
move 24+_ldbox,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move _ldslot,-(sp)
jsr _dslslot
addq.l #4,sp
L35:
*line 360
*line 361
*line 362
L33:
*line 363
jsr _fcreset
L32:unlk R14
rts
.globl _endltyp
.text
_endltyp:
~~endltyp:
link R14,#-4
*line 374
jsr _lmwclr
*line 375
move #10,(sp)
jsr _ldswin
L36:unlk R14
rts
.globl _savefc
.text
_savefc:
~~savefc:
~kind=8
link R14,#-6
~fi=-2
*line 392
move 8(R14),R8
sub #1,R8
add.l R8,R8
add.l #_ft2lt,R8
move (R8),-2(R14)
*line 394
*line 395
cmp #7,8(R14)
bne L38
*line 395
tst _lorchl
beq L10000
move #2,R0
bra L10002
L10000:move #1,R0
L10002:move R0,-2(R14)
*line 396
L38:
*line 397
move #8,(sp)
move.l #_ldfile,-(sp)
move -2(R14),R0
asl #3,R0
ext.l R0
add.l #_loadedf,R0
move.l R0,-(sp)
jsr _memcpy
addq.l #8,sp
*line 398
move #37,(sp)
move.l #_ldcmnt,-(sp)
move -2(R14),R0
muls #37,R0
add.l #_loadedc,R0
move.l R0,-(sp)
jsr _memcpy
addq.l #8,sp
L37:unlk R14
rts
.globl _lcancel
.text
_lcancel:
~~lcancel:
~lct=8
link R14,#-6
~rc=-2
*line 416
clr -2(R14)
*line 418
*line 418
tst 8(R14)
beq L40
tst _lselsw
beq L40
*line 419
*line 420
move #1,-2(R14)
*line 421
jsr _clrlsel
*line 422
*line 423
L40:
*line 424
*line 424
cmp #1,8(R14)
beq L41
tst _lstrsw
bne L10003
jsr _ckstor
tst R0
bne L41
L10003:*line 425
*line 426
move #1,-2(R14)
*line 427
jsr _streset
*line 428
*line 429
L41:
*line 430
*line 430
cmp #2,8(R14)
beq L42
tst _ldelsw
beq L42
*line 431
*line 432
move #1,-2(R14)
*line 433
clr _ldelsw
*line 434
move _ldrow,(sp)
move 24+_ldbox,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move _ldslot,-(sp)
jsr _dslslot
addq.l #4,sp
*line 435
*line 436
L42:
*line 437
move -2(R14),R0
bra L39
L39:unlk R14
rts
.globl _dpy_scr
.text
_dpy_scr:
~~dpy_scr:
~color=8
~ns=10
link R14,#-48
~buf=-40
~scl=-44
*line 456
*line 457
tst _ndisp
bne L43
*line 458
*line 459
*line 460
clr R0
move 10+_v_regs,R0
and #384,R0
beq L44
*line 460
clr (sp)
jsr _vbank
*line 461
L44:
*line 462
*line 463
move 10(R14),R8
add.l R8,R8
add.l #_ldmap,R8
cmp #-1,(R8)
bne L45
*line 463
move.l #L46,(sp)
move.l R14,-(sp)
add.l #-40,(sp)
jsr _strcpy
addq.l #4,sp
*line 464
bra L47
L45:
*line 465
move 10(R14),R8
add.l R8,R8
move.l #_ldmap,R9
move 0(R8,R9.l),(sp)
add #1,(sp)
move.l #L48,-(sp)
move.l R14,-(sp)
add.l #-40,(sp)
jsr _sprintf
addq.l #8,sp
L47:
*line 467
move #14,(sp)
move.l R14,-(sp)
add.l #-40,(sp)
move #1,-(sp)
move 10(R14),-(sp)
add #1,(sp)
move 26+_ldbox,-(sp)
move 24+_ldbox,-(sp)
move #64,-(sp)
move.l _librob,-(sp)
jsr _vcputsv
adda.l #18,sp
*line 469
*line 470
move 10(R14),R0
muls #20,R0
move.l R0,R8
move.l #_sindex,R9
move.l 0(R8,R9.l),R0
move.l R0,-44(R14)
cmp.l #$ffffffff,R0
bne L49
*line 470
move.l #L50,(sp)
move.l R14,-(sp)
add.l #-40,(sp)
jsr _strcpy
addq.l #4,sp
*line 471
bra L51
L49:
*line 472
move.l -44(R14),(sp)
move 10(R14),R0
muls #20,R0
add.l #_sindex,R0
move.l R0,-(sp)
add.l #4,(sp)
move.l #L52,-(sp)
move.l R14,-(sp)
add.l #-40,(sp)
jsr _sprintf
adda.l #12,sp
L51:
*line 474
move #14,(sp)
move.l R14,-(sp)
add.l #-40,(sp)
move #4,-(sp)
move 10(R14),-(sp)
add #1,(sp)
move 26+_ldbox,-(sp)
move 8(R14),-(sp)
move #64,-(sp)
move.l _librob,-(sp)
jsr _vcputsv
adda.l #18,sp
L43:unlk R14
rts
.globl _lst_scr
.text
_lst_scr:
~~lst_scr:
link R14,#-2
movem.l R6-R7,-(sp)
~i=R7
~cx=-2
*line 491
*line 492
tst _ndisp
bne L53
*line 493
*line 494
move.l #_ldpoint,_point
*line 496
move 10+_ldbox,(sp)
jsr _exp_c
move R0,-2(R14)
*line 498
*line 499
clr R0
move 10+_v_regs,R0
and #384,R0
beq L54
*line 499
clr (sp)
jsr _vbank
*line 500
L54:
*line 501
*line 502
move -2(R14),(sp)
move 6+_ldbox,-(sp)
move 4+_ldbox,-(sp)
move 2+_ldbox,-(sp)
move _ldbox,-(sp)
move #128,-(sp)
move.l _librob,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 504
*line 505
move #14,(sp)
move.l #L55,-(sp)
move 14+_ldbox,-(sp)
move 12+_ldbox,-(sp)
move 8+_ldbox,-(sp)
move #64,-(sp)
move.l _librob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 507
move #12,(sp)
move #13,-(sp)
move #23,-(sp)
move #13,-(sp)
move #8,-(sp)
jsr _lseg
addq.l #8,sp
*line 508
move #12,(sp)
move #13,-(sp)
move #159,-(sp)
move #13,-(sp)
move #32,-(sp)
jsr _lseg
addq.l #8,sp
*line 509
move #12,(sp)
move #13,-(sp)
move #215,-(sp)
move #13,-(sp)
move #168,-(sp)
jsr _lseg
addq.l #8,sp
*line 511
move 26+_ldbox,(sp)
jsr _exp_c
move R0,-2(R14)
*line 513
*line 514
move -2(R14),(sp)
move 22+_ldbox,-(sp)
move 20+_ldbox,-(sp)
move 18+_ldbox,-(sp)
move 16+_ldbox,-(sp)
move #128,-(sp)
move.l _librob,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 516
clr R7
bra L58
L59:
*line 517
move R7,(sp)
move 24+_ldbox,-(sp)
jsr _dpy_scr
addq.l #2,sp
L57:
*line 516
add #1,R7
L58:
*line 516
cmp #20,R7
blt L59
L56:L53:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _ndx_scr
.text
_ndx_scr:
~~ndx_scr:
~slot=R7
link R14,#-132
movem.l R4-R7/R13-R13,-(sp)
~fp=R13
~i=R6
~rlen=R5
~rdlen=-4
~msgbuf1=-68
~msgbuf2=-132
*line 540
move 8(R14),R7
*line 540
clr _ldpass
*line 542
clr R6
bra L63
L64:
*line 543
*line 544
move R6,R0
muls #20,R0
add.l #_sindex,R0
move.l R0,R8
move.l #$ffffffff,(R8)
*line 545
move #16,(sp)
move #32,-(sp)
move R6,R0
muls #20,R0
add.l #_sindex,R0
move.l R0,-(sp)
add.l #4,(sp)
jsr _memset
addq.l #6,sp
L62:
*line 542
add #1,R6
L63:
*line 542
cmp #20,R6
blt L64
L61:
*line 548
clr _errno
*line 550
*line 550
move.l #L65,(sp)
move #4,-(sp)
move R7,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
move.l R13,R0
bne L66
*line 551
*line 552
move _errno,(sp)
move.l #L67,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
jsr _sprintf
addq.l #8,sp
*line 553
*line 554
*line 555
*line 556
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
move.l #L69,-(sp)
move.l #L68,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 557
*line 558
jsr _clrlsel
*line 559
move #-1,R0
bra L60
*line 560
*line 561
L66:
*line 562
clr _errno
*line 564
*line 564
move #1,(sp)
move.l #$3c,-(sp)
move.l R13,-(sp)
jsr _fseek
addq.l #8,sp
tst R0
beq L70
*line 565
*line 566
move _errno,(sp)
move.l #L71,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
jsr _sprintf
addq.l #8,sp
*line 567
*line 568
*line 569
*line 570
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
clr.l -(sp)
move.l #L72,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 571
*line 572
*line 576
*line 577
*line 578
move.l R13,(sp)
jsr _fclose
*line 579
jsr _postio
*line 580
jsr _clrlsel
*line 581
move #-1,R0
bra L60
*line 582
*line 583
*line 584
*line 585
*line 589
*line 590
L70:
*line 591
clr R6
bra L75
L76:
*line 592
*line 593
*line 593
move.l #$4,(sp)
move.l R14,-(sp)
sub.l #4,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L77
*line 594
*line 595
move R6,(sp)
add #1,(sp)
move.l #L78,-(sp)
move.l R14,-(sp)
add.l #-68,(sp)
jsr _sprintf
addq.l #8,sp
*line 596
move _errno,(sp)
move.l #L79,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
jsr _sprintf
addq.l #8,sp
*line 597
*line 598
*line 599
*line 600
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
move.l R14,-(sp)
add.l #-68,(sp)
move.l #L80,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 601
*line 602
*line 606
*line 607
*line 608
jsr _clrlsel
*line 609
move #-1,R0
bra L60
*line 610
*line 611
L77:
*line 612
move R6,R0
muls #20,R0
add.l #_sindex,R0
move.l R0,R8
move.l -4(R14),(R8)
*line 613
*line 614
*line 614
cmp.l #$ffffffff,-4(R14)
beq L81
*line 615
*line 616
*line 616
move.l #$10,(sp)
move R6,R0
muls #20,R0
add.l #_sindex,R0
move.l R0,-(sp)
add.l #4,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L82
*line 617
*line 618
move R6,(sp)
add #1,(sp)
move.l #L83,-(sp)
move.l R14,-(sp)
add.l #-68,(sp)
jsr _sprintf
addq.l #8,sp
*line 619
move _errno,(sp)
move.l #L84,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
jsr _sprintf
addq.l #8,sp
*line 620
*line 621
*line 622
*line 623
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
move.l R14,-(sp)
add.l #-68,(sp)
move.l #L85,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 624
*line 625
*line 629
*line 630
*line 631
jsr _clrlsel
*line 632
move #-1,R0
bra L60
*line 633
*line 634
L82:
*line 635
clr _errno
*line 636
*line 637
*line 637
move R6,(sp)
move.l R13,-(sp)
jsr _scskip
addq.l #4,sp
tst R0
beq L86
*line 638
*line 639
move R6,(sp)
add #1,(sp)
move.l #L87,-(sp)
move.l R14,-(sp)
add.l #-68,(sp)
jsr _sprintf
addq.l #8,sp
*line 640
*line 641
move.l R5,(sp)
move _errno,-(sp)
move.l #L88,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
jsr _sprintf
adda.l #10,sp
*line 642
*line 643
*line 644
*line 645
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-132,(sp)
move.l R14,-(sp)
add.l #-68,(sp)
move.l #L89,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 646
*line 647
*line 651
*line 652
*line 653
move.l R13,(sp)
jsr _fclose
*line 654
jsr _postio
*line 655
jsr _clrlsel
*line 656
move #-1,R0
bra L60
*line 657
L86:
*line 658
L81:L74:
*line 591
add #1,R6
L75:
*line 591
cmp #20,R6
blt L76
L73:
*line 661
move.l R13,(sp)
jsr _fclose
*line 662
jsr _postio
*line 663
move #1,_ldpass
*line 664
jsr _lst_scr
*line 668
move.l #_GLCplot,_point
*line 669
move #1,(sp)
jsr _GLCcurs
*line 671
*line 671
tst _ismode
beq L90
*line 672
*line 673
clr _ismode
*line 674
move _oldpk,_pkctrl
*line 675
move _oldsl,_sliders
*line 676
move.l _oldsw,_swpt
*line 677
jsr _lcdlbls
*line 678
*line 679
L90:
*line 680
*line 680
tst _gomode
beq L91
*line 681
*line 682
clr _gomode
*line 683
move _oldpk,_pkctrl
*line 684
clr (sp)
move #54,-(sp)
move #215,-(sp)
move #54,-(sp)
move #186,-(sp)
jsr _lseg
addq.l #8,sp
*line 685
*line 686
L91:
*line 687
*line 687
tst _asmode
beq L92
*line 688
*line 689
clr _asmode
*line 690
move _oldpk,_pkctrl
*line 691
move.l _oldsw,_swpt
*line 692
clr (sp)
move #54,-(sp)
move #287,-(sp)
move #54,-(sp)
move #258,-(sp)
jsr _lseg
addq.l #8,sp
*line 693
*line 694
L92:
*line 695
*line 696
tst _pkctrl
beq L10004
cmp #1,_pkctrl
bne L93
L10004:*line 696
move _pkctrl,_oldpk
*line 697
L93:
*line 698
*line 699
cmp #5,_sliders
beq L94
*line 699
move _sliders,_oldsl
*line 700
L94:
*line 701
move.l _swpt,_oldsw
*line 702
move.l #_t_libr,_swpt
*line 703
move #5,_pkctrl
*line 704
move #5,_sliders
*line 706
jsr _lcdlbls
*line 707
jsr _setleds
*line 709
clr R0
bra L60
L60:tst.l (sp)+
movem.l (sp)+,R5-R7/R13-R13
unlk R14
rts
.globl _getit
.text
_getit:
~~getit:
link R14,#-4
*line 724
move _ldslot,(sp)
jsr _ftkind
move R0,_ldkind
*line 726
*line 726
cmp #-1,_ldkind
bne L96
*line 727
*line 728
*line 729
*line 730
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
clr.l -(sp)
move.l #L97,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 731
*line 732
jsr _clrlsel
*line 733
move #-1,R0
bra L95
*line 734
*line 735
L96:
*line 736
move.l #L98,(sp)
jsr _ldbusy
*line 739
move _ldkind,R0
bra L100
*line 740
L101:
*line 741
*line 742
*line 743
*line 744
jsr _get_asg
tst R0
beq L102
*line 744
move #-1,R0
bra L95
*line 745
L102:bra L99
*line 746
*line 747
L103:
*line 748
L104:
*line 749
L105:
*line 750
*line 751
*line 752
*line 753
move _ldkind,(sp)
move _lorchl,-(sp)
jsr _get_orc
addq.l #2,sp
tst R0
beq L106
*line 753
move #-1,R0
bra L95
*line 754
L106:bra L99
*line 755
*line 756
L107:
*line 757
*line 758
*line 759
*line 760
jsr _get_pat
tst R0
beq L108
*line 760
move #-1,R0
bra L95
*line 761
L108:bra L99
*line 762
*line 763
L109:
*line 764
*line 765
*line 766
*line 767
jsr _get_scr
tst R0
beq L110
*line 767
move #-1,R0
bra L95
*line 768
L110:bra L99
*line 769
*line 770
L111:
*line 771
*line 772
*line 773
*line 774
jsr _get_seq
tst R0
beq L112
*line 774
move #-1,R0
bra L95
*line 775
L112:bra L99
*line 776
*line 777
L113:
*line 778
*line 779
*line 780
*line 781
jsr _get_tun
tst R0
beq L114
*line 781
move #-1,R0
bra L95
*line 782
L114:bra L99
*line 783
*line 784
L115:
*line 785
*line 786
*line 787
*line 788
jsr _get_wav
tst R0
beq L116
*line 788
move #-1,R0
bra L95
*line 789
L116:bra L99
*line 790
*line 791
L117:
*line 792
*line 793
*line 794
*line 795
*line 796
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
clr.l -(sp)
move.l #L118,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 797
*line 798
jsr _clrlsel
*line 799
move #-1,R0
bra L95
bra L99
L100:sub #1,R0
cmp #8,R0
bhi L117
asl #2,R0
move R0,R8
add.l #L119,R8
move.l (R8),R8
jmp (R8)
.data
L119:.dc.l L101
.dc.l L104
.dc.l L103
.dc.l L109
.dc.l L113
.dc.l L115
.dc.l L105
.dc.l L107
.dc.l L111
.text
L99:
*line 804
move #8,(sp)
move _ldslot,R0
muls #56,R0
add.l #_filecat,R0
move.l R0,-(sp)
add.l #4,(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 805
move #37,(sp)
move _ldslot,R0
muls #56,R0
add.l #_filecat,R0
move.l R0,-(sp)
add.l #17,(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 806
move _ldkind,(sp)
jsr _savefc
*line 808
jsr _clrlsel
*line 810
*line 810
tst _lrasw
beq L120
*line 811
*line 812
clr (sp)
jsr _ldswin
*line 813
move #8,(sp)
jsr _ldswin
*line 814
*line 815
L120:
*line 816
move #3,(sp)
jsr _ldswin
*line 817
move #5,(sp)
jsr _ldswin
*line 818
jsr _showsiz
*line 819
clr R0
bra L95
L95:unlk R14
rts
.globl _ldfnbox
.text
_ldfnbox:
~~ldfnbox:
~n=8
link R14,#0
movem.l R3-R7,-(sp)
~col=R7
~i=R6
~slot=R5
~sn=R4
*line 837
move _hitcx,R7
asr #3,R7
*line 839
*line 840
tst _lderrsw
beq L122
*line 840
jsr _clrerms
*line 841
L122:
*line 842
move 8(R14),R0
bra L124
*line 843
L125:
*line 844
*line 845
*line 846
*line 847
clr (sp)
jsr _lcancel
tst R0
beq L126
*line 847
clr R0
bra L121
*line 848
L126:
*line 849
*line 849
tst _lselsw
beq L127
*line 850
*line 851
*line 851
tst _lrasw
beq L128
*line 852
*line 853
*line 853
cmp #4,_ldkind
bne L129
*line 854
*line 855
move _hitcy,(sp)
jsr _ldline
move R0,R4
sub #1,R4
*line 856
*line 857
*line 857
move R4,R0
muls #20,R0
add.l #_sindex,R0
move.l R0,R8
cmp.l #$ffffffff,(R8)
beq L130
*line 858
*line 859
*line 859
move R4,R0
add #1,R0
cmp _ldrow,R0
beq L131
*line 860
*line 861
move _ldrow,(sp)
sub #1,(sp)
move 24+_ldbox,-(sp)
jsr _dpy_scr
addq.l #2,sp
*line 862
move R4,R0
add #1,R0
move R0,_ldrow
*line 863
*line 864
L131:
*line 865
move R4,(sp)
move #13,-(sp)
jsr _dpy_scr
addq.l #2,sp
*line 866
move R4,_lksel
*line 867
bra L132
L130:
*line 868
*line 869
*line 870
move #-1,_lksel
L132:
*line 871
*line 872
*line 873
clr R0
bra L121
*line 874
L129:
*line 875
*line 876
L128:
*line 877
*line 877
move _hitcy,(sp)
jsr _ldline
cmp _ldrow,R0
beq L133
*line 878
*line 879
jsr _clrlsel
*line 880
clr R0
bra L121
*line 881
*line 882
L133:
*line 883
jsr _getit
bra L121
*line 884
*line 885
bra L134
L127:
*line 886
*line 887
*line 888
*line 888
move _hitcy,(sp)
jsr _ldline
move R0,_ldrow
beq L135
*line 889
*line 890
*line 890
cmp #11,R7
bne L136
*line 891
*line 892
*line 892
tst _catin
beq L137
tst _ltagged
beq L137
*line 893
*line 894
move _ldrow,(sp)
jsr _lin2slt
move R0,R5
*line 895
*line 896
*line 896
cmp _tagslot,R5
bne L138
*line 897
*line 898
jsr _putcat
*line 899
clr _ltagged
*line 900
jsr _showcat
*line 901
L138:
*line 902
*line 903
L137:bra L139
L136:
*line 904
*line 905
*line 906
*line 906
move _ldrow,(sp)
jsr _lin2slt
move R0,_ldslot
cmp #-1,R0
beq L140
*line 907
*line 908
move #1,_lselsw
*line 909
move #8,(sp)
jsr _ldswin
*line 910
move _ldslot,(sp)
jsr _ftkind
move R0,_ldkind
*line 911
*line 912
clr R6
bra L143
L144:
*line 913
move R6,R8
add.l R8,R8
add.l #_ldmap,R8
move R6,(R8)
L142:
*line 912
add #1,R6
L143:
*line 912
cmp #20,R6
blt L144
L141:
*line 913
*line 914
*line 915
*line 916
tst _lrasw
beq L145
cmp #4,_ldkind
bne L145
*line 916
move _ldslot,(sp)
jsr _ndx_scr
bra L121
*line 917
L145:
*line 918
move _ldrow,(sp)
move #13,-(sp)
jsr _exp_c
addq.l #2,sp
move R0,-(sp)
move _ldslot,-(sp)
jsr _dslslot
addq.l #4,sp
*line 919
clr R0
bra L121
*line 920
L140:L139:
*line 921
*line 922
*line 923
L135:
*line 924
jsr _clrlsel
*line 925
move #-1,R0
bra L121
L134:
*line 926
*line 927
*line 928
L146:
*line 929
*line 930
*line 931
*line 932
move #3,(sp)
jsr _lcancel
tst R0
beq L147
*line 932
clr R0
bra L121
*line 933
L147:
*line 934
*line 934
cmp #1,_lmwtype
beq L148
*line 935
*line 936
jsr _lmwvtyp
*line 937
move #10,(sp)
jsr _ldswin
*line 938
*line 939
*line 940
*line 941
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_ldbox,R9
move 10(R8,R9.l),(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_ldbox,R9
move 8(R8,R9.l),-(sp)
move.l #_endltyp,-(sp)
move.l #_nokey,-(sp)
move.l #_nokey,-(sp)
move.l #_bsplcur,-(sp)
move.l #_advlcur,-(sp)
move #33,-(sp)
move #22,-(sp)
move.l #_ldfile,-(sp)
move #10,-(sp)
move.l #_vtdisp,-(sp)
move.l _librob,-(sp)
jsr _vtsetup
adda.l #40,sp
*line 942
bra L149
L148:
*line 943
*line 944
*line 945
jsr _vtyper
L149:
*line 946
*line 947
*line 948
clr R0
bra L121
*line 949
L150:
*line 950
*line 951
*line 952
*line 953
move #3,(sp)
jsr _lcancel
tst R0
beq L151
*line 953
clr R0
bra L121
*line 954
L151:
*line 955
*line 955
cmp #1,_lmwtype
beq L152
*line 956
*line 957
jsr _lmwvtyp
*line 958
move #10,(sp)
jsr _ldswin
*line 959
*line 960
*line 961
*line 962
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_ldbox,R9
move 10(R8,R9.l),(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_ldbox,R9
move 8(R8,R9.l),-(sp)
move.l #_endltyp,-(sp)
move.l #_nokey,-(sp)
move.l #_nokey,-(sp)
move.l #_bsplcur,-(sp)
move.l #_advlcur,-(sp)
move #33,-(sp)
move #22,-(sp)
move.l #_ldcmnt,-(sp)
move #27,-(sp)
move.l #_vtdisp,-(sp)
move.l _librob,-(sp)
jsr _vtsetup
adda.l #40,sp
*line 963
bra L153
L152:
*line 964
*line 965
*line 966
jsr _vtyper
L153:
*line 967
*line 968
*line 969
clr R0
bra L121
*line 970
*line 971
*line 972
*line 973
L154:
*line 974
*line 975
*line 976
*line 977
clr (sp)
jsr _lcancel
tst R0
beq L155
*line 977
clr R0
bra L121
*line 978
L155:
*line 979
jsr _clrlsel
*line 980
jsr _fcindex
bra L121
*line 981
L156:
*line 982
*line 983
*line 984
*line 985
tst _lselsw
beq L157
tst _lrasw
beq L157
*line 985
jsr _getit
bra L121
*line 986
L157:
*line 987
tst _lrasw
beq L10005
clr R0
bra L10006
L10005:move #1,R0
L10006:move R0,_lrasw
*line 988
move #7,(sp)
jsr _ldswin
*line 989
clr R0
bra L121
*line 990
L158:
*line 991
*line 992
*line 993
tst _lorchl
beq L10007
clr R0
bra L10008
L10007:move #1,R0
L10008:move R0,_lorchl
*line 994
move #8,(sp)
jsr _ldswin
*line 995
clr R0
bra L121
*line 996
*line 997
*line 998
L159:
*line 999
*line 1000
*line 1001
*line 1002
move #1,(sp)
jsr _lcancel
tst R0
beq L160
*line 1002
clr R0
bra L121
*line 1003
L160:
*line 1004
*line 1004
cmp #321,_cyval
bge L161
*line 1005
*line 1006
*line 1007
*line 1008
*line 1008
cmp #120,_cxval
bge L162
*line 1009
*line 1010
*line 1011
*line 1012
*line 1012
tst _lstrsw
beq L163
*line 1013
*line 1014
jsr _storit
*line 1015
bra L164
L163:
*line 1016
*line 1017
*line 1018
move #1,_lstrsw
*line 1019
move #9,(sp)
jsr _ldswin
L164:
*line 1020
*line 1021
*line 1022
clr R0
bra L121
*line 1023
bra L165
L162:
*line 1024
*line 1024
cmp #135,_cxval
ble L166
cmp #176,_cxval
bge L166
*line 1025
*line 1026
*line 1027
*line 1028
tst _lscrsw
beq L10009
clr R0
bra L10010
L10009:move #1,R0
L10010:move R0,_lscrsw
*line 1029
move #9,(sp)
jsr _ldswin
*line 1030
*line 1031
*line 1032
tst _lstrsw
beq L167
*line 1032
jsr _storit
*line 1033
L167:
*line 1034
clr R0
bra L121
*line 1035
bra L168
L166:
*line 1036
*line 1036
cmp #191,_cxval
ble L169
*line 1037
*line 1038
*line 1039
*line 1040
tst _lorchsw
beq L10011
clr R0
bra L10012
L10011:move #1,R0
L10012:move R0,_lorchsw
*line 1041
move #9,(sp)
jsr _ldswin
*line 1042
*line 1043
*line 1044
tst _lstrsw
beq L170
*line 1044
jsr _storit
*line 1045
L170:
*line 1046
clr R0
bra L121
*line 1047
*line 1048
*line 1049
L169:L168:L165:bra L171
L161:
*line 1050
*line 1050
cmp #321,_cyval
ble L172
cmp #335,_cyval
bge L172
*line 1051
*line 1052
*line 1053
*line 1054
*line 1054
cmp #120,_cxval
bge L173
*line 1055
*line 1056
tst _lwavsw
beq L10013
clr R0
bra L10014
L10013:move #1,R0
L10014:move R0,_lwavsw
*line 1057
move #9,(sp)
jsr _ldswin
*line 1058
*line 1059
*line 1060
tst _lstrsw
beq L174
*line 1060
jsr _storit
*line 1061
L174:
*line 1062
clr R0
bra L121
*line 1063
bra L175
L173:
*line 1064
*line 1064
cmp #135,_cxval
ble L176
cmp #176,_cxval
bge L176
*line 1065
*line 1066
*line 1067
*line 1068
tst _lpatsw
beq L10015
clr R0
bra L10016
L10015:move #1,R0
L10016:move R0,_lpatsw
*line 1069
move #9,(sp)
jsr _ldswin
*line 1070
*line 1071
*line 1072
tst _lstrsw
beq L177
*line 1072
jsr _storit
*line 1073
L177:
*line 1074
clr R0
bra L121
*line 1075
bra L178
L176:
*line 1076
*line 1076
cmp #191,_cxval
ble L179
*line 1077
*line 1078
tst _lorclsw
beq L10017
clr R0
bra L10018
L10017:move #1,R0
L10018:move R0,_lorclsw
*line 1079
move #9,(sp)
jsr _ldswin
*line 1080
*line 1081
*line 1082
tst _lstrsw
beq L180
*line 1082
jsr _storit
*line 1083
L180:
*line 1084
clr R0
bra L121
*line 1085
*line 1086
*line 1087
L179:L178:L175:bra L181
L172:
*line 1088
*line 1088
cmp #335,_cyval
ble L182
*line 1089
*line 1090
*line 1091
*line 1092
*line 1092
cmp #120,_cxval
bge L183
*line 1093
*line 1094
tst _lasgsw
beq L10019
clr R0
bra L10020
L10019:move #1,R0
L10020:move R0,_lasgsw
*line 1095
move #9,(sp)
jsr _ldswin
*line 1096
*line 1097
*line 1098
tst _lstrsw
beq L184
*line 1098
jsr _storit
*line 1099
L184:
*line 1100
clr R0
bra L121
*line 1101
bra L185
L183:
*line 1102
*line 1102
cmp #135,_cxval
ble L186
cmp #176,_cxval
bge L186
*line 1103
*line 1104
*line 1105
*line 1106
tst _lseqsw
beq L10021
clr R0
bra L10022
L10021:move #1,R0
L10022:move R0,_lseqsw
*line 1107
move #9,(sp)
jsr _ldswin
*line 1108
*line 1109
*line 1110
tst _lstrsw
beq L187
*line 1110
jsr _storit
*line 1111
L187:
*line 1112
clr R0
bra L121
*line 1113
bra L188
L186:
*line 1114
*line 1114
cmp #191,_cxval
ble L189
*line 1115
*line 1116
tst _ltunsw
beq L10023
clr R0
bra L10024
L10023:move #1,R0
L10024:move R0,_ltunsw
*line 1117
move #9,(sp)
jsr _ldswin
*line 1118
*line 1119
*line 1120
tst _lstrsw
beq L190
*line 1120
jsr _storit
*line 1121
L190:
*line 1122
clr R0
bra L121
*line 1123
L189:L188:L185:
*line 1124
*line 1125
L182:L181:L171:
*line 1126
move #-1,R0
bra L121
*line 1127
L191:
*line 1128
*line 1129
*line 1130
move #3,(sp)
jsr _lcancel
*line 1131
move #-1,R0
bra L121
bra L123
L124:sub #1,R0
cmp #8,R0
bhi L191
asl #2,R0
move R0,R8
add.l #L192,R8
move.l (R8),R8
jmp (R8)
.data
L192:.dc.l L125
.dc.l L191
.dc.l L146
.dc.l L191
.dc.l L150
.dc.l L154
.dc.l L156
.dc.l L158
.dc.l L159
.text
L123:L121:tst.l (sp)+
movem.l (sp)+,R4-R7
unlk R14
rts
.data
L2:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L3:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L4:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$73,$6B,$69,$70,$0
L11:.dc.b $65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L12:.dc.b $55,$6E,$65,$78,$70,$65,$63,$74,$65,$64,$20,$45,$4F,$46,$0
L17:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$20,$20,$65,$74,$79,$70,$65,$20,$3D,$20,$25,$64,$0
L18:.dc.b $42,$61,$64,$20,$73,$63,$6F,$72,$65,$20,$2D,$2D,$0
L19:.dc.b $20,$20,$31,$73,$74,$20,$65,$76,$65,$6E,$74,$20,$69,$73,$20,$77,$72,$6F,$6E,$67,$0
L29:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$0
L46:.dc.b $20,$20,$0
L48:.dc.b $25,$30,$32,$64,$0
L50:.dc.b $7B,$20,$65,$6D,$70,$74,$79,$20,$73,$63,$6F,$72,$65,$20,$20,$7D,$20,$20,$20,$20,$20,$20,$30,$0
L52:.dc.b $25,$2D,$31,$36,$2E,$31,$36,$73,$20,$20,$25,$35,$6C,$64,$0
L55:.dc.b $4E,$6F,$20,$53,$63,$6F,$72,$65,$20,$4E,$61,$6D,$65,$20,$20,$20,$20,$20,$20,$20,$4C,$65,$6E,$67,$74,$68,$0
L65:.dc.b $72,$0
L67:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L68:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
L69:.dc.b $20,$20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
L71:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L72:.dc.b $53,$65,$65,$6B,$20,$66,$61,$69,$6C,$75,$72,$65,$0
L78:.dc.b $20,$20,$6F,$66,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L79:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L80:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$72,$65,$61,$64,$20,$74,$68,$65,$20,$6C,$65,$6E,$67,$74,$68,$0
L83:.dc.b $20,$20,$6F,$66,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L84:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L85:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$72,$65,$61,$64,$20,$74,$68,$65,$20,$6E,$61,$6D,$65,$0
L87:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L88:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$3D,$25,$64,$20,$20,$72,$6C,$65,$6E,$3D,$25,$6C,$64,$0
L89:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$73,$6B,$69,$70,$20,$70,$61,$73,$74,$0
L97:.dc.b $55,$6E,$6B,$6E,$6F,$77,$6E,$20,$66,$69,$6C,$65,$20,$74,$79,$70,$65,$0
L98:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$66,$69,$6C,$65,$0
L118:.dc.b $6C,$64,$6B,$69,$6E,$64,$20,$62,$61,$64,$0