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

⟦c06502c86⟧

    Length: 22044 (0x561c)
    Notes: pts_type(SC)
    Names: »DRGP01.SC«

Derivation

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

PTS(SC)

	IDENT DRGP01 	REL 11.0 81-05-25 870105041100 

			=12,COND. ASS. FOR ECHO
			REL 11.0 81-01-26
			=11,BRANCH ADDR. OVERFLOW
			PRR 11.0 80-11-19
			=10,IMPROV. FOR REMOTE (RT)
			PRR 11.0 80-09-18
			=9,CHANGE IN ERROR ROUTINE 
			PRR 11.0 80-09-16
			=8,ABORT ROUTINE IMPLEMENTED 
			PRR 11.0 80-07-28
			=7,BRANCH ADDR. OVERFL.
			PRR 11.0 80-04-29
			=6,IMPROV. OF ERROR HANDLING 
			PRR 11.0 80-03-18
			=5,TENDIO AT ECHO END
			PRR 11.0 80-03-13
			=4,CORRECTION OF MMU BUFFER EQUATE 
			PRR 11.0 80-02-05
			=3,ADAPTED TO NEW INTERFACE
			REL 9.1 79-04-06 
			=1-2,GEN UPDATE TO 8.2+ STATUS 
			REL 8.2 79-03-16 
			=2,IMPROV. OF TEST ORDER 
			REL 8.2 78-11-19 
			=1,ECHO OF LF AND CR, ABIS 
			REL 8.2 78-09-15 
* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRGP01 = DRIVER GENERAL PRINTER 
* 
* 
* 
* 
* 
* 
************************************************* 
* 
* 
*    THIS DRIVER HANDLES GENERAL TERMINAL PRINTER 
*    PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. 
* 
*    THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 
*    FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE
*    GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY-
*    BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD
*    DRIVER DRKB04. 
* 
* 
*    THE DRIVER CONSISTS OF FOLLOWING PARTS:
* 
*    A C G P       ACTIVATION PART
* 
*    A B G P       ABORT ROUTINE
* 
*    R C G P       RECOVERY ROUTINE 
* 
*    E C H O G P   ECHO FUNCTIONS 
* 
	EJECT
* 
*    THE FOLLOWING ORDERS ARE TREATED:
* 
*    ORDER 00: TEST STATUS
*          05: BASIC WRITE
*          06: STANDARD WRITE 
* 
*    NORMAL REGISTER USAGE
* 
*    REGISTER A1 = RETURN CODE
*             A2 = OUTPUT CHARACTER 
*             A3 = BUFFER INDEX 
*             A4 = WORK REGISTER
*             A5 = STACK BASE 
*             A6 = DWT-ADDRESS
*             A7 = ORDER
*             A8 = ECB-ADDRESS
* 
* 
*    SYSTEM ADAPTATION
* 
*    THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR
*    (GPCLR) KEYS SHOULD BE DEFINED.
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS 
*    ADAPTED TO HANDLE FOLLOWING FUNCTIONS. 
*    --ROOMLESS POINT 
*    --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH
* 
*    --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER 
*    --SUPPRESS ECHOING OF END OF RECORD CHARACTER
**    --SUPPRESION OF TRAILING BLANKS 
*    --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE
* 
*    THE CHARACTER CODES FOR ROOMLESS POINT DIGITS
*    IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET 
	EJECT
* 
* 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
* 
	ENTRY	GPAD	ADDRESS TO ADDRESSBLOCK 
	ENTRY	ECHOGP	DEVICE-DEPENDENT ECHO-ROUTINE 
* 
* 
* 
* 
***************************************** 
*    EXTERNAL TOSS MODULE ENTRIES       * 
***************************************** 
* 
* 
	EXTRN	LENDER	I/O REQUEST ERROR	=3
	EXTRN	OUTPUT	SUBROUTINE TO SEND CHARACTER
	EXTRN	LDISP	DISPATCHER	=3
	EXTRN	TENDIO	END I/O 
	EXTRN	ECHRTN	RETURN TO KEYBOARD AFTER ECHO 
	EXTRN	GETCHR	GET CHARACTER FROM ECB-BUFFER 
	EXTRN	STABLK	START OF BLOCK	=3 
	EXTRN	ENDBLK	END OF BLOCK	=3 
	EJECT
* 
* 
************************
*    DWT PARAMETERS    *
************************
* 
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTOR	ORDER
	EXTRN	DWTA3	SAVE AREA A3 
	EXTRN	DWTDEV	START OF DRIVER DEFINED PART	=3 
* 
	EJECT
* 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
SOH	EQU	/01	RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 
STX	EQU	/82	START OF MESSAGE
ETB	EQU	/97	END OF MESSAGE
ETX	EQU	/03	LAST DUMMY
CR	EQU	/0D	CARRIAGE RETURN
LF	EQU	/0A	LINE FEED
FFED	EQU	/0C	FORM FEED
SPACE	EQU	/20	SPACE 
PROUT	EQU	/04	PAPER OUT OR READY SWITCH OFF 
* 
BLKMAX	EQU	140	MAX BLOCK LENGTH	=3
	EJECT
* 
* 
**************************************
*    CONDITIONAL ASSEMBLY            *
**************************************
* 
*    IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 
*    FUNCTION BY SETTING X:A = 0
* 
X:A	EQU	1 
CROOM	EQU	X:A 
* 
*    ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 
*    INCLUDED IN THE DRIVER BY SETTING X:B=1
* 
X:B	EQU	0 
TRETON	EQU	X:B
* 
*    ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE 
*    INCLUDED IN THE DRIVER BY SETTING X:C=1
* 
X:C	EQU	0 
FJOTON	EQU	X:C
* 
*    ECHO HANDLING IS INCLUDED IF ECHO = 1
* 
X:D	EQU	1	U	=12 
ECHO	EQU	X:D	U	=12
* 
*    IT IS POSSIBLE TO EXCLUDE ECHOING OF 
*    AN EXTRA SPACE AFTER EACH CHARACTER
*   BY SETTING X:E=0
* 
X:E	EQU	0 
COSPAC	EQU	X:E
	EJECT
* 
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.
*    THIS IS ATTAINED BY SETTING THE CONSTANT X:F=0.
* 
X:F	EQU	0 
EORECH	EQU	X:F
* 
*    SUPPRESSING OF SPACES IN RIGHT HAND OF LINE
*    BY SETTING X:G=1 
* 
X:G	EQU	0 
SUPSPA	EQU	X:G
* 
* END OF REQUEST IN SITUATIONS WHERE
* THE SELECTOR UNIT OR PRINTER HARDWARE 
* IS INACTIVE CAN BE CHOSEN BY SETTING
* THE CONSTANT RECEND = 1 
X:H	EQU	0 
RECEND	EQU	X:H
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
*   MMU BUFFER SIZE 
* 
X:I	EQU	120		=4 
DVBLEN	EQU	X:I		=4
*				=1 
* SPECIAL CONDITION FOR ABIS PRINTER		=1
ABIS	EQU	0		=1
	EJECT
* 
* 
********************************
*    DWT-DISPLACEMENT          *
********************************
* 
* 
				=3
DWTAP	EQU	/2	HEAD POSITON POINTER	=3
DWTPOC	EQU	/4	POSITON COUNTER	=3
DWTBC	EQU	/5	BYTE COUNTER	=3
* 
**************************************
*    SPECIAL KEYS FOR ECHO FUNCTION   * 
**************************************
* 
GPBSP	EQU	/2D	BACK SPACE
GPCLR	EQU	/3F	CLEAR 
* 
********************
*    RETURN CODES  *
********************
* 
PAROUT	EQU	/20	PAPER OUT OR READY SWITCH OFF
CCERR	EQU	/4	CODE CHECK ERROR 
TPERR	EQU	/2	THROUGHPUT ERROR 
OPERR	EQU	/1	NOT OPERABLE, POWER OFF
* 
	EJECT
* 
* 
**********
* TABLES *
**********
* 
* 
	IFT	CROOM=1
* 
ROMTAB	EQU	*
			TABLE FOR ROOMLESS POINT CHARACTERS
	DATA	/2122,/2426,/3B3C,/3E40,/5E5F 
* 
	XIF
* 
* 
* 
	DATA	DVBLEN	MMU BUFFER LENGTH
	DATA	2	DEVICE INDEX
GPAD	EQU	*	ADDRESS BLOCK
	DATA	ACGP	ACTIVATION DRIVER
	DATA	ABGP	ABORT ROUTINE ADDRESS	=8 
	DATA	0	INTERRUPT HANDLER 
	DATA	RCGP	RECOVERY ROUTINE 
	DATA	ECHOGP	DEVICE-DEPENDENT ECHO-ROUTINE
	EJECT
* 
*    A C G P
* 
*    ACGP = ACTIVATION DRIVER GENERAL PRINTER 
* 
*    ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE
*              IS SET IF PAPER OUT OR READY SWITCH OFF. 
*              RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM
*              CHANNEL UNIT.
* 
*    ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER 
*              FROM ECB-BUFFER
* 
*    ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM
*               ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. 
* 
ACGP	EQU	*
				=3
	LDR	A3,A7		=1
	RF(Z)	ACGP10	ORDER 0	=2
	LDK	A2,BLKMAX	BLOCK LENGTH	=3
	CF	A5,STABLK	START OF BLOCK	=3 
	RF(NZ)	ERGP1	ERROR	=3
	SUK	A3,5		=1 
	RF(E)	ACGP19	ORDER 5	=3(=1)
	SUK	A3,1		=1 
				=3
	RF(E)	ACGP00	ORDER 6	=3
	CF	A5,ENDBLK	END OF BLOCK	=3 
	ABL	LENDER	I/O REQUEST ERROR	=3
ACGP00	EQU	*		=3
	LD	A3,4,A8	ORDER 6 GET REQ LENGTH	=1 
	RF(Z)	ACGP01		=1 
	LD	A3,2,A8	GET BUFFER ADDRESS	=1 
	LC	A3,1,A3	GET CONTROL CHARACTER	=1
	ANK	A3,/FF		=1 
ACGP01	SUK	A3,/2B		=1 
				=3
	RF(NE)	ACGP02	NOT CONTROL CHAR 2B	=3 
	LDK	A3,2	START BUFFER INDEX	=3 
	RF	ACGP19		=3
ACGP02	EQU	*		=3
	LDK	A2,CR		=1
	CF	A5,OUTPUT		=1 
	RF(NZ)	ERGP1	ERROR	=3
	IFT	ABIS=1		=1 
	LDK	A2,FFED		=1
	CWK	A3,/31-/2B		=1 
	RF(E)	ACGP03	CONTROL CHAR 31	=1
	XIF			=1 
	LDK	A2,LF		=1
	SUK	A3,/30-/2B		=1 
	RF(NE)	ACGP03	NOT CONTROL CHAR 30	=1 
	CF	A5,OUTPUT		=1 
	RF(NZ)	ERGP1	ERROR	=3
	LDK	A2,LF		=1
ACGP03	LDK	A1,1	RESET HEAD POS COUNTR	=1
	ST	A1,DWTAP+DWTDEV,A6		=3(=1)
ACGP06	LDK	A3,2	START BUFFER INDEX	=1 
ACGP09	CF	A5,OUTPUT		=1 
ERGP1	RF(NZ)	ERGP2	ERROR	=3 
	LDK	A2,ETX	DUMMY	=10 
	CF	A5,OUTPUT	WAIT UNTIL PRINTBUFFER EMPTY	=10
	RF(NZ)	ERGP2	ERROR	=10 
	RF	ACGP19		=1
	EJECT			=2 
*				=2 
*   ORDER 00: TEST		=2
*                IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE  	=2 
*				=2 
ACGP10	EQU	*
	LDK	A2,2	BLOCK LENGTH	=10(=3)
	CF	A5,STABLK	START OF BLOCK	=3 
	RF(NZ)	ERGP2	ERROR	=3
	LDK	A2,2	SEND CHAR /02	=2
	CF	A5,OUTPUT		=2 
	RF(NZ)	ERGP2	ERROR	=3
	LDK	A2,0	SEND CHAR /00=END OF TEST	=2
	CF	A5,OUTPUT		=2 
	RF(NZ)	ERGP2	ERROR	=3
	RF	AGP400		=10(=2) 
	EJECT
* 
*    GET, CHECK AND SEND CHARACTER
*    (IF ORDER 5 NO CHECK)
* 
ACGP17	CF	A5,OUTPUT 
	RF(NZ)	ERGP2	ERROR	=3
ACGP18	IM	DWTPOC+DWTDEV,A6	POSITION COUNTER UPDATING	=3 
ACGP19	EQU	*
	LDKL	A4,/400	INDICATE LINE FEED DONE 
	ORS	A4,DWTDEV,A6		=3 
	IFT	SUPSPA=1 
	CF	A15,SKIPSP	SKIP SPACES IN END OF ECB-BUFFER 
	XIF
	LDK	A4,0 
ACGP20	CF	A15,GETCHR	GET CHARACTER FROM ECB-BUFFER
	LDR	A1,A1	LAST CHARACTER?
	RF(NP)	AGP400	YES
	LDR	A1,A2
	CWK	A7,5	ORDER 5?	=3 
	RF(E)	ACGP24	BASIC WRITE 
	SUK	A1,9	HARDWARE TABULATION ? 
	RF(NE)	ACGP22
	ST	A4,DWTAP+DWTDEV,A6	RESET HEAD POSITION POINTER	=3 
	RB	ACGP17
ACGP22	SUK	A1,8	TABULATION CHARACTER ?
	RF(E)	ACGP40 
	IFT	ABIS=1		=1 
	CWK	A2,/07	BELL ?	=1 
	RB(E)	ACGP09		=1 
	XIF			=1 
* 
	IFT	TRETON=0 
	IFT	FJOTON=0 
* 
	SUK	A1,/F	LESS THAN /20 ?
* 
	XIF
* 
	IFT	TRETON=0 
	IFT	FJOTON=1 
* 
	SUK	A1,3	/14?
	RB(E)	ACGP17 
	SUK	A1,/C	LESS THAN /20 ?
* 
	XIF
* 
* 
	IFT	TRETON=1 
	IFT	FJOTON=0 
* 
	SUK	A1,2	/13 ? 
	RB(E)	ACGP17 
	SUK	A1,/D	LESS THAN /20 ?
	XIF
* 
* 
	IFT	TRETON=1 
	IFT	FJOTON=1 
* 
	SUK	A1,2	/13?
	RB(E)	ACGP17 
	SUK	A1,1	/14?
	RB(E)	ACGP17 
	SUK	A1,/C	LESS THAN /20 ?
* 
	XIF
* 
	RF(N)	ACGP30	YES,CODE CHECK ERROR
	SUK	A1,/8E	ROOMLESS POINT?  (AE) 
	RF(E)	AGP100 
	ADK	A1,/4F	GREATER THAN /5F
	RB(NP)	ACGP17	NO 
	SUK	A1,/20 
	RF(NN)	ACGP30
	SUK	A2,/20	TRANSFORM CHARACTER BETWEEN /60 TO /7F
			TO CHARACTER BETWEEN /40 TO /5F
	RB	ACGP17
ACGP24	EQU	*
	SUK	A1,/D
	RF(NZ)	ACGP26	NOT CR 
	CM	DWTPOC+DWTDEV,A6	RESET POSITION COUNTER	=3
	CM	DWTAP+DWTDEV,A6	RESET HEAD POS.POINTER	=3 
ACGP26	ADK	A1,3 
	RB(NZ)	ACGP17	NOT LINE FEED
	SUK	A1,1 
	ADS	A1,DWTPOC+DWTDEV,A6	DECREMENT POS COUNTER	=3 
	RB	ACGP17
	EJECT
* 
*    CODE CHECK ERROR 
* 
ACGP30	EQU	*
	LDK	A1,CCERR 
	ORS	A1,8,A8	RETURN CODE
	RB	ACGP20
	EJECT
* 
*    TABULATION 
* 
ACGP40	EQU	*
	CF	A15,GETCHR	GET FIRST ASCII CHARACTER
	LDR	A4,A2
	CF	A15,GETCHR	GET SECOND ASCII CHARACTER 
	ANK	A2,/F
	ANK	A4,/F
	RF(E)	ACGP44 
ACGP43	ADK	A2,/A	FROM DECIMAL TO HEXADECIMAL
	SUK	A4,1 
	RB(NE)	ACGP43
ACGP44	SU	A2,DWTAP+DWTDEV,A6	SUBTRACT HEAD POSITION POINTER	=3
	LC	A4,DWTBC+DWTDEV,A6		=3
	SUR	A2,A4	AND REQUESTS POSITION COUNTER
			TO GET NUMBER OF SPACES TO SEND
	RB(NP)	ACGP20
	LDR	A4,A2
ACGP45	LDK	A2,SPACE	LOOP ALSO USED BY RECOVERY ROUTINE
ACGP46	CF	A5,OUTPUT 
ERGP2	RF(NZ)	ERGP	ERROR	=3
	IM	DWTPOC+DWTDEV,A6	INCREMENT BUFFER INDEX	=3
	SUK	A4,1 
	RB(P)	ACGP45 
	LDR	A3,A3	RECOVERY?
	RB(NE)	ACGP20	NO 
	SC	A4,DWTBC+DWTDEV,A6	RESET POSITION POINTER	=3
	LDK	A3,2	START BUFFER INDEX
	RB	ACGP19
	EJECT
* 
*    ROOMLESS POINT 
* 
AGP100	EQU	*
* 
	IFT	CROOM=1
* 
	CF	A15,GETCHR	GET CHARACTER TO SEND
	ANK	A2,/F
	LC	A2,ROMTAB,A2	TRANSFORM
* 
	XIF
* 
* 
	IFF	CROOM=1
* 
	ANK	A2,/7F 
* 
	XIF
* 
	RB	ACGP17
	EJECT
* 
* 
*    SEND LAST DUMMY , LOAD A1 WITH 
*    RETURN CODE AND END I/O
* 
AGP400	EQU	*
				=3
	CF	A5,ENDBLK	END OF BLOCK	=10
	RF(NZ)	ERGP	ERROR	=10
	LDK	A2,1	BLOCK LENGTH	=10
	CF	A5,STABLK	START OF BLOCK	=10
	RF(NZ)	ERGP	ERROR	=10
AGP410	LDK	A2,ETX	LAST DUMMY
	CF	A5,OUTPUT	SEND
	RF(NZ)	ERGP	ERROR	=6 
	CF	A5,ENDBLK	END OF BLOCK	=6 
	RF(NZ)	ERGP	ERROR	=6 
AGP415	EQU	*		=1
	IFT	ABIS=1		=1 
	ANK	A2,/4	PAPER IN ?	=1
	RF(NZ)	AGP420	YES	=1 
	LDK	A1,/20	SET RETURN CODE	=1
	XIF			=1 
AGP420	EQU	*
	CF	A15,UPDAPP	UPDATE HEAD POSITION COUNTER 
	LDKL	A4,/FBFF		=3
	ANS	A4,DWTDEV,A6	RESET 'LINE FEED CONTROL'	=3
ENDIO	EQU	* 
				=6(=3)
	CF	A15,TENDIO	END I/O
EXIT	ABL	LDISP	GO TO DISPATCHER	=3
AGP430	EQU	*
	LD	A3,DWTA3,A6 
	ST	A3,6,A8	EFF. LENGTH 
	RB	AGP415		=1
	EJECT
* 
* 
*    UPDAPP = SUBROUTINE TO UPDATE HEAD 
*             POSITION POINTER WHEN END 
*             OF REQUEST IS REACHED 
UPDAPP	EQU	*
	LC	A3,DWTBC+DWTDEV,A6	GET POSITION COUNTER	=3
	ADS	A3,DWTAP+DWTDEV,A6	UPDATE HEAD POSITION POINTER	=3 
	LDK	A3,0 
	SC	A3,DWTBC+DWTDEV,A6	RESET POSITION COUNTER	=3
	RTN	A15
	IFT	SUPSPA=1 
	EJECT
* 
* 
*    SKIPSP = SUBROTINE TO SKIP SPACES
*             IN END OF ECB-BUFFER. 
*             REQUESTED LENGTH IN ECB IS UPDATED. 
*             A1,A2,A4 - WORK REG 
* 
SKIPSP	EQU	*
	LD	A1,2,A8	GET BUFFER ADDRESS (BA) 
	LD	A2,4,A8	GET REQUESTED LENGTH(RL)
	ADR	A1,A2	GET ADD END OF BUFFER
SKIP05	CWK	A2,2 
	RF(NG)	SKIP30	RL < 3 
	SUK	A1,1	DECR. BA
	LCR	A4,A1	GET CHAR 
	CCK	A4,/2020	SPACE ? 
	RF(NE)	SKIP20	NO 
SKIP07	SUK	A2,1	DECR RL 
	RB	SKIP05	GET NEXT 
SKIP20	CWK	A2,4 
	RF(NG)	SKIP30	RL < 5 
	LC	A4,-2,A1	GET CHAR 
	CCK	A4,/1111	TABULATION CHAR ? 
	RF(NE)	SKIP30	NO 
	SUK	A1,2	DECR BA 
	SUK	A2,2	DECR RL 
	RB	SKIP07	GET NEXT 
* 
SKIP30	ST	A2,4,A8	STORE NEW RL
	RTN	A15
	XIF
	EJECT
* 
*    E R G P
* 
*    ERROR ROUTINE
* 
* 
ERGP	EQU	*		=3
	LDR	A2,A1	SAVE RETURN CODE	=10 
	ANK	A1,/12	OUTPUT ERROR OR LRC-ERROR ?	=10(=9) 
	RF(NZ)	RCGP	YES, EXECUTE RECOVERY	=9 
	LDR	A7,A7	ORDER 0 ?	=3 
				=6(=3)
	RF(NZ)	ERGP10	NO	=6
	LDK	A1,OPERR	SET RETURN CODE NOT OPERABLE	=6 
	RB	ENDIO	END I/O	=6
* 
ERGP10	EQU	*		=6
	ANK	A2,/08	SOFTWARE TIME-OUT ?	=10 
	RF(NZ)	RCGP	YES,EXECUTE RECOVERY	=10 
				=9(=6)
				=9(=6)
	IFT	RECEND=0		=3 
	RB	EXIT		=3
	XIF			=3 
	IFT	RECEND=1		=3 
	LDK	A1,OPERR	SET RETURN CODE NOT OPERABLE	=6 
	RB	AGP430		=3
	XIF			=3 
	EJECT
* 
*    E C H O G P
* 
*    ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE 
* 
ECHOGP	EQU	*
	IFT	ECHO=1	U	=12 
	LDK	A4,COSPAC
	LDR	A7,A7	END OF ECHO ?
	RF(N)	ECGP17	YES 
* 
	IFT	EORECH=0 
* 
	SUK	A2,/80	EOR-CHARACTER 
	RF(NN)	ECGP20	YES
	ADK	A2,/80 
* 
	XIF
	IFT	ECHO=1	U	=12 
* 
	LDR	A1,A2
	ANK	A1,/7F 
	SUK	A1,/8
	RF(E)	ECGP40	BACKSPACE 
	SUK	A1,/2	LINE FEED	=1 
	RF(E)	ECGP05	YES	=3(=1)
	SUK	A1,/3	CR	=1
	RF(E)	ECGP05	YES	=3(=1)
	SUK	A1,/B		=1
	RF(E)	ECGP50	CLEAR 
	SUK	A1,/20-/8-/10	CHECK THAT CHAR IS WITHIN /20-/5F
	RF(N)	ECGP20 
	SUK	A1,/5F-/20 
	RF(P)	ECGP20 
ECGP05	EQU	*		=3
	LDR	A3,A2	SAVE CHARACTER	=3
	LDK	A2,COSPAC+1	BLOCK LENGTH	=3
	CF	A5,STABLK	START OF BLOCK	=3 
	RF(NZ)	ECGP20	ERROR	=6 
	LDR	A2,A3	GET CHARACTER	=3 
ECGP10	CF	A5,OUTPUT	SEND CHARACTER
	RF(NZ)	ECGP20	ERROR	=6 
	IM	DWTPOC+DWTDEV,A6	UPDATE POSITION COUNTER	=3 
	SUK	A4,1	READY ? 
	RF(N)	ECGP80	YES	=3
	RF(P)	ECGP60	NO, GO TO CLEAR SECTION 
* 
	IFT	COSPAC=1 
* 
	LDK	A2,SPACE	NO SEND SPACE 
	RB	ECGP10
* 
	XIF
* 
	IFT	ECHO=1	U	=12 
ECGP17	CF	A15,UPDAPP	UPDATE HEAD POSITION POINTER 
	XIF		U	=12 
	CF	A15,TENDIO	SET GP DWT FREE	=5 
ECGP20	ABL	ECHRTN	RETURN TO KEYBOARD
	IFT	ECHO=1	U	=12 
	EJECT
* 
*    BACKSPACE
* 
ECGP40	EQU	*
	LDK	A2,GPBSP	BACKSPACE CHARACTER 
	RB	ECGP05		=3
* 
*    CANCEL 
* 
ECGP50	EQU	*
	LC	A3,DWTBC+DWTDEV,A6	BYTE COUNTER	=3
	ANK	A3,/FF	CLEAN	=3
	ADK	A3,1	ADD FOR CLEAR CHAR.	=10 
	LDR	A2,A3	NUMBER OF BACKSPACE CHARACTERS	=3
	ADK	A2,2	ADD TO BLOCK LENGTH	=3
	CF	A5,STABLK	START OF BLOCK	=3 
	RB(NZ)	ECGP20	ERROR	=6 
	LDK	A2,GPCLR	CLEAR CHARACTER 
	LDK	A4,3 
	RB	ECGP10
ECGP60	LDK	A2,LF	LINE FEED
				=3
ECGP70	CF	A5,OUTPUT	SEND CHAR.
	RB(NZ)	ECGP20	ERROR	=6 
	LDK	A2,/08	BACKSPACE 
	SUK	A3,1 
	RB(NN)	ECGP70
	LDK	A3,0 
	SC	A3,DWTBC+DWTDEV,A6	RESET POSITION COUNTER	=3
ECGP80	EQU	*		=3
	CF	A5,ENDBLK	END OF BLOCK	=3 
	RB	ECGP20
	XIF		U	=12 
	EJECT
* 
*    R C G P
* 
*    RCGP = RECOVERY ROUTINE GENERAL PRINTER
* 
* 
*    RECOVERY IS CARRIED OUT ONLY IF
*    ORDER 6 IS RUNNING 
* 
*    ON ENTRY:
* 
*    A6 = DWT-ADDRESS 
*    A7 = ORDER 
*    A8 = ECB-ADDRESS 
RCGP	EQU	*
				=3
				=6
	LDR	A8,A8	BUSY ?	=6
	ABL(Z)	ENDIO	NO	=11(=6)
	LDK	A2,1	BLOCK LENGTH	=10(=3)
	CF	A5,STABLK	START OF BLOCK	=3 
	RB(NZ)	ERGP	ERROR	=3 
	LDK	A2,SOH	RESET PRINT BUFFER CODE 
	CF	A5,OUTPUT	SEND IT 
	RB(NZ)	ERGP	ERROR	=3 
	CF	A5,ENDBLK	END OF BLOCK	=10
	RB(NZ)	ERGP	ERROR	=10
	CWK	A7,5 
	RF(E)	RCGP10 
	CWK	A7,6	ORDER 6?
	RF(E)	RCGP05	YES 
				=10(=6) 
				=10(=6) 
	CWK	A7,0	ORDER 0?
	ABL(E)	ENDIO	U	=7
				=6(=3)
	ABL	EXIT	U	=7
RCGP05	EQU	*
	LC	A2,DWTDEV,A6	GET LEFT BYTE OF STATUS WORD	=3
	ANK	A2,/4	LINE FEED DONE ? 
	ABL(E)	ACGP	NO	=3(=10) 
	LDK	A2,BLKMAX	BLOCK LENGTH	=10 
	CF	A5,STABLK	START OF BLOCK	=10
	RB(NZ)	ERGP	ERROR	=10
	LDK	A2,SPACE 
	CF	A5,OUTPUT	SEND SPACE
	RB(NZ)	ERGP	ERROR	=3 
				=3
	LDK	A2,CR	CARRIAGE RETURN
	LDK	A3,0 
	LD	A4,DWTAP+DWTDEV,A6	GET NUMBER OF SPACES TO SEND	=3
	ABL	ACGP46 
				=6
RCGP10	EQU	*		=6
				=10(=6) 
				=10(=6) 
	LDK	A1,TPERR	SET RETURN CODE	=6
	ABL	AGP430 
* 
* 
*    A B G P
* 
*    ABORT ROUTINE
* 
ABGP	EQU	*	U	=8 
	CF	A15,UPDAPP	UPDATE HEAD POSITION POINTER	=8
	ABL	ENDIO	END I/O AND DISPATCH	=8
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP01  REL 11.0 81-05-25 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060              Head {h00=0x001e, h01=0x0050, text=»   =12,COND. ASS. FOR ECHO«, t00=0x0000, t01=0x0042}
0x0060…007c              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0000, t01=0x0064}
0x007c…00a0              Head {h00=0x0020, h01=0x0050, text=»   =11,BRANCH ADDR. OVERFLOW«, t00=0x0000, t01=0x0080}
0x00a0…00bc              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-11-19«, t00=0x0000, t01=0x00a4}
0x00bc…00e2              Head {h00=0x0022, h01=0x0050, text=»   =10,IMPROV. FOR REMOTE (RT)«, t00=0x0000, t01=0x00c0}
0x00e2…00fe              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-09-18«, t00=0x0000, t01=0x00e6}
0x00fe…0124              Head {h00=0x0022, h01=0x0050, text=»   =9,CHANGE IN ERROR ROUTINE «, t00=0x0000, t01=0x0102}
0x0124…0140              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-09-16«, t00=0x0000, t01=0x0128}
0x0140…0168              Head {h00=0x0024, h01=0x0050, text=»   =8,ABORT ROUTINE IMPLEMENTED «, t00=0x0000, t01=0x0144}
0x0168…0184              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-07-28«, t00=0x0000, t01=0x016c}
0x0184…01a6              Head {h00=0x001e, h01=0x0050, text=»   =7,BRANCH ADDR. OVERFL.«, t00=0x0000, t01=0x0188}
0x01a6…01c2              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-04-29«, t00=0x0001, t01=0x001a}
0x01c2…01ea              Head {h00=0x0024, h01=0x0050, text=»   =6,IMPROV. OF ERROR HANDLING «, t00=0x0001, t01=0x0036}
0x01ea…0206              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-03-18«, t00=0x0001, t01=0x005e}
0x0206…0226              Head {h00=0x001c, h01=0x0050, text=»   =5,TENDIO AT ECHO END«, t00=0x0001, t01=0x007a}
0x0226…0242              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-03-13«, t00=0x0001, t01=0x009a}
0x0242…0270              Head {h00=0x002a, h01=0x0050, text=»   =4,CORRECTION OF MMU BUFFER EQUATE «, t00=0x0001, t01=0x00b6}
0x0270…028c              Head {h00=0x0018, h01=0x0050, text=»   PRR 11.0 80-02-05«, t00=0x0001, t01=0x00e4}
0x028c…02b2              Head {h00=0x0022, h01=0x0050, text=»   =3,ADAPTED TO NEW INTERFACE«, t00=0x0001, t01=0x0100}
0x02b2…02ce              Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-04-06 «, t00=0x0001, t01=0x0126}
0x02ce…02f8              Head {h00=0x0026, h01=0x0050, text=»   =1-2,GEN UPDATE TO 8.2+ STATUS «, t00=0x0001, t01=0x0142}
0x02f8…0314              Head {h00=0x0018, h01=0x0050, text=»   REL 8.2 79-03-16 «, t00=0x0001, t01=0x016c}
0x0314…0338              Head {h00=0x0020, h01=0x0050, text=»   =2,IMPROV. OF TEST ORDER «, t00=0x0001, t01=0x0188}
0x0338…0354              Head {h00=0x0018, h01=0x0050, text=»   REL 8.2 78-11-19 «, t00=0x0002, t01=0x001c}
0x0354…037a              Head {h00=0x0022, h01=0x0050, text=»   =1,ECHO OF LF AND CR, ABIS «, t00=0x0002, t01=0x0038}
0x037a…0396              Head {h00=0x0018, h01=0x0050, text=»   REL 8.2 78-09-15 «, t00=0x0002, t01=0x005e}
0x0396…03a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007a}
0x03a0…03aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0084}
0x03aa…03e4              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x008e}
0x03e4…03ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ee…0416              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0002, t01=0x00d2}
0x0416…0420              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x0420…044c              Head {h00=0x0028, h01=0x0050, text=»*   DRGP01 = DRIVER GENERAL PRINTER «, t00=0x0002, t01=0x0104}
0x044c…0456              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0456…0460              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…046a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x046a…0474              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014e}
0x0474…047e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047e…0488              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0488…04c2              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0002, t01=0x016c}
0x04c2…04cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0016}
0x04cc…04d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…0510              Head {h00=0x0036, h01=0x0050, text=»*    THIS DRIVER HANDLES GENERAL TERMINAL PRINTER «, t00=0x0003, t01=0x002a}
0x0510…0550              Head {h00=0x003c, h01=0x0050, text=»*    PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0003, t01=0x0064}
0x0550…055a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a4}
0x055a…0596              Head {h00=0x0038, h01=0x0050, text=»*    THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO «, t00=0x0003, t01=0x00ae}
0x0596…05d0              Head {h00=0x0036, h01=0x0050, text=»*    FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE«, t00=0x0003, t01=0x00ea}
0x05d0…060a              Head {h00=0x0036, h01=0x0050, text=»*    GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY-«, t00=0x0003, t01=0x0124}
0x060a…0642              Head {h00=0x0034, h01=0x0050, text=»*    BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD«, t00=0x0003, t01=0x015e}
0x0642…065e              Head {h00=0x0018, h01=0x0050, text=»*    DRIVER DRKB04. «, t00=0x0004, t01=0x0008}
0x065e…0668              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0024}
0x0668…0672              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0672…06a6              Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0004, t01=0x0038}
0x06a6…06b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b0…06da              Head {h00=0x0026, h01=0x0050, text=»*    A C G P       ACTIVATION PART«, t00=0x0004, t01=0x0076}
0x06da…06e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a0}
0x06e4…070c              Head {h00=0x0024, h01=0x0050, text=»*    A B G P       ABORT ROUTINE«, t00=0x0004, t01=0x00aa}
0x070c…0716              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d2}
0x0716…0742              Head {h00=0x0028, h01=0x0050, text=»*    R C G P       RECOVERY ROUTINE «, t00=0x0004, t01=0x00dc}
0x0742…074c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0108}
0x074c…0776              Head {h00=0x0026, h01=0x0050, text=»*    E C H O G P   ECHO FUNCTIONS «, t00=0x0004, t01=0x0112}
0x0776…0780              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013c}
0x0780…078e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0146}
0x078e…0798              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0154}
0x0798…07c6              Head {h00=0x002a, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0004, t01=0x015e}
0x07c6…07d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018c}
0x07d0…07f2              Head {h00=0x001e, h01=0x0050, text=»*    ORDER 00: TEST STATUS«, t00=0x0005, t01=0x0008}
0x07f2…0814              Head {h00=0x001e, h01=0x0050, text=»*          05: BASIC WRITE«, t00=0x0005, t01=0x002a}
0x0814…083a              Head {h00=0x0022, h01=0x0050, text=»*          06: STANDARD WRITE «, t00=0x0005, t01=0x004c}
0x083a…0844              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0072}
0x0844…0866              Head {h00=0x001e, h01=0x0050, text=»*    NORMAL REGISTER USAGE«, t00=0x0005, t01=0x007c}
0x0866…0870              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009e}
0x0870…0896              Head {h00=0x0022, h01=0x0050, text=»*    REGISTER A1 = RETURN CODE«, t00=0x0005, t01=0x00a8}
0x0896…08c2              Head {h00=0x0028, h01=0x0050, text=»*             A2 = OUTPUT CHARACTER «, t00=0x0005, t01=0x00ce}
0x08c2…08ea              Head {h00=0x0024, h01=0x0050, text=»*             A3 = BUFFER INDEX «, t00=0x0005, t01=0x00fa}
0x08ea…0912              Head {h00=0x0024, h01=0x0050, text=»*             A4 = WORK REGISTER«, t00=0x0005, t01=0x0122}
0x0912…0938              Head {h00=0x0022, h01=0x0050, text=»*             A5 = STACK BASE «, t00=0x0005, t01=0x014a}
0x0938…095e              Head {h00=0x0022, h01=0x0050, text=»*             A6 = DWT-ADDRESS«, t00=0x0005, t01=0x0170}
0x095e…097e              Head {h00=0x001c, h01=0x0050, text=»*             A7 = ORDER«, t00=0x0006, t01=0x0008}
0x097e…09a4              Head {h00=0x0022, h01=0x0050, text=»*             A8 = ECB-ADDRESS«, t00=0x0006, t01=0x0028}
0x09a4…09ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09ae…09b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09b8…09d6              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0006, t01=0x0062}
0x09d6…09e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e0…0a1e              Head {h00=0x003a, h01=0x0050, text=»*    THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR«, t00=0x0006, t01=0x008a}
0x0a1e…0a4a              Head {h00=0x0028, h01=0x0050, text=»*    (GPCLR) KEYS SHOULD BE DEFINED.«, t00=0x0006, t01=0x00c8}
0x0a4a…0a54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f4}
0x0a54…0a90              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS «, t00=0x0006, t01=0x00fe}
0x0a90…0ac4              Head {h00=0x0030, h01=0x0050, text=»*    ADAPTED TO HANDLE FOLLOWING FUNCTIONS. «, t00=0x0006, t01=0x013a}
0x0ac4…0ae2              Head {h00=0x001a, h01=0x0050, text=»*    --ROOMLESS POINT «, t00=0x0006, t01=0x016e}
0x0ae2…0b20              Head {h00=0x003a, h01=0x0050, text=»*    --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH«, t00=0x0006, t01=0x018c}
0x0b20…0b2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b2a…0b72              Head {h00=0x0044, h01=0x0050, text=»*    --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER «, t00=0x0007, t01=0x0044}
0x0b72…0bac              Head {h00=0x0036, h01=0x0050, text=»*    --SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x008c}
0x0bac…0bda              Head {h00=0x002a, h01=0x0050, text=»**    --SUPPRESION OF TRAILING BLANKS «, t00=0x0007, t01=0x00c6}
0x0bda…0c1e              Head {h00=0x0040, h01=0x0050, text=»*    --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE«, t00=0x0007, t01=0x00f4}
0x0c1e…0c28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0138}
0x0c28…0c62              Head {h00=0x0036, h01=0x0050, text=»*    THE CHARACTER CODES FOR ROOMLESS POINT DIGITS«, t00=0x0007, t01=0x0142}
0x0c62…0cac              Head {h00=0x0046, h01=0x0050, text=»*    IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET «, t00=0x0007, t01=0x017c}
0x0cac…0cba              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0036}
0x0cba…0cc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cc4…0cce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cce…0cd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cd8…0ce2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce2…0cf6              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x006c}
0x0cf6…0d0a              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x0080}
0x0d0a…0d1e              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0094}
0x0d1e…0d28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a8}
0x0d28…0d32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d32…0d3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x0d3c…0d68              Head {h00=0x0028, h01=0x0050, text=» ENTRY GPAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x00c6}
0x0d68…0d9c              Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x00f2}
0x0d9c…0da6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0126}
0x0da6…0db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db0…0dba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dba…0dc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0144}
0x0dc4…0df6              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x014e}
0x0df6…0e28              Head {h00=0x002e, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES       * «, t00=0x0008, t01=0x0180}
0x0e28…0e5a              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x0022}
0x0e5a…0e64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0054}
0x0e64…0e6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005e}
0x0e6e…0e98              Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDER I/O REQUEST ERROR =3«, t00=0x0009, t01=0x0068}
0x0e98…0eca              Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0009, t01=0x0092}
0x0eca…0eec              Head {h00=0x001e, h01=0x0050, text=» EXTRN LDISP DISPATCHER =3«, t00=0x0009, t01=0x00c4}
0x0eec…0f0a              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x00e6}
0x0f0a…0f3e              Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x0104}
0x0f3e…0f72              Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x0138}
0x0f72…0f9a              Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK START OF BLOCK =3 «, t00=0x0009, t01=0x016c}
0x0f9a…0fc0 (10, 0, 400) Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK =3 «, t00=0x000a, t01=0x0004}
0x0fc0…0fce              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x002a}
0x0fce…0fd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0038}
0x0fd8…0fe2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe2…1002              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x004c}
0x1002…1022              Head {h00=0x001c, h01=0x0050, text=»*    DWT PARAMETERS    *«, t00=0x000a, t01=0x006c}
0x1022…1042              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x008c}
0x1042…104c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x104c…1056              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b6}
0x1056…1072              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x00c0}
0x1072…108c              Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x00dc}
0x108c…10ae              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x000a, t01=0x00f6}
0x10ae…10e4              Head {h00=0x0032, h01=0x0050, text=» EXTRN DWTDEV START OF DRIVER DEFINED PART =3 «, t00=0x000a, t01=0x0118}
0x10e4…10ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014e}
0x10ee…10fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0158}
0x10fc…1106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x1106…1110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1110…1126              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x017a}
0x1126…113c              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x0190}
0x113c…1152              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0016}
0x1152…115c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002c}
0x115c…1166              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x1166…11a4              Head {h00=0x003a, h01=0x0050, text=»SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x000b, t01=0x0040}
0x11a4…11c8              Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x007e}
0x11c8…11ea              Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x00a2}
0x11ea…1208              Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x00c4}
0x1208…122a              Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x00e2}
0x122a…1246              Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x0104}
0x1246…1264              Head {h00=0x001a, h01=0x0050, text=»FFED EQU /0C FORM FEED«, t00=0x000b, t01=0x0120}
0x1264…1280              Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x013e}
0x1280…12b4              Head {h00=0x0030, h01=0x0050, text=»PROUT EQU /04 PAPER OUT OR READY SWITCH OFF «, t00=0x000b, t01=0x015a}
0x12b4…12be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018e}
0x12be…12e8              Head {h00=0x0026, h01=0x0050, text=»BLKMAX EQU 140 MAX BLOCK LENGTH =3«, t00=0x000c, t01=0x0008}
0x12e8…12f6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0032}
0x12f6…1300              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1300…130a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004a}
0x130a…1338              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000c, t01=0x0054}
0x1338…1366              Head {h00=0x002a, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY            *«, t00=0x000c, t01=0x0082}
0x1366…1394              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000c, t01=0x00b0}
0x1394…139e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x139e…13d4              Head {h00=0x0032, h01=0x0050, text=»*    IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT «, t00=0x000c, t01=0x00e8}
0x13d4…13fc              Head {h00=0x0024, h01=0x0050, text=»*    FUNCTION BY SETTING X:A = 0«, t00=0x000c, t01=0x011e}
0x13fc…1406              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1406…1418              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x0150}
0x1418…142e              Head {h00=0x0012, h01=0x0050, text=»CROOM EQU X:A «, t00=0x000c, t01=0x0162}
0x142e…1438              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x1438…1470              Head {h00=0x0034, h01=0x0050, text=»*    ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE «, t00=0x000c, t01=0x0182}
0x1470…14a4              Head {h00=0x0030, h01=0x0050, text=»*    INCLUDED IN THE DRIVER BY SETTING X:B=1«, t00=0x000d, t01=0x002a}
0x14a4…14ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005e}
0x14ae…14c0              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000d, t01=0x0068}
0x14c0…14d6              Head {h00=0x0012, h01=0x0050, text=»TRETON EQU X:B«, t00=0x000d, t01=0x007a}
0x14d6…14e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e0…1518              Head {h00=0x0034, h01=0x0050, text=»*    ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE «, t00=0x000d, t01=0x009a}
0x1518…154c              Head {h00=0x0030, h01=0x0050, text=»*    INCLUDED IN THE DRIVER BY SETTING X:C=1«, t00=0x000d, t01=0x00d2}
0x154c…1556              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x1556…1568              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000d, t01=0x0110}
0x1568…157e              Head {h00=0x0012, h01=0x0050, text=»FJOTON EQU X:C«, t00=0x000d, t01=0x0122}
0x157e…1588              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0138}
0x1588…15ba              Head {h00=0x002e, h01=0x0050, text=»*    ECHO HANDLING IS INCLUDED IF ECHO = 1«, t00=0x000d, t01=0x0142}
0x15ba…15c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15c4…15dc              Head {h00=0x0014, h01=0x0050, text=»X:D EQU 1 U =12 «, t00=0x000d, t01=0x017e}
0x15dc…15f6              Head {h00=0x0016, h01=0x0050, text=»ECHO EQU X:D U =12«, t00=0x000e, t01=0x0008}
0x15f6…1600              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0022}
0x1600…1632              Head {h00=0x002e, h01=0x0050, text=»*    IT IS POSSIBLE TO EXCLUDE ECHOING OF «, t00=0x000e, t01=0x002c}
0x1632…1662              Head {h00=0x002c, h01=0x0050, text=»*    AN EXTRA SPACE AFTER EACH CHARACTER«, t00=0x000e, t01=0x005e}
0x1662…167e              Head {h00=0x0018, h01=0x0050, text=»*   BY SETTING X:E=0«, t00=0x000e, t01=0x008e}
0x167e…1688              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00aa}
0x1688…169a              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000e, t01=0x00b4}
0x169a…16b0              Head {h00=0x0012, h01=0x0050, text=»COSPAC EQU X:E«, t00=0x000e, t01=0x00c6}
0x16b0…16be              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00dc}
0x16be…16c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ea}
0x16c8…16d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f4}
0x16d2…170e              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x00fe}
0x170e…174a              Head {h00=0x0038, h01=0x0050, text=»*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x013a}
0x174a…1786              Head {h00=0x0038, h01=0x0050, text=»*    THIS IS ATTAINED BY SETTING THE CONSTANT X:F=0.«, t00=0x000e, t01=0x0176}
0x1786…1790              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0022}
0x1790…17a2              Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x002c}
0x17a2…17b8              Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:F«, t00=0x000f, t01=0x003e}
0x17b8…17c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0054}
0x17c2…17fa              Head {h00=0x0034, h01=0x0050, text=»*    SUPPRESSING OF SPACES IN RIGHT HAND OF LINE«, t00=0x000f, t01=0x005e}
0x17fa…1818              Head {h00=0x001a, h01=0x0050, text=»*    BY SETTING X:G=1 «, t00=0x000f, t01=0x0096}
0x1818…1822              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b4}
0x1822…1834              Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000f, t01=0x00be}
0x1834…184a              Head {h00=0x0012, h01=0x0050, text=»SUPSPA EQU X:G«, t00=0x000f, t01=0x00d0}
0x184a…1854              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e6}
0x1854…1880              Head {h00=0x0028, h01=0x0050, text=»* END OF REQUEST IN SITUATIONS WHERE«, t00=0x000f, t01=0x00f0}
0x1880…18b0              Head {h00=0x002c, h01=0x0050, text=»* THE SELECTOR UNIT OR PRINTER HARDWARE «, t00=0x000f, t01=0x011c}
0x18b0…18de              Head {h00=0x002a, h01=0x0050, text=»* IS INACTIVE CAN BE CHOSEN BY SETTING«, t00=0x000f, t01=0x014c}
0x18de…1900              Head {h00=0x001e, h01=0x0050, text=»* THE CONSTANT RECEND = 1 «, t00=0x000f, t01=0x017a}
0x1900…1912              Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x0010, t01=0x000c}
0x1912…1928              Head {h00=0x0012, h01=0x0050, text=»RECEND EQU X:H«, t00=0x0010, t01=0x001e}
0x1928…1932              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0034}
0x1932…193c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003e}
0x193c…1976              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0048}
0x1976…19a8              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x0082}
0x19a8…19b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b2…19c6              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0010, t01=0x00be}
0x19c6…19d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d0…19ec              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0010, t01=0x00dc}
0x19ec…19f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f8}
0x19f6…1a0e              Head {h00=0x0014, h01=0x0050, text=»X:I EQU 120  =4 «, t00=0x0010, t01=0x0102}
0x1a0e…1a28              Head {h00=0x0016, h01=0x0050, text=»DVBLEN EQU X:I  =4«, t00=0x0010, t01=0x011a}
0x1a28…1a38              Head {h00=0x000c, h01=0x0050, text=»*    =1 «, t00=0x0010, t01=0x0134}
0x1a38…1a68              Head {h00=0x002c, h01=0x0050, text=»* SPECIAL CONDITION FOR ABIS PRINTER  =1«, t00=0x0010, t01=0x0144}
0x1a68…1a7e              Head {h00=0x0012, h01=0x0050, text=»ABIS EQU 0  =1«, t00=0x0010, t01=0x0174}
0x1a7e…1a8c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x018a}
0x1a8c…1a96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a96…1aa0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa0…1ac8              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0011, t01=0x001c}
0x1ac8…1af0              Head {h00=0x0024, h01=0x0050, text=»*    DWT-DISPLACEMENT          *«, t00=0x0011, t01=0x0044}
0x1af0…1b18              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0011, t01=0x006c}
0x1b18…1b22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0094}
0x1b22…1b2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b2c…1b3a              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0011, t01=0x00a8}
0x1b3a…1b66              Head {h00=0x0028, h01=0x0050, text=»DWTAP EQU /2 HEAD POSITON POINTER =3«, t00=0x0011, t01=0x00b6}
0x1b66…1b8e              Head {h00=0x0024, h01=0x0050, text=»DWTPOC EQU /4 POSITON COUNTER =3«, t00=0x0011, t01=0x00e2}
0x1b8e…1bb2              Head {h00=0x0020, h01=0x0050, text=»DWTBC EQU /5 BYTE COUNTER =3«, t00=0x0011, t01=0x010a}
0x1bb2…1bbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012e}
0x1bbc…1bea              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0011, t01=0x0138}
0x1bea…1c1a              Head {h00=0x002c, h01=0x0050, text=»*    SPECIAL KEYS FOR ECHO FUNCTION   * «, t00=0x0011, t01=0x0166}
0x1c1a…1c48              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0012, t01=0x0008}
0x1c48…1c52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0036}
0x1c52…1c72              Head {h00=0x001c, h01=0x0050, text=»GPBSP EQU /2D BACK SPACE«, t00=0x0012, t01=0x0040}
0x1c72…1c8e              Head {h00=0x0018, h01=0x0050, text=»GPCLR EQU /3F CLEAR «, t00=0x0012, t01=0x0060}
0x1c8e…1c98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007c}
0x1c98…1cb4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0086}
0x1cb4…1cd0              Head {h00=0x0018, h01=0x0050, text=»*    RETURN CODES  *«, t00=0x0012, t01=0x00a2}
0x1cd0…1cec              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x00be}
0x1cec…1cf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00da}
0x1cf6…1d2a              Head {h00=0x0030, h01=0x0050, text=»PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF«, t00=0x0012, t01=0x00e4}
0x1d2a…1d50              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0012, t01=0x0118}
0x1d50…1d76              Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x0012, t01=0x013e}
0x1d76…1da2              Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x0012, t01=0x0164}
0x1da2…1dac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0190}
0x1dac…1dba              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x000a}
0x1dba…1dc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0018}
0x1dc4…1dce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0022}
0x1dce…1de0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x002c}
0x1de0…1df2              Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x003e}
0x1df2…1e04              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0050}
0x1e04…1e0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0062}
0x1e0e…1e18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e18…1e2c              Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0013, t01=0x0076}
0x1e2c…1e36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x008a}
0x1e36…1e4a              Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0013, t01=0x0094}
0x1e4a…1e78              Head {h00=0x002a, h01=0x0050, text=»   TABLE FOR ROOMLESS POINT CHARACTERS«, t00=0x0013, t01=0x00a8}
0x1e78…1ea4              Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0013, t01=0x00d6}
0x1ea4…1eae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0102}
0x1eae…1eba              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x010c}
0x1eba…1ec4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0118}
0x1ec4…1ece              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ece…1ed8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012c}
0x1ed8…1efe              Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN MMU BUFFER LENGTH«, t00=0x0013, t01=0x0136}
0x1efe…1f1a              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x015c}
0x1f1a…1f3a              Head {h00=0x001c, h01=0x0050, text=»GPAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0178}
0x1f3a…1f5e              Head {h00=0x0020, h01=0x0050, text=» DATA ACGP ACTIVATION DRIVER«, t00=0x0014, t01=0x0008}
0x1f5e…1f8a              Head {h00=0x0028, h01=0x0050, text=» DATA ABGP ABORT ROUTINE ADDRESS =8 «, t00=0x0014, t01=0x002c}
0x1f8a…1fac              Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0014, t01=0x0058}
0x1fac…1fd0              Head {h00=0x0020, h01=0x0050, text=» DATA RCGP RECOVERY ROUTINE «, t00=0x0014, t01=0x007a}
0x1fd0…2002              Head {h00=0x002e, h01=0x0050, text=» DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x009e}
0x2002…2010              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00d0}
0x2010…201a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00de}
0x201a…202e              Head {h00=0x0010, h01=0x0050, text=»*    A C G P«, t00=0x0014, t01=0x00e8}
0x202e…2038              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fc}
0x2038…206e              Head {h00=0x0032, h01=0x0050, text=»*    ACGP = ACTIVATION DRIVER GENERAL PRINTER «, t00=0x0014, t01=0x0106}
0x206e…2078              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013c}
0x2078…20c4              Head {h00=0x0048, h01=0x0050, text=»*    ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE«, t00=0x0014, t01=0x0146}
0x20c4…2104 (21, 0, 400) Head {h00=0x003c, h01=0x0050, text=»*              IS SET IF PAPER OUT OR READY SWITCH OFF. «, t00=0x0015, t01=0x0004}
0x2104…2150              Head {h00=0x0048, h01=0x0050, text=»*              RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM«, t00=0x0015, t01=0x0044}
0x2150…2174              Head {h00=0x0020, h01=0x0050, text=»*              CHANNEL UNIT.«, t00=0x0015, t01=0x0090}
0x2174…217e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b4}
0x217e…21c0              Head {h00=0x003e, h01=0x0050, text=»*    ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER «, t00=0x0015, t01=0x00be}
0x21c0…21e6              Head {h00=0x0022, h01=0x0050, text=»*              FROM ECB-BUFFER«, t00=0x0015, t01=0x0100}
0x21e6…21f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0126}
0x21f0…223a              Head {h00=0x0046, h01=0x0050, text=»*    ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM«, t00=0x0015, t01=0x0130}
0x223a…227a              Head {h00=0x003c, h01=0x0050, text=»*               ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x017a}
0x227a…2284              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002a}
0x2284…2296              Head {h00=0x000e, h01=0x0050, text=»ACGP EQU *«, t00=0x0016, t01=0x0034}
0x2296…22a4              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0016, t01=0x0046}
0x22a4…22ba              Head {h00=0x0012, h01=0x0050, text=» LDR A3,A7  =1«, t00=0x0016, t01=0x0054}
0x22ba…22da              Head {h00=0x001c, h01=0x0050, text=» RF(Z) ACGP10 ORDER 0 =2«, t00=0x0016, t01=0x006a}
0x22da…2300              Head {h00=0x0022, h01=0x0050, text=» LDK A2,BLKMAX BLOCK LENGTH =3«, t00=0x0016, t01=0x008a}
0x2300…2328              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x0016, t01=0x00b0}
0x2328…2346              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP1 ERROR =3«, t00=0x0016, t01=0x00d8}
0x2346…235c              Head {h00=0x0012, h01=0x0050, text=» SUK A3,5  =1 «, t00=0x0016, t01=0x00f6}
0x235c…2380              Head {h00=0x0020, h01=0x0050, text=» RF(E) ACGP19 ORDER 5 =3(=1)«, t00=0x0016, t01=0x010c}
0x2380…2396              Head {h00=0x0012, h01=0x0050, text=» SUK A3,1  =1 «, t00=0x0016, t01=0x0130}
0x2396…23a4              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0016, t01=0x0146}
0x23a4…23c4              Head {h00=0x001c, h01=0x0050, text=» RF(E) ACGP00 ORDER 6 =3«, t00=0x0016, t01=0x0154}
0x23c4…23ea              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =3 «, t00=0x0016, t01=0x0174}
0x23ea…2412              Head {h00=0x0024, h01=0x0050, text=» ABL LENDER I/O REQUEST ERROR =3«, t00=0x0017, t01=0x000a}
0x2412…242a              Head {h00=0x0014, h01=0x0050, text=»ACGP00 EQU *  =3«, t00=0x0017, t01=0x0032}
0x242a…2458              Head {h00=0x002a, h01=0x0050, text=» LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 «, t00=0x0017, t01=0x004a}
0x2458…2472              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACGP01  =1 «, t00=0x0017, t01=0x0078}
0x2472…249c              Head {h00=0x0026, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS =1 «, t00=0x0017, t01=0x0092}
0x249c…24c8              Head {h00=0x0028, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER =1«, t00=0x0017, t01=0x00bc}
0x24c8…24e0              Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF  =1 «, t00=0x0017, t01=0x00e8}
0x24e0…24fe              Head {h00=0x001a, h01=0x0050, text=»ACGP01 SUK A3,/2B  =1 «, t00=0x0017, t01=0x0100}
0x24fe…250c              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0017, t01=0x011e}
0x250c…253a              Head {h00=0x002a, h01=0x0050, text=» RF(NE) ACGP02 NOT CONTROL CHAR 2B =3 «, t00=0x0017, t01=0x012c}
0x253a…2562              Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX =3 «, t00=0x0017, t01=0x015a}
0x2562…2578              Head {h00=0x0012, h01=0x0050, text=» RF ACGP19  =3«, t00=0x0017, t01=0x0182}
0x2578…2590              Head {h00=0x0014, h01=0x0050, text=»ACGP02 EQU *  =3«, t00=0x0018, t01=0x0008}
0x2590…25a6              Head {h00=0x0012, h01=0x0050, text=» LDK A2,CR  =1«, t00=0x0018, t01=0x0020}
0x25a6…25c0              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT  =1 «, t00=0x0018, t01=0x0036}
0x25c0…25de              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP1 ERROR =3«, t00=0x0018, t01=0x0050}
0x25de…25f6              Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1  =1 «, t00=0x0018, t01=0x006e}
0x25f6…260e              Head {h00=0x0014, h01=0x0050, text=» LDK A2,FFED  =1«, t00=0x0018, t01=0x0086}
0x260e…262a              Head {h00=0x0018, h01=0x0050, text=» CWK A3,/31-/2B  =1 «, t00=0x0018, t01=0x009e}
0x262a…2652              Head {h00=0x0024, h01=0x0050, text=» RF(E) ACGP03 CONTROL CHAR 31 =1«, t00=0x0018, t01=0x00ba}
0x2652…2664              Head {h00=0x000e, h01=0x0050, text=» XIF   =1 «, t00=0x0018, t01=0x00e2}
0x2664…267a              Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF  =1«, t00=0x0018, t01=0x00f4}
0x267a…2696              Head {h00=0x0018, h01=0x0050, text=» SUK A3,/30-/2B  =1 «, t00=0x0018, t01=0x010a}
0x2696…26c4              Head {h00=0x002a, h01=0x0050, text=» RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 «, t00=0x0018, t01=0x0126}
0x26c4…26de              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT  =1 «, t00=0x0018, t01=0x0154}
0x26de…26fc              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP1 ERROR =3«, t00=0x0018, t01=0x016e}
0x26fc…2712              Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF  =1«, t00=0x0018, t01=0x018c}
0x2712…2742              Head {h00=0x002c, h01=0x0050, text=»ACGP03 LDK A1,1 RESET HEAD POS COUNTR =1«, t00=0x0019, t01=0x0012}
0x2742…2768              Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTAP+DWTDEV,A6  =3(=1)«, t00=0x0019, t01=0x0042}
0x2768…2796              Head {h00=0x002a, h01=0x0050, text=»ACGP06 LDK A3,2 START BUFFER INDEX =1 «, t00=0x0019, t01=0x0068}
0x2796…27b6              Head {h00=0x001c, h01=0x0050, text=»ACGP09 CF A5,OUTPUT  =1 «, t00=0x0019, t01=0x0096}
0x27b6…27da              Head {h00=0x0020, h01=0x0050, text=»ERGP1 RF(NZ) ERGP2 ERROR =3 «, t00=0x0019, t01=0x00b6}
0x27da…27f8              Head {h00=0x001a, h01=0x0050, text=» LDK A2,ETX DUMMY =10 «, t00=0x0019, t01=0x00da}
0x27f8…282e              Head {h00=0x0032, h01=0x0050, text=» CF A5,OUTPUT WAIT UNTIL PRINTBUFFER EMPTY =10«, t00=0x0019, t01=0x00f8}
0x282e…284e              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =10 «, t00=0x0019, t01=0x012e}
0x284e…2864              Head {h00=0x0012, h01=0x0050, text=» RF ACGP19  =1«, t00=0x0019, t01=0x014e}
0x2864…2878              Head {h00=0x0010, h01=0x0050, text=» EJECT   =2 «, t00=0x0019, t01=0x0164}
0x2878…2888              Head {h00=0x000c, h01=0x0050, text=»*    =2 «, t00=0x0019, t01=0x0178}
0x2888…28a6              Head {h00=0x001a, h01=0x0050, text=»*   ORDER 00: TEST  =2«, t00=0x0019, t01=0x0188}
0x28a6…28f8              Head {h00=0x004e, h01=0x0050, text=»*                IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE   =2 «, t00=0x001a, t01=0x0016}
0x28f8…2908              Head {h00=0x000c, h01=0x0050, text=»*    =2 «, t00=0x001a, t01=0x0068}
0x2908…291c              Head {h00=0x0010, h01=0x0050, text=»ACGP10 EQU *«, t00=0x001a, t01=0x0078}
0x291c…2942              Head {h00=0x0022, h01=0x0050, text=» LDK A2,2 BLOCK LENGTH =10(=3)«, t00=0x001a, t01=0x008c}
0x2942…296a              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x001a, t01=0x00b2}
0x296a…2988              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001a, t01=0x00da}
0x2988…29aa              Head {h00=0x001e, h01=0x0050, text=» LDK A2,2 SEND CHAR /02 =2«, t00=0x001a, t01=0x00f8}
0x29aa…29c4              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT  =2 «, t00=0x001a, t01=0x011a}
0x29c4…29e2              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001a, t01=0x0134}
0x29e2…2a10              Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =2«, t00=0x001a, t01=0x0152}
0x2a10…2a2a              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT  =2 «, t00=0x001a, t01=0x0180}
0x2a2a…2a48              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001b, t01=0x000a}
0x2a48…2a64              Head {h00=0x0018, h01=0x0050, text=» RF AGP400  =10(=2) «, t00=0x001b, t01=0x0028}
0x2a64…2a72              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0044}
0x2a72…2a7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0052}
0x2a7c…2aa6              Head {h00=0x0026, h01=0x0050, text=»*    GET, CHECK AND SEND CHARACTER«, t00=0x001b, t01=0x005c}
0x2aa6…2ac8              Head {h00=0x001e, h01=0x0050, text=»*    (IF ORDER 5 NO CHECK)«, t00=0x001b, t01=0x0086}
0x2ac8…2ad2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a8}
0x2ad2…2aee              Head {h00=0x0018, h01=0x0050, text=»ACGP17 CF A5,OUTPUT «, t00=0x001b, t01=0x00b2}
0x2aee…2b0c              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001b, t01=0x00ce}
0x2b0c…2b4c              Head {h00=0x003c, h01=0x0050, text=»ACGP18 IM DWTPOC+DWTDEV,A6 POSITION COUNTER UPDATING =3 «, t00=0x001b, t01=0x00ec}
0x2b4c…2b60              Head {h00=0x0010, h01=0x0050, text=»ACGP19 EQU *«, t00=0x001b, t01=0x012c}
0x2b60…2b8e              Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/400 INDICATE LINE FEED DONE «, t00=0x001b, t01=0x0140}
0x2b8e…2bac              Head {h00=0x001a, h01=0x0050, text=» ORS A4,DWTDEV,A6  =3 «, t00=0x001b, t01=0x016e}
0x2bac…2bc2              Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x001b, t01=0x018c}
0x2bc2…2bfa              Head {h00=0x0034, h01=0x0050, text=» CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER «, t00=0x001c, t01=0x0012}
0x2bfa…2c06              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x004a}
0x2c06…2c18              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001c, t01=0x0056}
0x2c18…2c52              Head {h00=0x0036, h01=0x0050, text=»ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x001c, t01=0x0068}
0x2c52…2c74              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x001c, t01=0x00a2}
0x2c74…2c8e              Head {h00=0x0016, h01=0x0050, text=» RF(NP) AGP400 YES«, t00=0x001c, t01=0x00c4}
0x2c8e…2ca0              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001c, t01=0x00de}
0x2ca0…2cbe              Head {h00=0x001a, h01=0x0050, text=» CWK A7,5 ORDER 5? =3 «, t00=0x001c, t01=0x00f0}
0x2cbe…2ce0              Head {h00=0x001e, h01=0x0050, text=» RF(E) ACGP24 BASIC WRITE «, t00=0x001c, t01=0x010e}
0x2ce0…2d08              Head {h00=0x0024, h01=0x0050, text=» SUK A1,9 HARDWARE TABULATION ? «, t00=0x001c, t01=0x0130}
0x2d08…2d1e              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP22«, t00=0x001c, t01=0x0158}
0x2d1e…2d5c              Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 RESET HEAD POSITION POINTER =3 «, t00=0x001c, t01=0x016e}
0x2d5c…2d6e              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x001c}
0x2d6e…2d9c              Head {h00=0x002a, h01=0x0050, text=»ACGP22 SUK A1,8 TABULATION CHARACTER ?«, t00=0x001d, t01=0x002e}
0x2d9c…2db2              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP40 «, t00=0x001d, t01=0x005c}
0x2db2…2dca              Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1  =1 «, t00=0x001d, t01=0x0072}
0x2dca…2de8              Head {h00=0x001a, h01=0x0050, text=» CWK A2,/07 BELL ? =1 «, t00=0x001d, t01=0x008a}
0x2de8…2e02              Head {h00=0x0016, h01=0x0050, text=» RB(E) ACGP09  =1 «, t00=0x001d, t01=0x00a8}
0x2e02…2e14              Head {h00=0x000e, h01=0x0050, text=» XIF   =1 «, t00=0x001d, t01=0x00c2}
0x2e14…2e1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d4}
0x2e1e…2e34              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001d, t01=0x00de}
0x2e34…2e4a              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001d, t01=0x00f4}
0x2e4a…2e54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010a}
0x2e54…2e76              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x001d, t01=0x0114}
0x2e76…2e80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0136}
0x2e80…2e8c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0140}
0x2e8c…2e96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x2e96…2eac              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001d, t01=0x0156}
0x2eac…2ec2              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001d, t01=0x016c}
0x2ec2…2ecc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0182}
0x2ecc…2ee2              Head {h00=0x0012, h01=0x0050, text=» SUK A1,3 /14?«, t00=0x001d, t01=0x018c}
0x2ee2…2ef8              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001e, t01=0x0012}
0x2ef8…2f1a              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001e, t01=0x0028}
0x2f1a…2f24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004a}
0x2f24…2f30              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0054}
0x2f30…2f3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0060}
0x2f3a…2f44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006a}
0x2f44…2f5a              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001e, t01=0x0074}
0x2f5a…2f70              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001e, t01=0x008a}
0x2f70…2f7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a0}
0x2f7a…2f92              Head {h00=0x0014, h01=0x0050, text=» SUK A1,2 /13 ? «, t00=0x001e, t01=0x00aa}
0x2f92…2fa8              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001e, t01=0x00c2}
0x2fa8…2fca              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/D LESS THAN /20 ?«, t00=0x001e, t01=0x00d8}
0x2fca…2fd6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00fa}
0x2fd6…2fe0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0106}
0x2fe0…2fea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0110}
0x2fea…3000              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001e, t01=0x011a}
0x3000…3016              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001e, t01=0x0130}
0x3016…3020              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0146}
0x3020…3036              Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 /13?«, t00=0x001e, t01=0x0150}
0x3036…304c              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001e, t01=0x0166}
0x304c…3062              Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 /14?«, t00=0x001e, t01=0x017c}
0x3062…3078 (31, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001f, t01=0x0004}
0x3078…309a              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001f, t01=0x001a}
0x309a…30a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003c}
0x30a4…30b0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0046}
0x30b0…30ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30ba…30e4              Head {h00=0x0026, h01=0x0050, text=» RF(N) ACGP30 YES,CODE CHECK ERROR«, t00=0x001f, t01=0x005c}
0x30e4…310e              Head {h00=0x0026, h01=0x0050, text=» SUK A1,/8E ROOMLESS POINT?  (AE) «, t00=0x001f, t01=0x0086}
0x310e…3124              Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP100 «, t00=0x001f, t01=0x00b0}
0x3124…3148              Head {h00=0x0020, h01=0x0050, text=» ADK A1,/4F GREATER THAN /5F«, t00=0x001f, t01=0x00c6}
0x3148…3162              Head {h00=0x0016, h01=0x0050, text=» RB(NP) ACGP17 NO «, t00=0x001f, t01=0x00ea}
0x3162…3176              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x001f, t01=0x0104}
0x3176…318c              Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACGP30«, t00=0x001f, t01=0x0118}
0x318c…31c6              Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x001f, t01=0x012e}
0x31c6…31f0              Head {h00=0x0026, h01=0x0050, text=»   TO CHARACTER BETWEEN /40 TO /5F«, t00=0x001f, t01=0x0168}
0x31f0…3202 (32, 0, 398) Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0020, t01=0x0004}
0x3202…3216              Head {h00=0x0010, h01=0x0050, text=»ACGP24 EQU *«, t00=0x0020, t01=0x0016}
0x3216…3228              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x0020, t01=0x002a}
0x3228…3246              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ACGP26 NOT CR «, t00=0x0020, t01=0x003c}
0x3246…327c              Head {h00=0x0032, h01=0x0050, text=» CM DWTPOC+DWTDEV,A6 RESET POSITION COUNTER =3«, t00=0x0020, t01=0x005a}
0x327c…32b2              Head {h00=0x0032, h01=0x0050, text=» CM DWTAP+DWTDEV,A6 RESET HEAD POS.POINTER =3 «, t00=0x0020, t01=0x0090}
0x32b2…32ca              Head {h00=0x0014, h01=0x0050, text=»ACGP26 ADK A1,3 «, t00=0x0020, t01=0x00c6}
0x32ca…32ee              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ACGP17 NOT LINE FEED«, t00=0x0020, t01=0x00de}
0x32ee…3300              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x0102}
0x3300…333a              Head {h00=0x0036, h01=0x0050, text=» ADS A1,DWTPOC+DWTDEV,A6 DECREMENT POS COUNTER =3 «, t00=0x0020, t01=0x0114}
0x333a…334c              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0020, t01=0x014e}
0x334c…335a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0160}
0x335a…3364              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016e}
0x3364…3382              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0020, t01=0x0178}
0x3382…338c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0008}
0x338c…33a0              Head {h00=0x0010, h01=0x0050, text=»ACGP30 EQU *«, t00=0x0021, t01=0x0012}
0x33a0…33b6              Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0021, t01=0x0026}
0x33b6…33d6              Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0021, t01=0x003c}
0x33d6…33e8              Head {h00=0x000e, h01=0x0050, text=» RB ACGP20«, t00=0x0021, t01=0x005c}
0x33e8…33f6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x006e}
0x33f6…3400              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007c}
0x3400…3418              Head {h00=0x0014, h01=0x0050, text=»*    TABULATION «, t00=0x0021, t01=0x0086}
0x3418…3422              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009e}
0x3422…3436              Head {h00=0x0010, h01=0x0050, text=»ACGP40 EQU *«, t00=0x0021, t01=0x00a8}
0x3436…3466              Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0021, t01=0x00bc}
0x3466…3478              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x00ec}
0x3478…34aa              Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x0021, t01=0x00fe}
0x34aa…34bc              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0021, t01=0x0130}
0x34bc…34ce              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0021, t01=0x0142}
0x34ce…34e4              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP44 «, t00=0x0021, t01=0x0154}
0x34e4…3518              Head {h00=0x0030, h01=0x0050, text=»ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x0021, t01=0x016a}
0x3518…352a              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x000e}
0x352a…3540              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP43«, t00=0x0022, t01=0x0020}
0x3540…3586              Head {h00=0x0042, h01=0x0050, text=»ACGP44 SU A2,DWTAP+DWTDEV,A6 SUBTRACT HEAD POSITION POINTER =3«, t00=0x0022, t01=0x0036}
0x3586…35a8              Head {h00=0x001e, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6  =3«, t00=0x0022, t01=0x007c}
0x35a8…35d8              Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x0022, t01=0x009e}
0x35d8…3602              Head {h00=0x0026, h01=0x0050, text=»   TO GET NUMBER OF SPACES TO SEND«, t00=0x0022, t01=0x00ce}
0x3602…3618              Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP20«, t00=0x0022, t01=0x00f8}
0x3618…362a              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0022, t01=0x010e}
0x362a…3668              Head {h00=0x003a, h01=0x0050, text=»ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE«, t00=0x0022, t01=0x0120}
0x3668…3684              Head {h00=0x0018, h01=0x0050, text=»ACGP46 CF A5,OUTPUT «, t00=0x0022, t01=0x015e}
0x3684…36a6              Head {h00=0x001e, h01=0x0050, text=»ERGP2 RF(NZ) ERGP ERROR =3«, t00=0x0022, t01=0x017a}
0x36a6…36dc              Head {h00=0x0032, h01=0x0050, text=» IM DWTPOC+DWTDEV,A6 INCREMENT BUFFER INDEX =3«, t00=0x0023, t01=0x000c}
0x36dc…36ee              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x0042}
0x36ee…3704              Head {h00=0x0012, h01=0x0050, text=» RB(P) ACGP45 «, t00=0x0023, t01=0x0054}
0x3704…3720              Head {h00=0x0018, h01=0x0050, text=» LDR A3,A3 RECOVERY?«, t00=0x0023, t01=0x006a}
0x3720…373a              Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACGP20 NO «, t00=0x0023, t01=0x0086}
0x373a…3772              Head {h00=0x0034, h01=0x0050, text=» SC A4,DWTBC+DWTDEV,A6 RESET POSITION POINTER =3«, t00=0x0023, t01=0x00a0}
0x3772…3796              Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0023, t01=0x00d8}
0x3796…37a8              Head {h00=0x000e, h01=0x0050, text=» RB ACGP19«, t00=0x0023, t01=0x00fc}
0x37a8…37b6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x010e}
0x37b6…37c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x011c}
0x37c0…37dc              Head {h00=0x0018, h01=0x0050, text=»*    ROOMLESS POINT «, t00=0x0023, t01=0x0126}
0x37dc…37e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0142}
0x37e6…37fa              Head {h00=0x0010, h01=0x0050, text=»AGP100 EQU *«, t00=0x0023, t01=0x014c}
0x37fa…3804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0160}
0x3804…3818              Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0023, t01=0x016a}
0x3818…3822              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x3822…384e              Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER TO SEND«, t00=0x0023, t01=0x0188}
0x384e…3860              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0024, t01=0x0024}
0x3860…3882              Head {h00=0x001e, h01=0x0050, text=» LC A2,ROMTAB,A2 TRANSFORM«, t00=0x0024, t01=0x0036}
0x3882…388c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0058}
0x388c…3898              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0062}
0x3898…38a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006e}
0x38a2…38ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0078}
0x38ac…38c0              Head {h00=0x0010, h01=0x0050, text=» IFF CROOM=1«, t00=0x0024, t01=0x0082}
0x38c0…38ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0096}
0x38ca…38de              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0024, t01=0x00a0}
0x38de…38e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b4}
0x38e8…38f4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00be}
0x38f4…38fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ca}
0x38fe…3910              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0024, t01=0x00d4}
0x3910…391e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00e6}
0x391e…3928              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f4}
0x3928…3932              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fe}
0x3932…395e              Head {h00=0x0028, h01=0x0050, text=»*    SEND LAST DUMMY , LOAD A1 WITH «, t00=0x0024, t01=0x0108}
0x395e…3982              Head {h00=0x0020, h01=0x0050, text=»*    RETURN CODE AND END I/O«, t00=0x0024, t01=0x0134}
0x3982…398c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0158}
0x398c…39a0              Head {h00=0x0010, h01=0x0050, text=»AGP400 EQU *«, t00=0x0024, t01=0x0162}
0x39a0…39ae              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0024, t01=0x0176}
0x39ae…39d4              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =10«, t00=0x0024, t01=0x0184}
0x39d4…39f2              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP ERROR =10«, t00=0x0025, t01=0x001a}
0x39f2…3a14              Head {h00=0x001e, h01=0x0050, text=» LDK A2,1 BLOCK LENGTH =10«, t00=0x0025, t01=0x0038}
0x3a14…3a3c              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =10«, t00=0x0025, t01=0x005a}
0x3a3c…3a5a              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP ERROR =10«, t00=0x0025, t01=0x0082}
0x3a5a…3a7e              Head {h00=0x0020, h01=0x0050, text=»AGP410 LDK A2,ETX LAST DUMMY«, t00=0x0025, t01=0x00a0}
0x3a7e…3a98              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0025, t01=0x00c4}
0x3a98…3ab6              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP ERROR =6 «, t00=0x0025, t01=0x00de}
0x3ab6…3adc              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =6 «, t00=0x0025, t01=0x00fc}
0x3adc…3afa              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP ERROR =6 «, t00=0x0025, t01=0x0122}
0x3afa…3b12              Head {h00=0x0014, h01=0x0050, text=»AGP415 EQU *  =1«, t00=0x0025, t01=0x0140}
0x3b12…3b2a              Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1  =1 «, t00=0x0025, t01=0x0158}
0x3b2a…3b4a              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/4 PAPER IN ? =1«, t00=0x0025, t01=0x0170}
0x3b4a…3b68              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AGP420 YES =1 «, t00=0x0025, t01=0x0190}
0x3b68…3b8e              Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 SET RETURN CODE =1«, t00=0x0026, t01=0x001e}
0x3b8e…3ba0              Head {h00=0x000e, h01=0x0050, text=» XIF   =1 «, t00=0x0026, t01=0x0044}
0x3ba0…3bb4              Head {h00=0x0010, h01=0x0050, text=»AGP420 EQU *«, t00=0x0026, t01=0x0056}
0x3bb4…3be8              Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0026, t01=0x006a}
0x3be8…3c02              Head {h00=0x0016, h01=0x0050, text=» LDKL A4,/FBFF  =3«, t00=0x0026, t01=0x009e}
0x3c02…3c38              Head {h00=0x0032, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET 'LINE FEED CONTROL' =3«, t00=0x0026, t01=0x00b8}
0x3c38…3c4c              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0026, t01=0x00ee}
0x3c4c…3c5e              Head {h00=0x000e, h01=0x0050, text=»    =6(=3)«, t00=0x0026, t01=0x0102}
0x3c5e…3c7c              Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0026, t01=0x0114}
0x3c7c…3ca6              Head {h00=0x0026, h01=0x0050, text=»EXIT ABL LDISP GO TO DISPATCHER =3«, t00=0x0026, t01=0x0132}
0x3ca6…3cba              Head {h00=0x0010, h01=0x0050, text=»AGP430 EQU *«, t00=0x0026, t01=0x015c}
0x3cba…3cd2              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTA3,A6 «, t00=0x0026, t01=0x0170}
0x3cd2…3cf2              Head {h00=0x001c, h01=0x0050, text=» ST A3,6,A8 EFF. LENGTH «, t00=0x0026, t01=0x0188}
0x3cf2…3d08              Head {h00=0x0012, h01=0x0050, text=» RB AGP415  =1«, t00=0x0027, t01=0x0018}
0x3d08…3d16              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x002e}
0x3d16…3d20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003c}
0x3d20…3d2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0046}
0x3d2a…3d5a              Head {h00=0x002c, h01=0x0050, text=»*    UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x0027, t01=0x0050}
0x3d5a…3d8a              Head {h00=0x002c, h01=0x0050, text=»*             POSITION POINTER WHEN END «, t00=0x0027, t01=0x0080}
0x3d8a…3db6              Head {h00=0x0028, h01=0x0050, text=»*             OF REQUEST IS REACHED «, t00=0x0027, t01=0x00b0}
0x3db6…3dca              Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x0027, t01=0x00dc}
0x3dca…3e00              Head {h00=0x0032, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER =3«, t00=0x0027, t01=0x00f0}
0x3e00…3e40              Head {h00=0x003c, h01=0x0050, text=» ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER =3 «, t00=0x0027, t01=0x0126}
0x3e40…3e52              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x0166}
0x3e52…3e8a              Head {h00=0x0034, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3«, t00=0x0027, t01=0x0178}
0x3e8a…3e9a              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0028, t01=0x0020}
0x3e9a…3eb0              Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0028, t01=0x0030}
0x3eb0…3ebe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0046}
0x3ebe…3ec8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0054}
0x3ec8…3ed2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005e}
0x3ed2…3f00              Head {h00=0x002a, h01=0x0050, text=»*    SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0028, t01=0x0068}
0x3f00…3f2c              Head {h00=0x0028, h01=0x0050, text=»*             IN END OF ECB-BUFFER. «, t00=0x0028, t01=0x0096}
0x3f2c…3f66              Head {h00=0x0036, h01=0x0050, text=»*             REQUESTED LENGTH IN ECB IS UPDATED. «, t00=0x0028, t01=0x00c2}
0x3f66…3f90              Head {h00=0x0026, h01=0x0050, text=»*             A1,A2,A4 - WORK REG «, t00=0x0028, t01=0x00fc}
0x3f90…3f9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0126}
0x3f9a…3fae              Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0028, t01=0x0130}
0x3fae…3fda              Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0028, t01=0x0144}
0x3fda…4006              Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0028, t01=0x0170}
0x4006…402e              Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0029, t01=0x000c}
0x402e…4046              Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0029, t01=0x0034}
0x4046…4064              Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0029, t01=0x004c}
0x4064…407e              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0029, t01=0x006a}
0x407e…409a              Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0029, t01=0x0084}
0x409a…40b8              Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0029, t01=0x00a0}
0x40b8…40d2              Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0029, t01=0x00be}
0x40d2…40f2              Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0029, t01=0x00d8}
0x40f2…410e              Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0029, t01=0x00f8}
0x410e…4126              Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0029, t01=0x0114}
0x4126…4144              Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0029, t01=0x012c}
0x4144…4162              Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0029, t01=0x014a}
0x4162…418a              Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0029, t01=0x0168}
0x418a…41a4              Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0029, t01=0x0190}
0x41a4…41be              Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x002a, t01=0x001a}
0x41be…41d8              Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x002a, t01=0x0034}
0x41d8…41f4              Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x002a, t01=0x004e}
0x41f4…41fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x006a}
0x41fe…4224              Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x002a, t01=0x0074}
0x4224…4234              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002a, t01=0x009a}
0x4234…4240              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00aa}
0x4240…424e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00b6}
0x424e…4258              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x4258…426c              Head {h00=0x0010, h01=0x0050, text=»*    E R G P«, t00=0x002a, t01=0x00ce}
0x426c…4276              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e2}
0x4276…4290              Head {h00=0x0016, h01=0x0050, text=»*    ERROR ROUTINE«, t00=0x002a, t01=0x00ec}
0x4290…429a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0106}
0x429a…42a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0110}
0x42a4…42ba              Head {h00=0x0012, h01=0x0050, text=»ERGP EQU *  =3«, t00=0x002a, t01=0x011a}
0x42ba…42e2              Head {h00=0x0024, h01=0x0050, text=» LDR A2,A1 SAVE RETURN CODE =10 «, t00=0x002a, t01=0x0130}
0x42e2…431a              Head {h00=0x0034, h01=0x0050, text=» ANK A1,/12 OUTPUT ERROR OR LRC-ERROR ? =10(=9) «, t00=0x002a, t01=0x0158}
0x431a…4348              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCGP YES, EXECUTE RECOVERY =9 «, t00=0x002a, t01=0x0190}
0x4348…4368              Head {h00=0x001c, h01=0x0050, text=» LDR A7,A7 ORDER 0 ? =3 «, t00=0x002b, t01=0x002e}
0x4368…437a              Head {h00=0x000e, h01=0x0050, text=»    =6(=3)«, t00=0x002b, t01=0x004e}
0x437a…4396              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERGP10 NO =6«, t00=0x002b, t01=0x0060}
0x4396…43cc              Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 «, t00=0x002b, t01=0x007c}
0x43cc…43e8              Head {h00=0x0018, h01=0x0050, text=» RB ENDIO END I/O =6«, t00=0x002b, t01=0x00b2}
0x43e8…43f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ce}
0x43f2…440a              Head {h00=0x0014, h01=0x0050, text=»ERGP10 EQU *  =6«, t00=0x002b, t01=0x00d8}
0x440a…4436              Head {h00=0x0028, h01=0x0050, text=» ANK A2,/08 SOFTWARE TIME-OUT ? =10 «, t00=0x002b, t01=0x00f0}
0x4436…4464              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCGP YES,EXECUTE RECOVERY =10 «, t00=0x002b, t01=0x011c}
0x4464…4476              Head {h00=0x000e, h01=0x0050, text=»    =9(=6)«, t00=0x002b, t01=0x014a}
0x4476…4488              Head {h00=0x000e, h01=0x0050, text=»    =9(=6)«, t00=0x002b, t01=0x015c}
0x4488…44a2              Head {h00=0x0016, h01=0x0050, text=» IFT RECEND=0  =3 «, t00=0x002b, t01=0x016e}
0x44a2…44b6              Head {h00=0x0010, h01=0x0050, text=» RB EXIT  =3«, t00=0x002b, t01=0x0188}
0x44b6…44c8              Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x002c, t01=0x000c}
0x44c8…44e2              Head {h00=0x0016, h01=0x0050, text=» IFT RECEND=1  =3 «, t00=0x002c, t01=0x001e}
0x44e2…4518              Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 «, t00=0x002c, t01=0x0038}
0x4518…452e              Head {h00=0x0012, h01=0x0050, text=» RB AGP430  =3«, t00=0x002c, t01=0x006e}
0x452e…4540              Head {h00=0x000e, h01=0x0050, text=» XIF   =3 «, t00=0x002c, t01=0x0084}
0x4540…454e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0096}
0x454e…4558              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a4}
0x4558…4570              Head {h00=0x0014, h01=0x0050, text=»*    E C H O G P«, t00=0x002c, t01=0x00ae}
0x4570…457a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c6}
0x457a…45ae              Head {h00=0x0030, h01=0x0050, text=»*    ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x002c, t01=0x00d0}
0x45ae…45b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0104}
0x45b8…45cc              Head {h00=0x0010, h01=0x0050, text=»ECHOGP EQU *«, t00=0x002c, t01=0x010e}
0x45cc…45e6              Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x002c, t01=0x0122}
0x45e6…45fc              Head {h00=0x0012, h01=0x0050, text=» LDK A4,COSPAC«, t00=0x002c, t01=0x013c}
0x45fc…461c              Head {h00=0x001c, h01=0x0050, text=» LDR A7,A7 END OF ECHO ?«, t00=0x002c, t01=0x0152}
0x461c…4636              Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP17 YES «, t00=0x002c, t01=0x0172}
0x4636…4640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x018c}
0x4640…4656              Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x002d, t01=0x0008}
0x4656…4660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001e}
0x4660…4682              Head {h00=0x001e, h01=0x0050, text=» SUK A2,/80 EOR-CHARACTER «, t00=0x002d, t01=0x0028}
0x4682…469c              Head {h00=0x0016, h01=0x0050, text=» RF(NN) ECGP20 YES«, t00=0x002d, t01=0x004a}
0x469c…46b0              Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002d, t01=0x0064}
0x46b0…46ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0078}
0x46ba…46c6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0082}
0x46c6…46e0              Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x002d, t01=0x008e}
0x46e0…46ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a8}
0x46ea…46fc              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x002d, t01=0x00b2}
0x46fc…4710              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x002d, t01=0x00c4}
0x4710…4722              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/8«, t00=0x002d, t01=0x00d8}
0x4722…4742              Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP40 BACKSPACE «, t00=0x002d, t01=0x00ea}
0x4742…4762              Head {h00=0x001c, h01=0x0050, text=» SUK A1,/2 LINE FEED =1 «, t00=0x002d, t01=0x010a}
0x4762…4782              Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP05 YES =3(=1)«, t00=0x002d, t01=0x012a}
0x4782…479a              Head {h00=0x0014, h01=0x0050, text=» SUK A1,/3 CR =1«, t00=0x002d, t01=0x014a}
0x479a…47ba              Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP05 YES =3(=1)«, t00=0x002d, t01=0x0162}
0x47ba…47d0              Head {h00=0x0012, h01=0x0050, text=» SUK A1,/B  =1«, t00=0x002d, t01=0x0182}
0x47d0…47ec              Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP50 CLEAR «, t00=0x002e, t01=0x0008}
0x47ec…4828              Head {h00=0x0038, h01=0x0050, text=» SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F«, t00=0x002e, t01=0x0024}
0x4828…483e              Head {h00=0x0012, h01=0x0050, text=» RF(N) ECGP20 «, t00=0x002e, t01=0x0060}
0x483e…4856              Head {h00=0x0014, h01=0x0050, text=» SUK A1,/5F-/20 «, t00=0x002e, t01=0x0076}
0x4856…486c              Head {h00=0x0012, h01=0x0050, text=» RF(P) ECGP20 «, t00=0x002e, t01=0x008e}
0x486c…4884              Head {h00=0x0014, h01=0x0050, text=»ECGP05 EQU *  =3«, t00=0x002e, t01=0x00a4}
0x4884…48a8              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER =3«, t00=0x002e, t01=0x00bc}
0x48a8…48d0              Head {h00=0x0024, h01=0x0050, text=» LDK A2,COSPAC+1 BLOCK LENGTH =3«, t00=0x002e, t01=0x00e0}
0x48d0…48f8              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x002e, t01=0x0108}
0x48f8…4918              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ECGP20 ERROR =6 «, t00=0x002e, t01=0x0130}
0x4918…493c              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A3 GET CHARACTER =3 «, t00=0x002e, t01=0x0150}
0x493c…4966              Head {h00=0x0026, h01=0x0050, text=»ECGP10 CF A5,OUTPUT SEND CHARACTER«, t00=0x002e, t01=0x0174}
0x4966…4986              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ECGP20 ERROR =6 «, t00=0x002f, t01=0x000e}
0x4986…49be              Head {h00=0x0034, h01=0x0050, text=» IM DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =3 «, t00=0x002f, t01=0x002e}
0x49be…49d8              Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002f, t01=0x0066}
0x49d8…49f4              Head {h00=0x0018, h01=0x0050, text=» RF(N) ECGP80 YES =3«, t00=0x002f, t01=0x0080}
0x49f4…4a22              Head {h00=0x002a, h01=0x0050, text=» RF(P) ECGP60 NO, GO TO CLEAR SECTION «, t00=0x002f, t01=0x009c}
0x4a22…4a2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ca}
0x4a2c…4a42              Head {h00=0x0012, h01=0x0050, text=» IFT COSPAC=1 «, t00=0x002f, t01=0x00d4}
0x4a42…4a4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ea}
0x4a4c…4a70              Head {h00=0x0020, h01=0x0050, text=» LDK A2,SPACE NO SEND SPACE «, t00=0x002f, t01=0x00f4}
0x4a70…4a82              Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002f, t01=0x0118}
0x4a82…4a8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012a}
0x4a8c…4a98              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0134}
0x4a98…4aa2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0140}
0x4aa2…4abc              Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x002f, t01=0x014a}
0x4abc…4af6              Head {h00=0x0036, h01=0x0050, text=»ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER «, t00=0x002f, t01=0x0164}
0x4af6…4b0a              Head {h00=0x0010, h01=0x0050, text=» XIF  U =12 «, t00=0x0030, t01=0x000e}
0x4b0a…4b34              Head {h00=0x0026, h01=0x0050, text=» CF A15,TENDIO SET GP DWT FREE =5 «, t00=0x0030, t01=0x0022}
0x4b34…4b60              Head {h00=0x0028, h01=0x0050, text=»ECGP20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0030, t01=0x004c}
0x4b60…4b7a              Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x0030, t01=0x0078}
0x4b7a…4b88              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0092}
0x4b88…4b92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a0}
0x4b92…4ba8              Head {h00=0x0012, h01=0x0050, text=»*    BACKSPACE«, t00=0x0030, t01=0x00aa}
0x4ba8…4bb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c0}
0x4bb2…4bc6              Head {h00=0x0010, h01=0x0050, text=»ECGP40 EQU *«, t00=0x0030, t01=0x00ca}
0x4bc6…4bf0              Head {h00=0x0026, h01=0x0050, text=» LDK A2,GPBSP BACKSPACE CHARACTER «, t00=0x0030, t01=0x00de}
0x4bf0…4c06              Head {h00=0x0012, h01=0x0050, text=» RB ECGP05  =3«, t00=0x0030, t01=0x0108}
0x4c06…4c10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011e}
0x4c10…4c24              Head {h00=0x0010, h01=0x0050, text=»*    CANCEL «, t00=0x0030, t01=0x0128}
0x4c24…4c2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013c}
0x4c2e…4c42              Head {h00=0x0010, h01=0x0050, text=»ECGP50 EQU *«, t00=0x0030, t01=0x0146}
0x4c42…4c70              Head {h00=0x002a, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 BYTE COUNTER =3«, t00=0x0030, t01=0x015a}
0x4c70…4c8c              Head {h00=0x0018, h01=0x0050, text=» ANK A3,/FF CLEAN =3«, t00=0x0030, t01=0x0188}
0x4c8c…4cb6              Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 ADD FOR CLEAR CHAR. =10 «, t00=0x0031, t01=0x0014}
0x4cb6…4cea              Head {h00=0x0030, h01=0x0050, text=» LDR A2,A3 NUMBER OF BACKSPACE CHARACTERS =3«, t00=0x0031, t01=0x003e}
0x4cea…4d12              Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADD TO BLOCK LENGTH =3«, t00=0x0031, t01=0x0072}
0x4d12…4d3a              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x0031, t01=0x009a}
0x4d3a…4d5a              Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ECGP20 ERROR =6 «, t00=0x0031, t01=0x00c2}
0x4d5a…4d80              Head {h00=0x0022, h01=0x0050, text=» LDK A2,GPCLR CLEAR CHARACTER «, t00=0x0031, t01=0x00e2}
0x4d80…4d92              Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0031, t01=0x0108}
0x4d92…4da4              Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0031, t01=0x011a}
0x4da4…4dc6              Head {h00=0x001e, h01=0x0050, text=»ECGP60 LDK A2,LF LINE FEED«, t00=0x0031, t01=0x012c}
0x4dc6…4dd4              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0031, t01=0x014e}
0x4dd4…4dfa              Head {h00=0x0022, h01=0x0050, text=»ECGP70 CF A5,OUTPUT SEND CHAR.«, t00=0x0031, t01=0x015c}
0x4dfa…4e1a              Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ECGP20 ERROR =6 «, t00=0x0031, t01=0x0182}
0x4e1a…4e38              Head {h00=0x001a, h01=0x0050, text=» LDK A2,/08 BACKSPACE «, t00=0x0032, t01=0x0012}
0x4e38…4e4a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x0030}
0x4e4a…4e60              Head {h00=0x0012, h01=0x0050, text=» RB(NN) ECGP70«, t00=0x0032, t01=0x0042}
0x4e60…4e72              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0032, t01=0x0058}
0x4e72…4eaa              Head {h00=0x0034, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3«, t00=0x0032, t01=0x006a}
0x4eaa…4ec2              Head {h00=0x0014, h01=0x0050, text=»ECGP80 EQU *  =3«, t00=0x0032, t01=0x00a2}
0x4ec2…4ee8              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =3 «, t00=0x0032, t01=0x00ba}
0x4ee8…4efa              Head {h00=0x000e, h01=0x0050, text=» RB ECGP20«, t00=0x0032, t01=0x00e0}
0x4efa…4f0e              Head {h00=0x0010, h01=0x0050, text=» XIF  U =12 «, t00=0x0032, t01=0x00f2}
0x4f0e…4f1c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0106}
0x4f1c…4f26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0114}
0x4f26…4f3a              Head {h00=0x0010, h01=0x0050, text=»*    R C G P«, t00=0x0032, t01=0x011e}
0x4f3a…4f44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0132}
0x4f44…4f78              Head {h00=0x0030, h01=0x0050, text=»*    RCGP = RECOVERY ROUTINE GENERAL PRINTER«, t00=0x0032, t01=0x013c}
0x4f78…4f82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0170}
0x4f82…4f8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x017a}
0x4f8c…4fb8              Head {h00=0x0028, h01=0x0050, text=»*    RECOVERY IS CARRIED OUT ONLY IF«, t00=0x0032, t01=0x0184}
0x4fb8…4fd8              Head {h00=0x001c, h01=0x0050, text=»*    ORDER 6 IS RUNNING «, t00=0x0033, t01=0x0020}
0x4fd8…4fe2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0040}
0x4fe2…4ff8              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0033, t01=0x004a}
0x4ff8…5002              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0060}
0x5002…5020              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x0033, t01=0x006a}
0x5020…5038              Head {h00=0x0014, h01=0x0050, text=»*    A7 = ORDER «, t00=0x0033, t01=0x0088}
0x5038…5056              Head {h00=0x001a, h01=0x0050, text=»*    A8 = ECB-ADDRESS «, t00=0x0033, t01=0x00a0}
0x5056…5068              Head {h00=0x000e, h01=0x0050, text=»RCGP EQU *«, t00=0x0033, t01=0x00be}
0x5068…5076              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0033, t01=0x00d0}
0x5076…5084              Head {h00=0x000a, h01=0x0050, text=»    =6«, t00=0x0033, t01=0x00de}
0x5084…50a0              Head {h00=0x0018, h01=0x0050, text=» LDR A8,A8 BUSY ? =6«, t00=0x0033, t01=0x00ec}
0x50a0…50c0              Head {h00=0x001c, h01=0x0050, text=» ABL(Z) ENDIO NO =11(=6)«, t00=0x0033, t01=0x0108}
0x50c0…50e6              Head {h00=0x0022, h01=0x0050, text=» LDK A2,1 BLOCK LENGTH =10(=3)«, t00=0x0033, t01=0x0128}
0x50e6…510e              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x0033, t01=0x014e}
0x510e…512c              Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =3 «, t00=0x0033, t01=0x0176}
0x512c…5158 (52, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDK A2,SOH RESET PRINT BUFFER CODE «, t00=0x0034, t01=0x0004}
0x5158…5176              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0034, t01=0x0030}
0x5176…5194              Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =3 «, t00=0x0034, t01=0x004e}
0x5194…51ba              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =10«, t00=0x0034, t01=0x006c}
0x51ba…51d8              Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =10«, t00=0x0034, t01=0x0092}
0x51d8…51ea              Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0034, t01=0x00b0}
0x51ea…5200              Head {h00=0x0012, h01=0x0050, text=» RF(E) RCGP10 «, t00=0x0034, t01=0x00c2}
0x5200…521a              Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x0034, t01=0x00d8}
0x521a…5234              Head {h00=0x0016, h01=0x0050, text=» RF(E) RCGP05 YES «, t00=0x0034, t01=0x00f2}
0x5234…5248              Head {h00=0x0010, h01=0x0050, text=»    =10(=6) «, t00=0x0034, t01=0x010c}
0x5248…525c              Head {h00=0x0010, h01=0x0050, text=»    =10(=6) «, t00=0x0034, t01=0x0120}
0x525c…5276              Head {h00=0x0016, h01=0x0050, text=» CWK A7,0 ORDER 0?«, t00=0x0034, t01=0x0134}
0x5276…5290              Head {h00=0x0016, h01=0x0050, text=» ABL(E) ENDIO U =7«, t00=0x0034, t01=0x014e}
0x5290…52a2              Head {h00=0x000e, h01=0x0050, text=»    =6(=3)«, t00=0x0034, t01=0x0168}
0x52a2…52b8              Head {h00=0x0012, h01=0x0050, text=» ABL EXIT U =7«, t00=0x0034, t01=0x017a}
0x52b8…52cc              Head {h00=0x0010, h01=0x0050, text=»RCGP05 EQU *«, t00=0x0034, t01=0x0190}
0x52cc…5304              Head {h00=0x0034, h01=0x0050, text=» LC A2,DWTDEV,A6 GET LEFT BYTE OF STATUS WORD =3«, t00=0x0035, t01=0x0014}
0x5304…5328              Head {h00=0x0020, h01=0x0050, text=» ANK A2,/4 LINE FEED DONE ? «, t00=0x0035, t01=0x004c}
0x5328…5348              Head {h00=0x001c, h01=0x0050, text=» ABL(E) ACGP NO =3(=10) «, t00=0x0035, t01=0x0070}
0x5348…5370              Head {h00=0x0024, h01=0x0050, text=» LDK A2,BLKMAX BLOCK LENGTH =10 «, t00=0x0035, t01=0x0090}
0x5370…5398              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =10«, t00=0x0035, t01=0x00b8}
0x5398…53b6              Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =10«, t00=0x0035, t01=0x00e0}
0x53b6…53cc              Head {h00=0x0012, h01=0x0050, text=» LDK A2,SPACE «, t00=0x0035, t01=0x00fe}
0x53cc…53ec              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE«, t00=0x0035, t01=0x0114}
0x53ec…540a              Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =3 «, t00=0x0035, t01=0x0134}
0x540a…5418              Head {h00=0x000a, h01=0x0050, text=»    =3«, t00=0x0035, t01=0x0152}
0x5418…543a              Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0035, t01=0x0160}
0x543a…544c              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0035, t01=0x0182}
0x544c…548a (54, 0, 400) Head {h00=0x003a, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET NUMBER OF SPACES TO SEND =3«, t00=0x0036, t01=0x0004}
0x548a…549e              Head {h00=0x0010, h01=0x0050, text=» ABL ACGP46 «, t00=0x0036, t01=0x0042}
0x549e…54ac              Head {h00=0x000a, h01=0x0050, text=»    =6«, t00=0x0036, t01=0x0056}
0x54ac…54c4              Head {h00=0x0014, h01=0x0050, text=»RCGP10 EQU *  =6«, t00=0x0036, t01=0x0064}
0x54c4…54d8              Head {h00=0x0010, h01=0x0050, text=»    =10(=6) «, t00=0x0036, t01=0x007c}
0x54d8…54ec              Head {h00=0x0010, h01=0x0050, text=»    =10(=6) «, t00=0x0036, t01=0x0090}
0x54ec…5514              Head {h00=0x0024, h01=0x0050, text=» LDK A1,TPERR SET RETURN CODE =6«, t00=0x0036, t01=0x00a4}
0x5514…5528              Head {h00=0x0010, h01=0x0050, text=» ABL AGP430 «, t00=0x0036, t01=0x00cc}
0x5528…5532              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e0}
0x5532…553c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ea}
0x553c…5550              Head {h00=0x0010, h01=0x0050, text=»*    A B G P«, t00=0x0036, t01=0x00f4}
0x5550…555a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0108}
0x555a…5574              Head {h00=0x0016, h01=0x0050, text=»*    ABORT ROUTINE«, t00=0x0036, t01=0x0112}
0x5574…557e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012c}
0x557e…5596              Head {h00=0x0014, h01=0x0050, text=»ABGP EQU * U =8 «, t00=0x0036, t01=0x0136}
0x5596…55cc              Head {h00=0x0032, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION POINTER =8«, t00=0x0036, t01=0x014e}
0x55cc…55f6              Head {h00=0x0026, h01=0x0050, text=» ABL ENDIO END I/O AND DISPATCH =8«, t00=0x0036, t01=0x0184}
0x55f6…5600              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001e}
0x5600…560c              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0037, t01=0x0028}
0x560c…5610              Head {h00=0x4004, h01=0x0000}
0x5610…5614              00 37 00 34                                                                                                                                                                                                                                       ┆ 7 4┆
0x5614…561c (56, 1, 8)   20 04 00 00 00 38 00 04                                                                                                                                                                                                                           ┆     8  ┆

Reduced view