.globl _Cbuffs
.globl _Stdbufs
.globl _Stdbuf
.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 _schksum
.globl _errno
.globl _lderrsw
.globl _lrasw
.globl _ldmap
.globl _libsp
.globl _stimes
.globl _scioerr
.text
_scioerr:
~~scioerr:
~sn=8
~ep=10
link R14,#-84
~scid=-40
~erms=-80
*line 48
*line 49
tst.l 10(R14)
beq L2
*line 49
move.l 10(R14),(sp)
jsr _e_del
*line 50
L2:
*line 51
move 8(R14),(sp)
jsr _sc_clr
*line 52
jsr _clrlsel
*line 54
move 8(R14),(sp)
add #1,(sp)
move.l #L3,-(sp)
move.l R14,-(sp)
add.l #-40,(sp)
jsr _sprintf
addq.l #8,sp
*line 55
move _errno,(sp)
move.l #L4,-(sp)
move.l R14,-(sp)
add.l #-80,(sp)
jsr _sprintf
addq.l #8,sp
*line 57
*line 58
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-80,(sp)
move.l R14,-(sp)
add.l #-40,(sp)
move.l #L5,-(sp)
jsr _ldermsg
adda.l #14,sp
L1:unlk R14
rts
.globl _noevent
.text
_noevent:
~~noevent:
~sn=8
link R14,#-28
~scid=-24
*line 71
move 8(R14),(sp)
jsr _sc_clr
*line 72
jsr _clrlsel
*line 74
move 8(R14),(sp)
add #1,(sp)
move.l #L7,-(sp)
move.l R14,-(sp)
add.l #-24,(sp)
jsr _sprintf
addq.l #8,sp
*line 76
*line 77
move #9,(sp)
move #14,-(sp)
move.l #L9,-(sp)
move.l R14,-(sp)
add.l #-24,(sp)
move.l #L8,-(sp)
jsr _ldermsg
adda.l #14,sp
L6:unlk R14
rts
.globl _scread
.text
_scread:
~~scread:
~fp=R13
~ns=8
link R14,#-90
movem.l R4-R7/R12-R13,-(sp)
~ep=R12
~ehdr=R7
~go=R6
~sn=R5
~nbr=-4
~nev=-8
~etype=-10
~scid=-50
~erms=-90
*line 101
move.l 10(R14),R13
*line 101
move 8(R14),R8
add.l R8,R8
add.l #_ldmap,R8
move (R8),R5
*line 103
*line 103
cmp #-1,R5
bne L11
*line 104
*line 105
*line 105
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 L12
*line 106
*line 107
move 8(R14),(sp)
jsr _skperr
*line 108
move #-1,R0
bra L10
*line 109
*line 110
L12:
*line 111
*line 112
cmp.l #$ffffffff,-4(R14)
bne L13
*line 112
clr R0
bra L10
*line 113
L13:
*line 114
*line 114
move.l #$10,(sp)
move.l R13,-(sp)
jsr _skp_ec
addq.l #4,sp
tst R0
beq L14
*line 115
*line 116
move 8(R14),(sp)
jsr _skperr
*line 117
move #-1,R0
bra L10
*line 118
*line 119
L14:
*line 120
move 8(R14),(sp)
move.l R13,-(sp)
jsr _scskip
addq.l #4,sp
bra L10
*line 121
*line 122
*line 123
*line 124
L11:
*line 125
move #1,R6
*line 127
move 8(R14),(sp)
add #1,(sp)
move.l #L15,-(sp)
move.l R14,-(sp)
add.l #-50,(sp)
jsr _sprintf
addq.l #8,sp
*line 128
move R5,(sp)
add #1,(sp)
move.l #L16,-(sp)
move.l R14,-(sp)
add.l #-90,(sp)
jsr _sprintf
addq.l #8,sp
*line 130
*line 131
move #9,(sp)
move #12,-(sp)
move.l R14,-(sp)
add.l #-90,(sp)
move.l R14,-(sp)
add.l #-50,(sp)
move.l #L17,-(sp)
jsr _ldwmsg
adda.l #14,sp
*line 133
*line 133
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 L18
*line 134
*line 135
clr.l (sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 136
move #-1,R0
bra L10
*line 137
*line 138
L18:
*line 139
*line 139
cmp.l #$ffffffff,-4(R14)
bne L19
*line 140
*line 141
clr R0
bra L10
*line 142
*line 143
L19:
*line 144
*line 145
tst _lrasw
beq L20
*line 145
move R5,(sp)
jsr _sc_clr
*line 146
L20:
*line 147
*line 147
jsr _evleft
move.l R0,-8(R14)
cmp.l -4(R14),R0
bge L21
*line 148
*line 149
move R5,(sp)
add #1,(sp)
move.l #L22,-(sp)
move.l R14,-(sp)
add.l #-50,(sp)
jsr _sprintf
addq.l #8,sp
*line 150
move.l -8(R14),(sp)
move.l -4(R14),-(sp)
move.l #L23,-(sp)
move.l R14,-(sp)
add.l #-90,(sp)
jsr _sprintf
adda.l #12,sp
*line 151
*line 152
*line 153
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-90,(sp)
move.l R14,-(sp)
add.l #-50,(sp)
move.l #L24,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 154
*line 155
move #-1,R0
bra L10
*line 156
*line 157
L21:
*line 158
*line 158
move.l #$10,(sp)
move R5,R0
asl #4,R0
ext.l R0
add.l #_scname,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L25
*line 159
*line 160
clr.l (sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 161
move #-1,R0
bra L10
*line 162
*line 163
L25:
*line 164
*line 164
move.l #$f0,(sp)
move R5,R0
muls #240,R0
add.l #_stimes,R0
move.l R0,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L26
*line 165
*line 166
clr.l (sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 167
move #-1,R0
bra L10
*line 168
*line 169
L26:
*line 170
*line 170
move.l #$1,(sp)
move.l R14,-(sp)
add.l #-10,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L27
*line 171
*line 172
clr.l (sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 173
move #-1,R0
bra L10
*line 174
*line 175
L27:
*line 176
*line 176
cmp.b #1,-10(R14)
beq L28
*line 177
*line 178
move R5,(sp)
add #1,(sp)
move.l #L29,-(sp)
move.l R14,-(sp)
add.l #-50,(sp)
jsr _sprintf
addq.l #8,sp
*line 179
*line 180
*line 181
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-50,(sp)
move.l #L31,-(sp)
move.l #L30,-(sp)
jsr _ldermsg
adda.l #14,sp
*line 182
*line 183
move #-1,R0
bra L10
*line 184
*line 185
L28:
*line 186
*line 186
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L32
*line 187
*line 188
move R5,(sp)
jsr _noevent
*line 189
move #-1,R0
bra L10
*line 190
*line 191
L32:
*line 192
move.l R12,_libsp
*line 193
move R5,R8
add.l R8,R8
add.l R8,R8
add.l #_scores,R8
move.l R12,(R8)
*line 195
move.b #1,5(R12)
*line 197
*line 197
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L33
*line 198
*line 199
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 200
move #-1,R0
bra L10
*line 201
*line 202
L33:
*line 203
move.l R12,12(R12)
*line 204
move.l R12,8(R12)
*line 207
L36:
*line 208
*line 209
*line 209
move.l #$1,(sp)
move.l R14,-(sp)
add.l #-10,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L37
*line 210
*line 211
clr.l (sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 212
move #-1,R0
bra L10
*line 213
*line 214
L37:
*line 215
move.b -10(R14),R0
ext.w R0
bra L39
*line 216
L40:
*line 217
L41:
*line 218
L42:
*line 219
*line 220
*line 221
*line 221
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L43
*line 222
*line 223
move R5,(sp)
jsr _noevent
*line 224
move #-1,R0
bra L10
*line 225
*line 226
L43:
*line 227
move.b -10(R14),5(R12)
*line 228
*line 229
*line 229
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L44
*line 230
*line 231
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 232
move #-1,R0
bra L10
*line 233
*line 234
L44:
*line 235
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
bra L38
*line 236
*line 237
*line 238
L45:
*line 239
*line 240
*line 241
move #10,R7
bra L46
*line 242
*line 243
L47:
*line 244
*line 245
*line 246
move #11,R7
bra L46
*line 247
*line 248
L48:
*line 249
*line 250
*line 251
move #7,R7
bra L46
*line 252
*line 253
L49:
*line 254
*line 255
*line 256
move #8,R7
bra L46
*line 257
*line 258
L50:
*line 259
*line 260
*line 261
move #9,R7
*line 262
*line 263
L46:
*line 264
*line 265
*line 266
*line 266
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L51
*line 267
*line 268
move R5,(sp)
jsr _noevent
*line 269
move #-1,R0
bra L10
*line 270
*line 271
L51:
*line 272
move.b -10(R14),5(R12)
*line 273
*line 274
*line 274
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L52
*line 275
*line 276
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 277
move #-1,R0
bra L10
*line 278
*line 279
L52:
*line 280
*line 280
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L53
*line 281
*line 282
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 283
move #-1,R0
bra L10
*line 284
*line 285
L53:
*line 286
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
*line 287
move R7,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 288
*line 289
*line 290
cmp.b #2,-10(R14)
bne L54
*line 290
move R5,R0
muls #80,R0
move.b 6(R12),R1
ext.w R1
asl #2,R1
ext.l R1
add.l R1,R0
add.l #_seclist,R0
move.l R0,R8
move.l R12,(R8)
*line 291
L54:bra L38
*line 292
*line 293
*line 294
L55:
*line 295
L56:
*line 296
L57:
*line 297
*line 298
*line 299
*line 299
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L58
*line 300
*line 301
move R5,(sp)
jsr _noevent
*line 302
move #-1,R0
bra L10
*line 303
*line 304
L58:
*line 305
move.b -10(R14),5(R12)
*line 306
*line 307
*line 307
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L59
*line 308
*line 309
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 310
move #-1,R0
bra L10
*line 311
*line 312
L59:
*line 313
*line 313
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L60
*line 314
*line 315
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 316
move #-1,R0
bra L10
*line 317
*line 318
L60:
*line 319
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
bra L38
*line 320
*line 321
*line 322
L61:
*line 323
L62:
*line 324
*line 325
*line 326
*line 326
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L63
*line 327
*line 328
move R5,(sp)
jsr _noevent
*line 329
move #-1,R0
bra L10
*line 330
*line 331
L63:
*line 332
move.b -10(R14),5(R12)
*line 333
*line 334
*line 334
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L64
*line 335
*line 336
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 337
move #-1,R0
bra L10
*line 338
*line 339
L64:
*line 340
*line 340
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L65
*line 341
*line 342
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 343
move #-1,R0
bra L10
*line 344
*line 345
L65:
*line 346
*line 346
move.l #$1,(sp)
move.l R12,-(sp)
add.l #7,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L66
*line 347
*line 348
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 349
move #-1,R0
bra L10
*line 350
*line 351
L66:
*line 352
*line 352
move.l #$2,(sp)
move.l R12,-(sp)
add.l #16,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L67
*line 353
*line 354
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 355
move #-1,R0
bra L10
*line 356
*line 357
L67:
*line 358
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
bra L38
*line 359
*line 360
*line 361
L68:
*line 362
*line 363
*line 364
*line 364
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L69
*line 365
*line 366
move R5,(sp)
jsr _noevent
*line 367
move #-1,R0
bra L10
*line 368
*line 369
L69:
*line 370
move.b -10(R14),5(R12)
*line 371
*line 372
*line 372
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L70
*line 373
*line 374
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 375
move #-1,R0
bra L10
*line 376
*line 377
L70:
*line 378
*line 378
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L71
*line 379
*line 380
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 381
move #-1,R0
bra L10
*line 382
*line 383
L71:
*line 384
*line 384
move.l #$1,(sp)
move.l R12,-(sp)
add.l #7,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L72
*line 385
*line 386
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 387
move #-1,R0
bra L10
*line 388
*line 389
L72:
*line 390
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
bra L38
*line 391
*line 392
*line 393
L73:
*line 394
*line 395
*line 396
*line 396
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L74
*line 397
*line 398
move R5,(sp)
jsr _noevent
*line 399
move #-1,R0
bra L10
*line 400
*line 401
L74:
*line 402
move.b -10(R14),5(R12)
*line 403
*line 404
*line 404
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L75
*line 405
*line 406
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 407
move #-1,R0
bra L10
*line 408
*line 409
L75:
*line 410
*line 410
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L76
*line 411
*line 412
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 413
move #-1,R0
bra L10
*line 414
*line 415
L76:
*line 416
*line 416
move.l #$1,(sp)
move.l R12,-(sp)
add.l #7,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L77
*line 417
*line 418
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 419
move #-1,R0
bra L10
*line 420
*line 421
L77:
*line 422
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
bra L38
*line 423
*line 424
*line 425
*line 426
L78:
*line 427
*line 428
*line 429
clr R7
bra L79
*line 430
*line 431
L80:
*line 432
*line 433
*line 434
move #6,R7
bra L79
*line 435
*line 436
L81:
*line 437
*line 438
*line 439
move #1,R7
bra L79
*line 440
*line 441
L82:
*line 442
*line 443
*line 444
move #2,R7
bra L79
*line 445
*line 446
L83:
*line 447
*line 448
*line 449
move #3,R7
bra L79
*line 450
*line 451
L84:
*line 452
*line 453
*line 454
move #4,R7
*line 455
*line 456
L79:
*line 457
*line 458
*line 459
*line 459
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L85
*line 460
*line 461
move R5,(sp)
jsr _noevent
*line 462
move #-1,R0
bra L10
*line 463
*line 464
L85:
*line 465
move.b -10(R14),5(R12)
*line 466
*line 467
*line 467
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L86
*line 468
*line 469
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 470
move #-1,R0
bra L10
*line 471
*line 472
L86:
*line 473
*line 473
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L87
*line 474
*line 475
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 476
move #-1,R0
bra L10
*line 477
*line 478
L87:
*line 479
*line 479
move.l #$1,(sp)
move.l R12,-(sp)
add.l #7,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L88
*line 480
*line 481
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 482
move #-1,R0
bra L10
*line 483
*line 484
L88:
*line 485
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
*line 486
move R7,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
bra L38
*line 487
*line 488
*line 489
L89:
*line 490
*line 491
*line 492
*line 492
move #8,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L90
*line 493
*line 494
move R5,(sp)
jsr _noevent
*line 495
move #-1,R0
bra L10
*line 496
*line 497
L90:
*line 498
move.b -10(R14),5(R12)
*line 499
*line 500
*line 500
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L91
*line 501
*line 502
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 503
move #-1,R0
bra L10
*line 504
*line 505
L91:
*line 506
*line 506
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L92
*line 507
*line 508
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 509
move #-1,R0
bra L10
*line 510
*line 511
L92:
*line 512
*line 512
move.l #$2,(sp)
move.l R12,-(sp)
add.l #24,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L93
*line 513
*line 514
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 515
move #-1,R0
bra L10
*line 516
*line 517
L93:
*line 518
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
*line 519
move #6,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
bra L38
*line 520
*line 521
*line 522
L94:
*line 523
*line 524
*line 525
*line 525
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L95
*line 526
*line 527
move R5,(sp)
jsr _noevent
*line 528
move #-1,R0
bra L10
*line 529
*line 530
L95:
*line 531
move.b -10(R14),5(R12)
*line 532
*line 533
*line 533
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L96
*line 534
*line 535
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 536
move #-1,R0
bra L10
*line 537
*line 538
L96:
*line 539
*line 539
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L97
*line 540
*line 541
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 542
move #-1,R0
bra L10
*line 543
*line 544
L97:
*line 545
clr.l 16(R12)
*line 546
*line 547
*line 547
move.l #$2,(sp)
move.l R12,-(sp)
add.l #16,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L98
*line 548
*line 549
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 550
move #-1,R0
bra L10
*line 551
*line 552
L98:
*line 553
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
bra L38
*line 554
*line 555
*line 556
L99:
*line 557
*line 558
*line 559
*line 559
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L100
*line 560
*line 561
move R5,(sp)
jsr _noevent
*line 562
move #-1,R0
bra L10
*line 563
*line 564
L100:
*line 565
move.b -10(R14),5(R12)
*line 566
*line 567
*line 567
move.l #$4,(sp)
move.l R12,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L101
*line 568
*line 569
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 570
move #-1,R0
bra L10
*line 571
*line 572
L101:
*line 573
*line 573
move.l #$1,(sp)
move.l R12,-(sp)
add.l #6,(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L102
*line 574
*line 575
move.l R12,(sp)
move R5,-(sp)
jsr _scioerr
addq.l #2,sp
*line 576
move #-1,R0
bra L10
*line 577
*line 578
L102:
*line 579
move.l _libsp,(sp)
move.l R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,_libsp
*line 580
clr R6
bra L38
L39:sub #1,R0
cmp #23,R0
bhi L38
asl #2,R0
move R0,R8
add.l #L103,R8
move.l (R8),R8
jmp (R8)
.data
L103:.dc.l L55
.dc.l L45
.dc.l L47
.dc.l L78
.dc.l L61
.dc.l L62
.dc.l L41
.dc.l L80
.dc.l L48
.dc.l L49
.dc.l L81
.dc.l L82
.dc.l L83
.dc.l L94
.dc.l L84
.dc.l L50
.dc.l L89
.dc.l L56
.dc.l L57
.dc.l L68
.dc.l L99
.dc.l L73
.dc.l L40
.dc.l L42
.text
L38:
*line 581
*line 582
L35:
*line 583
tst R6
bne L36
L34:
*line 585
clr R0
bra L10
L10:tst.l (sp)+
movem.l (sp)+,R5-R7/R12-R13
unlk R14
rts
.data
L3:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L4:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L5:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
L7:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L8:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
L9:.dc.b $20,$20,$52,$61,$6E,$20,$6F,$75,$74,$20,$6F,$66,$20,$73,$70,$61,$63,$65,$0
L15:.dc.b $20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$73,$63,$6F,$72,$65,$20,$25,$32,$64,$0
L16:.dc.b $20,$20,$20,$20,$20,$20,$20,$61,$73,$20,$73,$63,$6F,$72,$65,$20,$25,$32,$64,$0
L17:.dc.b $20,$42,$75,$73,$79,$20,$2D,$2D,$20,$70,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0
L22:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$20,$2D,$20,$6E,$6F,$20,$73,$70,$61,$63,$65,$0
L23:.dc.b $20,$20,$4E,$65,$65,$64,$20,$25,$6C,$64,$2C,$20,$48,$61,$76,$65,$20,$25,$6C,$64,$0
L24:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
L29:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
L30:.dc.b $42,$61,$64,$20,$73,$63,$6F,$72,$65,$20,$2D,$2D,$0
L31:.dc.b $20,$20,$31,$73,$74,$20,$65,$76,$65,$6E,$74,$20,$69,$73,$20,$77,$72,$6F,$6E,$67,$0