*COMDECK /PASSLOC/
          RMT 
          IF        DEF,CAPSTAT,1 
          ERR  /PASSLOC/ MUST NOT BE CALLED INTO A CAPSULE. 
          RMT 
 RM$PL    PLOC      A 
 PL.CHEK  PLY       CHEK$SQ        CHECK, CHECKR
          PLY       CHWR$RM        CONVERT CHAR COUNT TO WDS+BITS 
 PL.CLSF  PLY       CLSF$RM 
 PL.CSV   PLY       CLSV$SQ        CLOSE VOLUME 
          PLX       CMM.ALF        ALLOCATE FIXED 
          PLX       CMM.FRF        FREE FIXED 
 PL.COMM  PLY       COMM$WA        COMMON WA CODE 
          IFC       EQ,/"OS.NAME"/KRONOS/,1 
          PLX       CPM=           FOR SETLOF/GETLOF ON NOS PSSTEXT.
          PLY       CTRL$AA        OPEN -> AAM
 PL.DF    PLY       DF$CRM         ERROR PROCESSOR (DAYFILE)
          PLX       ERR$RM         ERROR PROCESSOR (INITIALLY)
 RMP$FE   PLY       FLEF$RM        FLUSH ERROR FILE, UNLOAD DF/EF 
 PL.GET   PLY       GET$S          GET S RECORDS
 PL.GSQ   PLY       GET$SQ         GET SQ 
          PLY       GET$WA         GET
 PL.GP    PLY       GPTM$SQ        TERMINAL I/O 
 PL.LBL   PLY       LABL$RM        VARIOUS LABEL ROUTINES 
          PLL       LOF$RM         LIST OF FILES
          PLL       MOVE$RM 
          PLX       MSG=           MESSAGE
          PLL       OFCT$RM        OPEN FILES COUNT 
 PL.OPEN  PLY       OPEN$RM        OPEN 
 PL.PUT   PLY       PUT$S          PUT S RECORDS
 PL.PSQ   PLY       PUT$SQ         PUT SQ 
          PLY       PUT$WA         PUT
 PL.REPL  PLY       REPL$SQ        REPLACE
 PL.REW   PLY       REW$SQ         REWIND 
          PLY       REW$WA         REWIND 
*                   RM$ - UTILITY ROUTINES
          PLL       RM$ABUF        ALLOCATE A BUFFER
          PLL       RM$BLD         LOAD       BAM CAPSULE 
          PLL       RM$CIO         ISSUE CIO REQUEST
          PLL       RM$G1 
          PLL       RM$LDC         LOAD CAPSULES
          PLL       RM$LGO         TEST FO AND LOAD CAPSULE AND GO
          PLY       RM$PLL         PASSLOC LIST 
          PLL       RM$P1 
          PLL       RM$RCLA        AUTO RECALL
          PLX       RM$SYS= 
          PLL       RM$TMP         TABLE OF TRANSIENTS
          PLL       RM$ULJ         UNLOAD AND JUMP
          PLL       RM$UTC         UNLOAD TRANSIENT CAPSULES
  
 PL.SBL   PLY       SKBL$SQ        SKIP BACK LOGICAL
 PL.SKFL  PLY       SKFL$SQ 
 PL.SKP   PLY       SKIP$SQ        CONTAINS SK(B/F)(F/P)
 PL.SSB   PLY       SKSB$SQ        S
 PL.SSF   PLY       SKSF$SQ        S
          PLX       SYS=
 .DEV     IF        DEF,#DEV# 
          PLY       TRACK 
          PLY       TRACKON 
          PLY       UNTRACK 
 .DEV     ENDIF 
 PL.WEOX  PLY       WEOX$SQ        WEOS, WEOP 
 ENDPL    BSS 
* END /PASSLOC/ 
