3 <ENTRY PROG-REP-GEN RETURN-GEN AGAIN-GEN TAG-GEN GO-GEN CLEANUP-STATE
4 AGAIN-UP RETURN-UP PROG-START-AC>
6 <USE "CODGEN" "COMCOD" "CACS" "CHKDCL" "COMPDEC" "CUP">
8 <DEFINE CLEAN-AC (AC "AUX" ACRES INAC OAC)
9 #DECL ((AC) AC (INAC) DATUM)
11 (<SET ACRES <ACRESIDUE .AC>>
12 <PUT .AC ,ACRESIDUE <>>
19 <COND (<N==? .SYMT .SYM>
20 <COND (<OR <NOT <TYPE? .SYMT SYMTAB>>
22 <SMASH-INACS .SYMT <>>)
23 (ELSE <STOREV .SYMT T>)>)>>
26 (<AND <SET INAC <INACS .SYM>>
27 <OR <AND <==? <DATTYP .INAC> .AC>
28 <TYPE? <SET OAC <DATVAL .INAC>> AC>>
29 <AND <==? <DATVAL .INAC> .AC>
30 <TYPE? <SET OAC <DATTYP .INAC>> AC>>>>
33 <COND (<N==? .SYMT .SYM>
34 <COND (<OR <NOT <TYPE? .SYMT SYMTAB>>
36 <SMASH-INACS .SYMT <>>)
37 (ELSE <STOREV .SYMT T>)>)>>
39 <PUT .OAC ,ACRESIDUE (.SYM)>)>
40 <PUT .AC ,ACRESIDUE (.SYM)>
41 <MAPLEAVE <1 <ACRESIDUE .AC>>>)
42 (ELSE <SMASH-INACS .SYM <>> <>)>>