COMTDP9 
COMMON
          CTEXT  COMTDP9 - DISPLAY CODE TO BINARY O29 PUNCH.
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 BINP     SPACE  4
**        BINP - FORM BINARY IMAGE OF CARD PUNCHES. 
* 
*         BINP   (R1,R2,R3,...) 
* 
*         WHERE  RI= ROW TO PUNCH.
  
  
 BINP     MACRO  R
          LOCAL  A,B
 A        IFC    NE,*R**
          IRP    R
 B        SET    R
          IFLE   B,9D,2 
 B        SET    B+2
          SKIP   7
          IFEQ   B,11D,2
 B        SET    1
          SKIP   4
          IFEQ   B,12D,2
 B        SET    0
          SKIP   1
          ERR    ILLEGAL ROW - R
          POS    12D-B
          VFD    1/1
          IRP 
          BSS    0
 A        ELSE   1
          CON    0
          ENDM
 TDP9     SPACE  4
**        TDP9 - DISPLAY CODE TO BINARY O29 PUNCH.
*         ONE WORD ENTRY, INDEX BY DISPLAY CODE.
  
  
 TDP9     BSS    0
          LOC    0
  
          BINP   (8,2)       COLON
          BINP   (12,1)      A
          BINP   (12,2)      B
          BINP   (12,3)      C
          BINP   (12,4)      D
          BINP   (12,5)      E
          BINP   (12,6)      F
          BINP   (12,7)      G
  
          BINP   (12,8)      H
          BINP   (12,9)      I
          BINP   (11,1)      J
          BINP   (11,2)      K
          BINP   (11,3)      L
          BINP   (11,4)      M
          BINP   (11,5)      N
          BINP   (11,6)      O
  
          BINP   (11,7)      P
          BINP   (11,8)      Q
          BINP   (11,9)      R
          BINP   (0,2)       S
          BINP   (0,3)       T
          BINP   (0,4)       U
          BINP   (0,5)       V
          BINP   (0,6)       W
  
          BINP   (0,7)       X
          BINP   (0,8)       Y
          BINP   (0,9)       Z
          BINP   (0)         0
          BINP   (1)         1
          BINP   (2)         2
          BINP   (3)         3
          BINP   (4)         4
  
          BINP   (5)         5
          BINP   (6)         6
          BINP   (7)         7
          BINP   (8)         8
          BINP   (9)         9
          BINP   (12,8,6)    +
          BINP   (11)        -
          BINP   (11,8,4)    *
  
          BINP   (0,1)       /
          BINP   (12,8,5)    (
          BINP   (11,8,5)    )
          BINP   (11,8,3)    $
          BINP   (8,6)       =
          BINP   ()          BLANK
          BINP   (0,8,3)     ,
          BINP   (12,8,3)    .
  
          BINP   (8,3)       #
          BINP   (12,8,2)    [
          BINP   (11,8,2)    ]
          BINP   (0,8,4)     PERCENT
          BINP   (8,7)       .NE. 
          BINP   (0,8,5)     _
          BINP   (12,8,7)    !
          BINP   (12)        &
  
          BINP   (8,5)       '
          BINP   (0,8,7)     ?
          BINP   (12,8,4)    <
          BINP   (0,8,6)     >
          BINP   (8,4)       @
          BINP   (0,8,2)     \
          BINP   (11,8,7)    ^
          BINP   (11,8,6)    ;
  
          LOC    *O 
          BASE   *
  
          ENDX
