Retro1.org codex

*DECK EXMOVOK 
      PROC MOVEOK ( (TSBN) ); 
      BEGIN # MOVEOK #
*IF DEF,IMS 
 #
**
* 
*     1. PROC NAME           AUTHOR              DATE 
*        MOVEOK              M. D. PICKARD       76/30/11 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        MOVEOK WILL CHANGE A FIXED POSITION TSB TO A MOVEABLE TSB. 
* 
*     3. METHOD USED
*        IF THE TSBN IS VALID THE NOT MOVE FLAG IS CLEARED IN THE 
*        TSB HEADER.
* 
*     4. ENTRY PARAMETERS 
*        TSBN (FORMAL)       TSB NUMBER FOR TSB THAT IS TO BE CHANGE
*                            FROM FIXED TO MOVEABLE 
* 
*     5. EXIT PARAMETERS
*        NONE.
* 
*     6. COMDECKS CALLED
*        TSBBASE             TSB MANAGER BASED ARRAY DEFINITIONS
*        TSBDATA             TSB MANAGER DATA AREA DEFINITIONS
*        TSBDEFS             TSB MANAGER SYMPL DEFS 
* 
*     7. ROUTINES CALLED
*        NONE.
* 
*     8. DAYFILE MESSAGES 
*        NONE.
* 
 #
*ENDIF
      CONTROL NOLIST;        # STOPS LIST TSBDEFS,TSBDATA,TSBBASE   # 
*CALL CYBERDEFS 
*CALL TSBDEFS 
*CALL TSBBASE 
*CALL TSBDATA 
      CONTROL LIST; 
      ITEM
           TSBN U;           # TSBN OF TSB TO CHANGE FROM FIXED TO     #
                             # MOVEABLE                                #
      IF ( TBUSY[TSBN] ) AND ( TSBN LS LENGTH[0] ) AND
         ( TSBN GR 0 )
      THEN                   # TSBN IS VALID                           #
        BEGIN 
        P<BTSBHDR> = TTSBFWA[TSBN]; # SET BUSY HEADER ON TSB           #
        BNOTMOV[0] = FALSE;  # CLEAR NOT MOVE FLAG                     #
        END 
      RETURN; 
      END TERM # MOVEOK #