*COMDECK  PSODEFS 
 PSODEFS  CTEXT  PSODEFS - CCG PSEUDO OPERATION DEFINITIONS 
**        PSODEFS - PSEUDO OPERATION DEFINITIONS
  
*                INITIAL GROUP
  
 LCC      POD                LOADER CONTROL CARD
 IDENT    POD                IDENT LINE 
 TITLE    POD                TITLE LINE 
 COMNT    POD                COMMENT DIRECTIVE
 LIB      POD                LDSET LIB=LIBNAME
 USBLK    POD                *USEBLK* LINE, TERMINATE INITIAL GROUP 
  
*                THE BELOW MAY APPEAR IN *MACRO_S* MACROS 
  
 USE      POD                SET NEW *USE* BLOCK
 BSS      POD                RESERVE STORAGE
 CON      POD                DEFINE RELOCATABLE DATA WORD 
 BSSZ     POD                RESERVE STORAGE AND ZERO IT OUT
  
*                THE BELOW MAY NOT APPEAR IN *MACRO_S* MACROS 
  
 BMI      POD                BEGIN *TS* FORMAT MACHINE INST PROCESSING
 DATA     POD                DEFINE DATA WORDS
 DIS      POD                DEFINE BCD DATA IN *H* FORMAT
 HOL      POD                DEFINE HOLLERITH DATA ( H, L, OR R FORMAT )
 ORG      POD                SET/RESET *ORG* COUNTER
 REPI     POD                REPLICATE DATA 
 DCS      POD                DEFINE CHAR STRING AS MICRO NAME 
 VFDP     POD                CLEAR & ENTER PART WORD OF DATA
 APL      POD                DEFINE SUBROUTINE APLIST ENTRY 
 IOM      POD                DEFINE I/O APLIST ENTRY
 SUB      POD                DEFINE SCM/LCM INST AND ADDR SUB WORD
  
*                THE FOLLOWING PSEUDO ARE USED IN *MACRO_S* ONLY
  
 AAC      POD                ADD ADDRESS CONSTANT  ( MAY BE CA OF CON. )
 ACI      POD                ADD CONSTANT INFO
 ARI      POD                ADD RELOCATABLE INFO 
 ASV      POD                ADD STRING VALUE 
 BTW      POD                BEGIN TEXT WORD
 ELSE     POD                ELSE 
 IFT      POD                ASSEMBLY TIME IF TEST
 MIC      POD                DEFINE MICRO STRING ( @ 10 CHARS ) 
 SET      POD                DEFINE SET SYMBOL VALUE
  
*                SOME EQUIVALENCES TO THE *IL* OPCODES
  
* END     =      EOQ         END OF INPUT 
* EOB     =      EOS         END OF BUFFER ON INPUT 
  
          PURGMAC POD 
          ENDX
