Index: alcyon/ptdkey.s
===================================================================
--- alcyon/ptdkey.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/ptdkey.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,3337 @@
+.globl _io_time
+.globl _io_lcd
+.globl _io_ser
+.globl _io_midi
+.globl _io_disk
+.globl _io_tone
+.globl _io_leds
+.globl _io_kbrd
+.globl _lcd_a0
+.globl _lcd_a1
+.globl _io_vreg
+.globl _io_vraw
+.globl _io_vram
+.globl _io_fpu
+.globl _v_regs
+.globl _v_odtab
+.globl _v_actab
+.globl _v_ct0
+.globl _v_gt1
+.globl _v_score
+.globl _v_cgtab
+.globl _v_curs0
+.globl _v_curs1
+.globl _v_curs2
+.globl _v_curs3
+.globl _v_curs4
+.globl _v_curs5
+.globl _v_curs6
+.globl _v_curs7
+.globl _v_tcur
+.globl _v_kbobj
+.globl _v_lnobj
+.globl _v_win0
+.globl _v_cur
+.globl _fc_sw
+.globl _fc_val
+.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 _asig
+.globl _astat
+.globl _dpepred
+.globl _dpecpos
+.globl _dpesucc
+.globl _ptegood
+.globl _ptedfok
+.globl _ptestok
+.globl _ptedsok
+.globl _ptedtok
+.globl _ptedef
+.globl _ptestm
+.globl _ptespec
+.globl _ptesuba
+.globl _ptedat1
+.globl _ptedat2
+.globl _ptedftp
+.globl _ptedfst
+.globl _ptedest
+.globl _ptedata
+.globl _pteset
+.globl _ptbflag
+.globl _ptemenu
+.globl _ptepred
+.globl _ptecpos
+.globl _ptesucc
+.globl _stccol
+.globl _stcrow
+.globl _ptdebuf
+.globl _ptebuf
+.globl _dsdecol
+.data
+_dsdecol:
+.dc.w $6
+.dc.w $8
+.dc.w $13
+.dc.w $15
+.dc.w $7
+.dc.w $8
+.dc.w $14
+.dc.w $15
+.dc.w $8
+.dc.w $8
+.dc.w $15
+.dc.w $15
+.dc.w $A
+.dc.w $A
+.dc.w $17
+.dc.w $17
+.dc.w $C
+.dc.w $D
+.dc.w $19
+.dc.w $1A
+.globl _des2fmt
+.data
+_des2fmt:
+.dc.w $FFFF
+.dc.w $0
+.dc.w $1
+.dc.w $2
+.dc.w $3
+.dc.w $4
+.dc.w $4
+.dc.w $5
+.dc.w $4
+.dc.w $4
+.dc.w $6
+.dc.w $9
+.dc.w $6
+.dc.w $6
+.dc.w $6
+.dc.w $A
+.dc.w $9
+.dc.w $9
+.dc.w $A
+.dc.w $A
+.dc.w $A
+.dc.w $A
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $7
+.dc.w $8
+.globl _dtabl7
+.data
+_dtabl7:
+.dc.w $B
+.dc.w $1
+.dc.w $2
+.dc.w $3
+.dc.w $A
+.globl _dtabl9
+.data
+_dtabl9:
+.dc.w $B
+.dc.w $1
+.dc.w $2
+.dc.w $3
+.dc.w $9
+.globl _SnapPTV
+.text
+_SnapPTV:
+~~SnapPTV:
+~s=8
+link R14,#-50
+movem.l R5-R7,-(sp)
+~stim=R7
+~i=R6
+~dbuf=-50
+*line 105
+move.l 8(R14),(sp)
+move.l #L2,-(sp)
+jsr _printf
+addq.l #4,sp
+*line 107
+move #48,(sp)
+move.l #_ptdebuf,-(sp)
+move.l R14,-(sp)
+add.l #-50,(sp)
+jsr _memcpy
+addq.l #8,sp
+*line 109
+clr R6
+bra L5
+L6:
+*line 110
+*line 111
+move R6,R8
+add.l R14,R8
+tst.b -50(R8)
+bne L7
+*line 111
+move R6,R8
+add.l R14,R8
+move.b #32,-50(R8)
+bra L8
+L7:
+*line 112
+*line 113
+move R6,R8
+add.l R14,R8
+btst #7,-50(R8)
+beq L9
+*line 113
+move R6,R8
+add.l R14,R8
+move.b #126,-50(R8)
+*line 114
+L9:L8:L4:
+*line 109
+add #1,R6
+L5:
+*line 109
+cmp #48,R6
+blt L6
+L3:
+*line 115
+clr.b -2(R14)
+*line 117
+move.l R14,(sp)
+add.l #-50,(sp)
+move.l #L10,-(sp)
+jsr _printf
+addq.l #4,sp
+*line 119
+*line 120
+move _ptedat2,(sp)
+move _ptedat1,-(sp)
+move _ptesuba,-(sp)
+move _ptespec,-(sp)
+move _ptestm,-(sp)
+move _ptedef,-(sp)
+move.l #L11,-(sp)
+jsr _printf
+adda.l #14,sp
+*line 122
+*line 123
+*line 124
+move 14+_ptebuf,(sp)
+move 12+_ptebuf,-(sp)
+move 10+_ptebuf,-(sp)
+move 8+_ptebuf,-(sp)
+move 6+_ptebuf,-(sp)
+move 4+_ptebuf,-(sp)
+move.l #L12,-(sp)
+jsr _printf
+adda.l #14,sp
+*line 126
+*line 127
+move _ptemenu,(sp)
+move _ptedata,-(sp)
+move _ptedest,-(sp)
+move _ptedfst,-(sp)
+move _ptedftp,-(sp)
+move.l #L13,-(sp)
+jsr _printf
+adda.l #12,sp
+*line 129
+*line 130
+move _ptbflag,(sp)
+move _pteset,-(sp)
+move _ptedtok,-(sp)
+move _ptedsok,-(sp)
+move _ptestok,-(sp)
+move _ptedfok,-(sp)
+move _ptegood,-(sp)
+move.l #L14,-(sp)
+jsr _printf
+adda.l #16,sp
+*line 132
+*line 133
+move _ptesucc,(sp)
+move _ptecpos,-(sp)
+move _ptepred,-(sp)
+move.l #L15,-(sp)
+jsr _printf
+addq.l #8,sp
+*line 170
+move.l #L16,(sp)
+jsr _printf
+L1:tst.l (sp)+
+movem.l (sp)+,R6-R7
+unlk R14
+rts
+.globl _buf2pte
+.text
+_buf2pte:
+~~buf2pte:
+link R14,#-4
+*line 184
+move _ptedef,4+_ptebuf
+*line 185
+move _ptestm,6+_ptebuf
+*line 186
+move _ptespec,8+_ptebuf
+*line 187
+move _ptesuba,10+_ptebuf
+*line 188
+move _ptedat1,12+_ptebuf
+*line 189
+move _ptedat2,14+_ptebuf
+*line 191
+move #1,_pteset
+L17:unlk R14
+rts
+.globl _voidpb
+.text
+_voidpb:
+~~voidpb:
+link R14,#-4
+*line 216
+move #50,(sp)
+move #32,-(sp)
+move.l #_ptdebuf,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 218
+move #4608,R0
+move R0,_ptedef
+move R0,4+_ptebuf
+*line 219
+clr R0
+move R0,_ptestm
+move R0,6+_ptebuf
+*line 220
+clr R0
+move R0,_ptespec
+move R0,8+_ptebuf
+*line 221
+clr R0
+move R0,_ptesuba
+move R0,10+_ptebuf
+*line 222
+clr R0
+move R0,_ptedat1
+move R0,12+_ptebuf
+*line 223
+clr R0
+move R0,_ptedat2
+move R0,14+_ptebuf
+*line 225
+clr _ptbflag
+*line 227
+clr _pteset
+*line 229
+clr _ptegood
+*line 231
+move #1,_ptedfok
+*line 232
+clr _ptestok
+*line 233
+clr _ptedsok
+*line 234
+clr _ptedtok
+*line 236
+move #-1,_ptedfst
+*line 237
+move #-1,_ptedest
+*line 238
+move #-1,_ptedata
+L18:unlk R14
+rts
+.globl _setptcv
+.text
+_setptcv:
+~~setptcv:
+link R14,#0
+movem.l R6-R7,-(sp)
+~spec=R7
+*line 265
+move _ptespec,R7
+and #255,R7
+clr R0
+move R7,R0
+lsl #1,R0
+swap R0
+clr R0
+swap R0
+add.l #_des2fmt,R0
+move.l R0,R8
+move (R8),_ptedest
+*line 267
+move _ptedest,R0
+bra L21
+*line 268
+L22:
+*line 269
+L23:
+*line 270
+*line 271
+*line 272
+move #8,_ptedata
+bra L20
+*line 273
+*line 274
+L24:
+*line 275
+*line 276
+*line 277
+move #9,_ptedata
+bra L20
+*line 278
+*line 279
+L25:
+*line 280
+*line 281
+*line 282
+move #14,_ptedata
+bra L20
+*line 283
+*line 284
+*line 285
+L26:
+*line 286
+*line 287
+*line 288
+*line 289
+cmp #5,R7
+bne L27
+*line 289
+move #13,_ptedata
+bra L28
+L27:
+*line 290
+*line 291
+cmp #6,R7
+bne L29
+*line 291
+move #9,_ptedata
+*line 292
+bra L30
+L29:
+*line 293
+move #12,_ptedata
+L30:L28:
+*line 294
+bra L20
+*line 295
+*line 296
+L31:
+*line 297
+*line 298
+*line 299
+move #18,_ptedata
+bra L20
+*line 300
+*line 301
+L32:
+*line 302
+*line 303
+*line 304
+*line 305
+cmp #10,R7
+bne L33
+*line 305
+move #15,_ptedata
+bra L34
+L33:
+*line 306
+*line 307
+cmp #14,R7
+bne L35
+*line 307
+move #17,_ptedata
+*line 308
+bra L36
+L35:
+*line 309
+move #16,_ptedata
+L36:L34:
+*line 310
+bra L20
+*line 311
+*line 312
+L37:
+*line 313
+L38:
+*line 314
+*line 315
+*line 316
+move _ptedat1,R8
+add.l R8,R8
+add.l #_dtabl7,R8
+move (R8),_ptedata
+bra L20
+*line 317
+*line 318
+L39:
+*line 319
+L40:
+*line 320
+*line 321
+*line 322
+*line 323
+cmp #11,R7
+bne L41
+*line 323
+move _ptedat1,R0
+add #4,R0
+move R0,_ptedata
+*line 324
+bra L42
+L41:
+*line 325
+move _ptedat1,R8
+add.l R8,R8
+add.l #_dtabl9,R8
+move (R8),_ptedata
+L42:
+*line 326
+bra L20
+*line 327
+*line 328
+L43:
+*line 329
+*line 330
+*line 335
+*line 336
+*line 337
+move #-1,_ptedata
+bra L20
+*line 338
+bra L20
+L21:cmp #10,R0
+bhi L43
+asl #2,R0
+move R0,R8
+add.l #L44,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L44:.dc.l L22
+.dc.l L24
+.dc.l L23
+.dc.l L25
+.dc.l L26
+.dc.l L31
+.dc.l L32
+.dc.l L37
+.dc.l L38
+.dc.l L39
+.dc.l L40
+.text
+L20:L19:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _pte2buf
+.text
+_pte2buf:
+~~pte2buf:
+link R14,#0
+movem.l R6-R7,-(sp)
+~spec=R7
+*line 355
+move #50,(sp)
+move #32,-(sp)
+move.l #_ptdebuf,-(sp)
+jsr _memset
+addq.l #6,sp
+*line 357
+move #1,_ptbflag
+*line 359
+*line 359
+tst _pteset
+beq L46
+*line 360
+*line 361
+move 4+_ptebuf,_ptedef
+*line 362
+move 6+_ptebuf,_ptestm
+*line 363
+move 8+_ptebuf,_ptespec
+*line 364
+move 10+_ptebuf,_ptesuba
+*line 365
+move 12+_ptebuf,_ptedat1
+*line 366
+move 14+_ptebuf,_ptedat2
+*line 367
+*line 368
+jsr _setptcv
+*line 369
+*line 370
+move _ptedef,(sp)
+move.l #2+_ptdebuf,-(sp)
+jsr _dspdfst
+addq.l #4,sp
+*line 371
+move _ptestm,(sp)
+move.l #15+_ptdebuf,-(sp)
+jsr _dspdfst
+addq.l #4,sp
+*line 372
+move.l #_ptebuf,(sp)
+move.l #28+_ptdebuf,-(sp)
+jsr _dspdest
+addq.l #4,sp
+*line 373
+move.b #32,_ptdebuf
+*line 374
+move.b #32,1+_ptdebuf
+*line 375
+move.b #32,14+_ptdebuf
+*line 376
+move.b #32,27+_ptdebuf
+*line 377
+*line 378
+*line 379
+*line 380
+move #1,_ptegood
+*line 381
+move #1,_ptedfok
+*line 382
+move #1,_ptestok
+*line 383
+move #1,_ptedsok
+*line 384
+move #1,_ptedtok
+*line 385
+*line 394
+*line 395
+bra L47
+L46:
+*line 396
+*line 397
+*line 398
+jsr _voidpb
+*line 399
+*line 403
+*line 404
+L47:L45:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _ptde_ds
+.text
+_ptde_ds:
+~~ptde_ds:
+~n=R7
+~key=R6
+link R14,#-16
+movem.l R2-R7,-(sp)
+~chan=R5
+~port=R4
+~stim=R3
+~buf=-8
+~buf2=-16
+*line 423
+move 8(R14),R7
+*line 423
+move 10(R14),R6
+*line 423
+*line 423
+tst R7
+beq L10000
+move _ptestok,R0
+bra L10002
+L10000:move _ptedfok,R0
+L10002:tst R0
+beq L49
+*line 424
+*line 425
+*line 426
+tst R7
+bne L10003
+cmp #-1,_ptedef
+beq L48
+L10003:*line 427
+*line 428
+tst R7
+beq L10004
+move _ptestm,R0
+bra L10006
+L10004:move _ptedef,R0
+L10006:move R0,R4
+move #11,R0
+asr R0,R4
+and #3,R4
+*line 429
+tst R7
+beq L10007
+move _ptestm,R0
+bra L10009
+L10007:move _ptedef,R0
+L10009:move R0,R5
+asr #7,R5
+and #15,R5
+*line 430
+tst R7
+beq L10010
+move _ptestm,R0
+bra L10012
+L10010:move _ptedef,R0
+L10012:move R0,R3
+and #127,R3
+*line 431
+*line 432
+*line 432
+tst R4
+beq L10013
+cmp #1,R4
+beq L10013
+cmp #2,R4
+bne L50
+cmp #2,R5
+bge L50
+L10013:*line 433
+*line 434
+*line 435
+*line 436
+*line 437
+*line 438
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 0(R8,R9.l),R0
+cmp _stccol,R0
+bgt L10015
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 2(R8,R9.l),R0
+cmp _stccol,R0
+bge L10014
+L10015:move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 24(R8,R9.l),R0
+cmp _stccol,R0
+bgt L10016
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 26(R8,R9.l),R0
+cmp _stccol,R0
+bge L10014
+L10016:move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 32(R8,R9.l),R0
+cmp _stccol,R0
+bgt L51
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 34(R8,R9.l),R0
+cmp _stccol,R0
+blt L51
+L10014:*line 439
+*line 440
+*line 440
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 26(R8,R9.l),R0
+cmp _stccol,R0
+bne L52
+*line 441
+*line 442
+*line 443
+cmp #1,R6
+blt L48
+cmp #3,R6
+bgt L48
+*line 444
+*line 445
+*line 445
+cmp #3,R6
+bne L53
+*line 446
+*line 447
+move.b #76,-8(R14)
+*line 448
+move #98,(sp)
+move.l #L54,-(sp)
+tst R7
+beq L10017
+move #25,-(sp)
+bra L10019
+L10017:move #12,-(sp)
+L10019:move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 449
+*line 450
+*line 451
+tst R7
+beq L55
+*line 451
+and #-1921,_ptestm
+*line 452
+bra L56
+L55:
+*line 453
+and #-1921,_ptedef
+L56:
+*line 454
+bra L57
+L53:
+*line 455
+*line 456
+*line 457
+move R5,(sp)
+add #1,(sp)
+move.l #L58,-(sp)
+move.l R14,-(sp)
+add.l #-16,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 458
+move R6,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 459
+move #98,(sp)
+move.l R14,-(sp)
+add.l #-16,(sp)
+tst R7
+beq L10020
+move #25,-(sp)
+bra L10022
+L10020:move #12,-(sp)
+L10022:move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+L57:
+*line 460
+*line 461
+*line 462
+*line 463
+move R6,R4
+sub #1,R4
+*line 464
+*line 465
+*line 466
+tst R7
+beq L59
+*line 466
+move _ptestm,R0
+and #-6145,R0
+move R4,R1
+move #11,R2
+asl R2,R1
+or R1,R0
+move R0,_ptestm
+*line 467
+bra L60
+L59:
+*line 468
+move _ptestm,R0
+and #-6145,R0
+move R4,R1
+move #11,R2
+asl R2,R1
+or R1,R0
+move R0,_ptedef
+L60:
+*line 469
+bra L61
+L52:
+*line 470
+*line 471
+*line 472
+move R6,R0
+add #48,R0
+move.b R0,-8(R14)
+L61:
+*line 473
+*line 474
+*line 475
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 476
+clr.b -7(R14)
+*line 477
+*line 478
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 479
+*line 480
+*line 480
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 34(R8,R9.l),R0
+cmp _stccol,R0
+bne L62
+*line 481
+*line 482
+jsr _ctcon
+bra L48
+*line 483
+*line 484
+*line 485
+L62:
+*line 486
+*line 487
+*line 488
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 2(R8,R9.l),R0
+cmp _stccol,R0
+beq L10023
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 26(R8,R9.l),R0
+cmp _stccol,R0
+bne L63
+L10023:*line 488
+add #1,_stccol
+*line 489
+L63:
+*line 490
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+*line 491
+*line 492
+L51:bra L48
+*line 493
+*line 494
+*line 495
+bra L64
+L50:
+*line 496
+*line 496
+cmp #2,R4
+bne L65
+cmp #2,R5
+bne L65
+*line 497
+*line 498
+*line 499
+*line 500
+*line 500
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 8(R8,R9.l),R0
+cmp _stccol,R0
+bgt L66
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 10(R8,R9.l),R0
+cmp _stccol,R0
+blt L66
+*line 501
+*line 502
+move R6,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 503
+move R6,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 504
+clr.b -7(R14)
+*line 505
+*line 506
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 507
+*line 508
+*line 508
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 10(R8,R9.l),R0
+cmp _stccol,R0
+bne L67
+*line 509
+*line 510
+jsr _ctcon
+bra L48
+*line 511
+*line 512
+*line 513
+L67:
+*line 514
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+*line 515
+*line 516
+L66:bra L48
+*line 517
+*line 518
+bra L68
+L65:
+*line 519
+*line 519
+cmp #2,R4
+bne L69
+cmp #3,R5
+bne L69
+*line 520
+*line 521
+*line 522
+*line 523
+*line 523
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_dsdecol,R9
+move 18(R8,R9.l),R0
+cmp _stccol,R0
+bne L70
+*line 524
+*line 525
+*line 526
+cmp #1,R6
+blt L48
+cmp #2,R6
+bgt L48
+*line 527
+*line 528
+move R6,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 529
+move R6,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 530
+clr.b -7(R14)
+*line 531
+*line 532
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 533
+jsr _ctcon
+*line 534
+*line 535
+L70:bra L48
+*line 536
+*line 537
+L69:L68:L64:
+*line 538
+L49:L48:tst.l (sp)+
+movem.l (sp)+,R3-R7
+unlk R14
+rts
+.globl _ptdkey
+.text
+_ptdkey:
+~~ptdkey:
+link R14,#-8
+movem.l R4-R7,-(sp)
+~key=R7
+~val=R6
+~vg=R5
+~buf=-8
+*line 555
+*line 556
+tst _astat
+beq L71
+*line 557
+*line 558
+*line 559
+tst _ptbflag
+bne L72
+*line 559
+jsr _pte2buf
+*line 560
+L72:
+*line 561
+move _asig,R7
+add #-60,R7
+*line 563
+*line 563
+cmp #2,_stccol
+blt L73
+cmp #13,_stccol
+bgt L73
+*line 564
+*line 565
+move R7,(sp)
+clr -(sp)
+jsr _ptde_ds
+addq.l #2,sp
+bra L71
+*line 566
+*line 567
+bra L74
+L73:
+*line 568
+*line 568
+cmp #15,_stccol
+blt L75
+cmp #26,_stccol
+bgt L75
+*line 569
+*line 570
+move R7,(sp)
+move #1,-(sp)
+jsr _ptde_ds
+addq.l #2,sp
+bra L71
+*line 571
+*line 572
+*line 573
+bra L76
+L75:
+*line 574
+*line 574
+cmp #28,_stccol
+blt L77
+cmp #40,_stccol
+bgt L77
+*line 575
+*line 576
+*line 576
+tst _ptedsok
+beq L78
+*line 577
+*line 578
+move _ptedest,R0
+bra L80
+*line 579
+L81:
+*line 580
+*line 581
+*line 582
+*line 583
+*line 584
+cmp #30,_stccol
+blt L10025
+cmp #32,_stccol
+ble L10024
+L10025:cmp #34,_stccol
+beq L10024
+cmp #36,_stccol
+blt L82
+cmp #37,_stccol
+bgt L82
+L10024:*line 585
+*line 586
+*line 586
+cmp #34,_stccol
+bne L83
+*line 587
+*line 588
+*line 589
+cmp #1,R7
+blt L71
+cmp #3,R7
+bgt L71
+*line 590
+*line 591
+*line 592
+cmp #3,R7
+bne L84
+*line 592
+move.b #76,-8(R14)
+*line 593
+bra L85
+L84:
+*line 594
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+L85:
+*line 595
+bra L86
+L83:
+*line 596
+*line 597
+*line 598
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+L86:
+*line 599
+*line 600
+*line 601
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 602
+clr.b -7(R14)
+*line 603
+*line 604
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 605
+*line 606
+*line 607
+cmp #32,_stccol
+beq L10026
+cmp #34,_stccol
+bne L87
+L10026:*line 607
+add #1,_stccol
+*line 608
+L87:
+*line 609
+*line 610
+cmp #37,_stccol
+bne L88
+*line 610
+jsr _ctcon
+*line 611
+bra L89
+L88:
+*line 612
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L89:
+*line 613
+*line 614
+L82:bra L71
+*line 615
+*line 616
+*line 617
+L90:
+*line 618
+*line 619
+*line 620
+*line 620
+cmp #36,_stccol
+blt L91
+cmp #37,_stccol
+bgt L91
+*line 621
+*line 622
+move R7,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 623
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 624
+clr.b -7(R14)
+*line 625
+*line 626
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 627
+*line 628
+*line 629
+cmp #37,_stccol
+bne L92
+*line 629
+jsr _ctcon
+*line 630
+bra L93
+L92:
+*line 631
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L93:
+*line 632
+*line 633
+L91:bra L71
+*line 634
+*line 635
+L94:
+*line 636
+*line 637
+*line 638
+*line 638
+cmp #34,_stccol
+bne L95
+*line 639
+*line 640
+*line 641
+cmp #1,R7
+blt L71
+cmp #2,R7
+bgt L71
+*line 642
+*line 643
+move R7,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 644
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 645
+clr.b -7(R14)
+*line 646
+*line 647
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 648
+jsr _ctcon
+*line 649
+*line 650
+L95:bra L71
+*line 651
+*line 652
+*line 653
+L96:
+*line 654
+*line 655
+*line 656
+*line 656
+cmp #32,_stccol
+bne L97
+*line 657
+*line 658
+*line 659
+cmp #6,R7
+bgt L71
+*line 660
+*line 661
+move R7,R0
+add #65,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 662
+move R7,R0
+add #65,R0
+move.b R0,-8(R14)
+*line 663
+clr.b -7(R14)
+*line 664
+*line 665
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 666
+jsr _ctcon
+*line 667
+*line 668
+L97:bra L71
+*line 669
+*line 670
+L98:
+*line 671
+*line 672
+*line 673
+*line 673
+cmp #32,_stccol
+blt L99
+cmp #33,_stccol
+bgt L99
+*line 674
+*line 675
+move R7,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 676
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 677
+clr.b -7(R14)
+*line 678
+*line 679
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 680
+*line 681
+*line 682
+cmp #33,_stccol
+bne L100
+*line 682
+jsr _ctcon
+*line 683
+bra L101
+L100:
+*line 684
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L101:
+*line 685
+*line 686
+L99:bra L71
+*line 687
+*line 688
+*line 689
+L102:
+*line 690
+L103:
+*line 691
+*line 692
+bra L71
+*line 693
+*line 694
+L104:
+*line 695
+*line 696
+*line 697
+*line 697
+cmp #32,_stccol
+bne L105
+*line 698
+*line 699
+*line 700
+cmp #1,R7
+blt L71
+cmp #5,R7
+bgt L71
+*line 701
+*line 702
+move R7,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 703
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 704
+clr.b -7(R14)
+*line 705
+*line 706
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 707
+move #34,(sp)
+move #9,-(sp)
+jsr _movectc
+addq.l #2,sp
+*line 708
+*line 709
+L105:bra L71
+*line 710
+*line 711
+L106:
+*line 712
+*line 713
+*line 714
+*line 714
+cmp #32,_stccol
+bne L107
+*line 715
+*line 716
+*line 717
+cmp #1,R7
+blt L71
+cmp #4,R7
+bgt L71
+*line 718
+*line 719
+move R7,R0
+add #48,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 720
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 721
+clr.b -7(R14)
+*line 722
+*line 723
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 724
+move #34,(sp)
+move #9,-(sp)
+jsr _movectc
+addq.l #2,sp
+bra L71
+*line 725
+*line 726
+*line 727
+*line 728
+*line 729
+*line 730
+L107:L108:
+*line 731
+L109:
+*line 732
+*line 733
+*line 734
+*line 734
+cmp #39,_stccol
+blt L110
+cmp #40,_stccol
+bgt L110
+*line 735
+*line 736
+move _ptesuba,R5
+asr #8,R5
+and #255,R5
+*line 737
+*line 738
+*line 738
+cmp #39,_stccol
+bne L111
+*line 739
+*line 740
+*line 740
+cmp #8,R7
+beq L10027
+cmp #9,R7
+bne L112
+L10027:*line 741
+*line 742
+*line 742
+cmp #11,R5
+ble L113
+*line 743
+*line 744
+sub #12,R5
+*line 745
+move #86,R6
+*line 746
+bra L114
+L113:
+*line 747
+*line 748
+*line 749
+add #12,R5
+*line 750
+move #71,R6
+L114:
+*line 751
+*line 752
+*line 753
+*line 754
+move _ptesuba,R0
+and #255,R0
+move R5,R1
+asl #8,R1
+or R1,R0
+move R0,_ptesuba
+*line 755
+bra L115
+L112:
+*line 756
+*line 757
+bra L71
+*line 758
+L115:
+*line 759
+*line 760
+*line 761
+bra L116
+L111:
+*line 762
+*line 763
+*line 764
+*line 765
+*line 766
+tst R5
+beq L10028
+cmp #12,R5
+bne L117
+L10028:tst R7
+beq L10029
+cmp #1,R7
+beq L10029
+cmp #2,R7
+bne L117
+L10029:*line 766
+add #10,R7
+bra L118
+L117:
+*line 767
+*line 768
+tst R7
+beq L71
+*line 769
+L118:
+*line 770
+move R7,R6
+cmp #9,R7
+ble L10030
+move #162,R0
+bra L10032
+L10030:move #48,R0
+L10032:add R0,R6
+*line 771
+*line 772
+sub #1,R7
+*line 773
+*line 774
+*line 775
+cmp #11,R5
+ble L119
+*line 775
+move R7,R5
+add #12,R5
+*line 776
+bra L120
+L119:
+*line 777
+move R7,R5
+L120:
+*line 778
+*line 779
+*line 780
+move _ptesuba,R0
+and #255,R0
+move R5,R1
+asl #8,R1
+or R1,R0
+move R0,_ptesuba
+L116:
+*line 781
+*line 782
+*line 783
+move R6,R0
+move.l #_ptdebuf,R9
+move _stccol,R10
+add.l R10,R9
+move.b R0,(R9)
+*line 784
+move.b R6,-8(R14)
+*line 785
+clr.b -7(R14)
+*line 786
+*line 787
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 788
+*line 789
+*line 790
+cmp #40,_stccol
+bne L121
+*line 790
+jsr _ctcon
+*line 791
+bra L122
+L121:
+*line 792
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L122:
+*line 793
+*line 794
+L110:bra L71
+*line 795
+*line 796
+L123:
+*line 797
+*line 798
+bra L71
+*line 799
+bra L79
+L80:cmp #10,R0
+bhi L123
+asl #2,R0
+move R0,R8
+add.l #L124,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L124:.dc.l L81
+.dc.l L90
+.dc.l L94
+.dc.l L96
+.dc.l L98
+.dc.l L102
+.dc.l L108
+.dc.l L103
+.dc.l L104
+.dc.l L106
+.dc.l L109
+.text
+L79:
+*line 800
+*line 801
+*line 802
+*line 803
+L78:bra L125
+L77:
+*line 804
+*line 804
+cmp #42,_stccol
+blt L126
+cmp #46,_stccol
+bgt L126
+*line 805
+*line 806
+move _ptedata,R0
+bra L128
+*line 807
+L129:
+*line 808
+*line 809
+*line 810
+move _stccol,R0
+bra L131
+*line 811
+L132:
+*line 812
+*line 813
+*line 814
+*line 815
+cmp #8,R7
+bne L133
+*line 815
+move.b #45,-8(R14)
+bra L134
+L133:
+*line 816
+*line 817
+cmp #9,R7
+bne L135
+*line 817
+move.b #43,-8(R14)
+*line 818
+bra L136
+L135:bra L71
+L136:L134:
+*line 819
+*line 820
+bra L130
+*line 821
+*line 822
+L137:
+*line 823
+*line 824
+*line 825
+*line 826
+tst R7
+beq L10033
+cmp #1,R7
+bne L138
+L10033:*line 826
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 827
+bra L139
+L138:bra L71
+L139:
+*line 828
+*line 829
+bra L130
+*line 830
+*line 831
+L140:
+*line 832
+L141:
+*line 833
+*line 834
+*line 835
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+bra L130
+*line 836
+*line 837
+L142:
+*line 838
+L143:
+*line 839
+*line 840
+bra L71
+*line 841
+bra L130
+L131:sub #42,R0
+cmp #4,R0
+bhi L143
+asl #2,R0
+move R0,R8
+add.l #L144,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L144:.dc.l L132
+.dc.l L137
+.dc.l L142
+.dc.l L140
+.dc.l L141
+.text
+L130:
+*line 842
+*line 843
+*line 844
+*line 845
+clr.b -7(R14)
+*line 846
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 847
+*line 848
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 849
+*line 850
+*line 851
+cmp #43,_stccol
+bne L145
+*line 851
+add #1,_stccol
+*line 852
+L145:
+*line 853
+*line 854
+cmp #46,_stccol
+bne L146
+*line 854
+jsr _ctcon
+*line 855
+bra L147
+L146:
+*line 856
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L147:
+*line 857
+bra L71
+*line 858
+*line 859
+*line 860
+L148:
+*line 861
+*line 862
+*line 863
+*line 864
+cmp #42,_stccol
+bne L10034
+cmp #3,R7
+bgt L71
+L10034:*line 865
+*line 866
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 867
+clr.b -7(R14)
+*line 868
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 869
+*line 870
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 871
+*line 872
+*line 873
+cmp #46,_stccol
+bne L149
+*line 873
+jsr _ctcon
+*line 874
+bra L150
+L149:
+*line 875
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L150:
+*line 876
+bra L71
+*line 877
+*line 878
+*line 879
+*line 880
+L151:
+*line 881
+*line 882
+*line 883
+move _stccol,R0
+bra L153
+*line 884
+L154:
+*line 885
+*line 886
+*line 887
+*line 887
+cmp #8,R7
+bne L155
+*line 888
+*line 889
+*line 890
+cmp.b #160,42+_ptdebuf
+bne L156
+*line 890
+move.b #161,-8(R14)
+bra L157
+L156:
+*line 891
+*line 892
+cmp.b #161,42+_ptdebuf
+bne L158
+*line 892
+move.b #161,-8(R14)
+*line 893
+bra L159
+L158:
+*line 894
+move.b #45,-8(R14)
+L159:L157:
+*line 895
+bra L160
+L155:
+*line 896
+*line 896
+cmp #9,R7
+bne L161
+*line 897
+*line 898
+*line 899
+cmp.b #160,42+_ptdebuf
+bne L162
+*line 899
+move.b #160,-8(R14)
+bra L163
+L162:
+*line 900
+*line 901
+cmp.b #161,42+_ptdebuf
+bne L164
+*line 901
+move.b #160,-8(R14)
+*line 902
+bra L165
+L164:
+*line 903
+move.b #43,-8(R14)
+L165:L163:
+*line 904
+bra L166
+L161:
+*line 905
+*line 905
+tst R7
+bne L167
+*line 906
+*line 907
+*line 908
+cmp.b #160,42+_ptdebuf
+bne L168
+*line 908
+move.b #43,-8(R14)
+bra L169
+L168:
+*line 909
+*line 910
+cmp.b #161,42+_ptdebuf
+bne L170
+*line 910
+move.b #45,-8(R14)
+*line 911
+bra L171
+L170:bra L71
+L171:L169:
+*line 912
+*line 913
+bra L172
+L167:
+*line 914
+*line 914
+cmp #1,R7
+bne L173
+*line 915
+*line 916
+*line 917
+cmp.b #160,42+_ptdebuf
+bne L174
+*line 917
+move.b #160,-8(R14)
+bra L175
+L174:
+*line 918
+*line 919
+cmp.b #161,42+_ptdebuf
+bne L176
+*line 919
+move.b #161,-8(R14)
+bra L177
+L176:
+*line 920
+*line 921
+cmp.b #43,42+_ptdebuf
+bne L178
+*line 921
+move.b #160,-8(R14)
+bra L179
+L178:
+*line 922
+*line 923
+cmp.b #45,42+_ptdebuf
+bne L180
+*line 923
+move.b #161,-8(R14)
+*line 924
+bra L181
+L180:bra L71
+L181:L179:L177:L175:
+*line 925
+*line 926
+*line 927
+bra L182
+L173:bra L71
+L182:L172:L166:L160:
+*line 928
+*line 929
+bra L152
+*line 930
+*line 931
+*line 932
+L183:
+*line 933
+L184:
+*line 934
+L185:
+*line 935
+*line 936
+*line 937
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+bra L152
+*line 938
+*line 939
+L186:
+*line 940
+L187:
+*line 941
+bra L71
+*line 942
+bra L152
+L153:sub #42,R0
+cmp #4,R0
+bhi L187
+asl #2,R0
+move R0,R8
+add.l #L188,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L188:.dc.l L154
+.dc.l L183
+.dc.l L186
+.dc.l L184
+.dc.l L185
+.text
+L152:
+*line 943
+*line 944
+*line 945
+clr.b -7(R14)
+*line 946
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 947
+*line 948
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 949
+*line 950
+*line 951
+cmp #43,_stccol
+bne L189
+*line 951
+add #1,_stccol
+*line 952
+L189:
+*line 953
+*line 954
+cmp #46,_stccol
+bne L190
+*line 954
+jsr _ctcon
+*line 955
+bra L191
+L190:
+*line 956
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L191:
+*line 957
+bra L71
+*line 958
+*line 959
+*line 960
+L192:
+*line 961
+*line 962
+*line 963
+*line 963
+cmp #42,_stccol
+bne L193
+*line 964
+*line 965
+*line 966
+cmp #8,R7
+bne L194
+*line 966
+move.b #45,-8(R14)
+bra L195
+L194:
+*line 967
+*line 968
+cmp #9,R7
+bne L196
+*line 968
+move.b #43,-8(R14)
+*line 969
+bra L197
+L196:bra L71
+L197:L195:
+*line 970
+*line 971
+bra L198
+L193:
+*line 972
+*line 972
+cmp #43,_stccol
+bne L199
+*line 973
+*line 974
+*line 975
+cmp #1,R7
+bgt L71
+*line 976
+*line 977
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 978
+bra L200
+L199:
+*line 979
+*line 980
+*line 981
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+L200:L198:
+*line 982
+*line 983
+*line 984
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 985
+clr.b -7(R14)
+*line 986
+*line 987
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 988
+*line 989
+*line 990
+cmp #46,_stccol
+bne L201
+*line 990
+jsr _ctcon
+*line 991
+bra L202
+L201:
+*line 992
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L202:
+*line 993
+bra L71
+*line 994
+*line 995
+*line 996
+L203:
+*line 997
+*line 998
+*line 999
+move _stccol,R0
+bra L205
+*line 1000
+L206:
+*line 1001
+L207:
+*line 1002
+*line 1003
+*line 1004
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+bra L204
+*line 1005
+*line 1006
+L208:
+*line 1007
+L209:
+*line 1008
+L210:
+*line 1009
+*line 1010
+bra L71
+*line 1011
+bra L204
+L205:sub #42,R0
+cmp #4,R0
+bhi L204
+asl #2,R0
+move R0,R8
+add.l #L211,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L211:.dc.l L206
+.dc.l L208
+.dc.l L207
+.dc.l L209
+.dc.l L210
+.text
+L204:
+*line 1012
+*line 1013
+*line 1014
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1015
+clr.b -7(R14)
+*line 1016
+*line 1017
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1018
+*line 1019
+*line 1020
+cmp #42,_stccol
+bne L212
+*line 1020
+add #1,_stccol
+*line 1021
+L212:
+*line 1022
+*line 1023
+cmp #44,_stccol
+bne L213
+*line 1023
+jsr _ctcon
+*line 1024
+bra L214
+L213:
+*line 1025
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L214:
+*line 1026
+bra L71
+*line 1027
+*line 1028
+*line 1029
+L215:
+*line 1030
+*line 1031
+*line 1032
+move _stccol,R0
+bra L217
+*line 1033
+L218:
+*line 1034
+*line 1035
+*line 1036
+*line 1037
+cmp #1,R7
+bgt L71
+*line 1038
+*line 1039
+*line 1040
+L219:
+*line 1041
+L220:
+*line 1042
+*line 1043
+*line 1044
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+bra L216
+*line 1045
+*line 1046
+L221:
+*line 1047
+L222:
+*line 1048
+*line 1049
+bra L71
+*line 1050
+bra L216
+L217:sub #42,R0
+cmp #4,R0
+bhi L216
+asl #2,R0
+move R0,R8
+add.l #L223,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L223:.dc.l L218
+.dc.l L219
+.dc.l L221
+.dc.l L220
+.dc.l L222
+.text
+L216:
+*line 1051
+*line 1052
+*line 1053
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1054
+clr.b -7(R14)
+*line 1055
+*line 1056
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1057
+*line 1058
+*line 1059
+cmp #43,_stccol
+bne L224
+*line 1059
+add #1,_stccol
+*line 1060
+L224:
+*line 1061
+*line 1062
+cmp #45,_stccol
+bne L225
+*line 1062
+jsr _ctcon
+*line 1063
+bra L226
+L225:
+*line 1064
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L226:
+*line 1065
+bra L71
+*line 1066
+*line 1067
+*line 1068
+L227:
+*line 1069
+*line 1070
+*line 1071
+move _stccol,R0
+bra L229
+*line 1072
+L230:
+*line 1073
+*line 1074
+*line 1075
+*line 1076
+cmp #6,R7
+bgt L71
+*line 1077
+*line 1078
+move R7,R0
+add #65,R0
+move.b R0,-8(R14)
+bra L228
+*line 1079
+*line 1080
+L231:
+*line 1081
+*line 1082
+*line 1083
+*line 1084
+cmp #7,R7
+bne L232
+*line 1084
+move.b #32,-8(R14)
+bra L233
+L232:
+*line 1085
+*line 1086
+cmp #8,R7
+bne L234
+*line 1086
+move.b #169,-8(R14)
+bra L235
+L234:
+*line 1087
+*line 1088
+cmp #9,R7
+bne L236
+*line 1088
+move.b #168,-8(R14)
+*line 1089
+bra L237
+L236:bra L71
+L237:L235:L233:
+*line 1090
+*line 1091
+bra L228
+*line 1092
+*line 1093
+L238:
+*line 1094
+L239:
+*line 1095
+L240:
+*line 1096
+*line 1097
+*line 1098
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+bra L228
+*line 1099
+bra L228
+L229:sub #42,R0
+cmp #4,R0
+bhi L228
+asl #2,R0
+move R0,R8
+add.l #L241,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L241:.dc.l L238
+.dc.l L230
+.dc.l L231
+.dc.l L239
+.dc.l L240
+.text
+L228:
+*line 1100
+*line 1101
+*line 1102
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1103
+clr.b -7(R14)
+*line 1104
+*line 1105
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1106
+*line 1107
+*line 1108
+cmp #46,_stccol
+bne L242
+*line 1108
+jsr _ctcon
+*line 1109
+bra L243
+L242:
+*line 1110
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L243:
+*line 1111
+bra L71
+*line 1112
+*line 1113
+*line 1114
+L244:
+*line 1115
+*line 1116
+*line 1117
+move R7,R0
+bra L246
+*line 1118
+L247:
+*line 1119
+*line 1120
+*line 1121
+move.l #L248,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1122
+clr _ptedat2
+bra L245
+*line 1123
+*line 1124
+L249:
+*line 1125
+*line 1126
+*line 1127
+move.l #L250,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1128
+move #1,_ptedat2
+bra L245
+*line 1129
+*line 1130
+L251:
+*line 1131
+*line 1132
+*line 1133
+move.l #L252,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1134
+move #2,_ptedat2
+bra L245
+*line 1135
+*line 1136
+L253:
+*line 1137
+*line 1138
+bra L71
+*line 1139
+bra L245
+L246:cmp #7,R0
+beq L247
+cmp #8,R0
+beq L249
+cmp #9,R0
+beq L251
+bra L253
+L245:
+*line 1140
+*line 1141
+*line 1142
+move.l R14,(sp)
+sub.l #8,(sp)
+move.l #42+_ptdebuf,-(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1143
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move #42,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1144
+move #46,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+bra L71
+*line 1145
+*line 1146
+*line 1147
+L254:
+*line 1148
+*line 1149
+*line 1150
+*line 1150
+cmp #8,R7
+bne L255
+*line 1151
+*line 1152
+move.l #L256,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1153
+clr _ptedat2
+*line 1154
+bra L257
+L255:
+*line 1155
+*line 1155
+cmp #9,R7
+bne L258
+*line 1156
+*line 1157
+move.l #L259,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1158
+move #1,_ptedat2
+*line 1159
+bra L260
+L258:
+*line 1160
+*line 1161
+bra L71
+*line 1162
+L260:L257:
+*line 1163
+*line 1164
+*line 1165
+move.l R14,(sp)
+sub.l #8,(sp)
+move.l #42+_ptdebuf,-(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1166
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move #42,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1167
+move #46,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+bra L71
+*line 1168
+*line 1169
+L261:
+*line 1170
+*line 1171
+*line 1172
+*line 1172
+cmp #8,R7
+bne L262
+*line 1173
+*line 1174
+move.l #L263,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1175
+clr _ptedat2
+*line 1176
+bra L264
+L262:
+*line 1177
+*line 1177
+cmp #9,R7
+bne L265
+*line 1178
+*line 1179
+move.l #L266,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1180
+move #1,_ptedat2
+*line 1181
+bra L267
+L265:
+*line 1182
+*line 1183
+bra L71
+*line 1184
+L267:L264:
+*line 1185
+*line 1186
+*line 1187
+move.l R14,(sp)
+sub.l #8,(sp)
+move.l #42+_ptdebuf,-(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 1188
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move #42,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1189
+move #46,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+bra L71
+*line 1190
+*line 1191
+*line 1192
+L268:
+*line 1193
+*line 1194
+bra L71
+*line 1195
+*line 1196
+L269:
+*line 1197
+*line 1198
+*line 1199
+move _stccol,R0
+bra L271
+*line 1200
+L272:
+*line 1201
+*line 1202
+*line 1203
+*line 1204
+cmp #7,R7
+bne L273
+*line 1204
+move.b #82,-8(R14)
+bra L274
+L273:
+*line 1205
+*line 1206
+cmp #8,R7
+bne L275
+move _ptespec,R0
+and #255,R0
+cmp #8,R0
+beq L275
+*line 1206
+move.b #45,-8(R14)
+bra L276
+L275:
+*line 1207
+*line 1208
+cmp #9,R7
+bne L277
+*line 1208
+move.b #43,-8(R14)
+*line 1209
+bra L278
+L277:bra L71
+L278:L276:L274:
+*line 1210
+*line 1211
+bra L270
+*line 1212
+*line 1213
+L279:
+*line 1214
+L280:
+*line 1215
+*line 1216
+*line 1217
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+bra L270
+*line 1218
+*line 1219
+L281:
+*line 1220
+*line 1221
+bra L71
+*line 1222
+bra L270
+L271:cmp #42,R0
+beq L272
+cmp #43,R0
+beq L279
+cmp #44,R0
+beq L280
+bra L281
+L270:
+*line 1223
+*line 1224
+*line 1225
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1226
+clr.b -7(R14)
+*line 1227
+*line 1228
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1229
+*line 1230
+*line 1231
+cmp #44,_stccol
+bne L282
+*line 1231
+jsr _ctcon
+*line 1232
+bra L283
+L282:
+*line 1233
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L283:
+*line 1234
+bra L71
+*line 1235
+*line 1236
+*line 1237
+L284:
+*line 1238
+*line 1239
+*line 1240
+*line 1241
+cmp #44,_stccol
+bgt L71
+*line 1242
+*line 1243
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 1244
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1245
+clr.b -7(R14)
+*line 1246
+*line 1247
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1248
+*line 1249
+*line 1250
+cmp #44,_stccol
+bne L285
+*line 1250
+jsr _ctcon
+*line 1251
+bra L286
+L285:
+*line 1252
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L286:
+*line 1253
+bra L71
+*line 1254
+*line 1255
+L287:
+*line 1256
+*line 1257
+*line 1258
+*line 1259
+cmp #3,R7
+bgt L71
+cmp #46,_stccol
+beq L71
+*line 1260
+*line 1261
+*line 1262
+cmp #45,_stccol
+bne L10035
+btst #0,1+_ptesuba
+beq L71
+L10035:*line 1263
+*line 1264
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 1265
+clr.b -7(R14)
+*line 1266
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1267
+*line 1268
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1269
+*line 1270
+*line 1271
+*line 1272
+btst #0,1+_ptesuba
+beq L10037
+cmp #45,_stccol
+beq L10036
+L10037:tst _ptesuba
+beq L10038
+clr R0
+bra L10039
+L10038:move #1,R0
+L10039:and #1,R0
+beq L288
+cmp #44,_stccol
+bne L288
+L10036:*line 1272
+jsr _ctcon
+*line 1273
+bra L289
+L288:
+*line 1274
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L289:
+*line 1275
+bra L71
+*line 1276
+*line 1277
+*line 1278
+L290:
+*line 1279
+*line 1280
+*line 1281
+*line 1282
+cmp #43,_stccol
+bgt L71
+*line 1283
+*line 1284
+*line 1285
+cmp #42,_stccol
+bne L10040
+cmp #4,R7
+bgt L71
+L10040:*line 1286
+*line 1287
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 1288
+clr.b -7(R14)
+*line 1289
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1290
+*line 1291
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1292
+*line 1293
+*line 1294
+cmp #43,_stccol
+bne L291
+*line 1294
+jsr _ctcon
+*line 1295
+bra L292
+L291:
+*line 1296
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L292:
+*line 1297
+bra L71
+*line 1298
+*line 1299
+*line 1300
+L293:
+*line 1301
+*line 1302
+*line 1303
+*line 1304
+cmp #43,_stccol
+bgt L71
+*line 1305
+*line 1306
+*line 1307
+cmp #42,_stccol
+bne L10041
+cmp #2,R7
+bgt L71
+L10041:*line 1308
+*line 1309
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 1310
+clr.b -7(R14)
+*line 1311
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1312
+*line 1313
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1314
+*line 1315
+*line 1316
+cmp #43,_stccol
+bne L294
+*line 1316
+jsr _ctcon
+*line 1317
+bra L295
+L294:
+*line 1318
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L295:
+*line 1319
+bra L71
+*line 1320
+*line 1321
+L296:
+*line 1322
+*line 1323
+*line 1324
+*line 1325
+cmp #43,_stccol
+bgt L71
+*line 1326
+*line 1327
+*line 1328
+cmp #42,_stccol
+bne L10042
+cmp #1,R7
+bgt L71
+L10042:*line 1329
+*line 1330
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 1331
+clr.b -7(R14)
+*line 1332
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1333
+*line 1334
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1335
+*line 1336
+*line 1337
+cmp #43,_stccol
+bne L297
+*line 1337
+jsr _ctcon
+*line 1338
+bra L298
+L297:
+*line 1339
+add #1,_stccol
+move _stccol,(sp)
+move _stcrow,-(sp)
+jsr _movectc
+addq.l #2,sp
+L298:
+*line 1340
+bra L71
+*line 1341
+*line 1342
+*line 1343
+L299:
+*line 1344
+*line 1345
+*line 1346
+*line 1347
+cmp #42,_stccol
+bgt L71
+*line 1348
+*line 1349
+move R7,R0
+add #48,R0
+move.b R0,-8(R14)
+*line 1350
+clr.b -7(R14)
+*line 1351
+move.l #_ptdebuf,R8
+move _stccol,R9
+add.l R9,R8
+move.b -8(R14),(R8)
+*line 1352
+*line 1353
+move #98,(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+move _stccol,-(sp)
+move #7,-(sp)
+jsr _UpdVid
+addq.l #8,sp
+*line 1354
+*line 1355
+jsr _ctcon
+bra L71
+*line 1356
+*line 1357
+L300:
+*line 1358
+*line 1359
+bra L71
+*line 1360
+bra L127
+L128:sub #1,R0
+cmp #17,R0
+bhi L300
+asl #2,R0
+move R0,R8
+add.l #L301,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L301:.dc.l L129
+.dc.l L148
+.dc.l L151
+.dc.l L192
+.dc.l L203
+.dc.l L215
+.dc.l L227
+.dc.l L244
+.dc.l L254
+.dc.l L261
+.dc.l L268
+.dc.l L269
+.dc.l L284
+.dc.l L287
+.dc.l L290
+.dc.l L293
+.dc.l L296
+.dc.l L299
+.text
+L127:
+*line 1361
+*line 1362
+L126:L125:L76:L74:L71:tst.l (sp)+
+movem.l (sp)+,R5-R7
+unlk R14
+rts
+.data
+L2:.dc.b $A,$25,$73,$28,$29,$3A,$20,$20,$63,$61,$6C,$6C,$65,$64,$20,$53,$6E,$61,$70,$50,$54,$56,$28,$29,$A,$0
+L10:.dc.b $20,$20,$70,$74,$64,$65,$62,$75,$66,$20,$3D,$20,$22,$25,$73,$22,$A,$0
+L11:.dc.b $20,$20,$70,$74,$65,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E
+.dc.b $34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$A,$0
+L12:.dc.b $20,$20,$70,$74,$62,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E
+.dc.b $34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$A,$0
+L13:.dc.b $20,$20,$70,$74,$65,$20,$20,$64,$66,$74,$70,$3A,$20,$25,$32,$64,$20,$20,$64,$66,$73,$74,$3A,$20,$25,$32,$64,$20,$20,$64
+.dc.b $65,$73,$74,$3A,$20,$25,$32,$64,$20,$20,$64,$61,$74,$61,$3A,$20,$25,$32,$64,$20,$20,$6D,$65,$6E,$75,$3A,$20,$25,$32,$64
+.dc.b $A,$0
+L14:.dc.b $20,$20,$70,$74,$65,$20,$20,$67,$6F,$6F,$64,$3A,$20,$25,$64,$20,$20,$64,$66,$6F,$6B,$3A,$20,$25,$64,$20,$20,$73,$74,$6F
+.dc.b $6B,$3A,$20,$25,$64,$20,$20,$64,$73,$6F,$6B,$3A,$20,$25,$64,$20,$20,$64,$74,$6F,$6B,$3A,$20,$25,$64,$20,$20,$73,$65,$74
+.dc.b $3A,$20,$25,$64,$20,$20,$66,$6C,$61,$67,$3A,$20,$25,$64,$A,$0
+L15:.dc.b $20,$20,$70,$74,$65,$20,$20,$70,$72,$65,$64,$3A,$20,$25,$33,$64,$20,$20,$63,$70,$6F,$73,$3A,$20,$25,$33,$64,$20,$20,$73
+.dc.b $75,$63,$63,$3A,$20,$25,$33,$64,$A,$0
+L16:.dc.b $A,$0
+L54:.dc.b $20,$20,$0
+L58:.dc.b $25,$30,$32,$64,$0
+L248:.dc.b $54,$72,$61,$6E,$73,$0
+L250:.dc.b $53,$74,$6F,$70,$20,$0
+L252:.dc.b $53,$74,$61,$72,$74,$0
+L256:.dc.b $53,$74,$6F,$70,$20,$0
+L259:.dc.b $53,$74,$61,$72,$74,$0
+L263:.dc.b $4F,$66,$66,$20,$20,$20,$0
+L266:.dc.b $4F,$6E,$20,$20,$20,$0
