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

⟦de674aadf⟧

    Length: 17582 (0x44ae)
    Notes: pts_type(SC)
    Names: »DRGP01.SC«

Derivation

└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
    └─⟦this⟧ »BDKMON/DRGP01.SC« 
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKMON/DRGP01.SC« 

PTS(SC)

	IDENT  DRGP01 	REL=7.2  DATE=77-09-09
			UPDATE   #0   77-09-09 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRGP01 = DRIVER GENERAL PRINTER 
* 
* 
*   LEVEL     #2  77-09-09
* 
*   RELEASE   #7  77-09-09
* 
************************************************* 
* 
* 
*    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 DRKB01. 
* 
* 
*    THE DRIVER CONSISTS OF FOLLOWING PARTS:
* 
*    A C G P       ACTIVATION PART
* 
*    I H G P       INTERRUPT HANDLER
* 
*    R C G P       RECOVERY ROUTINE 
* 
*    E C H O G P   ECHO FUNCTIONS 
* 
* 
*    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	DISIOE	I/O REQUEST ERROR 
	EXTRN	OUTPUT	SUBROUTINE TO SEND CHARACTER
	EXTRN	TDISP	DISPATCHER 
	EXTRN	LDREG	LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN 
	EXTRN	TENDIO	END I/O 
	EXTRN	SAVE8	SAVE 8 REGISTERS ON A15 STACK
	EXTRN	ECHRTN	RETURN TO KEYBOARD AFTER ECHO 
	EXTRN	GETCHR	GET CHARACTER FROM ECB-BUFFER 
	EJECT
* 
************************
*    DWT PARAMETERS    *
************************
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTOR	ORDER
* 
********************************
*    DWT-DISPLACEMENT          *
********************************
* 
DWTA3	EQU	/12	SAVE AREA FOR A3
DWTBC	EQU	/3	BYTE COUNTER 
DWTAP	EQU	/22	HEAD POSITION POINTER 
* 
	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 
	EJECT
**************************************
*    CONDITIONAL ASSEMBLY            *
**************************************
* 
*    IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 
*    FUNCTION BY SETTING X:A = 0
* 
X:A	EQU	1 
CROOM	EQU	1 
* 
*    ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 
*    INCLUDED IN THE DRIVER BY SETTING X:B=1
* 
X:B	EQU	0 
TRETON	EQU	0
* 
*    ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE 
*    INCLUDED IN THE DRIVER BY SETTING X:C=1
* 
X:C	EQU	0 
FJOTON	EQU	0
* 
*    IT IS POSSIBLE TO EXCLUDE ECHOING OF 
*    AN EXTRA SPACE AFTER EACH CHARACTER
*   BY SETTING X:D=0
* 
X:D	EQU	0 
COSPAC	EQU	1
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.
*    THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0.
* 
X:E	EQU	0 
EORECH	EQU	0
* 
*    SUPPRESSING OF SPACES IN RIGHT HAND OF LINE
*    BY SETTING X:F=1 
* 
X:F	EQU	0 
SUPSPA	EQU	0
* 
* END OF REQUEST IN SITUATIONS WHERE
* THE SELECTOR UNIT OR PRINTER HARDWARE 
* IS INACTIVE CAN BE CHOSEN BY SETTING
* THE CONSTANT RECEND = 1 
X:G	EQU	0 
RECEND	EQU	0
	EJECT
**************************************
*    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
* 
* 
* 
GPAD	EQU	*	ADDRESS BLOCK
	DATA	ACGP	ACTIVATION DRIVER
	DATA	IHGP	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	*
	LDK	A2,STX	START OF MESSAGE
	LDK	A3,0	RESET BUFFER INDEX
	LDK	A4,0 
	LDR	A7,A7	ORDER 0? 
	RF(E)	AGP410 
	SUK	A7,5	ORDER 5?
	RF(E)	ACGP05 
	SUK	A7,1	ORDER 6?
	ABL(NE)	DISIOE	I/O REQUEST ERROR 
	LD	A1,4,A8	GET REQUESTED LENGTH
	RF(E)	ACGP02 
	LD	A3,2,A8	GET BUFFER ADDRESS
	LC	A3,1,A3	GET CONTROL CHARACTER 
	ANK	A3,/FF 
ACGP02	EQU	*
	SUK	A3,/2B	POSITIONING BEFORE WRITE? 
	RF(E)	ACGP12 
	LDK	A4,2	INDICATE CR AND LF/FFED TO SEND 
	EJECT
* 
*    SEND DUMMY AND, IF CONTROL CHARACTER 
*    # 2B, SEND CARRIAGE RETURN AND LINE FEED 
* 
ACGP05	EQU	*
	CF	A5,OUTPUT	SEND CHARACTER
	SUK	A4,1 
	RF(N)	ACGP19	START SECTION ENDED?
	RF(P)	ACGP15	STX 
* 
*    SEND LINE FEED OR FORM FEED
* 
	SUK	A3,5	CONTROL CHARACTER /30 ? 
	RF(NE)	ACGP07
	ADK	A4,1	YES EXTRA LINE FEED TO SEND 
ACGP07	EQU	*
	LDK	A2,LF
ACGP12	LDK	A3,2	START BUFFER INDEX
	RB	ACGP05
ACGP15	ST	A4,DWTAP,A6	RESET HEAD POSITION POINTER 
	LDK	A2,CR	CARRIAGE RETURN
	RB	ACGP05
	EJECT
* 
*    GET, CHECK AND SEND CHARACTER
*    (IF ORDER 5 NO CHECK)
* 
ACGP17	CF	A5,OUTPUT 
ACGP18	IM	DWTST,A6	POSITION COUNTER UPDATING
ACGP19	EQU	*
	LDKL	A4,/400	INDICATE LINE FEED DONE 
	ORS	A4,DWTST,A6
	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
	LDR	A1,A2
	SUK	A7,5	ORDER 5?
	RF(E)	ACGP24	BASIC WRITE 
	SUK	A1,9	HARDWARE TABULATION ? 
	RF(NE)	ACGP22
	ST	A4,DWTAP,A6	RESET HEAD POSITION POINTER 
	RB	ACGP17
ACGP22	SUK	A1,8	TABULATION CHARACTER ?
	RF(E)	ACGP40 
* 
	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	CODE CHECK ERROR
	SUK	A1,/8E	ROOMLESS POINT?  (AE) 
	RF(E)	AGP100 
	ADK	A1,/4F	GREATER THAN /5F
	RB(NP)	ACGP17
	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	DWTST,A6	SET POS LTR.TO 0 
	CM	DWTAP,A6	RESET HEAD POS.POIINTER
ACGP26	ADK	A1,3 
	RB(NZ)	ACGP17	NOT LINE FEED
	SUK	A1,1 
	ADS	A1,DWTST,A6	DECREMENT POS COUNTER
	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,A6	SUBTRACT HEAD POSITION POINTER
	LC	A4,DWTBC,A6 
	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 
	IM	DWTST,A6	INCREMENT BUFFER INDEX 
	SUK	A4,1 
	RB(NE)	ACGP45
	LDR	A3,A3	RECOVERY?
	RB(NE)	ACGP20
	SC	A4,DWTBC,A6	RESET POSITION POINTER
	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	*
	LDK	A2,ETB	END OF MESSAGE
	CF	A5,OUTPUT	SEND
AGP410	LDK	A2,ETX	LAST DUMMY
	CF	A5,OUTPUT	SEND
AGP420	EQU	*
	CF	A15,UPDAPP	UPDATE HEAD POSITION COUNTER 
ENDIO	CF	A15,TENDIO	END I/O 
EXIT	ABL	TDISP	GO TO DISPATCHER 
AGP430	EQU	*
	LD	A3,DWTA3,A6 
	ST	A3,6,A8	EFF. LENGTH 
	RB	AGP420
	EJECT
* 
* 
*    UPDAPP = SUBROUTINE TO UPDATE HEAD 
*             POSITION POINTER WHEN END 
*             OF REQUEST IS REACHED 
UPDAPP	EQU	*
	LC	A3,DWTBC,A6	GET POSITION COUNTER
	ADS	A3,DWTAP,A6	UPDATE HEAD POSITION POINTER 
	LDK	A3,0 
	SC	A3,DWTBC,A6	RESET  POSITION COUNTER 
	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
* 
*    I H G P
* 
*    INTERRUPT
* 
IHGP	EQU	*
	LD	A4,DWTST,A6	BUSY? 
	RB(N)	EXIT	NO
	SLL	A4,2	ECHO MODE ? 
	RF(N)	IHGP10 
	LDR	A7,A7	ORDER 0? 
	RB(Z)	AGP430 
	LDR	A1,A1	RETURN CODE FROM CHANNEL UNIT ?
	IFT	RECEND=0 
	RB(NZ)	EXIT
	XIF
	IFT	RECEND=1 
	RB(NZ)	AGP430
	XIF

IHGP10	ABL	LDREG	RELOAD A3-A5 AND RETURN VIA A5 
	EJECT
* 
*    E C H O G P
* 
*    ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE 
* 
ECHOGP	EQU	*
	LDK	A4,COSPAC
	LDR	A7,A7	EOR? 
	RF(N)	ECGP17	YES 
* 
	IFT	EORECH=0 
* 
	SUK	A2,/80	EOR-CHARACTER 
	RF(NN)	ECGP20	YES
	ADK	A2,/80 
* 
	XIF
* 
	LDR	A1,A2
	SUK	A1,/8
	RF(E)	ECGP40	BACKSPACE 
	SUK	A1,/10 
	RF(E)	ECGP50	CLEAR 
ECGP10	CF	A5,OUTPUT	SEND CHARACTER
	IM	DWTST,A6	UPDATE POSITION COUNTER
	SUK	A4,1	READY ? 
	RF(N)	ECGP20	YES 
	RF(P)	ECGP60	NO, GO TO CLEAR SECTION 
* 
	IFT	COSPAC=1 
* 
	LDK	A2,SPACE	NO SEND SPACE 
	RB	ECGP10
* 
	XIF
* 
ECGP17	CF	A15,UPDAPP	UPDATE HEAD POSITION POINTER 
ECGP20	ABL	ECHRTN	RETURN TO KEYBOARD
	EJECT
* 
*    BACKSPACE
* 
ECGP40	EQU	*
	LDK	A2,GPBSP	BACKSPACE CHARACTER 
	RB	ECGP10
* 
*    CANCEL 
* 
ECGP50	EQU	*
	LDK	A2,GPCLR	CLEAR CHARACTER 
	LDK	A4,3 
	RB	ECGP10
ECGP60	LDK	A2,LF	LINE FEED
	LC	A3,DWTBC,A6 
	ANK	A3,/FF 
ECGP70	CF	A5,OUTPUT	SEND CHAR.
	LDK	A2,/08	BACKSPACE 
	SUK	A3,1 
	RB(NN)	ECGP70
	LDK	A3,0 
	SC	A3,DWTBC,A6	RESET POSITION COUNTER
	RB	ECGP20
	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	*
	CF	A15,SAVE8	SAVE 8 REGISTERS ON STACK 
	LD	A2,DWTST,A6	BUSY ?
	RB(N)	EXIT	NO
	LDK	A2,SOH	RESET PRINT BUFFER CODE 
	CF	A5,OUTPUT	SEND IT 
	CWK	A7,5 
	RF(E)	RCGP10 
	CWK	A7,6	ORDER 6?
	RF(E)	RCGP05	YES 
	CWK	A7,0	ORDER 0?
	RB(E)	ENDIO
	RB	EXIT
RCGP05	EQU	*
	LC	A2,DWTST,A6	GET LEFT BYTE OF STATUS WORD
	ANK	A2,/4	LINE FEED DONE ? 
	ABL(E)	ACGP	NO 
	LDK	A2,SPACE 
	CF	A5,OUTPUT	SEND SPACE
	LDK	A2,STX 
	CF	A5,OUTPUT	SEND STX
	LDK	A2,CR	CARRIAGE RETURN
	LDK	A3,0 
	LD	A4,DWTAP,A6	GET NUMBER OF SPACES TO SEND
	ABL	ACGP46 
RCGP10	LDK	A1,TPERR	SET RETURN CODE 
	ABL	AGP430 
	END

HexDump

0x0000…002e (0, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» IDENT  DRGP01  REL=7.2  DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050              Head {h00=0x001e, h01=0x0050, text=»   UPDATE   #0   77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0094              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x005e}
0x0094…009e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x009e…00c6              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a2}
0x00c6…00d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00fc              Head {h00=0x0028, h01=0x0050, text=»*   DRGP01 = DRIVER GENERAL PRINTER «, t00=0x0000, t01=0x00d4}
0x00fc…0106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…0132              Head {h00=0x001e, h01=0x0050, text=»*   LEVEL     #2  77-09-09«, t00=0x0000, t01=0x0114}
0x0132…013c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…015e              Head {h00=0x001e, h01=0x0050, text=»*   RELEASE   #7  77-09-09«, t00=0x0000, t01=0x0140}
0x015e…0168              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…01a2              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x016c}
0x01a2…01ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b6…01f0              Head {h00=0x0036, h01=0x0050, text=»*    THIS DRIVER HANDLES GENERAL TERMINAL PRINTER «, t00=0x0001, t01=0x002a}
0x01f0…0230              Head {h00=0x003c, h01=0x0050, text=»*    PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0001, t01=0x0064}
0x0230…023a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a4}
0x023a…0276              Head {h00=0x0038, h01=0x0050, text=»*    THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO «, t00=0x0001, t01=0x00ae}
0x0276…02b0              Head {h00=0x0036, h01=0x0050, text=»*    FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE«, t00=0x0001, t01=0x00ea}
0x02b0…02ea              Head {h00=0x0036, h01=0x0050, text=»*    GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY-«, t00=0x0001, t01=0x0124}
0x02ea…0322              Head {h00=0x0034, h01=0x0050, text=»*    BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD«, t00=0x0001, t01=0x015e}
0x0322…033e              Head {h00=0x0018, h01=0x0050, text=»*    DRIVER DRKB01. «, t00=0x0002, t01=0x0008}
0x033e…0348              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x0348…0352              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0352…0386              Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0038}
0x0386…0390              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0390…03ba              Head {h00=0x0026, h01=0x0050, text=»*    A C G P       ACTIVATION PART«, t00=0x0002, t01=0x0076}
0x03ba…03c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a0}
0x03c4…03f0              Head {h00=0x0028, h01=0x0050, text=»*    I H G P       INTERRUPT HANDLER«, t00=0x0002, t01=0x00aa}
0x03f0…03fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d6}
0x03fa…0426              Head {h00=0x0028, h01=0x0050, text=»*    R C G P       RECOVERY ROUTINE «, t00=0x0002, t01=0x00e0}
0x0426…0430              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010c}
0x0430…045a              Head {h00=0x0026, h01=0x0050, text=»*    E C H O G P   ECHO FUNCTIONS «, t00=0x0002, t01=0x0116}
0x045a…0464              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0464…046e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014a}
0x046e…049c              Head {h00=0x002a, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0002, t01=0x0154}
0x049c…04a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x04a6…04c8              Head {h00=0x001e, h01=0x0050, text=»*    ORDER 00: TEST STATUS«, t00=0x0002, t01=0x018c}
0x04c8…04ea              Head {h00=0x001e, h01=0x0050, text=»*          05: BASIC WRITE«, t00=0x0003, t01=0x001e}
0x04ea…0510              Head {h00=0x0022, h01=0x0050, text=»*          06: STANDARD WRITE «, t00=0x0003, t01=0x0040}
0x0510…051a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0066}
0x051a…053c              Head {h00=0x001e, h01=0x0050, text=»*    NORMAL REGISTER USAGE«, t00=0x0003, t01=0x0070}
0x053c…0546              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0092}
0x0546…056c              Head {h00=0x0022, h01=0x0050, text=»*    REGISTER A1 = RETURN CODE«, t00=0x0003, t01=0x009c}
0x056c…0598              Head {h00=0x0028, h01=0x0050, text=»*             A2 = OUTPUT CHARACTER «, t00=0x0003, t01=0x00c2}
0x0598…05c0              Head {h00=0x0024, h01=0x0050, text=»*             A3 = BUFFER INDEX «, t00=0x0003, t01=0x00ee}
0x05c0…05e8              Head {h00=0x0024, h01=0x0050, text=»*             A4 = WORK REGISTER«, t00=0x0003, t01=0x0116}
0x05e8…060e              Head {h00=0x0022, h01=0x0050, text=»*             A5 = STACK BASE «, t00=0x0003, t01=0x013e}
0x060e…0634              Head {h00=0x0022, h01=0x0050, text=»*             A6 = DWT-ADDRESS«, t00=0x0003, t01=0x0164}
0x0634…0654              Head {h00=0x001c, h01=0x0050, text=»*             A7 = ORDER«, t00=0x0003, t01=0x018a}
0x0654…067a              Head {h00=0x0022, h01=0x0050, text=»*             A8 = ECB-ADDRESS«, t00=0x0004, t01=0x001a}
0x067a…0684              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0684…068e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x068e…06ac              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0004, t01=0x0054}
0x06ac…06b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0072}
0x06b6…06f4              Head {h00=0x003a, h01=0x0050, text=»*    THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR«, t00=0x0004, t01=0x007c}
0x06f4…0720              Head {h00=0x0028, h01=0x0050, text=»*    (GPCLR) KEYS SHOULD BE DEFINED.«, t00=0x0004, t01=0x00ba}
0x0720…072a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e6}
0x072a…0766              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS «, t00=0x0004, t01=0x00f0}
0x0766…079a              Head {h00=0x0030, h01=0x0050, text=»*    ADAPTED TO HANDLE FOLLOWING FUNCTIONS. «, t00=0x0004, t01=0x012c}
0x079a…07b8              Head {h00=0x001a, h01=0x0050, text=»*    --ROOMLESS POINT «, t00=0x0004, t01=0x0160}
0x07b8…07f6              Head {h00=0x003a, h01=0x0050, text=»*    --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH«, t00=0x0004, t01=0x017e}
0x07f6…0800              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002c}
0x0800…0848              Head {h00=0x0044, h01=0x0050, text=»*    --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER «, t00=0x0005, t01=0x0036}
0x0848…0882              Head {h00=0x0036, h01=0x0050, text=»*    --SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0005, t01=0x007e}
0x0882…08b0              Head {h00=0x002a, h01=0x0050, text=»**    --SUPPRESION OF TRAILING BLANKS «, t00=0x0005, t01=0x00b8}
0x08b0…08f4              Head {h00=0x0040, h01=0x0050, text=»*    --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE«, t00=0x0005, t01=0x00e6}
0x08f4…08fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x08fe…0938              Head {h00=0x0036, h01=0x0050, text=»*    THE CHARACTER CODES FOR ROOMLESS POINT DIGITS«, t00=0x0005, t01=0x0134}
0x0938…0982              Head {h00=0x0046, h01=0x0050, text=»*    IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET «, t00=0x0005, t01=0x016e}
0x0982…0990              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0028}
0x0990…099a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x099a…09a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0040}
0x09a4…09ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004a}
0x09ae…09b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09b8…09cc              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0006, t01=0x005e}
0x09cc…09e0              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0006, t01=0x0072}
0x09e0…09f4              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0006, t01=0x0086}
0x09f4…09fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x09fe…0a08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a08…0a12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ae}
0x0a12…0a3e              Head {h00=0x0028, h01=0x0050, text=» ENTRY GPAD ADDRESS TO ADDRESSBLOCK «, t00=0x0006, t01=0x00b8}
0x0a3e…0a72              Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0006, t01=0x00e4}
0x0a72…0a7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0118}
0x0a7c…0a86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0122}
0x0a86…0a90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a90…0a9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0136}
0x0a9a…0acc              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0140}
0x0acc…0afe              Head {h00=0x002e, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES       * «, t00=0x0006, t01=0x0172}
0x0afe…0b30              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0014}
0x0b30…0b3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b44…0b6c              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0007, t01=0x005a}
0x0b6c…0b9e              Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0007, t01=0x0082}
0x0b9e…0bbe              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0007, t01=0x00b4}
0x0bbe…0c00              Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0007, t01=0x00d4}
0x0c00…0c1e              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0116}
0x0c1e…0c50              Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0007, t01=0x0134}
0x0c50…0c84              Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0007, t01=0x0166}
0x0c84…0cb8              Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0008, t01=0x000a}
0x0cb8…0cc6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x003e}
0x0cc6…0cd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004c}
0x0cd0…0cf0              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0056}
0x0cf0…0d10              Head {h00=0x001c, h01=0x0050, text=»*    DWT PARAMETERS    *«, t00=0x0008, t01=0x0076}
0x0d10…0d30              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0096}
0x0d30…0d3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d3a…0d56              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0008, t01=0x00c0}
0x0d56…0d70              Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0008, t01=0x00dc}
0x0d70…0d7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7a…0da2              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0100}
0x0da2…0dca              Head {h00=0x0024, h01=0x0050, text=»*    DWT-DISPLACEMENT          *«, t00=0x0008, t01=0x0128}
0x0dca…0df2              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0150}
0x0df2…0dfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0178}
0x0dfc…0e22              Head {h00=0x0022, h01=0x0050, text=»DWTA3 EQU /12 SAVE AREA FOR A3«, t00=0x0008, t01=0x0182}
0x0e22…0e44              Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0009, t01=0x0018}
0x0e44…0e70              Head {h00=0x0028, h01=0x0050, text=»DWTAP EQU /22 HEAD POSITION POINTER «, t00=0x0009, t01=0x003a}
0x0e70…0e7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0066}
0x0e7a…0e88              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0070}
0x0e88…0e92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007e}
0x0e92…0e9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0088}
0x0e9c…0eb2              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0092}
0x0eb2…0ec8              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x00a8}
0x0ec8…0ede              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x00be}
0x0ede…0ee8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d4}
0x0ee8…0ef2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00de}
0x0ef2…0f30              Head {h00=0x003a, h01=0x0050, text=»SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0009, t01=0x00e8}
0x0f30…0f54              Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x0009, t01=0x0126}
0x0f54…0f76              Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x0009, t01=0x014a}
0x0f76…0f94              Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0009, t01=0x016c}
0x0f94…0fb6              Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0009, t01=0x018a}
0x0fb6…0fd2              Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000a, t01=0x001c}
0x0fd2…0ff0              Head {h00=0x001a, h01=0x0050, text=»FFED EQU /0C FORM FEED«, t00=0x000a, t01=0x0038}
0x0ff0…100c              Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000a, t01=0x0056}
0x100c…1040              Head {h00=0x0030, h01=0x0050, text=»PROUT EQU /04 PAPER OUT OR READY SWITCH OFF «, t00=0x000a, t01=0x0072}
0x1040…104e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00a6}
0x104e…107c              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x00b4}
0x107c…10aa              Head {h00=0x002a, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY            *«, t00=0x000a, t01=0x00e2}
0x10aa…10d8              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x0110}
0x10d8…10e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013e}
0x10e2…1118              Head {h00=0x0032, h01=0x0050, text=»*    IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT «, t00=0x000a, t01=0x0148}
0x1118…1140              Head {h00=0x0024, h01=0x0050, text=»*    FUNCTION BY SETTING X:A = 0«, t00=0x000a, t01=0x017e}
0x1140…114a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x114a…115c              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000b, t01=0x0020}
0x115c…1170              Head {h00=0x0010, h01=0x0050, text=»CROOM EQU 1 «, t00=0x000b, t01=0x0032}
0x1170…117a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0046}
0x117a…11b2              Head {h00=0x0034, h01=0x0050, text=»*    ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE «, t00=0x000b, t01=0x0050}
0x11b2…11e6              Head {h00=0x0030, h01=0x0050, text=»*    INCLUDED IN THE DRIVER BY SETTING X:B=1«, t00=0x000b, t01=0x0088}
0x11e6…11f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11f0…1202              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000b, t01=0x00c6}
0x1202…1216              Head {h00=0x0010, h01=0x0050, text=»TRETON EQU 0«, t00=0x000b, t01=0x00d8}
0x1216…1220              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ec}
0x1220…1258              Head {h00=0x0034, h01=0x0050, text=»*    ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE «, t00=0x000b, t01=0x00f6}
0x1258…128c              Head {h00=0x0030, h01=0x0050, text=»*    INCLUDED IN THE DRIVER BY SETTING X:C=1«, t00=0x000b, t01=0x012e}
0x128c…1296              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0162}
0x1296…12a8              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000b, t01=0x016c}
0x12a8…12bc              Head {h00=0x0010, h01=0x0050, text=»FJOTON EQU 0«, t00=0x000b, t01=0x017e}
0x12bc…12c6 (12, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12c6…12f8              Head {h00=0x002e, h01=0x0050, text=»*    IT IS POSSIBLE TO EXCLUDE ECHOING OF «, t00=0x000c, t01=0x000e}
0x12f8…1328              Head {h00=0x002c, h01=0x0050, text=»*    AN EXTRA SPACE AFTER EACH CHARACTER«, t00=0x000c, t01=0x0040}
0x1328…1344              Head {h00=0x0018, h01=0x0050, text=»*   BY SETTING X:D=0«, t00=0x000c, t01=0x0070}
0x1344…134e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x134e…1360              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x0096}
0x1360…1374              Head {h00=0x0010, h01=0x0050, text=»COSPAC EQU 1«, t00=0x000c, t01=0x00a8}
0x1374…137e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00bc}
0x137e…13ba              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000c, t01=0x00c6}
0x13ba…13f6              Head {h00=0x0038, h01=0x0050, text=»*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000c, t01=0x0102}
0x13f6…1432              Head {h00=0x0038, h01=0x0050, text=»*    THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0.«, t00=0x000c, t01=0x013e}
0x1432…143c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017a}
0x143c…144e              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000c, t01=0x0184}
0x144e…1462              Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000d, t01=0x0008}
0x1462…146c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x146c…14a4              Head {h00=0x0034, h01=0x0050, text=»*    SUPPRESSING OF SPACES IN RIGHT HAND OF LINE«, t00=0x000d, t01=0x0026}
0x14a4…14c2              Head {h00=0x001a, h01=0x0050, text=»*    BY SETTING X:F=1 «, t00=0x000d, t01=0x005e}
0x14c2…14cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14cc…14de              Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000d, t01=0x0086}
0x14de…14f2              Head {h00=0x0010, h01=0x0050, text=»SUPSPA EQU 0«, t00=0x000d, t01=0x0098}
0x14f2…14fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ac}
0x14fc…1528              Head {h00=0x0028, h01=0x0050, text=»* END OF REQUEST IN SITUATIONS WHERE«, t00=0x000d, t01=0x00b6}
0x1528…1558              Head {h00=0x002c, h01=0x0050, text=»* THE SELECTOR UNIT OR PRINTER HARDWARE «, t00=0x000d, t01=0x00e2}
0x1558…1586              Head {h00=0x002a, h01=0x0050, text=»* IS INACTIVE CAN BE CHOSEN BY SETTING«, t00=0x000d, t01=0x0112}
0x1586…15a8              Head {h00=0x001e, h01=0x0050, text=»* THE CONSTANT RECEND = 1 «, t00=0x000d, t01=0x0140}
0x15a8…15ba              Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000d, t01=0x0162}
0x15ba…15ce              Head {h00=0x0010, h01=0x0050, text=»RECEND EQU 0«, t00=0x000d, t01=0x0174}
0x15ce…15dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0188}
0x15dc…160a              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000e, t01=0x0008}
0x160a…163a              Head {h00=0x002c, h01=0x0050, text=»*    SPECIAL KEYS FOR ECHO FUNCTION   * «, t00=0x000e, t01=0x0036}
0x163a…1668              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000e, t01=0x0066}
0x1668…1672              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0094}
0x1672…1692              Head {h00=0x001c, h01=0x0050, text=»GPBSP EQU /2D BACK SPACE«, t00=0x000e, t01=0x009e}
0x1692…16ae              Head {h00=0x0018, h01=0x0050, text=»GPCLR EQU /3F CLEAR «, t00=0x000e, t01=0x00be}
0x16ae…16b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16b8…16d4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x00e4}
0x16d4…16f0              Head {h00=0x0018, h01=0x0050, text=»*    RETURN CODES  *«, t00=0x000e, t01=0x0100}
0x16f0…170c              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x011c}
0x170c…1716              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0138}
0x1716…174a              Head {h00=0x0030, h01=0x0050, text=»PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF«, t00=0x000e, t01=0x0142}
0x174a…1770              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000e, t01=0x0176}
0x1770…1796              Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x000f, t01=0x000c}
0x1796…17c2              Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000f, t01=0x0032}
0x17c2…17cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17cc…17da              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0068}
0x17da…17e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0076}
0x17e4…17ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17ee…1800              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x008a}
0x1800…1812              Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000f, t01=0x009c}
0x1812…1824              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00ae}
0x1824…182e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c0}
0x182e…1838              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x1838…184c              Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x000f, t01=0x00d4}
0x184c…1856              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e8}
0x1856…186a              Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x000f, t01=0x00f2}
0x186a…1898              Head {h00=0x002a, h01=0x0050, text=»   TABLE FOR ROOMLESS POINT CHARACTERS«, t00=0x000f, t01=0x0106}
0x1898…18c4              Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x000f, t01=0x0134}
0x18c4…18ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18ce…18da              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x016a}
0x18da…18e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0176}
0x18e4…18ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0180}
0x18ee…18f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018a}
0x18f8…1918 (16, 0, 400) Head {h00=0x001c, h01=0x0050, text=»GPAD EQU * ADDRESS BLOCK«, t00=0x0010, t01=0x0004}
0x1918…193c              Head {h00=0x0020, h01=0x0050, text=» DATA ACGP ACTIVATION DRIVER«, t00=0x0010, t01=0x0024}
0x193c…1960              Head {h00=0x0020, h01=0x0050, text=» DATA IHGP INTERRUPT HANDLER«, t00=0x0010, t01=0x0048}
0x1960…1984              Head {h00=0x0020, h01=0x0050, text=» DATA RCGP RECOVERY ROUTINE «, t00=0x0010, t01=0x006c}
0x1984…19b6              Head {h00=0x002e, h01=0x0050, text=» DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0010, t01=0x0090}
0x19b6…19c4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00c2}
0x19c4…19ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d0}
0x19ce…19e2              Head {h00=0x0010, h01=0x0050, text=»*    A C G P«, t00=0x0010, t01=0x00da}
0x19e2…19ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ee}
0x19ec…1a22              Head {h00=0x0032, h01=0x0050, text=»*    ACGP = ACTIVATION DRIVER GENERAL PRINTER «, t00=0x0010, t01=0x00f8}
0x1a22…1a2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012e}
0x1a2c…1a78              Head {h00=0x0048, h01=0x0050, text=»*    ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE«, t00=0x0010, t01=0x0138}
0x1a78…1ab8              Head {h00=0x003c, h01=0x0050, text=»*              IS SET IF PAPER OUT OR READY SWITCH OFF. «, t00=0x0010, t01=0x0184}
0x1ab8…1b04              Head {h00=0x0048, h01=0x0050, text=»*              RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM«, t00=0x0011, t01=0x0034}
0x1b04…1b28              Head {h00=0x0020, h01=0x0050, text=»*              CHANNEL UNIT.«, t00=0x0011, t01=0x0080}
0x1b28…1b32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a4}
0x1b32…1b74              Head {h00=0x003e, h01=0x0050, text=»*    ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER «, t00=0x0011, t01=0x00ae}
0x1b74…1b9a              Head {h00=0x0022, h01=0x0050, text=»*              FROM ECB-BUFFER«, t00=0x0011, t01=0x00f0}
0x1b9a…1ba4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x1ba4…1bee              Head {h00=0x0046, h01=0x0050, text=»*    ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM«, t00=0x0011, t01=0x0120}
0x1bee…1c2e              Head {h00=0x003c, h01=0x0050, text=»*               ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0011, t01=0x016a}
0x1c2e…1c38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001a}
0x1c38…1c4a              Head {h00=0x000e, h01=0x0050, text=»ACGP EQU *«, t00=0x0012, t01=0x0024}
0x1c4a…1c6e              Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0012, t01=0x0036}
0x1c6e…1c92              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0012, t01=0x005a}
0x1c92…1ca4              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0012, t01=0x007e}
0x1ca4…1cc0              Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0? «, t00=0x0012, t01=0x0090}
0x1cc0…1cd6              Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP410 «, t00=0x0012, t01=0x00ac}
0x1cd6…1cf0              Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0012, t01=0x00c2}
0x1cf0…1d06              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP05 «, t00=0x0012, t01=0x00dc}
0x1d06…1d20              Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 ORDER 6?«, t00=0x0012, t01=0x00f2}
0x1d20…1d4a              Head {h00=0x0026, h01=0x0050, text=» ABL(NE) DISIOE I/O REQUEST ERROR «, t00=0x0012, t01=0x010c}
0x1d4a…1d72              Head {h00=0x0024, h01=0x0050, text=» LD A1,4,A8 GET REQUESTED LENGTH«, t00=0x0012, t01=0x0136}
0x1d72…1d88              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP02 «, t00=0x0012, t01=0x015e}
0x1d88…1dae              Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x0174}
0x1dae…1dd8              Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x0013, t01=0x000a}
0x1dd8…1dec              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0013, t01=0x0034}
0x1dec…1e00              Head {h00=0x0010, h01=0x0050, text=»ACGP02 EQU *«, t00=0x0013, t01=0x0048}
0x1e00…1e2e              Head {h00=0x002a, h01=0x0050, text=» SUK A3,/2B POSITIONING BEFORE WRITE? «, t00=0x0013, t01=0x005c}
0x1e2e…1e44              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP12 «, t00=0x0013, t01=0x008a}
0x1e44…1e76              Head {h00=0x002e, h01=0x0050, text=» LDK A4,2 INDICATE CR AND LF/FFED TO SEND «, t00=0x0013, t01=0x00a0}
0x1e76…1e84              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00d2}
0x1e84…1e8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e0}
0x1e8e…1ec0              Head {h00=0x002e, h01=0x0050, text=»*    SEND DUMMY AND, IF CONTROL CHARACTER «, t00=0x0013, t01=0x00ea}
0x1ec0…1ef6              Head {h00=0x0032, h01=0x0050, text=»*    # 2B, SEND CARRIAGE RETURN AND LINE FEED «, t00=0x0013, t01=0x011c}
0x1ef6…1f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0152}
0x1f00…1f14              Head {h00=0x0010, h01=0x0050, text=»ACGP05 EQU *«, t00=0x0013, t01=0x015c}
0x1f14…1f38              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0013, t01=0x0170}
0x1f38…1f4a (20, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0014, t01=0x0004}
0x1f4a…1f74              Head {h00=0x0026, h01=0x0050, text=» RF(N) ACGP19 START SECTION ENDED?«, t00=0x0014, t01=0x0016}
0x1f74…1f8e              Head {h00=0x0016, h01=0x0050, text=» RF(P) ACGP15 STX «, t00=0x0014, t01=0x0040}
0x1f8e…1f98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005a}
0x1f98…1fc0              Head {h00=0x0024, h01=0x0050, text=»*    SEND LINE FEED OR FORM FEED«, t00=0x0014, t01=0x0064}
0x1fc0…1fca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008c}
0x1fca…1ff4              Head {h00=0x0026, h01=0x0050, text=» SUK A3,5 CONTROL CHARACTER /30 ? «, t00=0x0014, t01=0x0096}
0x1ff4…200a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP07«, t00=0x0014, t01=0x00c0}
0x200a…2038              Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 YES EXTRA LINE FEED TO SEND «, t00=0x0014, t01=0x00d6}
0x2038…204c              Head {h00=0x0010, h01=0x0050, text=»ACGP07 EQU *«, t00=0x0014, t01=0x0104}
0x204c…205e              Head {h00=0x000e, h01=0x0050, text=» LDK A2,LF«, t00=0x0014, t01=0x0118}
0x205e…2088              Head {h00=0x0026, h01=0x0050, text=»ACGP12 LDK A3,2 START BUFFER INDEX«, t00=0x0014, t01=0x012a}
0x2088…209a              Head {h00=0x000e, h01=0x0050, text=» RB ACGP05«, t00=0x0014, t01=0x0154}
0x209a…20d4              Head {h00=0x0036, h01=0x0050, text=»ACGP15 ST A4,DWTAP,A6 RESET HEAD POSITION POINTER «, t00=0x0014, t01=0x0166}
0x20d4…20f6              Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0015, t01=0x0010}
0x20f6…2108              Head {h00=0x000e, h01=0x0050, text=» RB ACGP05«, t00=0x0015, t01=0x0032}
0x2108…2116              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0044}
0x2116…2120              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0052}
0x2120…214a              Head {h00=0x0026, h01=0x0050, text=»*    GET, CHECK AND SEND CHARACTER«, t00=0x0015, t01=0x005c}
0x214a…216c              Head {h00=0x001e, h01=0x0050, text=»*    (IF ORDER 5 NO CHECK)«, t00=0x0015, t01=0x0086}
0x216c…2176              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a8}
0x2176…2192              Head {h00=0x0018, h01=0x0050, text=»ACGP17 CF A5,OUTPUT «, t00=0x0015, t01=0x00b2}
0x2192…21c6              Head {h00=0x0030, h01=0x0050, text=»ACGP18 IM DWTST,A6 POSITION COUNTER UPDATING«, t00=0x0015, t01=0x00ce}
0x21c6…21da              Head {h00=0x0010, h01=0x0050, text=»ACGP19 EQU *«, t00=0x0015, t01=0x0102}
0x21da…2208              Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/400 INDICATE LINE FEED DONE «, t00=0x0015, t01=0x0116}
0x2208…2220              Head {h00=0x0014, h01=0x0050, text=» ORS A4,DWTST,A6«, t00=0x0015, t01=0x0144}
0x2220…2236              Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0015, t01=0x015c}
0x2236…226e              Head {h00=0x0034, h01=0x0050, text=» CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER «, t00=0x0015, t01=0x0172}
0x226e…227a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x001a}
0x227a…228c              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0016, t01=0x0026}
0x228c…22c6              Head {h00=0x0036, h01=0x0050, text=»ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0016, t01=0x0038}
0x22c6…22e8              Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0016, t01=0x0072}
0x22e8…22fe              Head {h00=0x0012, h01=0x0050, text=» RF(NP) AGP400«, t00=0x0016, t01=0x0094}
0x22fe…2310              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0016, t01=0x00aa}
0x2310…232a              Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0016, t01=0x00bc}
0x232a…234c              Head {h00=0x001e, h01=0x0050, text=» RF(E) ACGP24 BASIC WRITE «, t00=0x0016, t01=0x00d6}
0x234c…2374              Head {h00=0x0024, h01=0x0050, text=» SUK A1,9 HARDWARE TABULATION ? «, t00=0x0016, t01=0x00f8}
0x2374…238a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP22«, t00=0x0016, t01=0x0120}
0x238a…23be              Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTAP,A6 RESET HEAD POSITION POINTER «, t00=0x0016, t01=0x0136}
0x23be…23d0              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0016, t01=0x016a}
0x23d0…23fe              Head {h00=0x002a, h01=0x0050, text=»ACGP22 SUK A1,8 TABULATION CHARACTER ?«, t00=0x0016, t01=0x017c}
0x23fe…2414              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP40 «, t00=0x0017, t01=0x001a}
0x2414…241e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0030}
0x241e…2434              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x0017, t01=0x003a}
0x2434…244a              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x0017, t01=0x0050}
0x244a…2454              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0066}
0x2454…2476              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0017, t01=0x0070}
0x2476…2480              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0092}
0x2480…248c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x009c}
0x248c…2496              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a8}
0x2496…24ac              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x0017, t01=0x00b2}
0x24ac…24c2              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x0017, t01=0x00c8}
0x24c2…24cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00de}
0x24cc…24e2              Head {h00=0x0012, h01=0x0050, text=» SUK A1,3 /14?«, t00=0x0017, t01=0x00e8}
0x24e2…24f8              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0017, t01=0x00fe}
0x24f8…251a              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x0017, t01=0x0114}
0x251a…2524              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0136}
0x2524…2530              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0140}
0x2530…253a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014c}
0x253a…2544              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0156}
0x2544…255a              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x0017, t01=0x0160}
0x255a…2570              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x0017, t01=0x0176}
0x2570…257a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018c}
0x257a…2592              Head {h00=0x0014, h01=0x0050, text=» SUK A1,2 /13 ? «, t00=0x0018, t01=0x0008}
0x2592…25a8              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0018, t01=0x0020}
0x25a8…25ca              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/D LESS THAN /20 ?«, t00=0x0018, t01=0x0036}
0x25ca…25d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0058}
0x25d6…25e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0064}
0x25e0…25ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x006e}
0x25ea…2600              Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x0018, t01=0x0078}
0x2600…2616              Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x0018, t01=0x008e}
0x2616…2620              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a4}
0x2620…2636              Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 /13?«, t00=0x0018, t01=0x00ae}
0x2636…264c              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0018, t01=0x00c4}
0x264c…2662              Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 /14?«, t00=0x0018, t01=0x00da}
0x2662…2678              Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0018, t01=0x00f0}
0x2678…269a              Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x0018, t01=0x0106}
0x269a…26a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0128}
0x26a4…26b0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0132}
0x26b0…26ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013e}
0x26ba…26e0              Head {h00=0x0022, h01=0x0050, text=» RF(N) ACGP30 CODE CHECK ERROR«, t00=0x0018, t01=0x0148}
0x26e0…270a              Head {h00=0x0026, h01=0x0050, text=» SUK A1,/8E ROOMLESS POINT?  (AE) «, t00=0x0018, t01=0x016e}
0x270a…2720              Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP100 «, t00=0x0019, t01=0x0008}
0x2720…2744              Head {h00=0x0020, h01=0x0050, text=» ADK A1,/4F GREATER THAN /5F«, t00=0x0019, t01=0x001e}
0x2744…275a              Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP17«, t00=0x0019, t01=0x0042}
0x275a…276e              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x0019, t01=0x0058}
0x276e…2784              Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACGP30«, t00=0x0019, t01=0x006c}
0x2784…27be              Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0019, t01=0x0082}
0x27be…27e8              Head {h00=0x0026, h01=0x0050, text=»   TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0019, t01=0x00bc}
0x27e8…27fa              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0019, t01=0x00e6}
0x27fa…280e              Head {h00=0x0010, h01=0x0050, text=»ACGP24 EQU *«, t00=0x0019, t01=0x00f8}
0x280e…2820              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x0019, t01=0x010c}
0x2820…283e              Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ACGP26 NOT CR «, t00=0x0019, t01=0x011e}
0x283e…2864              Head {h00=0x0022, h01=0x0050, text=» CM DWTST,A6 SET POS LTR.TO 0 «, t00=0x0019, t01=0x013c}
0x2864…2890              Head {h00=0x0028, h01=0x0050, text=» CM DWTAP,A6 RESET HEAD POS.POIINTER«, t00=0x0019, t01=0x0162}
0x2890…28a8              Head {h00=0x0014, h01=0x0050, text=»ACGP26 ADK A1,3 «, t00=0x0019, t01=0x018e}
0x28a8…28cc              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ACGP17 NOT LINE FEED«, t00=0x001a, t01=0x0016}
0x28cc…28de              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001a, t01=0x003a}
0x28de…290c              Head {h00=0x002a, h01=0x0050, text=» ADS A1,DWTST,A6 DECREMENT POS COUNTER«, t00=0x001a, t01=0x004c}
0x290c…291e              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001a, t01=0x007a}
0x291e…292c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x008c}
0x292c…2936              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x2936…2954              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x001a, t01=0x00a4}
0x2954…295e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c2}
0x295e…2972              Head {h00=0x0010, h01=0x0050, text=»ACGP30 EQU *«, t00=0x001a, t01=0x00cc}
0x2972…2988              Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x001a, t01=0x00e0}
0x2988…29a8              Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x001a, t01=0x00f6}
0x29a8…29ba              Head {h00=0x000e, h01=0x0050, text=» RB ACGP20«, t00=0x001a, t01=0x0116}
0x29ba…29c8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0128}
0x29c8…29d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0136}
0x29d2…29ea              Head {h00=0x0014, h01=0x0050, text=»*    TABULATION «, t00=0x001a, t01=0x0140}
0x29ea…29f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0158}
0x29f4…2a08              Head {h00=0x0010, h01=0x0050, text=»ACGP40 EQU *«, t00=0x001a, t01=0x0162}
0x2a08…2a38              Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x001a, t01=0x0176}
0x2a38…2a4a              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001b, t01=0x0016}
0x2a4a…2a7c              Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x001b, t01=0x0028}
0x2a7c…2a8e              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001b, t01=0x005a}
0x2a8e…2aa0              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x001b, t01=0x006c}
0x2aa0…2ab6              Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP44 «, t00=0x001b, t01=0x007e}
0x2ab6…2aea              Head {h00=0x0030, h01=0x0050, text=»ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x001b, t01=0x0094}
0x2aea…2afc              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001b, t01=0x00c8}
0x2afc…2b12              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP43«, t00=0x001b, t01=0x00da}
0x2b12…2b4e              Head {h00=0x0038, h01=0x0050, text=»ACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER«, t00=0x001b, t01=0x00f0}
0x2b4e…2b66              Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x001b, t01=0x012c}
0x2b66…2b96              Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x001b, t01=0x0144}
0x2b96…2bc0              Head {h00=0x0026, h01=0x0050, text=»   TO GET NUMBER OF SPACES TO SEND«, t00=0x001b, t01=0x0174}
0x2bc0…2bd6              Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP20«, t00=0x001c, t01=0x000e}
0x2bd6…2be8              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001c, t01=0x0024}
0x2be8…2c26              Head {h00=0x003a, h01=0x0050, text=»ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE«, t00=0x001c, t01=0x0036}
0x2c26…2c42              Head {h00=0x0018, h01=0x0050, text=»ACGP46 CF A5,OUTPUT «, t00=0x001c, t01=0x0074}
0x2c42…2c6e              Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BUFFER INDEX «, t00=0x001c, t01=0x0090}
0x2c6e…2c80              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001c, t01=0x00bc}
0x2c80…2c96              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP45«, t00=0x001c, t01=0x00ce}
0x2c96…2cb2              Head {h00=0x0018, h01=0x0050, text=» LDR A3,A3 RECOVERY?«, t00=0x001c, t01=0x00e4}
0x2cb2…2cc8              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP20«, t00=0x001c, t01=0x0100}
0x2cc8…2cf6              Head {h00=0x002a, h01=0x0050, text=» SC A4,DWTBC,A6 RESET POSITION POINTER«, t00=0x001c, t01=0x0116}
0x2cf6…2d1a              Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x0144}
0x2d1a…2d2c              Head {h00=0x000e, h01=0x0050, text=» RB ACGP19«, t00=0x001c, t01=0x0168}
0x2d2c…2d3a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x017a}
0x2d3a…2d44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0188}
0x2d44…2d60 (29, 0, 400) Head {h00=0x0018, h01=0x0050, text=»*    ROOMLESS POINT «, t00=0x001d, t01=0x0004}
0x2d60…2d6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0020}
0x2d6a…2d7e              Head {h00=0x0010, h01=0x0050, text=»AGP100 EQU *«, t00=0x001d, t01=0x002a}
0x2d7e…2d88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003e}
0x2d88…2d9c              Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x001d, t01=0x0048}
0x2d9c…2da6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005c}
0x2da6…2dd2              Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER TO SEND«, t00=0x001d, t01=0x0066}
0x2dd2…2de4              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001d, t01=0x0092}
0x2de4…2e06              Head {h00=0x001e, h01=0x0050, text=» LC A2,ROMTAB,A2 TRANSFORM«, t00=0x001d, t01=0x00a4}
0x2e06…2e10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e10…2e1c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00d0}
0x2e1c…2e26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00dc}
0x2e26…2e30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e6}
0x2e30…2e44              Head {h00=0x0010, h01=0x0050, text=» IFF CROOM=1«, t00=0x001d, t01=0x00f0}
0x2e44…2e4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0104}
0x2e4e…2e62              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001d, t01=0x010e}
0x2e62…2e6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0122}
0x2e6c…2e78              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x012c}
0x2e78…2e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0138}
0x2e82…2e94              Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x0142}
0x2e94…2ea2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0154}
0x2ea2…2eac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0162}
0x2eac…2eb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016c}
0x2eb6…2ee2              Head {h00=0x0028, h01=0x0050, text=»*    SEND LAST DUMMY , LOAD A1 WITH «, t00=0x001d, t01=0x0176}
0x2ee2…2f06              Head {h00=0x0020, h01=0x0050, text=»*    RETURN CODE AND END I/O«, t00=0x001e, t01=0x0012}
0x2f06…2f10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0036}
0x2f10…2f24              Head {h00=0x0010, h01=0x0050, text=»AGP400 EQU *«, t00=0x001e, t01=0x0040}
0x2f24…2f46              Head {h00=0x001e, h01=0x0050, text=» LDK A2,ETB END OF MESSAGE«, t00=0x001e, t01=0x0054}
0x2f46…2f60              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x0076}
0x2f60…2f84              Head {h00=0x0020, h01=0x0050, text=»AGP410 LDK A2,ETX LAST DUMMY«, t00=0x001e, t01=0x0090}
0x2f84…2f9e              Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x00b4}
0x2f9e…2fb2              Head {h00=0x0010, h01=0x0050, text=»AGP420 EQU *«, t00=0x001e, t01=0x00ce}
0x2fb2…2fe6              Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x001e, t01=0x00e2}
0x2fe6…300a              Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x001e, t01=0x0116}
0x300a…3032              Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x001e, t01=0x013a}
0x3032…3046              Head {h00=0x0010, h01=0x0050, text=»AGP430 EQU *«, t00=0x001e, t01=0x0162}
0x3046…305e              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTA3,A6 «, t00=0x001e, t01=0x0176}
0x305e…307e              Head {h00=0x001c, h01=0x0050, text=» ST A3,6,A8 EFF. LENGTH «, t00=0x001e, t01=0x018e}
0x307e…3090              Head {h00=0x000e, h01=0x0050, text=» RB AGP420«, t00=0x001f, t01=0x001e}
0x3090…309e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0030}
0x309e…30a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003e}
0x30a8…30b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0048}
0x30b2…30e2              Head {h00=0x002c, h01=0x0050, text=»*    UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x001f, t01=0x0052}
0x30e2…3112              Head {h00=0x002c, h01=0x0050, text=»*             POSITION POINTER WHEN END «, t00=0x001f, t01=0x0082}
0x3112…313e              Head {h00=0x0028, h01=0x0050, text=»*             OF REQUEST IS REACHED «, t00=0x001f, t01=0x00b2}
0x313e…3152              Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x001f, t01=0x00de}
0x3152…317e              Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x001f, t01=0x00f2}
0x317e…31b4              Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x001f, t01=0x011e}
0x31b4…31c6              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001f, t01=0x0154}
0x31c6…31f6              Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET  POSITION COUNTER «, t00=0x001f, t01=0x0166}
0x31f6…3206              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0020, t01=0x0008}
0x3206…321c              Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0020, t01=0x0018}
0x321c…322a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x002e}
0x322a…3234              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003c}
0x3234…323e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0046}
0x323e…326c              Head {h00=0x002a, h01=0x0050, text=»*    SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0020, t01=0x0050}
0x326c…3298              Head {h00=0x0028, h01=0x0050, text=»*             IN END OF ECB-BUFFER. «, t00=0x0020, t01=0x007e}
0x3298…32d2              Head {h00=0x0036, h01=0x0050, text=»*             REQUESTED LENGTH IN ECB IS UPDATED. «, t00=0x0020, t01=0x00aa}
0x32d2…32fc              Head {h00=0x0026, h01=0x0050, text=»*             A1,A2,A4 - WORK REG «, t00=0x0020, t01=0x00e4}
0x32fc…3306              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010e}
0x3306…331a              Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0020, t01=0x0118}
0x331a…3346              Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x012c}
0x3346…3372              Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x0158}
0x3372…339a              Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x0184}
0x339a…33b2              Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0021, t01=0x001c}
0x33b2…33d0              Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0021, t01=0x0034}
0x33d0…33ea              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0021, t01=0x0052}
0x33ea…3406              Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0021, t01=0x006c}
0x3406…3424              Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0021, t01=0x0088}
0x3424…343e              Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0021, t01=0x00a6}
0x343e…345e              Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0021, t01=0x00c0}
0x345e…347a              Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x00e0}
0x347a…3492              Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x00fc}
0x3492…34b0              Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x0114}
0x34b0…34ce              Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x0132}
0x34ce…34f6              Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x0150}
0x34f6…3510              Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0021, t01=0x0178}
0x3510…352a (34, 0, 400) Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0022, t01=0x0004}
0x352a…3544              Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0022, t01=0x001e}
0x3544…3560              Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0022, t01=0x0038}
0x3560…356a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0054}
0x356a…3590              Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x005e}
0x3590…35a0              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0022, t01=0x0084}
0x35a0…35ac              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0094}
0x35ac…35ba              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00a0}
0x35ba…35c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ae}
0x35c4…35d8              Head {h00=0x0010, h01=0x0050, text=»*    I H G P«, t00=0x0022, t01=0x00b8}
0x35d8…35e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00cc}
0x35e2…35f8              Head {h00=0x0012, h01=0x0050, text=»*    INTERRUPT«, t00=0x0022, t01=0x00d6}
0x35f8…3602              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ec}
0x3602…3614              Head {h00=0x000e, h01=0x0050, text=»IHGP EQU *«, t00=0x0022, t01=0x00f6}
0x3614…3632              Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x0022, t01=0x0108}
0x3632…3648              Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0022, t01=0x0126}
0x3648…3666              Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x0022, t01=0x013c}
0x3666…367c              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHGP10 «, t00=0x0022, t01=0x015a}
0x367c…3698              Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0? «, t00=0x0022, t01=0x0170}
0x3698…36ae              Head {h00=0x0012, h01=0x0050, text=» RB(Z) AGP430 «, t00=0x0022, t01=0x018c}
0x36ae…36e0              Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x0023, t01=0x0012}
0x36e0…36f6              Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=0 «, t00=0x0023, t01=0x0044}
0x36f6…370a              Head {h00=0x0010, h01=0x0050, text=» RB(NZ) EXIT«, t00=0x0023, t01=0x005a}
0x370a…3716              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x006e}
0x3716…372c              Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=1 «, t00=0x0023, t01=0x007a}
0x372c…3742              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AGP430«, t00=0x0023, t01=0x0090}
0x3742…374e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00a6}
0x374e…3756              Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00b2}
0x3756…378e              Head {h00=0x0034, h01=0x0050, text=»IHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0023, t01=0x00ba}
0x378e…379c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00f2}
0x379c…37a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0100}
0x37a6…37be              Head {h00=0x0014, h01=0x0050, text=»*    E C H O G P«, t00=0x0023, t01=0x010a}
0x37be…37c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0122}
0x37c8…37fc              Head {h00=0x0030, h01=0x0050, text=»*    ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0023, t01=0x012c}
0x37fc…3806              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0160}
0x3806…381a              Head {h00=0x0010, h01=0x0050, text=»ECHOGP EQU *«, t00=0x0023, t01=0x016a}
0x381a…3830              Head {h00=0x0012, h01=0x0050, text=» LDK A4,COSPAC«, t00=0x0023, t01=0x017e}
0x3830…3848 (36, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0024, t01=0x0004}
0x3848…3862              Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP17 YES «, t00=0x0024, t01=0x001c}
0x3862…386c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0036}
0x386c…3882              Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0024, t01=0x0040}
0x3882…388c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0056}
0x388c…38ae              Head {h00=0x001e, h01=0x0050, text=» SUK A2,/80 EOR-CHARACTER «, t00=0x0024, t01=0x0060}
0x38ae…38c8              Head {h00=0x0016, h01=0x0050, text=» RF(NN) ECGP20 YES«, t00=0x0024, t01=0x0082}
0x38c8…38dc              Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0024, t01=0x009c}
0x38dc…38e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b0}
0x38e6…38f2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00ba}
0x38f2…38fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c6}
0x38fc…390e              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x00d0}
0x390e…3920              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/8«, t00=0x0024, t01=0x00e2}
0x3920…3940              Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP40 BACKSPACE «, t00=0x0024, t01=0x00f4}
0x3940…3954              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x0024, t01=0x0114}
0x3954…3970              Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP50 CLEAR «, t00=0x0024, t01=0x0128}
0x3970…399a              Head {h00=0x0026, h01=0x0050, text=»ECGP10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0024, t01=0x0144}
0x399a…39c6              Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 UPDATE POSITION COUNTER«, t00=0x0024, t01=0x016e}
0x39c6…39e0              Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x0025, t01=0x000a}
0x39e0…39fa              Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP20 YES «, t00=0x0025, t01=0x0024}
0x39fa…3a28              Head {h00=0x002a, h01=0x0050, text=» RF(P) ECGP60 NO, GO TO CLEAR SECTION «, t00=0x0025, t01=0x003e}
0x3a28…3a32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006c}
0x3a32…3a48              Head {h00=0x0012, h01=0x0050, text=» IFT COSPAC=1 «, t00=0x0025, t01=0x0076}
0x3a48…3a52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008c}
0x3a52…3a76              Head {h00=0x0020, h01=0x0050, text=» LDK A2,SPACE NO SEND SPACE «, t00=0x0025, t01=0x0096}
0x3a76…3a88              Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0025, t01=0x00ba}
0x3a88…3a92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00cc}
0x3a92…3a9e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00d6}
0x3a9e…3aa8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e2}
0x3aa8…3ae2              Head {h00=0x0036, h01=0x0050, text=»ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER «, t00=0x0025, t01=0x00ec}
0x3ae2…3b0e              Head {h00=0x0028, h01=0x0050, text=»ECGP20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0025, t01=0x0126}
0x3b0e…3b1c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0152}
0x3b1c…3b26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0160}
0x3b26…3b3c              Head {h00=0x0012, h01=0x0050, text=»*    BACKSPACE«, t00=0x0025, t01=0x016a}
0x3b3c…3b46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0180}
0x3b46…3b5a              Head {h00=0x0010, h01=0x0050, text=»ECGP40 EQU *«, t00=0x0025, t01=0x018a}
0x3b5a…3b84              Head {h00=0x0026, h01=0x0050, text=» LDK A2,GPBSP BACKSPACE CHARACTER «, t00=0x0026, t01=0x000e}
0x3b84…3b96              Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0026, t01=0x0038}
0x3b96…3ba0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x004a}
0x3ba0…3bb4              Head {h00=0x0010, h01=0x0050, text=»*    CANCEL «, t00=0x0026, t01=0x0054}
0x3bb4…3bbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0068}
0x3bbe…3bd2              Head {h00=0x0010, h01=0x0050, text=»ECGP50 EQU *«, t00=0x0026, t01=0x0072}
0x3bd2…3bf8              Head {h00=0x0022, h01=0x0050, text=» LDK A2,GPCLR CLEAR CHARACTER «, t00=0x0026, t01=0x0086}
0x3bf8…3c0a              Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0026, t01=0x00ac}
0x3c0a…3c1c              Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0026, t01=0x00be}
0x3c1c…3c3e              Head {h00=0x001e, h01=0x0050, text=»ECGP60 LDK A2,LF LINE FEED«, t00=0x0026, t01=0x00d0}
0x3c3e…3c56              Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTBC,A6 «, t00=0x0026, t01=0x00f2}
0x3c56…3c6a              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0026, t01=0x010a}
0x3c6a…3c90              Head {h00=0x0022, h01=0x0050, text=»ECGP70 CF A5,OUTPUT SEND CHAR.«, t00=0x0026, t01=0x011e}
0x3c90…3cae              Head {h00=0x001a, h01=0x0050, text=» LDK A2,/08 BACKSPACE «, t00=0x0026, t01=0x0144}
0x3cae…3cc0              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0026, t01=0x0162}
0x3cc0…3cd6              Head {h00=0x0012, h01=0x0050, text=» RB(NN) ECGP70«, t00=0x0026, t01=0x0174}
0x3cd6…3ce8              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0026, t01=0x018a}
0x3ce8…3d16              Head {h00=0x002a, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0027, t01=0x000c}
0x3d16…3d28              Head {h00=0x000e, h01=0x0050, text=» RB ECGP20«, t00=0x0027, t01=0x003a}
0x3d28…3d36              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x004c}
0x3d36…3d40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005a}
0x3d40…3d54              Head {h00=0x0010, h01=0x0050, text=»*    R C G P«, t00=0x0027, t01=0x0064}
0x3d54…3d5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0078}
0x3d5e…3d92              Head {h00=0x0030, h01=0x0050, text=»*    RCGP = RECOVERY ROUTINE GENERAL PRINTER«, t00=0x0027, t01=0x0082}
0x3d92…3d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b6}
0x3d9c…3da6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c0}
0x3da6…3dd2              Head {h00=0x0028, h01=0x0050, text=»*    RECOVERY IS CARRIED OUT ONLY IF«, t00=0x0027, t01=0x00ca}
0x3dd2…3df2              Head {h00=0x001c, h01=0x0050, text=»*    ORDER 6 IS RUNNING «, t00=0x0027, t01=0x00f6}
0x3df2…3dfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0116}
0x3dfc…3e12              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0027, t01=0x0120}
0x3e12…3e1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0136}
0x3e1c…3e3a              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x0027, t01=0x0140}
0x3e3a…3e52              Head {h00=0x0014, h01=0x0050, text=»*    A7 = ORDER «, t00=0x0027, t01=0x015e}
0x3e52…3e70              Head {h00=0x001a, h01=0x0050, text=»*    A8 = ECB-ADDRESS «, t00=0x0027, t01=0x0176}
0x3e70…3e82 (40, 0, 400) Head {h00=0x000e, h01=0x0050, text=»RCGP EQU *«, t00=0x0028, t01=0x0004}
0x3e82…3eb2              Head {h00=0x002c, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGISTERS ON STACK «, t00=0x0028, t01=0x0016}
0x3eb2…3ed0              Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTST,A6 BUSY ?«, t00=0x0028, t01=0x0046}
0x3ed0…3ee6              Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0028, t01=0x0064}
0x3ee6…3f12              Head {h00=0x0028, h01=0x0050, text=» LDK A2,SOH RESET PRINT BUFFER CODE «, t00=0x0028, t01=0x007a}
0x3f12…3f30              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0028, t01=0x00a6}
0x3f30…3f42              Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0028, t01=0x00c4}
0x3f42…3f58              Head {h00=0x0012, h01=0x0050, text=» RF(E) RCGP10 «, t00=0x0028, t01=0x00d6}
0x3f58…3f72              Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x0028, t01=0x00ec}
0x3f72…3f8c              Head {h00=0x0016, h01=0x0050, text=» RF(E) RCGP05 YES «, t00=0x0028, t01=0x0106}
0x3f8c…3fa6              Head {h00=0x0016, h01=0x0050, text=» CWK A7,0 ORDER 0?«, t00=0x0028, t01=0x0120}
0x3fa6…3fba              Head {h00=0x0010, h01=0x0050, text=» RB(E) ENDIO«, t00=0x0028, t01=0x013a}
0x3fba…3fca              Head {h00=0x000c, h01=0x0050, text=» RB EXIT«, t00=0x0028, t01=0x014e}
0x3fca…3fde              Head {h00=0x0010, h01=0x0050, text=»RCGP05 EQU *«, t00=0x0028, t01=0x015e}
0x3fde…4012              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD«, t00=0x0028, t01=0x0172}
0x4012…4036              Head {h00=0x0020, h01=0x0050, text=» ANK A2,/4 LINE FEED DONE ? «, t00=0x0029, t01=0x0016}
0x4036…404e              Head {h00=0x0014, h01=0x0050, text=» ABL(E) ACGP NO «, t00=0x0029, t01=0x003a}
0x404e…4064              Head {h00=0x0012, h01=0x0050, text=» LDK A2,SPACE «, t00=0x0029, t01=0x0052}
0x4064…4084              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE«, t00=0x0029, t01=0x0068}
0x4084…4098              Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x0029, t01=0x0088}
0x4098…40b6              Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND STX«, t00=0x0029, t01=0x009c}
0x40b6…40d8              Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0029, t01=0x00ba}
0x40d8…40ea              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0029, t01=0x00dc}
0x40ea…411e              Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND«, t00=0x0029, t01=0x00ee}
0x411e…4132              Head {h00=0x0010, h01=0x0050, text=» ABL ACGP46 «, t00=0x0029, t01=0x0122}
0x4132…415e              Head {h00=0x0028, h01=0x0050, text=»RCGP10 LDK A1,TPERR SET RETURN CODE «, t00=0x0029, t01=0x0136}
0x415e…4172              Head {h00=0x0010, h01=0x0050, text=» ABL AGP430 «, t00=0x0029, t01=0x0162}
0x4172…417e              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x0176}
0x417e…4182              Head {h00=0x4004, h01=0x0000}
0x4182…4186              00 29 01 82                                                                                                                                                                                                                                       ┆ )  ┆
0x4186…418e (42, 1, 8)   20 04 00 00 00 2a 00 04                                                                                                                                                                                                                           ┆     *  ┆
0x418e…41de (43, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 42 44 41 43 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 37 20 30 39 20 31 36 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 30 20 20 20 20 20 20 20 20 20 20 20   ┆    LABEL = BDACON            DATE =  77 09 16        PACK NBR =  000           ┆
0x41de…422e              00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 81 2d 15 02 13 02 98 a0 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f   ┆ f                                           -        P     Y _(  Y     M       ┆
0x422e…427e              f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ :       ]    =IR   E                                                           ┆
0x427e…42ce              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                                                                ┆
                         […0x1…]
0x431e…436e (44, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 42 44 41 43 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 37 20 30 39 20 31 36 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 30 20 20 20 20 20 20 20 20 20 20 20   ┆    LABEL = BDACON            DATE =  77 09 16        PACK NBR =  000           ┆
0x436e…43be              00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 81 2d 15 02 13 02 98 a0 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f   ┆ f                                           -        P     Y _(  Y     M       ┆
0x43be…440e              f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ :       ]    =IR   E                                                           ┆
0x440e…445e              20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                                                                ┆
                         […0x1…]

Reduced view