d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
ack/lang/a68s/aem/a68scod.p

601 lines
40 KiB
OpenEdge ABL
Raw Permalink Normal View History

Initial revision
1988-10-04 10:56:50 +00:00
60000 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
60010 (**)
60020 (**)
60030 (*+86()
60031 (************************************)
60032 (* EM-1 VERSION *)
60033 (************************************)
60034 (**)
60035 (************************************)
60036 (* MEANING OF PARAMTYPES *)
60037 (************************************)
60038 (**)
60040 (* WOP - OPERAND SUPPLIED BY CODETABLE
60042 WNP - NEGATIVE OF OPERAND SUPPLIED BY CODETABLE
60043 WLB - OPERAND SUPPLIED BY CODETABLE IS A GLOBAL LABEL OFFSET
60044 OPX - OPERAND SUPPLIED BY CODE GENERATOR
60046 ONX - NEGATIVE OF OPERAND SUPPLIED BY CODE GENERATOR
60048 OPL - OPERAND SUPPLIED BY CODE GENERATOR IS A GLOBAL LABEL OFFSET
60049 ONL - NEGATIVE OF ABOVE
60050 LCX - LOCAL INSTRUCTION LABEL
60052 GBX - GLOBAL DATA LABEL
60054 NON - NO OPERAND
60056 JMP - FORWARD JUMP WITHIN CODETABLE
60058 ACP - AS WOP, BUT PROVIDES LAST OPERAND FOR AN OCODE
60059 ACB - AS WLB, BUT DITTO
60060 ANP - AS WNP, BUT DITTO
60062 ACX - AS OPX, BUT DITTO
60064 ANX - AS ONX, BUT DITTO
60066 ACL - AS OPL, BUT DITTO
60067 ANL - AS ONL, BUT DITTO
60068 MOR - LONG OPERAND IN PARAM SUPPLIED BY CODETABLE
60072 *)
60080 PROCEDURE INITCODES;
60090 (* INITIALISES CODETABLE *)
60100 CONST
60310 (* EXTRA P-OPS AND CODETABLE ENTRIES *)
60320 PPUSH1(*3*)=200; PPUSHFTN(*3*)=203; PS4TOS2=206; PPUSHIM2(*2*)=207; PPUSH2(*3*)=209; PSTOS2=212; PPUSHIM4(*2*)=213;
60328 PLOADRTA(*3*)=215; PPUSHI2A=218;
60330 QDCLINIT(*5*)=219; QCOLLTOTAL(*8*)=224; QSELECT=232; QEQ=233; QGE=234; QGT=235;
60340 QRANGENT=238; QLOADRTA=239; QLE=240; QLT=241; QNE=242;
60350 QNOTB=243; QODD=244; QCAS=245; QSCOPENT=246; QLEBT=247;
60360 QCFSTRNG=248; QVOIDNM(*5*)=249; QDCLSP(*6*)=254; QOUTJUMP(*4*)=260; QWIDEN(*2*)=264;
60370 QELMBT=266; QRANGEXT(*2*)=267; QASGVART(*2*)=269; QASSIGNT(*2*)=271; QPASC(*2*)=273;
60376 QLOOPINCR(*5*)=275; QPUSH2=280; QPUSHIM4(*2*)=281; QGETPROC(*2*)=283; QABSI(*6*)=285;
60380 QDUP2ND(*2*)=291; QDUP2PILE=293; (*SPARE(2)=294;*) QCALLA(*4*)=296; QHOIST(*2*)=300; QLOADVAR(*5*)=302;
60382 QLPINIT(*4*)=307; QSCOPEVAR(*5*)=311; QSETIB(*3*)=316; QRNSTART(*2*)=319;
60384 (*321-350 SPARE*)
60390 ST=SBTSTK; STP=SBTSTK; STS=SBTSTK;
60400 ST2=SBTSTK2; S2P=SBTSTK2; S2S=SBTSTK2;
60410 ST4=SBTSTK4; S4P=SBTSTK4; S4S=SBTSTK4;
60420 STN=SBTSTKN; SNP=SBTSTKN; SNS=SBTSTKN;
60430 PR1=SBTPR1; PR2=SBTPR2; PRR=SBTPRR;
60440 O=SBTVOID; DLS=SBTDL;
60445 SRE=SBTSTK4;SP=(*+19()SBTSTK2()+19*)(*-19()SBTSTK()-19*);
60450 (**)
60460 PROCEDURE ICODE(OPCOD:POP;EMCODE:COMPACT;TYP:PARAMTYPES;PM:INTEGER;PNXT:POP;VP1,VP2,VPR:SBTTYP);
60470 BEGIN
60480 WITH CODETABLE[OPCOD] DO
60490 BEGIN
60500 INLINE := TRUE;
60510 EMCOD := EMCODE;
60520 P1 := VP1;
60530 P2 := VP2;
60540 PR := VPR;
60550 NEXT := PNXT;
60560 PARTYP := TYP;
60570 CASE TYP OF
60580 LCX,GBX,WLB,ACB,OPX,ONX,ACX,ANX,OPL,ONL,ACL,ANL,NON:PARM := PM;
60590 WOP,ACP,JMP: PARM := PM;
60595 WNP,ANP: PARM := -PM;
60596 MOR: PARM:=PM;
60600 END;
60610 END;
60620 END;
60630 (*+)
60640 PROCEDURE QCODE(OPCOD:POP;EMCODE:COMPACT;TYP:PARAMTYPES;PM:INTEGER;PNXT:POP);
60650 BEGIN
60660 ICODE(OPCOD,EMCODE,TYP,PM,PNXT,O,O,O);
60670 END;
60680 (*+)
60690 PROCEDURE OCODE(OPCOD:POP;PROUTINE:ALFA;VP1,VP2,VPR:SBTTYP);
60700 VAR I:INTEGER;
60710 BEGIN
60720 WITH CODETABLE[OPCOD] DO
60730 BEGIN
60740 INLINE := FALSE;
60750 P1 := VP1;
60760 P2 := VP2;
60770 PR := VPR;
60780 IF (P1=O) AND (P2 <> O) THEN WRITELN(LSTFILE,'FAILED OCODE-A');
60790 FOR I := 1 TO RTNLENGTH DO ROUTINE[I] := PROUTINE[I];
60800 END;
60810 END;
60820 PROCEDURE FIRSTPART;
60830 VAR I:INTEGER;
60840 BEGIN
60850 FOR I := PNONE TO PLAST DO OCODE(I,'DUMMY ',O,O,O);
60860 OCODE(PPEND , 'STOP68 ' , O , O , O );
60864 OCODE(PPBEGIN , 'ESTART0 ' , O , O , O );
60870 OCODE(PPBEGIN+1 , 'START68 ' , O , O , O );
60880 ICODE(PABSI , DUP , WOP , SZINT ,QABSI ,ST , O ,ST );
60890 QCODE(QABSI , ZGE , JMP , 2 ,QABSI+1 );
60900 QCODE(QABSI+1 , NGI , WOP , SZINT ,0 );
60910 ICODE(PABSI-2 , DUP , WOP , SZREAL ,QABSI+2,SRE, O ,SRE);
60920 OCODE(PABSI-4 , 'CABSI ' ,PR1, O ,PRR);
60924 QCODE(QABSI+2 , ZRF , WOP , SZREAL ,QABSI+3 );
60930 QCODE(QABSI+3 , CMF , WOP , SZREAL ,QABSI+4 );
60940 QCODE(QABSI+4 , ZGE , JMP , 2 ,QABSI+5 );
60950 QCODE(QABSI+5 , NGF , WOP , SZREAL ,0 );
60960 ICODE(PABSB , NOP , NON , 0 ,0 ,ST , O ,ST );
60970 ICODE(PABSB-1 , NOP , NON , 0 ,0 ,ST , O ,ST );
60980 ICODE(PABSCH , NOP , NON , 0 ,0 ,ST , O ,ST );
60990 ICODE(PADD , ADI , WOP , SZINT ,0 ,ST ,ST ,ST );
61020 ICODE(PADD-2 , ADF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
61040 OCODE(PADD-4 , 'CPLUS ' ,PR1,PR2,PRR);
61050 ICODE(PANDB , CAND , WOP , SZWORD ,0 ,ST ,ST ,ST );
61060 ICODE(PANDB-1 , CAND , WOP , SZINT ,0 ,ST ,ST ,ST );
61070 OCODE(PARG , 'CARG ' ,PR1,O ,PRR);
61080 ICODE(PBIN , NOP , NON , 0 ,0 ,ST , O ,ST );
61090 OCODE(PCAT , 'CATCC ' ,PR1,PR2,PRR);
61100 OCODE(PCAT-1 , 'CATSS ' ,PR1,PR2,PRR);
61110 OCODE(PCONJ , 'CCONJ ' ,PR1,O ,PRR);
61120 OCODE(PDIV , 'DIV ' ,PR1,PR2,PRR);
61130 ICODE(PDIV-2 , DVF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
61140 OCODE(PDIV-4 , 'CDIV ' ,PR1,PR2,PRR);
61150 ICODE(PDIVAB , DVF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
61160 OCODE(PDIVAB-2 , 'CDIVAB ' ,PR1,PR2,PRR);
61170 ICODE(PELMBT , EXG , WOP , SZINT ,QELMBT , ST, ST, ST);
61180 QCODE(QELMBT , ROL , WOP , SZINT ,PODD );
61210 OCODE(PELMBY , 'ELMBY ' ,PR1,PR2,PRR);
61220 OCODE(PENTI , 'ENTIER ' ,PR1, O ,PRR);
61230 ICODE(PEQ , CMI , WOP , SZINT ,QEQ ,ST ,ST ,ST );
61240 QCODE(QEQ , TEQ , NON , 0 ,0 );
61250 ICODE(PEQ-2 , CMF , WOP , SZREAL ,QEQ ,SRE,SRE,ST );
61260 OCODE(PEQ-4 , 'CEQ ' ,PR1,PR2,PRR);
61270 ICODE(PEQB , CMI , WOP , SZINT ,QEQ ,ST ,ST ,ST );
61280 ICODE(PEQB-1 , CMI , WOP , SZWORD ,QEQ ,ST ,ST ,ST );
61290 ICODE(PEQB-2 , CMI , WOP , SZWORD ,QEQ ,ST ,ST ,ST );
61300 ICODE(PEQCS , CMI , WOP , SZINT ,QEQ ,ST ,ST ,ST );
61310 ICODE(PEQCS-1 , LOC , ACP , 2 ,QCFSTRNG ,PR1,PR2,PRR);
61320 OCODE(QCFSTRNG , 'CFSTR ' , O , O , O );
61330 OCODE(PEXP , 'POWI ' ,PR1,PR2,PRR);
61340 OCODE(PEXP-2 , 'POWR ' ,PR1,PR2,PRR);
61350 OCODE(PEXP-4 , 'CPOW ' ,PR1,PR2,PRR);
61355 ICODE(PPASC , LFC , WOP , 0 ,QPASC ,DLS, O ,PRR);
61357 QCODE(QPASC , LXL , WOP , 0 ,QPASC+1 );
61360 QCODE(QPASC+1 , CAL , OPX , 0 ,0 );
61370 ICODE(PPASC+1 , LXL , WOP , 0 ,QPASC+1 ,PR1, O ,PRR);
61380 ICODE(PPASC+2 , CAL , OPX , 0 ,0 ,PR1,PR2,PRR);
61390 OCODE(PPASC+3 , 'PASC ' ,PR1,PR2,PRR);
61395 ICODE(PASP , ASP , OPX , 0 ,0 , O , O , O );
61400 ICODE(PENVCHAIN , LXL , OPX , 0 ,0 , O , O , O );
61410 ICODE(PENVCHAIN+1, LXA , OPX , 0 ,0 , O , O , O );
61420 ICODE(PGE , CMI , WOP , SZINT ,QGE ,ST ,ST ,ST );
61430 ICODE(PGE-2 , CMF , WOP , SZREAL ,QGE ,SRE,SRE,ST );
61440 ICODE(PGEBT , EXG , WOP , SZINT ,PLEBT ,ST ,ST ,ST );
61450 ICODE(PGEBT-1 , CMU , WOP , SZINT ,QGE ,ST ,ST ,ST );
61460 ICODE(PGECS , CMI , WOP , SZINT ,QGE ,ST ,ST ,ST );
61470 ICODE(PGECS-1 , LOC , ACP , 4 ,QCFSTRNG ,PR1,PR2,PRR);
61480 QCODE(QGE , TGE , NON , 0 ,0 );
61490 ICODE(PGT , CMI , WOP , SZINT ,QGT ,ST ,ST ,ST );
61500 QCODE(QGT , TGT , NON , 0 ,0 );
61510 ICODE(PGT-2 , CMF , WOP , SZREAL ,QGT ,SRE,SRE,ST );
61520 ICODE(PGTBY , CMU , WOP , SZINT ,QGT ,ST ,ST ,ST );
61530 ICODE(PGTCS , CMI , WOP , SZINT ,QGT ,ST ,ST ,ST );
61540 ICODE(PGTCS-1 , LOC , ACP , 5 ,QCFSTRNG ,PR1,PR2,PRR);
61550 OCODE(PIM , 'CIM ' ,PR1, O ,PRR);
61560 ICODE(PLE , CMI , WOP , SZINT ,QLE ,ST ,ST ,ST );
61570 QCODE(QLE , TLE , NON , 0 ,0 );
61580 ICODE(PLE-2 , CMF , WOP , SZREAL ,QLE ,SRE,SRE,ST );
61590 ICODE(PLEBT , COM , WOP , SZINT ,QLEBT ,ST ,ST ,ST );
61592 QCODE(QLEBT , CAND , WOP , SZINT ,QEQ );
61600 ICODE(PLEBT-1 , CMU , WOP , SZINT ,QLE ,ST ,ST ,ST );
61610 ICODE(PLECS , CMI , WOP , SZINT ,QLE ,ST ,ST ,ST );
61620 ICODE(PLECS-1 , LOC , ACP , 1 ,QCFSTRNG ,PR1,PR2,PRR);
61680 ICODE(PLT , CMI , WOP , SZINT ,QLT ,ST ,ST ,ST );
61690 QCODE(QLT , TLT , NON , 0 ,0 );
61700 ICODE(PLT-2 , CMF , WOP , SZREAL ,QLT ,SRE,SRE,ST );
61710 ICODE(PLTBY , CMU , WOP , SZINT ,QLT ,ST ,ST ,ST );
61720 ICODE(PLTCS , CMI , WOP , SZINT ,QLT ,ST ,ST ,ST );
61730 ICODE(PLTCS-1 , LOC , ACP , 0 ,QCFSTRNG ,PR1,PR2,PRR);
61740 OCODE(PLWBMSTR , 'LWBMSTR ' ,PR1, O ,PRR);
61750 OCODE(PLWBM , 'LWBM ' ,PR1, O ,PRR);
61760 OCODE(PLWB , 'LWB ' ,PR1,PR2,PRR);
61770 ICODE(PMINUSAB , SBI , WOP , SZINT ,0 ,ST ,ST ,ST );
61780 ICODE(PMINUSAB-2 , SBF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
61790 OCODE(PMINUSAB-4 , 'CMINAB ' ,PR1,PR2,PRR);
61800 OCODE(PMOD , 'MOD ' ,PR1,PR2,PRR);
61810 OCODE(PMODAB , 'MOD ' ,PR1,PR2,PRR);
61820 ICODE(PMUL , MLI , WOP , SZINT ,0 ,ST ,ST ,ST );
61830 ICODE(PMUL-2 , MLF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
61870 OCODE(PMUL-4 , 'CTIMS ' ,PR1,PR2,PRR);
61880 OCODE(PMULCI , 'MULCI ' ,PR1,PR2,PRR);
61890 OCODE(PMULCI-1 , 'MULSI ' ,PR1,PR2,PRR);
61900 OCODE(PMULIC , 'MULIC ' ,PR1,PR2,PRR);
61910 OCODE(PMULIC-1 , 'MULIS ' ,PR1,PR2,PRR);
61920 END;
61930 PROCEDURE SECONDPART;
61940 BEGIN
61950 ICODE(PNE , CMI , WOP , SZINT ,QNE ,ST ,ST ,ST );
61960 QCODE(QNE , TNE , NON , 0 ,0 );
61970 ICODE(PNE-2 , CMF , WOP , SZREAL ,QNE ,SRE,SRE,ST );
61980 OCODE(PNE-4 , 'CNE ' ,PR1,PR2,PRR);
61990 ICODE(PNEGI , NGI , WOP , SZINT ,0 ,ST , O ,ST );
62000 ICODE(PNEB , CMI , WOP , SZINT ,QNE ,ST ,ST ,ST );
62010 ICODE(PNEB-1 , CMI , WOP , SZINT ,QNE ,ST ,ST ,ST );
62020 ICODE(PNEB-2 , CMI , WOP , SZINT ,QNE ,ST ,ST ,ST );
62030 ICODE(PNECS , CMI , WOP , SZINT ,QNE ,ST ,ST ,ST );
62040 ICODE(PNECS-1 , LOC , ACP , 3 ,QCFSTRNG ,PR1,PR2,PRR);
62050 ICODE(PNEGI-2 , NGF , WOP , SZREAL ,0 ,SRE, O ,SRE);
62060 OCODE(PNEGI-4 , 'CNEGI ' ,PR1,PR2,PRR);
62070 ICODE(PNOTB , LOC , WOP , 1 ,QNOTB ,ST , O ,ST );
62080 QCODE(QNOTB , XOR , WOP , SZWORD ,0 );
62090 ICODE(PNOTB-1 , COM , WOP , SZWORD ,0 ,ST , O ,ST );
62100 ICODE(PNOOP , NOP , NON , 0 ,0 ,ST , O ,ST );
62110 ICODE(PNOOP-2 , NOP , NON , 0 ,0 ,SRE, O ,SRE);
62120 ICODE(PNOOP-4 , NOP , NON , 0 ,0 ,SP, O ,SP);
62130 ICODE(PODD , LOC , WOP , 1 ,QODD ,ST , O ,ST );
62140 QCODE(QODD , CAND , WOP , SZINT ,0 );
62150 ICODE(PORB , IOR , WOP , SZWORD ,0 ,ST ,ST ,ST );
62160 ICODE(PORB-1 , IOR , WOP , SZWORD ,0 ,ST ,ST ,ST );
62170 ICODE(POVER , DVI , WOP , SZINT,0 ,ST ,ST ,ST );
62180 ICODE(POVERAB , DVI , WOP , SZINT,0 ,ST ,ST ,ST );
62190 OCODE(PPLITM , 'CRCOMPLEX ' ,PR1,PR2,PRR);
62200 ICODE(PPLSAB , ADI , WOP , SZINT ,0 ,ST ,ST ,ST );
62210 ICODE(PPLSAB-2 , ADF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
62250 OCODE(PPLSAB-4 , 'CPLUSAB ' ,PR1,PR2,PRR);
62260 OCODE(PPLSABS , 'PLABSS ' ,PR1,PR2,PRR);
62270 OCODE(PPLSABS-1 , 'PLABSS ' ,PR1,PR2,PRR);
62280 OCODE(PPLSTOCS , 'PLTOSS ' ,PR1,PR2,PRR);
62290 OCODE(PPLSTOCS-1 , 'PLTOSS ' ,PR1,PR2,PRR);
62300 OCODE(PRE , 'CRE ' ,PR1,O ,PRR);
62310 ICODE(PREPR , NOP , NON , 0 ,0 ,ST ,ST ,ST );
62320 OCODE(PROUN , 'ROUN ' ,PR1, O ,PRR);
62330 OCODE(PSGNI , 'SIGNI ' ,PR1, O ,PRR);
62340 OCODE(PSGNI-2 , 'SIGNR ' ,PR1, O ,PRR);
62350 OCODE(PSHL , 'SHL ' ,PR1,PR2,PRR);
62410 OCODE(PSHR , 'SHR ' ,PR1,PR2,PRR);
62420 ICODE(PSUB , SBI , WOP , SZINT ,0 ,ST ,ST ,ST );
62430 ICODE(PSUB-2 , SBF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
62440 OCODE(PSUB-4 , 'CMINUS ' ,PR1,PR2,PRR);
62450 ICODE(PTIMSAB , MLI , WOP , SZINT ,0 ,ST ,ST ,ST );
62460 ICODE(PTIMSAB-2 , MLF , WOP , SZREAL ,0 ,SRE,SRE,SRE);
62500 OCODE(PTIMSAB-4 , 'CTIMSAB ' ,PR1,PR2,PRR);
62510 OCODE(PTIMSABS , 'MULABSI ' ,PR1,PR2,PRR);
62520 OCODE(PUPBMSTR , 'UPBMSTR ' ,PR1, O ,PRR);
62530 OCODE(PUPBM , 'UPBM ' ,PR1, O ,PRR);
62540 OCODE(PUPB , 'UPB ' ,PR1,PR2,PRR);
62570 OCODE(PSELECT , 'SELECTT ' ,PR1, O ,PRR);
62575 OCODE(PSELECT+1 , 'SELECTS ' ,PR1, O ,PRR);
62576 OCODE(PSELECT+2 , 'SELECTN ' ,PR1, O ,PRR);
62580 (* ICODE(PSELECT+1 , LOC , OPX , 0 ,QSELECT ,ST , O ,ST );
62590 QCODE(QSELECT , ADI , WOP , SZINT ,0 );*)
62600 OCODE(PSELECTROW , 'SELECTR ' ,PR1, O ,PRR);
62610 OCODE(PSTRNGSLICE, 'STRSUB ' ,PR1,PR2,PRR);
62620 OCODE(PSTRNGSLICE+1, 'STRTRIM ' ,PR1, O ,PRR);
62630 OCODE(PSTARTSLICE, 'STARTSL ' , O , O , O );
62640 OCODE(PSLICE1 , 'SLICE1 ' ,PR1,PR2,PRR);
62650 OCODE(PSLICE2 , 'SLICE2 ' ,PR1,PR2,PRR);
62660 OCODE(PSLICEN , 'SLICEN ' ,PR1, O ,PRR);
62670 ICODE(PCASE , LAE , GBX , 0 ,QCAS ,ST , O , O );
62680 QCODE(QCAS , CSA , WOP , SZWORD ,0 );
62690 ICODE(PJMPF , ZEQ , LCX , 0 ,0 ,ST , O , O );
62700 ICODE(PLPINIT , LAL , ANX , 0 ,QLPINIT ,PR1, O ,PRR);
62704 OCODE(QLPINIT , 'LINIT1 ' , O , O , O );
62710 ICODE(PLPINIT+1 , LAL , ANX , 0 ,QLPINIT+1 ,PR1, O ,PRR);
62714 OCODE(QLPINIT+1 , 'LINIT2 ' , O , O , O );
62720 ICODE(PLPINIT+2 , LAL , ANX , 0 ,QLPINIT+2 ,PR1, O , O );
62724 OCODE(QLPINIT+2 , 'LINIT3 ' , O , O , O );
62730 ICODE(PLPINIT+3 , LAL , ANX , 0 ,QLPINIT+3 ,PR1, O , O );
62734 OCODE(QLPINIT+3 , 'LINIT4 ' , O , O , O );
62740 ICODE(PLPTEST , ZEQ , LCX , 0 ,0 ,ST , O , O );
62750 ICODE(PLPINCR , LAL , ANX , 0 ,QLOOPINCR+4 , O , O ,PRR);
62760 ICODE(PLPINCR+1 , INL , ONX , 0 ,QLOOPINCR , O , O ,ST );
62770 QCODE(QLOOPINCR , LOL , ONX , 0 ,QLOOPINCR+1 );
62780 QCODE(QLOOPINCR+1, LOL , ONX , SZINT, QLOOPINCR+2 );
62790 QCODE(QLOOPINCR+2, CMI , WOP , SZINT, QLOOPINCR+3 );
62792 QCODE(QLOOPINCR+3, TLE , NON , 0 ,0 );
62793 OCODE(QLOOPINCR+4, 'LOOPINC ' , O , O , O );
62805 ICODE(PRANGENT , LAL , ANX , 0 ,QRANGENT , O , O , O );
62810 OCODE(QRANGENT , 'RANGENT ' , O , O , O );
62820 OCODE(PRANGEXT , 'RANGEXT ' , O , O , O );
62830 ICODE(PRANGEXT+1 , LFL , WNP ,
62835 SIZIBBASE+SIZLEBBASE-(2*SZWORD+2*SZADDR) ,QRANGEXT , O , O , O );
62840 QCODE(QRANGEXT , LFF , WOP ,
62845 2*SZWORD+2*SZADDR ,QRANGEXT+1 );
62850 QCODE(QRANGEXT+1 , SFL , WNP ,
62855 SIZIBBASE+SIZLEBBASE-(2*SZWORD+2*SZADDR) ,0 );
62860 OCODE(PRANGEXT+2 , 'RANGXTP ' ,PR1, O ,PRR);
62865 OCODE(PRECGEN , 'DORECGEN ' , O , O , O );
62870 OCODE(PACTDRSTRUCT,'CRSTRUCT ' ,PR1, O ,PRR);
62880 OCODE(PACTDRMULT , 'CRMULT ' ,PR1, O ,PRR);
62910 OCODE(PCHECKDESC , 'CHKDESC ' ,PR1,PR2,PRR);
62920 OCODE(PVARLISTEND, 'GARBAGE ' ,PR1, O , O );
62930 ICODE(PVARLISTEND+1,ASP , WOP , SZINT ,0 , O , O ,ST );
62940 ICODE(PDCLINIT , LOC , MOR , -32000-768,0 , O , O , O );
62944 ICODE(PDCLINIT+1 , LAE , WLB ,-FIRSTIBOFFSET,QDCLINIT, O , O , O );
62946 QCODE(QDCLINIT , LPB , NON , 0 ,QDCLINIT+1 );
62948 QCODE(QDCLINIT+1 , ADP , WOP , (2*SZADDR)+(SZINT+SZLONG),QDCLINIT+2);
62950 QCODE(QDCLINIT+2 , LOI , WOP , SZADDR,0 );
62952 ICODE(PDCLINIT+2 , DUP , WOP , SZINT,QDCLINIT+3 , O , O , O );
62953 QCODE(QDCLINIT+3 , STL , ONX , SZINT ,0 );
62954 ICODE(PDCLINIT+3 , DUP , WOP , SZADDR,QDCLINIT+4 , O , O , O );
62955 QCODE(QDCLINIT+4 , SFL , ONX , SZADDR ,0 );
62960 OCODE(PCREATEREF , 'CRREFN ' ,PR1, O ,PRR);
62970 OCODE(PCREATEREF+1, 'CRRECN ' ,PR1, O ,PRR);
62980 OCODE(PCREATEREF+2, 'CRREFR ' ,PR1, O ,PRR);
62990 OCODE(PCREATEREF+3, 'CRRECR ' ,PR1, O ,PRR);
63000 OCODE(PCREATEREF+4, 'SETCC ' ,PR1, O ,PRR);
63010 ICODE(PDCLSP , STL , ONX , SZWORD , 0 ,ST , O , O );
63012 (*+12() ICODE(PDCLSP+1 , SFL , ONX , SZADDR ,QDCLSP ,SP , O , O );
63040 QCODE(QDCLSP , LIL , ONX , SZADDR,QDCLSP+1 );
63050 QCODE(QDCLSP+1 , INC , NON , 0 ,QDCLSP+2 );
63060 QCODE(QDCLSP+2 , SIL , ONX , SZADDR, 0 ); ()+12*)
63072 (*+13() ICODE(PDCLSP+1 , DUP , WOP , SZADDR,QDCLSP ,SP , O , O );
63073 QCODE(QDCLSP , STL , ONX , SZADDR,QDCLSP+1 );
63074 QCODE(QDCLSP+1 , DUP , WOP , SZADDR,QDCLSP+2 );
63075 QCODE(QDCLSP+2 , LOI , WOP , 2 ,QDCLSP+3 );
63076 QCODE(QDCLSP+3 , INC , NON , 0 ,QDCLSP+4 );
63077 QCODE(QDCLSP+4 , EXG , WOP , SZADDR,QDCLSP+5 );
63078 QCODE(QDCLSP+5 , STI , WOP , 2 , 0 ); ()+13*)
63080 OCODE(PDCLSP+2 , 'DCLSN ' ,SNS, O , O );
63090 OCODE(PDCLSP+3 , 'DCLPN ' ,SNS, O , O );
63099 ICODE(PFIXRG , LAL , ONX , 0 ,0 , O , O , O );
63100 ICODE(PFIXRG+1 , SFL , ONX , 0 ,0 , O , O , O );
63101 END;
63110 PROCEDURE THIRDPART;
63120 BEGIN
63130 OCODE(PBOUNDS , 'BOUND ' ,STS, O ,PRR);
63140 ICODE(PLOADVAR , LAL , ACX , 0 ,QLOADVAR , O , O ,PRR);
63145 QCODE(QLOADVAR , LXL , ACP , 0 ,QLOADVAR+4 );
63150 ICODE(PLOADVAR+1 , LAE , ACL , 0 ,QLOADVAR+1 , O , O ,PRR);
63155 QCODE(QLOADVAR+1 , LAE , ACB ,-FIRSTIBOFFSET,QLOADVAR+4 );
63156 ICODE(PLOADVAR+2 , DUP , ACP ,SZADDR,QLOADVAR+2,O , O ,PRR);
63157 QCODE(QLOADVAR+2 , ADP , ACX , 0 ,QLOADVAR+3 );
63158 QCODE(QLOADVAR+3 , EXG , WOP , SZADDR,QLOADVAR+4 );
63160 OCODE(QLOADVAR+4 , 'GLDVAR ' , O , O , O );
63170 OCODE(PLOADRT , 'ROUTN ' , O , O ,PRR);
63172 ICODE(PLOADRTA , LXL , ACP , 0 ,QLOADRTA , O , O ,SP);
63174 ICODE(PLOADRTA+1 , LAE , ACB ,-FIRSTIBOFFSET,QLOADRTA, O , O ,SP);
63176 ICODE(PLOADRTA+2 , ADP , ACP , 0 ,QLOADRTA , O , O ,SP);
63178 OCODE(QLOADRTA , 'ROUTNA ' , O , O , O );
63180 OCODE(PLOADRTP , 'ROUTNP ' ,PR1, O ,PRR);
63190 OCODE(PSCOPETT+2 , 'TASSTPT ' ,PR1,PR2,PRR);
63200 OCODE(PSCOPETT+3 , 'SCPTTP ' ,PR1,PR2,PRR);
63210 OCODE(PSCOPETT+4 , 'SCPTTM ' ,PR1,PR2,PRR);
63220 OCODE(PASSIGTT , 'TASSTS ' ,PR1,PR2,PRR);
63225 OCODE(PASSIGTT+1 , 'TASSTS2 ' ,PR1,PR2,PRR);
63230 OCODE(PASSIGTT+2 , 'TASSTPT ' ,PR1,PR2,PRR);
63240 OCODE(PASSIGTT+3 , 'TASSTP ' ,PR1,PR2,PRR);
63250 OCODE(PASSIGTT+4 , 'TASSTM ' ,PR1,PR2,PRR);
63260 OCODE(PSCOPETN , 'SCPTNP ' ,PR1,PR2,PRR);
63270 OCODE(PASSIGTN , 'TASSNP ' ,PR1,PR2,PRR);
63300 OCODE(PSCOPENT+2 , 'SCPNTPT ' ,PR1,PR2,PRR);
63310 OCODE(PSCOPENT+3 , 'SCPNTP ' ,PR1,PR2,PRR);
63330 OCODE(PASSIGNT , 'NASSTS ' ,PR1,PR2,PRR);
63340 OCODE(PASSIGNT+1 , 'NASSTS2 ' ,PR1,PR2,PRR);
63350 OCODE(PASSIGNT+2 , 'NASSTPT ' ,PR1,PR2,PRR);
63360 OCODE(PASSIGNT+3 , 'NASSTP ' ,PR1,PR2,PRR);
63390 OCODE(PSCOPENN , 'SCPNNP ' ,PR1,PR2,PRR);
63410 OCODE(PASSIGNN , 'NASSNP ' ,PR1,PR2,PRR);
63430 ICODE(PSCOPEVAR , LAL , ACX , 0 ,QSCOPEVAR ,PR1, O , O );
63435 QCODE(QSCOPEVAR , LXL , ACP , 0 ,QSCOPEVAR+4 );
63440 ICODE(PSCOPEVAR+1, LAE , ACL , 0 ,QSCOPEVAR+1 ,PR1, O , O );
63445 QCODE(QSCOPEVAR+1, LAE , ACB ,-FIRSTIBOFFSET,QSCOPEVAR+4 );
63446 ICODE(PSCOPEVAR+2, DUP , ACP,SZADDR,QSCOPEVAR+2,PR1,O , O );
63447 QCODE(QSCOPEVAR+2, ADP , ACX , 0 ,QSCOPEVAR+3 );
63448 QCODE(QSCOPEVAR+3, EXG , WOP , SZADDR ,QSCOPEVAR+4 );
63450 OCODE(QSCOPEVAR+4, 'GVSCOPE ' , O , O , O );
63460 OCODE(PSCOPEEXT , 'SCOPEXT ' ,PR1, O ,PRR);
63470 ICODE(PASGVART , STL , OPX , 0 ,0 ,ST , O , O );
63480 ICODE(PASGVART+1 , STE , OPL , 0 ,0 ,ST , O , O );
63490 ICODE(PASGVART+2 , STF , OPX , 0 ,0 ,ST , O , O );
63510 ICODE(PASGVART+3 , LAL , OPX , 0 ,QASGVART ,SRE, O , O );
63520 QCODE(QASGVART , STI , WOP , SZREAL ,0 );
63530 ICODE(PASGVART+4 , LAE , OPL , 0 ,QASGVART ,SRE, O , O );
63540 ICODE(PASGVART+5 , ADP , OPX , 0 ,QASGVART ,SRE, O , O );
63560 ICODE(PASGVART+6 , LAL , ACX , 0 ,QASGVART+1 ,ST , O , O );
63570 ICODE(PASGVART+7 , LAE , ACL , 0 ,QASGVART+1 ,ST , O , O );
63572 ICODE(PASGVART+8 , ADP , ACX , 0 ,QASGVART+1 ,PR1, O , O );
63580 OCODE(QASGVART+1 , 'GVASSTX ' , O , O , O );
63590 OCODE(PIDTYREL , 'IS ' ,PR1,PR2,PRR);
63600 OCODE(PIDTYREL+1 , 'ISNT ' ,PR1,PR2,PRR);
63602 OCODE(PGETTOTCMN , 'GTOTSTR ' ,PR1, O ,PRR);
63604 OCODE(PGETTOTCMN+1,'GTOTMUL ' ,PR1, O ,PRR);
63606 OCODE(PGETTOTCMN+2,'GTOTRFR ' ,PR1, O ,PRR);
63608 OCODE(PGETTOTAL , 'GTOTS ' ,PR1, O ,PRR);
63610 OCODE(PGETTOTAL+1, 'GTOTS2 ' ,PR1, O ,PRR);
63612 OCODE(PGETTOTAL+2, 'GTOTP ' ,PR1, O ,PRR);
63614 OCODE(PGETTOTAL+3, 'GTOTN ' ,PR1, O ,PRR);
63616 OCODE(PGETTOTAL+4, 'GTOTREF ' ,PR1, O ,PRR);
63618 OCODE(PGETMULT , 'GETMULT ' ,PR1, O ,PRR);
63620 OCODE(PGETMULT+1 , 'GETSLN ' ,PR1, O ,PRR);
63630 OCODE(PDEREF , 'DREFS ' ,PR1, O ,PRR);
63631 OCODE(PDEREF+1 , 'DREFS2 ' ,PR1, O ,PRR);
63632 OCODE(PDEREF+2 , 'DREFPTR ' ,PR1, O ,PRR);
63634 OCODE(PDEREF+3 , 'DREFN ' ,PR1, O ,PRR);
63640 OCODE(PDEREF+4 , 'DREFM ' ,PR1, O ,PRR);
63650 OCODE(PSKIP , 'SKIPS ' , O , O ,PRR);
63660 OCODE(PSKIP+1 , 'SKIPPIL ' , O , O ,PRR);
63665 OCODE(PSKIP+2 , 'SKIPS2 ' , O , O ,PRR);
63670 OCODE(PSKIPSTRUCT, 'SKIPSTR ' , O , O ,PRR);
63680 OCODE(PNIL , 'NILP ' , O , O ,PRR);
63690 ICODE(PVOIDNORMAL, DUP , WOP , SZADDR ,QVOIDNM, SP, O , O );
63700 QCODE(QVOIDNM , LOI , WOP , SZWORD ,QVOIDNM+1 );
63710 QCODE(QVOIDNM+1 , ZEQ , JMP , 3 ,QVOIDNM+2 );
63720 QCODE(QVOIDNM+2 , ASP , WOP , SZADDR ,QVOIDNM+3 );
63730 QCODE(QVOIDNM+3 , BRA , JMP , 2 ,QVOIDNM+4 );
63740 OCODE(QVOIDNM+4 , 'GARBAGE ' , O , O , O );
63750 OCODE(PVOIDNAKED , 'VOIDN ' ,PR1, O , O );
63760 ICODE(PWIDEN , LOC , WOP , SZINT ,QWIDEN , ST, O ,SRE);
63770 QCODE(QWIDEN , LOC , WOP , SZREAL ,QWIDEN+1 );
63780 QCODE(QWIDEN+1 , CIF , NON , 0 ,0 );
63790 OCODE(PWIDEN+2 , 'WIDREAL ' ,PR1, O ,PRR);
63800 OCODE(PWIDEN+4 , 'WIDCHAR ' ,PR1, O ,PRR);
63810 OCODE(PWIDEN+5 , 'WIDBITS ' ,PR1, O ,PRR);
63820 OCODE(PWIDEN+6 , 'WIDBYTS ' ,PR1, O ,PRR);
63830 OCODE(PWIDEN+7 , 'WIDSTR ' ,PR1, O ,PRR);
63840 OCODE(PROWNONMULT, 'ROWNM ' ,PR1, O ,PRR);
63850 OCODE(PROWMULT , 'ROWM ' ,PR1, O ,PRR);
63855 ICODE(PGETPROC , LOR , WOP , 1 ,QGETPROC ,PR1, O ,PRR);
63856 QCODE(QGETPROC , ADP , ANX , SZADDR ,QGETPROC+1 );
63857 QCODE(QGETPROC+1 , LOI , WOP , SZADDR,PGETPROC+1 );
63859 OCODE(PGETPROC+1 , 'GETPROC ' ,PR1, O ,PRR);
63860 ICODE(PCALL , LFR , WOP , 2*SZADDR,QCALLA,SNS, O , O );
63862 ICODE(PCALLA , LXL , ACP , 0 ,QCALLA ,SNS, O , O );
63865 ICODE(PCALLA+1 , LAE , ACB ,-FIRSTIBOFFSET,QCALLA,SNS, O , O );
63867 ICODE(PCALLA+2 , ADP , ACP , 0 ,QCALLA ,SNS, O , O );
63869 QCODE(QCALLA , DUP , WOP , 2*SZADDR,QCALLA+1 );
63870 QCODE(QCALLA+1 , ASP , WOP , SZADDR,QCALLA+2 );
63872 QCODE(QCALLA+2 , LOI , WOP , SZADDR,QCALLA+3 );
63874 QCODE(QCALLA+3 , CAI , NON , 0 ,0 );
63875 ICODE(PRNSTART , LOC , WOP ,A68STAMP,QRNSTART, O , O , O );
63876 QCODE(QRNSTART , STL , WOP , -SZWORD ,QRNSTART+1 );
63877 OCODE(QRNSTART+1 , 'RNSTART ' , O , O , O );
63878 ICODE(PRETURN , RET , OPX , 0 ,0 ,STN, O , O );
63880 OCODE(PGBSTK , 'GBSTK ' , O , O , O );
63884 ICODE(POUTJUMP , LOR , WOP , 1 ,QOUTJUMP , O , O , O );
63885 QCODE(QOUTJUMP , SFE , GBX , SZADDR ,QOUTJUMP+1 );
63886 QCODE(QOUTJUMP+1 , LOR , WOP , 0 ,QOUTJUMP+2 );
63887 QCODE(QOUTJUMP+2 , SFE , GBX , 2*SZADDR ,QOUTJUMP+3 );
63888 QCODE(QOUTJUMP+3 , GTO , GBX , 0 ,0 );
63890 OCODE(PGETOUT , 'GETOUT ' , O , O , O );
63892 ICODE(PSETIB , LFR , WOP , 2*SZADDR,QSETIB, O , O , O );
63895 QCODE(QSETIB , EXG , WOP , SZADDR ,QSETIB+1 );
63896 QCODE(QSETIB+1 , STR , WOP , 0 ,QSETIB+2 );
63897 QCODE(QSETIB+2 , STR , WOP , 1 ,0 );
63900 OCODE(PLEAPGEN , 'GENSTR ' , O , O ,PRR);
63910 OCODE(PLEAPGEN+1 , 'HEAPSTR ' , O , O ,PRR);
63920 OCODE(PLEAPGEN+2 , 'GENRSTR ' , O , O ,PRR);
63930 OCODE(PLEAPGEN+3 , 'GENMUL ' ,PR1, O ,PRR);
63940 OCODE(PLEAPGEN+4 , 'HEAPMUL ' ,PR1, O ,PRR);
63950 OCODE(PLEAPGEN+5 , 'GENRMUL ' ,PR1, O ,PRR);
63960 OCODE(PPREPSTRDISP , 'PCOLLST ' , O , O ,PRR);
63970 OCODE(PPREPROWDISP , 'PCOLLR ' ,STS, O ,PRR);
63980 OCODE(PPREPROWDISP+1, 'PCOLLRM ' ,STS, O ,PRR);
63990 OCODE(PCOLLCHECK , 'PCOLLCK ' ,STP, O , O );
64000 (* ICODE(PCOLLTOTAL , DUP , WOP , SZINT ,QCOLLTOTAL,STP,ST ,O);
64010 QCODE(QCOLLTOTAL , LOC , OPX , 0 ,QCOLLTOTAL+1 );
64020 QCODE(QCOLLTOTAL+1, ADI , WOP , SZINT ,QCOLLTOTAL+2 );
64030 QCODE(QCOLLTOTAL+2, EXG , WOP , SZINT ,QCOLLTOTAL+3 );
64040 QCODE(QCOLLTOTAL+3, STI , WOP , SZINT ,0 );*)
64050 (* ICODE(PCOLLTOTAL+2, DUP , WOP , SZINT,QCOLLTOTAL+4,STP,ST,O);
64060 QCODE(QCOLLTOTAL+4, LOC , WOP ,15 ,QCOLLTOTAL+5 );
64070 QCODE(QCOLLTOTAL+5,CSET , WOP , SZINT ,QCOLLTOTAL+6 );
64080 QCODE(QCOLLTOTAL+6, EXG , WOP , SZINT ,QCOLLTOTAL+7 );
64090 QCODE(QCOLLTOTAL+7, STI , WOP , SZINT ,PCOLLTOTAL );*)
64092 OCODE(PCOLLTOTAL , 'COLLTS ' ,PR1,PR2,PRR);
64093 OCODE(PCOLLTOTAL+1 , 'COLLTS2 ' ,PR1,PR2,PRR);
64095 OCODE(PCOLLTOTAL+2 , 'COLLTPT ' ,PR1,PR2,PRR);
64100 OCODE(PCOLLTOTAL+3 , 'COLLTP ' ,PR1,PR2,PRR);
64110 OCODE(PCOLLTOTAL+4 , 'COLLTM ' ,PR1,PR2,PRR);
64120 OCODE(PCOLLNAKED , 'COLLNP ' ,PR1,PR2,PRR);
64130 OCODE(PNAKEDPTR , 'NAKPTR ' ,PR1, O ,PRR);
64140 ICODE(PLINE , LIN , OPX , 0 ,0 , O , O , O );
64170 OCODE(PENDSLICE , 'ENDSL ' ,PR1, O ,PRR);
64180 OCODE(PTRIM , 'SLICEA ' , O , O , O );
64190 OCODE(PTRIM+1 , 'SLICEB ' , O , O , O );
64200 OCODE(PTRIM+2 , 'SLICEC ' , O , O , O );
64210 OCODE(PTRIM+3 , 'SLICED ' , O , O , O );
64220 OCODE(PTRIM+4 , 'SLICEE ' , O , O , O );
64230 OCODE(PTRIM+5 , 'SLICEF ' , O , O , O );
64240 OCODE(PTRIM+6 , 'SLICEG ' , O , O , O );
64250 OCODE(PTRIM+7 , 'SLICEH ' , O , O , O );
64260 OCODE(PTRIM+8 , 'SLICEI ' , O , O , O );
64270 OCODE(PTRIM+9 , 'SLICEJ ' , O , O , O );
64280 ICODE(PJMP , BRA , LCX , 0 ,0 , O , O , O );
64282 ICODE(PDUP1PILE , DUP , WOP , SZADDR,0 ,SP , O , SP);
64284 ICODE(PDUP2PILE , DUP , WOP , SZADDR*2,QDUP2PILE,SP,SP,SP);
64286 QCODE(QDUP2PILE , ASP , WOP , SZADDR,0 );
64290 ICODE(PDUP1ST , DUP , WOP , SZINT,0 , ST, O , ST);
64294 ICODE(PDUP1ST+1 , DUP , WOP , SZREAL,0 ,SRE, O ,SRE);
64300 ICODE(PDUP2ND , DUP , WOP , SZINT*2,QDUP2ND,ST ,ST , ST);
64310 ICODE(PDUP2ND+1 , DUP , WOP ,SZREAL+SZINT,QDUP2ND,SRE, ST,SRE);
64312 ICODE(PDUP2ND+2 , DUP , WOP , SZINT+SZREAL,QDUP2ND+1, ST,SRE, ST);
64314 ICODE(PDUP2ND+3 , DUP , WOP , SZREAL*2,QDUP2ND+1,SRE,SRE,SRE);
64318 QCODE(QDUP2ND , ASP , WOP , SZINT ,0 );
64319 QCODE(QDUP2ND+1 , ASP , WOP , SZREAL ,0 );
64320 ICODE(PDATALIST , LOC , OPX , 0 ,0 ,SNS, O ,DLS);
64322 ICODE(PHOIST , ASP , ONX , 0 ,QHOIST , O , O , O );
64324 QCODE(QHOIST , LOC , ACX , 0 ,QHOIST+1 );
64326 OCODE(QHOIST+1 , 'HOIST ' , O , O , O );
64330 ICODE(PPUSH , LOL , OPX , 0 ,0 , O , O , O );
64340 ICODE(PPUSH+1 , LOE , OPL , 0 ,0 , O , O , O );
64350 ICODE(PPUSH+2 , LOF , OPX , 0 ,0 , O , O , O );
64360 ICODE(PPUSH1 , LFL , OPX , 0 ,0 , O , O , O );
64375 ICODE(PPUSH1+1 , LFE , OPL , 0 ,0 , O , O , O );
64376 ICODE(PPUSH1+2 , LFF , OPX , 0 ,0 , O , O , O );
64377 ICODE(PPUSH2 , LAL , OPX , 0 ,QPUSH2 , O , O , O );
64378 ICODE(PPUSH2+1 , LAE , OPL , 0 ,QPUSH2 , O , O , O );
64379 ICODE(PPUSH2+2 , ADP , OPX , 0 ,QPUSH2 , O , O , O );
64380 QCODE(QPUSH2 , LOI , WOP , SZREAL ,0 );
64385 ICODE(PPUSHIM , LOC , OPX , 0 ,0 , O , O ,ST );
64390 ICODE(PPUSHIM+1 , LAE , GBX , 0 ,0 , O , O ,SP );
64395 ICODE(PPUSHIM+2 , LFC , OPX , 0 ,0 , O , O ,SP );
64397 ICODE(PPUSHIM+3 , LOE , GBX , 0 ,0 , O , O ,ST );
64400 ICODE(PPUSHIM2 , LFC , OPX , 0 ,0 , O , O , O );
64410 ICODE(PPUSHIM2+1 , LAE , GBX , 0 ,0 , O , O , O );
64411 ICODE(PPUSHI2A , ASP , WOP , SZINT-SZREAL,0 , O , O , O );
64412 ICODE(PPUSHIM4 , LXL , WOP , 0 ,QPUSHIM4 , O , O , O );
64414 QCODE(QPUSHIM4 , LPI , OPX , 0 ,0 );
64415 ICODE(PPUSHIM4+1 , LAE , GBX , 0 ,QPUSHIM4+1 , O , O , O );
64416 QCODE(QPUSHIM4+1 , LOI , WOP , SZREAL ,0 );
64420 ICODE(PPUSHFTN , LFR , WOP , SZINT ,0 , O , O , O );
64430 ICODE(PPUSHFTN+1 , LFR , WOP , SZADDR ,0 , O , O , O );
64435 ICODE(PPUSHFTN+2 , LFR , WOP , SZREAL ,0 , O , O , O );
64440 ICODE(PSWAP , EXG , WOP , SZWORD ,0 , O , O , O );
64442 ICODE(PSWAP+1 , EXG , WOP , SZADDR ,0 , O , O , O );
64444 ICODE(PSWAP+2 , EXG , WOP , SZREAL ,0 , O , O , O );
64446 OCODE(PSWAP+3 , 'SWAP ' , O , O , O );
64448 (*+13() ICODE(PPARM , LOL , ONX , 0 ,QDCLSP+1 , O , O , O ); ()+13*)
64450 (*+12() ICODE(PPARM , LIL , ONX , 0 ,QDCLSP+4 , O , O , O );
64460 QCODE(QDCLSP+4 , INC , NON , 0 ,QDCLSP+5 );
64465 QCODE(QDCLSP+5 , SIL , ONX , 0 ,0 ); ()+12*)
64470 (* ICODE(PSTOS2 , ASP , WOP ,-SZINT ,0 , O , O , O );
64530 ICODE(PS4TOS2 , ASP , WOP , SZADDR ,0 , O , O , ST); *)
64560 ICODE(PDECM , LOC , OPX , 0 ,0 , O , O , O );
64565 ICODE(PDECM+1 , STL , ONX , 0 ,0 , O , O , O );
64570 END;
64580 PROCEDURE INITPOPARRAY;
64590 VAR I,J:SBTTYP;
64600 BEGIN
64610 FOR I := SBTSTK TO SBTDL DO
64620 FOR J := SBTVOID TO SBTPRR DO
64630 BEGIN
64640 POPARRAY [I,J] := PNONE;
64650 POPARRAY [I,I] := PNOOP;
64660 POPARRAY [I,SBTVOID] :=PNOOP;
64670 POPARRAY [I,SBTVAR ] := PLOADVAR;
64672 POPARRAY [I,SBTPROC] := PLOADRTA;
64674 POPARRAY [I,SBTRPROC]:= PLOADRTA;
64680 END;
64700 POPARRAY[ SBTSTK2 , SBTSTK4 ] := PS4TOS2;
64710 POPARRAY[ SBTSTK4 , SBTPRR ] := PPUSHFTN+2;
64720 POPARRAY[ SBTSTK4 , SBTID ] := PPUSH2;
64730 POPARRAY[ SBTSTK4 , SBTIDV ] := PPUSH2;
64735 POPARRAY[ SBTSTK4 , SBTDEN ] := PPUSHIM4;
64740 POPARRAY[ SBTSTK4 , SBTPR1 ] := PNOOP;
64750 POPARRAY[ SBTSTK4 , SBTPR2 ] := PNOOP;
64760 POPARRAY[ SBTSTK , SBTSTK2 ] := PVARLISTEND+1;
64770 POPARRAY[ SBTSTK , SBTID ] := PPUSH;
64780 POPARRAY[ SBTSTK , SBTIDV ] := PPUSH;
64790 POPARRAY[ SBTSTK , SBTLIT ] := PPUSHIM;
64800 POPARRAY[ SBTSTK , SBTDEN ] := PPUSHIM;
64810 POPARRAY[ SBTSTK , SBTDL ] := PNOOP;
64820 POPARRAY[ SBTSTK2 , SBTID ] := PPUSH1;
64830 POPARRAY[ SBTSTK2 , SBTIDV ] := PPUSH1;
64840 POPARRAY[ SBTSTK2 , SBTLIT ] := PPUSHIM2;
64850 POPARRAY[ SBTSTK2 , SBTDEN ] := PPUSHIM2;
64852 POPARRAY[ SBTSTK2A, SBTLIT ] := PPUSHI2A;
64860 POPARRAY[ SBTSTK , SBTPRR ] := PPUSHFTN;
64870 POPARRAY[ SBTSTK2 , SBTPRR ] := PPUSHFTN+1;
64880 POPARRAY[ SBTSTK , SBTPR1 ] := PNOOP;
64890 POPARRAY[ SBTSTK , SBTPR2 ] := PNOOP;
64900 POPARRAY[ SBTSTK2 , SBTPR1 ] := PNOOP;
64910 POPARRAY[ SBTSTK2 , SBTPR2 ] := PNOOP;
64920 POPARRAY[ SBTSTK2 , SBTSTK ] := PSTOS2;
64980 END;
64990 PROCEDURE INITLENARRAY;
65000 VAR I:SBTTYP;
65010 BEGIN
65020 FOR I := SBTSTK TO SBTPRR DO LENARRAY[I] := 0;
65030 LENARRAY[SBTSTK ] := SZWORD;
65040 (*+19() LENARRAY[SBTSTK2] := SZADDR;
65042 LENARRAY[SBTSTK2A]:= 3*SZWORD; ()+19*)
65050 LENARRAY[SBTSTK4] := SZREAL;
65060 END;
65070 BEGIN (* INITCODES +)
65080 FIRSTPART; SECONDPART; THIRDPART; INITPOPARRAY; INITLENARRAY;
65090 END;
65100 (*+)
65110 ()+86*)
65120 (**)
65130 (**)
65140 (**)
65150 (**)
65160 (**)
65170 (*+71() BEGIN
65180 DUMP(FIRSTSTACK,LASTSTACK);
65190 END . ()+71*)
Reference in a new issue Copy permalink