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

⟦07a7858d3⟧

    Length: 26832 (0x68d0)
    Notes: pts_type(SC)
    Names: »DRKB01.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/DRKB01.SC« 

PTS(SC)

	IDENT DRKB01 	9.2DK 1 79-11-16  870105040920 

			=DK1, TIME OUT =2400 
			80-03-11 

* 
* 
******************************************* 
* 
*   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	X:F	NUMBER OF BYTES IN DECIMAL FORM
* 
*    TIME BEFORE TIME-OUT 
* 
TIME	EQU	2400	TIME OUT CONSTANT (FROM 300)	DK1
* 
	EJECT
* 
* 
****************************************
*    CONDITIONAL ASSEMBLY              *
****************************************
* 
*    TIME OUT FUNCTION MAY BE EXCLUDED BY 
*    SETTING X:A = 0. 
* 
X:A	EQU	0 
CTIMUT	EQU	X:A
* 
*    ECHO FUNCTION MAY BE EXCLUDED BY 
*    SETTING X:B = 0. 
* 
X:B	EQU	1 
CECHO	EQU	X:B 
* 
*    STANDARD READ MAY BE EXCLUDED BY 
*    SETTING X:C = 0. 
* 
X:C	EQU	1 
CSTAND	EQU	X:C
* 
*    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	X:D
* 
	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	X:E
**
**
*    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	X:G

* 
* 
*   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	X:J
* 
* 
*   MMU KEY TABLE SIZE
* 
* 
X:K	EQU	10
DVBKTB	EQU	X:K
* 
	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, 398)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB01  9.2DK 1 79-11-16  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e              Head {h00=0x001c, h01=0x0050, text=»   =DK1, TIME OUT =2400 «, t00=0x0000, t01=0x0042}
0x005e…0072              Head {h00=0x0010, h01=0x0050, text=»   80-03-11 «, t00=0x0000, t01=0x0062}
0x0072…007a              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0076}
0x007a…0084              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…008e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00c2              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0092}
0x00c2…00cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00f4              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00d0}
0x00f4…00fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0122              Head {h00=0x0020, h01=0x0050, text=»*   DRKB01 = DRIVER KEYBOARD«, t00=0x0000, t01=0x0102}
0x0122…012c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0192              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0162}
0x0192…019c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a6…01da              Head {h00=0x0030, h01=0x0050, text=»*    THIS DRIVER HANDLES INPUT FROM NUMERIC «, t00=0x0001, t01=0x001c}
0x01da…020c              Head {h00=0x002e, h01=0x0050, text=»*    AND ALPHANUMERIC KEYBOARDS PTS 6231, «, t00=0x0001, t01=0x0050}
0x020c…0238              Head {h00=0x0028, h01=0x0050, text=»*    6232, 6233, 6234, 6331,AND 6342«, t00=0x0001, t01=0x0082}
0x0238…0268              Head {h00=0x002c, h01=0x0050, text=»*    CONNECTED TO CPU VIA CHLT OR CHRT. «, t00=0x0001, t01=0x00ae}
0x0268…0272              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x0272…02a2              Head {h00=0x002c, h01=0x0050, text=»*    ONLY INPUT DATA FROM DEPRESSED KEYS«, t00=0x0001, t01=0x00e8}
0x02a2…02ca              Head {h00=0x0024, h01=0x0050, text=»*    ARE HANDLED BY THE DRIVER. «, t00=0x0001, t01=0x0118}
0x02ca…02d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d4…0308              Head {h00=0x0030, h01=0x0050, text=»*    AN ECHO-DEVICE CAN BE ATTACHED TO EVERY«, t00=0x0001, t01=0x014a}
0x0308…033c              Head {h00=0x0030, h01=0x0050, text=»*    KEYBOARD WHERE RECEIVED CHARACTERS ARE «, t00=0x0001, t01=0x017e}
0x033c…0350              Head {h00=0x0010, h01=0x0050, text=»*    ECHOED.«, t00=0x0002, t01=0x0022}
0x0350…035a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035a…038e              Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0040}
0x038e…0398              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x0398…03be              Head {h00=0x0022, h01=0x0050, text=»*    A C K B : ACTIVATION PART«, t00=0x0002, t01=0x007e}
0x03be…03c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03c8…03f0              Head {h00=0x0024, h01=0x0050, text=»*    I H K B : INTERRUPT HANDLER«, t00=0x0002, t01=0x00ae}
0x03f0…03fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d6}
0x03fa…041e              Head {h00=0x0020, h01=0x0050, text=»*    E C H O : ECHO HANDLER «, t00=0x0002, t01=0x00e0}
0x041e…0428              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0104}
0x0428…0450              Head {h00=0x0024, h01=0x0050, text=»*    R C K B : RECOVERY ROUTINE «, t00=0x0002, t01=0x010e}
0x0450…045a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045a…0468              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0140}
0x0468…0472              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014e}
0x0472…047c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047c…04ac              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0162}
0x04ac…04b6 (3, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b6…04d8              Head {h00=0x001e, h01=0x0050, text=»*    ORDER 01: BASIC READ «, t00=0x0003, t01=0x000e}
0x04d8…04fc              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 02: STANDARD READ«, t00=0x0003, t01=0x0030}
0x04fc…0520              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 03: NUMERIC READ «, t00=0x0003, t01=0x0054}
0x0520…054a              Head {h00=0x0026, h01=0x0050, text=»*    ORDER 04: RESET INPUT BUFFER «, t00=0x0003, t01=0x0078}
0x054a…0554              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0554…055e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x055e…0582              Head {h00=0x0020, h01=0x0050, text=»*    NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x00b6}
0x0582…058c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x058c…05b2              Head {h00=0x0022, h01=0x0050, text=»*    REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x00e4}
0x05b2…05dc              Head {h00=0x0026, h01=0x0050, text=»*             A2 : INPUT CHARACTER«, t00=0x0003, t01=0x010a}
0x05dc…0604              Head {h00=0x0024, h01=0x0050, text=»*             A3 : BUFFER INDEX «, t00=0x0003, t01=0x0134}
0x0604…062c              Head {h00=0x0024, h01=0x0050, text=»*             A4 : WORK REGISTER«, t00=0x0003, t01=0x015c}
0x062c…0652              Head {h00=0x0022, h01=0x0050, text=»*             A5 : STACK BASE «, t00=0x0003, t01=0x0184}
0x0652…0678              Head {h00=0x0022, h01=0x0050, text=»*             A6 : DWT-ADDRESS«, t00=0x0004, t01=0x001a}
0x0678…0698              Head {h00=0x001c, h01=0x0050, text=»*             A7 : ORDER«, t00=0x0004, t01=0x0040}
0x0698…06be              Head {h00=0x0022, h01=0x0050, text=»*             A8 : ECB-ADDRESS«, t00=0x0004, t01=0x0060}
0x06be…06c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0086}
0x06c8…06d6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0090}
0x06d6…06e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e0…06ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ea…0708              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0004, t01=0x00b2}
0x0708…0712              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d0}
0x0712…074a              Head {h00=0x0034, h01=0x0050, text=»*    KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD«, t00=0x0004, t01=0x00da}
0x074a…0788              Head {h00=0x003a, h01=0x0050, text=»*    IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ «, t00=0x0004, t01=0x0112}
0x0788…07b2              Head {h00=0x0026, h01=0x0050, text=»*    AND BIT 11 FOR NUMERIC READ. «, t00=0x0004, t01=0x0150}
0x07b2…07bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07bc…07ec              Head {h00=0x002c, h01=0x0050, text=»*    BIT 10 = 0 FOR PTS 6231, 6233, 6234«, t00=0x0004, t01=0x0184}
0x07ec…0820              Head {h00=0x0030, h01=0x0050, text=»*    BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 «, t00=0x0005, t01=0x0024}
0x0820…0860              Head {h00=0x003c, h01=0x0050, text=»*    BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 «, t00=0x0005, t01=0x0058}
0x0860…088a              Head {h00=0x0026, h01=0x0050, text=»*    BIT 11 = 1 FOR PTS 6234,6342 «, t00=0x0005, t01=0x0098}
0x088a…0894              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c2}
0x0894…08d0              Head {h00=0x0038, h01=0x0050, text=»*    CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0005, t01=0x00cc}
0x08d0…090c              Head {h00=0x0038, h01=0x0050, text=»*    MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0005, t01=0x0108}
0x090c…0920              Head {h00=0x0010, h01=0x0050, text=»*    IN DWT.«, t00=0x0005, t01=0x0144}
0x0920…092a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092a…0960              Head {h00=0x0032, h01=0x0050, text=»*    DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0005, t01=0x0162}
0x0960…097c              Head {h00=0x0018, h01=0x0050, text=»*    DEFINED IN DWT.«, t00=0x0006, t01=0x0008}
0x097c…0986              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0024}
0x0986…09b6              Head {h00=0x002c, h01=0x0050, text=»*    IF TIMING IS WANTED, TIMER POINTER «, t00=0x0006, t01=0x002e}
0x09b6…09e6              Head {h00=0x002c, h01=0x0050, text=»*    IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0006, t01=0x005e}
0x09e6…0a1c              Head {h00=0x0032, h01=0x0050, text=»*    STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0006, t01=0x008e}
0x0a1c…0a54              Head {h00=0x0034, h01=0x0050, text=»*    SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0006, t01=0x00c4}
0x0a54…0a82              Head {h00=0x002a, h01=0x0050, text=»*    IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0006, t01=0x00fc}
0x0a82…0aaa              Head {h00=0x0024, h01=0x0050, text=»*    IN DRIVER MUST BE CHANGED. «, t00=0x0006, t01=0x012a}
0x0aaa…0ab4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0152}
0x0ab4…0aec              Head {h00=0x0034, h01=0x0050, text=»*    THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0006, t01=0x015c}
0x0aec…0b28 (7, 0, 398)  Head {h00=0x0038, h01=0x0050, text=»*    DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0007, t01=0x0004}
0x0b28…0b64              Head {h00=0x0038, h01=0x0050, text=»*    NOTE !!!  THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0007, t01=0x0040}
0x0b64…0b80              Head {h00=0x0018, h01=0x0050, text=»*    DWT:S IN SYSTEM«, t00=0x0007, t01=0x007c}
0x0b80…0b8e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0098}
0x0b8e…0b98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a6}
0x0b98…0bd4              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0007, t01=0x00b0}
0x0bd4…0c10              Head {h00=0x0038, h01=0x0050, text=»*    TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0007, t01=0x00ec}
0x0c10…0c1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1a…0c3a              Head {h00=0x001c, h01=0x0050, text=»*    -----ECHO-FUNCTION «, t00=0x0007, t01=0x0132}
0x0c3a…0c5a              Head {h00=0x001c, h01=0x0050, text=»*    -----STANDARD READ «, t00=0x0007, t01=0x0152}
0x0c5a…0c7e              Head {h00=0x0020, h01=0x0050, text=»*    -----TIME-OUT-FUNCTION «, t00=0x0007, t01=0x0172}
0x0c7e…0cb4              Head {h00=0x0032, h01=0x0050, text=»*    -----CODE CONVERSION VIA "8-BIT" SETTING «, t00=0x0008, t01=0x0008}
0x0cb4…0cdc              Head {h00=0x0024, h01=0x0050, text=»*         AND CONVERSION TABLES «, t00=0x0008, t01=0x003e}
0x0cdc…0d14              Head {h00=0x0034, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO«, t00=0x0008, t01=0x0066}
0x0d14…0d4c              Head {h00=0x0034, h01=0x0050, text=»*    POSSIBLE TO GIVE A KEY THE MEANING OF TWO, «, t00=0x0008, t01=0x009e}
0x0d4c…0d6e              Head {h00=0x001e, h01=0x0050, text=»*    THREE OR MORE ZEROES.«, t00=0x0008, t01=0x00d6}
0x0d6e…0d78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d78…0db2              Head {h00=0x0036, h01=0x0050, text=»*    THE DRIVER IS PREPARED TO HANDLE THE SPECIAL «, t00=0x0008, t01=0x0102}
0x0db2…0de6              Head {h00=0x0030, h01=0x0050, text=»*    NORWAY-PROBLEM, WITH BETWEEN THEMSELVES«, t00=0x0008, t01=0x013c}
0x0de6…0e1c              Head {h00=0x0032, h01=0x0050, text=»*    DEPENDENT KEYBOARDS CONNECTED TO THE SAME«, t00=0x0008, t01=0x0170}
0x0e1c…0e38              Head {h00=0x0018, h01=0x0050, text=»*    SELECTOR UNIT. «, t00=0x0009, t01=0x0016}
0x0e38…0e70              Head {h00=0x0034, h01=0x0050, text=»*    BY ASSEMBLING THE DRIVER CONDITIONALLY THIS«, t00=0x0009, t01=0x0032}
0x0e70…0e92              Head {h00=0x001e, h01=0x0050, text=»*    FUNCTION IS INCLUDED.«, t00=0x0009, t01=0x006a}
0x0e92…0ea0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x008c}
0x0ea0…0eaa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eaa…0eb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb4…0eca              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x00ae}
0x0eca…0ee0              Head {h00=0x0012, h01=0x0050, text=»* ENTRIES    *«, t00=0x0009, t01=0x00c4}
0x0ee0…0ef6              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x00da}
0x0ef6…0f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f0}
0x0f00…0f22              Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD ADDRESS-BLOCK «, t00=0x0009, t01=0x00fa}
0x0f22…0f4e              Head {h00=0x0028, h01=0x0050, text=» ENTRY EOQUEU QUEUE POINTER ROUTINE «, t00=0x0009, t01=0x011c}
0x0f4e…0f7a              Head {h00=0x0028, h01=0x0050, text=» ENTRY DWTINQ,DWTUTQ QUEUE POINTERS «, t00=0x0009, t01=0x0148}
0x0f7a…0f84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0174}
0x0f84…0f8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017e}
0x0f8e…0f98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0188}
0x0f98…0fce (10, 0, 400) Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x000a, t01=0x0004}
0x0fce…1004              Head {h00=0x0032, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES            *«, t00=0x000a, t01=0x003a}
0x1004…103a              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x000a, t01=0x0070}
0x103a…1044              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x1044…106c              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/0 REQUEST ERROR «, t00=0x000a, t01=0x00b0}
0x106c…109e              Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x000a, t01=0x00d8}
0x109e…10bc              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x010a}
0x10bc…10e2              Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x0128}
0x10e2…1120              Head {h00=0x003a, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN «, t00=0x000a, t01=0x014e}
0x1120…115a              Head {h00=0x0036, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER «, t00=0x000a, t01=0x018c}
0x115a…118a              Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHO HANDLING «, t00=0x000b, t01=0x0036}
0x118a…11a0              Head {h00=0x0012, h01=0x0050, text=» EXTRN LDREGF «, t00=0x000b, t01=0x0066}
0x11a0…11be              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x000b, t01=0x007c}
0x11be…11dc              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x000b, t01=0x009a}
0x11dc…1202              Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x000b, t01=0x00b8}
0x1202…1228              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x000b, t01=0x00de}
0x1228…1248              Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x000b, t01=0x0104}
0x1248…126a              Head {h00=0x001e, h01=0x0050, text=» EXTRN ECHEND END OF ECHO «, t00=0x000b, t01=0x0124}
0x126a…1274              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x1274…1282              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0150}
0x1282…128c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x128c…12ae              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x0168}
0x12ae…12d0              Head {h00=0x001e, h01=0x0050, text=»*    DWT PARAMETERS     * «, t00=0x000b, t01=0x018a}
0x12d0…12f2              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000c, t01=0x001c}
0x12f2…12fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x12fc…1318              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000c, t01=0x0048}
0x1318…133a              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000c, t01=0x0064}
0x133a…1364              Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x000c, t01=0x0086}
0x1364…1386              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x000c, t01=0x00b0}
0x1386…13a8              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x000c, t01=0x00d2}
0x13a8…13ca              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x000c, t01=0x00f4}
0x13ca…13f4              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000c, t01=0x0116}
0x13f4…1416              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x000c, t01=0x0140}
0x1416…143a              Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x000c, t01=0x0162}
0x143a…1444              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x1444…145c              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0190}
0x145c…1474              Head {h00=0x0014, h01=0x0050, text=»*  CONSTANTS  * «, t00=0x000d, t01=0x0018}
0x1474…148c              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000d, t01=0x0030}
0x148c…1496              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x1496…14c4              Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000d, t01=0x0052}
0x14c4…14ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14ce…1500              Head {h00=0x002e, h01=0x0050, text=»X:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER «, t00=0x000d, t01=0x008a}
0x1500…1536              Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM«, t00=0x000d, t01=0x00bc}
0x1536…1540              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f2}
0x1540…1562              Head {h00=0x001e, h01=0x0050, text=»*    TIME BEFORE TIME-OUT «, t00=0x000d, t01=0x00fc}
0x1562…156c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x156c…15a2              Head {h00=0x0032, h01=0x0050, text=»TIME EQU 2400 TIME OUT CONSTANT (FROM 300) DK1«, t00=0x000d, t01=0x0128}
0x15a2…15ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x15ac…15ba              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0168}
0x15ba…15c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15c4…15ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0180}
0x15ce…15fe              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000d, t01=0x018a}
0x15fe…162e              Head {h00=0x002c, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY              *«, t00=0x000e, t01=0x002a}
0x162e…165e              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000e, t01=0x005a}
0x165e…1668              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008a}
0x1668…169a              Head {h00=0x002e, h01=0x0050, text=»*    TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0094}
0x169a…16b8              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:A = 0. «, t00=0x000e, t01=0x00c6}
0x16b8…16c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c2…16d4              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x00ee}
0x16d4…16ea              Head {h00=0x0012, h01=0x0050, text=»CTIMUT EQU X:A«, t00=0x000e, t01=0x0100}
0x16ea…16f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16f4…1722              Head {h00=0x002a, h01=0x0050, text=»*    ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0120}
0x1722…1740              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:B = 0. «, t00=0x000e, t01=0x014e}
0x1740…174a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016c}
0x174a…175c              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0176}
0x175c…1772              Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:B «, t00=0x000e, t01=0x0188}
0x1772…177c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000e}
0x177c…17aa              Head {h00=0x002a, h01=0x0050, text=»*    STANDARD READ MAY BE EXCLUDED BY «, t00=0x000f, t01=0x0018}
0x17aa…17c8              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:C = 0. «, t00=0x000f, t01=0x0046}
0x17c8…17d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17d2…17e4              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000f, t01=0x006e}
0x17e4…17fa              Head {h00=0x0012, h01=0x0050, text=»CSTAND EQU X:C«, t00=0x000f, t01=0x0080}
0x17fa…1804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x1804…1836              Head {h00=0x002e, h01=0x0050, text=»*    DOUBLE ZERO MAY BE INCLUDED IN SYSTEM«, t00=0x000f, t01=0x00a0}
0x1836…1862              Head {h00=0x0028, h01=0x0050, text=»*    BY SETTING X:D = 2. SETTING X:D«, t00=0x000f, t01=0x00d2}
0x1862…1892              Head {h00=0x002c, h01=0x0050, text=»*    = 3 GIVES A THREE ZERO FUNCTION AND«, t00=0x000f, t01=0x00fe}
0x1892…18ca              Head {h00=0x0034, h01=0x0050, text=»*    X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON «, t00=0x000f, t01=0x012e}
0x18ca…1902              Head {h00=0x0034, h01=0x0050, text=»*    X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION«, t00=0x000f, t01=0x0166}
0x1902…190c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x190c…191e              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x0010, t01=0x0018}
0x191e…1934              Head {h00=0x0012, h01=0x0050, text=»CMULTZ EQU X:D«, t00=0x0010, t01=0x002a}
0x1934…193e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0040}
0x193e…194c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x004a}
0x194c…1956              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0058}
0x1956…1992              Head {h00=0x0038, h01=0x0050, text=»*    BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION«, t00=0x0010, t01=0x0062}
0x1992…19be              Head {h00=0x0028, h01=0x0050, text=»*    CAN BE INCLUDED IN THE DRIVER. «, t00=0x0010, t01=0x009e}
0x19be…1a00              Head {h00=0x003e, h01=0x0050, text=»*    IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2«, t00=0x0010, t01=0x00ca}
0x1a00…1a44              Head {h00=0x0040, h01=0x0050, text=»*    SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG«, t00=0x0010, t01=0x010c}
0x1a44…1a8a              Head {h00=0x0042, h01=0x0050, text=»*    IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO «, t00=0x0010, t01=0x0150}
0x1a8a…1ac0              Head {h00=0x0032, h01=0x0050, text=»*    BE COMPLETED WITH CONTROL WORD SET TO -2.«, t00=0x0011, t01=0x0008}
0x1ac0…1aca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003e}
0x1aca…1adc              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0011, t01=0x0048}
0x1adc…1af2              Head {h00=0x0012, h01=0x0050, text=»POWOFF EQU X:E«, t00=0x0011, t01=0x005a}
0x1af2…1afc              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x0070}
0x1afc…1b06              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x007a}
0x1b06…1b3e              Head {h00=0x0034, h01=0x0050, text=»*    BY SETTING X:G TO 1 THE CODE CONVERSION VIA«, t00=0x0011, t01=0x0084}
0x1b3e…1b74              Head {h00=0x0032, h01=0x0050, text=»*    "8-BIT" SETTING AND CONVERSION TABLES IS «, t00=0x0011, t01=0x00bc}
0x1b74…1b98              Head {h00=0x0020, h01=0x0050, text=»*    INCLUDED IN THE DRIVER.«, t00=0x0011, t01=0x00f2}
0x1b98…1ba2              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x0116}
0x1ba2…1bb4              Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x0120}
0x1bb4…1bca              Head {h00=0x0012, h01=0x0050, text=»CONVER EQU X:G«, t00=0x0011, t01=0x0132}
0x1bca…1bd2              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0148}
0x1bd2…1bdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1bdc…1be6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1be6…1c22              Head {h00=0x0038, h01=0x0050, text=»*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0011, t01=0x0164}
0x1c22…1c44              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING CREDIT = 1 «, t00=0x0012, t01=0x0010}
0x1c44…1c78              Head {h00=0x0030, h01=0x0050, text=»*   ORDER /04 IS THEN REPLACED BY ORDER /31 «, t00=0x0012, t01=0x0032}
0x1c78…1cb8              Head {h00=0x003c, h01=0x0050, text=»*    BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS «, t00=0x0012, t01=0x0066}
0x1cb8…1cfe              Head {h00=0x0042, h01=0x0050, text=»*     IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE «, t00=0x0012, t01=0x00a6}
0x1cfe…1d42              Head {h00=0x0040, h01=0x0050, text=»*    IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 «, t00=0x0012, t01=0x00ec}
0x1d42…1d72              Head {h00=0x002c, h01=0x0050, text=»*    AND SO ON.   (INDEX= 1,2,3,4,... ) «, t00=0x0012, t01=0x0130}
0x1d72…1dae              Head {h00=0x0038, h01=0x0050, text=»*    CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2«, t00=0x0012, t01=0x0160}
0x1dae…1db8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000c}
0x1db8…1dc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc2…1dca              Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0020}
0x1dca…1dde              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0013, t01=0x0028}
0x1dde…1de8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1de8…1e20              Head {h00=0x0034, h01=0x0050, text=»*    BY SETTING NOLJE=1 THIS DRIVER IS PREPARED «, t00=0x0013, t01=0x0046}
0x1e20…1e54              Head {h00=0x0030, h01=0x0050, text=»*    TO HANDLE THE NORWAY-CASE WITH BETWEEN «, t00=0x0013, t01=0x007e}
0x1e54…1e86              Head {h00=0x002e, h01=0x0050, text=»*    THEMSELVES DEPENDENT KEYBOARDS ON THE«, t00=0x0013, t01=0x00b2}
0x1e86…1ea6              Head {h00=0x001c, h01=0x0050, text=»*    SAME SELECTOR UNIT.«, t00=0x0013, t01=0x00e4}
0x1ea6…1eb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb0…1ec4              Head {h00=0x0010, h01=0x0050, text=»NOLJE EQU 0 «, t00=0x0013, t01=0x010e}
0x1ec4…1ece              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ece…1f00              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0013, t01=0x012c}
0x1f00…1f2e              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0013, t01=0x015e}
0x1f2e…1f38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018c}
0x1f38…1f4c              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0014, t01=0x0008}
0x1f4c…1f56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001c}
0x1f56…1f60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x1f60…1f9a              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0014, t01=0x0030}
0x1f9a…1fcc              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0014, t01=0x006a}
0x1fcc…1fd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009c}
0x1fd6…1fea              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0014, t01=0x00a6}
0x1fea…1ff4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ba}
0x1ff4…1ffe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c4}
0x1ffe…201a              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0014, t01=0x00ce}
0x201a…2024              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ea}
0x2024…202e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f4}
0x202e…2040              Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x0014, t01=0x00fe}
0x2040…2056              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:J«, t00=0x0014, t01=0x0110}
0x2056…2060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0126}
0x2060…206a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0130}
0x206a…2088              Head {h00=0x001a, h01=0x0050, text=»*   MMU KEY TABLE SIZE«, t00=0x0014, t01=0x013a}
0x2088…2092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x2092…209c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0162}
0x209c…20ae              Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x0014, t01=0x016c}
0x20ae…20c4              Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:K«, t00=0x0014, t01=0x017e}
0x20c4…20ce (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20ce…20dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x000e}
0x20dc…20e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001c}
0x20e6…20f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0026}
0x20f0…2114              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0015, t01=0x0030}
0x2114…2138              Head {h00=0x0020, h01=0x0050, text=»*    DWT-DISPLACEMENT     * «, t00=0x0015, t01=0x0054}
0x2138…215c              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0015, t01=0x0078}
0x215c…2166              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009c}
0x2166…2170              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a6}
0x2170…21a4              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0015, t01=0x00b0}
0x21a4…21ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e4}
0x21ae…21c4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x00ee}
0x21c4…21dc              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0015, t01=0x0104}
0x21dc…21e8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x011c}
0x21e8…21f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0128}
0x21f2…2208              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x0132}
0x2208…2222              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0015, t01=0x0148}
0x2222…222e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0162}
0x222e…2238              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016e}
0x2238…2266              Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x0015, t01=0x0178}
0x2266…22a2              Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0016, t01=0x0016}
0x22a2…22de              Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0016, t01=0x0052}
0x22de…2308              Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0016, t01=0x008e}
0x2308…2334              Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0016, t01=0x00b8}
0x2334…233e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e4}
0x233e…2370              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x00ee}
0x2370…23a2              Head {h00=0x002e, h01=0x0050, text=»*    SPECIAL KEYS DEFINED IN DWT        * «, t00=0x0016, t01=0x0120}
0x23a2…23d4              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x0152}
0x23d4…23de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0184}
0x23de…240e              Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0016, t01=0x018e}
0x240e…243a              Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0017, t01=0x002e}
0x243a…2464              Head {h00=0x0026, h01=0x0050, text=»KBEOF EQU START+/16 EOR-CHARACTER «, t00=0x0017, t01=0x005a}
0x2464…2494              Head {h00=0x002c, h01=0x0050, text=»KBMZ EQU START+/17 DOUBLE ZERO CHARACTER«, t00=0x0017, t01=0x0084}
0x2494…249e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b4}
0x249e…24ac              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00be}
0x24ac…24b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00cc}
0x24b6…24c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d6}
0x24c0…24d6              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x00e0}
0x24d6…24ec              Head {h00=0x0012, h01=0x0050, text=»* TABLES     *«, t00=0x0017, t01=0x00f6}
0x24ec…2502              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x010c}
0x2502…250c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0122}
0x250c…2530              Head {h00=0x0020, h01=0x0050, text=» DATA DVBKTB KEY TABLE SIZE «, t00=0x0017, t01=0x012c}
0x2530…2554              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0017, t01=0x0150}
0x2554…2570              Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0017, t01=0x0174}
0x2570…2582              Head {h00=0x000e, h01=0x0050, text=»KBAD EQU *«, t00=0x0017, t01=0x0190}
0x2582…25a6              Head {h00=0x0020, h01=0x0050, text=» DATA ACKB ACTIVATION DRIVER«, t00=0x0018, t01=0x0012}
0x25a6…25cc              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0018, t01=0x0036}
0x25cc…25f0              Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0018, t01=0x005c}
0x25f0…25fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0080}
0x25fa…2610              Head {h00=0x0012, h01=0x0050, text=» IFF POWOFF=1 «, t00=0x0018, t01=0x008a}
0x2610…261a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a0}
0x261a…2636              Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0018, t01=0x00aa}
0x2636…2640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2640…264c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00d0}
0x264c…2656              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x2656…2660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e6}
0x2660…2676              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0018, t01=0x00f0}
0x2676…2680              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0106}
0x2680…26a4              Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0018, t01=0x0110}
0x26a4…26b2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0134}
0x26b2…26bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0142}
0x26bc…26c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014c}
0x26c6…26da              Head {h00=0x0010, h01=0x0050, text=»*    R C K B«, t00=0x0018, t01=0x0156}
0x26da…26e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016a}
0x26e4…271a              Head {h00=0x0032, h01=0x0050, text=»*    THIS IS THE RECOVERY ROUTINE FOR KEYBOARD«, t00=0x0018, t01=0x0174}
0x271a…2744              Head {h00=0x0026, h01=0x0050, text=»*    ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0019, t01=0x001a}
0x2744…274e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0044}
0x274e…2760              Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0019, t01=0x004e}
0x2760…2776              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0060}
0x2776…27a0              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0019, t01=0x0076}
0x27a0…27ac              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00a0}
0x27ac…27b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ac}
0x27b6…27cc              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x00b6}
0x27cc…27e2              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x00cc}
0x27e2…2808              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0019, t01=0x00e2}
0x2808…2814              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0108}
0x2814…281e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0114}
0x281e…2834              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x011e}
0x2834…2852              Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY ?«, t00=0x0019, t01=0x0134}
0x2852…2868              Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0019, t01=0x0152}
0x2868…287e              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0019, t01=0x0168}
0x287e…28b2              Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF OCCURED «, t00=0x0019, t01=0x017e}
0x28b2…28c4              Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x001a, t01=0x0022}
0x28c4…28ee              Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x001a, t01=0x0034}
0x28ee…2900              Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x001a, t01=0x005e}
0x2900…290a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0070}
0x290a…2916              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x007a}
0x2916…2920              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0086}
0x2920…292e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0090}
0x292e…2938              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x2938…2942              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a8}
0x2942…2956              Head {h00=0x0010, h01=0x0050, text=»*    A C K B«, t00=0x001a, t01=0x00b2}
0x2956…2960              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c6}
0x2960…297e              Head {h00=0x001a, h01=0x0050, text=»*    ACTIVATION PART: «, t00=0x001a, t01=0x00d0}
0x297e…2988              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ee}
0x2988…29bc              Head {h00=0x0030, h01=0x0050, text=»*    CHECKS VALIDITY OF ORDERS AND EXAMINES «, t00=0x001a, t01=0x00f8}
0x29bc…29ec              Head {h00=0x002c, h01=0x0050, text=»*    INPUT BUFFER TO SEE IF SOME QUEUED «, t00=0x001a, t01=0x012c}
0x29ec…2a04              Head {h00=0x0014, h01=0x0050, text=»*    TO THREAT. «, t00=0x001a, t01=0x015c}
0x2a04…2a0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0174}
0x2a0e…2a18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017e}
0x2a18…2a2a              Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x001a, t01=0x0188}
0x2a2a…2a40              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x001b, t01=0x000a}
0x2a40…2a76              Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG«, t00=0x001b, t01=0x0020}
0x2a76…2a88              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001b, t01=0x0056}
0x2a88…2aac              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x001b, t01=0x0068}
0x2aac…2abe              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001b, t01=0x008c}
0x2abe…2ae4              Head {h00=0x0022, h01=0x0050, text=» RF(NG) AKB100 ILLEGEAL ORDER «, t00=0x001b, t01=0x009e}
0x2ae4…2af8              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001b, t01=0x00c4}
0x2af8…2b1c              Head {h00=0x0020, h01=0x0050, text=» CWK A7,/37 SELECT KEYBOARD «, t00=0x001b, t01=0x00d8}
0x2b1c…2b32              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBSEL «, t00=0x001b, t01=0x00fc}
0x2b32…2b3e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0112}
0x2b3e…2b54              Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=0 «, t00=0x001b, t01=0x011e}
0x2b54…2b66              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001b, t01=0x0134}
0x2b66…2b96              Head {h00=0x002c, h01=0x0050, text=» RF(Z) AKB100 STANDARD READ NOT ALLOWED «, t00=0x001b, t01=0x0146}
0x2b96…2ba8              Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x001b, t01=0x0176}
0x2ba8…2bb4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0188}
0x2bb4…2bbc (28, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0004}
0x2bbc…2bce              Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x001c, t01=0x000c}
0x2bce…2bd6              Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x001e}
0x2bd6…2bec              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x001c, t01=0x0026}
0x2bec…2c00              Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x001c, t01=0x003c}
0x2c00…2c28              Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRE:10 SKIP INPUT BUFFER «, t00=0x001c, t01=0x0050}
0x2c28…2c3c              Head {h00=0x0010, h01=0x0050, text=» ADK A4,/2D «, t00=0x001c, t01=0x0078}
0x2c3c…2c50              Head {h00=0x0010, h01=0x0050, text=»CRE:10 EQU *«, t00=0x001c, t01=0x008c}
0x2c50…2c5c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00a0}
0x2c5c…2c7a              Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 4 «, t00=0x001c, t01=0x00ac}
0x2c7a…2c9e              Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x001c, t01=0x00ca}
0x2c9e…2ccc              Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/O REQUEST ERROR«, t00=0x001c, t01=0x00ee}
0x2ccc…2ce0              Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001c, t01=0x011c}
0x2ce0…2cee              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0130}
0x2cee…2cf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013e}
0x2cf8…2d02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d02…2d2a              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 4 RESET INPUT BUFFER «, t00=0x001c, t01=0x0152}
0x2d2a…2d34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017a}
0x2d34…2d5a              Head {h00=0x0022, h01=0x0050, text=»AKB110 LD A2,DWTINQ,A6 ORDER 4«, t00=0x001c, t01=0x0184}
0x2d5a…2d86              Head {h00=0x0028, h01=0x0050, text=» SCR A1,A2 RESET OVERFLOW IF OCCURED«, t00=0x001d, t01=0x001a}
0x2d86…2db2              Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x001d, t01=0x0046}
0x2db2…2dce              Head {h00=0x0018, h01=0x0050, text=» ABL ENDI05 END I/O «, t00=0x001d, t01=0x0072}
0x2dce…2de2              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001d, t01=0x008e}
0x2de2…2dec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a2}
0x2dec…2df6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ac}
0x2df6…2e1c              Head {h00=0x0022, h01=0x0050, text=»*    ORDER 37  SELECT KEYBOARD«, t00=0x001d, t01=0x00b6}
0x2e1c…2e26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00dc}
0x2e26…2e42              Head {h00=0x0018, h01=0x0050, text=»AKBSEL LDKL A2,/FF7F«, t00=0x001d, t01=0x00e6}
0x2e42…2e70              Head {h00=0x002a, h01=0x0050, text=» ANRS A2,A6 RESET ALLOW BITS IN DWTCHP«, t00=0x001d, t01=0x0102}
0x2e70…2e84              Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001d, t01=0x0130}
0x2e84…2e90              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0144}
0x2e90…2e9e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0150}
0x2e9e…2ea8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015e}
0x2ea8…2eb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0168}
0x2eb2…2ece              Head {h00=0x0018, h01=0x0050, text=»*    ORDER 1   2   3«, t00=0x001d, t01=0x0172}
0x2ece…2ed8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018e}
0x2ed8…2ee2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0008}
0x2ee2…2ef6              Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x001e, t01=0x0012}
0x2ef6…2f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f00…2f16              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001e, t01=0x0030}
0x2f16…2f20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0046}
0x2f20…2f38              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x001e, t01=0x0050}
0x2f38…2f5a              Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/200 POWER OFF ? «, t00=0x001e, t01=0x0068}
0x2f5a…2f70              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x001e, t01=0x008a}
0x2f70…2f92              Head {h00=0x001e, h01=0x0050, text=» XRS A2,DWTST,A6 RESET BIT«, t00=0x001e, t01=0x00a0}
0x2f92…2f9e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00c2}
0x2f9e…2fb2              Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x001e, t01=0x00ce}
0x2fb2…2fd0              Head {h00=0x001a, h01=0x0050, text=» IFT CREDIT-POWOFF=-1 «, t00=0x001e, t01=0x00e2}
0x2fd0…2ff6              Head {h00=0x0022, h01=0x0050, text=» LDKL A1,-2 INDICATE POWER ON «, t00=0x001e, t01=0x0100}
0x2ff6…300a              Head {h00=0x0010, h01=0x0050, text=» ST A1,10,A8«, t00=0x001e, t01=0x0126}
0x300a…3016              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x013a}
0x3016…3032              Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+POWOFF=2«, t00=0x001e, t01=0x0146}
0x3032…3056              Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER ON «, t00=0x001e, t01=0x0162}
0x3056…3062              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0186}
0x3062…3078 (31, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001f, t01=0x0004}
0x3078…308c              Head {h00=0x0010, h01=0x0050, text=» ABL AKB380 «, t00=0x001f, t01=0x001a}
0x308c…3096              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002e}
0x3096…30a2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0038}
0x30a2…30ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0044}
0x30ac…30c0              Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x001f, t01=0x004e}
0x30c0…30ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0062}
0x30ca…30e0              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001f, t01=0x006c}
0x30e0…30ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0082}
0x30ea…30fe              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x001f, t01=0x008c}
0x30fe…311a              Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING ?«, t00=0x001f, t01=0x00a0}
0x311a…314a              Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE «, t00=0x001f, t01=0x00bc}
0x314a…3162              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x001f, t01=0x00ec}
0x3162…3178              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x001f, t01=0x0104}
0x3178…318e              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x001f, t01=0x011a}
0x318e…31a6              Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x001f, t01=0x0130}
0x31a6…31b8              Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001f, t01=0x0148}
0x31b8…31cc              Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001f, t01=0x015a}
0x31cc…31f0              Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x001f, t01=0x016e}
0x31f0…3212 (32, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x0020, t01=0x0004}
0x3212…3224              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0020, t01=0x0026}
0x3224…3244              Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x0020, t01=0x0038}
0x3244…3278              Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0020, t01=0x0058}
0x3278…32aa              Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0020, t01=0x008c}
0x32aa…32b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00be}
0x32b4…32c0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00c8}
0x32c0…32ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d4}
0x32ca…32f4              Head {h00=0x0026, h01=0x0050, text=»AKB210 LD A2,4,A8 REQUESTED LENGTH«, t00=0x0020, t01=0x00de}
0x32f4…3324              Head {h00=0x002c, h01=0x0050, text=»AKB220 RF(E) AKB380 RESET A1 AND END I/O«, t00=0x0020, t01=0x0108}
0x3324…3344              Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 FIRST TIME ? «, t00=0x0020, t01=0x0138}
0x3344…335e              Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 NO «, t00=0x0020, t01=0x0158}
0x335e…3380              Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x0020, t01=0x0172}
0x3380…3392 (33, 0, 398) Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0021, t01=0x0004}
0x3392…33b6              Head {h00=0x0020, h01=0x0050, text=» ADR A1,A2 ADDRESS IN BUFFER«, t00=0x0021, t01=0x0016}
0x33b6…33de              Head {h00=0x0024, h01=0x0050, text=»AKB230 SCR A3,A1 STORE CHARACTER«, t00=0x0021, t01=0x003a}
0x33de…3404              Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 NEXT CHAR. POSITION «, t00=0x0021, t01=0x0062}
0x3404…341c              Head {h00=0x0014, h01=0x0050, text=» SUK A2,1 LAST ?«, t00=0x0021, t01=0x0088}
0x341c…3436              Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB230 NO «, t00=0x0021, t01=0x00a0}
0x3436…3444              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00ba}
0x3444…344e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c8}
0x344e…347e              Head {h00=0x002c, h01=0x0050, text=»*    READ CHARACTER FROM INPUT BUFFER OR«, t00=0x0021, t01=0x00d2}
0x347e…34a8              Head {h00=0x0026, h01=0x0050, text=»*    WAIT FOR KEY-BOARD INTERRUPT «, t00=0x0021, t01=0x0102}
0x34a8…34b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012c}
0x34b2…34c6              Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x0021, t01=0x0136}
0x34c6…34de              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x0021, t01=0x014a}
0x34de…34fc              Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0021, t01=0x0162}
0x34fc…350e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0180}
0x350e…352c (34, 0, 400) Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x0022, t01=0x0004}
0x352c…3542              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB250«, t00=0x0022, t01=0x0022}
0x3542…3568              Head {h00=0x0022, h01=0x0050, text=» SCR A4,A1 RESET OVERFLOW MARK«, t00=0x0022, t01=0x0038}
0x3568…358c              Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x0022, t01=0x005e}
0x358c…359e              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x0082}
0x359e…35d0              Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x0022, t01=0x0094}
0x35d0…35e6              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB260«, t00=0x0022, t01=0x00c6}
0x35e6…360c              Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x0022, t01=0x00dc}
0x360c…3622              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0022, t01=0x0102}
0x3622…3650              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x0022, t01=0x0118}
0x3650…3672              Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB270 NO TIME-OUT «, t00=0x0022, t01=0x0146}
0x3672…3698              Head {h00=0x0022, h01=0x0050, text=» RF ENDI05 END I/O AT TIME OUT«, t00=0x0022, t01=0x0168}
0x3698…36a4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x018e}
0x36a4…36ba              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x0023, t01=0x000a}
0x36ba…36cc              Head {h00=0x000e, h01=0x0050, text=» RF AKB270«, t00=0x0023, t01=0x0020}
0x36cc…36d8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0032}
0x36d8…370c              Head {h00=0x0030, h01=0x0050, text=»AKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER «, t00=0x0023, t01=0x003e}
0x370c…3736              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x0023, t01=0x0072}
0x3736…374e              Head {h00=0x0014, h01=0x0050, text=»AKB270 LDR A4,A7«, t00=0x0023, t01=0x009c}
0x374e…3760              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0023, t01=0x00b4}
0x3760…3784              Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x0023, t01=0x00c6}
0x3784…3792              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00ea}
0x3792…379c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f8}
0x379c…37a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0102}
0x37a6…37c6              Head {h00=0x001c, h01=0x0050, text=»*    ORDER 1  BASIC READ«, t00=0x0023, t01=0x010c}
0x37c6…37d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x012c}
0x37d0…3804              Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0023, t01=0x0136}
0x3804…3818              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0023, t01=0x016a}
0x3818…3844              Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHO ECHO INPUTTED CHARACTER «, t00=0x0023, t01=0x017e}
0x3844…3850              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x001a}
0x3850…3884              Head {h00=0x0030, h01=0x0050, text=» CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? «, t00=0x0024, t01=0x0026}
0x3884…3896              Head {h00=0x000e, h01=0x0050, text=» RB AKB220«, t00=0x0024, t01=0x005a}
0x3896…38a4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x006c}
0x38a4…38ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007a}
0x38ae…38b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0084}
0x38b8…38ee              Head {h00=0x0032, h01=0x0050, text=»*    ORDER 2 OR 3   STANDARD AND NUMERIC READ «, t00=0x0024, t01=0x008e}
0x38ee…38f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c4}
0x38f8…3932              Head {h00=0x0036, h01=0x0050, text=»*    CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE«, t00=0x0024, t01=0x00ce}
0x3932…393c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0108}
0x393c…3946              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0112}
0x3946…3972              Head {h00=0x0028, h01=0x0050, text=»AKB310 LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x0024, t01=0x011c}
0x3972…3994              Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB359 NO KEYTABLE «, t00=0x0024, t01=0x0148}
0x3994…39ba              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x0024, t01=0x016a}
0x39ba…39ce              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0024, t01=0x0190}
0x39ce…39f8              Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x0025, t01=0x0014}
0x39f8…3a0a              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0025, t01=0x003e}
0x3a0a…3a22              Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0025, t01=0x0050}
0x3a22…3a52              Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0025, t01=0x0068}
0x3a52…3a6c              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0025, t01=0x0098}
0x3a6c…3a8e              Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER? «, t00=0x0025, t01=0x00b2}
0x3a8e…3aa8              Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO «, t00=0x0025, t01=0x00d4}
0x3aa8…3abe              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0025, t01=0x00ee}
0x3abe…3ae2              Head {h00=0x0020, h01=0x0050, text=» ADR A4,A4 YES DOUBLE INDEX «, t00=0x0025, t01=0x0104}
0x3ae2…3aee              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0128}
0x3aee…3b04              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0025, t01=0x0134}
0x3b04…3b30              Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDEX STARTS AT ONE,INCR=1«, t00=0x0025, t01=0x014a}
0x3b30…3b3c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0176}
0x3b3c…3b6c              Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROLWORD «, t00=0x0025, t01=0x0182}
0x3b6c…3b98              Head {h00=0x0028, h01=0x0050, text=»AKB358 CF A15,STORE STORE CHARACTER «, t00=0x0026, t01=0x0022}
0x3b98…3baa              Head {h00=0x000e, h01=0x0050, text=» RF AKB370«, t00=0x0026, t01=0x004e}
0x3baa…3bb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0060}
0x3bb4…3bbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006a}
0x3bbe…3bf6              Head {h00=0x0034, h01=0x0050, text=»AKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY«, t00=0x0026, t01=0x0074}
0x3bf6…3c10              Head {h00=0x0016, h01=0x0050, text=» RB(E) AKB358 YES «, t00=0x0026, t01=0x00ac}
0x3c10…3c1e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00c6}
0x3c1e…3c28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d4}
0x3c28…3c56              Head {h00=0x002a, h01=0x0050, text=»*    CHARACTER NOT FOUND IN KEY-TABLE.«, t00=0x0026, t01=0x00de}
0x3c56…3c78              Head {h00=0x001e, h01=0x0050, text=»*    CHECK CHARACTER CODE.«, t00=0x0026, t01=0x010c}
0x3c78…3c82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012e}
0x3c82…3c96              Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0026, t01=0x0138}
0x3c96…3cba              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0026, t01=0x014c}
0x3cba…3ce4              Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x0026, t01=0x0170}
0x3ce4…3d06              Head {h00=0x001e, h01=0x0050, text=» ANK A4,/20 SHIFT BIT 9 ? «, t00=0x0027, t01=0x000a}
0x3d06…3d20              Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB361 YES «, t00=0x0027, t01=0x002c}
0x3d20…3d3c              Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0027, t01=0x0046}
0x3d3c…3d4e              Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x0062}
0x3d4e…3d62              Head {h00=0x0010, h01=0x0050, text=»AKB361 EQU *«, t00=0x0027, t01=0x0074}
0x3d62…3d76              Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A6 «, t00=0x0027, t01=0x0088}
0x3d76…3d94              Head {h00=0x001a, h01=0x0050, text=» ANK A4,/10 PTS 6234 ?«, t00=0x0027, t01=0x009c}
0x3d94…3daa              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB362 «, t00=0x0027, t01=0x00ba}
0x3daa…3dbc              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x00d0}
0x3dbc…3dd0              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0027, t01=0x00e2}
0x3dd0…3de6              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB362«, t00=0x0027, t01=0x00f6}
0x3de6…3df8              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x010c}
0x3df8…3e0a              Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x011e}
0x3e0a…3e1e              Head {h00=0x0010, h01=0x0050, text=»AKB362 EQU *«, t00=0x0027, t01=0x0130}
0x3e1e…3e3a              Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0027, t01=0x0144}
0x3e3a…3e5a              Head {h00=0x001c, h01=0x0050, text=» ANK A4,/BF RESET BIT 9 «, t00=0x0027, t01=0x0160}
0x3e5a…3e6e              Head {h00=0x0010, h01=0x0050, text=»AKB363 EQU *«, t00=0x0027, t01=0x0180}
0x3e6e…3e84 (40, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x0028, t01=0x0004}
0x3e84…3eaa              Head {h00=0x0022, h01=0x0050, text=» CC A4,KBMZ,A6 MULTIPLE ZERO ?«, t00=0x0028, t01=0x001a}
0x3eaa…3ec4              Head {h00=0x0016, h01=0x0050, text=» RF(E) KBMZ10 YES!«, t00=0x0028, t01=0x0040}
0x3ec4…3ed0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x005a}
0x3ed0…3eee              Head {h00=0x001a, h01=0x0050, text=» CC A4,KBCLR,A6 CLEAR?«, t00=0x0028, t01=0x0066}
0x3eee…3f04              Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0028, t01=0x0084}
0x3f04…3f26              Head {h00=0x001e, h01=0x0050, text=» CC A4,KBBSP,A6 BACKSPACE?«, t00=0x0028, t01=0x009a}
0x3f26…3f3c              Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0028, t01=0x00bc}
0x3f3c…3f5c              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x0028, t01=0x00d2}
0x3f5c…3f88              Head {h00=0x0028, h01=0x0050, text=» RF(NE) AKB369 YES,STORE AND END I/O«, t00=0x0028, t01=0x00f2}
0x3f88…3f9e              Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0028, t01=0x011e}
0x3f9e…3fb2              Head {h00=0x0010, h01=0x0050, text=»AKB365 EQU *«, t00=0x0028, t01=0x0134}
0x3fb2…3fc6              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x0148}
0x3fc6…3fe8              Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHOCHARACTER «, t00=0x0028, t01=0x015c}
0x3fe8…3ff4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x017e}
0x3ff4…4018              Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0028, t01=0x018a}
0x4018…4030              Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB210 NO«, t00=0x0029, t01=0x001e}
0x4030…4058              Head {h00=0x0024, h01=0x0050, text=»AKB368 LDK A1,8 SET RETURN CODE «, t00=0x0029, t01=0x0036}
0x4058…4076              Head {h00=0x001a, h01=0x0050, text=» RF ENDIO AND END I/O «, t00=0x0029, t01=0x005e}
0x4076…40b0              Head {h00=0x0036, h01=0x0050, text=»AKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0029, t01=0x007c}
0x40b0…40d2              Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0029, t01=0x00b6}
0x40d2…40e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00d8}
0x40e0…40ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e6}
0x40ea…40f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f0}
0x40f4…4120              Head {h00=0x0028, h01=0x0050, text=»*    CHECK CODE OF END OF RECORD KEY«, t00=0x0029, t01=0x00fa}
0x4120…412a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0126}
0x412a…4134              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0130}
0x4134…4148              Head {h00=0x0010, h01=0x0050, text=»AKB370 EQU *«, t00=0x0029, t01=0x013a}
0x4148…415c              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0029, t01=0x014e}
0x415c…4180              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0029, t01=0x0162}
0x4180…41aa              Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE END OF RECORD«, t00=0x0029, t01=0x0186}
0x41aa…41ca              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x002a, t01=0x0020}
0x41ca…41e0              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB380«, t00=0x002a, t01=0x0040}
0x41e0…4202              Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x002a, t01=0x0056}
0x4202…420c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0078}
0x420c…4218              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0082}
0x4218…4222              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x008e}
0x4222…4246              Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x0098}
0x4246…4254              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00bc}
0x4254…425e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ca}
0x425e…4268              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d4}
0x4268…4298              Head {h00=0x002c, h01=0x0050, text=»*    THIS IS A COMMON END OF THE DRIVER «, t00=0x002a, t01=0x00de}
0x4298…42a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010e}
0x42a2…42d8              Head {h00=0x0032, h01=0x0050, text=»*    SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x002a, t01=0x0118}
0x42d8…4300              Head {h00=0x0024, h01=0x0050, text=»*    ON KEYBOARD AND ECHO-DEVICE«, t00=0x002a, t01=0x014e}
0x4300…430a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0176}
0x430a…4314              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0180}
0x4314…4328              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x002a, t01=0x018a}
0x4328…4332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000e}
0x4332…4348              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002b, t01=0x0018}
0x4348…4354              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002b, t01=0x002e}
0x4354…436c              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x002b, t01=0x003a}
0x436c…439a              Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x002b, t01=0x0052}
0x439a…43bc              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x002b, t01=0x0080}
0x43bc…43d0              Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002b, t01=0x00a2}
0x43d0…43dc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00b6}
0x43dc…43e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c2}
0x43e6…4416              Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x002b, t01=0x00cc}
0x4416…442a              Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x002b, t01=0x00fc}
0x442a…4434              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0110}
0x4434…4448              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002b, t01=0x011a}
0x4448…4462              Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x002b, t01=0x012e}
0x4462…448e              Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x002b, t01=0x0148}
0x448e…44ac              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x002b, t01=0x0174}
0x44ac…44b8 (44, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0004}
0x44b8…44c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0010}
0x44c2…44f6              Head {h00=0x0030, h01=0x0050, text=» ABL DISEND END I/O ON KEYBOARD AND DISPATCH«, t00=0x002c, t01=0x001a}
0x44f6…4504              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x004e}
0x4504…450e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x005c}
0x450e…4528              Head {h00=0x0016, h01=0x0050, text=»*    MULTIPLE ZERO«, t00=0x002c, t01=0x0066}
0x4528…4532              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0080}
0x4532…4548              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002c, t01=0x008a}
0x4548…455c              Head {h00=0x0010, h01=0x0050, text=»KBMZ10 EQU *«, t00=0x002c, t01=0x00a0}
0x455c…4588              Head {h00=0x0028, h01=0x0050, text=» LDK A4,CMULTZ LOAD NUMBER OF ZEROES«, t00=0x002c, t01=0x00b4}
0x4588…45b8              Head {h00=0x002c, h01=0x0050, text=»KBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO«, t00=0x002c, t01=0x00e0}
0x45b8…45ca              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x0110}
0x45ca…45e8              Head {h00=0x001a, h01=0x0050, text=» RB(L) AKB240 ALL DONE«, t00=0x002c, t01=0x0122}
0x45e8…4602              Head {h00=0x0016, h01=0x0050, text=» LDR A1,A4 SAVE A4«, t00=0x002c, t01=0x0140}
0x4602…4632              Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE ZOERO IN ECB-BUFFER «, t00=0x002c, t01=0x015a}
0x4632…4650              Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 RESTORE A4 «, t00=0x002c, t01=0x018a}
0x4650…465a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0018}
0x465a…466e              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002d, t01=0x0022}
0x466e…4678              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x4678…4696              Head {h00=0x001a, h01=0x0050, text=» CF A5,ECHO ECHO ZERO «, t00=0x002d, t01=0x0040}
0x4696…46a2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x005e}
0x46a2…46ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x006a}
0x46ac…46b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0074}
0x46b6…46cc              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002d, t01=0x007e}
0x46cc…46d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0094}
0x46d6…46fc              Head {h00=0x0022, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW ? «, t00=0x002d, t01=0x009e}
0x46fc…4714              Head {h00=0x0014, h01=0x0050, text=» RB(L) KBMZ20 NO«, t00=0x002d, t01=0x00c4}
0x4714…4746              Head {h00=0x002e, h01=0x0050, text=»KBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ?«, t00=0x002d, t01=0x00dc}
0x4746…475e              Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB368 NO«, t00=0x002d, t01=0x010e}
0x475e…476a              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x0126}
0x476a…4798              Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x002d, t01=0x0132}
0x4798…47aa              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x002d, t01=0x0160}
0x47aa…47d0              Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x002d, t01=0x0172}
0x47d0…47ea              Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ30 NO «, t00=0x002e, t01=0x0008}
0x47ea…481a              Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x002e, t01=0x0022}
0x481a…482c              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x002e, t01=0x0052}
0x482c…483e              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x0064}
0x483e…4850              Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x002e, t01=0x0076}
0x4850…4886              Head {h00=0x0032, h01=0x0050, text=»KBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x002e, t01=0x0088}
0x4886…4898              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x00be}
0x4898…48c8              Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x002e, t01=0x00d0}
0x48c8…48ec              Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x002e, t01=0x0100}
0x48ec…4920              Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x002e, t01=0x0124}
0x4920…494a              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x002e, t01=0x0158}
0x494a…496a              Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x002e, t01=0x0182}
0x496a…498e              Head {h00=0x0020, h01=0x0050, text=» RB KBMZ25 ONCE MORE TIME !!«, t00=0x002f, t01=0x0012}
0x498e…49a2              Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x002f, t01=0x0036}
0x49a2…49ce              Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x002f, t01=0x004a}
0x49ce…49e0              Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x002f, t01=0x0076}
0x49e0…4a08              Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x002f, t01=0x0088}
0x4a08…4a34              Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x002f, t01=0x00b0}
0x4a34…4a62              Head {h00=0x002a, h01=0x0050, text=» RB ENDIO LENGTH AND THRUGHPUT ERRORS «, t00=0x002f, t01=0x00dc}
0x4a62…4a6e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x010a}
0x4a6e…4a78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0116}
0x4a78…4a8a              Head {h00=0x000e, h01=0x0050, text=»*    CLEAR«, t00=0x002f, t01=0x0120}
0x4a8a…4a94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0132}
0x4a94…4abe              Head {h00=0x0026, h01=0x0050, text=»KBCL10 LDK A3,0 RESET BUFFER INDEX«, t00=0x002f, t01=0x013c}
0x4abe…4ae8              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/18 CHANGE CHARACTER-CODE «, t00=0x002f, t01=0x0166}
0x4ae8…4afa              Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x002f, t01=0x0190}
0x4afa…4b04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0012}
0x4b04…4b1a              Head {h00=0x0012, h01=0x0050, text=»*    BACKSPACE«, t00=0x0030, t01=0x001c}
0x4b1a…4b24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0032}
0x4b24…4b4e              Head {h00=0x0026, h01=0x0050, text=»KBSP10 LDR A3,A3 FIRST CHARACTER? «, t00=0x0030, t01=0x003c}
0x4b4e…4b64              Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0030, t01=0x0066}
0x4b64…4b8c              Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER INDEX«, t00=0x0030, t01=0x007c}
0x4b8c…4bb0              Head {h00=0x0020, h01=0x0050, text=» LDK A2,/00 CLEAR ECB-BUFFER«, t00=0x0030, t01=0x00a4}
0x4bb0…4bc6              Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0030, t01=0x00c8}
0x4bc6…4be8              Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 DECREMENT INDEX «, t00=0x0030, t01=0x00de}
0x4be8…4c16              Head {h00=0x002a, h01=0x0050, text=»KBSP15 LDK A2,/8 CHANGE CHARACTER-CODE«, t00=0x0030, t01=0x0100}
0x4c16…4c28              Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x0030, t01=0x012e}
0x4c28…4c36              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0140}
0x4c36…4c40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014e}
0x4c40…4c54              Head {h00=0x0010, h01=0x0050, text=»*    C H E K«, t00=0x0030, t01=0x0158}
0x4c54…4c5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016c}
0x4c5e…4c68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0176}
0x4c68…4c98              Head {h00=0x002c, h01=0x0050, text=»*    SUBROUTINE TO CHECK INPUT CHARACTER«, t00=0x0030, t01=0x0180}
0x4c98…4ca2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0020}
0x4ca2…4cb8              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0031, t01=0x002a}
0x4cb8…4cc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0040}
0x4cc2…4cde              Head {h00=0x0018, h01=0x0050, text=»*    A2 = CHARACTER «, t00=0x0031, t01=0x004a}
0x4cde…4cfc              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x0031, t01=0x0066}
0x4cfc…4d1a              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x0031, t01=0x0084}
0x4d1a…4d32              Head {h00=0x0014, h01=0x0050, text=»*    A7 = ORDER «, t00=0x0031, t01=0x00a2}
0x4d32…4d3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ba}
0x4d3c…4d46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c4}
0x4d46…4d5c              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0031, t01=0x00ce}
0x4d5c…4d66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e4}
0x4d66…4d84              Head {h00=0x001a, h01=0x0050, text=»*    A1 = RETURN CODE «, t00=0x0031, t01=0x00ee}
0x4d84…4d8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010c}
0x4d8e…4da0              Head {h00=0x000e, h01=0x0050, text=»CHEK EQU *«, t00=0x0031, t01=0x0116}
0x4da0…4dc4              Head {h00=0x0020, h01=0x0050, text=» STR A2,A15 SAVE A2 ON STACK«, t00=0x0031, t01=0x0128}
0x4dc4…4dd8              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0031, t01=0x014c}
0x4dd8…4dfe              Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0031, t01=0x0160}
0x4dfe…4e08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0186}
0x4e08…4e1e              Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=1 «, t00=0x0031, t01=0x0190}
0x4e1e…4e28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0016}
0x4e28…4e42              Head {h00=0x0016, h01=0x0050, text=» CWK A7,2 ORDER 2?«, t00=0x0032, t01=0x0020}
0x4e42…4e5c              Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHEK05 NO «, t00=0x0032, t01=0x003a}
0x4e5c…4e70              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/20 «, t00=0x0032, t01=0x0054}
0x4e70…4e9c              Head {h00=0x0028, h01=0x0050, text=» ORK A1,/5F 5F OR 7F AS UPPER LIMIT «, t00=0x0032, t01=0x0068}
0x4e9c…4ebc              Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0032, t01=0x0094}
0x4ebc…4ece              Head {h00=0x000e, h01=0x0050, text=» RF CHEK08«, t00=0x0032, t01=0x00b4}
0x4ece…4ed8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c6}
0x4ed8…4ee4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00d0}
0x4ee4…4eee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00dc}
0x4eee…4f08              Head {h00=0x0016, h01=0x0050, text=»CHEK05 ANK A1,/10 «, t00=0x0032, t01=0x00e6}
0x4f08…4f1e              Head {h00=0x0012, h01=0x0050, text=» RF(NE) CHEK06«, t00=0x0032, t01=0x0100}
0x4f1e…4f3e              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x0116}
0x4f3e…4f64              Head {h00=0x0022, h01=0x0050, text=»CHEK06 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x0136}
0x4f64…4f84              Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x015c}
0x4f84…4f9c              Head {h00=0x0014, h01=0x0050, text=»CHEK08 SUR A1,A2«, t00=0x0032, t01=0x017c}
0x4f9c…4fc2 (51, 0, 398) Head {h00=0x0022, h01=0x0050, text=» RF(N) CHERRO CODE CHECK ERROR«, t00=0x0033, t01=0x0004}
0x4fc2…4fd4              Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0033, t01=0x002a}
0x4fd4…4ffa              Head {h00=0x0022, h01=0x0050, text=» RF(P) CHERRO CODE CHECK ERROR«, t00=0x0033, t01=0x003c}
0x4ffa…500e              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0033, t01=0x0062}
0x500e…5032              Head {h00=0x0020, h01=0x0050, text=»CHEK10 LDK A1,0 RETURN CODE «, t00=0x0033, t01=0x0076}
0x5032…5048              Head {h00=0x0012, h01=0x0050, text=»CHEK20 RTN A5 «, t00=0x0033, t01=0x009a}
0x5048…5052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b0}
0x5052…505c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ba}
0x505c…507a              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0033, t01=0x00c4}
0x507a…5084              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00e2}
0x5084…50b6              Head {h00=0x002e, h01=0x0050, text=»CHERRO LDK A1,4 SET RETURN CODE AND RETURN«, t00=0x0033, t01=0x00ec}
0x50b6…50dc              Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A15 RELOAD CHARACTER «, t00=0x0033, t01=0x011e}
0x50dc…50ee              Head {h00=0x000e, h01=0x0050, text=» RB CHEK20«, t00=0x0033, t01=0x0144}
0x50ee…50fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0156}
0x50fc…5106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0164}
0x5106…5110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x016e}
0x5110…5124              Head {h00=0x0010, h01=0x0050, text=»*    I H K B«, t00=0x0033, t01=0x0178}
0x5124…512e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018c}
0x512e…5176              Head {h00=0x0044, h01=0x0050, text=»*    THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0034, t01=0x0008}
0x5176…5180              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0050}
0x5180…518a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005a}
0x518a…519c              Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0034, t01=0x0064}
0x519c…51b0              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0034, t01=0x0076}
0x51b0…51d2              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET ALLOW BITS«, t00=0x0034, t01=0x008a}
0x51d2…51e6              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/C0 «, t00=0x0034, t01=0x00ac}
0x51e6…521e              Head {h00=0x0034, h01=0x0050, text=» RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS «, t00=0x0034, t01=0x00c0}
0x521e…5230              Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0034, t01=0x00f8}
0x5230…5244              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/80 «, t00=0x0034, t01=0x010a}
0x5244…525a              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL1 «, t00=0x0034, t01=0x011e}
0x525a…526c              Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x0034, t01=0x0134}
0x526c…5284              Head {h00=0x0014, h01=0x0050, text=»IHNOL1 LDR A3,A2«, t00=0x0034, t01=0x0146}
0x5284…5296              Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0034, t01=0x015e}
0x5296…52a8              Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0034, t01=0x0170}
0x52a8…52bc              Head {h00=0x0010, h01=0x0050, text=» RF(NE) EXIT«, t00=0x0034, t01=0x0182}
0x52bc…52d0              Head {h00=0x0010, h01=0x0050, text=»IHNOL2 EQU *«, t00=0x0035, t01=0x0008}
0x52d0…52dc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x001c}
0x52dc…52e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0028}
0x52e6…52fc              Head {h00=0x0012, h01=0x0050, text=» IFT CONVER=1 «, t00=0x0035, t01=0x0032}
0x52fc…5306              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0048}
0x5306…5324              Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 INPUT WORD «, t00=0x0035, t01=0x0052}
0x5324…534a              Head {h00=0x0022, h01=0x0050, text=» SRL A4,11 DEVICE ADDRESS * 2 «, t00=0x0035, t01=0x0070}
0x534a…535c              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/E«, t00=0x0035, t01=0x0096}
0x535c…5384              Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTBC,A6 8-BIT SETTING ? «, t00=0x0035, t01=0x00a8}
0x5384…539a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) IHKB03«, t00=0x0035, t01=0x00d0}
0x539a…53ac              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x00e6}
0x53ac…53c0              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0035, t01=0x00f8}
0x53c0…53d4              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0035, t01=0x010c}
0x53d4…53ea              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB01 «, t00=0x0035, t01=0x0120}
0x53ea…53fc              Head {h00=0x000e, h01=0x0050, text=» SUK A3,/A«, t00=0x0035, t01=0x0136}
0x53fc…5412              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB02 «, t00=0x0035, t01=0x0148}
0x5412…542c              Head {h00=0x0016, h01=0x0050, text=»IHKB01 ORK A2,/80 «, t00=0x0035, t01=0x015e}
0x542c…543e              Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0035, t01=0x0178}
0x543e…545a              Head {h00=0x0018, h01=0x0050, text=»IHKB02 ANKL A2,/FF3F«, t00=0x0035, t01=0x018a}
0x545a…546c              Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0036, t01=0x0016}
0x546c…54a4              Head {h00=0x0034, h01=0x0050, text=»IHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS «, t00=0x0036, t01=0x0028}
0x54a4…54ba              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x0060}
0x54ba…54cc              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x0076}
0x54cc…54e0              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0036, t01=0x0088}
0x54e0…54fc              Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x0036, t01=0x009c}
0x54fc…550e              Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0036, t01=0x00b8}
0x550e…5536              Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A3 COLUMN TABLE ADDRESS«, t00=0x0036, t01=0x00ca}
0x5536…554c              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x00f2}
0x554c…555e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x0108}
0x555e…5570              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0036, t01=0x011a}
0x5570…5590              Head {h00=0x001c, h01=0x0050, text=» ADR A3,A4 ADD ROW INDEX«, t00=0x0036, t01=0x012c}
0x5590…55b0              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0036, t01=0x014c}
0x55b0…55c4              Head {h00=0x0010, h01=0x0050, text=»IHKB04 EQU *«, t00=0x0036, t01=0x016c}
0x55c4…55ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0180}
0x55ce…55da              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x018a}
0x55da…55e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0008}
0x55e4…55ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0012}
0x55ee…5602              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0037, t01=0x001c}
0x5602…560c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0030}
0x560c…561e              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0037, t01=0x003a}
0x561e…5632              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0037, t01=0x004c}
0x5632…5646              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/22 «, t00=0x0037, t01=0x0060}
0x5646…565c              Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHNOL6 «, t00=0x0037, t01=0x0074}
0x565c…566e              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0037, t01=0x008a}
0x566e…5684              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) IHNOL8«, t00=0x0037, t01=0x009c}
0x5684…5696              Head {h00=0x000e, h01=0x0050, text=» RF IHNOL7«, t00=0x0037, t01=0x00b2}
0x5696…56ae              Head {h00=0x0014, h01=0x0050, text=»IHNOL6 ADK A2,7 «, t00=0x0037, t01=0x00c4}
0x56ae…56ca              Head {h00=0x0018, h01=0x0050, text=»IHNOL7 ANKL A2,/FF3F«, t00=0x0037, t01=0x00dc}
0x56ca…56de              Head {h00=0x0010, h01=0x0050, text=»IHNOL8 EQU *«, t00=0x0037, t01=0x00f8}
0x56de…56e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010c}
0x56e8…56f4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0116}
0x56f4…56fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0122}
0x56fe…5722              Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x0037, t01=0x012c}
0x5722…5738              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB10 «, t00=0x0037, t01=0x0150}
0x5738…575e              Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPTS ALLOWED? «, t00=0x0037, t01=0x0166}
0x575e…5796              Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER «, t00=0x0037, t01=0x018c}
0x5796…57a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0034}
0x57a0…57b6              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0038, t01=0x003e}
0x57b6…57c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0054}
0x57c0…57d8              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x0038, t01=0x005e}
0x57d8…5806              Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB05 NO TIMING ON THIS DEVICE«, t00=0x0038, t01=0x0076}
0x5806…582a              Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x0038, t01=0x00a4}
0x582a…5842              Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x0038, t01=0x00c8}
0x5842…584c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e0}
0x584c…5858              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00ea}
0x5858…5862              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f6}
0x5862…5892              Head {h00=0x002c, h01=0x0050, text=»IHKB05 ABL LDREG RETURN TO READ ROUTINE «, t00=0x0038, t01=0x0100}
0x5892…58b0              Head {h00=0x001a, h01=0x0050, text=»IHKB10 LD A1,DWTINQ,A6«, t00=0x0038, t01=0x0130}
0x58b0…58c2              Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0038, t01=0x014e}
0x58c2…58e8              Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x0038, t01=0x0160}
0x58e8…5900              Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x0038, t01=0x0186}
0x5900…5912              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0039, t01=0x000e}
0x5912…5948              Head {h00=0x0032, h01=0x0050, text=» CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS «, t00=0x0039, t01=0x0020}
0x5948…596a              Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x0039, t01=0x0056}
0x596a…5984              Head {h00=0x0016, h01=0x0050, text=» RF(NE) IHKB20 NO!«, t00=0x0039, t01=0x0078}
0x5984…59b8              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER«, t00=0x0039, t01=0x0092}
0x59b8…59ca              Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x0039, t01=0x00c6}
0x59ca…59fe              Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x0039, t01=0x00d8}
0x59fe…5a36              Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A3 STORE CHARACTER IN INPUT BUFFER«, t00=0x0039, t01=0x010c}
0x5a36…5a4c              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0039, t01=0x0144}
0x5a4c…5a60              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0039, t01=0x015a}
0x5a60…5a78              Head {h00=0x0014, h01=0x0050, text=»IHNOL3 LDR A3,A2«, t00=0x0039, t01=0x016e}
0x5a78…5a8a              Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0039, t01=0x0186}
0x5a8a…5a9e              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x003a, t01=0x0008}
0x5a9e…5ab0              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x003a, t01=0x001c}
0x5ab0…5ac6              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL4 «, t00=0x003a, t01=0x002e}
0x5ac6…5ada              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x003a, t01=0x0044}
0x5ada…5aec              Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x003a, t01=0x0058}
0x5aec…5b02              Head {h00=0x0012, h01=0x0050, text=» RB(NE) IHNOL2«, t00=0x003a, t01=0x006a}
0x5b02…5b2a              Head {h00=0x0024, h01=0x0050, text=»IHNOL4 ORRS A4,A6 SET ALLOW BIT «, t00=0x003a, t01=0x0080}
0x5b2a…5b3c              Head {h00=0x000e, h01=0x0050, text=» RB IHNOL2«, t00=0x003a, t01=0x00a8}
0x5b3c…5b48              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00ba}
0x5b48…5b56              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00c6}
0x5b56…5b60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d4}
0x5b60…5b6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00de}
0x5b6a…5b82              Head {h00=0x0014, h01=0x0050, text=»*    A K B T U T«, t00=0x003a, t01=0x00e8}
0x5b82…5b8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0100}
0x5b8c…5bb6              Head {h00=0x0026, h01=0x0050, text=»*    THIS IS THE TIME-OUT ROUTINE «, t00=0x003a, t01=0x010a}
0x5bb6…5bc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0134}
0x5bc0…5bca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x013e}
0x5bca…5be0              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x003a, t01=0x0148}
0x5be0…5bea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015e}
0x5bea…5bfe              Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x003a, t01=0x0168}
0x5bfe…5c20              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x003a, t01=0x017c}
0x5c20…5c34              Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x003b, t01=0x000e}
0x5c34…5c4c              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x003b, t01=0x0022}
0x5c4c…5c60              Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x003b, t01=0x003a}
0x5c60…5c84              Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x003b, t01=0x004e}
0x5c84…5cb4              Head {h00=0x002c, h01=0x0050, text=» RB IHKB05 RESTORE REGISTERS AND END I/O«, t00=0x003b, t01=0x0072}
0x5cb4…5cbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a2}
0x5cbe…5cca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00ac}
0x5cca…5cd8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00b8}
0x5cd8…5ce2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c6}
0x5ce2…5d1a              Head {h00=0x0034, h01=0x0050, text=»*    STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x003b, t01=0x00d0}
0x5d1a…5d54              Head {h00=0x0036, h01=0x0050, text=»*            ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x003b, t01=0x0108}
0x5d54…5d5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0142}
0x5d5e…5d74              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x003b, t01=0x014c}
0x5d74…5d7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0162}
0x5d7e…5da2              Head {h00=0x0020, h01=0x0050, text=»*    A2 = CHARACTER TO STORE«, t00=0x003b, t01=0x016c}
0x5da2…5dc0              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x003b, t01=0x0190}
0x5dc0…5dca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x001e}
0x5dca…5dd4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0028}
0x5dd4…5de8              Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x003c, t01=0x0032}
0x5de8…5e0a              Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x003c, t01=0x0046}
0x5e0a…5e2e              Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x003c, t01=0x0068}
0x5e2e…5e5a              Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x003c, t01=0x008c}
0x5e5a…5e82              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x003c, t01=0x00b8}
0x5e82…5e96              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x00e0}
0x5e96…5eb8              Head {h00=0x001e, h01=0x0050, text=» RF EOQU20 RTN A15 AND ENB«, t00=0x003c, t01=0x00f4}
0x5eb8…5ec6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0116}
0x5ec6…5ed0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0124}
0x5ed0…5eda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x012e}
0x5eda…5f14              Head {h00=0x0036, h01=0x0050, text=»*    EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x003c, t01=0x0138}
0x5f14…5f1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0172}
0x5f1e…5f34              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x003c, t01=0x017c}
0x5f34…5f3e (61, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0004}
0x5f3e…5f5e              Head {h00=0x001c, h01=0x0050, text=»*    A1 = QUEUE POINTER «, t00=0x003d, t01=0x000e}
0x5f5e…5f7c              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x003d, t01=0x002e}
0x5f7c…5f86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x004c}
0x5f86…5f9c              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x003d, t01=0x0056}
0x5f9c…5fa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x006c}
0x5fa6…5fca              Head {h00=0x0020, h01=0x0050, text=»*    A1 = NEW QUEUE POINTER «, t00=0x003d, t01=0x0076}
0x5fca…5fde              Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x003d, t01=0x009a}
0x5fde…5fea              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003d, t01=0x00ae}
0x5fea…5ffc              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x003d, t01=0x00ba}
0x5ffc…600e              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x003d, t01=0x00cc}
0x600e…6032              Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x003d, t01=0x00de}
0x6032…6048              Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x003d, t01=0x0102}
0x6048…6076              Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x003d, t01=0x0118}
0x6076…608e              Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x003d, t01=0x0146}
0x608e…60ba              Head {h00=0x0028, h01=0x0050, text=»EOQU20 ADKL A15,2 RETURN AND ENABLE «, t00=0x003d, t01=0x015e}
0x60ba…60c6              Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003d, t01=0x018a}
0x60c6…60da              Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x003e, t01=0x0008}
0x60da…60e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x001c}
0x60e4…60f0              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003e, t01=0x0026}
0x60f0…60f4              Head {h00=0x4004, h01=0x0000}
0x60f4…60f8              00 3e 00 32                                                                                                                                                                                                                                       ┆ > 2┆
0x60f8…6100 (63, 1, 8)   20 04 00 00 00 3f 00 04                                                                                                                                                                                                                           ┆     ?  ┆
0x6100…6150 (64, 0, 400) 00 32 00 50 5c 49 44 45 4e 54 5c 44 52 44 43 31 35 5c 52 45 4c 20 38 2e 32 20 37 39 2e 30 33 2e 31 35 2e 45 56 2e 38 37 30 31 30 35 30 34 30 38 32 30 00 00 00 04 00 18 00 50 5c 5c 5c 52 45 4c 20 38 2e 32 20 37 38 2d 30 39 2d 31 35 20 00 00   ┆ 2 P IDENT DRDC15 REL 8.2 79.03.15.EV.870105040820       P   REL 8.2 78-09-15   ┆
0x6150…61a0              00 3a 00 1a 00 50 5c 5c 5c 49 42 4d 2d 33 32 37 30 20 45 4d 55 4c 41 54 49 4f 4e 20 00 00 00 56 00 18 00 50 5c 5c 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 38 2d 32 35 20 00 00 00 74 00 24 00 50 5c 5c 5c 4d 45 53 53 41 47 45 20 51 55 45 55 49   ┆ :   P   IBM-3270 EMULATION    V   P   REL 8.1 78-08-25    t $ P   MESSAGE QUEUI┆
0x61a0…61f0              4e 47 20 4f 4e 20 54 45 52 4d 49 4e 41 4c 53 20 00 00 00 90 00 18 00 50 5c 5c 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 36 2d 32 31 20 00 00 00 b8 00 18 00 50 5c 5c 5c 50 54 53 20 36 38 30 35 20 41 44 41 50 54 49 4f 4e 00 00 00 d4 00 1e 00 50   ┆NG ON TERMINALS        P   REL 8.1 78-06-21        P   PTS 6805 ADAPTION       P┆
0x61f0…6240              5c 5c 5c 4d 53 56 31 2e 20 55 4e 44 45 46 49 4e 45 44 20 41 44 44 52 45 53 53 00 00 00 f0 00 18 00 50 5c 5c 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 36 2d 31 36 20 00 00 01 12 00 22 00 50 5c 5c 5c 54 52 41 4e 53 46 45 52 20 50 41 52 41 4d 20   ┆   MSV1. UNDEFINED ADDRESS       P   REL 8.1 78-06-16      " P   TRANSFER PARAM ┆
0x6240…6290              57 48 45 4e 20 50 4f 4c 4c 20 4f 4e 00 00 01 2e 00 18 00 50 5c 5c 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 35 2d 31 38 20 00 00 01 54 00 1a 00 50 5c 5c 5c 42 49 4e 41 52 59 20 54 52 41 4e 53 4d 49 53 53 49 4f 4e 00 00 01 70 00 18 00 50 5c 5c   ┆WHEN POLL ON   .   P   REL 8.1 78-05-18    T   P   BINARY TRANSMISSION   p   P  ┆
0x6290…62e0 (65, 0, 400) 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 00 00 01 8e 00 04 00 50 00 01 00 1a 00 32 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20   ┆ REL 8.1 78-04-21        P     2 P********************************************* ┆
0x62e0…6330              00 01 00 22 00 06 00 50 2a 20 00 01 00 58 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 01 00 62 00 06 00 50 2a 20 00 01 00 8a 00 2a 00 50 2a 20 20 20 44 52 44 43 31 35 3a 20   ┆   "   P*    X $ P*   PHILIPS TERMINAL SYSTEM PTS    b   P*      * P*   DRDC15: ┆
0x6330…6380              44 52 49 56 45 52 20 44 41 54 41 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 20 00 01 00 94 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 42 53 43 20 4d 55 4c 54 49 50 4f 49 4e 54 20 4c 49 4e 45 20 50 52 4f 43 45 44 55 52 45 20 00 01 00 c2   ┆DRIVER DATA COMMUNICATION      . P*           BSC MULTIPOINT LINE PROCEDURE     ┆
0x6380…63d0              00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 4f 52 20 53 49 45 4d 45 4e 53 20 4d 53 56 31 20 00 01 00 f4 00 06 00 50 2a 20 00 01 01 18 00 06 00 50 2a 20 00 01 01 22 00 06 00 50 2a 20 00 01 01 2c 00 06 00 50 2a 20 00 01 01 36 00 06 00 50   ┆   P*           OR SIEMENS MSV1        P*        P*    "   P*    ,   P*    6   P┆
0x63d0…6420              2a 20 00 01 01 40 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 01 4a 00 06 00 50 5c 20 00 01 01 86 00 06 00 50   ┆*    @ 8 P****************************************************   J   P         P┆
0x6420…6470 (66, 0, 400) 2a 20 00 01 01 90 00 06 00 50 2a 20 00 02 00 0a 00 12 00 50 2a 5c 45 4e 54 52 59 20 50 4f 49 4e 54 53 00 02 00 14 00 06 00 50 2a 20 00 02 00 2a 00 06 00 50 2a 20 00 02 00 34 00 32 00 50 5c 45 4e 54 52 59 5c 44 43 31 35 41 44 5c 41 44 44 52   ┆*        P*        P* ENTRY POINTS       P*    *   P*    4 2 P ENTRY DC15AD ADDR┆
0x6470…64c0              45 53 53 20 42 4c 4f 43 4b 20 54 45 52 4d 49 4e 41 4c 20 52 45 51 55 45 53 54 53 20 00 02 00 3e 00 22 00 50 5c 45 4e 54 52 59 5c 49 48 31 35 30 31 5c 49 4e 50 55 54 20 49 4e 54 45 52 52 55 50 54 20 00 02 00 74 00 22 00 50 5c 45 4e 54 52 59   ┆ESS BLOCK TERMINAL REQUESTS    > " P ENTRY IH1501 INPUT INTERRUPT    t " P ENTRY┆
0x64c0…6510              5c 49 48 31 35 30 32 5c 4f 55 54 50 55 54 20 49 4e 54 45 52 52 55 50 54 00 02 00 9a 00 22 00 50 5c 45 4e 54 52 59 5c 44 43 31 35 4f 4e 5c 50 4f 57 45 52 20 4f 4e 20 52 4f 55 54 49 4e 45 00 02 00 c0 00 22 00 50 5c 45 4e 54 52 59 5c 44 57 31   ┆ IH1502 OUTPUT INTERRUPT     " P ENTRY DC15ON POWER ON ROUTINE     " P ENTRY DW1┆
0x6510…6560              35 30 30 5c 44 57 54 20 46 4f 52 20 44 43 20 54 41 53 4b 20 00 02 00 e6 00 06 00 50 2a 20 00 02 01 0c 00 06 00 50 2a 20 00 02 01 16 00 1a 00 50 2a 5c 45 58 54 45 52 4e 41 4c 20 52 45 46 45 52 45 4e 43 45 53 20 00 02 01 20 00 06 00 50 2a 20   ┆500 DWT FOR DC TASK        P*        P*        P* EXTERNAL REFERENCES        P* ┆
0x6560…65b0              00 02 01 3e 00 06 00 50 2a 20 00 02 01 48 00 22 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 02 01 52 00 28 00 50 5c 45 58 54 52 4e 5c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20   ┆   >   P*    H " P EXTRN TDISP DISPATCHER ENTRY    R ( P EXTRN SAVE8 SAVE A1-A8 ┆
0x65b0…6600 (67, 0, 400) 4f 4e 20 41 31 35 20 53 54 41 43 4b 00 02 01 78 00 24 00 50 5c 45 58 54 52 4e 5c 54 45 4e 44 49 4f 5c 43 4f 4d 50 4c 45 54 45 20 49 2f 4f 20 45 56 45 4e 54 00 03 00 14 00 20 00 50 5c 45 58 54 52 4e 5c 44 49 53 49 4f 45 5c 52 45 51 55 45 53   ┆ON A15 STACK   x $ P EXTRN TENDIO COMPLETE I/O EVENT       P EXTRN DISIOE REQUES┆
0x6600…6650              54 20 45 52 52 4f 52 20 00 03 00 3c 00 1c 00 50 5c 45 58 54 52 4e 5c 53 45 54 49 4d 45 5c 53 45 54 20 54 49 4d 45 52 20 00 03 00 60 00 1c 00 50 5c 45 58 54 52 4e 5c 44 57 54 53 54 5c 44 57 54 20 53 54 41 54 55 53 20 00 03 00 80 00 1a 00 50   ┆T ERROR    <   P EXTRN SETIME SET TIMER    `   P EXTRN DWTST DWT STATUS        P┆
0x6650…66a0              5c 45 58 54 52 4e 5c 44 57 54 4f 52 5c 44 57 54 20 4f 52 44 45 52 00 03 00 a0 00 1a 00 50 5c 45 58 54 52 4e 5c 44 57 54 45 43 42 5c 44 57 54 20 45 43 42 20 00 03 00 be 00 2a 00 50 5c 45 58 54 52 4e 5c 49 4e 54 53 41 56 5c 53 41 56 45 20 41   ┆ EXTRN DWTOR DWT ORDER       P EXTRN DWTECB DWT ECB      * P EXTRN INTSAV SAVE A┆
0x66a0…66f0              52 45 41 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 03 00 dc 00 28 00 50 5c 45 58 54 52 4e 5c 54 45 42 43 44 49 43 5c 41 53 43 49 49 20 54 4f 20 45 42 43 44 49 43 20 54 41 42 4c 45 00 03 01 0a 00 28 00 50 5c 45 58 54 52 4e 5c 54 41 53   ┆REA LAST INTERRUPT     ( P EXTRN TEBCDIC ASCII TO EBCDIC TABLE     ( P EXTRN TAS┆
0x66f0…6740              43 49 49 5c 45 42 43 44 49 43 20 54 4f 20 41 53 43 49 49 20 54 41 42 4c 45 20 00 03 01 36 00 06 00 50 5c 20 00 03 01 62 00 06 00 50 2a 20 00 03 01 6c 00 06 00 50 2a 20 00 03 01 76 00 06 00 50 2a 20 00 03 01 80 00 06 00 50 2a 20 00 03 01 8a   ┆CII EBCDIC TO ASCII TABLE    6   P     b   P*    l   P*    v   P*        P*     ┆
0x6740…6790 (68, 0, 400) 00 36 00 50 2a 20 20 20 53 54 41 4e 44 41 52 44 20 49 4e 54 45 52 46 41 43 45 20 50 41 52 54 20 46 4f 52 20 44 41 54 41 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 00 04 00 04 00 06 00 50 2a 20 00 04 00 3e 00 06 00 50 2a 20 00 04 00 48 00 06   ┆ 6 P*   STANDARD INTERFACE PART FOR DATA COMMUNICATION       P*    >   P*    H  ┆
0x6790…67e0              00 50 2a 20 00 04 00 52 00 06 00 50 2a 20 00 04 00 5c 00 12 00 50 2a 5c 44 57 54 20 43 4f 4e 54 45 4e 54 53 00 04 00 66 00 06 00 50 2a 20 00 04 00 7c 00 4a 00 50 2a 5c 44 57 54 43 48 50 5c 54 45 52 4d 49 4e 41 4c 20 41 44 44 52 45 53 53 20   ┆ P*    R   P*        P* DWT CONTENTS   f   P*    | J P* DWTCHP TERMINAL ADDRESS ┆
0x67e0…6830              41 53 20 47 49 56 45 4e 20 41 54 20 50 41 52 41 4d 45 54 45 52 20 54 52 41 4e 53 46 45 52 20 28 42 49 54 20 23 30 38 2d 23 31 35 29 00 04 00 86 00 06 00 50 2a 20 00 04 00 d4 00 18 00 50 2a 5c 44 57 54 20 44 49 53 50 4c 41 43 45 4d 45 4e 54   ┆AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15)       P*        P* DWT DISPLACEMENT┆
0x6830…6880              53 20 00 04 00 de 00 06 00 50 2a 20 00 04 00 fa 00 2e 00 50 44 57 54 54 50 5c 45 51 55 5c 2f 31 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 4f 52 44 45 52 20 50 52 4f 43 45 53 53 20 00 04 01 04 00 28 00 50 44 57 54 57 51 5c 45 51 55 5c   ┆S        P*      . PDWTTP EQU /10 TIMER POINTER ORDER PROCESS      ( PDWTWQ EQU ┆
0x6880…68d0              2f 31 32 5c 57 52 49 54 45 2f 47 45 54 20 42 55 46 46 45 52 20 51 55 45 55 45 00 04 01 36 00 1e 00 50 44 57 54 53 51 5c 45 51 55 5c 2f 31 34 5c 53 54 41 54 55 53 20 51 55 45 55 45 00 04 01 62 00 20 00 50 44 57 54 52 51 5c 45 51 55 5c 2f 31   ┆/12 WRITE/GET BUFFER QUEUE   6   PDWTSQ EQU /14 STATUS QUEUE   b   PDWTRQ EQU /1┆

Reduced view