1135 lines
62 KiB
OpenEdge ABL
1135 lines
62 KiB
OpenEdge ABL
60000 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
60010 (**)
|
|
60020 (**)
|
|
60030 (*$T-*)
|
|
60040 (*+23()
|
|
60050 PROCEDURE OCODE(OPCOD:POP;ROUTINE:ALFA);
|
|
60060 BEGIN
|
|
60070 CODETABLE[OPCOD].ROUTINE:=ROUTINE;
|
|
60080 END;
|
|
60090 PROCEDURE INITCODES;
|
|
60100 VAR I: INTEGER;
|
|
60110 BEGIN
|
|
60120 FOR I := PNONE TO PLAST DO
|
|
60130 BEGIN CODETABLE[I].ROUTINE := ' '; CODETABLE[I].PR := SBTSTK END;
|
|
60140 OCODE (PNONE , 'PNONE ');
|
|
60150 OCODE (PIM , 'PIM ');
|
|
60160 OCODE (PRE , 'PRE ');
|
|
60170 OCODE (PBIN , 'PBIN ');
|
|
60180 OCODE (PREPR , 'PREPR ');
|
|
60190 OCODE (PSGNI , 'PSGNI ');
|
|
60200 OCODE (PSHRTC , 'PSHRTC ');
|
|
60210 OCODE (PSHRTR , 'PSHRTR ');
|
|
60220 OCODE (PSHRTI , 'PSHRTI ');
|
|
60230 OCODE (PLENGC , 'PLENGC ');
|
|
60240 OCODE (PLENGR , 'PLENGR ');
|
|
60250 OCODE (PLENGI , 'PLENGI ');
|
|
60260 OCODE (PODD , 'PODD ');
|
|
60270 OCODE (PROUNL , 'PROUNL ');
|
|
60280 OCODE (PROUN , 'PROUN ');
|
|
60290 OCODE (PENTIL , 'PENTIL ');
|
|
60300 OCODE (PENTI , 'PENTI ');
|
|
60310 OCODE (PCONJ , 'PCONJ ');
|
|
60320 OCODE (PARGL , 'PARGL ');
|
|
60330 OCODE (PARG , 'PARG ');
|
|
60340 OCODE (PNOTB , 'PNOTB ');
|
|
60350 OCODE (PABSCH , 'PABSCH ');
|
|
60360 OCODE (PABSB , 'PABSB ');
|
|
60370 OCODE (PABSC , 'PABSC ');
|
|
60380 OCODE (PABSI , 'PABSI ');
|
|
60390 OCODE (PNEGI , 'PNEGI ');
|
|
60400 OCODE (PPLITM , 'PPLITM ');
|
|
60410 OCODE (PMULIC , 'PMULIC ');
|
|
60420 OCODE (PMULCI , 'PMULCI ');
|
|
60430 OCODE (PELMBY , 'PELMBY ');
|
|
60440 OCODE (PELMBT , 'PELMBT ');
|
|
60450 OCODE (PSHR , 'PSHR ');
|
|
60460 OCODE (PSHL , 'PSHL ');
|
|
60470 OCODE (PLWBMSTR , 'PLWBMSTR ');
|
|
60480 OCODE (PLWBM , 'PLWBM ');
|
|
60490 OCODE (PLWB , 'PLWB ');
|
|
60500 OCODE (PUPBMSTR , 'PUPBMSTR ');
|
|
60510 OCODE (PUPBM , 'PUPBM ');
|
|
60520 OCODE (PUPB , 'PUPB ');
|
|
60530 OCODE (PORB , 'PORB ');
|
|
60540 OCODE (PANDB , 'PANDB ');
|
|
60550 OCODE (PMODAB , 'PMODAB ');
|
|
60560 OCODE (POVERAB , 'POVERAB ');
|
|
60570 OCODE (PDIVAB , 'PDIVAB ');
|
|
60580 OCODE (PTIMSABS , 'PTIMSABS ');
|
|
60590 OCODE (PTIMSAB , 'PTIMSAB ');
|
|
60600 OCODE (PMINUSAB , 'PMINUSAB ');
|
|
60610 OCODE (PPLSTOCS , 'PPLSTOCS ');
|
|
60620 OCODE (PPLSABCH , 'PPLSABCH ');
|
|
60630 OCODE (PPLSABS , 'PPLSABS ');
|
|
60640 OCODE (PPLSAB , 'PPLSAB ');
|
|
60650 OCODE (PCAT , 'PCAT ');
|
|
60660 OCODE (PGEBT , 'PGEBT ');
|
|
60670 OCODE (PGECS , 'PGECS ');
|
|
60680 OCODE (PGE , 'PGE ');
|
|
60690 OCODE (PGTBY , 'PGTBY ');
|
|
60700 OCODE (PGTCS , 'PGTCS ');
|
|
60710 OCODE (PGT , 'PGT ');
|
|
60720 OCODE (PLEBT , 'PLABT ');
|
|
60730 OCODE (PLECS , 'PLECS ');
|
|
60740 OCODE (PLE , 'PLE ');
|
|
60750 OCODE (PLTBY , 'PLTBY ');
|
|
60760 OCODE (PLTCS , 'PLTCS ');
|
|
60770 OCODE (PLT , 'PLT ');
|
|
60780 OCODE (PNEB , 'PNEB ');
|
|
60790 OCODE (PNECS , 'PNECS ');
|
|
60800 OCODE (PNE , 'PNE ');
|
|
60810 OCODE (PEQB , 'PEQB ');
|
|
60820 OCODE (PEQCS , 'PEQCS ');
|
|
60830 OCODE (PEQ , 'PEQ ');
|
|
60840 OCODE (PEXP , 'PEXP ');
|
|
60850 OCODE (PMOD , 'PMOD ');
|
|
60860 OCODE (POVER , 'POVER ');
|
|
60870 OCODE (PDIV , 'PDIV ');
|
|
60880 OCODE (PMUL , 'PMUL ');
|
|
60890 OCODE (PSUB , 'PSUB ');
|
|
60900 OCODE (PADD , 'PADD ');
|
|
60910 OCODE (PNOOP , 'PNOOP ');
|
|
60920 OCODE (PASP , 'PASP ');
|
|
60930 OCODE (PHOIST , 'PHOIST ');
|
|
60940 OCODE (PSELECT , 'PSELECT ');
|
|
60950 OCODE (PSELECTROW, 'PSELECTROW');
|
|
60960 OCODE (PSTRNGSLICE , 'PSTRNGSLIC');
|
|
60970 OCODE (PSTARTSLICE , 'PSTARTSLIC');
|
|
60980 OCODE (PSLICE1 , 'PSLICE1 ');
|
|
60990 OCODE (PSLICE2 , 'PSLICE2 ');
|
|
61000 OCODE (PSLICEN , 'PSLICEN ');
|
|
61010 OCODE (PCASE , 'PCASE ');
|
|
61020 OCODE (PJMPF , 'PJMPF ');
|
|
61030 OCODE (PLPINIT , 'PLPINIT ');
|
|
61040 OCODE (PRANGENT , 'PRANGENT ');
|
|
61050 OCODE (PRANGEXT , 'PRANGEXT ');
|
|
61060 OCODE (PROUTNENT , 'PROUTNENT ');
|
|
61070 OCODE (PACTDRMULT, 'PACTDRMULT');
|
|
61080 OCODE (PACTDRSTRUCT, 'PACTDRSTRU');
|
|
61090 OCODE (PVARLISTEND , 'PVARLISTEN');
|
|
61100 OCODE (PDCLINIT , 'PDCLINIT ');
|
|
61110 OCODE (PCREATEREF, 'PCREATEREF');
|
|
61120 OCODE (PCHECKDESC, 'PCHECKDESC');
|
|
61130 OCODE (PDCLSP , 'PDCLSP ');
|
|
61140 OCODE (PDECM , 'PDECM ');
|
|
61150 OCODE (PBOUNDS , 'PBOUNDS ');
|
|
61160 OCODE (PLOADRT , 'PLOADRT ');
|
|
61170 OCODE (PLOADRTP , 'PLOADRTP ');
|
|
61180 OCODE (PSCOPETT , 'PSCOPETT ');
|
|
61190 OCODE (PASSIGTT , 'PASSIGTT ');
|
|
61200 OCODE (PSCOPETN , 'PSCOPETN ');
|
|
61210 OCODE (PASSIGTN , 'PASSIGTN ');
|
|
61220 OCODE (PSCOPENT , 'PSCOPENT ');
|
|
61230 OCODE (PASSIGNT , 'PASSIGNT ');
|
|
61240 OCODE (PSCOPENN , 'PSCOPENN ');
|
|
61250 OCODE (PASSIGNN , 'PASSIGNN ');
|
|
61260 OCODE (PSCOPEVAR , 'PSCOPEVAR ');
|
|
61270 OCODE (PSCOPEEXT , 'PSCOPEEXT ');
|
|
61280 OCODE (PLOADVAR , 'PLOADVAR ');
|
|
61290 OCODE (PASGVART , 'PASGVART ');
|
|
61300 OCODE (PGETPROC , 'PGETPROC ');
|
|
61310 OCODE (PIDTYREL , 'PIDTYREL ');
|
|
61320 OCODE (PDEREF , 'PDEREF ');
|
|
61330 OCODE (PGETTOTAL , 'PGETTOTAL ');
|
|
61332 OCODE (PGETMULT , 'PGETMULT ');
|
|
61340 OCODE (PGETTOTCMN, 'PGETTOTCMN');
|
|
61350 OCODE (PVOIDNAKED, 'PVOIDNAKED');
|
|
61360 OCODE (PSKIP , 'PSKIP ');
|
|
61370 OCODE (PSKIPSTRUCT , 'PSKIPSTRUC');
|
|
61380 OCODE (PNIL , 'PNIL ');
|
|
61390 OCODE (PVOIDNORMAL , 'PVOIDNORMA');
|
|
61400 OCODE (PVOIDSPECIAL, 'PVOIDSPECI');
|
|
61410 OCODE (PWIDEN , 'PWIDEN ');
|
|
61420 OCODE (PROWNONMULT , 'PROWNONMUL');
|
|
61430 OCODE (PROWMULT , 'PROWMULT ');
|
|
61440 OCODE (PCALL , 'PCALL ');
|
|
61450 OCODE (PRETURN , 'PRETURN ');
|
|
61460 OCODE (PPARBEGIN , 'PPARBEGIN ');
|
|
61470 OCODE (PLPINCR , 'PLPINCR ');
|
|
61480 OCODE (PLPTEST , 'PLPTEST ');
|
|
61490 OCODE (PGBSTK , 'PGBSTK ');
|
|
61500 OCODE (PLEAPGEN , 'PLEAPGEN ');
|
|
61510 OCODE (PSWAP , 'PSWAP ');
|
|
61520 OCODE (PPREPSTRDISP, 'PPREPSTRDI');
|
|
61530 OCODE (PPREPROWDISP, 'PPREPROWDI');
|
|
61540 OCODE (PCOLLTOTAL, 'PCOLLTOTAL');
|
|
61550 OCODE (PCOLLNAKED, 'PCOLLNAKED');
|
|
61560 OCODE (PCOLLCHECK, 'PCOLLCHECK');
|
|
61570 OCODE (PLINE , 'PLINE ');
|
|
61580 OCODE (PENDSLICE , 'PENDSLICE ');
|
|
61590 OCODE (PTRIM , 'PTRIM ');
|
|
61600 OCODE (PJMP , 'PJMP ');
|
|
61610 OCODE (PPUSH , 'PPUSH ');
|
|
61620 OCODE (PPUSHIM , 'PPUSHIM ');
|
|
61630 OCODE (PGETOUT , 'PGETOUT ');
|
|
61640 OCODE (PSETIB , 'PSETIB ');
|
|
61650 OCODE (PRNSTART , 'PRNSTART ');
|
|
61660 OCODE (PPARM , 'PPARM ');
|
|
61670 OCODE (PNAKEDPTR , 'PNAKEDPTR ');
|
|
61680 OCODE (PPBEGIN , 'PPBEGIN ');
|
|
61690 OCODE (PPEND , 'PPEND ');
|
|
61710 OCODE (PLAST , 'PLAST ');
|
|
61720 OCODE (PPASC , 'PPASC ');
|
|
61730 OCODE (PENVCHAIN , 'PENVCHAIN ');
|
|
61740 OCODE (PDUP1ST , 'PDUP1ST ');
|
|
61750 OCODE (PDUP2ND , 'PDUP2ND ');
|
|
61760 OCODE (PDATALIST , 'PDATALIST ');
|
|
61770 END;
|
|
61780 ()+23*)
|
|
61790 (************************************)
|
|
61800 (* CYBER VERSION *)
|
|
61810 (************************************)
|
|
61820 PROCEDURE INITCODES;
|
|
61830 (*INITIALIZES CODETABLE*)
|
|
61840 CONST
|
|
61850 (*+61() X12 = SBTX12; X45 = SBTX45; ST2 = SBTSTK2; ()+61*)
|
|
61860 X5 = SBTX5; X5S = SBTX5; ST = SBTSTK; O = SBTVOID;
|
|
61870 SN = SBTSTKN; SNS = SBTSTKN; SNP = SBTSTKN; SDL = SBTDL; XN = SBTXN;
|
|
61880 X5P = SBTX5; STP = SBTSTK; X0S = SBTX0; STS = SBTSTK; X6 = SBTX6;
|
|
61890 X0 = SBTX0; X0P = SBTX0; X1 = SBTX1; X1S = SBTX1; X1P = SBTX1;
|
|
61910 PPOPTOX0(*2*)=203; PPOPTOX1(*2*)=205; PPUSHX6=207;
|
|
61920 PLOADX5IM(*2*)=208; PX5TOX0=210; PX5TOX1=211;
|
|
61930 PX6TOX5=212; PX6TOX0=213; PX6TOX1=214; PX1TOX0=215; PLOADX6(*3*)=216;
|
|
61940 QELMBT=219; QNORM=220; QNEGI=221; QABSB=222; QABSB1=223;
|
|
61950 QNAKEDPTR=224; QDIV=225; QDIV1=226; QDIV2=227; QSWAP=228; QSWAP1=229; QCFSTRNG=230;
|
|
61960 QGEBT=231; QRANGENT=232; QWIDEN=233; QLPINIT(*4*)=234; QDCLINIT(*1*)=238;
|
|
61970 PPUSHX0=239; QGETPROC=240; QPARAM1A=241;
|
|
61980 QPBEGIN(*5*)=242;
|
|
61990 QLOADRTA=247; QCHECKDESC=248; QABSI=249; QABSI1=250; QLOADX6=251; QPOPTOX6=252;
|
|
62000 QMUL=253; QMUL1=254; QCAS=255; QVOIDNM=256; QVOIDNM1=257; QVOIDNM2=258; QVOIDNM3=259;
|
|
62010 QASSIGNT(*2*)=260;QCOLLTOTAL(*5*)=262;QSCOPEVAR(*3*)=267;QLOADVAR(*4*)=270;
|
|
62020 QLOADX0=274;QPOPX0=275;QPOPX1=276;
|
|
62030 QDCLSP(*4*)=277; QLOOPINCR(*6*)=281;
|
|
62040 QSETIB(*2*)=287; QPOP1=289; QPASC(*2*)=290;
|
|
62050 QPUSH(*3*)=292; QVASSTX(*4*)=295;
|
|
62060 QRANGEXT(*3*)=299; QLINK=302; QENTER=303; QLINE=304;
|
|
62070 QNOTB=305; QEQ=306; QEQ1=307; QNE=308; QNE1=309; QCALL(*5*)=310; PPOPTOX5=315; QRNSTART(*3*)=316;
|
|
62080 PPUSHX5=319; PLOADX6IM(*2*)=320;PPOPTOX6=322;PX5TOX6=323;
|
|
62090 PLOADX5(*3*)=324;
|
|
62100 PLOADX0(*4*)=327; PLOADX1(*3*)=331;
|
|
62110 QGETTOTCMN(*2*)=334; QGETTOTAL(*6*)=336; QPARM(*5*)=342; QCALLA(*4*)=347;
|
|
62120 QSELECT(*5*)=351; QDECM(*5*)=356; PLOADRTA(*3*)=361;
|
|
62124 PPUSHX1=364; PX1TOX5=365; PX1TOX6=366;
|
|
62130 (*+61()
|
|
62140 QASGVART(*5+)=367; PPUSH2(*3+)=372; QPUSH2(*6+)=375;
|
|
62150 PLOADX12(*3+)=381; QLOADX12=384; PLOADX45(*3+)=385; QLOADX45=388;
|
|
62160 PPUSHX12=389; QPUSHX12(*2+)=390; PPUSHX45=392; QPUSHX45(*2+)=393;
|
|
62170 PPOPTOX12=395; QPOPTOX12(*2+)=396; PPOPTOX45=398; QPOPTOX45(*2+)=399;
|
|
62180 PX12TOX45=401; QX12TOX45=402; PX45TOX12=400;5QX45TOX12=401; 6 3
|
|
62190 QLENGR=402; QMULL(*7+)=403; QADD(*10+)=410;
|
|
62200 ()+61*)
|
|
62210 VAR I: INTEGER;
|
|
62220 PROCEDURE ICODE(OPCOD: POP; COMPASS: ALFA; PNEXT: POP;VP1,VP2,VPR:SBTTYP);
|
|
62230 (*WARNING: THIS PROCEDURE WILL NOT COPE WITH ERRONEOUS COMPASS*)
|
|
62240 LABEL 99;
|
|
62250 CONST SHIFT1=100000B;
|
|
62260 VAR CHA: CHAR;
|
|
62270 II: INTEGER;
|
|
62280 L: PACKED RECORD
|
|
62290 CASE INTEGER OF
|
|
62300 1: (FM: PACKED ARRAY [1..2] OF CHAR;
|
|
62310 LJT, LKT: (B, A, X, KK, STAR);
|
|
62320 LI, LJ, LK: 0..7;
|
|
62330 LOP1, LOP2: (PLUS, MINUS, TIMES, OVER, COMMA, MISSING);
|
|
62340 LKP: BOOLEAN;
|
|
62350 LKK: -400000B..377777B);
|
|
62360 2: (LW: INTEGER)
|
|
62370 (*NOTE THAT LW:=0 SETS LI,LJ,LK TO 0, LOP1,LOP2 TO PLUS AND LJT,LKT TO B*)
|
|
62380 END;
|
|
62390 M: PACKED RECORD
|
|
62400 CASE INTEGER OF
|
|
62410 1: (F: 0..7; M: 0..7; I: 0..7; J: 0..7; K: 0..7);
|
|
62420 2: (MW: 0..77777B)
|
|
62430 END;
|
|
62440 BEGIN WITH L, M DO
|
|
62450 BEGIN
|
|
62460 LW := 0; MW := 0; LKP := FALSE; LKK := 0;
|
|
62470 FM[1] := COMPASS[1]; FM[2] := COMPASS[2];
|
|
62480 CHA := COMPASS[3];
|
|
62490 IF CHA IN ['0'..'9'] THEN BEGIN LI := ORD(CHA)-ORD('0'); II := 4 END
|
|
62500 ELSE II := 3;
|
|
62510 WHILE COMPASS[II]=' ' DO
|
|
62520 IF II=10 THEN GOTO 99 ELSE II := II+1;
|
|
62530 CHA := COMPASS[II];
|
|
62540 IF (CHA='-') AND NOT(COMPASS[II+1] IN ['0'..'9']) THEN
|
|
62550 BEGIN LOP1 := MINUS; II := II+1; CHA := COMPASS[II] END;
|
|
62560 IF CHA IN ['B', 'A', 'X'] THEN
|
|
62570 BEGIN
|
|
62580 IF CHA='B' THEN LJT := B
|
|
62590 ELSE IF CHA='A' THEN LJT := A
|
|
62600 ELSE IF CHA='X' THEN LJT := X;
|
|
62610 LJ := ORD(COMPASS[II+1])-ORD('0');
|
|
62620 II := II+2; CHA := COMPASS[II]
|
|
62630 END
|
|
62640 ELSE LJT := KK;
|
|
62650 LKT := KK;
|
|
62660 IF CHA='+' THEN LOP2 := PLUS
|
|
62670 ELSE IF CHA='-' THEN LOP2 := MINUS
|
|
62680 ELSE IF CHA='*' THEN LOP2 := TIMES
|
|
62690 ELSE IF CHA='/' THEN LOP2 := OVER
|
|
62700 ELSE IF CHA=',' THEN LOP2 := COMMA
|
|
62710 ELSE IF CHA IN ['0'..'9'] THEN
|
|
62720 BEGIN LKK := ORD(CHA)-ORD('0'); LKP := TRUE END
|
|
62730 ELSE BEGIN LKT := B; LOP2 := MISSING END;
|
|
62740 II := II+1; CHA := COMPASS[II];
|
|
62750 IF CHA IN ['B', 'A', 'X'] THEN
|
|
62760 BEGIN
|
|
62770 IF CHA='B' THEN LKT := B
|
|
62780 ELSE IF CHA='A' THEN LKT := A
|
|
62790 ELSE IF CHA='X' THEN LKT := X;
|
|
62800 LK := ORD(COMPASS[II+1])-ORD('0');
|
|
62810 II := II+2
|
|
62820 END
|
|
62830 ELSE LK := 0;
|
|
62840 (*READ K*)
|
|
62850 WHILE II<=10 DO
|
|
62860 BEGIN CHA := COMPASS[II];
|
|
62870 IF CHA IN ['0'..'9'] THEN
|
|
62880 BEGIN LKK := LKK*10+ORD(CHA)-ORD('0'); LKP := TRUE END
|
|
62890 ELSE IF CHA='*' THEN LKT := STAR;
|
|
62900 II := II+1
|
|
62910 END;
|
|
62920 IF LOP2=MINUS THEN
|
|
62930 IF LKP THEN
|
|
62940 BEGIN LKK := -LKK; LOP2 := PLUS END
|
|
62950 ELSE LKK := 1; (*OR ANY ODD NUMBER*)
|
|
62960 99: WITH CODETABLE[OPCOD] DO
|
|
62970 BEGIN
|
|
62980 P1 := VP1;
|
|
62990 P2 := VP2;
|
|
63000 PR := VPR;
|
|
63010 IF (P1=O)AND(P2<>O) THEN WRITELN(OUTPUT,'FAILED ICODE-A');
|
|
63020 IF (P2=ST) THEN WRITELN(OUTPUT,'FAILED ICODE-B');
|
|
63030 IF FM='LB' THEN
|
|
63040 LEN := F0
|
|
63050 ELSE IF FM[1]='S' THEN
|
|
63060 BEGIN
|
|
63070 CASE FM[2] OF
|
|
63080 'A': F := 5;
|
|
63090 'B': F := 6;
|
|
63100 'X': F := 7
|
|
63110 END;
|
|
63120 I := LI; J := LJ;
|
|
63130 CASE LKT OF
|
|
63140 STAR,KK: BEGIN
|
|
63150 LEN := F30;
|
|
63160 CASE LJT OF
|
|
63170 A: M := 0;
|
|
63180 KK,B: M := 1;
|
|
63190 X: M := 2
|
|
63200 END
|
|
63210 END;
|
|
63220 B: BEGIN
|
|
63230 LEN := F15;
|
|
63240 CASE LJT OF
|
|
63250 X: M := 3;
|
|
63260 A: M := 4;
|
|
63270 B: M := 6;
|
|
63280 END;
|
|
63290 IF LOP2=MINUS THEN M := M+1;
|
|
63300 K := LK
|
|
63310 END
|
|
63320 END
|
|
63330 END
|
|
63340 ELSE IF FM='BX' THEN
|
|
63350 BEGIN
|
|
63360 F := 1; LEN := F15;
|
|
63370 I := LI; K := LJ;
|
|
63380 IF LKT=B (*I.E. ABSENT*) THEN
|
|
63390 BEGIN M := 0; J := LJ END
|
|
63400 ELSE
|
|
63410 BEGIN
|
|
63420 CASE LOP2 OF
|
|
63430 TIMES: M := 1;
|
|
63440 PLUS: M := 2;
|
|
63450 MINUS: M := 3
|
|
63460 END;
|
|
63470 J := LK
|
|
63480 END;
|
|
63490 IF LOP1=MINUS THEN M := M+4
|
|
63500 END
|
|
63510 ELSE IF (FM[1] IN ['F', 'D', 'R', 'I', 'C']) AND (FM[2]='X') THEN
|
|
63520 BEGIN
|
|
63530 LEN := F15;
|
|
63540 I := LI; J := LJ; K := LK;
|
|
63550 IF LOP2 IN [PLUS, MINUS] THEN
|
|
63560 BEGIN
|
|
63570 F := 3;
|
|
63580 CASE FM[1] OF
|
|
63590 'F': M := 0;
|
|
63600 'D': M := 2;
|
|
63610 'R': M := 4;
|
|
63620 'I': M := 6
|
|
63630 END;
|
|
63640 IF LOP2=MINUS THEN M := M+1
|
|
63650 END
|
|
63660 ELSE
|
|
63670 BEGIN F := 4;
|
|
63680 CASE FM[1] OF
|
|
63690 'F': M := 0;
|
|
63700 'R': M := 1;
|
|
63710 'D': M := 2;
|
|
63720 'C': BEGIN M := 7; K := LJ END
|
|
63730 END;
|
|
63740 IF LOP2=OVER THEN M := M+4
|
|
63750 END
|
|
63760 END
|
|
63770 ELSE IF (FM[1] IN ['M','L','A','N','Z','U','P']) AND (FM[2]='X') THEN
|
|
63780 BEGIN
|
|
63790 IF LKP THEN
|
|
63800 BEGIN
|
|
63810 MW := LKK; (*SET JK*)
|
|
63820 CASE FM[1] OF
|
|
63830 'M': BEGIN F := 4; M := 3 END;
|
|
63840 'L': BEGIN F := 2; M := 0 END;
|
|
63850 'A': BEGIN F := 2; M := 1 END
|
|
63860 END
|
|
63870 END
|
|
63880 ELSE
|
|
63890 BEGIN F := 2;
|
|
63900 IF LKT=X THEN BEGIN J := LJ; K := LK END
|
|
63910 ELSE BEGIN J := LK; K := LJ END;
|
|
63920 CASE FM[1] OF
|
|
63930 'L': M := 2;
|
|
63940 'A': M := 3;
|
|
63950 'N': M := 4;
|
|
63960 'Z': M := 5;
|
|
63970 'U': M := 6;
|
|
63980 'P': M := 7
|
|
63990 END
|
|
64000 END;
|
|
64010 LEN := F15; I := LI
|
|
64020 END
|
|
64030 ELSE (*JUMP*)
|
|
64040 BEGIN F := 0;
|
|
64050 LEN := F30;
|
|
64060 IF LJT=X THEN
|
|
64070 BEGIN M := 3; J := LJ;
|
|
64080 IF FM='ZR' THEN I := 0
|
|
64090 ELSE IF FM='NZ' THEN I := 1
|
|
64100 ELSE IF FM='PL' THEN I := 2
|
|
64110 ELSE IF FM='NG' THEN I := 3
|
|
64120 ELSE IF FM='IR' THEN I := 4
|
|
64130 ELSE IF FM='OR' THEN I := 5
|
|
64140 ELSE IF FM='DF' THEN I := 6
|
|
64150 ELSE IF FM='ID' THEN I := 7
|
|
64160 ELSE HALT
|
|
64170 END
|
|
64180 ELSE
|
|
64190 BEGIN I := LJ; J := LK;
|
|
64200 IF FM='PS' THEN M := 0
|
|
64210 ELSE IF FM='RJ' THEN M := 1
|
|
64220 ELSE IF FM='JP' THEN M := 2
|
|
64230 ELSE IF FM='EQ' THEN M := 4
|
|
64240 ELSE IF FM='NE' THEN M := 5
|
|
64250 ELSE IF FM='GE' THEN M := 6
|
|
64260 ELSE IF FM='LE' THEN BEGIN M := 6; I := LJ; J := LI END
|
|
64270 ELSE IF FM='LT' THEN M := 7
|
|
64280 ELSE IF FM='GT' THEN BEGIN M := 7; I := LJ; J := LI END
|
|
64290 ELSE IF FM='NO' THEN BEGIN F := 4; M := 6; LEN := F15 END
|
|
64300 ELSE HALT
|
|
64310 END
|
|
64320 END;
|
|
64330 REL := 0;
|
|
64340 IF LEN=F15 THEN FMIJK := MW
|
|
64350 ELSE IF (LKP) AND (LKT<>STAR) THEN
|
|
64360 IF LKK>=0 THEN FMIJK := MW*SHIFT1+LKK
|
|
64370 ELSE FMIJK := MW*SHIFT1+LKK+1000000B
|
|
64380 ELSE IF LEN=F30 THEN
|
|
64390 IF (LKT <> STAR) AND (LOP2<>MISSING) THEN
|
|
64400 BEGIN LEN := F30K; FMIJK := MW*SHIFT1+LKK END
|
|
64410 ELSE BEGIN FMIJK := MW*SHIFT1; REL := LKK END;
|
|
64420 INLINE := TRUE;
|
|
64430 NEXT := PNEXT
|
|
64440 END
|
|
64450 END
|
|
64460 END;
|
|
64470 PROCEDURE OCODE(OPCOD: POP; PROUTINE: ALFA;VP1,VP2,VPR:SBTTYP);
|
|
64480 VAR I: INTEGER;
|
|
64490 BEGIN
|
|
64500 WITH CODETABLE[OPCOD] DO
|
|
64510 BEGIN
|
|
64520 P1 := VP1;
|
|
64530 P2 := VP2;
|
|
64540 PR := VPR;
|
|
64550 IF (P1=O)AND(P2<>O) THEN WRITELN(OUTPUT,'FAILED OCODE-A');
|
|
64560 IF P2=ST THEN WRITELN(OUTPUT,'FAILED OCODE-B');
|
|
64570 INLINE := FALSE;
|
|
64580 LINKINS := NIL;
|
|
64590 FOR I := 1 TO 7 DO ROUTINE[I] := PROUTINE[I]
|
|
64600 END
|
|
64610 END;
|
|
64620 (**)
|
|
64630 PROCEDURE QCODE (OPCOD:POP; COMPASS:ALFA; PNEXT:POP );
|
|
64640 BEGIN ICODE(OPCOD, COMPASS, PNEXT, O, O ,O ) END;
|
|
64650 (**)
|
|
64660 PROCEDURE FIRSTPART;
|
|
64670 VAR I: INTEGER;
|
|
64680 BEGIN FOR I := PNONE TO PLAST DO OCODE(I, 'DUMMY ', O , O , O );
|
|
64690 (**)
|
|
64700 ICODE(PPBEGIN , 'SB7 2 ', QPBEGIN ,O ,O ,O );
|
|
64710 QCODE(QPBEGIN , 'RJ B0+ ', 0);
|
|
64720 ICODE(PPBEGIN+1 , 'SB6 B2+ ', QPBEGIN+1 ,O ,O ,O );
|
|
64730 QCODE(QPBEGIN+1 , 'SB7 B6+100', QPBEGIN+2);
|
|
64740 QCODE(QPBEGIN+2 , 'SA0 5 ', QPBEGIN+3);
|
|
64750 QCODE(QPBEGIN+3 , 'GEB7,B4,41', QPBEGIN+4);
|
|
64760 OCODE(QPBEGIN+4 , 'START68 ' ,O ,O ,O );
|
|
64770 OCODE(PPEND , 'STOP68 ' ,O ,O ,O );
|
|
64780 OCODE(PPOP , ' ' ,O ,O ,O );
|
|
64790 ICODE(PABSI , 'BX3 X1 ', QABSI ,X1 ,O ,X1 );
|
|
64800 QCODE(QABSI , 'AX3 59 ', QABSI1);
|
|
64810 QCODE(QABSI1 , 'BX1 X1-X3 ', 0);
|
|
64820 ICODE(PABSI-2 , 'BX3 X1 ', QABSI ,X1 ,O ,X1 );
|
|
64830 OCODE(PABSI-4 , 'CABSI ' ,X0 ,O ,X6 );
|
|
64840 ICODE(PABSB , 'MX3 1 ', QABSB ,X1 ,O ,X1 );
|
|
64850 QCODE(QABSB , 'BX1 X1*X3 ', QABSB1);
|
|
64860 QCODE(QABSB1 , 'LX1 1 ', 0);
|
|
64870 ICODE(PABSB-1 , 'NO ', 0 ,X1 ,O ,X1 );
|
|
64880 ICODE(PABSCH , 'NO ', 0 ,X1 ,O ,X1 );
|
|
64890 ICODE(PADD , 'IX1 X5+X1 ', 0 ,X5 ,X1 ,X1 );
|
|
64900 ICODE(PADD-2 , 'RX1 X5+X1 ', QNORM ,X5 ,X1 ,X1 );
|
|
64910 (*+61()
|
|
64920 ICODE(PADD-3 , 'FX3 X1+X4 ', QADD ,X45,X12,X12);
|
|
64930 QCODE(QADD , 'DX4 X1+X4 ', QADD+1);
|
|
64940 QCODE(QADD+1 , 'NX3 X3 ', QADD+2);
|
|
64950 QCODE(QADD+2 , 'RX5 X2+X5 ', QADD+3);
|
|
64960 QCODE(QADD+3 , 'RX5 X4+X5 ', QADD+4);
|
|
64970 QCODE(QADD+4 , 'FX4 X3+X5 ', QADD+5);
|
|
64980 QCODE(QADD+5 , 'NX4 X4 ', QADD+6);
|
|
64990 QCODE(QADD+6 , 'DX5 X3+X5 ', QADD+7);
|
|
65000 QCODE(QADD+7 , 'NX5 X5 ', QADD+8);
|
|
65010 QCODE(QADD+8 , 'FX1 X4+X5 ', QADD+9);
|
|
65020 QCODE(QADD+9 , 'DX2 X4+X5 ', 0);
|
|
65030 ()+61*)
|
|
65040 OCODE(PADD-4 , 'CPLUS ' ,X0 ,X1 ,X6 );
|
|
65050 ICODE(PANDB , 'BX1 X1*X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65060 ICODE(PANDB-1 , 'BX1 X1*X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65070 OCODE(PARG , 'CARG ' ,X0 ,O ,X6 );
|
|
65080 ICODE(PBIN , 'NO ', 0 ,X1 ,O ,X1 );
|
|
65090 OCODE(PCAT , 'CATCC ' ,X0 ,X1 ,X6 );
|
|
65100 OCODE(PCAT-1 , 'CATSS ' ,X0 ,X1 ,X6 );
|
|
65110 OCODE(PCONJ , 'CCONJ ' ,X0 ,O ,X6 );
|
|
65120 ICODE(PDIV , 'PX5 X5 ', QDIV ,X5 ,X1 ,X1 );
|
|
65130 QCODE(QDIV , 'NX5 X5 ', QDIV1);
|
|
65140 QCODE(QDIV1 , 'PX1 X1 ', QDIV2);
|
|
65150 QCODE(QDIV2 , 'NX1 X1 ', PDIV-2);
|
|
65160 ICODE(PDIV-2 , 'RX1 X5/X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65170 OCODE(PDIV-4 , 'CDIV ' ,X0 ,X1 ,X6 );
|
|
65180 ICODE(PDIVAB , 'RX1 X5/X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65190 OCODE(PDIVAB-2 , 'CDIVAB ' ,X0 ,X1 ,X6 );
|
|
65200 ICODE(PELMBT , 'SB3 X5-1 ', QELMBT ,X5 ,X1 ,X1 );
|
|
65210 QCODE(QELMBT , 'LX1 B3,X1 ', 0);
|
|
65220 OCODE(PELMBY , 'ELEMBY ' ,X5 ,X1 ,X1 );
|
|
65230 OCODE(PENTI , 'ENTIER ' ,X1 ,O ,X1 );
|
|
65240 ICODE(PEQ , 'IX3 X1-X5 ', QEQ ,X5 ,X1 ,X1 );
|
|
65250 QCODE(QEQ , 'IX1 X5-X1 ', QEQ1);
|
|
65260 QCODE(QEQ1 , 'BX1 -X1-X3', 0);
|
|
65270 ICODE(PEQ-2 , 'IX3 X1-X5 ', QEQ ,X5 ,X1 ,X1 );
|
|
65280 OCODE(PEQ-4 , 'CEQ ' ,X0 ,X1 ,X6 );
|
|
65290 ICODE(PEQB , 'BX1 -X1-X5', 0 ,X5 ,X1 ,X1 );
|
|
65300 ICODE(PEQB-1 , 'IX3 X1-X5 ', QEQ ,X5 ,X1 ,X1 );
|
|
65310 ICODE(PEQB-2 , 'IX3 X1-X5 ', QEQ ,X5 ,X1 ,X1 );
|
|
65320 ICODE(PEQCS , 'IX3 X1-X5 ', QEQ ,X5 ,X1 ,X1 );
|
|
65330 ICODE(PEQCS-1 , 'SX2 2 ', QCFSTRNG ,X0 ,X1 ,X6 );
|
|
65340 OCODE(PEXP , 'POWI ' ,X5 ,X1 ,X1 );
|
|
65350 OCODE(PEXP-2 , 'POWR ' ,X5 ,X1 ,X1 );
|
|
65360 OCODE(PEXP-4 , 'CPOW ' ,X0 ,X1 ,X6 );
|
|
65370 ICODE(PPASC , 'SX6 B5 ', QPASC ,SDL,O ,X6 );
|
|
65380 ICODE(PPASC+1 , 'SX6 B5 ', QPASC ,X0S,O ,X6 );
|
|
65390 ICODE(PPASC+2 , 'SX6 B5 ', QPASC ,X0S,X1 ,X6 );
|
|
65400 OCODE(PPASC+3 , 'PASC ' ,STS,O ,X6 );
|
|
65410 QCODE(QPASC , 'SX7 2* ', QPASC+1);
|
|
65420 QCODE(QPASC+1 , 'EQ B0+ ', 0);
|
|
65430 ICODE(PENVCHAIN , 'SA3 B5 ', 0 ,O ,O ,O );
|
|
65440 ICODE(PENVCHAIN+1 , 'SA3 X3 ', 0 ,O ,O ,O );
|
|
65450 ICODE(PGE , 'IX1 X5-X1 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65460 ICODE(PGE-2 , 'IX1 X5-X1 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65470 ICODE(PGEBT , 'BX1 -X5*X1', QGEBT ,X5 ,X1 ,X1 );
|
|
65480 QCODE(QGEBT , 'BX5 X5-X5 ', PEQ);
|
|
65490 ICODE(PGEBT-1 , 'IX1 X5-X1 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65500 ICODE(PGECS , 'IX1 X5-X1 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65510 ICODE(PGECS-1 , 'SX2 4 ', QCFSTRNG ,X0 ,X1 ,X6 );
|
|
65520 ICODE(PGT , 'IX1 X1-X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65530 ICODE(PGT-2 , 'IX1 X1-X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65540 ICODE(PGTBY , 'IX1 X1-X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65550 ICODE(PGTCS , 'IX1 X1-X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65560 ICODE(PGTCS-1 , 'SX2 5 ', QCFSTRNG ,X0 ,X1 ,X6 );
|
|
65570 OCODE(PIM , 'CIM ' ,X0 ,O ,X6 );
|
|
65580 ICODE(PLE , 'IX1 X1-X5 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65590 ICODE(PLE-2 , 'IX1 X1-X5 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65600 ICODE(PLEBT , 'BX1 -X1*X5', QGEBT ,X5 ,X1 ,X1 );
|
|
65610 ICODE(PLEBT-1 , 'IX1 X1-X5 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65620 ICODE(PLECS , 'IX1 X1-X5 ', PNOTB ,X5 ,X1 ,X1 );
|
|
65630 ICODE(PLECS-1 , 'SX2 B1 ', QCFSTRNG ,X0 ,X1 ,X6 );
|
|
65640 (*+61()
|
|
65650 ICODE(PLENGR , 'BX2 X2-X2 ', QLENGR ,X1 ,O ,X12);
|
|
65660 QCODE(QLENGR , 'DX2 X1+X2 ', 0);
|
|
65670 ()+61*)
|
|
65680 ICODE(PLT , 'IX1 X5-X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65690 ICODE(PLT-2 , 'IX1 X5-X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65700 ICODE(PLTBY , 'IX1 X5-X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65710 ICODE(PLTCS , 'IX1 X5-X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65720 ICODE(PLTCS-1 , 'SX2 B0 ', QCFSTRNG ,X0 ,X1 ,X6 );
|
|
65730 OCODE(PLWBMSTR , 'LWBMSTR ' ,X0 ,O ,X6 );
|
|
65740 OCODE(PLWBM , 'LWBM ' ,X0 ,O ,X6 );
|
|
65750 OCODE(PLWB , 'LWB ' ,X0 ,X1 ,X6 );
|
|
65760 ICODE(PMINUSAB , 'IX1 X5-X1 ', 0 ,X5 ,X1 ,X1 );
|
|
65770 ICODE(PMINUSAB-2 , 'RX1 X5-X1 ', QNORM ,X5 ,X1 ,X1 );
|
|
65780 OCODE(PMINUSAB-4 , 'CMINAB ' ,X0 ,X1 ,X6 );
|
|
65790 OCODE(PMOD , 'MOD ' ,X5 ,X1 ,X1 );
|
|
65800 OCODE(PMODAB , 'MOD ' ,X5 ,X1 ,X1 );
|
|
65810 ICODE(PMUL , 'DX1 X1*X5 ', QMUL ,X5 ,X1 ,X1 );
|
|
65820 QCODE(QMUL , 'BX3 X3-X3 ', QMUL1);
|
|
65830 QCODE(QMUL1 , 'IX1 X1+X3 ', 0);
|
|
65840 ICODE(PMUL-2 , 'RX1 X1*X5 ', 0 ,X5 ,X1 ,X1 );
|
|
65850 (*+61()
|
|
65860 ICODE(PMUL-3 , 'RX2 X2*X4 ', QMULL ,X45,X12,X12);
|
|
65870 QCODE(QMULL , 'RX5 X1*X5 ', QMULL+1);
|
|
65880 QCODE(QMULL+1 , 'RX2 X2+X5 ', QMULL+2);
|
|
65890 QCODE(QMULL+2 , 'FX3 X1*X4 ', QMULL+3);
|
|
65900 QCODE(QMULL+3 , 'DX4 X1*X4 ', QMULL+4);
|
|
65910 QCODE(QMULL+4 , 'RX4 X4+X2 ', QMULL+5);
|
|
65920 QCODE(QMULL+5 , 'FX1 X3+X4 ', QMULL+6);
|
|
65930 QCODE(QMULL+6 , 'DX2 X3+X4 ', 0);
|
|
65940 ()+61*)
|
|
65950 OCODE(PMUL-4 , 'CTIMS ' ,X0 ,X1 ,X6 );
|
|
65960 OCODE(PMULCI , 'MULCI ' ,X0 ,X1 ,X6 );
|
|
65970 OCODE(PMULCI-1 , 'MULSI ' ,X0 ,X1 ,X6 );
|
|
65980 OCODE(PMULIC , 'MULIC ' ,X0 ,X1 ,X6 );
|
|
65990 OCODE(PMULIC-1 , 'MULIS ' ,X0 ,X1 ,X6 );
|
|
66000 ICODE(PNE , 'IX3 X1-X5 ', QNE ,X5 ,X1 ,X1 );
|
|
66010 QCODE(QNE , 'IX1 X5-X1 ', QNE1);
|
|
66020 QCODE(QNE1 , 'BX1 X1-X3 ', 0);
|
|
66030 ICODE(PNE-2 , 'IX3 X1-X5 ', QNE ,X5 ,X1 ,X1 );
|
|
66040 OCODE(PNE-4 , 'CNE ' ,X0 ,X1 ,X6 );
|
|
66050 ICODE(PNEB , 'BX1 X1-X5 ', 0 ,X5 ,X1 ,X1 );
|
|
66060 ICODE(PNEB-1 , 'IX3 X1-X5 ', QNE ,X5 ,X1 ,X1 );
|
|
66070 ICODE(PNEB-2 , 'IX3 X1-X5 ', QNE ,X5 ,X1 ,X1 );
|
|
66080 ICODE(PNECS , 'IX3 X1-X5 ', QNE ,X5 ,X1 ,X1 );
|
|
66090 ICODE(PNECS-1 , 'SX2 3 ', QCFSTRNG ,X0 ,X1 ,X6 );
|
|
66100 ICODE(PNEGI , 'BX3 X3-X3 ', QNEGI ,X1 ,O ,X1 );
|
|
66110 QCODE(QNEGI , 'IX1 X3-X1 ', 0);
|
|
66120 ICODE(PNEGI-2 , 'BX3 X3-X3 ', QNEGI ,X1 ,O ,X1 );
|
|
66130 OCODE(PNEGI-4 , 'CNEGI ' ,X0 ,O ,X6 );
|
|
66140 ICODE(PNOTB , 'MX3 1 ', QNOTB ,X1 ,O ,X1 );
|
|
66150 QCODE(QNOTB , 'BX1 X3-X1 ', 0);
|
|
66160 ICODE(PNOTB-1 , 'BX3 X3-X3 ', QEQ1 ,X1 ,O ,X1 );
|
|
66170 ICODE(PNOOP , 'NO ', 0 ,X1 ,O ,X1 );
|
|
66180 ICODE(PNOOP-2 , 'NO ', 0 ,X1 ,O ,X1 );
|
|
66190 ICODE(PNOOP-4 , 'NO ', 0 ,X1 ,O ,X1 );
|
|
66200 ICODE(PODD , 'LX1 59 ', 0 ,X1 ,O ,X1 );
|
|
66210 ICODE(PORB , 'BX1 X1+X5 ', 0 ,X5 ,X1 ,X1 );
|
|
66220 ICODE(PORB-1 , 'BX1 X1+X5 ', 0 ,X5 ,X1 ,X1 );
|
|
66230 OCODE(POVER , 'OVER ' ,X5 ,X1 ,X1 );
|
|
66240 OCODE(POVERAB , 'OVER ' ,X5 ,X1 ,X1 );
|
|
66250 OCODE(PPLITM , 'CRCOMPLEX ' ,X0 ,X1 ,X6 );
|
|
66260 ICODE(PPLSAB , 'IX1 X5+X1 ', 0 ,X5 ,X1 ,X1 );
|
|
66270 ICODE(PPLSAB-2 , 'RX1 X5+X1 ', QNORM ,X5 ,X1 ,X1 );
|
|
66280 (*+61()
|
|
66290 ICODE(PPLSAB-3 , 'FX3 X1+X4 ', QADD ,X45,X12,X12);
|
|
66300 ()+61*)
|
|
66310 OCODE(PPLSAB-4 , 'CPLUSAB ' ,X0 ,X1 ,X6 );
|
|
66320 OCODE(PPLSABS , 'PLABSS ' ,X0 ,X1 ,X6 );
|
|
66330 OCODE(PPLSABS-1 , 'PLABSS ' ,X0 ,X1 ,X6 );
|
|
66340 OCODE(PPLSTOCS , 'PLTOSS ' ,X0 ,X1 ,X6 );
|
|
66350 OCODE(PPLSTOCS-1 , 'PLTOSS ' ,X0 ,X1 ,X6 );
|
|
66360 OCODE(PRE , 'CRE ' ,X0 ,O ,X6 );
|
|
66370 ICODE(PREPR , 'NO ', 0 ,X1 ,O ,X1 );
|
|
66380 OCODE(PROUN , 'ROUN ' ,X1 ,O ,X1 );
|
|
66390 OCODE(PSGNI , 'SIGN ' ,X1 ,O ,X1 );
|
|
66400 OCODE(PSGNI-2 , 'SIGN ' ,X1 ,O ,X1 );
|
|
66410 OCODE(PSHL , 'SHL ' ,X5 ,X1 ,X1 );
|
|
66420 (*+61()
|
|
66430 ICODE(PSHRTR , 'RX1 X1+X2 ', QNORM ,X12,O ,X1 );
|
|
66440 ()+61*)
|
|
66450 OCODE(PSHR , 'SHR ' ,X5 ,X1 ,X1 );
|
|
66460 ICODE(PSUB , 'IX1 X5-X1 ', 0 ,X5 ,X1 ,X1 );
|
|
66470 ICODE(PSUB-2 , 'RX1 X5-X1 ', QNORM ,X5 ,X1 ,X1 );
|
|
66480 OCODE(PSUB-4 , 'CMINUS ' ,X0 ,X1 ,X6 );
|
|
66490 ICODE(PTIMSAB , 'DX1 X5*X1 ', 0 ,X5 ,X1 ,X1 );
|
|
66500 ICODE(PTIMSAB-2 , 'RX1 X1*X5 ', 0 ,X5 ,X1 ,X1 );
|
|
66510 (*+61()
|
|
66520 ICODE(PTIMSAB-3 , 'RX2 X2*X4 ', QMULL ,X45,X12,X12);
|
|
66530 ()+61*)
|
|
66540 OCODE(PTIMSAB-4 , 'CTIMSAB ' ,X0 ,X1 ,X6 );
|
|
66550 OCODE(PTIMSABS , 'MULABSI ' ,X0 ,X1 ,X6 );
|
|
66560 OCODE(PUPBMSTR , 'UPBMSTR ' ,X0 ,O ,X6 );
|
|
66570 OCODE(PUPBM , 'UPBM ' ,X0 ,O ,X6 );
|
|
66580 OCODE(PUPB , 'UPB ' ,X0 ,X1 ,X6 );
|
|
66590 OCODE(QCFSTRNG , 'CFSTR ' ,O ,O ,O );
|
|
66600 QCODE(QNORM , 'NX1 B0,X1 ', 0);
|
|
66610 END;
|
|
66620 PROCEDURE SECONDPART;
|
|
66630 BEGIN
|
|
66640 ICODE(PGETPROC , 'SA3 B6+ ', QGETPROC ,O ,O ,O );
|
|
66650 QCODE(QGETPROC , 'BX0 X3 ', PGETPROC+1);
|
|
66660 OCODE(PGETPROC+1 , 'GETPROC ' ,X0 ,O ,O );
|
|
66670 ICODE(PSELECT , 'SA3 X1+B1 ', QSELECT+1 ,X1 ,O ,X1 );
|
|
66672 QCODE(QSELECT+1 , 'AX3 25 ', QSELECT+2);
|
|
66673 QCODE(QSELECT+2 , 'SX3 X3+ ', QSELECT+3);
|
|
66674 QCODE(QSELECT+3 , 'LX1 42 ', QSELECT+4);
|
|
66676 QCODE(QSELECT+4 , 'BX1 X1+X3 ', 0);
|
|
66678 ICODE(PSELECT+1 , 'SX3 B1+ ', QSELECT+3 ,X1 ,O ,X1 );
|
|
66680 ICODE(PSELECT+2 , 'SX3 B0+ ', QSELECT ,X0 ,O ,X0 );
|
|
66690 QCODE(QSELECT , 'IX0 X0+X3 ', 0);
|
|
66700 OCODE(PSELECTROW , 'SELECTR ' ,X0 ,O ,X6 );
|
|
66710 OCODE(PSTRNGSLICE , 'STRSUB ' ,X0 ,X1 ,X6 );
|
|
66720 OCODE(PSTRNGSLICE+1,'STRTRIM ' ,X0S,O ,X6 );
|
|
66730 OCODE(PSTARTSLICE , 'STARTSL ' ,STP,O ,O );
|
|
66740 OCODE(PSLICE1 , 'SLICE1 ' ,X0 ,X1 ,X0 );
|
|
66750 OCODE(PSLICE2 , 'SLICE2 ' ,X0S,X1 ,X0 );
|
|
66760 OCODE(PSLICEN , 'SLICEN ' ,X0S,O ,X6 );
|
|
66770 ICODE(PCASE , 'SA3 + ', QCAS ,X1 ,O ,O );
|
|
66780 OCODE(QCAS , 'CASE ' ,O ,O ,O );
|
|
66785 ICODE(PCASJMP , 'EQ B0, ', 0 ,O ,O ,O );
|
|
66787 ICODE(PCASJMP+1 , 'EQ B0, ', 0 ,O ,O ,O );
|
|
66790 ICODE(PJMPF , 'PL X1, ', 0 ,X1 ,O ,O );
|
|
66800 ICODE(PLPINIT , 'SX1 B5+ ', QLPINIT ,X0S,O ,X6 );
|
|
66810 OCODE(QLPINIT , 'LINIT1 ' ,O ,O ,O );
|
|
66820 ICODE(PLPINIT+1 , 'SX1 B5+ ', QLPINIT+1 ,X0S,O ,X6 );
|
|
66830 OCODE(QLPINIT+1 , 'LINIT2 ' ,O ,O ,O );
|
|
66840 ICODE(PLPINIT+2 , 'SX1 B5+ ', QLPINIT+2 ,X0S,O ,O );
|
|
66850 OCODE(QLPINIT+2 , 'LINIT3 ' ,O ,O ,O );
|
|
66860 ICODE(PLPINIT+3 , 'SX1 B5+ ', QLPINIT+3 ,X0S,O ,O );
|
|
66870 OCODE(QLPINIT+3 , 'LINIT4 ' ,O ,O ,O );
|
|
66880 ICODE(PLPTEST , 'ZR X6, ', 0 ,X6 ,O ,O );
|
|
66888 ICODE(PLPINCR , 'SX0 B5+ ', QLOOPINCR+5 ,O ,O ,X6 );
|
|
66890 OCODE(QLOOPINCR+5 , 'LOOPINC ' ,O ,O ,O );
|
|
66900 ICODE(PLPINCR+1 , 'SA4 B5+ ', QLOOPINCR ,O ,O ,X6 );
|
|
66910 QCODE(QLOOPINCR , 'SX3 B1 ', QLOOPINCR+1);
|
|
66920 QCODE(QLOOPINCR+1 , 'IX7 X4+X3 ', QLOOPINCR+2);
|
|
66930 QCODE(QLOOPINCR+2 , 'SA7 A4 ', QLOOPINCR+3);
|
|
66940 QCODE(QLOOPINCR+3 , 'SA3 A4+B1 ', QLOOPINCR+4);
|
|
66950 QCODE(QLOOPINCR+4 , 'IX6 X3-X4 ', 0);
|
|
66960 ICODE(PRANGENT , 'SX2 B5+ ', QRANGENT ,O ,O ,O );
|
|
66970 OCODE(QRANGENT , 'RANGENT ' ,O ,O ,O );
|
|
66980 OCODE(PRANGEXT , 'RANGEXT ' ,O ,O ,O );
|
|
66990 ICODE(PRANGEXT+1 , 'SA3 B5+12 ', QRANGEXT ,O ,O ,O );
|
|
67000 QCODE(QRANGEXT , 'SA2 X3+2 ', QRANGEXT+1);
|
|
67010 QCODE(QRANGEXT+1 , 'BX7 X2 ', QRANGEXT+2);
|
|
67020 QCODE(QRANGEXT+2 , 'SA7 A3 ', 0);
|
|
67030 OCODE(PRANGEXT+2 , 'RANGXTP ' ,X0 ,O ,X6 );
|
|
67032 OCODE(PRECGEN , 'DORECGE ' ,O ,O ,O );
|
|
67040 OCODE(PACTDRMULT , 'CRMULT ' ,X0 ,O ,X6 );
|
|
67050 OCODE(PACTDRSTRUCT, 'CRSTRUC ' ,O ,O ,X6 );
|
|
67060 OCODE(PCHECKDESC , 'CHKDESC ' ,X0 ,X1 ,X6 );
|
|
67070 OCODE(PVARLISTEND , 'GARBAGE ' ,X0 ,O ,O );
|
|
67080 ICODE(PVARLISTEND+1,'SB6 B6-B1 ', 0 ,ST ,O ,O );
|
|
67090 ICODE(PDCLINIT , 'SA3 B2+328', QDCLINIT ,O ,O ,O ); (*FIRSTVAR*)
|
|
67100 QCODE(QDCLINIT , 'BX7 X3 ',0);
|
|
67110 ICODE(PDCLINIT+1 , 'SA3 B2+329', QDCLINIT ,O ,O ,O ); (*FIRSTVAR+1*)
|
|
67120 ICODE(PDCLINIT+2 , 'SA7 B5+ ',0 ,O ,O ,O );
|
|
67130 ICODE(PPARM , 'SA3 B5+ ', QPARM ,O ,O ,O );
|
|
67140 QCODE(QPARM , 'SA2 X3 ', QPARM+1);
|
|
67150 QCODE(QPARM+1 , 'SX7 B1 ', QPARM+2);
|
|
67160 QCODE(QPARM+2 , 'LX7 47 ', QPARM+3);
|
|
67170 QCODE(QPARM+3 , 'IX7 X2+X7 ', QPARM+4);
|
|
67180 QCODE(QPARM+4 , 'SA7 A2 ', 0);
|
|
67210 OCODE(PCREATEREF , 'CRREFN ' ,X0 ,O ,X6 );
|
|
67220 OCODE(PCREATEREF+1, 'CRRECN ' ,X0 ,O ,X6 );
|
|
67230 OCODE(PCREATEREF+2, 'CRREFR ' ,X0 ,O ,X6 );
|
|
67240 OCODE(PCREATEREF+3, 'CRRECR ' ,X0 ,O ,X6 );
|
|
67260 ICODE(PDCLSP , 'SA6 B5+ ', 0 ,X6 ,O ,O );
|
|
67270 ICODE(PDCLSP+1 , 'SA3 X6 ', QDCLSP ,X6 ,O ,O );
|
|
67280 QCODE(QDCLSP , 'SX7 B1 ', QDCLSP+1);
|
|
67290 QCODE(QDCLSP+1 , 'LX7 47 ', QDCLSP+2);
|
|
67300 QCODE(QDCLSP+2 , 'IX7 X3+X7 ', QDCLSP+3);
|
|
67310 QCODE(QDCLSP+3 , 'SA7 A3 ', PDCLSP);
|
|
67320 OCODE(PDCLSP+2 , 'DCLSN ' ,SNS,O ,O );
|
|
67330 OCODE(PDCLSP+3 , 'DCLPN ' ,SNS,O ,O );
|
|
67340 ICODE(PFIXRG , 'SX7 B5+ ', 0 , O ,O ,O );
|
|
67350 ICODE(PFIXRG+1 , 'SA7 B5+ ', 0 , O ,O ,O );
|
|
67360 OCODE(PBOUNDS , 'BOUND ' ,STS,O ,X6 );
|
|
67370 ICODE(PLOADVAR , 'SX1 B5+ ', QLOADVAR ,O ,O ,X6 );
|
|
67380 QCODE(QLOADVAR , 'SX2 B5 ', QLOADVAR+1);
|
|
67390 OCODE(QLOADVAR+1 , 'GLDVAR ' ,O ,O ,O );
|
|
67400 ICODE(PLOADVAR+1 , 'SX1 B2+ ', QLOADVAR+2 ,O ,O ,X6 );
|
|
67410 QCODE(QLOADVAR+2 , 'SX2 B2+345', QLOADVAR+1); (*FIRSTIBOFFSET*)
|
|
67420 ICODE(PLOADVAR+2 , 'SX1 X3+ ', QLOADVAR+3 ,O ,O ,X6 );
|
|
67430 QCODE(QLOADVAR+3 , 'SX2 X3 ', QLOADVAR+1);
|
|
67440 OCODE(PLOADRT , 'ROUTN ' ,O ,O ,X6 );
|
|
67450 ICODE(PLOADRTA , 'SX1 B5+ ', QLOADRTA ,O ,O ,X6 );
|
|
67460 ICODE(PLOADRTA+1 , 'SX1 B2+ ', QLOADRTA ,O ,O ,X6 );
|
|
67470 ICODE(PLOADRTA+2 , 'SX1 X3+ ', QLOADRTA ,O ,O ,X6 );
|
|
67480 OCODE(QLOADRTA , 'ROUTNA ' ,O ,O ,O );
|
|
67490 OCODE(PLOADRTP , 'ROUTNP ' ,X0 ,O ,X6 );
|
|
67500 OCODE(PSCOPETT+2 , 'TASSTPT ' ,X0 ,X1 ,X6 );
|
|
67510 OCODE(PSCOPETT+3 , 'SCPTTP ' ,X0 ,X1 ,X6 );
|
|
67520 OCODE(PSCOPETT+4 , 'SCPTTM ' ,X0 ,X1 ,X6 );
|
|
67530 OCODE(PASSIGTT , 'TASSTS ' ,X0 ,X1 ,X6 );
|
|
67540 (*+61()
|
|
67550 OCODE(PASSIGTT+1 , 'TASSTS2 ' ,X0 ,X12,X6 );
|
|
67560 ()+61*)
|
|
67570 OCODE(PASSIGTT+2 , 'TASSTPT ' ,X0 ,X1 ,X6 );
|
|
67580 OCODE(PASSIGTT+3 , 'TASSTP ' ,X0 ,X1 ,X6 );
|
|
67590 OCODE(PASSIGTT+4 , 'TASSTM ' ,X0 ,X1 ,X6 );
|
|
67600 OCODE(PSCOPETN , 'SCPTNP ' ,X0 ,X1 ,X6 );
|
|
67610 OCODE(PASSIGTN , 'TASSNP ' ,X0 ,X1 ,X6 );
|
|
67620 OCODE(PSCOPENT+2 , 'SCPNTPT ' ,X0 ,X1 ,X6 );
|
|
67630 OCODE(PSCOPENT+3 , 'SCPNTP ' ,X0 ,X1 ,X6 );
|
|
67640 OCODE(PASSIGNT , 'NASSTS ' ,X0 ,X1 ,X6 );
|
|
67650 OCODE(PASSIGNT+1 , 'NASSTS2 ' ,X0 ,X1 ,X6 );
|
|
67660 OCODE(PASSIGNT+2 , 'NASSTPT ' ,X0 ,X1 ,X6 );
|
|
67670 OCODE(PASSIGNT+3 , 'NASSTP ' ,X0 ,X1 ,X6 );
|
|
67690 OCODE(PSCOPENN , 'SCPNNP ' ,X0 ,X1 ,X6 );
|
|
67700 OCODE(PASSIGNN , 'NASSNP ' ,X0 ,X1 ,X6 );
|
|
67710 ICODE(PSCOPEVAR , 'SX2 B5+ ', QSCOPEVAR ,X0 ,O ,O );
|
|
67720 QCODE(QSCOPEVAR , 'SX3 B5 ', QSCOPEVAR+1);
|
|
67730 OCODE(QSCOPEVAR+1 , 'GVSCOPE ' ,O ,O ,O );
|
|
67740 ICODE(PSCOPEVAR+1 , 'SX2 B2+ ', QSCOPEVAR+2 ,X0 ,O ,O );
|
|
67750 QCODE(QSCOPEVAR+2 , 'SX3 B2+345', QSCOPEVAR+1);
|
|
67760 ICODE(PSCOPEVAR+2 , 'SX2 X3+ ', QSCOPEVAR+1 ,X0 ,O ,O );
|
|
67770 OCODE(PSCOPEEXT , 'SCOPEXT ' ,X0 ,O ,X6 );
|
|
67780 ICODE(PASGVART , 'SA6 B5+ ', 0 ,X6 ,O ,O );
|
|
67790 ICODE(PASGVART+1 , 'SA6 B2+ ', 0 ,X6 ,O ,O );
|
|
67800 ICODE(PASGVART+2 , 'SA6 X3+ ', 0 ,X6 ,O ,O );
|
|
67810 (*+61()
|
|
67820 ICODE(PASGVART+3 , 'BX7 X1 ', QASGVART ,X12,O ,O );
|
|
67830 QCODE(QASGVART , 'SA7 B5+ ', QASGVART+1);
|
|
67840 QCODE(QASGVART+1 , 'BX7 X2 ', QASGVART+2);
|
|
67850 QCODE(QASGVART+2 , 'SA7 A7+B1 ', 0);
|
|
67860 ICODE(PASGVART+4 , 'BX7 X1 ', QASGVART+3 ,X12,O ,O );
|
|
67870 QCODE(QASGVART+3 , 'SA7 B2+ ', QASGVART+1);
|
|
67880 ICODE(PASGVART+5 , 'BX7 X1 ', QASGVART+4 ,X12,O ,O );
|
|
67890 QCODE(QASGVART+4 , 'SA7 X3+ ', QASGVART+1);
|
|
67900 ()+61*)
|
|
67910 ICODE(PASGVART+6 , 'SX1 B5+ ', QVASSTX ,X0 ,O ,O );
|
|
67920 OCODE(QVASSTX , 'GVASSTX ' ,O ,O ,O );
|
|
67930 ICODE(PASGVART+7 , 'SX1 B2+ ', QVASSTX ,X0 ,O ,O );
|
|
67940 ICODE(PASGVART+8 , 'SX1 X3+ ', QVASSTX ,X0 ,O ,O );
|
|
67950 OCODE(PIDTYREL , 'IS ' ,X0 ,X1 ,X6 );
|
|
67960 OCODE(PIDTYREL+1 , 'ISNT ' ,X0 ,X1 ,X6 );
|
|
67980 ICODE(PGETTOTCMN , 'BX1 X0 ', QGETTOTCMN ,X0 ,O ,X1 );
|
|
67990 QCODE(QGETTOTCMN , 'AX0 42 ', QGETTOTCMN+1);
|
|
68000 QCODE(QGETTOTCMN+1, 'IX1 X1+X0 ', 0);
|
|
68005 OCODE(PGETTOTCMN+1, 'GTOTMUL ' ,X0 ,O ,X1 );
|
|
68010 OCODE(PGETTOTCMN+2, 'GTOTRFR ' ,X0 ,O ,X1 );
|
|
68030 ICODE(PGETTOTAL , 'SA5 X1 ', QGETTOTAL ,X1 ,O ,X5 );
|
|
68040 QCODE(QGETTOTAL , 'AX1 42 ', QGETTOTAL+1);
|
|
68050 QCODE(QGETTOTAL+1 , 'SA3 X1 ', QGETTOTAL+2);
|
|
68060 QCODE(QGETTOTAL+2 , 'AX3 47 ', QGETTOTAL+3);
|
|
68070 QCODE(QGETTOTAL+3 , 'NZ X3,2* ', QGETTOTAL+4);
|
|
68080 OCODE(QGETTOTAL+4 , 'SAVGARB ' ,O ,O ,O );
|
|
68090 (*+61()
|
|
68100 ICODE(PGETTOTAL+1 , 'SA4 X1 ', QGETTOTAL+5 ,X1 ,O ,X45);
|
|
68110 QCODE(QGETTOTAL+5 , 'SA5 A4+B1 ', QGETTOTAL+1);
|
|
68120 ()+61*)
|
|
68130 OCODE(PGETTOTAL+2 , 'GTOTP ' ,X0 ,O ,X6 );
|
|
68140 OCODE(PGETTOTAL+3 , 'GTOTN ' ,X0 ,O ,X6 );
|
|
68150 OCODE(PGETTOTAL+4 , 'GTOTREF ' ,X0 ,O ,X6 );
|
|
68152 OCODE(PGETMULT , 'GETMULT ' ,X0 ,O ,X6 );
|
|
68154 OCODE(PGETMULT+1 , 'GETSLN ' ,X0 ,O ,X6 );
|
|
68160 OCODE(PDEREF , 'DREFS ' ,X0 ,O ,X6 );
|
|
68170 OCODE(PDEREF+2 , 'DREFPTR ' ,X0 ,O ,X6 );
|
|
68180 OCODE(PDEREF+3 , 'DREFN ' ,X0 ,O ,X6 );
|
|
68190 OCODE(PDEREF+4 , 'DREFM ' ,X0 ,O ,X6 );
|
|
68200 OCODE(PSKIP , 'SKIPS ' ,O ,O ,X6 );
|
|
68210 OCODE(PSKIP+1 , 'SKIPPIL ' ,O ,O ,X6 );
|
|
68220 OCODE(PSKIPSTRUCT , 'SKIPSTR ' ,O ,O ,X6 );
|
|
68230 OCODE(PNIL , 'NILP ' ,O ,O ,X6 );
|
|
68240 ICODE(PVOIDNORMAL , 'SA3 X1 ', QVOIDNM ,X1 ,O ,O );
|
|
68250 QCODE(QVOIDNM , 'AX3 47 ', QVOIDNM1);
|
|
68260 QCODE(QVOIDNM1 , 'NZ X3,3* ', QVOIDNM2);
|
|
68270 QCODE(QVOIDNM2 , 'SX0 A3 ', QVOIDNM3);
|
|
68280 OCODE(QVOIDNM3 , 'GARBAGE ' ,O ,O ,O );
|
|
68290 ICODE(PVOIDNAKED , 'LX1 18 ', PVOIDNORMAL ,X1 ,O ,O );
|
|
68300 ICODE(PWIDEN , 'PX1 X1 ', QWIDEN ,X1 ,O ,X1 );
|
|
68310 QCODE(QWIDEN , 'NX1 X1 ', 0);
|
|
68320 OCODE(PWIDEN+2 , 'WIDREAL ' ,X0 ,O ,X6 );
|
|
68330 OCODE(PWIDEN+4 , 'WIDCHAR ' ,X0 ,O ,X6 );
|
|
68340 OCODE(PWIDEN+5 , 'WIDBITS ' ,X0 ,O ,X6 );
|
|
68350 OCODE(PWIDEN+6 , 'WIDBYTS ' ,X0 ,O ,X6 );
|
|
68360 OCODE(PWIDEN+7 , 'WIDSTR ' ,X0 ,O ,X6 );
|
|
68370 OCODE(PROWNONMULT , 'ROWNM ' ,X0 ,O ,X6 );
|
|
68380 OCODE(PROWMULT , 'ROWM ' ,X0 ,O ,X6 );
|
|
68390 ICODE(PCALL , 'SX1 B0+ ', QCALL ,SNS,O ,O );
|
|
68400 QCODE(QCALL , 'SA5 X6 ', QCALL+1);
|
|
68410 QCODE(QCALL+1 , 'AX6 42 ', QCALL+2);
|
|
68420 QCODE(QCALL+2 , 'SB7 X5 ', QCALL+3);
|
|
68430 QCODE(QCALL+3 , 'SX7 2* ', QCALL+4);
|
|
68440 QCODE(QCALL+4 , 'JP B7 ', 0);
|
|
68450 ICODE(PCALLA , 'SX6 B5+ ', QCALLA ,SNS,O ,O );
|
|
68460 ICODE(PCALLA+1 , 'SX6 B2+ ', QCALLA ,SNS,O ,O );
|
|
68470 ICODE(PCALLA+2 , 'SX6 X3+ ', QCALLA ,SNS,O ,O );
|
|
68480 QCODE(QCALLA , 'SA5 X2 ', QCALLA+1);
|
|
68490 QCODE(QCALLA+1 , 'SB7 X5 ', QCALLA+2);
|
|
68500 QCODE(QCALLA+2 , 'SX7 2* ', QCALLA+3);
|
|
68510 QCODE(QCALLA+3 , 'JP B7 ', 0);
|
|
68520 ICODE(PRNSTART , 'SA6 B6 ', QRNSTART ,O ,O ,O );
|
|
68530 QCODE(QRNSTART , 'BX3 X7 ', QRNSTART+1);
|
|
68540 QCODE(QRNSTART+1 , 'SX4 B0+ ', QRNSTART+2);
|
|
68550 OCODE(QRNSTART+2 , 'RNSTART ' ,O ,O ,O );
|
|
68560 OCODE(PRETURN , 'RETURN ' ,XN ,O ,O );
|
|
68570 OCODE(PGBSTK , 'GBSTK ' ,O ,O ,O );
|
|
68580 OCODE(PGETOUT , 'GETOUT ' ,O ,O ,O );
|
|
68590 ICODE(PSETIB , 'SB5 X6 ', QSETIB ,O ,O ,O );
|
|
68600 QCODE(QSETIB , 'LX6 18 ', QSETIB+1);
|
|
68610 QCODE(QSETIB+1 , 'SB6 X6 ', 0);
|
|
68620 OCODE(PLEAPGEN , 'GENSTR ' ,O ,O ,X6 );
|
|
68630 OCODE(PLEAPGEN+1 , 'HEAPSTR ' ,O ,O ,X6 );
|
|
68640 OCODE(PLEAPGEN+2 , 'GENRSTR ' ,O ,O ,X6 );
|
|
68650 OCODE(PLEAPGEN+3 , 'GENMUL ' ,X0 ,O ,X6 );
|
|
68660 OCODE(PLEAPGEN+4 , 'HEAPMUL ' ,X0 ,O ,X6 );
|
|
68670 OCODE(PLEAPGEN+5 , 'GENRMUL ' ,X0 ,O ,X6 );
|
|
68680 OCODE(PPREPSTRDISP, 'PCOLLST ' ,O ,O ,X6 );
|
|
68690 OCODE(PPREPROWDISP, 'PCOLLR ' ,STS,O ,X6 );
|
|
68700 OCODE(PPREPROWDISP+1,'PCOLLRM ' ,STS,O ,X6 );
|
|
68710 OCODE(PCOLLCHECK , 'PCOLLCK ' ,X0 ,O ,X6 );
|
|
68720 (**)
|
|
68730 END;
|
|
68740 PROCEDURE THIRDPART;
|
|
68750 BEGIN
|
|
68760 ICODE(PCOLLTOTAL , 'SA4 B6-B1 ', QCOLLTOTAL ,ST ,X6 ,ST );
|
|
68770 QCODE(QCOLLTOTAL , 'SA6 X4+ ', 0);
|
|
68780 ICODE(PCOLLTOTAL+2, 'SA4 X6 ', QCOLLTOTAL+1 ,ST ,X6 ,ST );
|
|
68790 QCODE(QCOLLTOTAL+1, 'SX7 B1 ', QCOLLTOTAL+2);
|
|
68800 QCODE(QCOLLTOTAL+2, 'LX7 47 ', QCOLLTOTAL+3);
|
|
68810 QCODE(QCOLLTOTAL+3, 'IX7 X4+X7 ', QCOLLTOTAL+4);
|
|
68820 QCODE(QCOLLTOTAL+4, 'SA7 A4 ', PCOLLTOTAL);
|
|
68830 OCODE(PCOLLTOTAL+3, 'COLLTP ' ,X0 ,X1 ,X6 );
|
|
68840 OCODE(PCOLLTOTAL+4, 'COLLTM ' ,X0 ,X1 ,X6 );
|
|
68850 OCODE(PCOLLNAKED , 'COLLNP ' ,X0 ,X1 ,X6 );
|
|
68860 ICODE(PNAKEDPTR , 'LX1 18 ', QNAKEDPTR ,X1 ,O ,X6 );
|
|
68862 QCODE(QNAKEDPTR , 'SX6 X1 ', 0);
|
|
68870 ICODE(PLINE , 'SX7 B0+ ', QLINE ,O ,O ,O );
|
|
68880 QCODE(QLINE , 'SA7 B5+9 ', 0);
|
|
68890 OCODE(PENDSLICE , 'ENDSL ' ,X0 ,O ,X0 );
|
|
68900 OCODE(PTRIM , 'SLICEA ' ,STP,O ,O );
|
|
68910 OCODE(PTRIM+1 , 'SLICEB ' ,STP,O ,O );
|
|
68920 OCODE(PTRIM+2 , 'SLICEC ' ,STP,O ,O );
|
|
68930 OCODE(PTRIM+3 , 'SLICED ' ,STP,O ,O );
|
|
68940 OCODE(PTRIM+4 , 'SLICEE ' ,STP,O ,O );
|
|
68950 OCODE(PTRIM+5 , 'SLICEF ' ,STP,O ,O );
|
|
68960 OCODE(PTRIM+6 , 'SLICEG ' ,STP,O ,O );
|
|
68970 OCODE(PTRIM+7 , 'SLICEH ' ,STP,O ,O );
|
|
68980 OCODE(PTRIM+8 , 'SLICEI ' ,STP,O ,O );
|
|
68990 OCODE(PTRIM+9 , 'SLICEJ ' ,STP,O ,O );
|
|
69000 ICODE(PJMP , 'EQ B0, ', 0 ,O ,O ,O );
|
|
69010 ICODE(PDUP1ST , 'SA1 B6-B1 ', 0 ,STP,O ,X1 );
|
|
69010 ICODE(PDUP1PILE , 'SA1 B6-B1 ', 0 ,STP,O ,X1 );
|
|
69020 ICODE(PDUP2ND , 'SA1 B6-B1 ', 0 ,STP,X5P,X1 );
|
|
69020 ICODE(PDUP2PILE , 'SA1 B6-B1 ', 0 ,STP,X5P,X1 );
|
|
69030 (*+61() ICODE(PDUP2ND+1 , 'SA1 B6-B1 ', 0 ,STP,X45,X1 ); ()+61*)
|
|
69040 ICODE(PDATALIST , 'SX7 B0+ ', QPUSH+1 ,SNS,O ,SDL);
|
|
69050 OCODE(PHOIST , 'HOIST ' ,O ,O ,O );
|
|
69060 ICODE(PSTATICLINK , 'SX6 B5 ', 0 ,O ,O ,O );
|
|
69070 ICODE(PASP , 'SB6 B6- ', 0 ,O ,O ,O );
|
|
69080 ICODE(PLOADX5 , 'SA5 B5+ ', 0 ,O ,O ,O );
|
|
69090 ICODE(PLOADX5+1 , 'SA5 B2+ ', 0 ,O ,O ,O );
|
|
69100 ICODE(PLOADX5+2 , 'SA5 X3+ ', 0 ,O ,O ,O );
|
|
69110 ICODE(PLOADX5IM , 'SX5 B0+ ', 0 ,O ,O ,X5 );
|
|
69120 ICODE(PLOADX5IM+1 , 'SA5 B0+ ', 0 ,O ,O ,O );
|
|
69130 ICODE(PPUSH , 'SA4 B5+ ', QPUSH ,O ,O ,O );
|
|
69140 QCODE(QPUSH , 'BX7 X4 ', QPUSH+1);
|
|
69150 QCODE(QPUSH+1 , 'SA7 B6 ', QPUSH+2);
|
|
69160 QCODE(QPUSH+2 , 'SB6 B6+B1 ', 0);
|
|
69170 ICODE(PPUSH+1 , 'SA4 B2+ ', QPUSH ,O ,O ,O );
|
|
69180 ICODE(PPUSH+2 , 'SA4 X3+ ', QPUSH ,O ,O ,O );
|
|
69190 ICODE(PPUSHIM , 'SX7 B0+ ', QPUSH+1 ,O ,O ,ST );
|
|
69200 ICODE(PPUSHIM+1 , 'SA4 B0+ ', QPUSH ,O ,O ,O );
|
|
69210 ICODE(PLOADX0 , 'SA4 B5+ ', QLOADX0 ,O ,O ,O );
|
|
69220 QCODE(QLOADX0 , 'BX0 X4 ', 0);
|
|
69230 ICODE(PLOADX0+1 , 'SA4 B2+ ', QLOADX0 ,O ,O ,O );
|
|
69240 ICODE(PLOADX0+2 , 'SA4 X3+ ', QLOADX0 ,O ,O ,O );
|
|
69250 ICODE(PLOADX1 , 'SA1 B5+ ', 0 ,O ,O ,O );
|
|
69260 ICODE(PLOADX1+1 , 'SA1 B2+ ', 0 ,O ,O ,O );
|
|
69270 ICODE(PLOADX1+2 , 'SA1 X3+ ', 0 ,O ,O ,O );
|
|
69280 ICODE(PLOADX6 , 'SA4 B5+ ', QLOADX6 ,O ,O ,O );
|
|
69290 QCODE(QLOADX6 , 'BX6 X4 ', 0);
|
|
69300 ICODE(PLOADX6+1 , 'SA4 B2+ ', QLOADX6 ,O ,O ,O );
|
|
69310 ICODE(PLOADX6+2 , 'SA4 X3+ ', QLOADX6 ,O ,O ,O );
|
|
69320 ICODE(PLOADX0IM , 'SX0 B0+ ', 0 ,O ,O ,X0 );
|
|
69330 ICODE(PLOADX0IM+1 , 'SA4 B0+ ', QLOADX0 ,O ,O ,O );
|
|
69340 ICODE(PLOADX1IM , 'SX1 B0+ ', 0 ,O ,O ,X1 );
|
|
69350 ICODE(PLOADX1IM+1 , 'SA1 B0+ ', 0 ,O ,O ,O );
|
|
69360 ICODE(PLOADX2IM , 'SX2 B0+ ', 0 ,O ,O ,O );
|
|
69370 ICODE(PLOADX2IM+1 , 'SA2 B0+ ', 0 ,O ,O ,O );
|
|
69380 ICODE(PLOADX3IM , 'SX3 B0+ ', 0 ,O ,O ,O );
|
|
69390 ICODE(PLOADX3IM+1 , 'SA3 B0+ ', 0 ,O ,O ,O );
|
|
69400 ICODE(PLOADX4IM , 'SX4 B0+ ', 0 ,O ,O ,O );
|
|
69410 ICODE(PLOADX4IM+1 , 'SA4 B0+ ', 0 ,O ,O ,O );
|
|
69420 ICODE(PLOADX6IM , 'SX6 B0+ ', 0 ,O ,O ,X6 );
|
|
69430 ICODE(PLOADX6IM+1 , 'SA4 B0+ ', QLOADX6 ,O ,O ,O );
|
|
69440 ICODE(PPOPTOX0 , 'SB6 B6-B1 ', QPOPX0 ,O ,O ,O );
|
|
69450 QCODE(QPOPX0 , 'SA4 B6 ', QLOADX0);
|
|
69460 ICODE(PPOPTOX1 , 'SB6 B6-B1 ', QPOPX1 ,O ,O ,O );
|
|
69470 QCODE(QPOPX1 , 'SA1 B6 ', 0);
|
|
69480 ICODE(PPOPTOX6 , 'SB6 B6-B1 ', QPOPTOX6 ,O ,O ,O );
|
|
69490 QCODE(QPOPTOX6 , 'SA4 B6 ', QLOADX6);
|
|
69500 ICODE(PX5TOX0 , 'BX0 X5 ', 0 ,X5 ,O ,X0 );
|
|
69510 ICODE(PX5TOX1 , 'BX1 X5 ', 0 ,X5 ,O ,X1 );
|
|
69520 ICODE(PX5TOX6 , 'BX6 X5 ', 0 ,X5 ,O ,X6 );
|
|
69530 ICODE(PPUSHX6 , 'SA6 B6 ', QPUSH+2 ,X6 ,O ,O );
|
|
69540 ICODE(PX6TOX5 , 'BX5 X6 ', 0 ,X6 ,O ,X5 );
|
|
69550 ICODE(PX6TOX0 , 'BX0 X6 ', 0 ,X6 ,O ,X0 );
|
|
69560 ICODE(PX6TOX1 , 'BX1 X6 ', 0 ,X6 ,O ,X1 );
|
|
69570 ICODE(PPUSHX5 , 'BX7 X5 ', QPUSH+1 ,X5 ,O ,O );
|
|
69580 ICODE(PPOPTOX5 , 'SB6 B6-B1 ', QPOP1 ,O ,O ,O );
|
|
69590 QCODE(QPOP1 , 'SA5 B6 ', 0);
|
|
69600 ICODE(PPUSHX0 , 'BX7 X0 ', QPUSH+1 ,X0 ,O ,O );
|
|
69610 ICODE(PPUSHX1 , 'BX7 X1 ', QPUSH+1 ,X1 ,O ,O );
|
|
69620 ICODE(PX1TOX5 , 'BX5 X1 ', 0 ,X1 ,O ,X5 );
|
|
69630 ICODE(PX1TOX6 , 'BX6 X1 ', 0 ,X1 ,O ,X6 );
|
|
69640 ICODE(PX1TOX0 , 'BX0 X1 ', 0 ,X1 ,O ,X0 );
|
|
69650 ICODE(PSWAP , 'BX3 X1 ', QSWAP ,O ,O ,O );
|
|
69660 QCODE(QSWAP , 'BX1 X5 ', QSWAP1);
|
|
69670 QCODE(QSWAP1 , 'BX5 X3 ', 0);
|
|
69680 (*+61()
|
|
69690 ICODE(PPUSH2 , 'SA3 B5+ ', QPUSH2 ,O ,O ,O );
|
|
69700 QCODE(QPUSH2 , 'BX7 X3 ', QPUSH2+1);
|
|
69710 QCODE(QPUSH2+1 , 'SA7 B6 ', QPUSH2+2);
|
|
69720 QCODE(QPUSH2+2 , 'SA3 A3+B1 ', QPUSH2+3);
|
|
69730 QCODE(QPUSH2+3 , 'BX7 X3 ', QPUSH2+4);
|
|
69740 QCODE(QPUSH2+4 , 'SA7 A7+B1 ', QPUSH2+5);
|
|
69750 QCODE(QPUSH2+5 , 'SB6 A7+B1 ', 0);
|
|
69760 ICODE(PPUSH2+1 , 'SA3 B2+ ', QPUSH2 ,O ,O ,O );
|
|
69770 ICODE(PPUSH2+2 , 'SA3 X3+ ', QPUSH2 ,O ,O ,O );
|
|
69780 ICODE(PLOADX12 , 'SA1 B5+ ', QLOADX12 ,O ,O ,O );
|
|
69790 QCODE(QLOADX12 , 'SA2 A1+B1 ', 0);
|
|
69800 ICODE(PLOADX12+1 , 'SA1 B2+ ', QLOADX12 ,O ,O ,O );
|
|
69810 ICODE(PLOADX12+2 , 'SA1 X3+ ', QLOADX12 ,O ,O ,O );
|
|
69820 ICODE(PLOADX45 , 'SA4 B5+ ', QLOADX45 ,O ,O ,O );
|
|
69830 QCODE(QLOADX45 , 'SA5 A4+B1 ', 0);
|
|
69840 ICODE(PLOADX45+1 , 'SA4 B2+ ', QLOADX45 ,O ,O ,O );
|
|
69850 ICODE(PLOADX45+2 , 'SA4 X3+ ', QLOADX45 ,O ,O ,O );
|
|
69860 ICODE(PPUSHX12 , 'BX7 X1 ', QPUSHX12 ,O ,O ,O );
|
|
69870 QCODE(QPUSHX12 , 'SA7 B6 ', QPUSHX12+1);
|
|
69880 QCODE(QPUSHX12+1 , 'BX7 X2 ', QPUSH2+4);
|
|
69890 ICODE(PPUSHX45 , 'BX7 X4 ', QPUSHX45 ,O ,O ,O );
|
|
69900 QCODE(QPUSHX45 , 'SA7 B6 ', QPUSHX45+1);
|
|
69910 QCODE(QPUSHX45+1 , 'BX7 X5 ', QPUSH2+4);
|
|
69920 ICODE(PPOPTOX12 , 'SA2 B6-B1 ', QPOPTOX12 ,O ,O ,O );
|
|
69930 QCODE(QPOPTOX12 , 'SA1 A2-B1 ', QPOPTOX12+1);
|
|
69940 QCODE(QPOPTOX12+1 , 'SB6 A1 ', 0);
|
|
69950 ICODE(PPOPTOX45 , 'SA5 B6-B1 ', QPOPTOX45 ,O ,O ,O );
|
|
69960 QCODE(QPOPTOX45 , 'SA4 A5-B1 ', QPOPTOX45+1);
|
|
69970 QCODE(QPOPTOX45+1 , 'SB6 A4 ', 0);
|
|
69980 ICODE(PX12TOX45 , 'BX4 X1 ', QX12TOX45 ,O ,O ,O );
|
|
69990 QCODE(QX12TOX45 , 'BX5 X2 ', 0);
|
|
70000 ICODE(PX45TOX12 , 'BX1 X4 ', QX45TOX12 ,O ,O ,O );
|
|
70010 QCODE(QX45TOX12 , 'BX2 X5 ', 0);
|
|
70020 ()+61*)
|
|
70030 ICODE(PDECM , 'SX7 B0+ ', 0 ,O ,O ,O );
|
|
70040 ICODE(PDECM+1 , 'SA3 B5+ ', QDECM ,O ,O ,O );
|
|
70050 QCODE(QDECM , 'MX4 25 ', QDECM+1);
|
|
70060 QCODE(QDECM+1 , 'BX3 -X4*X3', QDECM+2);
|
|
70070 QCODE(QDECM+2 , 'LX7 35 ', QDECM+3);
|
|
70080 QCODE(QDECM+3 , 'BX7 X3+X7 ', QDECM+4);
|
|
70090 QCODE(QDECM+4 , 'SA7 A3 ', 0);
|
|
70100 END;
|
|
70110 (* *** CHANGES TO BE MADE ON PERQ *** *)
|
|
70120 (* PPARM , PPARM+1, PLOADRTA, PDECM *)
|
|
70130 (* PCALLA, PRANGENT, PDCLINIT *)
|
|
70140 PROCEDURE INITPOPARRAY;
|
|
70150 VAR I, J:SBTTYP;
|
|
70160 BEGIN
|
|
70170 FOR I := SBTSTK TO SBTX1 DO
|
|
70180 FOR J:= SBTVOID TO SBTX1 DO POPARRAY [I, J] := PNONE;
|
|
70190 FOR I := SBTSTK TO SBTX1 DO
|
|
70200 BEGIN
|
|
70210 POPARRAY [I,I] := PNOOP;
|
|
70220 POPARRAY [I,SBTVOID] := PNOOP;
|
|
70230 POPARRAY [I,SBTVAR] := PLOADVAR;
|
|
70240 POPARRAY [I,SBTPROC] := PLOADRTA;
|
|
70250 POPARRAY [I,SBTRPROC]:= PLOADRTA;
|
|
70260 END;
|
|
70270 (*+61()
|
|
70280 POPARRAY [SBTSTK , SBTSTK2 ] := PVARLISTEND+1;
|
|
70290 POPARRAY [SBTX12 , SBTX1 ] := PNOOP;
|
|
70300 POPARRAY [SBTSTK , SBTX12 ] := PPUSHX1;
|
|
70310 POPARRAY [SBTSTK , SBTX45 ] := PPUSHX5;
|
|
70320 POPARRAY [SBTSTK2 , SBTID ] := PPUSH2;
|
|
70330 POPARRAY [SBTSTK2 , SBTIDV ] := PPUSH2;
|
|
70340 POPARRAY [SBTSTK2 , SBTX12 ] := PPUSHX12;
|
|
70350 POPARRAY [SBTSTK2 , SBTX45 ] := PPUSHX45;
|
|
70360 POPARRAY [SBTX12 , SBTID ] := PLOADX12;
|
|
70370 POPARRAY [SBTX12 , SBTIDV ] := PLOADX12;
|
|
70380 POPARRAY [SBTX12 , SBTSTK2 ] := PPOPTOX12;
|
|
70390 POPARRAY [SBTX12 , SBTX45 ] := PX45TOX12;
|
|
70400 POPARRAY [SBTX45 , SBTID ] := PLOADX45;
|
|
70410 POPARRAY [SBTX45 , SBTIDV ] := PLOADX45;
|
|
70420 POPARRAY [SBTX45 , SBTSTK2 ] := PPOPTOX45;
|
|
70430 POPARRAY [SBTX45 , SBTX12 ] := PX12TOX45;
|
|
70440 ()+61*)
|
|
70450 POPARRAY [SBTSTK , SBTID ] := PPUSH;
|
|
70460 POPARRAY [SBTSTK , SBTIDV ] := PPUSH;
|
|
70470 POPARRAY [SBTSTK , SBTLIT ] := PPUSHIM;
|
|
70480 POPARRAY [SBTSTK , SBTDEN ] := PPUSHIM;
|
|
70490 POPARRAY [SBTSTK , SBTX5 ] := PPUSHX5;
|
|
70500 POPARRAY [SBTSTK , SBTX6 ] := PPUSHX6;
|
|
70510 POPARRAY [SBTSTK , SBTX0 ] := PPUSHX0;
|
|
70520 POPARRAY [SBTSTK , SBTX1 ] := PPUSHX1;
|
|
70530 POPARRAY [SBTX5 , SBTID ] := PLOADX5;
|
|
70540 POPARRAY [SBTX5 , SBTIDV ] := PLOADX5;
|
|
70550 POPARRAY [SBTX5 , SBTLIT ] := PLOADX5IM;
|
|
70560 POPARRAY [SBTX5 , SBTDEN ] := PLOADX5IM;
|
|
70570 POPARRAY [SBTX5 , SBTSTK ] := PPOPTOX5;
|
|
70580 POPARRAY [SBTX5 , SBTX6 ] := PX6TOX5;
|
|
70590 POPARRAY [SBTX5 , SBTX1 ] := PX1TOX5;
|
|
70600 POPARRAY [SBTX6 , SBTID ] := PLOADX6;
|
|
70610 POPARRAY [SBTX6 , SBTIDV ] := PLOADX6;
|
|
70620 POPARRAY [SBTX6 , SBTLIT ] := PLOADX6IM;
|
|
70630 POPARRAY [SBTX6 , SBTDEN ] := PLOADX6IM;
|
|
70640 POPARRAY [SBTX6 , SBTSTK ] := PPOPTOX6;
|
|
70650 POPARRAY [SBTX6 , SBTX5 ] := PX5TOX6;
|
|
70660 POPARRAY [SBTX6 , SBTX1 ] := PX1TOX6;
|
|
70670 POPARRAY [SBTX0 , SBTID ] := PLOADX0;
|
|
70680 POPARRAY [SBTX0 , SBTIDV ] := PLOADX0;
|
|
70690 POPARRAY [SBTX0 , SBTLIT ] := PLOADX0IM;
|
|
70700 POPARRAY [SBTX0 , SBTDEN ] := PLOADX0IM;
|
|
70710 POPARRAY [SBTX0 , SBTSTK ] := PPOPTOX0;
|
|
70720 POPARRAY [SBTX0 , SBTX5 ] := PX5TOX0;
|
|
70730 POPARRAY [SBTX0 , SBTX6 ] := PX6TOX0;
|
|
70740 POPARRAY [SBTX0 , SBTX1 ] := PX1TOX0;
|
|
70750 POPARRAY [SBTX1 , SBTID ] := PLOADX1;
|
|
70760 POPARRAY [SBTX1 , SBTIDV ] := PLOADX1;
|
|
70770 POPARRAY [SBTX1 , SBTLIT ] := PLOADX1IM;
|
|
70780 POPARRAY [SBTX1 , SBTDEN ] := PLOADX1IM;
|
|
70790 POPARRAY [SBTX1 , SBTSTK ] := PPOPTOX1;
|
|
70800 POPARRAY [SBTX1 , SBTX5 ] := PX5TOX1;
|
|
70810 POPARRAY [SBTX1 , SBTX6 ] := PX6TOX1;
|
|
70820 END;
|
|
70830 PROCEDURE INITLENARRAY;
|
|
70840 VAR I: SBTTYP;
|
|
70850 BEGIN
|
|
70860 FOR I := SBTSTK TO SBTX1 DO LENARRAY[I] := 0;
|
|
70870 LENARRAY[SBTSTK ] := SZWORD;
|
|
70880 (*+61()
|
|
70890 LENARRAY[SBTSTK2] := 2*SZWORD;
|
|
70900 LENARRAY[SBTX12 ] := 2*SZWORD;
|
|
70910 LENARRAY[SBTX45 ] := 2*SZWORD;
|
|
70920 ()+61*)
|
|
70930 LENARRAY[SBTX5 ] := SZWORD;
|
|
70940 LENARRAY[SBTX6 ] := SZWORD;
|
|
70950 LENARRAY[SBTX0 ] := SZWORD;
|
|
70960 LENARRAY[SBTX1 ] := SZWORD;
|
|
70970 END;
|
|
70980 PROCEDURE INITREGISTERS;
|
|
70990 VAR I: SBTTYP;
|
|
71000 BEGIN
|
|
71010 FOR I := SBTVOID TO SBTX1 DO REGISTERS[I] := [];
|
|
71020 REGISTERS[SBTDL ] := [SBTX1];
|
|
71030 REGISTERS[SBTX5 ] := [SBTX5];
|
|
71040 REGISTERS[SBTX6 ] := [SBTX6];
|
|
71050 REGISTERS[SBTX0 ] := [SBTX0];
|
|
71060 REGISTERS[SBTX1 ] := [SBTX1];
|
|
71070 (*+61()
|
|
71080 REGISTERS[SBTX12 ] := [SBTX1]; (*THERE IS NO SBTX2+)
|
|
71090 REGISTERS[SBTX45 ] := [SBTX5]; (*THERE IS NO SBTX4+)
|
|
71100 ()+61*)
|
|
71110 END;
|
|
71120 BEGIN (*INITCODES*)
|
|
71130 FIRSTPART; SECONDPART; THIRDPART; INITPOPARRAY; INITLENARRAY; INITREGISTERS;
|
|
71140 END;
|
|
71150 (**)
|
|
71160 (**)
|
|
71170 (**)
|
|
71180 (**)
|
|
71190 (**)
|
|
71200 BEGIN
|
|
71210 LINELIMIT(OUTPUT,10000); LINELIMIT(LSTFILE,10000);
|
|
71220 DUMP(FIRSTSTACK);
|
|
71230 (*-01() DUMP(FIRSTSTACK,LASTSTACK); ()-01*)
|
|
71240 END (*$G-*) .
|
|
####S
|