.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 _CurLine
.globl _cents
.globl _cmtype
.globl _cxval
.globl _cyval
.globl _hitcx
.globl _hitcy
.globl _stccol
.globl _stcrow
.globl _submenu
.globl _vtccol
.globl _vtcrow
.globl _ndvals
.globl _obj11
.globl _csbp
.globl _curboxp
.globl _smdata
.globl _ssdata
.globl _stdata
.globl _trdata
.globl _ptegood
.comm _ptegood,2
.globl _ptedfok
.comm _ptedfok,2
.globl _ptestok
.comm _ptestok,2
.globl _ptedsok
.comm _ptedsok,2
.globl _ptedtok
.comm _ptedtok,2
.globl _ptedef
.comm _ptedef,2
.globl _ptestm
.comm _ptestm,2
.globl _ptespec
.comm _ptespec,2
.globl _ptesuba
.comm _ptesuba,2
.globl _ptedat1
.comm _ptedat1,2
.globl _ptedat2
.comm _ptedat2,2
.globl _ptedftp
.comm _ptedftp,2
.globl _ptedfst
.comm _ptedfst,2
.globl _ptedest
.comm _ptedest,2
.globl _ptedata
.comm _ptedata,2
.globl _ptemenu
.comm _ptemenu,2
.globl _pteset
.comm _pteset,2
.globl _ptbflag
.comm _ptbflag,2
.globl _ptecpos
.comm _ptecpos,2
.globl _ptepred
.comm _ptepred,2
.globl _ptesucc
.comm _ptesucc,2
.globl _ptebuf
.comm _ptebuf,16
.globl _ptdebuf
.comm _ptdebuf,50
.globl _rawdfst
.data
_rawdfst:
*line 117
.dc.l L1
*line 118
.dc.l L2
*line 119
.dc.l L3
*line 121
.dc.l L4
.globl _rawdest
.data
_rawdest:
*line 125
.dc.l L5
*line 126
.dc.l L6
*line 127
.dc.l L7
*line 128
.dc.l L8
*line 129
.dc.l L9
*line 130
.dc.l L10
*line 131
.dc.l L11
*line 132
.dc.l L12
*line 133
.dc.l L13
*line 134
.dc.l L14
*line 135
.dc.l L15
*line 136
.dc.l L16
*line 137
.dc.l L17
*line 138
.dc.l L18
*line 139
.dc.l L19
*line 140
.dc.l L20
*line 141
.dc.l L21
*line 142
.dc.l L22
*line 143
.dc.l L23
*line 144
.dc.l L24
*line 145
.dc.l L25
*line 146
.dc.l L26
*line 147
.dc.l L27
*line 148
.dc.l L28
*line 149
.dc.l L29
*line 150
.dc.l L30
*line 152
.dc.l L31
.globl _rawmode
.data
_rawmode:
*line 157
.dc.l L32
*line 157
.dc.l L33
*line 157
.dc.l L34
*line 157
.dc.l L35
.globl _rawmdat
.data
_rawmdat:
*line 158
.dc.l L36
*line 158
.dc.l L37
*line 158
.dc.l L38
*line 158
.dc.l L39
.globl _omtabl
.data
_omtabl:
.dc.w $2
.dc.w $3
.dc.w $0
.dc.w $1
.globl _omdtab
.data
_omdtab:
.dc.w $2
.dc.w $140
.dc.w $0
.dc.w $0
.globl _omftab
.data
_omftab:
.dc.w $6
.dc.w $7
.dc.w $4
.dc.w $5
.globl _rawfpud
.data
_rawfpud:
*line 164
.dc.l L40
*line 164
.dc.l L41
*line 164
.dc.l L42
*line 164
.dc.l L43
*line 164
.dc.l L44
.globl _fpudtab
.data
_fpudtab:
.dc.w $B
.dc.w $0
.dc.w $1
.dc.w $0
.dc.w $1
.globl _fpuetab
.data
_fpuetab:
.dc.w $B
.dc.w $1
.dc.w $2
.dc.w $3
.dc.w $9
.globl _dfsttab
.data
_dfsttab:
.dc.w $0
.dc.w $8000
.dc.w $1100
.dc.w $1180
.globl _defcols
.data
_defcols:
.dc.w $2
.dc.w $6
.dc.w $7
.dc.w $8
.globl _stmcols
.data
_stmcols:
.dc.w $F
.dc.w $13
.dc.w $14
.dc.w $15
.globl _dstcols
.data
_dstcols:
.dc.w $1C
.dc.w $1E
.dc.w $24
.dc.w $22
.dc.w $20
.dc.w $20
.dc.w $2A
.dc.w $27
.dc.w $22
.dc.w $20
.dc.w $20
.dc.w $22
.globl _dfsttp
.data
_dfsttp:
.dc.w $1
.dc.w $1
.dc.w $2
.dc.w $3
.globl _datasrc
.data
_datasrc:
.dc.w $B
.dc.w $C
.dc.w $D
.dc.w $8
.dc.w $2
.dc.w $5
.dc.w $A
.dc.w $7
.dc.w $6
.dc.w $1
.globl _destype
.data
_destype:
.dc.w $1
.dc.w $FFFF
.dc.w $2
.dc.w $3
.dc.w $4
.dc.w $5
.dc.w $6
.dc.w $7
.dc.w $8
.dc.w $9
.dc.w $A
.dc.w $B
.dc.w $C
.dc.w $D
.dc.w $E
.dc.w $10
.dc.w $11
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $F
.dc.w $14
.dc.w $12
.dc.w $13
.dc.w $15
.dc.w $1A
.dc.w $19
.dc.w $17
.dc.w $18
.dc.w $16
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.globl _destfmt
.data
_destfmt:
.dc.b $0
.dc.b $FF
.dc.b $1
.dc.b $2
.dc.b $3
.dc.b $4
.dc.b $4
.dc.b $5
.dc.b $4
.dc.b $4
.dc.b $6
.dc.b $9
.dc.b $6
.dc.b $6
.dc.b $6
.dc.b $9
.dc.b $9
.dc.b $FF
.dc.b $FF
.dc.b $FF
.dc.b $A
.dc.b $A
.dc.b $A
.dc.b $A
.dc.b $A
.dc.b $8
.dc.b $7
.dc.b $7
.dc.b $7
.dc.b $7
.globl _datafmt
.data
_datafmt:
.dc.b $8
.dc.b $FF
.dc.b $9
.dc.b $8
.dc.b $E
.dc.b $D
.dc.b $9
.dc.b $12
.dc.b $C
.dc.b $C
.dc.b $F
.dc.b $4
.dc.b $10
.dc.b $10
.dc.b $11
.dc.b $B
.dc.b $B
.dc.b $FF
.dc.b $FF
.dc.b $FF
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.dc.b $B
.globl _desdatf
.data
_desdatf:
.dc.b $2
.dc.b $0
.dc.b $2
.dc.b $2
.dc.b $1
.dc.b $1
.dc.b $2
.dc.b $1
.dc.b $3
.dc.b $3
.dc.b $1
.dc.b $0
.dc.b $1
.dc.b $1
.dc.b $1
.dc.b $2
.dc.b $2
.dc.b $0
.dc.b $0
.dc.b $0
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.globl _desdat1
.data
_desdat1:
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.globl _desdat2
.data
_desdat2:
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $B
.dc.w $B
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.dc.w $B
.globl _rawdata
.data
_rawdata:
*line 262
.dc.l L45
*line 262
.dc.l L46
*line 262
.dc.l L47
*line 262
.dc.l L48
*line 262
.dc.l L49
*line 263
.dc.l L50
*line 263
.dc.l L51
*line 263
.dc.l L52
*line 263
.dc.l L53
*line 263
.dc.l L54
*line 264
.dc.l L55
*line 264
.dc.l L56
*line 264
.dc.l L57
*line 264
.dc.l L58
*line 264
.dc.l L59
*line 265
.dc.l L60
*line 265
.dc.l L61
*line 265
.dc.l L62
*line 265
.dc.l L63
*line 265
.dc.l L64
*line 266
.dc.l L65
*line 266
.dc.l L66
*line 266
.dc.l L67
*line 266
.dc.l L68
*line 266
.dc.l L69
*line 267
.dc.l L70
*line 267
.dc.l L71
*line 267
.dc.l L72
*line 267
.dc.l L73
*line 268
.dc.l L74
.globl _hilitab
.data
_hilitab:
.dc.b $2
.dc.b $3
.dc.b $5
.dc.b $1
.dc.b $5
.dc.b $5
.dc.b $4
.dc.b $0
.dc.b $7
.dc.b $6
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $0
.dc.b $F
.dc.b $5
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $0
.dc.b $16
.dc.b $5
.dc.b $4
.dc.b $C
.dc.b $8
.dc.b $8
.dc.b $8
.dc.b $0
.dc.b $1D
.dc.b $5
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $0
.dc.b $24
.dc.b $5
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $4
.dc.b $0
.dc.b $2B
.dc.b $4
.dc.b $30
.dc.b $30
.dc.b $30
.dc.b $30
.dc.b $0
.dc.b $0
.dc.b $31
.dc.b $5
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $0
.dc.b $38
.dc.b $5
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $2
.dc.b $0
.globl _ptboxes
.data
_ptboxes:
.dc.w $8
.dc.w $7E
.dc.w $17F
.dc.w $8B
.dc.w $0
*line 287
.dc.l _ptfnbox
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.globl _hilitpm
.text
_hilitpm:
~~hilitpm:
~n=R7
link R14,#0
movem.l R2-R7,-(sp)
~chr=R6
~h=R5
~v=R4
~w=R3
*line 306
move.b 9(R14),R7
*line 306
move.b R7,R0
ext.w R0
move R0,_ptemenu
*line 308
clr R5
bra L78
L79:
*line 309
*line 310
clr R4
bra L82
L83:
*line 311
*line 312
move R5,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_hilitab,R9
move.b 0(R8,R9.l),R0
ext.w R0
move R0,R6
*line 313
*line 314
move R5,R0
asl #3,R0
ext.l R0
move.l R0,R8
move.l #_hilitab,R9
move.b 1(R8,R9.l),R0
ext.w R0
move R0,R3
bra L86
L87:
*line 315
*line 316
*line 317
move #64,(sp)
move.b R7,R0
ext.w R0
move R4,R9
move R5,R2
asl #3,R2
ext.l R2
add.l R2,R9
add.l #_hilitab,R9
move.b 2(R9),R1
ext.w R1
and R1,R0
beq L10000
move #18,-(sp)
bra L10002
L10000:move #146,-(sp)
L10002:move R6,-(sp)
move R4,-(sp)
add #1,(sp)
move.l _obj11,-(sp)
jsr _vsetcv
adda.l #10,sp
add #1,R6
L85:L86:
*line 314
move R3,R0
sub #1,R3
tst R0
bgt L87
L84:
*line 317
L81:
*line 310
add #1,R4
L82:
*line 310
cmp #5,R4
blt L83
L80:
*line 318
L77:
*line 308
add #1,R5
L78:
*line 308
cmp #9,R5
blt L79
L76:L75:tst.l (sp)+
movem.l (sp)+,R3-R7
unlk R14
rts
.globl _aftercm
.text
_aftercm:
~~aftercm:
link R14,#-4
*line 333
move _stccol,R0
bra L90
*line 334
L91:
*line 335
L92:
*line 336
L93:
*line 337
*line 338
move #1,(sp)
jsr _hilitpm
bra L89
*line 339
*line 340
L94:
*line 341
L95:
*line 342
L96:
*line 343
*line 344
*line 345
move #1,(sp)
jsr _hilitpm
bra L89
*line 346
*line 347
L97:
*line 348
*line 349
*line 350
move #4,(sp)
jsr _hilitpm
bra L89
*line 351
*line 352
*line 353
*line 354
L98:
*line 355
L99:
*line 356
L100:
*line 357
L101:
*line 358
*line 359
*line 360
*line 360
tst _ptedsok
beq L102
*line 361
*line 362
move _ptespec,R0
and #255,R0
bra L104
*line 363
L105:
*line 364
*line 365
*line 366
move #8,(sp)
jsr _hilitpm
bra L103
*line 367
*line 368
L106:
*line 369
L107:
*line 370
L108:
*line 371
L109:
*line 372
L110:
*line 373
*line 374
*line 375
move #16,(sp)
jsr _hilitpm
bra L103
*line 376
*line 377
L111:
*line 378
L112:
*line 379
L113:
*line 380
L114:
*line 381
L115:
*line 382
L116:
*line 383
L117:
*line 384
*line 385
*line 386
move #32,(sp)
jsr _hilitpm
bra L103
*line 387
*line 388
L118:
*line 389
*line 390
*line 391
clr (sp)
jsr _hilitpm
bra L103
*line 392
bra L103
L104:sub #11,R0
cmp #15,R0
bhi L118
asl #2,R0
move R0,R8
add.l #L119,R8
move.l (R8),R8
jmp (R8)
.data
L119:.dc.l L105
.dc.l L118
.dc.l L118
.dc.l L118
.dc.l L106
.dc.l L107
.dc.l L108
.dc.l L110
.dc.l L111
.dc.l L109
.dc.l L112
.dc.l L117
.dc.l L115
.dc.l L116
.dc.l L114
.dc.l L113
.text
L103:
*line 393
*line 394
bra L120
L102:
*line 395
*line 396
*line 397
clr (sp)
jsr _hilitpm
L120:
*line 398
*line 399
bra L89
*line 400
*line 401
*line 402
L121:
*line 403
*line 404
*line 405
*line 405
tst _ptedtok
beq L122
*line 406
*line 407
move _ptespec,R0
and #255,R0
bra L124
*line 408
L125:
*line 409
L126:
*line 410
L127:
*line 411
L128:
*line 412
L129:
*line 413
L130:
*line 414
L131:
*line 415
L132:
*line 416
L133:
*line 417
L134:
*line 418
L135:
*line 419
L136:
*line 420
*line 421
*line 422
*line 423
tst _ptedat1
bne L137
*line 423
move #2,(sp)
jsr _hilitpm
*line 424
bra L138
L137:
*line 425
clr (sp)
jsr _hilitpm
L138:
*line 426
bra L123
*line 427
*line 428
L139:
*line 429
*line 430
*line 431
clr (sp)
jsr _hilitpm
bra L123
*line 432
bra L123
L124:sub #15,R0
cmp #11,R0
bhi L139
asl #2,R0
move R0,R8
add.l #L140,R8
move.l (R8),R8
jmp (R8)
.data
L140:.dc.l L125
.dc.l L126
.dc.l L127
.dc.l L129
.dc.l L130
.dc.l L128
.dc.l L131
.dc.l L136
.dc.l L134
.dc.l L135
.dc.l L133
.dc.l L132
.text
L123:
*line 433
*line 434
bra L141
L122:
*line 435
*line 436
*line 437
clr (sp)
jsr _hilitpm
L141:
*line 438
*line 439
bra L89
*line 440
*line 441
L142:
*line 442
*line 443
*line 444
clr (sp)
jsr _hilitpm
bra L89
*line 445
bra L89
L90:ext.l R0
move.l #L143,R8
move #12,R1
L144:cmp.l (R8)+,R0
dbeq R1,L144
move.l 48(R8),R8
jmp (R8)
.data
L143:.dc.l 2
.dc.l 3
.dc.l 4
.dc.l 15
.dc.l 16
.dc.l 17
.dc.l 28
.dc.l 34
.dc.l 35
.dc.l 36
.dc.l 37
.dc.l 42
.dc.l 0
.dc.l L91
.dc.l L92
.dc.l L93
.dc.l L94
.dc.l L95
.dc.l L96
.dc.l L97
.dc.l L98
.dc.l L99
.dc.l L100
.dc.l L101
.dc.l L121
.dc.l L142
.text
L89:L88:unlk R14
rts
.globl _movectc
.text
_movectc:
~~movectc:
~r=8
~c=10
link R14,#-4
*line 461
move 10(R14),(sp)
move 8(R14),-(sp)
jsr _ctcpos
addq.l #2,sp
*line 462
jsr _aftercm
L145:unlk R14
rts
.globl _endpsm
.text
_endpsm:
~~endpsm:
~row=8
~col=10
link R14,#-4
*line 474
clr _submenu
*line 475
move #4,_cmtype
*line 477
tst _ptedfok
beq L10004
tst _ptestok
beq L10004
tst _ptedsok
beq L10004
tst _ptedtok
bne L10003
L10004:clr R0
bra L10005
L10003:move #1,R0
L10005:move R0,_ptegood
*line 479
jsr _mtcoff
*line 480
move 10(R14),(sp)
move 8(R14),-(sp)
jsr _movectc
addq.l #2,sp
*line 482
jsr _srdspte
L146:unlk R14
rts
.globl _edefstm
.text
_edefstm:
~~edefstm:
~du=8
~n=10
link R14,#-6
movem.l R3-R7,-(sp)
~chan=-2
~port=-4
~stim=-6
~i=R7
~left=R6
~right=R5
~ltemp=R4
*line 507
*line 507
tst 10(R14)
beq L148
*line 508
*line 509
*line 509
tst _ptestok
bne L149
*line 510
*line 511
move #15,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 512
*line 513
*line 514
L149:bra L150
L148:
*line 515
*line 516
*line 517
*line 517
tst _ptedfok
bne L151
*line 518
*line 519
move #2,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 520
*line 521
L151:L150:
*line 524
tst 10(R14)
beq L10006
move _ptestm,R0
bra L10008
L10006:move _ptedef,R0
L10008:move #11,R1
asr R1,R0
and #3,R0
move R0,-4(R14)
*line 525
tst 10(R14)
beq L10009
move _ptestm,R0
bra L10011
L10009:move _ptedef,R0
L10011:asr #7,R0
and #15,R0
move R0,-2(R14)
*line 526
tst 10(R14)
beq L10012
move _ptestm,R0
bra L10014
L10012:move _ptedef,R0
L10014:and #127,R0
move R0,-6(R14)
*line 531
*line 532
tst -4(R14)
beq L10015
cmp #1,-4(R14)
beq L10015
cmp #2,-4(R14)
bne L152
cmp #2,-2(R14)
bge L152
L10015:*line 533
*line 534
clr.l R4
*line 535
tst 10(R14)
beq L10016
move #19,R0
bra L10018
L10016:move #6,R0
L10018:move R0,R6
*line 536
tst 10(R14)
beq L10019
move #22,R0
bra L10021
L10019:move #9,R0
L10021:move R0,R5
*line 537
*line 538
move R6,R7
bra L155
L156:
*line 539
move.l #$a,-(sp)
move.l R4,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R4
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
ext.l R0
add.l R0,R4
add.l #$ffffffd0,R4
L154:
*line 538
add #1,R7
L155:
*line 538
cmp R5,R7
blt L156
L153:
*line 539
*line 540
*line 541
*line 541
tst.l R4
beq L10022
cmp.l #$80,R4
ble L157
L10022:*line 542
*line 543
move R6,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 544
*line 545
*line 546
L157:
*line 547
move.l R4,R0
sub.l #$1,R0
move R0,-6(R14)
*line 548
*line 549
*line 549
cmp #2,-4(R14)
bne L158
*line 550
*line 551
clr -2(R14)
*line 552
bra L159
L158:
*line 553
*line 554
*line 555
clr.l R4
*line 556
tst 10(R14)
beq L10023
move #25,R0
bra L10025
L10023:move #12,R0
L10025:move R0,R6
*line 557
tst 10(R14)
beq L10026
move #27,R0
bra L10028
L10026:move #14,R0
L10028:move R0,R5
*line 558
*line 559
move R6,R7
bra L162
L163:
*line 560
move.l #$a,-(sp)
move.l R4,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R4
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
ext.l R0
add.l R0,R4
add.l #$ffffffd0,R4
L161:
*line 559
add #1,R7
L162:
*line 559
cmp R5,R7
blt L163
L160:
*line 560
*line 561
*line 562
*line 562
tst.l R4
beq L10029
cmp.l #$10,R4
ble L164
L10029:*line 563
*line 564
move R6,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 565
*line 566
*line 567
L164:
*line 568
move.l R4,R0
sub.l #$1,R0
move R0,-2(R14)
L159:
*line 569
*line 570
*line 571
*line 572
tst 10(R14)
beq L165
*line 572
move _ptestm,R0
and #-32768,R0
move -4(R14),R1
move #11,R2
asl R2,R1
or R1,R0
move -2(R14),R1
asl #7,R1
or R1,R0
or -6(R14),R0
move R0,_ptestm
*line 573
bra L166
L165:
*line 574
move _ptedef,R0
and #-32768,R0
move -4(R14),R1
move #11,R2
asl R2,R1
or R1,R0
move -2(R14),R1
asl #7,R1
or R1,R0
or -6(R14),R0
move R0,_ptedef
L166:
*line 575
*line 576
bra L167
L152:
*line 577
*line 577
cmp #2,-4(R14)
bne L168
cmp #2,-2(R14)
bne L168
*line 578
*line 579
clr.l R4
*line 580
tst 10(R14)
beq L10030
move #20,R0
bra L10032
L10030:move #7,R0
L10032:move R0,R6
*line 581
tst 10(R14)
beq L10033
move #22,R0
bra L10035
L10033:move #9,R0
L10035:move R0,R5
*line 582
*line 583
move R6,R7
bra L171
L172:
*line 584
move.l #$a,-(sp)
move.l R4,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R4
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
ext.l R0
add.l R0,R4
add.l #$ffffffd0,R4
L170:
*line 583
add #1,R7
L171:
*line 583
cmp R5,R7
blt L172
L169:
*line 584
*line 585
*line 586
*line 586
tst.l R4
beq L10036
cmp.l #$10,R4
ble L173
L10036:*line 587
*line 588
move R6,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 589
*line 590
*line 591
L173:
*line 592
move.l R4,R0
sub.l #$1,R0
move R0,-6(R14)
*line 593
*line 594
*line 595
tst 10(R14)
beq L174
*line 595
move -6(R14),R0
or #4352,R0
move R0,_ptestm
*line 596
bra L175
L174:
*line 597
move -6(R14),R0
or #4352,R0
move R0,_ptedef
L175:
*line 598
*line 599
bra L176
L168:
*line 600
*line 600
cmp #2,-4(R14)
bne L177
cmp #3,-2(R14)
bne L177
*line 601
*line 602
tst 10(R14)
beq L10037
move #21,R0
bra L10039
L10037:move #8,R0
L10039:move R0,R6
*line 603
move.l #_ptdebuf,R8
move.b 0(R8,R6),R0
ext.w R0
add #-48,R0
ext.l R0
move.l R0,R4
*line 604
*line 605
*line 605
tst.l R4
beq L10040
cmp.l #$2,R4
ble L178
L10040:*line 606
*line 607
move R6,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 608
*line 609
*line 610
L178:
*line 611
move.l R4,R0
sub.l #$1,R0
move R0,-6(R14)
*line 612
*line 613
*line 614
tst 10(R14)
beq L179
*line 614
move -6(R14),R0
or #4480,R0
move R0,_ptestm
*line 615
bra L180
L179:
*line 616
move -6(R14),R0
or #4480,R0
move R0,_ptedef
L180:
*line 617
bra L181
L177:
*line 618
*line 619
*line 620
tst 10(R14)
beq L10041
move #15,(sp)
bra L10043
L10041:move #2,(sp)
L10043:move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L147
*line 621
L181:L176:L167:
*line 624
*line 625
tst 10(R14)
beq L182
*line 625
move #1,_ptestok
*line 626
bra L183
L182:
*line 627
move #1,_ptedfok
L183:
*line 634
*line 634
tst 8(R14)
beq L184
*line 635
*line 636
jsr _srdspte
*line 637
tst 10(R14)
beq L10044
move #28,(sp)
bra L10046
L10044:move #15,(sp)
L10046:move #9,-(sp)
jsr _movectc
addq.l #2,sp
*line 638
L184:L147:tst.l (sp)+
movem.l (sp)+,R4-R7
unlk R14
rts
.globl _ptdest
.text
_ptdest:
~~ptdest:
~du=8
link R14,#-4
movem.l R2-R7,-(sp)
~ltemp=R7
~i=R6
~left=R5
~right=R4
~stim=R3
~port=-2
~chan=-4
*line 662
move _ptedest,R0
bra L187
*line 663
L188:
*line 664
*line 665
*line 666
clr.l R7
*line 667
move #30,R5
*line 668
move #33,R4
*line 669
*line 670
move R5,R6
bra L191
L192:
*line 671
move.l #$a,-(sp)
move.l R7,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R7
move.l #_ptdebuf,R8
move.b 0(R8,R6),R0
ext.w R0
ext.l R0
add.l R0,R7
add.l #$ffffffd0,R7
L190:
*line 670
add #1,R6
L191:
*line 670
cmp R4,R6
blt L192
L189:
*line 671
*line 672
*line 673
*line 673
tst.l R7
beq L10047
cmp.l #$80,R7
ble L193
L10047:*line 674
*line 675
move R5,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L185
*line 676
*line 677
*line 678
L193:
*line 679
move.l R7,R0
sub.l #$1,R0
move R0,R3
*line 680
clr.l R7
*line 681
move #36,R5
*line 682
move #38,R4
*line 683
*line 684
move R5,R6
bra L196
L197:
*line 685
move.l #$a,-(sp)
move.l R7,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R7
move.l #_ptdebuf,R8
move.b 0(R8,R6),R0
ext.w R0
ext.l R0
add.l R0,R7
add.l #$ffffffd0,R7
L195:
*line 684
add #1,R6
L196:
*line 684
cmp R4,R6
blt L197
L194:
*line 685
*line 686
*line 687
*line 687
tst.l R7
beq L10048
cmp.l #$10,R7
ble L198
L10048:*line 688
*line 689
move R5,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L185
*line 690
*line 691
*line 692
L198:
*line 693
move.l R7,R0
sub.l #$1,R0
move R0,-4(R14)
*line 694
*line 695
*line 696
*line 696
cmp.b #76,34+_ptdebuf
bne L199
*line 697
*line 698
move #2,-2(R14)
*line 699
clr -4(R14)
*line 700
bra L200
L199:
*line 701
*line 702
*line 703
move.b 34+_ptdebuf,R0
ext.w R0
add #-49,R0
move R0,-2(R14)
L200:
*line 704
*line 705
*line 706
move R3,R0
move -4(R14),R1
asl #7,R1
or R1,R0
move -2(R14),R1
move #11,R2
asl R2,R1
or R1,R0
move R0,_ptesuba
bra L186
*line 707
*line 708
*line 709
L201:
*line 710
*line 711
*line 712
clr.l R7
*line 713
move #36,R5
*line 714
move #38,R4
*line 715
*line 716
move R5,R6
bra L204
L205:
*line 717
move.l #$a,-(sp)
move.l R7,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R7
move.l #_ptdebuf,R8
move.b 0(R8,R6),R0
ext.w R0
ext.l R0
add.l R0,R7
add.l #$ffffffd0,R7
L203:
*line 716
add #1,R6
L204:
*line 716
cmp R4,R6
blt L205
L202:
*line 717
*line 718
*line 719
*line 719
tst.l R7
beq L10049
cmp.l #$10,R7
ble L206
L10049:*line 720
*line 721
move R5,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L185
*line 722
*line 723
*line 724
L206:
*line 725
move.l R7,R0
sub.l #$1,R0
move R0,R3
*line 726
move R3,R0
or #4352,R0
move R0,_ptesuba
bra L186
*line 727
*line 728
L207:
*line 729
*line 730
*line 731
move.b 34+_ptdebuf,R0
ext.w R0
add #-49,R0
move R0,_ptesuba
bra L186
*line 732
*line 733
L208:
*line 734
*line 735
*line 736
move.b 32+_ptdebuf,R0
ext.w R0
add #-65,R0
move R0,_ptesuba
bra L186
*line 737
*line 738
L209:
*line 739
*line 740
*line 741
clr.l R7
*line 742
move #32,R5
*line 743
move #34,R4
*line 744
*line 745
move R5,R6
bra L212
L213:
*line 746
move.l #$a,-(sp)
move.l R7,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R7
move.l #_ptdebuf,R8
move.b 0(R8,R6),R0
ext.w R0
ext.l R0
add.l R0,R7
add.l #$ffffffd0,R7
L211:
*line 745
add #1,R6
L212:
*line 745
cmp R4,R6
blt L213
L210:
*line 746
*line 747
*line 748
*line 748
tst.l R7
beq L10050
cmp.l #$10,R7
ble L214
L10050:*line 749
*line 750
move R5,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L185
*line 751
*line 752
*line 753
L214:
*line 754
move.l R7,R0
sub.l #$1,R0
move R0,_ptesuba
bra L186
*line 755
*line 756
*line 757
*line 758
L215:
*line 759
L216:
*line 760
*line 761
bra L186
*line 762
*line 763
L217:
*line 764
L218:
*line 765
*line 766
*line 767
*line 768
cmp.b #86,39+_ptdebuf
bne L219
*line 768
clr R3
*line 769
bra L220
L219:
*line 770
move #12,R3
L220:
*line 771
*line 772
move.b 40+_ptdebuf,R6
ext.w R6
and #255,R6
*line 773
*line 774
*line 775
cmp #172,R6
blt L221
*line 775
move R6,R0
add #-162,R0
add R0,R3
*line 776
bra L222
L221:
*line 777
move R6,R0
add #-48,R0
add R0,R3
L222:
*line 778
*line 779
sub #1,R3
*line 780
move R3,R0
asl #8,R0
move R0,_ptesuba
bra L186
*line 781
*line 782
L223:
*line 783
*line 784
*line 785
move.b 32+_ptdebuf,R0
ext.w R0
add #-48,R0
move R0,_ptesuba
bra L186
*line 786
*line 787
*line 788
L224:
*line 789
*line 790
*line 791
*line 792
cmp.b #86,39+_ptdebuf
bne L225
*line 792
clr R3
*line 793
bra L226
L225:
*line 794
move #12,R3
L226:
*line 795
*line 796
move.b 40+_ptdebuf,R6
ext.w R6
and #255,R6
*line 797
*line 798
*line 799
cmp #172,R6
blt L227
*line 799
move R6,R0
add #-162,R0
add R0,R3
*line 800
bra L228
L227:
*line 801
move R6,R0
add #-48,R0
add R0,R3
L228:
*line 802
*line 803
sub #1,R3
*line 804
move R3,R0
asl #8,R0
move.b 32+_ptdebuf,R1
ext.w R1
add #-48,R1
or R1,R0
move R0,_ptesuba
bra L186
*line 805
*line 806
L229:
*line 807
*line 808
*line 809
move #28,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
bra L185
*line 810
bra L186
L187:cmp #10,R0
bhi L229
asl #2,R0
move R0,R8
add.l #L230,R8
move.l (R8),R8
jmp (R8)
.data
L230:.dc.l L188
.dc.l L201
.dc.l L207
.dc.l L208
.dc.l L209
.dc.l L215
.dc.l L217
.dc.l L216
.dc.l L223
.dc.l L224
.dc.l L218
.text
L186:
*line 813
move #1,_ptedsok
*line 820
*line 820
tst 8(R14)
beq L231
*line 821
*line 822
jsr _srdspte
*line 823
move #42,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
*line 824
*line 825
*line 829
L231:L185:tst.l (sp)+
movem.l (sp)+,R3-R7
unlk R14
rts
.globl _epatch
.text
_epatch:
~~epatch:
link R14,#-4
*line 848
move #1,_ptedtok
*line 849
clr (sp)
clr -(sp)
jsr _edefstm
addq.l #2,sp
*line 850
move #1,(sp)
clr -(sp)
jsr _edefstm
addq.l #2,sp
*line 851
clr (sp)
jsr _ptdest
*line 852
jsr _entrpte
*line 853
jsr _srdspte
*line 854
move #2,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
L232:unlk R14
rts
.globl _badpdat
.text
_badpdat:
~~badpdat:
link R14,#-4
*line 878
clr _ptedtok
*line 879
move #42,(sp)
move #9,-(sp)
jsr _movectc
addq.l #2,sp
L233:unlk R14
rts
.globl _setsubm
.text
_setsubm:
~~setsubm:
~r=8
~c=10
link R14,#-4
*line 891
move #1,_submenu
*line 892
move #5,_cmtype
*line 893
move 10(R14),(sp)
move 8(R14),-(sp)
jsr _mtcpos
addq.l #2,sp
L234:unlk R14
rts
.globl _ptfnbox
.text
_ptfnbox:
~~ptfnbox:
~n=8
link R14,#0
movem.l R2-R7,-(sp)
~i=R7
~box=R6
~ptd=R5
~ptt=R4
~ltemp=R3
*line 912
*line 912
tst _submenu
bne L236
*line 913
*line 914
*line 914
cmp #2,_stccol
blt L237
cmp #13,_stccol
bgt L237
*line 915
*line 916
move #1,_ptedftp
*line 917
*line 918
*line 918
cmp #2,_stccol
blt L238
cmp #4,_stccol
bgt L238
*line 919
*line 920
move #2,(sp)
move #19,-(sp)
jsr _setsubm
addq.l #2,sp
*line 921
bra L239
L238:
*line 922
*line 923
*line 924
move #1,(sp)
clr -(sp)
jsr _edefstm
addq.l #2,sp
*line 925
clr (sp)
jsr _ptdest
*line 926
clr (sp)
move #1,-(sp)
jsr _edefstm
addq.l #2,sp
L239:
*line 927
*line 928
*line 929
clr R0
bra L235
*line 930
bra L240
L237:
*line 931
*line 931
cmp #15,_stccol
blt L241
cmp #26,_stccol
bgt L241
*line 932
*line 933
move #2,_ptedftp
*line 934
*line 935
*line 935
cmp #15,_stccol
blt L242
cmp #17,_stccol
bgt L242
*line 936
*line 937
move #2,(sp)
move #19,-(sp)
jsr _setsubm
addq.l #2,sp
*line 938
bra L243
L242:
*line 939
*line 940
*line 941
clr (sp)
clr -(sp)
jsr _edefstm
addq.l #2,sp
*line 942
clr (sp)
jsr _ptdest
*line 943
move #1,(sp)
move #1,-(sp)
jsr _edefstm
addq.l #2,sp
L243:
*line 944
*line 945
*line 946
clr R0
bra L235
*line 947
*line 948
bra L244
L241:
*line 949
*line 949
cmp #28,_stccol
blt L245
cmp #40,_stccol
bgt L245
*line 950
*line 951
clr _ptedftp
*line 952
*line 953
*line 953
cmp #28,_stccol
bne L246
*line 954
*line 955
move #2,(sp)
move #19,-(sp)
jsr _setsubm
addq.l #2,sp
*line 956
bra L247
L246:
*line 957
*line 957
cmp #8,_ptemenu
bne L248
*line 958
*line 959
move #22,(sp)
move #20,-(sp)
jsr _setsubm
addq.l #2,sp
*line 960
bra L249
L248:
*line 961
*line 962
cmp #16,_ptemenu
beq L10051
cmp #32,_ptemenu
bne L250
L10051:*line 963
*line 964
move #43,(sp)
move #19,-(sp)
jsr _setsubm
addq.l #2,sp
*line 965
bra L251
L250:
*line 966
*line 967
*line 968
clr (sp)
clr -(sp)
jsr _edefstm
addq.l #2,sp
*line 969
move #1,(sp)
clr -(sp)
jsr _edefstm
addq.l #2,sp
*line 970
move #1,(sp)
jsr _ptdest
L251:L249:L247:
*line 971
*line 972
*line 973
clr R0
bra L235
*line 974
*line 975
bra L252
L245:
*line 976
*line 976
cmp #42,_stccol
blt L253
cmp #46,_stccol
bgt L253
*line 977
*line 978
clr _ptedftp
*line 979
jsr _setptcv
*line 980
*line 984
*line 985
move _ptedata,R0
bra L255
*line 986
L256:
*line 987
*line 988
*line 989
clr _ptedtok
*line 990
move #-1,R0
bra L235
*line 991
L257:
*line 992
*line 993
*line 994
move.b 43+_ptdebuf,_ebuf
*line 995
move.b 45+_ptdebuf,1+_ebuf
*line 996
move.b 46+_ptdebuf,2+_ebuf
*line 997
move.b 42+_ptdebuf,3+_ebuf
*line 998
*line 999
*line 999
move.l #_ebuf,(sp)
jsr _dec2fr
move R0,R7
cmp #-1,R7
bne L258
*line 1000
*line 1001
jsr _badpdat
*line 1002
move #-1,R0
bra L235
*line 1003
*line 1004
L258:
*line 1005
move R7,_ptedat2
*line 1006
jsr _epatch
*line 1007
clr R0
bra L235
*line 1008
*line 1009
L259:
*line 1010
*line 1011
*line 1012
clr.l R3
*line 1013
*line 1014
move #42,R7
bra L262
L263:
*line 1015
move.l #$a,-(sp)
move.l R3,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R3
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
add #-48,R0
ext.l R0
add.l R0,R3
L261:
*line 1014
add #1,R7
L262:
*line 1014
cmp #47,R7
blt L263
L260:
*line 1015
*line 1016
*line 1017
*line 1017
cmp.l #$7fff,R3
ble L264
*line 1018
*line 1019
jsr _badpdat
*line 1020
move #-1,R0
bra L235
*line 1021
*line 1022
L264:
*line 1023
move.l R3,R0
move R0,(sp)
jsr _tofpu
move R0,_ptedat2
*line 1024
jsr _epatch
*line 1025
clr R0
bra L235
*line 1026
L265:
*line 1027
*line 1028
*line 1029
move.b 42+_ptdebuf,R7
ext.w R7
and #255,R7
*line 1030
*line 1031
*line 1032
cmp #160,R7
beq L10052
cmp #161,R7
bne L266
L10052:*line 1032
move.l #$3e8,R3
*line 1033
bra L267
L266:
*line 1034
clr.l R3
L267:
*line 1035
*line 1036
*line 1037
*line 1038
move.b 43+_ptdebuf,R0
ext.w R0
add #-48,R0
muls #100,R0
move.b 45+_ptdebuf,R1
ext.w R1
add #-48,R1
muls #10,R1
add R1,R0
move.b 46+_ptdebuf,R1
ext.w R1
add R1,R0
add #-48,R0
ext.l R0
add.l R0,R3
*line 1039
*line 1040
*line 1040
cmp.l #$3e8,R3
ble L268
*line 1041
*line 1042
jsr _badpdat
*line 1043
move #-1,R0
bra L235
*line 1044
*line 1045
L268:
*line 1046
*line 1047
cmp #45,R7
beq L10053
cmp #161,R7
bne L269
L10053:*line 1047
move.l R3,R0
neg.l R0
move.l R0,R3
*line 1048
L269:
*line 1049
move.l R3,R0
asl.l #$5,R0
move R0,_ptedat2
*line 1050
jsr _epatch
*line 1051
clr R0
bra L235
*line 1052
*line 1053
*line 1054
L270:
*line 1055
*line 1056
*line 1057
clr.l R3
*line 1058
*line 1059
move #43,R7
bra L273
L274:
*line 1060
move.l #$a,-(sp)
move.l R3,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R3
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
add #-48,R0
ext.l R0
add.l R0,R3
L272:
*line 1059
add #1,R7
L273:
*line 1059
cmp #47,R7
blt L274
L271:
*line 1060
*line 1061
*line 1062
*line 1062
cmp.l #$4b0,R3
ble L275
*line 1063
*line 1064
jsr _badpdat
*line 1065
move #-1,R0
bra L235
*line 1066
*line 1067
L275:
*line 1068
*line 1069
cmp.b #45,42+_ptdebuf
bne L276
*line 1069
move.l R3,R0
neg.l R0
move.l R0,R3
*line 1070
L276:
*line 1071
move.l R3,R0
asl.l #$1,R0
move R0,_ptedat2
*line 1072
jsr _epatch
*line 1073
clr R0
bra L235
*line 1074
*line 1075
L277:
*line 1076
*line 1077
*line 1078
*line 1079
move.b 42+_ptdebuf,R0
ext.w R0
add #-48,R0
move R0,R8
add.l R8,R8
move.l #_ndvals,R9
move 0(R8,R9.l),R0
move.b 44+_ptdebuf,R1
ext.w R1
add #-48,R1
move R1,R9
add.l R9,R9
add.l #_ndvals,R9
move (R9),R1
sub R1,R0
move R0,_ptedat2
*line 1080
*line 1081
jsr _epatch
*line 1082
clr R0
bra L235
*line 1083
L278:
*line 1084
*line 1085
*line 1086
*line 1087
*line 1088
move.b 42+_ptdebuf,R0
ext.w R0
add #-48,R0
muls #100,R0
move.b 43+_ptdebuf,R1
ext.w R1
add #-48,R1
muls #10,R1
add R1,R0
move.b 45+_ptdebuf,R1
ext.w R1
add R1,R0
add #-48,R0
ext.l R0
move.l R0,R3
*line 1089
*line 1090
*line 1090
cmp.l #$9f,R3
ble L279
*line 1091
*line 1092
jsr _badpdat
*line 1093
move #-1,R0
bra L235
*line 1094
*line 1095
L279:
*line 1096
move.l R3,R0
asl.l #$1,R0
move R0,_ptedat2
*line 1097
jsr _epatch
*line 1098
clr R0
bra L235
*line 1099
L280:
*line 1100
*line 1101
*line 1102
move #5,(sp)
move.l #42+_ptdebuf,-(sp)
move.l #_ebuf,-(sp)
jsr _memcpy
addq.l #8,sp
*line 1103
*line 1104
*line 1104
jsr _cnvp2c
cmp #-1,R0
bne L281
*line 1105
*line 1106
jsr _badpdat
*line 1107
move #-1,R0
bra L235
*line 1108
*line 1109
L281:
*line 1110
move _cents,_ptedat2
*line 1111
jsr _epatch
*line 1112
clr R0
bra L235
*line 1113
*line 1114
L282:
*line 1115
L283:
*line 1116
L284:
*line 1117
*line 1118
*line 1119
jsr _epatch
*line 1120
clr R0
bra L235
*line 1121
L285:
*line 1122
*line 1123
*line 1124
*line 1125
cmp #42,_stccol
bne L286
*line 1125
move #49,(sp)
move #19,-(sp)
jsr _setsubm
addq.l #2,sp
*line 1126
bra L287
L286:
*line 1127
jsr _epatch
L287:
*line 1128
*line 1129
clr R0
bra L235
*line 1130
L288:
*line 1131
*line 1132
*line 1133
*line 1134
move.b 43+_ptdebuf,R0
ext.w R0
add #-48,R0
muls #10,R0
move.b 44+_ptdebuf,R1
ext.w R1
add R1,R0
add #-48,R0
ext.l R0
move.l R0,R3
*line 1135
*line 1136
*line 1136
cmp.b #82,42+_ptdebuf
bne L289
*line 1137
*line 1138
*line 1138
tst.l R3
beq L10054
cmp.l #$10,R3
ble L290
L10054:*line 1139
*line 1140
jsr _badpdat
*line 1141
move #-1,R0
bra L235
*line 1142
*line 1143
L290:
*line 1144
sub.l #$1,R3
*line 1145
move #1,_ptedat1
*line 1146
bra L291
L289:
*line 1147
*line 1148
*line 1149
clr _ptedat1
L291:
*line 1150
*line 1151
*line 1152
move R3,_ptedat2
*line 1153
jsr _epatch
*line 1154
clr R0
bra L235
*line 1155
*line 1156
L292:
*line 1157
*line 1158
*line 1159
clr.l R3
*line 1160
*line 1161
move #42,R7
bra L295
L296:
*line 1162
move.l #$a,-(sp)
move.l R3,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,R3
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
add #-48,R0
ext.l R0
add.l R0,R3
L294:
*line 1161
add #1,R7
L295:
*line 1161
cmp #45,R7
blt L296
L293:
*line 1162
*line 1163
*line 1164
move R3,_ptedat1
*line 1165
jsr _epatch
*line 1166
clr R0
bra L235
*line 1167
L297:
*line 1168
*line 1169
*line 1170
clr.l R3
*line 1171
*line 1172
*line 1172
btst #0,1+_ptesuba
beq L298
*line 1173
*line 1174
move #42,R7
bra L301
L302:
*line 1175
asl.l #$2,R3
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
add #-48,R0
ext.l R0
or.l R0,R3
L300:
*line 1174
add #1,R7
L301:
*line 1174
cmp #46,R7
blt L302
L299:
*line 1175
*line 1176
*line 1177
move.l R3,R0
asl.l #$8,R0
move R0,_ptedat1
*line 1178
bra L303
L298:
*line 1179
*line 1180
*line 1181
move #42,R7
bra L306
L307:
*line 1182
asl.l #$2,R3
move.l #_ptdebuf,R8
move.b 0(R8,R7),R0
ext.w R0
add #-48,R0
ext.l R0
or.l R0,R3
L305:
*line 1181
add #1,R7
L306:
*line 1181
cmp #45,R7
blt L307
L304:
*line 1182
*line 1183
*line 1184
move.l R3,R0
move.l #$a,R1
asl.l R1,R0
move R0,_ptedat1
L303:
*line 1185
*line 1186
*line 1187
jsr _epatch
*line 1188
clr R0
bra L235
*line 1189
*line 1190
*line 1191
L308:
*line 1192
*line 1193
*line 1194
*line 1195
move.b 42+_ptdebuf,R0
ext.w R0
add #-48,R0
muls #10,R0
move.b 43+_ptdebuf,R1
ext.w R1
add R1,R0
add #-48,R0
ext.l R0
move.l R0,R3
*line 1196
*line 1197
*line 1197
cmp.l #$28,R3
ble L309
*line 1198
*line 1199
jsr _badpdat
*line 1200
move #-1,R0
bra L235
*line 1201
*line 1202
L309:
*line 1203
move R3,_ptedat1
*line 1204
jsr _epatch
*line 1205
clr R0
bra L235
*line 1206
L310:
*line 1207
*line 1208
*line 1209
*line 1210
move.b 42+_ptdebuf,R0
ext.w R0
add #-48,R0
muls #10,R0
move.b 43+_ptdebuf,R1
ext.w R1
add R1,R0
add #-48,R0
ext.l R0
move.l R0,R3
*line 1211
*line 1212
*line 1212
tst.l R3
beq L10055
cmp.l #$14,R3
ble L311
L10055:*line 1213
*line 1214
jsr _badpdat
*line 1215
move #-1,R0
bra L235
*line 1216
*line 1217
L311:
*line 1218
move R3,_ptedat1
*line 1219
jsr _epatch
*line 1220
clr R0
bra L235
*line 1221
*line 1222
L312:
*line 1223
*line 1224
*line 1225
*line 1226
move.b 42+_ptdebuf,R0
ext.w R0
add #-48,R0
muls #10,R0
move.b 43+_ptdebuf,R1
ext.w R1
add R1,R0
add #-48,R0
ext.l R0
move.l R0,R3
*line 1227
*line 1228
*line 1228
cmp.l #$b,R3
ble L313
*line 1229
*line 1230
jsr _badpdat
*line 1231
move #-1,R0
bra L235
*line 1232
*line 1233
L313:
*line 1234
move R3,_ptedat1
*line 1235
jsr _epatch
*line 1236
clr R0
bra L235
*line 1237
L314:
*line 1238
*line 1239
*line 1240
move.b 42+_ptdebuf,R0
ext.w R0
add #-48,R0
move R0,_ptedat1
*line 1241
jsr _epatch
*line 1242
clr R0
bra L235
*line 1243
L315:
*line 1244
*line 1245
*line 1246
clr _ptedtok
*line 1247
move #-1,R0
bra L235
bra L254
L255:cmp #18,R0
bhi L315
asl #2,R0
move R0,R8
add.l #L316,R8
move.l (R8),R8
jmp (R8)
.data
L316:.dc.l L256
.dc.l L257
.dc.l L259
.dc.l L265
.dc.l L270
.dc.l L277
.dc.l L278
.dc.l L280
.dc.l L282
.dc.l L283
.dc.l L284
.dc.l L285
.dc.l L288
.dc.l L292
.dc.l L297
.dc.l L308
.dc.l L310
.dc.l L312
.dc.l L314
.text
L254:
*line 1248
*line 1249
*line 1250
L253:L252:L244:L240:
*line 1251
move #-1,R0
bra L235
*line 1252
*line 1253
bra L317
L236:
*line 1254
*line 1255
*line 1256
*line 1257
*line 1258
*line 1259
cmp #2,_vtccol
blt L318
cmp #4,_vtccol
bgt L318
*line 1259
move _vtcrow,R6
add #-18,R6
bra L319
L318:
*line 1260
*line 1261
cmp #7,_vtccol
blt L320
cmp #12,_vtccol
bgt L320
*line 1261
move _vtcrow,R6
add #-13,R6
bra L321
L320:
*line 1262
*line 1263
cmp #15,_vtccol
blt L322
cmp #19,_vtccol
bgt L322
*line 1263
move _vtcrow,R6
sub #8,R6
bra L323
L322:
*line 1264
*line 1265
cmp #22,_vtccol
blt L324
cmp #26,_vtccol
bgt L324
*line 1265
move _vtcrow,R6
sub #3,R6
bra L325
L324:
*line 1266
*line 1267
cmp #29,_vtccol
blt L326
cmp #33,_vtccol
bgt L326
*line 1267
move _vtcrow,R6
add #2,R6
bra L327
L326:
*line 1268
*line 1269
cmp #36,_vtccol
blt L328
cmp #40,_vtccol
bgt L328
*line 1269
move _vtcrow,R6
add #7,R6
bra L329
L328:
*line 1270
*line 1271
cmp #43,_vtccol
blt L330
cmp #46,_vtccol
bgt L330
*line 1271
move _vtcrow,R6
add #12,R6
bra L331
L330:
*line 1272
*line 1273
cmp #49,_vtccol
blt L332
cmp #53,_vtccol
bgt L332
*line 1273
move _vtcrow,R6
add #17,R6
bra L333
L332:
*line 1274
*line 1275
cmp #56,_vtccol
blt L334
cmp #60,_vtccol
bgt L334
*line 1275
move _vtcrow,R6
add #22,R6
*line 1276
bra L335
L334:
*line 1277
move #-1,R0
bra L235
L335:L333:L331:L329:L327:L325:L323:L321:L319:
*line 1278
*line 1279
*line 1280
*line 1281
move _ptemenu,R0
bra L337
*line 1282
L338:
*line 1283
*line 1284
*line 1285
*line 1285
cmp #1,R6
blt L339
cmp #4,R6
bgt L339
*line 1286
*line 1287
move R6,R7
sub #1,R7
*line 1288
move R7,R8
add.l R8,R8
add.l #_dfsttp,R8
move (R8),_ptedfst
*line 1289
*line 1290
*line 1290
cmp #1,_ptedftp
bne L340
*line 1291
*line 1292
move #1,_ptedfok
*line 1293
move #1,_ptbflag
*line 1294
*line 1295
move R7,R8
add.l R8,R8
add.l #_dfsttab,R8
move (R8),_ptedef
*line 1296
*line 1297
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdfst,R9
move.l 0(R8,R9.l),(sp)
move.l #2+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1298
*line 1299
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdfst,R9
move.l 0(R8,R9.l),-(sp)
move #2,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1300
move _ptedfst,R8
add.l R8,R8
move.l #_defcols,R9
move 0(R8,R9.l),(sp)
move #9,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1301
*line 1302
clr R0
bra L235
*line 1303
bra L341
L340:
*line 1304
*line 1304
cmp #2,_ptedftp
bne L342
*line 1305
*line 1306
move #1,_ptestok
*line 1307
move #1,_ptbflag
*line 1308
*line 1309
move R7,R8
add.l R8,R8
add.l #_dfsttab,R8
move (R8),_ptestm
*line 1310
*line 1311
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdfst,R9
move.l 0(R8,R9.l),(sp)
move.l #15+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1312
*line 1313
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdfst,R9
move.l 0(R8,R9.l),-(sp)
move #15,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1314
move _ptedfst,R8
add.l R8,R8
move.l #_stmcols,R9
move 0(R8,R9.l),(sp)
move #9,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1315
*line 1316
clr R0
bra L235
*line 1317
L342:L341:
*line 1318
*line 1319
L339:
*line 1320
move #-1,R0
bra L235
*line 1321
*line 1322
L343:
*line 1323
*line 1324
*line 1325
*line 1325
cmp #36,R6
blt L344
cmp #45,R6
bgt L344
*line 1326
*line 1327
move #1,_ptedtok
*line 1328
move #1,_ptbflag
*line 1329
*line 1330
move R6,R8
add #-36,R8
add.l R8,R8
add.l #_datasrc,R8
move (R8),_ptedat2
*line 1331
*line 1332
move _ptedat2,R8
add.l R8,R8
add.l R8,R8
move.l #_smdata,R9
move.l 0(R8,R9.l),(sp)
move.l #42+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1333
*line 1334
move #98,(sp)
move _ptedat2,R8
add.l R8,R8
add.l R8,R8
move.l #_smdata,R9
move.l 0(R8,R9.l),-(sp)
move #42,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1335
move #46,(sp)
move #9,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1336
*line 1337
clr R0
bra L235
*line 1338
*line 1339
L344:
*line 1340
move #-1,R0
bra L235
*line 1341
*line 1342
L345:
*line 1343
*line 1344
*line 1345
move R6,R7
sub #1,R7
*line 1346
move R7,R8
add.l R8,R8
add.l #_destype,R8
move (R8),R4
*line 1347
*line 1348
*line 1348
cmp #-1,R4
beq L346
*line 1349
*line 1350
move #1,_ptedsok
*line 1351
move #1,_ptedtok
*line 1352
move #1,_ptbflag
*line 1353
*line 1354
move.l #_destfmt,R8
move.b 0(R8,R7),R0
ext.w R0
move R0,_ptedest
*line 1355
move.l #_datafmt,R8
move.b 0(R8,R7),R0
ext.w R0
move R0,_ptedata
*line 1356
move R4,_ptespec
*line 1357
clr _ptesuba
*line 1358
clr _ptedat1
*line 1359
clr _ptedat2
*line 1360
*line 1361
*line 1361
move.l #_desdatf,R8
move.b 0(R8,R7),R0
ext.w R0
move R0,R5
beq L347
*line 1362
*line 1363
*line 1364
btst #0,R5
beq L348
*line 1364
move R7,R8
add.l R8,R8
add.l #_desdat1,R8
move (R8),_ptedat1
*line 1365
L348:
*line 1366
*line 1367
btst #1,R5
beq L349
*line 1367
move R7,R8
add.l R8,R8
add.l #_desdat2,R8
move (R8),_ptedat2
L349:
*line 1368
*line 1369
L347:
*line 1370
move R4,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdest,R9
move.l 0(R8,R9.l),(sp)
move.l #28+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1371
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdata,R9
move.l 0(R8,R9.l),(sp)
move.l #42+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1372
*line 1373
move #98,(sp)
move R4,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdest,R9
move.l 0(R8,R9.l),-(sp)
move #28,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1374
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawdata,R9
move.l 0(R8,R9.l),-(sp)
move #42,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1375
move _ptedest,R8
add #1,R8
add.l R8,R8
move.l #_dstcols,R9
move 0(R8,R9.l),(sp)
move #9,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1376
*line 1377
clr R0
bra L235
*line 1378
*line 1379
L346:
*line 1380
move #-1,R0
bra L235
*line 1381
*line 1382
L350:
*line 1383
*line 1384
*line 1385
*line 1385
cmp #17,R6
blt L351
cmp #20,R6
bgt L351
*line 1386
*line 1387
move R6,R7
add #-17,R7
*line 1388
*line 1389
move #1,_ptedsok
*line 1390
move #1,_ptedtok
*line 1391
move #1,_ptbflag
*line 1392
*line 1393
move R7,R8
add.l R8,R8
add.l #_omtabl,R8
move (R8),_ptedat1
*line 1394
move R7,R8
add.l R8,R8
add.l #_omdtab,R8
move (R8),_ptedat2
*line 1395
*line 1396
move R7,R8
add.l R8,R8
add.l #_omftab,R8
move (R8),_ptedata
*line 1397
*line 1398
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawmode,R9
move.l 0(R8,R9.l),(sp)
move.l #34+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1399
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawmdat,R9
move.l 0(R8,R9.l),(sp)
move.l #42+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1400
*line 1401
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawmode,R9
move.l 0(R8,R9.l),-(sp)
move #34,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1402
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawmdat,R9
move.l 0(R8,R9.l),-(sp)
move #42,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1403
move #39,(sp)
move #9,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1404
*line 1405
clr R0
bra L235
*line 1406
*line 1407
L351:
*line 1408
move #-1,R0
bra L235
*line 1409
*line 1410
L352:
*line 1411
*line 1412
*line 1413
*line 1414
cmp #31,R6
blt L10056
cmp #34,R6
ble L353
L10056:*line 1414
move #-1,R0
bra L235
*line 1415
L353:L354:
*line 1416
*line 1417
*line 1418
*line 1419
cmp #31,R6
blt L10057
cmp #35,R6
ble L355
L10057:*line 1419
move #-1,R0
bra L235
*line 1420
L355:
*line 1421
move R6,R7
add #-31,R7
*line 1422
*line 1423
move #1,_ptedsok
*line 1424
move #1,_ptedtok
*line 1425
move #1,_ptbflag
*line 1426
*line 1427
move R7,_ptedat1
*line 1428
move R7,R8
add.l R8,R8
add.l #_fpudtab,R8
move (R8),_ptedat2
*line 1429
*line 1430
move R7,R8
add.l R8,R8
add.l #_fpuetab,R8
move (R8),_ptedata
*line 1431
*line 1432
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_stdata,R9
move.l 0(R8,R9.l),(sp)
move.l #34+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1433
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawfpud,R9
move.l 0(R8,R9.l),(sp)
move.l #42+_ptdebuf,-(sp)
jsr _strcpy
addq.l #4,sp
*line 1434
*line 1435
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_stdata,R9
move.l 0(R8,R9.l),-(sp)
move #34,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1436
move #98,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_rawfpud,R9
move.l 0(R8,R9.l),-(sp)
move #42,-(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 1437
move #42,(sp)
move #9,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1438
*line 1439
clr R0
bra L235
*line 1440
L356:
*line 1441
*line 1442
*line 1443
move _stccol,(sp)
move _stcrow,-(sp)
jsr _endpsm
addq.l #2,sp
*line 1444
*line 1445
move #-1,R0
bra L235
bra L336
L337:ext.l R0
move.l #L357,R8
move #6,R1
L358:cmp.l (R8)+,R0
dbeq R1,L358
move.l 24(R8),R8
jmp (R8)
.data
L357:.dc.l 1
.dc.l 2
.dc.l 4
.dc.l 8
.dc.l 16
.dc.l 32
.dc.l 0
.dc.l L338
.dc.l L343
.dc.l L345
.dc.l L350
.dc.l L354
.dc.l L352
.dc.l L356
.text
L336:
*line 1446
L317:
*line 1449
move #-1,R0
bra L235
L235:tst.l (sp)+
movem.l (sp)+,R3-R7
unlk R14
rts
.data
L1:.dc.b $4B,$65,$79,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
L2:.dc.b $52,$65,$6C,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
L3:.dc.b $54,$72,$69,$67,$20,$30,$31,$20,$20,$20,$20,$20,$0
L4:.dc.b $50,$75,$6C,$73,$65,$20,$31,$20,$20,$20,$20,$20,$0
L5:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$20,$30,$30,$20,$3F,$3F,$0
L6:.dc.b $4B,$20,$30,$30,$31,$20,$31,$20,$30,$31,$20,$20,$20,$0
L7:.dc.b $54,$72,$69,$67,$67,$65,$72,$20,$30,$31,$20,$20,$20,$0
L8:.dc.b $50,$75,$6C,$73,$65,$20,$31,$20,$20,$20,$20,$20,$20,$0
L9:.dc.b $4C,$45,$44,$20,$41,$20,$20,$20,$20,$20,$20,$20,$20,$0
L10:.dc.b $53,$65,$71,$20,$30,$31,$20,$4C,$69,$6E,$20,$20,$20,$0
L11:.dc.b $53,$65,$71,$20,$30,$31,$20,$43,$74,$6C,$20,$20,$20,$0
L12:.dc.b $54,$75,$6E,$65,$20,$54,$61,$62,$6C,$65,$20,$20,$20,$0
L13:.dc.b $52,$65,$67,$20,$30,$31,$20,$53,$65,$74,$20,$20,$20,$0
L14:.dc.b $52,$65,$67,$20,$30,$31,$20,$41,$64,$64,$20,$20,$20,$0
L15:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$56,$31,$0
L16:.dc.b $4F,$73,$63,$20,$31,$20,$49,$6E,$74,$20,$20,$56,$31,$0
L17:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$41,$20,$56,$31,$0
L18:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$42,$20,$56,$31,$0
L19:.dc.b $43,$6F,$6E,$66,$69,$67,$75,$72,$65,$20,$20,$56,$31,$0
L20:.dc.b $4C,$65,$76,$65,$6C,$20,$53,$72,$63,$65,$20,$56,$31,$0
L21:.dc.b $49,$6E,$64,$20,$31,$20,$53,$72,$63,$65,$20,$56,$31,$0
L22:.dc.b $46,$72,$71,$20,$31,$20,$53,$72,$63,$65,$20,$56,$31,$0
L23:.dc.b $46,$69,$6C,$74,$72,$20,$53,$72,$63,$65,$20,$56,$31,$0
L24:.dc.b $46,$69,$6C,$20,$51,$20,$53,$72,$63,$65,$20,$56,$31,$0
L25:.dc.b $4C,$6F,$63,$74,$6E,$20,$53,$72,$63,$65,$20,$56,$31,$0
L26:.dc.b $44,$79,$6E,$6D,$63,$20,$53,$72,$63,$65,$20,$56,$31,$0
L27:.dc.b $41,$75,$78,$20,$20,$20,$53,$72,$63,$65,$20,$20,$20,$0
L28:.dc.b $52,$61,$74,$65,$20,$20,$53,$72,$63,$65,$20,$20,$20,$0
L29:.dc.b $49,$6E,$74,$65,$6E,$20,$53,$72,$63,$65,$20,$20,$20,$0
L30:.dc.b $44,$65,$70,$74,$68,$20,$53,$72,$63,$65,$20,$20,$20,$0
L31:.dc.b $56,$6C,$74,$20,$31,$20,$53,$72,$63,$65,$20,$20,$20,$0
L32:.dc.b $46,$72,$71,$20,$0
L33:.dc.b $50,$63,$68,$20,$0
L34:.dc.b $49,$6E,$74,$20,$0
L35:.dc.b $52,$61,$74,$20,$0
L36:.dc.b $30,$30,$2E,$31,$20,$0
L37:.dc.b $30,$43,$20,$30,$30,$0
L38:.dc.b $2B,$30,$30,$30,$30,$0
L39:.dc.b $31,$2F,$31,$20,$20,$0
L40:.dc.b $50,$63,$68,$57,$68,$0
L41:.dc.b $2B,$30,$2E,$30,$30,$0
L42:.dc.b $30,$30,$30,$30,$31,$0
L43:.dc.b $A0,$30,$2E,$30,$30,$0
L44:.dc.b $53,$74,$61,$72,$74,$0
L45:.dc.b $54,$72,$61,$6E,$73,$0
L46:.dc.b $20,$20,$20,$20,$20,$0
L47:.dc.b $53,$74,$61,$72,$74,$0
L48:.dc.b $54,$72,$61,$6E,$73,$0
L49:.dc.b $30,$30,$30,$20,$20,$0
L50:.dc.b $30,$30,$30,$20,$20,$0
L51:.dc.b $53,$74,$61,$72,$74,$0
L52:.dc.b $30,$20,$20,$20,$20,$0
L53:.dc.b $2B,$30,$30,$20,$20,$0
L54:.dc.b $2B,$30,$31,$20,$20,$0
L55:.dc.b $30,$30,$20,$20,$20,$0
L56:.dc.b $2B,$30,$30,$30,$30,$0
L57:.dc.b $30,$31,$20,$20,$20,$0
L58:.dc.b $30,$31,$20,$20,$20,$0
L59:.dc.b $30,$30,$20,$20,$20,$0
L60:.dc.b $50,$63,$68,$57,$68,$0
L61:.dc.b $50,$63,$68,$57,$68,$0
L62:.dc.b $20,$20,$20,$20,$20,$0
L63:.dc.b $20,$20,$20,$20,$20,$0
L64:.dc.b $20,$20,$20,$20,$20,$0
L65:.dc.b $50,$63,$68,$57,$68,$0
L66:.dc.b $50,$63,$68,$57,$68,$0
L67:.dc.b $50,$63,$68,$57,$68,$0
L68:.dc.b $50,$63,$68,$57,$68,$0
L69:.dc.b $50,$63,$68,$57,$68,$0
L70:.dc.b $50,$63,$68,$57,$68,$0
L71:.dc.b $50,$63,$68,$57,$68,$0
L72:.dc.b $50,$63,$68,$57,$68,$0
L73:.dc.b $50,$63,$68,$57,$68,$0
L74:.dc.b $50,$63,$68,$57,$68,$0