.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 _xy_up
.globl _xy_dn
.globl _premove
.globl _pstmove
.globl _curtype
.globl _astat
.globl _chtime
.globl _chwait
.globl _cmfirst
.globl _cmtype
.globl _curhold
.globl _cvtime
.globl _cvwait
.globl _ncvwait
.globl _ptbflag
.globl _ptecpos
.globl _ptedef
.globl _ptedfok
.globl _pteset
.globl _ptestm
.globl _ptestok
.globl _ss_ptsw
.globl _ss_sqsw
.globl _stccol
.globl _stcrow
.globl _syrate
.globl _tvcwval
.globl _vcwval
.globl _crate1
.globl _ptdebuf
.globl _csbp
.globl _ptboxes
.globl _ptebuf
.globl _trdata
.data
_trdata:
*line 88
.dc.l L1
*line 88
.dc.l L2
*line 88
.dc.l L3
.globl _ssdata
.data
_ssdata:
*line 89
.dc.l L4
*line 89
.dc.l L5
.globl _stdata
.data
_stdata:
*line 91
.dc.l L6
*line 91
.dc.l L7
*line 91
.dc.l L8
*line 91
.dc.l L9
*line 91
.dc.l L10
.globl _smdata
.data
_smdata:
*line 95
.dc.l L11
*line 96
.dc.l L12
*line 97
.dc.l L13
*line 98
.dc.l L14
*line 99
.dc.l L15
*line 100
.dc.l L16
*line 101
.dc.l L17
*line 102
.dc.l L18
*line 103
.dc.l L19
*line 104
.dc.l L20
*line 105
.dc.l L21
*line 106
.dc.l L22
*line 107
.dc.l L23
*line 108
.dc.l L24
.globl _pt_flds
.data
_pt_flds:
*line 113
.dc.l _stdctp5
*line 114
.dc.l _nokey
*line 115
.dc.l _aftercm
*line 116
.dc.l _cxkstd
*line 117
.dc.l _cykstd
*line 118
.dc.l _smxupd
*line 119
.dc.l _smyupd
*line 120
.dc.l _stopcm
*line 121
.dc.l _nokey
*line 122
.dc.l _ptxkey
*line 123
.dc.l _ptekey
*line 124
.dc.l _ptmkey
*line 125
.dc.l _ptdkey
*line 126
.dc.l _nokey
.dc.l $0
*line 128
.dc.l _ptboxes
*line 129
.dc.l _crate1
*line 130
.dc.l _crate1
.dc.w $4
.dc.w $10
.dc.w $7E
.globl _ptmkey
.text
_ptmkey:
~~ptmkey:
link R14,#0
movem.l R6-R7,-(sp)
~nc=R7
*line 149
*line 149
tst _astat
beq L26
*line 150
*line 151
*line 151
cmp #48,_stccol
bne L27
*line 152
*line 153
*line 153
tst _ss_sqsw
bne L28
*line 154
*line 155
move.l _xy_dn,R8
jsr (R8)
*line 156
*line 157
move.l _premove,R8
jsr (R8)
*line 158
*line 159
move.l _curtype,R8
jsr (R8)
move R0,R7
*line 160
*line 161
move _syrate,_cvtime
*line 162
move _curhold,_ncvwait
*line 163
*line 164
move #-1,_ss_ptsw
*line 165
move R7,_cmtype
*line 166
move #1,_cvwait
*line 167
*line 168
L28:bra L29
L27:
*line 169
*line 170
jsr _stdmkey
L29:
*line 171
bra L30
L26:
*line 172
*line 173
*line 174
*line 174
cmp #48,_stccol
bne L31
*line 175
*line 176
clr _ss_ptsw
*line 177
move #1,_cvwait
*line 178
move _cvtime,_ncvwait
*line 179
move #1,_cmfirst
*line 180
*line 181
*line 182
tst _ss_sqsw
bne L32
*line 182
move.l _xy_up,R8
jsr (R8)
*line 183
L32:
*line 184
move.l _pstmove,R8
jsr (R8)
*line 185
*line 186
bra L33
L31:
*line 187
jsr _stdmkey
L33:L30:L25:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _ptekey
.text
_ptekey:
~~ptekey:
link R14,#0
movem.l R6-R7,-(sp)
~nc=R7
*line 204
*line 204
tst _astat
beq L35
*line 205
*line 206
*line 206
cmp #48,_stccol
bne L36
*line 207
*line 208
*line 208
tst _ss_sqsw
bne L37
*line 209
*line 210
move.l _xy_dn,R8
jsr (R8)
*line 211
*line 212
move.l _premove,R8
jsr (R8)
*line 213
*line 214
move.l _curtype,R8
jsr (R8)
move R0,R7
*line 215
*line 216
move _syrate,_cvtime
*line 217
move _curhold,_ncvwait
*line 218
*line 219
move #1,_ss_ptsw
*line 220
move R7,_cmtype
*line 221
move #1,_cvwait
*line 222
*line 223
L37:
*line 224
bra L38
L36:
*line 225
jsr _select
L38:
*line 226
bra L39
L35:
*line 227
*line 228
*line 229
*line 229
cmp #48,_stccol
bne L40
*line 230
*line 231
clr _ss_ptsw
*line 232
move #1,_cvwait
*line 233
move _cvtime,_ncvwait
*line 234
move #1,_cmfirst
*line 235
*line 236
*line 237
tst _ss_sqsw
bne L41
*line 237
move.l _xy_up,R8
jsr (R8)
*line 238
L41:
*line 239
move.l _pstmove,R8
jsr (R8)
*line 240
*line 241
bra L42
L40:
*line 242
jsr _select
L42:L39:L34:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _ptxkey
.text
_ptxkey:
~~ptxkey:
link R14,#0
movem.l R2-R7,-(sp)
~i=R7
~cp=R6
~pp=R5
~sp=R4
~stm=R3
*line 259
*line 260
tst _astat
beq L43
*line 261
*line 262
*line 262
cmp #2,_stccol
blt L44
cmp #13,_stccol
bgt L44
*line 263
*line 264
*line 264
tst _ptecpos
beq L45
tst _ptbflag
bne L45
*line 265
*line 266
move #6,(sp)
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,-(sp)
add.l #4,(sp)
move.l #4+_ptebuf,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 267
move #1,_pteset
*line 268
jsr _pte2buf
*line 269
*line 270
L45:
*line 271
move #4608,_ptedef
*line 272
move #1,_ptedfok
*line 273
*line 274
move #12,(sp)
move #32,-(sp)
move.l #2+_ptdebuf,-(sp)
jsr _memset
addq.l #6,sp
*line 275
*line 276
clr R7
bra L48
L49:
*line 277
*line 278
move R7,R8
add.l #_ptdebuf,R8
tst.b (R8)
bne L50
*line 278
move R7,R8
add.l #_ptdebuf,R8
move.b #32,(R8)
*line 279
L50:L47:
*line 276
add #1,R7
L48:
*line 276
cmp #48,R7
blt L49
L46:
*line 280
move.b #176,_ptdebuf
*line 281
clr.b 48+_ptdebuf
*line 282
*line 283
move #18,(sp)
move.l #_ptdebuf,-(sp)
clr -(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 284
move _stccol,(sp)
move _stcrow,-(sp)
jsr _movectc
addq.l #2,sp
*line 285
*line 286
*line 287
bra L51
L44:
*line 288
*line 288
cmp #15,_stccol
blt L52
cmp #26,_stccol
bgt L52
*line 289
*line 290
*line 290
tst _ptecpos
beq L53
tst _ptbflag
bne L53
*line 291
*line 292
move #6,(sp)
move _ptecpos,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,-(sp)
add.l #4,(sp)
move.l #4+_ptebuf,-(sp)
jsr _memcpyw
addq.l #8,sp
*line 293
move #1,_pteset
*line 294
jsr _pte2buf
*line 295
*line 296
L53:
*line 297
move #4608,_ptestm
*line 298
clr _ptestok
*line 299
*line 300
move #12,(sp)
move #32,-(sp)
move.l #15+_ptdebuf,-(sp)
jsr _memset
addq.l #6,sp
*line 301
*line 302
clr R7
bra L56
L57:
*line 303
*line 304
move R7,R8
add.l #_ptdebuf,R8
tst.b (R8)
bne L58
*line 304
move R7,R8
add.l #_ptdebuf,R8
move.b #32,(R8)
*line 305
L58:L55:
*line 302
add #1,R7
L56:
*line 302
cmp #48,R7
blt L57
L54:
*line 306
move.b #176,_ptdebuf
*line 307
clr.b 48+_ptdebuf
*line 308
*line 309
move #18,(sp)
move.l #_ptdebuf,-(sp)
clr -(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 310
move _stccol,(sp)
move _stcrow,-(sp)
jsr _movectc
addq.l #2,sp
*line 311
bra L59
L52:
*line 312
*line 312
cmp #28,_stccol
blt L60
cmp #40,_stccol
bgt L60
*line 313
*line 314
jsr _voidpb
*line 315
*line 316
move.b #176,_ptdebuf
*line 317
clr.b 48+_ptdebuf
*line 318
*line 319
move #18,(sp)
move.l #_ptdebuf,-(sp)
clr -(sp)
move #7,-(sp)
jsr _UpdVid
addq.l #8,sp
*line 320
move _stccol,(sp)
move _stcrow,-(sp)
jsr _movectc
addq.l #2,sp
*line 321
*line 322
bra L61
L60:
*line 323
*line 323
cmp #42,_stccol
blt L62
cmp #46,_stccol
bgt L62
*line 324
*line 325
*line 325
tst _ptecpos
beq L63
*line 326
*line 327
move _ptecpos,R6
*line 328
move R6,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move 2(R8),R5
*line 329
move R6,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move (R8),R4
*line 330
*line 331
move R6,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move 6(R8),R3
*line 336
*line 337
*line 338
*line 339
tst R5
beq L64
*line 339
move R5,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move R4,(R8)
bra L65
L64:
*line 340
*line 341
move R4,R0
move R3,R1
and #8191,R1
ext.l R1
add.l #_stmptr,R1
move.l R1,R9
move.b R0,(R9)
L65:
*line 342
*line 343
*line 344
tst R4
beq L66
*line 344
move R4,R0
asl #4,R0
ext.l R0
add.l #_patches,R0
move.l R0,R8
move R5,2(R8)
*line 345
L66:
*line 346
*line 347
move R6,(sp)
jsr _findnxt
move R0,R4
beq L67
*line 347
move R4,_ptecpos
bra L68
L67:
*line 348
*line 349
move R6,(sp)
jsr _findprv
move R0,R5
beq L69
*line 349
move R5,_ptecpos
*line 350
bra L70
L69:
*line 351
clr _ptecpos
L70:L68:
*line 352
*line 353
move R6,(sp)
jsr _pt_del
*line 354
*line 355
*line 356
clr R7
bra L73
L74:
*line 357
*line 358
*line 358
move.l #_defptr,R8
move.b 0(R8,R7),R0
ext.w R0
move R0,R6
beq L75
*line 359
*line 360
clr R5
*line 361
*line 362
bra L78
L77:
*line 363
*line 364
move R6,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move (R8),R4
*line 365
*line 366
*line 366
move R6,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
cmp 2(R8),R3
bne L79
*line 367
*line 377
*line 378
*line 379
*line 380
tst R5
beq L80
*line 380
move R5,R0
muls #10,R0
add.l #_defents,R0
move.l R0,R8
move R4,(R8)
bra L81
L80:
*line 381
*line 382
move R4,R0
move R7,R9
add.l #_defptr,R9
move.b R0,(R9)
L81:
*line 383
*line 384
move R6,(sp)
jsr _dt_del
*line 385
bra L82
L79:
*line 386
*line 387
*line 388
move R6,R5
L82:
*line 389
*line 390
*line 391
move R4,R6
L78:
*line 392
tst R6
bne L77
L76:
*line 393
L75:L72:
*line 356
add #1,R7
L73:
*line 356
cmp #5120,R7
blt L74
L71:
*line 394
*line 395
*line 396
jsr _dptw
*line 397
L63:
*line 398
L62:L61:L59:L51:L43:tst.l (sp)+
movem.l (sp)+,R3-R7
unlk R14
rts
.globl _dspdfst
.text
_dspdfst:
~~dspdfst:
~val=R7
~buf=8
link R14,#0
movem.l R3-R7,-(sp)
~chan=R6
~port=R5
~stim=R4
*line 416
move 12(R14),R7
*line 416
*line 416
cmp #4608,R7
bne L84
*line 417
*line 418
move.l #L85,(sp)
move.l 8(R14),-(sp)
jsr _strcpy
addq.l #4,sp
bra L83
*line 419
*line 420
*line 421
L84:
*line 422
move R7,R5
move #11,R0
lsr R0,R5
and #3,R5
*line 423
move R7,R6
lsr #7,R6
and #15,R6
*line 424
move R7,R4
and #127,R4
*line 426
clr R0
move R5,R0
bra L87
*line 427
L88:
*line 428
L89:
*line 429
*line 430
*line 431
*line 432
*line 433
move R6,(sp)
add #1,(sp)
move R5,-(sp)
add #1,(sp)
move R4,-(sp)
add #1,(sp)
clr R0
move R7,R0
and #-32768,R0
beq L10000
move.l #L91,-(sp)
bra L10002
L10000:move.l #L92,-(sp)
L10002:move.l #L90,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #16,sp
*line 434
bra L86
*line 435
*line 436
*line 437
*line 438
L93:
*line 439
*line 440
*line 441
clr R0
move R6,R0
bra L95
*line 442
L96:
*line 443
*line 444
*line 445
*line 446
*line 447
move R4,(sp)
add #1,(sp)
clr R0
move R7,R0
and #-32768,R0
beq L10003
move.l #L98,-(sp)
bra L10005
L10003:move.l #L99,-(sp)
L10005:move.l #L97,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #12,sp
*line 448
bra L94
*line 449
*line 450
L100:
*line 451
*line 452
*line 453
move R4,(sp)
add #1,(sp)
move.l #L101,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
addq.l #8,sp
bra L94
*line 454
*line 455
L102:
*line 456
*line 457
*line 458
move R4,(sp)
add #1,(sp)
move.l #L103,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
addq.l #8,sp
bra L94
*line 459
*line 460
L104:
*line 461
*line 462
*line 463
*line 464
*line 465
move R6,(sp)
add #1,(sp)
move R4,-(sp)
add #1,(sp)
clr R0
move R7,R0
and #-32768,R0
beq L10006
move.l #L106,-(sp)
bra L10008
L10006:move.l #L107,-(sp)
L10008:move.l #L105,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
bra L94
*line 466
*line 467
bra L94
L95:tst R0
beq L96
cmp #2,R0
beq L100
cmp #3,R0
beq L102
bra L104
L94:
*line 468
*line 469
bra L86
*line 470
*line 471
L108:
*line 472
*line 473
*line 474
move R6,(sp)
add #1,(sp)
move R5,-(sp)
add #1,(sp)
move R4,-(sp)
add #1,(sp)
move.l #L109,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #12,sp
bra L86
*line 475
bra L86
L87:tst R0
beq L88
cmp #1,R0
beq L89
cmp #2,R0
beq L93
bra L108
L86:L83:tst.l (sp)+
movem.l (sp)+,R4-R7
unlk R14
rts
.globl _dfpdat
.text
_dfpdat:
~~dfpdat:
~pp=R13
link R14,#-8
movem.l R7-R7/R13-R13,-(sp)
~buf=L111
.bss
L111:.ds.b 32
.text
~sgn=-2
~vp1=-4
~vp2=-6
~val=-8
*line 496
move.l 8(R14),R13
*line 496
move 14(R13),-8(R14)
*line 498
clr R0
move 12(R13),R0
bra L113
*line 499
L114:
*line 500
*line 501
*line 502
move -8(R14),R8
add.l R8,R8
add.l R8,R8
move.l #_smdata,R9
move.l 0(R8,R9.l),(sp)
move.l #L111,-(sp)
jsr _strcpy
addq.l #4,sp
bra L112
*line 503
*line 504
L115:
*line 505
*line 506
*line 507
move.l #_ebuf,(sp)
move -8(R14),-(sp)
jsr _fr2dec
addq.l #2,sp
*line 508
*line 509
move.b 3+_ebuf,L111
*line 510
move.b _ebuf,1+L111
*line 511
move.b #46,2+L111
*line 512
move.b 1+_ebuf,3+L111
*line 513
move.b 2+_ebuf,4+L111
*line 514
clr.b 5+L111
bra L112
*line 515
*line 516
*line 517
L116:
*line 518
*line 519
*line 520
move -8(R14),R0
asr #5,R0
move R0,-8(R14)
*line 521
*line 522
*line 522
tst -8(R14)
bge L117
*line 523
*line 524
move -8(R14),R0
neg R0
move R0,-8(R14)
*line 525
move #45,-2(R14)
*line 526
bra L118
L117:
*line 527
*line 528
*line 529
move #43,-2(R14)
L118:
*line 530
*line 531
*line 532
move -8(R14),R0
ext.l R0
divs #100,R0
move R0,-4(R14)
*line 533
move -8(R14),R0
clr R1
move -4(R14),R1
mulu #100,R1
sub R1,R0
move R0,-6(R14)
*line 534
*line 535
*line 535
cmp #9,-4(R14)
bls L119
*line 536
*line 537
clr -4(R14)
*line 538
*line 539
*line 540
cmp #43,-2(R14)
bne L120
*line 540
move #160,-2(R14)
*line 541
bra L121
L120:
*line 542
move #161,-2(R14)
L121:
*line 543
*line 544
L119:
*line 545
move -6(R14),(sp)
move -4(R14),-(sp)
move -2(R14),-(sp)
move.l #L122,-(sp)
move.l #L111,-(sp)
jsr _sprintf
adda.l #12,sp
bra L112
*line 546
*line 547
*line 548
L123:
*line 549
*line 550
*line 551
move -8(R14),(sp)
jsr _fromfpu
move R0,-4(R14)
*line 552
*line 553
move -4(R14),(sp)
move.l #L124,-(sp)
move.l #L111,-(sp)
jsr _sprintf
addq.l #8,sp
bra L112
*line 554
*line 555
L125:
*line 556
*line 557
*line 558
*line 559
clr R0
move 8(R13),R0
and #255,R0
cmp #22,R0
bne L126
*line 559
btst #0,-7(R14)
beq L10009
move.l #L128,(sp)
bra L10011
L10009:move.l #L129,(sp)
L10011:move.l #L127,-(sp)
move.l #L111,-(sp)
jsr _sprintf
addq.l #8,sp
*line 560
bra L130
L126:
*line 561
btst #0,-7(R14)
beq L10012
move.l #L132,(sp)
bra L10014
L10012:move.l #L133,(sp)
L10014:move.l #L131,-(sp)
move.l #L111,-(sp)
jsr _sprintf
addq.l #8,sp
L130:
*line 562
bra L112
*line 563
*line 564
L134:
*line 565
*line 566
*line 567
move -8(R14),(sp)
move.l #L135,-(sp)
move.l #L111,-(sp)
jsr _sprintf
addq.l #8,sp
bra L112
*line 568
bra L112
L113:cmp #4,R0
bhi L134
asl #2,R0
move R0,R8
add.l #L136,R8
move.l (R8),R8
jmp (R8)
.data
L136:.dc.l L114
.dc.l L115
.dc.l L123
.dc.l L116
.dc.l L125
.text
L112:
*line 571
move.l #L111,R0
bra L110
L110:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _pafpu1
.text
_pafpu1:
~~pafpu1:
~pp=R13
~bf=8
~ad=12
~gt=16
~gn=18
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
*line 591
move.l 20(R14),R13
*line 591
move.l R13,(sp)
jsr _dfpdat
move.l R0,(sp)
move 18(R14),-(sp)
move 16(R14),-(sp)
clr R0
move 12(R13),R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_stdata,R9
move.l 0(R8,R9.l),-(sp)
move.l 12(R14),-(sp)
move.l #L138,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #20,sp
L137:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _pafpu2
.text
_pafpu2:
~~pafpu2:
~pp=R13
~bf=8
~ad=12
~os=16
~gt=18
~gn=20
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
*line 608
move.l 22(R14),R13
*line 608
move.l R13,(sp)
jsr _dfpdat
move.l R0,(sp)
move 20(R14),-(sp)
move 18(R14),-(sp)
clr R0
move 12(R13),R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_stdata,R9
move.l 0(R8,R9.l),-(sp)
move 16(R14),-(sp)
move.l 12(R14),-(sp)
move.l #L140,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #22,sp
L139:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _pafpu3
.text
_pafpu3:
~~pafpu3:
~pp=R13
~bf=8
~ad=12
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
*line 624
move.l 16(R14),R13
*line 624
move.l R13,(sp)
jsr _dfpdat
move.l R0,(sp)
clr R0
move 12(R13),R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_stdata,R9
move.l 0(R8,R9.l),-(sp)
move.l 12(R14),-(sp)
move.l #L142,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #16,sp
L141:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _dspdest
.text
_dspdest:
~~dspdest:
~pp=R13
~buf=8
link R14,#-42
movem.l R7-R7/R13-R13,-(sp)
~chan=-2
~osc=-4
~port=-6
~stim=-8
~vg=-10
~vgt=-12
~vgn=-14
~vp1=-16
~vp2=-18
~sgn=-20
~val=-22
~buf2=-38
~rtype=-42
*line 644
move.l 12(R14),R13
*line 644
clr R0
move 10(R13),R0
move #11,R1
lsr R1,R0
and #3,R0
move R0,-6(R14)
*line 645
clr R0
move 10(R13),R0
lsr #7,R0
and #15,R0
move R0,-2(R14)
*line 646
clr R0
move 10(R13),R0
and #127,R0
move R0,-8(R14)
*line 648
clr R0
move 10(R13),R0
lsr #8,R0
and #255,R0
move R0,-10(R14)
*line 649
clr R0
move 10(R13),R0
and #255,R0
add #1,R0
move R0,-4(R14)
*line 651
*line 651
cmp #11,-10(R14)
bls L144
*line 652
*line 653
move #71,-12(R14)
*line 654
clr R0
move -10(R14),R0
add #-11,R0
move R0,-14(R14)
*line 655
bra L145
L144:
*line 656
*line 657
*line 658
move #86,-12(R14)
*line 659
clr R0
move -10(R14),R0
add #1,R0
move R0,-14(R14)
L145:
*line 662
cmp #9,-14(R14)
bls L10015
move #162,R0
bra L10017
L10015:move #48,R0
L10017:add -14(R14),R0
move R0,-14(R14)
*line 666
clr R0
move 8(R13),R0
and #255,R0
bra L147
*line 667
L148:
*line 668
*line 669
*line 670
*line 671
*line 672
clr R0
move 14(R13),R0
and #3,R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_trdata,R9
move.l 0(R8,R9.l),(sp)
move -2(R14),-(sp)
add #1,(sp)
move -6(R14),-(sp)
add #1,(sp)
move -8(R14),-(sp)
add #1,(sp)
move.l #L149,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
*line 673
bra L146
*line 674
*line 675
L150:
*line 676
*line 677
*line 678
*line 679
*line 680
clr R0
move 14(R13),R0
and #1,R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_ssdata,R9
move.l 0(R8,R9.l),(sp)
move -8(R14),-(sp)
add #1,(sp)
move.l #L151,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #10,sp
*line 681
bra L146
*line 682
*line 683
L152:
*line 684
*line 685
*line 686
*line 687
*line 688
clr R0
move 14(R13),R0
and #3,R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_trdata,R9
move.l 0(R8,R9.l),(sp)
move -8(R14),-(sp)
add #1,(sp)
move.l #L153,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #10,sp
*line 689
bra L146
*line 690
*line 691
*line 692
L154:
*line 693
*line 694
*line 695
*line 695
btst #0,11(R13)
beq L155
*line 696
*line 697
*line 698
*line 699
*line 700
*line 701
*line 702
clr R0
move 12(R13),R0
lsr #8,R0
move R0,(sp)
and #3,(sp)
add #48,(sp)
clr R0
move 12(R13),R0
move #10,R1
lsr R1,R0
move R0,-(sp)
and #3,(sp)
add #48,(sp)
clr R0
move 12(R13),R0
move #12,R1
lsr R1,R0
move R0,-(sp)
and #3,(sp)
add #48,(sp)
clr R0
move 12(R13),R0
move #14,R1
lsr R1,R0
move R0,-(sp)
and #3,(sp)
add #48,(sp)
move 10(R13),-(sp)
add #65,(sp)
move.l #L156,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #16,sp
*line 703
bra L157
L155:
*line 704
*line 705
*line 706
*line 707
*line 708
*line 709
*line 710
clr R0
move 12(R13),R0
move #10,R1
lsr R1,R0
move R0,(sp)
and #3,(sp)
add #48,(sp)
clr R0
move 12(R13),R0
move #12,R1
lsr R1,R0
move R0,-(sp)
and #3,(sp)
add #48,(sp)
clr R0
move 12(R13),R0
move #14,R1
lsr R1,R0
move R0,-(sp)
and #3,(sp)
add #48,(sp)
move 10(R13),-(sp)
add #65,(sp)
move.l #L158,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
L157:
*line 711
*line 712
bra L146
*line 713
*line 714
L159:
*line 715
*line 716
*line 717
*line 718
*line 719
move 12(R13),(sp)
move 10(R13),-(sp)
add #1,(sp)
move.l #L160,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #10,sp
*line 720
bra L146
*line 721
*line 722
L161:
*line 723
*line 724
*line 725
*line 726
*line 727
clr R0
move 14(R13),R0
and #1,R0
lsl #2,R0
swap R0
clr R0
swap R0
move.l R0,R8
move.l #_ssdata,R9
move.l 0(R8,R9.l),(sp)
move 10(R13),-(sp)
add #1,(sp)
move.l #L162,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #10,sp
*line 728
bra L146
*line 729
*line 730
L163:
*line 731
*line 732
*line 733
*line 734
move 12(R13),(sp)
move.l #L164,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
addq.l #8,sp
*line 735
bra L146
*line 736
*line 737
*line 738
L165:
*line 739
*line 740
*line 741
move.l #L166,-42(R14)
bra L167
*line 742
*line 743
L168:
*line 744
*line 745
*line 746
move.l #L169,-42(R14)
*line 747
L167:
*line 748
*line 749
*line 750
*line 750
btst #0,13(R13)
beq L170
*line 751
*line 752
*line 753
*line 754
move 14(R13),(sp)
add #1,(sp)
move.l -42(R14),-(sp)
move 10(R13),-(sp)
add #1,(sp)
move.l #L171,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
*line 755
bra L172
L170:
*line 756
*line 757
*line 758
*line 758
move 14(R13),-22(R14)
bge L173
*line 759
*line 760
move #45,-20(R14)
*line 761
move -22(R14),R0
neg R0
move R0,-22(R14)
*line 762
bra L174
L173:
*line 763
*line 764
*line 765
move #43,-20(R14)
L174:
*line 766
*line 767
*line 768
*line 769
*line 770
move -22(R14),(sp)
move -20(R14),-(sp)
move.l -42(R14),-(sp)
move 10(R13),-(sp)
add #1,(sp)
move.l #L175,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #16,sp
L172:
*line 771
*line 772
bra L146
*line 773
*line 774
L176:
*line 775
*line 776
*line 777
*line 778
move 12(R13),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L177,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #12,sp
*line 779
bra L146
*line 780
*line 781
*line 782
L178:
*line 783
*line 784
*line 785
clr R0
move 14(R13),R0
lsr #1,R0
move R0,-22(R14)
*line 786
*line 787
clr R0
move 12(R13),R0
bra L180
*line 788
L181:
*line 789
*line 790
*line 791
*line 791
tst -22(R14)
bge L182
*line 792
*line 793
move #45,-20(R14)
*line 794
move -22(R14),R0
neg R0
move R0,-22(R14)
*line 795
bra L183
L182:
*line 796
*line 797
*line 798
move #43,-20(R14)
L183:
*line 799
*line 800
*line 801
*line 802
move -22(R14),(sp)
move -20(R14),-(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -4(R14),-(sp)
move.l #L184,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #16,sp
*line 803
bra L179
*line 804
*line 805
L185:
*line 806
*line 807
*line 808
move -22(R14),(sp)
jsr _int2rat
*line 809
*line 810
*line 811
move.l #_ebuf,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -4(R14),-(sp)
move.l #L186,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
*line 812
bra L179
*line 813
*line 814
L187:
*line 815
*line 816
*line 817
move -22(R14),R0
ext.l R0
divs #10,R0
move R0,-16(R14)
*line 818
move -22(R14),R0
clr R1
move -16(R14),R1
mulu #10,R1
sub R1,R0
move R0,-18(R14)
*line 819
*line 820
*line 821
move -18(R14),(sp)
move -16(R14),-(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -4(R14),-(sp)
move.l #L188,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #16,sp
*line 822
bra L179
*line 823
*line 824
*line 825
L189:
*line 826
*line 827
*line 828
move -22(R14),(sp)
move.l #_ebuf,-(sp)
jsr _cnvc2p
addq.l #4,sp
*line 829
*line 830
*line 831
move.l #_ebuf,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -4(R14),-(sp)
move.l #L190,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
*line 832
bra L179
*line 833
*line 834
L191:
*line 835
*line 836
bra L179
*line 837
bra L179
L180:tst R0
beq L181
cmp #1,R0
beq L185
cmp #2,R0
beq L187
cmp #3,R0
beq L189
bra L191
L179:
*line 838
*line 839
bra L146
*line 840
*line 841
*line 842
L192:
*line 843
*line 844
*line 845
move #65,-20(R14)
bra L193
*line 846
*line 847
L194:
*line 848
*line 849
*line 850
move #66,-20(R14)
*line 851
L193:
*line 852
*line 853
*line 854
*line 855
move 12(R13),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -20(R14),-(sp)
move.l #L195,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #14,sp
*line 856
bra L146
*line 857
*line 858
L196:
*line 859
*line 860
*line 861
*line 862
move 12(R13),(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L197,-(sp)
move.l 8(R14),-(sp)
jsr _sprintf
adda.l #12,sp
*line 863
bra L146
*line 864
*line 865
*line 866
L198:
*line 867
*line 868
*line 869
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L199,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu1
adda.l #12,sp
bra L146
*line 870
*line 871
L200:
*line 872
*line 873
*line 874
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -4(R14),-(sp)
move.l #L201,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu2
adda.l #14,sp
bra L146
*line 875
*line 876
L202:
*line 877
*line 878
*line 879
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move -4(R14),-(sp)
move.l #L203,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu2
adda.l #14,sp
bra L146
*line 880
*line 881
L204:
*line 882
*line 883
*line 884
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L205,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu1
adda.l #12,sp
bra L146
*line 885
*line 886
L206:
*line 887
*line 888
*line 889
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L207,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu1
adda.l #12,sp
bra L146
*line 890
*line 891
L208:
*line 892
*line 893
*line 894
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L209,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu1
adda.l #12,sp
bra L146
*line 895
*line 896
L210:
*line 897
*line 898
*line 899
move.l R13,(sp)
move -14(R14),-(sp)
move -12(R14),-(sp)
move.l #L211,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu1
adda.l #12,sp
bra L146
*line 900
*line 901
*line 902
L212:
*line 903
*line 904
*line 905
move.l R13,(sp)
move.l #L213,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu3
addq.l #8,sp
bra L146
*line 906
*line 907
L214:
*line 908
*line 909
*line 910
move.l R13,(sp)
move.l #L215,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu3
addq.l #8,sp
bra L146
*line 911
*line 912
L216:
*line 913
*line 914
*line 915
move.l R13,(sp)
move.l #L217,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu3
addq.l #8,sp
bra L146
*line 916
*line 917
L218:
*line 918
*line 919
*line 920
move.l R13,(sp)
move.l #L219,-(sp)
move.l 8(R14),-(sp)
jsr _pafpu3
addq.l #8,sp
bra L146
*line 921
*line 922
L220:
*line 923
*line 924
*line 925
move 10(R13),(sp)
move.l #L221,-(sp)
move.l R14,-(sp)
add.l #-38,(sp)
jsr _sprintf
addq.l #8,sp
*line 926
move.l R13,(sp)
move.l R14,-(sp)
add.l #-38,(sp)
move.l 8(R14),-(sp)
jsr _pafpu3
addq.l #8,sp
bra L146
*line 927
*line 928
L222:
*line 929
*line 930
bra L146
*line 931
bra L146
L147:sub #1,R0
cmp #25,R0
bhi L222
asl #2,R0
move R0,R8
add.l #L223,R8
move.l (R8),R8
jmp (R8)
.data
L223:.dc.l L148
.dc.l L150
.dc.l L152
.dc.l L154
.dc.l L159
.dc.l L161
.dc.l L163
.dc.l L165
.dc.l L168
.dc.l L176
.dc.l L178
.dc.l L192
.dc.l L194
.dc.l L196
.dc.l L198
.dc.l L200
.dc.l L202
.dc.l L204
.dc.l L206
.dc.l L208
.dc.l L210
.dc.l L212
.dc.l L214
.dc.l L216
.dc.l L218
.dc.l L220
.text
L146:L143:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _ptfield
.text
_ptfield:
~~ptfield:
link R14,#-4
*line 946
move.l #_pt_flds,(sp)
jsr _curset
L224:unlk R14
rts
.data
L1:.dc.b $54,$72,$61,$6E,$73,$0
L2:.dc.b $53,$74,$6F,$70,$20,$0
L3:.dc.b $53,$74,$61,$72,$74,$0
L4:.dc.b $53,$74,$6F,$70,$20,$0
L5:.dc.b $53,$74,$61,$72,$74,$0
L6:.dc.b $53,$72,$63,$65,$0
L7:.dc.b $4D,$75,$6C,$74,$0
L8:.dc.b $54,$69,$6D,$65,$0
L9:.dc.b $56,$61,$6C,$75,$0
L10:.dc.b $46,$75,$6E,$63,$0
L11:.dc.b $20,$20,$20,$20,$20,$0
L12:.dc.b $52,$61,$6E,$64,$6D,$0
L13:.dc.b $47,$50,$43,$2F,$56,$0
L14:.dc.b $3F,$3F,$33,$3F,$3F,$0
L15:.dc.b $3F,$3F,$34,$3F,$3F,$0
L16:.dc.b $50,$69,$74,$63,$68,$0
L17:.dc.b $4B,$65,$79,$50,$72,$0
L18:.dc.b $4B,$65,$79,$56,$4C,$0
L19:.dc.b $50,$65,$64,$61,$6C,$0
L20:.dc.b $3F,$3F,$39,$3F,$3F,$0
L21:.dc.b $46,$72,$65,$71,$20,$0
L22:.dc.b $50,$63,$68,$57,$68,$0
L23:.dc.b $4D,$6F,$64,$57,$68,$0
L24:.dc.b $42,$72,$65,$74,$68,$0
L85:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
L90:.dc.b $25,$73,$20,$25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$0
L91:.dc.b $52,$65,$6C,$0
L92:.dc.b $4B,$65,$79,$0
L97:.dc.b $25,$73,$20,$25,$30,$33,$75,$20,$4C,$20,$20,$20,$0
L98:.dc.b $52,$65,$6C,$0
L99:.dc.b $4B,$65,$79,$0
L101:.dc.b $54,$72,$69,$67,$20,$25,$30,$32,$75,$20,$20,$20,$20,$20,$0
L103:.dc.b $50,$75,$6C,$73,$65,$20,$25,$75,$20,$20,$20,$20,$20,$0
L105:.dc.b $25,$73,$3F,$3F,$20,$25,$30,$33,$75,$20,$4C,$20,$25,$30,$32,$75,$0
L106:.dc.b $72,$0
L107:.dc.b $63,$0
L109:.dc.b $3F,$3F,$3F,$20,$25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$0
L122:.dc.b $25,$63,$25,$75,$2E,$25,$30,$32,$75,$0
L124:.dc.b $25,$35,$75,$0
L127:.dc.b $25,$73,$0
L128:.dc.b $4F,$6E,$20,$20,$20,$0
L129:.dc.b $4F,$66,$66,$20,$20,$0
L131:.dc.b $25,$73,$0
L132:.dc.b $53,$74,$61,$72,$74,$0
L133:.dc.b $53,$74,$6F,$70,$20,$0
L135:.dc.b $24,$25,$30,$34,$2E,$34,$58,$0
L138:.dc.b $25,$73,$20,$25,$73,$20,$25,$63,$25,$63,$20,$25,$73,$0
L140:.dc.b $25,$73,$20,$25,$64,$20,$25,$73,$20,$25,$63,$25,$63,$20,$25,$73,$0
L142:.dc.b $25,$73,$20,$25,$73,$20,$20,$20,$20,$25,$73,$0
L149:.dc.b $4B,$20,$25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$20,$20,$20,$20,$25,$73,$0
L151:.dc.b $54,$72,$69,$67,$67,$65,$72,$20,$25,$30,$32,$75,$20,$20,$20,$20,$25,$73,$0
L153:.dc.b $50,$75,$6C,$73,$65,$20,$25,$75,$20,$20,$20,$20,$20,$20,$20,$25,$73,$0
L156:.dc.b $4C,$45,$44,$20,$25,$63,$20,$20,$20,$20,$20,$20,$20,$20,$20,$25,$63,$25,$63,$25,$63,$25,$63,$0
L158:.dc.b $4C,$45,$44,$20,$25,$63,$20,$20,$20,$20,$20,$20,$20,$20,$20,$25,$63,$25,$63,$25,$63,$0
L160:.dc.b $53,$65,$71,$20,$25,$30,$32,$75,$20,$4C,$69,$6E,$20,$20,$20,$20,$25,$30,$33,$75,$0
L162:.dc.b $53,$65,$71,$20,$25,$30,$32,$75,$20,$43,$74,$6C,$20,$20,$20,$20,$25,$73,$0
L164:.dc.b $54,$75,$6E,$65,$20,$54,$61,$62,$6C,$65,$20,$20,$20,$20,$25,$75,$0
L166:.dc.b $53,$65,$74,$0
L169:.dc.b $41,$64,$64,$0
L171:.dc.b $52,$65,$67,$20,$25,$30,$32,$75,$20,$25,$73,$20,$20,$20,$20,$52,$25,$30,$32,$75,$0
L175:.dc.b $52,$65,$67,$20,$25,$30,$32,$75,$20,$25,$73,$20,$20,$20,$20,$25,$63,$25,$30,$32,$75,$0
L177:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$0
L184:.dc.b $4F,$73,$63,$20,$25,$75,$20,$49,$6E,$74,$20,$20,$25,$63,$25,$63,$20,$25,$63,$25,$30,$34,$75,$0
L186:.dc.b $4F,$73,$63,$20,$25,$75,$20,$52,$61,$74,$20,$20,$25,$63,$25,$63,$20,$25,$73,$0
L188:.dc.b $4F,$73,$63,$20,$25,$75,$20,$46,$72,$71,$20,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$2E,$25,$75,$0
L190:.dc.b $4F,$73,$63,$20,$25,$75,$20,$50,$63,$68,$20,$20,$25,$63,$25,$63,$20,$25,$73,$0
L195:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$25,$63,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$0
L197:.dc.b $43,$6F,$6E,$66,$69,$67,$75,$72,$65,$20,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$0
L199:.dc.b $4C,$65,$76,$65,$6C,$0
L201:.dc.b $49,$6E,$64,$0
L203:.dc.b $46,$72,$71,$0
L205:.dc.b $46,$69,$6C,$74,$72,$0
L207:.dc.b $46,$69,$6C,$20,$51,$0
L209:.dc.b $4C,$6F,$63,$74,$6E,$0
L211:.dc.b $44,$79,$6E,$6D,$63,$0
L213:.dc.b $41,$75,$78,$20,$20,$0
L215:.dc.b $52,$61,$74,$65,$20,$0
L217:.dc.b $49,$6E,$74,$65,$6E,$0
L219:.dc.b $44,$65,$70,$74,$68,$0
L221:.dc.b $56,$6C,$74,$20,$25,$75,$0