.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