Retro1.org codex

*DECK     NMI=CPI 
          IDENT  XCDD 
          ENTRY  XCDD 
          B1=1
          LIST   F
          TITLE  XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
          COMMENT   CONVERT INTEGER TO DECIMAL DISPLAY CODE.
 XCDD     SPACE  4,10 
***       XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE. 
* 
*         HOLLERITH = XCDD (INTEGER)
* 
*         XX = XCDD(YY);     ( SYMPL CALL ) 
* 
*         ENTRY - YY, AN ITEM THAT CONTAINS THE INTEGER TO BE CONVERTED 
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
 
 XCDD     SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCDD= 
          JP     XCDDX       RETURN, RESULT IN X6 
 
          END 
          IDENT  XCFD 
          ENTRY  XCFD 
          B1=1
          LIST   F
          TITLE  XCFD - CONVERT INTEGER TO F10.3 FORMAT.
          COMMENT   CONVERT INTEGER TO F10.3 FORMAT.
 XCFD     SPACE  4,10 
***       XVFD - CONVERT INTEGER TO F10.3 FORMAT. 
* 
*         HOLLERITH = XCFD (INTEGER)
* 
*         XX = XCFD(YY);     ( SYMPL CALL ) 
* 
*         ENTRY - YY, AN ITEM THAT CONTAINS THE INTEGER TO BE CONVERTED 
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
 
 XCFD     SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCFD=          CONVERT
          JP     XCFDX       RETURN, RESULT IN X6 
 CFD      SPACE  4,10 
          END 
          IDENT  XCOD 
          ENTRY  XCOD 
          B1=1
          LIST   F
          TITLE  XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
          COMMENT   CONVERT INTEGER TO OCTAL DISPLAY CODE.
 XCOD     SPACE  4,10 
***       XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE. 
* 
*         HOLLERITH = XCOD (INTEGER)
* 
*         XX = XCOD(YY);     ( SYMPL CALL ) 
* 
*         ENTRY - YY, AN ITEM THAT CONTAINS THE INTEGER TO BE CONVERTED 
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
 
 XCOD     SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCOD= 
          JP     XCODX       RETURN, RESULT IN X6 
 
          END 
          IDENT  XSFN 
          ENTRY  XSFN 
          B1=1
          LIST   F
          TITLE  XSFN - SPACE FILL NAME.
          COMMENT   SPACE FILL NAME.
 XSFN     SPACE  4,10 
***       XSFN - SPACE FILL NAME. 
* 
*         HOLLERITH = XSFN (NAME) 
* 
*         XX = XSFN(NAME);   ( SYMPL CALL ) 
* 
*         ENTRY - NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED,
*                       ZERO FILLED 
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
 
 XSFN     SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XSFN=       SPACE FILL NAME 
          JP     XSFNX       RETURN, RESULT IN X6 
 SFN      SPACE  4,10 
          END 
          IDENT  XSFW 
          ENTRY  XSFW 
          B1=1
          LIST   F
          TITLE  XSFW - SPACE FILL WORD.
          COMMENT   SPACE FILL WORD.
 XSFW     SPACE  4,10 
***       XSFW - SPACE FILL WORD. 
* 
*         HOLLERITH = XSFW (WORD) 
* 
*         XX = XSFW(WORD) 
* 
*         ENTRY - WORD, AN ITEM CONTAINING TO WORD TO CHANGE ZEROES TO
*                       BLANKS
* 
*         EXIT - XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT 
 
 
 XSFW     SUBR   =           ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XZTB=       SPACE FILL WORD 
          JP     XSFWX       RETURN, RESULT IN X6 
 
          END 
          IDENT  XWOD 
          ENTRY  XWOD 
          B1=1
          LIST   F
          TITLE  XWOD - CONVERT WORD TO OCTAL DISPLAY CODE. 
          COMMENT CONVERT WORD TO OCTAL DISPLAY CODE. 
 XWOD     SPACE  4,8
***       XWOD - CONVERT WORD TO OCTAL DISPLAY CODE 
* 
*         M. D. PICKARD.     77/03/15 
* 
*         SYMPL CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO
*         TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION
*         OF THE INPUT WORD.
* 
*         XWOD(W,A);         ( SYMPL CALL ) 
* 
*         ENTRY - W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED 
*                 A, A 20 CHARACTER BUFFER FWA
*                    ( AN ARRAY OR ITEM 20 CHARACTERS LONG )
* 
*         EXIT - A AND A+1, CONTAIN CONVERTED WORD
 
 
 XWOD     SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SB7    A1          SAVE (A1)
          SA1    X1          FETCH W
          RJ     =XWOD= 
          SA2    B7+B1       FETCH LOC (A)
          SA6    X2          STORE UPPER 10 CHARACTERS
          SA7    X2+B1       STORE LOWER 10 CHARACTERS
          JP     XWODX       RETURN 
 
          END 
*CWEOR,0