*DECK     OCTAL   - CONVERT WORD TO OCTAL DISPLAY CODE. 
          IDENT  OCTAL
          B1=1
          LIST   F,X
          TITLE  OCTAL - CONVERT WORD TO OCTAL DISPLAY CODE.
          COMMENT CONVERT WORD TO OCTAL DISPLAY CODE. 
 OCTAL    SPACE  4,8
**        OCTAL - CONVERT WORD TO OCTAL DISPLAY CODE. 
* 
*         R. H. GOODELL.     76/06/23.
* 
*         SYMPL-CALLABLE ROUTINES THAT RETURN, AS DISPLAY CODE
*         CHARACTERS, THE OCTAL REPRESENTATION OF ALL OR HALF 
*         OF A GIVEN BINARY WORD. 
 OCTAL    SPACE  4,8
**        OCTAL - RETURN TEN OCTAL DIGITS FOR LOWER HALF OF BINARY WORD.
* 
*         FUNC OCTAL (W) C (10).
* 
*         ITEM W I.          BINARY WORD. 
  
  
 OCTAL    SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SA1    X1+         FETCH W
          RJ     =XWOD       CONVERT
          BX6    X7          (X6) = RESULT
          JP     EXIT.       RETURN 
 OCT20    SPACE  4,8
**        OCT20 - RETURN TWENTY OCTAL DIGITS FOR THE ENTIRE BINARY WORD.
* 
*         PROC OCT20 (W, A, B). 
* 
*         ITEM W I.          BINARY WORD. 
*         ARRAY A.           CHARACTER WORD BUFFER. 
*         ITEM B I.          STARTING WORD INDEX IN A.
* 
*         STORES 20 CHARACTERS INTO WORDS B AND B+1 OF ARRAY A. 
  
  
 OCT20    SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SB7    A1          SAVE (A1)
          SA1    X1          FETCH W
          RJ     =XWOD       CONVERT
          SA2    B7+B1       FETCH LOC (A)
          SA3    A2+B1       FETCH LOC (B)
          SA3    X3          FETCH B
          IX2    X2+X3
          SA6    X2          STORE UPPER 10 CHARACTERS
          SA7    X2+B1       STORE LOWER 10 CHARACTERS
          JP     EXIT.       RETURN 
 COMCWOD  SPACE  4,8
**        COMCWOD - COMPASS-CALLABLE ROUTINE. 
  
  
*CALL     COMCWOD            CONVERT WORD TO OCTAL DISPLAY CODE.
  
  
          ENTRY  WOD= 
  
  
          END 
