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

⟦bd9a38584⟧

    Length: 11044 (0x2b24)
    Notes: pts_type(SC)
    Names: »LOGIN.SC«

Derivation

└─⟦8ac270cab⟧ Bits:30009705 Philips computer tape "LINSIM8-2"
    └─⟦this⟧ »LINSIM82/LOGIN.SC« 
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »LINSIM/LOGIN.SC« 

PTS(SC)

	IDENT LOGIN  	REL 1.1 82-09-29  870150040110 
			#2 
			UPDATE #0 77.01.20 JES 
* 
* 
*	LOG DC TASK 
* 
* 
	ENTRY	LOGIN
* 
* 
*	EXTERNAL REFERENCES 
* 
* 
	EXTRN	MOL	OWN LINE MESSAGES
	EXTRN	MBL	BEGIN OF LINE MESSAGES 
	EXTRN	TAB1	CHAR TABLE 1
	EXTRN	TAB2	CHAR TABLE 2
	EXTRN	PRPOOL	PRINTER OCCUPIED BUFFER ADDRESSS
	EXTRN	TAB3 
	EXTRN	TAB4 
	EXTRN	CODE 
	EXTRN	ETX
	EXTRN	ETB
	EXTRN	SYN
	EXTRN	PRFLAG	
* 
* 
*	EQUATES 
* 
* 
* 
* 
* 
*	RELATIVE ECB EQUATES
* 
* 
ECBBA	EQU	2 
ECBRL	EQU	4 
ECBEL	EQU	6 
ECBRC	EQU	8 
ECBCW	EQU	/A
* 
	RES	20	A14 STACK 
STB	EQU	*-2 
PROCCA	DATA	0	ADDRESS TO PRINTER OCCUPIED BUFFER
	EJECT
* 
* 
*	INITIALIZE SYSTEM 
* 
*	A9=BUFFER POINTER 
*	A10=CHARACTER COUNTER 
* 
* 
LOGIN	LDKL	A14,STB	LOAD STACK BASE
	SUR	A10,A10	RESET CHARACTER COUNTER
	LDK	A1,2 
	ST	A1,PRECBL	EMPTY PRINTER BUFFER
	LDK	A1,1 
	ST	A1,XSPACE	SET SPACE INDICATOR 
	EJECT
* 
* 
*	EDIT CHARACTERS FROM LINE 
* 
* 
EDIT	CF	A14,GETCH	GET CHARACTER 
ED000	EQU	* 
	RF(P)	ED300	COMMENT
	ANK	A7,/FF 
	CWK	A7,/FF 
	RF(E)	ED110	MARK HOLD: PRINT THIS BUFFER 
	CW	A7,ETX
	RF(E)	ED150	ETX: READ LRC
	CW	A7,ETB
	RF(E)	ED150	ETB: READ LRC
	LD	A1,CODE 
	RF(NZ)	ED200	EBCDIC
	CF	A14,STAB1	SEARCH IN TABLE 1 
	RF(Z)	ED100	FOUND
	CF	A14,STAB2	SEARCH IN TABLE 2 
	RF(Z)	ED100	FOUND
ED050	EQU	* 
	CF	A14,EDHEX	NOT FOUND: EDIT IT HEXADECIMAL
ED100	LDK	A1,100
	CW	A1,PRECBL 
	RB(G)	EDIT	LINE NOT FULL 
ED110	CF	A14,PRLINE	PRINT LINE
	RB	EDIT
ED150	EQU	* 
	LD	A1,CODE 
	RF(NZ)	ED250	EBCDIC
	CF	A14,STAB2	PUT ETX OR ETB IN BUFFER
ED160	EQU	* 
	CF	A14,GETCH	GET LRC 
	RB(NZ)	ED000	COMMENT OR POLL 
	ANK	A7,/FF 
	CF	A14,EDHEX	EDIT LRC HEXADECIMAL
	RB	ED100 
ED200	EQU	* 
	CF	A14,STAB3 
	RB(Z)	ED100	FOUND
	CF	A14,STAB4 
	RB(Z)	ED100	FOUND
	RB	ED050	EDIT HEXA 
ED250	EQU	* 
	CF	A14,STAB4 
	CF	A14,GETCH	GET CRC 
	RB(NZ)	ED000	COMMENT OR POLLCOUNTER
	ANK	A7,/FF 
	CF	A14,EDHEX 
	RB	ED160 
* 
* 
*	COMMENT CHARACTER 
* 
* 
ED300	EQU	* 
	CF	A14,CRLF
	CF	A14,PRTEXT
	RB	EDIT
	EJECT
* 
* 
*	PRINT TEXT ON PRINTER 
* 
*	A7 CONTAINS CONTROL CHARACTER 
* 
* 
PRTEXT	LDR	A6,A7	SAVE CHARACTER 
	CF	A14,PRLINE	RELEASE PRINT BUFFER 
	ADR	A6,A6	DOUBLE FOR INDEXING
	ANK	A6,/FF 
	LDR	A2,A6
	ANK	A2,/7F 
	LD	A3,MOL,A2	GET TEXT ADDRESS
	CWR	A2,A6
	RF(NE)	PRT100	OWN LINE TEXT
	LD	A3,MBL,A2	BEGINNING OF LINE 
PRT100	LDR*	A4,A3	GET TEXT LENGTH 
	CWK	A1,100 
	RF(G)	PRT130	INVALID LENGTH: SKIP TEXT 
	ADK	A3,2	SKIP LENGTH 
PRT110	SUK	A4,1 
	RF(N)	PRT120	ALL MOVED 
	LCR	A1,A3
	ADK	A3,1 
	CF	A14,STORE 
	RB	PRT110
PRT120	ANK	A6,/80 
	RF(Z)	PRT130	BEGINNING OF LINE 
	CF	A14,PRLINE	PRINT OWN LINE 
PRT130	RTN	A14
	EJECT
* 
* 
*	PRINT ONE LINE ON PRINTER 
* 
* 
PRLINE	EQU	*	 
	LDK	A1,2	
	CW	A1,PRECBL 
	RF(E)	PRLI10	NOTHING IN BUFFER 
	LDK	A1,/2B	SET CONTROL WORD
	ST	A1,PRBUF
	LDK	A7,1 
	LKM
	DATA	-7,PRPOOL	OCCUPIE PRINTER 
	ST	A8,PROCCA	SAVE BUFFER ADDRESS 
	LDK	A7,/86	STD WRITE AND WAIT
	LDKL	A8,PRECB
	LDK	A1,'P'	PRINTER ENABLED	
	CW	A1,PRFLAG	
	RF(E)	PRLI02	NO,SKIP IT	 
	LKM
	DATA	1 
PRLI02	EQU	*	 
	LDK	A1,2 
	ST	A1,PRECBL 
	CM	PRBUF	SET CONTROL-WORD = 0
	CF	A14,CRLF
	LDK	A7,/86	STANDARD WRITE 'CRLF' 
	LDKL	A8,PRECB
	LDK	A1,'P'	PRINTER ENABLED	
	CW	A1,PRFLAG	
	RF(E)	PRLI03	NO,SKIP IT	 
	LKM
	DATA	1 
PRLI03	EQU	*	 
	LD	A8,PROCCA	RESTORE BUFFER ADDRESS
	RF(Z)	PRLI05	NO BUFFER 
	LKM	 
	DATA	-8,PRPOOL	RELEASE PRINTER 
	CM	PROCCA
PRLI05	EQU	*
	LDK	A1,2 
	ST	A1,PRECBL	RESET LENGTH
	LDK	A1,1 
	ST	A1,XSPACE	SET SPACE INDICATOR 
PRLI10	RTN	A14
PRECB	DATA	/31,PRBUF,2,0,0,0
PRECBL	EQU	PRECB+4	REQUESTED LENGTH 
PRBUF	DATA	/2B	CONTROL WORD 
	RES	60 
	EJECT
* 
* 
*	GET ONE CHARACTER FROM LINE TO A7 
*	CR=0 IF NORMAL CHARACTER
*	CR=1 IF COMMENT CHARACTER 
* 
* 
GETCH	SUKL	A10,1
	RF(NN)	GETCH1	FETCH FROM BUFFER
	LDK	A7,/81	READ NEW BUFFER 
	LDKL	A8,LGECB
	LKM
	DATA	1 
	LD	A10,ECBEL,A8	GET EFFECTIVE LENGTH 
	SUKL	A10,1 
	LD	A9,ECBBA,A8	GET BUFFER ADDRESS
GETCH1	LCR	A7,A9	LOAD CHARACTER 
	ADKL	A9,1	INCREMENT POINTER
	LC	A1,ECBRC,A8 
	ADKL	A14,4	SKIP STACK FOR RETURN 
	ANK	A1,/20 
	RF(NZ)	GETCH3	COMMENT OR POLL COUNTER
	ABR*	A14	RETURN WITH NORMAL CHARACTER
	EJECT
GETCH3	SUK	A1,1	SET CR
	ABR*	A14	RETURN
* 
LGECB	DATA	/61,LGBUF,20,0,0,0 
LGBUF	RES	20
	EJECT
* 
* 
*	EDIT	CHAR FROM A7 IN HEXADECIMAL FORM 
* 
* 
EDHEX	CF	A14,SPACE
	LDK	A1,'/' 
	CF	A14,STORE 
	LDR	A1,A7
	SRL	A1,4 
	LC	A1,HEXTAB,A1
	CF	A14,STORE	1ST CHAR
	LDR	A1,A7
	ANK	A1,/F
	LC	A1,HEXTAB,A1
	CF	A14,STORE	2ND CHAR
	CF	A14,SPACE	SPACE 
	RTN	A14
HEXTAB	DATA	'0123456789ABCDEF'
	EJECT
* 
* 
*	STORE CHAR FROM A1 IN PRINT BUFFER
* 
* 
STORE	LD	A2,PRECBL
	SC	A1,PRBUF,A2 
	IM	PRECBL
	LDK	A1,0 
	ST	A1,XSPACE 
	RTN	A14
	EJECT
* 
* 
*	EDIT CHARACTER DECIMAL FROM A7
* 
* 
EDDEC	LDK	A4,0	RESET INDEX
EDD100	LDK	A1,'0'	ASCII ZERO AT START 
EDD110	CW	A7,DECADE,A4
	RF(L)	EDD200	NO MORE SUBTRACTIONS
	SU	A7,DECADE,A4	SUBTRACT AND INCREMENT 
	ADK	A1,1 
	RB	EDD110
EDD200	CF	A14,STORE	STORE DIGIT 
	ADK	A4,2 
	CWK	A4,10
	RB(NE)	EDD100	NEXT DIGIT 
	RTN	A14	CONVERSION DONE
DECADE	DATA	10000,1000,100,10,1 
	EJECT
* 
* 
*	SEARCH FOR A7 CHAR IN TABLE 1 
* 
* 
*	CR=1 IF NOT FOUND ELSE
*	CR=0 AND CORRESPONDING CODE IS STORED 
* 
* 
STAB1	LDK	A2,3	SET INDEX
	LDK	A1,1	CR IF NOT FOUND 
STAB10	CW	A2,TAB1 
	RF(G)	STAB30	END OF TABLE
	CC	A7,TAB1,A2
	RF(E)	STAB20	FOUND 
	ADK	A2,2 
	RB	STAB10	TRY NEXT 
STAB20	LC	A1,TAB1-1,A2	GET CORRESPONDING CODE 
	CF	A14,STORE	AND STORE IT
	LDK	A1,0 
STAB30	LC	A2,2,A14	SET CR FOR RETURN
	ANK	A2,/FC 
	ANK	A1,3 
	ADR	A1,A2
	SC	A1,2,A14
	RTN	A14
	EJECT
* 
* 
*	SEARCH FOR A7 CHAR IN TABLE 3 
* 
* 
*	CR=1 IF NOT FOUND ELSE
*	CR=0 AND CORRESPONDING CODE IS STORED 
* 
* 
STAB3	LDK	A2,3	SET INDEX
	LDK	A1,1	CR IF NOT FOUND 
STA10	CW	A2,TAB3
	RF(G)	STA30	END OF TABLE 
	CC	A7,TAB3,A2
	RF(E)	STA20	FOUND
	ADK	A2,2 
	RB	STA10	TRY NEXT
STA20	LC	A1,TAB3-1,A2	GET CODE
	CF	A14,STORE	AND PRINT IT
	LDK	A1,0 
STA30	LC	A2,2,A14	SET CR FOR RETURN 
	ANK	A2,/FC 
	ANK	A1,3 
	ADR	A1,A2
	SC	A1,2,A14
	RTN	A14
	EJECT
* 
* 
*	SEARCH FRO A7 CHAR IN TABLE 2 
* 
*	CR=1 IF NOT FOUND 
*	CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER
* 
* 
STAB2	LDK	A4,3	SET INDEX
	LDK	A1,1	CR IF NOT FOUND 
STAB40	CW	A4,TAB2 
	RF(G)	STAB80	END OF TABLE
	CC	A7,TAB2,A4
	RF(E)	STAB50	FOUND 
	ADK	A4,4 
	RB	STAB40	NEXT CHAR
STAB50	CF	A14,SPACE 
	LD	A3,TAB2+1,A4	GET STRING ADDRESS 
	LDR*	A4,A3	GET LENGTH
	ADK	A3,2 
STAB60	SUK	A4,1 
	RF(N)	STAB70 
	LCR	A1,A3	MOVE TEXT
	ADK	A3,1 
	CF	A14,STORE 
	RB	STAB60
STAB70	CF	A14,SPACE	SPACE 
	LDK	A1,0 
STAB80	RB	STAB30	SET CR FOR RETURN
	RTN	A14
	EJECT
* 
* 
*	SEARCH FRO A7 CHAR IN TABLE 4 
* 
*	CR=1 IF NOT FOUND 
*	CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER
* 
* 
STAB4	LDK	A4,3	SET INDEX
	LDK	A1,1	CR IF NOT FOUND 
STA40	CW	A4,TAB4
	RF(G)	STA80	END OF TABLE 
	CC	A7,TAB4,A4
	RF(E)	STA50	FOUND
	ADK	A4,4 
	RB	STA40	NEXT CHAR 
STA50	CF	A14,SPACE
	LD	A3,TAB4+1,A4	GET STRING ADDRESS 
	LDR*	A4,A3	GET LENGTH
	ADK	A3,2 
STA60	SUK	A4,1
	RF(N)	STA70
	LCR	A1,A3	PRINT TEXT 
	ADK	A3,1 
	CF	A14,STORE 
	RB	STA60 
STA70	CF	A14,SPACE	SPACE
	LDK	A1,0 
STA80	RB	STA30
	RTN	A14
	EJECT
* 
* 
*	PUT SPACE IN BUFFER 
* 
* 
SPACE	LD	A1,XSPACE
	RF(NZ)	SPA100
	LDK	A1,/20 
	CF	A14,STORE 
	IM	XSPACE
SPA100	RTN	A14
XSPACE	DATA	0	SPACE INDICATOR 
* 
* 
*    CRLF IN BUFFER 
* 
* 
CRLF	EQU	*
	CF	A14,SPACE 
	LDK	A1,/0D 
	CF	A14,STORE 
	LDK	A1,/0A 
	CF	A14,SPACE 
	RTN	A14
**
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT LOGIN   REL 1.1 82-09-29  870150040110 «, t00=0x0000, t01=0x0004}
0x0036…0044              Head {h00=0x000a, h01=0x0050, text=»   #2 «, t00=0x0000, t01=0x003a}
0x0044…0066              Head {h00=0x001e, h01=0x0050, text=»   UPDATE #0 77.01.20 JES «, t00=0x0000, t01=0x0048}
0x0066…0070              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006a}
0x0070…007a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0074}
0x007a…0090              Head {h00=0x0012, h01=0x0050, text=»* LOG DC TASK «, t00=0x0000, t01=0x007e}
0x0090…009a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00b8              Head {h00=0x0010, h01=0x0050, text=» ENTRY LOGIN«, t00=0x0000, t01=0x00a8}
0x00b8…00c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00bc}
0x00c2…00cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00ea              Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENCES «, t00=0x0000, t01=0x00d0}
0x00ea…00f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0122              Head {h00=0x0020, h01=0x0050, text=» EXTRN MOL OWN LINE MESSAGES«, t00=0x0000, t01=0x0102}
0x0122…014c              Head {h00=0x0026, h01=0x0050, text=» EXTRN MBL BEGIN OF LINE MESSAGES «, t00=0x0000, t01=0x0126}
0x014c…016c              Head {h00=0x001c, h01=0x0050, text=» EXTRN TAB1 CHAR TABLE 1«, t00=0x0000, t01=0x0150}
0x016c…018c              Head {h00=0x001c, h01=0x0050, text=» EXTRN TAB2 CHAR TABLE 2«, t00=0x0000, t01=0x0170}
0x018c…01c2              Head {h00=0x0032, h01=0x0050, text=» EXTRN PRPOOL PRINTER OCCUPIED BUFFER ADDRESSS«, t00=0x0000, t01=0x0190}
0x01c2…01d6              Head {h00=0x0010, h01=0x0050, text=» EXTRN TAB3 «, t00=0x0001, t01=0x0036}
0x01d6…01ea              Head {h00=0x0010, h01=0x0050, text=» EXTRN TAB4 «, t00=0x0001, t01=0x004a}
0x01ea…01fe              Head {h00=0x0010, h01=0x0050, text=» EXTRN CODE «, t00=0x0001, t01=0x005e}
0x01fe…0210              Head {h00=0x000e, h01=0x0050, text=» EXTRN ETX«, t00=0x0001, t01=0x0072}
0x0210…0222              Head {h00=0x000e, h01=0x0050, text=» EXTRN ETB«, t00=0x0001, t01=0x0084}
0x0222…0234              Head {h00=0x000e, h01=0x0050, text=» EXTRN SYN«, t00=0x0001, t01=0x0096}
0x0234…024a              Head {h00=0x0012, h01=0x0050, text=» EXTRN PRFLAG «, t00=0x0001, t01=0x00a8}
0x024a…0254              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00be}
0x0254…025e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c8}
0x025e…0270              Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0001, t01=0x00d2}
0x0270…027a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e4}
0x027a…0284              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…028e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…0298              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a2…02c0              Head {h00=0x001a, h01=0x0050, text=»* RELATIVE ECB EQUATES«, t00=0x0001, t01=0x0116}
0x02c0…02ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02e8              Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0001, t01=0x0148}
0x02e8…02fc              Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0001, t01=0x015c}
0x02fc…0310              Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0001, t01=0x0170}
0x0310…0324              Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0001, t01=0x0184}
0x0324…0338              Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU /A«, t00=0x0002, t01=0x0008}
0x0338…0342              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…035c              Head {h00=0x0016, h01=0x0050, text=» RES 20 A14 STACK «, t00=0x0002, t01=0x0026}
0x035c…0370              Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x0002, t01=0x0040}
0x0370…03a8              Head {h00=0x0034, h01=0x0050, text=»PROCCA DATA 0 ADDRESS TO PRINTER OCCUPIED BUFFER«, t00=0x0002, t01=0x0054}
0x03a8…03b6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x008c}
0x03b6…03c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009a}
0x03c0…03ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03ca…03e6              Head {h00=0x0018, h01=0x0050, text=»* INITIALIZE SYSTEM «, t00=0x0002, t01=0x00ae}
0x03e6…03f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x03f0…040c              Head {h00=0x0018, h01=0x0050, text=»* A9=BUFFER POINTER «, t00=0x0002, t01=0x00d4}
0x040c…042c              Head {h00=0x001c, h01=0x0050, text=»* A10=CHARACTER COUNTER «, t00=0x0002, t01=0x00f0}
0x042c…0436              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0110}
0x0436…0440              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011a}
0x0440…046a              Head {h00=0x0026, h01=0x0050, text=»LOGIN LDKL A14,STB LOAD STACK BASE«, t00=0x0002, t01=0x0124}
0x046a…0496              Head {h00=0x0028, h01=0x0050, text=» SUR A10,A10 RESET CHARACTER COUNTER«, t00=0x0002, t01=0x014e}
0x0496…04a8              Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0002, t01=0x017a}
0x04a8…04d2              Head {h00=0x0026, h01=0x0050, text=» ST A1,PRECBL EMPTY PRINTER BUFFER«, t00=0x0002, t01=0x018c}
0x04d2…04e4              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0003, t01=0x0026}
0x04e4…050e              Head {h00=0x0026, h01=0x0050, text=» ST A1,XSPACE SET SPACE INDICATOR «, t00=0x0003, t01=0x0038}
0x050e…051c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0062}
0x051c…0526              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0526…0530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007a}
0x0530…0554              Head {h00=0x0020, h01=0x0050, text=»* EDIT CHARACTERS FROM LINE «, t00=0x0003, t01=0x0084}
0x0554…055e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a8}
0x055e…0568              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0568…0590              Head {h00=0x0024, h01=0x0050, text=»EDIT CF A14,GETCH GET CHARACTER «, t00=0x0003, t01=0x00bc}
0x0590…05a4              Head {h00=0x0010, h01=0x0050, text=»ED000 EQU * «, t00=0x0003, t01=0x00e4}
0x05a4…05c0              Head {h00=0x0018, h01=0x0050, text=» RF(P) ED300 COMMENT«, t00=0x0003, t01=0x00f8}
0x05c0…05d4              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0003, t01=0x0114}
0x05d4…05e8              Head {h00=0x0010, h01=0x0050, text=» CWK A7,/FF «, t00=0x0003, t01=0x0128}
0x05e8…061a              Head {h00=0x002e, h01=0x0050, text=» RF(E) ED110 MARK HOLD: PRINT THIS BUFFER «, t00=0x0003, t01=0x013c}
0x061a…062c              Head {h00=0x000e, h01=0x0050, text=» CW A7,ETX«, t00=0x0003, t01=0x016e}
0x062c…064e              Head {h00=0x001e, h01=0x0050, text=» RF(E) ED150 ETX: READ LRC«, t00=0x0003, t01=0x0180}
0x064e…0660              Head {h00=0x000e, h01=0x0050, text=» CW A7,ETB«, t00=0x0004, t01=0x0012}
0x0660…0682              Head {h00=0x001e, h01=0x0050, text=» RF(E) ED150 ETB: READ LRC«, t00=0x0004, t01=0x0024}
0x0682…0696              Head {h00=0x0010, h01=0x0050, text=» LD A1,CODE «, t00=0x0004, t01=0x0046}
0x0696…06b2              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ED200 EBCDIC«, t00=0x0004, t01=0x005a}
0x06b2…06da              Head {h00=0x0024, h01=0x0050, text=» CF A14,STAB1 SEARCH IN TABLE 1 «, t00=0x0004, t01=0x0076}
0x06da…06f4              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ED100 FOUND«, t00=0x0004, t01=0x009e}
0x06f4…071c              Head {h00=0x0024, h01=0x0050, text=» CF A14,STAB2 SEARCH IN TABLE 2 «, t00=0x0004, t01=0x00b8}
0x071c…0736              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ED100 FOUND«, t00=0x0004, t01=0x00e0}
0x0736…074a              Head {h00=0x0010, h01=0x0050, text=»ED050 EQU * «, t00=0x0004, t01=0x00fa}
0x074a…077e              Head {h00=0x0030, h01=0x0050, text=» CF A14,EDHEX NOT FOUND: EDIT IT HEXADECIMAL«, t00=0x0004, t01=0x010e}
0x077e…0796              Head {h00=0x0014, h01=0x0050, text=»ED100 LDK A1,100«, t00=0x0004, t01=0x0142}
0x0796…07ac              Head {h00=0x0012, h01=0x0050, text=» CW A1,PRECBL «, t00=0x0004, t01=0x015a}
0x07ac…07ce              Head {h00=0x001e, h01=0x0050, text=» RB(G) EDIT LINE NOT FULL «, t00=0x0004, t01=0x0170}
0x07ce…07f4 (5, 0, 400)  Head {h00=0x0022, h01=0x0050, text=»ED110 CF A14,PRLINE PRINT LINE«, t00=0x0005, t01=0x0004}
0x07f4…0804              Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0005, t01=0x002a}
0x0804…0818              Head {h00=0x0010, h01=0x0050, text=»ED150 EQU * «, t00=0x0005, t01=0x003a}
0x0818…082c              Head {h00=0x0010, h01=0x0050, text=» LD A1,CODE «, t00=0x0005, t01=0x004e}
0x082c…0848              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ED250 EBCDIC«, t00=0x0005, t01=0x0062}
0x0848…0876              Head {h00=0x002a, h01=0x0050, text=» CF A14,STAB2 PUT ETX OR ETB IN BUFFER«, t00=0x0005, t01=0x007e}
0x0876…088a              Head {h00=0x0010, h01=0x0050, text=»ED160 EQU * «, t00=0x0005, t01=0x00ac}
0x088a…08a8              Head {h00=0x001a, h01=0x0050, text=» CF A14,GETCH GET LRC «, t00=0x0005, t01=0x00c0}
0x08a8…08ce              Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ED000 COMMENT OR POLL «, t00=0x0005, t01=0x00de}
0x08ce…08e2              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0005, t01=0x0104}
0x08e2…090c              Head {h00=0x0026, h01=0x0050, text=» CF A14,EDHEX EDIT LRC HEXADECIMAL«, t00=0x0005, t01=0x0118}
0x090c…091e              Head {h00=0x000e, h01=0x0050, text=» RB ED100 «, t00=0x0005, t01=0x0142}
0x091e…0932              Head {h00=0x0010, h01=0x0050, text=»ED200 EQU * «, t00=0x0005, t01=0x0154}
0x0932…0948              Head {h00=0x0012, h01=0x0050, text=» CF A14,STAB3 «, t00=0x0005, t01=0x0168}
0x0948…0962              Head {h00=0x0016, h01=0x0050, text=» RB(Z) ED100 FOUND«, t00=0x0005, t01=0x017e}
0x0962…0978              Head {h00=0x0012, h01=0x0050, text=» CF A14,STAB4 «, t00=0x0006, t01=0x0008}
0x0978…0992              Head {h00=0x0016, h01=0x0050, text=» RB(Z) ED100 FOUND«, t00=0x0006, t01=0x001e}
0x0992…09ae              Head {h00=0x0018, h01=0x0050, text=» RB ED050 EDIT HEXA «, t00=0x0006, t01=0x0038}
0x09ae…09c2              Head {h00=0x0010, h01=0x0050, text=»ED250 EQU * «, t00=0x0006, t01=0x0054}
0x09c2…09d8              Head {h00=0x0012, h01=0x0050, text=» CF A14,STAB4 «, t00=0x0006, t01=0x0068}
0x09d8…09f6              Head {h00=0x001a, h01=0x0050, text=» CF A14,GETCH GET CRC «, t00=0x0006, t01=0x007e}
0x09f6…0a22              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) ED000 COMMENT OR POLLCOUNTER«, t00=0x0006, t01=0x009c}
0x0a22…0a36              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0006, t01=0x00c8}
0x0a36…0a4c              Head {h00=0x0012, h01=0x0050, text=» CF A14,EDHEX «, t00=0x0006, t01=0x00dc}
0x0a4c…0a5e              Head {h00=0x000e, h01=0x0050, text=» RB ED160 «, t00=0x0006, t01=0x00f2}
0x0a5e…0a68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a68…0a72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010e}
0x0a72…0a8e              Head {h00=0x0018, h01=0x0050, text=»* COMMENT CHARACTER «, t00=0x0006, t01=0x0118}
0x0a8e…0a98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a98…0aa2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013e}
0x0aa2…0ab6              Head {h00=0x0010, h01=0x0050, text=»ED300 EQU * «, t00=0x0006, t01=0x0148}
0x0ab6…0aca              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0006, t01=0x015c}
0x0aca…0ae0              Head {h00=0x0012, h01=0x0050, text=» CF A14,PRTEXT«, t00=0x0006, t01=0x0170}
0x0ae0…0af0              Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0006, t01=0x0186}
0x0af0…0afe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0008}
0x0afe…0b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0016}
0x0b08…0b12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0020}
0x0b12…0b32              Head {h00=0x001c, h01=0x0050, text=»* PRINT TEXT ON PRINTER «, t00=0x0007, t01=0x002a}
0x0b32…0b3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3c…0b64              Head {h00=0x0024, h01=0x0050, text=»* A7 CONTAINS CONTROL CHARACTER «, t00=0x0007, t01=0x0054}
0x0b64…0b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b6e…0b78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0086}
0x0b78…0ba0              Head {h00=0x0024, h01=0x0050, text=»PRTEXT LDR A6,A7 SAVE CHARACTER «, t00=0x0007, t01=0x0090}
0x0ba0…0bcc              Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE RELEASE PRINT BUFFER «, t00=0x0007, t01=0x00b8}
0x0bcc…0bf2              Head {h00=0x0022, h01=0x0050, text=» ADR A6,A6 DOUBLE FOR INDEXING«, t00=0x0007, t01=0x00e4}
0x0bf2…0c06              Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0007, t01=0x010a}
0x0c06…0c18              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0007, t01=0x011e}
0x0c18…0c2c              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0007, t01=0x0130}
0x0c2c…0c52              Head {h00=0x0022, h01=0x0050, text=» LD A3,MOL,A2 GET TEXT ADDRESS«, t00=0x0007, t01=0x0144}
0x0c52…0c64              Head {h00=0x000e, h01=0x0050, text=» CWR A2,A6«, t00=0x0007, t01=0x016a}
0x0c64…0c88              Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRT100 OWN LINE TEXT«, t00=0x0007, t01=0x017c}
0x0c88…0cb0              Head {h00=0x0024, h01=0x0050, text=» LD A3,MBL,A2 BEGINNING OF LINE «, t00=0x0008, t01=0x0010}
0x0cb0…0cda              Head {h00=0x0026, h01=0x0050, text=»PRT100 LDR* A4,A3 GET TEXT LENGTH «, t00=0x0008, t01=0x0038}
0x0cda…0cee              Head {h00=0x0010, h01=0x0050, text=» CWK A1,100 «, t00=0x0008, t01=0x0062}
0x0cee…0d1e              Head {h00=0x002c, h01=0x0050, text=» RF(G) PRT130 INVALID LENGTH: SKIP TEXT «, t00=0x0008, t01=0x0076}
0x0d1e…0d3c              Head {h00=0x001a, h01=0x0050, text=» ADK A3,2 SKIP LENGTH «, t00=0x0008, t01=0x00a6}
0x0d3c…0d54              Head {h00=0x0014, h01=0x0050, text=»PRT110 SUK A4,1 «, t00=0x0008, t01=0x00c4}
0x0d54…0d74              Head {h00=0x001c, h01=0x0050, text=» RF(N) PRT120 ALL MOVED «, t00=0x0008, t01=0x00dc}
0x0d74…0d86              Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0008, t01=0x00fc}
0x0d86…0d98              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0008, t01=0x010e}
0x0d98…0dae              Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0008, t01=0x0120}
0x0dae…0dc0              Head {h00=0x000e, h01=0x0050, text=» RB PRT110«, t00=0x0008, t01=0x0136}
0x0dc0…0dda              Head {h00=0x0016, h01=0x0050, text=»PRT120 ANK A6,/80 «, t00=0x0008, t01=0x0148}
0x0dda…0e02              Head {h00=0x0024, h01=0x0050, text=» RF(Z) PRT130 BEGINNING OF LINE «, t00=0x0008, t01=0x0162}
0x0e02…0e28              Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT OWN LINE «, t00=0x0008, t01=0x018a}
0x0e28…0e3e              Head {h00=0x0012, h01=0x0050, text=»PRT130 RTN A14«, t00=0x0009, t01=0x0020}
0x0e3e…0e4c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0036}
0x0e4c…0e56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0044}
0x0e56…0e60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004e}
0x0e60…0e84              Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x0009, t01=0x0058}
0x0e84…0e8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007c}
0x0e8e…0e98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0086}
0x0e98…0eae              Head {h00=0x0012, h01=0x0050, text=»PRLINE EQU *  «, t00=0x0009, t01=0x0090}
0x0eae…0ec0              Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0009, t01=0x00a6}
0x0ec0…0ed6              Head {h00=0x0012, h01=0x0050, text=» CW A1,PRECBL «, t00=0x0009, t01=0x00b8}
0x0ed6…0efe              Head {h00=0x0024, h01=0x0050, text=» RF(E) PRLI10 NOTHING IN BUFFER «, t00=0x0009, t01=0x00ce}
0x0efe…0f22              Head {h00=0x0020, h01=0x0050, text=» LDK A1,/2B SET CONTROL WORD«, t00=0x0009, t01=0x00f6}
0x0f22…0f36              Head {h00=0x0010, h01=0x0050, text=» ST A1,PRBUF«, t00=0x0009, t01=0x011a}
0x0f36…0f48              Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0009, t01=0x012e}
0x0f48…0f54              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0009, t01=0x0140}
0x0f54…0f7c              Head {h00=0x0024, h01=0x0050, text=» DATA -7,PRPOOL OCCUPIE PRINTER «, t00=0x0009, t01=0x014c}
0x0f7c…0fa6              Head {h00=0x0026, h01=0x0050, text=» ST A8,PROCCA SAVE BUFFER ADDRESS «, t00=0x0009, t01=0x0174}
0x0fa6…0fcc              Head {h00=0x0022, h01=0x0050, text=» LDK A7,/86 STD WRITE AND WAIT«, t00=0x000a, t01=0x000e}
0x0fcc…0fe2              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,PRECB«, t00=0x000a, t01=0x0034}
0x0fe2…1006              Head {h00=0x0020, h01=0x0050, text=» LDK A1,'P' PRINTER ENABLED «, t00=0x000a, t01=0x004a}
0x1006…101c              Head {h00=0x0012, h01=0x0050, text=» CW A1,PRFLAG «, t00=0x000a, t01=0x006e}
0x101c…103e              Head {h00=0x001e, h01=0x0050, text=» RF(E) PRLI02 NO,SKIP IT  «, t00=0x000a, t01=0x0084}
0x103e…104a              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000a, t01=0x00a6}
0x104a…105a              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000a, t01=0x00b2}
0x105a…1070              Head {h00=0x0012, h01=0x0050, text=»PRLI02 EQU *  «, t00=0x000a, t01=0x00c2}
0x1070…1082              Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000a, t01=0x00d8}
0x1082…1098              Head {h00=0x0012, h01=0x0050, text=» ST A1,PRECBL «, t00=0x000a, t01=0x00ea}
0x1098…10be              Head {h00=0x0022, h01=0x0050, text=» CM PRBUF SET CONTROL-WORD = 0«, t00=0x000a, t01=0x0100}
0x10be…10d2              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x000a, t01=0x0126}
0x10d2…10fc              Head {h00=0x0026, h01=0x0050, text=» LDK A7,/86 STANDARD WRITE 'CRLF' «, t00=0x000a, t01=0x013a}
0x10fc…1112              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,PRECB«, t00=0x000a, t01=0x0164}
0x1112…1136              Head {h00=0x0020, h01=0x0050, text=» LDK A1,'P' PRINTER ENABLED «, t00=0x000a, t01=0x017a}
0x1136…114c              Head {h00=0x0012, h01=0x0050, text=» CW A1,PRFLAG «, t00=0x000b, t01=0x000e}
0x114c…116e              Head {h00=0x001e, h01=0x0050, text=» RF(E) PRLI03 NO,SKIP IT  «, t00=0x000b, t01=0x0024}
0x116e…117a              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000b, t01=0x0046}
0x117a…118a              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000b, t01=0x0052}
0x118a…11a0              Head {h00=0x0012, h01=0x0050, text=»PRLI03 EQU *  «, t00=0x000b, t01=0x0062}
0x11a0…11cc              Head {h00=0x0028, h01=0x0050, text=» LD A8,PROCCA RESTORE BUFFER ADDRESS«, t00=0x000b, t01=0x0078}
0x11cc…11ec              Head {h00=0x001c, h01=0x0050, text=» RF(Z) PRLI05 NO BUFFER «, t00=0x000b, t01=0x00a4}
0x11ec…11fa              Head {h00=0x000a, h01=0x0050, text=» LKM  «, t00=0x000b, t01=0x00c4}
0x11fa…1222              Head {h00=0x0024, h01=0x0050, text=» DATA -8,PRPOOL RELEASE PRINTER «, t00=0x000b, t01=0x00d2}
0x1222…1234              Head {h00=0x000e, h01=0x0050, text=» CM PROCCA«, t00=0x000b, t01=0x00fa}
0x1234…1248              Head {h00=0x0010, h01=0x0050, text=»PRLI05 EQU *«, t00=0x000b, t01=0x010c}
0x1248…125a              Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000b, t01=0x0120}
0x125a…127c              Head {h00=0x001e, h01=0x0050, text=» ST A1,PRECBL RESET LENGTH«, t00=0x000b, t01=0x0132}
0x127c…128e              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x000b, t01=0x0154}
0x128e…12b8              Head {h00=0x0026, h01=0x0050, text=» ST A1,XSPACE SET SPACE INDICATOR «, t00=0x000b, t01=0x0166}
0x12b8…12ce              Head {h00=0x0012, h01=0x0050, text=»PRLI10 RTN A14«, t00=0x000b, t01=0x0190}
0x12ce…12f2              Head {h00=0x0020, h01=0x0050, text=»PRECB DATA /31,PRBUF,2,0,0,0«, t00=0x000c, t01=0x0016}
0x12f2…131e              Head {h00=0x0028, h01=0x0050, text=»PRECBL EQU PRECB+4 REQUESTED LENGTH «, t00=0x000c, t01=0x003a}
0x131e…1342              Head {h00=0x0020, h01=0x0050, text=»PRBUF DATA /2B CONTROL WORD «, t00=0x000c, t01=0x0066}
0x1342…1352              Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x000c, t01=0x008a}
0x1352…1360              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x009a}
0x1360…136a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a8}
0x136a…1374              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1374…13a0              Head {h00=0x0028, h01=0x0050, text=»* GET ONE CHARACTER FROM LINE TO A7 «, t00=0x000c, t01=0x00bc}
0x13a0…13c2              Head {h00=0x001e, h01=0x0050, text=»* CR=0 IF NORMAL CHARACTER«, t00=0x000c, t01=0x00e8}
0x13c2…13e6              Head {h00=0x0020, h01=0x0050, text=»* CR=1 IF COMMENT CHARACTER «, t00=0x000c, t01=0x010a}
0x13e6…13f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f0…13fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fa…1412              Head {h00=0x0014, h01=0x0050, text=»GETCH SUKL A10,1«, t00=0x000c, t01=0x0142}
0x1412…143a              Head {h00=0x0024, h01=0x0050, text=» RF(NN) GETCH1 FETCH FROM BUFFER«, t00=0x000c, t01=0x015a}
0x143a…145e              Head {h00=0x0020, h01=0x0050, text=» LDK A7,/81 READ NEW BUFFER «, t00=0x000c, t01=0x0182}
0x145e…1474              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,LGECB«, t00=0x000d, t01=0x0016}
0x1474…1480              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000d, t01=0x002c}
0x1480…1490              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000d, t01=0x0038}
0x1490…14be              Head {h00=0x002a, h01=0x0050, text=» LD A10,ECBEL,A8 GET EFFECTIVE LENGTH «, t00=0x000d, t01=0x0048}
0x14be…14d2              Head {h00=0x0010, h01=0x0050, text=» SUKL A10,1 «, t00=0x000d, t01=0x0076}
0x14d2…14fc              Head {h00=0x0026, h01=0x0050, text=» LD A9,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x000d, t01=0x008a}
0x14fc…1524              Head {h00=0x0024, h01=0x0050, text=»GETCH1 LCR A7,A9 LOAD CHARACTER «, t00=0x000d, t01=0x00b4}
0x1524…1548              Head {h00=0x0020, h01=0x0050, text=» ADKL A9,1 INCREMENT POINTER«, t00=0x000d, t01=0x00dc}
0x1548…1560              Head {h00=0x0014, h01=0x0050, text=» LC A1,ECBRC,A8 «, t00=0x000d, t01=0x0100}
0x1560…158a              Head {h00=0x0026, h01=0x0050, text=» ADKL A14,4 SKIP STACK FOR RETURN «, t00=0x000d, t01=0x0118}
0x158a…159e              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/20 «, t00=0x000d, t01=0x0142}
0x159e…15cc              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) GETCH3 COMMENT OR POLL COUNTER«, t00=0x000d, t01=0x0156}
0x15cc…15fa              Head {h00=0x002a, h01=0x0050, text=» ABR* A14 RETURN WITH NORMAL CHARACTER«, t00=0x000d, t01=0x0184}
0x15fa…1608              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0022}
0x1608…1626              Head {h00=0x001a, h01=0x0050, text=»GETCH3 SUK A1,1 SET CR«, t00=0x000e, t01=0x0030}
0x1626…163e              Head {h00=0x0014, h01=0x0050, text=» ABR* A14 RETURN«, t00=0x000e, t01=0x004e}
0x163e…1648              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0066}
0x1648…166e              Head {h00=0x0022, h01=0x0050, text=»LGECB DATA /61,LGBUF,20,0,0,0 «, t00=0x000e, t01=0x0070}
0x166e…1682              Head {h00=0x0010, h01=0x0050, text=»LGBUF RES 20«, t00=0x000e, t01=0x0096}
0x1682…1690              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00aa}
0x1690…169a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x169a…16a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a4…16d4              Head {h00=0x002c, h01=0x0050, text=»* EDIT CHAR FROM A7 IN HEXADECIMAL FORM «, t00=0x000e, t01=0x00cc}
0x16d4…16de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fc}
0x16de…16e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x16e8…1702              Head {h00=0x0016, h01=0x0050, text=»EDHEX CF A14,SPACE«, t00=0x000e, t01=0x0110}
0x1702…1716              Head {h00=0x0010, h01=0x0050, text=» LDK A1,'/' «, t00=0x000e, t01=0x012a}
0x1716…172c              Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x000e, t01=0x013e}
0x172c…173e              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000e, t01=0x0154}
0x173e…1750              Head {h00=0x000e, h01=0x0050, text=» SRL A1,4 «, t00=0x000e, t01=0x0166}
0x1750…1768              Head {h00=0x0014, h01=0x0050, text=» LC A1,HEXTAB,A1«, t00=0x000e, t01=0x0178}
0x1768…1786              Head {h00=0x001a, h01=0x0050, text=» CF A14,STORE 1ST CHAR«, t00=0x000e, t01=0x0190}
0x1786…1798              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000f, t01=0x001e}
0x1798…17aa              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x000f, t01=0x0030}
0x17aa…17c2              Head {h00=0x0014, h01=0x0050, text=» LC A1,HEXTAB,A1«, t00=0x000f, t01=0x0042}
0x17c2…17e0              Head {h00=0x001a, h01=0x0050, text=» CF A14,STORE 2ND CHAR«, t00=0x000f, t01=0x005a}
0x17e0…17fc              Head {h00=0x0018, h01=0x0050, text=» CF A14,SPACE SPACE «, t00=0x000f, t01=0x0078}
0x17fc…180c              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000f, t01=0x0094}
0x180c…1832              Head {h00=0x0022, h01=0x0050, text=»HEXTAB DATA '0123456789ABCDEF'«, t00=0x000f, t01=0x00a4}
0x1832…1840              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00ca}
0x1840…184a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d8}
0x184a…1854              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e2}
0x1854…1880              Head {h00=0x0028, h01=0x0050, text=»* STORE CHAR FROM A1 IN PRINT BUFFER«, t00=0x000f, t01=0x00ec}
0x1880…188a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0118}
0x188a…1894              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0122}
0x1894…18ae              Head {h00=0x0016, h01=0x0050, text=»STORE LD A2,PRECBL«, t00=0x000f, t01=0x012c}
0x18ae…18c6              Head {h00=0x0014, h01=0x0050, text=» SC A1,PRBUF,A2 «, t00=0x000f, t01=0x0146}
0x18c6…18d8              Head {h00=0x000e, h01=0x0050, text=» IM PRECBL«, t00=0x000f, t01=0x015e}
0x18d8…18ea              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000f, t01=0x0170}
0x18ea…1900              Head {h00=0x0012, h01=0x0050, text=» ST A1,XSPACE «, t00=0x000f, t01=0x0182}
0x1900…1910              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x0008}
0x1910…191e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0018}
0x191e…1928              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0026}
0x1928…1932              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0030}
0x1932…195a              Head {h00=0x0024, h01=0x0050, text=»* EDIT CHARACTER DECIMAL FROM A7«, t00=0x0010, t01=0x003a}
0x195a…1964              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0062}
0x1964…196e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x196e…1990              Head {h00=0x001e, h01=0x0050, text=»EDDEC LDK A4,0 RESET INDEX«, t00=0x0010, t01=0x0076}
0x1990…19be              Head {h00=0x002a, h01=0x0050, text=»EDD100 LDK A1,'0' ASCII ZERO AT START «, t00=0x0010, t01=0x0098}
0x19be…19dc              Head {h00=0x001a, h01=0x0050, text=»EDD110 CW A7,DECADE,A4«, t00=0x0010, t01=0x00c6}
0x19dc…1a06              Head {h00=0x0026, h01=0x0050, text=» RF(L) EDD200 NO MORE SUBTRACTIONS«, t00=0x0010, t01=0x00e4}
0x1a06…1a36              Head {h00=0x002c, h01=0x0050, text=» SU A7,DECADE,A4 SUBTRACT AND INCREMENT «, t00=0x0010, t01=0x010e}
0x1a36…1a48              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0010, t01=0x013e}
0x1a48…1a5a              Head {h00=0x000e, h01=0x0050, text=» RB EDD110«, t00=0x0010, t01=0x0150}
0x1a5a…1a82              Head {h00=0x0024, h01=0x0050, text=»EDD200 CF A14,STORE STORE DIGIT «, t00=0x0010, t01=0x0162}
0x1a82…1a94              Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0010, t01=0x018a}
0x1a94…1aa6              Head {h00=0x000e, h01=0x0050, text=» CWK A4,10«, t00=0x0011, t01=0x000c}
0x1aa6…1ac8              Head {h00=0x001e, h01=0x0050, text=» RB(NE) EDD100 NEXT DIGIT «, t00=0x0011, t01=0x001e}
0x1ac8…1ae8              Head {h00=0x001c, h01=0x0050, text=» RTN A14 CONVERSION DONE«, t00=0x0011, t01=0x0040}
0x1ae8…1b10              Head {h00=0x0024, h01=0x0050, text=»DECADE DATA 10000,1000,100,10,1 «, t00=0x0011, t01=0x0060}
0x1b10…1b1e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0088}
0x1b1e…1b28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0096}
0x1b28…1b32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a0}
0x1b32…1b5a              Head {h00=0x0024, h01=0x0050, text=»* SEARCH FOR A7 CHAR IN TABLE 1 «, t00=0x0011, t01=0x00aa}
0x1b5a…1b64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d2}
0x1b64…1b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00dc}
0x1b6e…1b8e              Head {h00=0x001c, h01=0x0050, text=»* CR=1 IF NOT FOUND ELSE«, t00=0x0011, t01=0x00e6}
0x1b8e…1bbe              Head {h00=0x002c, h01=0x0050, text=»* CR=0 AND CORRESPONDING CODE IS STORED «, t00=0x0011, t01=0x0106}
0x1bbe…1bc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0136}
0x1bc8…1bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0140}
0x1bd2…1bf2              Head {h00=0x001c, h01=0x0050, text=»STAB1 LDK A2,3 SET INDEX«, t00=0x0011, t01=0x014a}
0x1bf2…1c14              Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 CR IF NOT FOUND «, t00=0x0011, t01=0x016a}
0x1c14…1c2e              Head {h00=0x0016, h01=0x0050, text=»STAB10 CW A2,TAB1 «, t00=0x0011, t01=0x018c}
0x1c2e…1c50              Head {h00=0x001e, h01=0x0050, text=» RF(G) STAB30 END OF TABLE«, t00=0x0012, t01=0x0016}
0x1c50…1c66              Head {h00=0x0012, h01=0x0050, text=» CC A7,TAB1,A2«, t00=0x0012, t01=0x0038}
0x1c66…1c82              Head {h00=0x0018, h01=0x0050, text=» RF(E) STAB20 FOUND «, t00=0x0012, t01=0x004e}
0x1c82…1c94              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x006a}
0x1c94…1cb0              Head {h00=0x0018, h01=0x0050, text=» RB STAB10 TRY NEXT «, t00=0x0012, t01=0x007c}
0x1cb0…1ce6              Head {h00=0x0032, h01=0x0050, text=»STAB20 LC A1,TAB1-1,A2 GET CORRESPONDING CODE «, t00=0x0012, t01=0x0098}
0x1ce6…1d08              Head {h00=0x001e, h01=0x0050, text=» CF A14,STORE AND STORE IT«, t00=0x0012, t01=0x00ce}
0x1d08…1d1a              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x00f0}
0x1d1a…1d46              Head {h00=0x0028, h01=0x0050, text=»STAB30 LC A2,2,A14 SET CR FOR RETURN«, t00=0x0012, t01=0x0102}
0x1d46…1d5a              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x0012, t01=0x012e}
0x1d5a…1d6c              Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0012, t01=0x0142}
0x1d6c…1d7e              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0012, t01=0x0154}
0x1d7e…1d92              Head {h00=0x0010, h01=0x0050, text=» SC A1,2,A14«, t00=0x0012, t01=0x0166}
0x1d92…1da2              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x017a}
0x1da2…1db0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x018a}
0x1db0…1dba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0008}
0x1dba…1dc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc4…1dec              Head {h00=0x0024, h01=0x0050, text=»* SEARCH FOR A7 CHAR IN TABLE 3 «, t00=0x0013, t01=0x001c}
0x1dec…1df6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df6…1e00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1e00…1e20              Head {h00=0x001c, h01=0x0050, text=»* CR=1 IF NOT FOUND ELSE«, t00=0x0013, t01=0x0058}
0x1e20…1e50              Head {h00=0x002c, h01=0x0050, text=»* CR=0 AND CORRESPONDING CODE IS STORED «, t00=0x0013, t01=0x0078}
0x1e50…1e5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e5a…1e64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e64…1e84              Head {h00=0x001c, h01=0x0050, text=»STAB3 LDK A2,3 SET INDEX«, t00=0x0013, t01=0x00bc}
0x1e84…1ea6              Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 CR IF NOT FOUND «, t00=0x0013, t01=0x00dc}
0x1ea6…1ebe              Head {h00=0x0014, h01=0x0050, text=»STA10 CW A2,TAB3«, t00=0x0013, t01=0x00fe}
0x1ebe…1ee0              Head {h00=0x001e, h01=0x0050, text=» RF(G) STA30 END OF TABLE «, t00=0x0013, t01=0x0116}
0x1ee0…1ef6              Head {h00=0x0012, h01=0x0050, text=» CC A7,TAB3,A2«, t00=0x0013, t01=0x0138}
0x1ef6…1f10              Head {h00=0x0016, h01=0x0050, text=» RF(E) STA20 FOUND«, t00=0x0013, t01=0x014e}
0x1f10…1f22              Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0013, t01=0x0168}
0x1f22…1f3c              Head {h00=0x0016, h01=0x0050, text=» RB STA10 TRY NEXT«, t00=0x0013, t01=0x017a}
0x1f3c…1f62 (20, 0, 400) Head {h00=0x0022, h01=0x0050, text=»STA20 LC A1,TAB3-1,A2 GET CODE«, t00=0x0014, t01=0x0004}
0x1f62…1f84              Head {h00=0x001e, h01=0x0050, text=» CF A14,STORE AND PRINT IT«, t00=0x0014, t01=0x002a}
0x1f84…1f96              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x004c}
0x1f96…1fc2              Head {h00=0x0028, h01=0x0050, text=»STA30 LC A2,2,A14 SET CR FOR RETURN «, t00=0x0014, t01=0x005e}
0x1fc2…1fd6              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x0014, t01=0x008a}
0x1fd6…1fe8              Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0014, t01=0x009e}
0x1fe8…1ffa              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0014, t01=0x00b0}
0x1ffa…200e              Head {h00=0x0010, h01=0x0050, text=» SC A1,2,A14«, t00=0x0014, t01=0x00c2}
0x200e…201e              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x00d6}
0x201e…202c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00e6}
0x202c…2036              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f4}
0x2036…2040              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fe}
0x2040…2068              Head {h00=0x0024, h01=0x0050, text=»* SEARCH FRO A7 CHAR IN TABLE 2 «, t00=0x0014, t01=0x0108}
0x2068…2072              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0130}
0x2072…208e              Head {h00=0x0018, h01=0x0050, text=»* CR=1 IF NOT FOUND «, t00=0x0014, t01=0x013a}
0x208e…20c6              Head {h00=0x0034, h01=0x0050, text=»* CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER«, t00=0x0014, t01=0x0156}
0x20c6…20d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018e}
0x20d0…20da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20da…20fa              Head {h00=0x001c, h01=0x0050, text=»STAB2 LDK A4,3 SET INDEX«, t00=0x0015, t01=0x0012}
0x20fa…211c              Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 CR IF NOT FOUND «, t00=0x0015, t01=0x0032}
0x211c…2136              Head {h00=0x0016, h01=0x0050, text=»STAB40 CW A4,TAB2 «, t00=0x0015, t01=0x0054}
0x2136…2158              Head {h00=0x001e, h01=0x0050, text=» RF(G) STAB80 END OF TABLE«, t00=0x0015, t01=0x006e}
0x2158…216e              Head {h00=0x0012, h01=0x0050, text=» CC A7,TAB2,A4«, t00=0x0015, t01=0x0090}
0x216e…218a              Head {h00=0x0018, h01=0x0050, text=» RF(E) STAB50 FOUND «, t00=0x0015, t01=0x00a6}
0x218a…219c              Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0015, t01=0x00c2}
0x219c…21b8              Head {h00=0x0018, h01=0x0050, text=» RB STAB40 NEXT CHAR«, t00=0x0015, t01=0x00d4}
0x21b8…21d4              Head {h00=0x0018, h01=0x0050, text=»STAB50 CF A14,SPACE «, t00=0x0015, t01=0x00f0}
0x21d4…2200              Head {h00=0x0028, h01=0x0050, text=» LD A3,TAB2+1,A4 GET STRING ADDRESS «, t00=0x0015, t01=0x010c}
0x2200…221e              Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A3 GET LENGTH«, t00=0x0015, t01=0x0138}
0x221e…2230              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0015, t01=0x0156}
0x2230…2248              Head {h00=0x0014, h01=0x0050, text=»STAB60 SUK A4,1 «, t00=0x0015, t01=0x0168}
0x2248…225e              Head {h00=0x0012, h01=0x0050, text=» RF(N) STAB70 «, t00=0x0015, t01=0x0180}
0x225e…227a              Head {h00=0x0018, h01=0x0050, text=» LCR A1,A3 MOVE TEXT«, t00=0x0016, t01=0x0008}
0x227a…228c              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0016, t01=0x0024}
0x228c…22a2              Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0016, t01=0x0036}
0x22a2…22b4              Head {h00=0x000e, h01=0x0050, text=» RB STAB60«, t00=0x0016, t01=0x004c}
0x22b4…22d6              Head {h00=0x001e, h01=0x0050, text=»STAB70 CF A14,SPACE SPACE «, t00=0x0016, t01=0x005e}
0x22d6…22e8              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0016, t01=0x0080}
0x22e8…2312              Head {h00=0x0026, h01=0x0050, text=»STAB80 RB STAB30 SET CR FOR RETURN«, t00=0x0016, t01=0x0092}
0x2312…2322              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x00bc}
0x2322…2330              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00cc}
0x2330…233a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x233a…2344              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e4}
0x2344…236c              Head {h00=0x0024, h01=0x0050, text=»* SEARCH FRO A7 CHAR IN TABLE 4 «, t00=0x0016, t01=0x00ee}
0x236c…2376              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0116}
0x2376…2392              Head {h00=0x0018, h01=0x0050, text=»* CR=1 IF NOT FOUND «, t00=0x0016, t01=0x0120}
0x2392…23ca              Head {h00=0x0034, h01=0x0050, text=»* CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER«, t00=0x0016, t01=0x013c}
0x23ca…23d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0174}
0x23d4…23de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017e}
0x23de…23fe              Head {h00=0x001c, h01=0x0050, text=»STAB4 LDK A4,3 SET INDEX«, t00=0x0016, t01=0x0188}
0x23fe…2420              Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 CR IF NOT FOUND «, t00=0x0017, t01=0x0018}
0x2420…2438              Head {h00=0x0014, h01=0x0050, text=»STA40 CW A4,TAB4«, t00=0x0017, t01=0x003a}
0x2438…245a              Head {h00=0x001e, h01=0x0050, text=» RF(G) STA80 END OF TABLE «, t00=0x0017, t01=0x0052}
0x245a…2470              Head {h00=0x0012, h01=0x0050, text=» CC A7,TAB4,A4«, t00=0x0017, t01=0x0074}
0x2470…248a              Head {h00=0x0016, h01=0x0050, text=» RF(E) STA50 FOUND«, t00=0x0017, t01=0x008a}
0x248a…249c              Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0017, t01=0x00a4}
0x249c…24b8              Head {h00=0x0018, h01=0x0050, text=» RB STA40 NEXT CHAR «, t00=0x0017, t01=0x00b6}
0x24b8…24d2              Head {h00=0x0016, h01=0x0050, text=»STA50 CF A14,SPACE«, t00=0x0017, t01=0x00d2}
0x24d2…24fe              Head {h00=0x0028, h01=0x0050, text=» LD A3,TAB4+1,A4 GET STRING ADDRESS «, t00=0x0017, t01=0x00ec}
0x24fe…251c              Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A3 GET LENGTH«, t00=0x0017, t01=0x0118}
0x251c…252e              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0017, t01=0x0136}
0x252e…2544              Head {h00=0x0012, h01=0x0050, text=»STA60 SUK A4,1«, t00=0x0017, t01=0x0148}
0x2544…2558              Head {h00=0x0010, h01=0x0050, text=» RF(N) STA70«, t00=0x0017, t01=0x015e}
0x2558…2576              Head {h00=0x001a, h01=0x0050, text=» LCR A1,A3 PRINT TEXT «, t00=0x0017, t01=0x0172}
0x2576…2588              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x0190}
0x2588…259e              Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0018, t01=0x0012}
0x259e…25b0              Head {h00=0x000e, h01=0x0050, text=» RB STA60 «, t00=0x0018, t01=0x0028}
0x25b0…25d0              Head {h00=0x001c, h01=0x0050, text=»STA70 CF A14,SPACE SPACE«, t00=0x0018, t01=0x003a}
0x25d0…25e2              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0018, t01=0x005a}
0x25e2…25f8              Head {h00=0x0012, h01=0x0050, text=»STA80 RB STA30«, t00=0x0018, t01=0x006c}
0x25f8…2608              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0082}
0x2608…2616              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0092}
0x2616…2620              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a0}
0x2620…262a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00aa}
0x262a…2648              Head {h00=0x001a, h01=0x0050, text=»* PUT SPACE IN BUFFER «, t00=0x0018, t01=0x00b4}
0x2648…2652              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d2}
0x2652…265c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x265c…2676              Head {h00=0x0016, h01=0x0050, text=»SPACE LD A1,XSPACE«, t00=0x0018, t01=0x00e6}
0x2676…268c              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SPA100«, t00=0x0018, t01=0x0100}
0x268c…26a0              Head {h00=0x0010, h01=0x0050, text=» LDK A1,/20 «, t00=0x0018, t01=0x0116}
0x26a0…26b6              Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0018, t01=0x012a}
0x26b6…26c8              Head {h00=0x000e, h01=0x0050, text=» IM XSPACE«, t00=0x0018, t01=0x0140}
0x26c8…26de              Head {h00=0x0012, h01=0x0050, text=»SPA100 RTN A14«, t00=0x0018, t01=0x0152}
0x26de…2704              Head {h00=0x0022, h01=0x0050, text=»XSPACE DATA 0 SPACE INDICATOR «, t00=0x0018, t01=0x0168}
0x2704…270e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018e}
0x270e…2718              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x2718…2734              Head {h00=0x0018, h01=0x0050, text=»*    CRLF IN BUFFER «, t00=0x0019, t01=0x0012}
0x2734…273e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002e}
0x273e…2748              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x2748…275a              Head {h00=0x000e, h01=0x0050, text=»CRLF EQU *«, t00=0x0019, t01=0x0042}
0x275a…2770              Head {h00=0x0012, h01=0x0050, text=» CF A14,SPACE «, t00=0x0019, t01=0x0054}
0x2770…2784              Head {h00=0x0010, h01=0x0050, text=» LDK A1,/0D «, t00=0x0019, t01=0x006a}
0x2784…279a              Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0019, t01=0x007e}
0x279a…27ae              Head {h00=0x0010, h01=0x0050, text=» LDK A1,/0A «, t00=0x0019, t01=0x0094}
0x27ae…27c4              Head {h00=0x0012, h01=0x0050, text=» CF A14,SPACE «, t00=0x0019, t01=0x00a8}
0x27c4…27d4              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x00be}
0x27d4…27de              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0019, t01=0x00ce}
0x27de…27e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d8}
0x27e8…27f4              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x00e2}
0x27f4…27f8              Head {h00=0x4004, h01=0x0000}
0x27f8…27fc              00 19 00 ee                                                                                                                                                                                                                                       ┆    ┆
0x27fc…2804 (26, 1, 8)   20 04 00 00 00 1a 00 04                                                                                                                                                                                                                           ┆        ┆
0x2804…2854 (27, 0, 400) 41 31 34 2c 45 44 48 45 58 4c 00 22 01 8c 00 0e 00 50 5c 52 42 5c 4c 49 32 37 35 20 00 23 00 12 00 0a 00 50 5c 45 4a 45 43 54 00 23 00 24 00 06 00 50 2a 20 00 23 00 32 00 06 00 50 2a 20 00 23 00 3c 00 16 00 50 2a 5c 43 4f 4e 54 52 4f 4c 20   ┆A14,EDHEXL "     P RB LI275  #     P EJECT # $   P*  # 2   P*  # <   P* CONTROL ┆
0x2854…28a4              43 4f 4d 4d 41 4e 44 53 00 23 00 46 00 06 00 50 2a 20 00 23 00 60 00 06 00 50 2a 20 00 23 00 6a 00 26 00 50 49 44 4c 45 5c 4c 44 4b 5c 41 32 2c 36 5c 53 48 49 46 54 20 49 44 4c 45 20 54 52 41 4e 53 4d 49 54 54 00 23 00 74 00 0e 00 50 5c 52   ┆COMMANDS # F   P*  # `   P*  # j & PIDLE LDK A2,6 SHIFT IDLE TRANSMITT # t   P R┆
0x28a4…28f4              46 5c 57 52 43 54 52 4c 00 23 00 9e 00 12 00 50 4f 50 45 4e 5c 4c 44 4b 5c 41 32 2c 31 20 00 23 00 b0 00 0e 00 50 5c 52 46 5c 57 52 43 54 52 4c 00 23 00 c6 00 12 00 50 52 45 53 45 54 5c 4c 44 4b 5c 41 32 2c 32 00 23 00 d8 00 10 00 50 57 52   ┆F WRCTRL #     POPEN LDK A2,1  #     P RF WRCTRL #     PRESET LDK A2,2 #     PWR┆
0x28f4…2944              43 54 52 4c 5c 45 51 55 5c 2a 00 23 00 ee 00 22 00 50 5c 43 46 5c 41 31 34 2c 4f 43 43 50 52 5c 4f 43 43 55 50 49 45 20 50 52 49 4e 54 45 52 20 00 23 01 02 00 24 00 50 5c 4c 44 4b 4c 5c 41 38 2c 43 54 45 43 42 5c 4c 4f 41 44 20 45 43 42 20   ┆CTRL EQU * #   " P CF A14,OCCPR OCCUPIE PRINTER  #   $ P LDKL A8,CTECB LOAD ECB ┆
0x2944…2994              41 44 44 52 45 53 53 20 00 23 01 28 00 1a 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 34 5c 41 4e 44 20 41 4f 52 44 45 52 00 23 01 50 00 28 00 50 5c 53 54 5c 41 32 2c 45 43 42 43 57 2c 41 38 5c 53 54 4f 52 45 20 43 4f 4d 4d 41 4e 44 20 49 4e 20 43   ┆ADDRESS  # (   P LDK A7,/84 AND AORDER # P ( P ST A2,ECBCW,A8 STORE COMMAND IN C┆
0x2994…29e4 (28, 0, 400) 57 20 00 23 01 6e 00 08 00 50 5c 4c 4b 4d 00 24 00 0a 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 24 00 16 00 1c 00 50 5c 41 42 4c 5c 4f 50 43 4f 4e 54 5c 4e 45 58 54 20 43 4f 4d 4d 41 4e 44 00 24 00 26 00 06 00 50 2a 20 00 24 00 46 00 06 00 50   ┆W  # n   P LKM $     P DATA 1  $     P ABL OPCONT NEXT COMMAND $ &   P*  $ F   P┆
0x29e4…2a34              2a 20 00 24 00 50 00 1c 00 50 43 54 45 43 42 5c 44 41 54 41 5c 2f 36 30 2c 30 2c 30 2c 30 2c 30 2c 30 00 24 00 5a 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 7a 00 06 00 50 2a 20 00 24 00 88 00 06 00 50 2a 20 00 24 00 92 00 22 00 50 2a 5c 50 52   ┆*  $ P   PCTECB DATA /60,0,0,0,0,0 $ Z   P EJECT $ z   P*  $     P*  $   " P* PR┆
0x2a34…2a84              49 4e 54 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 41 37 20 00 24 00 9c 00 06 00 50 2a 20 00 24 00 c2 00 06 00 50 2a 20 00 24 00 cc 00 16 00 50 50 52 43 48 5c 4c 44 4b 4c 5c 41 38 2c 50 52 45 43 42 00 24 00 d6 00 14 00 50   ┆INT ONE CHARACTER FROM A7  $     P*  $     P*  $     PPRCH LDKL A8,PRECB $     P┆
0x2a84…2ad4              5c 53 43 2a 5c 41 37 2c 45 43 42 42 41 2c 41 38 00 24 00 f0 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 35 20 00 24 01 08 00 08 00 50 5c 4c 4b 4d 00 24 01 1c 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 24 01 28 00 20 00 50 5c 41 44 4b 4c 5c 41 31   ┆ SC* A7,ECBBA,A8 $     P LDK A7,/85  $     P LKM $     P DATA 1  $ (   P ADKL A1┆
0x2ad4…2b24              31 2c 31 5c 43 4f 55 4e 54 20 43 48 41 52 41 43 54 45 52 53 00 24 01 38 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 24 01 5c 00 28 00 50 5c 53 54 5c 41 37 2c 58 53 50 41 43 45 5c 52 45 53 45 54 20 53 50 41 43 45 20 49 4e 44 49 43 41 54 4f   ┆1,1 COUNT CHARACTERS $ 8   P LDK A7,0  $   ( P ST A7,XSPACE RESET SPACE INDICATO┆

Reduced view