Retro1.org codex

*DECK DLDISBI 
USETEXT DLFPDEF 
PROC DLDISBI(BINAR, OUT);    # CONVERT BINARY TO DISPLAY BINARY        #
 
 
*IF DEF,IMS 
 #
*1DC  DLDISBI 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLDISBI             P.C.TAM             78/10/11 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        CONVERT RIGHTMOST 8 BITS OF BINARY TO DISPLAY BINARY 
* 
*     3. METHOD USED. 
*        ADD 33B TO EACH DIGIT TO GET A DISPLAY DIGIT 
* 
*     4. ENTRY PARAMETERS.
*        BINAR               INPUT BINARY NUMBER
* 
*     5. EXIT PARAMETERS. 
*        OUT                 CALCULATED RESULT IN DISPLAY CODE
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED.
*        DLFPDEF
* 
*     7. ROUTINES CALLED. 
*        NONE 
* 
*     8. DAYFILE MESSAGES.
*        NONE 
 #
*ENDIF
# 
      EXTERNAL VARIABLES
# 
# 
      LOCAL VARIABLES 
# 
      ITEM
      TEMP1      I,          # TEMP VARIABLES                          #
      BINAR      I,          # INPUT VARIABLE                          #
      OUT        C(WC),      # OUTPUT VARIABLE                         #
      TEMP3      C(WC),      # TEMP VARIABLES                          #
      I          I;          # LOOP VARIABLE                           #
# ******************************************************************** #
      BEGIN 
      TEMP1 = BINAR;
      FOR I = 0 STEP 1 UNTIL 7
      DO
        BEGIN 
        B<54-I*CL, CL> TEMP3 = O"33" + B<59-I, 1> TEMP1;
        END 
      OUT = C<2, 8>TEMP3; 
      END 
TERM