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

⟦9c3287ef7⟧ 

    Length: 36662 (0x8f36)
    Notes: pts_type(SC)
    Names: »DRTP03.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/DRTP03.SC«

PTS(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	01 
* 
*	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	0
* 
*	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	0
* 
*	THE JOURNAL STATION CAN BE EXCLUDED 
*	BY SETTING X:D=0
* 
X:D	EQU	1 
JOURNL	EQU	1
* 
*	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	0
* 
*	THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED
*	BY SETTING X:F=1
* 
X:F	EQU	0 
PARORD	EQU	1
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
*   MMU BUFFER SIZE 
* 
X:G	EQU	126 
DVBLEN	EQU	250
* 
*	A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PRINTERS
*	BY SETTING X:H=1
X:H	EQU	0 
REQEND	EQU	1
* 
*	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

HexDump

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 01 «, 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…15dc              Head {h00=0x000e, h01=0x0050, text=»FONT EQU 0«, t00=0x000d, t01=0x0180}
0x15dc…15e6 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e6…1630              Head {h00=0x0046, h01=0x0050, text=»* THE STANDARD CHARACTER PITCH FOR THE DOCUMENT STATION IS CHOSEN «, t00=0x000e, t01=0x000e}
0x1630…1678              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}
0x1678…1682              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1682…1694              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 2 «, t00=0x000e, t01=0x00aa}
0x1694…16a8              Head {h00=0x0010, h01=0x0050, text=»STDCPD EQU 0«, t00=0x000e, t01=0x00bc}
0x16a8…16b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d0}
0x16b2…16e0              Head {h00=0x002a, h01=0x0050, text=»* THE JOURNAL STATION CAN BE EXCLUDED «, t00=0x000e, t01=0x00da}
0x16e0…16fa              Head {h00=0x0016, h01=0x0050, text=»* BY SETTING X:D=0«, t00=0x000e, t01=0x0108}
0x16fa…1704              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1704…1716              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000e, t01=0x012c}
0x1716…172a              Head {h00=0x0010, h01=0x0050, text=»JOURNL EQU 1«, t00=0x000e, t01=0x013e}
0x172a…1734              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x1734…177c              Head {h00=0x0044, h01=0x0050, text=»* THE STANDARD CHARACTER PITCH FOR THE JOURNAL STATION IS CHOSEN«, t00=0x000e, t01=0x015c}
0x177c…17c4              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=0x0014}
0x17c4…17ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005c}
0x17ce…17e0              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x0066}
0x17e0…17f4              Head {h00=0x0010, h01=0x0050, text=»STDCPJ EQU 0«, t00=0x000f, t01=0x0078}
0x17f4…17fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008c}
0x17fe…183c              Head {h00=0x003a, h01=0x0050, text=»* THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED«, t00=0x000f, t01=0x0096}
0x183c…1856              Head {h00=0x0016, h01=0x0050, text=»* BY SETTING X:F=1«, t00=0x000f, t01=0x00d4}
0x1856…1860              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1860…1872              Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x00f8}
0x1872…1886              Head {h00=0x0010, h01=0x0050, text=»PARORD EQU 1«, t00=0x000f, t01=0x010a}
0x1886…1890              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x1890…18c2              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000f, t01=0x0128}
0x18c2…18f0              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000f, t01=0x015a}
0x18f0…18fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18fa…190e (16, 0, 400) Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0010, t01=0x0004}
0x190e…1918              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0018}
0x1918…1922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1922…195c              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x002c}
0x195c…198e              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x0066}
0x198e…1998              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x1998…19ac              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0010, t01=0x00a2}
0x19ac…19b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b6}
0x19b6…19d2              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0010, t01=0x00c0}
0x19d2…19dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00dc}
0x19dc…19f0              Head {h00=0x0010, h01=0x0050, text=»X:G EQU 126 «, t00=0x0010, t01=0x00e6}
0x19f0…1a06              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 250«, t00=0x0010, t01=0x00fa}
0x1a06…1a10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a10…1a4e              Head {h00=0x003a, h01=0x0050, text=»* A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PRINTERS«, t00=0x0010, t01=0x011a}
0x1a4e…1a68              Head {h00=0x0016, h01=0x0050, text=»* BY SETTING X:H=1«, t00=0x0010, t01=0x0158}
0x1a68…1a7a              Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x0010, t01=0x0172}
0x1a7a…1a8e              Head {h00=0x0010, h01=0x0050, text=»REQEND EQU 1«, t00=0x0010, t01=0x0184}
0x1a8e…1a98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a98…1ade              Head {h00=0x0042, h01=0x0050, text=»* THE CHARACTERS /B0-/B9 WILL BE CONVERTED TO /1B,/41-/1B,/4A «, t00=0x0011, t01=0x0012}
0x1ade…1b16              Head {h00=0x0034, h01=0x0050, text=»* BY SETTING X:I=1. GREEK ADDITIONAL CHARACTERS.«, t00=0x0011, t01=0x0058}
0x1b16…1b20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b20…1b36              Head {h00=0x0012, h01=0x0050, text=»X:I EQU 0 * =4«, t00=0x0011, t01=0x009a}
0x1b36…1b50              Head {h00=0x0016, h01=0x0050, text=»GREEK EQU X:I * =4«, t00=0x0011, t01=0x00b0}
0x1b50…1b5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b5a…1b64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d4}
0x1b64…1b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00de}
0x1b6e…1b78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e8}
0x1b78…1bbe              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=0x00f2}
0x1bbe…1bcc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0138}
0x1bcc…1bd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0146}
0x1bd6…1bde              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0150}
0x1bde…1bfc              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0011, t01=0x0158}
0x1bfc…1c1a              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0011, t01=0x0176}
0x1c1a…1c38 (18, 0, 398) Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x0004}
0x1c38…1c42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0022}
0x1c42…1c4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002c}
0x1c4c…1c56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0036}
0x1c56…1c7a              Head {h00=0x0020, h01=0x0050, text=»PP EQU /2 PRINTER PARAMETERS«, t00=0x0012, t01=0x0040}
0x1c7a…1c9e              Head {h00=0x0020, h01=0x0050, text=»PPJ EQU /4 PRINT POS JOURNAL«, t00=0x0012, t01=0x0064}
0x1c9e…1ccc              Head {h00=0x002a, h01=0x0050, text=»APJ EQU PPJ+1 ACTUAL PRINT POS JOURNAL«, t00=0x0012, t01=0x0088}
0x1ccc…1cfc              Head {h00=0x002c, h01=0x0050, text=»RPJ EQU PPJ REQUESTED PRINT POS JOURNAL «, t00=0x0012, t01=0x00b6}
0x1cfc…1d22              Head {h00=0x0022, h01=0x0050, text=»PPD EQU /6 PRINT POS DOCUMENT «, t00=0x0012, t01=0x00e6}
0x1d22…1d52              Head {h00=0x002c, h01=0x0050, text=»APD EQU PPD+1 ACTUAL PRINT POS DOCUMENT «, t00=0x0012, t01=0x010c}
0x1d52…1d82              Head {h00=0x002c, h01=0x0050, text=»RPD EQU PPD REQUESTED PRINT POS DOCUMENT«, t00=0x0012, t01=0x013c}
0x1d82…1dac              Head {h00=0x0026, h01=0x0050, text=»LN EQU /8 LINE NUMBER ON DOCUMENT «, t00=0x0012, t01=0x016c}
0x1dac…1de0              Head {h00=0x0030, h01=0x0050, text=»ALN EQU LN+1 ACTUAL LINE NUMBER ON DOCUMENT «, t00=0x0013, t01=0x0008}
0x1de0…1e14              Head {h00=0x0030, h01=0x0050, text=»RLN EQU LN REQUESTED LINE NUMBER ON DOCUMENT«, t00=0x0013, t01=0x003c}
0x1e14…1e3a              Head {h00=0x0022, h01=0x0050, text=»DP EQU /A DOCUMENT PARAMETERS «, t00=0x0013, t01=0x0070}
0x1e3a…1e44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0096}
0x1e44…1e4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a0}
0x1e4e…1e6c              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x00aa}
0x1e6c…1e8a              Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS * «, t00=0x0013, t01=0x00c8}
0x1e8a…1ea8              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x00e6}
0x1ea8…1eb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb2…1edc              Head {h00=0x0026, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS IN ECB «, t00=0x0013, t01=0x010e}
0x1edc…1f08              Head {h00=0x0028, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH IN ECB «, t00=0x0013, t01=0x0138}
0x1f08…1f34              Head {h00=0x0028, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH IN ECB «, t00=0x0013, t01=0x0164}
0x1f34…1f5a              Head {h00=0x0022, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE IN ECB«, t00=0x0013, t01=0x0190}
0x1f5a…1f82              Head {h00=0x0024, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD IN ECB«, t00=0x0014, t01=0x0026}
0x1f82…1f90              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x004e}
0x1f90…1f9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005c}
0x1f9a…1fac              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0066}
0x1fac…1fbe              Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x0078}
0x1fbe…1fd0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x008a}
0x1fd0…1fda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009c}
0x1fda…1fe4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a6}
0x1fe4…1ffc              Head {h00=0x0014, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0014, t01=0x00b0}
0x1ffc…2006              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c8}
0x2006…202a              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0014, t01=0x00d2}
0x202a…2046              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x00f6}
0x2046…2068              Head {h00=0x001e, h01=0x0050, text=»TPAD3 EQU * ADDRESS BLOCK «, t00=0x0014, t01=0x0112}
0x2068…208c              Head {h00=0x0020, h01=0x0050, text=» DATA ACTP ACTIVATION DRIVER«, t00=0x0014, t01=0x0134}
0x208c…20b2              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0014, t01=0x0158}
0x20b2…20d4              Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0014, t01=0x017e}
0x20d4…20f8              Head {h00=0x0020, h01=0x0050, text=» DATA RCTP RECOVERY ROUTINE «, t00=0x0015, t01=0x0010}
0x20f8…2102              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2102…2132              Head {h00=0x002c, h01=0x0050, text=»* VALID ORDERS WITH ACTIVATION ADDRESSES«, t00=0x0015, t01=0x003e}
0x2132…213c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006e}
0x213c…2150              Head {h00=0x0010, h01=0x0050, text=»TPTAB EQU * «, t00=0x0015, t01=0x0078}
0x2150…217a              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB0 DEVICE INDEX 0 TABLE «, t00=0x0015, t01=0x008c}
0x217a…21a4              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB1 DEVICE INDEX 1 TABLE «, t00=0x0015, t01=0x00b6}
0x21a4…21ce              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB2 DEVICE INDEX 2 TABLE «, t00=0x0015, t01=0x00e0}
0x21ce…21f8              Head {h00=0x0026, h01=0x0050, text=» DATA TPTAB3 DEVICE INDEX 3 TABLE «, t00=0x0015, t01=0x010a}
0x21f8…2202              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0134}
0x2202…2226              Head {h00=0x0020, h01=0x0050, text=»TPTAB0 EQU * DEVICE INDEX 0 «, t00=0x0015, t01=0x013e}
0x2226…223c              Head {h00=0x0012, h01=0x0050, text=» IFT JOURNL=1 «, t00=0x0015, t01=0x0162}
0x223c…2262              Head {h00=0x0022, h01=0x0050, text=» DATA 0 TEST STATUS (JOURNAL) «, t00=0x0015, t01=0x0178}
0x2262…2276              Head {h00=0x0010, h01=0x0050, text=» DATA TSTSTA«, t00=0x0016, t01=0x000e}
0x2276…2294              Head {h00=0x001a, h01=0x0050, text=» DATA 6 WRITE JOURNAL «, t00=0x0016, t01=0x0022}
0x2294…22a8              Head {h00=0x0010, h01=0x0050, text=» DATA WRTJRL«, t00=0x0016, t01=0x0040}
0x22a8…22be              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x0016, t01=0x0054}
0x22be…22e6              Head {h00=0x0024, h01=0x0050, text=» DATA /24 SET PRINTER PARAMETERS«, t00=0x0016, t01=0x006a}
0x22e6…22fa              Head {h00=0x0010, h01=0x0050, text=» DATA PRTPAR«, t00=0x0016, t01=0x0092}
0x22fa…2306              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00a6}
0x2306…2328              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0016, t01=0x00b2}
0x2328…2332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d4}
0x2332…2356              Head {h00=0x0020, h01=0x0050, text=»TPTAB1 EQU * DEVICE INDEX 1 «, t00=0x0016, t01=0x00de}
0x2356…237c              Head {h00=0x0022, h01=0x0050, text=» DATA 0 TEST STATUS (DOCUMENT)«, t00=0x0016, t01=0x0102}
0x237c…2390              Head {h00=0x0010, h01=0x0050, text=» DATA TSTSTA«, t00=0x0016, t01=0x0128}
0x2390…23ae              Head {h00=0x001a, h01=0x0050, text=» DATA 6 WRITE DOCUMENT«, t00=0x0016, t01=0x013c}
0x23ae…23c2              Head {h00=0x0010, h01=0x0050, text=» DATA WRTDOC«, t00=0x0016, t01=0x015a}
0x23c2…23e6              Head {h00=0x0020, h01=0x0050, text=» DATA /0B POSITION DOCUMENT «, t00=0x0016, t01=0x016e}
0x23e6…23fa (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA POSDOC«, t00=0x0017, t01=0x0004}
0x23fa…241c              Head {h00=0x001e, h01=0x0050, text=» DATA /38 RELEASE DOCUMENT«, t00=0x0017, t01=0x0018}
0x241c…2430              Head {h00=0x0010, h01=0x0050, text=» DATA RELDOC«, t00=0x0017, t01=0x003a}
0x2430…245e              Head {h00=0x002a, h01=0x0050, text=» DATA /37 TRANSFER DOCUMENT PARAMETERS«, t00=0x0017, t01=0x004e}
0x245e…2472              Head {h00=0x0010, h01=0x0050, text=» DATA TRFDOC«, t00=0x0017, t01=0x007c}
0x2472…2488              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x0017, t01=0x0090}
0x2488…24b0              Head {h00=0x0024, h01=0x0050, text=» DATA /24 SET PRINTER PARAMETERS«, t00=0x0017, t01=0x00a6}
0x24b0…24c4              Head {h00=0x0010, h01=0x0050, text=» DATA PRTPAR«, t00=0x0017, t01=0x00ce}
0x24c4…24ee              Head {h00=0x0026, h01=0x0050, text=» DATA /27 SET DOCUMENT PARAMETERS «, t00=0x0017, t01=0x00e2}
0x24ee…2502              Head {h00=0x0010, h01=0x0050, text=» DATA DOCPAR«, t00=0x0017, t01=0x010c}
0x2502…250e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0120}
0x250e…2530              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0017, t01=0x012c}
0x2530…253a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x253a…255e              Head {h00=0x0020, h01=0x0050, text=»TPTAB2 EQU * DEVICE INDEX 2 «, t00=0x0017, t01=0x0158}
0x255e…2580              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0017, t01=0x017c}
0x2580…258a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x000e}
0x258a…25ae              Head {h00=0x0020, h01=0x0050, text=»TPTAB3 EQU * DEVICE INDEX 3 «, t00=0x0018, t01=0x0018}
0x25ae…25d0              Head {h00=0x001e, h01=0x0050, text=» DATA /FFFF END OF ORDERS «, t00=0x0018, t01=0x003c}
0x25d0…25da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x005e}
0x25da…2606              Head {h00=0x0028, h01=0x0050, text=»* SYSTEM STANDARD PRINTER PARAMETERS«, t00=0x0018, t01=0x0068}
0x2606…2610              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0094}
0x2610…2642              Head {h00=0x002e, h01=0x0050, text=»STDPP PRIPAR  STANDARD PRINTER PARAMETERS «, t00=0x0018, t01=0x009e}
0x2642…2650              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d0}
0x2650…265a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265a…2664              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x2664…2678              Head {h00=0x0010, h01=0x0050, text=»*   A C T P «, t00=0x0018, t01=0x00f2}
0x2678…2682              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0106}
0x2682…26b8              Head {h00=0x0032, h01=0x0050, text=»*   THIS IS THE ACTIVATION PART OF THE DRIVER «, t00=0x0018, t01=0x0110}
0x26b8…26fa              Head {h00=0x003e, h01=0x0050, text=»*   CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR«, t00=0x0018, t01=0x0146}
0x26fa…2704              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0188}
0x2704…270e (25, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x270e…2718              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000e}
0x2718…273c              Head {h00=0x0020, h01=0x0050, text=»ACTP EQU * ACTIVATION ENTRY «, t00=0x0019, t01=0x0018}
0x273c…2746              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003c}
0x2746…2750              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0046}
0x2750…2780              Head {h00=0x002c, h01=0x0050, text=»*   GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT«, t00=0x0019, t01=0x0050}
0x2780…278a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0080}
0x278a…27b0              Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTOR,A6 GET DWT INDEX «, t00=0x0019, t01=0x008a}
0x27b0…27c6              Head {h00=0x0012, h01=0x0050, text=» ANK A2,3 MASK«, t00=0x0019, t01=0x00b0}
0x27c6…27de              Head {h00=0x0014, h01=0x0050, text=» SLL A2,6 SHIFT «, t00=0x0019, t01=0x00c6}
0x27de…280c              Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTDEV,A6 GET OLD DEVICE INDEX «, t00=0x0019, t01=0x00de}
0x280c…283e              Head {h00=0x002e, h01=0x0050, text=» ANKL A3,/FF1F RESET OLD INDEX AND LF IND «, t00=0x0019, t01=0x010c}
0x283e…2850              Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0019, t01=0x013e}
0x2850…2878              Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTDEV,A6 STORE NEW INDEX«, t00=0x0019, t01=0x0150}
0x2878…28a8              Head {h00=0x002c, h01=0x0050, text=»ACT005 LD A1,DWTDEV,A6 GET DEVICE INDEX «, t00=0x0019, t01=0x0178}
0x28a8…28bc              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x001a, t01=0x0018}
0x28bc…28ea              Head {h00=0x002a, h01=0x0050, text=» SRL A1,5 GET CORESPONDING ORDER TABLE«, t00=0x001a, t01=0x002c}
0x28ea…2902              Head {h00=0x0014, h01=0x0050, text=» LD A2,TPTAB,A1 «, t00=0x001a, t01=0x005a}
0x2902…291c              Head {h00=0x0016, h01=0x0050, text=»ACT010 LDR* A3,A2 «, t00=0x001a, t01=0x0072}
0x291c…2948              Head {h00=0x0028, h01=0x0050, text=» ABL(N) LENDER NO MORE VALID ORDERS «, t00=0x001a, t01=0x008c}
0x2948…296e              Head {h00=0x0022, h01=0x0050, text=» SUR A3,A7 TEST IF ORDER VALID«, t00=0x001a, t01=0x00b8}
0x296e…2996              Head {h00=0x0024, h01=0x0050, text=» RF(E) ACT020 VALID ORDER FOUND «, t00=0x001a, t01=0x00de}
0x2996…29b6              Head {h00=0x001c, h01=0x0050, text=» ADK A2,4 TRY NEXT ORDER«, t00=0x001a, t01=0x0106}
0x29b6…29c8              Head {h00=0x000e, h01=0x0050, text=» RB ACT010«, t00=0x001a, t01=0x0126}
0x29c8…29dc              Head {h00=0x0010, h01=0x0050, text=»ACT020 EQU *«, t00=0x001a, t01=0x0138}
0x29dc…29fc              Head {h00=0x001c, h01=0x0050, text=» ABI 2,A2 EXECUTE ORDER «, t00=0x001a, t01=0x014c}
0x29fc…2a0a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x016c}
0x2a0a…2a14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017a}
0x2a14…2a1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a1e…2a40              Head {h00=0x001e, h01=0x0050, text=»*   ORDER 00 : TEST STATUS«, t00=0x001a, t01=0x018e}
0x2a40…2a4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0020}
0x2a4a…2a54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002a}
0x2a54…2a68              Head {h00=0x0010, h01=0x0050, text=»TSTSTA EQU *«, t00=0x001b, t01=0x0034}
0x2a68…2a90              Head {h00=0x0024, h01=0x0050, text=» CM ECBCW,A8 CLEAR CONTROL WORD «, t00=0x001b, t01=0x0048}
0x2a90…2aae              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x001b, t01=0x0070}
0x2aae…2ad4              Head {h00=0x0022, h01=0x0050, text=» LDK A3,POTEST LOAD TEST ORDER«, t00=0x001b, t01=0x008e}
0x2ad4…2af2              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x001b, t01=0x00b4}
0x2af2…2b20              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x001b, t01=0x00d2}
0x2b20…2b30              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x001b, t01=0x0100}
0x2b30…2b56              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x001b, t01=0x0110}
0x2b56…2b7e              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/15 TEST PRINTER STATUS «, t00=0x001b, t01=0x0136}
0x2b7e…2ba8              Head {h00=0x0026, h01=0x0050, text=» RF(Z) TSST10 NO PERMANENT ERRORS «, t00=0x001b, t01=0x015e}
0x2ba8…2bbc              Head {h00=0x0010, h01=0x0050, text=»TSST05 EQU *«, t00=0x001b, t01=0x0188}
0x2bbc…2bda              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x001c, t01=0x000c}
0x2bda…2c06              Head {h00=0x0028, h01=0x0050, text=» LDK A3,PODSTA LOAD DIAGNOSTIC ORDER«, t00=0x001c, t01=0x002a}
0x2c06…2c24              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x001c, t01=0x0056}
0x2c24…2c52              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x001c, t01=0x0074}
0x2c52…2c86              Head {h00=0x0030, h01=0x0050, text=» SC A2,ECBCW+1,A8 SET UP DIAGN STATUS IN ECB«, t00=0x001c, t01=0x00a2}
0x2c86…2cae              Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 INDICATE NOT OPERABLE «, t00=0x001c, t01=0x00d6}
0x2cae…2cc0              Head {h00=0x000e, h01=0x0050, text=» RF TSST80«, t00=0x001c, t01=0x00fe}
0x2cc0…2cec              Head {h00=0x0028, h01=0x0050, text=»TSST10 LDR A1,A2 GET PRINTER STATUS «, t00=0x001c, t01=0x0110}
0x2cec…2d02              Head {h00=0x0012, h01=0x0050, text=» IFT JOURNL=1 «, t00=0x001c, t01=0x013c}
0x2d02…2d2c              Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTDEV,A6 GET DEVICE INDEX «, t00=0x001c, t01=0x0152}
0x2d2c…2d52              Head {h00=0x0022, h01=0x0050, text=» ANK A3,/C0 TEST DEVICE INDEX «, t00=0x001c, t01=0x017c}
0x2d52…2d7a              Head {h00=0x0024, h01=0x0050, text=» RF(NZ) TSST40 DEVICE INDEX > 0 «, t00=0x001d, t01=0x0012}
0x2d7a…2da2              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/22 TEST PRINTER STATUS «, t00=0x001d, t01=0x003a}
0x2da2…2dc2              Head {h00=0x001c, h01=0x0050, text=» RF(Z) TSST80 NO ERRORS «, t00=0x001d, t01=0x0062}
0x2dc2…2de8              Head {h00=0x0022, h01=0x0050, text=» ANK A1,2 TEST PRINTER STATUS «, t00=0x001d, t01=0x0082}
0x2de8…2e16              Head {h00=0x002a, h01=0x0050, text=» RB(NZ) TSST05 JOURNAL ERROR = NOT OP «, t00=0x001d, t01=0x00a8}
0x2e16…2e3a              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,ENDJ END OF JOURNAL«, t00=0x001d, t01=0x00d6}
0x2e3a…2e4c              Head {h00=0x000e, h01=0x0050, text=» RF TSST80«, t00=0x001d, t01=0x00fa}
0x2e4c…2e5a              Head {h00=0x000a, h01=0x0050, text=» XIF  «, t00=0x001d, t01=0x010c}
0x2e5a…2e88              Head {h00=0x002a, h01=0x0050, text=»TSST40 ANK A1,/40 TEST PRINTER STATUS «, t00=0x001d, t01=0x011a}
0x2e88…2ea8              Head {h00=0x001c, h01=0x0050, text=» RF(Z) TSST80 NO ERRORS «, t00=0x001d, t01=0x0148}
0x2ea8…2ecc              Head {h00=0x0020, h01=0x0050, text=» LDK A1,DOCOUT DOCUMENT OUT «, t00=0x001d, t01=0x0168}
0x2ecc…2ef2              Head {h00=0x0022, h01=0x0050, text=»TSST80 ABL LENDIS END REQUEST «, t00=0x001d, t01=0x018c}
0x2ef2…2f02              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x001e, t01=0x0022}
0x2f02…2f0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0032}
0x2f0c…2f16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f16…2f3a              Head {h00=0x0020, h01=0x0050, text=»*   ORDER 06 : WRITE JOURNAL«, t00=0x001e, t01=0x0046}
0x2f3a…2f44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006a}
0x2f44…2f4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0074}
0x2f4e…2f64              Head {h00=0x0012, h01=0x0050, text=» IFT JOURNL=1 «, t00=0x001e, t01=0x007e}
0x2f64…2f78              Head {h00=0x0010, h01=0x0050, text=»WRTJRL EQU *«, t00=0x001e, t01=0x0094}
0x2f78…2f9c              Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTDEV,A6 GET STATUS «, t00=0x001e, t01=0x00a8}
0x2f9c…2fc2              Head {h00=0x0022, h01=0x0050, text=» ANK A1,/20 TEST LF INDICATOR «, t00=0x001e, t01=0x00cc}
0x2fc2…2fe4              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) WRJL10 LF EXECUTED«, t00=0x001e, t01=0x00f2}
0x2fe4…3010              Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001e, t01=0x0114}
0x3010…3038              Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 TEST REQUESTED LENGTH «, t00=0x001e, t01=0x0140}
0x3038…305c              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRJL80 REQUEST ERROR «, t00=0x001e, t01=0x0168}
0x305c…308c              Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBA,A8 GET CONTROL CHARACTER =2«, t00=0x001e, t01=0x018c}
0x308c…30a4              Head {h00=0x0014, h01=0x0050, text=» LC A2,1,A2 * =2«, t00=0x001f, t01=0x002c}
0x30a4…30b8              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001f, t01=0x0044}
0x30b8…30da              Head {h00=0x001e, h01=0x0050, text=» SUK A2,/2B TEST CTRL CHAR«, t00=0x001f, t01=0x0058}
0x30da…30fe              Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRJL10 CTRL CHAR =/2B«, t00=0x001f, t01=0x007a}
0x30fe…312a              Head {h00=0x0028, h01=0x0050, text=» LDK A4,2 SET UP 2 LF (CTRL CH =/30)«, t00=0x001f, t01=0x009e}
0x312a…314a              Head {h00=0x001c, h01=0x0050, text=» SUK A2,5 TEST CTRL CHAR«, t00=0x001f, t01=0x00ca}
0x314a…316e              Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRJL05 CTRL CHAR =/30«, t00=0x001f, t01=0x00ea}
0x316e…319e              Head {h00=0x002c, h01=0x0050, text=» LDK A4,1 SET UP 1 LF (CTRL CH NOT DEF) «, t00=0x001f, t01=0x010e}
0x319e…31be              Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 TEST CTRL CHAR«, t00=0x001f, t01=0x013e}
0x31be…31e8              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRJL05 CTRL CHAR NOT =/31 «, t00=0x001f, t01=0x015e}
0x31e8…3214              Head {h00=0x0028, h01=0x0050, text=» LDK A4,3 SET UP 3 LF (CTRL CH =/31)«, t00=0x001f, t01=0x0188}
0x3214…3228              Head {h00=0x0010, h01=0x0050, text=»WRJL05 EQU *«, t00=0x0020, t01=0x0024}
0x3228…3246              Head {h00=0x001a, h01=0x0050, text=» LDK A2,4 BLOCK LENGTH«, t00=0x0020, t01=0x0038}
0x3246…3276              Head {h00=0x002c, h01=0x0050, text=» LDK A3,POWJRL LOAD WRITE JOURNAL ORDER «, t00=0x0020, t01=0x0056}
0x3276…3294              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0020, t01=0x0086}
0x3294…32be              Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 RELOAD NO OF LINE FEED «, t00=0x0020, t01=0x00a4}
0x32be…32da              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0020, t01=0x00ce}
0x32da…3308              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0020, t01=0x00ea}
0x3308…3318              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x0020, t01=0x0118}
0x3318…333e              Head {h00=0x0022, h01=0x0050, text=» ANK A2,7 TEST PRINTER STATUS «, t00=0x0020, t01=0x0128}
0x333e…336c              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) WRJL65 JOURNAL LINE FEED ERROR«, t00=0x0020, t01=0x014e}
0x336c…339a              Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+PPJ,A6 CLEAR PRINT POSITION«, t00=0x0020, t01=0x017c}
0x339a…33c0              Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 SET UP LF EXECUTED«, t00=0x0021, t01=0x001a}
0x33c0…33e8              Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTDEV,A6 IND IN STATUS «, t00=0x0021, t01=0x0040}
0x33e8…33fc              Head {h00=0x0010, h01=0x0050, text=»WRJL10 EQU *«, t00=0x0021, t01=0x0068}
0x33fc…3414              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0021, t01=0x007c}
0x3414…3432              Head {h00=0x001a, h01=0x0050, text=» ADK A2,2 BLOCK LENGTH«, t00=0x0021, t01=0x0094}
0x3432…3464              Head {h00=0x002e, h01=0x0050, text=» LC A1,DWTDEV+APJ,A6 GET ACTUAL PRINT POS «, t00=0x0021, t01=0x00b2}
0x3464…349c              Head {h00=0x0034, h01=0x0050, text=» SC A1,DWTDEV+RPJ,A6 SET UP START REQ PRINT POS «, t00=0x0021, t01=0x00e4}
0x349c…34c4              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 SET UP BUFFER POINTER «, t00=0x0021, t01=0x011c}
0x34c4…34f8              Head {h00=0x0030, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER FROM ECB BUFFER«, t00=0x0021, t01=0x0144}
0x34f8…351c              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 TEST IF NO BUFFER«, t00=0x0021, t01=0x0178}
0x351c…3544              Head {h00=0x0024, h01=0x0050, text=» RF(Z) WRJL60 NO BUFFER TO PRINT«, t00=0x0022, t01=0x000c}
0x3544…3574              Head {h00=0x002c, h01=0x0050, text=» LDK A3,POWJRL LOAD WRITE JOURNAL ORDER «, t00=0x0022, t01=0x0034}
0x3574…3592              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0022, t01=0x0064}
0x3592…35b8              Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 LOAD ZERO LINE FEED «, t00=0x0022, t01=0x0082}
0x35b8…35d4              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0022, t01=0x00a8}
0x35d4…360a              Head {h00=0x0032, h01=0x0050, text=» LDKL A4,/100 SET UP NORMAL CHAR COUNTER IN A4«, t00=0x0022, t01=0x00c4}
0x360a…3632              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 SET UP BUFFER POINTER «, t00=0x0022, t01=0x00fa}
0x3632…366c              Head {h00=0x0036, h01=0x0050, text=»WRJL20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER«, t00=0x0022, t01=0x0122}
0x366c…367e              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0022, t01=0x015c}
0x367e…36a4              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRJL50 BUFFER FINISHED «, t00=0x0022, t01=0x016e}
0x36a4…36c6 (35, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 GET CHAR IN A1 «, t00=0x0023, t01=0x0004}
0x36c6…36d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0026}
0x36d0…3706              Head {h00=0x0032, h01=0x0050, text=»*   EXAMINE CHAR AND UPDATE PRINT POS AND SEND«, t00=0x0023, t01=0x0030}
0x3706…3730              Head {h00=0x0026, h01=0x0050, text=»*   DEPENDING ON TYPE OF CHARACTER«, t00=0x0023, t01=0x0066}
0x3730…373a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0090}
0x373a…374e              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x0023, t01=0x009a}
0x374e…376e              Head {h00=0x001c, h01=0x0050, text=» RB(N) WRJL20 CHAR </10 «, t00=0x0023, t01=0x00ae}
0x376e…378e              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRJL30 CHAR = /10«, t00=0x0023, t01=0x00ce}
0x378e…37a0              Head {h00=0x000e, h01=0x0050, text=» SUK A1,9 «, t00=0x0023, t01=0x00ee}
0x37a0…37ce              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) WRJL25 CHAR NOT /19 (=EXPAND) «, t00=0x0023, t01=0x0100}
0x37ce…37fe              Head {h00=0x002c, h01=0x0050, text=» XRKL A4,/300 SWITCH CHAR COUNTER IN A4 «, t00=0x0023, t01=0x012e}
0x37fe…3822              Head {h00=0x0020, h01=0x0050, text=» RF WRJL40 SEND EXPAND CHAR «, t00=0x0023, t01=0x015e}
0x3822…383a              Head {h00=0x0014, h01=0x0050, text=»WRJL25 SUK A1,7 «, t00=0x0023, t01=0x0182}
0x383a…385e              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRJL40 CHAR </20 SEND«, t00=0x0024, t01=0x000a}
0x385e…3872              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/5F «, t00=0x0024, t01=0x002e}
0x3872…3890              Head {h00=0x001a, h01=0x0050, text=» RB(Z) WRJL20 CHAR=/7F«, t00=0x0024, t01=0x0042}
0x3890…38b4              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRJL30 CHAR = NORMAL «, t00=0x0024, t01=0x0060}
0x38b4…38c8              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2F «, t00=0x0024, t01=0x0084}
0x38c8…38e8              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRJL28 CHAR =/AE «, t00=0x0024, t01=0x0098}
0x38e8…3902              Head {h00=0x0016, h01=0x0050, text=» IFT GREEK=1 * =4 «, t00=0x0024, t01=0x00b8}
0x3902…393a              Head {h00=0x0034, h01=0x0050, text=» CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4«, t00=0x0024, t01=0x00d2}
0x393a…3952              Head {h00=0x0014, h01=0x0050, text=» LDR A1,A1 * =4 «, t00=0x0024, t01=0x010a}
0x3952…3980              Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRJL30 SUCCESSFUL CONVERSION =4«, t00=0x0024, t01=0x0122}
0x3980…3992              Head {h00=0x000e, h01=0x0050, text=» XIF  * =4«, t00=0x0024, t01=0x0150}
0x3992…39ac              Head {h00=0x0016, h01=0x0050, text=» IFT JOURNL=1 * =4«, t00=0x0024, t01=0x0162}
0x39ac…39d2              Head {h00=0x0022, h01=0x0050, text=» LDK A1,4 IND CODE CHECK ERROR«, t00=0x0024, t01=0x017c}
0x39d2…39fa              Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A8 IN RETURN CODE «, t00=0x0025, t01=0x0012}
0x39fa…3a0c              Head {h00=0x000e, h01=0x0050, text=» RB WRJL20«, t00=0x0025, t01=0x003a}
0x3a0c…3a26              Head {h00=0x0016, h01=0x0050, text=»WRJL28 LDK A2,/0E «, t00=0x0025, t01=0x004c}
0x3a26…3a38              Head {h00=0x000e, h01=0x0050, text=» RF WRJL40«, t00=0x0025, t01=0x0066}
0x3a38…3a40              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0078}
0x3a40…3a62              Head {h00=0x001e, h01=0x0050, text=»*   UPDATE PRINT POSITION «, t00=0x0025, t01=0x0080}
0x3a62…3a6a              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00a2}
0x3a6a…3aaa              Head {h00=0x003c, h01=0x0050, text=»WRJL30 ADS A4,DWTDEV+RPJ,A6 ADD 1 OR 2 TO REQ PRINT POS «, t00=0x0025, t01=0x00aa}
0x3aaa…3ab2              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00ea}
0x3ab2…3ad6              Head {h00=0x0020, h01=0x0050, text=»*   SEND CHARACTER TO DEVICE«, t00=0x0025, t01=0x00f2}
0x3ad6…3ade              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0116}
0x3ade…3b08              Head {h00=0x0026, h01=0x0050, text=»WRJL40 CF A5,OUTPUT SEND CHARACTER«, t00=0x0025, t01=0x011e}
0x3b08…3b2a              Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) ERTP JMP IF ERROR«, t00=0x0025, t01=0x0148}
0x3b2a…3b50              Head {h00=0x0022, h01=0x0050, text=» RB WRJL20 GET NEXT CHARACTER «, t00=0x0025, t01=0x016a}
0x3b50…3b58              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0190}
0x3b58…3b6c              Head {h00=0x0010, h01=0x0050, text=»*   SEND ETX«, t00=0x0026, t01=0x0008}
0x3b6c…3b74              Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x001c}
0x3b74…3ba8              Head {h00=0x0030, h01=0x0050, text=»WRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0026, t01=0x0024}
0x3ba8…3bb8              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x0026, t01=0x0058}
0x3bb8…3bde              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x0026, t01=0x0068}
0x3bde…3c06              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/27 TEST PRINTER STATUS «, t00=0x0026, t01=0x008e}
0x3c06…3c26              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRJL60 NO ERRORS «, t00=0x0026, t01=0x00b6}
0x3c26…3c4c              Head {h00=0x0022, h01=0x0050, text=» ANK A1,3 TEST PRINTER STATUS «, t00=0x0026, t01=0x00d6}
0x3c4c…3c70              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRJL65 NOT OPERABLE «, t00=0x0026, t01=0x00fc}
0x3c70…3c96              Head {h00=0x0022, h01=0x0050, text=» ANK A2,4 TEST PRINTER STATUS «, t00=0x0026, t01=0x0120}
0x3c96…3cba              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRJL80 REQUEST ERROR«, t00=0x0026, t01=0x0146}
0x3cba…3cde              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,ENDJ END OF JOURNAL«, t00=0x0026, t01=0x016a}
0x3cde…3d1e              Head {h00=0x003c, h01=0x0050, text=»WRJL60 LC A3,DWTDEV+RPJ,A6 GET REQUESTED PRINT POSITION «, t00=0x0026, t01=0x018e}
0x3d1e…3d58              Head {h00=0x0036, h01=0x0050, text=» SC A3,DWTDEV+APJ,A6 SET UP ACTUAL PRINT POSITION «, t00=0x0027, t01=0x003e}
0x3d58…3d6a              Head {h00=0x000e, h01=0x0050, text=» RF WRJL70«, t00=0x0027, t01=0x0078}
0x3d6a…3d98              Head {h00=0x002a, h01=0x0050, text=»WRJL65 LDK A1,1 INDICATE NOT OPERABLE «, t00=0x0027, t01=0x008a}
0x3d98…3dbe              Head {h00=0x0022, h01=0x0050, text=»WRJL70 ABL LENDIS END REQUEST «, t00=0x0027, t01=0x00b8}
0x3dbe…3df6              Head {h00=0x0034, h01=0x0050, text=»WRJL80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0027, t01=0x00de}
0x3df6…3e04              Head {h00=0x000a, h01=0x0050, text=» XIF  «, t00=0x0027, t01=0x0116}
0x3e04…3e14              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0027, t01=0x0124}
0x3e14…3e1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0134}
0x3e1e…3e28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x013e}
0x3e28…3e4e              Head {h00=0x0022, h01=0x0050, text=»*   ORDER 06 : WRITE DOCUMENT «, t00=0x0027, t01=0x0148}
0x3e4e…3e58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016e}
0x3e58…3e62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0178}
0x3e62…3e76              Head {h00=0x0010, h01=0x0050, text=»WRTDOC EQU *«, t00=0x0027, t01=0x0182}
0x3e76…3ea2              Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTDEV+ALN,A6 GET ACTUAL LINE«, t00=0x0028, t01=0x0008}
0x3ea2…3eb6              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0028, t01=0x0034}
0x3eb6…3ee2              Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0028, t01=0x0048}
0x3ee2…3f0a              Head {h00=0x0024, h01=0x0050, text=» SUK A1,2 TEST REQUESTED LENGTH «, t00=0x0028, t01=0x0074}
0x3f0a…3f2e              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRDO80 REQUEST ERROR «, t00=0x0028, t01=0x009c}
0x3f2e…3f5e              Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBA,A8 GET CONTROL CHARACTER =2«, t00=0x0028, t01=0x00c0}
0x3f5e…3f76              Head {h00=0x0014, h01=0x0050, text=» LC A2,1,A2 * =2«, t00=0x0028, t01=0x00f0}
0x3f76…3f8a              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0028, t01=0x0108}
0x3f8a…3fc0              Head {h00=0x0032, h01=0x0050, text=» LC A3,DWTDEV+APD,A6 PREPARE NEW REQ PRINT POS«, t00=0x0028, t01=0x011c}
0x3fc0…3fd4              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/2B «, t00=0x0028, t01=0x0152}
0x3fd4…3ffa              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO07 CTRL CHAR = /2B «, t00=0x0028, t01=0x0166}
0x3ffa…4026              Head {h00=0x0028, h01=0x0050, text=» LDK A3,0 PREPARE NEW REQ PRINT POS «, t00=0x0028, t01=0x018c}
0x4026…4054              Head {h00=0x002a, h01=0x0050, text=» ADK A4,2 SET REQ LINE = ACT LINE + 2 «, t00=0x0029, t01=0x0028}
0x4054…4066              Head {h00=0x000e, h01=0x0050, text=» SUK A2,5 «, t00=0x0029, t01=0x0056}
0x4066…408c              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO05 CTRL CHAR = /30 «, t00=0x0029, t01=0x0068}
0x408c…40ba              Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 SET REQ LINE = ACT LINE + 1 «, t00=0x0029, t01=0x008e}
0x40ba…40cc              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0029, t01=0x00bc}
0x40cc…40f6              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRDO05 CTRL CHAR NOT = /31«, t00=0x0029, t01=0x00ce}
0x40f6…4118              Head {h00=0x001e, h01=0x0050, text=» LDK A4,1 SET REQ LINE = 1«, t00=0x0029, t01=0x00f8}
0x4118…4150              Head {h00=0x0034, h01=0x0050, text=»WRDO05 LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3«, t00=0x0029, t01=0x011a}
0x4150…4168              Head {h00=0x0014, h01=0x0050, text=» CC A4,2,A1 * =3«, t00=0x0029, t01=0x0152}
0x4168…4192              Head {h00=0x0026, h01=0x0050, text=» RF(G) WRDO80 REQ LINE > MAX LINES«, t00=0x0029, t01=0x016a}
0x4192…41d0 (42, 0, 400) Head {h00=0x003a, h01=0x0050, text=»WRDO07 SC A3,DWTDEV+RPD,A6 SET UP START REQ PRINT POS «, t00=0x002a, t01=0x0004}
0x41d0…4200              Head {h00=0x002c, h01=0x0050, text=» SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO «, t00=0x002a, t01=0x0042}
0x4200…4212              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x002a, t01=0x0072}
0x4212…4236              Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRDO80 REQ LINE=ZERO «, t00=0x002a, t01=0x0084}
0x4236…424a              Head {h00=0x0010, h01=0x0050, text=»WRDO10 EQU *«, t00=0x002a, t01=0x00a8}
0x424a…4262              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x002a, t01=0x00bc}
0x4262…4280              Head {h00=0x001a, h01=0x0050, text=» ADK A2,2 BLOCK LENGTH«, t00=0x002a, t01=0x00d4}
0x4280…42ac              Head {h00=0x0028, h01=0x0050, text=» LDK A3,POWDOC SET UP PRINTER ORDER «, t00=0x002a, t01=0x00f2}
0x42ac…42ca              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x002a, t01=0x011e}
0x42ca…42ec              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 GET REQ LINE NO«, t00=0x002a, t01=0x013c}
0x42ec…4308              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x002a, t01=0x015e}
0x4308…433c              Head {h00=0x0030, h01=0x0050, text=» LDKL A4,/100 SET UP NORMAL CHARACTER COUNT «, t00=0x002a, t01=0x017a}
0x433c…4364              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 SET UP BUFFER POINTER «, t00=0x002b, t01=0x001e}
0x4364…439e              Head {h00=0x0036, h01=0x0050, text=»WRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER«, t00=0x002b, t01=0x0046}
0x439e…43b0              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002b, t01=0x0080}
0x43b0…43d6              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO50 BUFFER FINISHED «, t00=0x002b, t01=0x0092}
0x43d6…43f6              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A2 GET CHARACTER«, t00=0x002b, t01=0x00b8}
0x43f6…43fe              Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00d8}
0x43fe…443a              Head {h00=0x0038, h01=0x0050, text=»*   EXAMINE CHARACTER AND UPDATE PRINT POS AND SEND «, t00=0x002b, t01=0x00e0}
0x443a…4464              Head {h00=0x0026, h01=0x0050, text=»*   DEPENDING ON TYPE OF CHARACTER«, t00=0x002b, t01=0x011c}
0x4464…446c              Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0146}
0x446c…4480              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x002b, t01=0x014e}
0x4480…44a0              Head {h00=0x001c, h01=0x0050, text=» RB(N) WRDO20 CHAR < /10«, t00=0x002b, t01=0x0162}
0x44a0…44c6              Head {h00=0x0022, h01=0x0050, text=» RF(Z) WRDO30 CHAR = /10 SEND «, t00=0x002b, t01=0x0182}
0x44c6…44de              Head {h00=0x0014, h01=0x0050, text=»WRDO22 SUK A1,9 «, t00=0x002c, t01=0x0018}
0x44de…450c              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) WRDO27 CHAR NOT /19 (=EXPAND) «, t00=0x002c, t01=0x0030}
0x450c…453c              Head {h00=0x002c, h01=0x0050, text=» XRKL A4,/300 SWITCH CHAR COUNTER IN A4 «, t00=0x002c, t01=0x005e}
0x453c…4560              Head {h00=0x0020, h01=0x0050, text=» RF WRDO40 SEND EXPAND CHAR «, t00=0x002c, t01=0x008e}
0x4560…4578              Head {h00=0x0014, h01=0x0050, text=»WRDO27 SUK A1,7 «, t00=0x002c, t01=0x00b2}
0x4578…459e              Head {h00=0x0022, h01=0x0050, text=» RF(N) WRDO40 CHAR < /20 SEND «, t00=0x002c, t01=0x00ca}
0x459e…45b2              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/5F «, t00=0x002c, t01=0x00f0}
0x45b2…45d6              Head {h00=0x0020, h01=0x0050, text=» RF(N) WRDO30 CHAR = NORMAL «, t00=0x002c, t01=0x0104}
0x45d6…45f6              Head {h00=0x001c, h01=0x0050, text=» RB(Z) WRDO20 CHAR = /7F«, t00=0x002c, t01=0x0128}
0x45f6…460a              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2F «, t00=0x002c, t01=0x0148}
0x460a…462a              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRDO28 CHAR = /AE«, t00=0x002c, t01=0x015c}
0x462a…4644              Head {h00=0x0016, h01=0x0050, text=» IFT GREEK=1 * =4 «, t00=0x002c, t01=0x017c}
0x4644…467c              Head {h00=0x0034, h01=0x0050, text=» CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4«, t00=0x002d, t01=0x0008}
0x467c…4694              Head {h00=0x0014, h01=0x0050, text=» LDR A1,A1 * =4 «, t00=0x002d, t01=0x0040}
0x4694…46c2              Head {h00=0x002a, h01=0x0050, text=» RF(Z) WRDO30 SUCCESSFUL CONVERSION =4«, t00=0x002d, t01=0x0058}
0x46c2…46d4              Head {h00=0x000e, h01=0x0050, text=» XIF  * =4«, t00=0x002d, t01=0x0086}
0x46d4…4700              Head {h00=0x0028, h01=0x0050, text=» LDK A1,4 INDICATE CODE CHECK ERROR «, t00=0x002d, t01=0x0098}
0x4700…4728              Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A8 IN RETURN CODE «, t00=0x002d, t01=0x00c4}
0x4728…473a              Head {h00=0x000e, h01=0x0050, text=» RB WRDO20«, t00=0x002d, t01=0x00ec}
0x473a…4764              Head {h00=0x0026, h01=0x0050, text=»WRDO28 LDK A2,SPEC SET UP CHAR /0E«, t00=0x002d, t01=0x00fe}
0x4764…4776              Head {h00=0x000e, h01=0x0050, text=» RF WRDO40«, t00=0x002d, t01=0x0128}
0x4776…477e              Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x013a}
0x477e…479a              Head {h00=0x0018, h01=0x0050, text=»*   UPDATE PRINT POS«, t00=0x002d, t01=0x0142}
0x479a…47a2              Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x015e}
0x47a2…47e2              Head {h00=0x003c, h01=0x0050, text=»WRDO30 ADS A4,DWTDEV+RPD,A6 ADD 1 OR 2 TO REQ PRINT POS «, t00=0x002d, t01=0x0166}
0x47e2…47ea              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x0016}
0x47ea…4810              Head {h00=0x0022, h01=0x0050, text=»*   SEND CHARACTER TO PRINTER «, t00=0x002e, t01=0x001e}
0x4810…4818              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x0044}
0x4818…4842              Head {h00=0x0026, h01=0x0050, text=»WRDO40 CF A5,OUTPUT SEND CHARACTER«, t00=0x002e, t01=0x004c}
0x4842…4864              Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) ERTP JMP IF ERROR«, t00=0x002e, t01=0x0076}
0x4864…4884              Head {h00=0x001c, h01=0x0050, text=» RB WRDO20 GET NEXT CHAR«, t00=0x002e, t01=0x0098}
0x4884…488c              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00b8}
0x488c…48a0              Head {h00=0x0010, h01=0x0050, text=»*   SEND ETX«, t00=0x002e, t01=0x00c0}
0x48a0…48a8              Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00d4}
0x48a8…48dc              Head {h00=0x0030, h01=0x0050, text=»WRDO50 CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x002e, t01=0x00dc}
0x48dc…48ec              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x002e, t01=0x0110}
0x48ec…4912              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x002e, t01=0x0120}
0x4912…493a              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/45 TEST PRINTER STATUS «, t00=0x002e, t01=0x0146}
0x493a…495a              Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRDO60 NO ERRORS «, t00=0x002e, t01=0x016e}
0x495a…4980              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x002e, t01=0x018e}
0x4980…49a4              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRDO70 NOT OPERABLE «, t00=0x002f, t01=0x0024}
0x49a4…49ca              Head {h00=0x0022, h01=0x0050, text=» ANK A2,4 TEST PRINTER STATUS «, t00=0x002f, t01=0x0048}
0x49ca…49ee              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) WRDO80 REQUEST ERROR«, t00=0x002f, t01=0x006e}
0x49ee…4a1a              Head {h00=0x0028, h01=0x0050, text=» LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3«, t00=0x002f, t01=0x0092}
0x4a1a…4a46              Head {h00=0x0028, h01=0x0050, text=» ANK A1,/78 TEST DOC PAR (TIME OUT) «, t00=0x002f, t01=0x00be}
0x4a46…4a7a              Head {h00=0x0030, h01=0x0050, text=» RB(NZ) WRTDOC NO TIME OUT USED,REPEAT ORDER«, t00=0x002f, t01=0x00ea}
0x4a7a…4a9e              Head {h00=0x0020, h01=0x0050, text=» LDK A1,DOCOUT DOCUMENT OUT «, t00=0x002f, t01=0x011e}
0x4a9e…4ac2              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET LINE COUNTER«, t00=0x002f, t01=0x0142}
0x4ac2…4af0              Head {h00=0x002a, h01=0x0050, text=» LDK A4,0 RESET PRINT POSITION COUNTER«, t00=0x002f, t01=0x0166}
0x4af0…4b02 (48, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF WRDO65«, t00=0x0030, t01=0x0004}
0x4b02…4b3e              Head {h00=0x0038, h01=0x0050, text=»WRDO60 LC A3,DWTDEV+RLN,A6 GET REQUESTED LINE NUMBER«, t00=0x0030, t01=0x0016}
0x4b3e…4b78              Head {h00=0x0036, h01=0x0050, text=» LC A4,DWTDEV+RPD,A6 GET REQUESTED PRINT POSITION «, t00=0x0030, t01=0x0052}
0x4b78…4bb4              Head {h00=0x0038, h01=0x0050, text=»WRDO65 SC A3,DWTDEV+ALN,A6 SET UP ACTUAL LINE NUMBER«, t00=0x0030, t01=0x008c}
0x4bb4…4bee              Head {h00=0x0036, h01=0x0050, text=» SC A4,DWTDEV+APD,A6 SET UP ACTUAL PRINT POSITION «, t00=0x0030, t01=0x00c8}
0x4bee…4c02              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0030, t01=0x0102}
0x4c02…4c3c              Head {h00=0x0036, h01=0x0050, text=» ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD«, t00=0x0030, t01=0x0116}
0x4c3c…4c62              Head {h00=0x0022, h01=0x0050, text=»WRDO70 ABL LENDIS END REQUEST «, t00=0x0030, t01=0x0150}
0x4c62…4c9c              Head {h00=0x0036, h01=0x0050, text=»WRDO80 LC A3,DWTDEV+APD,A6 GET ACTUAL LINE NUMBER «, t00=0x0030, t01=0x0176}
0x4c9c…4cb0              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0031, t01=0x0020}
0x4cb0…4cea              Head {h00=0x0036, h01=0x0050, text=» ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD«, t00=0x0031, t01=0x0034}
0x4cea…4d1c              Head {h00=0x002e, h01=0x0050, text=» ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0031, t01=0x006e}
0x4d1c…4d2a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00a0}
0x4d2a…4d34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ae}
0x4d34…4d3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b8}
0x4d3e…4d66              Head {h00=0x0024, h01=0x0050, text=»*   ORDER 0B : POSITION DOCUMENT«, t00=0x0031, t01=0x00c2}
0x4d66…4d9a              Head {h00=0x0030, h01=0x0050, text=»*   CONTROL WORD CONTAINS REQUESTED LINE NO «, t00=0x0031, t01=0x00ea}
0x4d9a…4da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011e}
0x4da4…4dae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0128}
0x4dae…4dc2              Head {h00=0x0010, h01=0x0050, text=»POSDOC EQU *«, t00=0x0031, t01=0x0132}
0x4dc2…4dea              Head {h00=0x0024, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQ LINE NO «, t00=0x0031, t01=0x0146}
0x4dea…4e0c              Head {h00=0x001e, h01=0x0050, text=» RF(Z) PDOC80 REQ LINE = 0«, t00=0x0031, t01=0x016e}
0x4e0c…4e3e              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3«, t00=0x0031, t01=0x0190}
0x4e3e…4e56              Head {h00=0x0014, h01=0x0050, text=» CC A4,2,A1 * =3«, t00=0x0032, t01=0x0032}
0x4e56…4e80              Head {h00=0x0026, h01=0x0050, text=» RF(G) PDOC80 REQ LINE > MAX LINE «, t00=0x0032, t01=0x004a}
0x4e80…4eb0              Head {h00=0x002c, h01=0x0050, text=» SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO «, t00=0x0032, t01=0x0074}
0x4eb0…4ece              Head {h00=0x001a, h01=0x0050, text=» LDK A2,4 BLOCK LENGTH«, t00=0x0032, t01=0x00a4}
0x4ece…4f0c              Head {h00=0x003a, h01=0x0050, text=» LDK A3,POPDOC SET UP PRINTER POSITION DOCUMENT ORDER «, t00=0x0032, t01=0x00c2}
0x4f0c…4f2a              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0032, t01=0x0100}
0x4f2a…4f4c              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 SET UP LINE NO «, t00=0x0032, t01=0x011e}
0x4f4c…4f68              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0032, t01=0x0140}
0x4f68…4f96              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0032, t01=0x015c}
0x4f96…4fbc              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x0032, t01=0x018a}
0x4fbc…4fe4              Head {h00=0x0024, h01=0x0050, text=» ANK A1,/45 TEST PRINTER STATUS «, t00=0x0033, t01=0x0020}
0x4fe4…5004              Head {h00=0x001c, h01=0x0050, text=» RF(Z) PDOC10 NO ERRORS «, t00=0x0033, t01=0x0048}
0x5004…502a              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x0033, t01=0x0068}
0x502a…504e              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) PDOC70 NOT OPERABLE «, t00=0x0033, t01=0x008e}
0x504e…5074              Head {h00=0x0022, h01=0x0050, text=» ANK A2,4 TEST PRINTER STATUS «, t00=0x0033, t01=0x00b2}
0x5074…5098              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) PDOC80 REQUEST ERROR«, t00=0x0033, t01=0x00d8}
0x5098…50c4              Head {h00=0x0028, h01=0x0050, text=» LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3«, t00=0x0033, t01=0x00fc}
0x50c4…50f0              Head {h00=0x0028, h01=0x0050, text=» ANK A1,/78 TEST DOC PAR (TIME OUT) «, t00=0x0033, t01=0x0128}
0x50f0…5124              Head {h00=0x0030, h01=0x0050, text=» RB(Z) POSDOC NO TIME OUT USED, REPEAT ORDER«, t00=0x0033, t01=0x0154}
0x5124…5150              Head {h00=0x0028, h01=0x0050, text=» LDK A1,DOCOUT INDICATE DOCUMENT OUT«, t00=0x0033, t01=0x0188}
0x5150…5174              Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET LINE COUNTER«, t00=0x0034, t01=0x0024}
0x5174…51ae              Head {h00=0x0036, h01=0x0050, text=»PDOC10 SC A4,DWTDEV+ALN,A6  PDATE OF LINE COUNTER «, t00=0x0034, t01=0x0048}
0x51ae…51e4              Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTER«, t00=0x0034, t01=0x0082}
0x51e4…520a              Head {h00=0x0022, h01=0x0050, text=»PDOC70 ABL LENDIS END REQUEST «, t00=0x0034, t01=0x00b8}
0x520a…5242              Head {h00=0x0034, h01=0x0050, text=»PDOC80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0034, t01=0x00de}
0x5242…5250              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0116}
0x5250…5282              Head {h00=0x002e, h01=0x0050, text=»* CONVERSION ROUTINE FOR GREEK CHARACTERS «, t00=0x0034, t01=0x0124}
0x5282…52c0              Head {h00=0x003a, h01=0x0050, text=»* CHARACTER CODES /B0-/BP IN REG A2 WILL BE CONVERTED «, t00=0x0034, t01=0x0156}
0x52c0…52f4 (53, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* TO /41-/4A. THE SPECIAL CHARACTER /1B WILL«, t00=0x0035, t01=0x0004}
0x52f4…5328              Head {h00=0x0030, h01=0x0050, text=»* BE SENT TO THE PRINTER BEFORE RETURN FROM «, t00=0x0035, t01=0x0038}
0x5328…536a              Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE. REG A1 WILL BE SET TO ZERO IF SUCCESSFUL. «, t00=0x0035, t01=0x006c}
0x536a…5384              Head {h00=0x0016, h01=0x0050, text=» IFT GREEK=1 * =4 «, t00=0x0035, t01=0x00ae}
0x5384…539e              Head {h00=0x0016, h01=0x0050, text=»GRECON EQU * * =4 «, t00=0x0035, t01=0x00c8}
0x539e…53b4              Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 * =4«, t00=0x0035, t01=0x00e2}
0x53b4…53d8              Head {h00=0x0020, h01=0x0050, text=» RF(N) GRCO80 CHAR < /B0 =4 «, t00=0x0035, t01=0x00f8}
0x53d8…53f0              Head {h00=0x0014, h01=0x0050, text=» SUK A1,/A * =4 «, t00=0x0035, t01=0x011c}
0x53f0…5414              Head {h00=0x0020, h01=0x0050, text=» RF(P) GRCO80 CHAR > /B9 =4 «, t00=0x0035, t01=0x0134}
0x5414…542c              Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF * =4«, t00=0x0035, t01=0x0158}
0x542c…5450              Head {h00=0x0020, h01=0x0050, text=» ORR A4,A2 SAVE CHAR TEMP =4«, t00=0x0035, t01=0x0170}
0x5450…547a (54, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDK A2,/1B SET UP SPECIAL CHAR =4«, t00=0x0036, t01=0x0004}
0x547a…54a2              Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER =4 «, t00=0x0036, t01=0x002e}
0x54a2…54c4              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 RESTORE CHAR =4«, t00=0x0036, t01=0x0056}
0x54c4…54dc              Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF * =4«, t00=0x0036, t01=0x0078}
0x54dc…5510              Head {h00=0x0030, h01=0x0050, text=» SUK A2,/6F CONVERT CHAR (/B0 = /41 ETC.) =4«, t00=0x0036, t01=0x0090}
0x5510…553a              Head {h00=0x0026, h01=0x0050, text=» ANKL A4,/FF00 CLEAR USED BITS =4 «, t00=0x0036, t01=0x00c4}
0x553a…556e              Head {h00=0x0030, h01=0x0050, text=» LDK A1,0 INDICATE SUCCESSFUL CONVERSION =4 «, t00=0x0036, t01=0x00ee}
0x556e…5588              Head {h00=0x0016, h01=0x0050, text=»GRCO80 RTN A5 * =4«, t00=0x0036, t01=0x0122}
0x5588…559a              Head {h00=0x000e, h01=0x0050, text=» XIF  * =4«, t00=0x0036, t01=0x013c}
0x559a…55aa              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0036, t01=0x014e}
0x55aa…55b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015e}
0x55b4…55be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0168}
0x55be…55f2              Head {h00=0x0030, h01=0x0050, text=»*   ORDER 37 : TRANSFER DOCUMENT PARAMETERS «, t00=0x0036, t01=0x0172}
0x55f2…562a              Head {h00=0x0034, h01=0x0050, text=»*   CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER «, t00=0x0037, t01=0x0016}
0x562a…5634              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x004e}
0x5634…563e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0058}
0x563e…5652              Head {h00=0x0010, h01=0x0050, text=»TRFDOC EQU *«, t00=0x0037, t01=0x0062}
0x5652…566a              Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x0037, t01=0x0076}
0x566a…567c              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0037, t01=0x008e}
0x567c…568e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0037, t01=0x00a0}
0x568e…56a0              Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x0037, t01=0x00b2}
0x56a0…56b2              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x0037, t01=0x00c4}
0x56b2…56c4              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x0037, t01=0x00d6}
0x56c4…56da              Head {h00=0x0012, h01=0x0050, text=» CWK A4,TLTP03«, t00=0x0037, t01=0x00e8}
0x56da…570a              Head {h00=0x002c, h01=0x0050, text=» RF(G) ODOC80 REQ DOC TABLE NOT DEFINED «, t00=0x0037, t01=0x00fe}
0x570a…573e              Head {h00=0x0030, h01=0x0050, text=» ADKL A4,DTTP03-10 ADJUST DOCTAB POINTER =3 «, t00=0x0037, t01=0x012e}
0x573e…576a              Head {h00=0x0028, h01=0x0050, text=» LC A1,DWTDEV+ALN,A6 GET ACTUAL LINE«, t00=0x0037, t01=0x0162}
0x576a…578e              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF TEST LINE NUMBER«, t00=0x0037, t01=0x018e}
0x578e…57be              Head {h00=0x002c, h01=0x0050, text=» RF(Z) ODOC20 DOCUMENT NOT YET POS (OK) «, t00=0x0038, t01=0x0022}
0x57be…57e6              Head {h00=0x0024, h01=0x0050, text=» LCR A1,A4 GET DOCUMENT TYPE =3 «, t00=0x0038, t01=0x0052}
0x57e6…57f8              Head {h00=0x000e, h01=0x0050, text=» ANK A1,4 «, t00=0x0038, t01=0x007a}
0x57f8…582c              Head {h00=0x0030, h01=0x0050, text=» RF(Z) ODOC80 REQUEST ERROR FOR DOC TYPE 0-3«, t00=0x0038, t01=0x008c}
0x582c…5840              Head {h00=0x0010, h01=0x0050, text=»ODOC20 EQU *«, t00=0x0038, t01=0x00c0}
0x5840…5870              Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTDEV+DP,A6 SAVE DOC PAR ADDR =3«, t00=0x0038, t01=0x00d4}
0x5870…5890              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/13 BLOCK LENGTH«, t00=0x0038, t01=0x0104}
0x5890…58c2              Head {h00=0x002e, h01=0x0050, text=» LDK A3,POTDOC LOAD TRANSFER DOC PAR ORDER«, t00=0x0038, t01=0x0124}
0x58c2…58e0              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0038, t01=0x0156}
0x58e0…590a              Head {h00=0x0026, h01=0x0050, text=» LDK A3,10 SET UP TABLE LENGTH =3 «, t00=0x0038, t01=0x0174}
0x590a…5938              Head {h00=0x002a, h01=0x0050, text=»ODOC30 LCR A2,A4 GET DOC PARAMETER =3 «, t00=0x0039, t01=0x000e}
0x5938…595c              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUT SEND PARAMETER =3«, t00=0x0039, t01=0x003c}
0x595c…5982              Head {h00=0x0022, h01=0x0050, text=» ADK A4,1 INC TABLE POINTER =3«, t00=0x0039, t01=0x0060}
0x5982…59ac              Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC PARAMETER COUNTER =3«, t00=0x0039, t01=0x0086}
0x59ac…59d8              Head {h00=0x0028, h01=0x0050, text=» RB(NE) ODOC30 WHOLE TABLE NOT SENT «, t00=0x0039, t01=0x00b0}
0x59d8…5a06              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0039, t01=0x00dc}
0x5a06…5a16              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x0039, t01=0x010a}
0x5a16…5a3c              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x0039, t01=0x011a}
0x5a3c…5a62              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x0039, t01=0x0140}
0x5a62…5a88              Head {h00=0x0022, h01=0x0050, text=»ODOC70 ABL LENDIS END REQUEST «, t00=0x0039, t01=0x0166}
0x5a88…5ac0              Head {h00=0x0034, h01=0x0050, text=»ODOC80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0039, t01=0x018c}
0x5ac0…5ad0              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x003a, t01=0x0034}
0x5ad0…5ada              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0044}
0x5ada…5ae4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004e}
0x5ae4…5b12              Head {h00=0x002a, h01=0x0050, text=»*   ORDER 24 : SET PRINTER PARAMETERS «, t00=0x003a, t01=0x0058}
0x5b12…5b34              Head {h00=0x001e, h01=0x0050, text=»*   CONTROL WORD CONTAINS:«, t00=0x003a, t01=0x0086}
0x5b34…5b6e              Head {h00=0x0036, h01=0x0050, text=»*   BIT 0     : INDICATE CHANGE OF CH FONT AND NCV«, t00=0x003a, t01=0x00a8}
0x5b6e…5b94              Head {h00=0x0022, h01=0x0050, text=»*   BIT 01-03 : CHARACTER FONT«, t00=0x003a, t01=0x00e2}
0x5b94…5bc8              Head {h00=0x0030, h01=0x0050, text=»*   BIT 04-07 : NATIONAL CHARACTER VARIATION«, t00=0x003a, t01=0x0108}
0x5bc8…5c04              Head {h00=0x0038, h01=0x0050, text=»*   BIT 08-11 : CHARACTER PITCH FOR JOURNAL STATION «, t00=0x003a, t01=0x013c}
0x5c04…5c40              Head {h00=0x0038, h01=0x0050, text=»*   BIT 12-15 : CHARACTER PITCH FOR DOCUMENT STATION«, t00=0x003a, t01=0x0178}
0x5c40…5c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0024}
0x5c4a…5c54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002e}
0x5c54…5c6a              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x003b, t01=0x0038}
0x5c6a…5c7e              Head {h00=0x0010, h01=0x0050, text=»PRTPAR EQU *«, t00=0x003b, t01=0x004e}
0x5c7e…5c90              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003b, t01=0x0062}
0x5c90…5cbe              Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTDEV+PP,A6 GET OLD DWT VALUE «, t00=0x003b, t01=0x0074}
0x5cbe…5cf2              Head {h00=0x0030, h01=0x0050, text=» ABL(NN) LDISP WAIT FOR INITIAL RECOVERY =1 «, t00=0x003b, t01=0x00a2}
0x5cf2…5d1a              Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CONTROL WORD«, t00=0x003b, t01=0x00d6}
0x5d1a…5d52              Head {h00=0x0034, h01=0x0050, text=» RF(NN) PPAR10 NO NEW L/NCV SET UP IN CTRL WORD «, t00=0x003b, t01=0x00fe}
0x5d52…5d64              Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x003b, t01=0x0136}
0x5d64…5d78              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003b, t01=0x0148}
0x5d78…5daa              Head {h00=0x002e, h01=0x0050, text=» SC A2,DWTDEV+PP,A6 STORE NEW L/NCV IN DWT«, t00=0x003b, t01=0x015c}
0x5daa…5dc2              Head {h00=0x0014, h01=0x0050, text=»PPAR10 LDK A2,0 «, t00=0x003b, t01=0x018e}
0x5dc2…5dd4              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003c, t01=0x0016}
0x5dd4…5df6              Head {h00=0x001e, h01=0x0050, text=» ANK A3,/F0 GET CTRL WORD «, t00=0x003c, t01=0x0028}
0x5df6…5e28              Head {h00=0x002e, h01=0x0050, text=» RF(NZ) PPAR15 NEW CPJ SET UP IN CTRL WORD«, t00=0x003c, t01=0x004a}
0x5e28…5e3a              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x003c, t01=0x007c}
0x5e3a…5e4e              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x003c, t01=0x008e}
0x5e4e…5e62              Head {h00=0x0010, h01=0x0050, text=»PPAR15 EQU *«, t00=0x003c, t01=0x00a2}
0x5e62…5e88              Head {h00=0x0022, h01=0x0050, text=» ORR A2,A3 STORE NEW CPJ IN A2«, t00=0x003c, t01=0x00b6}
0x5e88…5e9a              Head {h00=0x000e, h01=0x0050, text=» XRR A3,A4«, t00=0x003c, t01=0x00dc}
0x5e9a…5ec6              Head {h00=0x0028, h01=0x0050, text=» ANK A3,/F0 NEW AND OLD CPJ EQUAL ? «, t00=0x003c, t01=0x00ee}
0x5ec6…5ee0              Head {h00=0x0016, h01=0x0050, text=» RF(Z) PPAR22 YES «, t00=0x003c, t01=0x011a}
0x5ee0…5f1a              Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+PPJ,A6 NO, RESET PRINT POS FOR JOURNAL «, t00=0x003c, t01=0x0134}
0x5f1a…5f2e              Head {h00=0x0010, h01=0x0050, text=»PPAR22 EQU *«, t00=0x003c, t01=0x016e}
0x5f2e…5f40              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003c, t01=0x0182}
0x5f40…5f60 (61, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ANK A3,/F GET CTRL WORD«, t00=0x003d, t01=0x0004}
0x5f60…5f92              Head {h00=0x002e, h01=0x0050, text=» RF(NZ) PPAR25 NEW CPD SET UP IN CTRL WORD«, t00=0x003d, t01=0x0024}
0x5f92…5fa4              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x003d, t01=0x0056}
0x5fa4…5fc8              Head {h00=0x0020, h01=0x0050, text=» ANK A3,/F GET CPD FROM DWT «, t00=0x003d, t01=0x0068}
0x5fc8…5fd2              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x003d, t01=0x008c}
0x5fd2…5fe6              Head {h00=0x0010, h01=0x0050, text=»PPAR25 EQU *«, t00=0x003d, t01=0x0096}
0x5fe6…600c              Head {h00=0x0022, h01=0x0050, text=» ORR A2,A3 STORE NEW CPD IN A2«, t00=0x003d, t01=0x00aa}
0x600c…601e              Head {h00=0x000e, h01=0x0050, text=» XRR A3,A4«, t00=0x003d, t01=0x00d0}
0x601e…6048              Head {h00=0x0026, h01=0x0050, text=» ANK A3,/F NEW AND OLD CPD EQUAL ?«, t00=0x003d, t01=0x00e2}
0x6048…6062              Head {h00=0x0016, h01=0x0050, text=» RF(Z) PPAR32 YES «, t00=0x003d, t01=0x010c}
0x6062…6098              Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+PPD,A6 NO, RESET PRINT POS FOR DOC «, t00=0x003d, t01=0x0126}
0x6098…60ac              Head {h00=0x0010, h01=0x0050, text=»PPAR32 EQU *«, t00=0x003d, t01=0x015c}
0x60ac…60e6              Head {h00=0x0036, h01=0x0050, text=» SC A2,DWTDEV+PP+1,A6 STORE NEW PARAMETERS IN DWT «, t00=0x003d, t01=0x0170}
0x60e6…6104              Head {h00=0x001a, h01=0x0050, text=» LDK A2,5 BLOCK LENGTH«, t00=0x003e, t01=0x001a}
0x6104…6140              Head {h00=0x0038, h01=0x0050, text=» LDK A3,POPPAR LOAD PRINTER PRINTER PARAMETER ORDER «, t00=0x003e, t01=0x0038}
0x6140…615e              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x003e, t01=0x0074}
0x615e…617a              Head {h00=0x0018, h01=0x0050, text=» LC A2,DWTDEV+PP,A6 «, t00=0x003e, t01=0x0092}
0x617a…6198              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUT SEND L/NCV «, t00=0x003e, t01=0x00ae}
0x6198…61b6              Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTDEV+PP+1,A6 «, t00=0x003e, t01=0x00cc}
0x61b6…61d6              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUT SEND CPJ/CPD «, t00=0x003e, t01=0x00ea}
0x61d6…6204              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x003e, t01=0x010a}
0x6204…6214              Head {h00=0x000c, h01=0x0050, text=»   U =1 «, t00=0x003e, t01=0x0138}
0x6214…623a              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x003e, t01=0x0148}
0x623a…6260              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x003e, t01=0x016e}
0x6260…6286 (63, 0, 400) Head {h00=0x0022, h01=0x0050, text=»PPAR70 ABL LENDIS END REQUEST «, t00=0x003f, t01=0x0004}
0x6286…6292              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x002a}
0x6292…62a2              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x003f, t01=0x0036}
0x62a2…62ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0046}
0x62ac…62b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0050}
0x62b6…62e4              Head {h00=0x002a, h01=0x0050, text=»*   ORDER 27 : SET DOCUMENT PARAMETERS«, t00=0x003f, t01=0x005a}
0x62e4…6322              Head {h00=0x003a, h01=0x0050, text=»*   CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS«, t00=0x003f, t01=0x0088}
0x6322…632c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c6}
0x632c…6336              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d0}
0x6336…634c              Head {h00=0x0012, h01=0x0050, text=» IFT PARORD=1 «, t00=0x003f, t01=0x00da}
0x634c…6360              Head {h00=0x0010, h01=0x0050, text=»DOCPAR EQU *«, t00=0x003f, t01=0x00f0}
0x6360…6388              Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 GET CONTROL WORD«, t00=0x003f, t01=0x0104}
0x6388…639a              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x003f, t01=0x012c}
0x639a…63ac              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003f, t01=0x013e}
0x63ac…63be              Head {h00=0x000e, h01=0x0050, text=» SLL A4,3 «, t00=0x003f, t01=0x0150}
0x63be…63d0              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x003f, t01=0x0162}
0x63d0…63e2              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x003f, t01=0x0174}
0x63e2…63f8              Head {h00=0x0012, h01=0x0050, text=» CWK A4,TLTP03«, t00=0x003f, t01=0x0186}
0x63f8…6426              Head {h00=0x002a, h01=0x0050, text=» RF(G) DPAR80 DEFINED TABLE TOO SMALL «, t00=0x0040, t01=0x000c}
0x6426…644e              Head {h00=0x0024, h01=0x0050, text=» SUK A4,10 ADJUST DOCTAB POINTER«, t00=0x0040, t01=0x003a}
0x644e…6478              Head {h00=0x0026, h01=0x0050, text=» LD A3,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0040, t01=0x0062}
0x6478…649a              Head {h00=0x001e, h01=0x0050, text=» CF A5,BYTE1 GET DOC TYPE «, t00=0x0040, t01=0x008c}
0x649a…64ac              Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x0040, t01=0x00ae}
0x64ac…64d0              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0040, t01=0x00c0}
0x64d0…64e8              Head {h00=0x0014, h01=0x0050, text=» SC A2,DTTP03,A4«, t00=0x0040, t01=0x00e4}
0x64e8…6510              Head {h00=0x0024, h01=0x0050, text=» CF A5,BYTE1 GET TIME OUT VALUE «, t00=0x0040, t01=0x00fc}
0x6510…6522              Head {h00=0x000e, h01=0x0050, text=» SLL A2,11«, t00=0x0040, t01=0x0124}
0x6522…653c              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0040, t01=0x0136}
0x653c…6560              Head {h00=0x0020, h01=0x0050, text=» CF A5,DOC GET LINE SPACING «, t00=0x0040, t01=0x0150}
0x6560…6572              Head {h00=0x000e, h01=0x0050, text=» SUK A2,15«, t00=0x0040, t01=0x0174}
0x6572…6592              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0040, t01=0x0186}
0x6592…65b4              Head {h00=0x001e, h01=0x0050, text=» CF A5,DOC GET NO OF LINES«, t00=0x0041, t01=0x0016}
0x65b4…65c6              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0041, t01=0x0038}
0x65c6…65e4              Head {h00=0x001a, h01=0x0050, text=» RF(Z) DPAR80 NO LINES«, t00=0x0041, t01=0x004a}
0x65e4…6608              Head {h00=0x0020, h01=0x0050, text=» CF A5,DOC GET BOTTOM LINES «, t00=0x0041, t01=0x0068}
0x6608…661a              Head {h00=0x000e, h01=0x0050, text=» SUK A2,14«, t00=0x0041, t01=0x008c}
0x661a…663a              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0041, t01=0x009e}
0x663a…6658              Head {h00=0x001a, h01=0x0050, text=» CF A5,DOC GET MARGIN «, t00=0x0041, t01=0x00be}
0x6658…666a              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0041, t01=0x00dc}
0x666a…668a              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DPAR80 TOO SMALL «, t00=0x0041, t01=0x00ee}
0x668a…669c              Head {h00=0x000e, h01=0x0050, text=» SUK A2,80«, t00=0x0041, t01=0x010e}
0x669c…66bc              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0041, t01=0x0120}
0x66bc…66ce              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0041, t01=0x0140}
0x66ce…66f2              Head {h00=0x0020, h01=0x0050, text=» CF A5,BYTE1 GET MARGIN FINE«, t00=0x0041, t01=0x0152}
0x66f2…6704              Head {h00=0x000e, h01=0x0050, text=» SUK A1,0 «, t00=0x0041, t01=0x0176}
0x6704…6724              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DPAR80 TOO SMALL «, t00=0x0041, t01=0x0188}
0x6724…6736              Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x0042, t01=0x0018}
0x6736…6756              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0042, t01=0x002a}
0x6756…676e              Head {h00=0x0014, h01=0x0050, text=» SC A2,DTTP03,A4«, t00=0x0042, t01=0x004a}
0x676e…6792              Head {h00=0x0020, h01=0x0050, text=» CF A5,BYTE1 GET LEFT MARGIN«, t00=0x0042, t01=0x0062}
0x6792…67a4              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0042, t01=0x0086}
0x67a4…67c8              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0042, t01=0x0098}
0x67c8…67da              Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0042, t01=0x00bc}
0x67da…67f4              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0042, t01=0x00ce}
0x67f4…681c              Head {h00=0x0024, h01=0x0050, text=» CF A5,BYTE1 GET CRITICAL MARGIN«, t00=0x0042, t01=0x00e8}
0x681c…682e              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0042, t01=0x0110}
0x682e…6852              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0042, t01=0x0122}
0x6852…6864              Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0042, t01=0x0146}
0x6864…687e              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0042, t01=0x0158}
0x687e…68aa              Head {h00=0x0028, h01=0x0050, text=» CF A5,BYTE1 GET HIGH PRINT PRESSURE«, t00=0x0042, t01=0x0172}
0x68aa…68bc              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0043, t01=0x000e}
0x68bc…68e0              Head {h00=0x0020, h01=0x0050, text=» RF(P) DPAR80 ILLEGAL VALUE «, t00=0x0043, t01=0x0020}
0x68e0…68f2              Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x0043, t01=0x0044}
0x68f2…690c              Head {h00=0x0016, h01=0x0050, text=» ORS A2,DTTP03,A4 «, t00=0x0043, t01=0x0056}
0x690c…6932              Head {h00=0x0022, h01=0x0050, text=» LC* A1,ECBBA,A8 GET DOC TYPE «, t00=0x0043, t01=0x0070}
0x6932…6944              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/B«, t00=0x0043, t01=0x0096}
0x6944…6966              Head {h00=0x001e, h01=0x0050, text=» RF(Z) DPAR60 DOC TYPE = 0«, t00=0x0043, t01=0x00a8}
0x6966…6988              Head {h00=0x001e, h01=0x0050, text=» CF A5,DOC GET UPPER EDGE «, t00=0x0043, t01=0x00ca}
0x6988…699a              Head {h00=0x000e, h01=0x0050, text=» SUK A2,15«, t00=0x0043, t01=0x00ec}
0x699a…69ba              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0043, t01=0x00fe}
0x69ba…69cc              Head {h00=0x000e, h01=0x0050, text=» SUK A2,67«, t00=0x0043, t01=0x011e}
0x69cc…69ec              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0043, t01=0x0130}
0x69ec…6a0e              Head {h00=0x001e, h01=0x0050, text=» CF A5,DOC GET BOTTOM EDGE«, t00=0x0043, t01=0x0150}
0x6a0e…6a20              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0043, t01=0x0172}
0x6a20…6a38              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DPAR30 OK«, t00=0x0043, t01=0x0184}
0x6a38…6a4a              Head {h00=0x000e, h01=0x0050, text=» SUK A2,24«, t00=0x0044, t01=0x000c}
0x6a4a…6a6a              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0044, t01=0x001e}
0x6a6a…6a96              Head {h00=0x0028, h01=0x0050, text=»DPAR30 LC* A1,ECBBA,A8 GET DOC TYPE «, t00=0x0044, t01=0x003e}
0x6a96…6aa8              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/B«, t00=0x0044, t01=0x006a}
0x6aa8…6aba              Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0044, t01=0x007c}
0x6aba…6adc              Head {h00=0x001e, h01=0x0050, text=» RF(N) DPAR70 DOC TYPE = 1«, t00=0x0044, t01=0x008e}
0x6adc…6afe              Head {h00=0x001e, h01=0x0050, text=» RF(P) DPAR40 DOC TYPE = 3«, t00=0x0044, t01=0x00b0}
0x6afe…6b24              Head {h00=0x0022, h01=0x0050, text=» CF A5,DOC GET DOCUMENT WIDTH «, t00=0x0044, t01=0x00d2}
0x6b24…6b36              Head {h00=0x000e, h01=0x0050, text=» SUK A2,40«, t00=0x0044, t01=0x00f8}
0x6b36…6b56              Head {h00=0x001c, h01=0x0050, text=» RF(N) DPAR80 TOO SMALL «, t00=0x0044, t01=0x010a}
0x6b56…6b68              Head {h00=0x000e, h01=0x0050, text=» SUK A2,57«, t00=0x0044, t01=0x012a}
0x6b68…6b88              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO SMALL «, t00=0x0044, t01=0x013c}
0x6b88…6b9a              Head {h00=0x000e, h01=0x0050, text=» RF DPAR50«, t00=0x0044, t01=0x015c}
0x6b9a…6bc2              Head {h00=0x0024, h01=0x0050, text=»DPAR40 CF A5,DOC GET UPPER LINES«, t00=0x0044, t01=0x016e}
0x6bc2…6bd4              Head {h00=0x000e, h01=0x0050, text=» SUK A2,0 «, t00=0x0045, t01=0x0008}
0x6bd4…6bf4              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DPAR80 TOO SMALL «, t00=0x0045, t01=0x001a}
0x6bf4…6c06              Head {h00=0x000e, h01=0x0050, text=» SUK A2,40«, t00=0x0045, t01=0x003a}
0x6c06…6c26              Head {h00=0x001c, h01=0x0050, text=» RF(P) DPAR80 TOO LARGE «, t00=0x0045, t01=0x004c}
0x6c26…6c50              Head {h00=0x0026, h01=0x0050, text=»DPAR50 CF A5,DOC GET CENTER WIDTH «, t00=0x0045, t01=0x006c}
0x6c50…6c66              Head {h00=0x0012, h01=0x0050, text=» RF DPAR75 OK «, t00=0x0045, t01=0x0096}
0x6c66…6c9a              Head {h00=0x0030, h01=0x0050, text=»DPAR60 LDK A2,0 DT=0 SET 4 LAST PARAMETERS=0«, t00=0x0045, t01=0x00ac}
0x6c9a…6cac              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x00e0}
0x6cac…6cc4              Head {h00=0x0014, h01=0x0050, text=» ST A2,DTTP03,A4«, t00=0x0045, t01=0x00f2}
0x6cc4…6cd6              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x010a}
0x6cd6…6d0a              Head {h00=0x0030, h01=0x0050, text=»DPAR70 LDK A2,0 DT=1 SET 2 LAST PARAMETERS=0«, t00=0x0045, t01=0x011c}
0x6d0a…6d1c              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0045, t01=0x0150}
0x6d1c…6d34              Head {h00=0x0014, h01=0x0050, text=» ST A2,DTTP03,A4«, t00=0x0045, t01=0x0162}
0x6d34…6d6a              Head {h00=0x0032, h01=0x0050, text=»DPAR75 LDK A1,0 IND STATUS OK FOR RETURN CODE «, t00=0x0045, t01=0x017a}
0x6d6a…6d8a              Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END REQUEST «, t00=0x0046, t01=0x0020}
0x6d8a…6dc2              Head {h00=0x0034, h01=0x0050, text=»DPAR80 ABL LENDER END REQUEST WITH REQUEST ERROR«, t00=0x0046, t01=0x0040}
0x6dc2…6dca              Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x0078}
0x6dca…6e00              Head {h00=0x0032, h01=0x0050, text=»*   GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 «, t00=0x0046, t01=0x0080}
0x6e00…6e28              Head {h00=0x0024, h01=0x0050, text=»*   CONVERTED TO HEXA FROM ASCII«, t00=0x0046, t01=0x00b6}
0x6e28…6e30              Head {h00=0x0004, h01=0x0050, t00=0x0046, t01=0x00de}
0x6e30…6e56              Head {h00=0x0022, h01=0x0050, text=»BYTE1 LCR A2,A3 GET CHARACTER «, t00=0x0046, t01=0x00e6}
0x6e56…6e7a              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHECK TEST IF NUMERIC«, t00=0x0046, t01=0x010c}
0x6e7a…6e96              Head {h00=0x0018, h01=0x0050, text=» ANK A2,/F GET HEXA «, t00=0x0046, t01=0x0130}
0x6e96…6eb8              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 SAVE IN A1 ALSO«, t00=0x0046, t01=0x014c}
0x6eb8…6ee0              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INC ECB BUFFER POINTER«, t00=0x0046, t01=0x016e}
0x6ee0…6ef0              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0047, t01=0x0008}
0x6ef0…6ef8              Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0018}
0x6ef8…6f28              Head {h00=0x002c, h01=0x0050, text=»*   GET TWO BYTES FROM ECB BUFFER TO A2 «, t00=0x0047, t01=0x0020}
0x6f28…6f5e              Head {h00=0x0032, h01=0x0050, text=»*   CONVERTED TO HEXA AND STORED IN DOC TABLE «, t00=0x0047, t01=0x0050}
0x6f5e…6f66              Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0086}
0x6f66…6f8c              Head {h00=0x0022, h01=0x0050, text=»DOC LDK A1,0 CLEAR HEXA VALUE «, t00=0x0047, t01=0x008e}
0x6f8c…6fb0              Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 INC TABLE POINTER «, t00=0x0047, t01=0x00b4}
0x6fb0…6fe0              Head {h00=0x002c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER FROM ECB BUFFER«, t00=0x0047, t01=0x00d8}
0x6fe0…7004              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHECK TEST IF NUMERIC«, t00=0x0047, t01=0x0108}
0x7004…7016              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0047, t01=0x012c}
0x7016…702c              Head {h00=0x0012, h01=0x0050, text=»DOC10 SUK A2,1«, t00=0x0047, t01=0x013e}
0x702c…7050              Head {h00=0x0020, h01=0x0050, text=» RF(N) DOC20 TENTH FINISHED «, t00=0x0047, t01=0x0154}
0x7050…7070              Head {h00=0x001c, h01=0x0050, text=» ADK A1,10  PDATE TENTH «, t00=0x0047, t01=0x0178}
0x7070…7082              Head {h00=0x000e, h01=0x0050, text=» RB DOC10 «, t00=0x0048, t01=0x0008}
0x7082…70b0              Head {h00=0x002a, h01=0x0050, text=»DOC20 ADK A3,1 INC ECB BUFFER POINTER «, t00=0x0048, t01=0x001a}
0x70b0…70e6              Head {h00=0x0032, h01=0x0050, text=» LCR A2,A3 GET NEXT CHARACTER FROM ECB BUFFER «, t00=0x0048, t01=0x0048}
0x70e6…710a              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHECK TEST IF NUMERIC«, t00=0x0048, t01=0x007e}
0x710a…711c              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0048, t01=0x00a2}
0x711c…7146              Head {h00=0x0026, h01=0x0050, text=» ADR A2,A1 ADD TO PREV HEXA VALUE «, t00=0x0048, t01=0x00b4}
0x7146…7172              Head {h00=0x0028, h01=0x0050, text=» SC A2,DTTP03,A4 STORE IN DOC TABLE «, t00=0x0048, t01=0x00de}
0x7172…719a              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INC ECB BUFFER POINTER«, t00=0x0048, t01=0x010a}
0x719a…71aa              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0048, t01=0x0132}
0x71aa…71b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0142}
0x71b4…71de              Head {h00=0x0026, h01=0x0050, text=»*   CHECK IF CHARACTER IS NUMERIC «, t00=0x0048, t01=0x014c}
0x71de…720a              Head {h00=0x0028, h01=0x0050, text=»CHECK ANK A2,/FF MASK OUT CHARACTER «, t00=0x0048, t01=0x0176}
0x720a…721e              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0049, t01=0x0012}
0x721e…7242              Head {h00=0x0020, h01=0x0050, text=» RB(N) DPAR80 TOO LOW ERROR «, t00=0x0049, t01=0x0026}
0x7242…7254              Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0049, t01=0x004a}
0x7254…7278              Head {h00=0x0020, h01=0x0050, text=» RB(P) DPAR80 TOO HIGH ERROR«, t00=0x0049, t01=0x005c}
0x7278…729e              Head {h00=0x0022, h01=0x0050, text=» ADK A2,/39 RESTORE CHARACTER «, t00=0x0049, t01=0x0080}
0x729e…72ae              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0049, t01=0x00a6}
0x72ae…72ba              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x00b6}
0x72ba…72ca              Head {h00=0x000c, h01=0x0050, text=» EJECT  «, t00=0x0049, t01=0x00c2}
0x72ca…72d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00d2}
0x72d4…72de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00dc}
0x72de…7306              Head {h00=0x0024, h01=0x0050, text=»*   ORDER 38 : RELEASE DOCUMENT «, t00=0x0049, t01=0x00e6}
0x7306…7310              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010e}
0x7310…731a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0118}
0x731a…732e              Head {h00=0x0010, h01=0x0050, text=»RELDOC EQU *«, t00=0x0049, t01=0x0122}
0x732e…734c              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x0049, t01=0x0136}
0x734c…737e              Head {h00=0x002e, h01=0x0050, text=» LDK A3,PORDOC LOAD PRINTER REL DOC ORDER «, t00=0x0049, t01=0x0154}
0x737e…739c              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0049, t01=0x0186}
0x739c…73ca              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x004a, t01=0x0014}
0x73ca…73f0              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 GET PRINTER STATUS «, t00=0x004a, t01=0x0042}
0x73f0…7416              Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 TEST PRINTER STATUS «, t00=0x004a, t01=0x0068}
0x7416…743a              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDOC70 NOT OPERABLE «, t00=0x004a, t01=0x008e}
0x743a…7466              Head {h00=0x0028, h01=0x0050, text=» CM DWTDEV+LN,A6 RESET LINE COUNTERS«, t00=0x004a, t01=0x00b2}
0x7466…749e              Head {h00=0x0034, h01=0x0050, text=» CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTERS «, t00=0x004a, t01=0x00de}
0x749e…74c4              Head {h00=0x0022, h01=0x0050, text=»RDOC70 ABL LENDIS END REQUEST «, t00=0x004a, t01=0x0116}
0x74c4…74d2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x013c}
0x74d2…74dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014a}
0x74dc…74fe              Head {h00=0x001e, h01=0x0050, text=»*   S U B R O U T I N E S «, t00=0x004a, t01=0x0154}
0x74fe…7508              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0176}
0x7508…7512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0180}
0x7512…751a              Head {h00=0x0004, h01=0x0050, t00=0x004a, t01=0x018a}
0x751a…7524 (75, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0004}
0x7524…753a              Head {h00=0x0012, h01=0x0050, text=»*   O R D E R «, t00=0x004b, t01=0x000e}
0x753a…7580              Head {h00=0x0042, h01=0x0050, text=»*   SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER«, t00=0x004b, t01=0x0024}
0x7580…758a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x006a}
0x758a…759e              Head {h00=0x0010, h01=0x0050, text=»ORDER EQU * «, t00=0x004b, t01=0x0074}
0x759e…75c2              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x004b, t01=0x0088}
0x75c2…75e4              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004b, t01=0x00ac}
0x75e4…7612              Head {h00=0x002a, h01=0x0050, text=» LDK A2,RESET SEND RESET JUST IN CASE «, t00=0x004b, t01=0x00ce}
0x7612…7628              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x004b, t01=0x00fc}
0x7628…764a              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004b, t01=0x0112}
0x764a…765c              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x004b, t01=0x0134}
0x765c…7680              Head {h00=0x0020, h01=0x0050, text=» RF OUT10 SEND PRINTER ORDER«, t00=0x004b, t01=0x0146}
0x7680…768a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016a}
0x768a…76a4              Head {h00=0x0016, h01=0x0050, text=»*   E X E C U T E «, t00=0x004b, t01=0x0174}
0x76a4…76f0              Head {h00=0x0048, h01=0x0050, text=»*   SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM.«, t00=0x004b, t01=0x018e}
0x76f0…76fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x004a}
0x76fa…770e              Head {h00=0x0010, h01=0x0050, text=»EXECUT EQU *«, t00=0x004c, t01=0x0054}
0x770e…773e              Head {h00=0x002c, h01=0x0050, text=» LDK A2,ETX SEND EXECUTE CHAR TO PRINTER«, t00=0x004c, t01=0x0068}
0x773e…7754              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x004c, t01=0x0098}
0x7754…7776              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004c, t01=0x00ae}
0x7776…7798              Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x004c, t01=0x00d0}
0x7798…77ba              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004c, t01=0x00f2}
0x77ba…77ec              Head {h00=0x002e, h01=0x0050, text=»EXE05 CF A5,INPUT GET STATUS CHARACTER =1 «, t00=0x004c, t01=0x0114}
0x77ec…781c              Head {h00=0x002c, h01=0x0050, text=» LDR A1,A7 TEST IF ORDER = POS OR REL =1«, t00=0x004c, t01=0x0146}
0x781c…7834              Head {h00=0x0014, h01=0x0050, text=» SUK A1,/0B U =1«, t00=0x004c, t01=0x0176}
0x7834…786c              Head {h00=0x0034, h01=0x0050, text=» RF(Z) EXE10 POS, BIT 3 IN STATUS DON'T CARE =1 «, t00=0x004c, t01=0x018e}
0x786c…7888              Head {h00=0x0018, h01=0x0050, text=» SUK A1,/38-/0B U =1«, t00=0x004d, t01=0x0036}
0x7888…78c0              Head {h00=0x0034, h01=0x0050, text=» RF(Z) EXE10 REL, BIT 3 IN STATUS DON'T CARE =1 «, t00=0x004d, t01=0x0052}
0x78c0…78ee              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A2 TEST IF STATUS BIT 3 = 1 =1«, t00=0x004d, t01=0x008a}
0x78ee…7906              Head {h00=0x0014, h01=0x0050, text=» ANK A1,/18 * =3«, t00=0x004d, t01=0x00b8}
0x7906…7938              Head {h00=0x002e, h01=0x0050, text=» RB(Z) EXE05 BIT 3 = 0, READ NEW STATUS =1«, t00=0x004d, t01=0x00d0}
0x7938…7950              Head {h00=0x0014, h01=0x0050, text=»EXE10 EQU * U =1«, t00=0x004d, t01=0x0102}
0x7950…797c              Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTDEV,A6 SAVE IN DWT STATUS «, t00=0x004d, t01=0x011a}
0x797c…798c              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004d, t01=0x0146}
0x798c…7996              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0156}
0x7996…79a8              Head {h00=0x000e, h01=0x0050, text=»*   0 U T «, t00=0x004d, t01=0x0160}
0x79a8…79c8              Head {h00=0x001c, h01=0x0050, text=»*   ADD CONST. AND SEND «, t00=0x004d, t01=0x0172}
0x79c8…79d2 (78, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0004}
0x79d2…79e4              Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004e, t01=0x000e}
0x79e4…79f8              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x004e, t01=0x0020}
0x79f8…7a0c              Head {h00=0x0010, h01=0x0050, text=» ADK A2,/10 «, t00=0x004e, t01=0x0034}
0x7a0c…7a20              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/7F «, t00=0x004e, t01=0x0048}
0x7a20…7a54              Head {h00=0x0030, h01=0x0050, text=» RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F«, t00=0x004e, t01=0x005c}
0x7a54…7a82              Head {h00=0x002a, h01=0x0050, text=» LDK A2,/7F IF GREATER SET CHAR TO /7F«, t00=0x004e, t01=0x0090}
0x7a82…7a96              Head {h00=0x0010, h01=0x0050, text=»OUT10 EQU * «, t00=0x004e, t01=0x00be}
0x7a96…7aac              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x004e, t01=0x00d2}
0x7aac…7ace              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ERTP JMP IF ERROR «, t00=0x004e, t01=0x00e8}
0x7ace…7ade              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004e, t01=0x010a}
0x7ade…7afc              Head {h00=0x001a, h01=0x0050, text=»   9 LINES DELETED =1 «, t00=0x004e, t01=0x011a}
0x7afc…7b06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0138}
0x7b06…7b3a              Head {h00=0x0030, h01=0x0050, text=»*   ERROR ROUTINE FOR STABLK,OUTPUT & ENDBLK«, t00=0x004e, t01=0x0142}
0x7b3a…7b44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0176}
0x7b44…7b4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0180}
0x7b4e…7b60              Head {h00=0x000e, h01=0x0050, text=»ERTP EQU *«, t00=0x004e, t01=0x018a}
0x7b60…7b76              Head {h00=0x0012, h01=0x0050, text=» IFF REQEND=1 «, t00=0x004f, t01=0x000c}
0x7b76…7b88              Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x004f, t01=0x0022}
0x7b88…7bb6              Head {h00=0x002a, h01=0x0050, text=» RF(Z) ERTP20 ORDER /00, TEST STATUS ?«, t00=0x004f, t01=0x0034}
0x7bb6…7bea              Head {h00=0x0030, h01=0x0050, text=» ANK A1,/1A OUTP ERR, SOFTW T-OUT, LRC-ERR ?«, t00=0x004f, t01=0x0062}
0x7bea…7c0c              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) RCTP YES, RECOVERY«, t00=0x004f, t01=0x0096}
0x7c0c…7c22              Head {h00=0x0012, h01=0x0050, text=» ABL LDISP NO «, t00=0x004f, t01=0x00b8}
0x7c22…7c2e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00ce}
0x7c2e…7c56              Head {h00=0x0024, h01=0x0050, text=»ERTP20 LDK A1,1 SET NOT OPERABLE«, t00=0x004f, t01=0x00da}
0x7c56…7c76              Head {h00=0x001c, h01=0x0050, text=» ABL LENDIS END OF REQ. «, t00=0x004f, t01=0x0102}
0x7c76…7c84              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0122}
0x7c84…7c8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0130}
0x7c8e…7ca0              Head {h00=0x000e, h01=0x0050, text=»* R C T P «, t00=0x004f, t01=0x013a}
0x7ca0…7caa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x014c}
0x7caa…7ce0              Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE RECOVERY ROUTINE FOR THE DRIVER «, t00=0x004f, t01=0x0156}
0x7ce0…7d12              Head {h00=0x002e, h01=0x0050, text=»* DWT ORDER IS RESET IF NO REQUEST RUNING «, t00=0x004f, t01=0x018c}
0x7d12…7d2c              Head {h00=0x0016, h01=0x0050, text=»* DWT IS SET BUSY «, t00=0x0050, t01=0x002e}
0x7d2c…7d70              Head {h00=0x0040, h01=0x0050, text=»* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT «, t00=0x0050, t01=0x0048}
0x7d70…7daa              Head {h00=0x0036, h01=0x0050, text=»* TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM«, t00=0x0050, t01=0x008c}
0x7daa…7dee              Head {h00=0x0040, h01=0x0050, text=»* A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PRINTER «, t00=0x0050, t01=0x00c6}
0x7dee…7e32              Head {h00=0x0040, h01=0x0050, text=»* THIS STRING CONTAINS THE ACTUAL PARAMETERS AND THE ACTUAL «, t00=0x0050, t01=0x010a}
0x7e32…7e54              Head {h00=0x001e, h01=0x0050, text=»* STATUS FOR THE PRINTER. «, t00=0x0050, t01=0x014e}
0x7e54…7e84              Head {h00=0x002c, h01=0x0050, text=»* A RUNING REQUEST IS AT LAST REPEATED. «, t00=0x0050, t01=0x0170}
0x7e84…7e8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0010}
0x7e8e…7ea0              Head {h00=0x000e, h01=0x0050, text=»RCTP EQU *«, t00=0x0051, t01=0x001a}
0x7ea0…7ec8              Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTECB,A6 GET ECB ADDRESS«, t00=0x0051, t01=0x002c}
0x7ec8…7eee              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) RCTP02 REQUEST RUNNING«, t00=0x0051, t01=0x0054}
0x7eee…7f0e              Head {h00=0x001c, h01=0x0050, text=» CM DWTOR,A6 RESET ORDER«, t00=0x0051, t01=0x007a}
0x7f0e…7f22              Head {h00=0x0010, h01=0x0050, text=»RCTP02 EQU *«, t00=0x0051, t01=0x009a}
0x7f22…7f4e              Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/7FFF INDICATE DEVICE BUSY «, t00=0x0051, t01=0x00ae}
0x7f4e…7f66              Head {h00=0x0014, h01=0x0050, text=» ANS A1,DWTST,A6«, t00=0x0051, t01=0x00da}
0x7f66…7f88              Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x0051, t01=0x00f2}
0x7f88…7f9a              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0051, t01=0x0114}
0x7f9a…7fa6              Head {h00=0x0008, h01=0x0050, text=»    «, t00=0x0051, t01=0x0126}
0x7fa6…7fc6              Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DP,A6 * =3«, t00=0x0051, t01=0x0132}
0x7fc6…7ffa              Head {h00=0x0030, h01=0x0050, text=» RF(NZ) RCTP08 NOT SYSTEM START RECOVERY =3 «, t00=0x0051, t01=0x0152}
0x7ffa…8032              Head {h00=0x0034, h01=0x0050, text=» LDKL A1,DTTP03 SET UP DOC PAR TABLE 0 IN DWT =3«, t00=0x0051, t01=0x0186}
0x8032…8052              Head {h00=0x001c, h01=0x0050, text=» ST A1,DWTDEV+DP,A6 * =3«, t00=0x0052, t01=0x002e}
0x8052…807e              Head {h00=0x0028, h01=0x0050, text=» LD A3,STDPP SET UP ST PR PAR IN DWT«, t00=0x0052, t01=0x004e}
0x807e…809a              Head {h00=0x0018, h01=0x0050, text=» ST A3,DWTDEV+PP,A6 «, t00=0x0052, t01=0x007a}
0x809a…80aa              Head {h00=0x000c, h01=0x0050, text=»   * =3 «, t00=0x0052, t01=0x0096}
0x80aa…80be              Head {h00=0x0010, h01=0x0050, text=»RCTP08 EQU *«, t00=0x0052, t01=0x00a6}
0x80be…80dc              Head {h00=0x001a, h01=0x0050, text=» LDK A2,3 BLOCK LENGTH«, t00=0x0052, t01=0x00ba}
0x80dc…8112              Head {h00=0x0032, h01=0x0050, text=» LDK A3,POTEST LOAD PRINTER ORDER TEST STATUS «, t00=0x0052, t01=0x00d8}
0x8112…8130              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0052, t01=0x010e}
0x8130…815e              Head {h00=0x002a, h01=0x0050, text=» CF A5,EXECUT EXECUTE ORDER IN PRINTER«, t00=0x0052, t01=0x012c}
0x815e…8172              Head {h00=0x0010, h01=0x0050, text=»RCTP10 EQU *«, t00=0x0052, t01=0x015a}
0x8172…8192              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/19 BLOCK LENGTH«, t00=0x0052, t01=0x016e}
0x8192…81c6              Head {h00=0x0030, h01=0x0050, text=» LDK A3,PORECV SET UP PRINTER RECOVERY ORDER«, t00=0x0052, t01=0x018e}
0x81c6…81e4              Head {h00=0x001a, h01=0x0050, text=» CF A5,ORDER AND SEND «, t00=0x0053, t01=0x0032}
0x81e4…8216              Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS«, t00=0x0053, t01=0x0050}
0x8216…822e              Head {h00=0x0014, h01=0x0050, text=»RCTP20 ECR A2,A3«, t00=0x0053, t01=0x0082}
0x822e…824c              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUT SEND L/NCV «, t00=0x0053, t01=0x009a}
0x824c…825e              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0053, t01=0x00b8}
0x825e…827e              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUT SEND CPJ/CPD «, t00=0x0053, t01=0x00ca}
0x827e…82b2              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDEV+APJ,A6 GET ACTUAL POS JOURNAL «, t00=0x0053, t01=0x00ea}
0x82b2…82ce              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0053, t01=0x011e}
0x82ce…8302              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDEV+APD,A6 GET ACTUAL POS DOCUMENT«, t00=0x0053, t01=0x013a}
0x8302…8322              Head {h00=0x001c, h01=0x0050, text=» LDR A3,A2 SAVE DOC POS «, t00=0x0053, t01=0x016e}
0x8322…8342              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F MASK OFF MSB«, t00=0x0053, t01=0x018e}
0x8342…835e              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT SEND APD «, t00=0x0054, t01=0x001e}
0x835e…8382              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A3 GET DOC POS BACK «, t00=0x0054, t01=0x003a}
0x8382…83a2              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/40 MASK OUT MSB«, t00=0x0054, t01=0x005e}
0x83a2…83be              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT SEND AP6 «, t00=0x0054, t01=0x007e}
0x83be…83ee              Head {h00=0x002c, h01=0x0050, text=» LC A2,DWTDEV+ALN,A6 GET ACTUAL LINE NO «, t00=0x0054, t01=0x009a}
0x83ee…840a              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0054, t01=0x00ca}
0x840a…8422              Head {h00=0x0014, h01=0x0050, text=»RCTP40 LDK A4,10«, t00=0x0054, t01=0x00e6}
0x8422…8454              Head {h00=0x002e, h01=0x0050, text=» LD A3,DWTDEV+DP,A6 GET DOC PAR ADDRESS =3«, t00=0x0054, t01=0x00fe}
0x8454…847e              Head {h00=0x0026, h01=0x0050, text=»RCTP50 LCR A2,A3 GET DOC PARAMETER«, t00=0x0054, t01=0x0130}
0x847e…8488              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0054, t01=0x015a}
0x8488…84a4              Head {h00=0x0018, h01=0x0050, text=» CF A5,OUT AND SEND «, t00=0x0054, t01=0x0164}
0x84a4…84cc              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INC DOC TABLE POINTER «, t00=0x0054, t01=0x0180}
0x84cc…84f4              Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 DEC CHARACTER COUNTER «, t00=0x0055, t01=0x0018}
0x84f4…8520              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) RCTP50 WHOLE TABLE NOT SENT «, t00=0x0055, t01=0x0040}
0x8520…8558              Head {h00=0x0034, h01=0x0050, text=»RCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER «, t00=0x0055, t01=0x006c}
0x8558…8576              Head {h00=0x001a, h01=0x0050, text=»RCTP70 LD A1,DWTECB,A6«, t00=0x0055, t01=0x00a4}
0x8576…859a              Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) ACT005 REQ RUNNING «, t00=0x0055, t01=0x00c2}
0x859a…85be              Head {h00=0x0020, h01=0x0050, text=» ABL LENDIS REQ NOT RUNNING «, t00=0x0055, t01=0x00e6}
0x85be…85ca              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0055, t01=0x010a}
0x85ca…85ce              Head {h00=0x4004, h01=0x0000}
0x85ce…85d2              00 55 01 16                                                                                                                                                                                                                                       ┆ U  ┆
0x85d2…85da (86, 1, 8)   20 04 00 00 00 56 00 04                                                                                                                                                                                                                           ┆     V  ┆
0x85da…862a (87, 0, 400) 45 53 45 54 20 42 49 54 00 56 01 7e 00 1e 00 50 5c 53 43 5c 41 34 2c 4c 52 43 41 43 4b 2c 41 37 5c 41 4e 44 20 53 54 4f 52 45 00 57 00 10 00 22 00 50 5c 4c 44 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 5c 4c 52 43 2d 44 45 56 49 43 45 20 3f 20   ┆ESET BIT V ~   P SC A4,LRCACK,A7 AND STORE W   " P LD A6,LRCDWT,A7 LRC-DEVICE ? ┆
0x862a…867a              00 57 00 32 00 10 00 50 5c 52 46 28 45 29 5c 45 58 49 49 54 00 57 00 58 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 37 46 20 00 57 00 6c 00 16 00 50 5c 52 46 28 5a 29 5c 43 4c 54 30 34 36 5c 59 45 53 20 00 57 00 80 00 38 00 50 5c 43 46 5c 41 31   ┆ W 2   P RF(E) EXIIT W X   P ANK A4,/7F  W l   P RF(Z) CLT046 YES  W   8 P CF A1┆
0x867a…86ca              35 2c 52 45 53 4c 52 43 5c 52 45 53 45 54 20 4c 52 43 2d 20 41 4e 44 20 42 4c 4f 43 4b 53 45 4e 44 2e 20 49 4e 44 49 43 41 54 4f 52 53 20 00 57 00 9a 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 36 5c 44 57 54 2d 41 44 44 52 45 53 53 00 57 00 d6   ┆5,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS  W     P LDR A4,A6 DWT-ADDRESS W  ┆
0x86ca…871a              00 1e 00 50 5c 43 46 5c 41 31 35 2c 51 55 45 53 45 43 5c 43 48 45 43 4b 20 51 55 45 55 45 00 57 00 f4 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 35 20 00 57 01 16 00 26 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 33 33 5c 41 42 43 2b 20 2c 20 47 4f 20   ┆   P CF A15,QUESEC CHECK QUEUE W     P SUK A3,5  W   & P RF(E) CLT033 ABC+ , GO ┆
0x871a…876a              54 4f 20 44 52 49 56 45 52 20 00 57 01 28 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 57 01 52 00 06 00 50 2a 20 00 57 01 68 00 2c 00 50 5c 49 4d 5c 43 57 54 41 44 44 2b 32 2c 41 35 5c 55 50 44 41 54 45 20 45 52 52 4f 52 20 41   ┆TO DRIVER  W (   P IFT ACKMUL=1  W R   P*  W h , P IM CWTADD+2,A5 UPDATE ERROR A┆
0x876a…87ba (88, 0, 400) 43 4b 55 4d 55 4c 41 54 4f 52 00 57 01 72 00 08 00 50 5c 58 49 46 00 58 00 12 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 58 00 1e 00 06 00 50 2a 20 00 58 00 34 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 34 5c 56 52 43 2d 45 52 52 4f   ┆CKUMULATOR W r   P XIF X     P IFF RECHAN=0  X     P*  X 4   P SUK A3,4 VRC-ERRO┆
0x87ba…880a              52 20 3f 20 00 58 00 3e 00 16 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 34 32 5c 59 45 53 20 00 58 00 5c 00 26 00 50 5c 4c 44 4b 5c 41 31 2c 4c 52 43 45 52 52 5c 49 4e 44 49 43 41 54 45 20 4c 52 43 2d 45 52 52 4f 52 20 00 58 00 76 00 22 00 50   ┆R ?  X >   P RF(E) CLT042 YES  X   & P LDK A1,LRCERR INDICATE LRC-ERROR  X v " P┆
0x880a…885a              5c 53 55 4b 5c 41 33 2c 32 5c 4c 52 43 2d 45 52 52 4f 52 20 49 4e 20 42 4c 4f 43 4b 20 3f 00 58 00 a0 00 16 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 33 33 5c 59 45 53 20 00 58 00 c6 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 34 20 00 58 00 e0 00 2c   ┆ SUK A3,2 LRC-ERROR IN BLOCK ? X     P RF(E) CLT033 YES  X     P ADK A3,4  X   ,┆
0x885a…88aa              00 50 5c 52 46 28 45 29 5c 43 4c 54 30 33 33 5c 4c 52 43 2d 20 4f 52 20 56 52 43 2d 45 52 52 4f 52 20 49 4e 20 42 4c 4f 43 4b 00 58 00 f2 00 08 00 50 5c 58 49 46 00 58 01 22 00 10 00 50 43 4c 54 30 32 35 5c 45 51 55 5c 2a 00 58 01 2e 00 12   ┆ P RF(E) CLT033 LRC- OR VRC-ERROR IN BLOCK X     P XIF X "   PCLT025 EQU * X .  ┆
0x88aa…88fa              00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 58 01 42 00 38 00 50 5c 49 4d 5c 43 57 54 41 44 44 2b 34 2c 41 35 5c 55 50 44 41 54 45 20 55 4e 44 45 46 2e 20 49 4e 54 45 52 52 55 50 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 58 01 58   ┆ P IFT ACKMUL=1  X B 8 P IM CWTADD+4,A5 UPDATE UNDEF. INTERRUPT ACKUMULATOR  X X┆
0x88fa…894a (89, 0, 400) 00 08 00 50 5c 58 49 46 00 59 00 04 00 0a 00 50 5c 45 4a 45 43 54 00 59 00 10 00 06 00 50 2a 20 00 59 00 1e 00 30 00 50 2a 20 20 20 20 52 45 53 4f 4c 56 45 20 51 55 45 55 45 20 41 4e 44 20 45 58 41 4d 49 4e 45 20 52 45 43 4f 56 45 52 59 20   ┆   P XIF Y     P EJECT Y     P*  Y   0 P*    RESOLVE QUEUE AND EXAMINE RECOVERY ┆
0x894a…899a              42 49 54 2e 00 59 00 28 00 34 00 50 2a 20 20 20 20 52 45 54 55 52 4e 20 54 4f 20 44 45 56 49 43 45 20 44 52 49 56 45 52 20 57 49 54 48 20 52 45 54 55 52 4e 20 43 4f 44 45 20 3a 20 00 59 00 5c 00 30 00 50 2a 20 20 20 20 20 20 4e 4f 54 20 4f   ┆BIT. Y ( 4 P*    RETURN TO DEVICE DRIVER WITH RETURN CODE :  Y   0 P*      NOT O┆
0x899a…89ea              50 45 52 41 42 4c 45 20 49 46 20 53 45 56 45 4e 20 4e 41 4b 20 4f 52 20 45 43 48 4f 20 4f 52 20 00 59 00 94 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 55 54 50 55 54 20 45 52 52 4f 52 20 28 4f 45 52 29 20 54   ┆PERABLE IF SEVEN NAK OR ECHO OR  Y   4 P*                   OUTPUT ERROR (OER) T┆
0x89ea…8a3a              57 4f 20 54 49 4d 45 53 00 59 00 c8 00 32 00 50 2a 20 20 20 20 20 20 4f 55 54 50 55 54 20 45 52 52 4f 52 20 49 46 20 46 49 52 53 54 20 4f 45 52 20 4f 52 20 55 4e 44 45 46 49 4e 45 44 20 00 59 01 00 00 22 00 50 2a 20 20 20 20 20 20 20 20 20   ┆WO TIMES Y   2 P*      OUTPUT ERROR IF FIRST OER OR UNDEFINED  Y   " P*         ┆
0x8a3a…8a8a              20 20 20 20 20 20 20 20 20 20 49 4e 54 45 52 52 55 50 54 20 00 59 01 36 00 06 00 50 2a 20 00 59 01 5c 00 10 00 50 43 4c 54 30 33 30 5c 45 51 55 5c 2a 00 59 01 66 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 59 01 7a 00 12 00 50   ┆          INTERRUPT  Y 6   P*  Y     PCLT030 EQU * Y f   P IFF RECHAN=0  Y z   P┆
0x8a8a…8ada (90, 0, 398) 5c 49 46 46 5c 4c 4f 43 48 41 4e 3d 30 20 00 59 01 90 00 18 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 52 45 4d 4f 54 45 20 3f 20 00 5a 00 16 00 14 00 50 5c 52 46 28 5a 29 5c 43 4c 54 51 55 45 5c 4e 4f 00 5a 00 32 00 08 00 50 5c 58 49 46 00 5a   ┆ IFF LOCHAN=0  Y     P LDR A7,A7 REMOTE ?  Z     P RF(Z) CLTQUE NO Z 2   P XIF Z┆
0x8ada…8b2a              00 4a 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 5a 00 56 00 14 00 50 5c 4c 44 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 00 5a 00 6c 00 20 00 50 5c 43 57 52 2a 5c 41 36 2c 41 35 5c 4c 52 43 2d 44 45 56 49 43 45 20 3f 5c 3d 33 20   ┆ J   P IFF RECHAN=0  Z V   P LD A6,LRCDWT,A7 Z l   P CWR* A6,A5 LRC-DEVICE ? =3 ┆
0x8b2a…8b7a              00 5a 00 84 00 12 00 50 5c 52 46 28 4e 45 29 5c 43 4c 54 51 55 45 00 5a 00 a8 00 38 00 50 5c 43 46 5c 41 31 35 2c 52 45 53 4c 52 43 5c 52 45 53 45 54 20 4c 52 43 2d 20 41 4e 44 20 42 4c 4f 43 4b 53 45 4e 44 2e 20 49 4e 44 49 43 41 54 4f 52   ┆ Z     P RF(NE) CLTQUE Z   8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATOR┆
0x8b7a…8bca              53 20 00 5a 00 be 00 08 00 50 5c 58 49 46 00 5a 00 fa 00 26 00 50 43 4c 54 51 55 45 5c 43 46 5c 41 31 35 2c 51 55 45 55 45 5c 52 45 53 4f 4c 56 45 20 51 55 45 55 45 20 00 5a 01 06 00 1a 00 50 5c 53 55 4b 5c 41 32 2c 35 5c 53 45 56 45 4e 20   ┆S  Z     P XIF Z   & PCLTQUE CF A15,QUEUE RESOLVE QUEUE  Z     P SUK A2,5 SEVEN ┆
0x8bca…8c18              4e 41 4b 20 3f 20 00 5a 01 30 00 16 00 50 5c 52 46 28 5a 29 5c 43 4c 54 30 34 35 5c 59 45 53 20 00 5a 01 4e 00 2a 00 50 43 4c 54 30 33 31 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 53 54 41 54 55 53 20 57 4f 52 44 20         ┆NAK ?  Z 0   P RF(Z) CLT045 YES  Z N * PCLT031 LD A2,DWTST,A6 GET STATUS WORD ┆
0x8c18…8c68 (91, 0, 400) 00 5a 01 68 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 5b 00 08 00 30 00 50 5c 41 4e 4b 4c 5c 41 32 2c 44 45 56 45 43 48 2b 52 45 43 54 52 49 5c 45 43 48 4f 20 41 4e 44 20 52 45 43 4f 56 45 52 59 20 42 49 54 00 5b 00 1a 00 12 00 50 5c 52   ┆ Z h   P LDR A3,A2 [   0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [     P R┆
0x8c68…8cb8              46 28 4e 45 29 5c 43 4c 54 30 34 35 00 5b 00 4e 00 30 00 50 5c 4f 52 4b 5c 41 33 2c 52 45 43 54 52 49 5c 49 4e 44 49 43 41 54 45 20 52 45 43 4f 56 45 52 59 20 54 52 49 41 4c 20 44 4f 4e 45 20 00 5b 00 64 00 1a 00 50 5c 53 54 5c 41 33 2c 44   ┆F(NE) CLT045 [ N 0 P ORK A3,RECTRI INDICATE RECOVERY TRIAL DONE  [ d   P ST A3,D┆
0x8cb8…8d08              57 54 53 54 2c 41 36 5c 53 54 4f 52 45 20 00 5b 00 98 00 2e 00 50 43 4c 54 30 33 32 5c 4c 44 4b 5c 41 31 2c 4f 55 54 45 52 52 5c 49 4e 44 49 43 41 54 45 20 4f 55 54 50 55 54 20 45 52 52 4f 52 00 5b 00 b6 00 10 00 50 43 4c 54 30 33 33 5c 45   ┆WTST,A6 STORE  [   . PCLT032 LDK A1,OUTERR INDICATE OUTPUT ERROR [     PCLT033 E┆
0x8d08…8d58              51 55 5c 2a 00 5b 00 e8 00 28 00 50 5c 41 42 4c 5c 43 4c 54 31 30 37 5c 52 45 54 55 52 4e 20 54 4f 20 44 45 56 49 43 45 20 44 52 49 56 45 52 20 00 5b 00 fc 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 5b 01 28 00 0a 00 50 5c 45   ┆QU * [   ( P ABL CLT107 RETURN TO DEVICE DRIVER  [     P IFF RECHAN=0  [ (   P E┆
0x8d58…8da8              4a 45 43 54 00 5b 01 3e 00 06 00 50 2a 20 00 5b 01 4c 00 18 00 50 2a 20 20 20 20 41 42 43 2d 20 20 56 52 43 2d 45 52 52 4f 52 00 5b 01 56 00 06 00 50 2a 20 00 5b 01 72 00 38 00 50 2a 20 20 20 20 49 46 20 42 4c 4f 43 4b 53 45 4e 44 49 4e 47   ┆JECT [ >   P*  [ L   P*    ABC-  VRC-ERROR [ V   P*  [ r 8 P*    IF BLOCKSENDING┆
0x8da8…8df8 (92, 0, 398) 20 53 41 4d 45 20 50 52 4f 43 45 44 55 52 45 20 41 53 20 46 4f 52 20 54 48 45 20 4f 54 48 45 52 00 5b 01 7c 00 1e 00 50 2a 20 20 20 20 45 52 52 4f 52 53 20 4f 46 20 54 59 50 45 20 41 42 43 2d 2e 20 00 5c 00 28 00 34 00 50 2a 20 20 20 20 49   ┆ SAME PROCEDURE AS FOR THE OTHER [ |   P*    ERRORS OF TYPE ABC-.    ( 4 P*    I┆
0x8df8…8e48              46 20 4f 55 54 50 55 54 20 54 4f 20 50 52 49 4e 54 45 52 53 20 57 49 54 48 20 4c 52 43 2d 43 4f 4e 54 52 4f 4c 20 53 41 4d 45 00 5c 00 4a 00 20 00 50 2a 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 41 53 20 46 4f 52 20 41 42 43 2b 2e 20 00 5c   ┆F OUTPUT TO PRINTERS WITH LRC-CONTROL SAME   J   P*    PROCEDURE AS FOR ABC+.   ┆
0x8e48…8e98              00 82 00 06 00 50 2a 20 00 5c 00 a6 00 10 00 50 43 4c 54 30 34 32 5c 45 51 55 5c 2a 00 5c 00 b0 00 20 00 50 5c 4c 44 5c 41 34 2c 44 57 54 53 54 2c 41 36 5c 53 54 41 54 55 53 20 57 4f 52 44 20 00 5c 00 c4 00 22 00 50 5c 41 4e 4b 5c 41 34 2c   ┆     P*        PCLT042 EQU *       P LD A4,DWTST,A6 STATUS WORD      " P ANK A4,┆
0x8e98…8ee8              44 45 57 44 52 51 5c 42 4c 4f 43 4b 20 53 45 4e 44 49 4e 47 20 3f 00 5c 00 e8 00 16 00 50 5c 52 42 28 4e 5a 29 5c 43 4c 54 30 33 31 5c 59 45 53 00 5c 01 0e 00 2c 00 50 43 4c 54 30 34 33 5c 52 42 5c 43 4c 54 30 33 33 5c 52 45 54 55 52 4e 20   ┆DEWDRQ BLOCK SENDING ?       P RB(NZ) CLT031 YES     , PCLT043 RB CLT033 RETURN ┆
0x8ee8…8f36              54 4f 20 44 45 56 49 43 45 20 44 52 49 56 45 52 00 5c 01 28 00 08 00 50 5c 58 49 46 00 5c 01 58 00 0a 00 50 5c 45 4a 45 43 54 00 5c 01 64 00 06 00 50 2a 20 00 5c 01 72 00 12 00 50 2a 20 20 20 20 50 4f 57 45 52 20 4f 4e 20 00 5c 01 7c         ┆TO DEVICE DRIVER   (   P XIF   X   P EJECT   d   P*    r   P*    POWER ON    |┆

Reduced view