.globl _Cbuffs
.globl _Stdbufs
.globl _Stdbuf
.globl _stmptr
.globl _defptr
.globl _patches
.globl _defents
.globl _seqtab
.globl _seqflag
.globl _seqline
.globl _seqstim
.globl _seqtime
.globl _sregval
.globl _trstate
.globl _filecat
.globl _dpecpos
.globl _dpepred
.globl _dpesucc
.globl _errno
.globl _ptecpos
.globl _ptepred
.globl _ptesucc
.globl _ptebuf
.globl _stashp
.text
_stashp:
~~stashp:
link R14,#0
movem.l R4-R7,-(sp)
~c=R7
~np=R6
~stim=R5
*line 57
jsr _findpte
move R0,R7
*line 59
*line 59
tst R7
bne L2
*line 60
*line 61
move #6,(sp)
move.l #4+_ptebuf,-(sp)
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,-(sp)
add.l #4,(sp)
jsr _memcpyw
addq.l #8,sp
*line 62
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
or #-32768,8(R8)
*line 63
*line 70
*line 71
*line 72
clr R0
bra L1
*line 73
*line 74
*line 75
*line 76
L2:
*line 77
*line 77
jsr _pt_alc
move R0,_ptecpos
bne L3
*line 78
*line 82
*line 83
move #-1,R0
bra L1
*line 84
*line 85
L3:
*line 86
move #6,(sp)
move.l #4+_ptebuf,-(sp)
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,-(sp)
add.l #4,(sp)
jsr _memcpyw
addq.l #8,sp
*line 87
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
or #-32768,8(R8)
*line 88
move 6+_ptebuf,R5
and #8191,R5
*line 90
*line 90
cmp #1,R7
bne L4
*line 91
*line 92
clr _ptepred
*line 93
move _ptecpos,R0
clr R9
move R5,R9
add.l #_stmptr,R9
move.b R0,(R9)
*line 94
*line 95
*line 96
*line 97
*line 98
L4:
*line 99
*line 99
tst _ptepred
beq L5
*line 100
*line 101
move _ptepred,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move (R8),_ptesucc
*line 102
*line 103
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move _ptesucc,(R8)
*line 104
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move _ptepred,2(R8)
*line 105
*line 106
move _ptepred,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move _ptecpos,(R8)
*line 107
*line 108
*line 109
tst _ptesucc
beq L6
*line 109
move _ptesucc,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move _ptecpos,2(R8)
*line 110
L6:bra L7
L5:
*line 111
*line 112
*line 113
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
clr 2(R8)
*line 114
*line 115
*line 115
cmp #-1,R7
bne L8
*line 116
*line 117
move.l #_stmptr,R8
move.b 0(R8,R5),R0
ext.w R0
move R0,_ptesucc
*line 118
*line 119
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move _ptesucc,(R8)
*line 120
*line 121
move _ptesucc,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move _ptecpos,2(R8)
*line 122
*line 123
move _ptecpos,R0
clr R9
move R5,R9
add.l #_stmptr,R9
move.b R0,(R9)
*line 124
bra L9
L8:
*line 125
*line 126
*line 127
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
clr (R8)
L9:
*line 128
L7:
*line 134
*line 134
jsr _finddpe
move R0,R7
tst R7
bne L10
*line 135
*line 145
*line 146
clr R0
bra L1
*line 147
*line 148
L10:
*line 149
*line 149
jsr _dt_alc
move R0,_dpecpos
bne L11
*line 150
*line 154
*line 155
move #-1,R0
bra L1
*line 156
*line 157
L11:
*line 158
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
clr (R8)
*line 159
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move 6+_ptebuf,2(R8)
*line 160
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move 8+_ptebuf,4(R8)
*line 161
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move 10+_ptebuf,6(R8)
*line 162
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move 12+_ptebuf,8(R8)
*line 164
move 4+_ptebuf,R6
and #8191,R6
*line 166
*line 166
cmp #1,R7
bne L12
*line 167
*line 168
clr _dpepred
*line 169
move _dpecpos,R0
clr R9
move R6,R9
add.l #_defptr,R9
move.b R0,(R9)
*line 170
*line 171
*line 172
L12:
*line 173
*line 173
tst _dpepred
beq L13
*line 174
*line 175
move _dpepred,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move (R8),_dpesucc
*line 176
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move _dpesucc,(R8)
*line 177
move _dpepred,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move _dpecpos,(R8)
*line 178
bra L14
L13:
*line 179
*line 180
*line 181
*line 181
cmp #-1,R7
bne L15
*line 182
*line 183
move.l #_defptr,R8
move.b 0(R8,R6),R0
ext.w R0
move R0,_dpesucc
*line 184
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move _dpesucc,(R8)
*line 185
move _dpecpos,R0
clr R9
move R6,R9
add.l #_defptr,R9
move.b R0,(R9)
*line 186
bra L16
L15:
*line 187
*line 188
*line 189
move _dpecpos,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
clr (R8)
L16:
*line 190
L14:
*line 203
clr R0
bra L1
L1:tst.l (sp)+
movem.l (sp)+,R5-R7
unlk R14
rts
.globl _ptioerr
.text
_ptioerr:
~~ptioerr:
link R14,#-44
~erms=-40
*line 219
jsr _clrlsel
*line 221
move _errno,(sp)
move.l #L18,-(sp)
move.l R14,-(sp)
add.l #-40,(sp)
jsr _sprintf
addq.l #8,sp
*line 223
*line 224
move #9,(sp)
move #14,-(sp)
move.l R14,-(sp)
add.l #-40,(sp)
move.l #L20,-(sp)
move.l #L19,-(sp)
jsr _ldermsg
adda.l #14,sp
L17:unlk R14
rts
.globl _nopatch
.text
_nopatch:
~~nopatch:
link R14,#-4
*line 235
jsr _clrlsel
*line 237
*line 238
move #9,(sp)
move #14,-(sp)
move.l #L24,-(sp)
move.l #L23,-(sp)
move.l #L22,-(sp)
jsr _ldermsg
adda.l #14,sp
L21:unlk R14
rts
.globl _ptread
.text
_ptread:
~~ptread:
~fp=R13
link R14,#-2
movem.l R6-R7/R13-R13,-(sp)
~go=R7
~cb=-2
*line 257
move.l 8(R14),R13
*line 257
move #1,R7
*line 259
*line 260
move #9,(sp)
move #12,-(sp)
move.l #L27,-(sp)
clr.l -(sp)
move.l #L26,-(sp)
jsr _ldwmsg
adda.l #14,sp
L30:
*line 262
*line 263
*line 264
jsr _voidpb
*line 265
*line 266
clr R0
move R0,_ptesucc
move R0,_ptepred
move R0,_ptecpos
*line 267
*line 271
*line 272
*line 272
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 L31
*line 273
*line 274
jsr _ptioerr
*line 275
move #-1,R0
bra L25
*line 276
*line 277
L31:
*line 278
*line 279
tst.b -2(R14)
beq L28
*line 280
*line 281
move.b -2(R14),R0
ext.w R0
and #255,R0
or #-32768,R0
move R0,8+_ptebuf
*line 282
*line 283
*line 284
move.l #$4,(sp)
move.l #4+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L32
*line 284
move #-1,R0
bra L25
*line 285
*line 286
L32:
*line 287
move.b -2(R14),R0
ext.w R0
bra L34
*line 288
L35:
*line 289
L36:
*line 290
*line 291
*line 292
*line 293
move.l #$2,(sp)
move.l #10+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L37
*line 293
move #-1,R0
bra L25
*line 294
L37:
*line 295
*line 296
move.l #$1,(sp)
move.l #15+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L38
*line 296
move #-1,R0
bra L25
*line 297
L38:bra L33
*line 298
*line 299
L39:
*line 300
L40:
*line 301
*line 302
*line 303
*line 304
move.l #$1,(sp)
move.l #11+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L41
*line 304
move #-1,R0
bra L25
*line 305
L41:
*line 306
*line 307
move.l #$1,(sp)
move.l #15+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L42
*line 307
move #-1,R0
bra L25
*line 308
L42:bra L33
*line 309
*line 310
*line 311
*line 312
L43:
*line 313
*line 314
*line 315
*line 316
move.l #$1,(sp)
move.l #11+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L44
*line 316
move #-1,R0
bra L25
*line 317
L44:
*line 318
*line 319
move.l #$1,(sp)
move.l #12+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L45
*line 319
move #-1,R0
bra L25
*line 320
L45:bra L33
*line 321
*line 322
L46:
*line 323
*line 324
*line 325
*line 326
move.l #$1,(sp)
move.l #11+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L47
*line 326
move #-1,R0
bra L25
*line 327
L47:
*line 328
*line 329
move.l #$2,(sp)
move.l #12+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L48
*line 329
move #-1,R0
bra L25
*line 330
L48:bra L33
*line 331
*line 332
L49:
*line 333
*line 334
*line 335
*line 336
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L50
*line 336
move #-1,R0
bra L25
*line 337
L50:bra L33
*line 338
*line 339
*line 340
L51:
*line 341
L52:
*line 342
*line 343
*line 344
*line 345
move.l #$1,(sp)
move.l #11+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L53
*line 345
move #-1,R0
bra L25
*line 346
L53:
*line 347
*line 348
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L54
*line 348
move #-1,R0
bra L25
*line 349
L54:
*line 350
*line 351
move.l #$1,(sp)
move.l #15+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L55
*line 351
move #-1,R0
bra L25
*line 352
L55:bra L33
*line 353
*line 354
L56:
*line 355
L57:
*line 356
L58:
*line 357
L59:
*line 358
*line 359
*line 360
*line 361
move.l #$1,(sp)
move.l #10+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L60
*line 361
move #-1,R0
bra L25
*line 362
L60:
*line 363
*line 364
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L61
*line 364
move #-1,R0
bra L25
*line 365
L61:bra L33
*line 366
*line 367
L62:
*line 368
L63:
*line 369
L64:
*line 370
*line 371
*line 372
*line 373
move.l #$2,(sp)
move.l #10+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L65
*line 373
move #-1,R0
bra L25
*line 374
L65:
*line 375
*line 376
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L66
*line 376
move #-1,R0
bra L25
*line 377
L66:
*line 378
*line 379
move.l #$2,(sp)
move.l #14+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L67
*line 379
move #-1,R0
bra L25
*line 380
L67:bra L33
*line 381
*line 382
*line 383
L68:
*line 384
L69:
*line 385
L70:
*line 386
L71:
*line 387
L72:
*line 388
*line 389
*line 390
*line 391
move.l #$1,(sp)
move.l #10+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L73
*line 391
move #-1,R0
bra L25
*line 392
L73:
*line 393
*line 394
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L74
*line 394
move #-1,R0
bra L25
*line 395
L74:
*line 396
*line 397
move.l #$2,(sp)
move.l #14+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L75
*line 397
move #-1,R0
bra L25
*line 398
L75:bra L33
*line 399
*line 400
L76:
*line 401
L77:
*line 402
L78:
*line 403
L79:
*line 404
*line 405
*line 406
*line 407
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L80
*line 407
move #-1,R0
bra L25
*line 408
L80:
*line 409
*line 410
move.l #$2,(sp)
move.l #14+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L81
*line 410
move #-1,R0
bra L25
*line 411
L81:bra L33
*line 412
*line 413
L82:
*line 414
*line 415
*line 416
*line 417
move.l #$1,(sp)
move.l #11+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L83
*line 417
move #-1,R0
bra L25
*line 418
L83:
*line 419
*line 420
move.l #$1,(sp)
move.l #13+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L84
*line 420
move #-1,R0
bra L25
*line 421
L84:
*line 422
*line 423
move.l #$2,(sp)
move.l #14+_ptebuf,-(sp)
move.l R13,-(sp)
jsr _rd_ec
addq.l #8,sp
tst R0
beq L85
*line 423
move #-1,R0
bra L25
*line 424
L85:bra L33
*line 425
*line 426
*line 427
L86:
*line 428
*line 429
*line 430
move #-1,R0
bra L25
bra L33
L34:sub #1,R0
cmp #25,R0
bhi L86
asl #2,R0
move R0,R8
add.l #L87,R8
move.l (R8),R8
jmp (R8)
.data
L87:.dc.l L35
.dc.l L36
.dc.l L39
.dc.l L43
.dc.l L46
.dc.l L40
.dc.l L49
.dc.l L51
.dc.l L52
.dc.l L56
.dc.l L62
.dc.l L57
.dc.l L58
.dc.l L59
.dc.l L68
.dc.l L63
.dc.l L64
.dc.l L69
.dc.l L70
.dc.l L71
.dc.l L72
.dc.l L76
.dc.l L77
.dc.l L78
.dc.l L79
.dc.l L82
.text
L33:
*line 431
*line 432
*line 436
*line 437
*line 438
*line 438
jsr _stashp
tst R0
beq L88
*line 439
*line 440
move.l R13,(sp)
jsr _nopatch
*line 441
clr _ptecpos
*line 442
jsr _voidpb
*line 443
move #-1,R0
bra L25
*line 444
L88:L29:bra L30
L28:
*line 452
clr _ptecpos
*line 453
jsr _voidpb
*line 454
clr R0
bra L25
L25:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.data
L18:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
L19:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
L20:.dc.b $20,$74,$68,$65,$20,$70,$61,$74,$63,$68,$20,$74,$61,$62,$6C,$65,$0
L22:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
L23:.dc.b $20,$20,$74,$68,$65,$20,$70,$61,$74,$63,$68,$20,$74,$61,$62,$6C,$65,$2E,$0
L24:.dc.b $20,$20,$52,$61,$6E,$20,$6F,$75,$74,$20,$6F,$66,$20,$73,$70,$61,$63,$65,$0
L26:.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
L27:.dc.b $20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$70,$61,$74,$63,$68,$65,$73,$0