*DECK  LDRTDAA
          IDENT     LDRT$AA 
          COMMENT   LOAD RT CAPSULE FOR AAM PUTS
          TITLE     LDRT$AA - LOAD RT CAPSULE FOR AAM 
          B1=1
          SST 
*#
*1DC      LDRT$AA 
*0    PURPOSE 
*0        THIS IS A KLUDGY WAY TO GET THE DESIRED CAPSULE (PUT$Z, PUT$R,
*         OR PUT$DT) LOADED FOR AAM.
*         THIS MUST BE IN SAME GROUP WITH PUT$XX SO THAT =Y-S WILL GET
*         FILLED IN BY FDL. 
*0D   CALL
*0        B6 = RETURN ADDRESS 
*         B5 = RTJP = ADDR OF PUT$X 
*#
 RTABLE   BSS 
 #.C#     MICRO     2-#PLAO#,,/,/ 
          ECHO      1,CAP=(R,Z,DT,DT"#.C#"),NTRY=("#.C#"R,Z,D,T)
          VFD       42D/0LPUT$CAP,18D/=YPUT$NTRY
  
 LDRT$AA  CAP.RM
          F.RM      RT,A2,+RTABLE+#PLAO#-#RT# 
          RJ        =XRM$BLD       LOAD RT ROUTINE
          SET.RM    RTJP,B5        RECORD ADDR OF RT ROUTINE
          JP        B6
  
          END 
