--- /dev/null
+
+"These macros generate the codes for basic VAX addressing modes and
+ include some of the hairier cases."
+
+#WORD *2507413721*
+ <GFCN \1aMA-REG ("VALUE" FORM "QUOTE" ANY) AC4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-REG>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMA-REG>
+<COND (<AND <GASSIGNED? MA-REG> <NOT <TYPE? ,MA-REG MACRO>>> <SETG MA-REG <CHTYPE (,MA-REG) MACRO>>)>
+
+#WORD *16055326342*
+ <GFCN \1aMA-LIT ("VALUE" FORM "QUOTE" ANY) VAL4>
+ <TEMP TEMP8:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <PUSH 63>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMA-LIT>
+<COND (<AND <GASSIGNED? MA-LIT> <NOT <TYPE? ,MA-LIT MACRO>>> <SETG MA-LIT <CHTYPE (,MA-LIT) MACRO>>)>
+
+#WORD *21507523722*
+ <GFCN \1aMA-INDX ("VALUE" FORM "QUOTE" ANY) AC4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-INX>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMA-INDX>
+<COND (<AND <GASSIGNED? MA-INDX> <NOT <TYPE? ,MA-INDX MACRO>>> <SETG MA-INDX <CHTYPE (,MA-INDX) MACRO>>)>
+
+#WORD *22504123560*
+ <GFCN \1aMA-REGD ("VALUE" FORM "QUOTE" ANY) AC4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-REGD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMA-REGD>
+<COND (<AND <GASSIGNED? MA-REGD> <NOT <TYPE? ,MA-REGD MACRO>>> <SETG MA-REGD <CHTYPE (,MA-REGD) MACRO>>)>
+
+#WORD *21505043560*
+ <GFCN \1aMA-ADEC ("VALUE" FORM "QUOTE" ANY) AC4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-ADEC>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMA-ADEC>
+<COND (<AND <GASSIGNED? MA-ADEC> <NOT <TYPE? ,MA-ADEC MACRO>>> <SETG MA-ADEC <CHTYPE (,MA-ADEC) MACRO>>)>
+
+#WORD *5505173561*
+ <GFCN \1aMA-AINC ("VALUE" FORM "QUOTE" ANY) AC4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-AINC>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMA-AINC>
+<COND (<AND <GASSIGNED? MA-AINC> <NOT <TYPE? ,MA-AINC MACRO>>> <SETG MA-AINC <CHTYPE (,MA-AINC) MACRO>>)>
+
+#WORD *13424153545*
+ <GFCN \1aMA-AINCD ("VALUE" FORM "QUOTE" ANY) AC4>
+ <TEMP TEMP9:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-AINCD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aMA-AINCD>
+<COND (<AND <GASSIGNED? MA-AINCD> <NOT <TYPE? ,MA-AINCD MACRO>>> <SETG MA-AINCD <CHTYPE (,MA-AINCD) MACRO>>)>
+
+#WORD *15322443154*
+ <GFCN \1aMA-BD ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY) AC4 DISP5>
+ <TEMP TEMP13:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-BD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 8>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH DISP5>
+ <DEAD DISP5>
+ <PUSH 255>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 16>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMA-BD>
+<COND (<AND <GASSIGNED? MA-BD> <NOT <TYPE? ,MA-BD MACRO>>> <SETG MA-BD <CHTYPE (,MA-BD) MACRO>>)>
+
+#WORD *35603643770*
+ <GFCN \1aMA-BDD ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY) AC4 DISP5>
+ <TEMP TEMP13:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-BDD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 8>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH DISP5>
+ <DEAD DISP5>
+ <PUSH 255>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 16>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP13>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aMA-BDD>
+<COND (<AND <GASSIGNED? MA-BDD> <NOT <TYPE? ,MA-BDD MACRO>>> <SETG MA-BDD <CHTYPE (,MA-BDD) MACRO>>)>
+
+#WORD *31707704334*
+ <GFCN \1aMA-WD ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY) AC4 DISP5>
+ <TEMP TEMP15 TEMP16>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-WD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <TYPE? DISP5 <TYPE-CODE FIX> + TAG14>
+ <TYPE? DISP5 <TYPE-CODE WORD> + TAG14>
+ <TYPE? DISP5 <TYPE-CODE CHARACTER> - PHRASE13>
+TAG14
+ <LSH DISP5 16 = TEMP15 (TYPE FIX)>
+ <AND DISP5 #WORD *177400* = TEMP16>
+ <DEAD DISP5>
+ <OR TEMP15 TEMP16 = TEMP15>
+ <DEAD TEMP16>
+ <JUMP + PHRASE17>
+PHRASE13
+ <FRAME '\1aFORM>
+ <PUSH 'PROG>
+ <CONS DISP5 () = TEMP16>
+ <DEAD DISP5>
+ <CONS 'V TEMP16 = TEMP16>
+ <CONS TEMP16 () = STACK>
+ <DEAD TEMP16>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <PUSH .V>
+ <PUSH 16>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH .V>
+ <PUSH 65280>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = TEMP15>
+PHRASE17
+ <PUSH TEMP15>
+ <DEAD TEMP15>
+ <PUSH 16776960>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP15>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aMA-WD>
+<COND (<AND <GASSIGNED? MA-WD> <NOT <TYPE? ,MA-WD MACRO>>> <SETG MA-WD <CHTYPE (,MA-WD) MACRO>>)>
+
+#WORD *25222357674*
+ <GFCN \1aMA-WDD ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY) AC4 DISP5>
+ <TEMP TEMP14:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-WDD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH DISP5>
+ <PUSH 255>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 16>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH DISP5>
+ <DEAD DISP5>
+ <PUSH 65280>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 4 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP14>
+ <RETURN TEMP14>
+ <DEAD TEMP14>
+ <END \1aMA-WDD>
+<COND (<AND <GASSIGNED? MA-WDD> <NOT <TYPE? ,MA-WDD MACRO>>> <SETG MA-WDD <CHTYPE (,MA-WDD) MACRO>>)>
+
+#WORD *13154210074*
+ <GFCN \1aMA-LD ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY) AC4 DISP5>
+ <TEMP TEMP11 TEMP14>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-LD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP11>
+ <CONS TEMP11 () = TEMP11>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LREV>
+ <PUSH DISP5>
+ <DEAD DISP5>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <PUTREST TEMP11 TEMP14>
+ <DEAD TEMP14>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH 'LADDR>
+ <CALL '\1aFORM 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aMA-LD>
+<COND (<AND <GASSIGNED? MA-LD> <NOT <TYPE? ,MA-LD MACRO>>> <SETG MA-LD <CHTYPE (,MA-LD) MACRO>>)>
+
+#WORD *33445410664*
+ <GFCN \1aMA-LDD ("VALUE" FORM "QUOTE" ANY "QUOTE" ANY) AC4 DISP5>
+ <TEMP TEMP11 TEMP14>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <PUSH ,AM-LDD>
+ <FRAME '\1aFORM>
+ <PUSH 'AC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aFORM 2 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 24>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP11>
+ <CONS TEMP11 () = TEMP11>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LREV>
+ <PUSH DISP5>
+ <DEAD DISP5>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP14>
+ <CONS TEMP14 () = TEMP14>
+ <PUTREST TEMP11 TEMP14>
+ <DEAD TEMP14>
+ <PUSH TEMP11>
+ <DEAD TEMP11>
+ <PUSH 'LADDR>
+ <CALL '\1aFORM 3 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aMA-LDD>
+<COND (<AND <GASSIGNED? MA-LDD> <NOT <TYPE? ,MA-LDD MACRO>>> <SETG MA-LDD <CHTYPE (,MA-LDD) MACRO>>)>
+
+#WORD *32431651010*
+ <GFCN \1aMA-BYTE-IMM ("VALUE" FORM "QUOTE" ANY) VAL4>
+ <TEMP TEMP10:FORM>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'MA-AINC>
+ <PUSH ,AC-PC>
+ <CALL '\1aFORM 2 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <PUSH 255>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 16>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aMA-BYTE-IMM>
+<COND (<AND <GASSIGNED? MA-BYTE-IMM> <NOT <TYPE? ,MA-BYTE-IMM MACRO>>> <SETG MA-BYTE-IMM <CHTYPE (,MA-BYTE-IMM) MACRO>>)>
+
+#WORD *66010106*
+ <GFCN \1aMA-WORD-IMM ("VALUE" FORM "QUOTE" ANY) VAL4>
+ <TEMP TEMP12 TEMP13>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'MA-AINC>
+ <PUSH ,AC-PC>
+ <CALL '\1aFORM 2 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <TYPE? VAL4 <TYPE-CODE FIX> + TAG11>
+ <TYPE? VAL4 <TYPE-CODE WORD> + TAG11>
+ <TYPE? VAL4 <TYPE-CODE CHARACTER> - PHRASE10>
+TAG11
+ <AND VAL4 #WORD *377* = TEMP12>
+ <LSH TEMP12 16 = TEMP12 (TYPE FIX)>
+ <AND VAL4 #WORD *177400* = TEMP13>
+ <DEAD VAL4>
+ <OR TEMP12 TEMP13 = TEMP12>
+ <DEAD TEMP13>
+ <JUMP + PHRASE14>
+PHRASE10
+ <FRAME '\1aFORM>
+ <PUSH 'PROG>
+ <CONS VAL4 () = TEMP13>
+ <DEAD VAL4>
+ <CONS 'V TEMP13 = TEMP13>
+ <CONS TEMP13 () = STACK>
+ <DEAD TEMP13>
+ <FRAME '\1aFORM>
+ <PUSH 'ORB>
+ <FRAME '\1aFORM>
+ <PUSH 'LSH>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH .V>
+ <PUSH 255>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 16>
+ <CALL '\1aFORM 3 = STACK>
+ <FRAME '\1aFORM>
+ <PUSH 'ANDB>
+ <PUSH .V>
+ <PUSH 65280>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = TEMP12>
+PHRASE14
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <PUSH 16776960>
+ <CALL '\1aFORM 3 = STACK>
+ <CALL '\1aFORM 3 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMA-WORD-IMM>
+<COND (<AND <GASSIGNED? MA-WORD-IMM> <NOT <TYPE? ,MA-WORD-IMM MACRO>>> <SETG MA-WORD-IMM <CHTYPE (,MA-WORD-IMM) MACRO>>)>
+
+#WORD *22260031630*
+ <GFCN \1aMA-LONG-IMM ("VALUE" FORM "QUOTE" ANY) VAL4>
+ <TEMP TEMP8 TEMP11>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'MA-AINC>
+ <PUSH ,AC-PC>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP8>
+ <CONS TEMP8 () = TEMP8>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LREV>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP11>
+ <CONS TEMP11 () = TEMP11>
+ <PUTREST TEMP8 TEMP11>
+ <DEAD TEMP11>
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <PUSH 'LADDR>
+ <CALL '\1aFORM 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMA-LONG-IMM>
+<COND (<AND <GASSIGNED? MA-LONG-IMM> <NOT <TYPE? ,MA-LONG-IMM MACRO>>> <SETG MA-LONG-IMM <CHTYPE (,MA-LONG-IMM) MACRO>>)>
+
+#WORD *14600577161*
+ <GFCN
\1aMA-IMM ("VALUE" <OR EFF-ADDR LADDR> <PRIMTYPE FIX>) VAL4>
+ <TEMP TEMP10 TEMP17>
+ <INTGO>
+ <CHTYPE VAL4 <TYPE-CODE FIX> = VAL4>
+ <LESS? VAL4 0 + PHRASE6 (TYPE FIX)>
+ <GRTR? VAL4 63 + PHRASE6 (TYPE FIX)>
+ <AND VAL4 #WORD *77* = TEMP10>
+ <DEAD VAL4>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE6
+ <EQUAL? VAL4 %<CHTYPE <MIN> FIX> - PHRASE13>
+ <SET VAL4 2147483647 (TYPE FIX)>
+ <JUMP + PHRASE14>
+PHRASE13
+ <EQUAL? VAL4 %<CHTYPE <MAX> FIX> - PHRASE14>
+ <SET VAL4 2147483649 (TYPE FIX)>
+PHRASE14
+ <GVAL 'AM-AINC = TEMP10>
+ <FRAME '\1aAC-NUMBER>
+ <GVAL 'AC-PC = STACK>
+ <CALL '\1aAC-NUMBER 1 = TEMP17>
+ <OR TEMP10 TEMP17 = TEMP10>
+ <DEAD TEMP17>
+ <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
+ <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
+ <CONS TEMP10 () = TEMP10>
+ <FRAME '\1aLREV>
+ <PUSH VAL4>
+ <DEAD VAL4>
+ <CALL '\1aLREV 1 = TEMP17>
+ <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
+ <CONS TEMP17 () = TEMP17>
+ <PUTREST TEMP10 TEMP17>
+ <DEAD TEMP17>
+ <CHTYPE TEMP10 <TYPE-CODE LADDR> = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aMA-IMM>
+
+#WORD *35541362156*
+ <GFCN \1aLREV ("VALUE" FIX ANY) VAL4>
+ <TEMP TEMP5:FIX TEMP6:FIX>
+ <INTGO>
+ <AND VAL4 #WORD *377* = TEMP5>
+ <LSH TEMP5 24 = TEMP5 (TYPE FIX)>
+ <AND VAL4 #WORD *177400* = TEMP6>
+ <LSH TEMP6 8 = TEMP6 (TYPE FIX)>
+ <OR TEMP5 TEMP6 = TEMP5>
+ <DEAD TEMP6>
+ <AND VAL4 #WORD *77600000* = TEMP6>
+ <LSH TEMP6 -8 = TEMP6 (TYPE FIX)>
+ <OR TEMP5 TEMP6 = TEMP5>
+ <DEAD TEMP6>
+ <AND VAL4 #WORD *37700000000* = TEMP6>
+ <DEAD VAL4>
+ <LSH TEMP6 -24 = TEMP6 (TYPE FIX)>
+ <OR TEMP5 TEMP6 = TEMP5>
+ <DEAD TEMP6>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aLREV>
+
+#WORD *27350162263*
+ <GFCN \1aMA-DISP ("VALUE" <OR EFF-ADDR LADDR> ANY FIX) AC4 VAL5>
+ <TEMP AVAL6 TEMP12 TEMP14>
+ <INTGO>
+ <SET AVAL6 VAL5>
+ <LESS? AVAL6 0 - TAG7 (TYPE FIX)>
+ <SUB 0 AVAL6 = AVAL6 (TYPE FIX)>
+TAG7
+ <VEQUAL? VAL5 0 - PHRASE9 (TYPE FIX)>
+ <GVAL 'AM-REGD = TEMP12>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = TEMP14>
+ <OR TEMP12 TEMP14 = TEMP12>
+ <DEAD TEMP14>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE9
+ <GRTR? AVAL6 127 + PHRASE15 (TYPE FIX)>
+ <GVAL 'AM-BD = TEMP14>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = TEMP12>
+ <OR TEMP14 TEMP12 = TEMP14>
+ <DEAD TEMP12>
+ <LSH TEMP14 8 = TEMP14 (TYPE FIX)>
+ <AND VAL5 #WORD *377* = TEMP12>
+ <DEAD VAL5>
+ <OR TEMP14 TEMP12 = TEMP14>
+ <DEAD TEMP12>
+ <LSH TEMP14 16 = TEMP14 (TYPE FIX)>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <DEAD TEMP14>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE15
+ <GRTR? AVAL6 32767 + PHRASE18 (TYPE FIX)>
+ <DEAD AVAL6>
+ <GVAL 'AM-WD = TEMP14>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = TEMP12>
+ <OR TEMP14 TEMP12 = TEMP14>
+ <DEAD TEMP12>
+ <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+ <SET AVAL6 VAL5>
+ <DEAD VAL5>
+ <LSH AVAL6 16 = TEMP12 (TYPE FIX)>
+ <AND AVAL6 #WORD *177400* = AVAL6>
+ <OR TEMP12 AVAL6 = TEMP12>
+ <DEAD AVAL6>
+ <AND TEMP12 #WORD *77777400* = TEMP12>
+ <OR TEMP14 TEMP12 = TEMP14>
+ <DEAD TEMP12>
+ <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <DEAD TEMP14>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE18
+ <GVAL 'AM-LD = TEMP14>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = TEMP12>
+ <OR TEMP14 TEMP12 = TEMP14>
+ <DEAD TEMP12>
+ <LSH TEMP14 24 = AVAL6 (TYPE FIX)>
+ <DEAD TEMP14>
+ <CHTYPE AVAL6 <TYPE-CODE EFF-ADDR> = AVAL6>
+ <CONS AVAL6 () = AVAL6>
+ <FRAME '\1aLREV>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aLREV 1 = TEMP12>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <PUTREST AVAL6 TEMP12>
+ <DEAD TEMP12>
+ <CHTYPE AVAL6 <TYPE-CODE LADDR> = TEMP12>
+ <DEAD AVAL6>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aMA-DISP>
+
+#WORD *35241535122*
+ <GFCN \1aMA-DEF-DISP ("VALUE" <OR EFF-ADDR LADDR> ANY FIX) AC4 VAL5>
+ <TEMP AVAL6 TEMP12>
+ <INTGO>
+ <SET AVAL6 VAL5>
+ <LESS? AVAL6 0 - TAG7 (TYPE FIX)>
+ <SUB 0 AVAL6 = AVAL6 (TYPE FIX)>
+TAG7
+ <GRTR? AVAL6 127 + PHRASE9 (TYPE FIX)>
+ <GVAL 'AM-BDD = AVAL6>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = TEMP12>
+ <OR AVAL6 TEMP12 = AVAL6>
+ <DEAD TEMP12>
+ <LSH AVAL6 8 = AVAL6 (TYPE FIX)>
+ <AND VAL5 #WORD *377* = TEMP12>
+ <DEAD VAL5>
+ <OR AVAL6 TEMP12 = AVAL6>
+ <DEAD TEMP12>
+ <LSH AVAL6 16 = AVAL6 (TYPE FIX)>
+ <CHTYPE AVAL6 <TYPE-CODE EFF-ADDR> = AVAL6>
+ <RETURN AVAL6>
+ <DEAD AVAL6>
+PHRASE9
+ <GRTR? AVAL6 32767 + PHRASE13 (TYPE FIX)>
+ <DEAD AVAL6>
+ <GVAL 'AM-WDD = TEMP12>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = AVAL6>
+ <OR TEMP12 AVAL6 = TEMP12>
+ <DEAD AVAL6>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <AND VAL5 #WORD *377* = AVAL6>
+ <LSH AVAL6 16 = AVAL6 (TYPE FIX)>
+ <OR TEMP12 AVAL6 = TEMP12>
+ <DEAD AVAL6>
+ <AND VAL5 #WORD *177400* = AVAL6>
+ <DEAD VAL5>
+ <OR TEMP12 AVAL6 = TEMP12>
+ <DEAD AVAL6>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = AVAL6>
+ <DEAD TEMP12>
+ <RETURN AVAL6>
+ <DEAD AVAL6>
+PHRASE13
+ <GVAL 'AM-LDD = TEMP12>
+ <FRAME '\1aAC-NUMBER>
+ <PUSH AC4>
+ <DEAD AC4>
+ <CALL '\1aAC-NUMBER 1 = AVAL6>
+ <OR TEMP12 AVAL6 = TEMP12>
+ <DEAD AVAL6>
+ <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
+ <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <FRAME '\1aLREV>
+ <PUSH VAL5>
+ <DEAD VAL5>
+ <CALL '\1aLREV 1 = AVAL6>
+ <CHTYPE AVAL6 <TYPE-CODE EFF-ADDR> = AVAL6>
+ <CONS AVAL6 () = AVAL6>
+ <PUTREST TEMP12 AVAL6>
+ <DEAD AVAL6>
+ <CHTYPE TEMP12 <TYPE-CODE LADDR> = AVAL6>
+ <DEAD TEMP12>
+ <RETURN AVAL6>
+ <DEAD AVAL6>
+ <END \1aMA-DEF-DISP>
+
+#WORD *14003562465*
+ <GFCN \1aMA-ABS ("VALUE" FORM "QUOTE" ANY) ABS4>
+ <TEMP TEMP8 TEMP11>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'MA-AINCD>
+ <PUSH ,AC-PC>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP8>
+ <CONS TEMP8 () = TEMP8>
+ <FRAME '\1aFORM>
+ <PUSH 'CHTYPE>
+ <FRAME '\1aFORM>
+ <PUSH 'LREV>
+ <PUSH ABS4>
+ <DEAD ABS4>
+ <CALL '\1aFORM 2 = STACK>
+ <PUSH 'EFF-ADDR>
+ <CALL '\1aFORM 3 = TEMP11>
+ <CONS TEMP11 () = TEMP11>
+ <PUTREST TEMP8 TEMP11>
+ <DEAD TEMP11>
+ <PUSH TEMP8>
+ <DEAD TEMP8>
+ <PUSH 'LADDR>
+ <CALL '\1aFORM 3 = TEMP8>
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aMA-ABS>
+<COND (<AND <GASSIGNED? MA-ABS> <NOT <TYPE? ,MA-ABS MACRO>>> <SETG MA-ABS <CHTYPE (,MA-ABS) MACRO>>)>
projects / pdp10-muddle.git / blobdiff