2 For disassembling the text segment.
5 /* $Id: disassemble.c,v 2.3 1994/06/24 10:45:57 ceriel Exp $ */
14 PRIVATE do_pr_instr();
16 /* This text is copied and modified from text.h */
18 #define text_loc(a) (*(text + (p2i(a))))
20 /* Reading the opcode.
22 #define nextTCbyte() (TC+=1, btou(text_loc(TC-1)))
24 /* Shortie arguments consist of the high order value, derived from
25 the opcode and passed as a parameter, and the following byte.
27 #define St_arg(h) (TC+=1, ((h)<<8) + btol(text_loc(TC-1)))
29 /* Two-byte arguments consist of the following two bytes.
32 #define Lt_arg_2() (TC+=2, (btol(text_loc(TC-1)) | \
33 (btos(text_loc(TC-2)) << 8)))
35 #define Pt_arg_2() (TC+=2, (btol(text_loc(TC-1)) | \
36 (btos(text_loc(TC-2)) << 8)))/* should test */
38 #define Nt_arg_2() (TC+=2, (btol(text_loc(TC-1)) | \
39 (btos(text_loc(TC-2)) << 8)))/* should test */
41 #define Ut_arg() (TC+=2, (btol(text_loc(TC-1)) | \
42 (btol(text_loc(TC-2)) << 8)))
44 /* The L-, P-, and N-4-bytes #defines are all equal, because
45 we assume our longs to be 4 bytes long.
48 #define Lt_arg_4() (TC+=4, (btol(text_loc(TC-1)) | \
49 (btol(text_loc(TC-2)) << 8) | \
50 (btol(text_loc(TC-3)) << 16) | \
51 (btos(text_loc(TC-4)) << 24)))
53 #define Pt_arg_4() (TC+=4, (btol(text_loc(TC-1)) | \
54 (btol(text_loc(TC-2)) << 8) | \
55 (btol(text_loc(TC-3)) << 16) | \
56 (btos(text_loc(TC-4)) << 24)))/* should test */
58 #define Nt_arg_4() (TC+=4, (btol(text_loc(TC-1)) | \
59 (btol(text_loc(TC-2)) << 8) | \
60 (btol(text_loc(TC-3)) << 16) | \
61 (btos(text_loc(TC-4)) << 24)))/* should test */
64 /* This text was generated by mkswitch Pr and then modified */
66 PRIVATE PrAARl2(arg) long arg;
68 printf(" AAR %ld\n", Lt_arg_2() * arg);
71 PRIVATE PrAARm(arg) long arg;
73 printf(" AAR %ld\n", arg);
80 PRIVATE PrADFl2(arg) long arg;
82 printf(" ADF %ld\n", Lt_arg_2() * arg);
85 PRIVATE PrADFs(hob, wfac) long hob; size wfac;
87 printf(" ADF %ld\n", St_arg(hob) * wfac);
94 PRIVATE PrADIl2(arg) long arg;
96 printf(" ADI %ld\n", Lt_arg_2() * arg);
99 PRIVATE PrADIm(arg) long arg;
101 printf(" ADI %ld\n", arg);
108 PRIVATE PrADPl2(arg) long arg;
110 printf(" ADP %ld\n", Lt_arg_2() * arg);
113 PRIVATE PrADPl4(arg) long arg;
115 printf(" ADP %ld\n", Lt_arg_4() * arg);
118 PRIVATE PrADPm(arg) long arg;
120 printf(" ADP %ld\n", arg);
123 PRIVATE PrADPs(hob, wfac) long hob; size wfac;
125 printf(" ADP %ld\n", St_arg(hob) * wfac);
128 PRIVATE PrADSl2(arg) long arg;
130 printf(" ADS %ld\n", Lt_arg_2() * arg);
133 PRIVATE PrADSm(arg) long arg;
135 printf(" ADS %ld\n", arg);
142 PRIVATE PrADUl2(arg) long arg;
144 printf(" ADU %ld\n", Lt_arg_2() * arg);
151 PRIVATE PrANDl2(arg) long arg;
153 printf(" AND %ld\n", Lt_arg_2() * arg);
156 PRIVATE PrANDm(arg) long arg;
158 printf(" AND %ld\n", arg);
165 PRIVATE PrASPl2(arg) long arg;
167 printf(" ASP %ld\n", Lt_arg_2() * arg);
170 PRIVATE PrASPl4(arg) long arg;
172 printf(" ASP %ld\n", Lt_arg_4() * arg);
175 PRIVATE PrASPm(arg) long arg;
177 printf(" ASP %ld\n", arg);
180 PRIVATE PrASPs(hob, wfac) long hob; size wfac;
182 printf(" ASP %ld\n", St_arg(hob) * wfac);
185 PRIVATE PrASSl2(arg) long arg;
187 printf(" ASS %ld\n", Lt_arg_2() * arg);
194 PRIVATE PrBEQl2(arg) long arg;
196 printf(" BEQ %ld\n", Lt_arg_2() * arg);
199 PRIVATE PrBEQl4(arg) long arg;
201 printf(" BEQ %ld\n", Lt_arg_4() * arg);
204 PRIVATE PrBEQs(hob, wfac) long hob; size wfac;
206 printf(" BEQ %ld\n", St_arg(hob) * wfac);
209 PRIVATE PrBGEl2(arg) long arg;
211 printf(" BGE %ld\n", Lt_arg_2() * arg);
214 PRIVATE PrBGEl4(arg) long arg;
216 printf(" BGE %ld\n", Lt_arg_4() * arg);
219 PRIVATE PrBGEs(hob, wfac) long hob; size wfac;
221 printf(" BGE %ld\n", St_arg(hob) * wfac);
224 PRIVATE PrBGTl2(arg) long arg;
226 printf(" BGT %ld\n", Lt_arg_2() * arg);
229 PRIVATE PrBGTl4(arg) long arg;
231 printf(" BGT %ld\n", Lt_arg_4() * arg);
234 PRIVATE PrBGTs(hob, wfac) long hob; size wfac;
236 printf(" BGT %ld\n", St_arg(hob) * wfac);
239 PRIVATE PrBLEl2(arg) long arg;
241 printf(" BLE %ld\n", Lt_arg_2() * arg);
244 PRIVATE PrBLEl4(arg) long arg;
246 printf(" BLE %ld\n", Lt_arg_4() * arg);
249 PRIVATE PrBLEs(hob, wfac) long hob; size wfac;
251 printf(" BLE %ld\n", St_arg(hob) * wfac);
254 PRIVATE PrBLMl2(arg) long arg;
256 printf(" BLM %ld\n", Lt_arg_2() * arg);
259 PRIVATE PrBLMl4(arg) long arg;
261 printf(" BLM %ld\n", Lt_arg_4() * arg);
264 PRIVATE PrBLMs(hob, wfac) long hob; size wfac;
266 printf(" BLM %ld\n", St_arg(hob) * wfac);
269 PRIVATE PrBLSl2(arg) long arg;
271 printf(" BLS %ld\n", Lt_arg_2() * arg);
278 PRIVATE PrBLTl2(arg) long arg;
280 printf(" BLT %ld\n", Lt_arg_2() * arg);
283 PRIVATE PrBLTl4(arg) long arg;
285 printf(" BLT %ld\n", Lt_arg_4() * arg);
288 PRIVATE PrBLTs(hob, wfac) long hob; size wfac;
290 printf(" BLT %ld\n", St_arg(hob) * wfac);
293 PRIVATE PrBNEl2(arg) long arg;
295 printf(" BNE %ld\n", Lt_arg_2() * arg);
298 PRIVATE PrBNEl4(arg) long arg;
300 printf(" BNE %ld\n", Lt_arg_4() * arg);
303 PRIVATE PrBNEs(hob, wfac) long hob; size wfac;
305 printf(" BNE %ld\n", St_arg(hob) * wfac);
308 PRIVATE PrBRAl2(arg) long arg;
310 printf(" BRA %ld\n", Lt_arg_2() * arg);
313 PRIVATE PrBRAl4(arg) long arg;
315 printf(" BRA %ld\n", Lt_arg_4() * arg);
318 PRIVATE PrBRAs(hob, wfac) long hob; size wfac;
320 printf(" BRA %ld\n", St_arg(hob) * wfac);
327 PRIVATE PrCALl2(arg) long arg;
329 printf(" CAL %ld\n", Lt_arg_2() * arg);
332 PRIVATE PrCALl4(arg) long arg;
334 printf(" CAL %ld\n", Lt_arg_4() * arg);
337 PRIVATE PrCALm(arg) long arg;
339 printf(" CAL %ld\n", arg);
342 PRIVATE PrCALs(hob, wfac) long hob; size wfac;
344 printf(" CAL %ld\n", St_arg(hob) * wfac);
371 PRIVATE PrCMFl2(arg) long arg;
373 printf(" CMF %ld\n", Lt_arg_2() * arg);
376 PRIVATE PrCMFs(hob, wfac) long hob; size wfac;
378 printf(" CMF %ld\n", St_arg(hob) * wfac);
385 PRIVATE PrCMIl2(arg) long arg;
387 printf(" CMI %ld\n", Lt_arg_2() * arg);
390 PRIVATE PrCMIm(arg) long arg;
392 printf(" CMI %ld\n", arg);
403 PRIVATE PrCMSl2(arg) long arg;
405 printf(" CMS %ld\n", Lt_arg_2() * arg);
408 PRIVATE PrCMSs(hob, wfac) long hob; size wfac;
410 printf(" CMS %ld\n", St_arg(hob) * wfac);
417 PRIVATE PrCMUl2(arg) long arg;
419 printf(" CMU %ld\n", Lt_arg_2() * arg);
426 PRIVATE PrCOMl2(arg) long arg;
428 printf(" COM %ld\n", Lt_arg_2() * arg);
435 PRIVATE PrCSAl2(arg) long arg;
437 printf(" CSA %ld\n", Lt_arg_2() * arg);
440 PRIVATE PrCSAm(arg) long arg;
442 printf(" CSA %ld\n", arg);
449 PRIVATE PrCSBl2(arg) long arg;
451 printf(" CSB %ld\n", Lt_arg_2() * arg);
454 PRIVATE PrCSBm(arg) long arg;
456 printf(" CSB %ld\n", arg);
483 PRIVATE PrDEEl2(arg) long arg;
485 printf(" DEE %ld\n", Lt_arg_2() * arg);
488 PRIVATE PrDEEl4(arg) long arg;
490 printf(" DEE %ld\n", Lt_arg_4() * arg);
493 PRIVATE PrDEEs(hob, wfac) long hob; size wfac;
495 printf(" DEE %ld\n", St_arg(hob) * wfac);
498 PRIVATE PrDELn2(arg) long arg;
500 printf(" DEL %ld\n", Nt_arg_2() * arg);
503 PRIVATE PrDELn4(arg) long arg;
505 printf(" DEL %ld\n", Nt_arg_4() * arg);
508 PRIVATE PrDELp2(arg) long arg;
510 printf(" DEL %ld\n", Pt_arg_2() * arg);
513 PRIVATE PrDELp4(arg) long arg;
515 printf(" DEL %ld\n", Pt_arg_4() * arg);
518 PRIVATE PrDELs(hob, wfac) long hob; size wfac;
520 printf(" DEL %ld\n", St_arg(hob) * wfac);
523 PRIVATE PrDUPl2(arg) long arg;
525 printf(" DUP %ld\n", Lt_arg_2() * arg);
528 PRIVATE PrDUPm(arg) long arg;
530 printf(" DUP %ld\n", arg);
533 PRIVATE PrDUSl2(arg) long arg;
535 printf(" DUS %ld\n", Lt_arg_2() * arg);
542 PRIVATE PrDVFl2(arg) long arg;
544 printf(" DVF %ld\n", Lt_arg_2() * arg);
547 PRIVATE PrDVFs(hob, wfac) long hob; size wfac;
549 printf(" DVF %ld\n", St_arg(hob) * wfac);
556 PRIVATE PrDVIl2(arg) long arg;
558 printf(" DVI %ld\n", Lt_arg_2() * arg);
561 PRIVATE PrDVIm(arg) long arg;
563 printf(" DVI %ld\n", arg);
570 PRIVATE PrDVUl2(arg) long arg;
572 printf(" DVU %ld\n", Lt_arg_2() * arg);
579 PRIVATE PrEXGl2(arg) long arg;
581 printf(" EXG %ld\n", Lt_arg_2() * arg);
584 PRIVATE PrEXGs(hob, wfac) long hob; size wfac;
586 printf(" EXG %ld\n", St_arg(hob) * wfac);
593 PRIVATE PrFEFl2(arg) long arg;
595 printf(" FEF %ld\n", Lt_arg_2() * arg);
602 PRIVATE PrFIFl2(arg) long arg;
604 printf(" FIF %ld\n", Lt_arg_2() * arg);
611 PRIVATE PrFILu(arg) long arg;
613 printf(" FIL %ld\n", Ut_arg() * arg);
616 PRIVATE PrFILl4(arg) long arg;
618 printf(" FIL %ld\n", Lt_arg_4() * arg);
621 PRIVATE PrGTOu(arg) long arg;
623 printf(" GTO %ld\n", Ut_arg() * arg);
626 PRIVATE PrGTOl4(arg) long arg;
628 printf(" GTO %ld\n", Lt_arg_4() * arg);
635 PRIVATE PrINEl2(arg) long arg;
637 printf(" INE %ld\n", Lt_arg_2() * arg);
640 PRIVATE PrINEl4(arg) long arg;
642 printf(" INE %ld\n", Lt_arg_4() * arg);
645 PRIVATE PrINEs(hob, wfac) long hob; size wfac;
647 printf(" INE %ld\n", St_arg(hob) * wfac);
650 PRIVATE PrINLm(arg) long arg;
652 printf(" INL %ld\n", arg);
655 PRIVATE PrINLn2(arg) long arg;
657 printf(" INL %ld\n", Nt_arg_2() * arg);
660 PRIVATE PrINLn4(arg) long arg;
662 printf(" INL %ld\n", Nt_arg_4() * arg);
665 PRIVATE PrINLp2(arg) long arg;
667 printf(" INL %ld\n", Pt_arg_2() * arg);
670 PRIVATE PrINLp4(arg) long arg;
672 printf(" INL %ld\n", Pt_arg_4() * arg);
675 PRIVATE PrINLs(hob, wfac) long hob; size wfac;
677 printf(" INL %ld\n", St_arg(hob) * wfac);
680 PRIVATE PrINNl2(arg) long arg;
682 printf(" INN %ld\n", Lt_arg_2() * arg);
685 PRIVATE PrINNs(hob, wfac) long hob; size wfac;
687 printf(" INN %ld\n", St_arg(hob) * wfac);
694 PRIVATE PrIORl2(arg) long arg;
696 printf(" IOR %ld\n", Lt_arg_2() * arg);
699 PRIVATE PrIORm(arg) long arg;
701 printf(" IOR %ld\n", arg);
704 PRIVATE PrIORs(hob, wfac) long hob; size wfac;
706 printf(" IOR %ld\n", St_arg(hob) * wfac);
713 PRIVATE PrLAEu(arg) long arg;
715 printf(" LAE %ld\n", Ut_arg() * arg);
718 PRIVATE PrLAEl4(arg) long arg;
720 printf(" LAE %ld\n", Lt_arg_4() * arg);
723 PRIVATE PrLAEs(hob, wfac) long hob; size wfac;
725 printf(" LAE %ld\n", St_arg(hob) * wfac);
728 PRIVATE PrLALm(arg) long arg;
730 printf(" LAL %ld\n", arg);
733 PRIVATE PrLALn2(arg) long arg;
735 printf(" LAL %ld\n", Nt_arg_2() * arg);
738 PRIVATE PrLALn4(arg) long arg;
740 printf(" LAL %ld\n", Nt_arg_4() * arg);
743 PRIVATE PrLALp2(arg) long arg;
745 printf(" LAL %ld\n", Pt_arg_2() * arg);
748 PRIVATE PrLALp4(arg) long arg;
750 printf(" LAL %ld\n", Pt_arg_4() * arg);
753 PRIVATE PrLALs(hob, wfac) long hob; size wfac;
755 printf(" LAL %ld\n", St_arg(hob) * wfac);
758 PRIVATE PrLARl2(arg) long arg;
760 printf(" LAR %ld\n", Lt_arg_2() * arg);
763 PRIVATE PrLARm(arg) long arg;
765 printf(" LAR %ld\n", arg);
772 PRIVATE PrLDCl2(arg) long arg;
774 printf(" LDC %ld\n", Lt_arg_2() * arg);
777 PRIVATE PrLDCl4(arg) long arg;
779 printf(" LDC %ld\n", Lt_arg_4() * arg);
782 PRIVATE PrLDCm(arg) long arg;
784 printf(" LDC %ld\n", arg);
787 PRIVATE PrLDEl2(arg) long arg;
789 printf(" LDE %ld\n", Lt_arg_2() * arg);
792 PRIVATE PrLDEl4(arg) long arg;
794 printf(" LDE %ld\n", Lt_arg_4() * arg);
797 PRIVATE PrLDEs(hob, wfac) long hob; size wfac;
799 printf(" LDE %ld\n", St_arg(hob) * wfac);
802 PRIVATE PrLDFl2(arg) long arg;
804 printf(" LDF %ld\n", Lt_arg_2() * arg);
807 PRIVATE PrLDFl4(arg) long arg;
809 printf(" LDF %ld\n", Lt_arg_4() * arg);
812 PRIVATE PrLDLm(arg) long arg;
814 printf(" LDL %ld\n", arg);
817 PRIVATE PrLDLn2(arg) long arg;
819 printf(" LDL %ld\n", Nt_arg_2() * arg);
822 PRIVATE PrLDLn4(arg) long arg;
824 printf(" LDL %ld\n", Nt_arg_4() * arg);
827 PRIVATE PrLDLp2(arg) long arg;
829 printf(" LDL %ld\n", Pt_arg_2() * arg);
832 PRIVATE PrLDLp4(arg) long arg;
834 printf(" LDL %ld\n", Pt_arg_4() * arg);
837 PRIVATE PrLDLs(hob, wfac) long hob; size wfac;
839 printf(" LDL %ld\n", St_arg(hob) * wfac);
842 PRIVATE PrLFRl2(arg) long arg;
844 printf(" LFR %ld\n", Lt_arg_2() * arg);
847 PRIVATE PrLFRm(arg) long arg;
849 printf(" LFR %ld\n", arg);
852 PRIVATE PrLFRs(hob, wfac) long hob; size wfac;
854 printf(" LFR %ld\n", St_arg(hob) * wfac);
857 PRIVATE PrLILm(arg) long arg;
859 printf(" LIL %ld\n", arg);
862 PRIVATE PrLILn2(arg) long arg;
864 printf(" LIL %ld\n", Nt_arg_2() * arg);
867 PRIVATE PrLILn4(arg) long arg;
869 printf(" LIL %ld\n", Nt_arg_4() * arg);
872 PRIVATE PrLILp2(arg) long arg;
874 printf(" LIL %ld\n", Pt_arg_2() * arg);
877 PRIVATE PrLILp4(arg) long arg;
879 printf(" LIL %ld\n", Pt_arg_4() * arg);
882 PRIVATE PrLILs(hob, wfac) long hob; size wfac;
884 printf(" LIL %ld\n", St_arg(hob) * wfac);
891 PRIVATE PrLINl2(arg) long arg;
893 printf(" LIN %ld\n", Lt_arg_2() * arg);
896 PRIVATE PrLINl4(arg) long arg;
898 printf(" LIN %ld\n", Lt_arg_4() * arg);
901 PRIVATE PrLINs(hob, wfac) long hob; size wfac;
903 printf(" LIN %ld\n", St_arg(hob) * wfac);
910 PRIVATE PrLOCl2(arg) long arg;
912 printf(" LOC %ld\n", Lt_arg_2() * arg);
915 PRIVATE PrLOCl4(arg) long arg;
917 printf(" LOC %ld\n", Lt_arg_4() * arg);
920 PRIVATE PrLOCm(arg) long arg;
922 printf(" LOC %ld\n", arg);
925 PRIVATE PrLOCs(hob, wfac) long hob; size wfac;
927 printf(" LOC %ld\n", St_arg(hob) * wfac);
930 PRIVATE PrLOEl2(arg) long arg;
932 printf(" LOE %ld\n", Lt_arg_2() * arg);
935 PRIVATE PrLOEl4(arg) long arg;
937 printf(" LOE %ld\n", Lt_arg_4() * arg);
940 PRIVATE PrLOEs(hob, wfac) long hob; size wfac;
942 printf(" LOE %ld\n", St_arg(hob) * wfac);
945 PRIVATE PrLOFl2(arg) long arg;
947 printf(" LOF %ld\n", Lt_arg_2() * arg);
950 PRIVATE PrLOFl4(arg) long arg;
952 printf(" LOF %ld\n", Lt_arg_4() * arg);
955 PRIVATE PrLOFm(arg) long arg;
957 printf(" LOF %ld\n", arg);
960 PRIVATE PrLOFs(hob, wfac) long hob; size wfac;
962 printf(" LOF %ld\n", St_arg(hob) * wfac);
965 PRIVATE PrLOIl2(arg) long arg;
967 printf(" LOI %ld\n", Lt_arg_2() * arg);
970 PRIVATE PrLOIl4(arg) long arg;
972 printf(" LOI %ld\n", Lt_arg_4() * arg);
975 PRIVATE PrLOIm(arg) long arg;
977 printf(" LOI %ld\n", arg);
980 PRIVATE PrLOIs(hob, wfac) long hob; size wfac;
982 printf(" LOI %ld\n", St_arg(hob) * wfac);
985 PRIVATE PrLOLm(arg) long arg;
987 printf(" LOL %ld\n", arg);
990 PRIVATE PrLOLn2(arg) long arg;
992 printf(" LOL %ld\n", Nt_arg_2() * arg);
995 PRIVATE PrLOLn4(arg) long arg;
997 printf(" LOL %ld\n", Nt_arg_4() * arg);
1000 PRIVATE PrLOLp2(arg) long arg;
1002 printf(" LOL %ld\n", Pt_arg_2() * arg);
1005 PRIVATE PrLOLp4(arg) long arg;
1007 printf(" LOL %ld\n", Pt_arg_4() * arg);
1010 PRIVATE PrLOLs(hob, wfac) long hob; size wfac;
1012 printf(" LOL %ld\n", St_arg(hob) * wfac);
1015 PRIVATE PrLORs(hob, wfac) long hob; size wfac;
1017 printf(" LOR %ld\n", St_arg(hob) * wfac);
1020 PRIVATE PrLOSl2(arg) long arg;
1022 printf(" LOS %ld\n", Lt_arg_2() * arg);
1033 PRIVATE PrLPIl2(arg) long arg;
1035 printf(" LPI %ld\n", Lt_arg_2() * arg);
1038 PRIVATE PrLPIl4(arg) long arg;
1040 printf(" LPI %ld\n", Lt_arg_4() * arg);
1043 PRIVATE PrLXAl2(arg) long arg;
1045 printf(" LXA %ld\n", Lt_arg_2() * arg);
1048 PRIVATE PrLXAm(arg) long arg;
1050 printf(" LXA %ld\n", arg);
1053 PRIVATE PrLXLl2(arg) long arg;
1055 printf(" LXL %ld\n", Lt_arg_2() * arg);
1058 PRIVATE PrLXLm(arg) long arg;
1060 printf(" LXL %ld\n", arg);
1063 PRIVATE PrMLFl2(arg) long arg;
1065 printf(" MLF %ld\n", Lt_arg_2() * arg);
1068 PRIVATE PrMLFs(hob, wfac) long hob; size wfac;
1070 printf(" MLF %ld\n", St_arg(hob) * wfac);
1077 PRIVATE PrMLIl2(arg) long arg;
1079 printf(" MLI %ld\n", Lt_arg_2() * arg);
1082 PRIVATE PrMLIm(arg) long arg;
1084 printf(" MLI %ld\n", arg);
1091 PRIVATE PrMLUl2(arg) long arg;
1093 printf(" MLU %ld\n", Lt_arg_2() * arg);
1104 PRIVATE PrNGFl2(arg) long arg;
1106 printf(" NGF %ld\n", Lt_arg_2() * arg);
1113 PRIVATE PrNGIl2(arg) long arg;
1115 printf(" NGI %ld\n", Lt_arg_2() * arg);
1126 PRIVATE PrRCKl2(arg) long arg;
1128 printf(" RCK %ld\n", Lt_arg_2() * arg);
1131 PRIVATE PrRCKm(arg) long arg;
1133 printf(" RCK %ld\n", arg);
1140 PRIVATE PrRETl2(arg) long arg;
1142 printf(" RET %ld\n", Lt_arg_2() * arg);
1145 PRIVATE PrRETm(arg) long arg;
1147 printf(" RET %ld\n", arg);
1150 PRIVATE PrRETs(hob, wfac) long hob; size wfac;
1152 printf(" RET %ld\n", St_arg(hob) * wfac);
1155 PRIVATE PrRMIl2(arg) long arg;
1157 printf(" RMI %ld\n", Lt_arg_2() * arg);
1160 PRIVATE PrRMIm(arg) long arg;
1162 printf(" RMI %ld\n", arg);
1169 PRIVATE PrRMUl2(arg) long arg;
1171 printf(" RMU %ld\n", Lt_arg_2() * arg);
1178 PRIVATE PrROLl2(arg) long arg;
1180 printf(" ROL %ld\n", Lt_arg_2() * arg);
1187 PRIVATE PrRORl2(arg) long arg;
1189 printf(" ROR %ld\n", Lt_arg_2() * arg);
1200 PRIVATE PrSARl2(arg) long arg;
1202 printf(" SAR %ld\n", Lt_arg_2() * arg);
1205 PRIVATE PrSARm(arg) long arg;
1207 printf(" SAR %ld\n", arg);
1214 PRIVATE PrSBFl2(arg) long arg;
1216 printf(" SBF %ld\n", Lt_arg_2() * arg);
1219 PRIVATE PrSBFs(hob, wfac) long hob; size wfac;
1221 printf(" SBF %ld\n", St_arg(hob) * wfac);
1228 PRIVATE PrSBIl2(arg) long arg;
1230 printf(" SBI %ld\n", Lt_arg_2() * arg);
1233 PRIVATE PrSBIm(arg) long arg;
1235 printf(" SBI %ld\n", arg);
1242 PRIVATE PrSBSl2(arg) long arg;
1244 printf(" SBS %ld\n", Lt_arg_2() * arg);
1251 PRIVATE PrSBUl2(arg) long arg;
1253 printf(" SBU %ld\n", Lt_arg_2() * arg);
1260 PRIVATE PrSDEu(arg) long arg;
1262 printf(" SDE %ld\n", Ut_arg() * arg);
1265 PRIVATE PrSDEl4(arg) long arg;
1267 printf(" SDE %ld\n", Lt_arg_4() * arg);
1270 PRIVATE PrSDFl2(arg) long arg;
1272 printf(" SDF %ld\n", Lt_arg_2() * arg);
1275 PRIVATE PrSDFl4(arg) long arg;
1277 printf(" SDF %ld\n", Lt_arg_4() * arg);
1280 PRIVATE PrSDLn2(arg) long arg;
1282 printf(" SDL %ld\n", Nt_arg_2() * arg);
1285 PRIVATE PrSDLn4(arg) long arg;
1287 printf(" SDL %ld\n", Nt_arg_4() * arg);
1290 PRIVATE PrSDLp2(arg) long arg;
1292 printf(" SDL %ld\n", Pt_arg_2() * arg);
1295 PRIVATE PrSDLp4(arg) long arg;
1297 printf(" SDL %ld\n", Pt_arg_4() * arg);
1300 PRIVATE PrSDLs(hob, wfac) long hob; size wfac;
1302 printf(" SDL %ld\n", St_arg(hob) * wfac);
1305 PRIVATE PrSETl2(arg) long arg;
1307 printf(" SET %ld\n", Lt_arg_2() * arg);
1310 PRIVATE PrSETs(hob, wfac) long hob; size wfac;
1312 printf(" SET %ld\n", St_arg(hob) * wfac);
1323 PRIVATE PrSILn2(arg) long arg;
1325 printf(" SIL %ld\n", Nt_arg_2() * arg);
1328 PRIVATE PrSILn4(arg) long arg;
1330 printf(" SIL %ld\n", Nt_arg_4() * arg);
1333 PRIVATE PrSILp2(arg) long arg;
1335 printf(" SIL %ld\n", Pt_arg_2() * arg);
1338 PRIVATE PrSILp4(arg) long arg;
1340 printf(" SIL %ld\n", Pt_arg_4() * arg);
1343 PRIVATE PrSILs(hob, wfac) long hob; size wfac;
1345 printf(" SIL %ld\n", St_arg(hob) * wfac);
1352 PRIVATE PrSLIl2(arg) long arg;
1354 printf(" SLI %ld\n", Lt_arg_2() * arg);
1357 PRIVATE PrSLIm(arg) long arg;
1359 printf(" SLI %ld\n", arg);
1366 PRIVATE PrSLUl2(arg) long arg;
1368 printf(" SLU %ld\n", Lt_arg_2() * arg);
1375 PRIVATE PrSRIl2(arg) long arg;
1377 printf(" SRI %ld\n", Lt_arg_2() * arg);
1384 PRIVATE PrSRUl2(arg) long arg;
1386 printf(" SRU %ld\n", Lt_arg_2() * arg);
1393 PRIVATE PrSTEl2(arg) long arg;
1395 printf(" STE %ld\n", Lt_arg_2() * arg);
1398 PRIVATE PrSTEl4(arg) long arg;
1400 printf(" STE %ld\n", Lt_arg_4() * arg);
1403 PRIVATE PrSTEs(hob, wfac) long hob; size wfac;
1405 printf(" STE %ld\n", St_arg(hob) * wfac);
1408 PRIVATE PrSTFl2(arg) long arg;
1410 printf(" STF %ld\n", Lt_arg_2() * arg);
1413 PRIVATE PrSTFl4(arg) long arg;
1415 printf(" STF %ld\n", Lt_arg_4() * arg);
1418 PRIVATE PrSTFm(arg) long arg;
1420 printf(" STF %ld\n", arg);
1423 PRIVATE PrSTFs(hob, wfac) long hob; size wfac;
1425 printf(" STF %ld\n", St_arg(hob) * wfac);
1428 PRIVATE PrSTIl2(arg) long arg;
1430 printf(" STI %ld\n", Lt_arg_2() * arg);
1433 PRIVATE PrSTIl4(arg) long arg;
1435 printf(" STI %ld\n", Lt_arg_4() * arg);
1438 PRIVATE PrSTIm(arg) long arg;
1440 printf(" STI %ld\n", arg);
1443 PRIVATE PrSTIs(hob, wfac) long hob; size wfac;
1445 printf(" STI %ld\n", St_arg(hob) * wfac);
1448 PRIVATE PrSTLm(arg) long arg;
1450 printf(" STL %ld\n", arg);
1453 PRIVATE PrSTLn2(arg) long arg;
1455 printf(" STL %ld\n", Nt_arg_2() * arg);
1458 PRIVATE PrSTLn4(arg) long arg;
1460 printf(" STL %ld\n", Nt_arg_4() * arg);
1463 PRIVATE PrSTLp2(arg) long arg;
1465 printf(" STL %ld\n", Pt_arg_2() * arg);
1468 PRIVATE PrSTLp4(arg) long arg;
1470 printf(" STL %ld\n", Pt_arg_4() * arg);
1473 PRIVATE PrSTLs(hob, wfac) long hob; size wfac;
1475 printf(" STL %ld\n", St_arg(hob) * wfac);
1478 PRIVATE PrSTRs(hob, wfac) long hob; size wfac;
1480 printf(" STR %ld\n", St_arg(hob) * wfac);
1483 PRIVATE PrSTSl2(arg) long arg;
1485 printf(" STS %ld\n", Lt_arg_2() * arg);
1520 PRIVATE PrXORl2(arg) long arg;
1522 printf(" XOR %ld\n", Lt_arg_2() * arg);
1529 PRIVATE PrZEQl2(arg) long arg;
1531 printf(" ZEQ %ld\n", Lt_arg_2() * arg);
1534 PRIVATE PrZEQl4(arg) long arg;
1536 printf(" ZEQ %ld\n", Lt_arg_4() * arg);
1539 PRIVATE PrZEQs(hob, wfac) long hob; size wfac;
1541 printf(" ZEQ %ld\n", St_arg(hob) * wfac);
1544 PRIVATE PrZERl2(arg) long arg;
1546 printf(" ZER %ld\n", Lt_arg_2() * arg);
1549 PRIVATE PrZERs(hob, wfac) long hob; size wfac;
1551 printf(" ZER %ld\n", St_arg(hob) * wfac);
1558 PRIVATE PrZGEl2(arg) long arg;
1560 printf(" ZGE %ld\n", Lt_arg_2() * arg);
1563 PRIVATE PrZGEl4(arg) long arg;
1565 printf(" ZGE %ld\n", Lt_arg_4() * arg);
1568 PRIVATE PrZGEs(hob, wfac) long hob; size wfac;
1570 printf(" ZGE %ld\n", St_arg(hob) * wfac);
1573 PRIVATE PrZGTl2(arg) long arg;
1575 printf(" ZGT %ld\n", Lt_arg_2() * arg);
1578 PRIVATE PrZGTl4(arg) long arg;
1580 printf(" ZGT %ld\n", Lt_arg_4() * arg);
1583 PRIVATE PrZGTs(hob, wfac) long hob; size wfac;
1585 printf(" ZGT %ld\n", St_arg(hob) * wfac);
1588 PRIVATE PrZLEl2(arg) long arg;
1590 printf(" ZLE %ld\n", Lt_arg_2() * arg);
1593 PRIVATE PrZLEl4(arg) long arg;
1595 printf(" ZLE %ld\n", Lt_arg_4() * arg);
1598 PRIVATE PrZLEs(hob, wfac) long hob; size wfac;
1600 printf(" ZLE %ld\n", St_arg(hob) * wfac);
1603 PRIVATE PrZLTl2(arg) long arg;
1605 printf(" ZLT %ld\n", Lt_arg_2() * arg);
1608 PRIVATE PrZLTl4(arg) long arg;
1610 printf(" ZLT %ld\n", Lt_arg_4() * arg);
1613 PRIVATE PrZLTs(hob, wfac) long hob; size wfac;
1615 printf(" ZLT %ld\n", St_arg(hob) * wfac);
1618 PRIVATE PrZNEl2(arg) long arg;
1620 printf(" ZNE %ld\n", Lt_arg_2() * arg);
1623 PRIVATE PrZNEl4(arg) long arg;
1625 printf(" ZNE %ld\n", Lt_arg_4() * arg);
1628 PRIVATE PrZNEs(hob, wfac) long hob; size wfac;
1630 printf(" ZNE %ld\n", St_arg(hob) * wfac);
1633 PRIVATE PrZREl2(arg) long arg;
1635 printf(" ZRE %ld\n", Lt_arg_2() * arg);
1638 PRIVATE PrZREl4(arg) long arg;
1640 printf(" ZRE %ld\n", Lt_arg_4() * arg);
1643 PRIVATE PrZREs(hob, wfac) long hob; size wfac;
1645 printf(" ZRE %ld\n", St_arg(hob) * wfac);
1648 PRIVATE PrZRFl2(arg) long arg;
1650 printf(" ZRF %ld\n", Lt_arg_2() * arg);
1657 PRIVATE PrZRLm(arg) long arg;
1659 printf(" ZRL %ld\n", arg);
1662 PRIVATE PrZRLn2(arg) long arg;
1664 printf(" ZRL %ld\n", Nt_arg_2() * arg);
1667 PRIVATE PrZRLn4(arg) long arg;
1669 printf(" ZRL %ld\n", Nt_arg_4() * arg);
1672 PRIVATE PrZRLp2(arg) long arg;
1674 printf(" ZRL %ld\n", Pt_arg_2() * arg);
1677 PRIVATE PrZRLp4(arg) long arg;
1679 printf(" ZRL %ld\n", Pt_arg_4() * arg);
1682 PRIVATE PrZRLs(hob, wfac) long hob; size wfac;
1684 printf(" ZRL %ld\n", St_arg(hob) * wfac);
1687 /* Original code! */
1689 /******** Disassembly of Text Segment ********/
1691 struct ep { /* procedure entry points */
1699 register ptr low = 0;
1700 register ptr high = DB;
1703 struct ep *ep; /* list of entry points */
1705 /* collect the entry points */
1706 ep = (struct ep *)Malloc((size)(NProc * sizeof (struct ep)),
1708 for (idf = 0; idf < NProc; idf++) {
1711 read_proctab(idf, &pt);
1712 ep[idf].ep_idf = idf;
1713 ep[idf].ep_ep = pt.pr_ep;
1714 ep[idf].ep_nloc = pt.pr_nloc;
1717 /* a very naive sorting algorithm */
1718 for (idf = 0; idf < NProc; idf++) {
1721 for (jdf = 0; jdf < NProc; jdf++) {
1722 if ( (ep[idf].ep_ep < ep[jdf].ep_ep)
1738 printf("%lu\n", TC);
1740 cnt = (cnt + 1) % 10;
1742 if (idf < NProc && TC >=ep[idf].ep_ep) {
1743 register struct ep *p = &ep[idf];
1745 printf("P[%d]+%lu: ; %ld %s\n",
1746 p->ep_idf, TC - p->ep_ep,
1748 p->ep_nloc == 1 ? "local" : "locals");
1752 do_pr_instr(nextTCbyte()); /* advances TC */
1758 PRIVATE do_pr_instr(opcode)
1759 unsigned int opcode;
1762 #include "switch/PrCases" /* for the muscle */
1764 do_pr_instr(SEC_BASE + nextTCbyte());
1767 do_pr_instr(TERT_BASE + nextTCbyte());
1770 printf(">>>> bad opcode %u at PC = %lu <<<<\n",