.globl _Cbuffs
.globl _Stdbufs
.globl _Stdbuf
.globl _errno
.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 _ebflag
.globl _ebuf
.globl _curfet
.globl _cfetp
.globl _infetp
.globl _stmptr
.globl _defptr
.globl _patches
.globl _defents
.globl _seqtab
.globl _seqflag
.globl _seqline
.globl _seqstim
.globl _seqtime
.globl _sregval
.globl _trstate
.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 _filecat
.globl _ldslot
.globl _lderrsw
.globl _lrasw
.globl _tunlib
.globl _lcsum
.globl _schksum
.globl _sntlreq
.globl _tunname
.globl _ldfile
.globl _ldcmnt
.globl _ldhead
.globl _asgtab
.globl _wslib
.globl _idefs
.globl _stimes
.globl _wrt_asg
.text
_wrt_asg:
~~wrt_asg:
~slot=8
link R14,#-8
movem.l R6-R7/R13-R13,-(sp)
~fp=R13
~i=R7
~cstemp=-8
*line 79
jsr _preio
*line 81
move.l #L2,(sp)
move #1,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 83
*line 83
move.l R13,R0
bne L3
*line 84
*line 85
*line 86
*line 87
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L5,-(sp)
move.l #L4,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 88
*line 89
jsr _postio
*line 90
jsr _streset
*line 91
move #-1,R0
bra L1
*line 92
*line 93
L3:
*line 94
move #1,(sp)
jsr _makelh
*line 96
clr R7
bra L8
L9:
*line 97
move.l #$14c,(sp)
move R7,R0
add #1,R0
muls #332,R0
add.l #_asgtab,R0
move.l R0,-(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
L7:
*line 96
add #1,R7
L8:
*line 96
cmp #99,R7
blt L9
L6:
*line 99
move.l _lcsum,(sp)
move.l #L10,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
addq.l #8,sp
*line 100
move #8,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 109
*line 109
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L11
*line 110
*line 111
jsr _streset
*line 112
move #-1,R0
bra L1
*line 113
*line 114
L11:
*line 115
clr R7
bra L14
L15:
*line 116
*line 117
*line 117
move.l #$14c,(sp)
move R7,R0
add #1,R0
muls #332,R0
add.l #_asgtab,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L16
*line 118
*line 119
jsr _streset
*line 120
move #-1,R0
bra L1
*line 121
L16:L13:
*line 115
add #1,R7
L14:
*line 115
cmp #99,R7
blt L15
L12:
*line 124
move.l R13,(sp)
jsr _fclose
*line 125
jsr _postio
*line 126
clr R0
bra L1
L1:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _get_asg
.text
_get_asg:
~~get_asg:
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~fp=R13
~i=R7
*line 144
jsr _preio
*line 146
move.l #L18,(sp)
move #1,-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 148
*line 148
move.l R13,R0
bne L19
*line 149
*line 150
*line 151
*line 152
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L21,-(sp)
move.l #L20,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 153
*line 154
jsr _postio
*line 155
jsr _clrlsel
*line 156
move #-1,R0
bra L17
*line 157
*line 158
L19:
*line 159
move #8,(sp)
move.l #L22,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 160
move #37,(sp)
move.l #L23,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 161
move #3,(sp)
jsr _ldswin
*line 162
move #5,(sp)
jsr _ldswin
*line 166
*line 166
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L24
*line 167
*line 168
jsr _clrlsel
*line 169
move #-1,R0
bra L17
*line 170
*line 171
*line 175
*line 176
*line 177
L24:
*line 178
clr R7
bra L27
L28:
*line 179
*line 180
*line 180
move.l #$14c,(sp)
move R7,R0
add #1,R0
muls #332,R0
add.l #_asgtab,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L29
*line 181
*line 182
jsr _clrlsel
*line 183
move #-1,R0
bra L17
*line 184
L29:L26:
*line 178
add #1,R7
L27:
*line 178
cmp #99,R7
blt L28
L25:
*line 187
jsr _clrlsel
*line 188
move.l R13,(sp)
jsr _fclose
*line 189
jsr _postio
*line 190
clr R0
bra L17
L17:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _wrt_orc
.text
_wrt_orc:
~~wrt_orc:
~slot=8
~lorh=10
link R14,#-8
movem.l R6-R7/R12-R13,-(sp)
~fp=R13
~i=R7
~ip=R12
~cstemp=-8
*line 211
*line 212
tst 10(R14)
beq L31
*line 212
move.l #L32,(sp)
jsr _ldbusy
*line 213
bra L33
L31:
*line 214
move.l #L34,(sp)
jsr _ldbusy
L33:
*line 216
jsr _preio
*line 218
move.l #L35,(sp)
move #7,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 220
*line 220
move.l R13,R0
bne L36
*line 221
*line 222
*line 223
*line 224
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L38,-(sp)
move.l #L37,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 225
*line 226
jsr _postio
*line 227
jsr _streset
*line 228
move #-1,R0
bra L30
*line 229
*line 230
L36:
*line 231
move #7,(sp)
jsr _makelh
*line 233
clr R7
bra L41
L42:
*line 234
*line 235
move R7,R0
tst 10(R14)
beq L10000
move #20,R1
bra L10002
L10000:clr R1
L10002:add R1,R0
add #1,R0
muls #3938,R0
move.l R0,R12
add.l #_idefs,R12
*line 236
*line 237
move.l #1778+_idefs,R0
sub.l #_idefs,R0
move.l R0,(sp)
move.l R12,-(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
*line 238
move.l #$23c,(sp)
move.l R12,-(sp)
add.l #2286,(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
*line 239
move.l #$23c,(sp)
move.l R12,-(sp)
add.l #3366,(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
L40:
*line 233
add #1,R7
L41:
*line 233
cmp #20,R7
blt L42
L39:
*line 242
move.l _lcsum,(sp)
move.l #L43,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
addq.l #8,sp
*line 243
move #8,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 252
*line 252
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L44
*line 253
*line 254
jsr _streset
*line 255
move #-1,R0
bra L30
*line 256
*line 257
L44:
*line 258
clr R7
bra L47
L48:
*line 259
*line 260
move R7,R0
tst 10(R14)
beq L10003
move #20,R1
bra L10005
L10003:clr R1
L10005:add R1,R0
add #1,R0
muls #3938,R0
move.l R0,R12
add.l #_idefs,R12
*line 261
*line 262
*line 262
move.l #1778+_idefs,R0
sub.l #_idefs,R0
move.l R0,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L49
*line 263
*line 264
jsr _streset
*line 265
move #-1,R0
bra L30
*line 266
*line 267
L49:
*line 268
*line 268
move.l #$23c,(sp)
move.l R12,-(sp)
add.l #2286,(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L50
*line 269
*line 270
jsr _streset
*line 271
move #-1,R0
bra L30
*line 272
*line 273
L50:
*line 274
*line 274
move.l #$23c,(sp)
move.l R12,-(sp)
add.l #3366,(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L51
*line 275
*line 276
jsr _streset
*line 277
move #-1,R0
bra L30
*line 278
L51:L46:
*line 258
add #1,R7
L47:
*line 258
cmp #20,R7
blt L48
L45:
*line 281
move.l R13,(sp)
jsr _fclose
*line 282
jsr _postio
*line 283
clr R0
bra L30
L30:tst.l (sp)+
movem.l (sp)+,R7-R7/R12-R13
unlk R14
rts
.globl _get_orc
.text
_get_orc:
~~get_orc:
~lorh=8
~kind=10
link R14,#0
movem.l R6-R7/R12-R13,-(sp)
~fp=R13
~i=R7
~ip=R12
*line 303
*line 304
tst 8(R14)
beq L53
*line 304
move.l #L54,(sp)
jsr _ldbusy
*line 305
bra L55
L53:
*line 306
move.l #L56,(sp)
jsr _ldbusy
L55:
*line 308
jsr _preio
*line 310
move.l #L57,(sp)
move 10(R14),-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 312
*line 312
move.l R13,R0
bne L58
*line 313
*line 314
*line 315
*line 316
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L60,-(sp)
move.l #L59,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 317
*line 318
jsr _postio
*line 319
jsr _clrlsel
*line 320
move #-1,R0
bra L52
*line 321
*line 322
L58:
*line 323
move #8,(sp)
move.l #L61,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 324
move #37,(sp)
move.l #L62,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 325
move #3,(sp)
jsr _ldswin
*line 326
move #5,(sp)
jsr _ldswin
*line 330
*line 330
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L63
*line 331
*line 332
jsr _clrlsel
*line 333
move #-1,R0
bra L52
*line 334
*line 335
*line 339
*line 340
*line 341
L63:
*line 342
clr R7
bra L66
L67:
*line 343
*line 344
move R7,R0
tst 8(R14)
beq L10006
move #20,R1
bra L10008
L10006:clr R1
L10008:add R1,R0
add #1,R0
muls #3938,R0
move.l R0,R12
add.l #_idefs,R12
*line 345
*line 346
*line 346
move.l #1778+_idefs,R0
sub.l #_idefs,R0
move.l R0,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L68
*line 347
*line 348
jsr _clrlsel
*line 349
move #-1,R0
bra L52
*line 350
*line 351
L68:
*line 352
*line 352
move.l #$23c,(sp)
move.l R12,-(sp)
add.l #2286,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L69
*line 353
*line 354
jsr _clrlsel
*line 355
move #-1,R0
bra L52
*line 356
*line 357
L69:
*line 358
*line 358
move.l #$23c,(sp)
move.l R12,-(sp)
add.l #3366,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L70
*line 359
*line 360
jsr _clrlsel
*line 361
move #-1,R0
bra L52
*line 362
*line 363
*line 364
*line 365
L70:
*line 366
move #254,(sp)
move.l R12,-(sp)
add.l #2286,(sp)
move.l R12,-(sp)
add.l #1778,(sp)
jsr _memcpyw
addq.l #8,sp
*line 367
move #254,(sp)
move.l R12,-(sp)
add.l #3366,(sp)
move.l R12,-(sp)
add.l #2858,(sp)
jsr _memcpyw
addq.l #8,sp
L65:
*line 342
add #1,R7
L66:
*line 342
cmp #20,R7
blt L67
L64:
*line 370
jsr _clrlsel
*line 371
move.l R13,(sp)
jsr _fclose
*line 372
jsr _postio
*line 373
clr R0
bra L52
L52:tst.l (sp)+
movem.l (sp)+,R7-R7/R12-R13
unlk R14
rts
.globl _wrt_tun
.text
_wrt_tun:
~~wrt_tun:
~slot=8
link R14,#-8
movem.l R6-R7/R13-R13,-(sp)
~fp=R13
~i=R7
~cstemp=-8
*line 393
jsr _preio
*line 395
move.l #L72,(sp)
move #5,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 397
*line 397
move.l R13,R0
bne L73
*line 398
*line 399
*line 400
*line 401
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L75,-(sp)
move.l #L74,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 402
*line 403
jsr _postio
*line 404
jsr _streset
*line 405
move #-1,R0
bra L71
*line 406
*line 407
L73:
*line 408
move #5,(sp)
jsr _makelh
*line 410
clr R7
bra L78
L79:
*line 411
*line 412
move.l #$100,(sp)
move R7,R0
add #1,R0
asl #8,R0
ext.l R0
add.l #_tunlib,R0
move.l R0,-(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
*line 413
move.l #$20,(sp)
move R7,R0
add #1,R0
asl #5,R0
ext.l R0
add.l #_tunname,R0
move.l R0,-(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
L77:
*line 410
add #1,R7
L78:
*line 410
cmp #9,R7
blt L79
L76:
*line 416
move.l _lcsum,(sp)
move.l #L80,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
addq.l #8,sp
*line 417
move #8,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 426
*line 426
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L81
*line 427
*line 428
jsr _streset
*line 429
move #-1,R0
bra L71
*line 430
*line 431
L81:
*line 432
clr R7
bra L84
L85:
*line 433
*line 434
*line 434
move.l #$100,(sp)
move R7,R0
add #1,R0
asl #8,R0
ext.l R0
add.l #_tunlib,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L86
*line 435
*line 436
jsr _streset
*line 437
move #-1,R0
bra L71
*line 438
*line 439
L86:
*line 440
*line 440
move.l #$20,(sp)
move R7,R0
add #1,R0
asl #5,R0
ext.l R0
add.l #_tunname,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L87
*line 441
*line 442
jsr _streset
*line 443
move #-1,R0
bra L71
*line 444
L87:L83:
*line 432
add #1,R7
L84:
*line 432
cmp #9,R7
blt L85
L82:
*line 447
move.l R13,(sp)
jsr _fclose
*line 448
jsr _postio
*line 449
clr R0
bra L71
L71:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _get_tun
.text
_get_tun:
~~get_tun:
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~fp=R13
~i=R7
*line 467
jsr _preio
*line 469
move.l #L89,(sp)
move #5,-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 471
*line 471
move.l R13,R0
bne L90
*line 472
*line 473
*line 474
*line 475
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L92,-(sp)
move.l #L91,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 476
*line 477
jsr _postio
*line 478
jsr _clrlsel
*line 479
move #-1,R0
bra L88
*line 480
*line 481
L90:
*line 482
move #8,(sp)
move.l #L93,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 483
move #37,(sp)
move.l #L94,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 484
move #3,(sp)
jsr _ldswin
*line 485
move #5,(sp)
jsr _ldswin
*line 489
*line 489
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L95
*line 490
*line 491
jsr _clrlsel
*line 492
move #-1,R0
bra L88
*line 493
*line 494
*line 498
*line 499
*line 500
L95:
*line 501
clr R7
bra L98
L99:
*line 502
*line 503
*line 503
move.l #$100,(sp)
move R7,R0
add #1,R0
asl #8,R0
ext.l R0
add.l #_tunlib,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L100
*line 504
*line 505
jsr _clrlsel
*line 506
move #-1,R0
bra L88
*line 507
*line 508
L100:
*line 509
*line 509
move.l #$20,(sp)
move R7,R0
add #1,R0
asl #5,R0
ext.l R0
add.l #_tunname,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L101
*line 510
*line 511
jsr _clrlsel
*line 512
move #-1,R0
bra L88
*line 513
L101:L97:
*line 501
add #1,R7
L98:
*line 501
cmp #9,R7
blt L99
L96:
*line 516
jsr _clrlsel
*line 517
move.l R13,(sp)
jsr _fclose
*line 518
jsr _postio
*line 519
clr R0
bra L88
L88:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _wrt_pat
.text
_wrt_pat:
~~wrt_pat:
~slot=8
link R14,#-8
movem.l R7-R7/R13-R13,-(sp)
~fp=R13
~cstemp=-8
*line 538
jsr _preio
*line 540
move.l #L103,(sp)
move #8,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 542
*line 542
move.l R13,R0
bne L104
*line 543
*line 544
*line 545
*line 546
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L106,-(sp)
move.l #L105,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 547
*line 548
jsr _postio
*line 549
jsr _streset
*line 550
move #-1,R0
bra L102
*line 551
*line 552
L104:
*line 553
move #8,(sp)
jsr _makelh
*line 555
move.l _lcsum,(sp)
move.l #L107,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
addq.l #8,sp
*line 556
move #8,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 565
*line 565
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L108
*line 566
*line 567
jsr _streset
*line 568
move #-1,R0
bra L102
*line 569
*line 570
L108:
*line 571
*line 571
move.l R13,(sp)
jsr _ptwrite
tst R0
beq L109
*line 572
*line 573
jsr _streset
*line 574
move #-1,R0
bra L102
*line 575
*line 576
L109:
*line 577
move.l R13,(sp)
jsr _fclose
*line 578
jsr _postio
*line 579
clr R0
bra L102
L102:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _get_pat
.text
_get_pat:
~~get_pat:
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
~fp=R13
*line 596
jsr _preio
*line 598
move.l #L111,(sp)
move #8,-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 600
*line 600
move.l R13,R0
bne L112
*line 601
*line 602
*line 603
*line 604
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L114,-(sp)
move.l #L113,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 605
*line 606
jsr _postio
*line 607
jsr _clrlsel
*line 608
move #-1,R0
bra L110
*line 609
*line 610
L112:
*line 611
move #8,(sp)
move.l #L115,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 612
move #37,(sp)
move.l #L116,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 613
move #3,(sp)
jsr _ldswin
*line 614
move #5,(sp)
jsr _ldswin
*line 618
*line 618
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L117
*line 619
*line 620
jsr _clrlsel
*line 621
move #-1,R0
bra L110
*line 622
*line 623
*line 627
*line 628
L117:
*line 629
*line 630
tst _lrasw
bne L118
*line 630
jsr _initpt
*line 631
L118:
*line 632
*line 632
move.l R13,(sp)
jsr _ptread
tst R0
beq L119
*line 633
*line 634
jsr _clrlsel
*line 635
move #-1,R0
bra L110
*line 636
*line 637
L119:
*line 638
move.l R13,(sp)
jsr _fclose
*line 639
jsr _postio
*line 640
jsr _clrlsel
*line 641
clr R0
bra L110
L110:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _wrt_scr
.text
_wrt_scr:
~~wrt_scr:
~slot=8
link R14,#-12
movem.l R6-R7/R13-R13,-(sp)
~fp=R13
~i=R7
~tnb=-4
~cstemp=-12
*line 662
jsr _preio
*line 664
move.l #L121,(sp)
move #4,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 666
*line 666
move.l R13,R0
bne L122
*line 667
*line 668
*line 669
*line 670
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L124,-(sp)
move.l #L123,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 671
*line 672
jsr _postio
*line 673
jsr _streset
*line 674
move #-1,R0
bra L120
*line 675
*line 676
L122:
*line 677
move #4,(sp)
jsr _makelh
*line 679
move.l _sntlreq,R0
add.l R0,_lcsum
*line 681
move.l _lcsum,(sp)
move.l #L125,-(sp)
move.l R14,-(sp)
add.l #-12,(sp)
jsr _sprintf
addq.l #8,sp
*line 682
move #8,(sp)
move.l R14,-(sp)
add.l #-12,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 691
*line 691
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L126
*line 692
*line 693
jsr _streset
*line 694
move #-1,R0
bra L120
*line 695
*line 696
L126:
*line 697
*line 697
move.l #$4,(sp)
move.l #_sntlreq,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L127
*line 698
*line 699
jsr _streset
*line 700
move #-1,R0
bra L120
*line 701
*line 702
L127:
*line 703
clr R7
bra L130
L131:
*line 704
*line 705
*line 705
move.l R13,(sp)
move R7,-(sp)
jsr _scwrite
addq.l #2,sp
tst R0
beq L132
*line 706
*line 707
jsr _streset
*line 708
move #-1,R0
bra L120
*line 709
L132:L129:
*line 703
add #1,R7
L130:
*line 703
cmp #20,R7
blt L131
L128:
*line 712
move.l R13,(sp)
jsr _fclose
*line 713
jsr _postio
*line 714
clr R0
bra L120
L120:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _get_scr
.text
_get_scr:
~~get_scr:
link R14,#-4
movem.l R6-R7/R13-R13,-(sp)
~fp=R13
~i=R7
~tnl=-4
*line 733
jsr _preio
*line 735
move.l #L134,(sp)
move #4,-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 737
*line 737
move.l R13,R0
bne L135
*line 738
*line 739
*line 740
*line 741
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L137,-(sp)
move.l #L136,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 742
*line 743
jsr _postio
*line 744
jsr _clrlsel
*line 745
move #-1,R0
bra L133
*line 746
*line 747
L135:
*line 748
move #8,(sp)
move.l #L138,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 749
move #37,(sp)
move.l #L139,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 750
move #3,(sp)
jsr _ldswin
*line 751
move #5,(sp)
jsr _ldswin
*line 755
*line 755
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L140
*line 756
*line 757
jsr _clrlsel
*line 758
move #-1,R0
bra L133
*line 759
*line 760
*line 764
*line 765
*line 766
L140:
*line 767
*line 767
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 L141
*line 768
*line 769
jsr _clrlsel
*line 770
move #-1,R0
bra L133
*line 771
*line 772
L141:
*line 773
*line 774
tst _lrasw
bne L142
*line 774
jsr _scinit
*line 775
L142:
*line 776
clr R7
bra L145
L146:
*line 777
*line 778
*line 778
move.l R13,(sp)
move R7,-(sp)
jsr _scread
addq.l #2,sp
tst R0
beq L147
*line 779
*line 780
jsr _clrlsel
*line 781
move #-1,R0
bra L133
*line 782
L147:L144:
*line 776
add #1,R7
L145:
*line 776
cmp #20,R7
blt L146
L143:
*line 785
move.l R13,(sp)
jsr _fclose
*line 786
jsr _postio
*line 788
clr.l R0
move.l R0,_scp
move.l R0,_p_fwd
move.l R0,_p_ctr
move.l R0,_p_cur
move.l R0,_p_bak
*line 789
clr.l R0
move.l R0,_t_ctr
move.l R0,_t_cur
*line 790
move.l _t_cur,R0
add.l #$ffffff10,R0
move.l R0,_t_bak
*line 791
move.l _t_cur,R0
add.l #$102,R0
move.l R0,_t_fwd
*line 793
clr (sp)
jsr _selscor
*line 795
jsr _clrlsel
*line 796
clr R0
bra L133
L133:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _wrt_seq
.text
_wrt_seq:
~~wrt_seq:
~slot=8
link R14,#-8
movem.l R7-R7/R13-R13,-(sp)
~fp=R13
~cstemp=-8
*line 815
jsr _preio
*line 817
move.l #L149,(sp)
move #9,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 819
*line 819
move.l R13,R0
bne L150
*line 820
*line 821
*line 822
*line 823
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L152,-(sp)
move.l #L151,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 824
*line 825
jsr _postio
*line 826
jsr _streset
*line 827
move #-1,R0
bra L148
*line 828
*line 829
L150:
*line 830
move #9,(sp)
jsr _makelh
*line 832
move.l _lcsum,(sp)
move.l #L153,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
addq.l #8,sp
*line 833
move #8,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 842
*line 842
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L154
*line 843
*line 844
jsr _streset
*line 845
move #-1,R0
bra L148
*line 846
*line 847
L154:
*line 848
*line 848
move.l R13,(sp)
jsr _sqwrite
tst R0
beq L155
*line 849
*line 850
jsr _streset
*line 851
move #-1,R0
bra L148
*line 852
*line 853
L155:
*line 854
move.l R13,(sp)
jsr _fclose
*line 855
jsr _postio
*line 856
clr R0
bra L148
L148:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _get_seq
.text
_get_seq:
~~get_seq:
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
~fp=R13
*line 873
jsr _preio
*line 875
move.l #L157,(sp)
move #9,-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 877
*line 877
move.l R13,R0
bne L158
*line 878
*line 879
*line 880
*line 881
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L160,-(sp)
move.l #L159,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 882
*line 883
jsr _postio
*line 884
jsr _clrlsel
*line 885
move #-1,R0
bra L156
*line 886
*line 887
L158:
*line 888
move #8,(sp)
move.l #L161,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 889
move #37,(sp)
move.l #L162,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 890
move #3,(sp)
jsr _ldswin
*line 891
move #5,(sp)
jsr _ldswin
*line 895
*line 895
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L163
*line 896
*line 897
jsr _clrlsel
*line 898
move #-1,R0
bra L156
*line 899
*line 900
*line 904
*line 905
L163:
*line 906
jsr _initsq
*line 908
*line 908
move.l R13,(sp)
jsr _sqread
tst R0
beq L164
*line 909
*line 910
jsr _clrlsel
*line 911
move #-1,R0
bra L156
*line 912
*line 913
L164:
*line 914
move.l R13,(sp)
jsr _fclose
*line 915
jsr _postio
*line 916
jsr _clrlsel
*line 917
clr R0
bra L156
L156:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _wrt_wav
.text
_wrt_wav:
~~wrt_wav:
~slot=8
link R14,#-8
movem.l R6-R7/R12-R13,-(sp)
~fp=R13
~i=R7
~cstemp=-8
~wp=R12
*line 938
jsr _preio
*line 940
move.l #L166,(sp)
move #6,-(sp)
move 8(R14),-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 942
*line 942
move.l R13,R0
bne L167
*line 943
*line 944
*line 945
*line 946
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L169,-(sp)
move.l #L168,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 947
*line 948
jsr _postio
*line 949
jsr _streset
*line 950
move #-1,R0
bra L165
*line 951
*line 952
L167:
*line 953
move #6,(sp)
jsr _makelh
*line 955
clr R7
bra L172
L173:
*line 956
*line 957
move R7,R0
muls #1080,R0
move.l R0,R12
add.l #_wslib,R12
*line 958
*line 959
move.l #$1fc,(sp)
move.l R12,-(sp)
add.l #508,(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
*line 960
move.l #$40,(sp)
move.l R12,-(sp)
add.l #1016,(sp)
jsr _chksum
addq.l #4,sp
add.l R0,_lcsum
L171:
*line 955
add #1,R7
L172:
*line 955
cmp #20,R7
blt L173
L170:
*line 963
move.l _lcsum,(sp)
move.l #L174,-(sp)
move.l R14,-(sp)
sub.l #8,(sp)
jsr _sprintf
addq.l #8,sp
*line 964
move #8,(sp)
move.l R14,-(sp)
sub.l #8,(sp)
move.l #_ldhead,-(sp)
jsr _memcpy
addq.l #8,sp
*line 973
*line 973
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L175
*line 974
*line 975
jsr _streset
*line 976
move #-1,R0
bra L165
*line 977
*line 978
L175:
*line 979
clr R7
bra L178
L179:
*line 980
*line 981
move R7,R0
muls #1080,R0
move.l R0,R12
add.l #_wslib,R12
*line 982
*line 983
*line 983
move.l #$1fc,(sp)
move.l R12,-(sp)
add.l #508,(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L180
*line 984
*line 985
jsr _streset
*line 986
move #-1,R0
bra L165
*line 987
*line 988
L180:
*line 989
*line 989
move.l #$40,(sp)
move.l R12,-(sp)
add.l #1016,(sp)
move.l R13,-(sp)
jsr _wr_ec
addq.l #8,sp
tst R0
beq L181
*line 990
*line 991
jsr _streset
*line 992
move #-1,R0
bra L165
*line 993
L181:L177:
*line 979
add #1,R7
L178:
*line 979
cmp #20,R7
blt L179
L176:
*line 996
move.l R13,(sp)
jsr _fclose
*line 997
jsr _postio
*line 998
clr R0
bra L165
L165:tst.l (sp)+
movem.l (sp)+,R7-R7/R12-R13
unlk R14
rts
.globl _get_wav
.text
_get_wav:
~~get_wav:
link R14,#0
movem.l R6-R7/R12-R13,-(sp)
~fp=R13
~i=R7
~wp=R12
*line 1017
jsr _preio
*line 1019
move.l #L183,(sp)
move #6,-(sp)
move _ldslot,-(sp)
jsr _slotnam
addq.l #4,sp
move.l R0,-(sp)
jsr _fopenb
addq.l #4,sp
move.l R0,R13
*line 1021
*line 1021
move.l R13,R0
bne L184
*line 1022
*line 1023
*line 1024
*line 1025
move #9,(sp)
move #14,-(sp)
clr.l -(sp)
move.l #L186,-(sp)
move.l #L185,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 1026
*line 1027
jsr _postio
*line 1028
jsr _clrlsel
*line 1029
move #-1,R0
bra L182
*line 1030
*line 1031
L184:
*line 1032
move #8,(sp)
move.l #L187,-(sp)
move.l #_ldfile,-(sp)
jsr _memcpy
addq.l #8,sp
*line 1033
move #37,(sp)
move.l #L188,-(sp)
move.l #_ldcmnt,-(sp)
jsr _memcpy
addq.l #8,sp
*line 1034
move #3,(sp)
jsr _ldswin
*line 1035
move #5,(sp)
jsr _ldswin
*line 1039
*line 1039
move.l #$38,(sp)
move.l #_ldhead,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L189
*line 1040
*line 1041
jsr _clrlsel
*line 1042
move #-1,R0
bra L182
*line 1043
*line 1044
*line 1048
*line 1049
*line 1050
L189:
*line 1051
clr R7
bra L192
L193:
*line 1052
*line 1053
move R7,R0
muls #1080,R0
move.l R0,R12
add.l #_wslib,R12
*line 1054
*line 1055
*line 1055
move.l #$1fc,(sp)
move.l R12,-(sp)
add.l #508,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L194
*line 1056
*line 1057
jsr _clrlsel
*line 1058
move #-1,R0
bra L182
*line 1059
*line 1060
L194:
*line 1061
*line 1061
move.l #$40,(sp)
move.l R12,-(sp)
add.l #1016,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L195
*line 1062
*line 1063
jsr _clrlsel
*line 1064
move #-1,R0
bra L182
*line 1065
*line 1066
*line 1067
*line 1068
L195:
*line 1069
move #254,(sp)
move.l R12,-(sp)
add.l #508,(sp)
move.l R12,-(sp)
jsr _memcpyw
addq.l #8,sp
L191:
*line 1051
add #1,R7
L192:
*line 1051
cmp #20,R7
blt L193
L190:
*line 1072
jsr _clrlsel
*line 1073
move.l R13,(sp)
jsr _fclose
*line 1074
jsr _postio
*line 1075
clr R0
bra L182
L182:tst.l (sp)+
movem.l (sp)+,R7-R7/R12-R13
unlk R14
rts
.data
L2:.dc.b $77,$0
L4:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L5:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$61,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$73,$0
L10:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L18:.dc.b $72,$0
L20:.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
L21:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$61,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$73,$0
L22:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L23:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0
L32:.dc.b $20,$20,$20,$20,$20,$20,$20,$57,$72,$69,$74,$69,$6E,$67,$20,$48,$69,$20,$4F,$72,$63,$68,$0
L34:.dc.b $20,$20,$20,$20,$20,$20,$20,$57,$72,$69,$74,$69,$6E,$67,$20,$4C,$6F,$20,$4F,$72,$63,$68,$0
L35:.dc.b $77,$0
L37:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L38:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$6F,$72,$63,$68,$65,$73,$74,$72,$61,$0
L43:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L54:.dc.b $20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$48,$69,$20,$4F,$72,$63,$68,$0
L56:.dc.b $20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$4C,$6F,$20,$4F,$72,$63,$68,$0
L57:.dc.b $72,$0
L59:.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
L60:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$6F,$72,$63,$68,$65,$73,$74,$72,$61,$0
L61:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L62:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0
L72:.dc.b $77,$0
L74:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L75:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$74,$75,$6E,$69,$6E,$67,$73,$0
L80:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L89:.dc.b $72,$0
L91:.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
L92:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$74,$75,$6E,$69,$6E,$67,$73,$0
L93:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L94:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0
L103:.dc.b $77,$0
L105:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L106:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$70,$61,$74,$63,$68,$65,$73,$0
L107:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L111:.dc.b $72,$0
L113:.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
L114:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$70,$61,$74,$63,$68,$65,$73,$0
L115:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L116:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0
L121:.dc.b $77,$0
L123:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L124:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
L125:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L134:.dc.b $72,$0
L136:.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
L137:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
L138:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L139:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0
L149:.dc.b $77,$0
L151:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L152:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$73,$0
L153:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L157:.dc.b $72,$0
L159:.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
L160:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$73,$0
L161:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L162:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0
L166:.dc.b $77,$0
L168:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
L169:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$77,$61,$76,$65,$73,$68,$61,$70,$65,$73,$0
L174:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
L183:.dc.b $72,$0
L185:.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
L186:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$77,$61,$76,$65,$73,$68,$61,$70,$65,$73,$0
L187:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
L188:.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
.dc.b $20,$20,$20,$20,$20,$20,$20,$0