DataMuseum.dk Presents historical artifacts from the history of: Philips Data Systems

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦91bb41998⟧

    Length: 36678 (0x8f46)
    Notes: pts_type(SC)
    Names: »DRTP03.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/DRTP03.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/DRTP03.SC« 

	IDENT DRTP03 	REL 11.0 81-06-24 870105041100 

			=4,GREEK CHAR. INCL. 
			REL 11.0 81-01-26
			=3,IMPROV. OF ORDER 37 
			REL 11.0 81-01-26
			=2,CORR. FOR ODD ECBADDR.
			REL 11.0 81-01-26
			=1,ABORT PROBLEM 
			PRR 11.0 80-11-19
* 
******************************************************* 
*                                                     * 
*   PHILIPS TERMINAL SYSTEM PTS                       * 
*                                                     * 
*   DRTP03 = DRIVER TELLER TERMINAL PRINTER           * 
*                                                     * 
*                                                     * 
******************************************************* 
* 
*   THIS DRIVER HANDLES TELLER TERMINAL PRINTER PTS 6371
* 
*   AND CONSISTS OF THE FOLLOWING PARTS:
* 
*   A C T P :	  ACTIVATION PART 
* 
*   R C T P :	  RECOVERY ROUTINE
* 
*   THE ACTIVATION PART SELECTS THE ACTUAL ORDER PROCESSOR. 
*   A STRING IS SET UP AND TRANSFERED TO THE PRINTER. 
*   THE STRING BEGINS WITH A DEDICATED PRINTER CHARACTER. 
*   THE CONTENTS OF THE STRING IS EITHER A FIXED FORMATTED
*   BUFFER OR FOR ORDER WRITE THE USER BUFFER.
*   THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. 
*   AFTER EXECUTION THE PRINTER RESPONDS WITH A STATUS
*   CHARACTER INDICATING THE RESULT OF THE EXECUTED ORDER.
* 
*   THE RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LOADING,
*   AFTER POWER ON FROM TERMINAL SIDE AND AFTER TRANSMISSION
*   TIME OUT. 
*   THE RECOVERY ROUTINE SENDS A FIXED FORMATTED STRING TO
*   THE PRINTER. THIS STRING CONTAINS THE ACTUAL PARAMETERS 
*   AND STATUS FOR THE PRINTER. 
	EJECT
* 
*   THE FOLLOWING ORDERS ARE TREATED: 
* 
*   ORDER 00 :      TEST STATUS 
*   ORDER 06 :      WRITE 
*   ORDER 0B :      POSITION DOCUMENT 
*   ORDER 24 :      SET PRINTER PARAMETERS
*   ORDER 27 :      SET DOCUMENT PARAMETERS 
*   ORDER 37 :      TRANSFER DOCUMENT PARAMETERS
*   ORDER 38 :      RELEASE DOCUMENT
* 
*   THE FOLLOWING RETURN CODES ARE USED:
* 
*   BIT  0 :        REQUEST ERROR 
*   BIT  2 :        END OF JOURNAL
*   BIT 10 :        DOCUMENT OUT
*   BIT 13 :        CODE CHECK ERROR
*   BIT 15 :        NOT OPERABLE
* 
* 
*   NORMAL REGISTER USAGE:
* 
*   REGISTER A1:	WORK REGISTER
*            A2:	INPUT/OUTPUT 
*            A3:	BUFFER POINTER 
*            A4:	OUTPUT COUNTER 
*            A5:	STACK POINTER
*            A6:	DWT-ADDRESS
*            A7:	ORDER
*            A8:	ECB-ADDRESS
* 
* 
	EJECT
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	TPAD3	ADDRESS BLOCK
* 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	LDISP	DISPATCHING FROM INTERRUPT 
	EXTRN	LENDER	DISPATCH I/O ERROR
	EXTRN	LENDIS	END I/O AND DISPATCH
	EXTRN	OUTPUT	OUTPUT ONE CHARACTER
	EXTRN	GETCHR	GET CHARACTER FROM ECB BUFFER 
	EXTRN	DWTST	DWT STATUS DISPLACEMENT
	EXTRN	DWTECB	DWT ECB DISPLACEMENT
	EXTRN	DWTOR	DWT ORDER DISPLACEMENT 
	EXTRN	DWTSB2	STACK BASE
	EXTRN	DWTDEV	DEVICE STATUS 
	EXTRN	DTTP03	DOCUMENT TABLE ADDRESS
	EXTRN	TLTP03	DOCUMENT TABLE LENGTH 
	EXTRN	INPUT	GET STATUS INPUT CHAR
	EXTRN	STABLK	DEF. START OF BLOCK 
	EXTRN	ENDBLK	DEF. END OF BLOCK 
	EJECT
* 
************* 
* CONSTANTS * 
************* 
* 
*	DEDICATED PRINTER CHARACTERS (/00-/0F)
* 
POTEST	EQU	/00	TEST 
PORECV	EQU	/01	RECOVERY 
RESTRT	EQU	/02	RESTART (NOT USED) 
ETX	EQU	/03	EXECUTE ORDER 
POPPAR	EQU	/04	SET PRINTER PARAMETERS 
PODSTA	EQU	/05	DIAGNOSTIC STATUS
EXE	EQU	/06	EXECUTE (NOT USED)
POTDOC	EQU	/07	TRANSFER DOCUMENT PARAMETERS 
PORDOC	EQU	/08	RELEASE DOCUMENT 
POWDOC	EQU	/09	WRITE DOCUMENT 
LF	EQU	/0A	LINE FEED (NOT USED) 
POPDOC	EQU	/0B	POSITION DOCUMENT
RESET	EQU	/0C	RESET ORDER 
POWJRL	EQU	/0D	WRITE JOURNAL
SPEC	EQU	/0E	ROOMLESS POINT 
TEST	EQU	/0F	TEST (NOT USED)
* 
ENDJ	EQU	/2000	END OF JOURNAL STATUS
DOCOUT	EQU	/20	DOCUMENT OUT STATUS
	EJECT
* 
************************
* CONDITIONAL ASSEMBLY *
************************
* 
*	THE STANDARD NATIONAL CHARACTER SET IS CHOSEN 
*	BY SETTING X:A TO 0-10 ACCORDING TO THE LIST BELOW
* 
*  NCV =	0	GREAT BRITAIN
*	1	GERMANY 
*	2	FRANCE 1
*	3	SPAIN 
*	4	ITALY 
*	5	SWEDEN, FINLAND 
*	6	DENMARK, NORWAY 1 
*	7	PORTUGAL
*	8	YUGOSLAVIA OR FRANCE 2 (DEPENDING ON CHAR GEN)
*	9  	USA 
*	10	DENMARK, NORWAY 2
* 
X:A	EQU	0 
STDNCV	EQU	X:A
* 
*	THE CHARACTER FONT CAN BE SELECTED
*	BY SETTING X:B TO : 0=UPPER CASE/SMALL NUMERIC, 1=LOWER CASE/SMALL NUMERIC
*	                    2=UPPER CASE/WIDER NUMERIC, 3=LOWER CASE/WIDER NUMERIC
* 
X:B	EQU	0 
FONT	EQU	X:B
* 
*	THE STANDARD CHARACTER PITCH FOR THE DOCUMENT STATION IS CHOSEN 
*	BY SETTING X:C TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH
* 
X:C	EQU	2 
STDCPD	EQU	X:C
* 
*	THE JOURNAL STATION CAN BE EXCLUDED 
*	BY SETTING X:D=0
* 
X:D	EQU	1 
JOURNL	EQU	X:D
* 
*	THE STANDARD CHARACTER PITCH FOR THE JOURNAL STATION IS CHOSEN
*	BY SETTING X:F TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH
* 
X:E	EQU	0 
STDCPJ	EQU	X:E
* 
*	THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED
*	BY SETTING X:F=1
* 
X:F	EQU	0 
PARORD	EQU	X:F
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
*   MMU BUFFER SIZE 
* 
X:G	EQU	126 
DVBLEN	EQU	X:G
* 
*	A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PRINTERS
*	BY SETTING X:H=1
X:H	EQU	0 
REQEND	EQU	X:H
* 
*	THE CHARACTERS /B0-/B9 WILL BE CONVERTED TO /1B,/41-/1B,/4A 
*	BY SETTING X:I=1. GREEK ADDITIONAL CHARACTERS.
* 
X:I	EQU	0	*	=4
GREEK	EQU	X:I	*	=4
* 
* 
* 
* 
PRIPAR	FORM	1=1,1=0,2=FONT,4=STDNCV,2=1,2=STDCPJ,2=1,2=STDCPD 
	EJECT
* 

********************* 
* DWT-DISPLACEMENTS * 
********************* 
* 
* 
* 
PP	EQU	/2	PRINTER PARAMETERS
PPJ	EQU	/4	PRINT POS JOURNAL
APJ	EQU	PPJ+1	ACTUAL PRINT POS JOURNAL
RPJ	EQU	PPJ	REQUESTED PRINT POS JOURNAL 
PPD	EQU	/6	PRINT POS DOCUMENT 
APD	EQU	PPD+1	ACTUAL PRINT POS DOCUMENT 
RPD	EQU	PPD	REQUESTED PRINT POS DOCUMENT
LN	EQU	/8	LINE NUMBER ON DOCUMENT 
ALN	EQU	LN+1	ACTUAL LINE NUMBER ON DOCUMENT 
RLN	EQU	LN	REQUESTED LINE NUMBER ON DOCUMENT
DP	EQU	/A	DOCUMENT PARAMETERS 
* 
* 
********************* 
* ECB-DISPLACEMENTS * 
********************* 
* 
ECBBA	EQU	2	BUFFER ADDRESS IN ECB 
ECBRL	EQU	4	REQUESTED LENGTH IN ECB 
ECBEL	EQU	6	EFFECTIVE LENGTH IN ECB 
ECBRC	EQU	8	RETURN CODE IN ECB
ECBCW	EQU	10	CONTROL WORD IN ECB
	EJECT
* 
**********
* TABLES *
**********
* 
* 
*	ADDRESS BLOCK 
* 
	DATA	DVBLEN	MMU BUFFER SIZE
	DATA	2	DEVICE INDEX
TPAD3	EQU	*	ADDRESS BLOCK 
	DATA	ACTP	ACTIVATION DRIVER
	DATA	0	ABORT ROUTINE ADDRESS 
	DATA	0	INTERRUPT HANDLER 
	DATA	RCTP	RECOVERY ROUTINE 
* 
*	VALID ORDERS WITH ACTIVATION ADDRESSES
* 
TPTAB	EQU	* 
	DATA	TPTAB0	DEVICE INDEX 0 TABLE 
	DATA	TPTAB1	DEVICE INDEX 1 TABLE 
	DATA	TPTAB2	DEVICE INDEX 2 TABLE 
	DATA	TPTAB3	DEVICE INDEX 3 TABLE 
* 
TPTAB0	EQU	*	DEVICE INDEX 0 
	IFT	JOURNL=1 
	DATA	0	TEST STATUS (JOURNAL) 
	DATA	TSTSTA
	DATA	6	WRITE JOURNAL 
	DATA	WRTJRL
	IFT	PARORD=1 
	DATA	/24	SET PRINTER PARAMETERS
	DATA	PRTPAR
	XIF
	DATA	/FFFF	END OF ORDERS 
* 
TPTAB1	EQU	*	DEVICE INDEX 1 
	DATA	0	TEST STATUS (DOCUMENT)
	DATA	TSTSTA
	DATA	6	WRITE DOCUMENT
	DATA	WRTDOC
	DATA	/0B	POSITION DOCUMENT 
	DATA	POSDOC
	DATA	/38	RELEASE DOCUMENT
	DATA	RELDOC
	DATA	/37	TRANSFER DOCUMENT PARAMETERS
	DATA	TRFDOC
	IFT	PARORD=1 
	DATA	/24	SET PRINTER PARAMETERS
	DATA	PRTPAR
	DATA	/27	SET DOCUMENT PARAMETERS 
	DATA	DOCPAR
	XIF
	DATA	/FFFF	END OF ORDERS 
* 
TPTAB2	EQU	*	DEVICE INDEX 2 
	DATA	/FFFF	END OF ORDERS 
* 
TPTAB3	EQU	*	DEVICE INDEX 3 
	DATA	/FFFF	END OF ORDERS 
* 
*	SYSTEM STANDARD PRINTER PARAMETERS
* 
STDPP	PRIPAR		STANDARD PRINTER PARAMETERS 
	EJECT
* 
* 
*   A C T P 
* 
*   THIS IS THE ACTIVATION PART OF THE DRIVER 
*   CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR
* 
* 
* 
ACTP	EQU	*	ACTIVATION ENTRY 
* 
* 
*   GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT
* 
	LC	A2,DWTOR,A6	GET DWT INDEX 
	ANK	A2,3	MASK
	SLL	A2,6	SHIFT 
	LD	A3,DWTDEV,A6	GET OLD DEVICE INDEX 
	ANKL	A3,/FF1F	RESET OLD INDEX AND LF IND 
	ORR	A3,A2
	ST	A3,DWTDEV,A6	STORE NEW INDEX
ACT005	LD	A1,DWTDEV,A6	GET DEVICE INDEX 
	ANK	A1,/C0 
	SRL	A1,5	GET CORESPONDING ORDER TABLE
	LD	A2,TPTAB,A1 
ACT010	LDR*	A3,A2 
	ABL(N)	LENDER	NO MORE VALID ORDERS 
	SUR	A3,A7	TEST IF ORDER VALID
	RF(E)	ACT020	VALID ORDER FOUND 
	ADK	A2,4	TRY NEXT ORDER
	RB	ACT010
ACT020	EQU	*
	ABI	2,A2	EXECUTE ORDER 
	EJECT
* 
* 
*   ORDER 00 : TEST STATUS
* 
* 
TSTSTA	EQU	*
	CM	ECBCW,A8	CLEAR CONTROL WORD 
	LDK	A2,3	BLOCK LENGTH
	LDK	A3,POTEST	LOAD TEST ORDER
	CF	A5,ORDER	AND SEND 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
			U	=1 
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,/15	TEST PRINTER STATUS 
	RF(Z)	TSST10	NO PERMANENT ERRORS 
TSST05	EQU	*
	LDK	A2,3	BLOCK LENGTH
	LDK	A3,PODSTA	LOAD DIAGNOSTIC ORDER
	CF	A5,ORDER	AND SEND 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
	SC	A2,ECBCW+1,A8	SET UP DIAGN STATUS IN ECB
	LDK	A1,1	INDICATE NOT OPERABLE 
	RF	TSST80
TSST10	LDR	A1,A2	GET PRINTER STATUS 
	IFT	JOURNL=1 
	LD	A3,DWTDEV,A6	GET DEVICE INDEX 
	ANK	A3,/C0	TEST DEVICE INDEX 
	RF(NZ)	TSST40	DEVICE INDEX > 0 
	ANK	A1,/22	TEST PRINTER STATUS 
	RF(Z)	TSST80	NO ERRORS 
	ANK	A1,2	TEST PRINTER STATUS 
	RB(NZ)	TSST05	JOURNAL ERROR = NOT OP 
	LDKL	A1,ENDJ	END OF JOURNAL
	RF	TSST80
	XIF	 
TSST40	ANK	A1,/40	TEST PRINTER STATUS 
	RF(Z)	TSST80	NO ERRORS 
	LDK	A1,DOCOUT	DOCUMENT OUT 
TSST80	ABL	LENDIS	END REQUEST 
	EJECT		
* 
* 
*   ORDER 06 : WRITE JOURNAL
* 
* 
	IFT	JOURNL=1 
WRTJRL	EQU	*
	LD	A1,DWTDEV,A6	GET STATUS 
	ANK	A1,/20	TEST LF INDICATOR 
	RF(NZ)	WRJL10	LF EXECUTED
	LD	A1,ECBRL,A8	GET REQUESTED LENGTH
	SUK	A1,2	TEST REQUESTED LENGTH 
	RF(N)	WRJL80	REQUEST ERROR 
	LD	A2,ECBBA,A8	GET CONTROL CHARACTER	=2
	LC	A2,1,A2	*	=2
	ANK	A2,/FF 
	SUK	A2,/2B	TEST CTRL CHAR
	RF(Z)	WRJL10	CTRL CHAR =/2B
	LDK	A4,2	SET UP 2 LF (CTRL CH =/30)
	SUK	A2,5	TEST CTRL CHAR
	RF(Z)	WRJL05	CTRL CHAR =/30
	LDK	A4,1	SET UP 1 LF (CTRL CH NOT DEF) 
	SUK	A2,1	TEST CTRL CHAR
	RF(NZ)	WRJL05	CTRL CHAR NOT =/31 
	LDK	A4,3	SET UP 3 LF (CTRL CH =/31)
WRJL05	EQU	*
	LDK	A2,4	BLOCK LENGTH
	LDK	A3,POWJRL	LOAD WRITE JOURNAL ORDER 
	CF	A5,ORDER	AND SEND 
	LDR	A2,A4	RELOAD NO OF LINE FEED 
	CF	A5,OUT	AND SEND 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
			U	=1 
	ANK	A2,7	TEST PRINTER STATUS 
	RF(NZ)	WRJL65	JOURNAL LINE FEED ERROR
	CM	DWTDEV+PPJ,A6	CLEAR PRINT POSITION
	LDK	A1,/20	SET UP LF EXECUTED
	ORS	A1,DWTDEV,A6	IND IN STATUS 
WRJL10	EQU	*
	LD	A2,ECBRL,A8 
	ADK	A2,2	BLOCK LENGTH
	LC	A1,DWTDEV+APJ,A6	GET ACTUAL PRINT POS 
	SC	A1,DWTDEV+RPJ,A6	SET UP START REQ PRINT POS 
	LDK	A3,2	SET UP BUFFER POINTER 
	CF	A15,GETCHR	GET CHARACTER FROM ECB BUFFER
	LDR	A1,A1	TEST IF NO BUFFER
	RF(Z)	WRJL60	NO BUFFER TO PRINT
	LDK	A3,POWJRL	LOAD WRITE JOURNAL ORDER 
	CF	A5,ORDER	AND SEND 
	LDK	A2,0	LOAD ZERO LINE FEED 
	CF	A5,OUT	AND SEND 
	LDKL	A4,/100	SET UP NORMAL CHAR COUNTER IN A4
	LDK	A3,2	SET UP BUFFER POINTER 
WRJL20	CF	A15,GETCHR	GET CHARACTER FROM ECB BUFFER
	LDR	A1,A1
	RF(Z)	WRJL50	BUFFER FINISHED 
	LDR	A1,A2	GET CHAR IN A1 
* 
*   EXAMINE CHAR AND UPDATE PRINT POS AND SEND
*   DEPENDING ON TYPE OF CHARACTER
* 
	SUK	A1,/10 
	RB(N)	WRJL20	CHAR </10 
	RF(Z)	WRJL30	CHAR = /10
	SUK	A1,9 
	RF(NZ)	WRJL25	CHAR NOT /19 (=EXPAND) 
	XRKL	A4,/300	SWITCH CHAR COUNTER IN A4 
	RF	WRJL40	SEND EXPAND CHAR 
WRJL25	SUK	A1,7 
	RF(N)	WRJL40	CHAR </20 SEND
	SUK	A1,/5F 
	RB(Z)	WRJL20	CHAR=/7F
	RF(N)	WRJL30	CHAR = NORMAL 
	SUK	A1,/2F 
	RF(Z)	WRJL28	CHAR =/AE 
	IFT	GREEK=1	*	=4 
	CF	A5,GRECON	CONVERSION FOR GREEK CHARACTERS	=4
	LDR	A1,A1	*	=4 
	RF(Z)	WRJL30	SUCCESSFUL CONVERSION	=4
	XIF		*	=4
	IFT	JOURNL=1	*	=4
	LDK	A1,4	IND CODE CHECK ERROR
	ORS	A1,ECBRC,A8	IN RETURN CODE 
	RB	WRJL20
WRJL28	LDK	A2,/0E 
	RF	WRJL40

*   UPDATE PRINT POSITION 

WRJL30	ADS	A4,DWTDEV+RPJ,A6	ADD 1 OR 2 TO REQ PRINT POS 

*   SEND CHARACTER TO DEVICE

WRJL40	CF	A5,OUTPUT	SEND CHARACTER
	ABL(NZ)	ERTP	JMP IF ERROR
	RB	WRJL20	GET NEXT CHARACTER 

*   SEND ETX

WRJL50	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
			U	=1 
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,/27	TEST PRINTER STATUS 
	RF(Z)	WRJL60	NO ERRORS 
	ANK	A1,3	TEST PRINTER STATUS 
	RF(NZ)	WRJL65	NOT OPERABLE 
	ANK	A2,4	TEST PRINTER STATUS 
	RF(NZ)	WRJL80	REQUEST ERROR
	LDKL	A1,ENDJ	END OF JOURNAL
WRJL60	LC	A3,DWTDEV+RPJ,A6	GET REQUESTED PRINT POSITION 
	SC	A3,DWTDEV+APJ,A6	SET UP ACTUAL PRINT POSITION 
	RF	WRJL70
WRJL65	LDK	A1,1	INDICATE NOT OPERABLE 
WRJL70	ABL	LENDIS	END REQUEST 
WRJL80	ABL	LENDER	END REQUEST WITH REQUEST ERROR
	XIF		
	EJECT		
* 
* 
*   ORDER 06 : WRITE DOCUMENT 
* 
* 
WRTDOC	EQU	*
	LC	A4,DWTDEV+ALN,A6	GET ACTUAL LINE
	ANK	A4,/FF 
	LD	A1,ECBRL,A8	GET REQUESTED LENGTH
	SUK	A1,2	TEST REQUESTED LENGTH 
	RF(N)	WRDO80	REQUEST ERROR 
	LD	A2,ECBBA,A8	GET CONTROL CHARACTER	=2
	LC	A2,1,A2	*	=2
	ANK	A2,/FF 
	LC	A3,DWTDEV+APD,A6	PREPARE NEW REQ PRINT POS
	SUK	A2,/2B 
	RF(Z)	WRDO07	CTRL CHAR = /2B 
	LDK	A3,0	PREPARE NEW REQ PRINT POS 
	ADK	A4,2	SET REQ LINE = ACT LINE + 2 
	SUK	A2,5 
	RF(Z)	WRDO05	CTRL CHAR = /30 
	SUK	A4,1	SET REQ LINE = ACT LINE + 1 
	SUK	A2,1 
	RF(NZ)	WRDO05	CTRL CHAR NOT = /31
	LDK	A4,1	SET REQ LINE = 1
WRDO05	LD	A1,DWTDEV+DP,A6	GET NUMBER OF LINES	=3
	CC	A4,2,A1	*	=3
	RF(G)	WRDO80	REQ LINE > MAX LINES
WRDO07	SC	A3,DWTDEV+RPD,A6	SET UP START REQ PRINT POS 
	SC	A4,DWTDEV+RLN,A6	SET UP REQ LINE NO 
	LDR	A4,A4
	RF(Z)	WRDO80	REQ LINE=ZERO 
WRDO10	EQU	*
	LD	A2,ECBRL,A8 
	ADK	A2,2	BLOCK LENGTH
	LDK	A3,POWDOC	SET UP PRINTER ORDER 
	CF	A5,ORDER	AND SEND 
	LDR	A2,A4	GET REQ LINE NO
	CF	A5,OUT	AND SEND 
	LDKL	A4,/100	SET UP NORMAL CHARACTER COUNT 
	LDK	A3,2	SET UP BUFFER POINTER 
WRDO20	CF	A15,GETCHR	GET CHARACTER FROM ECB BUFFER
	LDR	A1,A1
	RF(Z)	WRDO50	BUFFER FINISHED 
	LDR	A1,A2	GET CHARACTER

*   EXAMINE CHARACTER AND UPDATE PRINT POS AND SEND 
*   DEPENDING ON TYPE OF CHARACTER

	SUK	A1,/10 
	RB(N)	WRDO20	CHAR < /10
	RF(Z)	WRDO30	CHAR = /10 SEND 
WRDO22	SUK	A1,9 
	RF(NZ)	WRDO27	CHAR NOT /19 (=EXPAND) 
	XRKL	A4,/300	SWITCH CHAR COUNTER IN A4 
	RF	WRDO40	SEND EXPAND CHAR 
WRDO27	SUK	A1,7 
	RF(N)	WRDO40	CHAR < /20 SEND 
	SUK	A1,/5F 
	RF(N)	WRDO30	CHAR = NORMAL 
	RB(Z)	WRDO20	CHAR = /7F
	SUK	A1,/2F 
	RF(Z)	WRDO28	CHAR = /AE
	IFT	GREEK=1	*	=4 
	CF	A5,GRECON	CONVERSION FOR GREEK CHARACTERS	=4
	LDR	A1,A1	*	=4 
	RF(Z)	WRDO30	SUCCESSFUL CONVERSION	=4
	XIF		*	=4
	LDK	A1,4	INDICATE CODE CHECK ERROR 
	ORS	A1,ECBRC,A8	IN RETURN CODE 
	RB	WRDO20
WRDO28	LDK	A2,SPEC	SET UP CHAR /0E
	RF	WRDO40

*   UPDATE PRINT POS

WRDO30	ADS	A4,DWTDEV+RPD,A6	ADD 1 OR 2 TO REQ PRINT POS 

*   SEND CHARACTER TO PRINTER 

WRDO40	CF	A5,OUTPUT	SEND CHARACTER
	ABL(NZ)	ERTP	JMP IF ERROR
	RB	WRDO20	GET NEXT CHAR

*   SEND ETX

WRDO50	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
			U	=1 
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,/45	TEST PRINTER STATUS 
	RF(Z)	WRDO60	NO ERRORS 
	ANK	A1,1	TEST PRINTER STATUS 
	RF(NZ)	WRDO70	NOT OPERABLE 
	ANK	A2,4	TEST PRINTER STATUS 
	RF(NZ)	WRDO80	REQUEST ERROR
	LC*	A1,DWTDEV+DP,A6	DOCUMENT OUT	=3
	ANK	A1,/78	TEST DOC PAR (TIME OUT) 
	RB(NZ)	WRTDOC	NO TIME OUT USED,REPEAT ORDER
	LDK	A1,DOCOUT	DOCUMENT OUT 
	LDK	A3,0	RESET LINE COUNTER
	LDK	A4,0	RESET PRINT POSITION COUNTER
	RF	WRDO65
WRDO60	LC	A3,DWTDEV+RLN,A6	GET REQUESTED LINE NUMBER
	LC	A4,DWTDEV+RPD,A6	GET REQUESTED PRINT POSITION 
WRDO65	SC	A3,DWTDEV+ALN,A6	SET UP ACTUAL LINE NUMBER
	SC	A4,DWTDEV+APD,A6	SET UP ACTUAL PRINT POSITION 
	ANK	A3,/FF 
	ST	A3,ECBCW,A8	SET UP ACTUAL LINE IN CONTROL WORD
WRDO70	ABL	LENDIS	END REQUEST 
WRDO80	LC	A3,DWTDEV+APD,A6	GET ACTUAL LINE NUMBER 
	ANK	A3,/FF 
	ST	A3,ECBCW,A8	SET UP ACTUAL LINE IN CONTROL WORD
	ABL	LENDER	END REQUEST WITH REQUEST ERROR
	EJECT
* 
* 
*   ORDER 0B : POSITION DOCUMENT
*   CONTROL WORD CONTAINS REQUESTED LINE NO 
* 
* 
POSDOC	EQU	*
	LD	A4,ECBCW,A8	GET REQ LINE NO 
	RF(Z)	PDOC80	REQ LINE = 0
	LD	A1,DWTDEV+DP,A6	GET NUMBER OF LINES	=3
	CC	A4,2,A1	*	=3
	RF(G)	PDOC80	REQ LINE > MAX LINE 
	SC	A4,DWTDEV+RLN,A6	SET UP REQ LINE NO 
	LDK	A2,4	BLOCK LENGTH
	LDK	A3,POPDOC	SET UP PRINTER POSITION DOCUMENT ORDER 
	CF	A5,ORDER	AND SEND 
	LDR	A2,A4	SET UP LINE NO 
	CF	A5,OUT	AND SEND 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,/45	TEST PRINTER STATUS 
	RF(Z)	PDOC10	NO ERRORS 
	ANK	A1,1	TEST PRINTER STATUS 
	RF(NZ)	PDOC70	NOT OPERABLE 
	ANK	A2,4	TEST PRINTER STATUS 
	RF(NZ)	PDOC80	REQUEST ERROR
	LC*	A1,DWTDEV+DP,A6	DOCUMENT OUT	=3
	ANK	A1,/78	TEST DOC PAR (TIME OUT) 
	RB(Z)	POSDOC	NO TIME OUT USED, REPEAT ORDER
	LDK	A1,DOCOUT	INDICATE DOCUMENT OUT
	LDK	A4,0	RESET LINE COUNTER
PDOC10	SC	A4,DWTDEV+ALN,A6  PDATE OF LINE COUNTER 
	CM	DWTDEV+PPD,A6	RESET PRINT POSITION COUNTER
PDOC70	ABL	LENDIS	END REQUEST 
PDOC80	ABL	LENDER	END REQUEST WITH REQUEST ERROR
	EJECT
*	CONVERSION ROUTINE FOR GREEK CHARACTERS 
*	CHARACTER CODES /B0-/BP IN REG A2 WILL BE CONVERTED 
*	TO /41-/4A. THE SPECIAL CHARACTER /1B WILL
*	BE SENT TO THE PRINTER BEFORE RETURN FROM 
*	THIS ROUTINE. REG A1 WILL BE SET TO ZERO IF SUCCESSFUL. 
	IFT	GREEK=1	*	=4 
GRECON	EQU	*	*	=4 
	SUK	A1,2	*	=4
	RF(N)	GRCO80	CHAR < /B0	=4 
	SUK	A1,/A	*	=4 
	RF(P)	GRCO80	CHAR > /B9	=4 
	ANK	A2,/FF	*	=4
	ORR	A4,A2	SAVE CHAR TEMP	=4
	LDK	A2,/1B	SET UP SPECIAL CHAR	=4
	CF	A5,OUTPUT	SEND CHARACTER	=4 
	LDR	A2,A4	RESTORE CHAR	=4
	ANK	A2,/FF	*	=4
	SUK	A2,/6F	CONVERT CHAR (/B0 = /41 ETC.)	=4
	ANKL	A4,/FF00	CLEAR USED BITS	=4 
	LDK	A1,0	INDICATE SUCCESSFUL CONVERSION	=4 
GRCO80	RTN	A5	*	=4
	XIF		*	=4
	EJECT		
* 
* 
*   ORDER 37 : TRANSFER DOCUMENT PARAMETERS 
*   CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER 
* 
* 
TRFDOC	EQU	*
	LD	A1,ECBCW,A8 
	ADK	A1,1 
	LDR	A4,A1
	SLL	A4,3 
	ADR	A4,A1
	ADR	A4,A1
	CWK	A4,TLTP03
	RF(G)	ODOC80	REQ DOC TABLE NOT DEFINED 
	ADKL	A4,DTTP03-10	ADJUST DOCTAB POINTER	=3 
	LC	A1,DWTDEV+ALN,A6	GET ACTUAL LINE
	ANK	A1,/FF	TEST LINE NUMBER
	RF(Z)	ODOC20	DOCUMENT NOT YET POS (OK) 
	LCR	A1,A4	GET DOCUMENT TYPE	=3 
	ANK	A1,4 
	RF(Z)	ODOC80	REQUEST ERROR FOR DOC TYPE 0-3
ODOC20	EQU	*
	ST	A4,DWTDEV+DP,A6	SAVE DOC PAR ADDR	=3
	LDK	A2,/13	BLOCK LENGTH
	LDK	A3,POTDOC	LOAD TRANSFER DOC PAR ORDER
	CF	A5,ORDER	AND SEND 
	LDK	A3,10	SET UP TABLE LENGTH	=3 
ODOC30	LCR	A2,A4	GET DOC PARAMETER	=3 
	CF	A5,OUT	SEND PARAMETER	=3
	ADK	A4,1	INC TABLE POINTER	=3
	SUK	A3,1	DEC PARAMETER COUNTER	=3
	RB(NE)	ODOC30	WHOLE TABLE NOT SENT 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
			U	=1 
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,1	TEST PRINTER STATUS 
ODOC70	ABL	LENDIS	END REQUEST 
ODOC80	ABL	LENDER	END REQUEST WITH REQUEST ERROR
	EJECT		
* 
* 
*   ORDER 24 : SET PRINTER PARAMETERS 
*   CONTROL WORD CONTAINS:
*   BIT 0     : INDICATE CHANGE OF CH FONT AND NCV
*   BIT 01-03 : CHARACTER FONT
*   BIT 04-07 : NATIONAL CHARACTER VARIATION
*   BIT 08-11 : CHARACTER PITCH FOR JOURNAL STATION 
*   BIT 12-15 : CHARACTER PITCH FOR DOCUMENT STATION
* 
* 
	IFT	PARORD=1 
PRTPAR	EQU	*
	LDK	A2,0 
	LD	A4,DWTDEV+PP,A6	GET OLD DWT VALUE 
	ABL(NN)	LDISP	WAIT FOR INITIAL RECOVERY	=1 
	LD	A1,ECBCW,A8	GET CONTROL WORD
	RF(NN)	PPAR10	NO NEW L/NCV SET UP IN CTRL WORD 
	ECR	A2,A1
	ANK	A2,/FF 
	SC	A2,DWTDEV+PP,A6	STORE NEW L/NCV IN DWT
PPAR10	LDK	A2,0 
	LDR	A3,A1
	ANK	A3,/F0	GET CTRL WORD 
	RF(NZ)	PPAR15	NEW CPJ SET UP IN CTRL WORD
	LDR	A3,A4
	ANK	A3,/F0 
PPAR15	EQU	*
	ORR	A2,A3	STORE NEW CPJ IN A2
	XRR	A3,A4
	ANK	A3,/F0	NEW AND OLD CPJ EQUAL ? 
	RF(Z)	PPAR22	YES 
	CM	DWTDEV+PPJ,A6	NO, RESET PRINT POS FOR JOURNAL 
PPAR22	EQU	*
	LDR	A3,A1
	ANK	A3,/F	GET CTRL WORD
	RF(NZ)	PPAR25	NEW CPD SET UP IN CTRL WORD
	LDR	A3,A4
	ANK	A3,/F	GET CPD FROM DWT 
		
PPAR25	EQU	*
	ORR	A2,A3	STORE NEW CPD IN A2
	XRR	A3,A4
	ANK	A3,/F	NEW AND OLD CPD EQUAL ?
	RF(Z)	PPAR32	YES 
	CM	DWTDEV+PPD,A6	NO, RESET PRINT POS FOR DOC 
PPAR32	EQU	*
	SC	A2,DWTDEV+PP+1,A6	STORE NEW PARAMETERS IN DWT 
	LDK	A2,5	BLOCK LENGTH
	LDK	A3,POPPAR	LOAD PRINTER PRINTER PARAMETER ORDER 
	CF	A5,ORDER	AND SEND 
	LC	A2,DWTDEV+PP,A6 
	CF	A5,OUT	SEND L/NCV 
	LC	A2,DWTDEV+PP+1,A6 
	CF	A5,OUT	SEND CPJ/CPD 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
			U	=1 
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,1	TEST PRINTER STATUS 
PPAR70	ABL	LENDIS	END REQUEST 
	XIF
	EJECT		
* 
* 
*   ORDER 27 : SET DOCUMENT PARAMETERS
*   CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS
* 
* 
	IFT	PARORD=1 
DOCPAR	EQU	*
	LD	A1,ECBCW,A8	GET CONTROL WORD
	ADK	A1,1 
	LDR	A4,A1
	SLL	A4,3 
	ADR	A4,A1
	ADR	A4,A1
	CWK	A4,TLTP03
	RF(G)	DPAR80	DEFINED TABLE TOO SMALL 
	SUK	A4,10	ADJUST DOCTAB POINTER
	LD	A3,ECBBA,A8	GET BUFFER ADDRESS
	CF	A5,BYTE1	GET DOC TYPE 
	SUK	A1,7 
	RF(P)	DPAR80	ILLEGAL VALUE 
	SC	A2,DTTP03,A4
	CF	A5,BYTE1	GET TIME OUT VALUE 
	SLL	A2,11
	ORS	A2,DTTP03,A4 
	CF	A5,DOC	GET LINE SPACING 
	SUK	A2,15
	RF(P)	DPAR80	TOO LARGE 
	CF	A5,DOC	GET NO OF LINES
	SUK	A2,0 
	RF(Z)	DPAR80	NO LINES
	CF	A5,DOC	GET BOTTOM LINES 
	SUK	A2,14
	RF(N)	DPAR80	TOO SMALL 
	CF	A5,DOC	GET MARGIN 
	SUK	A2,0 
	RF(Z)	DPAR80	TOO SMALL 
	SUK	A2,80
	RF(P)	DPAR80	TOO LARGE 
	ADK	A4,1 
	CF	A5,BYTE1	GET MARGIN FINE
	SUK	A1,0 
	RF(Z)	DPAR80	TOO SMALL 
	SUK	A1,7 
	RF(P)	DPAR80	TOO LARGE 
	SC	A2,DTTP03,A4
	CF	A5,BYTE1	GET LEFT MARGIN
	SUK	A1,1 
	RF(P)	DPAR80	ILLEGAL VALUE 
	SLL	A2,3 
	ORS	A2,DTTP03,A4 
	CF	A5,BYTE1	GET CRITICAL MARGIN
	SUK	A1,1 
	RF(P)	DPAR80	ILLEGAL VALUE 
	SLL	A2,5 
	ORS	A2,DTTP03,A4 
	CF	A5,BYTE1	GET HIGH PRINT PRESSURE
	SUK	A1,1 
	RF(P)	DPAR80	ILLEGAL VALUE 
	SLL	A2,6 
	ORS	A2,DTTP03,A4 
	LC*	A1,ECBBA,A8	GET DOC TYPE 
	ANK	A1,/B
	RF(Z)	DPAR60	DOC TYPE = 0
	CF	A5,DOC	GET UPPER EDGE 
	SUK	A2,15
	RF(N)	DPAR80	TOO SMALL 
	SUK	A2,67
	RF(P)	DPAR80	TOO LARGE 
	CF	A5,DOC	GET BOTTOM EDGE
	SUK	A2,0 
	RF(Z)	DPAR30	OK
	SUK	A2,24
	RF(N)	DPAR80	TOO SMALL 
DPAR30	LC*	A1,ECBBA,A8	GET DOC TYPE 
	ANK	A1,/B
	SUK	A1,2 
	RF(N)	DPAR70	DOC TYPE = 1
	RF(P)	DPAR40	DOC TYPE = 3
	CF	A5,DOC	GET DOCUMENT WIDTH 
	SUK	A2,40
	RF(N)	DPAR80	TOO SMALL 
	SUK	A2,57
	RF(P)	DPAR80	TOO SMALL 
	RF	DPAR50
DPAR40	CF	A5,DOC	GET UPPER LINES
	SUK	A2,0 
	RF(Z)	DPAR80	TOO SMALL 
	SUK	A2,40
	RF(P)	DPAR80	TOO LARGE 
DPAR50	CF	A5,DOC	GET CENTER WIDTH 
	RF	DPAR75	OK 
DPAR60	LDK	A2,0	DT=0 SET 4 LAST PARAMETERS=0
	ADK	A4,1 
	ST	A2,DTTP03,A4
	ADK	A4,1 
DPAR70	LDK	A2,0	DT=1 SET 2 LAST PARAMETERS=0
	ADK	A4,1 
	ST	A2,DTTP03,A4
DPAR75	LDK	A1,0	IND STATUS OK FOR RETURN CODE 
	ABL	LENDIS	END REQUEST 
DPAR80	ABL	LENDER	END REQUEST WITH REQUEST ERROR

*   GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 
*   CONVERTED TO HEXA FROM ASCII

BYTE1	LCR	A2,A3	GET CHARACTER 
	CF	A5,CHECK	TEST IF NUMERIC
	ANK	A2,/F	GET HEXA 
	LDR	A1,A2	SAVE IN A1 ALSO
	ADK	A3,1	INC ECB BUFFER POINTER
	RTN	A5 

*   GET TWO BYTES FROM ECB BUFFER TO A2 
*   CONVERTED TO HEXA AND STORED IN DOC TABLE 

DOC	LDK	A1,0	CLEAR HEXA VALUE 
	ADK	A4,1	INC TABLE POINTER 
	LCR	A2,A3	GET CHARACTER FROM ECB BUFFER
	CF	A5,CHECK	TEST IF NUMERIC
	ANK	A2,/F
DOC10	SUK	A2,1
	RF(N)	DOC20	TENTH FINISHED 
	ADK	A1,10  PDATE TENTH 
	RB	DOC10 
DOC20	ADK	A3,1	INC ECB BUFFER POINTER 
	LCR	A2,A3	GET NEXT CHARACTER FROM ECB BUFFER 
	CF	A5,CHECK	TEST IF NUMERIC
	ANK	A2,/F
	ADR	A2,A1	ADD TO PREV HEXA VALUE 
	SC	A2,DTTP03,A4	STORE IN DOC TABLE 
	ADK	A3,1	INC ECB BUFFER POINTER
	RTN	A5 
* 
*   CHECK IF CHARACTER IS NUMERIC 
CHECK	ANK	A2,/FF	MASK OUT CHARACTER 
	SUK	A2,/30 
	RB(N)	DPAR80	TOO LOW ERROR 
	SUK	A2,9 
	RB(P)	DPAR80	TOO HIGH ERROR
	ADK	A2,/39	RESTORE CHARACTER 
	RTN	A5 
	XIF
	EJECT		
* 
* 
*   ORDER 38 : RELEASE DOCUMENT 
* 
* 
RELDOC	EQU	*
	LDK	A2,3	BLOCK LENGTH
	LDK	A3,PORDOC	LOAD PRINTER REL DOC ORDER 
	CF	A5,ORDER	AND SEND 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
	LDR	A1,A2	GET PRINTER STATUS 
	ANK	A1,1	TEST PRINTER STATUS 
	RF(NZ)	RDOC70	NOT OPERABLE 
	CM	DWTDEV+LN,A6	RESET LINE COUNTERS
	CM	DWTDEV+PPD,A6	RESET PRINT POSITION COUNTERS 
RDOC70	ABL	LENDIS	END REQUEST 
	EJECT
* 
*   S U B R O U T I N E S 
* 
* 

* 
*   O R D E R 
*   SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER
* 
ORDER	EQU	* 
	CF	A5,STABLK	START OF BLOCK
	RF(NZ)	ERTP	JMP IF ERROR 
	LDK	A2,RESET	SEND RESET JUST IN CASE 
	CF	A5,OUTPUT 
	RF(NZ)	ERTP	JMP IF ERROR 
	LDR	A2,A3
	RF	OUT10	SEND PRINTER ORDER
* 
*   E X E C U T E 
*   SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM.
* 
EXECUT	EQU	*
	LDK	A2,ETX	SEND EXECUTE CHAR TO PRINTER
	CF	A5,OUTPUT 
	RF(NZ)	ERTP	JMP IF ERROR 
	CF	A5,ENDBLK	END OF BLOCK
	RF(NZ)	ERTP	JMP IF ERROR 
EXE05	CF	A5,INPUT	GET STATUS CHARACTER	=1 
	LDR	A1,A7	TEST IF ORDER = POS OR REL	=1
	SUK	A1,/0B	U	=1
	RF(Z)	EXE10	POS, BIT 3 IN STATUS DON'T CARE	=1 
	SUK	A1,/38-/0B	U	=1
	RF(Z)	EXE10	REL, BIT 3 IN STATUS DON'T CARE	=1 
	LDR	A1,A2	TEST IF STATUS BIT 3 = 1	=1
	ANK	A1,/18	*	=3
	RB(Z)	EXE05	BIT 3 = 0, READ NEW STATUS	=1
EXE10	EQU	*	U	=1
	SC	A2,DWTDEV,A6	SAVE IN DWT STATUS 
	RTN	A5 
* 
*   0 U T 
*   ADD CONST. AND SEND 
* 
OUT	EQU	* 
	ANK	A2,/7F 
	ADK	A2,/10 
	CWK	A2,/7F 
	RF(NG)	OUT10	CHARACTER NOT GREATER THAN /7F
	LDK	A2,/7F	IF GREATER SET CHAR TO /7F
OUT10	EQU	* 
	CF	A5,OUTPUT 
	RF(NZ)	ERTP	JMP IF ERROR 
	RTN	A5 
			9 LINES DELETED	=1 
* 
*   ERROR ROUTINE FOR STABLK,OUTPUT & ENDBLK
* 
* 
ERTP	EQU	*
	IFF	REQEND=1 
	LDR	A7,A7
	RF(Z)	ERTP20	ORDER /00, TEST STATUS ?
	ANK	A1,/1A	OUTP ERR, SOFTW T-OUT, LRC-ERR ?
	RF(NZ)	RCTP	YES, RECOVERY
	ABL	LDISP	NO 
	XIF
ERTP20	LDK	A1,1	SET NOT OPERABLE
	ABL	LENDIS	END OF REQ. 
	EJECT
* 
*	R C T P 
* 
*	THIS IS THE RECOVERY ROUTINE FOR THE DRIVER 
*	DWT ORDER IS RESET IF NO REQUEST RUNING 
*	DWT IS SET BUSY 
*	AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT 
*	TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM
*	A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PRINTER 
*	THIS STRING CONTAINS THE ACTUAL PARAMETERS AND THE ACTUAL 
*	STATUS FOR THE PRINTER. 
*	A RUNING REQUEST IS AT LAST REPEATED. 
* 
RCTP	EQU	*
	LD	A1,DWTECB,A6	GET ECB ADDRESS
	RF(NZ)	RCTP02	REQUEST RUNNING
	CM	DWTOR,A6	RESET ORDER
RCTP02	EQU	*
	LDKL	A1,/7FFF	INDICATE DEVICE BUSY 
	ANS	A1,DWTST,A6
	LDKL	A5,DWTSB2	STACK BASE
	ADR	A5,A6
			 
	LD	A1,DWTDEV+DP,A6	*	=3
	RF(NZ)	RCTP08	NOT SYSTEM START RECOVERY	=3 
	LDKL	A1,DTTP03	SET UP DOC PAR TABLE 0 IN DWT	=3
	ST	A1,DWTDEV+DP,A6	*	=3
	LD	A3,STDPP	SET UP ST PR PAR IN DWT
	ST	A3,DWTDEV+PP,A6 
			*	=3 
RCTP08	EQU	*
	LDK	A2,3	BLOCK LENGTH
	LDK	A3,POTEST	LOAD PRINTER ORDER TEST STATUS 
	CF	A5,ORDER	AND SEND 
	CF	A5,EXECUT	EXECUTE ORDER IN PRINTER
RCTP10	EQU	*
	LDK	A2,/19	BLOCK LENGTH
	LDK	A3,PORECV	SET UP PRINTER RECOVERY ORDER
	CF	A5,ORDER	AND SEND 
	LD	A3,DWTDEV+PP,A6	GET PRINTER PARAMETERS
RCTP20	ECR	A2,A3
	CF	A5,OUT	SEND L/NCV 
	LDR	A2,A3
	CF	A5,OUT	SEND CPJ/CPD 
	LC	A2,DWTDEV+APJ,A6	GET ACTUAL POS JOURNAL 
	CF	A5,OUT	AND SEND 
	LC	A2,DWTDEV+APD,A6	GET ACTUAL POS DOCUMENT
	LDR	A3,A2	SAVE DOC POS 
	ANK	A2,/3F	MASK OFF MSB
	CF	A5,OUT	SEND APD 
	LDR	A2,A3	GET DOC POS BACK 
	ANK	A2,/40	MASK OUT MSB
	CF	A5,OUT	SEND AP6 
	LC	A2,DWTDEV+ALN,A6	GET ACTUAL LINE NO 
	CF	A5,OUT	AND SEND 
RCTP40	LDK	A4,10
	LD	A3,DWTDEV+DP,A6	GET DOC PAR ADDRESS	=3
RCTP50	LCR	A2,A3	GET DOC PARAMETER
		
	CF	A5,OUT	AND SEND 
	ADK	A3,1	INC DOC TABLE POINTER 
	SUK	A4,1	DEC CHARACTER COUNTER 
	RB(NZ)	RCTP50	WHOLE TABLE NOT SENT 
RCTP60	CF	A5,EXECUT	EXECUTE RECOVERY IN PRINTER 
RCTP70	LD	A1,DWTECB,A6
	ABL(NZ)	ACT005	REQ RUNNING 
	ABL	LENDIS	REQ NOT RUNNING 
	END

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRTP03  REL 11.0 81-06-24 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e              Head {h00=0x001c, h01=0x0050, text=»   =4,GREEK CHAR. INCL. «, t00=0x0000, t01=0x0042}
0x005e…007a              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0000, t01=0x0062}
0x007a…009c              Head {h00=0x001e, h01=0x0050, text=»   =3,IMPROV. OF ORDER 37 «, t00=0x0000, t01=0x007e}
0x009c…00b8              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0000, t01=0x00a0}
0x00b8…00dc              Head {h00=0x0020, h01=0x0050, text=»   =2,CORR. FOR ODD ECBADDR.«, t00=0x0000, t01=0x00bc}
0x00dc…00f8              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0000, t01=0x00e0}
0x00f8…0114              Head {h00=0x0018, h01=0x0050, text=»   =1,ABORT PROBLEM «, t00=0x0000, t01=0x00fc}
0x0114…0130              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-11-19«, t00=0x0000, t01=0x0118}
0x0130…013a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…017a              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x013e}
0x017a…01ba              Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x0000, t01=0x017e}
0x01ba…01fa              Head {h00=0x003c, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS                       * «, t00=0x0001, t01=0x002e}
0x01fa…023a              Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x0001, t01=0x006e}
0x023a…027a              Head {h00=0x003c, h01=0x0050, text=»*   DRTP03 = DRIVER TELLER TERMINAL PRINTER           * «, t00=0x0001, t01=0x00ae}
0x027a…02ba              Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x0001, t01=0x00ee}
0x02ba…02fa              Head {h00=0x003c, h01=0x0050, text=»*                                                     * «, t00=0x0001, t01=0x012e}
0x02fa…033a              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x016e}
0x033a…0344              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x0344…0384              Head {h00=0x003c, h01=0x0050, text=»*   THIS DRIVER HANDLES TELLER TERMINAL PRINTER PTS 6371«, t00=0x0002, t01=0x0028}
0x0384…038e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038e…03be              Head {h00=0x002c, h01=0x0050, text=»*   AND CONSISTS OF THE FOLLOWING PARTS:«, t00=0x0002, t01=0x0072}
0x03be…03c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a2}
0x03c8…03f0              Head {h00=0x0024, h01=0x0050, text=»*   A C T P :   ACTIVATION PART «, t00=0x0002, t01=0x00ac}
0x03f0…03fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03fa…0422              Head {h00=0x0024, h01=0x0050, text=»*   R C T P :   RECOVERY ROUTINE«, t00=0x0002, t01=0x00de}
0x0422…042c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…0470              Head {h00=0x0040, h01=0x0050, text=»*   THE ACTIVATION PART SELECTS THE ACTUAL ORDER PROCESSOR. «, t00=0x0002, t01=0x0110}
0x0470…04ae              Head {h00=0x003a, h01=0x0050, text=»*   A STRING IS SET UP AND TRANSFERED TO THE PRINTER. «, t00=0x0002, t01=0x0154}
0x04ae…04f0 (3, 0, 400)  Head {h00=0x003e, h01=0x0050, text=»*   THE STRING BEGINS WITH A DEDICATED PRINTER CHARACTER. «, t00=0x0003, t01=0x0004}
0x04f0…0532              Head {h00=0x003e, h01=0x0050, text=»*   THE CONTENTS OF THE STRING IS EITHER A FIXED FORMATTED«, t00=0x0003, t01=0x0046}
0x0532…0568              Head {h00=0x0032, h01=0x0050, text=»*   BUFFER OR FOR ORDER WRITE THE USER BUFFER.«, t00=0x0003, t01=0x0088}
0x0568…05aa              Head {h00=0x003e, h01=0x0050, text=»*   THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. «, t00=0x0003, t01=0x00be}
0x05aa…05e8              Head {h00=0x003a, h01=0x0050, text=»*   AFTER EXECUTION THE PRINTER RESPONDS WITH A STATUS«, t00=0x0003, t01=0x0100}
0x05e8…062a              Head {h00=0x003e, h01=0x0050, text=»*   CHARACTER INDICATING THE RESULT OF THE EXECUTED ORDER.«, t00=0x0003, t01=0x013e}
0x062a…0634              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0180}
0x0634…0676              Head {h00=0x003e, h01=0x0050, text=»*   THE RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LOADING,«, t00=0x0003, t01=0x018a}
0x0676…06ba              Head {h00=0x0040, h01=0x0050, text=»*   AFTER POWER ON FROM TERMINAL SIDE AND AFTER TRANSMISSION«, t00=0x0004, t01=0x003c}
0x06ba…06d0              Head {h00=0x0012, h01=0x0050, text=»*   TIME OUT. «, t00=0x0004, t01=0x0080}
0x06d0…0712              Head {h00=0x003e, h01=0x0050, text=»*   THE RECOVERY ROUTINE SENDS A FIXED FORMATTED STRING TO«, t00=0x0004, t01=0x0096}
0x0712…0756              Head {h00=0x0040, h01=0x0050, text=»*   THE PRINTER. THIS STRING CONTAINS THE ACTUAL PARAMETERS «, t00=0x0004, t01=0x00d8}
0x0756…077e              Head {h00=0x0024, h01=0x0050, text=»*   AND STATUS FOR THE PRINTER. «, t00=0x0004, t01=0x011c}
0x077e…078c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0144}
0x078c…0796              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0152}
0x0796…07c4              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0004, t01=0x015c}
0x07c4…07ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018a}
0x07ce…07f6 (5, 0, 400)  Head {h00=0x0024, h01=0x0050, text=»*   ORDER 00 :      TEST STATUS «, t00=0x0005, t01=0x0004}
0x07f6…0818              Head {h00=0x001e, h01=0x0050, text=»*   ORDER 06 :      WRITE «, t00=0x0005, t01=0x002c}
0x0818…0846              Head {h00=0x002a, h01=0x0050, text=»*   ORDER 0B :      POSITION DOCUMENT «, t00=0x0005, t01=0x004e}
0x0846…0878              Head {h00=0x002e, h01=0x0050, text=»*   ORDER 24 :      SET PRINTER PARAMETERS«, t00=0x0005, t01=0x007c}
0x0878…08ac              Head {h00=0x0030, h01=0x0050, text=»*   ORDER 27 :      SET DOCUMENT PARAMETERS «, t00=0x0005, t01=0x00ae}
0x08ac…08e4              Head {h00=0x0034, h01=0x0050, text=»*   ORDER 37 :      TRANSFER DOCUMENT PARAMETERS«, t00=0x0005, t01=0x00e2}
0x08e4…0910              Head {h00=0x0028, h01=0x0050, text=»*   ORDER 38 :      RELEASE DOCUMENT«, t00=0x0005, t01=0x011a}
0x0910…091a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091a…094a              Head {h00=0x002c, h01=0x0050, text=»*   THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0005, t01=0x0150}
0x094a…0954              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0954…097e              Head {h00=0x0026, h01=0x0050, text=»*   BIT  0 :        REQUEST ERROR «, t00=0x0005, t01=0x018a}
0x097e…09a8              Head {h00=0x0026, h01=0x0050, text=»*   BIT  2 :        END OF JOURNAL«, t00=0x0006, t01=0x0024}
0x09a8…09d0              Head {h00=0x0024, h01=0x0050, text=»*   BIT 10 :        DOCUMENT OUT«, t00=0x0006, t01=0x004e}
0x09d0…09fc              Head {h00=0x0028, h01=0x0050, text=»*   BIT 13 :        CODE CHECK ERROR«, t00=0x0006, t01=0x0076}
0x09fc…0a24              Head {h00=0x0024, h01=0x0050, text=»*   BIT 15 :        NOT OPERABLE«, t00=0x0006, t01=0x00a2}
0x0a24…0a2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ca}
0x0a2e…0a38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d4}
0x0a38…0a5a              Head {h00=0x001e, h01=0x0050, text=»*   NORMAL REGISTER USAGE:«, t00=0x0006, t01=0x00de}
0x0a5a…0a64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0100}
0x0a64…0a8a              Head {h00=0x0022, h01=0x0050, text=»*   REGISTER A1: WORK REGISTER«, t00=0x0006, t01=0x010a}
0x0a8a…0ab0              Head {h00=0x0022, h01=0x0050, text=»*            A2: INPUT/OUTPUT «, t00=0x0006, t01=0x0130}
0x0ab0…0ad8              Head {h00=0x0024, h01=0x0050, text=»*            A3: BUFFER POINTER «, t00=0x0006, t01=0x0156}
0x0ad8…0b00              Head {h00=0x0024, h01=0x0050, text=»*            A4: OUTPUT COUNTER «, t00=0x0006, t01=0x017e}
0x0b00…0b26              Head {h00=0x0022, h01=0x0050, text=»*            A5: STACK POINTER«, t00=0x0007, t01=0x0016}
0x0b26…0b4a              Head {h00=0x0020, h01=0x0050, text=»*            A6: DWT-ADDRESS«, t00=0x0007, t01=0x003c}
0x0b4a…0b68              Head {h00=0x001a, h01=0x0050, text=»*            A7: ORDER«, t00=0x0007, t01=0x0060}
0x0b68…0b8c              Head {h00=0x0020, h01=0x0050, text=»*            A8: ECB-ADDRESS«, t00=0x0007, t01=0x007e}
0x0b8c…0b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0ba0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba0…0bae              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b6}
0x0bae…0bb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bb8…0bcc              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00ce}
0x0bcc…0be0              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x00e2}
0x0be0…0bf4              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00f6}
0x0bf4…0bfe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0bfe…0c08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0114}
0x0c08…0c2a              Head {h00=0x001e, h01=0x0050, text=» ENTRY TPAD3 ADDRESS BLOCK«, t00=0x0007, t01=0x011e}
0x0c2a…0c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0140}
0x0c34…0c3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014a}
0x0c3e…0c48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c48…0c5e              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x015e}
0x0c5e…0c74              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0007, t01=0x0174}
0x0c74…0c8a              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x018a}
0x0c8a…0c94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x0c94…0c9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0c9e…0cce              Head {h00=0x002c, h01=0x0050, text=» EXTRN LDISP DISPATCHING FROM INTERRUPT «, t00=0x0008, t01=0x0024}
0x0cce…0cf6              Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER DISPATCH I/O ERROR«, t00=0x0008, t01=0x0054}
0x0cf6…0d20              Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0008, t01=0x007c}
0x0d20…0d4a              Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0008, t01=0x00a6}
0x0d4a…0d7e              Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB BUFFER «, t00=0x0008, t01=0x00d0}
0x0d7e…0daa              Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTST DWT STATUS DISPLACEMENT«, t00=0x0008, t01=0x0104}
0x0daa…0dd4              Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTECB DWT ECB DISPLACEMENT«, t00=0x0008, t01=0x0130}
0x0dd4…0e00              Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTOR DWT ORDER DISPLACEMENT «, t00=0x0008, t01=0x015a}
0x0e00…0e20              Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0008, t01=0x0186}
0x0e20…0e44              Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS «, t00=0x0009, t01=0x0016}
0x0e44…0e70              Head {h00=0x0028, h01=0x0050, text=» EXTRN DTTP03 DOCUMENT TABLE ADDRESS«, t00=0x0009, t01=0x003a}
0x0e70…0e9c              Head {h00=0x0028, h01=0x0050, text=» EXTRN TLTP03 DOCUMENT TABLE LENGTH «, t00=0x0009, t01=0x0066}
0x0e9c…0ec6              Head {h00=0x0026, h01=0x0050, text=» EXTRN INPUT GET STATUS INPUT CHAR«, t00=0x0009, t01=0x0092}
0x0ec6…0ef0              Head {h00=0x0026, h01=0x0050, text=» EXTRN STABLK DEF. START OF BLOCK «, t00=0x0009, t01=0x00bc}
0x0ef0…0f18              Head {h00=0x0024, h01=0x0050, text=» EXTRN ENDBLK DEF. END OF BLOCK «, t00=0x0009, t01=0x00e6}
0x0f18…0f26              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x010e}
0x0f26…0f30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x0f30…0f46              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0126}
0x0f46…0f5c              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x013c}
0x0f5c…0f72              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0152}
0x0f72…0f7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0168}
0x0f7c…0fac              Head {h00=0x002c, h01=0x0050, text=»* DEDICATED PRINTER CHARACTERS (/00-/0F)«, t00=0x0009, t01=0x0172}
0x0fac…0fb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb6…0fd2              Head {h00=0x0018, h01=0x0050, text=»POTEST EQU /00 TEST «, t00=0x000a, t01=0x001c}
0x0fd2…0ff2              Head {h00=0x001c, h01=0x0050, text=»PORECV EQU /01 RECOVERY «, t00=0x000a, t01=0x0038}
0x0ff2…101c              Head {h00=0x0026, h01=0x0050, text=»RESTRT EQU /02 RESTART (NOT USED) «, t00=0x000a, t01=0x0058}
0x101c…103e              Head {h00=0x001e, h01=0x0050, text=»ETX EQU /03 EXECUTE ORDER «, t00=0x000a, t01=0x0082}
0x103e…106c              Head {h00=0x002a, h01=0x0050, text=»POPPAR EQU /04 SET PRINTER PARAMETERS «, t00=0x000a, t01=0x00a4}
0x106c…1094              Head {h00=0x0024, h01=0x0050, text=»PODSTA EQU /05 DIAGNOSTIC STATUS«, t00=0x000a, t01=0x00d2}
0x1094…10ba              Head {h00=0x0022, h01=0x0050, text=»EXE EQU /06 EXECUTE (NOT USED)«, t00=0x000a, t01=0x00fa}
0x10ba…10ee              Head {h00=0x0030, h01=0x0050, text=»POTDOC EQU /07 TRANSFER DOCUMENT PARAMETERS «, t00=0x000a, t01=0x0120}
0x10ee…1116              Head {h00=0x0024, h01=0x0050, text=»PORDOC EQU /08 RELEASE DOCUMENT «, t00=0x000a, t01=0x0154}
0x1116…113c              Head {h00=0x0022, h01=0x0050, text=»POWDOC EQU /09 WRITE DOCUMENT «, t00=0x000a, t01=0x017c}
0x113c…1164              Head {h00=0x0024, h01=0x0050, text=»LF EQU /0A LINE FEED (NOT USED) «, t00=0x000b, t01=0x0012}
0x1164…118c              Head {h00=0x0024, h01=0x0050, text=»POPDOC EQU /0B POSITION DOCUMENT«, t00=0x000b, t01=0x003a}
0x118c…11ae              Head {h00=0x001e, h01=0x0050, text=»RESET EQU /0C RESET ORDER «, t00=0x000b, t01=0x0062}
0x11ae…11d2              Head {h00=0x0020, h01=0x0050, text=»POWJRL EQU /0D WRITE JOURNAL«, t00=0x000b, t01=0x0084}
0x11d2…11f6              Head {h00=0x0020, h01=0x0050, text=»SPEC EQU /0E ROOMLESS POINT «, t00=0x000b, t01=0x00a8}
0x11f6…121a              Head {h00=0x0020, h01=0x0050, text=»TEST EQU /0F TEST (NOT USED)«, t00=0x000b, t01=0x00cc}
0x121a…1224              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f0}
0x1224…1250              Head {h00=0x0028, h01=0x0050, text=»ENDJ EQU /2000 END OF JOURNAL STATUS«, t00=0x000b, t01=0x00fa}
0x1250…127a              Head {h00=0x0026, h01=0x0050, text=»DOCOUT EQU /20 DOCUMENT OUT STATUS«, t00=0x000b, t01=0x0126}
0x127a…1288              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0150}
0x1288…1292              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1292…12b2              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0168}
0x12b2…12d2              Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0188}
0x12d2…12f2              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x0018}
0x12f2…12fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0038}
0x12fc…1334              Head {h00=0x0034, h01=0x0050, text=»* THE STANDARD NATIONAL CHARACTER SET IS CHOSEN «, t00=0x000c, t01=0x0042}
0x1334…1370              Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:A TO 0-10 ACCORDING TO THE LIST BELOW«, t00=0x000c, t01=0x007a}
0x1370…137a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b6}
0x137a…139a              Head {h00=0x001c, h01=0x0050, text=»*  NCV = 0 GREAT BRITAIN«, t00=0x000c, t01=0x00c0}
0x139a…13ae              Head {h00=0x0010, h01=0x0050, text=»* 1 GERMANY «, t00=0x000c, t01=0x00e0}
0x13ae…13c2              Head {h00=0x0010, h01=0x0050, text=»* 2 FRANCE 1«, t00=0x000c, t01=0x00f4}
0x13c2…13d4              Head {h00=0x000e, h01=0x0050, text=»* 3 SPAIN «, t00=0x000c, t01=0x0108}
0x13d4…13e6              Head {h00=0x000e, h01=0x0050, text=»* 4 ITALY «, t00=0x000c, t01=0x011a}
0x13e6…1402              Head {h00=0x0018, h01=0x0050, text=»* 5 SWEDEN, FINLAND «, t00=0x000c, t01=0x012c}
0x1402…1420              Head {h00=0x001a, h01=0x0050, text=»* 6 DENMARK, NORWAY 1 «, t00=0x000c, t01=0x0148}
0x1420…1434              Head {h00=0x0010, h01=0x0050, text=»* 7 PORTUGAL«, t00=0x000c, t01=0x0166}
0x1434…146e              Head {h00=0x0036, h01=0x0050, text=»* 8 YUGOSLAVIA OR FRANCE 2 (DEPENDING ON CHAR GEN)«, t00=0x000c, t01=0x017a}
0x146e…1480              Head {h00=0x000e, h01=0x0050, text=»* 9   USA «, t00=0x000d, t01=0x0024}
0x1480…149e              Head {h00=0x001a, h01=0x0050, text=»* 10 DENMARK, NORWAY 2«, t00=0x000d, t01=0x0036}
0x149e…14a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0054}
0x14a8…14ba              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x005e}
0x14ba…14d0              Head {h00=0x0012, h01=0x0050, text=»STDNCV EQU X:A«, t00=0x000d, t01=0x0070}
0x14d0…14da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0086}
0x14da…1506              Head {h00=0x0028, h01=0x0050, text=»* THE CHARACTER FONT CAN BE SELECTED«, t00=0x000d, t01=0x0090}
0x1506…155a              Head {h00=0x0050, h01=0x0050, text=»* BY SETTING X:B TO : 0=UPPER CASE/SMALL NUMERIC, 1=LOWER CASE/SMALL NUMERIC«, t00=0x000d, t01=0x00bc}
0x155a…15ae              Head {h00=0x0050, h01=0x0050, text=»*                     2=UPPER CASE/WIDER NUMERIC, 3=LOWER CASE/WIDER NUMERIC«, t00=0x000d, t01=0x0110}
0x15ae…15b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0164}
0x15b8…15ca              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000d, t01=0x016e}
0x15ca…15de              Head {h00=0x0010, h01=0x0050, text=»FONT EQU X:B«, t00=0x000d, t01=0x0180}
0x15de…15e8 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e8…1632              Head {h00=0x0046, h01=0x0050, text=»* THE STANDARD CHARACTER PITCH FOR THE DOCUMENT STATION IS CHOSEN «, t00=0x000e, t01=0x000e}
0x1632…167a              Head {h00=0x0044, h01=0x0050, text=»* BY SETTING X:C TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH«, t00=0x000e, t01=0x0058}
0x167a…1684              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1684…1696              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 2 «, t00=0x000e, t01=0x00aa}
0x1696…16ac              Head {h00=0x0012, h01=0x0050, text=»STDCPD EQU X:C«, t00=0x000e, t01=0x00bc}
0x16ac…16b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b6…16e4              Head {h00=0x002a, h01=0x0050, text=»* THE JOURNAL STATION CAN BE EXCLUDED «, t00=0x000e, t01=0x00dc}
0x16e4…16fe              Head {h00=0x0016, h01=0x0050, text=»* BY SETTING X:D=0«, t00=0x000e, t01=0x010a}
0x16fe…1708              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0124}
0x1708…171a              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000e, t01=0x012e}
0x171a…1730              Head {h00=0x0012, h01=0x0050, text=»JOURNL EQU X:D«, t00=0x000e, t01=0x0140}
0x1730…173a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0156}
0x173a…1782              Head {h00=0x0044, h01=0x0050, text=»* THE STANDARD CHARACTER PITCH FOR THE JOURNAL STATION IS CHOSEN«, t00=0x000e, t01=0x0160}
0x1782…17ca              Head {h00=0x0044, h01=0x0050, text=»* BY SETTING X:F TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH«, t00=0x000f, t01=0x0018}
0x17ca…17d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d4…17e6              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x006a}
0x17e6…17fc              Head {h00=0x0012, h01=0x0050, text=»STDCPJ EQU X:E«, t00=0x000f, t01=0x007c}
0x17fc…1806              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1806…1844              Head {h00=0x003a, h01=0x0050, text=»* THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED«, t00=0x000f, t01=0x009c}
0x1844…185e              Head {h00=0x0016, h01=0x0050, text=»* BY SETTING X:F=1«, t00=0x000f, t01=0x00da}
0x185e…1868              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1868…187a              Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x00fe}
0x187a…1890              Head {h00=0x0012, h01=0x0050, text=»PARORD EQU X:F«, t00=0x000f, t01=0x0110}
0x1890…189a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0126}
0x189a…18cc              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000f, t01=0x0130}
0x18cc…18fa              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000f, t01=0x0162}
0x18fa…1904              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1904…1918              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0010, t01=0x000a}
0x1918…1922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001e}
0x1922…192c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0028}
0x192c…1966              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0032}
0x1966…1998              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x006c}
0x1998…19a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x19a2…19b6              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0010, t01=0x00a8}
0x19b6…19c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00bc}
0x19c0…19dc              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0010, t01=0x00c6}
0x19dc…19e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e2}
0x19e6…19fa              Head {h00=0x0010, h01=0x0050, text=»X:G EQU 126 «, t00=0x0010, t01=0x00ec}
0x19fa…1a10              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:G«, t00=0x0010, t01=0x0100}
0x1a10…1a1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0116}
0x1a1a…1a58              Head {h00=0x003a, h01=0x0050, text=»* A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PRINTERS«, t00=0x0010, t01=0x0120}
0x1a58…1a72              Head {h00=0x0016, h01=0x0050, text=»* BY SETTING X:H=1«, t00=0x0010, t01=0x015e}
0x1a72…1a84              Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x0010, t01=0x0178}
0x1a84…1a9a              Head {h00=0x0012, h01=0x0050, text=»REQEND EQU X:H«, t00=0x0010, t01=0x018a}
0x1a9a…1aa4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0010}
0x1aa4…1aea              Head {h00=0x0042, h01=0x0050, text=»* THE CHARACTERS /B0-/B9 WILL BE CONVERTED TO /1B,/41-/1B,/4A «, t00=0x0011, t01=0x001a}
0x1aea…1b22              Head {h00=0x0034, h01=0x0050, text=»* BY SETTING X:I=1. GREEK ADDITIONAL CHARACTERS.«, t00=0x0011, t01=0x0060}
0x1b22…1b2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0098}
0x1b2c…1b42              Head {h00=0x0012, h01=0x0050, text=»X:I EQU 0 * =4«, t00=0x0011, t01=0x00a2}
0x1b42…1b5c              Head {h00=0x0016, h01=0x0050, text=»GREEK EQU X:I * =4«, t00=0x0011, t01=0x00b8}
0x1b5c…1b66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d2}
0x1b66…1b70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00dc}
0x1b70…1b7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e6}
0x1b7a…1b84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f0}
0x1b84…1bca              Head {h00=0x0042, h01=0x0050, text=»PRIPAR FORM 1=1,1=0,2=FONT,4=STDNCV,2=1,2=STDCPJ,2=1,2=STDCPD «, t00=0x0011, t01=0x00fa}
0x1bca…1bd8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0140}
0x1bd8…1be2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014e}
0x1be2…1bea              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0158}
0x1bea…1c08              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x0160}
0x1c08…1c26              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0011, t01=0x017e}
0x1c26…1c44              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x000c}
0x1c44…1c4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002a}
0x1c4e…1c58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0034}
0x1c58…1c62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c62…1c86              Head {h00=0x0020, h01=0x0050, text=»PP EQU /2 PRINTER PARAMETERS«, t00=0x0012, t01=0x0048}
0x1c86…1caa              Head {h00=0x0020, h01=0x0050, text=»PPJ EQU /4 PRINT POS JOURNAL«, t00=0x0012, t01=0x006c}
0x1caa…1cd8              Head {h00=0x002a, h01=0x0050, text=»APJ EQU PPJ+1 ACTUAL PRINT POS JOURNAL«, t00=0x0012, t01=0x0090}
0x1cd8…1d08              Head {h00=0x002c, h01=0x0050, text=»RPJ EQU PPJ REQUESTED PRINT POS JOURNAL «, t00=0x0012, t01=0x00be}
0x1d08…1d2e              Head {h00=0x0022, h01=0x0050, text=»PPD EQU /6 PRINT POS DOCUMENT «, t00=0x0012, t01=0x00ee}
0x1d2e…1d5e              Head {h00=0x002c, h01=0x0050, text=»APD EQU PPD+1 ACTUAL PRINT POS DOCUMENT «, t00=0x0012, t01=0x0114}
0x1d5e…1d8e              Head {h00=0x002c, h01=0x0050, text=»RPD EQU PPD REQUESTED PRINT POS DOCUMENT«, t00=0x0012, t01=0x0144}
0x1d8e…1db8              Head {h00=0x0026, h01=0x0050, text=»LN EQU /8 LINE NUMBER ON DOCUMENT «, t00=0x0012, t01=0x0174}
0x1db8…1dec              Head {h00=0x0030, h01=0x0050, text=»ALN EQU LN+1 ACTUAL LINE NUMBER ON DOCUMENT «, t00=0x0013, t01=0x000e}
0x1dec…1e20              Head {h00=0x0030, h01=0x0050, text=»RLN EQU LN REQUESTED LINE NUMBER ON DOCUMENT«, t00=0x0013, t01=0x0042}
0x1e20…1e46              Head {h00=0x0022, h01=0x0050, text=»DP EQU /A DOCUMENT PARAMETERS «, t00=0x0013, t01=0x0076}
0x1e46…1e50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009c}
0x1e50…1e5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e5a…1e78              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x00b0}
0x1e78…1e96              Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS * «, t00=0x0013, t01=0x00ce}
0x1e96…1eb4              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x00ec}
0x1eb4…1ebe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010a}
0x1ebe…1ee8              Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0013, t01=0x0114}
0x1ee8…1f14              Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0013, t01=0x013e}
0x1f14…1f40              Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0013, t01=0x016a}
0x1f40…1f66              Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0014, t01=0x0008}
0x1f66…1f8e              Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0014, t01=0x002e}
0x1f8e…1f9c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0056}
0x1f9c…1fa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0064}
0x1fa6…1fb8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x006e}
0x1fb8…1fca              Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x0080}
0x1fca…1fdc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0092}
0x1fdc…1fe6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a4}
0x1fe6…1ff0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ae}
0x1ff0…2008              Head {h00=0x0014, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0014, t01=0x00b8}
0x2008…2012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2012…2036              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0014, t01=0x00da}
0x2036…2052              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x00fe}
0x2052…2074              Head {h00=0x001e, h01=0x0050, text=»TPAD3 EQU * ADDRESS BLOCK «, t00=0x0014, t01=0x011a}
0x2074…2098              Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATION DRIVER«, t00=0x0014, t01=0x013c}
0x2098…20be              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0014, t01=0x0160}
0x20be…20e0              Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0014, t01=0x0186}
0x20e0…2104              Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0015, t01=0x0018}
0x2104…210e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003c}
0x210e…213e              Head {h00=0x002c, h01=0x0050, text=»* VALID ORDERS WITH ACTIVATION ADDRESSES«, t00=0x0015, t01=0x0046}
0x213e…2148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x2148…215c              Head {h00=0x0010, h01=0x0050, text=»TPTAB EQU * «, t00=0x0015, t01=0x0080}
0x215c…2186              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB0 DEVICE INDEX 0 TABLE «, t00=0x0015, t01=0x0094}
0x2186…21b0              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB1 DEVICE INDEX 1 TABLE «, t00=0x0015, t01=0x00be}
0x21b0…21da              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB2 DEVICE INDEX 2 TABLE «, t00=0x0015, t01=0x00e8}
0x21da…2204              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB3 DEVICE INDEX 3 TABLE «, t00=0x0015, t01=0x0112}
0x2204…220e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013c}
0x220e…2232              Head {h00=0x0020, h01=0x0050, text=»TPTAB0 EQU * DEVICE INDEX 0 «, t00=0x0015, t01=0x0146}
0x2232…2248              Head {h00=0x0012, h01=0x0050, text=» IFT JOURNL=1 «, t00=0x0015, t01=0x016a}
0x2248…226e              Head {h00=0x0022, h01=0x0050, text=» DATA 0 TEST STATUS (JOURNAL) «, t00=0x0015, t01=0x0180}
0x226e…2282              Head {h00=0x0010, h01=0x0050, text=» DATA TSTSTA«, t00=0x0016, t01=0x0016}
0x2282…22a0              Head {h00=0x001a, h01=0x0050, text=» DATA 6 WRITE JOURNAL «, t00=0x0016, t01=0x002a}
0x22a0…22b4              Head {h00=0x0010, h01=0x0050, text=» DATA WRTJRL«, t00=0x0016, t01=0x0048}
0x22b4…22ca              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x0016, t01=0x005c}
0x22ca…22f2              Head {h00=0x0024, h01=0x0050, text=» DATA /24 SET PRINTER PARAMETERS«, t00=0x0016, t01=0x0072}
0x22f2…2306              Head {h00=0x0010, h01=0x0050, text=» DATA PRTPAR«, t00=0x0016, t01=0x009a}
0x2306…2312              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00ae}
0x2312…2334              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0016, t01=0x00ba}
0x2334…233e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00dc}
0x233e…2362              Head {h00=0x0020, h01=0x0050, text=»TPTAB1 EQU * DEVICE INDEX 1 «, t00=0x0016, t01=0x00e6}
0x2362…2388              Head {h00=0x0022, h01=0x0050, text=» DATA 0 TEST STATUS (DOCUMENT)«, t00=0x0016, t01=0x010a}
0x2388…239c              Head {h00=0x0010, h01=0x0050, text=» DATA TSTSTA«, t00=0x0016, t01=0x0130}
0x239c…23ba              Head {h00=0x001a, h01=0x0050, text=» DATA 6 WRITE DOCUMENT«, t00=0x0016, t01=0x0144}
0x23ba…23ce              Head {h00=0x0010, h01=0x0050, text=» DATA WRTDOC«, t00=0x0016, t01=0x0162}
0x23ce…23f2              Head {h00=0x0020, h01=0x0050, text=» DATA /0B POSITION DOCUMENT «, t00=0x0016, t01=0x0176}
0x23f2…2406              Head {h00=0x0010, h01=0x0050, text=» DATA POSDOC«, t00=0x0017, t01=0x000a}
0x2406…2428              Head {h00=0x001e, h01=0x0050, text=» DATA /38 RELEASE DOCUMENT«, t00=0x0017, t01=0x001e}
0x2428…243c              Head {h00=0x0010, h01=0x0050, text=» DATA RELDOC«, t00=0x0017, t01=0x0040}
0x243c…246a              Head {h00=0x002a, h01=0x0050, text=» DATA /37 TRANSFER DOCUMENT PARAMETERS«, t00=0x0017, t01=0x0054}
0x246a…247e              Head {h00=0x0010, h01=0x0050, text=» DATA TRFDOC«, t00=0x0017, t01=0x0082}
0x247e…2494              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x0017, t01=0x0096}
0x2494…24bc              Head {h00=0x0024, h01=0x0050, text=» DATA /24 SET PRINTER PARAMETERS«, t00=0x0017, t01=0x00ac}
0x24bc…24d0              Head {h00=0x0010, h01=0x0050, text=» DATA PRTPAR«, t00=0x0017, t01=0x00d4}
0x24d0…24fa              Head {h00=0x0026, h01=0x0050, text=» DATA /27 SET DOCUMENT PARAMETERS «, t00=0x0017, t01=0x00e8}
0x24fa…250e              Head {h00=0x0010, h01=0x0050, text=» DATA DOCPAR«, t00=0x0017, t01=0x0112}
0x250e…251a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0126}
0x251a…253c              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0017, t01=0x0132}
0x253c…2546              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0154}
0x2546…256a              Head {h00=0x0020, h01=0x0050, text=»TPTAB2 EQU * DEVICE INDEX 2 «, t00=0x0017, t01=0x015e}
0x256a…258c              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0017, t01=0x0182}
0x258c…2596              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0014}
0x2596…25ba              Head {h00=0x0020, h01=0x0050, text=»TPTAB3 EQU * DEVICE INDEX 3 «, t00=0x0018, t01=0x001e}
0x25ba…25dc              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0018, t01=0x0042}
0x25dc…25e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0064}
0x25e6…2612              Head {h00=0x0028, h01=0x0050, text=»* SYSTEM STANDARD PRINTER PARAMETERS«, t00=0x0018, t01=0x006e}
0x2612…261c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009a}
0x261c…264e              Head {h00=0x002e, h01=0x0050, text=»STDPP PRIPAR  STANDARD PRINTER PARAMETERS «, t00=0x0018, t01=0x00a4}
0x264e…265c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d6}
0x265c…2666              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x2666…2670              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ee}
0x2670…2684              Head {h00=0x0010, h01=0x0050, text=»*   A C T P «, t00=0x0018, t01=0x00f8}
0x2684…268e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010c}
0x268e…26c4              Head {h00=0x0032, h01=0x0050, text=»*   THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0018, t01=0x0116}
0x26c4…2706              Head {h00=0x003e, h01=0x0050, text=»*   CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0018, t01=0x014c}
0x2706…2710              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018e}
0x2710…271a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x271a…2724              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0012}
0x2724…2748              Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0019, t01=0x001c}
0x2748…2752              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x2752…275c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x275c…278c              Head {h00=0x002c, h01=0x0050, text=»*   GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT«, t00=0x0019, t01=0x0054}
0x278c…2796              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0084}
0x2796…27bc              Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTOR,A6 GET DWT INDEX «, t00=0x0019, t01=0x008e}
0x27bc…27d2              Head {h00=0x0012, h01=0x0050, text=» ANK A2,3 MASK«, t00=0x0019, t01=0x00b4}
0x27d2…27ea              Head {h00=0x0014, h01=0x0050, text=» SLL A2,6 SHIFT «, t00=0x0019, t01=0x00ca}
0x27ea…2818              Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTDEV,A6 GET OLD DEVICE INDEX «, t00=0x0019, t01=0x00e2}
0x2818…284a              Head {h00=0x002e, h01=0x0050, text=» ANKL A3,/FF1F RESET OLD INDEX AND LF IND «, t00=0x0019, t01=0x0110}
0x284a…285c              Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0019, t01=0x0142}
0x285c…2884              Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTDEV,A6 STORE NEW INDEX«, t00=0x0019, t01=0x0154}
0x2884…28b4              Head {h00=0x002c, h01=0x0050, text=»ACT005 LD A1,DWTDEV,A6 GET DEVICE INDEX «, t00=0x0019, t01=0x017c}
0x28b4…28c8              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x001a, t01=0x001c}
0x28c8…28f6              Head {h00=0x002a, h01=0x0050, text=» SRL A1,5 GET CORESPONDING ORDER TABLE«, t00=0x001a, t01=0x0030}
0x28f6…290e              Head {h00=0x0014, h01=0x0050, text=» LD A2,TPTAB,A1 «, t00=0x001a, t01=0x005e}
0x290e…2928              Head {h00=0x0016, h01=0x0050, text=»ACT010 LDR* A3,A2 «, t00=0x001a, t01=0x0076}
0x2928…2954              Head {h00=0x0028, h01=0x0050, text=» ABL(N) LENDER NO MORE VALID ORDERS «, t00=0x001a, t01=0x0090}
0x2954…297a              Head {h00=0x0022, h01=0x0050, text=» SUR A3,A7 TEST IF ORDER VALID«, t00=0x001a, t01=0x00bc}
0x297a…29a2              Head {h00=0x0024, h01=0x0050, text=» RF(E) ACT020 VALID ORDER FOUND «, t00=0x001a, t01=0x00e2}
0x29a2…29c2              Head {h00=0x001c, h01=0x0050, text=» ADK A2,4 TRY NEXT ORDER«, t00=0x001a, t01=0x010a}
0x29c2…29d4              Head {h00=0x000e, h01=0x0050, text=» RB ACT010«, t00=0x001a, t01=0x012a}
0x29d4…29e8              Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x001a, t01=0x013c}
0x29e8…2a08              Head {h00=0x001c, h01=0x0050, text=» ABI 2,A2 EXECUTE ORDER «, t00=0x001a, t01=0x0150}
0x2a08…2a16              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0170}
0x2a16…2a20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017e}
0x2a20…2a2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0188}
0x2a2a…2a4c (27, 0, 400) Head {h00=0x001e, h01=0x0050, text=»*   ORDER 00 : TEST STATUS«, t00=0x001b, t01=0x0004}
0x2a4c…2a56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0026}
0x2a56…2a60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0030}
0x2a60…2a74              Head {h00=0x0010, h01=0x0050, text=»TSTSTA EQU *«, t00=0x001b, t01=0x003a}
0x2a74…2a9c              Head {h00=0x0024, h01=0x0050, text=» CM ECBCW,A8 CLEAR CONTROL WORD «, t00=0x001b, t01=0x004e}
0x2a9c…2aba              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x001b, t01=0x0076}
0x2aba…2ae0              Head {h00=0x0022, h01=0x0050, text=» LDK A3,POTEST LOAD TEST ORDER«, t00=0x001b, t01=0x0094}
0x2ae0…2afe              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x001b, t01=0x00ba}
0x2afe…2b2c              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x001b, t01=0x00d8}
0x2b2c…2b3c              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x001b, t01=0x0106}
0x2b3c…2b62              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x001b, t01=0x0116}
0x2b62…2b8a              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/15 TEST PRINTER STATUS «, t00=0x001b, t01=0x013c}
0x2b8a…2bb4              Head {h00=0x0026, h01=0x0050, text=» RF(Z) TSST10 NO PERMANENT ERRORS «, t00=0x001b, t01=0x0164}
0x2bb4…2bc8              Head {h00=0x0010, h01=0x0050, text=»TSST05 EQU *«, t00=0x001b, t01=0x018e}
0x2bc8…2be6              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x001c, t01=0x0012}
0x2be6…2c12              Head {h00=0x0028, h01=0x0050, text=» LDK A3,PODSTA LOAD DIAGNOSTIC ORDER«, t00=0x001c, t01=0x0030}
0x2c12…2c30              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x001c, t01=0x005c}
0x2c30…2c5e              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x001c, t01=0x007a}
0x2c5e…2c92              Head {h00=0x0030, h01=0x0050, text=» SC A2,ECBCW+1,A8 SET UP DIAGN STATUS IN ECB«, t00=0x001c, t01=0x00a8}
0x2c92…2cba              Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 INDICATE NOT OPERABLE «, t00=0x001c, t01=0x00dc}
0x2cba…2ccc              Head {h00=0x000e, h01=0x0050, text=» RF TSST80«, t00=0x001c, t01=0x0104}
0x2ccc…2cf8              Head {h00=0x0028, h01=0x0050, text=»TSST10 LDR A1,A2 GET PRINTER STATUS «, t00=0x001c, t01=0x0116}
0x2cf8…2d0e              Head {h00=0x0012, h01=0x0050, text=» IFT JOURNL=1 «, t00=0x001c, t01=0x0142}
0x2d0e…2d38              Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTDEV,A6 GET DEVICE INDEX «, t00=0x001c, t01=0x0158}
0x2d38…2d5e              Head {h00=0x0022, h01=0x0050, text=» ANK A3,/C0 TEST DEVICE INDEX «, t00=0x001c, t01=0x0182}
0x2d5e…2d86              Head {h00=0x0024, h01=0x0050, text=» RF(NZ) TSST40 DEVICE INDEX > 0 «, t00=0x001d, t01=0x0018}
0x2d86…2dae              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/22 TEST PRINTER STATUS «, t00=0x001d, t01=0x0040}
0x2dae…2dce              Head {h00=0x001c, h01=0x0050, text=» RF(Z) TSST80 NO ERRORS «, t00=0x001d, t01=0x0068}
0x2dce…2df4              Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 TEST PRINTER STATUS «, t00=0x001d, t01=0x0088}
0x2df4…2e22              Head {h00=0x002a, h01=0x0050, text=» RB(NZ) TSST05 JOURNAL ERROR = NOT OP «, t00=0x001d, t01=0x00ae}
0x2e22…2e46              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,ENDJ END OF JOURNAL«, t00=0x001d, t01=0x00dc}
0x2e46…2e58              Head {h00=0x000e, h01=0x0050, text=» RF TSST80«, t00=0x001d, t01=0x0100}
0x2e58…2e66              Head {h00=0x000a, h01=0x0050, text=» XIF  «, t00=0x001d, t01=0x0112}
0x2e66…2e94              Head {h00=0x002a, h01=0x0050, text=»TSST40 ANK A1,/40 TEST PRINTER STATUS «, t00=0x001d, t01=0x0120}
0x2e94…2eb4              Head {h00=0x001c, h01=0x0050, text=» RF(Z) TSST80 NO ERRORS «, t00=0x001d, t01=0x014e}
0x2eb4…2ed8              Head {h00=0x0020, h01=0x0050, text=» LDK A1,DOCOUT DOCUMENT OUT «, t00=0x001d, t01=0x016e}
0x2ed8…2efe (30, 0, 400) Head {h00=0x0022, h01=0x0050, text=»TSST80 ABL LENDIS END REQUEST «, t00=0x001e, t01=0x0004}
0x2efe…2f0e              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x001e, t01=0x002a}
0x2f0e…2f18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003a}
0x2f18…2f22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0044}
0x2f22…2f46              Head {h00=0x0020, h01=0x0050, text=»*   ORDER 06 : WRITE JOURNAL«, t00=0x001e, t01=0x004e}
0x2f46…2f50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0072}
0x2f50…2f5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007c}
0x2f5a…2f70              Head {h00=0x0012, h01=0x0050, text=» IFT JOURNL=1 «, t00=0x001e, t01=0x0086}
0x2f70…2f84              Head {h00=0x0010, h01=0x0050, text=»WRTJRL EQU *«, t00=0x001e, t01=0x009c}
0x2f84…2fa8              Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTDEV,A6 GET STATUS «, t00=0x001e, t01=0x00b0}
0x2fa8…2fce              Head {h00=0x0022, h01=0x0050, text=» ANK A1,/20 TEST LF INDICATOR «, t00=0x001e, t01=0x00d4}
0x2fce…2ff0              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) WRJL10 LF EXECUTED«, t00=0x001e, t01=0x00fa}
0x2ff0…301c              Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001e, t01=0x011c}
0x301c…3044              Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 TEST REQUESTED LENGTH «, t00=0x001e, t01=0x0148}
0x3044…3068              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRJL80 REQUEST ERROR «, t00=0x001e, t01=0x0170}
0x3068…3098 (31, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBA,A8 GET CONTROL CHARACTER =2«, t00=0x001f, t01=0x0004}
0x3098…30b0              Head {h00=0x0014, h01=0x0050, text=» LC A2,1,A2 * =2«, t00=0x001f, t01=0x0034}
0x30b0…30c4              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001f, t01=0x004c}
0x30c4…30e6              Head {h00=0x001e, h01=0x0050, text=» SUK A2,/2B TEST CTRL CHAR«, t00=0x001f, t01=0x0060}
0x30e6…310a              Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRJL10 CTRL CHAR =/2B«, t00=0x001f, t01=0x0082}
0x310a…3136              Head {h00=0x0028, h01=0x0050, text=» LDK A4,2 SET UP 2 LF (CTRL CH =/30)«, t00=0x001f, t01=0x00a6}
0x3136…3156              Head {h00=0x001c, h01=0x0050, text=» SUK A2,5 TEST CTRL CHAR«, t00=0x001f, t01=0x00d2}
0x3156…317a              Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRJL05 CTRL CHAR =/30«, t00=0x001f, t01=0x00f2}
0x317a…31aa              Head {h00=0x002c, h01=0x0050, text=» LDK A4,1 SET UP 1 LF (CTRL CH NOT DEF) «, t00=0x001f, t01=0x0116}
0x31aa…31ca              Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 TEST CTRL CHAR«, t00=0x001f, t01=0x0146}
0x31ca…31f4              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRJL05 CTRL CHAR NOT =/31 «, t00=0x001f, t01=0x0166}
0x31f4…3220              Head {h00=0x0028, h01=0x0050, text=» LDK A4,3 SET UP 3 LF (CTRL CH =/31)«, t00=0x001f, t01=0x0190}
0x3220…3234              Head {h00=0x0010, h01=0x0050, text=»WRJL05 EQU *«, t00=0x0020, t01=0x002c}
0x3234…3252              Head {h00=0x001a, h01=0x0050, text=» LDK A2,4 BLOCK LENGTH«, t00=0x0020, t01=0x0040}
0x3252…3282              Head {h00=0x002c, h01=0x0050, text=» LDK A3,POWJRL LOAD WRITE JOURNAL ORDER «, t00=0x0020, t01=0x005e}
0x3282…32a0              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0020, t01=0x008e}
0x32a0…32ca              Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 RELOAD NO OF LINE FEED «, t00=0x0020, t01=0x00ac}
0x32ca…32e6              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0020, t01=0x00d6}
0x32e6…3314              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0020, t01=0x00f2}
0x3314…3324              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x0020, t01=0x0120}
0x3324…334a              Head {h00=0x0022, h01=0x0050, text=» ANK A2,7 TEST PRINTER STATUS «, t00=0x0020, t01=0x0130}
0x334a…3378              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) WRJL65 JOURNAL LINE FEED ERROR«, t00=0x0020, t01=0x0156}
0x3378…33a6              Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+PPJ,A6 CLEAR PRINT POSITION«, t00=0x0020, t01=0x0184}
0x33a6…33cc              Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 SET UP LF EXECUTED«, t00=0x0021, t01=0x0022}
0x33cc…33f4              Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTDEV,A6 IND IN STATUS «, t00=0x0021, t01=0x0048}
0x33f4…3408              Head {h00=0x0010, h01=0x0050, text=»WRJL10 EQU *«, t00=0x0021, t01=0x0070}
0x3408…3420              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0021, t01=0x0084}
0x3420…343e              Head {h00=0x001a, h01=0x0050, text=» ADK A2,2 BLOCK LENGTH«, t00=0x0021, t01=0x009c}
0x343e…3470              Head {h00=0x002e, h01=0x0050, text=» LC A1,DWTDEV+APJ,A6 GET ACTUAL PRINT POS «, t00=0x0021, t01=0x00ba}
0x3470…34a8              Head {h00=0x0034, h01=0x0050, text=» SC A1,DWTDEV+RPJ,A6 SET UP START REQ PRINT POS «, t00=0x0021, t01=0x00ec}
0x34a8…34d0              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 SET UP BUFFER POINTER «, t00=0x0021, t01=0x0124}
0x34d0…3504              Head {h00=0x0030, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER FROM ECB BUFFER«, t00=0x0021, t01=0x014c}
0x3504…3528              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TEST IF NO BUFFER«, t00=0x0021, t01=0x0180}
0x3528…3550              Head {h00=0x0024, h01=0x0050, text=» RF(Z) WRJL60 NO BUFFER TO PRINT«, t00=0x0022, t01=0x0014}
0x3550…3580              Head {h00=0x002c, h01=0x0050, text=» LDK A3,POWJRL LOAD WRITE JOURNAL ORDER «, t00=0x0022, t01=0x003c}
0x3580…359e              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0022, t01=0x006c}
0x359e…35c4              Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 LOAD ZERO LINE FEED «, t00=0x0022, t01=0x008a}
0x35c4…35e0              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0022, t01=0x00b0}
0x35e0…3616              Head {h00=0x0032, h01=0x0050, text=» LDKL A4,/100 SET UP NORMAL CHAR COUNTER IN A4«, t00=0x0022, t01=0x00cc}
0x3616…363e              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 SET UP BUFFER POINTER «, t00=0x0022, t01=0x0102}
0x363e…3678              Head {h00=0x0036, h01=0x0050, text=»WRJL20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER«, t00=0x0022, t01=0x012a}
0x3678…368a              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0022, t01=0x0164}
0x368a…36b0              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRJL50 BUFFER FINISHED «, t00=0x0022, t01=0x0176}
0x36b0…36d2              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 GET CHAR IN A1 «, t00=0x0023, t01=0x000c}
0x36d2…36dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002e}
0x36dc…3712              Head {h00=0x0032, h01=0x0050, text=»*   EXAMINE CHAR AND UPDATE PRINT POS AND SEND«, t00=0x0023, t01=0x0038}
0x3712…373c              Head {h00=0x0026, h01=0x0050, text=»*   DEPENDING ON TYPE OF CHARACTER«, t00=0x0023, t01=0x006e}
0x373c…3746              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0098}
0x3746…375a              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x0023, t01=0x00a2}
0x375a…377a              Head {h00=0x001c, h01=0x0050, text=» RB(N) WRJL20 CHAR </10 «, t00=0x0023, t01=0x00b6}
0x377a…379a              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRJL30 CHAR = /10«, t00=0x0023, t01=0x00d6}
0x379a…37ac              Head {h00=0x000e, h01=0x0050, text=» SUK A1,9 «, t00=0x0023, t01=0x00f6}
0x37ac…37da              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) WRJL25 CHAR NOT /19 (=EXPAND) «, t00=0x0023, t01=0x0108}
0x37da…380a              Head {h00=0x002c, h01=0x0050, text=» XRKL A4,/300 SWITCH CHAR COUNTER IN A4 «, t00=0x0023, t01=0x0136}
0x380a…382e              Head {h00=0x0020, h01=0x0050, text=» RF WRJL40 SEND EXPAND CHAR «, t00=0x0023, t01=0x0166}
0x382e…3846              Head {h00=0x0014, h01=0x0050, text=»WRJL25 SUK A1,7 «, t00=0x0023, t01=0x018a}
0x3846…386a              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRJL40 CHAR </20 SEND«, t00=0x0024, t01=0x0012}
0x386a…387e              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/5F «, t00=0x0024, t01=0x0036}
0x387e…389c              Head {h00=0x001a, h01=0x0050, text=» RB(Z) WRJL20 CHAR=/7F«, t00=0x0024, t01=0x004a}
0x389c…38c0              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRJL30 CHAR = NORMAL «, t00=0x0024, t01=0x0068}
0x38c0…38d4              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2F «, t00=0x0024, t01=0x008c}
0x38d4…38f4              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRJL28 CHAR =/AE «, t00=0x0024, t01=0x00a0}
0x38f4…390e              Head {h00=0x0016, h01=0x0050, text=» IFT GREEK=1 * =4 «, t00=0x0024, t01=0x00c0}
0x390e…3946              Head {h00=0x0034, h01=0x0050, text=» CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4«, t00=0x0024, t01=0x00da}
0x3946…395e              Head {h00=0x0014, h01=0x0050, text=» LDR A1,A1 * =4 «, t00=0x0024, t01=0x0112}
0x395e…398c              Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRJL30 SUCCESSFUL CONVERSION =4«, t00=0x0024, t01=0x012a}
0x398c…399e              Head {h00=0x000e, h01=0x0050, text=» XIF  * =4«, t00=0x0024, t01=0x0158}
0x399e…39b8              Head {h00=0x0016, h01=0x0050, text=» IFT JOURNL=1 * =4«, t00=0x0024, t01=0x016a}
0x39b8…39de              Head {h00=0x0022, h01=0x0050, text=» LDK A1,4 IND CODE CHECK ERROR«, t00=0x0024, t01=0x0184}
0x39de…3a06              Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A8 IN RETURN CODE «, t00=0x0025, t01=0x001a}
0x3a06…3a18              Head {h00=0x000e, h01=0x0050, text=» RB WRJL20«, t00=0x0025, t01=0x0042}
0x3a18…3a32              Head {h00=0x0016, h01=0x0050, text=»WRJL28 LDK A2,/0E «, t00=0x0025, t01=0x0054}
0x3a32…3a44              Head {h00=0x000e, h01=0x0050, text=» RF WRJL40«, t00=0x0025, t01=0x006e}
0x3a44…3a4c              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0080}
0x3a4c…3a6e              Head {h00=0x001e, h01=0x0050, text=»*   UPDATE PRINT POSITION «, t00=0x0025, t01=0x0088}
0x3a6e…3a76              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00aa}
0x3a76…3ab6              Head {h00=0x003c, h01=0x0050, text=»WRJL30 ADS A4,DWTDEV+RPJ,A6 ADD 1 OR 2 TO REQ PRINT POS «, t00=0x0025, t01=0x00b2}
0x3ab6…3abe              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00f2}
0x3abe…3ae2              Head {h00=0x0020, h01=0x0050, text=»*   SEND CHARACTER TO DEVICE«, t00=0x0025, t01=0x00fa}
0x3ae2…3aea              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x011e}
0x3aea…3b14              Head {h00=0x0026, h01=0x0050, text=»WRJL40 CF A5,OUTPUT SEND CHARACTER«, t00=0x0025, t01=0x0126}
0x3b14…3b36              Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) ERTP JMP IF ERROR«, t00=0x0025, t01=0x0150}
0x3b36…3b5c              Head {h00=0x0022, h01=0x0050, text=» RB WRJL20 GET NEXT CHARACTER «, t00=0x0025, t01=0x0172}
0x3b5c…3b64              Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0008}
0x3b64…3b78              Head {h00=0x0010, h01=0x0050, text=»*   SEND ETX«, t00=0x0026, t01=0x0010}
0x3b78…3b80              Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0024}
0x3b80…3bb4              Head {h00=0x0030, h01=0x0050, text=»WRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0026, t01=0x002c}
0x3bb4…3bc4              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x0026, t01=0x0060}
0x3bc4…3bea              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x0026, t01=0x0070}
0x3bea…3c12              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/27 TEST PRINTER STATUS «, t00=0x0026, t01=0x0096}
0x3c12…3c32              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRJL60 NO ERRORS «, t00=0x0026, t01=0x00be}
0x3c32…3c58              Head {h00=0x0022, h01=0x0050, text=» ANK A1,3 TEST PRINTER STATUS «, t00=0x0026, t01=0x00de}
0x3c58…3c7c              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRJL65 NOT OPERABLE «, t00=0x0026, t01=0x0104}
0x3c7c…3ca2              Head {h00=0x0022, h01=0x0050, text=» ANK A2,4 TEST PRINTER STATUS «, t00=0x0026, t01=0x0128}
0x3ca2…3cc6              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRJL80 REQUEST ERROR«, t00=0x0026, t01=0x014e}
0x3cc6…3cea              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,ENDJ END OF JOURNAL«, t00=0x0026, t01=0x0172}
0x3cea…3d2a              Head {h00=0x003c, h01=0x0050, text=»WRJL60 LC A3,DWTDEV+RPJ,A6 GET REQUESTED PRINT POSITION «, t00=0x0027, t01=0x0008}
0x3d2a…3d64              Head {h00=0x0036, h01=0x0050, text=» SC A3,DWTDEV+APJ,A6 SET UP ACTUAL PRINT POSITION «, t00=0x0027, t01=0x0048}
0x3d64…3d76              Head {h00=0x000e, h01=0x0050, text=» RF WRJL70«, t00=0x0027, t01=0x0082}
0x3d76…3da4              Head {h00=0x002a, h01=0x0050, text=»WRJL65 LDK A1,1 INDICATE NOT OPERABLE «, t00=0x0027, t01=0x0094}
0x3da4…3dca              Head {h00=0x0022, h01=0x0050, text=»WRJL70 ABL LENDIS END REQUEST «, t00=0x0027, t01=0x00c2}
0x3dca…3e02              Head {h00=0x0034, h01=0x0050, text=»WRJL80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0027, t01=0x00e8}
0x3e02…3e10              Head {h00=0x000a, h01=0x0050, text=» XIF  «, t00=0x0027, t01=0x0120}
0x3e10…3e20              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0027, t01=0x012e}
0x3e20…3e2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x013e}
0x3e2a…3e34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0148}
0x3e34…3e5a              Head {h00=0x0022, h01=0x0050, text=»*   ORDER 06 : WRITE DOCUMENT «, t00=0x0027, t01=0x0152}
0x3e5a…3e64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0178}
0x3e64…3e6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0182}
0x3e6e…3e82              Head {h00=0x0010, h01=0x0050, text=»WRTDOC EQU *«, t00=0x0027, t01=0x018c}
0x3e82…3eae              Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTDEV+ALN,A6 GET ACTUAL LINE«, t00=0x0028, t01=0x0010}
0x3eae…3ec2              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0028, t01=0x003c}
0x3ec2…3eee              Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0028, t01=0x0050}
0x3eee…3f16              Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 TEST REQUESTED LENGTH «, t00=0x0028, t01=0x007c}
0x3f16…3f3a              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRDO80 REQUEST ERROR «, t00=0x0028, t01=0x00a4}
0x3f3a…3f6a              Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBA,A8 GET CONTROL CHARACTER =2«, t00=0x0028, t01=0x00c8}
0x3f6a…3f82              Head {h00=0x0014, h01=0x0050, text=» LC A2,1,A2 * =2«, t00=0x0028, t01=0x00f8}
0x3f82…3f96              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0028, t01=0x0110}
0x3f96…3fcc              Head {h00=0x0032, h01=0x0050, text=» LC A3,DWTDEV+APD,A6 PREPARE NEW REQ PRINT POS«, t00=0x0028, t01=0x0124}
0x3fcc…3fe0              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/2B «, t00=0x0028, t01=0x015a}
0x3fe0…4006              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO07 CTRL CHAR = /2B «, t00=0x0028, t01=0x016e}
0x4006…4032 (41, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDK A3,0 PREPARE NEW REQ PRINT POS «, t00=0x0029, t01=0x0004}
0x4032…4060              Head {h00=0x002a, h01=0x0050, text=» ADK A4,2 SET REQ LINE = ACT LINE + 2 «, t00=0x0029, t01=0x0030}
0x4060…4072              Head {h00=0x000e, h01=0x0050, text=» SUK A2,5 «, t00=0x0029, t01=0x005e}
0x4072…4098              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO05 CTRL CHAR = /30 «, t00=0x0029, t01=0x0070}
0x4098…40c6              Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 SET REQ LINE = ACT LINE + 1 «, t00=0x0029, t01=0x0096}
0x40c6…40d8              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0029, t01=0x00c4}
0x40d8…4102              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRDO05 CTRL CHAR NOT = /31«, t00=0x0029, t01=0x00d6}
0x4102…4124              Head {h00=0x001e, h01=0x0050, text=» LDK A4,1 SET REQ LINE = 1«, t00=0x0029, t01=0x0100}
0x4124…415c              Head {h00=0x0034, h01=0x0050, text=»WRDO05 LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3«, t00=0x0029, t01=0x0122}
0x415c…4174              Head {h00=0x0014, h01=0x0050, text=» CC A4,2,A1 * =3«, t00=0x0029, t01=0x015a}
0x4174…419e              Head {h00=0x0026, h01=0x0050, text=» RF(G) WRDO80 REQ LINE > MAX LINES«, t00=0x0029, t01=0x0172}
0x419e…41dc              Head {h00=0x003a, h01=0x0050, text=»WRDO07 SC A3,DWTDEV+RPD,A6 SET UP START REQ PRINT POS «, t00=0x002a, t01=0x000c}
0x41dc…420c              Head {h00=0x002c, h01=0x0050, text=» SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO «, t00=0x002a, t01=0x004a}
0x420c…421e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x002a, t01=0x007a}
0x421e…4242              Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRDO80 REQ LINE=ZERO «, t00=0x002a, t01=0x008c}
0x4242…4256              Head {h00=0x0010, h01=0x0050, text=»WRDO10 EQU *«, t00=0x002a, t01=0x00b0}
0x4256…426e              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x002a, t01=0x00c4}
0x426e…428c              Head {h00=0x001a, h01=0x0050, text=» ADK A2,2 BLOCK LENGTH«, t00=0x002a, t01=0x00dc}
0x428c…42b8              Head {h00=0x0028, h01=0x0050, text=» LDK A3,POWDOC SET UP PRINTER ORDER «, t00=0x002a, t01=0x00fa}
0x42b8…42d6              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x002a, t01=0x0126}
0x42d6…42f8              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 GET REQ LINE NO«, t00=0x002a, t01=0x0144}
0x42f8…4314              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x002a, t01=0x0166}
0x4314…4348              Head {h00=0x0030, h01=0x0050, text=» LDKL A4,/100 SET UP NORMAL CHARACTER COUNT «, t00=0x002a, t01=0x0182}
0x4348…4370              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 SET UP BUFFER POINTER «, t00=0x002b, t01=0x0026}
0x4370…43aa              Head {h00=0x0036, h01=0x0050, text=»WRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER«, t00=0x002b, t01=0x004e}
0x43aa…43bc              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002b, t01=0x0088}
0x43bc…43e2              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO50 BUFFER FINISHED «, t00=0x002b, t01=0x009a}
0x43e2…4402              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 GET CHARACTER«, t00=0x002b, t01=0x00c0}
0x4402…440a              Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00e0}
0x440a…4446              Head {h00=0x0038, h01=0x0050, text=»*   EXAMINE CHARACTER AND UPDATE PRINT POS AND SEND «, t00=0x002b, t01=0x00e8}
0x4446…4470              Head {h00=0x0026, h01=0x0050, text=»*   DEPENDING ON TYPE OF CHARACTER«, t00=0x002b, t01=0x0124}
0x4470…4478              Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x014e}
0x4478…448c              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x002b, t01=0x0156}
0x448c…44ac              Head {h00=0x001c, h01=0x0050, text=» RB(N) WRDO20 CHAR < /10«, t00=0x002b, t01=0x016a}
0x44ac…44d2              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO30 CHAR = /10 SEND «, t00=0x002b, t01=0x018a}
0x44d2…44ea              Head {h00=0x0014, h01=0x0050, text=»WRDO22 SUK A1,9 «, t00=0x002c, t01=0x0020}
0x44ea…4518              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) WRDO27 CHAR NOT /19 (=EXPAND) «, t00=0x002c, t01=0x0038}
0x4518…4548              Head {h00=0x002c, h01=0x0050, text=» XRKL A4,/300 SWITCH CHAR COUNTER IN A4 «, t00=0x002c, t01=0x0066}
0x4548…456c              Head {h00=0x0020, h01=0x0050, text=» RF WRDO40 SEND EXPAND CHAR «, t00=0x002c, t01=0x0096}
0x456c…4584              Head {h00=0x0014, h01=0x0050, text=»WRDO27 SUK A1,7 «, t00=0x002c, t01=0x00ba}
0x4584…45aa              Head {h00=0x0022, h01=0x0050, text=» RF(N) WRDO40 CHAR < /20 SEND «, t00=0x002c, t01=0x00d2}
0x45aa…45be              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/5F «, t00=0x002c, t01=0x00f8}
0x45be…45e2              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRDO30 CHAR = NORMAL «, t00=0x002c, t01=0x010c}
0x45e2…4602              Head {h00=0x001c, h01=0x0050, text=» RB(Z) WRDO20 CHAR = /7F«, t00=0x002c, t01=0x0130}
0x4602…4616              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2F «, t00=0x002c, t01=0x0150}
0x4616…4636              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRDO28 CHAR = /AE«, t00=0x002c, t01=0x0164}
0x4636…4650              Head {h00=0x0016, h01=0x0050, text=» IFT GREEK=1 * =4 «, t00=0x002c, t01=0x0184}
0x4650…4688              Head {h00=0x0034, h01=0x0050, text=» CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4«, t00=0x002d, t01=0x000e}
0x4688…46a0              Head {h00=0x0014, h01=0x0050, text=» LDR A1,A1 * =4 «, t00=0x002d, t01=0x0046}
0x46a0…46ce              Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRDO30 SUCCESSFUL CONVERSION =4«, t00=0x002d, t01=0x005e}
0x46ce…46e0              Head {h00=0x000e, h01=0x0050, text=» XIF  * =4«, t00=0x002d, t01=0x008c}
0x46e0…470c              Head {h00=0x0028, h01=0x0050, text=» LDK A1,4 INDICATE CODE CHECK ERROR «, t00=0x002d, t01=0x009e}
0x470c…4734              Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A8 IN RETURN CODE «, t00=0x002d, t01=0x00ca}
0x4734…4746              Head {h00=0x000e, h01=0x0050, text=» RB WRDO20«, t00=0x002d, t01=0x00f2}
0x4746…4770              Head {h00=0x0026, h01=0x0050, text=»WRDO28 LDK A2,SPEC SET UP CHAR /0E«, t00=0x002d, t01=0x0104}
0x4770…4782              Head {h00=0x000e, h01=0x0050, text=» RF WRDO40«, t00=0x002d, t01=0x012e}
0x4782…478a              Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0140}
0x478a…47a6              Head {h00=0x0018, h01=0x0050, text=»*   UPDATE PRINT POS«, t00=0x002d, t01=0x0148}
0x47a6…47ae              Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x0164}
0x47ae…47ee              Head {h00=0x003c, h01=0x0050, text=»WRDO30 ADS A4,DWTDEV+RPD,A6 ADD 1 OR 2 TO REQ PRINT POS «, t00=0x002d, t01=0x016c}
0x47ee…47f6              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x001c}
0x47f6…481c              Head {h00=0x0022, h01=0x0050, text=»*   SEND CHARACTER TO PRINTER «, t00=0x002e, t01=0x0024}
0x481c…4824              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x004a}
0x4824…484e              Head {h00=0x0026, h01=0x0050, text=»WRDO40 CF A5,OUTPUT SEND CHARACTER«, t00=0x002e, t01=0x0052}
0x484e…4870              Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) ERTP JMP IF ERROR«, t00=0x002e, t01=0x007c}
0x4870…4890              Head {h00=0x001c, h01=0x0050, text=» RB WRDO20 GET NEXT CHAR«, t00=0x002e, t01=0x009e}
0x4890…4898              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00be}
0x4898…48ac              Head {h00=0x0010, h01=0x0050, text=»*   SEND ETX«, t00=0x002e, t01=0x00c6}
0x48ac…48b4              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00da}
0x48b4…48e8              Head {h00=0x0030, h01=0x0050, text=»WRDO50 CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x002e, t01=0x00e2}
0x48e8…48f8              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x002e, t01=0x0116}
0x48f8…491e              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x002e, t01=0x0126}
0x491e…4946              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/45 TEST PRINTER STATUS «, t00=0x002e, t01=0x014c}
0x4946…4966              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRDO60 NO ERRORS «, t00=0x002e, t01=0x0174}
0x4966…498c (47, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x002f, t01=0x0004}
0x498c…49b0              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRDO70 NOT OPERABLE «, t00=0x002f, t01=0x002a}
0x49b0…49d6              Head {h00=0x0022, h01=0x0050, text=» ANK A2,4 TEST PRINTER STATUS «, t00=0x002f, t01=0x004e}
0x49d6…49fa              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRDO80 REQUEST ERROR«, t00=0x002f, t01=0x0074}
0x49fa…4a26              Head {h00=0x0028, h01=0x0050, text=» LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3«, t00=0x002f, t01=0x0098}
0x4a26…4a52              Head {h00=0x0028, h01=0x0050, text=» ANK A1,/78 TEST DOC PAR (TIME OUT) «, t00=0x002f, t01=0x00c4}
0x4a52…4a86              Head {h00=0x0030, h01=0x0050, text=» RB(NZ) WRTDOC NO TIME OUT USED,REPEAT ORDER«, t00=0x002f, t01=0x00f0}
0x4a86…4aaa              Head {h00=0x0020, h01=0x0050, text=» LDK A1,DOCOUT DOCUMENT OUT «, t00=0x002f, t01=0x0124}
0x4aaa…4ace              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET LINE COUNTER«, t00=0x002f, t01=0x0148}
0x4ace…4afc              Head {h00=0x002a, h01=0x0050, text=» LDK A4,0 RESET PRINT POSITION COUNTER«, t00=0x002f, t01=0x016c}
0x4afc…4b0e              Head {h00=0x000e, h01=0x0050, text=» RF WRDO65«, t00=0x0030, t01=0x000a}
0x4b0e…4b4a              Head {h00=0x0038, h01=0x0050, text=»WRDO60 LC A3,DWTDEV+RLN,A6 GET REQUESTED LINE NUMBER«, t00=0x0030, t01=0x001c}
0x4b4a…4b84              Head {h00=0x0036, h01=0x0050, text=» LC A4,DWTDEV+RPD,A6 GET REQUESTED PRINT POSITION «, t00=0x0030, t01=0x0058}
0x4b84…4bc0              Head {h00=0x0038, h01=0x0050, text=»WRDO65 SC A3,DWTDEV+ALN,A6 SET UP ACTUAL LINE NUMBER«, t00=0x0030, t01=0x0092}
0x4bc0…4bfa              Head {h00=0x0036, h01=0x0050, text=» SC A4,DWTDEV+APD,A6 SET UP ACTUAL PRINT POSITION «, t00=0x0030, t01=0x00ce}
0x4bfa…4c0e              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0030, t01=0x0108}
0x4c0e…4c48              Head {h00=0x0036, h01=0x0050, text=» ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD«, t00=0x0030, t01=0x011c}
0x4c48…4c6e              Head {h00=0x0022, h01=0x0050, text=»WRDO70 ABL LENDIS END REQUEST «, t00=0x0030, t01=0x0156}
0x4c6e…4ca8              Head {h00=0x0036, h01=0x0050, text=»WRDO80 LC A3,DWTDEV+APD,A6 GET ACTUAL LINE NUMBER «, t00=0x0030, t01=0x017c}
0x4ca8…4cbc              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0031, t01=0x0026}
0x4cbc…4cf6              Head {h00=0x0036, h01=0x0050, text=» ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD«, t00=0x0031, t01=0x003a}
0x4cf6…4d28              Head {h00=0x002e, h01=0x0050, text=» ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0031, t01=0x0074}
0x4d28…4d36              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00a6}
0x4d36…4d40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b4}
0x4d40…4d4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00be}
0x4d4a…4d72              Head {h00=0x0024, h01=0x0050, text=»*   ORDER 0B : POSITION DOCUMENT«, t00=0x0031, t01=0x00c8}
0x4d72…4da6              Head {h00=0x0030, h01=0x0050, text=»*   CONTROL WORD CONTAINS REQUESTED LINE NO «, t00=0x0031, t01=0x00f0}
0x4da6…4db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0124}
0x4db0…4dba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x012e}
0x4dba…4dce              Head {h00=0x0010, h01=0x0050, text=»POSDOC EQU *«, t00=0x0031, t01=0x0138}
0x4dce…4df6              Head {h00=0x0024, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQ LINE NO «, t00=0x0031, t01=0x014c}
0x4df6…4e18              Head {h00=0x001e, h01=0x0050, text=» RF(Z) PDOC80 REQ LINE = 0«, t00=0x0031, t01=0x0174}
0x4e18…4e4a              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3«, t00=0x0032, t01=0x0008}
0x4e4a…4e62              Head {h00=0x0014, h01=0x0050, text=» CC A4,2,A1 * =3«, t00=0x0032, t01=0x003a}
0x4e62…4e8c              Head {h00=0x0026, h01=0x0050, text=» RF(G) PDOC80 REQ LINE > MAX LINE «, t00=0x0032, t01=0x0052}
0x4e8c…4ebc              Head {h00=0x002c, h01=0x0050, text=» SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO «, t00=0x0032, t01=0x007c}
0x4ebc…4eda              Head {h00=0x001a, h01=0x0050, text=» LDK A2,4 BLOCK LENGTH«, t00=0x0032, t01=0x00ac}
0x4eda…4f18              Head {h00=0x003a, h01=0x0050, text=» LDK A3,POPDOC SET UP PRINTER POSITION DOCUMENT ORDER «, t00=0x0032, t01=0x00ca}
0x4f18…4f36              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0032, t01=0x0108}
0x4f36…4f58              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 SET UP LINE NO «, t00=0x0032, t01=0x0126}
0x4f58…4f74              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0032, t01=0x0148}
0x4f74…4fa2              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0032, t01=0x0164}
0x4fa2…4fc8 (51, 0, 398) Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x0033, t01=0x0004}
0x4fc8…4ff0              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/45 TEST PRINTER STATUS «, t00=0x0033, t01=0x002a}
0x4ff0…5010              Head {h00=0x001c, h01=0x0050, text=» RF(Z) PDOC10 NO ERRORS «, t00=0x0033, t01=0x0052}
0x5010…5036              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x0033, t01=0x0072}
0x5036…505a              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) PDOC70 NOT OPERABLE «, t00=0x0033, t01=0x0098}
0x505a…5080              Head {h00=0x0022, h01=0x0050, text=» ANK A2,4 TEST PRINTER STATUS «, t00=0x0033, t01=0x00bc}
0x5080…50a4              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) PDOC80 REQUEST ERROR«, t00=0x0033, t01=0x00e2}
0x50a4…50d0              Head {h00=0x0028, h01=0x0050, text=» LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3«, t00=0x0033, t01=0x0106}
0x50d0…50fc              Head {h00=0x0028, h01=0x0050, text=» ANK A1,/78 TEST DOC PAR (TIME OUT) «, t00=0x0033, t01=0x0132}
0x50fc…5130              Head {h00=0x0030, h01=0x0050, text=» RB(Z) POSDOC NO TIME OUT USED, REPEAT ORDER«, t00=0x0033, t01=0x015e}
0x5130…515c (52, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDK A1,DOCOUT INDICATE DOCUMENT OUT«, t00=0x0034, t01=0x0004}
0x515c…5180              Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET LINE COUNTER«, t00=0x0034, t01=0x0030}
0x5180…51ba              Head {h00=0x0036, h01=0x0050, text=»PDOC10 SC A4,DWTDEV+ALN,A6  PDATE OF LINE COUNTER «, t00=0x0034, t01=0x0054}
0x51ba…51f0              Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTER«, t00=0x0034, t01=0x008e}
0x51f0…5216              Head {h00=0x0022, h01=0x0050, text=»PDOC70 ABL LENDIS END REQUEST «, t00=0x0034, t01=0x00c4}
0x5216…524e              Head {h00=0x0034, h01=0x0050, text=»PDOC80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0034, t01=0x00ea}
0x524e…525c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0122}
0x525c…528e              Head {h00=0x002e, h01=0x0050, text=»* CONVERSION ROUTINE FOR GREEK CHARACTERS «, t00=0x0034, t01=0x0130}
0x528e…52cc              Head {h00=0x003a, h01=0x0050, text=»* CHARACTER CODES /B0-/BP IN REG A2 WILL BE CONVERTED «, t00=0x0034, t01=0x0162}
0x52cc…5300              Head {h00=0x0030, h01=0x0050, text=»* TO /41-/4A. THE SPECIAL CHARACTER /1B WILL«, t00=0x0035, t01=0x0010}
0x5300…5334              Head {h00=0x0030, h01=0x0050, text=»* BE SENT TO THE PRINTER BEFORE RETURN FROM «, t00=0x0035, t01=0x0044}
0x5334…5376              Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE. REG A1 WILL BE SET TO ZERO IF SUCCESSFUL. «, t00=0x0035, t01=0x0078}
0x5376…5390              Head {h00=0x0016, h01=0x0050, text=» IFT GREEK=1 * =4 «, t00=0x0035, t01=0x00ba}
0x5390…53aa              Head {h00=0x0016, h01=0x0050, text=»GRECON EQU * * =4 «, t00=0x0035, t01=0x00d4}
0x53aa…53c0              Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 * =4«, t00=0x0035, t01=0x00ee}
0x53c0…53e4              Head {h00=0x0020, h01=0x0050, text=» RF(N) GRCO80 CHAR < /B0 =4 «, t00=0x0035, t01=0x0104}
0x53e4…53fc              Head {h00=0x0014, h01=0x0050, text=» SUK A1,/A * =4 «, t00=0x0035, t01=0x0128}
0x53fc…5420              Head {h00=0x0020, h01=0x0050, text=» RF(P) GRCO80 CHAR > /B9 =4 «, t00=0x0035, t01=0x0140}
0x5420…5438              Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF * =4«, t00=0x0035, t01=0x0164}
0x5438…545c              Head {h00=0x0020, h01=0x0050, text=» ORR A4,A2 SAVE CHAR TEMP =4«, t00=0x0035, t01=0x017c}
0x545c…5486              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/1B SET UP SPECIAL CHAR =4«, t00=0x0036, t01=0x0010}
0x5486…54ae              Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER =4 «, t00=0x0036, t01=0x003a}
0x54ae…54d0              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 RESTORE CHAR =4«, t00=0x0036, t01=0x0062}
0x54d0…54e8              Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF * =4«, t00=0x0036, t01=0x0084}
0x54e8…551c              Head {h00=0x0030, h01=0x0050, text=» SUK A2,/6F CONVERT CHAR (/B0 = /41 ETC.) =4«, t00=0x0036, t01=0x009c}
0x551c…5546              Head {h00=0x0026, h01=0x0050, text=» ANKL A4,/FF00 CLEAR USED BITS =4 «, t00=0x0036, t01=0x00d0}
0x5546…557a              Head {h00=0x0030, h01=0x0050, text=» LDK A1,0 INDICATE SUCCESSFUL CONVERSION =4 «, t00=0x0036, t01=0x00fa}
0x557a…5594              Head {h00=0x0016, h01=0x0050, text=»GRCO80 RTN A5 * =4«, t00=0x0036, t01=0x012e}
0x5594…55a6              Head {h00=0x000e, h01=0x0050, text=» XIF  * =4«, t00=0x0036, t01=0x0148}
0x55a6…55b6              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0036, t01=0x015a}
0x55b6…55c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016a}
0x55c0…55ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0174}
0x55ca…55fe              Head {h00=0x0030, h01=0x0050, text=»*   ORDER 37 : TRANSFER DOCUMENT PARAMETERS «, t00=0x0036, t01=0x017e}
0x55fe…5636              Head {h00=0x0034, h01=0x0050, text=»*   CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER «, t00=0x0037, t01=0x0022}
0x5636…5640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x005a}
0x5640…564a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0064}
0x564a…565e              Head {h00=0x0010, h01=0x0050, text=»TRFDOC EQU *«, t00=0x0037, t01=0x006e}
0x565e…5676              Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x0037, t01=0x0082}
0x5676…5688              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0037, t01=0x009a}
0x5688…569a              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0037, t01=0x00ac}
0x569a…56ac              Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x0037, t01=0x00be}
0x56ac…56be              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x0037, t01=0x00d0}
0x56be…56d0              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x0037, t01=0x00e2}
0x56d0…56e6              Head {h00=0x0012, h01=0x0050, text=» CWK A4,TLTP03«, t00=0x0037, t01=0x00f4}
0x56e6…5716              Head {h00=0x002c, h01=0x0050, text=» RF(G) ODOC80 REQ DOC TABLE NOT DEFINED «, t00=0x0037, t01=0x010a}
0x5716…574a              Head {h00=0x0030, h01=0x0050, text=» ADKL A4,DTTP03-10 ADJUST DOCTAB POINTER =3 «, t00=0x0037, t01=0x013a}
0x574a…5776              Head {h00=0x0028, h01=0x0050, text=» LC A1,DWTDEV+ALN,A6 GET ACTUAL LINE«, t00=0x0037, t01=0x016e}
0x5776…579a              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF TEST LINE NUMBER«, t00=0x0038, t01=0x000a}
0x579a…57ca              Head {h00=0x002c, h01=0x0050, text=» RF(Z) ODOC20 DOCUMENT NOT YET POS (OK) «, t00=0x0038, t01=0x002e}
0x57ca…57f2              Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 GET DOCUMENT TYPE =3 «, t00=0x0038, t01=0x005e}
0x57f2…5804              Head {h00=0x000e, h01=0x0050, text=» ANK A1,4 «, t00=0x0038, t01=0x0086}
0x5804…5838              Head {h00=0x0030, h01=0x0050, text=» RF(Z) ODOC80 REQUEST ERROR FOR DOC TYPE 0-3«, t00=0x0038, t01=0x0098}
0x5838…584c              Head {h00=0x0010, h01=0x0050, text=»ODOC20 EQU *«, t00=0x0038, t01=0x00cc}
0x584c…587c              Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTDEV+DP,A6 SAVE DOC PAR ADDR =3«, t00=0x0038, t01=0x00e0}
0x587c…589c              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/13 BLOCK LENGTH«, t00=0x0038, t01=0x0110}
0x589c…58ce              Head {h00=0x002e, h01=0x0050, text=» LDK A3,POTDOC LOAD TRANSFER DOC PAR ORDER«, t00=0x0038, t01=0x0130}
0x58ce…58ec              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0038, t01=0x0162}
0x58ec…5916              Head {h00=0x0026, h01=0x0050, text=» LDK A3,10 SET UP TABLE LENGTH =3 «, t00=0x0038, t01=0x0180}
0x5916…5944              Head {h00=0x002a, h01=0x0050, text=»ODOC30 LCR A2,A4 GET DOC PARAMETER =3 «, t00=0x0039, t01=0x001a}
0x5944…5968              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUT SEND PARAMETER =3«, t00=0x0039, t01=0x0048}
0x5968…598e              Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 INC TABLE POINTER =3«, t00=0x0039, t01=0x006c}
0x598e…59b8              Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC PARAMETER COUNTER =3«, t00=0x0039, t01=0x0092}
0x59b8…59e4              Head {h00=0x0028, h01=0x0050, text=» RB(NE) ODOC30 WHOLE TABLE NOT SENT «, t00=0x0039, t01=0x00bc}
0x59e4…5a12              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0039, t01=0x00e8}
0x5a12…5a22              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x0039, t01=0x0116}
0x5a22…5a48              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x0039, t01=0x0126}
0x5a48…5a6e              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x0039, t01=0x014c}
0x5a6e…5a94              Head {h00=0x0022, h01=0x0050, text=»ODOC70 ABL LENDIS END REQUEST «, t00=0x0039, t01=0x0172}
0x5a94…5acc              Head {h00=0x0034, h01=0x0050, text=»ODOC80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x003a, t01=0x0008}
0x5acc…5adc              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x003a, t01=0x0040}
0x5adc…5ae6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0050}
0x5ae6…5af0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x005a}
0x5af0…5b1e              Head {h00=0x002a, h01=0x0050, text=»*   ORDER 24 : SET PRINTER PARAMETERS «, t00=0x003a, t01=0x0064}
0x5b1e…5b40              Head {h00=0x001e, h01=0x0050, text=»*   CONTROL WORD CONTAINS:«, t00=0x003a, t01=0x0092}
0x5b40…5b7a              Head {h00=0x0036, h01=0x0050, text=»*   BIT 0     : INDICATE CHANGE OF CH FONT AND NCV«, t00=0x003a, t01=0x00b4}
0x5b7a…5ba0              Head {h00=0x0022, h01=0x0050, text=»*   BIT 01-03 : CHARACTER FONT«, t00=0x003a, t01=0x00ee}
0x5ba0…5bd4              Head {h00=0x0030, h01=0x0050, text=»*   BIT 04-07 : NATIONAL CHARACTER VARIATION«, t00=0x003a, t01=0x0114}
0x5bd4…5c10              Head {h00=0x0038, h01=0x0050, text=»*   BIT 08-11 : CHARACTER PITCH FOR JOURNAL STATION «, t00=0x003a, t01=0x0148}
0x5c10…5c4c              Head {h00=0x0038, h01=0x0050, text=»*   BIT 12-15 : CHARACTER PITCH FOR DOCUMENT STATION«, t00=0x003a, t01=0x0184}
0x5c4c…5c56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0030}
0x5c56…5c60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003a}
0x5c60…5c76              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x003b, t01=0x0044}
0x5c76…5c8a              Head {h00=0x0010, h01=0x0050, text=»PRTPAR EQU *«, t00=0x003b, t01=0x005a}
0x5c8a…5c9c              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003b, t01=0x006e}
0x5c9c…5cca              Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTDEV+PP,A6 GET OLD DWT VALUE «, t00=0x003b, t01=0x0080}
0x5cca…5cfe              Head {h00=0x0030, h01=0x0050, text=» ABL(NN) LDISP WAIT FOR INITIAL RECOVERY =1 «, t00=0x003b, t01=0x00ae}
0x5cfe…5d26              Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CONTROL WORD«, t00=0x003b, t01=0x00e2}
0x5d26…5d5e              Head {h00=0x0034, h01=0x0050, text=» RF(NN) PPAR10 NO NEW L/NCV SET UP IN CTRL WORD «, t00=0x003b, t01=0x010a}
0x5d5e…5d70              Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x003b, t01=0x0142}
0x5d70…5d84              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003b, t01=0x0154}
0x5d84…5db6              Head {h00=0x002e, h01=0x0050, text=» SC A2,DWTDEV+PP,A6 STORE NEW L/NCV IN DWT«, t00=0x003b, t01=0x0168}
0x5db6…5dce              Head {h00=0x0014, h01=0x0050, text=»PPAR10 LDK A2,0 «, t00=0x003c, t01=0x000a}
0x5dce…5de0              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003c, t01=0x0022}
0x5de0…5e02              Head {h00=0x001e, h01=0x0050, text=» ANK A3,/F0 GET CTRL WORD «, t00=0x003c, t01=0x0034}
0x5e02…5e34              Head {h00=0x002e, h01=0x0050, text=» RF(NZ) PPAR15 NEW CPJ SET UP IN CTRL WORD«, t00=0x003c, t01=0x0056}
0x5e34…5e46              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x003c, t01=0x0088}
0x5e46…5e5a              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x003c, t01=0x009a}
0x5e5a…5e6e              Head {h00=0x0010, h01=0x0050, text=»PPAR15 EQU *«, t00=0x003c, t01=0x00ae}
0x5e6e…5e94              Head {h00=0x0022, h01=0x0050, text=» ORR A2,A3 STORE NEW CPJ IN A2«, t00=0x003c, t01=0x00c2}
0x5e94…5ea6              Head {h00=0x000e, h01=0x0050, text=» XRR A3,A4«, t00=0x003c, t01=0x00e8}
0x5ea6…5ed2              Head {h00=0x0028, h01=0x0050, text=» ANK A3,/F0 NEW AND OLD CPJ EQUAL ? «, t00=0x003c, t01=0x00fa}
0x5ed2…5eec              Head {h00=0x0016, h01=0x0050, text=» RF(Z) PPAR22 YES «, t00=0x003c, t01=0x0126}
0x5eec…5f26              Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+PPJ,A6 NO, RESET PRINT POS FOR JOURNAL «, t00=0x003c, t01=0x0140}
0x5f26…5f3a              Head {h00=0x0010, h01=0x0050, text=»PPAR22 EQU *«, t00=0x003c, t01=0x017a}
0x5f3a…5f4c              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003c, t01=0x018e}
0x5f4c…5f6c              Head {h00=0x001c, h01=0x0050, text=» ANK A3,/F GET CTRL WORD«, t00=0x003d, t01=0x0010}
0x5f6c…5f9e              Head {h00=0x002e, h01=0x0050, text=» RF(NZ) PPAR25 NEW CPD SET UP IN CTRL WORD«, t00=0x003d, t01=0x0030}
0x5f9e…5fb0              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x003d, t01=0x0062}
0x5fb0…5fd4              Head {h00=0x0020, h01=0x0050, text=» ANK A3,/F GET CPD FROM DWT «, t00=0x003d, t01=0x0074}
0x5fd4…5fde              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003d, t01=0x0098}
0x5fde…5ff2              Head {h00=0x0010, h01=0x0050, text=»PPAR25 EQU *«, t00=0x003d, t01=0x00a2}
0x5ff2…6018              Head {h00=0x0022, h01=0x0050, text=» ORR A2,A3 STORE NEW CPD IN A2«, t00=0x003d, t01=0x00b6}
0x6018…602a              Head {h00=0x000e, h01=0x0050, text=» XRR A3,A4«, t00=0x003d, t01=0x00dc}
0x602a…6054              Head {h00=0x0026, h01=0x0050, text=» ANK A3,/F NEW AND OLD CPD EQUAL ?«, t00=0x003d, t01=0x00ee}
0x6054…606e              Head {h00=0x0016, h01=0x0050, text=» RF(Z) PPAR32 YES «, t00=0x003d, t01=0x0118}
0x606e…60a4              Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+PPD,A6 NO, RESET PRINT POS FOR DOC «, t00=0x003d, t01=0x0132}
0x60a4…60b8              Head {h00=0x0010, h01=0x0050, text=»PPAR32 EQU *«, t00=0x003d, t01=0x0168}
0x60b8…60f2              Head {h00=0x0036, h01=0x0050, text=» SC A2,DWTDEV+PP+1,A6 STORE NEW PARAMETERS IN DWT «, t00=0x003d, t01=0x017c}
0x60f2…6110              Head {h00=0x001a, h01=0x0050, text=» LDK A2,5 BLOCK LENGTH«, t00=0x003e, t01=0x0026}
0x6110…614c              Head {h00=0x0038, h01=0x0050, text=» LDK A3,POPPAR LOAD PRINTER PRINTER PARAMETER ORDER «, t00=0x003e, t01=0x0044}
0x614c…616a              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x003e, t01=0x0080}
0x616a…6186              Head {h00=0x0018, h01=0x0050, text=» LC A2,DWTDEV+PP,A6 «, t00=0x003e, t01=0x009e}
0x6186…61a4              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUT SEND L/NCV «, t00=0x003e, t01=0x00ba}
0x61a4…61c2              Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTDEV+PP+1,A6 «, t00=0x003e, t01=0x00d8}
0x61c2…61e2              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUT SEND CPJ/CPD «, t00=0x003e, t01=0x00f6}
0x61e2…6210              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x003e, t01=0x0116}
0x6210…6220              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x003e, t01=0x0144}
0x6220…6246              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x003e, t01=0x0154}
0x6246…626c              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x003e, t01=0x017a}
0x626c…6292              Head {h00=0x0022, h01=0x0050, text=»PPAR70 ABL LENDIS END REQUEST «, t00=0x003f, t01=0x0010}
0x6292…629e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0036}
0x629e…62ae              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x003f, t01=0x0042}
0x62ae…62b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0052}
0x62b8…62c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005c}
0x62c2…62f0              Head {h00=0x002a, h01=0x0050, text=»*   ORDER 27 : SET DOCUMENT PARAMETERS«, t00=0x003f, t01=0x0066}
0x62f0…632e              Head {h00=0x003a, h01=0x0050, text=»*   CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS«, t00=0x003f, t01=0x0094}
0x632e…6338              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d2}
0x6338…6342              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00dc}
0x6342…6358              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x003f, t01=0x00e6}
0x6358…636c              Head {h00=0x0010, h01=0x0050, text=»DOCPAR EQU *«, t00=0x003f, t01=0x00fc}
0x636c…6394              Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CONTROL WORD«, t00=0x003f, t01=0x0110}
0x6394…63a6              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x003f, t01=0x0138}
0x63a6…63b8              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003f, t01=0x014a}
0x63b8…63ca              Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x003f, t01=0x015c}
0x63ca…63dc              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x003f, t01=0x016e}
0x63dc…63ee              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x003f, t01=0x0180}
0x63ee…6404 (64, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CWK A4,TLTP03«, t00=0x0040, t01=0x0004}
0x6404…6432              Head {h00=0x002a, h01=0x0050, text=» RF(G) DPAR80 DEFINED TABLE TOO SMALL «, t00=0x0040, t01=0x001a}
0x6432…645a              Head {h00=0x0024, h01=0x0050, text=» SUK A4,10 ADJUST DOCTAB POINTER«, t00=0x0040, t01=0x0048}
0x645a…6484              Head {h00=0x0026, h01=0x0050, text=» LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0040, t01=0x0070}
0x6484…64a6              Head {h00=0x001e, h01=0x0050, text=» CF A5,BYTE1 GET DOC TYPE «, t00=0x0040, t01=0x009a}
0x64a6…64b8              Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x0040, t01=0x00bc}
0x64b8…64dc              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0040, t01=0x00ce}
0x64dc…64f4              Head {h00=0x0014, h01=0x0050, text=» SC A2,DTTP03,A4«, t00=0x0040, t01=0x00f2}
0x64f4…651c              Head {h00=0x0024, h01=0x0050, text=» CF A5,BYTE1 GET TIME OUT VALUE «, t00=0x0040, t01=0x010a}
0x651c…652e              Head {h00=0x000e, h01=0x0050, text=» SLL A2,11«, t00=0x0040, t01=0x0132}
0x652e…6548              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0040, t01=0x0144}
0x6548…656c              Head {h00=0x0020, h01=0x0050, text=» CF A5,DOC GET LINE SPACING «, t00=0x0040, t01=0x015e}
0x656c…657e              Head {h00=0x000e, h01=0x0050, text=» SUK A2,15«, t00=0x0040, t01=0x0182}
0x657e…659e (65, 0, 398) Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0041, t01=0x0004}
0x659e…65c0              Head {h00=0x001e, h01=0x0050, text=» CF A5,DOC GET NO OF LINES«, t00=0x0041, t01=0x0024}
0x65c0…65d2              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0041, t01=0x0046}
0x65d2…65f0              Head {h00=0x001a, h01=0x0050, text=» RF(Z) DPAR80 NO LINES«, t00=0x0041, t01=0x0058}
0x65f0…6614              Head {h00=0x0020, h01=0x0050, text=» CF A5,DOC GET BOTTOM LINES «, t00=0x0041, t01=0x0076}
0x6614…6626              Head {h00=0x000e, h01=0x0050, text=» SUK A2,14«, t00=0x0041, t01=0x009a}
0x6626…6646              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0041, t01=0x00ac}
0x6646…6664              Head {h00=0x001a, h01=0x0050, text=» CF A5,DOC GET MARGIN «, t00=0x0041, t01=0x00cc}
0x6664…6676              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0041, t01=0x00ea}
0x6676…6696              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DPAR80 TOO SMALL «, t00=0x0041, t01=0x00fc}
0x6696…66a8              Head {h00=0x000e, h01=0x0050, text=» SUK A2,80«, t00=0x0041, t01=0x011c}
0x66a8…66c8              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0041, t01=0x012e}
0x66c8…66da              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0041, t01=0x014e}
0x66da…66fe              Head {h00=0x0020, h01=0x0050, text=» CF A5,BYTE1 GET MARGIN FINE«, t00=0x0041, t01=0x0160}
0x66fe…6710              Head {h00=0x000e, h01=0x0050, text=» SUK A1,0 «, t00=0x0041, t01=0x0184}
0x6710…6730              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DPAR80 TOO SMALL «, t00=0x0042, t01=0x0008}
0x6730…6742              Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x0042, t01=0x0028}
0x6742…6762              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0042, t01=0x003a}
0x6762…677a              Head {h00=0x0014, h01=0x0050, text=» SC A2,DTTP03,A4«, t00=0x0042, t01=0x005a}
0x677a…679e              Head {h00=0x0020, h01=0x0050, text=» CF A5,BYTE1 GET LEFT MARGIN«, t00=0x0042, t01=0x0072}
0x679e…67b0              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0042, t01=0x0096}
0x67b0…67d4              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0042, t01=0x00a8}
0x67d4…67e6              Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0042, t01=0x00cc}
0x67e6…6800              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0042, t01=0x00de}
0x6800…6828              Head {h00=0x0024, h01=0x0050, text=» CF A5,BYTE1 GET CRITICAL MARGIN«, t00=0x0042, t01=0x00f8}
0x6828…683a              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0042, t01=0x0120}
0x683a…685e              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0042, t01=0x0132}
0x685e…6870              Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0042, t01=0x0156}
0x6870…688a              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0042, t01=0x0168}
0x688a…68b6              Head {h00=0x0028, h01=0x0050, text=» CF A5,BYTE1 GET HIGH PRINT PRESSURE«, t00=0x0042, t01=0x0182}
0x68b6…68c8              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0043, t01=0x001e}
0x68c8…68ec              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0043, t01=0x0030}
0x68ec…68fe              Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x0043, t01=0x0054}
0x68fe…6918              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0043, t01=0x0066}
0x6918…693e              Head {h00=0x0022, h01=0x0050, text=» LC* A1,ECBBA,A8 GET DOC TYPE «, t00=0x0043, t01=0x0080}
0x693e…6950              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/B«, t00=0x0043, t01=0x00a6}
0x6950…6972              Head {h00=0x001e, h01=0x0050, text=» RF(Z) DPAR60 DOC TYPE = 0«, t00=0x0043, t01=0x00b8}
0x6972…6994              Head {h00=0x001e, h01=0x0050, text=» CF A5,DOC GET UPPER EDGE «, t00=0x0043, t01=0x00da}
0x6994…69a6              Head {h00=0x000e, h01=0x0050, text=» SUK A2,15«, t00=0x0043, t01=0x00fc}
0x69a6…69c6              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0043, t01=0x010e}
0x69c6…69d8              Head {h00=0x000e, h01=0x0050, text=» SUK A2,67«, t00=0x0043, t01=0x012e}
0x69d8…69f8              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0043, t01=0x0140}
0x69f8…6a1a              Head {h00=0x001e, h01=0x0050, text=» CF A5,DOC GET BOTTOM EDGE«, t00=0x0043, t01=0x0160}
0x6a1a…6a2c              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0043, t01=0x0182}
0x6a2c…6a44 (68, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RF(Z) DPAR30 OK«, t00=0x0044, t01=0x0004}
0x6a44…6a56              Head {h00=0x000e, h01=0x0050, text=» SUK A2,24«, t00=0x0044, t01=0x001c}
0x6a56…6a76              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0044, t01=0x002e}
0x6a76…6aa2              Head {h00=0x0028, h01=0x0050, text=»DPAR30 LC* A1,ECBBA,A8 GET DOC TYPE «, t00=0x0044, t01=0x004e}
0x6aa2…6ab4              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/B«, t00=0x0044, t01=0x007a}
0x6ab4…6ac6              Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0044, t01=0x008c}
0x6ac6…6ae8              Head {h00=0x001e, h01=0x0050, text=» RF(N) DPAR70 DOC TYPE = 1«, t00=0x0044, t01=0x009e}
0x6ae8…6b0a              Head {h00=0x001e, h01=0x0050, text=» RF(P) DPAR40 DOC TYPE = 3«, t00=0x0044, t01=0x00c0}
0x6b0a…6b30              Head {h00=0x0022, h01=0x0050, text=» CF A5,DOC GET DOCUMENT WIDTH «, t00=0x0044, t01=0x00e2}
0x6b30…6b42              Head {h00=0x000e, h01=0x0050, text=» SUK A2,40«, t00=0x0044, t01=0x0108}
0x6b42…6b62              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0044, t01=0x011a}
0x6b62…6b74              Head {h00=0x000e, h01=0x0050, text=» SUK A2,57«, t00=0x0044, t01=0x013a}
0x6b74…6b94              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO SMALL «, t00=0x0044, t01=0x014c}
0x6b94…6ba6              Head {h00=0x000e, h01=0x0050, text=» RF DPAR50«, t00=0x0044, t01=0x016c}
0x6ba6…6bce              Head {h00=0x0024, h01=0x0050, text=»DPAR40 CF A5,DOC GET UPPER LINES«, t00=0x0044, t01=0x017e}
0x6bce…6be0              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0045, t01=0x0016}
0x6be0…6c00              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DPAR80 TOO SMALL «, t00=0x0045, t01=0x0028}
0x6c00…6c12              Head {h00=0x000e, h01=0x0050, text=» SUK A2,40«, t00=0x0045, t01=0x0048}
0x6c12…6c32              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0045, t01=0x005a}
0x6c32…6c5c              Head {h00=0x0026, h01=0x0050, text=»DPAR50 CF A5,DOC GET CENTER WIDTH «, t00=0x0045, t01=0x007a}
0x6c5c…6c72              Head {h00=0x0012, h01=0x0050, text=» RF DPAR75 OK «, t00=0x0045, t01=0x00a4}
0x6c72…6ca6              Head {h00=0x0030, h01=0x0050, text=»DPAR60 LDK A2,0 DT=0 SET 4 LAST PARAMETERS=0«, t00=0x0045, t01=0x00ba}
0x6ca6…6cb8              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x00ee}
0x6cb8…6cd0              Head {h00=0x0014, h01=0x0050, text=» ST A2,DTTP03,A4«, t00=0x0045, t01=0x0100}
0x6cd0…6ce2              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x0118}
0x6ce2…6d16              Head {h00=0x0030, h01=0x0050, text=»DPAR70 LDK A2,0 DT=1 SET 2 LAST PARAMETERS=0«, t00=0x0045, t01=0x012a}
0x6d16…6d28              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x015e}
0x6d28…6d40              Head {h00=0x0014, h01=0x0050, text=» ST A2,DTTP03,A4«, t00=0x0045, t01=0x0170}
0x6d40…6d76              Head {h00=0x0032, h01=0x0050, text=»DPAR75 LDK A1,0 IND STATUS OK FOR RETURN CODE «, t00=0x0045, t01=0x0188}
0x6d76…6d96              Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x0046, t01=0x002e}
0x6d96…6dce              Head {h00=0x0034, h01=0x0050, text=»DPAR80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0046, t01=0x004e}
0x6dce…6dd6              Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x0086}
0x6dd6…6e0c              Head {h00=0x0032, h01=0x0050, text=»*   GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 «, t00=0x0046, t01=0x008e}
0x6e0c…6e34              Head {h00=0x0024, h01=0x0050, text=»*   CONVERTED TO HEXA FROM ASCII«, t00=0x0046, t01=0x00c4}
0x6e34…6e3c              Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x00ec}
0x6e3c…6e62              Head {h00=0x0022, h01=0x0050, text=»BYTE1 LCR A2,A3 GET CHARACTER «, t00=0x0046, t01=0x00f4}
0x6e62…6e86              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHECK TEST IF NUMERIC«, t00=0x0046, t01=0x011a}
0x6e86…6ea2              Head {h00=0x0018, h01=0x0050, text=» ANK A2,/F GET HEXA «, t00=0x0046, t01=0x013e}
0x6ea2…6ec4              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 SAVE IN A1 ALSO«, t00=0x0046, t01=0x015a}
0x6ec4…6eec              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INC ECB BUFFER POINTER«, t00=0x0046, t01=0x017c}
0x6eec…6efc              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0047, t01=0x0014}
0x6efc…6f04              Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0024}
0x6f04…6f34              Head {h00=0x002c, h01=0x0050, text=»*   GET TWO BYTES FROM ECB BUFFER TO A2 «, t00=0x0047, t01=0x002c}
0x6f34…6f6a              Head {h00=0x0032, h01=0x0050, text=»*   CONVERTED TO HEXA AND STORED IN DOC TABLE «, t00=0x0047, t01=0x005c}
0x6f6a…6f72              Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0092}
0x6f72…6f98              Head {h00=0x0022, h01=0x0050, text=»DOC LDK A1,0 CLEAR HEXA VALUE «, t00=0x0047, t01=0x009a}
0x6f98…6fbc              Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 INC TABLE POINTER «, t00=0x0047, t01=0x00c0}
0x6fbc…6fec              Head {h00=0x002c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER FROM ECB BUFFER«, t00=0x0047, t01=0x00e4}
0x6fec…7010              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHECK TEST IF NUMERIC«, t00=0x0047, t01=0x0114}
0x7010…7022              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0047, t01=0x0138}
0x7022…7038              Head {h00=0x0012, h01=0x0050, text=»DOC10 SUK A2,1«, t00=0x0047, t01=0x014a}
0x7038…705c              Head {h00=0x0020, h01=0x0050, text=» RF(N) DOC20 TENTH FINISHED «, t00=0x0047, t01=0x0160}
0x705c…707c              Head {h00=0x001c, h01=0x0050, text=» ADK A1,10  PDATE TENTH «, t00=0x0047, t01=0x0184}
0x707c…708e              Head {h00=0x000e, h01=0x0050, text=» RB DOC10 «, t00=0x0048, t01=0x0014}
0x708e…70bc              Head {h00=0x002a, h01=0x0050, text=»DOC20 ADK A3,1 INC ECB BUFFER POINTER «, t00=0x0048, t01=0x0026}
0x70bc…70f2              Head {h00=0x0032, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER FROM ECB BUFFER «, t00=0x0048, t01=0x0054}
0x70f2…7116              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHECK TEST IF NUMERIC«, t00=0x0048, t01=0x008a}
0x7116…7128              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0048, t01=0x00ae}
0x7128…7152              Head {h00=0x0026, h01=0x0050, text=» ADR A2,A1 ADD TO PREV HEXA VALUE «, t00=0x0048, t01=0x00c0}
0x7152…717e              Head {h00=0x0028, h01=0x0050, text=» SC A2,DTTP03,A4 STORE IN DOC TABLE «, t00=0x0048, t01=0x00ea}
0x717e…71a6              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INC ECB BUFFER POINTER«, t00=0x0048, t01=0x0116}
0x71a6…71b6              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0048, t01=0x013e}
0x71b6…71c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x014e}
0x71c0…71ea              Head {h00=0x0026, h01=0x0050, text=»*   CHECK IF CHARACTER IS NUMERIC «, t00=0x0048, t01=0x0158}
0x71ea…7216              Head {h00=0x0028, h01=0x0050, text=»CHECK ANK A2,/FF MASK OUT CHARACTER «, t00=0x0048, t01=0x0182}
0x7216…722a              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0049, t01=0x001e}
0x722a…724e              Head {h00=0x0020, h01=0x0050, text=» RB(N) DPAR80 TOO LOW ERROR «, t00=0x0049, t01=0x0032}
0x724e…7260              Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0049, t01=0x0056}
0x7260…7284              Head {h00=0x0020, h01=0x0050, text=» RB(P) DPAR80 TOO HIGH ERROR«, t00=0x0049, t01=0x0068}
0x7284…72aa              Head {h00=0x0022, h01=0x0050, text=» ADK A2,/39 RESTORE CHARACTER «, t00=0x0049, t01=0x008c}
0x72aa…72ba              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0049, t01=0x00b2}
0x72ba…72c6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x00c2}
0x72c6…72d6              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0049, t01=0x00ce}
0x72d6…72e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00de}
0x72e0…72ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00e8}
0x72ea…7312              Head {h00=0x0024, h01=0x0050, text=»*   ORDER 38 : RELEASE DOCUMENT «, t00=0x0049, t01=0x00f2}
0x7312…731c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x011a}
0x731c…7326              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0124}
0x7326…733a              Head {h00=0x0010, h01=0x0050, text=»RELDOC EQU *«, t00=0x0049, t01=0x012e}
0x733a…7358              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x0049, t01=0x0142}
0x7358…738a              Head {h00=0x002e, h01=0x0050, text=» LDK A3,PORDOC LOAD PRINTER REL DOC ORDER «, t00=0x0049, t01=0x0160}
0x738a…73a8 (74, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x004a, t01=0x0004}
0x73a8…73d6              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x004a, t01=0x0022}
0x73d6…73fc              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x004a, t01=0x0050}
0x73fc…7422              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x004a, t01=0x0076}
0x7422…7446              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDOC70 NOT OPERABLE «, t00=0x004a, t01=0x009c}
0x7446…7472              Head {h00=0x0028, h01=0x0050, text=» CM DWTDEV+LN,A6 RESET LINE COUNTERS«, t00=0x004a, t01=0x00c0}
0x7472…74aa              Head {h00=0x0034, h01=0x0050, text=» CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTERS «, t00=0x004a, t01=0x00ec}
0x74aa…74d0              Head {h00=0x0022, h01=0x0050, text=»RDOC70 ABL LENDIS END REQUEST «, t00=0x004a, t01=0x0124}
0x74d0…74de              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x014a}
0x74de…74e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0158}
0x74e8…750a              Head {h00=0x001e, h01=0x0050, text=»*   S U B R O U T I N E S «, t00=0x004a, t01=0x0162}
0x750a…7514              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0184}
0x7514…751e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x018e}
0x751e…7526              Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0008}
0x7526…7530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0010}
0x7530…7546              Head {h00=0x0012, h01=0x0050, text=»*   O R D E R «, t00=0x004b, t01=0x001a}
0x7546…758c              Head {h00=0x0042, h01=0x0050, text=»*   SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER«, t00=0x004b, t01=0x0030}
0x758c…7596              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0076}
0x7596…75aa              Head {h00=0x0010, h01=0x0050, text=»ORDER EQU * «, t00=0x004b, t01=0x0080}
0x75aa…75ce              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x004b, t01=0x0094}
0x75ce…75f0              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004b, t01=0x00b8}
0x75f0…761e              Head {h00=0x002a, h01=0x0050, text=» LDK A2,RESET SEND RESET JUST IN CASE «, t00=0x004b, t01=0x00da}
0x761e…7634              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x004b, t01=0x0108}
0x7634…7656              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004b, t01=0x011e}
0x7656…7668              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x004b, t01=0x0140}
0x7668…768c              Head {h00=0x0020, h01=0x0050, text=» RF OUT10 SEND PRINTER ORDER«, t00=0x004b, t01=0x0152}
0x768c…7696              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0176}
0x7696…76b0              Head {h00=0x0016, h01=0x0050, text=»*   E X E C U T E «, t00=0x004b, t01=0x0180}
0x76b0…76fc              Head {h00=0x0048, h01=0x0050, text=»*   SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM.«, t00=0x004c, t01=0x000a}
0x76fc…7706              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0056}
0x7706…771a              Head {h00=0x0010, h01=0x0050, text=»EXECUT EQU *«, t00=0x004c, t01=0x0060}
0x771a…774a              Head {h00=0x002c, h01=0x0050, text=» LDK A2,ETX SEND EXECUTE CHAR TO PRINTER«, t00=0x004c, t01=0x0074}
0x774a…7760              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x004c, t01=0x00a4}
0x7760…7782              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004c, t01=0x00ba}
0x7782…77a4              Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x004c, t01=0x00dc}
0x77a4…77c6              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004c, t01=0x00fe}
0x77c6…77f8              Head {h00=0x002e, h01=0x0050, text=»EXE05 CF A5,INPUT GET STATUS CHARACTER =1 «, t00=0x004c, t01=0x0120}
0x77f8…7828              Head {h00=0x002c, h01=0x0050, text=» LDR A1,A7 TEST IF ORDER = POS OR REL =1«, t00=0x004c, t01=0x0152}
0x7828…7840              Head {h00=0x0014, h01=0x0050, text=» SUK A1,/0B U =1«, t00=0x004c, t01=0x0182}
0x7840…7878              Head {h00=0x0034, h01=0x0050, text=» RF(Z) EXE10 POS, BIT 3 IN STATUS DON'T CARE =1 «, t00=0x004d, t01=0x000a}
0x7878…7894              Head {h00=0x0018, h01=0x0050, text=» SUK A1,/38-/0B U =1«, t00=0x004d, t01=0x0042}
0x7894…78cc              Head {h00=0x0034, h01=0x0050, text=» RF(Z) EXE10 REL, BIT 3 IN STATUS DON'T CARE =1 «, t00=0x004d, t01=0x005e}
0x78cc…78fa              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 TEST IF STATUS BIT 3 = 1 =1«, t00=0x004d, t01=0x0096}
0x78fa…7912              Head {h00=0x0014, h01=0x0050, text=» ANK A1,/18 * =3«, t00=0x004d, t01=0x00c4}
0x7912…7944              Head {h00=0x002e, h01=0x0050, text=» RB(Z) EXE05 BIT 3 = 0, READ NEW STATUS =1«, t00=0x004d, t01=0x00dc}
0x7944…795c              Head {h00=0x0014, h01=0x0050, text=»EXE10 EQU * U =1«, t00=0x004d, t01=0x010e}
0x795c…7988              Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTDEV,A6 SAVE IN DWT STATUS «, t00=0x004d, t01=0x0126}
0x7988…7998              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004d, t01=0x0152}
0x7998…79a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0162}
0x79a2…79b4              Head {h00=0x000e, h01=0x0050, text=»*   0 U T «, t00=0x004d, t01=0x016c}
0x79b4…79d4              Head {h00=0x001c, h01=0x0050, text=»*   ADD CONST. AND SEND «, t00=0x004d, t01=0x017e}
0x79d4…79de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x000e}
0x79de…79f0              Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004e, t01=0x0018}
0x79f0…7a04              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x004e, t01=0x002a}
0x7a04…7a18              Head {h00=0x0010, h01=0x0050, text=» ADK A2,/10 «, t00=0x004e, t01=0x003e}
0x7a18…7a2c              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x004e, t01=0x0052}
0x7a2c…7a60              Head {h00=0x0030, h01=0x0050, text=» RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F«, t00=0x004e, t01=0x0066}
0x7a60…7a8e              Head {h00=0x002a, h01=0x0050, text=» LDK A2,/7F IF GREATER SET CHAR TO /7F«, t00=0x004e, t01=0x009a}
0x7a8e…7aa2              Head {h00=0x0010, h01=0x0050, text=»OUT10 EQU * «, t00=0x004e, t01=0x00c8}
0x7aa2…7ab8              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x004e, t01=0x00dc}
0x7ab8…7ada              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004e, t01=0x00f2}
0x7ada…7aea              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004e, t01=0x0114}
0x7aea…7b08              Head {h00=0x001a, h01=0x0050, text=»   9 LINES DELETED =1 «, t00=0x004e, t01=0x0124}
0x7b08…7b12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0142}
0x7b12…7b46              Head {h00=0x0030, h01=0x0050, text=»*   ERROR ROUTINE FOR STABLK,OUTPUT & ENDBLK«, t00=0x004e, t01=0x014c}
0x7b46…7b50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0180}
0x7b50…7b5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x018a}
0x7b5a…7b6c (79, 0, 398) Head {h00=0x000e, h01=0x0050, text=»ERTP EQU *«, t00=0x004f, t01=0x0004}
0x7b6c…7b82              Head {h00=0x0012, h01=0x0050, text=» IFF REQEND=1 «, t00=0x004f, t01=0x0016}
0x7b82…7b94              Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x004f, t01=0x002c}
0x7b94…7bc2              Head {h00=0x002a, h01=0x0050, text=» RF(Z) ERTP20 ORDER /00, TEST STATUS ?«, t00=0x004f, t01=0x003e}
0x7bc2…7bf6              Head {h00=0x0030, h01=0x0050, text=» ANK A1,/1A OUTP ERR, SOFTW T-OUT, LRC-ERR ?«, t00=0x004f, t01=0x006c}
0x7bf6…7c18              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) RCTP YES, RECOVERY«, t00=0x004f, t01=0x00a0}
0x7c18…7c2e              Head {h00=0x0012, h01=0x0050, text=» ABL LDISP NO «, t00=0x004f, t01=0x00c2}
0x7c2e…7c3a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00d8}
0x7c3a…7c62              Head {h00=0x0024, h01=0x0050, text=»ERTP20 LDK A1,1 SET NOT OPERABLE«, t00=0x004f, t01=0x00e4}
0x7c62…7c82              Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END OF REQ. «, t00=0x004f, t01=0x010c}
0x7c82…7c90              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x012c}
0x7c90…7c9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x013a}
0x7c9a…7cac              Head {h00=0x000e, h01=0x0050, text=»* R C T P «, t00=0x004f, t01=0x0144}
0x7cac…7cb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0156}
0x7cb6…7cec              Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE RECOVERY ROUTINE FOR THE DRIVER «, t00=0x004f, t01=0x0160}
0x7cec…7d1e              Head {h00=0x002e, h01=0x0050, text=»* DWT ORDER IS RESET IF NO REQUEST RUNING «, t00=0x0050, t01=0x0008}
0x7d1e…7d38              Head {h00=0x0016, h01=0x0050, text=»* DWT IS SET BUSY «, t00=0x0050, t01=0x003a}
0x7d38…7d7c              Head {h00=0x0040, h01=0x0050, text=»* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT «, t00=0x0050, t01=0x0054}
0x7d7c…7db6              Head {h00=0x0036, h01=0x0050, text=»* TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM«, t00=0x0050, t01=0x0098}
0x7db6…7dfa              Head {h00=0x0040, h01=0x0050, text=»* A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PRINTER «, t00=0x0050, t01=0x00d2}
0x7dfa…7e3e              Head {h00=0x0040, h01=0x0050, text=»* THIS STRING CONTAINS THE ACTUAL PARAMETERS AND THE ACTUAL «, t00=0x0050, t01=0x0116}
0x7e3e…7e60              Head {h00=0x001e, h01=0x0050, text=»* STATUS FOR THE PRINTER. «, t00=0x0050, t01=0x015a}
0x7e60…7e90              Head {h00=0x002c, h01=0x0050, text=»* A RUNING REQUEST IS AT LAST REPEATED. «, t00=0x0050, t01=0x017c}
0x7e90…7e9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x001c}
0x7e9a…7eac              Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0051, t01=0x0026}
0x7eac…7ed4              Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTECB,A6 GET ECB ADDRESS«, t00=0x0051, t01=0x0038}
0x7ed4…7efa              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) RCTP02 REQUEST RUNNING«, t00=0x0051, t01=0x0060}
0x7efa…7f1a              Head {h00=0x001c, h01=0x0050, text=» CM DWTOR,A6 RESET ORDER«, t00=0x0051, t01=0x0086}
0x7f1a…7f2e              Head {h00=0x0010, h01=0x0050, text=»RCTP02 EQU *«, t00=0x0051, t01=0x00a6}
0x7f2e…7f5a              Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/7FFF INDICATE DEVICE BUSY «, t00=0x0051, t01=0x00ba}
0x7f5a…7f72              Head {h00=0x0014, h01=0x0050, text=» ANS A1,DWTST,A6«, t00=0x0051, t01=0x00e6}
0x7f72…7f94              Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x0051, t01=0x00fe}
0x7f94…7fa6              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0051, t01=0x0120}
0x7fa6…7fb2              Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0051, t01=0x0132}
0x7fb2…7fd2              Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DP,A6 * =3«, t00=0x0051, t01=0x013e}
0x7fd2…8006              Head {h00=0x0030, h01=0x0050, text=» RF(NZ) RCTP08 NOT SYSTEM START RECOVERY =3 «, t00=0x0051, t01=0x015e}
0x8006…803e (82, 0, 400) Head {h00=0x0034, h01=0x0050, text=» LDKL A1,DTTP03 SET UP DOC PAR TABLE 0 IN DWT =3«, t00=0x0052, t01=0x0004}
0x803e…805e              Head {h00=0x001c, h01=0x0050, text=» ST A1,DWTDEV+DP,A6 * =3«, t00=0x0052, t01=0x003c}
0x805e…808a              Head {h00=0x0028, h01=0x0050, text=» LD A3,STDPP SET UP ST PR PAR IN DWT«, t00=0x0052, t01=0x005c}
0x808a…80a6              Head {h00=0x0018, h01=0x0050, text=» ST A3,DWTDEV+PP,A6 «, t00=0x0052, t01=0x0088}
0x80a6…80b6              Head {h00=0x000c, h01=0x0050, text=»   * =3 «, t00=0x0052, t01=0x00a4}
0x80b6…80ca              Head {h00=0x0010, h01=0x0050, text=»RCTP08 EQU *«, t00=0x0052, t01=0x00b4}
0x80ca…80e8              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x0052, t01=0x00c8}
0x80e8…811e              Head {h00=0x0032, h01=0x0050, text=» LDK A3,POTEST LOAD PRINTER ORDER TEST STATUS «, t00=0x0052, t01=0x00e6}
0x811e…813c              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0052, t01=0x011c}
0x813c…816a              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0052, t01=0x013a}
0x816a…817e              Head {h00=0x0010, h01=0x0050, text=»RCTP10 EQU *«, t00=0x0052, t01=0x0168}
0x817e…819e              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/19 BLOCK LENGTH«, t00=0x0052, t01=0x017c}
0x819e…81d2              Head {h00=0x0030, h01=0x0050, text=» LDK A3,PORECV SET UP PRINTER RECOVERY ORDER«, t00=0x0053, t01=0x000c}
0x81d2…81f0              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0053, t01=0x0040}
0x81f0…8222              Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS«, t00=0x0053, t01=0x005e}
0x8222…823a              Head {h00=0x0014, h01=0x0050, text=»RCTP20 ECR A2,A3«, t00=0x0053, t01=0x0090}
0x823a…8258              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUT SEND L/NCV «, t00=0x0053, t01=0x00a8}
0x8258…826a              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0053, t01=0x00c6}
0x826a…828a              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUT SEND CPJ/CPD «, t00=0x0053, t01=0x00d8}
0x828a…82be              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDEV+APJ,A6 GET ACTUAL POS JOURNAL «, t00=0x0053, t01=0x00f8}
0x82be…82da              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0053, t01=0x012c}
0x82da…830e              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDEV+APD,A6 GET ACTUAL POS DOCUMENT«, t00=0x0053, t01=0x0148}
0x830e…832e              Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE DOC POS «, t00=0x0053, t01=0x017c}
0x832e…834e              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F MASK OFF MSB«, t00=0x0054, t01=0x000c}
0x834e…836a              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT SEND APD «, t00=0x0054, t01=0x002c}
0x836a…838e              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A3 GET DOC POS BACK «, t00=0x0054, t01=0x0048}
0x838e…83ae              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/40 MASK OUT MSB«, t00=0x0054, t01=0x006c}
0x83ae…83ca              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT SEND AP6 «, t00=0x0054, t01=0x008c}
0x83ca…83fa              Head {h00=0x002c, h01=0x0050, text=» LC A2,DWTDEV+ALN,A6 GET ACTUAL LINE NO «, t00=0x0054, t01=0x00a8}
0x83fa…8416              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0054, t01=0x00d8}
0x8416…842e              Head {h00=0x0014, h01=0x0050, text=»RCTP40 LDK A4,10«, t00=0x0054, t01=0x00f4}
0x842e…8460              Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTDEV+DP,A6 GET DOC PAR ADDRESS =3«, t00=0x0054, t01=0x010c}
0x8460…848a              Head {h00=0x0026, h01=0x0050, text=»RCTP50 LCR A2,A3 GET DOC PARAMETER«, t00=0x0054, t01=0x013e}
0x848a…8494              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0054, t01=0x0168}
0x8494…84b0              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0054, t01=0x0172}
0x84b0…84d8              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INC DOC TABLE POINTER «, t00=0x0054, t01=0x018e}
0x84d8…8500              Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 DEC CHARACTER COUNTER «, t00=0x0055, t01=0x0026}
0x8500…852c              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) RCTP50 WHOLE TABLE NOT SENT «, t00=0x0055, t01=0x004e}
0x852c…8564              Head {h00=0x0034, h01=0x0050, text=»RCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER «, t00=0x0055, t01=0x007a}
0x8564…8582              Head {h00=0x001a, h01=0x0050, text=»RCTP70 LD A1,DWTECB,A6«, t00=0x0055, t01=0x00b2}
0x8582…85a6              Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ACT005 REQ RUNNING «, t00=0x0055, t01=0x00d0}
0x85a6…85ca              Head {h00=0x0020, h01=0x0050, text=» ABL LENDIS REQ NOT RUNNING «, t00=0x0055, t01=0x00f4}
0x85ca…85d6              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0055, t01=0x0118}
0x85d6…85da              Head {h00=0x4004, h01=0x0000}
0x85da…85de              00 55 01 24                                                                                                                                                                                                                                       ┆ U $┆
0x85de…85e6 (86, 1, 8)   20 04 00 00 00 56 00 04                                                                                                                                                                                                                           ┆     V  ┆
0x85e6…8636 (87, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 70 55 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 32 1e 4a 01 42 41 42 c1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 72 55 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 32 20 4a 11   ┆                pU                2 J BAB                 rU                2 J ┆
0x8636…8686              42 11 42 d1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 70 55 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 32 20 4a 11 42 51 42 d1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 72 55 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00   ┆B B                 pU                2 J BQB                 rU                ┆
0x8686…86d6              32 22 4a 21 42 21 42 e1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 70 55 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 32 22 4a 21 42 61 42 e1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 72 55 00 00 00 00 00 00 00 00 00 00 00 01   ┆2"J!B!B                 pU                2"J!BaB                 rU            ┆
0x86d6…8726              00 00 00 00 32 24 4a 31 42 31 42 f1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 70 55 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 32 24 4a 31 42 71 42 f1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 72 55 00 00 00 00 00 00 00 00   ┆    2$J1B1B                 pU                2$J1BqB                 rU        ┆
0x8726…8776              00 00 00 01 00 1a 21 54 21 6e 21 88 21 a2 21 bc 21 e6 22 10 22 3a 22 64 22 8e 22 b8 22 e2 00 00 80 00 00 00 00 00 23 36 00 00 00 00 00 00 23 3c 00 00 23 6e 82 42 00 0a 00 00 40 00 02 00 00 10 00 00 80 00 04 00 00 20 00 01 00 00 1f fe 11 40   ┆      !T!n! ! ! ! " ":"d" " "         #6      #<  #n B    @                    @┆
0x8776…87c6 (88, 0, 400) 22 ff 50 12 ea 20 00 08 51 0c 3a 41 82 48 23 14 50 04 87 1c 50 04 8f 20 32 dc 81 48 00 26 85 08 21 40 54 1a 05 e0 85 49 00 26 8f 20 36 04 85 04 81 54 00 26 21 03 31 03 02 00 e2 55 00 27 8f 20 32 e0 80 41 10 d4 f7 a1 0f 16 07 02 57 52 80 41   ┆" P     Q :A H# P   P   2  H &  !@T    I &  6    T &! 1    U '  2  A        WR A┆
0x87c6…8816              10 d4 f7 a1 0f 16 07 04 57 46 80 41 10 d4 f7 a1 0f 16 07 06 57 3a 80 41 10 d4 f7 a1 0f 16 07 08 57 2e 80 41 10 d4 f7 a1 0f 16 07 0a 57 22 80 41 10 d4 f7 a1 0f 16 07 0e 57 16 80 41 10 d4 f7 a1 0f 16 07 12 57 0a 80 41 10 d4 f7 a1 0f 16 07 16   ┆        WF A        W: A        W. A        W" A        W  A        W  A        ┆
0x8816…8866              85 5c 23 0c f0 55 00 06 8c 20 36 04 f7 a1 29 d4 1f 0a 56 04 07 00 57 1c 83 08 3b c6 56 04 85 5c 23 18 f7 a1 27 34 23 02 87 14 97 0c 83 54 00 26 8a 20 26 a6 01 00 83 08 8a 20 25 1e a3 20 70 00 8c 20 25 fc 83 08 23 ff 50 5c 1b 07 50 f0 13 02   ┆  #  U    6   )   V   W   ; V   #   '4#      T &  &       %   p   %   # P   P   ┆
0x8866…88b6              88 20 25 c2 13 02 88 20 25 fc 87 1c 54 0a 1b 18 54 40 90 55 00 14 57 c2 e4 5c 00 22 06 80 a6 11 50 b8 34 80 e4 5d 00 22 86 5c 00 1e 50 ac 24 7f 50 b8 f7 a1 28 4a 84 18 f7 a1 26 d4 1b 05 50 42 90 55 00 14 1b 04 50 3e 01 02 1b 02 50 34 13 04   ┆  %     %   T   T@ U  W    "    P 4  ] "    P $ P   (J    &   PB U    P>    P4  ┆
0x88b6…8906              50 30 90 55 00 16 87 1c 50 0c 86 5c 00 1e ee 34 54 04 f7 a1 28 4a f7 a1 26 cc 1a 05 50 6e 82 58 00 02 83 08 a2 20 20 10 54 62 2b 10 83 59 00 02 01 10 8f 20 26 62 84 58 01 08 02 00 a8 a2 8a 28 a2 8a 45 00 a0 44 40 48 00 00 24 00 00 28 00 20   ┆P0 U    P      4T   (J  &   Pn X        Tb+  Y      &b X       (  E  D@H  $  (  ┆
0x8906…8956 (89, 0, 400) 00 02 24 80 5c 20 5f 0e 82 34 a0 55 00 0c 87 1c 50 0a a0 5d 00 1e 07 01 a7 55 00 28 83 18 81 02 86 24 50 28 3e e1 52 24 3e c1 87 20 ff e7 a7 59 00 02 87 58 00 02 27 40 54 08 e7 58 00 02 27 20 54 0a ee 08 50 06 04 03 f7 a1 33 84 11 02 1b 02   ┆  $   _  4 U    P  ]     U (     $P(> R$>      Y   X  '@T  X  ' T   P     3     ┆
0x8956…89a6              5c 32 57 86 81 20 ff ef a1 59 00 02 01 01 8f 20 26 62 8f 20 26 70 e3 54 00 02 23 f0 f7 a1 26 cc 84 20 ff ef a4 59 00 02 87 1c 50 14 04 02 ac 55 00 26 80 8c 54 0a 83 20 80 00 ab 5d 00 22 57 14 83 58 00 02 23 80 50 0c 87 1c 58 3a ee 5c 00 1e   ┆ 2W      Y      &b  &p T  #   &      Y    P    U &  T      ] "W  X  # P   X:    ┆
0x89a6…89f6              8c 20 26 70 20 bf 83 58 00 26 50 0a 83 20 ff e2 83 79 00 26 57 10 81 18 84 20 00 26 94 18 f7 a1 34 50 25 96 00 1e 80 82 50 10 01 00 84 58 00 02 24 80 5c 72 82 08 8a 20 26 70 8f 20 36 04 86 04 a0 59 00 26 83 58 00 02 5a 10 3b 42 52 08 02 83   ┆  &p   X &P      y &W      &    4P%     P    X  $  r    &p  6    Y & X  Z ;BR   ┆
0x89f6…8a46              ea 59 00 06 58 1c f7 a1 28 0c 90 55 00 18 01 08 3b 46 56 02 01 02 8f 20 26 62 86 34 58 34 90 55 00 12 ee 20 00 01 58 3e 90 55 00 0c 84 54 00 0c 1c 07 88 20 24 86 82 54 00 02 f0 55 00 08 f7 a1 29 d4 87 1c 50 0a 22 ff b2 5d 00 22 f7 a1 27 34   ┆ Y  X   (  U    ;FV     &b 4X4 U      X> U   T      $  T   U    )   P "  ] "  '4┆
0x8a46…8a96              8f 20 36 04 83 08 3b 68 84 0c 23 0e 87 1c 50 0a 23 02 3b 41 ef 14 50 02 13 02 3c 63 24 0e ec 20 00 0e 50 78 80 f4 00 04 58 90 eb 42 ff fe 5e 96 90 8c 80 a2 58 9c 86 42 00 00 00 00 04 00 a1 00 00 00 40 00 c0 0a 00 08 08 00 20 81 40 00 00 00   ┆  6   ;h  #   P # ;A  P   <c$     Px    X  B  ^     X  B          @         @   ┆
0x8a96…8ae6 (90, 0, 400) ff fe 9e 10 5d a4 84 10 88 20 24 c0 90 90 86 22 58 b0 22 ff 83 58 00 02 23 60 1b 40 50 26 51 18 83 58 00 02 23 80 5c c6 87 1c 54 2a e2 59 00 2b 57 0e f7 a1 28 34 57 08 87 20 ff df a7 59 00 02 8f 20 33 06 81 58 00 08 81 44 00 04 58 86 85 18   ┆    ]     $    "X "  X  #` @P&Q  X  #     T* Y +W   (4W      Y    3  X   D  X   ┆
0x8ae6…8b36              95 20 00 1e 8f 04 87 08 27 ff 5c 18 ee 34 88 20 25 92 5f 24 04 01 ec 34 54 08 84 20 80 01 ac 55 00 26 8f 20 25 92 83 08 23 ff 1b 03 50 14 84 34 86 34 1c 01 50 04 01 01 5f 4a 1b 04 54 ec 04 02 5f 24 03 e3 a3 55 00 26 8f 20 25 fc 84 34 a0 55   ┆        '    4  % _$   4T      U &  %   #   P  4 4  P   _J  T   _$   U &  %  4 U┆
0x8b36…8b86              00 0c a0 35 82 3f 01 00 87 1c 50 06 01 01 ef 14 50 46 80 a0 00 0e 90 94 86 22 50 32 87 1c 50 0a ee 10 50 06 82 54 00 28 52 0e 82 58 00 10 82 23 e2 58 00 06 f7 a1 28 62 82 3e ee 10 50 20 86 10 50 1c ee 20 00 01 50 16 01 00 8f 20 29 92 81 04   ┆   5 ?    P     PF       "P2  P   P  T (R  X   # X    (b >  P   P     P     )   ┆
0x8b86…8bd6              58 1a 01 00 ef 14 58 46 80 a0 00 10 5f 48 97 a0 00 04 57 a6 84 3f 84 54 00 1a 54 10 81 14 04 1a 94 14 f7 a1 34 50 27 5c 00 05 57 08 84 20 ff fb 84 75 00 1a 84 3e 97 a0 00 02 80 3e a0 45 00 1a 85 04 82 44 00 1c b2 20 08 00 82 45 00 1c 06 01   ┆X     XF    _H    W  ? T  T         4P'   W      u   >     > E     D       E    ┆
0x8bd6…8c26              f0 45 00 08 50 08 53 32 f7 a1 27 34 57 2c 86 25 f7 a1 29 d4 83 08 3b 44 56 02 15 02 22 ff b2 55 00 22 84 44 00 26 83 10 24 80 50 0e 23 60 50 0e 1b 20 54 02 03 20 b3 45 04 00 00 20 40 00 80 20 00 04 00 00 00 10 02 00 00 30 00 00 04 40 00 00   ┆ E  P S2  '4W, %  )   ;DV   "  U " D &  $ P #`P   T    E    @            0   @  ┆
0x8c26…8c76 (91, 0, 400) 00 26 8f 20 36 04 86 20 23 26 87 58 00 06 27 ff 80 d8 00 04 83 58 00 08 28 40 8f 4c 00 04 02 20 aa 59 00 02 f7 a1 33 18 57 08 f7 a1 33 18 f7 a1 28 62 8f 20 36 04 1a 03 52 26 82 58 00 02 a2 20 20 08 54 1c 02 82 5f 1e 82 58 00 02 22 08 50 04   ┆ &  6   #& X  '      X  (@ L     Y    3 W   3   (b  6   R& X      T   _  X  " P ┆
0x8c76…8cc6              02 97 5f 2a 82 58 00 02 22 80 54 04 f7 a1 28 34 8f 20 33 00 85 38 25 0f 3d 41 87 38 a7 20 01 00 50 10 e7 58 00 24 3f 61 27 01 ad 1c 15 04 3d 41 87 14 85 54 23 0e 97 a0 00 02 80 3e 20 bf 87 3f 87 58 00 26 50 08 a0 79 00 26 a0 59 00 26 87 3e   ┆  _* X  " T   (4  3  8% =A 8    P  X $?a'     =A   T#      >   ? X &P  y & Y & >┆
0x8cc6…8d16              5f 1c 84 3f a0 5d 00 1e 84 20 ff f7 a4 59 00 02 04 01 a4 55 00 28 84 3e 5f 34 f7 a1 0f 16 22 ff f7 a1 28 0c 87 1c 50 0c e3 58 00 24 23 01 3b 41 87 14 97 0c 20 bf 83 34 54 de 87 1c 50 5e 83 08 1b 82 54 24 83 5c 00 1e 54 18 02 08 aa 59 00 02   ┆_  ? ]       Y     U ( >_4    "   (   P  X $# ;A       4T   P^    T$    T    Y  ┆
0x8d16…8d66              02 00 86 5d 00 1e a0 5d 00 22 84 58 00 24 03 00 57 50 eb 18 54 b2 57 20 1b 15 54 0a e2 5d 00 22 e2 5c 00 23 5f 1c 80 d8 00 24 ee 5c 00 1e 50 08 83 54 00 28 56 16 57 90 83 58 00 02 23 80 50 0c 83 54 00 28 50 06 aa 20 80 00 57 00 83 58 00 24   ┆   ]   ] " X $  WP  T W   T  ] "   #_    $    P  T (V W  X  # P  T (P     W  X $┆
0x8d66…8db6              84 0c 23 07 3b e4 87 1c 54 08 a4 20 07 00 3c c1 57 0e a4 20 02 00 ab 10 e4 58 00 24 24 01 3c e5 ab 10 aa 0c 01 19 f0 55 00 08 50 12 53 06 19 01 5c 0c 57 44 97 a0 00 14 28 00 12 a0 00 01 40 00 20 00 00 02 40 00 00 00 00 00 00 00 00 00 00 00   ┆  # ;   T     < W        X $$ <        U  P S     WD    (     @     @           ┆
0x8db6…8e06 (92, 0, 400) 01 01 8f 20 33 06 f7 a1 29 d4 86 35 82 55 00 02 87 1c 50 24 a3 20 70 00 54 14 83 58 00 02 23 80 50 0c 83 54 00 28 50 06 03 80 e3 55 00 28 22 ff b2 5d 00 22 f7 a1 27 34 e2 59 00 06 8f 20 10 80 87 1c 54 02 87 14 84 5c 00 0e 50 0e ee 10 58 18   ┆    3   )  5 U    P$  p T  X  # P  T (P    U ("  ] "  '4 Y        T       P   X ┆
0x8e06…8e56              83 50 00 10 50 0a 84 0c 5f 0e 86 5d 00 0e 57 04 86 51 00 10 a0 59 00 10 5f 32 84 40 23 0c 1c 02 54 08 97 a0 00 02 28 40 80 3e 20 bf 85 50 23 0c 58 14 ec 20 00 0a 52 14 03 40 f0 55 00 0a 53 06 03 00 f7 a1 27 34 83 55 00 26 57 04 f0 55 00 0a   ┆ P  P   _  ]  W  Q   Y  _2 @#   T     (@ >   P# X     R  @ U  S     '4 U &W  U  ┆
0x8e56…8ea6              86 34 58 36 ee 20 00 01 58 3c a0 35 02 00 f7 a1 28 62 5f 46 81 3f 81 40 29 f4 11 02 e9 20 31 c6 54 04 81 20 29 f6 81 41 29 f4 82 25 81 3e 97 a0 00 02 80 3e 29 f4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆ 4X6    X< 5    (b_F ? @)     1 T   )  A)  % >     >)                           ┆
0x8ea6…8ef6              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                                                                ┆
0x8ef6…8f46              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 28 00 00 11 00 00 02 01 00 20 00 89 28 20 00 00 00 00 00 00 00 00 00 00   ┆                                                        (           (           ┆

Reduced view