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

⟦b2cfd5803⟧ 

    Length: 7522 (0x1d62)
    Notes: pts_type(SC)
    Names: »SLOGOP.SC«

Derivation

└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »DLCSPY/SLOGOP.SC«

PTS(SC)

	IDENT SLOGOP	REL 1.1 78-04-21  870150340110
* 
* 
*	SDLC LOG TOOL 
* 
*	OPERATOR CONTROL
* 
*	PROGRAMMER: O. HANSSON
* 
*	77.01.19
* 
******************************************************* 
* 
*	THIS MODULE HANDLES OPERATOR COMMUNICATION
* 
*	THE FOLLOWING FUNCTIONS ARE SUPPORTED 
* 
*	OPEN RECEIVER 1 AND 2 
* 
*	CLOSE RECEIVER 1 AND 2
* 
*	RESET INPUT BUFFER
* 
*	SPECIFY LOG PARAMETERS
* 
* 
* 
**************************************************************
	EJECT
* 
* 
* 
	ENTRY	ASTART 
* 
* 
	EXTRN	PRPOOL	OCCUPIE PRINTER BUFFER POOL 
	EXTRN	TEXT1
	EXTRN	SLOGIN 
* 
* 
*	EQUATES 
* 
* 
ECBBA	EQU	2 
ECBRL	EQU	4 
ECBRC	EQU	8 
ECBCW	EQU	10
* 
* 
	RES	20	STACK FOR A14 
STB	EQU	*-2 
PROCCB	DATA	0	ADDRESS TO PRINTER OCCUPIED BUFFFER 
HEXCHA	DATA	0 
	EJECT
* 
* 
*	START LOOP TEST TOOL
* 
* 
ASTART	EQU	*
	LD	A8,PROCCB 
	RF(Z)	ASTA20 
	LKM
	DATA	-8,PRPOOL	RELEASE PRINTER 
	CM	PROCCB	RELEASE PRINTER BUFFER 
ASTA20	EQU	*
	LDKL	A7,'OP' 
	LKM
	DATA	-4,OPCTRL	ACTIVATE OPERATOR CONTROL TASK
	LDKL	A7,'IN' 
	LKM
	DATA	-4,SLOGIN	ACTIVATE LOG TASK 
	LKM
	DATA	3 
	EJECT
* 
* 
*	OPERATOR CONTROL TASK 
* 
* 
OPCTRL	EQU	*
	LDKL	A14,STB 
	LDK	A7,' ' 
	CF	A14,OCCPR	OCCUPIE PRINTER 
OPCT10	EQU	*
	CF	A14,CRLF
	LDKL	A2,TEXT1
	ADKL	A11,1 
	CF	A14,PRTXT 
	LDKL	A8,CTECB
	LDK	A7,/84 
	LDK	A1,0	SET PARAMETERS TO 0 FROM START
	ST	A1,ECBBA,A8 
	LDK	A1,4 
	ST	A1,ECBCW,A8 
	LKM
	DATA	1 
	EJECT
OPCT40	EQU	*
	ADKL	A11,1 
	CF	A14,CRLF
	RF	OPCONT
	EJECT
* 
*	PRINT TEXT
* 
PRTXT	EQU	* 
	LDR*	A3,A2	GET LENGTH
	ST	A2,PRXECB+2 
	ADK	A3,2 
	ST	A3,PRXECB+4 
	LDK	A7,/86 
	LDKL	A8,PRXECB 
	LKM
	DATA	1	STANDARD WRITE
	CF	A14,CRLF
	RTN	A14
* 
* 
PRXECB	DATA	/31,0,0,0,0,0 
* 
* 
	EJECT
OPCONT	EQU	*
	LD	A8,PROCCB	GET BUFFER ADDRESS
	RF(Z)	OPCO10	NO BUFFER 
	LKM
	DATA	-8,PRPOOL	RELEASE PRINTER 
	CM	PROCCB
OPCO10	EQU	*
	LDKL	A14,STB 
	CF	A14,CRLF
	CF	A14,READ	READ COMMAND 
	DATA	KT100,FT100 
	EJECT
* 
* 
*   TYPE: ? 
* 
ERRORA	EQU	*
	CF	A14,OCCPR	OCCUPIE PRINTER 
ERROR	EQU	* 
	LDKL	A14,STB	LOAD STACK BASE 
	LDK	A7,'?'	INVALID KEY 
	CF	A14,PRCH	PRINT '?'
	RB	OPCONT
* 
* 
KT100	DATA	/044F,'CRP'
FT100	DATA	OPEN,CLOSE,RESET,PARAM 
	EJECT
* 
* 
*	DEFINE TRACE PARAMETERS 
*	POLL SUPRESSION (1ST DIGIT) 
*	TC ADDRESS (DIGIT 2,3)
* 
* 
PARAM	EQU	* 
	ADKL	A11,1 
	CF	A14,CRLF
	CF	A14,RDHEX 
	LDK	A6,0 
	LDR	A6,A7	SAVE FIRST DIGIT 
	SLL	A6,4 
	CF	A14,RDHEX	READ 2ND DIGIT
	IM	HEXCHA
	ADR	A6,A7
	CF	A14,RDHEX 
	SLL	A6,4 
	ADR	A6,A7
	LDK	A2,4 
	LDKL	A8,CTECB
	ST	A6,ECBBA,A8	STORE PARAMETERS
	RF	WRCTRL
	EJECT
* 
* 
*	CONTROL COMMANDS
* 
* 
OPEN	LDK	A2,1 
	RF	WRCTRL
RESET	LDK	A2,3
WRCTRL	EQU	*
	CF	A14,OCCPR	OCCUPIE PRINTER 
	LDKL	A8,CTECB	LOAD ECB ADDRESS 
	LDK	A7,/84	AND AORDER
	ST	A2,ECBCW,A8	STORE COMMAND IN CW 
	LKM
	DATA	1 
	ABL	OPCONT	NEXT COMMAND
* 
* 
CTECB	DATA	/62,0,0,0,0,0
* 
* 
*	CLOSE RECEIVERS 
* 
* 
CLOSE	EQU	* 
	CF	A14,OCCPR 
	LDK	A1,2 
	LDKL	A8,CTECB
	LDK	A7,/84 
	ST	A1,ECBCW,A8 
	LKM
	DATA	1 
	ABL	OPCT40 
	EJECT
* 
* 
*	PRINT ONE CHARACTER FROM A7 
* 
* 
PRCH	LDKL	A8,PRECB
	SC*	A7,ECBBA,A8
	LDK	A7,/85 
	LKM
	DATA	1 
	ADKL	A11,1	COUNT CHARACTERS
	LDK	A7,0 
	ST	A7,XSPACE	RESET SPACE INDICATOR 
	LC*	A7,ECBBA,A8	RESTORE A7 
	RTN	A14
* 
* 
TYECB	DATA	/20,TYBUF,1,0,0,0
TYBUF	RES	1 
PRECB	DATA	/31,PRBUF,1,0,0,0
PRBUF	DATA	0
XSPACE	DATA	0 
	EJECT
* 
* 
*	GENERATE CRLF 
* 
* 
CRLF	LDR	A11,A11
	RF(Z)	CRLF90	ALREADY NEW LINE
	LDK	A7,/0D 
	CF	A14,PRCH
	LDK	A7,/0A 
	CF	A14,PRCH
	IM	XSPACE	SET SPACE INDICATOR
	SUR	A11,A11
CRLF90	EQU	*
	RTN	A14
	EJECT
* 
* 
*	READ ONE CHARACTER FROM KEYBOARD TO A7
* 
*	TWO WORDS FOLLOWING CALL GIVE KEYTABLE AND FUNCTION TABLE ADDRESSES 
* 
*	ON ERROR GO TO NEXT INSTRUCTION ELSE TO FUNCTION
* 
*	A1 IS DESTROYED 
* 
* 
READ	LD	A7,4,A14
	LD	A1,2,A7	GET FUNCTION TABLE ADDRESS
	LDR*	A7,A7	GET KEYTABLE ADDRESS
	LDKL	A8,TYECB
	ST	A7,ECBCW,A8	STORE KEYTABLE ADDRESS
	LDK	A7,/82	STANDARD READ 
	LKM
	DATA	1 
READ05	EQU	*
	ADKL	A11,1	COUNT CHARS 
	LDK	A7,1 
	ST	A7,XSPACE	SET SPACE INDICATOR 
	LC*	A7,ECBBA,A8	GET CHARACTER TO A7
	ANK	A7,/7F 
	LD	A2,ECBRC,A8 
	RF(Z)	READ10	READING OK
	LDK	A1,4 
	ADS	A1,4,A14	INCR RETURN ADDRESS 
	RTN	A14
READ10	AD	A1,ECBCW,A8	ADD INDEX 
	ADKL	A14,4 
	ABR*	A1	RETURN TO FUNCTION 
* 
* 
*	READ AND ECHO 
* 
* 
READE	EQU	* 
	LD	A7,4,A14
* 
	LD	A1,2,A7	GET FUNCTION TABLE ADDRESS
	LDR*	A7,A7	GET KEYTABLE ADDRESS
	LDKL	A8,TYECB
	ST	A7,ECBCW,A8	STORE KEYTABLE ADDRESS
	LDK	A7,/82	STANDARD READ 
	LKM
	DATA	1 
	LC*	A7,ECBBA,A8
	CF	A14,PRCH	ECHO 
	LDKL	A8,TYECB
	RB	READ05
	EJECT
* 
* 
*	READ HEXADECIMAL CHARACTER
* 
* 
RDHEX	CF	A14,READE
	DATA	KTRDH 
KTRDH	DATA	0	NO KEYTABLE
RDH100	SUK	A7,/30 
	ABL(N)	ERROR 
	CWK	A7,9 
	RF(NG)	RDH110
	SUK	A7,7 
	ABL(N)	ERROR 
	CWK	A7,/F
	ABL(G)	ERROR 
RDH110	RTN	A14
* 
* 
* 
*	OCCUPIE PRINTER AND ECHO CHARACHTER IN A7 
* 
* 
OCCPR	EQU	* 
	LDR	A1,A7	SAVE CHAR
	LDK	A7,1 
	LKM	 
	DATA	-7,PRPOOL	GET BUFFER
	ST	A8,PROCCB	SAVE BUFFER ADDRESS 
	CF	A14,CRLF
	LDR	A7,A1	RESTORE CHAR 
	CF	A14,PRCH	ECHO 
	RTN	A14
* 
* 
* 
	END	ASTART

HexDump

0x0000…0034 (0, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» IDENT SLOGOP REL 1.1 78-04-21  870150340110«, t00=0x0000, t01=0x0004}
0x0034…003e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0038}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0060              Head {h00=0x0014, h01=0x0050, text=»* SDLC LOG TOOL «, t00=0x0000, t01=0x004c}
0x0060…006a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0064}
0x006a…0084              Head {h00=0x0016, h01=0x0050, text=»* OPERATOR CONTROL«, t00=0x0000, t01=0x006e}
0x0084…008e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00ae              Head {h00=0x001c, h01=0x0050, text=»* PROGRAMMER: O. HANSSON«, t00=0x0000, t01=0x0092}
0x00ae…00b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00ca              Head {h00=0x000e, h01=0x0050, text=»* 77.01.19«, t00=0x0000, t01=0x00bc}
0x00ca…00d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ce}
0x00d4…0114              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x00d8}
0x0114…011e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0152              Head {h00=0x0030, h01=0x0050, text=»* THIS MODULE HANDLES OPERATOR COMMUNICATION«, t00=0x0000, t01=0x0122}
0x0152…015c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…018c              Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING FUNCTIONS ARE SUPPORTED «, t00=0x0000, t01=0x0160}
0x018c…0196              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x0196…01b6              Head {h00=0x001c, h01=0x0050, text=»* OPEN RECEIVER 1 AND 2 «, t00=0x0001, t01=0x000a}
0x01b6…01c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002a}
0x01c0…01e0              Head {h00=0x001c, h01=0x0050, text=»* CLOSE RECEIVER 1 AND 2«, t00=0x0001, t01=0x0034}
0x01e0…01ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x01ea…0206              Head {h00=0x0018, h01=0x0050, text=»* RESET INPUT BUFFER«, t00=0x0001, t01=0x005e}
0x0206…0210              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…0230              Head {h00=0x001c, h01=0x0050, text=»* SPECIFY LOG PARAMETERS«, t00=0x0001, t01=0x0084}
0x0230…023a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a4}
0x023a…0244              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ae}
0x0244…024e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…0294              Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0001, t01=0x00c2}
0x0294…02a2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0108}
0x02a2…02ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0116}
0x02ac…02b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…02d6              Head {h00=0x0012, h01=0x0050, text=» ENTRY ASTART «, t00=0x0001, t01=0x0134}
0x02d6…02e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…02ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…031c              Head {h00=0x002e, h01=0x0050, text=» EXTRN PRPOOL OCCUPIE PRINTER BUFFER POOL «, t00=0x0001, t01=0x015e}
0x031c…0330              Head {h00=0x0010, h01=0x0050, text=» EXTRN TEXT1«, t00=0x0001, t01=0x0190}
0x0330…0346              Head {h00=0x0012, h01=0x0050, text=» EXTRN SLOGIN «, t00=0x0002, t01=0x0014}
0x0346…0350              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x0350…035a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…036c              Head {h00=0x000e, h01=0x0050, text=»* EQUATES «, t00=0x0002, t01=0x003e}
0x036c…0376              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0050}
0x0376…0380              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…0394              Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0002, t01=0x0064}
0x0394…03a8              Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0002, t01=0x0078}
0x03a8…03bc              Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0002, t01=0x008c}
0x03bc…03d0              Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU 10«, t00=0x0002, t01=0x00a0}
0x03d0…03da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…03e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00be}
0x03e4…0402              Head {h00=0x001a, h01=0x0050, text=» RES 20 STACK FOR A14 «, t00=0x0002, t01=0x00c8}
0x0402…0416              Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x0002, t01=0x00e6}
0x0416…0450              Head {h00=0x0036, h01=0x0050, text=»PROCCB DATA 0 ADDRESS TO PRINTER OCCUPIED BUFFFER «, t00=0x0002, t01=0x00fa}
0x0450…0466              Head {h00=0x0012, h01=0x0050, text=»HEXCHA DATA 0 «, t00=0x0002, t01=0x0134}
0x0466…0474              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x014a}
0x0474…047e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047e…0488              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0488…04a6              Head {h00=0x001a, h01=0x0050, text=»* START LOOP TEST TOOL«, t00=0x0002, t01=0x016c}
0x04a6…04b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04b0…04ba (3, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04ba…04ce              Head {h00=0x0010, h01=0x0050, text=»ASTART EQU *«, t00=0x0003, t01=0x000e}
0x04ce…04e4              Head {h00=0x0012, h01=0x0050, text=» LD A8,PROCCB «, t00=0x0003, t01=0x0022}
0x04e4…04fa              Head {h00=0x0012, h01=0x0050, text=» RF(Z) ASTA20 «, t00=0x0003, t01=0x0038}
0x04fa…0506              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0003, t01=0x004e}
0x0506…052e              Head {h00=0x0024, h01=0x0050, text=» DATA -8,PRPOOL RELEASE PRINTER «, t00=0x0003, t01=0x005a}
0x052e…0558              Head {h00=0x0026, h01=0x0050, text=» CM PROCCB RELEASE PRINTER BUFFER «, t00=0x0003, t01=0x0082}
0x0558…056c              Head {h00=0x0010, h01=0x0050, text=»ASTA20 EQU *«, t00=0x0003, t01=0x00ac}
0x056c…0582              Head {h00=0x0012, h01=0x0050, text=» LDKL A7,'OP' «, t00=0x0003, t01=0x00c0}
0x0582…058e              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0003, t01=0x00d6}
0x058e…05c4              Head {h00=0x0032, h01=0x0050, text=» DATA -4,OPCTRL ACTIVATE OPERATOR CONTROL TASK«, t00=0x0003, t01=0x00e2}
0x05c4…05da              Head {h00=0x0012, h01=0x0050, text=» LDKL A7,'IN' «, t00=0x0003, t01=0x0118}
0x05da…05e6              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0003, t01=0x012e}
0x05e6…0610              Head {h00=0x0026, h01=0x0050, text=» DATA -4,SLOGIN ACTIVATE LOG TASK «, t00=0x0003, t01=0x013a}
0x0610…061c              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0003, t01=0x0164}
0x061c…062c              Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0003, t01=0x0170}
0x062c…063a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0180}
0x063a…0644              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018e}
0x0644…064e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064e…066e              Head {h00=0x001c, h01=0x0050, text=»* OPERATOR CONTROL TASK «, t00=0x0004, t01=0x0012}
0x066e…0678              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0678…0682              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003c}
0x0682…0696              Head {h00=0x0010, h01=0x0050, text=»OPCTRL EQU *«, t00=0x0004, t01=0x0046}
0x0696…06ac              Head {h00=0x0012, h01=0x0050, text=» LDKL A14,STB «, t00=0x0004, t01=0x005a}
0x06ac…06c0              Head {h00=0x0010, h01=0x0050, text=» LDK A7,' ' «, t00=0x0004, t01=0x0070}
0x06c0…06e6              Head {h00=0x0022, h01=0x0050, text=» CF A14,OCCPR OCCUPIE PRINTER «, t00=0x0004, t01=0x0084}
0x06e6…06fa              Head {h00=0x0010, h01=0x0050, text=»OPCT10 EQU *«, t00=0x0004, t01=0x00aa}
0x06fa…070e              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0004, t01=0x00be}
0x070e…0724              Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TEXT1«, t00=0x0004, t01=0x00d2}
0x0724…0738              Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0004, t01=0x00e8}
0x0738…074e              Head {h00=0x0012, h01=0x0050, text=» CF A14,PRTXT «, t00=0x0004, t01=0x00fc}
0x074e…0764              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,CTECB«, t00=0x0004, t01=0x0112}
0x0764…0778              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/84 «, t00=0x0004, t01=0x0128}
0x0778…07a8              Head {h00=0x002c, h01=0x0050, text=» LDK A1,0 SET PARAMETERS TO 0 FROM START«, t00=0x0004, t01=0x013c}
0x07a8…07c0              Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBBA,A8 «, t00=0x0004, t01=0x016c}
0x07c0…07d2              Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0004, t01=0x0184}
0x07d2…07ea              Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0005, t01=0x0008}
0x07ea…07f6              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0005, t01=0x0020}
0x07f6…0806              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0005, t01=0x002c}
0x0806…0814              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x003c}
0x0814…0828              Head {h00=0x0010, h01=0x0050, text=»OPCT40 EQU *«, t00=0x0005, t01=0x004a}
0x0828…083c              Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0005, t01=0x005e}
0x083c…0850              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0005, t01=0x0072}
0x0850…0862              Head {h00=0x000e, h01=0x0050, text=» RF OPCONT«, t00=0x0005, t01=0x0086}
0x0862…0870              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0098}
0x0870…087a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a6}
0x087a…088e              Head {h00=0x0010, h01=0x0050, text=»* PRINT TEXT«, t00=0x0005, t01=0x00b0}
0x088e…0898              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c4}
0x0898…08ac              Head {h00=0x0010, h01=0x0050, text=»PRTXT EQU * «, t00=0x0005, t01=0x00ce}
0x08ac…08ca              Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 GET LENGTH«, t00=0x0005, t01=0x00e2}
0x08ca…08e2              Head {h00=0x0014, h01=0x0050, text=» ST A2,PRXECB+2 «, t00=0x0005, t01=0x0100}
0x08e2…08f4              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0005, t01=0x0118}
0x08f4…090c              Head {h00=0x0014, h01=0x0050, text=» ST A3,PRXECB+4 «, t00=0x0005, t01=0x012a}
0x090c…0920              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0005, t01=0x0142}
0x0920…0938              Head {h00=0x0014, h01=0x0050, text=» LDKL A8,PRXECB «, t00=0x0005, t01=0x0156}
0x0938…0944              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0005, t01=0x016e}
0x0944…0962              Head {h00=0x001a, h01=0x0050, text=» DATA 1 STANDARD WRITE«, t00=0x0005, t01=0x017a}
0x0962…0976              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0006, t01=0x0008}
0x0976…0986              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x001c}
0x0986…0990              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0990…099a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0036}
0x099a…09bc              Head {h00=0x001e, h01=0x0050, text=»PRXECB DATA /31,0,0,0,0,0 «, t00=0x0006, t01=0x0040}
0x09bc…09c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c6…09d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006c}
0x09d0…09de              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0076}
0x09de…09f2              Head {h00=0x0010, h01=0x0050, text=»OPCONT EQU *«, t00=0x0006, t01=0x0084}
0x09f2…0a1a              Head {h00=0x0024, h01=0x0050, text=» LD A8,PROCCB GET BUFFER ADDRESS«, t00=0x0006, t01=0x0098}
0x0a1a…0a3a              Head {h00=0x001c, h01=0x0050, text=» RF(Z) OPCO10 NO BUFFER «, t00=0x0006, t01=0x00c0}
0x0a3a…0a46              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0006, t01=0x00e0}
0x0a46…0a6e              Head {h00=0x0024, h01=0x0050, text=» DATA -8,PRPOOL RELEASE PRINTER «, t00=0x0006, t01=0x00ec}
0x0a6e…0a80              Head {h00=0x000e, h01=0x0050, text=» CM PROCCB«, t00=0x0006, t01=0x0114}
0x0a80…0a94              Head {h00=0x0010, h01=0x0050, text=»OPCO10 EQU *«, t00=0x0006, t01=0x0126}
0x0a94…0aaa              Head {h00=0x0012, h01=0x0050, text=» LDKL A14,STB «, t00=0x0006, t01=0x013a}
0x0aaa…0abe              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0006, t01=0x0150}
0x0abe…0ae0              Head {h00=0x001e, h01=0x0050, text=» CF A14,READ READ COMMAND «, t00=0x0006, t01=0x0164}
0x0ae0…0afa              Head {h00=0x0016, h01=0x0050, text=» DATA KT100,FT100 «, t00=0x0006, t01=0x0186}
0x0afa…0b08              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0010}
0x0b08…0b12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001e}
0x0b12…0b1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0028}
0x0b1c…0b30              Head {h00=0x0010, h01=0x0050, text=»*   TYPE: ? «, t00=0x0007, t01=0x0032}
0x0b30…0b3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b4e              Head {h00=0x0010, h01=0x0050, text=»ERRORA EQU *«, t00=0x0007, t01=0x0050}
0x0b4e…0b74              Head {h00=0x0022, h01=0x0050, text=» CF A14,OCCPR OCCUPIE PRINTER «, t00=0x0007, t01=0x0064}
0x0b74…0b88              Head {h00=0x0010, h01=0x0050, text=»ERROR EQU * «, t00=0x0007, t01=0x008a}
0x0b88…0bae              Head {h00=0x0022, h01=0x0050, text=» LDKL A14,STB LOAD STACK BASE «, t00=0x0007, t01=0x009e}
0x0bae…0bce              Head {h00=0x001c, h01=0x0050, text=» LDK A7,'?' INVALID KEY «, t00=0x0007, t01=0x00c4}
0x0bce…0bec              Head {h00=0x001a, h01=0x0050, text=» CF A14,PRCH PRINT '?'«, t00=0x0007, t01=0x00e4}
0x0bec…0bfe              Head {h00=0x000e, h01=0x0050, text=» RB OPCONT«, t00=0x0007, t01=0x0102}
0x0bfe…0c08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0114}
0x0c08…0c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x0c12…0c30              Head {h00=0x001a, h01=0x0050, text=»KT100 DATA /044F,'CRP'«, t00=0x0007, t01=0x0128}
0x0c30…0c5a              Head {h00=0x0026, h01=0x0050, text=»FT100 DATA OPEN,CLOSE,RESET,PARAM «, t00=0x0007, t01=0x0146}
0x0c5a…0c68              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0170}
0x0c68…0c72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c72…0c7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0188}
0x0c7c…0c9e (8, 0, 400)  Head {h00=0x001e, h01=0x0050, text=»* DEFINE TRACE PARAMETERS «, t00=0x0008, t01=0x0004}
0x0c9e…0cc4              Head {h00=0x0022, h01=0x0050, text=»* POLL SUPRESSION (1ST DIGIT) «, t00=0x0008, t01=0x0026}
0x0cc4…0ce4              Head {h00=0x001c, h01=0x0050, text=»* TC ADDRESS (DIGIT 2,3)«, t00=0x0008, t01=0x004c}
0x0ce4…0cee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cee…0cf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0076}
0x0cf8…0d0c              Head {h00=0x0010, h01=0x0050, text=»PARAM EQU * «, t00=0x0008, t01=0x0080}
0x0d0c…0d20              Head {h00=0x0010, h01=0x0050, text=» ADKL A11,1 «, t00=0x0008, t01=0x0094}
0x0d20…0d34              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0008, t01=0x00a8}
0x0d34…0d4a              Head {h00=0x0012, h01=0x0050, text=» CF A14,RDHEX «, t00=0x0008, t01=0x00bc}
0x0d4a…0d5c              Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0008, t01=0x00d2}
0x0d5c…0d80              Head {h00=0x0020, h01=0x0050, text=» LDR A6,A7 SAVE FIRST DIGIT «, t00=0x0008, t01=0x00e4}
0x0d80…0d92              Head {h00=0x000e, h01=0x0050, text=» SLL A6,4 «, t00=0x0008, t01=0x0108}
0x0d92…0db6              Head {h00=0x0020, h01=0x0050, text=» CF A14,RDHEX READ 2ND DIGIT«, t00=0x0008, t01=0x011a}
0x0db6…0dc8              Head {h00=0x000e, h01=0x0050, text=» IM HEXCHA«, t00=0x0008, t01=0x013e}
0x0dc8…0dda              Head {h00=0x000e, h01=0x0050, text=» ADR A6,A7«, t00=0x0008, t01=0x0150}
0x0dda…0df0              Head {h00=0x0012, h01=0x0050, text=» CF A14,RDHEX «, t00=0x0008, t01=0x0162}
0x0df0…0e02              Head {h00=0x000e, h01=0x0050, text=» SLL A6,4 «, t00=0x0008, t01=0x0178}
0x0e02…0e14              Head {h00=0x000e, h01=0x0050, text=» ADR A6,A7«, t00=0x0008, t01=0x018a}
0x0e14…0e26              Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x0009, t01=0x000c}
0x0e26…0e3c              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,CTECB«, t00=0x0009, t01=0x001e}
0x0e3c…0e64              Head {h00=0x0024, h01=0x0050, text=» ST A6,ECBBA,A8 STORE PARAMETERS«, t00=0x0009, t01=0x0034}
0x0e64…0e76              Head {h00=0x000e, h01=0x0050, text=» RF WRCTRL«, t00=0x0009, t01=0x005c}
0x0e76…0e84              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x006e}
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…0eb2              Head {h00=0x0016, h01=0x0050, text=»* CONTROL COMMANDS«, t00=0x0009, t01=0x0090}
0x0eb2…0ebc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00aa}
0x0ebc…0ec6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b4}
0x0ec6…0edc              Head {h00=0x0012, h01=0x0050, text=»OPEN LDK A2,1 «, t00=0x0009, t01=0x00be}
0x0edc…0eee              Head {h00=0x000e, h01=0x0050, text=» RF WRCTRL«, t00=0x0009, t01=0x00d4}
0x0eee…0f04              Head {h00=0x0012, h01=0x0050, text=»RESET LDK A2,3«, t00=0x0009, t01=0x00e6}
0x0f04…0f18              Head {h00=0x0010, h01=0x0050, text=»WRCTRL EQU *«, t00=0x0009, t01=0x00fc}
0x0f18…0f3e              Head {h00=0x0022, h01=0x0050, text=» CF A14,OCCPR OCCUPIE PRINTER «, t00=0x0009, t01=0x0110}
0x0f3e…0f66              Head {h00=0x0024, h01=0x0050, text=» LDKL A8,CTECB LOAD ECB ADDRESS «, t00=0x0009, t01=0x0136}
0x0f66…0f84              Head {h00=0x001a, h01=0x0050, text=» LDK A7,/84 AND AORDER«, t00=0x0009, t01=0x015e}
0x0f84…0fb0              Head {h00=0x0028, h01=0x0050, text=» ST A2,ECBCW,A8 STORE COMMAND IN CW «, t00=0x0009, t01=0x017c}
0x0fb0…0fbc              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000a, t01=0x0018}
0x0fbc…0fcc              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000a, t01=0x0024}
0x0fcc…0fec              Head {h00=0x001c, h01=0x0050, text=» ABL OPCONT NEXT COMMAND«, t00=0x000a, t01=0x0034}
0x0fec…0ff6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0054}
0x0ff6…1000              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005e}
0x1000…1020              Head {h00=0x001c, h01=0x0050, text=»CTECB DATA /62,0,0,0,0,0«, t00=0x000a, t01=0x0068}
0x1020…102a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x102a…1034              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0092}
0x1034…104e              Head {h00=0x0016, h01=0x0050, text=»* CLOSE RECEIVERS «, t00=0x000a, t01=0x009c}
0x104e…1058              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b6}
0x1058…1062              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c0}
0x1062…1076              Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x000a, t01=0x00ca}
0x1076…108c              Head {h00=0x0012, h01=0x0050, text=» CF A14,OCCPR «, t00=0x000a, t01=0x00de}
0x108c…109e              Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x000a, t01=0x00f4}
0x109e…10b4              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,CTECB«, t00=0x000a, t01=0x0106}
0x10b4…10c8              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/84 «, t00=0x000a, t01=0x011c}
0x10c8…10e0              Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x000a, t01=0x0130}
0x10e0…10ec              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000a, t01=0x0148}
0x10ec…10fc              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000a, t01=0x0154}
0x10fc…1110              Head {h00=0x0010, h01=0x0050, text=» ABL OPCT40 «, t00=0x000a, t01=0x0164}
0x1110…111e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0178}
0x111e…1128              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0186}
0x1128…1132              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1132…1158              Head {h00=0x0022, h01=0x0050, text=»* PRINT ONE CHARACTER FROM A7 «, t00=0x000b, t01=0x000a}
0x1158…1162              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0030}
0x1162…116c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003a}
0x116c…1186              Head {h00=0x0016, h01=0x0050, text=»PRCH LDKL A8,PRECB«, t00=0x000b, t01=0x0044}
0x1186…119e              Head {h00=0x0014, h01=0x0050, text=» SC* A7,ECBBA,A8«, t00=0x000b, t01=0x005e}
0x119e…11b2              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/85 «, t00=0x000b, t01=0x0076}
0x11b2…11be              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000b, t01=0x008a}
0x11be…11ce              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000b, t01=0x0096}
0x11ce…11f2              Head {h00=0x0020, h01=0x0050, text=» ADKL A11,1 COUNT CHARACTERS«, t00=0x000b, t01=0x00a6}
0x11f2…1204              Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x000b, t01=0x00ca}
0x1204…1230              Head {h00=0x0028, h01=0x0050, text=» ST A7,XSPACE RESET SPACE INDICATOR «, t00=0x000b, t01=0x00dc}
0x1230…1254              Head {h00=0x0020, h01=0x0050, text=» LC* A7,ECBBA,A8 RESTORE A7 «, t00=0x000b, t01=0x0108}
0x1254…1264              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000b, t01=0x012c}
0x1264…126e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013c}
0x126e…1278              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x1278…129c              Head {h00=0x0020, h01=0x0050, text=»TYECB DATA /20,TYBUF,1,0,0,0«, t00=0x000b, t01=0x0150}
0x129c…12b0              Head {h00=0x0010, h01=0x0050, text=»TYBUF RES 1 «, t00=0x000b, t01=0x0174}
0x12b0…12d4              Head {h00=0x0020, h01=0x0050, text=»PRECB DATA /31,PRBUF,1,0,0,0«, t00=0x000b, t01=0x0188}
0x12d4…12e8              Head {h00=0x0010, h01=0x0050, text=»PRBUF DATA 0«, t00=0x000c, t01=0x001c}
0x12e8…12fe              Head {h00=0x0012, h01=0x0050, text=»XSPACE DATA 0 «, t00=0x000c, t01=0x0030}
0x12fe…130c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0046}
0x130c…1316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0054}
0x1316…1320              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x1320…1338              Head {h00=0x0014, h01=0x0050, text=»* GENERATE CRLF «, t00=0x000c, t01=0x0068}
0x1338…1342              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1342…134c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134c…1364              Head {h00=0x0014, h01=0x0050, text=»CRLF LDR A11,A11«, t00=0x000c, t01=0x0094}
0x1364…138a              Head {h00=0x0022, h01=0x0050, text=» RF(Z) CRLF90 ALREADY NEW LINE«, t00=0x000c, t01=0x00ac}
0x138a…139e              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/0D «, t00=0x000c, t01=0x00d2}
0x139e…13b2              Head {h00=0x0010, h01=0x0050, text=» CF A14,PRCH«, t00=0x000c, t01=0x00e6}
0x13b2…13c6              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/0A «, t00=0x000c, t01=0x00fa}
0x13c6…13da              Head {h00=0x0010, h01=0x0050, text=» CF A14,PRCH«, t00=0x000c, t01=0x010e}
0x13da…1400              Head {h00=0x0022, h01=0x0050, text=» IM XSPACE SET SPACE INDICATOR«, t00=0x000c, t01=0x0122}
0x1400…1414              Head {h00=0x0010, h01=0x0050, text=» SUR A11,A11«, t00=0x000c, t01=0x0148}
0x1414…1428              Head {h00=0x0010, h01=0x0050, text=»CRLF90 EQU *«, t00=0x000c, t01=0x015c}
0x1428…1438              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0170}
0x1438…1446              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0180}
0x1446…1450              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018e}
0x1450…145a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145a…148a              Head {h00=0x002c, h01=0x0050, text=»* READ ONE CHARACTER FROM KEYBOARD TO A7«, t00=0x000d, t01=0x0012}
0x148a…1494              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1494…14e2              Head {h00=0x004a, h01=0x0050, text=»* TWO WORDS FOLLOWING CALL GIVE KEYTABLE AND FUNCTION TABLE ADDRESSES «, t00=0x000d, t01=0x004c}
0x14e2…14ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009a}
0x14ec…1526              Head {h00=0x0036, h01=0x0050, text=»* ON ERROR GO TO NEXT INSTRUCTION ELSE TO FUNCTION«, t00=0x000d, t01=0x00a4}
0x1526…1530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00de}
0x1530…154a              Head {h00=0x0016, h01=0x0050, text=»* A1 IS DESTROYED «, t00=0x000d, t01=0x00e8}
0x154a…1554              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0102}
0x1554…155e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010c}
0x155e…1576              Head {h00=0x0014, h01=0x0050, text=»READ LD A7,4,A14«, t00=0x000d, t01=0x0116}
0x1576…15a4              Head {h00=0x002a, h01=0x0050, text=» LD A1,2,A7 GET FUNCTION TABLE ADDRESS«, t00=0x000d, t01=0x012e}
0x15a4…15cc              Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET KEYTABLE ADDRESS«, t00=0x000d, t01=0x015c}
0x15cc…15e2              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,TYECB«, t00=0x000d, t01=0x0184}
0x15e2…1610              Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE KEYTABLE ADDRESS«, t00=0x000e, t01=0x000a}
0x1610…1632              Head {h00=0x001e, h01=0x0050, text=» LDK A7,/82 STANDARD READ «, t00=0x000e, t01=0x0038}
0x1632…163e              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x005a}
0x163e…164e              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000e, t01=0x0066}
0x164e…1662              Head {h00=0x0010, h01=0x0050, text=»READ05 EQU *«, t00=0x000e, t01=0x0076}
0x1662…1682              Head {h00=0x001c, h01=0x0050, text=» ADKL A11,1 COUNT CHARS «, t00=0x000e, t01=0x008a}
0x1682…1694              Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x000e, t01=0x00aa}
0x1694…16be              Head {h00=0x0026, h01=0x0050, text=» ST A7,XSPACE SET SPACE INDICATOR «, t00=0x000e, t01=0x00bc}
0x16be…16ea              Head {h00=0x0028, h01=0x0050, text=» LC* A7,ECBBA,A8 GET CHARACTER TO A7«, t00=0x000e, t01=0x00e6}
0x16ea…16fe              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/7F «, t00=0x000e, t01=0x0112}
0x16fe…1716              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x000e, t01=0x0126}
0x1716…1736              Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ10 READING OK«, t00=0x000e, t01=0x013e}
0x1736…1748              Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x000e, t01=0x015e}
0x1748…1772              Head {h00=0x0026, h01=0x0050, text=» ADS A1,4,A14 INCR RETURN ADDRESS «, t00=0x000e, t01=0x0170}
0x1772…1782              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000f, t01=0x000a}
0x1782…17aa              Head {h00=0x0024, h01=0x0050, text=»READ10 AD A1,ECBCW,A8 ADD INDEX «, t00=0x000f, t01=0x001a}
0x17aa…17be              Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x000f, t01=0x0042}
0x17be…17e2              Head {h00=0x0020, h01=0x0050, text=» ABR* A1 RETURN TO FUNCTION «, t00=0x000f, t01=0x0056}
0x17e2…17ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007a}
0x17ec…17f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f6…180e              Head {h00=0x0014, h01=0x0050, text=»* READ AND ECHO «, t00=0x000f, t01=0x008e}
0x180e…1818              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x1818…1822              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x1822…1836              Head {h00=0x0010, h01=0x0050, text=»READE EQU * «, t00=0x000f, t01=0x00ba}
0x1836…184a              Head {h00=0x0010, h01=0x0050, text=» LD A7,4,A14«, t00=0x000f, t01=0x00ce}
0x184a…1854              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e2}
0x1854…1882              Head {h00=0x002a, h01=0x0050, text=» LD A1,2,A7 GET FUNCTION TABLE ADDRESS«, t00=0x000f, t01=0x00ec}
0x1882…18aa              Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A7 GET KEYTABLE ADDRESS«, t00=0x000f, t01=0x011a}
0x18aa…18c0              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,TYECB«, t00=0x000f, t01=0x0142}
0x18c0…18ee              Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE KEYTABLE ADDRESS«, t00=0x000f, t01=0x0158}
0x18ee…1910              Head {h00=0x001e, h01=0x0050, text=» LDK A7,/82 STANDARD READ «, t00=0x000f, t01=0x0186}
0x1910…191c              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0018}
0x191c…192c              Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x0024}
0x192c…1944              Head {h00=0x0014, h01=0x0050, text=» LC* A7,ECBBA,A8«, t00=0x0010, t01=0x0034}
0x1944…195e              Head {h00=0x0016, h01=0x0050, text=» CF A14,PRCH ECHO «, t00=0x0010, t01=0x004c}
0x195e…1974              Head {h00=0x0012, h01=0x0050, text=» LDKL A8,TYECB«, t00=0x0010, t01=0x0066}
0x1974…1986              Head {h00=0x000e, h01=0x0050, text=» RB READ05«, t00=0x0010, t01=0x007c}
0x1986…1994              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x008e}
0x1994…199e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x199e…19a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a6}
0x19a8…19cc              Head {h00=0x0020, h01=0x0050, text=»* READ HEXADECIMAL CHARACTER«, t00=0x0010, t01=0x00b0}
0x19cc…19d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19d6…19e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e0…19fa              Head {h00=0x0016, h01=0x0050, text=»RDHEX CF A14,READE«, t00=0x0010, t01=0x00e8}
0x19fa…1a0e              Head {h00=0x0010, h01=0x0050, text=» DATA KTRDH «, t00=0x0010, t01=0x0102}
0x1a0e…1a2e              Head {h00=0x001c, h01=0x0050, text=»KTRDH DATA 0 NO KEYTABLE«, t00=0x0010, t01=0x0116}
0x1a2e…1a48              Head {h00=0x0016, h01=0x0050, text=»RDH100 SUK A7,/30 «, t00=0x0010, t01=0x0136}
0x1a48…1a5e              Head {h00=0x0012, h01=0x0050, text=» ABL(N) ERROR «, t00=0x0010, t01=0x0150}
0x1a5e…1a70              Head {h00=0x000e, h01=0x0050, text=» CWK A7,9 «, t00=0x0010, t01=0x0166}
0x1a70…1a86              Head {h00=0x0012, h01=0x0050, text=» RF(NG) RDH110«, t00=0x0010, t01=0x0178}
0x1a86…1a98              Head {h00=0x000e, h01=0x0050, text=» SUK A7,7 «, t00=0x0010, t01=0x018e}
0x1a98…1aae              Head {h00=0x0012, h01=0x0050, text=» ABL(N) ERROR «, t00=0x0011, t01=0x0010}
0x1aae…1ac0              Head {h00=0x000e, h01=0x0050, text=» CWK A7,/F«, t00=0x0011, t01=0x0026}
0x1ac0…1ad6              Head {h00=0x0012, h01=0x0050, text=» ABL(G) ERROR «, t00=0x0011, t01=0x0038}
0x1ad6…1aec              Head {h00=0x0012, h01=0x0050, text=»RDH110 RTN A14«, t00=0x0011, t01=0x004e}
0x1aec…1af6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0064}
0x1af6…1b00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006e}
0x1b00…1b0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0078}
0x1b0a…1b3e              Head {h00=0x0030, h01=0x0050, text=»* OCCUPIE PRINTER AND ECHO CHARACHTER IN A7 «, t00=0x0011, t01=0x0082}
0x1b3e…1b48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b48…1b52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b52…1b66              Head {h00=0x0010, h01=0x0050, text=»OCCPR EQU * «, t00=0x0011, t01=0x00ca}
0x1b66…1b82              Head {h00=0x0018, h01=0x0050, text=» LDR A1,A7 SAVE CHAR«, t00=0x0011, t01=0x00de}
0x1b82…1b94              Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0011, t01=0x00fa}
0x1b94…1ba2              Head {h00=0x000a, h01=0x0050, text=» LKM  «, t00=0x0011, t01=0x010c}
0x1ba2…1bc4              Head {h00=0x001e, h01=0x0050, text=» DATA -7,PRPOOL GET BUFFER«, t00=0x0011, t01=0x011a}
0x1bc4…1bee              Head {h00=0x0026, h01=0x0050, text=» ST A8,PROCCB SAVE BUFFER ADDRESS «, t00=0x0011, t01=0x013c}
0x1bee…1c02              Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0011, t01=0x0166}
0x1c02…1c22              Head {h00=0x001c, h01=0x0050, text=» LDR A7,A1 RESTORE CHAR «, t00=0x0011, t01=0x017a}
0x1c22…1c3c              Head {h00=0x0016, h01=0x0050, text=» CF A14,PRCH ECHO «, t00=0x0012, t01=0x000a}
0x1c3c…1c4c              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0024}
0x1c4c…1c56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0034}
0x1c56…1c60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c60…1c6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0048}
0x1c6a…1c7e              Head {h00=0x0010, h01=0x0050, text=» END ASTART «, t00=0x0012, t01=0x0052}
0x1c7e…1c82              Head {h00=0x4004, h01=0x0000}
0x1c82…1c86              00 12 00 66                                                                                                                                                                                                                                       ┆   f┆
0x1c86…1c8e (19, 1, 8)   20 04 00 00 00 13 00 04                                                                                                                                                                                                                           ┆        ┆
0x1c8e…1cde (20, 2, 212) 00 1c 00 50 5c 41 44 4b 5c 41 36 2c 2f 32 5c 4e 58 54 20 46 49 4c 45 20 43 4f 44 45 00 2c 00 04 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 31 20 00 2c 00 24 00 1c 00 50 5c 52 42 28 4e 5a 29 5c 50 4f 4c 32 30 30 5c 4e 45 58 54 20 4c 49 4e 45 00 2c   ┆   P ADK A6,/2 NXT FILE CODE ,     P SUK A5,1  , $   P RB(NZ) POL200 NEXT LINE ,┆
0x1cde…1d2e              00 36 00 14 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 00 2c 00 56 00 1e 00 50 2a 20 45 43 42 20 46 4f 52 20 50 4f 4c 4c 49 4e 47 20 43 4f 4e 54 52 4f 4c 20 00 2c 00 6e 00 1a 00 50 50 45 43 42 5c 44 41 54 41 5c 30 2c 30 2c 30 2c   ┆ 6   P RTN A14 RETURN  , V   P* ECB FOR POLLING CONTROL  , n   PPECB DATA 0,0,0,┆
0x1d2e…1d62              30 2c 30 2c 30 20 00 2c 00 90 00 08 00 50 5c 58 49 46 00 2c 00 ae 00 06 00 50 2a 20 00 2c 00 ba 00 08 00 50 5c 45 4e 44 00 2c 00 c4 40 04 00 00 00 2c 00 d0                                                                                       ┆0,0,0  ,     P XIF ,     P*  ,     P END ,  @    ,  ┆

Reduced view