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