*DECK PUTDR 
          IDENT     PUT$R 
          LIST      C,F,X 
          COMMENT   CRM SQ PUT R-RECORD PROCESSOR 
          ENTRY     PUT$R 
          SST 
          B1=1
 AAAAA    DATA      01010101010101010101B 
*#
*1CD  PUT$R 
*0D   PURPOSE 
*0        CALCULATE RECORD LENGTH FOR R RECORDS FOR PUT$SQ. 
*0D   CALL
*0                  SB5       RETURN-ADDRESS
*                   EQ        =YPUT$R 
*0D   PARAMETERS
*0        A0        FIT ADDRESS.
*         B1        1.
*         B5        RETURN ADDRESS. 
*0D   ACTION
*0        IF THIS IS A PUTP REQUEST, BRANCH TO ERR$RM TO ISSUE
*         ERROR 123B (PUTP DISALLOWED FOR RT=R). SET B3 = WSA = 
*         START OF SEARCH. SET B4 = WSA+(MRL/10) = END OF SEARCH. 
*         FORM A FULL WORD OF RECORD MARK (RMK) CHARACTERS. USING 
*         A FULL-WORD 4-INSTRUCTION TEST FOR A RMK ANYWHERE IN THE
*         WORD, SEARCH WSA FOR A WORD CONTAINING A RMK. IF FOUND, 
*         SET X3=NUMBER OF CHARACTERS IN RECORD AND RETURN TO 
*         CALLER THROUGH B5. IF RMK NOT FOUND, SET X3=NUMBER OF 
*         CHARACTERS SEARCHED, SET X4 NEGATIVE, AND RETURN TO CALLER
*         THROUGH B5. 
*0D   REGISTERS USED
*0        ALL EXCEPT A0,B1,B5,B6
*0D   OTHER CODE REQUIRED 
*0        PROGRAMS- ERR$RM
*         MACROS-   CAP.RM,OFF.RM,F.RM,SAVE,RESTORE 
*#
*CALL /PUTDR/ 
          END 
