Retro1.org codex

DEFCCOM 
* /---   FILE TYPE = E
* /---   BLOCK      ROLLAD     00 000   81/07/25  17.52 
          IDENT  ROLLAD 
          TITLE  ROLLAD      END OF CONDENSOR LOW CORE
* 
* 
          ENTRY  ROLLAD 
 ROLLAD   BSS    0           END OF CONDENSOR LOW CORE
* 
* 
          END 
* /---   BLOCK      DEFCCOM    00 000   84/12/06  09.44 
          IDENT  DEFCCOM
          TITLE  DEFCCOM     CONDENSOR SYMBOL DEFINITIONS 
* 
*         DEFINE COMMON SYSTEMS TEXT FOR CONDEN 
* 
 CCOMMON  CMTEXT
* 
* 
          LIST   F,X
* 
*CALL     PLASGLB 
          SPACE  3
***       CONDEN             CONDITIONAL ASSEMBLY FOR CONDENSOR 
* 
*         USED TO CONDITIONALLY ASSEMBLE CODE FOR THE 
*         CONDENSOR AS OPPOSED TO THE EXECUTOR. 
* 
*         ALSO DEFINED IN *MCTXT(1,2,3,4,5,6,...)*. 
* 
          PURGMAC CONDEN
          MACREF CONDEN$
          MACRO  CONDEN,NM
          MACREF CONDEN 
 NM       IFEQ   2,2
          ENDM
          SPACE  3
***       FRAMAT             CONDITIONAL ASSEMBLY FOR FORMATTER 
* 
*         USED TO CONDITIONALLY ASSEMBLE CODE FOR THE 
*         CONDENSOR AS OPPOSED TO THE FORMATTER.
* 
          PURGMAC FRAMAT
          MACREF FRAMAT$
          MACRO  FRAMAT,NM
          MACREF FRAMAT 
 NM       IFEQ   3,2
          ENDM
          SPACE  3
***       PLATO              CONDITIONAL ASSEMBLY FOR EXECUTOR
* 
*         USED TO CONDITIONALLY ASSEMBLE CODE FOR THE 
*         CONDENSOR AS OPPOSED TO THE EXECUTOR. 
* 
          PURGMAC PLATO 
          MACREF PLATO$ 
          MACRO  PLATO,NM 
 NM       IFEQ   1,2
          MACREF PLATO
          ENDM
          SPACE  3
*CALL      SYSCON 
*CALL     PLASMRC 
*CALL PARAMC
*CALL PCFTEXT 
*CALL PCTEXT
*CALL LOWTXT
*CALL COTEXT
*CALL LEXTXT
* 
* 
          END