Index: alcyon/scread.s
===================================================================
--- alcyon/scread.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/scread.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,1594 @@
+.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
