source: buchla-68k/alcyon/ptselbx.s@ a8c6a0e

Last change on this file since a8c6a0e was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 48.5 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _stmptr
7.globl _defptr
8.globl _patches
9.globl _defents
10.globl _seqtab
11.globl _seqflag
12.globl _seqline
13.globl _seqstim
14.globl _seqtime
15.globl _sregval
16.globl _trstate
17.globl _CurLine
18.globl _cents
19.globl _cmtype
20.globl _cxval
21.globl _cyval
22.globl _hitcx
23.globl _hitcy
24.globl _stccol
25.globl _stcrow
26.globl _submenu
27.globl _vtccol
28.globl _vtcrow
29.globl _ndvals
30.globl _obj11
31.globl _csbp
32.globl _curboxp
33.globl _smdata
34.globl _ssdata
35.globl _stdata
36.globl _trdata
37.globl _ptegood
38.comm _ptegood,2
39.globl _ptedfok
40.comm _ptedfok,2
41.globl _ptestok
42.comm _ptestok,2
43.globl _ptedsok
44.comm _ptedsok,2
45.globl _ptedtok
46.comm _ptedtok,2
47.globl _ptedef
48.comm _ptedef,2
49.globl _ptestm
50.comm _ptestm,2
51.globl _ptespec
52.comm _ptespec,2
53.globl _ptesuba
54.comm _ptesuba,2
55.globl _ptedat1
56.comm _ptedat1,2
57.globl _ptedat2
58.comm _ptedat2,2
59.globl _ptedftp
60.comm _ptedftp,2
61.globl _ptedfst
62.comm _ptedfst,2
63.globl _ptedest
64.comm _ptedest,2
65.globl _ptedata
66.comm _ptedata,2
67.globl _ptemenu
68.comm _ptemenu,2
69.globl _pteset
70.comm _pteset,2
71.globl _ptbflag
72.comm _ptbflag,2
73.globl _ptecpos
74.comm _ptecpos,2
75.globl _ptepred
76.comm _ptepred,2
77.globl _ptesucc
78.comm _ptesucc,2
79.globl _ptebuf
80.comm _ptebuf,16
81.globl _ptdebuf
82.comm _ptdebuf,50
83.globl _rawdfst
84.data
85_rawdfst:
86*line 117
87.dc.l L1
88*line 118
89.dc.l L2
90*line 119
91.dc.l L3
92*line 121
93.dc.l L4
94.globl _rawdest
95.data
96_rawdest:
97*line 125
98.dc.l L5
99*line 126
100.dc.l L6
101*line 127
102.dc.l L7
103*line 128
104.dc.l L8
105*line 129
106.dc.l L9
107*line 130
108.dc.l L10
109*line 131
110.dc.l L11
111*line 132
112.dc.l L12
113*line 133
114.dc.l L13
115*line 134
116.dc.l L14
117*line 135
118.dc.l L15
119*line 136
120.dc.l L16
121*line 137
122.dc.l L17
123*line 138
124.dc.l L18
125*line 139
126.dc.l L19
127*line 140
128.dc.l L20
129*line 141
130.dc.l L21
131*line 142
132.dc.l L22
133*line 143
134.dc.l L23
135*line 144
136.dc.l L24
137*line 145
138.dc.l L25
139*line 146
140.dc.l L26
141*line 147
142.dc.l L27
143*line 148
144.dc.l L28
145*line 149
146.dc.l L29
147*line 150
148.dc.l L30
149*line 152
150.dc.l L31
151.globl _rawmode
152.data
153_rawmode:
154*line 157
155.dc.l L32
156*line 157
157.dc.l L33
158*line 157
159.dc.l L34
160*line 157
161.dc.l L35
162.globl _rawmdat
163.data
164_rawmdat:
165*line 158
166.dc.l L36
167*line 158
168.dc.l L37
169*line 158
170.dc.l L38
171*line 158
172.dc.l L39
173.globl _omtabl
174.data
175_omtabl:
176.dc.w $2
177.dc.w $3
178.dc.w $0
179.dc.w $1
180.globl _omdtab
181.data
182_omdtab:
183.dc.w $2
184.dc.w $140
185.dc.w $0
186.dc.w $0
187.globl _omftab
188.data
189_omftab:
190.dc.w $6
191.dc.w $7
192.dc.w $4
193.dc.w $5
194.globl _rawfpud
195.data
196_rawfpud:
197*line 164
198.dc.l L40
199*line 164
200.dc.l L41
201*line 164
202.dc.l L42
203*line 164
204.dc.l L43
205*line 164
206.dc.l L44
207.globl _fpudtab
208.data
209_fpudtab:
210.dc.w $B
211.dc.w $0
212.dc.w $1
213.dc.w $0
214.dc.w $1
215.globl _fpuetab
216.data
217_fpuetab:
218.dc.w $B
219.dc.w $1
220.dc.w $2
221.dc.w $3
222.dc.w $9
223.globl _dfsttab
224.data
225_dfsttab:
226.dc.w $0
227.dc.w $8000
228.dc.w $1100
229.dc.w $1180
230.globl _defcols
231.data
232_defcols:
233.dc.w $2
234.dc.w $6
235.dc.w $7
236.dc.w $8
237.globl _stmcols
238.data
239_stmcols:
240.dc.w $F
241.dc.w $13
242.dc.w $14
243.dc.w $15
244.globl _dstcols
245.data
246_dstcols:
247.dc.w $1C
248.dc.w $1E
249.dc.w $24
250.dc.w $22
251.dc.w $20
252.dc.w $20
253.dc.w $2A
254.dc.w $27
255.dc.w $22
256.dc.w $20
257.dc.w $20
258.dc.w $22
259.globl _dfsttp
260.data
261_dfsttp:
262.dc.w $1
263.dc.w $1
264.dc.w $2
265.dc.w $3
266.globl _datasrc
267.data
268_datasrc:
269.dc.w $B
270.dc.w $C
271.dc.w $D
272.dc.w $8
273.dc.w $2
274.dc.w $5
275.dc.w $A
276.dc.w $7
277.dc.w $6
278.dc.w $1
279.globl _destype
280.data
281_destype:
282.dc.w $1
283.dc.w $FFFF
284.dc.w $2
285.dc.w $3
286.dc.w $4
287.dc.w $5
288.dc.w $6
289.dc.w $7
290.dc.w $8
291.dc.w $9
292.dc.w $A
293.dc.w $B
294.dc.w $C
295.dc.w $D
296.dc.w $E
297.dc.w $10
298.dc.w $11
299.dc.w $FFFF
300.dc.w $FFFF
301.dc.w $FFFF
302.dc.w $F
303.dc.w $14
304.dc.w $12
305.dc.w $13
306.dc.w $15
307.dc.w $1A
308.dc.w $19
309.dc.w $17
310.dc.w $18
311.dc.w $16
312.dc.w $FFFF
313.dc.w $FFFF
314.dc.w $FFFF
315.dc.w $FFFF
316.dc.w $FFFF
317.dc.w $FFFF
318.dc.w $FFFF
319.dc.w $FFFF
320.dc.w $FFFF
321.dc.w $FFFF
322.dc.w $FFFF
323.dc.w $FFFF
324.dc.w $FFFF
325.dc.w $FFFF
326.dc.w $FFFF
327.globl _destfmt
328.data
329_destfmt:
330.dc.b $0
331.dc.b $FF
332.dc.b $1
333.dc.b $2
334.dc.b $3
335.dc.b $4
336.dc.b $4
337.dc.b $5
338.dc.b $4
339.dc.b $4
340.dc.b $6
341.dc.b $9
342.dc.b $6
343.dc.b $6
344.dc.b $6
345.dc.b $9
346.dc.b $9
347.dc.b $FF
348.dc.b $FF
349.dc.b $FF
350.dc.b $A
351.dc.b $A
352.dc.b $A
353.dc.b $A
354.dc.b $A
355.dc.b $8
356.dc.b $7
357.dc.b $7
358.dc.b $7
359.dc.b $7
360.globl _datafmt
361.data
362_datafmt:
363.dc.b $8
364.dc.b $FF
365.dc.b $9
366.dc.b $8
367.dc.b $E
368.dc.b $D
369.dc.b $9
370.dc.b $12
371.dc.b $C
372.dc.b $C
373.dc.b $F
374.dc.b $4
375.dc.b $10
376.dc.b $10
377.dc.b $11
378.dc.b $B
379.dc.b $B
380.dc.b $FF
381.dc.b $FF
382.dc.b $FF
383.dc.b $B
384.dc.b $B
385.dc.b $B
386.dc.b $B
387.dc.b $B
388.dc.b $B
389.dc.b $B
390.dc.b $B
391.dc.b $B
392.dc.b $B
393.globl _desdatf
394.data
395_desdatf:
396.dc.b $2
397.dc.b $0
398.dc.b $2
399.dc.b $2
400.dc.b $1
401.dc.b $1
402.dc.b $2
403.dc.b $1
404.dc.b $3
405.dc.b $3
406.dc.b $1
407.dc.b $0
408.dc.b $1
409.dc.b $1
410.dc.b $1
411.dc.b $2
412.dc.b $2
413.dc.b $0
414.dc.b $0
415.dc.b $0
416.dc.b $2
417.dc.b $2
418.dc.b $2
419.dc.b $2
420.dc.b $2
421.dc.b $2
422.dc.b $2
423.dc.b $2
424.dc.b $2
425.dc.b $2
426.globl _desdat1
427.data
428_desdat1:
429.dc.w $0
430.dc.w $0
431.dc.w $0
432.dc.w $0
433.dc.w $0
434.dc.w $0
435.dc.w $0
436.dc.w $0
437.dc.w $0
438.dc.w $0
439.dc.w $0
440.dc.w $0
441.dc.w $0
442.dc.w $0
443.dc.w $0
444.dc.w $0
445.dc.w $0
446.dc.w $0
447.dc.w $0
448.dc.w $0
449.dc.w $0
450.dc.w $0
451.dc.w $0
452.dc.w $0
453.dc.w $0
454.dc.w $0
455.dc.w $0
456.dc.w $0
457.dc.w $0
458.dc.w $0
459.globl _desdat2
460.data
461_desdat2:
462.dc.w $0
463.dc.w $0
464.dc.w $1
465.dc.w $0
466.dc.w $0
467.dc.w $0
468.dc.w $1
469.dc.w $0
470.dc.w $0
471.dc.w $1
472.dc.w $0
473.dc.w $0
474.dc.w $0
475.dc.w $0
476.dc.w $0
477.dc.w $B
478.dc.w $B
479.dc.w $0
480.dc.w $0
481.dc.w $0
482.dc.w $B
483.dc.w $B
484.dc.w $B
485.dc.w $B
486.dc.w $B
487.dc.w $B
488.dc.w $B
489.dc.w $B
490.dc.w $B
491.dc.w $B
492.globl _rawdata
493.data
494_rawdata:
495*line 262
496.dc.l L45
497*line 262
498.dc.l L46
499*line 262
500.dc.l L47
501*line 262
502.dc.l L48
503*line 262
504.dc.l L49
505*line 263
506.dc.l L50
507*line 263
508.dc.l L51
509*line 263
510.dc.l L52
511*line 263
512.dc.l L53
513*line 263
514.dc.l L54
515*line 264
516.dc.l L55
517*line 264
518.dc.l L56
519*line 264
520.dc.l L57
521*line 264
522.dc.l L58
523*line 264
524.dc.l L59
525*line 265
526.dc.l L60
527*line 265
528.dc.l L61
529*line 265
530.dc.l L62
531*line 265
532.dc.l L63
533*line 265
534.dc.l L64
535*line 266
536.dc.l L65
537*line 266
538.dc.l L66
539*line 266
540.dc.l L67
541*line 266
542.dc.l L68
543*line 266
544.dc.l L69
545*line 267
546.dc.l L70
547*line 267
548.dc.l L71
549*line 267
550.dc.l L72
551*line 267
552.dc.l L73
553*line 268
554.dc.l L74
555.globl _hilitab
556.data
557_hilitab:
558.dc.b $2
559.dc.b $3
560.dc.b $5
561.dc.b $1
562.dc.b $5
563.dc.b $5
564.dc.b $4
565.dc.b $0
566.dc.b $7
567.dc.b $6
568.dc.b $4
569.dc.b $4
570.dc.b $4
571.dc.b $4
572.dc.b $4
573.dc.b $0
574.dc.b $F
575.dc.b $5
576.dc.b $4
577.dc.b $4
578.dc.b $4
579.dc.b $4
580.dc.b $4
581.dc.b $0
582.dc.b $16
583.dc.b $5
584.dc.b $4
585.dc.b $C
586.dc.b $8
587.dc.b $8
588.dc.b $8
589.dc.b $0
590.dc.b $1D
591.dc.b $5
592.dc.b $4
593.dc.b $4
594.dc.b $4
595.dc.b $4
596.dc.b $4
597.dc.b $0
598.dc.b $24
599.dc.b $5
600.dc.b $4
601.dc.b $4
602.dc.b $4
603.dc.b $4
604.dc.b $4
605.dc.b $0
606.dc.b $2B
607.dc.b $4
608.dc.b $30
609.dc.b $30
610.dc.b $30
611.dc.b $30
612.dc.b $0
613.dc.b $0
614.dc.b $31
615.dc.b $5
616.dc.b $2
617.dc.b $2
618.dc.b $2
619.dc.b $2
620.dc.b $2
621.dc.b $0
622.dc.b $38
623.dc.b $5
624.dc.b $2
625.dc.b $2
626.dc.b $2
627.dc.b $2
628.dc.b $2
629.dc.b $0
630.globl _ptboxes
631.data
632_ptboxes:
633.dc.w $8
634.dc.w $7E
635.dc.w $17F
636.dc.w $8B
637.dc.w $0
638*line 287
639.dc.l _ptfnbox
640.dc.w $0
641.dc.w $0
642.dc.w $0
643.dc.w $0
644.dc.w $0
645.dc.l $0
646.globl _hilitpm
647.text
648_hilitpm:
649~~hilitpm:
650~n=R7
651link R14,#0
652movem.l R2-R7,-(sp)
653~chr=R6
654~h=R5
655~v=R4
656~w=R3
657*line 306
658move.b 9(R14),R7
659*line 306
660move.b R7,R0
661ext.w R0
662move R0,_ptemenu
663*line 308
664clr R5
665bra L78
666L79:
667*line 309
668*line 310
669clr R4
670bra L82
671L83:
672*line 311
673*line 312
674move R5,R0
675asl #3,R0
676ext.l R0
677move.l R0,R8
678move.l #_hilitab,R9
679move.b 0(R8,R9.l),R0
680ext.w R0
681move R0,R6
682*line 313
683*line 314
684move R5,R0
685asl #3,R0
686ext.l R0
687move.l R0,R8
688move.l #_hilitab,R9
689move.b 1(R8,R9.l),R0
690ext.w R0
691move R0,R3
692bra L86
693L87:
694*line 315
695*line 316
696*line 317
697move #64,(sp)
698move.b R7,R0
699ext.w R0
700move R4,R9
701move R5,R2
702asl #3,R2
703ext.l R2
704add.l R2,R9
705add.l #_hilitab,R9
706move.b 2(R9),R1
707ext.w R1
708and R1,R0
709beq L10000
710move #18,-(sp)
711bra L10002
712L10000:move #146,-(sp)
713L10002:move R6,-(sp)
714move R4,-(sp)
715add #1,(sp)
716move.l _obj11,-(sp)
717jsr _vsetcv
718adda.l #10,sp
719add #1,R6
720L85:L86:
721*line 314
722move R3,R0
723sub #1,R3
724tst R0
725bgt L87
726L84:
727*line 317
728L81:
729*line 310
730add #1,R4
731L82:
732*line 310
733cmp #5,R4
734blt L83
735L80:
736*line 318
737L77:
738*line 308
739add #1,R5
740L78:
741*line 308
742cmp #9,R5
743blt L79
744L76:L75:tst.l (sp)+
745movem.l (sp)+,R3-R7
746unlk R14
747rts
748.globl _aftercm
749.text
750_aftercm:
751~~aftercm:
752link R14,#-4
753*line 333
754move _stccol,R0
755bra L90
756*line 334
757L91:
758*line 335
759L92:
760*line 336
761L93:
762*line 337
763*line 338
764move #1,(sp)
765jsr _hilitpm
766bra L89
767*line 339
768*line 340
769L94:
770*line 341
771L95:
772*line 342
773L96:
774*line 343
775*line 344
776*line 345
777move #1,(sp)
778jsr _hilitpm
779bra L89
780*line 346
781*line 347
782L97:
783*line 348
784*line 349
785*line 350
786move #4,(sp)
787jsr _hilitpm
788bra L89
789*line 351
790*line 352
791*line 353
792*line 354
793L98:
794*line 355
795L99:
796*line 356
797L100:
798*line 357
799L101:
800*line 358
801*line 359
802*line 360
803*line 360
804tst _ptedsok
805beq L102
806*line 361
807*line 362
808move _ptespec,R0
809and #255,R0
810bra L104
811*line 363
812L105:
813*line 364
814*line 365
815*line 366
816move #8,(sp)
817jsr _hilitpm
818bra L103
819*line 367
820*line 368
821L106:
822*line 369
823L107:
824*line 370
825L108:
826*line 371
827L109:
828*line 372
829L110:
830*line 373
831*line 374
832*line 375
833move #16,(sp)
834jsr _hilitpm
835bra L103
836*line 376
837*line 377
838L111:
839*line 378
840L112:
841*line 379
842L113:
843*line 380
844L114:
845*line 381
846L115:
847*line 382
848L116:
849*line 383
850L117:
851*line 384
852*line 385
853*line 386
854move #32,(sp)
855jsr _hilitpm
856bra L103
857*line 387
858*line 388
859L118:
860*line 389
861*line 390
862*line 391
863clr (sp)
864jsr _hilitpm
865bra L103
866*line 392
867bra L103
868L104:sub #11,R0
869cmp #15,R0
870bhi L118
871asl #2,R0
872move R0,R8
873add.l #L119,R8
874move.l (R8),R8
875jmp (R8)
876.data
877L119:.dc.l L105
878.dc.l L118
879.dc.l L118
880.dc.l L118
881.dc.l L106
882.dc.l L107
883.dc.l L108
884.dc.l L110
885.dc.l L111
886.dc.l L109
887.dc.l L112
888.dc.l L117
889.dc.l L115
890.dc.l L116
891.dc.l L114
892.dc.l L113
893.text
894L103:
895*line 393
896*line 394
897bra L120
898L102:
899*line 395
900*line 396
901*line 397
902clr (sp)
903jsr _hilitpm
904L120:
905*line 398
906*line 399
907bra L89
908*line 400
909*line 401
910*line 402
911L121:
912*line 403
913*line 404
914*line 405
915*line 405
916tst _ptedtok
917beq L122
918*line 406
919*line 407
920move _ptespec,R0
921and #255,R0
922bra L124
923*line 408
924L125:
925*line 409
926L126:
927*line 410
928L127:
929*line 411
930L128:
931*line 412
932L129:
933*line 413
934L130:
935*line 414
936L131:
937*line 415
938L132:
939*line 416
940L133:
941*line 417
942L134:
943*line 418
944L135:
945*line 419
946L136:
947*line 420
948*line 421
949*line 422
950*line 423
951tst _ptedat1
952bne L137
953*line 423
954move #2,(sp)
955jsr _hilitpm
956*line 424
957bra L138
958L137:
959*line 425
960clr (sp)
961jsr _hilitpm
962L138:
963*line 426
964bra L123
965*line 427
966*line 428
967L139:
968*line 429
969*line 430
970*line 431
971clr (sp)
972jsr _hilitpm
973bra L123
974*line 432
975bra L123
976L124:sub #15,R0
977cmp #11,R0
978bhi L139
979asl #2,R0
980move R0,R8
981add.l #L140,R8
982move.l (R8),R8
983jmp (R8)
984.data
985L140:.dc.l L125
986.dc.l L126
987.dc.l L127
988.dc.l L129
989.dc.l L130
990.dc.l L128
991.dc.l L131
992.dc.l L136
993.dc.l L134
994.dc.l L135
995.dc.l L133
996.dc.l L132
997.text
998L123:
999*line 433
1000*line 434
1001bra L141
1002L122:
1003*line 435
1004*line 436
1005*line 437
1006clr (sp)
1007jsr _hilitpm
1008L141:
1009*line 438
1010*line 439
1011bra L89
1012*line 440
1013*line 441
1014L142:
1015*line 442
1016*line 443
1017*line 444
1018clr (sp)
1019jsr _hilitpm
1020bra L89
1021*line 445
1022bra L89
1023L90:ext.l R0
1024move.l #L143,R8
1025move #12,R1
1026L144:cmp.l (R8)+,R0
1027dbeq R1,L144
1028move.l 48(R8),R8
1029jmp (R8)
1030.data
1031L143:.dc.l 2
1032.dc.l 3
1033.dc.l 4
1034.dc.l 15
1035.dc.l 16
1036.dc.l 17
1037.dc.l 28
1038.dc.l 34
1039.dc.l 35
1040.dc.l 36
1041.dc.l 37
1042.dc.l 42
1043.dc.l 0
1044.dc.l L91
1045.dc.l L92
1046.dc.l L93
1047.dc.l L94
1048.dc.l L95
1049.dc.l L96
1050.dc.l L97
1051.dc.l L98
1052.dc.l L99
1053.dc.l L100
1054.dc.l L101
1055.dc.l L121
1056.dc.l L142
1057.text
1058L89:L88:unlk R14
1059rts
1060.globl _movectc
1061.text
1062_movectc:
1063~~movectc:
1064~r=8
1065~c=10
1066link R14,#-4
1067*line 461
1068move 10(R14),(sp)
1069move 8(R14),-(sp)
1070jsr _ctcpos
1071addq.l #2,sp
1072*line 462
1073jsr _aftercm
1074L145:unlk R14
1075rts
1076.globl _endpsm
1077.text
1078_endpsm:
1079~~endpsm:
1080~row=8
1081~col=10
1082link R14,#-4
1083*line 474
1084clr _submenu
1085*line 475
1086move #4,_cmtype
1087*line 477
1088tst _ptedfok
1089beq L10004
1090tst _ptestok
1091beq L10004
1092tst _ptedsok
1093beq L10004
1094tst _ptedtok
1095bne L10003
1096L10004:clr R0
1097bra L10005
1098L10003:move #1,R0
1099L10005:move R0,_ptegood
1100*line 479
1101jsr _mtcoff
1102*line 480
1103move 10(R14),(sp)
1104move 8(R14),-(sp)
1105jsr _movectc
1106addq.l #2,sp
1107*line 482
1108jsr _srdspte
1109L146:unlk R14
1110rts
1111.globl _edefstm
1112.text
1113_edefstm:
1114~~edefstm:
1115~du=8
1116~n=10
1117link R14,#-6
1118movem.l R3-R7,-(sp)
1119~chan=-2
1120~port=-4
1121~stim=-6
1122~i=R7
1123~left=R6
1124~right=R5
1125~ltemp=R4
1126*line 507
1127*line 507
1128tst 10(R14)
1129beq L148
1130*line 508
1131*line 509
1132*line 509
1133tst _ptestok
1134bne L149
1135*line 510
1136*line 511
1137move #15,(sp)
1138move #9,-(sp)
1139jsr _movectc
1140addq.l #2,sp
1141bra L147
1142*line 512
1143*line 513
1144*line 514
1145L149:bra L150
1146L148:
1147*line 515
1148*line 516
1149*line 517
1150*line 517
1151tst _ptedfok
1152bne L151
1153*line 518
1154*line 519
1155move #2,(sp)
1156move #9,-(sp)
1157jsr _movectc
1158addq.l #2,sp
1159bra L147
1160*line 520
1161*line 521
1162L151:L150:
1163*line 524
1164tst 10(R14)
1165beq L10006
1166move _ptestm,R0
1167bra L10008
1168L10006:move _ptedef,R0
1169L10008:move #11,R1
1170asr R1,R0
1171and #3,R0
1172move R0,-4(R14)
1173*line 525
1174tst 10(R14)
1175beq L10009
1176move _ptestm,R0
1177bra L10011
1178L10009:move _ptedef,R0
1179L10011:asr #7,R0
1180and #15,R0
1181move R0,-2(R14)
1182*line 526
1183tst 10(R14)
1184beq L10012
1185move _ptestm,R0
1186bra L10014
1187L10012:move _ptedef,R0
1188L10014:and #127,R0
1189move R0,-6(R14)
1190*line 531
1191*line 532
1192tst -4(R14)
1193beq L10015
1194cmp #1,-4(R14)
1195beq L10015
1196cmp #2,-4(R14)
1197bne L152
1198cmp #2,-2(R14)
1199bge L152
1200L10015:*line 533
1201*line 534
1202clr.l R4
1203*line 535
1204tst 10(R14)
1205beq L10016
1206move #19,R0
1207bra L10018
1208L10016:move #6,R0
1209L10018:move R0,R6
1210*line 536
1211tst 10(R14)
1212beq L10019
1213move #22,R0
1214bra L10021
1215L10019:move #9,R0
1216L10021:move R0,R5
1217*line 537
1218*line 538
1219move R6,R7
1220bra L155
1221L156:
1222*line 539
1223move.l #$a,-(sp)
1224move.l R4,-(sp)
1225jsr lmul
1226addq.l #8,sp
1227move.l R0,R4
1228move.l #_ptdebuf,R8
1229move.b 0(R8,R7),R0
1230ext.w R0
1231ext.l R0
1232add.l R0,R4
1233add.l #$ffffffd0,R4
1234L154:
1235*line 538
1236add #1,R7
1237L155:
1238*line 538
1239cmp R5,R7
1240blt L156
1241L153:
1242*line 539
1243*line 540
1244*line 541
1245*line 541
1246tst.l R4
1247beq L10022
1248cmp.l #$80,R4
1249ble L157
1250L10022:*line 542
1251*line 543
1252move R6,(sp)
1253move #9,-(sp)
1254jsr _movectc
1255addq.l #2,sp
1256bra L147
1257*line 544
1258*line 545
1259*line 546
1260L157:
1261*line 547
1262move.l R4,R0
1263sub.l #$1,R0
1264move R0,-6(R14)
1265*line 548
1266*line 549
1267*line 549
1268cmp #2,-4(R14)
1269bne L158
1270*line 550
1271*line 551
1272clr -2(R14)
1273*line 552
1274bra L159
1275L158:
1276*line 553
1277*line 554
1278*line 555
1279clr.l R4
1280*line 556
1281tst 10(R14)
1282beq L10023
1283move #25,R0
1284bra L10025
1285L10023:move #12,R0
1286L10025:move R0,R6
1287*line 557
1288tst 10(R14)
1289beq L10026
1290move #27,R0
1291bra L10028
1292L10026:move #14,R0
1293L10028:move R0,R5
1294*line 558
1295*line 559
1296move R6,R7
1297bra L162
1298L163:
1299*line 560
1300move.l #$a,-(sp)
1301move.l R4,-(sp)
1302jsr lmul
1303addq.l #8,sp
1304move.l R0,R4
1305move.l #_ptdebuf,R8
1306move.b 0(R8,R7),R0
1307ext.w R0
1308ext.l R0
1309add.l R0,R4
1310add.l #$ffffffd0,R4
1311L161:
1312*line 559
1313add #1,R7
1314L162:
1315*line 559
1316cmp R5,R7
1317blt L163
1318L160:
1319*line 560
1320*line 561
1321*line 562
1322*line 562
1323tst.l R4
1324beq L10029
1325cmp.l #$10,R4
1326ble L164
1327L10029:*line 563
1328*line 564
1329move R6,(sp)
1330move #9,-(sp)
1331jsr _movectc
1332addq.l #2,sp
1333bra L147
1334*line 565
1335*line 566
1336*line 567
1337L164:
1338*line 568
1339move.l R4,R0
1340sub.l #$1,R0
1341move R0,-2(R14)
1342L159:
1343*line 569
1344*line 570
1345*line 571
1346*line 572
1347tst 10(R14)
1348beq L165
1349*line 572
1350move _ptestm,R0
1351and #-32768,R0
1352move -4(R14),R1
1353move #11,R2
1354asl R2,R1
1355or R1,R0
1356move -2(R14),R1
1357asl #7,R1
1358or R1,R0
1359or -6(R14),R0
1360move R0,_ptestm
1361*line 573
1362bra L166
1363L165:
1364*line 574
1365move _ptedef,R0
1366and #-32768,R0
1367move -4(R14),R1
1368move #11,R2
1369asl R2,R1
1370or R1,R0
1371move -2(R14),R1
1372asl #7,R1
1373or R1,R0
1374or -6(R14),R0
1375move R0,_ptedef
1376L166:
1377*line 575
1378*line 576
1379bra L167
1380L152:
1381*line 577
1382*line 577
1383cmp #2,-4(R14)
1384bne L168
1385cmp #2,-2(R14)
1386bne L168
1387*line 578
1388*line 579
1389clr.l R4
1390*line 580
1391tst 10(R14)
1392beq L10030
1393move #20,R0
1394bra L10032
1395L10030:move #7,R0
1396L10032:move R0,R6
1397*line 581
1398tst 10(R14)
1399beq L10033
1400move #22,R0
1401bra L10035
1402L10033:move #9,R0
1403L10035:move R0,R5
1404*line 582
1405*line 583
1406move R6,R7
1407bra L171
1408L172:
1409*line 584
1410move.l #$a,-(sp)
1411move.l R4,-(sp)
1412jsr lmul
1413addq.l #8,sp
1414move.l R0,R4
1415move.l #_ptdebuf,R8
1416move.b 0(R8,R7),R0
1417ext.w R0
1418ext.l R0
1419add.l R0,R4
1420add.l #$ffffffd0,R4
1421L170:
1422*line 583
1423add #1,R7
1424L171:
1425*line 583
1426cmp R5,R7
1427blt L172
1428L169:
1429*line 584
1430*line 585
1431*line 586
1432*line 586
1433tst.l R4
1434beq L10036
1435cmp.l #$10,R4
1436ble L173
1437L10036:*line 587
1438*line 588
1439move R6,(sp)
1440move #9,-(sp)
1441jsr _movectc
1442addq.l #2,sp
1443bra L147
1444*line 589
1445*line 590
1446*line 591
1447L173:
1448*line 592
1449move.l R4,R0
1450sub.l #$1,R0
1451move R0,-6(R14)
1452*line 593
1453*line 594
1454*line 595
1455tst 10(R14)
1456beq L174
1457*line 595
1458move -6(R14),R0
1459or #4352,R0
1460move R0,_ptestm
1461*line 596
1462bra L175
1463L174:
1464*line 597
1465move -6(R14),R0
1466or #4352,R0
1467move R0,_ptedef
1468L175:
1469*line 598
1470*line 599
1471bra L176
1472L168:
1473*line 600
1474*line 600
1475cmp #2,-4(R14)
1476bne L177
1477cmp #3,-2(R14)
1478bne L177
1479*line 601
1480*line 602
1481tst 10(R14)
1482beq L10037
1483move #21,R0
1484bra L10039
1485L10037:move #8,R0
1486L10039:move R0,R6
1487*line 603
1488move.l #_ptdebuf,R8
1489move.b 0(R8,R6),R0
1490ext.w R0
1491add #-48,R0
1492ext.l R0
1493move.l R0,R4
1494*line 604
1495*line 605
1496*line 605
1497tst.l R4
1498beq L10040
1499cmp.l #$2,R4
1500ble L178
1501L10040:*line 606
1502*line 607
1503move R6,(sp)
1504move #9,-(sp)
1505jsr _movectc
1506addq.l #2,sp
1507bra L147
1508*line 608
1509*line 609
1510*line 610
1511L178:
1512*line 611
1513move.l R4,R0
1514sub.l #$1,R0
1515move R0,-6(R14)
1516*line 612
1517*line 613
1518*line 614
1519tst 10(R14)
1520beq L179
1521*line 614
1522move -6(R14),R0
1523or #4480,R0
1524move R0,_ptestm
1525*line 615
1526bra L180
1527L179:
1528*line 616
1529move -6(R14),R0
1530or #4480,R0
1531move R0,_ptedef
1532L180:
1533*line 617
1534bra L181
1535L177:
1536*line 618
1537*line 619
1538*line 620
1539tst 10(R14)
1540beq L10041
1541move #15,(sp)
1542bra L10043
1543L10041:move #2,(sp)
1544L10043:move #9,-(sp)
1545jsr _movectc
1546addq.l #2,sp
1547bra L147
1548*line 621
1549L181:L176:L167:
1550*line 624
1551*line 625
1552tst 10(R14)
1553beq L182
1554*line 625
1555move #1,_ptestok
1556*line 626
1557bra L183
1558L182:
1559*line 627
1560move #1,_ptedfok
1561L183:
1562*line 634
1563*line 634
1564tst 8(R14)
1565beq L184
1566*line 635
1567*line 636
1568jsr _srdspte
1569*line 637
1570tst 10(R14)
1571beq L10044
1572move #28,(sp)
1573bra L10046
1574L10044:move #15,(sp)
1575L10046:move #9,-(sp)
1576jsr _movectc
1577addq.l #2,sp
1578*line 638
1579L184:L147:tst.l (sp)+
1580movem.l (sp)+,R4-R7
1581unlk R14
1582rts
1583.globl _ptdest
1584.text
1585_ptdest:
1586~~ptdest:
1587~du=8
1588link R14,#-4
1589movem.l R2-R7,-(sp)
1590~ltemp=R7
1591~i=R6
1592~left=R5
1593~right=R4
1594~stim=R3
1595~port=-2
1596~chan=-4
1597*line 662
1598move _ptedest,R0
1599bra L187
1600*line 663
1601L188:
1602*line 664
1603*line 665
1604*line 666
1605clr.l R7
1606*line 667
1607move #30,R5
1608*line 668
1609move #33,R4
1610*line 669
1611*line 670
1612move R5,R6
1613bra L191
1614L192:
1615*line 671
1616move.l #$a,-(sp)
1617move.l R7,-(sp)
1618jsr lmul
1619addq.l #8,sp
1620move.l R0,R7
1621move.l #_ptdebuf,R8
1622move.b 0(R8,R6),R0
1623ext.w R0
1624ext.l R0
1625add.l R0,R7
1626add.l #$ffffffd0,R7
1627L190:
1628*line 670
1629add #1,R6
1630L191:
1631*line 670
1632cmp R4,R6
1633blt L192
1634L189:
1635*line 671
1636*line 672
1637*line 673
1638*line 673
1639tst.l R7
1640beq L10047
1641cmp.l #$80,R7
1642ble L193
1643L10047:*line 674
1644*line 675
1645move R5,(sp)
1646move #9,-(sp)
1647jsr _movectc
1648addq.l #2,sp
1649bra L185
1650*line 676
1651*line 677
1652*line 678
1653L193:
1654*line 679
1655move.l R7,R0
1656sub.l #$1,R0
1657move R0,R3
1658*line 680
1659clr.l R7
1660*line 681
1661move #36,R5
1662*line 682
1663move #38,R4
1664*line 683
1665*line 684
1666move R5,R6
1667bra L196
1668L197:
1669*line 685
1670move.l #$a,-(sp)
1671move.l R7,-(sp)
1672jsr lmul
1673addq.l #8,sp
1674move.l R0,R7
1675move.l #_ptdebuf,R8
1676move.b 0(R8,R6),R0
1677ext.w R0
1678ext.l R0
1679add.l R0,R7
1680add.l #$ffffffd0,R7
1681L195:
1682*line 684
1683add #1,R6
1684L196:
1685*line 684
1686cmp R4,R6
1687blt L197
1688L194:
1689*line 685
1690*line 686
1691*line 687
1692*line 687
1693tst.l R7
1694beq L10048
1695cmp.l #$10,R7
1696ble L198
1697L10048:*line 688
1698*line 689
1699move R5,(sp)
1700move #9,-(sp)
1701jsr _movectc
1702addq.l #2,sp
1703bra L185
1704*line 690
1705*line 691
1706*line 692
1707L198:
1708*line 693
1709move.l R7,R0
1710sub.l #$1,R0
1711move R0,-4(R14)
1712*line 694
1713*line 695
1714*line 696
1715*line 696
1716cmp.b #76,34+_ptdebuf
1717bne L199
1718*line 697
1719*line 698
1720move #2,-2(R14)
1721*line 699
1722clr -4(R14)
1723*line 700
1724bra L200
1725L199:
1726*line 701
1727*line 702
1728*line 703
1729move.b 34+_ptdebuf,R0
1730ext.w R0
1731add #-49,R0
1732move R0,-2(R14)
1733L200:
1734*line 704
1735*line 705
1736*line 706
1737move R3,R0
1738move -4(R14),R1
1739asl #7,R1
1740or R1,R0
1741move -2(R14),R1
1742move #11,R2
1743asl R2,R1
1744or R1,R0
1745move R0,_ptesuba
1746bra L186
1747*line 707
1748*line 708
1749*line 709
1750L201:
1751*line 710
1752*line 711
1753*line 712
1754clr.l R7
1755*line 713
1756move #36,R5
1757*line 714
1758move #38,R4
1759*line 715
1760*line 716
1761move R5,R6
1762bra L204
1763L205:
1764*line 717
1765move.l #$a,-(sp)
1766move.l R7,-(sp)
1767jsr lmul
1768addq.l #8,sp
1769move.l R0,R7
1770move.l #_ptdebuf,R8
1771move.b 0(R8,R6),R0
1772ext.w R0
1773ext.l R0
1774add.l R0,R7
1775add.l #$ffffffd0,R7
1776L203:
1777*line 716
1778add #1,R6
1779L204:
1780*line 716
1781cmp R4,R6
1782blt L205
1783L202:
1784*line 717
1785*line 718
1786*line 719
1787*line 719
1788tst.l R7
1789beq L10049
1790cmp.l #$10,R7
1791ble L206
1792L10049:*line 720
1793*line 721
1794move R5,(sp)
1795move #9,-(sp)
1796jsr _movectc
1797addq.l #2,sp
1798bra L185
1799*line 722
1800*line 723
1801*line 724
1802L206:
1803*line 725
1804move.l R7,R0
1805sub.l #$1,R0
1806move R0,R3
1807*line 726
1808move R3,R0
1809or #4352,R0
1810move R0,_ptesuba
1811bra L186
1812*line 727
1813*line 728
1814L207:
1815*line 729
1816*line 730
1817*line 731
1818move.b 34+_ptdebuf,R0
1819ext.w R0
1820add #-49,R0
1821move R0,_ptesuba
1822bra L186
1823*line 732
1824*line 733
1825L208:
1826*line 734
1827*line 735
1828*line 736
1829move.b 32+_ptdebuf,R0
1830ext.w R0
1831add #-65,R0
1832move R0,_ptesuba
1833bra L186
1834*line 737
1835*line 738
1836L209:
1837*line 739
1838*line 740
1839*line 741
1840clr.l R7
1841*line 742
1842move #32,R5
1843*line 743
1844move #34,R4
1845*line 744
1846*line 745
1847move R5,R6
1848bra L212
1849L213:
1850*line 746
1851move.l #$a,-(sp)
1852move.l R7,-(sp)
1853jsr lmul
1854addq.l #8,sp
1855move.l R0,R7
1856move.l #_ptdebuf,R8
1857move.b 0(R8,R6),R0
1858ext.w R0
1859ext.l R0
1860add.l R0,R7
1861add.l #$ffffffd0,R7
1862L211:
1863*line 745
1864add #1,R6
1865L212:
1866*line 745
1867cmp R4,R6
1868blt L213
1869L210:
1870*line 746
1871*line 747
1872*line 748
1873*line 748
1874tst.l R7
1875beq L10050
1876cmp.l #$10,R7
1877ble L214
1878L10050:*line 749
1879*line 750
1880move R5,(sp)
1881move #9,-(sp)
1882jsr _movectc
1883addq.l #2,sp
1884bra L185
1885*line 751
1886*line 752
1887*line 753
1888L214:
1889*line 754
1890move.l R7,R0
1891sub.l #$1,R0
1892move R0,_ptesuba
1893bra L186
1894*line 755
1895*line 756
1896*line 757
1897*line 758
1898L215:
1899*line 759
1900L216:
1901*line 760
1902*line 761
1903bra L186
1904*line 762
1905*line 763
1906L217:
1907*line 764
1908L218:
1909*line 765
1910*line 766
1911*line 767
1912*line 768
1913cmp.b #86,39+_ptdebuf
1914bne L219
1915*line 768
1916clr R3
1917*line 769
1918bra L220
1919L219:
1920*line 770
1921move #12,R3
1922L220:
1923*line 771
1924*line 772
1925move.b 40+_ptdebuf,R6
1926ext.w R6
1927and #255,R6
1928*line 773
1929*line 774
1930*line 775
1931cmp #172,R6
1932blt L221
1933*line 775
1934move R6,R0
1935add #-162,R0
1936add R0,R3
1937*line 776
1938bra L222
1939L221:
1940*line 777
1941move R6,R0
1942add #-48,R0
1943add R0,R3
1944L222:
1945*line 778
1946*line 779
1947sub #1,R3
1948*line 780
1949move R3,R0
1950asl #8,R0
1951move R0,_ptesuba
1952bra L186
1953*line 781
1954*line 782
1955L223:
1956*line 783
1957*line 784
1958*line 785
1959move.b 32+_ptdebuf,R0
1960ext.w R0
1961add #-48,R0
1962move R0,_ptesuba
1963bra L186
1964*line 786
1965*line 787
1966*line 788
1967L224:
1968*line 789
1969*line 790
1970*line 791
1971*line 792
1972cmp.b #86,39+_ptdebuf
1973bne L225
1974*line 792
1975clr R3
1976*line 793
1977bra L226
1978L225:
1979*line 794
1980move #12,R3
1981L226:
1982*line 795
1983*line 796
1984move.b 40+_ptdebuf,R6
1985ext.w R6
1986and #255,R6
1987*line 797
1988*line 798
1989*line 799
1990cmp #172,R6
1991blt L227
1992*line 799
1993move R6,R0
1994add #-162,R0
1995add R0,R3
1996*line 800
1997bra L228
1998L227:
1999*line 801
2000move R6,R0
2001add #-48,R0
2002add R0,R3
2003L228:
2004*line 802
2005*line 803
2006sub #1,R3
2007*line 804
2008move R3,R0
2009asl #8,R0
2010move.b 32+_ptdebuf,R1
2011ext.w R1
2012add #-48,R1
2013or R1,R0
2014move R0,_ptesuba
2015bra L186
2016*line 805
2017*line 806
2018L229:
2019*line 807
2020*line 808
2021*line 809
2022move #28,(sp)
2023move #9,-(sp)
2024jsr _movectc
2025addq.l #2,sp
2026bra L185
2027*line 810
2028bra L186
2029L187:cmp #10,R0
2030bhi L229
2031asl #2,R0
2032move R0,R8
2033add.l #L230,R8
2034move.l (R8),R8
2035jmp (R8)
2036.data
2037L230:.dc.l L188
2038.dc.l L201
2039.dc.l L207
2040.dc.l L208
2041.dc.l L209
2042.dc.l L215
2043.dc.l L217
2044.dc.l L216
2045.dc.l L223
2046.dc.l L224
2047.dc.l L218
2048.text
2049L186:
2050*line 813
2051move #1,_ptedsok
2052*line 820
2053*line 820
2054tst 8(R14)
2055beq L231
2056*line 821
2057*line 822
2058jsr _srdspte
2059*line 823
2060move #42,(sp)
2061move #9,-(sp)
2062jsr _movectc
2063addq.l #2,sp
2064*line 824
2065*line 825
2066*line 829
2067L231:L185:tst.l (sp)+
2068movem.l (sp)+,R3-R7
2069unlk R14
2070rts
2071.globl _epatch
2072.text
2073_epatch:
2074~~epatch:
2075link R14,#-4
2076*line 848
2077move #1,_ptedtok
2078*line 849
2079clr (sp)
2080clr -(sp)
2081jsr _edefstm
2082addq.l #2,sp
2083*line 850
2084move #1,(sp)
2085clr -(sp)
2086jsr _edefstm
2087addq.l #2,sp
2088*line 851
2089clr (sp)
2090jsr _ptdest
2091*line 852
2092jsr _entrpte
2093*line 853
2094jsr _srdspte
2095*line 854
2096move #2,(sp)
2097move #9,-(sp)
2098jsr _movectc
2099addq.l #2,sp
2100L232:unlk R14
2101rts
2102.globl _badpdat
2103.text
2104_badpdat:
2105~~badpdat:
2106link R14,#-4
2107*line 878
2108clr _ptedtok
2109*line 879
2110move #42,(sp)
2111move #9,-(sp)
2112jsr _movectc
2113addq.l #2,sp
2114L233:unlk R14
2115rts
2116.globl _setsubm
2117.text
2118_setsubm:
2119~~setsubm:
2120~r=8
2121~c=10
2122link R14,#-4
2123*line 891
2124move #1,_submenu
2125*line 892
2126move #5,_cmtype
2127*line 893
2128move 10(R14),(sp)
2129move 8(R14),-(sp)
2130jsr _mtcpos
2131addq.l #2,sp
2132L234:unlk R14
2133rts
2134.globl _ptfnbox
2135.text
2136_ptfnbox:
2137~~ptfnbox:
2138~n=8
2139link R14,#0
2140movem.l R2-R7,-(sp)
2141~i=R7
2142~box=R6
2143~ptd=R5
2144~ptt=R4
2145~ltemp=R3
2146*line 912
2147*line 912
2148tst _submenu
2149bne L236
2150*line 913
2151*line 914
2152*line 914
2153cmp #2,_stccol
2154blt L237
2155cmp #13,_stccol
2156bgt L237
2157*line 915
2158*line 916
2159move #1,_ptedftp
2160*line 917
2161*line 918
2162*line 918
2163cmp #2,_stccol
2164blt L238
2165cmp #4,_stccol
2166bgt L238
2167*line 919
2168*line 920
2169move #2,(sp)
2170move #19,-(sp)
2171jsr _setsubm
2172addq.l #2,sp
2173*line 921
2174bra L239
2175L238:
2176*line 922
2177*line 923
2178*line 924
2179move #1,(sp)
2180clr -(sp)
2181jsr _edefstm
2182addq.l #2,sp
2183*line 925
2184clr (sp)
2185jsr _ptdest
2186*line 926
2187clr (sp)
2188move #1,-(sp)
2189jsr _edefstm
2190addq.l #2,sp
2191L239:
2192*line 927
2193*line 928
2194*line 929
2195clr R0
2196bra L235
2197*line 930
2198bra L240
2199L237:
2200*line 931
2201*line 931
2202cmp #15,_stccol
2203blt L241
2204cmp #26,_stccol
2205bgt L241
2206*line 932
2207*line 933
2208move #2,_ptedftp
2209*line 934
2210*line 935
2211*line 935
2212cmp #15,_stccol
2213blt L242
2214cmp #17,_stccol
2215bgt L242
2216*line 936
2217*line 937
2218move #2,(sp)
2219move #19,-(sp)
2220jsr _setsubm
2221addq.l #2,sp
2222*line 938
2223bra L243
2224L242:
2225*line 939
2226*line 940
2227*line 941
2228clr (sp)
2229clr -(sp)
2230jsr _edefstm
2231addq.l #2,sp
2232*line 942
2233clr (sp)
2234jsr _ptdest
2235*line 943
2236move #1,(sp)
2237move #1,-(sp)
2238jsr _edefstm
2239addq.l #2,sp
2240L243:
2241*line 944
2242*line 945
2243*line 946
2244clr R0
2245bra L235
2246*line 947
2247*line 948
2248bra L244
2249L241:
2250*line 949
2251*line 949
2252cmp #28,_stccol
2253blt L245
2254cmp #40,_stccol
2255bgt L245
2256*line 950
2257*line 951
2258clr _ptedftp
2259*line 952
2260*line 953
2261*line 953
2262cmp #28,_stccol
2263bne L246
2264*line 954
2265*line 955
2266move #2,(sp)
2267move #19,-(sp)
2268jsr _setsubm
2269addq.l #2,sp
2270*line 956
2271bra L247
2272L246:
2273*line 957
2274*line 957
2275cmp #8,_ptemenu
2276bne L248
2277*line 958
2278*line 959
2279move #22,(sp)
2280move #20,-(sp)
2281jsr _setsubm
2282addq.l #2,sp
2283*line 960
2284bra L249
2285L248:
2286*line 961
2287*line 962
2288cmp #16,_ptemenu
2289beq L10051
2290cmp #32,_ptemenu
2291bne L250
2292L10051:*line 963
2293*line 964
2294move #43,(sp)
2295move #19,-(sp)
2296jsr _setsubm
2297addq.l #2,sp
2298*line 965
2299bra L251
2300L250:
2301*line 966
2302*line 967
2303*line 968
2304clr (sp)
2305clr -(sp)
2306jsr _edefstm
2307addq.l #2,sp
2308*line 969
2309move #1,(sp)
2310clr -(sp)
2311jsr _edefstm
2312addq.l #2,sp
2313*line 970
2314move #1,(sp)
2315jsr _ptdest
2316L251:L249:L247:
2317*line 971
2318*line 972
2319*line 973
2320clr R0
2321bra L235
2322*line 974
2323*line 975
2324bra L252
2325L245:
2326*line 976
2327*line 976
2328cmp #42,_stccol
2329blt L253
2330cmp #46,_stccol
2331bgt L253
2332*line 977
2333*line 978
2334clr _ptedftp
2335*line 979
2336jsr _setptcv
2337*line 980
2338*line 984
2339*line 985
2340move _ptedata,R0
2341bra L255
2342*line 986
2343L256:
2344*line 987
2345*line 988
2346*line 989
2347clr _ptedtok
2348*line 990
2349move #-1,R0
2350bra L235
2351*line 991
2352L257:
2353*line 992
2354*line 993
2355*line 994
2356move.b 43+_ptdebuf,_ebuf
2357*line 995
2358move.b 45+_ptdebuf,1+_ebuf
2359*line 996
2360move.b 46+_ptdebuf,2+_ebuf
2361*line 997
2362move.b 42+_ptdebuf,3+_ebuf
2363*line 998
2364*line 999
2365*line 999
2366move.l #_ebuf,(sp)
2367jsr _dec2fr
2368move R0,R7
2369cmp #-1,R7
2370bne L258
2371*line 1000
2372*line 1001
2373jsr _badpdat
2374*line 1002
2375move #-1,R0
2376bra L235
2377*line 1003
2378*line 1004
2379L258:
2380*line 1005
2381move R7,_ptedat2
2382*line 1006
2383jsr _epatch
2384*line 1007
2385clr R0
2386bra L235
2387*line 1008
2388*line 1009
2389L259:
2390*line 1010
2391*line 1011
2392*line 1012
2393clr.l R3
2394*line 1013
2395*line 1014
2396move #42,R7
2397bra L262
2398L263:
2399*line 1015
2400move.l #$a,-(sp)
2401move.l R3,-(sp)
2402jsr lmul
2403addq.l #8,sp
2404move.l R0,R3
2405move.l #_ptdebuf,R8
2406move.b 0(R8,R7),R0
2407ext.w R0
2408add #-48,R0
2409ext.l R0
2410add.l R0,R3
2411L261:
2412*line 1014
2413add #1,R7
2414L262:
2415*line 1014
2416cmp #47,R7
2417blt L263
2418L260:
2419*line 1015
2420*line 1016
2421*line 1017
2422*line 1017
2423cmp.l #$7fff,R3
2424ble L264
2425*line 1018
2426*line 1019
2427jsr _badpdat
2428*line 1020
2429move #-1,R0
2430bra L235
2431*line 1021
2432*line 1022
2433L264:
2434*line 1023
2435move.l R3,R0
2436move R0,(sp)
2437jsr _tofpu
2438move R0,_ptedat2
2439*line 1024
2440jsr _epatch
2441*line 1025
2442clr R0
2443bra L235
2444*line 1026
2445L265:
2446*line 1027
2447*line 1028
2448*line 1029
2449move.b 42+_ptdebuf,R7
2450ext.w R7
2451and #255,R7
2452*line 1030
2453*line 1031
2454*line 1032
2455cmp #160,R7
2456beq L10052
2457cmp #161,R7
2458bne L266
2459L10052:*line 1032
2460move.l #$3e8,R3
2461*line 1033
2462bra L267
2463L266:
2464*line 1034
2465clr.l R3
2466L267:
2467*line 1035
2468*line 1036
2469*line 1037
2470*line 1038
2471move.b 43+_ptdebuf,R0
2472ext.w R0
2473add #-48,R0
2474muls #100,R0
2475move.b 45+_ptdebuf,R1
2476ext.w R1
2477add #-48,R1
2478muls #10,R1
2479add R1,R0
2480move.b 46+_ptdebuf,R1
2481ext.w R1
2482add R1,R0
2483add #-48,R0
2484ext.l R0
2485add.l R0,R3
2486*line 1039
2487*line 1040
2488*line 1040
2489cmp.l #$3e8,R3
2490ble L268
2491*line 1041
2492*line 1042
2493jsr _badpdat
2494*line 1043
2495move #-1,R0
2496bra L235
2497*line 1044
2498*line 1045
2499L268:
2500*line 1046
2501*line 1047
2502cmp #45,R7
2503beq L10053
2504cmp #161,R7
2505bne L269
2506L10053:*line 1047
2507move.l R3,R0
2508neg.l R0
2509move.l R0,R3
2510*line 1048
2511L269:
2512*line 1049
2513move.l R3,R0
2514asl.l #$5,R0
2515move R0,_ptedat2
2516*line 1050
2517jsr _epatch
2518*line 1051
2519clr R0
2520bra L235
2521*line 1052
2522*line 1053
2523*line 1054
2524L270:
2525*line 1055
2526*line 1056
2527*line 1057
2528clr.l R3
2529*line 1058
2530*line 1059
2531move #43,R7
2532bra L273
2533L274:
2534*line 1060
2535move.l #$a,-(sp)
2536move.l R3,-(sp)
2537jsr lmul
2538addq.l #8,sp
2539move.l R0,R3
2540move.l #_ptdebuf,R8
2541move.b 0(R8,R7),R0
2542ext.w R0
2543add #-48,R0
2544ext.l R0
2545add.l R0,R3
2546L272:
2547*line 1059
2548add #1,R7
2549L273:
2550*line 1059
2551cmp #47,R7
2552blt L274
2553L271:
2554*line 1060
2555*line 1061
2556*line 1062
2557*line 1062
2558cmp.l #$4b0,R3
2559ble L275
2560*line 1063
2561*line 1064
2562jsr _badpdat
2563*line 1065
2564move #-1,R0
2565bra L235
2566*line 1066
2567*line 1067
2568L275:
2569*line 1068
2570*line 1069
2571cmp.b #45,42+_ptdebuf
2572bne L276
2573*line 1069
2574move.l R3,R0
2575neg.l R0
2576move.l R0,R3
2577*line 1070
2578L276:
2579*line 1071
2580move.l R3,R0
2581asl.l #$1,R0
2582move R0,_ptedat2
2583*line 1072
2584jsr _epatch
2585*line 1073
2586clr R0
2587bra L235
2588*line 1074
2589*line 1075
2590L277:
2591*line 1076
2592*line 1077
2593*line 1078
2594*line 1079
2595move.b 42+_ptdebuf,R0
2596ext.w R0
2597add #-48,R0
2598move R0,R8
2599add.l R8,R8
2600move.l #_ndvals,R9
2601move 0(R8,R9.l),R0
2602move.b 44+_ptdebuf,R1
2603ext.w R1
2604add #-48,R1
2605move R1,R9
2606add.l R9,R9
2607add.l #_ndvals,R9
2608move (R9),R1
2609sub R1,R0
2610move R0,_ptedat2
2611*line 1080
2612*line 1081
2613jsr _epatch
2614*line 1082
2615clr R0
2616bra L235
2617*line 1083
2618L278:
2619*line 1084
2620*line 1085
2621*line 1086
2622*line 1087
2623*line 1088
2624move.b 42+_ptdebuf,R0
2625ext.w R0
2626add #-48,R0
2627muls #100,R0
2628move.b 43+_ptdebuf,R1
2629ext.w R1
2630add #-48,R1
2631muls #10,R1
2632add R1,R0
2633move.b 45+_ptdebuf,R1
2634ext.w R1
2635add R1,R0
2636add #-48,R0
2637ext.l R0
2638move.l R0,R3
2639*line 1089
2640*line 1090
2641*line 1090
2642cmp.l #$9f,R3
2643ble L279
2644*line 1091
2645*line 1092
2646jsr _badpdat
2647*line 1093
2648move #-1,R0
2649bra L235
2650*line 1094
2651*line 1095
2652L279:
2653*line 1096
2654move.l R3,R0
2655asl.l #$1,R0
2656move R0,_ptedat2
2657*line 1097
2658jsr _epatch
2659*line 1098
2660clr R0
2661bra L235
2662*line 1099
2663L280:
2664*line 1100
2665*line 1101
2666*line 1102
2667move #5,(sp)
2668move.l #42+_ptdebuf,-(sp)
2669move.l #_ebuf,-(sp)
2670jsr _memcpy
2671addq.l #8,sp
2672*line 1103
2673*line 1104
2674*line 1104
2675jsr _cnvp2c
2676cmp #-1,R0
2677bne L281
2678*line 1105
2679*line 1106
2680jsr _badpdat
2681*line 1107
2682move #-1,R0
2683bra L235
2684*line 1108
2685*line 1109
2686L281:
2687*line 1110
2688move _cents,_ptedat2
2689*line 1111
2690jsr _epatch
2691*line 1112
2692clr R0
2693bra L235
2694*line 1113
2695*line 1114
2696L282:
2697*line 1115
2698L283:
2699*line 1116
2700L284:
2701*line 1117
2702*line 1118
2703*line 1119
2704jsr _epatch
2705*line 1120
2706clr R0
2707bra L235
2708*line 1121
2709L285:
2710*line 1122
2711*line 1123
2712*line 1124
2713*line 1125
2714cmp #42,_stccol
2715bne L286
2716*line 1125
2717move #49,(sp)
2718move #19,-(sp)
2719jsr _setsubm
2720addq.l #2,sp
2721*line 1126
2722bra L287
2723L286:
2724*line 1127
2725jsr _epatch
2726L287:
2727*line 1128
2728*line 1129
2729clr R0
2730bra L235
2731*line 1130
2732L288:
2733*line 1131
2734*line 1132
2735*line 1133
2736*line 1134
2737move.b 43+_ptdebuf,R0
2738ext.w R0
2739add #-48,R0
2740muls #10,R0
2741move.b 44+_ptdebuf,R1
2742ext.w R1
2743add R1,R0
2744add #-48,R0
2745ext.l R0
2746move.l R0,R3
2747*line 1135
2748*line 1136
2749*line 1136
2750cmp.b #82,42+_ptdebuf
2751bne L289
2752*line 1137
2753*line 1138
2754*line 1138
2755tst.l R3
2756beq L10054
2757cmp.l #$10,R3
2758ble L290
2759L10054:*line 1139
2760*line 1140
2761jsr _badpdat
2762*line 1141
2763move #-1,R0
2764bra L235
2765*line 1142
2766*line 1143
2767L290:
2768*line 1144
2769sub.l #$1,R3
2770*line 1145
2771move #1,_ptedat1
2772*line 1146
2773bra L291
2774L289:
2775*line 1147
2776*line 1148
2777*line 1149
2778clr _ptedat1
2779L291:
2780*line 1150
2781*line 1151
2782*line 1152
2783move R3,_ptedat2
2784*line 1153
2785jsr _epatch
2786*line 1154
2787clr R0
2788bra L235
2789*line 1155
2790*line 1156
2791L292:
2792*line 1157
2793*line 1158
2794*line 1159
2795clr.l R3
2796*line 1160
2797*line 1161
2798move #42,R7
2799bra L295
2800L296:
2801*line 1162
2802move.l #$a,-(sp)
2803move.l R3,-(sp)
2804jsr lmul
2805addq.l #8,sp
2806move.l R0,R3
2807move.l #_ptdebuf,R8
2808move.b 0(R8,R7),R0
2809ext.w R0
2810add #-48,R0
2811ext.l R0
2812add.l R0,R3
2813L294:
2814*line 1161
2815add #1,R7
2816L295:
2817*line 1161
2818cmp #45,R7
2819blt L296
2820L293:
2821*line 1162
2822*line 1163
2823*line 1164
2824move R3,_ptedat1
2825*line 1165
2826jsr _epatch
2827*line 1166
2828clr R0
2829bra L235
2830*line 1167
2831L297:
2832*line 1168
2833*line 1169
2834*line 1170
2835clr.l R3
2836*line 1171
2837*line 1172
2838*line 1172
2839btst #0,1+_ptesuba
2840beq L298
2841*line 1173
2842*line 1174
2843move #42,R7
2844bra L301
2845L302:
2846*line 1175
2847asl.l #$2,R3
2848move.l #_ptdebuf,R8
2849move.b 0(R8,R7),R0
2850ext.w R0
2851add #-48,R0
2852ext.l R0
2853or.l R0,R3
2854L300:
2855*line 1174
2856add #1,R7
2857L301:
2858*line 1174
2859cmp #46,R7
2860blt L302
2861L299:
2862*line 1175
2863*line 1176
2864*line 1177
2865move.l R3,R0
2866asl.l #$8,R0
2867move R0,_ptedat1
2868*line 1178
2869bra L303
2870L298:
2871*line 1179
2872*line 1180
2873*line 1181
2874move #42,R7
2875bra L306
2876L307:
2877*line 1182
2878asl.l #$2,R3
2879move.l #_ptdebuf,R8
2880move.b 0(R8,R7),R0
2881ext.w R0
2882add #-48,R0
2883ext.l R0
2884or.l R0,R3
2885L305:
2886*line 1181
2887add #1,R7
2888L306:
2889*line 1181
2890cmp #45,R7
2891blt L307
2892L304:
2893*line 1182
2894*line 1183
2895*line 1184
2896move.l R3,R0
2897move.l #$a,R1
2898asl.l R1,R0
2899move R0,_ptedat1
2900L303:
2901*line 1185
2902*line 1186
2903*line 1187
2904jsr _epatch
2905*line 1188
2906clr R0
2907bra L235
2908*line 1189
2909*line 1190
2910*line 1191
2911L308:
2912*line 1192
2913*line 1193
2914*line 1194
2915*line 1195
2916move.b 42+_ptdebuf,R0
2917ext.w R0
2918add #-48,R0
2919muls #10,R0
2920move.b 43+_ptdebuf,R1
2921ext.w R1
2922add R1,R0
2923add #-48,R0
2924ext.l R0
2925move.l R0,R3
2926*line 1196
2927*line 1197
2928*line 1197
2929cmp.l #$28,R3
2930ble L309
2931*line 1198
2932*line 1199
2933jsr _badpdat
2934*line 1200
2935move #-1,R0
2936bra L235
2937*line 1201
2938*line 1202
2939L309:
2940*line 1203
2941move R3,_ptedat1
2942*line 1204
2943jsr _epatch
2944*line 1205
2945clr R0
2946bra L235
2947*line 1206
2948L310:
2949*line 1207
2950*line 1208
2951*line 1209
2952*line 1210
2953move.b 42+_ptdebuf,R0
2954ext.w R0
2955add #-48,R0
2956muls #10,R0
2957move.b 43+_ptdebuf,R1
2958ext.w R1
2959add R1,R0
2960add #-48,R0
2961ext.l R0
2962move.l R0,R3
2963*line 1211
2964*line 1212
2965*line 1212
2966tst.l R3
2967beq L10055
2968cmp.l #$14,R3
2969ble L311
2970L10055:*line 1213
2971*line 1214
2972jsr _badpdat
2973*line 1215
2974move #-1,R0
2975bra L235
2976*line 1216
2977*line 1217
2978L311:
2979*line 1218
2980move R3,_ptedat1
2981*line 1219
2982jsr _epatch
2983*line 1220
2984clr R0
2985bra L235
2986*line 1221
2987*line 1222
2988L312:
2989*line 1223
2990*line 1224
2991*line 1225
2992*line 1226
2993move.b 42+_ptdebuf,R0
2994ext.w R0
2995add #-48,R0
2996muls #10,R0
2997move.b 43+_ptdebuf,R1
2998ext.w R1
2999add R1,R0
3000add #-48,R0
3001ext.l R0
3002move.l R0,R3
3003*line 1227
3004*line 1228
3005*line 1228
3006cmp.l #$b,R3
3007ble L313
3008*line 1229
3009*line 1230
3010jsr _badpdat
3011*line 1231
3012move #-1,R0
3013bra L235
3014*line 1232
3015*line 1233
3016L313:
3017*line 1234
3018move R3,_ptedat1
3019*line 1235
3020jsr _epatch
3021*line 1236
3022clr R0
3023bra L235
3024*line 1237
3025L314:
3026*line 1238
3027*line 1239
3028*line 1240
3029move.b 42+_ptdebuf,R0
3030ext.w R0
3031add #-48,R0
3032move R0,_ptedat1
3033*line 1241
3034jsr _epatch
3035*line 1242
3036clr R0
3037bra L235
3038*line 1243
3039L315:
3040*line 1244
3041*line 1245
3042*line 1246
3043clr _ptedtok
3044*line 1247
3045move #-1,R0
3046bra L235
3047bra L254
3048L255:cmp #18,R0
3049bhi L315
3050asl #2,R0
3051move R0,R8
3052add.l #L316,R8
3053move.l (R8),R8
3054jmp (R8)
3055.data
3056L316:.dc.l L256
3057.dc.l L257
3058.dc.l L259
3059.dc.l L265
3060.dc.l L270
3061.dc.l L277
3062.dc.l L278
3063.dc.l L280
3064.dc.l L282
3065.dc.l L283
3066.dc.l L284
3067.dc.l L285
3068.dc.l L288
3069.dc.l L292
3070.dc.l L297
3071.dc.l L308
3072.dc.l L310
3073.dc.l L312
3074.dc.l L314
3075.text
3076L254:
3077*line 1248
3078*line 1249
3079*line 1250
3080L253:L252:L244:L240:
3081*line 1251
3082move #-1,R0
3083bra L235
3084*line 1252
3085*line 1253
3086bra L317
3087L236:
3088*line 1254
3089*line 1255
3090*line 1256
3091*line 1257
3092*line 1258
3093*line 1259
3094cmp #2,_vtccol
3095blt L318
3096cmp #4,_vtccol
3097bgt L318
3098*line 1259
3099move _vtcrow,R6
3100add #-18,R6
3101bra L319
3102L318:
3103*line 1260
3104*line 1261
3105cmp #7,_vtccol
3106blt L320
3107cmp #12,_vtccol
3108bgt L320
3109*line 1261
3110move _vtcrow,R6
3111add #-13,R6
3112bra L321
3113L320:
3114*line 1262
3115*line 1263
3116cmp #15,_vtccol
3117blt L322
3118cmp #19,_vtccol
3119bgt L322
3120*line 1263
3121move _vtcrow,R6
3122sub #8,R6
3123bra L323
3124L322:
3125*line 1264
3126*line 1265
3127cmp #22,_vtccol
3128blt L324
3129cmp #26,_vtccol
3130bgt L324
3131*line 1265
3132move _vtcrow,R6
3133sub #3,R6
3134bra L325
3135L324:
3136*line 1266
3137*line 1267
3138cmp #29,_vtccol
3139blt L326
3140cmp #33,_vtccol
3141bgt L326
3142*line 1267
3143move _vtcrow,R6
3144add #2,R6
3145bra L327
3146L326:
3147*line 1268
3148*line 1269
3149cmp #36,_vtccol
3150blt L328
3151cmp #40,_vtccol
3152bgt L328
3153*line 1269
3154move _vtcrow,R6
3155add #7,R6
3156bra L329
3157L328:
3158*line 1270
3159*line 1271
3160cmp #43,_vtccol
3161blt L330
3162cmp #46,_vtccol
3163bgt L330
3164*line 1271
3165move _vtcrow,R6
3166add #12,R6
3167bra L331
3168L330:
3169*line 1272
3170*line 1273
3171cmp #49,_vtccol
3172blt L332
3173cmp #53,_vtccol
3174bgt L332
3175*line 1273
3176move _vtcrow,R6
3177add #17,R6
3178bra L333
3179L332:
3180*line 1274
3181*line 1275
3182cmp #56,_vtccol
3183blt L334
3184cmp #60,_vtccol
3185bgt L334
3186*line 1275
3187move _vtcrow,R6
3188add #22,R6
3189*line 1276
3190bra L335
3191L334:
3192*line 1277
3193move #-1,R0
3194bra L235
3195L335:L333:L331:L329:L327:L325:L323:L321:L319:
3196*line 1278
3197*line 1279
3198*line 1280
3199*line 1281
3200move _ptemenu,R0
3201bra L337
3202*line 1282
3203L338:
3204*line 1283
3205*line 1284
3206*line 1285
3207*line 1285
3208cmp #1,R6
3209blt L339
3210cmp #4,R6
3211bgt L339
3212*line 1286
3213*line 1287
3214move R6,R7
3215sub #1,R7
3216*line 1288
3217move R7,R8
3218add.l R8,R8
3219add.l #_dfsttp,R8
3220move (R8),_ptedfst
3221*line 1289
3222*line 1290
3223*line 1290
3224cmp #1,_ptedftp
3225bne L340
3226*line 1291
3227*line 1292
3228move #1,_ptedfok
3229*line 1293
3230move #1,_ptbflag
3231*line 1294
3232*line 1295
3233move R7,R8
3234add.l R8,R8
3235add.l #_dfsttab,R8
3236move (R8),_ptedef
3237*line 1296
3238*line 1297
3239move R7,R8
3240add.l R8,R8
3241add.l R8,R8
3242move.l #_rawdfst,R9
3243move.l 0(R8,R9.l),(sp)
3244move.l #2+_ptdebuf,-(sp)
3245jsr _strcpy
3246addq.l #4,sp
3247*line 1298
3248*line 1299
3249move #98,(sp)
3250move R7,R8
3251add.l R8,R8
3252add.l R8,R8
3253move.l #_rawdfst,R9
3254move.l 0(R8,R9.l),-(sp)
3255move #2,-(sp)
3256move #7,-(sp)
3257jsr _UpdVid
3258addq.l #8,sp
3259*line 1300
3260move _ptedfst,R8
3261add.l R8,R8
3262move.l #_defcols,R9
3263move 0(R8,R9.l),(sp)
3264move #9,-(sp)
3265jsr _endpsm
3266addq.l #2,sp
3267*line 1301
3268*line 1302
3269clr R0
3270bra L235
3271*line 1303
3272bra L341
3273L340:
3274*line 1304
3275*line 1304
3276cmp #2,_ptedftp
3277bne L342
3278*line 1305
3279*line 1306
3280move #1,_ptestok
3281*line 1307
3282move #1,_ptbflag
3283*line 1308
3284*line 1309
3285move R7,R8
3286add.l R8,R8
3287add.l #_dfsttab,R8
3288move (R8),_ptestm
3289*line 1310
3290*line 1311
3291move R7,R8
3292add.l R8,R8
3293add.l R8,R8
3294move.l #_rawdfst,R9
3295move.l 0(R8,R9.l),(sp)
3296move.l #15+_ptdebuf,-(sp)
3297jsr _strcpy
3298addq.l #4,sp
3299*line 1312
3300*line 1313
3301move #98,(sp)
3302move R7,R8
3303add.l R8,R8
3304add.l R8,R8
3305move.l #_rawdfst,R9
3306move.l 0(R8,R9.l),-(sp)
3307move #15,-(sp)
3308move #7,-(sp)
3309jsr _UpdVid
3310addq.l #8,sp
3311*line 1314
3312move _ptedfst,R8
3313add.l R8,R8
3314move.l #_stmcols,R9
3315move 0(R8,R9.l),(sp)
3316move #9,-(sp)
3317jsr _endpsm
3318addq.l #2,sp
3319*line 1315
3320*line 1316
3321clr R0
3322bra L235
3323*line 1317
3324L342:L341:
3325*line 1318
3326*line 1319
3327L339:
3328*line 1320
3329move #-1,R0
3330bra L235
3331*line 1321
3332*line 1322
3333L343:
3334*line 1323
3335*line 1324
3336*line 1325
3337*line 1325
3338cmp #36,R6
3339blt L344
3340cmp #45,R6
3341bgt L344
3342*line 1326
3343*line 1327
3344move #1,_ptedtok
3345*line 1328
3346move #1,_ptbflag
3347*line 1329
3348*line 1330
3349move R6,R8
3350add #-36,R8
3351add.l R8,R8
3352add.l #_datasrc,R8
3353move (R8),_ptedat2
3354*line 1331
3355*line 1332
3356move _ptedat2,R8
3357add.l R8,R8
3358add.l R8,R8
3359move.l #_smdata,R9
3360move.l 0(R8,R9.l),(sp)
3361move.l #42+_ptdebuf,-(sp)
3362jsr _strcpy
3363addq.l #4,sp
3364*line 1333
3365*line 1334
3366move #98,(sp)
3367move _ptedat2,R8
3368add.l R8,R8
3369add.l R8,R8
3370move.l #_smdata,R9
3371move.l 0(R8,R9.l),-(sp)
3372move #42,-(sp)
3373move #7,-(sp)
3374jsr _UpdVid
3375addq.l #8,sp
3376*line 1335
3377move #46,(sp)
3378move #9,-(sp)
3379jsr _endpsm
3380addq.l #2,sp
3381*line 1336
3382*line 1337
3383clr R0
3384bra L235
3385*line 1338
3386*line 1339
3387L344:
3388*line 1340
3389move #-1,R0
3390bra L235
3391*line 1341
3392*line 1342
3393L345:
3394*line 1343
3395*line 1344
3396*line 1345
3397move R6,R7
3398sub #1,R7
3399*line 1346
3400move R7,R8
3401add.l R8,R8
3402add.l #_destype,R8
3403move (R8),R4
3404*line 1347
3405*line 1348
3406*line 1348
3407cmp #-1,R4
3408beq L346
3409*line 1349
3410*line 1350
3411move #1,_ptedsok
3412*line 1351
3413move #1,_ptedtok
3414*line 1352
3415move #1,_ptbflag
3416*line 1353
3417*line 1354
3418move.l #_destfmt,R8
3419move.b 0(R8,R7),R0
3420ext.w R0
3421move R0,_ptedest
3422*line 1355
3423move.l #_datafmt,R8
3424move.b 0(R8,R7),R0
3425ext.w R0
3426move R0,_ptedata
3427*line 1356
3428move R4,_ptespec
3429*line 1357
3430clr _ptesuba
3431*line 1358
3432clr _ptedat1
3433*line 1359
3434clr _ptedat2
3435*line 1360
3436*line 1361
3437*line 1361
3438move.l #_desdatf,R8
3439move.b 0(R8,R7),R0
3440ext.w R0
3441move R0,R5
3442beq L347
3443*line 1362
3444*line 1363
3445*line 1364
3446btst #0,R5
3447beq L348
3448*line 1364
3449move R7,R8
3450add.l R8,R8
3451add.l #_desdat1,R8
3452move (R8),_ptedat1
3453*line 1365
3454L348:
3455*line 1366
3456*line 1367
3457btst #1,R5
3458beq L349
3459*line 1367
3460move R7,R8
3461add.l R8,R8
3462add.l #_desdat2,R8
3463move (R8),_ptedat2
3464L349:
3465*line 1368
3466*line 1369
3467L347:
3468*line 1370
3469move R4,R8
3470add.l R8,R8
3471add.l R8,R8
3472move.l #_rawdest,R9
3473move.l 0(R8,R9.l),(sp)
3474move.l #28+_ptdebuf,-(sp)
3475jsr _strcpy
3476addq.l #4,sp
3477*line 1371
3478move R7,R8
3479add.l R8,R8
3480add.l R8,R8
3481move.l #_rawdata,R9
3482move.l 0(R8,R9.l),(sp)
3483move.l #42+_ptdebuf,-(sp)
3484jsr _strcpy
3485addq.l #4,sp
3486*line 1372
3487*line 1373
3488move #98,(sp)
3489move R4,R8
3490add.l R8,R8
3491add.l R8,R8
3492move.l #_rawdest,R9
3493move.l 0(R8,R9.l),-(sp)
3494move #28,-(sp)
3495move #7,-(sp)
3496jsr _UpdVid
3497addq.l #8,sp
3498*line 1374
3499move #98,(sp)
3500move R7,R8
3501add.l R8,R8
3502add.l R8,R8
3503move.l #_rawdata,R9
3504move.l 0(R8,R9.l),-(sp)
3505move #42,-(sp)
3506move #7,-(sp)
3507jsr _UpdVid
3508addq.l #8,sp
3509*line 1375
3510move _ptedest,R8
3511add #1,R8
3512add.l R8,R8
3513move.l #_dstcols,R9
3514move 0(R8,R9.l),(sp)
3515move #9,-(sp)
3516jsr _endpsm
3517addq.l #2,sp
3518*line 1376
3519*line 1377
3520clr R0
3521bra L235
3522*line 1378
3523*line 1379
3524L346:
3525*line 1380
3526move #-1,R0
3527bra L235
3528*line 1381
3529*line 1382
3530L350:
3531*line 1383
3532*line 1384
3533*line 1385
3534*line 1385
3535cmp #17,R6
3536blt L351
3537cmp #20,R6
3538bgt L351
3539*line 1386
3540*line 1387
3541move R6,R7
3542add #-17,R7
3543*line 1388
3544*line 1389
3545move #1,_ptedsok
3546*line 1390
3547move #1,_ptedtok
3548*line 1391
3549move #1,_ptbflag
3550*line 1392
3551*line 1393
3552move R7,R8
3553add.l R8,R8
3554add.l #_omtabl,R8
3555move (R8),_ptedat1
3556*line 1394
3557move R7,R8
3558add.l R8,R8
3559add.l #_omdtab,R8
3560move (R8),_ptedat2
3561*line 1395
3562*line 1396
3563move R7,R8
3564add.l R8,R8
3565add.l #_omftab,R8
3566move (R8),_ptedata
3567*line 1397
3568*line 1398
3569move R7,R8
3570add.l R8,R8
3571add.l R8,R8
3572move.l #_rawmode,R9
3573move.l 0(R8,R9.l),(sp)
3574move.l #34+_ptdebuf,-(sp)
3575jsr _strcpy
3576addq.l #4,sp
3577*line 1399
3578move R7,R8
3579add.l R8,R8
3580add.l R8,R8
3581move.l #_rawmdat,R9
3582move.l 0(R8,R9.l),(sp)
3583move.l #42+_ptdebuf,-(sp)
3584jsr _strcpy
3585addq.l #4,sp
3586*line 1400
3587*line 1401
3588move #98,(sp)
3589move R7,R8
3590add.l R8,R8
3591add.l R8,R8
3592move.l #_rawmode,R9
3593move.l 0(R8,R9.l),-(sp)
3594move #34,-(sp)
3595move #7,-(sp)
3596jsr _UpdVid
3597addq.l #8,sp
3598*line 1402
3599move #98,(sp)
3600move R7,R8
3601add.l R8,R8
3602add.l R8,R8
3603move.l #_rawmdat,R9
3604move.l 0(R8,R9.l),-(sp)
3605move #42,-(sp)
3606move #7,-(sp)
3607jsr _UpdVid
3608addq.l #8,sp
3609*line 1403
3610move #39,(sp)
3611move #9,-(sp)
3612jsr _endpsm
3613addq.l #2,sp
3614*line 1404
3615*line 1405
3616clr R0
3617bra L235
3618*line 1406
3619*line 1407
3620L351:
3621*line 1408
3622move #-1,R0
3623bra L235
3624*line 1409
3625*line 1410
3626L352:
3627*line 1411
3628*line 1412
3629*line 1413
3630*line 1414
3631cmp #31,R6
3632blt L10056
3633cmp #34,R6
3634ble L353
3635L10056:*line 1414
3636move #-1,R0
3637bra L235
3638*line 1415
3639L353:L354:
3640*line 1416
3641*line 1417
3642*line 1418
3643*line 1419
3644cmp #31,R6
3645blt L10057
3646cmp #35,R6
3647ble L355
3648L10057:*line 1419
3649move #-1,R0
3650bra L235
3651*line 1420
3652L355:
3653*line 1421
3654move R6,R7
3655add #-31,R7
3656*line 1422
3657*line 1423
3658move #1,_ptedsok
3659*line 1424
3660move #1,_ptedtok
3661*line 1425
3662move #1,_ptbflag
3663*line 1426
3664*line 1427
3665move R7,_ptedat1
3666*line 1428
3667move R7,R8
3668add.l R8,R8
3669add.l #_fpudtab,R8
3670move (R8),_ptedat2
3671*line 1429
3672*line 1430
3673move R7,R8
3674add.l R8,R8
3675add.l #_fpuetab,R8
3676move (R8),_ptedata
3677*line 1431
3678*line 1432
3679move R7,R8
3680add.l R8,R8
3681add.l R8,R8
3682move.l #_stdata,R9
3683move.l 0(R8,R9.l),(sp)
3684move.l #34+_ptdebuf,-(sp)
3685jsr _strcpy
3686addq.l #4,sp
3687*line 1433
3688move R7,R8
3689add.l R8,R8
3690add.l R8,R8
3691move.l #_rawfpud,R9
3692move.l 0(R8,R9.l),(sp)
3693move.l #42+_ptdebuf,-(sp)
3694jsr _strcpy
3695addq.l #4,sp
3696*line 1434
3697*line 1435
3698move #98,(sp)
3699move R7,R8
3700add.l R8,R8
3701add.l R8,R8
3702move.l #_stdata,R9
3703move.l 0(R8,R9.l),-(sp)
3704move #34,-(sp)
3705move #7,-(sp)
3706jsr _UpdVid
3707addq.l #8,sp
3708*line 1436
3709move #98,(sp)
3710move R7,R8
3711add.l R8,R8
3712add.l R8,R8
3713move.l #_rawfpud,R9
3714move.l 0(R8,R9.l),-(sp)
3715move #42,-(sp)
3716move #7,-(sp)
3717jsr _UpdVid
3718addq.l #8,sp
3719*line 1437
3720move #42,(sp)
3721move #9,-(sp)
3722jsr _endpsm
3723addq.l #2,sp
3724*line 1438
3725*line 1439
3726clr R0
3727bra L235
3728*line 1440
3729L356:
3730*line 1441
3731*line 1442
3732*line 1443
3733move _stccol,(sp)
3734move _stcrow,-(sp)
3735jsr _endpsm
3736addq.l #2,sp
3737*line 1444
3738*line 1445
3739move #-1,R0
3740bra L235
3741bra L336
3742L337:ext.l R0
3743move.l #L357,R8
3744move #6,R1
3745L358:cmp.l (R8)+,R0
3746dbeq R1,L358
3747move.l 24(R8),R8
3748jmp (R8)
3749.data
3750L357:.dc.l 1
3751.dc.l 2
3752.dc.l 4
3753.dc.l 8
3754.dc.l 16
3755.dc.l 32
3756.dc.l 0
3757.dc.l L338
3758.dc.l L343
3759.dc.l L345
3760.dc.l L350
3761.dc.l L354
3762.dc.l L352
3763.dc.l L356
3764.text
3765L336:
3766*line 1446
3767L317:
3768*line 1449
3769move #-1,R0
3770bra L235
3771L235:tst.l (sp)+
3772movem.l (sp)+,R3-R7
3773unlk R14
3774rts
3775.data
3776L1:.dc.b $4B,$65,$79,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
3777L2:.dc.b $52,$65,$6C,$20,$30,$30,$31,$20,$31,$20,$30,$31,$0
3778L3:.dc.b $54,$72,$69,$67,$20,$30,$31,$20,$20,$20,$20,$20,$0
3779L4:.dc.b $50,$75,$6C,$73,$65,$20,$31,$20,$20,$20,$20,$20,$0
3780L5:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$20,$30,$30,$20,$3F,$3F,$0
3781L6:.dc.b $4B,$20,$30,$30,$31,$20,$31,$20,$30,$31,$20,$20,$20,$0
3782L7:.dc.b $54,$72,$69,$67,$67,$65,$72,$20,$30,$31,$20,$20,$20,$0
3783L8:.dc.b $50,$75,$6C,$73,$65,$20,$31,$20,$20,$20,$20,$20,$20,$0
3784L9:.dc.b $4C,$45,$44,$20,$41,$20,$20,$20,$20,$20,$20,$20,$20,$0
3785L10:.dc.b $53,$65,$71,$20,$30,$31,$20,$4C,$69,$6E,$20,$20,$20,$0
3786L11:.dc.b $53,$65,$71,$20,$30,$31,$20,$43,$74,$6C,$20,$20,$20,$0
3787L12:.dc.b $54,$75,$6E,$65,$20,$54,$61,$62,$6C,$65,$20,$20,$20,$0
3788L13:.dc.b $52,$65,$67,$20,$30,$31,$20,$53,$65,$74,$20,$20,$20,$0
3789L14:.dc.b $52,$65,$67,$20,$30,$31,$20,$41,$64,$64,$20,$20,$20,$0
3790L15:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$56,$31,$0
3791L16:.dc.b $4F,$73,$63,$20,$31,$20,$49,$6E,$74,$20,$20,$56,$31,$0
3792L17:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$41,$20,$56,$31,$0
3793L18:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$42,$20,$56,$31,$0
3794L19:.dc.b $43,$6F,$6E,$66,$69,$67,$75,$72,$65,$20,$20,$56,$31,$0
3795L20:.dc.b $4C,$65,$76,$65,$6C,$20,$53,$72,$63,$65,$20,$56,$31,$0
3796L21:.dc.b $49,$6E,$64,$20,$31,$20,$53,$72,$63,$65,$20,$56,$31,$0
3797L22:.dc.b $46,$72,$71,$20,$31,$20,$53,$72,$63,$65,$20,$56,$31,$0
3798L23:.dc.b $46,$69,$6C,$74,$72,$20,$53,$72,$63,$65,$20,$56,$31,$0
3799L24:.dc.b $46,$69,$6C,$20,$51,$20,$53,$72,$63,$65,$20,$56,$31,$0
3800L25:.dc.b $4C,$6F,$63,$74,$6E,$20,$53,$72,$63,$65,$20,$56,$31,$0
3801L26:.dc.b $44,$79,$6E,$6D,$63,$20,$53,$72,$63,$65,$20,$56,$31,$0
3802L27:.dc.b $41,$75,$78,$20,$20,$20,$53,$72,$63,$65,$20,$20,$20,$0
3803L28:.dc.b $52,$61,$74,$65,$20,$20,$53,$72,$63,$65,$20,$20,$20,$0
3804L29:.dc.b $49,$6E,$74,$65,$6E,$20,$53,$72,$63,$65,$20,$20,$20,$0
3805L30:.dc.b $44,$65,$70,$74,$68,$20,$53,$72,$63,$65,$20,$20,$20,$0
3806L31:.dc.b $56,$6C,$74,$20,$31,$20,$53,$72,$63,$65,$20,$20,$20,$0
3807L32:.dc.b $46,$72,$71,$20,$0
3808L33:.dc.b $50,$63,$68,$20,$0
3809L34:.dc.b $49,$6E,$74,$20,$0
3810L35:.dc.b $52,$61,$74,$20,$0
3811L36:.dc.b $30,$30,$2E,$31,$20,$0
3812L37:.dc.b $30,$43,$20,$30,$30,$0
3813L38:.dc.b $2B,$30,$30,$30,$30,$0
3814L39:.dc.b $31,$2F,$31,$20,$20,$0
3815L40:.dc.b $50,$63,$68,$57,$68,$0
3816L41:.dc.b $2B,$30,$2E,$30,$30,$0
3817L42:.dc.b $30,$30,$30,$30,$31,$0
3818L43:.dc.b $A0,$30,$2E,$30,$30,$0
3819L44:.dc.b $53,$74,$61,$72,$74,$0
3820L45:.dc.b $54,$72,$61,$6E,$73,$0
3821L46:.dc.b $20,$20,$20,$20,$20,$0
3822L47:.dc.b $53,$74,$61,$72,$74,$0
3823L48:.dc.b $54,$72,$61,$6E,$73,$0
3824L49:.dc.b $30,$30,$30,$20,$20,$0
3825L50:.dc.b $30,$30,$30,$20,$20,$0
3826L51:.dc.b $53,$74,$61,$72,$74,$0
3827L52:.dc.b $30,$20,$20,$20,$20,$0
3828L53:.dc.b $2B,$30,$30,$20,$20,$0
3829L54:.dc.b $2B,$30,$31,$20,$20,$0
3830L55:.dc.b $30,$30,$20,$20,$20,$0
3831L56:.dc.b $2B,$30,$30,$30,$30,$0
3832L57:.dc.b $30,$31,$20,$20,$20,$0
3833L58:.dc.b $30,$31,$20,$20,$20,$0
3834L59:.dc.b $30,$30,$20,$20,$20,$0
3835L60:.dc.b $50,$63,$68,$57,$68,$0
3836L61:.dc.b $50,$63,$68,$57,$68,$0
3837L62:.dc.b $20,$20,$20,$20,$20,$0
3838L63:.dc.b $20,$20,$20,$20,$20,$0
3839L64:.dc.b $20,$20,$20,$20,$20,$0
3840L65:.dc.b $50,$63,$68,$57,$68,$0
3841L66:.dc.b $50,$63,$68,$57,$68,$0
3842L67:.dc.b $50,$63,$68,$57,$68,$0
3843L68:.dc.b $50,$63,$68,$57,$68,$0
3844L69:.dc.b $50,$63,$68,$57,$68,$0
3845L70:.dc.b $50,$63,$68,$57,$68,$0
3846L71:.dc.b $50,$63,$68,$57,$68,$0
3847L72:.dc.b $50,$63,$68,$57,$68,$0
3848L73:.dc.b $50,$63,$68,$57,$68,$0
3849L74:.dc.b $50,$63,$68,$57,$68,$0
Note: See TracBrowser for help on using the repository browser.