Retro1.org codex

*DECK     SSDACR
          IDENT  SSDACR 
          ENTRY  SSDCAD 
          ENTRY  SSDCDA 
          TITLE  SSDACR - ASCII CONVERSION ROUTINES.
*COMMENT  ASCII CONVERSION ROUTINES.
 SSDACR   SPACE  4,10 
***       SSDACR - ASCII CONVERSION ROUTINES. 
* 
*         S. H. FISCHER.     81/08/11.
          SPACE  4,10 
***       THIS FUNCTION CONVERTS ASCII CHARACTERS TO 6 BIT DISPLAY
*         CODE CHARACTERS AND ASCII DISPLAY CODE CHARACTERS TO ASCII
*         CHARACTERS. 
          SPACE  4,10 
***       SYMPL CALLING SEQUENCE. 
* 
*         ASC = SSDCDA(DIS) 
* 
*         DIS = SSDCAD(ASC) 
* 
*                ASC = 7 BIT ASCII CHARACTER. 
*                DIS = 6 BIT DISPLAY CODE CHARACTER.
 SSDCDA   SPACE  4,10 
 SSDCDA   EQ     *+1S17D     CONVERT DISPLAY TO ASCII 
 CDAX     EQU    *
          SA2    X1          FETCH DISPLAY CODE CHARACTER 
          MX3    -6 
          BX4    -X3*X2      INSURE 6  BIT CHARACTER
          SA5    TVXD+X4     READ ASCII TRANSLATION 
          AX5    18 
          SX6    X5 
          EQ     CDAX        RETURN WITH CHARACTER
 SSDCAD   SPACE  4,10 
 SSDCAD   EQ     *+1S17D     CONVERT ASCII TO DISPLAY CODE
 CADX     EQU    *
          SA2    X1          FETCH ASCII CHARACTER
          SX3    177B 
          BX4    X3*X2       INSURE 7 BIT CHARACTER 
          SA5    TVXD+X4     READ DISPLAY CODE
          SX3    77B
          BX6    X3*X5       EXTRACT CHARACTER
          EQ     CADX        RETURN WITH CHARACTER
 
          LIST   X
 
*CALL     COMTVDT - IVT VIRTUAL ASCII / DISPLAY CODE TRANSLATION
 
          END