Table of Contents

DLDISBI

Table Of Contents

  • [00003] PROC DLDISBI(BINAR, OUT)

Source Code

DLDISBI.txt 
  1. *DECK DLDISBI 
  2. USETEXT DLFPDEF 
  3. PROC DLDISBI(BINAR, OUT);    # CONVERT BINARY TO DISPLAY BINARY        #
  4.  
  5.  
  6. *IF DEF,IMS 
  7.  #
  8. *1DC  DLDISBI 
  9. * 
  10. *     1. PROC NAME           AUTHOR              DATE 
  11. *        DLDISBI             P.C.TAM             78/10/11 
  12. * 
  13. *     2. FUNCTIONAL DESCRIPTION.
  14. *        CONVERT RIGHTMOST 8 BITS OF BINARY TO DISPLAY BINARY 
  15. * 
  16. *     3. METHOD USED. 
  17. *        ADD 33B TO EACH DIGIT TO GET A DISPLAY DIGIT 
  18. * 
  19. *     4. ENTRY PARAMETERS.
  20. *        BINAR               INPUT BINARY NUMBER
  21. * 
  22. *     5. EXIT PARAMETERS. 
  23. *        OUT                 CALCULATED RESULT IN DISPLAY CODE
  24. * 
  25. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  26. *        DLFPDEF
  27. * 
  28. *     7. ROUTINES CALLED. 
  29. *        NONE 
  30. * 
  31. *     8. DAYFILE MESSAGES.
  32. *        NONE 
  33.  #
  34. *ENDIF
  35. # 
  36.       EXTERNAL VARIABLES
  37. # 
  38. # 
  39.       LOCAL VARIABLES 
  40. # 
  41.       ITEM
  42.       TEMP1      I,          # TEMP VARIABLES                          #
  43.       BINAR      I,          # INPUT VARIABLE                          #
  44.       OUT        C(WC),      # OUTPUT VARIABLE                         #
  45.       TEMP3      C(WC),      # TEMP VARIABLES                          #
  46.       I          I;          # LOOP VARIABLE                           #
  47. # ******************************************************************** #
  48.       BEGIN 
  49.       TEMP1 = BINAR;
  50.       FOR I = 0 STEP 1 UNTIL 7
  51.       DO
  52.         BEGIN 
  53.         B<54-I*CL, CL> TEMP3 = O"33" + B<59-I, 1> TEMP1;
  54.         END 
  55.       OUT = C<2, 8>TEMP3; 
  56.       END 
  57. TERM