Twinax Interface - Intermec EasyCoder 3400d User Manual

Twinax Interface

C
C
*
C NAME
C
C
C
*
C
**************************
*
*****************************************************
** DLOADQ - DOWNLOAD TO PRINTER OUTQ SUB-ROUTINE
*****************************************************
*
C DLOADQ
*
* LINES IN THE <INIT> ARRAY:
C
*
* SET-UP CHANNEL CODE & <ESC> CHARACTER
C
C
C
C
*
* OUTPUT ALL <INIT> ARRAY PRINTER STATEMENTS TO PRINTER
C 1
C
C
C
*
C WRK,CX
C
C
*
C 120
C
C TMP
C
C
C
C
*
C
C
C
*
C
*
C
**************************
*
*****************************************************
** SETUPQ SET-UP OUTPUT ARRAY FOR PRINT QUEUE
*****************************************************
*
C SETUPQ
*
C
C
*
C
24
MOVE OFF *IN80
MOVE NO ERR
IFEQ *BLANKS
SETON
MOVE YES ERR
END
ENDSR
BEGSR
Z-ADD10 MXRD
Z-ADD1 AX
MOVE *BLANKS QRX
MOVEAQESC QRX,AX
ADD 5 AX
DO MXRD BX
MOVEA*BLANKS WRK
MOVEAINIT,BX WRK
Z-ADD80 CX
DOWEQ' '
SUB 1 CX
END
SUB AX TMP
ADD 1 TMP
IFLT CX
EXCPTPRINTQ
MOVE *BLANKS QRX
Z-ADD1 AX
END
MOVEAINIT,BX QRX,AX
ADD CX AX
END
EXCPTPRINTQ
ENDSR
BEGSR
Z-ADD1 AX
MOVEA*BLANKS QRX
ENDSR
1
80
**
30
30
30
30
**