*DECK LISTDRM 
          IDENT     LIST$RM 
          ENTRY     LIST$RM 
*#
*1CD  LIST$RM 
*0D   PURPOSE 
*0        ALLOCATE STORAGE FOR LIST OF FILES AND COPYRIGHT INFORMATION. 
*0D   CALL
*0        ADDRESS OF LIST$RM WILL BE CONTAINED IN CTL$RM ENTRY POINT
*         LOF$RM IN STATIC MODE.
*0D   PARAMETERS
*0        NONE
*0D   ACTION
*0        USE BSS TO ALLOCATE 53D WORDS PRECEDED BY A HEADER WORD 
*         CONTAINING THE LENGTH OF THE BLOCK. 
*         THE FIRST ENTRY IS ZERO TO SIGNIFY END OF EMPTY LIST. 
*0D   REGISTERS USED
*0        NONE
*0D   OTHER CODE REQUIRED 
*0        NONE
*#
          TITLE     LIST$RM 
          SST 
          IF        DEF,#DEV#,1 
          COMMENT   "TIME"
          COMMENT   CRM - ALLOCATE SPACE FOR LIST OF FILES
 SIZE     =         53D 
 LIST$RM  BSS       0 
          CON       SIZE
 FWL      BSS       0 
          DATA      0              CURRENT NEXT ENTRY MUST BE ZERO. 
          SPACE     1 
          DATA      H/COPYRIGHT / 
          DATA      H/CONTROL DA/ 
          DATA      H/TA SYSTEMS/ 
          DATA      H/INC, 1994./ 
          SPACE     1 
          BSS       SIZE+FWL-*
          DATA      H/ZERO=FULL/
          END 
