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

⟦be81455e6⟧

    Length: 27142 (0x6a06)
    Notes: pts_type(SC)
    Names: »DRKB01.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:TU10/DRKB01.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:TU10/DRKB01.SC« 

PTS(SC)

	IDENT DRKB01 	REL 10.0 80-03-14 870105041000 

* 
* 
******************************************* 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRKB01 = DRIVER KEYBOARD
* 
* 
* 
* 
* 
* 
******************************************* 
* 
* 
*    THIS DRIVER HANDLES INPUT FROM NUMERIC 
*    AND ALPHANUMERIC KEYBOARDS PTS 6231, 
*    6232, 6233, 6234, 6331,AND 6342
*    CONNECTED TO CPU VIA CHLT OR CHRT. 
* 
*    ONLY INPUT DATA FROM DEPRESSED KEYS
*    ARE HANDLED BY THE DRIVER. 
* 
*    AN ECHO-DEVICE CAN BE ATTACHED TO EVERY
*    KEYBOARD WHERE RECEIVED CHARACTERS ARE 
*    ECHOED.
* 
*    THE DRIVER CONSISTS OF FOLLOWING PARTS:
* 
*    A C K B : ACTIVATION PART
* 
*    I H K B : INTERRUPT HANDLER
* 
*    E C H O : ECHO HANDLER 
* 
*    R C K B : RECOVERY ROUTINE 
* 
	EJECT
* 
* 
*    THE FOLLOWING ORDERS ARE THREATED: 
* 
*    ORDER 01: BASIC READ 
*    ORDER 02: STANDARD READ
*    ORDER 03: NUMERIC READ 
*    ORDER 04: RESET INPUT BUFFER 
* 
* 
*    NORMAL REGISTER USAGE :
* 
*    REGISTER A1 : RETURN CODE
*             A2 : INPUT CHARACTER
*             A3 : BUFFER INDEX 
*             A4 : WORK REGISTER
*             A5 : STACK BASE 
*             A6 : DWT-ADDRESS
*             A7 : ORDER
*             A8 : ECB-ADDRESS
* 
	EJECT
* 
* 
*    SYSTEM ADAPTATION
* 
*    KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD
*    IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ 
*    AND BIT 11 FOR NUMERIC READ. 
* 
*    BIT 10 = 0 FOR PTS 6231, 6233, 6234
*    BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 
*    BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 
*    BIT 11 = 1 FOR PTS 6234,6342 
* 
*    CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 
*    MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED 
*    IN DWT.
* 
*    DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE
*    DEFINED IN DWT.
* 
*    IF TIMING IS WANTED, TIMER POINTER 
*    IN DWT MUST BE SET UNEQUAL TO ZERO.
*    STANDARD VALUE FOR TIME-OUT IS 30 SECONDS
*    SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE 
*    IS WANTED FOR A SYSTEM, INDICATOR
*    IN DRIVER MUST BE CHANGED. 
* 
*    THE LENGTH OF THE CIRCULAR INPUT BUFFER IS 
*    DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS 
*    NOTE !!!  THAT LENGTH MUST BE THE SAME FOR ALL 
*    DWT:S IN SYSTEM
	EJECT
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:
* 
*    -----ECHO-FUNCTION 
*    -----STANDARD READ 
*    -----TIME-OUT-FUNCTION 
*    -----CODE CONVERSION VIA "8-BIT" SETTING 
*         AND CONVERSION TABLES 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO
*    POSSIBLE TO GIVE A KEY THE MEANING OF TWO, 
*    THREE OR MORE ZEROES.
* 
*    THE DRIVER IS PREPARED TO HANDLE THE SPECIAL 
*    NORWAY-PROBLEM, WITH BETWEEN THEMSELVES
*    DEPENDENT KEYBOARDS CONNECTED TO THE SAME
*    SELECTOR UNIT. 
*    BY ASSEMBLING THE DRIVER CONDITIONALLY THIS
*    FUNCTION IS INCLUDED.
	EJECT
* 
* 
**************
* ENTRIES    *
**************
* 
	ENTRY	KBAD	ADDRESS-BLOCK 
	ENTRY	EOQUEU	QUEUE POINTER ROUTINE 
	ENTRY	DWTINQ,DWTUTQ	QUEUE POINTERS 
* 
* 
* 
**********************************************
*    EXTERNAL TOSS MODULE ENTRIES            *
**********************************************
* 
	EXTRN	DISIOE	I/0 REQUEST ERROR 
	EXTRN	DISEND	END I/O AND GO TO DISPATCHER
	EXTRN	TENDIO	END I/O 
	EXTRN	TDISP	DISPATCHER ENTRY 
	EXTRN	LDREG	LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN 
	EXTRN	STREG	STORE REGISTERS AND GO TO DISPATCHER 
	EXTRN	LDREGE	RETURN FROM ECHO HANDLING 
	EXTRN	LDREGF 
	EXTRN	SETIME	SET TIME
	EXTRN	SETIMP	SET TIME
	EXTRN	SAVE8	SAVE 8 REGISTERS 
	EXTRN	ECHRTN	RETURN FROM ECHO
	EXTRN	ECHO	ECHO ROUTINE
	EXTRN	ECHEND	END OF ECHO 
* 
	EJECT
* 
************************* 
*    DWT PARAMETERS     * 
************************* 
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTBC	BYTE COUNTER 
	EXTRN	DWTADR	DRIVER ADDRESS BLOCK
	EXTRN	DWTA3	SAVE AREA A3 
	EXTRN	DWTA4	SAVE AREA A4 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	DWTTP	TIMER POINTER
	EXTRN	DWTWAT	SAVE INPUT DWT
* 
*************** 
*  CONSTANTS  * 
*************** 
* 
OVMASK	EQU	/2	OVERFLOW IN INPUT BUFFER
* 
X:F	EQU	8	LENGTH OF CIRCULAR INPUT BUFFER 
DWTLNG	EQU	30	NUMBER OF BYTES IN DECIMAL FORM 
* 
*    TIME BEFORE TIME-OUT 
* 
TIME	EQU	300	TIME OUT CONSTANT
* 
	EJECT
* 
* 
****************************************
*    CONDITIONAL ASSEMBLY              *
****************************************
* 
*    TIME OUT FUNCTION MAY BE EXCLUDED BY 
*    SETTING X:A = 0. 
* 
X:A	EQU	0 
CTIMUT	EQU	0
* 
*    ECHO FUNCTION MAY BE EXCLUDED BY 
*    SETTING X:B = 0. 
* 
X:B	EQU	1 
CECHO	EQU	1 
* 
*    STANDARD READ MAY BE EXCLUDED BY 
*    SETTING X:C = 0. 
* 
X:C	EQU	1 
CSTAND	EQU	1
* 
*    DOUBLE ZERO MAY BE INCLUDED IN SYSTEM
*    BY SETTING X:D = 2. SETTING X:D
*    = 3 GIVES A THREE ZERO FUNCTION AND
*    X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON 
*    X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION
* 
X:D	EQU	2 
CMULTZ	EQU	2
* 
	EJECT
* 
*    BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION
*    CAN BE INCLUDED IN THE DRIVER. 
*    IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2
*    SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG
*    IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO 
*    BE COMPLETED WITH CONTROL WORD SET TO -2.
* 
X:E	EQU	0 
POWOFF	EQU	1
**
**
*    BY SETTING X:G TO 1 THE CODE CONVERSION VIA
*    "8-BIT" SETTING AND CONVERSION TABLES IS 
*    INCLUDED IN THE DRIVER.
**
X:G	EQU	0 
CONVER	EQU	1

* 
* 
*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS 
*   BY SETTING CREDIT = 1 
*   ORDER /04 IS THEN REPLACED BY ORDER /31 
*    BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS 
*     IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE 
*    IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 
*    AND SO ON.   (INDEX= 1,2,3,4,... ) 
*    CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2
* 
* 

CREDIT	EQU	0
* 
*    BY SETTING NOLJE=1 THIS DRIVER IS PREPARED 
*    TO HANDLE THE NORWAY-CASE WITH BETWEEN 
*    THEMSELVES DEPENDENT KEYBOARDS ON THE
*    SAME SELECTOR UNIT.
* 
NOLJE	EQU	0 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
* 
*   MMU BUFFER SIZE 
* 
* 
X:J	EQU	10
DVBLEN	EQU	000
* 
* 
*   MMU KEY TABLE SIZE
* 
* 
X:K	EQU	10
DVBKTB	EQU	00 
* 
	EJECT
* 
* 
*************************** 
*    DWT-DISPLACEMENT     * 
*************************** 
* 
* 
DWTDRD	EQU	/10	START OF DRIVER DEFINED PART 
* 
	IFT	MMUPAG=0 
START	EQU	DWTDRD
	XIF
* 
	IFT	MMUPAG=1 
START	EQU	DWTDRD+4
	XIF
* 
DWTCON	EQU	START+/00	CONVERSION TABLE 
DWTINQ	EQU	START+/18	POINTER TO FIRST PLACE IN QUEUE
DWTUTQ	EQU	START+/1A	POINTER TO LAST PLACE IN QUEUE 
DWTSQ	EQU	START+/1C	START OF QUEUE
DWTEQ	EQU	DWTSQ+DWTLNG	END OF QUEUE 
* 
***************************************** 
*    SPECIAL KEYS DEFINED IN DWT        * 
***************************************** 
* 
KBBSP	EQU	START+/14	BACK-SPACE CHARACTER
KBCLR	EQU	START+/15	CLEAR CHARACTER 
KBEOF	EQU	START+/16	EOR-CHARACTER 
KBMZ	EQU	START+/17	DOUBLE ZERO CHARACTER
* 
	EJECT
* 
* 
**************
* TABLES     *
**************
* 
	DATA	DVBKTB	KEY TABLE SIZE 
	DATA	DVBLEN	MMU BUFFER SIZE
	DATA	6	DEVICE INDEX
KBAD	EQU	*
	DATA	ACKB	ACTIVATION DRIVER
	DATA	0	ABORT ROUTINE ADDRESS 
	DATA	IHKB	INTERRUPT HANDLER
* 
	IFF	POWOFF=1 
* 
	DATA	0	NO RECOVERY 
* 
	XIF
* 
* 
	IFT	POWOFF=1 
* 
	DATA	RCKB	RECOVERY ROUTINE 
	EJECT
* 
* 
*    R C K B
* 
*    THIS IS THE RECOVERY ROUTINE FOR KEYBOARD
*    ENTERED FROM CHLT/CHRT DRIVER
* 
RCKB	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	POWOFF=1 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFT	POWOFF=1 
	LD	A3,DWTST,A6	BUSY ?
	RF(NN)	RCKB10
	LDKL	A1,/200 
	ORS	A1,DWTST,A6	INDICATE POWER OFF OCCURED 
	ABL	TDISP
RCKB10	CF	A5,LDREGE	LOAD REGISTERS
	RF	AKB202
* 
	XIF
* 
	EJECT
* 
* 
*    A C K B
* 
*    ACTIVATION PART: 
* 
*    CHECKS VALIDITY OF ORDERS AND EXAMINES 
*    INPUT BUFFER TO SEE IF SOME QUEUED 
*    TO THREAT. 
* 
* 
ACKB	EQU	*
	LDKL	A1,/FEFF
	ANS	A1,DWTST,A6	RESET INTERRUPTS ALLOWED FLAG
	LDK	A1,0 
	LDK	A3,0	START BUFFER INDEX
	LDR	A4,A7
	RF(NG)	AKB100	ILLEGEAL ORDER 
	IFT	NOLJE=1
	CWK	A7,/37	SELECT KEYBOARD 
	RF(E)	AKBSEL 
	XIF
	IFT	CSTAND=0 
	SUK	A4,2 
	RF(Z)	AKB100	STANDARD READ NOT ALLOWED 
	ADK	A4,2 
	XIF

	SUK	A4,4 

	IFT	CREDIT=1 
	SUK	A4,/2D 
	RF(Z)	CRE:10	SKIP INPUT BUFFER 
	ADK	A4,/2D 
CRE:10	EQU	*
	XIF
	RF(Z)	AKB110	ORDER 4 
	RF(N)	AKB200	ORDER 1,2 OR 3
AKB100	ORKL	A1,/8000	I/O REQUEST ERROR
	ABL	ENDI10 
	EJECT
* 
* 
*    ORDER 4 RESET INPUT BUFFER 
* 
AKB110	LD	A2,DWTINQ,A6	ORDER 4
	SCR	A1,A2	RESET OVERFLOW IF OCCURED
	ST	A2,DWTUTQ,A6	RESET OUTPUT QUEUE 
	ABL	ENDI05	END I/O 
	IFT	NOLJE=1
* 
* 
*    ORDER 37  SELECT KEYBOARD
* 
AKBSEL	LDKL	A2,/FF7F
	ANRS	A2,A6	RESET ALLOW BITS IN DWTCHP
	ABL	ENDI10 
	XIF
	EJECT
* 
* 
*    ORDER 1   2   3
* 
* 
AKB200	EQU	*
* 
	IFT	POWOFF=1 
* 
	LD	A2,DWTST,A6 
	ANKL	A2,/200	POWER OFF ? 
	RF(E)	AKB205 
	XRS	A2,DWTST,A6	RESET BIT
	XIF
AKB202	EQU	*
	IFT	CREDIT-POWOFF=-1 
	LDKL	A1,-2	INDICATE POWER ON 
	ST	A1,10,A8
	XIF
	IFT	CREDIT+POWOFF=2
	CM	10,A8	INDICATE POWER ON 
	XIF
	IFT	POWOFF=1 
	ABL	AKB380 
* 
	XIF
* 
AKB205	EQU	*
* 
	IFT	CTIMUT=1 
* 
	LDR*	A1,A6	
	ANK	A1,/40	TIMING ?
	RF(E)	AKB210	NO TIMING FOR THIS DEVICE 
	LD	A4,DWTTP,A6 
	RF(E)	AKBTIM 
	LDKL	A4,-TIME
	ST*	A4,DWTTP,A6
	RF	AKB210
AKBTIM	EQU	*
	LDKL	A4,DWTTP	TIMER POINTER
	ADR	A4,A6	ADD DWT-ADDRESS
	LDR	A1,A6
	CF	A15,SETIMP	SET TIME 
	DATA	AKBTUT,TIME	TIME OUT ROUTINE AND TIME 
	ST	A4,DWTTP,A6	STORE TIMER ADDRESS IN DWT
* 
	XIF
* 
AKB210	LD	A2,4,A8	REQUESTED LENGTH
AKB220	RF(E)	AKB380	RESET A1 AND END I/O
	LDR	A3,A3	FIRST TIME ? 
	RF(NE)	AKB240	NO 
	LD	A1,2,A8	BUFFER ADDRESS
	SUK	A1,1 
	ADR	A1,A2	ADDRESS IN BUFFER
AKB230	SCR	A3,A1	STORE CHARACTER
	SUK	A1,1	NEXT CHAR. POSITION 
	SUK	A2,1	LAST ?
	RB(NE)	AKB230	NO 
	EJECT
* 
*    READ CHARACTER FROM INPUT BUFFER OR
*    WAIT FOR KEY-BOARD INTERRUPT 
* 
AKB240	EQU	*
	LD	A1,DWTUTQ,A6
	LCR	A2,A1	CHAR. TO A2
	LDR	A4,A2
	XRK	A4,/FF	OVERFLOW ?
	RF(NE)	AKB250
	SCR	A4,A1	RESET OVERFLOW MARK
	LDK	A1,OVMASK	OVERFLOW SET 
	RF	ENDIO 
AKB250	CW	A1,DWTINQ,A6	SOMETHING IN QUEUE?
	RF(NE)	AKB260
	CF	A5,STREG	NOTHING IN QUEUE 
	IFT	CTIMUT=1 
	LDR	A1,A1	CHECK TIME OUT RETURN CODE 
	RF(Z)	AKB270	NO TIME-OUT 
	RF	ENDI05	END I/O AT TIME OUT
	XIF
	IFT	CTIMUT=0 
	RF	AKB270
	XIF
AKB260	CF	A15,EOQUEU	NEXT OUT QUEUE POINTER 
	ST	A1,DWTUTQ,A6	STORE NEW POINTER
AKB270	LDR	A4,A7
	SUK	A4,2 
	RF(NN)	AKB310	ORDER 2 OR 3 
	EJECT
* 
* 
*    ORDER 1  BASIC READ
* 
	CF	A15,STORE	STORE CHARACTER IN ECB-BUFFER 
	IFT	CECHO=1
	CF	A5,ECHO	ECHO INPUTTED CHARACTER 
	XIF
	CW	A3,4,A8	EFFECTIVE LENGTH = REQ. LENGTH? 
	RB	AKB220
	EJECT
* 
* 
*    ORDER 2 OR 3   STANDARD AND NUMERIC READ 
* 
*    CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE
* 
* 
AKB310	LD	A1,10,A8	KEY-TABLE ADDRESS
	RF(Z)	AKB359	NO KEYTABLE 
	LCR	A4,A1	TABLE LENGTH IN A4 
	ANK	A4,/FF 
	ADR	A1,A4	LAST PLACE IN KEY-TABLE
	ADK	A1,1 
AKB355	SUK	A4,1 
	RF(N)	AKB360	KEY NOT FOUND IN KEY-TABLE
	SUK	A1,1	NEXT KEY
	CCR	A2,A1	EOR-CHARACTER? 
	RB(NE)	AKB355	NO 
	IFT	CREDIT=0 
	ADR	A4,A4	YES DOUBLE INDEX 
	XIF
	IFT	CREDIT=1 
	ADK	A4,1	INDEX STARTS AT ONE,INCR=1
	XIF
	ST	A4,10,A8	STORE INDEX IN CONTROLWORD 
AKB358	CF	A15,STORE	STORE CHARACTER 
	RF	AKB370
* 
* 
AKB359	CC	A2,KBEOF,A6	STANDARD END OF RECORD KEY
	RB(E)	AKB358	YES 
	EJECT
* 
*    CHARACTER NOT FOUND IN KEY-TABLE.
*    CHECK CHARACTER CODE.
* 
AKB360	EQU	*
	CF	A5,CHEK	CHECK CHARACTER 
	LDR*	A4,A6	GET CHANNEL PARAMETER 
	ANK	A4,/20	SHIFT BIT 9 ? 
	RF(E)	AKB361	YES 
	LDR	A4,A2	CHARACTER
	RF	AKB363
AKB361	EQU	*
	LDR*	A4,A6 
	ANK	A4,/10	PTS 6234 ?
	RF(E)	AKB362 
	LDR	A4,A2
	ANK	A4,/80 
	RF(NE)	AKB362
	LDR	A4,A2
	RF	AKB363
AKB362	EQU	*
	LDR	A4,A2	CHARACTER
	ANK	A4,/BF	RESET BIT 9 
AKB363	EQU	*
	IFF	CMULTZ=0 
	CC	A4,KBMZ,A6	MULTIPLE ZERO ?
	RF(E)	KBMZ10	YES!
	XIF
	CC	A4,KBCLR,A6	CLEAR?
	RF(E)	KBCL10 
	CC	A4,KBBSP,A6	BACKSPACE?
	RF(E)	KBSP10 
	LDR	A1,A1	RETURN CODE? 
	RF(NE)	AKB369	YES,STORE AND END I/O
	CF	A15,STORE 
AKB365	EQU	*
	IFT	CECHO=1
	CF	A5,ECHO	ECHOCHARACTER 
	XIF
	CW	A3,4,A8	LENGTH OVERFLOW?
	RB(L)	AKB210	NO
AKB368	LDK	A1,8	SET RETURN CODE 
	RF	ENDIO	AND END I/O 
AKB369	CF	A15,STORE	STORE CHARACTER IN ECB BUFFER 
	RF	ENDIO	END I/O REQUEST 
	EJECT
* 
* 
*    CHECK CODE OF END OF RECORD KEY
* 
* 
AKB370	EQU	*
	IFT	CECHO=1
	CF	A5,CHEK	CHECK CHARACTER 
	ORK	A2,/80	INDICATE END OF RECORD
	LDR	A1,A1	RETURN CODE? 
	RF(NE)	AKB380
	CF	A5,ECHO	ECHO CHARACTER
* 
	XIF
* 
AKB380	LDK	A1,0	RETURN CODE 
	EJECT
* 
* 
*    THIS IS A COMMON END OF THE DRIVER 
* 
*    SET EFFECTIVE LENGTH AND PERFORM END I/O 
*    ON KEYBOARD AND ECHO-DEVICE
* 
* 
ENDIO	EQU	* 
* 
	IFT	CTIMUT=1 
	INH
	LD	A4,DWTTP,A6 
	RF(E)	ENDI05	NO TIMING ON THIS DEVICE
	CM*	DWTTP,A6	RESET TIMER 
	CM	DWTTP,A6
	XIF
* 
ENDI05	ST	A3,6,A8	STORE EFFECTIVE LENGTH
ENDI10	EQU	*
* 
	IFT	CECHO=1
	LDR	A4,A1	SAVE A1
	CF	A5,ECHEND	END I/O ON ECHO DEVICE
	LDR	A1,A4	RESTORE A1 
	XIF
* 
	ABL	DISEND	END I/O ON KEYBOARD AND DISPATCH
	EJECT
* 
*    MULTIPLE ZERO
* 
	IFF	CMULTZ=0 
KBMZ10	EQU	*
	LDK	A4,CMULTZ	LOAD NUMBER OF ZEROES
KBMZ20	LDK	A2,/30	ZERO TO STORE AND ECHO
	SUK	A4,1 
	RB(L)	AKB240	ALL DONE
	LDR	A1,A4	SAVE A4
	CF	A15,STORE	STORE ZOERO IN ECB-BUFFER 
	LDR	A4,A1	RESTORE A4 
* 
	IFT	CECHO=1
* 
	CF	A5,ECHO	ECHO ZERO 
	XIF
* 
* 
	IFF	CMULTZ=0 
* 
	CW	A3,4,A8	LENGTH OVERFLOW ? 
	RB(L)	KBMZ20	NO
KBMZ25	SUK	A4,1	ANY MORE ZEROES TO STORE ?
	RB(L)	AKB368	NO
	INH
	LD	A1,DWTUTQ,A6	GET OUTQUEUE POINTER 
	SUR	A1,A6
	CWK	A1,DWTSQ	FIRST POSITION ?
	RF(NE)	KBMZ30	NO 
	LDK	A1,DWTEQ	GET LAST POSITION IN QUEUE
	ADR	A1,A6
	SUK	A1,1 
	RF	KBMZ40
KBMZ30	ADR	A1,A6	GET PREIOUS POINTER POSITION 
	SUK	A1,1 
KBMZ40	CW	A1,DWTINQ,A6	ANY SPACE LEFT ? 
	RF(E)	KBMZ90	NO NOT REALY. 
	ST	A1,DWTUTQ,A6	STORE NEW OUTQUEUE POINTER 
	LDK	A2,/30	STORE ZERO IN CIRKULAR
	SCR	A2,A1	INPUT BUFFER 
	RB	KBMZ25	ONCE MORE TIME !!
KBMZ90	EQU	*
	LDK	A4,/FF	INDICATE BUFFER OWERFLOW
	SCR	A4,A1
	ST	A1,DWTUTQ,A6	UPPDATE POINTER
	LDK	A1,/A	SET RETURN CODE FOR BOTH 
	RB	ENDIO	LENGTH AND THRUGHPUT ERRORS 
	XIF
* 
*    CLEAR
* 
KBCL10	LDK	A3,0	RESET BUFFER INDEX
	LDK	A2,/18	CHANGE CHARACTER-CODE 
	RB	AKB365
* 
*    BACKSPACE
* 
KBSP10	LDR	A3,A3	FIRST CHARACTER? 
	RF(Z)	KBSP15 
	SUK	A3,1	DECREMENT BUFFER INDEX
	LDK	A2,/00	CLEAR ECB-BUFFER
	CF	A15,STORE 
	SUK	A3,1	DECREMENT INDEX 
KBSP15	LDK	A2,/8	CHANGE CHARACTER-CODE
	RB	AKB365
	EJECT
* 
*    C H E K
* 
* 
*    SUBROUTINE TO CHECK INPUT CHARACTER
* 
*    ON ENTRY:
* 
*    A2 = CHARACTER 
*    A3 = BUFFER INDEX
*    A6 = DWT-ADDRESS 
*    A7 = ORDER 
* 
* 
*    ON EXIT: 
* 
*    A1 = RETURN CODE 
* 
CHEK	EQU	*
	STR	A2,A15	SAVE A2 ON STACK
	ANK	A2,/FF 
	LDR*	A1,A6	CHANNEL PARAMETER 
* 
	IFT	CSTAND=1 
* 
	CWK	A7,2	ORDER 2?
	RF(NE)	CHEK05	NO 
	ANK	A1,/20 
	ORK	A1,/5F	5F OR 7F AS UPPER LIMIT 
	LDK	A4,/20	LOWER LIMIT 
	RF	CHEK08
* 
	XIF
* 
CHEK05	ANK	A1,/10 
	RF(NE)	CHEK06
	ANK	A2,/3F	RESET BIT 9 
CHEK06	LDK	A1,/39	UPPER LIMIT 
	LDK	A4,/30	LOWER LIMIT 
CHEK08	SUR	A1,A2
	RF(N)	CHERRO	CODE CHECK ERROR
	SUR	A4,A2
	RF(P)	CHERRO	CODE CHECK ERROR
	LDR*	A1,A15
CHEK10	LDK	A1,0	RETURN CODE 
CHEK20	RTN	A5 
* 
* 
*    CODE CHECK ERROR 
* 
CHERRO	LDK	A1,4	SET RETURN CODE AND RETURN
	LDR*	A2,A15	RELOAD CHARACTER 
	RB	CHEK20
	EJECT
* 
* 
*    I H K B
* 
*    THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER
* 
* 
IHKB	EQU	*
	IFT	NOLJE=1
	LDR*	A3,A6	GET ALLOW BITS
	ANK	A3,/C0 
	RF(E)	IHNOL3	INPUT ALLOWED FROM BOTH KEYBOARDS 
	LDK	A4,1 
	ANK	A3,/80 
	RF(E)	IHNOL1 
	LDK	A4,5 
IHNOL1	LDR	A3,A2
	SRL	A3,12
	CWR	A3,A4
	RF(NE)	EXIT
IHNOL2	EQU	*
	XIF
* 
	IFT	CONVER=1 
* 
	LDR	A4,A2	INPUT WORD 
	SRL	A4,11	DEVICE ADDRESS * 2 
	ANK	A4,/E
	CC	A4,DWTBC,A6	8-BIT SETTING ? 
	RF(NE)	IHKB03
	LDR	A3,A2
	ANK	A3,/3F 
	SUK	A3,/30 
	RF(N)	IHKB01 
	SUK	A3,/A
	RF(N)	IHKB02 
IHKB01	ORK	A2,/80 
	RF	IHKB04
IHKB02	ANKL	A2,/FF3F
	RF	IHKB04
IHKB03	LD	A3,DWTCON,A6	CONVERSION TABLE ADDRESS 
	RF(E)	IHKB04 
	LDR	A4,A2
	ANK	A4,/FF 
	SRL	A4,3	LINE INDEX
	ADR	A3,A4
	LDR*	A3,A3	COLUMN TABLE ADDRESS
	RF(E)	IHKB04 
	LDR	A4,A2
	ANK	A4,/F
	ADR	A3,A4	ADD ROW INDEX
	LCR	A2,A3	GET CHARACTER
IHKB04	EQU	*
* 
	XIF
* 
* 
	IFT	NOLJE=1
* 
	LDR	A3,A2
	ANK	A3,/3F 
	SUK	A3,/22 
	RF(Z)	IHNOL6 
	SUK	A3,1 
	RF(NZ)	IHNOL8
	RF	IHNOL7
IHNOL6	ADK	A2,7 
IHNOL7	ANKL	A2,/FF3F
IHNOL8	EQU	*
* 
	XIF
* 
	LD	A3,DWTST,A6	I/O REQUEST?
	RF(N)	IHKB10 
	SLL	A3,7	INTERRUPTS ALLOWED? 
	RF(NN)	IHKB10	NO,STORE CHARACTER IN DWT-BUFFER 
* 
	IFT	CTIMUT=1 
* 
	LD	A3,DWTTP,A6 
	RF(E)	IHKB05	NO TIMING ON THIS DEVICE
	LDKL	A3,-TIME	RESTART TIME 
	ST*	A3,DWTTP,A6
* 
	XIF
* 
IHKB05	ABL	LDREG	RETURN TO READ ROUTINE 
IHKB10	LD	A1,DWTINQ,A6
	LCR	A4,A1
	XRK	A4,/FF	ALREADY OVERFLOW ?
	RF(E)	EXIT	YES 
	LDR	A3,A1
	CF	A15,EOQUEU	GET NEXT QUEUE POINTER ADDRESS 
	CW	A1,DWTUTQ,A6	OVERFLOW?
	RF(NE)	IHKB20	NO!
	ORK	A2,/FF	SET OVERFLOW BIT IN INPUT BUFFER
	RF	IHKB30
IHKB20	ST	A1,DWTINQ,A6	STORE INQUEUE POINTER
IHKB30	SCR	A2,A3	STORE CHARACTER IN INPUT BUFFER
EXIT	ABL	TDISP
	IFT	NOLJE=1
IHNOL3	LDR	A3,A2
	SRL	A3,12
	LDK	A4,/40 
	SUK	A3,1 
	RF(E)	IHNOL4 
	LDK	A4,/80 
	SUK	A3,4 
	RB(NE)	IHNOL2
IHNOL4	ORRS	A4,A6	SET ALLOW BIT 
	RB	IHNOL2
	XIF
	EJECT
* 
* 
*    A K B T U T
* 
*    THIS IS THE TIME-OUT ROUTINE 
* 
* 
	IFT	CTIMUT=1 
* 
AKBTUT	EQU	*
	LDR	A6,A1	GET DWT-ADDRESS
	CM	DWTTP,A6
	LD	A1,DWTST,A6 
	RB(N)	EXIT 
	LDK	A1,/40	SET RETURN CODE 
	RB	IHKB05	RESTORE REGISTERS AND END I/O
* 
	XIF
	EJECT
* 
*    STORE = SUBROUTINE TO STORE A CHARACTER IN 
*            ECB-BUFFER AND INCREMENT BUFFER INDEX
* 
*    ON ENTRY:
* 
*    A2 = CHARACTER TO STORE
*    A3 = BUFFER INDEX
* 
* 
STORE	EQU	* 
	LD	A4,2,A8	BUFFER ADDRESS
	ADR	A4,A3	ADD BUFFER INDEX 
	SCR	A2,A4	STORE CHARACTER IN BUFFER
	ADK	A3,1	INCREMENT BUFFER INDEX
	ANK	A2,/7F 
	RF	EOQU20	RTN A15 AND ENB
	EJECT
* 
* 
*    EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER
* 
*    ON ENTRY:
* 
*    A1 = QUEUE POINTER 
*    A6 = DWT-ADDRESS 
* 
*    ON EXIT: 
* 
*    A1 = NEW QUEUE POINTER 
EOQUEU	EQU	*
	INH
	ADK	A1,1 
	SUR	A1,A6
	CWK	A1,DWTEQ	END OF QUEUE? 
	RF(NE)	EOQU10
	LDK	A1,DWTSQ	SET QUEUE START ADDRESS 
EOQU10	ADR	A1,A6
EOQU20	ADKL	A15,2	RETURN AND ENABLE 
	ENB
	LDR*	P,A15 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB01  REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0086              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0056}
0x0086…0090              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00b8              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0094}
0x00b8…00c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00bc}
0x00c2…00e6              Head {h00=0x0020, h01=0x0050, text=»*   DRKB01 = DRIVER KEYBOARD«, t00=0x0000, t01=0x00c6}
0x00e6…00f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…00fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0104              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…010e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0108}
0x010e…0118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…0122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…0156              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0126}
0x0156…0160              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…019e              Head {h00=0x0030, h01=0x0050, text=»*    THIS DRIVER HANDLES INPUT FROM NUMERIC «, t00=0x0000, t01=0x016e}
0x019e…01d0              Head {h00=0x002e, h01=0x0050, text=»*    AND ALPHANUMERIC KEYBOARDS PTS 6231, «, t00=0x0001, t01=0x0012}
0x01d0…01fc              Head {h00=0x0028, h01=0x0050, text=»*    6232, 6233, 6234, 6331,AND 6342«, t00=0x0001, t01=0x0044}
0x01fc…022c              Head {h00=0x002c, h01=0x0050, text=»*    CONNECTED TO CPU VIA CHLT OR CHRT. «, t00=0x0001, t01=0x0070}
0x022c…0236              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…0266              Head {h00=0x002c, h01=0x0050, text=»*    ONLY INPUT DATA FROM DEPRESSED KEYS«, t00=0x0001, t01=0x00aa}
0x0266…028e              Head {h00=0x0024, h01=0x0050, text=»*    ARE HANDLED BY THE DRIVER. «, t00=0x0001, t01=0x00da}
0x028e…0298              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02cc              Head {h00=0x0030, h01=0x0050, text=»*    AN ECHO-DEVICE CAN BE ATTACHED TO EVERY«, t00=0x0001, t01=0x010c}
0x02cc…0300              Head {h00=0x0030, h01=0x0050, text=»*    KEYBOARD WHERE RECEIVED CHARACTERS ARE «, t00=0x0001, t01=0x0140}
0x0300…0314              Head {h00=0x0010, h01=0x0050, text=»*    ECHOED.«, t00=0x0001, t01=0x0174}
0x0314…031e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…0352 (2, 0, 400)  Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0004}
0x0352…035c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035c…0382              Head {h00=0x0022, h01=0x0050, text=»*    A C K B : ACTIVATION PART«, t00=0x0002, t01=0x0042}
0x0382…038c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038c…03b4              Head {h00=0x0024, h01=0x0050, text=»*    I H K B : INTERRUPT HANDLER«, t00=0x0002, t01=0x0072}
0x03b4…03be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009a}
0x03be…03e2              Head {h00=0x0020, h01=0x0050, text=»*    E C H O : ECHO HANDLER «, t00=0x0002, t01=0x00a4}
0x03e2…03ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ec…0414              Head {h00=0x0024, h01=0x0050, text=»*    R C K B : RECOVERY ROUTINE «, t00=0x0002, t01=0x00d2}
0x0414…041e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x041e…042c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0104}
0x042c…0436              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0112}
0x0436…0440              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011c}
0x0440…0470              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0126}
0x0470…047a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047a…049c              Head {h00=0x001e, h01=0x0050, text=»*    ORDER 01: BASIC READ «, t00=0x0002, t01=0x0160}
0x049c…04c0              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 02: STANDARD READ«, t00=0x0002, t01=0x0182}
0x04c0…04e4              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 03: NUMERIC READ «, t00=0x0003, t01=0x0016}
0x04e4…050e              Head {h00=0x0026, h01=0x0050, text=»*    ORDER 04: RESET INPUT BUFFER «, t00=0x0003, t01=0x003a}
0x050e…0518              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…0522              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006e}
0x0522…0546              Head {h00=0x0020, h01=0x0050, text=»*    NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x0078}
0x0546…0550              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009c}
0x0550…0576              Head {h00=0x0022, h01=0x0050, text=»*    REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x00a6}
0x0576…05a0              Head {h00=0x0026, h01=0x0050, text=»*             A2 : INPUT CHARACTER«, t00=0x0003, t01=0x00cc}
0x05a0…05c8              Head {h00=0x0024, h01=0x0050, text=»*             A3 : BUFFER INDEX «, t00=0x0003, t01=0x00f6}
0x05c8…05f0              Head {h00=0x0024, h01=0x0050, text=»*             A4 : WORK REGISTER«, t00=0x0003, t01=0x011e}
0x05f0…0616              Head {h00=0x0022, h01=0x0050, text=»*             A5 : STACK BASE «, t00=0x0003, t01=0x0146}
0x0616…063c              Head {h00=0x0022, h01=0x0050, text=»*             A6 : DWT-ADDRESS«, t00=0x0003, t01=0x016c}
0x063c…065c (4, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»*             A7 : ORDER«, t00=0x0004, t01=0x0004}
0x065c…0682              Head {h00=0x0022, h01=0x0050, text=»*             A8 : ECB-ADDRESS«, t00=0x0004, t01=0x0024}
0x0682…068c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x068c…069a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0054}
0x069a…06a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a4…06ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06ae…06cc              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0004, t01=0x0076}
0x06cc…06d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0094}
0x06d6…070e              Head {h00=0x0034, h01=0x0050, text=»*    KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD«, t00=0x0004, t01=0x009e}
0x070e…074c              Head {h00=0x003a, h01=0x0050, text=»*    IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ «, t00=0x0004, t01=0x00d6}
0x074c…0776              Head {h00=0x0026, h01=0x0050, text=»*    AND BIT 11 FOR NUMERIC READ. «, t00=0x0004, t01=0x0114}
0x0776…0780              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013e}
0x0780…07b0              Head {h00=0x002c, h01=0x0050, text=»*    BIT 10 = 0 FOR PTS 6231, 6233, 6234«, t00=0x0004, t01=0x0148}
0x07b0…07e4              Head {h00=0x0030, h01=0x0050, text=»*    BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 «, t00=0x0004, t01=0x0178}
0x07e4…0824              Head {h00=0x003c, h01=0x0050, text=»*    BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 «, t00=0x0005, t01=0x001c}
0x0824…084e              Head {h00=0x0026, h01=0x0050, text=»*    BIT 11 = 1 FOR PTS 6234,6342 «, t00=0x0005, t01=0x005c}
0x084e…0858              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x0858…0894              Head {h00=0x0038, h01=0x0050, text=»*    CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0005, t01=0x0090}
0x0894…08d0              Head {h00=0x0038, h01=0x0050, text=»*    MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0005, t01=0x00cc}
0x08d0…08e4              Head {h00=0x0010, h01=0x0050, text=»*    IN DWT.«, t00=0x0005, t01=0x0108}
0x08e4…08ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08ee…0924              Head {h00=0x0032, h01=0x0050, text=»*    DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0005, t01=0x0126}
0x0924…0940              Head {h00=0x0018, h01=0x0050, text=»*    DEFINED IN DWT.«, t00=0x0005, t01=0x015c}
0x0940…094a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0178}
0x094a…097a              Head {h00=0x002c, h01=0x0050, text=»*    IF TIMING IS WANTED, TIMER POINTER «, t00=0x0005, t01=0x0182}
0x097a…09aa              Head {h00=0x002c, h01=0x0050, text=»*    IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0006, t01=0x0022}
0x09aa…09e0              Head {h00=0x0032, h01=0x0050, text=»*    STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0006, t01=0x0052}
0x09e0…0a18              Head {h00=0x0034, h01=0x0050, text=»*    SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0006, t01=0x0088}
0x0a18…0a46              Head {h00=0x002a, h01=0x0050, text=»*    IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0006, t01=0x00c0}
0x0a46…0a6e              Head {h00=0x0024, h01=0x0050, text=»*    IN DRIVER MUST BE CHANGED. «, t00=0x0006, t01=0x00ee}
0x0a6e…0a78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a78…0ab0              Head {h00=0x0034, h01=0x0050, text=»*    THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0006, t01=0x0120}
0x0ab0…0aec              Head {h00=0x0038, h01=0x0050, text=»*    DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0006, t01=0x0158}
0x0aec…0b28 (7, 0, 400)  Head {h00=0x0038, h01=0x0050, text=»*    NOTE !!!  THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0007, t01=0x0004}
0x0b28…0b44              Head {h00=0x0018, h01=0x0050, text=»*    DWT:S IN SYSTEM«, t00=0x0007, t01=0x0040}
0x0b44…0b52              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x005c}
0x0b52…0b5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006a}
0x0b5c…0b98              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0007, t01=0x0074}
0x0b98…0bd4              Head {h00=0x0038, h01=0x0050, text=»*    TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0007, t01=0x00b0}
0x0bd4…0bde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0bde…0bfe              Head {h00=0x001c, h01=0x0050, text=»*    -----ECHO-FUNCTION «, t00=0x0007, t01=0x00f6}
0x0bfe…0c1e              Head {h00=0x001c, h01=0x0050, text=»*    -----STANDARD READ «, t00=0x0007, t01=0x0116}
0x0c1e…0c42              Head {h00=0x0020, h01=0x0050, text=»*    -----TIME-OUT-FUNCTION «, t00=0x0007, t01=0x0136}
0x0c42…0c78              Head {h00=0x0032, h01=0x0050, text=»*    -----CODE CONVERSION VIA "8-BIT" SETTING «, t00=0x0007, t01=0x015a}
0x0c78…0ca0              Head {h00=0x0024, h01=0x0050, text=»*         AND CONVERSION TABLES «, t00=0x0007, t01=0x0190}
0x0ca0…0cd8              Head {h00=0x0034, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO«, t00=0x0008, t01=0x0028}
0x0cd8…0d10              Head {h00=0x0034, h01=0x0050, text=»*    POSSIBLE TO GIVE A KEY THE MEANING OF TWO, «, t00=0x0008, t01=0x0060}
0x0d10…0d32              Head {h00=0x001e, h01=0x0050, text=»*    THREE OR MORE ZEROES.«, t00=0x0008, t01=0x0098}
0x0d32…0d3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ba}
0x0d3c…0d76              Head {h00=0x0036, h01=0x0050, text=»*    THE DRIVER IS PREPARED TO HANDLE THE SPECIAL «, t00=0x0008, t01=0x00c4}
0x0d76…0daa              Head {h00=0x0030, h01=0x0050, text=»*    NORWAY-PROBLEM, WITH BETWEEN THEMSELVES«, t00=0x0008, t01=0x00fe}
0x0daa…0de0              Head {h00=0x0032, h01=0x0050, text=»*    DEPENDENT KEYBOARDS CONNECTED TO THE SAME«, t00=0x0008, t01=0x0132}
0x0de0…0dfc              Head {h00=0x0018, h01=0x0050, text=»*    SELECTOR UNIT. «, t00=0x0008, t01=0x0168}
0x0dfc…0e34              Head {h00=0x0034, h01=0x0050, text=»*    BY ASSEMBLING THE DRIVER CONDITIONALLY THIS«, t00=0x0008, t01=0x0184}
0x0e34…0e56              Head {h00=0x001e, h01=0x0050, text=»*    FUNCTION IS INCLUDED.«, t00=0x0009, t01=0x002c}
0x0e56…0e64              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x004e}
0x0e64…0e6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e6e…0e78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0066}
0x0e78…0e8e              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x0070}
0x0e8e…0ea4              Head {h00=0x0012, h01=0x0050, text=»* ENTRIES    *«, t00=0x0009, t01=0x0086}
0x0ea4…0eba              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x009c}
0x0eba…0ec4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec4…0ee6              Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD ADDRESS-BLOCK «, t00=0x0009, t01=0x00bc}
0x0ee6…0f12              Head {h00=0x0028, h01=0x0050, text=» ENTRY EOQUEU QUEUE POINTER ROUTINE «, t00=0x0009, t01=0x00de}
0x0f12…0f3e              Head {h00=0x0028, h01=0x0050, text=» ENTRY DWTINQ,DWTUTQ QUEUE POINTERS «, t00=0x0009, t01=0x010a}
0x0f3e…0f48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f48…0f52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f52…0f5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f5c…0f92              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0009, t01=0x0154}
0x0f92…0fc8              Head {h00=0x0032, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES            *«, t00=0x0009, t01=0x018a}
0x0fc8…0ffe              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x000a, t01=0x0030}
0x0ffe…1008              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x1008…1030              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/0 REQUEST ERROR «, t00=0x000a, t01=0x0070}
0x1030…1062              Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x000a, t01=0x0098}
0x1062…1080              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x00ca}
0x1080…10a6              Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x00e8}
0x10a6…10e4              Head {h00=0x003a, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN «, t00=0x000a, t01=0x010e}
0x10e4…111e              Head {h00=0x0036, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER «, t00=0x000a, t01=0x014c}
0x111e…114e              Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHO HANDLING «, t00=0x000a, t01=0x0186}
0x114e…1164              Head {h00=0x0012, h01=0x0050, text=» EXTRN LDREGF «, t00=0x000b, t01=0x0026}
0x1164…1182              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x000b, t01=0x003c}
0x1182…11a0              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x000b, t01=0x005a}
0x11a0…11c6              Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x000b, t01=0x0078}
0x11c6…11ec              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x000b, t01=0x009e}
0x11ec…120c              Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x000b, t01=0x00c4}
0x120c…122e              Head {h00=0x001e, h01=0x0050, text=» EXTRN ECHEND END OF ECHO «, t00=0x000b, t01=0x00e4}
0x122e…1238              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0106}
0x1238…1246              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0110}
0x1246…1250              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1250…1272              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x0128}
0x1272…1294              Head {h00=0x001e, h01=0x0050, text=»*    DWT PARAMETERS     * «, t00=0x000b, t01=0x014a}
0x1294…12b6              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x016c}
0x12b6…12c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018e}
0x12c0…12dc              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000c, t01=0x0008}
0x12dc…12fe              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000c, t01=0x0024}
0x12fe…1328              Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x000c, t01=0x0046}
0x1328…134a              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x000c, t01=0x0070}
0x134a…136c              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x000c, t01=0x0092}
0x136c…138e              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x000c, t01=0x00b4}
0x138e…13b8              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000c, t01=0x00d6}
0x13b8…13da              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x000c, t01=0x0100}
0x13da…13fe              Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x000c, t01=0x0122}
0x13fe…1408              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1408…1420              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0150}
0x1420…1438              Head {h00=0x0014, h01=0x0050, text=»*  CONSTANTS  * «, t00=0x000c, t01=0x0168}
0x1438…1450              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0180}
0x1450…145a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145a…1488              Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000d, t01=0x0012}
0x1488…1492              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0040}
0x1492…14c4              Head {h00=0x002e, h01=0x0050, text=»X:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER «, t00=0x000d, t01=0x004a}
0x14c4…14fa              Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU 30 NUMBER OF BYTES IN DECIMAL FORM «, t00=0x000d, t01=0x007c}
0x14fa…1504              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1504…1526              Head {h00=0x001e, h01=0x0050, text=»*    TIME BEFORE TIME-OUT «, t00=0x000d, t01=0x00bc}
0x1526…1530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00de}
0x1530…1556              Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIME OUT CONSTANT«, t00=0x000d, t01=0x00e8}
0x1556…1560              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1560…156e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0118}
0x156e…1578              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x1578…1582              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0130}
0x1582…15b2              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000d, t01=0x013a}
0x15b2…15e2              Head {h00=0x002c, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY              *«, t00=0x000d, t01=0x016a}
0x15e2…1612              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000e, t01=0x000a}
0x1612…161c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161c…164e              Head {h00=0x002e, h01=0x0050, text=»*    TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0044}
0x164e…166c              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:A = 0. «, t00=0x000e, t01=0x0076}
0x166c…1676              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0094}
0x1676…1688              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x009e}
0x1688…169c              Head {h00=0x0010, h01=0x0050, text=»CTIMUT EQU 0«, t00=0x000e, t01=0x00b0}
0x169c…16a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16a6…16d4              Head {h00=0x002a, h01=0x0050, text=»*    ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x00ce}
0x16d4…16f2              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:B = 0. «, t00=0x000e, t01=0x00fc}
0x16f2…16fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011a}
0x16fc…170e              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0124}
0x170e…1722              Head {h00=0x0010, h01=0x0050, text=»CECHO EQU 1 «, t00=0x000e, t01=0x0136}
0x1722…172c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014a}
0x172c…175a              Head {h00=0x002a, h01=0x0050, text=»*    STANDARD READ MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0154}
0x175a…1778              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:C = 0. «, t00=0x000e, t01=0x0182}
0x1778…1782              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0010}
0x1782…1794              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000f, t01=0x001a}
0x1794…17a8              Head {h00=0x0010, h01=0x0050, text=»CSTAND EQU 1«, t00=0x000f, t01=0x002c}
0x17a8…17b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0040}
0x17b2…17e4              Head {h00=0x002e, h01=0x0050, text=»*    DOUBLE ZERO MAY BE INCLUDED IN SYSTEM«, t00=0x000f, t01=0x004a}
0x17e4…1810              Head {h00=0x0028, h01=0x0050, text=»*    BY SETTING X:D = 2. SETTING X:D«, t00=0x000f, t01=0x007c}
0x1810…1840              Head {h00=0x002c, h01=0x0050, text=»*    = 3 GIVES A THREE ZERO FUNCTION AND«, t00=0x000f, t01=0x00a8}
0x1840…1878              Head {h00=0x0034, h01=0x0050, text=»*    X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON «, t00=0x000f, t01=0x00d8}
0x1878…18b0              Head {h00=0x0034, h01=0x0050, text=»*    X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION«, t00=0x000f, t01=0x0110}
0x18b0…18ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0148}
0x18ba…18cc              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x000f, t01=0x0152}
0x18cc…18e0              Head {h00=0x0010, h01=0x0050, text=»CMULTZ EQU 2«, t00=0x000f, t01=0x0164}
0x18e0…18ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0178}
0x18ea…18f8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0182}
0x18f8…1902              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1902…193e              Head {h00=0x0038, h01=0x0050, text=»*    BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION«, t00=0x0010, t01=0x000a}
0x193e…196a              Head {h00=0x0028, h01=0x0050, text=»*    CAN BE INCLUDED IN THE DRIVER. «, t00=0x0010, t01=0x0046}
0x196a…19ac              Head {h00=0x003e, h01=0x0050, text=»*    IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2«, t00=0x0010, t01=0x0072}
0x19ac…19f0              Head {h00=0x0040, h01=0x0050, text=»*    SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG«, t00=0x0010, t01=0x00b4}
0x19f0…1a36              Head {h00=0x0042, h01=0x0050, text=»*    IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO «, t00=0x0010, t01=0x00f8}
0x1a36…1a6c              Head {h00=0x0032, h01=0x0050, text=»*    BE COMPLETED WITH CONTROL WORD SET TO -2.«, t00=0x0010, t01=0x013e}
0x1a6c…1a76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0174}
0x1a76…1a88              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0010, t01=0x017e}
0x1a88…1a9c              Head {h00=0x0010, h01=0x0050, text=»POWOFF EQU 1«, t00=0x0010, t01=0x0190}
0x1a9c…1aa6              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x0014}
0x1aa6…1ab0              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x001e}
0x1ab0…1ae8              Head {h00=0x0034, h01=0x0050, text=»*    BY SETTING X:G TO 1 THE CODE CONVERSION VIA«, t00=0x0011, t01=0x0028}
0x1ae8…1b1e              Head {h00=0x0032, h01=0x0050, text=»*    "8-BIT" SETTING AND CONVERSION TABLES IS «, t00=0x0011, t01=0x0060}
0x1b1e…1b42              Head {h00=0x0020, h01=0x0050, text=»*    INCLUDED IN THE DRIVER.«, t00=0x0011, t01=0x0096}
0x1b42…1b4c              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x00ba}
0x1b4c…1b5e              Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x00c4}
0x1b5e…1b72              Head {h00=0x0010, h01=0x0050, text=»CONVER EQU 1«, t00=0x0011, t01=0x00d6}
0x1b72…1b7a              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00ea}
0x1b7a…1b84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f2}
0x1b84…1b8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fc}
0x1b8e…1bca              Head {h00=0x0038, h01=0x0050, text=»*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0011, t01=0x0106}
0x1bca…1bec              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING CREDIT = 1 «, t00=0x0011, t01=0x0142}
0x1bec…1c20              Head {h00=0x0030, h01=0x0050, text=»*   ORDER /04 IS THEN REPLACED BY ORDER /31 «, t00=0x0011, t01=0x0164}
0x1c20…1c60              Head {h00=0x003c, h01=0x0050, text=»*    BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS «, t00=0x0012, t01=0x0008}
0x1c60…1ca6              Head {h00=0x0042, h01=0x0050, text=»*     IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE «, t00=0x0012, t01=0x0048}
0x1ca6…1cea              Head {h00=0x0040, h01=0x0050, text=»*    IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 «, t00=0x0012, t01=0x008e}
0x1cea…1d1a              Head {h00=0x002c, h01=0x0050, text=»*    AND SO ON.   (INDEX= 1,2,3,4,... ) «, t00=0x0012, t01=0x00d2}
0x1d1a…1d56              Head {h00=0x0038, h01=0x0050, text=»*    CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2«, t00=0x0012, t01=0x0102}
0x1d56…1d60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d60…1d6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0148}
0x1d6a…1d72              Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0152}
0x1d72…1d86              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0012, t01=0x015a}
0x1d86…1d90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d90…1dc8              Head {h00=0x0034, h01=0x0050, text=»*    BY SETTING NOLJE=1 THIS DRIVER IS PREPARED «, t00=0x0012, t01=0x0178}
0x1dc8…1dfc              Head {h00=0x0030, h01=0x0050, text=»*    TO HANDLE THE NORWAY-CASE WITH BETWEEN «, t00=0x0013, t01=0x0020}
0x1dfc…1e2e              Head {h00=0x002e, h01=0x0050, text=»*    THEMSELVES DEPENDENT KEYBOARDS ON THE«, t00=0x0013, t01=0x0054}
0x1e2e…1e4e              Head {h00=0x001c, h01=0x0050, text=»*    SAME SELECTOR UNIT.«, t00=0x0013, t01=0x0086}
0x1e4e…1e58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e58…1e6c              Head {h00=0x0010, h01=0x0050, text=»NOLJE EQU 0 «, t00=0x0013, t01=0x00b0}
0x1e6c…1e76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c4}
0x1e76…1ea8              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0013, t01=0x00ce}
0x1ea8…1ed6              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0013, t01=0x0100}
0x1ed6…1ee0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1ee0…1ef4              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0013, t01=0x0138}
0x1ef4…1efe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014c}
0x1efe…1f08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0156}
0x1f08…1f42              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0013, t01=0x0160}
0x1f42…1f74              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0014, t01=0x000a}
0x1f74…1f7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f7e…1f92              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0014, t01=0x0046}
0x1f92…1f9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005a}
0x1f9c…1fa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0064}
0x1fa6…1fc2              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0014, t01=0x006e}
0x1fc2…1fcc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fcc…1fd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0094}
0x1fd6…1fe8              Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x0014, t01=0x009e}
0x1fe8…1ffe              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 000«, t00=0x0014, t01=0x00b0}
0x1ffe…2008              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c6}
0x2008…2012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2012…2030              Head {h00=0x001a, h01=0x0050, text=»*   MMU KEY TABLE SIZE«, t00=0x0014, t01=0x00da}
0x2030…203a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f8}
0x203a…2044              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0102}
0x2044…2056              Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x0014, t01=0x010c}
0x2056…206c              Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU 00 «, t00=0x0014, t01=0x011e}
0x206c…2076              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0134}
0x2076…2084              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x013e}
0x2084…208e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014c}
0x208e…2098              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0156}
0x2098…20bc              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0014, t01=0x0160}
0x20bc…20e0              Head {h00=0x0020, h01=0x0050, text=»*    DWT-DISPLACEMENT     * «, t00=0x0014, t01=0x0184}
0x20e0…2104              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0015, t01=0x0018}
0x2104…210e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003c}
0x210e…2118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0046}
0x2118…214c              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0015, t01=0x0050}
0x214c…2156              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0084}
0x2156…216c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x008e}
0x216c…2184              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0015, t01=0x00a4}
0x2184…2190              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00bc}
0x2190…219a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c8}
0x219a…21b0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x00d2}
0x21b0…21ca              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0015, t01=0x00e8}
0x21ca…21d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0102}
0x21d6…21e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010e}
0x21e0…220e              Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x0015, t01=0x0118}
0x220e…224a              Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0015, t01=0x0146}
0x224a…2286              Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0015, t01=0x0182}
0x2286…22b0              Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0016, t01=0x002e}
0x22b0…22dc              Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0016, t01=0x0058}
0x22dc…22e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0084}
0x22e6…2318              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x008e}
0x2318…234a              Head {h00=0x002e, h01=0x0050, text=»*    SPECIAL KEYS DEFINED IN DWT        * «, t00=0x0016, t01=0x00c0}
0x234a…237c              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x00f2}
0x237c…2386              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0124}
0x2386…23b6              Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0016, t01=0x012e}
0x23b6…23e2              Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0016, t01=0x015e}
0x23e2…240c              Head {h00=0x0026, h01=0x0050, text=»KBEOF EQU START+/16 EOR-CHARACTER «, t00=0x0016, t01=0x018a}
0x240c…243c              Head {h00=0x002c, h01=0x0050, text=»KBMZ EQU START+/17 DOUBLE ZERO CHARACTER«, t00=0x0017, t01=0x0024}
0x243c…2446              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0054}
0x2446…2454              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x005e}
0x2454…245e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006c}
0x245e…2468              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0076}
0x2468…247e              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x0080}
0x247e…2494              Head {h00=0x0012, h01=0x0050, text=»* TABLES     *«, t00=0x0017, t01=0x0096}
0x2494…24aa              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x00ac}
0x24aa…24b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c2}
0x24b4…24d8              Head {h00=0x0020, h01=0x0050, text=» DATA DVBKTB KEY TABLE SIZE «, t00=0x0017, t01=0x00cc}
0x24d8…24fc              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0017, t01=0x00f0}
0x24fc…2518              Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0017, t01=0x0114}
0x2518…252a              Head {h00=0x000e, h01=0x0050, text=»KBAD EQU *«, t00=0x0017, t01=0x0130}
0x252a…254e              Head {h00=0x0020, h01=0x0050, text=» DATA ACKB ACTIVATION DRIVER«, t00=0x0017, t01=0x0142}
0x254e…2574              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0017, t01=0x0166}
0x2574…2598              Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0017, t01=0x018c}
0x2598…25a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0020}
0x25a2…25b8              Head {h00=0x0012, h01=0x0050, text=» IFF POWOFF=1 «, t00=0x0018, t01=0x002a}
0x25b8…25c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25c2…25de              Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0018, t01=0x004a}
0x25de…25e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0066}
0x25e8…25f4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0070}
0x25f4…25fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007c}
0x25fe…2608              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0086}
0x2608…261e              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0018, t01=0x0090}
0x261e…2628              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a6}
0x2628…264c              Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0018, t01=0x00b0}
0x264c…265a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d4}
0x265a…2664              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e2}
0x2664…266e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ec}
0x266e…2682              Head {h00=0x0010, h01=0x0050, text=»*    R C K B«, t00=0x0018, t01=0x00f6}
0x2682…268c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010a}
0x268c…26c2              Head {h00=0x0032, h01=0x0050, text=»*    THIS IS THE RECOVERY ROUTINE FOR KEYBOARD«, t00=0x0018, t01=0x0114}
0x26c2…26ec              Head {h00=0x0026, h01=0x0050, text=»*    ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0018, t01=0x014a}
0x26ec…26f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0174}
0x26f6…2708              Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0018, t01=0x017e}
0x2708…271e              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0018, t01=0x0190}
0x271e…2748              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0019, t01=0x0016}
0x2748…2754              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0040}
0x2754…275e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004c}
0x275e…2774              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x0056}
0x2774…278a              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x006c}
0x278a…27b0              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0019, t01=0x0082}
0x27b0…27bc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00a8}
0x27bc…27c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b4}
0x27c6…27dc              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x00be}
0x27dc…27fa              Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY ?«, t00=0x0019, t01=0x00d4}
0x27fa…2810              Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0019, t01=0x00f2}
0x2810…2826              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0019, t01=0x0108}
0x2826…285a              Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF OCCURED «, t00=0x0019, t01=0x011e}
0x285a…286c              Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0019, t01=0x0152}
0x286c…2896              Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x0019, t01=0x0164}
0x2896…28a8              Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x0019, t01=0x018e}
0x28a8…28b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0010}
0x28b2…28be              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x001a}
0x28be…28c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0026}
0x28c8…28d6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0030}
0x28d6…28e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003e}
0x28e0…28ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28ea…28fe              Head {h00=0x0010, h01=0x0050, text=»*    A C K B«, t00=0x001a, t01=0x0052}
0x28fe…2908              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0066}
0x2908…2926              Head {h00=0x001a, h01=0x0050, text=»*    ACTIVATION PART: «, t00=0x001a, t01=0x0070}
0x2926…2930              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008e}
0x2930…2964              Head {h00=0x0030, h01=0x0050, text=»*    CHECKS VALIDITY OF ORDERS AND EXAMINES «, t00=0x001a, t01=0x0098}
0x2964…2994              Head {h00=0x002c, h01=0x0050, text=»*    INPUT BUFFER TO SEE IF SOME QUEUED «, t00=0x001a, t01=0x00cc}
0x2994…29ac              Head {h00=0x0014, h01=0x0050, text=»*    TO THREAT. «, t00=0x001a, t01=0x00fc}
0x29ac…29b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0114}
0x29b6…29c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011e}
0x29c0…29d2              Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x001a, t01=0x0128}
0x29d2…29e8              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x001a, t01=0x013a}
0x29e8…2a1e              Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG«, t00=0x001a, t01=0x0150}
0x2a1e…2a30              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x0186}
0x2a30…2a54              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x001b, t01=0x0008}
0x2a54…2a66              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001b, t01=0x002c}
0x2a66…2a8c              Head {h00=0x0022, h01=0x0050, text=» RF(NG) AKB100 ILLEGEAL ORDER «, t00=0x001b, t01=0x003e}
0x2a8c…2aa0              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001b, t01=0x0064}
0x2aa0…2ac4              Head {h00=0x0020, h01=0x0050, text=» CWK A7,/37 SELECT KEYBOARD «, t00=0x001b, t01=0x0078}
0x2ac4…2ada              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBSEL «, t00=0x001b, t01=0x009c}
0x2ada…2ae6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00b2}
0x2ae6…2afc              Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=0 «, t00=0x001b, t01=0x00be}
0x2afc…2b0e              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001b, t01=0x00d4}
0x2b0e…2b3e              Head {h00=0x002c, h01=0x0050, text=» RF(Z) AKB100 STANDARD READ NOT ALLOWED «, t00=0x001b, t01=0x00e6}
0x2b3e…2b50              Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x001b, t01=0x0116}
0x2b50…2b5c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0128}
0x2b5c…2b64              Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0134}
0x2b64…2b76              Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x001b, t01=0x013c}
0x2b76…2b7e              Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x014e}
0x2b7e…2b94              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x001b, t01=0x0156}
0x2b94…2ba8              Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x001b, t01=0x016c}
0x2ba8…2bd0              Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRE:10 SKIP INPUT BUFFER «, t00=0x001b, t01=0x0180}
0x2bd0…2be4              Head {h00=0x0010, h01=0x0050, text=» ADK A4,/2D «, t00=0x001c, t01=0x0018}
0x2be4…2bf8              Head {h00=0x0010, h01=0x0050, text=»CRE:10 EQU *«, t00=0x001c, t01=0x002c}
0x2bf8…2c04              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0040}
0x2c04…2c22              Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 4 «, t00=0x001c, t01=0x004c}
0x2c22…2c46              Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x001c, t01=0x006a}
0x2c46…2c74              Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/O REQUEST ERROR«, t00=0x001c, t01=0x008e}
0x2c74…2c88              Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001c, t01=0x00bc}
0x2c88…2c96              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00d0}
0x2c96…2ca0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00de}
0x2ca0…2caa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e8}
0x2caa…2cd2              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 4 RESET INPUT BUFFER «, t00=0x001c, t01=0x00f2}
0x2cd2…2cdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011a}
0x2cdc…2d02              Head {h00=0x0022, h01=0x0050, text=»AKB110 LD A2,DWTINQ,A6 ORDER 4«, t00=0x001c, t01=0x0124}
0x2d02…2d2e              Head {h00=0x0028, h01=0x0050, text=» SCR A1,A2 RESET OVERFLOW IF OCCURED«, t00=0x001c, t01=0x014a}
0x2d2e…2d5a              Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x001c, t01=0x0176}
0x2d5a…2d76              Head {h00=0x0018, h01=0x0050, text=» ABL ENDI05 END I/O «, t00=0x001d, t01=0x0012}
0x2d76…2d8a              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001d, t01=0x002e}
0x2d8a…2d94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0042}
0x2d94…2d9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004c}
0x2d9e…2dc4              Head {h00=0x0022, h01=0x0050, text=»*    ORDER 37  SELECT KEYBOARD«, t00=0x001d, t01=0x0056}
0x2dc4…2dce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x2dce…2dea              Head {h00=0x0018, h01=0x0050, text=»AKBSEL LDKL A2,/FF7F«, t00=0x001d, t01=0x0086}
0x2dea…2e18              Head {h00=0x002a, h01=0x0050, text=» ANRS A2,A6 RESET ALLOW BITS IN DWTCHP«, t00=0x001d, t01=0x00a2}
0x2e18…2e2c              Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001d, t01=0x00d0}
0x2e2c…2e38              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00e4}
0x2e38…2e46              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00f0}
0x2e46…2e50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fe}
0x2e50…2e5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0108}
0x2e5a…2e76              Head {h00=0x0018, h01=0x0050, text=»*    ORDER 1   2   3«, t00=0x001d, t01=0x0112}
0x2e76…2e80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e80…2e8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0138}
0x2e8a…2e9e              Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x001d, t01=0x0142}
0x2e9e…2ea8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea8…2ebe              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001d, t01=0x0160}
0x2ebe…2ec8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0176}
0x2ec8…2ee0              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x001d, t01=0x0180}
0x2ee0…2f02              Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/200 POWER OFF ? «, t00=0x001e, t01=0x0008}
0x2f02…2f18              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x001e, t01=0x002a}
0x2f18…2f3a              Head {h00=0x001e, h01=0x0050, text=» XRS A2,DWTST,A6 RESET BIT«, t00=0x001e, t01=0x0040}
0x2f3a…2f46              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0062}
0x2f46…2f5a              Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x001e, t01=0x006e}
0x2f5a…2f78              Head {h00=0x001a, h01=0x0050, text=» IFT CREDIT-POWOFF=-1 «, t00=0x001e, t01=0x0082}
0x2f78…2f9e              Head {h00=0x0022, h01=0x0050, text=» LDKL A1,-2 INDICATE POWER ON «, t00=0x001e, t01=0x00a0}
0x2f9e…2fb2              Head {h00=0x0010, h01=0x0050, text=» ST A1,10,A8«, t00=0x001e, t01=0x00c6}
0x2fb2…2fbe              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00da}
0x2fbe…2fda              Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+POWOFF=2«, t00=0x001e, t01=0x00e6}
0x2fda…2ffe              Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER ON «, t00=0x001e, t01=0x0102}
0x2ffe…300a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0126}
0x300a…3020              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001e, t01=0x0132}
0x3020…3034              Head {h00=0x0010, h01=0x0050, text=» ABL AKB380 «, t00=0x001e, t01=0x0148}
0x3034…303e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015c}
0x303e…304a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0166}
0x304a…3054              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0172}
0x3054…3068              Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x001e, t01=0x017c}
0x3068…3072              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0190}
0x3072…3088              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001f, t01=0x000a}
0x3088…3092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x3092…30a6              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x001f, t01=0x002a}
0x30a6…30c2              Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING ?«, t00=0x001f, t01=0x003e}
0x30c2…30f2              Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE «, t00=0x001f, t01=0x005a}
0x30f2…310a              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x001f, t01=0x008a}
0x310a…3120              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x001f, t01=0x00a2}
0x3120…3136              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x001f, t01=0x00b8}
0x3136…314e              Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x001f, t01=0x00ce}
0x314e…3160              Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001f, t01=0x00e6}
0x3160…3174              Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001f, t01=0x00f8}
0x3174…3198              Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x001f, t01=0x010c}
0x3198…31ba              Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x001f, t01=0x0130}
0x31ba…31cc              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x001f, t01=0x0152}
0x31cc…31ec              Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x001f, t01=0x0164}
0x31ec…3220              Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x001f, t01=0x0184}
0x3220…3252              Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0020, t01=0x0028}
0x3252…325c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005a}
0x325c…3268              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0064}
0x3268…3272              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0070}
0x3272…329c              Head {h00=0x0026, h01=0x0050, text=»AKB210 LD A2,4,A8 REQUESTED LENGTH«, t00=0x0020, t01=0x007a}
0x329c…32cc              Head {h00=0x002c, h01=0x0050, text=»AKB220 RF(E) AKB380 RESET A1 AND END I/O«, t00=0x0020, t01=0x00a4}
0x32cc…32ec              Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 FIRST TIME ? «, t00=0x0020, t01=0x00d4}
0x32ec…3306              Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 NO «, t00=0x0020, t01=0x00f4}
0x3306…3328              Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x0020, t01=0x010e}
0x3328…333a              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x0130}
0x333a…335e              Head {h00=0x0020, h01=0x0050, text=» ADR A1,A2 ADDRESS IN BUFFER«, t00=0x0020, t01=0x0142}
0x335e…3386              Head {h00=0x0024, h01=0x0050, text=»AKB230 SCR A3,A1 STORE CHARACTER«, t00=0x0020, t01=0x0166}
0x3386…33ac              Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 NEXT CHAR. POSITION «, t00=0x0020, t01=0x018e}
0x33ac…33c4              Head {h00=0x0014, h01=0x0050, text=» SUK A2,1 LAST ?«, t00=0x0021, t01=0x0024}
0x33c4…33de              Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB230 NO «, t00=0x0021, t01=0x003c}
0x33de…33ec              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0056}
0x33ec…33f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33f6…3426              Head {h00=0x002c, h01=0x0050, text=»*    READ CHARACTER FROM INPUT BUFFER OR«, t00=0x0021, t01=0x006e}
0x3426…3450              Head {h00=0x0026, h01=0x0050, text=»*    WAIT FOR KEY-BOARD INTERRUPT «, t00=0x0021, t01=0x009e}
0x3450…345a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c8}
0x345a…346e              Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x0021, t01=0x00d2}
0x346e…3486              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x0021, t01=0x00e6}
0x3486…34a4              Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0021, t01=0x00fe}
0x34a4…34b6              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x011c}
0x34b6…34d4              Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x0021, t01=0x012e}
0x34d4…34ea              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB250«, t00=0x0021, t01=0x014c}
0x34ea…3510              Head {h00=0x0022, h01=0x0050, text=» SCR A4,A1 RESET OVERFLOW MARK«, t00=0x0021, t01=0x0162}
0x3510…3534              Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x0021, t01=0x0188}
0x3534…3546              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x001c}
0x3546…3578              Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x0022, t01=0x002e}
0x3578…358e              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB260«, t00=0x0022, t01=0x0060}
0x358e…35b4              Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x0022, t01=0x0076}
0x35b4…35ca              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0022, t01=0x009c}
0x35ca…35f8              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x0022, t01=0x00b2}
0x35f8…361a              Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB270 NO TIME-OUT «, t00=0x0022, t01=0x00e0}
0x361a…3640              Head {h00=0x0022, h01=0x0050, text=» RF ENDI05 END I/O AT TIME OUT«, t00=0x0022, t01=0x0102}
0x3640…364c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0128}
0x364c…3662              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x0022, t01=0x0134}
0x3662…3674              Head {h00=0x000e, h01=0x0050, text=» RF AKB270«, t00=0x0022, t01=0x014a}
0x3674…3680              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x015c}
0x3680…36b4              Head {h00=0x0030, h01=0x0050, text=»AKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER «, t00=0x0022, t01=0x0168}
0x36b4…36de              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x0023, t01=0x000c}
0x36de…36f6              Head {h00=0x0014, h01=0x0050, text=»AKB270 LDR A4,A7«, t00=0x0023, t01=0x0036}
0x36f6…3708              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0023, t01=0x004e}
0x3708…372c              Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x0023, t01=0x0060}
0x372c…373a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0084}
0x373a…3744              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0092}
0x3744…374e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009c}
0x374e…376e              Head {h00=0x001c, h01=0x0050, text=»*    ORDER 1  BASIC READ«, t00=0x0023, t01=0x00a6}
0x376e…3778              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c6}
0x3778…37ac              Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0023, t01=0x00d0}
0x37ac…37c0              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0023, t01=0x0104}
0x37c0…37ec              Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHO ECHO INPUTTED CHARACTER «, t00=0x0023, t01=0x0118}
0x37ec…37f8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0144}
0x37f8…382c              Head {h00=0x0030, h01=0x0050, text=» CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? «, t00=0x0023, t01=0x0150}
0x382c…383e              Head {h00=0x000e, h01=0x0050, text=» RB AKB220«, t00=0x0023, t01=0x0184}
0x383e…384c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0008}
0x384c…3856              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0016}
0x3856…3860              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0020}
0x3860…3896              Head {h00=0x0032, h01=0x0050, text=»*    ORDER 2 OR 3   STANDARD AND NUMERIC READ «, t00=0x0024, t01=0x002a}
0x3896…38a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0060}
0x38a0…38da              Head {h00=0x0036, h01=0x0050, text=»*    CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE«, t00=0x0024, t01=0x006a}
0x38da…38e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a4}
0x38e4…38ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ae}
0x38ee…391a              Head {h00=0x0028, h01=0x0050, text=»AKB310 LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x0024, t01=0x00b8}
0x391a…393c              Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB359 NO KEYTABLE «, t00=0x0024, t01=0x00e4}
0x393c…3962              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x0024, t01=0x0106}
0x3962…3976              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0024, t01=0x012c}
0x3976…39a0              Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x0024, t01=0x0140}
0x39a0…39b2              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0024, t01=0x016a}
0x39b2…39ca              Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0024, t01=0x017c}
0x39ca…39fa (37, 0, 398) Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0025, t01=0x0004}
0x39fa…3a14              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0025, t01=0x0034}
0x3a14…3a36              Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER? «, t00=0x0025, t01=0x004e}
0x3a36…3a50              Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO «, t00=0x0025, t01=0x0070}
0x3a50…3a66              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0025, t01=0x008a}
0x3a66…3a8a              Head {h00=0x0020, h01=0x0050, text=» ADR A4,A4 YES DOUBLE INDEX «, t00=0x0025, t01=0x00a0}
0x3a8a…3a96              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00c4}
0x3a96…3aac              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0025, t01=0x00d0}
0x3aac…3ad8              Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDEX STARTS AT ONE,INCR=1«, t00=0x0025, t01=0x00e6}
0x3ad8…3ae4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0112}
0x3ae4…3b14              Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROLWORD «, t00=0x0025, t01=0x011e}
0x3b14…3b40              Head {h00=0x0028, h01=0x0050, text=»AKB358 CF A15,STORE STORE CHARACTER «, t00=0x0025, t01=0x014e}
0x3b40…3b52              Head {h00=0x000e, h01=0x0050, text=» RF AKB370«, t00=0x0025, t01=0x017a}
0x3b52…3b5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018c}
0x3b5c…3b66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0008}
0x3b66…3b9e              Head {h00=0x0034, h01=0x0050, text=»AKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY«, t00=0x0026, t01=0x0012}
0x3b9e…3bb8              Head {h00=0x0016, h01=0x0050, text=» RB(E) AKB358 YES «, t00=0x0026, t01=0x004a}
0x3bb8…3bc6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0064}
0x3bc6…3bd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0072}
0x3bd0…3bfe              Head {h00=0x002a, h01=0x0050, text=»*    CHARACTER NOT FOUND IN KEY-TABLE.«, t00=0x0026, t01=0x007c}
0x3bfe…3c20              Head {h00=0x001e, h01=0x0050, text=»*    CHECK CHARACTER CODE.«, t00=0x0026, t01=0x00aa}
0x3c20…3c2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00cc}
0x3c2a…3c3e              Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0026, t01=0x00d6}
0x3c3e…3c62              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0026, t01=0x00ea}
0x3c62…3c8c              Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x0026, t01=0x010e}
0x3c8c…3cae              Head {h00=0x001e, h01=0x0050, text=» ANK A4,/20 SHIFT BIT 9 ? «, t00=0x0026, t01=0x0138}
0x3cae…3cc8              Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB361 YES «, t00=0x0026, t01=0x015a}
0x3cc8…3ce4              Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0026, t01=0x0174}
0x3ce4…3cf6              Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0026, t01=0x0190}
0x3cf6…3d0a              Head {h00=0x0010, h01=0x0050, text=»AKB361 EQU *«, t00=0x0027, t01=0x0012}
0x3d0a…3d1e              Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A6 «, t00=0x0027, t01=0x0026}
0x3d1e…3d3c              Head {h00=0x001a, h01=0x0050, text=» ANK A4,/10 PTS 6234 ?«, t00=0x0027, t01=0x003a}
0x3d3c…3d52              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB362 «, t00=0x0027, t01=0x0058}
0x3d52…3d64              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x006e}
0x3d64…3d78              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0027, t01=0x0080}
0x3d78…3d8e              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB362«, t00=0x0027, t01=0x0094}
0x3d8e…3da0              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x00aa}
0x3da0…3db2              Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x00bc}
0x3db2…3dc6              Head {h00=0x0010, h01=0x0050, text=»AKB362 EQU *«, t00=0x0027, t01=0x00ce}
0x3dc6…3de2              Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0027, t01=0x00e2}
0x3de2…3e02              Head {h00=0x001c, h01=0x0050, text=» ANK A4,/BF RESET BIT 9 «, t00=0x0027, t01=0x00fe}
0x3e02…3e16              Head {h00=0x0010, h01=0x0050, text=»AKB363 EQU *«, t00=0x0027, t01=0x011e}
0x3e16…3e2c              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x0027, t01=0x0132}
0x3e2c…3e52              Head {h00=0x0022, h01=0x0050, text=» CC A4,KBMZ,A6 MULTIPLE ZERO ?«, t00=0x0027, t01=0x0148}
0x3e52…3e6c              Head {h00=0x0016, h01=0x0050, text=» RF(E) KBMZ10 YES!«, t00=0x0027, t01=0x016e}
0x3e6c…3e78              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0188}
0x3e78…3e96 (40, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CC A4,KBCLR,A6 CLEAR?«, t00=0x0028, t01=0x0004}
0x3e96…3eac              Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0028, t01=0x0022}
0x3eac…3ece              Head {h00=0x001e, h01=0x0050, text=» CC A4,KBBSP,A6 BACKSPACE?«, t00=0x0028, t01=0x0038}
0x3ece…3ee4              Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0028, t01=0x005a}
0x3ee4…3f04              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x0028, t01=0x0070}
0x3f04…3f30              Head {h00=0x0028, h01=0x0050, text=» RF(NE) AKB369 YES,STORE AND END I/O«, t00=0x0028, t01=0x0090}
0x3f30…3f46              Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0028, t01=0x00bc}
0x3f46…3f5a              Head {h00=0x0010, h01=0x0050, text=»AKB365 EQU *«, t00=0x0028, t01=0x00d2}
0x3f5a…3f6e              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x00e6}
0x3f6e…3f90              Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHOCHARACTER «, t00=0x0028, t01=0x00fa}
0x3f90…3f9c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x011c}
0x3f9c…3fc0              Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0028, t01=0x0128}
0x3fc0…3fd8              Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB210 NO«, t00=0x0028, t01=0x014c}
0x3fd8…4000              Head {h00=0x0024, h01=0x0050, text=»AKB368 LDK A1,8 SET RETURN CODE «, t00=0x0028, t01=0x0164}
0x4000…401e              Head {h00=0x001a, h01=0x0050, text=» RF ENDIO AND END I/O «, t00=0x0028, t01=0x018c}
0x401e…4058              Head {h00=0x0036, h01=0x0050, text=»AKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0029, t01=0x001a}
0x4058…407a              Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0029, t01=0x0054}
0x407a…4088              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0076}
0x4088…4092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0084}
0x4092…409c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x008e}
0x409c…40c8              Head {h00=0x0028, h01=0x0050, text=»*    CHECK CODE OF END OF RECORD KEY«, t00=0x0029, t01=0x0098}
0x40c8…40d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c4}
0x40d2…40dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ce}
0x40dc…40f0              Head {h00=0x0010, h01=0x0050, text=»AKB370 EQU *«, t00=0x0029, t01=0x00d8}
0x40f0…4104              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0029, t01=0x00ec}
0x4104…4128              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0029, t01=0x0100}
0x4128…4152              Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE END OF RECORD«, t00=0x0029, t01=0x0124}
0x4152…4172              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x0029, t01=0x014e}
0x4172…4188              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB380«, t00=0x0029, t01=0x016e}
0x4188…41aa              Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x0029, t01=0x0184}
0x41aa…41b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0016}
0x41b4…41c0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0020}
0x41c0…41ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x002c}
0x41ca…41ee              Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x0036}
0x41ee…41fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x005a}
0x41fc…4206              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4206…4210              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0072}
0x4210…4240              Head {h00=0x002c, h01=0x0050, text=»*    THIS IS A COMMON END OF THE DRIVER «, t00=0x002a, t01=0x007c}
0x4240…424a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ac}
0x424a…4280              Head {h00=0x0032, h01=0x0050, text=»*    SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x002a, t01=0x00b6}
0x4280…42a8              Head {h00=0x0024, h01=0x0050, text=»*    ON KEYBOARD AND ECHO-DEVICE«, t00=0x002a, t01=0x00ec}
0x42a8…42b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0114}
0x42b2…42bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011e}
0x42bc…42d0              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x002a, t01=0x0128}
0x42d0…42da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013c}
0x42da…42f0              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002a, t01=0x0146}
0x42f0…42fc              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002a, t01=0x015c}
0x42fc…4314              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x002a, t01=0x0168}
0x4314…4342              Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x002a, t01=0x0180}
0x4342…4364              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x002b, t01=0x001e}
0x4364…4378              Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002b, t01=0x0040}
0x4378…4384              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0054}
0x4384…438e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0060}
0x438e…43be              Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x002b, t01=0x006a}
0x43be…43d2              Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x002b, t01=0x009a}
0x43d2…43dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ae}
0x43dc…43f0              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002b, t01=0x00b8}
0x43f0…440a              Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x002b, t01=0x00cc}
0x440a…4436              Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x002b, t01=0x00e6}
0x4436…4454              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x002b, t01=0x0112}
0x4454…4460              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0130}
0x4460…446a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013c}
0x446a…449e              Head {h00=0x0030, h01=0x0050, text=» ABL DISEND END I/O ON KEYBOARD AND DISPATCH«, t00=0x002b, t01=0x0146}
0x449e…44ac              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x017a}
0x44ac…44b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0188}
0x44b6…44d0 (44, 0, 400) Head {h00=0x0016, h01=0x0050, text=»*    MULTIPLE ZERO«, t00=0x002c, t01=0x0004}
0x44d0…44da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001e}
0x44da…44f0              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002c, t01=0x0028}
0x44f0…4504              Head {h00=0x0010, h01=0x0050, text=»KBMZ10 EQU *«, t00=0x002c, t01=0x003e}
0x4504…4530              Head {h00=0x0028, h01=0x0050, text=» LDK A4,CMULTZ LOAD NUMBER OF ZEROES«, t00=0x002c, t01=0x0052}
0x4530…4560              Head {h00=0x002c, h01=0x0050, text=»KBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO«, t00=0x002c, t01=0x007e}
0x4560…4572              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x00ae}
0x4572…4590              Head {h00=0x001a, h01=0x0050, text=» RB(L) AKB240 ALL DONE«, t00=0x002c, t01=0x00c0}
0x4590…45aa              Head {h00=0x0016, h01=0x0050, text=» LDR A1,A4 SAVE A4«, t00=0x002c, t01=0x00de}
0x45aa…45da              Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE ZOERO IN ECB-BUFFER «, t00=0x002c, t01=0x00f8}
0x45da…45f8              Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 RESTORE A4 «, t00=0x002c, t01=0x0128}
0x45f8…4602              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0146}
0x4602…4616              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002c, t01=0x0150}
0x4616…4620              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0164}
0x4620…463e              Head {h00=0x001a, h01=0x0050, text=» CF A5,ECHO ECHO ZERO «, t00=0x002c, t01=0x016e}
0x463e…464a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x018c}
0x464a…4654              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0008}
0x4654…465e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0012}
0x465e…4674              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002d, t01=0x001c}
0x4674…467e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0032}
0x467e…46a4              Head {h00=0x0022, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW ? «, t00=0x002d, t01=0x003c}
0x46a4…46bc              Head {h00=0x0014, h01=0x0050, text=» RB(L) KBMZ20 NO«, t00=0x002d, t01=0x0062}
0x46bc…46ee              Head {h00=0x002e, h01=0x0050, text=»KBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ?«, t00=0x002d, t01=0x007a}
0x46ee…4706              Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB368 NO«, t00=0x002d, t01=0x00ac}
0x4706…4712              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x00c4}
0x4712…4740              Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x002d, t01=0x00d0}
0x4740…4752              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x002d, t01=0x00fe}
0x4752…4778              Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x002d, t01=0x0110}
0x4778…4792              Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ30 NO «, t00=0x002d, t01=0x0136}
0x4792…47c2              Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x002d, t01=0x0150}
0x47c2…47d4              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x002d, t01=0x0180}
0x47d4…47e6 (46, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x0004}
0x47e6…47f8              Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x002e, t01=0x0016}
0x47f8…482e              Head {h00=0x0032, h01=0x0050, text=»KBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x002e, t01=0x0028}
0x482e…4840              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x005e}
0x4840…4870              Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x002e, t01=0x0070}
0x4870…4894              Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x002e, t01=0x00a0}
0x4894…48c8              Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x002e, t01=0x00c4}
0x48c8…48f2              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x002e, t01=0x00f8}
0x48f2…4912              Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x002e, t01=0x0122}
0x4912…4936              Head {h00=0x0020, h01=0x0050, text=» RB KBMZ25 ONCE MORE TIME !!«, t00=0x002e, t01=0x0142}
0x4936…494a              Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x002e, t01=0x0166}
0x494a…4976              Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x002e, t01=0x017a}
0x4976…4988              Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x002f, t01=0x0016}
0x4988…49b0              Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x002f, t01=0x0028}
0x49b0…49dc              Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x002f, t01=0x0050}
0x49dc…4a0a              Head {h00=0x002a, h01=0x0050, text=» RB ENDIO LENGTH AND THRUGHPUT ERRORS «, t00=0x002f, t01=0x007c}
0x4a0a…4a16              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00aa}
0x4a16…4a20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b6}
0x4a20…4a32              Head {h00=0x000e, h01=0x0050, text=»*    CLEAR«, t00=0x002f, t01=0x00c0}
0x4a32…4a3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d2}
0x4a3c…4a66              Head {h00=0x0026, h01=0x0050, text=»KBCL10 LDK A3,0 RESET BUFFER INDEX«, t00=0x002f, t01=0x00dc}
0x4a66…4a90              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/18 CHANGE CHARACTER-CODE «, t00=0x002f, t01=0x0106}
0x4a90…4aa2              Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x002f, t01=0x0130}
0x4aa2…4aac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0142}
0x4aac…4ac2              Head {h00=0x0012, h01=0x0050, text=»*    BACKSPACE«, t00=0x002f, t01=0x014c}
0x4ac2…4acc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0162}
0x4acc…4af6              Head {h00=0x0026, h01=0x0050, text=»KBSP10 LDR A3,A3 FIRST CHARACTER? «, t00=0x002f, t01=0x016c}
0x4af6…4b0c              Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0030, t01=0x0008}
0x4b0c…4b34              Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER INDEX«, t00=0x0030, t01=0x001e}
0x4b34…4b58              Head {h00=0x0020, h01=0x0050, text=» LDK A2,/00 CLEAR ECB-BUFFER«, t00=0x0030, t01=0x0046}
0x4b58…4b6e              Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0030, t01=0x006a}
0x4b6e…4b90              Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 DECREMENT INDEX «, t00=0x0030, t01=0x0080}
0x4b90…4bbe              Head {h00=0x002a, h01=0x0050, text=»KBSP15 LDK A2,/8 CHANGE CHARACTER-CODE«, t00=0x0030, t01=0x00a2}
0x4bbe…4bd0              Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x0030, t01=0x00d0}
0x4bd0…4bde              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00e2}
0x4bde…4be8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f0}
0x4be8…4bfc              Head {h00=0x0010, h01=0x0050, text=»*    C H E K«, t00=0x0030, t01=0x00fa}
0x4bfc…4c06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c06…4c10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0118}
0x4c10…4c40              Head {h00=0x002c, h01=0x0050, text=»*    SUBROUTINE TO CHECK INPUT CHARACTER«, t00=0x0030, t01=0x0122}
0x4c40…4c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0152}
0x4c4a…4c60              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0030, t01=0x015c}
0x4c60…4c6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0172}
0x4c6a…4c86              Head {h00=0x0018, h01=0x0050, text=»*    A2 = CHARACTER «, t00=0x0030, t01=0x017c}
0x4c86…4ca4              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x0031, t01=0x0008}
0x4ca4…4cc2              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x0031, t01=0x0026}
0x4cc2…4cda              Head {h00=0x0014, h01=0x0050, text=»*    A7 = ORDER «, t00=0x0031, t01=0x0044}
0x4cda…4ce4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005c}
0x4ce4…4cee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0066}
0x4cee…4d04              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0031, t01=0x0070}
0x4d04…4d0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0086}
0x4d0e…4d2c              Head {h00=0x001a, h01=0x0050, text=»*    A1 = RETURN CODE «, t00=0x0031, t01=0x0090}
0x4d2c…4d36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ae}
0x4d36…4d48              Head {h00=0x000e, h01=0x0050, text=»CHEK EQU *«, t00=0x0031, t01=0x00b8}
0x4d48…4d6c              Head {h00=0x0020, h01=0x0050, text=» STR A2,A15 SAVE A2 ON STACK«, t00=0x0031, t01=0x00ca}
0x4d6c…4d80              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0031, t01=0x00ee}
0x4d80…4da6              Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0031, t01=0x0102}
0x4da6…4db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0128}
0x4db0…4dc6              Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=1 «, t00=0x0031, t01=0x0132}
0x4dc6…4dd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0148}
0x4dd0…4dea              Head {h00=0x0016, h01=0x0050, text=» CWK A7,2 ORDER 2?«, t00=0x0031, t01=0x0152}
0x4dea…4e04              Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHEK05 NO «, t00=0x0031, t01=0x016c}
0x4e04…4e18              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/20 «, t00=0x0031, t01=0x0186}
0x4e18…4e44              Head {h00=0x0028, h01=0x0050, text=» ORK A1,/5F 5F OR 7F AS UPPER LIMIT «, t00=0x0032, t01=0x000a}
0x4e44…4e64              Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0032, t01=0x0036}
0x4e64…4e76              Head {h00=0x000e, h01=0x0050, text=» RF CHEK08«, t00=0x0032, t01=0x0056}
0x4e76…4e80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0068}
0x4e80…4e8c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0072}
0x4e8c…4e96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007e}
0x4e96…4eb0              Head {h00=0x0016, h01=0x0050, text=»CHEK05 ANK A1,/10 «, t00=0x0032, t01=0x0088}
0x4eb0…4ec6              Head {h00=0x0012, h01=0x0050, text=» RF(NE) CHEK06«, t00=0x0032, t01=0x00a2}
0x4ec6…4ee6              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x00b8}
0x4ee6…4f0c              Head {h00=0x0022, h01=0x0050, text=»CHEK06 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x00d8}
0x4f0c…4f2c              Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x00fe}
0x4f2c…4f44              Head {h00=0x0014, h01=0x0050, text=»CHEK08 SUR A1,A2«, t00=0x0032, t01=0x011e}
0x4f44…4f6a              Head {h00=0x0022, h01=0x0050, text=» RF(N) CHERRO CODE CHECK ERROR«, t00=0x0032, t01=0x0136}
0x4f6a…4f7c              Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0032, t01=0x015c}
0x4f7c…4fa2              Head {h00=0x0022, h01=0x0050, text=» RF(P) CHERRO CODE CHECK ERROR«, t00=0x0032, t01=0x016e}
0x4fa2…4fb6 (51, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0033, t01=0x0004}
0x4fb6…4fda              Head {h00=0x0020, h01=0x0050, text=»CHEK10 LDK A1,0 RETURN CODE «, t00=0x0033, t01=0x0018}
0x4fda…4ff0              Head {h00=0x0012, h01=0x0050, text=»CHEK20 RTN A5 «, t00=0x0033, t01=0x003c}
0x4ff0…4ffa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0052}
0x4ffa…5004              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x005c}
0x5004…5022              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0033, t01=0x0066}
0x5022…502c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0084}
0x502c…505e              Head {h00=0x002e, h01=0x0050, text=»CHERRO LDK A1,4 SET RETURN CODE AND RETURN«, t00=0x0033, t01=0x008e}
0x505e…5084              Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A15 RELOAD CHARACTER «, t00=0x0033, t01=0x00c0}
0x5084…5096              Head {h00=0x000e, h01=0x0050, text=» RB CHEK20«, t00=0x0033, t01=0x00e6}
0x5096…50a4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00f8}
0x50a4…50ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0106}
0x50ae…50b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0110}
0x50b8…50cc              Head {h00=0x0010, h01=0x0050, text=»*    I H K B«, t00=0x0033, t01=0x011a}
0x50cc…50d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x012e}
0x50d6…511e              Head {h00=0x0044, h01=0x0050, text=»*    THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0033, t01=0x0138}
0x511e…5128              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0180}
0x5128…5132              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018a}
0x5132…5144 (52, 0, 400) Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0034, t01=0x0004}
0x5144…5158              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0034, t01=0x0016}
0x5158…517a              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET ALLOW BITS«, t00=0x0034, t01=0x002a}
0x517a…518e              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/C0 «, t00=0x0034, t01=0x004c}
0x518e…51c6              Head {h00=0x0034, h01=0x0050, text=» RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS «, t00=0x0034, t01=0x0060}
0x51c6…51d8              Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0034, t01=0x0098}
0x51d8…51ec              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/80 «, t00=0x0034, t01=0x00aa}
0x51ec…5202              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL1 «, t00=0x0034, t01=0x00be}
0x5202…5214              Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x0034, t01=0x00d4}
0x5214…522c              Head {h00=0x0014, h01=0x0050, text=»IHNOL1 LDR A3,A2«, t00=0x0034, t01=0x00e6}
0x522c…523e              Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0034, t01=0x00fe}
0x523e…5250              Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0034, t01=0x0110}
0x5250…5264              Head {h00=0x0010, h01=0x0050, text=» RF(NE) EXIT«, t00=0x0034, t01=0x0122}
0x5264…5278              Head {h00=0x0010, h01=0x0050, text=»IHNOL2 EQU *«, t00=0x0034, t01=0x0136}
0x5278…5284              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x014a}
0x5284…528e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0156}
0x528e…52a4              Head {h00=0x0012, h01=0x0050, text=» IFT CONVER=1 «, t00=0x0034, t01=0x0160}
0x52a4…52ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0176}
0x52ae…52cc              Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 INPUT WORD «, t00=0x0034, t01=0x0180}
0x52cc…52f2              Head {h00=0x0022, h01=0x0050, text=» SRL A4,11 DEVICE ADDRESS * 2 «, t00=0x0035, t01=0x000e}
0x52f2…5304              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/E«, t00=0x0035, t01=0x0034}
0x5304…532c              Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTBC,A6 8-BIT SETTING ? «, t00=0x0035, t01=0x0046}
0x532c…5342              Head {h00=0x0012, h01=0x0050, text=» RF(NE) IHKB03«, t00=0x0035, t01=0x006e}
0x5342…5354              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x0084}
0x5354…5368              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0035, t01=0x0096}
0x5368…537c              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0035, t01=0x00aa}
0x537c…5392              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB01 «, t00=0x0035, t01=0x00be}
0x5392…53a4              Head {h00=0x000e, h01=0x0050, text=» SUK A3,/A«, t00=0x0035, t01=0x00d4}
0x53a4…53ba              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB02 «, t00=0x0035, t01=0x00e6}
0x53ba…53d4              Head {h00=0x0016, h01=0x0050, text=»IHKB01 ORK A2,/80 «, t00=0x0035, t01=0x00fc}
0x53d4…53e6              Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0035, t01=0x0116}
0x53e6…5402              Head {h00=0x0018, h01=0x0050, text=»IHKB02 ANKL A2,/FF3F«, t00=0x0035, t01=0x0128}
0x5402…5414              Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0035, t01=0x0144}
0x5414…544c              Head {h00=0x0034, h01=0x0050, text=»IHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS «, t00=0x0035, t01=0x0156}
0x544c…5462              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0035, t01=0x018e}
0x5462…5474              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x0014}
0x5474…5488              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0036, t01=0x0026}
0x5488…54a4              Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x0036, t01=0x003a}
0x54a4…54b6              Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0036, t01=0x0056}
0x54b6…54de              Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A3 COLUMN TABLE ADDRESS«, t00=0x0036, t01=0x0068}
0x54de…54f4              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x0090}
0x54f4…5506              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x00a6}
0x5506…5518              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0036, t01=0x00b8}
0x5518…5538              Head {h00=0x001c, h01=0x0050, text=» ADR A3,A4 ADD ROW INDEX«, t00=0x0036, t01=0x00ca}
0x5538…5558              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0036, t01=0x00ea}
0x5558…556c              Head {h00=0x0010, h01=0x0050, text=»IHKB04 EQU *«, t00=0x0036, t01=0x010a}
0x556c…5576              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x011e}
0x5576…5582              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0128}
0x5582…558c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0134}
0x558c…5596              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013e}
0x5596…55aa              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0036, t01=0x0148}
0x55aa…55b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015c}
0x55b4…55c6              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0036, t01=0x0166}
0x55c6…55da              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0036, t01=0x0178}
0x55da…55ee              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/22 «, t00=0x0036, t01=0x018c}
0x55ee…5604              Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHNOL6 «, t00=0x0037, t01=0x0010}
0x5604…5616              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0037, t01=0x0026}
0x5616…562c              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) IHNOL8«, t00=0x0037, t01=0x0038}
0x562c…563e              Head {h00=0x000e, h01=0x0050, text=» RF IHNOL7«, t00=0x0037, t01=0x004e}
0x563e…5656              Head {h00=0x0014, h01=0x0050, text=»IHNOL6 ADK A2,7 «, t00=0x0037, t01=0x0060}
0x5656…5672              Head {h00=0x0018, h01=0x0050, text=»IHNOL7 ANKL A2,/FF3F«, t00=0x0037, t01=0x0078}
0x5672…5686              Head {h00=0x0010, h01=0x0050, text=»IHNOL8 EQU *«, t00=0x0037, t01=0x0094}
0x5686…5690              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a8}
0x5690…569c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00b2}
0x569c…56a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00be}
0x56a6…56ca              Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x0037, t01=0x00c8}
0x56ca…56e0              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB10 «, t00=0x0037, t01=0x00ec}
0x56e0…5706              Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPTS ALLOWED? «, t00=0x0037, t01=0x0102}
0x5706…573e              Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER «, t00=0x0037, t01=0x0128}
0x573e…5748              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0160}
0x5748…575e              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0037, t01=0x016a}
0x575e…5768              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0180}
0x5768…5780              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x0037, t01=0x018a}
0x5780…57ae              Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB05 NO TIMING ON THIS DEVICE«, t00=0x0038, t01=0x0012}
0x57ae…57d2              Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x0038, t01=0x0040}
0x57d2…57ea              Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x0038, t01=0x0064}
0x57ea…57f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007c}
0x57f4…5800              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0086}
0x5800…580a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0092}
0x580a…583a              Head {h00=0x002c, h01=0x0050, text=»IHKB05 ABL LDREG RETURN TO READ ROUTINE «, t00=0x0038, t01=0x009c}
0x583a…5858              Head {h00=0x001a, h01=0x0050, text=»IHKB10 LD A1,DWTINQ,A6«, t00=0x0038, t01=0x00cc}
0x5858…586a              Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0038, t01=0x00ea}
0x586a…5890              Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x0038, t01=0x00fc}
0x5890…58a8              Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x0038, t01=0x0122}
0x58a8…58ba              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0038, t01=0x013a}
0x58ba…58f0              Head {h00=0x0032, h01=0x0050, text=» CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS «, t00=0x0038, t01=0x014c}
0x58f0…5912              Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x0038, t01=0x0182}
0x5912…592c              Head {h00=0x0016, h01=0x0050, text=» RF(NE) IHKB20 NO!«, t00=0x0039, t01=0x0014}
0x592c…5960              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER«, t00=0x0039, t01=0x002e}
0x5960…5972              Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x0039, t01=0x0062}
0x5972…59a6              Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x0039, t01=0x0074}
0x59a6…59de              Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A3 STORE CHARACTER IN INPUT BUFFER«, t00=0x0039, t01=0x00a8}
0x59de…59f4              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0039, t01=0x00e0}
0x59f4…5a08              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0039, t01=0x00f6}
0x5a08…5a20              Head {h00=0x0014, h01=0x0050, text=»IHNOL3 LDR A3,A2«, t00=0x0039, t01=0x010a}
0x5a20…5a32              Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0039, t01=0x0122}
0x5a32…5a46              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x0039, t01=0x0134}
0x5a46…5a58              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0039, t01=0x0148}
0x5a58…5a6e              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL4 «, t00=0x0039, t01=0x015a}
0x5a6e…5a82              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0039, t01=0x0170}
0x5a82…5a94              Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0039, t01=0x0184}
0x5a94…5aaa              Head {h00=0x0012, h01=0x0050, text=» RB(NE) IHNOL2«, t00=0x003a, t01=0x0008}
0x5aaa…5ad2              Head {h00=0x0024, h01=0x0050, text=»IHNOL4 ORRS A4,A6 SET ALLOW BIT «, t00=0x003a, t01=0x001e}
0x5ad2…5ae4              Head {h00=0x000e, h01=0x0050, text=» RB IHNOL2«, t00=0x003a, t01=0x0046}
0x5ae4…5af0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0058}
0x5af0…5afe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0064}
0x5afe…5b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0072}
0x5b08…5b12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007c}
0x5b12…5b2a              Head {h00=0x0014, h01=0x0050, text=»*    A K B T U T«, t00=0x003a, t01=0x0086}
0x5b2a…5b34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009e}
0x5b34…5b5e              Head {h00=0x0026, h01=0x0050, text=»*    THIS IS THE TIME-OUT ROUTINE «, t00=0x003a, t01=0x00a8}
0x5b5e…5b68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d2}
0x5b68…5b72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00dc}
0x5b72…5b88              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x003a, t01=0x00e6}
0x5b88…5b92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00fc}
0x5b92…5ba6              Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x003a, t01=0x0106}
0x5ba6…5bc8              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x003a, t01=0x011a}
0x5bc8…5bdc              Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x003a, t01=0x013c}
0x5bdc…5bf4              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x003a, t01=0x0150}
0x5bf4…5c08              Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x003a, t01=0x0168}
0x5c08…5c2c              Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x003a, t01=0x017c}
0x5c2c…5c5c              Head {h00=0x002c, h01=0x0050, text=» RB IHKB05 RESTORE REGISTERS AND END I/O«, t00=0x003b, t01=0x0010}
0x5c5c…5c66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0040}
0x5c66…5c72              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x004a}
0x5c72…5c80              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0056}
0x5c80…5c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0064}
0x5c8a…5cc2              Head {h00=0x0034, h01=0x0050, text=»*    STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x003b, t01=0x006e}
0x5cc2…5cfc              Head {h00=0x0036, h01=0x0050, text=»*            ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x003b, t01=0x00a6}
0x5cfc…5d06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e0}
0x5d06…5d1c              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x003b, t01=0x00ea}
0x5d1c…5d26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0100}
0x5d26…5d4a              Head {h00=0x0020, h01=0x0050, text=»*    A2 = CHARACTER TO STORE«, t00=0x003b, t01=0x010a}
0x5d4a…5d68              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x003b, t01=0x012e}
0x5d68…5d72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x014c}
0x5d72…5d7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0156}
0x5d7c…5d90              Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x003b, t01=0x0160}
0x5d90…5db2              Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x003b, t01=0x0174}
0x5db2…5dd6              Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x003c, t01=0x0008}
0x5dd6…5e02              Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x003c, t01=0x002c}
0x5e02…5e2a              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x003c, t01=0x0058}
0x5e2a…5e3e              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x0080}
0x5e3e…5e60              Head {h00=0x001e, h01=0x0050, text=» RF EOQU20 RTN A15 AND ENB«, t00=0x003c, t01=0x0094}
0x5e60…5e6e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00b6}
0x5e6e…5e78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c4}
0x5e78…5e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ce}
0x5e82…5ebc              Head {h00=0x0036, h01=0x0050, text=»*    EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x003c, t01=0x00d8}
0x5ebc…5ec6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0112}
0x5ec6…5edc              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x003c, t01=0x011c}
0x5edc…5ee6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0132}
0x5ee6…5f06              Head {h00=0x001c, h01=0x0050, text=»*    A1 = QUEUE POINTER «, t00=0x003c, t01=0x013c}
0x5f06…5f24              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x003c, t01=0x015c}
0x5f24…5f2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x017a}
0x5f2e…5f44              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x003c, t01=0x0184}
0x5f44…5f4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000a}
0x5f4e…5f72              Head {h00=0x0020, h01=0x0050, text=»*    A1 = NEW QUEUE POINTER «, t00=0x003d, t01=0x0014}
0x5f72…5f86              Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x003d, t01=0x0038}
0x5f86…5f92              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003d, t01=0x004c}
0x5f92…5fa4              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x003d, t01=0x0058}
0x5fa4…5fb6              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x003d, t01=0x006a}
0x5fb6…5fda              Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x003d, t01=0x007c}
0x5fda…5ff0              Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x003d, t01=0x00a0}
0x5ff0…601e              Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x003d, t01=0x00b6}
0x601e…6036              Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x003d, t01=0x00e4}
0x6036…6062              Head {h00=0x0028, h01=0x0050, text=»EOQU20 ADKL A15,2 RETURN AND ENABLE «, t00=0x003d, t01=0x00fc}
0x6062…606e              Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003d, t01=0x0128}
0x606e…6082              Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x003d, t01=0x0134}
0x6082…608c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0148}
0x608c…6098              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003d, t01=0x0152}
0x6098…609c              Head {h00=0x4004, h01=0x0000}
0x609c…60a0              00 3d 01 5e                                                                                                                                                                                                                                       ┆ = ^┆
0x60a0…60a8 (62, 1, 8)   20 04 00 00 00 3e 00 04                                                                                                                                                                                                                           ┆     >  ┆
0x60a8…60f8 (63, 0, 400) 34 2c 2f 31 30 5c 57 52 49 54 45 20 4e 55 4d 42 45 52 20 4f 46 20 57 4f 52 44 53 20 00 8e 01 84 00 24 00 50 5c 57 45 52 5c 41 31 2c 2f 31 31 5c 57 52 49 54 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 8f 00 24 00 22 00 50 52 45 41 44   ┆4,/10 WRITE NUMBER OF WORDS      $ P WER A1,/11 WRITE BUFFER ADDRESS   $ " PREAD┆
0x60f8…6148              32 31 5c 43 49 4f 5c 41 32 2c 31 2c 30 5c 52 45 41 44 20 53 45 43 54 4f 52 20 00 8f 00 4c 00 26 00 50 5c 52 42 28 4e 41 29 5c 52 45 41 44 32 31 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 41 43 43 45 50 54 45 44 00 8f 00 72 00 1a 00 50 52 45 41 44   ┆21 CIO A2,1,0 READ SECTOR    L & P RB(NA) READ21 LOOP UNTIL ACCEPTED   r   PREAD┆
0x6148…6198              32 32 5c 53 53 54 5c 41 32 2c 30 5c 53 54 41 54 55 53 00 8f 00 9c 00 26 00 50 5c 52 42 28 4e 41 29 5c 52 45 41 44 32 32 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 41 43 43 45 50 54 45 44 00 8f 00 ba 00 16 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 46 5c   ┆22 SST A2,0 STATUS     & P RB(NA) READ22 LOOP UNTIL ACCEPTED       P ANK A2,/1F ┆
0x6198…61e8              53 54 41 54 55 53 00 8f 00 e4 00 2a 00 50 5c 52 42 28 4e 5a 29 5c 52 44 53 45 43 32 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 43 4f 52 52 45 43 54 20 52 45 41 44 00 8f 00 fe 00 28 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 31 5c 49 4e 43 52 45 4d 45 4e   ┆STATUS     * P RB(NZ) RDSEC2 LOOP UNTIL CORRECT READ     ( P ADKL A11,1 INCREMEN┆
0x61e8…6238              54 20 53 45 43 54 4f 52 20 43 4f 55 4e 54 45 52 00 8f 01 2c 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 8f 01 58 00 0a 00 50 5c 45 4a 45 43 54 00 8f 01 68 00 06 00 50 2a 20 00 8f 01 76 00 22 00 50 2a 5c 52 45 41 44 20 44 49 53 43 20 53 45 43 54   ┆T SECTOR COUNTER   ,   P RTN A14   X   P EJECT   h   P*    v " P* READ DISC SECT┆
0x6238…6288 (64, 0, 400) 4f 52 20 56 45 52 53 49 4f 4e 20 41 33 20 00 8f 01 80 00 06 00 50 2a 20 00 90 00 16 00 10 00 50 52 44 53 45 43 33 5c 45 51 55 5c 2a 00 90 00 20 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 90 00 34 00 2a 00 50 5c 4c 44 52 5c 41 31 2c 41 31   ┆OR VERSION A3        P*        PRDSEC3 EQU *       P LDK A2,0    4 * P LDR A1,A1┆
0x6288…62d8              31 5c 47 45 54 20 4c 4f 47 49 43 41 4c 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 90 00 46 00 12 00 50 5c 4c 44 4b 4c 5c 41 37 2c 2f 31 30 30 30 00 90 00 74 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2f 33 30 30 30 00 90 00 8a 00 10 00 50   ┆1 GET LOGICAL SECTOR NUMBER    F   P LDKL A7,/1000   t   P LDKL A4,/3000       P┆
0x62d8…6328              44 49 56 33 30 30 5c 45 51 55 5c 2a 00 90 00 a0 00 0e 00 50 5c 53 55 52 5c 41 31 2c 41 34 00 90 00 b4 00 12 00 50 5c 52 46 28 4e 29 5c 44 49 56 33 31 30 20 00 90 00 c6 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 37 00 90 00 dc 00 0e 00 50 5c 52   ┆DIV300 EQU *       P SUR A1,A4       P RF(N) DIV310        P ADR A2,A7       P R┆
0x6328…6378              42 5c 44 49 56 33 30 30 00 90 00 ee 00 10 00 50 44 49 56 33 31 30 5c 45 51 55 5c 2a 00 90 01 00 00 1e 00 50 5c 41 44 52 5c 41 31 2c 41 34 5c 41 44 4a 55 53 54 20 44 49 56 49 44 45 4e 44 00 90 01 14 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 34 20   ┆B DIV300       PDIV310 EQU *       P ADR A1,A4 ADJUST DIVIDEND       P SRL A4,4 ┆
0x6378…63c8              00 90 01 36 00 0e 00 50 5c 53 52 4c 5c 41 37 2c 34 20 00 90 01 48 00 12 00 50 5c 52 42 28 4e 5a 29 5c 44 49 56 33 30 30 00 90 01 5a 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 32 00 90 01 70 00 06 00 50 2a 20 00 90 01 82 00 0e 00 50 5c 53 55 4b   ┆   6   P SRL A7,4    H   P RB(NZ) DIV300   Z   P ADR A2,A2   p   P*        P SUK┆
0x63c8…6418 (65, 0, 398) 5c 41 31 2c 31 20 00 90 01 8c 00 12 00 50 5c 53 54 5c 41 31 2c 53 41 56 4d 45 4d 20 00 91 00 0e 00 36 00 50 5c 52 46 28 4e 50 29 5c 43 41 53 45 31 30 5c 2c 58 58 58 58 20 20 2c 20 20 20 20 20 20 2c 20 4f 52 20 2c 20 20 20 20 58 58 2c 58 58   ┆ A1,1        P ST A1,SAVMEM      6 P RF(NP) CASE10 ,XXXX  ,      , OR ,    XX,XX┆
0x6418…6468              20 20 20 20 2c 20 00 91 00 24 00 1e 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 2c 20 20 20 20 20 20 2c 20 20 58 58 58 58 2c 20 00 91 00 5e 00 10 00 50 43 41 53 45 31 30 5c 45 51 55 5c 2a 00 91 00 80 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 91   ┆    ,    $   P ADK A2,1 ,      ,  XXXX,    ^   PCASE10 EQU *       P LDR A4,A2  ┆
0x6468…64b8              00 94 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 35 20 00 91 00 a6 00 12 00 50 5c 43 57 5c 41 34 2c 43 59 4c 4e 42 52 20 00 91 00 b8 00 12 00 50 5c 52 46 28 45 29 5c 49 4e 54 33 30 30 20 00 91 00 ce 00 2c 00 50 5c 53 54 5c 41 34 2c 43 59 4c 4e 42   ┆     P SRL A4,5        P CW A4,CYLNBR        P RF(E) INT300      , P ST A4,CYLNB┆
0x64b8…6508              52 5c 53 54 4f 52 45 20 4e 45 57 20 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 20 00 91 00 e4 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 33 20 00 91 01 14 00 18 00 50 5c 4f 52 4b 5c 41 34 2c 32 5c 53 45 54 20 42 49 54 20 31 34 00 91 01 26 00 0a   ┆R STORE NEW CYLINDER NUMBER        P SLL A4,3        P ORK A4,2 SET BIT 14   &  ┆
0x6508…6556              00 50 5c 45 4a 45 43 54 00 91 01 42 00 06 00 50 2a 20 00 91 01 50 00 14 00 50 2a 5c 53 45 45 4b 20 43 59 4c 49 4e 44 45 52 20 00 91 01 5a 00 06 00 50 2a 20 00 91 01 72 00 16 00 50 53 45 45 4b 33 30 5c 43 49 4f 5c 41 34 2c 31 2c 30 20         ┆ P EJECT   B   P*    P   P* SEEK CYLINDER    Z   P*    r   PSEEK30 CIO A4,1,0 ┆
0x6556…65a6 (66, 0, 400) 00 91 01 7c 00 12 00 50 5c 52 42 28 4e 41 29 5c 53 45 45 4b 33 30 00 92 00 08 00 06 00 50 2a 20 00 92 00 1e 00 1e 00 50 53 45 45 4b 33 31 5c 53 53 54 5c 41 34 2c 30 5c 47 45 54 20 53 54 41 54 55 53 00 92 00 28 00 12 00 50 5c 52 42 28 4e 41   ┆   |   P RB(NA) SEEK30       P*        PSEEK31 SST A4,0 GET STATUS   (   P RB(NA┆
0x65a6…65f6              29 5c 53 45 45 4b 33 31 00 92 00 4a 00 06 00 50 2a 20 00 92 00 60 00 12 00 50 2a 5c 49 4e 54 45 52 4c 41 43 49 4e 47 20 00 92 00 6a 00 06 00 50 2a 20 00 92 00 80 00 10 00 50 49 4e 54 33 30 30 5c 45 51 55 5c 2a 00 92 00 8a 00 0e 00 50 5c 4c   ┆) SEEK31   J   P*    `   P* INTERLACING    j   P*        PINT300 EQU *       P L┆
0x65f6…6646              44 52 5c 41 33 2c 41 32 00 92 00 9e 00 0e 00 50 5c 41 44 52 5c 41 32 2c 41 32 00 92 00 b0 00 24 00 50 5c 41 44 52 5c 41 32 2c 41 33 5c 49 4e 54 45 52 4c 41 43 49 4e 47 20 46 41 43 54 4f 52 20 33 20 00 92 00 c2 00 10 00 50 5c 41 4e 4b 5c 41   ┆DR A3,A2       P ADR A2,A2     $ P ADR A2,A3 INTERLACING FACTOR 3        P ANK A┆
0x6646…6696              32 2c 2f 31 46 20 00 92 00 ea 00 26 00 50 5c 4c 44 5c 41 34 2c 43 59 4c 4e 42 52 5c 47 45 54 20 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 20 00 92 00 fe 00 0e 00 50 5c 41 4e 4b 5c 41 34 2c 31 20 00 92 01 28 00 26 00 50 5c 52 46 28 5a 29   ┆2,/1F      & P LD A4,CYLNBR GET CYLINDER NUMBER        P ANK A4,1    ( & P RF(Z)┆
0x6696…66e6              5c 49 4e 54 33 31 30 5c 45 56 45 4e 20 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 00 92 01 3a 00 22 00 50 5c 41 44 4b 5c 41 32 2c 38 5c 53 4b 45 57 20 46 41 43 54 4f 52 20 31 38 30 20 44 45 47 2e 00 92 01 64 00 06 00 50 2a 20 00 92 01 8a   ┆ INT310 EVEN CYLINDER NUMBER   : " P ADK A2,8 SKEW FACTOR 180 DEG.   d   P*     ┆
0x66e6…6736 (67, 0, 400) 00 10 00 50 49 4e 54 33 31 30 5c 45 51 55 5c 2a 00 93 00 04 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 46 20 00 93 00 18 00 26 00 50 5c 53 4c 4c 5c 41 32 2c 32 5c 49 4e 54 45 52 4c 41 43 45 44 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 00 93   ┆   PINT310 EQU *       P ANK A2,/1F      & P SLL A2,2 INTERLACED SECTOR NUMBER  ┆
0x6736…6786              00 2c 00 2e 00 50 5c 53 54 5c 41 32 2c 53 45 43 4e 42 52 5c 53 54 4f 52 45 20 50 48 59 53 49 43 41 4c 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 00 93 00 56 00 0a 00 50 5c 45 4a 45 43 54 00 93 00 88 00 06 00 50 2a 20 00 93 00 96 00 12 00 50   ┆ , . P ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER   V   P EJECT       P*        P┆
0x6786…67d6              2a 5c 52 45 41 44 20 53 45 43 54 4f 52 20 00 93 00 a0 00 06 00 50 2a 20 00 93 00 b6 00 1e 00 50 5c 4c 44 52 5c 41 37 2c 41 39 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 93 00 c0 00 2a 00 50 52 45 41 44 33 34 5c 4c 44 4b 4c 5c 41 34   ┆* READ SECTOR        P*        P LDR A7,A9 BUFFER ADDRESS      * PREAD34 LDKL A4┆
0x67d6…6826              2c 4d 58 43 43 44 33 5c 4e 55 4d 42 45 52 20 4f 46 20 57 4f 52 44 53 20 00 93 00 e2 00 2c 00 50 57 45 52 49 4f 33 5c 57 45 52 5c 41 34 2c 2f 31 30 5c 57 52 49 54 45 20 4e 55 4d 42 45 52 20 4f 46 20 57 4f 52 44 53 20 00 93 01 10 00 24 00 50   ┆,MXCCD3 NUMBER OF WORDS      , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS      $ P┆
0x6826…6876              5c 57 45 52 5c 41 37 2c 2f 31 31 5c 57 52 49 54 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 93 01 40 00 06 00 50 2a 20 00 93 01 68 00 22 00 50 52 45 41 44 33 30 5c 43 49 4f 5c 41 32 2c 31 2c 30 5c 52 45 41 44 20 53 45 43 54 4f 52 20   ┆ WER A7,/11 WRITE BUFFER ADDRESS   @   P*    h " PREAD30 CIO A2,1,0 READ SECTOR ┆
0x6876…68c6 (68, 0, 400) 00 93 01 72 00 26 00 50 5c 52 42 28 4e 41 29 5c 52 45 41 44 33 30 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 41 43 43 45 50 54 45 44 00 94 00 08 00 06 00 50 2a 20 00 94 00 32 00 1e 00 50 52 45 41 44 33 31 5c 53 53 54 5c 41 32 2c 30 5c 47 45 54 20   ┆   r & P RB(NA) READ30 LOOP UNTIL ACCEPTED       P*    2   PREAD31 SST A2,0 GET ┆
0x68c6…6916              53 54 41 54 55 53 00 94 00 3c 00 26 00 50 5c 52 42 28 4e 41 29 5c 52 45 41 44 33 31 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 41 43 43 45 50 54 45 44 00 94 00 5e 00 16 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 46 5c 53 54 41 54 55 53 00 94 00 88 00 2a   ┆STATUS   < & P RB(NA) READ31 LOOP UNTIL ACCEPTED   ^   P ANK A2,/1F STATUS     *┆
0x6916…6966              00 50 5c 52 42 28 4e 5a 29 5c 52 44 53 45 43 33 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 43 4f 52 52 45 43 54 20 52 45 41 44 00 94 00 a2 00 1e 00 50 5c 4c 44 52 5c 41 32 2c 41 39 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 94 00 d0 00 0e   ┆ P RB(NZ) RDSEC3 LOOP UNTIL CORRECT READ       P LDR A2,A9 BUFFER ADDRESS       ┆
0x6966…69b6              00 50 5c 4c 44 52 5c 41 31 2c 41 31 00 94 00 f2 00 22 00 50 5c 52 46 28 4e 29 5c 52 45 54 55 52 4e 5c 2c 58 58 58 58 20 20 2c 20 20 20 20 20 20 2c 20 00 94 01 04 00 22 00 50 5c 52 46 28 50 29 5c 52 45 41 44 33 33 5c 2c 20 20 20 20 20 20 2c   ┆ P LDR A1,A1     " P RF(N) RETURN ,XXXX  ,      ,      " P RF(P) READ33 ,      ,┆
0x69b6…6a06              20 20 58 58 58 58 2c 20 00 94 01 2a 00 20 00 50 5c 41 44 4b 4c 5c 41 32 2c 32 35 36 5c 53 4f 55 52 43 45 20 50 4f 49 4e 54 45 52 20 00 94 01 50 00 26 00 50 5c 4c 44 4b 5c 41 34 2c 36 34 5c 4e 55 4d 42 45 52 20 4f 46 20 57 4f 52 44 53 20 54   ┆  XXXX,    *   P ADKL A2,256 SOURCE POINTER    P & P LDK A4,64 NUMBER OF WORDS T┆

Reduced view