*M*      CRDOUTL  7165 LOW SPEED CARD PUNCH HANDLER
*        705697   SIGMA 5/7         BPM 100 CPM PUNCH HANDLER
         SYSTEM   SIG7P
         PAGE
*
*    EXTERNAL DEFINITIONS AND REFERENCES
*
         DEF      CRDOUTL:          PATCHING DEF
CRDOUTL: RES
         DEF      CRDOUTL,CRDOLCU
*
CRDOUTL  EQU      CRDOUT
*
         REF      COMLIST,IOSERCK,IOSCU
         REF      IOSEREC
         PAGE
*
*   REGISTER DEFINITIONS
*
R0       EQU      0
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R7       EQU      7
R8       EQU      8
R9       EQU      9
R10      EQU      10
R11      EQU      11
R12      EQU      12
R13      EQU      13
R14      EQU      14
R15      EQU      15
*
:DOT     COM,8,8,8,8  BA(AF(1))-BA(DOT),AF(2),AF(3),AF(4)
:CLST    COM,8        DA(AF(1))-DA(DOT)
         PAGE
*
*       *******************
*       *  PRE-PROCESSOR  *
*       *******************
*
CRDOUT   LI,R10   DOT
         B        COMLIST
         PAGE
*
*       ********************
*       *  POST-PROCESSOR  *
*       ********************
*
CRDOLCU  EQU      %
         BAL,R9   IOSERCK           ERROR CHECK
         B        IOSCU             ERROR
         LI,R12   1                 IGNORE LOST DATA
         CI,R5    X'4000'           PUNCH JAM---7165 EO
         BAZ      IOSCU             NO
         BAL,R9   IOSEREC           LOG ERROR
         LI,R12   X'D000'           RETRY, FOLLOW ON, KEYIN & TYC=0
         B        IOSCU
         PAGE
*
*    COMMAND LIST OFFSETS
*
DOT      :DOT     BCD,1,0           PUNCH BCD
         :DOT     BIN,1,1           PUNCH BIN
*
*    COMMAND LISTS
*
BCD      :CLST    BCDCOM
BIN      :CLST    BINCOM
*
*    COMMANDS
*
         BOUND    8
BCDCOM   GEN,8,24   X'0D',0
         GEN,8,24   X'1E',X'200'
BINCOM   GEN,8,24   X'09',0
         GEN,8,24   X'1E',X'200'
*
         END

