123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776 |
- /*
- For disassembling the text segment.
- */
- /* $Id$ */
- #include "global.h"
- #include "opcode.h"
- #include "memdirect.h"
- #include "proctab.h"
- #include "alloc.h"
- PRIVATE ptr TC;
- PRIVATE do_pr_instr();
- /* This text is copied and modified from text.h */
- #define text_loc(a) (*(text + (p2i(a))))
- /* Reading the opcode.
- */
- #define nextTCbyte() (TC+=1, btou(text_loc(TC-1)))
- /* Shortie arguments consist of the high order value, derived from
- the opcode and passed as a parameter, and the following byte.
- */
- #define St_arg(h) (TC+=1, ((h)<<8) + btol(text_loc(TC-1)))
- /* Two-byte arguments consist of the following two bytes.
- */
- #define Lt_arg_2() (TC+=2, (btol(text_loc(TC-1)) | \
- (btos(text_loc(TC-2)) << 8)))
- #define Pt_arg_2() (TC+=2, (btol(text_loc(TC-1)) | \
- (btos(text_loc(TC-2)) << 8)))/* should test */
- #define Nt_arg_2() (TC+=2, (btol(text_loc(TC-1)) | \
- (btos(text_loc(TC-2)) << 8)))/* should test */
- #define Ut_arg() (TC+=2, (btol(text_loc(TC-1)) | \
- (btol(text_loc(TC-2)) << 8)))
- /* The L-, P-, and N-4-bytes #defines are all equal, because
- we assume our longs to be 4 bytes long.
- */
- #define Lt_arg_4() (TC+=4, (btol(text_loc(TC-1)) | \
- (btol(text_loc(TC-2)) << 8) | \
- (btol(text_loc(TC-3)) << 16) | \
- (btos(text_loc(TC-4)) << 24)))
- #define Pt_arg_4() (TC+=4, (btol(text_loc(TC-1)) | \
- (btol(text_loc(TC-2)) << 8) | \
- (btol(text_loc(TC-3)) << 16) | \
- (btos(text_loc(TC-4)) << 24)))/* should test */
- #define Nt_arg_4() (TC+=4, (btol(text_loc(TC-1)) | \
- (btol(text_loc(TC-2)) << 8) | \
- (btol(text_loc(TC-3)) << 16) | \
- (btos(text_loc(TC-4)) << 24)))/* should test */
- /* This text was generated by mkswitch Pr and then modified */
- PRIVATE PrAARl2(arg) long arg;
- {
- printf(" AAR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrAARm(arg) long arg;
- {
- printf(" AAR %ld\n", arg);
- }
- PRIVATE PrAARz() {
- printf(" AAR\n");
- }
- PRIVATE PrADFl2(arg) long arg;
- {
- printf(" ADF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrADFs(hob, wfac) long hob; size wfac;
- {
- printf(" ADF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrADFz() {
- printf(" ADF\n");
- }
- PRIVATE PrADIl2(arg) long arg;
- {
- printf(" ADI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrADIm(arg) long arg;
- {
- printf(" ADI %ld\n", arg);
- }
- PRIVATE PrADIz() {
- printf(" ADI\n");
- }
- PRIVATE PrADPl2(arg) long arg;
- {
- printf(" ADP %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrADPl4(arg) long arg;
- {
- printf(" ADP %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrADPm(arg) long arg;
- {
- printf(" ADP %ld\n", arg);
- }
- PRIVATE PrADPs(hob, wfac) long hob; size wfac;
- {
- printf(" ADP %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrADSl2(arg) long arg;
- {
- printf(" ADS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrADSm(arg) long arg;
- {
- printf(" ADS %ld\n", arg);
- }
- PRIVATE PrADSz() {
- printf(" ADS\n");
- }
- PRIVATE PrADUl2(arg) long arg;
- {
- printf(" ADU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrADUz() {
- printf(" ADU\n");
- }
- PRIVATE PrANDl2(arg) long arg;
- {
- printf(" AND %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrANDm(arg) long arg;
- {
- printf(" AND %ld\n", arg);
- }
- PRIVATE PrANDz() {
- printf(" AND\n");
- }
- PRIVATE PrASPl2(arg) long arg;
- {
- printf(" ASP %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrASPl4(arg) long arg;
- {
- printf(" ASP %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrASPm(arg) long arg;
- {
- printf(" ASP %ld\n", arg);
- }
- PRIVATE PrASPs(hob, wfac) long hob; size wfac;
- {
- printf(" ASP %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrASSl2(arg) long arg;
- {
- printf(" ASS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrASSz() {
- printf(" ASS\n");
- }
- PRIVATE PrBEQl2(arg) long arg;
- {
- printf(" BEQ %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBEQl4(arg) long arg;
- {
- printf(" BEQ %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBEQs(hob, wfac) long hob; size wfac;
- {
- printf(" BEQ %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBGEl2(arg) long arg;
- {
- printf(" BGE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBGEl4(arg) long arg;
- {
- printf(" BGE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBGEs(hob, wfac) long hob; size wfac;
- {
- printf(" BGE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBGTl2(arg) long arg;
- {
- printf(" BGT %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBGTl4(arg) long arg;
- {
- printf(" BGT %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBGTs(hob, wfac) long hob; size wfac;
- {
- printf(" BGT %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBLEl2(arg) long arg;
- {
- printf(" BLE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBLEl4(arg) long arg;
- {
- printf(" BLE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBLEs(hob, wfac) long hob; size wfac;
- {
- printf(" BLE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBLMl2(arg) long arg;
- {
- printf(" BLM %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBLMl4(arg) long arg;
- {
- printf(" BLM %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBLMs(hob, wfac) long hob; size wfac;
- {
- printf(" BLM %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBLSl2(arg) long arg;
- {
- printf(" BLS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBLSz() {
- printf(" BLS\n");
- }
- PRIVATE PrBLTl2(arg) long arg;
- {
- printf(" BLT %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBLTl4(arg) long arg;
- {
- printf(" BLT %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBLTs(hob, wfac) long hob; size wfac;
- {
- printf(" BLT %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBNEl2(arg) long arg;
- {
- printf(" BNE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBNEl4(arg) long arg;
- {
- printf(" BNE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBNEs(hob, wfac) long hob; size wfac;
- {
- printf(" BNE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrBRAl2(arg) long arg;
- {
- printf(" BRA %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrBRAl4(arg) long arg;
- {
- printf(" BRA %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrBRAs(hob, wfac) long hob; size wfac;
- {
- printf(" BRA %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrCAIz() {
- printf(" CAI\n");
- }
- PRIVATE PrCALl2(arg) long arg;
- {
- printf(" CAL %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCALl4(arg) long arg;
- {
- printf(" CAL %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrCALm(arg) long arg;
- {
- printf(" CAL %ld\n", arg);
- }
- PRIVATE PrCALs(hob, wfac) long hob; size wfac;
- {
- printf(" CAL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrCFFz() {
- printf(" CFF\n");
- }
- PRIVATE PrCFIz() {
- printf(" CFI\n");
- }
- PRIVATE PrCFUz() {
- printf(" CFU\n");
- }
- PRIVATE PrCIFz() {
- printf(" CIF\n");
- }
- PRIVATE PrCIIz() {
- printf(" CII\n");
- }
- PRIVATE PrCIUz() {
- printf(" CIU\n");
- }
- PRIVATE PrCMFl2(arg) long arg;
- {
- printf(" CMF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCMFs(hob, wfac) long hob; size wfac;
- {
- printf(" CMF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrCMFz() {
- printf(" CMF\n");
- }
- PRIVATE PrCMIl2(arg) long arg;
- {
- printf(" CMI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCMIm(arg) long arg;
- {
- printf(" CMI %ld\n", arg);
- }
- PRIVATE PrCMIz() {
- printf(" CMI\n");
- }
- PRIVATE PrCMPz() {
- printf(" CMP\n");
- }
- PRIVATE PrCMSl2(arg) long arg;
- {
- printf(" CMS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCMSs(hob, wfac) long hob; size wfac;
- {
- printf(" CMS %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrCMSz() {
- printf(" CMS\n");
- }
- PRIVATE PrCMUl2(arg) long arg;
- {
- printf(" CMU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCMUz() {
- printf(" CMU\n");
- }
- PRIVATE PrCOMl2(arg) long arg;
- {
- printf(" COM %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCOMz() {
- printf(" COM\n");
- }
- PRIVATE PrCSAl2(arg) long arg;
- {
- printf(" CSA %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCSAm(arg) long arg;
- {
- printf(" CSA %ld\n", arg);
- }
- PRIVATE PrCSAz() {
- printf(" CSA\n");
- }
- PRIVATE PrCSBl2(arg) long arg;
- {
- printf(" CSB %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrCSBm(arg) long arg;
- {
- printf(" CSB %ld\n", arg);
- }
- PRIVATE PrCSBz() {
- printf(" CSB\n");
- }
- PRIVATE PrCUFz() {
- printf(" CUF\n");
- }
- PRIVATE PrCUIz() {
- printf(" CUI\n");
- }
- PRIVATE PrCUUz() {
- printf(" CUU\n");
- }
- PRIVATE PrDCHz() {
- printf(" DCH\n");
- }
- PRIVATE PrDECz() {
- printf(" DEC\n");
- }
- PRIVATE PrDEEl2(arg) long arg;
- {
- printf(" DEE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrDEEl4(arg) long arg;
- {
- printf(" DEE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrDEEs(hob, wfac) long hob; size wfac;
- {
- printf(" DEE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrDELn2(arg) long arg;
- {
- printf(" DEL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrDELn4(arg) long arg;
- {
- printf(" DEL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrDELp2(arg) long arg;
- {
- printf(" DEL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrDELp4(arg) long arg;
- {
- printf(" DEL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrDELs(hob, wfac) long hob; size wfac;
- {
- printf(" DEL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrDUPl2(arg) long arg;
- {
- printf(" DUP %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrDUPm(arg) long arg;
- {
- printf(" DUP %ld\n", arg);
- }
- PRIVATE PrDUSl2(arg) long arg;
- {
- printf(" DUS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrDUSz() {
- printf(" DUS\n");
- }
- PRIVATE PrDVFl2(arg) long arg;
- {
- printf(" DVF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrDVFs(hob, wfac) long hob; size wfac;
- {
- printf(" DVF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrDVFz() {
- printf(" DVF\n");
- }
- PRIVATE PrDVIl2(arg) long arg;
- {
- printf(" DVI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrDVIm(arg) long arg;
- {
- printf(" DVI %ld\n", arg);
- }
- PRIVATE PrDVIz() {
- printf(" DVI\n");
- }
- PRIVATE PrDVUl2(arg) long arg;
- {
- printf(" DVU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrDVUz() {
- printf(" DVU\n");
- }
- PRIVATE PrEXGl2(arg) long arg;
- {
- printf(" EXG %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrEXGs(hob, wfac) long hob; size wfac;
- {
- printf(" EXG %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrEXGz() {
- printf(" EXG\n");
- }
- PRIVATE PrFEFl2(arg) long arg;
- {
- printf(" FEF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrFEFz() {
- printf(" FEF\n");
- }
- PRIVATE PrFIFl2(arg) long arg;
- {
- printf(" FIF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrFIFz() {
- printf(" FIF\n");
- }
- PRIVATE PrFILu(arg) long arg;
- {
- printf(" FIL %ld\n", Ut_arg() * arg);
- }
- PRIVATE PrFILl4(arg) long arg;
- {
- printf(" FIL %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrGTOu(arg) long arg;
- {
- printf(" GTO %ld\n", Ut_arg() * arg);
- }
- PRIVATE PrGTOl4(arg) long arg;
- {
- printf(" GTO %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrINCz() {
- printf(" INC\n");
- }
- PRIVATE PrINEl2(arg) long arg;
- {
- printf(" INE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrINEl4(arg) long arg;
- {
- printf(" INE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrINEs(hob, wfac) long hob; size wfac;
- {
- printf(" INE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrINLm(arg) long arg;
- {
- printf(" INL %ld\n", arg);
- }
- PRIVATE PrINLn2(arg) long arg;
- {
- printf(" INL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrINLn4(arg) long arg;
- {
- printf(" INL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrINLp2(arg) long arg;
- {
- printf(" INL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrINLp4(arg) long arg;
- {
- printf(" INL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrINLs(hob, wfac) long hob; size wfac;
- {
- printf(" INL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrINNl2(arg) long arg;
- {
- printf(" INN %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrINNs(hob, wfac) long hob; size wfac;
- {
- printf(" INN %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrINNz() {
- printf(" INN\n");
- }
- PRIVATE PrIORl2(arg) long arg;
- {
- printf(" IOR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrIORm(arg) long arg;
- {
- printf(" IOR %ld\n", arg);
- }
- PRIVATE PrIORs(hob, wfac) long hob; size wfac;
- {
- printf(" IOR %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrIORz() {
- printf(" IOR\n");
- }
- PRIVATE PrLAEu(arg) long arg;
- {
- printf(" LAE %ld\n", Ut_arg() * arg);
- }
- PRIVATE PrLAEl4(arg) long arg;
- {
- printf(" LAE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLAEs(hob, wfac) long hob; size wfac;
- {
- printf(" LAE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLALm(arg) long arg;
- {
- printf(" LAL %ld\n", arg);
- }
- PRIVATE PrLALn2(arg) long arg;
- {
- printf(" LAL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrLALn4(arg) long arg;
- {
- printf(" LAL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrLALp2(arg) long arg;
- {
- printf(" LAL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrLALp4(arg) long arg;
- {
- printf(" LAL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrLALs(hob, wfac) long hob; size wfac;
- {
- printf(" LAL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLARl2(arg) long arg;
- {
- printf(" LAR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLARm(arg) long arg;
- {
- printf(" LAR %ld\n", arg);
- }
- PRIVATE PrLARz() {
- printf(" LAR\n");
- }
- PRIVATE PrLDCl2(arg) long arg;
- {
- printf(" LDC %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLDCl4(arg) long arg;
- {
- printf(" LDC %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLDCm(arg) long arg;
- {
- printf(" LDC %ld\n", arg);
- }
- PRIVATE PrLDEl2(arg) long arg;
- {
- printf(" LDE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLDEl4(arg) long arg;
- {
- printf(" LDE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLDEs(hob, wfac) long hob; size wfac;
- {
- printf(" LDE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLDFl2(arg) long arg;
- {
- printf(" LDF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLDFl4(arg) long arg;
- {
- printf(" LDF %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLDLm(arg) long arg;
- {
- printf(" LDL %ld\n", arg);
- }
- PRIVATE PrLDLn2(arg) long arg;
- {
- printf(" LDL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrLDLn4(arg) long arg;
- {
- printf(" LDL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrLDLp2(arg) long arg;
- {
- printf(" LDL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrLDLp4(arg) long arg;
- {
- printf(" LDL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrLDLs(hob, wfac) long hob; size wfac;
- {
- printf(" LDL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLFRl2(arg) long arg;
- {
- printf(" LFR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLFRm(arg) long arg;
- {
- printf(" LFR %ld\n", arg);
- }
- PRIVATE PrLFRs(hob, wfac) long hob; size wfac;
- {
- printf(" LFR %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLILm(arg) long arg;
- {
- printf(" LIL %ld\n", arg);
- }
- PRIVATE PrLILn2(arg) long arg;
- {
- printf(" LIL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrLILn4(arg) long arg;
- {
- printf(" LIL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrLILp2(arg) long arg;
- {
- printf(" LIL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrLILp4(arg) long arg;
- {
- printf(" LIL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrLILs(hob, wfac) long hob; size wfac;
- {
- printf(" LIL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLIMz() {
- printf(" LIM\n");
- }
- PRIVATE PrLINl2(arg) long arg;
- {
- printf(" LIN %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLINl4(arg) long arg;
- {
- printf(" LIN %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLINs(hob, wfac) long hob; size wfac;
- {
- printf(" LIN %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLNIz() {
- printf(" LNI\n");
- }
- PRIVATE PrLOCl2(arg) long arg;
- {
- printf(" LOC %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLOCl4(arg) long arg;
- {
- printf(" LOC %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLOCm(arg) long arg;
- {
- printf(" LOC %ld\n", arg);
- }
- PRIVATE PrLOCs(hob, wfac) long hob; size wfac;
- {
- printf(" LOC %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLOEl2(arg) long arg;
- {
- printf(" LOE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLOEl4(arg) long arg;
- {
- printf(" LOE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLOEs(hob, wfac) long hob; size wfac;
- {
- printf(" LOE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLOFl2(arg) long arg;
- {
- printf(" LOF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLOFl4(arg) long arg;
- {
- printf(" LOF %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLOFm(arg) long arg;
- {
- printf(" LOF %ld\n", arg);
- }
- PRIVATE PrLOFs(hob, wfac) long hob; size wfac;
- {
- printf(" LOF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLOIl2(arg) long arg;
- {
- printf(" LOI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLOIl4(arg) long arg;
- {
- printf(" LOI %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLOIm(arg) long arg;
- {
- printf(" LOI %ld\n", arg);
- }
- PRIVATE PrLOIs(hob, wfac) long hob; size wfac;
- {
- printf(" LOI %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLOLm(arg) long arg;
- {
- printf(" LOL %ld\n", arg);
- }
- PRIVATE PrLOLn2(arg) long arg;
- {
- printf(" LOL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrLOLn4(arg) long arg;
- {
- printf(" LOL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrLOLp2(arg) long arg;
- {
- printf(" LOL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrLOLp4(arg) long arg;
- {
- printf(" LOL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrLOLs(hob, wfac) long hob; size wfac;
- {
- printf(" LOL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLORs(hob, wfac) long hob; size wfac;
- {
- printf(" LOR %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrLOSl2(arg) long arg;
- {
- printf(" LOS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLOSz() {
- printf(" LOS\n");
- }
- PRIVATE PrLPBz() {
- printf(" LPB\n");
- }
- PRIVATE PrLPIl2(arg) long arg;
- {
- printf(" LPI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLPIl4(arg) long arg;
- {
- printf(" LPI %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrLXAl2(arg) long arg;
- {
- printf(" LXA %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLXAm(arg) long arg;
- {
- printf(" LXA %ld\n", arg);
- }
- PRIVATE PrLXLl2(arg) long arg;
- {
- printf(" LXL %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrLXLm(arg) long arg;
- {
- printf(" LXL %ld\n", arg);
- }
- PRIVATE PrMLFl2(arg) long arg;
- {
- printf(" MLF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrMLFs(hob, wfac) long hob; size wfac;
- {
- printf(" MLF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrMLFz() {
- printf(" MLF\n");
- }
- PRIVATE PrMLIl2(arg) long arg;
- {
- printf(" MLI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrMLIm(arg) long arg;
- {
- printf(" MLI %ld\n", arg);
- }
- PRIVATE PrMLIz() {
- printf(" MLI\n");
- }
- PRIVATE PrMLUl2(arg) long arg;
- {
- printf(" MLU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrMLUz() {
- printf(" MLU\n");
- }
- PRIVATE PrMONz() {
- printf(" MON\n");
- }
- PRIVATE PrNGFl2(arg) long arg;
- {
- printf(" NGF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrNGFz() {
- printf(" NGF\n");
- }
- PRIVATE PrNGIl2(arg) long arg;
- {
- printf(" NGI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrNGIz() {
- printf(" NGI\n");
- }
- PRIVATE PrNOPz() {
- printf(" NOP\n");
- }
- PRIVATE PrRCKl2(arg) long arg;
- {
- printf(" RCK %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrRCKm(arg) long arg;
- {
- printf(" RCK %ld\n", arg);
- }
- PRIVATE PrRCKz() {
- printf(" RCK\n");
- }
- PRIVATE PrRETl2(arg) long arg;
- {
- printf(" RET %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrRETm(arg) long arg;
- {
- printf(" RET %ld\n", arg);
- }
- PRIVATE PrRETs(hob, wfac) long hob; size wfac;
- {
- printf(" RET %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrRMIl2(arg) long arg;
- {
- printf(" RMI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrRMIm(arg) long arg;
- {
- printf(" RMI %ld\n", arg);
- }
- PRIVATE PrRMIz() {
- printf(" RMI\n");
- }
- PRIVATE PrRMUl2(arg) long arg;
- {
- printf(" RMU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrRMUz() {
- printf(" RMU\n");
- }
- PRIVATE PrROLl2(arg) long arg;
- {
- printf(" ROL %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrROLz() {
- printf(" ROL\n");
- }
- PRIVATE PrRORl2(arg) long arg;
- {
- printf(" ROR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrRORz() {
- printf(" ROR\n");
- }
- PRIVATE PrRTTz() {
- printf(" RTT\n");
- }
- PRIVATE PrSARl2(arg) long arg;
- {
- printf(" SAR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSARm(arg) long arg;
- {
- printf(" SAR %ld\n", arg);
- }
- PRIVATE PrSARz() {
- printf(" SAR\n");
- }
- PRIVATE PrSBFl2(arg) long arg;
- {
- printf(" SBF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSBFs(hob, wfac) long hob; size wfac;
- {
- printf(" SBF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSBFz() {
- printf(" SBF\n");
- }
- PRIVATE PrSBIl2(arg) long arg;
- {
- printf(" SBI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSBIm(arg) long arg;
- {
- printf(" SBI %ld\n", arg);
- }
- PRIVATE PrSBIz() {
- printf(" SBI\n");
- }
- PRIVATE PrSBSl2(arg) long arg;
- {
- printf(" SBS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSBSz() {
- printf(" SBS\n");
- }
- PRIVATE PrSBUl2(arg) long arg;
- {
- printf(" SBU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSBUz() {
- printf(" SBU\n");
- }
- PRIVATE PrSDEu(arg) long arg;
- {
- printf(" SDE %ld\n", Ut_arg() * arg);
- }
- PRIVATE PrSDEl4(arg) long arg;
- {
- printf(" SDE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrSDFl2(arg) long arg;
- {
- printf(" SDF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSDFl4(arg) long arg;
- {
- printf(" SDF %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrSDLn2(arg) long arg;
- {
- printf(" SDL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrSDLn4(arg) long arg;
- {
- printf(" SDL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrSDLp2(arg) long arg;
- {
- printf(" SDL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrSDLp4(arg) long arg;
- {
- printf(" SDL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrSDLs(hob, wfac) long hob; size wfac;
- {
- printf(" SDL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSETl2(arg) long arg;
- {
- printf(" SET %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSETs(hob, wfac) long hob; size wfac;
- {
- printf(" SET %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSETz() {
- printf(" SET\n");
- }
- PRIVATE PrSIGz() {
- printf(" SIG\n");
- }
- PRIVATE PrSILn2(arg) long arg;
- {
- printf(" SIL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrSILn4(arg) long arg;
- {
- printf(" SIL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrSILp2(arg) long arg;
- {
- printf(" SIL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrSILp4(arg) long arg;
- {
- printf(" SIL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrSILs(hob, wfac) long hob; size wfac;
- {
- printf(" SIL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSIMz() {
- printf(" SIM\n");
- }
- PRIVATE PrSLIl2(arg) long arg;
- {
- printf(" SLI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSLIm(arg) long arg;
- {
- printf(" SLI %ld\n", arg);
- }
- PRIVATE PrSLIz() {
- printf(" SLI\n");
- }
- PRIVATE PrSLUl2(arg) long arg;
- {
- printf(" SLU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSLUz() {
- printf(" SLU\n");
- }
- PRIVATE PrSRIl2(arg) long arg;
- {
- printf(" SRI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSRIz() {
- printf(" SRI\n");
- }
- PRIVATE PrSRUl2(arg) long arg;
- {
- printf(" SRU %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSRUz() {
- printf(" SRU\n");
- }
- PRIVATE PrSTEl2(arg) long arg;
- {
- printf(" STE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSTEl4(arg) long arg;
- {
- printf(" STE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrSTEs(hob, wfac) long hob; size wfac;
- {
- printf(" STE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSTFl2(arg) long arg;
- {
- printf(" STF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSTFl4(arg) long arg;
- {
- printf(" STF %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrSTFm(arg) long arg;
- {
- printf(" STF %ld\n", arg);
- }
- PRIVATE PrSTFs(hob, wfac) long hob; size wfac;
- {
- printf(" STF %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSTIl2(arg) long arg;
- {
- printf(" STI %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSTIl4(arg) long arg;
- {
- printf(" STI %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrSTIm(arg) long arg;
- {
- printf(" STI %ld\n", arg);
- }
- PRIVATE PrSTIs(hob, wfac) long hob; size wfac;
- {
- printf(" STI %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSTLm(arg) long arg;
- {
- printf(" STL %ld\n", arg);
- }
- PRIVATE PrSTLn2(arg) long arg;
- {
- printf(" STL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrSTLn4(arg) long arg;
- {
- printf(" STL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrSTLp2(arg) long arg;
- {
- printf(" STL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrSTLp4(arg) long arg;
- {
- printf(" STL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrSTLs(hob, wfac) long hob; size wfac;
- {
- printf(" STL %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSTRs(hob, wfac) long hob; size wfac;
- {
- printf(" STR %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrSTSl2(arg) long arg;
- {
- printf(" STS %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrSTSz() {
- printf(" STS\n");
- }
- PRIVATE PrTEQz() {
- printf(" TEQ\n");
- }
- PRIVATE PrTGEz() {
- printf(" TGE\n");
- }
- PRIVATE PrTGTz() {
- printf(" TGT\n");
- }
- PRIVATE PrTLEz() {
- printf(" TLE\n");
- }
- PRIVATE PrTLTz() {
- printf(" TLT\n");
- }
- PRIVATE PrTNEz() {
- printf(" TNE\n");
- }
- PRIVATE PrTRPz() {
- printf(" TRP\n");
- }
- PRIVATE PrXORl2(arg) long arg;
- {
- printf(" XOR %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrXORz() {
- printf(" XOR\n");
- }
- PRIVATE PrZEQl2(arg) long arg;
- {
- printf(" ZEQ %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZEQl4(arg) long arg;
- {
- printf(" ZEQ %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZEQs(hob, wfac) long hob; size wfac;
- {
- printf(" ZEQ %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZERl2(arg) long arg;
- {
- printf(" ZER %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZERs(hob, wfac) long hob; size wfac;
- {
- printf(" ZER %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZERz() {
- printf(" ZER\n");
- }
- PRIVATE PrZGEl2(arg) long arg;
- {
- printf(" ZGE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZGEl4(arg) long arg;
- {
- printf(" ZGE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZGEs(hob, wfac) long hob; size wfac;
- {
- printf(" ZGE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZGTl2(arg) long arg;
- {
- printf(" ZGT %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZGTl4(arg) long arg;
- {
- printf(" ZGT %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZGTs(hob, wfac) long hob; size wfac;
- {
- printf(" ZGT %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZLEl2(arg) long arg;
- {
- printf(" ZLE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZLEl4(arg) long arg;
- {
- printf(" ZLE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZLEs(hob, wfac) long hob; size wfac;
- {
- printf(" ZLE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZLTl2(arg) long arg;
- {
- printf(" ZLT %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZLTl4(arg) long arg;
- {
- printf(" ZLT %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZLTs(hob, wfac) long hob; size wfac;
- {
- printf(" ZLT %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZNEl2(arg) long arg;
- {
- printf(" ZNE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZNEl4(arg) long arg;
- {
- printf(" ZNE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZNEs(hob, wfac) long hob; size wfac;
- {
- printf(" ZNE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZREl2(arg) long arg;
- {
- printf(" ZRE %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZREl4(arg) long arg;
- {
- printf(" ZRE %ld\n", Lt_arg_4() * arg);
- }
- PRIVATE PrZREs(hob, wfac) long hob; size wfac;
- {
- printf(" ZRE %ld\n", St_arg(hob) * wfac);
- }
- PRIVATE PrZRFl2(arg) long arg;
- {
- printf(" ZRF %ld\n", Lt_arg_2() * arg);
- }
- PRIVATE PrZRFz() {
- printf(" ZRF\n");
- }
- PRIVATE PrZRLm(arg) long arg;
- {
- printf(" ZRL %ld\n", arg);
- }
- PRIVATE PrZRLn2(arg) long arg;
- {
- printf(" ZRL %ld\n", Nt_arg_2() * arg);
- }
- PRIVATE PrZRLn4(arg) long arg;
- {
- printf(" ZRL %ld\n", Nt_arg_4() * arg);
- }
- PRIVATE PrZRLp2(arg) long arg;
- {
- printf(" ZRL %ld\n", Pt_arg_2() * arg);
- }
- PRIVATE PrZRLp4(arg) long arg;
- {
- printf(" ZRL %ld\n", Pt_arg_4() * arg);
- }
- PRIVATE PrZRLs(hob, wfac) long hob; size wfac;
- {
- printf(" ZRL %ld\n", St_arg(hob) * wfac);
- }
- /* Original code! */
- /******** Disassembly of Text Segment ********/
- struct ep { /* procedure entry points */
- int ep_idf;
- ptr ep_ep;
- size ep_nloc;
- };
- disassemble()
- {
- register ptr low = 0;
- register ptr high = DB;
- register int idf;
- register int cnt;
- struct ep *ep; /* list of entry points */
- /* collect the entry points */
- ep = (struct ep *)Malloc((size)(NProc * sizeof (struct ep)),
- "entry points");
- for (idf = 0; idf < NProc; idf++) {
- register struct proc *pr = &proctab[idf];
-
- ep[idf].ep_idf = idf;
- ep[idf].ep_ep = pr->pr_ep;
- ep[idf].ep_nloc = pr->pr_nloc;
- }
- /* a very naive sorting algorithm */
- for (idf = 0; idf < NProc; idf++) {
- register int jdf;
- for (jdf = 0; jdf < NProc; jdf++) {
- if ( (ep[idf].ep_ep < ep[jdf].ep_ep)
- != (idf < jdf)
- ) {
- struct ep p;
- p = ep[idf];
- ep[idf] = ep[jdf];
- ep[jdf] = p;
- }
- }
- }
- TC = low;
- cnt = 0;
- idf = 0;
- while (TC < high) {
- if (cnt == 0) {
- printf("%lu\n", TC);
- }
- cnt = (cnt + 1) % 10;
- if (idf < NProc && TC >=ep[idf].ep_ep) {
- register struct ep *p = &ep[idf];
- printf("P[%d]+%lu: ; %ld %s\n",
- p->ep_idf, TC - p->ep_ep,
- p->ep_nloc,
- p->ep_nloc == 1 ? "local" : "locals");
- idf++;
- }
- do_pr_instr(nextTCbyte()); /* advances TC */
- }
- }
- /* See switch.c */
- PRIVATE do_pr_instr(opcode)
- unsigned int opcode;
- {
- switch (opcode) {
- #include "switch/PrCases" /* for the muscle */
- case SECONDARY:
- do_pr_instr(SEC_BASE + nextTCbyte());
- break;
- case TERTIARY:
- do_pr_instr(TERT_BASE + nextTCbyte());
- break;
- default:
- printf(">>>> bad opcode %u at PC = %lu <<<<\n",
- opcode, TC);
- break;
- }
- }
|