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

⟦ac7a02ac9⟧

    Length: 27156 (0x6a14)
    Notes: pts_type(SC)
    Names: »DRKB01.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »TOSSWORK/DRKB01.SC« 

PTS(SC)

	IDENT DRKB01 	REL 10.0 80-03-14 870105041000 

* 
* 
******************************************* 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRKB01 = DRIVER KEYBOARD
* 
* 
* 
* 
* 
* 
******************************************* 
* 
* 
*    THIS DRIVER HANDLES INPUT FROM NUMERIC 
*    AND ALPHANUMERIC KEYBOARDS PTS 6231, 
*    6232, 6233, 6234, 6331,AND 6342
*    CONNECTED TO CPU VIA CHLT OR CHRT. 
* 
*    ONLY INPUT DATA FROM DEPRESSED KEYS
*    ARE HANDLED BY THE DRIVER. 
* 
*    AN ECHO-DEVICE CAN BE ATTACHED TO EVERY
*    KEYBOARD WHERE RECEIVED CHARACTERS ARE 
*    ECHOED.
* 
*    THE DRIVER CONSISTS OF FOLLOWING PARTS:
* 
*    A C K B : ACTIVATION PART
* 
*    I H K B : INTERRUPT HANDLER
* 
*    E C H O : ECHO HANDLER 
* 
*    R C K B : RECOVERY ROUTINE 
* 
	EJECT
* 
* 
*    THE FOLLOWING ORDERS ARE THREATED: 
* 
*    ORDER 01: BASIC READ 
*    ORDER 02: STANDARD READ
*    ORDER 03: NUMERIC READ 
*    ORDER 04: RESET INPUT BUFFER 
* 
* 
*    NORMAL REGISTER USAGE :
* 
*    REGISTER A1 : RETURN CODE
*             A2 : INPUT CHARACTER
*             A3 : BUFFER INDEX 
*             A4 : WORK REGISTER
*             A5 : STACK BASE 
*             A6 : DWT-ADDRESS
*             A7 : ORDER
*             A8 : ECB-ADDRESS
* 
	EJECT
* 
* 
*    SYSTEM ADAPTATION
* 
*    KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD
*    IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ 
*    AND BIT 11 FOR NUMERIC READ. 
* 
*    BIT 10 = 0 FOR PTS 6231, 6233, 6234
*    BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 
*    BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 
*    BIT 11 = 1 FOR PTS 6234,6342 
* 
*    CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 
*    MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED 
*    IN DWT.
* 
*    DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE
*    DEFINED IN DWT.
* 
*    IF TIMING IS WANTED, TIMER POINTER 
*    IN DWT MUST BE SET UNEQUAL TO ZERO.
*    STANDARD VALUE FOR TIME-OUT IS 30 SECONDS
*    SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE 
*    IS WANTED FOR A SYSTEM, INDICATOR
*    IN DRIVER MUST BE CHANGED. 
* 
*    THE LENGTH OF THE CIRCULAR INPUT BUFFER IS 
*    DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS 
*    NOTE !!!  THAT LENGTH MUST BE THE SAME FOR ALL 
*    DWT:S IN SYSTEM
	EJECT
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:
* 
*    -----ECHO-FUNCTION 
*    -----STANDARD READ 
*    -----TIME-OUT-FUNCTION 
*    -----CODE CONVERSION VIA "8-BIT" SETTING 
*         AND CONVERSION TABLES 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO
*    POSSIBLE TO GIVE A KEY THE MEANING OF TWO, 
*    THREE OR MORE ZEROES.
* 
*    THE DRIVER IS PREPARED TO HANDLE THE SPECIAL 
*    NORWAY-PROBLEM, WITH BETWEEN THEMSELVES
*    DEPENDENT KEYBOARDS CONNECTED TO THE SAME
*    SELECTOR UNIT. 
*    BY ASSEMBLING THE DRIVER CONDITIONALLY THIS
*    FUNCTION IS INCLUDED.
	EJECT
* 
* 
**************
* ENTRIES    *
**************
* 
	ENTRY	KBAD	ADDRESS-BLOCK 
	ENTRY	EOQUEU	QUEUE POINTER ROUTINE 
	ENTRY	DWTINQ,DWTUTQ	QUEUE POINTERS 
* 
* 
* 
**********************************************
*    EXTERNAL TOSS MODULE ENTRIES            *
**********************************************
* 
	EXTRN	DISIOE	I/0 REQUEST ERROR 
	EXTRN	DISEND	END I/O AND GO TO DISPATCHER
	EXTRN	TENDIO	END I/O 
	EXTRN	TDISP	DISPATCHER ENTRY 
	EXTRN	LDREG	LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN 
	EXTRN	STREG	STORE REGISTERS AND GO TO DISPATCHER 
	EXTRN	LDREGE	RETURN FROM ECHO HANDLING 
	EXTRN	LDREGF 
	EXTRN	SETIME	SET TIME
	EXTRN	SETIMP	SET TIME
	EXTRN	SAVE8	SAVE 8 REGISTERS 
	EXTRN	ECHRTN	RETURN FROM ECHO
	EXTRN	ECHO	ECHO ROUTINE
	EXTRN	ECHEND	END OF ECHO 
* 
	EJECT
* 
************************* 
*    DWT PARAMETERS     * 
************************* 
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTBC	BYTE COUNTER 
	EXTRN	DWTADR	DRIVER ADDRESS BLOCK
	EXTRN	DWTA3	SAVE AREA A3 
	EXTRN	DWTA4	SAVE AREA A4 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	DWTTP	TIMER POINTER
	EXTRN	DWTWAT	SAVE INPUT DWT
* 
*************** 
*  CONSTANTS  * 
*************** 
* 
OVMASK	EQU	/2	OVERFLOW IN INPUT BUFFER
* 
X:F	EQU	8	LENGTH OF CIRCULAR INPUT BUFFER 
DWTLNG	EQU	X:F	NUMBER OF BYTES IN DECIMAL FORM
* 
*    TIME BEFORE TIME-OUT 
* 
TIME	EQU	300	TIME OUT CONSTANT
* 
	EJECT
* 
* 
****************************************
*    CONDITIONAL ASSEMBLY              *
****************************************
* 
*    TIME OUT FUNCTION MAY BE EXCLUDED BY 
*    SETTING X:A = 0. 
* 
X:A	EQU	0 
CTIMUT	EQU	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, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB01  REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0086              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0056}
0x0086…0090              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00b8              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0094}
0x00b8…00c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00bc}
0x00c2…00e6              Head {h00=0x0020, h01=0x0050, text=»*   DRKB01 = DRIVER KEYBOARD«, t00=0x0000, t01=0x00c6}
0x00e6…00f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…00fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0104              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…010e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0108}
0x010e…0118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…0122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…0156              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0126}
0x0156…0160              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…019e              Head {h00=0x0030, h01=0x0050, text=»*    THIS DRIVER HANDLES INPUT FROM NUMERIC «, t00=0x0000, t01=0x016e}
0x019e…01d0              Head {h00=0x002e, h01=0x0050, text=»*    AND ALPHANUMERIC KEYBOARDS PTS 6231, «, t00=0x0001, t01=0x0012}
0x01d0…01fc              Head {h00=0x0028, h01=0x0050, text=»*    6232, 6233, 6234, 6331,AND 6342«, t00=0x0001, t01=0x0044}
0x01fc…022c              Head {h00=0x002c, h01=0x0050, text=»*    CONNECTED TO CPU VIA CHLT OR CHRT. «, t00=0x0001, t01=0x0070}
0x022c…0236              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…0266              Head {h00=0x002c, h01=0x0050, text=»*    ONLY INPUT DATA FROM DEPRESSED KEYS«, t00=0x0001, t01=0x00aa}
0x0266…028e              Head {h00=0x0024, h01=0x0050, text=»*    ARE HANDLED BY THE DRIVER. «, t00=0x0001, t01=0x00da}
0x028e…0298              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02cc              Head {h00=0x0030, h01=0x0050, text=»*    AN ECHO-DEVICE CAN BE ATTACHED TO EVERY«, t00=0x0001, t01=0x010c}
0x02cc…0300              Head {h00=0x0030, h01=0x0050, text=»*    KEYBOARD WHERE RECEIVED CHARACTERS ARE «, t00=0x0001, t01=0x0140}
0x0300…0314              Head {h00=0x0010, h01=0x0050, text=»*    ECHOED.«, t00=0x0001, t01=0x0174}
0x0314…031e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…0352 (2, 0, 400)  Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0004}
0x0352…035c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0038}
0x035c…0382              Head {h00=0x0022, h01=0x0050, text=»*    A C K B : ACTIVATION PART«, t00=0x0002, t01=0x0042}
0x0382…038c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038c…03b4              Head {h00=0x0024, h01=0x0050, text=»*    I H K B : INTERRUPT HANDLER«, t00=0x0002, t01=0x0072}
0x03b4…03be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009a}
0x03be…03e2              Head {h00=0x0020, h01=0x0050, text=»*    E C H O : ECHO HANDLER «, t00=0x0002, t01=0x00a4}
0x03e2…03ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ec…0414              Head {h00=0x0024, h01=0x0050, text=»*    R C K B : RECOVERY ROUTINE «, t00=0x0002, t01=0x00d2}
0x0414…041e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x041e…042c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0104}
0x042c…0436              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0112}
0x0436…0440              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011c}
0x0440…0470              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0126}
0x0470…047a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047a…049c              Head {h00=0x001e, h01=0x0050, text=»*    ORDER 01: BASIC READ «, t00=0x0002, t01=0x0160}
0x049c…04c0              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 02: STANDARD READ«, t00=0x0002, t01=0x0182}
0x04c0…04e4              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 03: NUMERIC READ «, t00=0x0003, t01=0x0016}
0x04e4…050e              Head {h00=0x0026, h01=0x0050, text=»*    ORDER 04: RESET INPUT BUFFER «, t00=0x0003, t01=0x003a}
0x050e…0518              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…0522              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006e}
0x0522…0546              Head {h00=0x0020, h01=0x0050, text=»*    NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x0078}
0x0546…0550              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009c}
0x0550…0576              Head {h00=0x0022, h01=0x0050, text=»*    REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x00a6}
0x0576…05a0              Head {h00=0x0026, h01=0x0050, text=»*             A2 : INPUT CHARACTER«, t00=0x0003, t01=0x00cc}
0x05a0…05c8              Head {h00=0x0024, h01=0x0050, text=»*             A3 : BUFFER INDEX «, t00=0x0003, t01=0x00f6}
0x05c8…05f0              Head {h00=0x0024, h01=0x0050, text=»*             A4 : WORK REGISTER«, t00=0x0003, t01=0x011e}
0x05f0…0616              Head {h00=0x0022, h01=0x0050, text=»*             A5 : STACK BASE «, t00=0x0003, t01=0x0146}
0x0616…063c              Head {h00=0x0022, h01=0x0050, text=»*             A6 : DWT-ADDRESS«, t00=0x0003, t01=0x016c}
0x063c…065c (4, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»*             A7 : ORDER«, t00=0x0004, t01=0x0004}
0x065c…0682              Head {h00=0x0022, h01=0x0050, text=»*             A8 : ECB-ADDRESS«, t00=0x0004, t01=0x0024}
0x0682…068c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x068c…069a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0054}
0x069a…06a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a4…06ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06ae…06cc              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0004, t01=0x0076}
0x06cc…06d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0094}
0x06d6…070e              Head {h00=0x0034, h01=0x0050, text=»*    KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD«, t00=0x0004, t01=0x009e}
0x070e…074c              Head {h00=0x003a, h01=0x0050, text=»*    IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ «, t00=0x0004, t01=0x00d6}
0x074c…0776              Head {h00=0x0026, h01=0x0050, text=»*    AND BIT 11 FOR NUMERIC READ. «, t00=0x0004, t01=0x0114}
0x0776…0780              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013e}
0x0780…07b0              Head {h00=0x002c, h01=0x0050, text=»*    BIT 10 = 0 FOR PTS 6231, 6233, 6234«, t00=0x0004, t01=0x0148}
0x07b0…07e4              Head {h00=0x0030, h01=0x0050, text=»*    BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 «, t00=0x0004, t01=0x0178}
0x07e4…0824              Head {h00=0x003c, h01=0x0050, text=»*    BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 «, t00=0x0005, t01=0x001c}
0x0824…084e              Head {h00=0x0026, h01=0x0050, text=»*    BIT 11 = 1 FOR PTS 6234,6342 «, t00=0x0005, t01=0x005c}
0x084e…0858              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x0858…0894              Head {h00=0x0038, h01=0x0050, text=»*    CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0005, t01=0x0090}
0x0894…08d0              Head {h00=0x0038, h01=0x0050, text=»*    MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0005, t01=0x00cc}
0x08d0…08e4              Head {h00=0x0010, h01=0x0050, text=»*    IN DWT.«, t00=0x0005, t01=0x0108}
0x08e4…08ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08ee…0924              Head {h00=0x0032, h01=0x0050, text=»*    DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0005, t01=0x0126}
0x0924…0940              Head {h00=0x0018, h01=0x0050, text=»*    DEFINED IN DWT.«, t00=0x0005, t01=0x015c}
0x0940…094a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0178}
0x094a…097a              Head {h00=0x002c, h01=0x0050, text=»*    IF TIMING IS WANTED, TIMER POINTER «, t00=0x0005, t01=0x0182}
0x097a…09aa              Head {h00=0x002c, h01=0x0050, text=»*    IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0006, t01=0x0022}
0x09aa…09e0              Head {h00=0x0032, h01=0x0050, text=»*    STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0006, t01=0x0052}
0x09e0…0a18              Head {h00=0x0034, h01=0x0050, text=»*    SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0006, t01=0x0088}
0x0a18…0a46              Head {h00=0x002a, h01=0x0050, text=»*    IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0006, t01=0x00c0}
0x0a46…0a6e              Head {h00=0x0024, h01=0x0050, text=»*    IN DRIVER MUST BE CHANGED. «, t00=0x0006, t01=0x00ee}
0x0a6e…0a78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a78…0ab0              Head {h00=0x0034, h01=0x0050, text=»*    THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0006, t01=0x0120}
0x0ab0…0aec              Head {h00=0x0038, h01=0x0050, text=»*    DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0006, t01=0x0158}
0x0aec…0b28 (7, 0, 400)  Head {h00=0x0038, h01=0x0050, text=»*    NOTE !!!  THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0007, t01=0x0004}
0x0b28…0b44              Head {h00=0x0018, h01=0x0050, text=»*    DWT:S IN SYSTEM«, t00=0x0007, t01=0x0040}
0x0b44…0b52              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x005c}
0x0b52…0b5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006a}
0x0b5c…0b98              Head {h00=0x0038, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0007, t01=0x0074}
0x0b98…0bd4              Head {h00=0x0038, h01=0x0050, text=»*    TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0007, t01=0x00b0}
0x0bd4…0bde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0bde…0bfe              Head {h00=0x001c, h01=0x0050, text=»*    -----ECHO-FUNCTION «, t00=0x0007, t01=0x00f6}
0x0bfe…0c1e              Head {h00=0x001c, h01=0x0050, text=»*    -----STANDARD READ «, t00=0x0007, t01=0x0116}
0x0c1e…0c42              Head {h00=0x0020, h01=0x0050, text=»*    -----TIME-OUT-FUNCTION «, t00=0x0007, t01=0x0136}
0x0c42…0c78              Head {h00=0x0032, h01=0x0050, text=»*    -----CODE CONVERSION VIA "8-BIT" SETTING «, t00=0x0007, t01=0x015a}
0x0c78…0ca0              Head {h00=0x0024, h01=0x0050, text=»*         AND CONVERSION TABLES «, t00=0x0007, t01=0x0190}
0x0ca0…0cd8              Head {h00=0x0034, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO«, t00=0x0008, t01=0x0028}
0x0cd8…0d10              Head {h00=0x0034, h01=0x0050, text=»*    POSSIBLE TO GIVE A KEY THE MEANING OF TWO, «, t00=0x0008, t01=0x0060}
0x0d10…0d32              Head {h00=0x001e, h01=0x0050, text=»*    THREE OR MORE ZEROES.«, t00=0x0008, t01=0x0098}
0x0d32…0d3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ba}
0x0d3c…0d76              Head {h00=0x0036, h01=0x0050, text=»*    THE DRIVER IS PREPARED TO HANDLE THE SPECIAL «, t00=0x0008, t01=0x00c4}
0x0d76…0daa              Head {h00=0x0030, h01=0x0050, text=»*    NORWAY-PROBLEM, WITH BETWEEN THEMSELVES«, t00=0x0008, t01=0x00fe}
0x0daa…0de0              Head {h00=0x0032, h01=0x0050, text=»*    DEPENDENT KEYBOARDS CONNECTED TO THE SAME«, t00=0x0008, t01=0x0132}
0x0de0…0dfc              Head {h00=0x0018, h01=0x0050, text=»*    SELECTOR UNIT. «, t00=0x0008, t01=0x0168}
0x0dfc…0e34              Head {h00=0x0034, h01=0x0050, text=»*    BY ASSEMBLING THE DRIVER CONDITIONALLY THIS«, t00=0x0008, t01=0x0184}
0x0e34…0e56              Head {h00=0x001e, h01=0x0050, text=»*    FUNCTION IS INCLUDED.«, t00=0x0009, t01=0x002c}
0x0e56…0e64              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x004e}
0x0e64…0e6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e6e…0e78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0066}
0x0e78…0e8e              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x0070}
0x0e8e…0ea4              Head {h00=0x0012, h01=0x0050, text=»* ENTRIES    *«, t00=0x0009, t01=0x0086}
0x0ea4…0eba              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x009c}
0x0eba…0ec4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec4…0ee6              Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD ADDRESS-BLOCK «, t00=0x0009, t01=0x00bc}
0x0ee6…0f12              Head {h00=0x0028, h01=0x0050, text=» ENTRY EOQUEU QUEUE POINTER ROUTINE «, t00=0x0009, t01=0x00de}
0x0f12…0f3e              Head {h00=0x0028, h01=0x0050, text=» ENTRY DWTINQ,DWTUTQ QUEUE POINTERS «, t00=0x0009, t01=0x010a}
0x0f3e…0f48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f48…0f52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f52…0f5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f5c…0f92              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0009, t01=0x0154}
0x0f92…0fc8              Head {h00=0x0032, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES            *«, t00=0x0009, t01=0x018a}
0x0fc8…0ffe              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x000a, t01=0x0030}
0x0ffe…1008              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x1008…1030              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/0 REQUEST ERROR «, t00=0x000a, t01=0x0070}
0x1030…1062              Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x000a, t01=0x0098}
0x1062…1080              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x00ca}
0x1080…10a6              Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x00e8}
0x10a6…10e4              Head {h00=0x003a, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN «, t00=0x000a, t01=0x010e}
0x10e4…111e              Head {h00=0x0036, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER «, t00=0x000a, t01=0x014c}
0x111e…114e              Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHO HANDLING «, t00=0x000a, t01=0x0186}
0x114e…1164              Head {h00=0x0012, h01=0x0050, text=» EXTRN LDREGF «, t00=0x000b, t01=0x0026}
0x1164…1182              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x000b, t01=0x003c}
0x1182…11a0              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x000b, t01=0x005a}
0x11a0…11c6              Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x000b, t01=0x0078}
0x11c6…11ec              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x000b, t01=0x009e}
0x11ec…120c              Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x000b, t01=0x00c4}
0x120c…122e              Head {h00=0x001e, h01=0x0050, text=» EXTRN ECHEND END OF ECHO «, t00=0x000b, t01=0x00e4}
0x122e…1238              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0106}
0x1238…1246              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0110}
0x1246…1250              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1250…1272              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x0128}
0x1272…1294              Head {h00=0x001e, h01=0x0050, text=»*    DWT PARAMETERS     * «, t00=0x000b, t01=0x014a}
0x1294…12b6              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x016c}
0x12b6…12c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018e}
0x12c0…12dc              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000c, t01=0x0008}
0x12dc…12fe              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000c, t01=0x0024}
0x12fe…1328              Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x000c, t01=0x0046}
0x1328…134a              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x000c, t01=0x0070}
0x134a…136c              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x000c, t01=0x0092}
0x136c…138e              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x000c, t01=0x00b4}
0x138e…13b8              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000c, t01=0x00d6}
0x13b8…13da              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x000c, t01=0x0100}
0x13da…13fe              Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x000c, t01=0x0122}
0x13fe…1408              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1408…1420              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0150}
0x1420…1438              Head {h00=0x0014, h01=0x0050, text=»*  CONSTANTS  * «, t00=0x000c, t01=0x0168}
0x1438…1450              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0180}
0x1450…145a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x145a…1488              Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000d, t01=0x0012}
0x1488…1492              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0040}
0x1492…14c4              Head {h00=0x002e, h01=0x0050, text=»X:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER «, t00=0x000d, t01=0x004a}
0x14c4…14fa              Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM«, t00=0x000d, t01=0x007c}
0x14fa…1504              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1504…1526              Head {h00=0x001e, h01=0x0050, text=»*    TIME BEFORE TIME-OUT «, t00=0x000d, t01=0x00bc}
0x1526…1530              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00de}
0x1530…1556              Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIME OUT CONSTANT«, t00=0x000d, t01=0x00e8}
0x1556…1560              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1560…156e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0118}
0x156e…1578              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x1578…1582              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0130}
0x1582…15b2              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000d, t01=0x013a}
0x15b2…15e2              Head {h00=0x002c, h01=0x0050, text=»*    CONDITIONAL ASSEMBLY              *«, t00=0x000d, t01=0x016a}
0x15e2…1612              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000e, t01=0x000a}
0x1612…161c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161c…164e              Head {h00=0x002e, h01=0x0050, text=»*    TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0044}
0x164e…166c              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:A = 0. «, t00=0x000e, t01=0x0076}
0x166c…1676              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0094}
0x1676…1688              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x009e}
0x1688…169e              Head {h00=0x0012, h01=0x0050, text=»CTIMUT EQU X:A«, t00=0x000e, t01=0x00b0}
0x169e…16a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16a8…16d6              Head {h00=0x002a, h01=0x0050, text=»*    ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x00d0}
0x16d6…16f4              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:B = 0. «, t00=0x000e, t01=0x00fe}
0x16f4…16fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011c}
0x16fe…1710              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0126}
0x1710…1726              Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:B «, t00=0x000e, t01=0x0138}
0x1726…1730              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x1730…175e              Head {h00=0x002a, h01=0x0050, text=»*    STANDARD READ MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0158}
0x175e…177c              Head {h00=0x001a, h01=0x0050, text=»*    SETTING X:C = 0. «, t00=0x000e, t01=0x0186}
0x177c…1786              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0014}
0x1786…1798              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000f, t01=0x001e}
0x1798…17ae              Head {h00=0x0012, h01=0x0050, text=»CSTAND EQU X:C«, t00=0x000f, t01=0x0030}
0x17ae…17b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17b8…17ea              Head {h00=0x002e, h01=0x0050, text=»*    DOUBLE ZERO MAY BE INCLUDED IN SYSTEM«, t00=0x000f, t01=0x0050}
0x17ea…1816              Head {h00=0x0028, h01=0x0050, text=»*    BY SETTING X:D = 2. SETTING X:D«, t00=0x000f, t01=0x0082}
0x1816…1846              Head {h00=0x002c, h01=0x0050, text=»*    = 3 GIVES A THREE ZERO FUNCTION AND«, t00=0x000f, t01=0x00ae}
0x1846…187e              Head {h00=0x0034, h01=0x0050, text=»*    X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON «, t00=0x000f, t01=0x00de}
0x187e…18b6              Head {h00=0x0034, h01=0x0050, text=»*    X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION«, t00=0x000f, t01=0x0116}
0x18b6…18c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014e}
0x18c0…18d2              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x000f, t01=0x0158}
0x18d2…18e8              Head {h00=0x0012, h01=0x0050, text=»CMULTZ EQU X:D«, t00=0x000f, t01=0x016a}
0x18e8…18f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0180}
0x18f2…1900              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x018a}
0x1900…190a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x190a…1946              Head {h00=0x0038, h01=0x0050, text=»*    BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION«, t00=0x0010, t01=0x0012}
0x1946…1972              Head {h00=0x0028, h01=0x0050, text=»*    CAN BE INCLUDED IN THE DRIVER. «, t00=0x0010, t01=0x004e}
0x1972…19b4              Head {h00=0x003e, h01=0x0050, text=»*    IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2«, t00=0x0010, t01=0x007a}
0x19b4…19f8              Head {h00=0x0040, h01=0x0050, text=»*    SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG«, t00=0x0010, t01=0x00bc}
0x19f8…1a3e              Head {h00=0x0042, h01=0x0050, text=»*    IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO «, t00=0x0010, t01=0x0100}
0x1a3e…1a74              Head {h00=0x0032, h01=0x0050, text=»*    BE COMPLETED WITH CONTROL WORD SET TO -2.«, t00=0x0010, t01=0x0146}
0x1a74…1a7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017c}
0x1a7e…1a90              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0010, t01=0x0186}
0x1a90…1aa6              Head {h00=0x0012, h01=0x0050, text=»POWOFF EQU X:E«, t00=0x0011, t01=0x0008}
0x1aa6…1ab0              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x001e}
0x1ab0…1aba              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x0028}
0x1aba…1af2              Head {h00=0x0034, h01=0x0050, text=»*    BY SETTING X:G TO 1 THE CODE CONVERSION VIA«, t00=0x0011, t01=0x0032}
0x1af2…1b28              Head {h00=0x0032, h01=0x0050, text=»*    "8-BIT" SETTING AND CONVERSION TABLES IS «, t00=0x0011, t01=0x006a}
0x1b28…1b4c              Head {h00=0x0020, h01=0x0050, text=»*    INCLUDED IN THE DRIVER.«, t00=0x0011, t01=0x00a0}
0x1b4c…1b56              Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x00c4}
0x1b56…1b68              Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x00ce}
0x1b68…1b7e              Head {h00=0x0012, h01=0x0050, text=»CONVER EQU X:G«, t00=0x0011, t01=0x00e0}
0x1b7e…1b86              Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00f6}
0x1b86…1b90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fe}
0x1b90…1b9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b9a…1bd6              Head {h00=0x0038, h01=0x0050, text=»*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0011, t01=0x0112}
0x1bd6…1bf8              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING CREDIT = 1 «, t00=0x0011, t01=0x014e}
0x1bf8…1c2c              Head {h00=0x0030, h01=0x0050, text=»*   ORDER /04 IS THEN REPLACED BY ORDER /31 «, t00=0x0011, t01=0x0170}
0x1c2c…1c6c              Head {h00=0x003c, h01=0x0050, text=»*    BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS «, t00=0x0012, t01=0x0014}
0x1c6c…1cb2              Head {h00=0x0042, h01=0x0050, text=»*     IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE «, t00=0x0012, t01=0x0054}
0x1cb2…1cf6              Head {h00=0x0040, h01=0x0050, text=»*    IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 «, t00=0x0012, t01=0x009a}
0x1cf6…1d26              Head {h00=0x002c, h01=0x0050, text=»*    AND SO ON.   (INDEX= 1,2,3,4,... ) «, t00=0x0012, t01=0x00de}
0x1d26…1d62              Head {h00=0x0038, h01=0x0050, text=»*    CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2«, t00=0x0012, t01=0x010e}
0x1d62…1d6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014a}
0x1d6c…1d76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d76…1d7e              Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x015e}
0x1d7e…1d92              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0012, t01=0x0166}
0x1d92…1d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017a}
0x1d9c…1dd4              Head {h00=0x0034, h01=0x0050, text=»*    BY SETTING NOLJE=1 THIS DRIVER IS PREPARED «, t00=0x0012, t01=0x0184}
0x1dd4…1e08              Head {h00=0x0030, h01=0x0050, text=»*    TO HANDLE THE NORWAY-CASE WITH BETWEEN «, t00=0x0013, t01=0x002c}
0x1e08…1e3a              Head {h00=0x002e, h01=0x0050, text=»*    THEMSELVES DEPENDENT KEYBOARDS ON THE«, t00=0x0013, t01=0x0060}
0x1e3a…1e5a              Head {h00=0x001c, h01=0x0050, text=»*    SAME SELECTOR UNIT.«, t00=0x0013, t01=0x0092}
0x1e5a…1e64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e64…1e78              Head {h00=0x0010, h01=0x0050, text=»NOLJE EQU 0 «, t00=0x0013, t01=0x00bc}
0x1e78…1e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d0}
0x1e82…1eb4              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0013, t01=0x00da}
0x1eb4…1ee2              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0013, t01=0x010c}
0x1ee2…1eec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013a}
0x1eec…1f00              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0013, t01=0x0144}
0x1f00…1f0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0158}
0x1f0a…1f14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0162}
0x1f14…1f4e              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0013, t01=0x016c}
0x1f4e…1f80              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0014, t01=0x0016}
0x1f80…1f8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0048}
0x1f8a…1f9e              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0014, t01=0x0052}
0x1f9e…1fa8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0066}
0x1fa8…1fb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0070}
0x1fb2…1fce              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0014, t01=0x007a}
0x1fce…1fd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0096}
0x1fd8…1fe2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a0}
0x1fe2…1ff4              Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x0014, t01=0x00aa}
0x1ff4…200a              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:J«, t00=0x0014, t01=0x00bc}
0x200a…2014              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d2}
0x2014…201e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00dc}
0x201e…203c              Head {h00=0x001a, h01=0x0050, text=»*   MMU KEY TABLE SIZE«, t00=0x0014, t01=0x00e6}
0x203c…2046              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0104}
0x2046…2050              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010e}
0x2050…2062              Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x0014, t01=0x0118}
0x2062…2078              Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:K«, t00=0x0014, t01=0x012a}
0x2078…2082              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0140}
0x2082…2090              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x014a}
0x2090…209a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x209a…20a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0162}
0x20a4…20c8              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0014, t01=0x016c}
0x20c8…20ec              Head {h00=0x0020, h01=0x0050, text=»*    DWT-DISPLACEMENT     * «, t00=0x0014, t01=0x0190}
0x20ec…2110              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0015, t01=0x0024}
0x2110…211a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x211a…2124              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0052}
0x2124…2158              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0015, t01=0x005c}
0x2158…2162              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0090}
0x2162…2178              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x009a}
0x2178…2190              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0015, t01=0x00b0}
0x2190…219c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00c8}
0x219c…21a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d4}
0x21a6…21bc              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x00de}
0x21bc…21d6              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0015, t01=0x00f4}
0x21d6…21e2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x010e}
0x21e2…21ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011a}
0x21ec…221a              Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x0015, t01=0x0124}
0x221a…2256              Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0015, t01=0x0152}
0x2256…2292              Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0015, t01=0x018e}
0x2292…22bc              Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0016, t01=0x003a}
0x22bc…22e8              Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0016, t01=0x0064}
0x22e8…22f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22f2…2324              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x009a}
0x2324…2356              Head {h00=0x002e, h01=0x0050, text=»*    SPECIAL KEYS DEFINED IN DWT        * «, t00=0x0016, t01=0x00cc}
0x2356…2388              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x00fe}
0x2388…2392              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0130}
0x2392…23c2              Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0016, t01=0x013a}
0x23c2…23ee              Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0016, t01=0x016a}
0x23ee…2418              Head {h00=0x0026, h01=0x0050, text=»KBEOF EQU START+/16 EOR-CHARACTER «, t00=0x0017, t01=0x0008}
0x2418…2448              Head {h00=0x002c, h01=0x0050, text=»KBMZ EQU START+/17 DOUBLE ZERO CHARACTER«, t00=0x0017, t01=0x0032}
0x2448…2452              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0062}
0x2452…2460              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x006c}
0x2460…246a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007a}
0x246a…2474              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0084}
0x2474…248a              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x008e}
0x248a…24a0              Head {h00=0x0012, h01=0x0050, text=»* TABLES     *«, t00=0x0017, t01=0x00a4}
0x24a0…24b6              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x00ba}
0x24b6…24c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d0}
0x24c0…24e4              Head {h00=0x0020, h01=0x0050, text=» DATA DVBKTB KEY TABLE SIZE «, t00=0x0017, t01=0x00da}
0x24e4…2508              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0017, t01=0x00fe}
0x2508…2524              Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0017, t01=0x0122}
0x2524…2536              Head {h00=0x000e, h01=0x0050, text=»KBAD EQU *«, t00=0x0017, t01=0x013e}
0x2536…255a              Head {h00=0x0020, h01=0x0050, text=» DATA ACKB ACTIVATION DRIVER«, t00=0x0017, t01=0x0150}
0x255a…2580              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0017, t01=0x0174}
0x2580…25a4              Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0018, t01=0x000a}
0x25a4…25ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x002e}
0x25ae…25c4              Head {h00=0x0012, h01=0x0050, text=» IFF POWOFF=1 «, t00=0x0018, t01=0x0038}
0x25c4…25ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004e}
0x25ce…25ea              Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0018, t01=0x0058}
0x25ea…25f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0074}
0x25f4…2600              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x007e}
0x2600…260a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008a}
0x260a…2614              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0094}
0x2614…262a              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0018, t01=0x009e}
0x262a…2634              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b4}
0x2634…2658              Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0018, t01=0x00be}
0x2658…2666              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00e2}
0x2666…2670              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f0}
0x2670…267a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fa}
0x267a…268e              Head {h00=0x0010, h01=0x0050, text=»*    R C K B«, t00=0x0018, t01=0x0104}
0x268e…2698              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0118}
0x2698…26ce              Head {h00=0x0032, h01=0x0050, text=»*    THIS IS THE RECOVERY ROUTINE FOR KEYBOARD«, t00=0x0018, t01=0x0122}
0x26ce…26f8              Head {h00=0x0026, h01=0x0050, text=»*    ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0018, t01=0x0158}
0x26f8…2702              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0182}
0x2702…2714              Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0018, t01=0x018c}
0x2714…272a              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x000e}
0x272a…2754              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0019, t01=0x0024}
0x2754…2760              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x004e}
0x2760…276a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x005a}
0x276a…2780              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x0064}
0x2780…2796              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x007a}
0x2796…27bc              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0019, t01=0x0090}
0x27bc…27c8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00b6}
0x27c8…27d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c2}
0x27d2…27e8              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x00cc}
0x27e8…2806              Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY ?«, t00=0x0019, t01=0x00e2}
0x2806…281c              Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0019, t01=0x0100}
0x281c…2832              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0019, t01=0x0116}
0x2832…2866              Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF OCCURED «, t00=0x0019, t01=0x012c}
0x2866…2878              Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0019, t01=0x0160}
0x2878…28a2              Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x0019, t01=0x0172}
0x28a2…28b4              Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x001a, t01=0x000c}
0x28b4…28be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001e}
0x28be…28ca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0028}
0x28ca…28d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0034}
0x28d4…28e2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x003e}
0x28e2…28ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004c}
0x28ec…28f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0056}
0x28f6…290a              Head {h00=0x0010, h01=0x0050, text=»*    A C K B«, t00=0x001a, t01=0x0060}
0x290a…2914              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0074}
0x2914…2932              Head {h00=0x001a, h01=0x0050, text=»*    ACTIVATION PART: «, t00=0x001a, t01=0x007e}
0x2932…293c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009c}
0x293c…2970              Head {h00=0x0030, h01=0x0050, text=»*    CHECKS VALIDITY OF ORDERS AND EXAMINES «, t00=0x001a, t01=0x00a6}
0x2970…29a0              Head {h00=0x002c, h01=0x0050, text=»*    INPUT BUFFER TO SEE IF SOME QUEUED «, t00=0x001a, t01=0x00da}
0x29a0…29b8              Head {h00=0x0014, h01=0x0050, text=»*    TO THREAT. «, t00=0x001a, t01=0x010a}
0x29b8…29c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29c2…29cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012c}
0x29cc…29de              Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x001a, t01=0x0136}
0x29de…29f4              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x001a, t01=0x0148}
0x29f4…2a2a              Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG«, t00=0x001a, t01=0x015e}
0x2a2a…2a3c (27, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001b, t01=0x0004}
0x2a3c…2a60              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x001b, t01=0x0016}
0x2a60…2a72              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001b, t01=0x003a}
0x2a72…2a98              Head {h00=0x0022, h01=0x0050, text=» RF(NG) AKB100 ILLEGEAL ORDER «, t00=0x001b, t01=0x004c}
0x2a98…2aac              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001b, t01=0x0072}
0x2aac…2ad0              Head {h00=0x0020, h01=0x0050, text=» CWK A7,/37 SELECT KEYBOARD «, t00=0x001b, t01=0x0086}
0x2ad0…2ae6              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBSEL «, t00=0x001b, t01=0x00aa}
0x2ae6…2af2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00c0}
0x2af2…2b08              Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=0 «, t00=0x001b, t01=0x00cc}
0x2b08…2b1a              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001b, t01=0x00e2}
0x2b1a…2b4a              Head {h00=0x002c, h01=0x0050, text=» RF(Z) AKB100 STANDARD READ NOT ALLOWED «, t00=0x001b, t01=0x00f4}
0x2b4a…2b5c              Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x001b, t01=0x0124}
0x2b5c…2b68              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0136}
0x2b68…2b70              Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0142}
0x2b70…2b82              Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x001b, t01=0x014a}
0x2b82…2b8a              Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x015c}
0x2b8a…2ba0              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x001b, t01=0x0164}
0x2ba0…2bb4              Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x001b, t01=0x017a}
0x2bb4…2bdc              Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRE:10 SKIP INPUT BUFFER «, t00=0x001b, t01=0x018e}
0x2bdc…2bf0              Head {h00=0x0010, h01=0x0050, text=» ADK A4,/2D «, t00=0x001c, t01=0x0026}
0x2bf0…2c04              Head {h00=0x0010, h01=0x0050, text=»CRE:10 EQU *«, t00=0x001c, t01=0x003a}
0x2c04…2c10              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x004e}
0x2c10…2c2e              Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 4 «, t00=0x001c, t01=0x005a}
0x2c2e…2c52              Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x001c, t01=0x0078}
0x2c52…2c80              Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/O REQUEST ERROR«, t00=0x001c, t01=0x009c}
0x2c80…2c94              Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001c, t01=0x00ca}
0x2c94…2ca2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00de}
0x2ca2…2cac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ec}
0x2cac…2cb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f6}
0x2cb6…2cde              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 4 RESET INPUT BUFFER «, t00=0x001c, t01=0x0100}
0x2cde…2ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0128}
0x2ce8…2d0e              Head {h00=0x0022, h01=0x0050, text=»AKB110 LD A2,DWTINQ,A6 ORDER 4«, t00=0x001c, t01=0x0132}
0x2d0e…2d3a              Head {h00=0x0028, h01=0x0050, text=» SCR A1,A2 RESET OVERFLOW IF OCCURED«, t00=0x001c, t01=0x0158}
0x2d3a…2d66              Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x001c, t01=0x0184}
0x2d66…2d82              Head {h00=0x0018, h01=0x0050, text=» ABL ENDI05 END I/O «, t00=0x001d, t01=0x0020}
0x2d82…2d96              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001d, t01=0x003c}
0x2d96…2da0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0050}
0x2da0…2daa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005a}
0x2daa…2dd0              Head {h00=0x0022, h01=0x0050, text=»*    ORDER 37  SELECT KEYBOARD«, t00=0x001d, t01=0x0064}
0x2dd0…2dda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008a}
0x2dda…2df6              Head {h00=0x0018, h01=0x0050, text=»AKBSEL LDKL A2,/FF7F«, t00=0x001d, t01=0x0094}
0x2df6…2e24              Head {h00=0x002a, h01=0x0050, text=» ANRS A2,A6 RESET ALLOW BITS IN DWTCHP«, t00=0x001d, t01=0x00b0}
0x2e24…2e38              Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001d, t01=0x00de}
0x2e38…2e44              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00f2}
0x2e44…2e52              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fe}
0x2e52…2e5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010c}
0x2e5c…2e66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0116}
0x2e66…2e82              Head {h00=0x0018, h01=0x0050, text=»*    ORDER 1   2   3«, t00=0x001d, t01=0x0120}
0x2e82…2e8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013c}
0x2e8c…2e96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0146}
0x2e96…2eaa              Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x001d, t01=0x0150}
0x2eaa…2eb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0164}
0x2eb4…2eca              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001d, t01=0x016e}
0x2eca…2ed4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ed4…2eec              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x001d, t01=0x018e}
0x2eec…2f0e              Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/200 POWER OFF ? «, t00=0x001e, t01=0x0016}
0x2f0e…2f24              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x001e, t01=0x0038}
0x2f24…2f46              Head {h00=0x001e, h01=0x0050, text=» XRS A2,DWTST,A6 RESET BIT«, t00=0x001e, t01=0x004e}
0x2f46…2f52              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0070}
0x2f52…2f66              Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x001e, t01=0x007c}
0x2f66…2f84              Head {h00=0x001a, h01=0x0050, text=» IFT CREDIT-POWOFF=-1 «, t00=0x001e, t01=0x0090}
0x2f84…2faa              Head {h00=0x0022, h01=0x0050, text=» LDKL A1,-2 INDICATE POWER ON «, t00=0x001e, t01=0x00ae}
0x2faa…2fbe              Head {h00=0x0010, h01=0x0050, text=» ST A1,10,A8«, t00=0x001e, t01=0x00d4}
0x2fbe…2fca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00e8}
0x2fca…2fe6              Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+POWOFF=2«, t00=0x001e, t01=0x00f4}
0x2fe6…300a              Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER ON «, t00=0x001e, t01=0x0110}
0x300a…3016              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0134}
0x3016…302c              Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001e, t01=0x0140}
0x302c…3040              Head {h00=0x0010, h01=0x0050, text=» ABL AKB380 «, t00=0x001e, t01=0x0156}
0x3040…304a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x016a}
0x304a…3056              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0174}
0x3056…3060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0180}
0x3060…3074              Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x001e, t01=0x018a}
0x3074…307e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x000e}
0x307e…3094              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001f, t01=0x0018}
0x3094…309e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002e}
0x309e…30b2              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x001f, t01=0x0038}
0x30b2…30ce              Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING ?«, t00=0x001f, t01=0x004c}
0x30ce…30fe              Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE «, t00=0x001f, t01=0x0068}
0x30fe…3116              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x001f, t01=0x0098}
0x3116…312c              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x001f, t01=0x00b0}
0x312c…3142              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x001f, t01=0x00c6}
0x3142…315a              Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x001f, t01=0x00dc}
0x315a…316c              Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001f, t01=0x00f4}
0x316c…3180              Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001f, t01=0x0106}
0x3180…31a4              Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x001f, t01=0x011a}
0x31a4…31c6              Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x001f, t01=0x013e}
0x31c6…31d8              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x001f, t01=0x0160}
0x31d8…31f8              Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x001f, t01=0x0172}
0x31f8…322c (32, 0, 400) Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0020, t01=0x0004}
0x322c…325e              Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0020, t01=0x0038}
0x325e…3268              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006a}
0x3268…3274              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0074}
0x3274…327e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0080}
0x327e…32a8              Head {h00=0x0026, h01=0x0050, text=»AKB210 LD A2,4,A8 REQUESTED LENGTH«, t00=0x0020, t01=0x008a}
0x32a8…32d8              Head {h00=0x002c, h01=0x0050, text=»AKB220 RF(E) AKB380 RESET A1 AND END I/O«, t00=0x0020, t01=0x00b4}
0x32d8…32f8              Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 FIRST TIME ? «, t00=0x0020, t01=0x00e4}
0x32f8…3312              Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 NO «, t00=0x0020, t01=0x0104}
0x3312…3334              Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x0020, t01=0x011e}
0x3334…3346              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x0140}
0x3346…336a              Head {h00=0x0020, h01=0x0050, text=» ADR A1,A2 ADDRESS IN BUFFER«, t00=0x0020, t01=0x0152}
0x336a…3392              Head {h00=0x0024, h01=0x0050, text=»AKB230 SCR A3,A1 STORE CHARACTER«, t00=0x0020, t01=0x0176}
0x3392…33b8              Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 NEXT CHAR. POSITION «, t00=0x0021, t01=0x000e}
0x33b8…33d0              Head {h00=0x0014, h01=0x0050, text=» SUK A2,1 LAST ?«, t00=0x0021, t01=0x0034}
0x33d0…33ea              Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB230 NO «, t00=0x0021, t01=0x004c}
0x33ea…33f8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0066}
0x33f8…3402              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0074}
0x3402…3432              Head {h00=0x002c, h01=0x0050, text=»*    READ CHARACTER FROM INPUT BUFFER OR«, t00=0x0021, t01=0x007e}
0x3432…345c              Head {h00=0x0026, h01=0x0050, text=»*    WAIT FOR KEY-BOARD INTERRUPT «, t00=0x0021, t01=0x00ae}
0x345c…3466              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d8}
0x3466…347a              Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x0021, t01=0x00e2}
0x347a…3492              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x0021, t01=0x00f6}
0x3492…34b0              Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0021, t01=0x010e}
0x34b0…34c2              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x012c}
0x34c2…34e0              Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x0021, t01=0x013e}
0x34e0…34f6              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB250«, t00=0x0021, t01=0x015c}
0x34f6…351c              Head {h00=0x0022, h01=0x0050, text=» SCR A4,A1 RESET OVERFLOW MARK«, t00=0x0021, t01=0x0172}
0x351c…3540              Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x0022, t01=0x0008}
0x3540…3552              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x002c}
0x3552…3584              Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x0022, t01=0x003e}
0x3584…359a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB260«, t00=0x0022, t01=0x0070}
0x359a…35c0              Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x0022, t01=0x0086}
0x35c0…35d6              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0022, t01=0x00ac}
0x35d6…3604              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x0022, t01=0x00c2}
0x3604…3626              Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB270 NO TIME-OUT «, t00=0x0022, t01=0x00f0}
0x3626…364c              Head {h00=0x0022, h01=0x0050, text=» RF ENDI05 END I/O AT TIME OUT«, t00=0x0022, t01=0x0112}
0x364c…3658              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0138}
0x3658…366e              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x0022, t01=0x0144}
0x366e…3680              Head {h00=0x000e, h01=0x0050, text=» RF AKB270«, t00=0x0022, t01=0x015a}
0x3680…368c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x016c}
0x368c…36c0              Head {h00=0x0030, h01=0x0050, text=»AKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER «, t00=0x0022, t01=0x0178}
0x36c0…36ea              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x0023, t01=0x001c}
0x36ea…3702              Head {h00=0x0014, h01=0x0050, text=»AKB270 LDR A4,A7«, t00=0x0023, t01=0x0046}
0x3702…3714              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0023, t01=0x005e}
0x3714…3738              Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x0023, t01=0x0070}
0x3738…3746              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0094}
0x3746…3750              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a2}
0x3750…375a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ac}
0x375a…377a              Head {h00=0x001c, h01=0x0050, text=»*    ORDER 1  BASIC READ«, t00=0x0023, t01=0x00b6}
0x377a…3784              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d6}
0x3784…37b8              Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0023, t01=0x00e0}
0x37b8…37cc              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0023, t01=0x0114}
0x37cc…37f8              Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHO ECHO INPUTTED CHARACTER «, t00=0x0023, t01=0x0128}
0x37f8…3804              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0154}
0x3804…3838              Head {h00=0x0030, h01=0x0050, text=» CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? «, t00=0x0023, t01=0x0160}
0x3838…384a (36, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB AKB220«, t00=0x0024, t01=0x0004}
0x384a…3858              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0016}
0x3858…3862              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0024}
0x3862…386c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002e}
0x386c…38a2              Head {h00=0x0032, h01=0x0050, text=»*    ORDER 2 OR 3   STANDARD AND NUMERIC READ «, t00=0x0024, t01=0x0038}
0x38a2…38ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006e}
0x38ac…38e6              Head {h00=0x0036, h01=0x0050, text=»*    CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE«, t00=0x0024, t01=0x0078}
0x38e6…38f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38f0…38fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00bc}
0x38fa…3926              Head {h00=0x0028, h01=0x0050, text=»AKB310 LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x0024, t01=0x00c6}
0x3926…3948              Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB359 NO KEYTABLE «, t00=0x0024, t01=0x00f2}
0x3948…396e              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x0024, t01=0x0114}
0x396e…3982              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0024, t01=0x013a}
0x3982…39ac              Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x0024, t01=0x014e}
0x39ac…39be              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0024, t01=0x0178}
0x39be…39d6              Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0024, t01=0x018a}
0x39d6…3a06              Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0025, t01=0x0012}
0x3a06…3a20              Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0025, t01=0x0042}
0x3a20…3a42              Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER? «, t00=0x0025, t01=0x005c}
0x3a42…3a5c              Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO «, t00=0x0025, t01=0x007e}
0x3a5c…3a72              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0025, t01=0x0098}
0x3a72…3a96              Head {h00=0x0020, h01=0x0050, text=» ADR A4,A4 YES DOUBLE INDEX «, t00=0x0025, t01=0x00ae}
0x3a96…3aa2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00d2}
0x3aa2…3ab8              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0025, t01=0x00de}
0x3ab8…3ae4              Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDEX STARTS AT ONE,INCR=1«, t00=0x0025, t01=0x00f4}
0x3ae4…3af0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0120}
0x3af0…3b20              Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROLWORD «, t00=0x0025, t01=0x012c}
0x3b20…3b4c              Head {h00=0x0028, h01=0x0050, text=»AKB358 CF A15,STORE STORE CHARACTER «, t00=0x0025, t01=0x015c}
0x3b4c…3b5e              Head {h00=0x000e, h01=0x0050, text=» RF AKB370«, t00=0x0025, t01=0x0188}
0x3b5e…3b68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x000a}
0x3b68…3b72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0014}
0x3b72…3baa              Head {h00=0x0034, h01=0x0050, text=»AKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY«, t00=0x0026, t01=0x001e}
0x3baa…3bc4              Head {h00=0x0016, h01=0x0050, text=» RB(E) AKB358 YES «, t00=0x0026, t01=0x0056}
0x3bc4…3bd2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0070}
0x3bd2…3bdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007e}
0x3bdc…3c0a              Head {h00=0x002a, h01=0x0050, text=»*    CHARACTER NOT FOUND IN KEY-TABLE.«, t00=0x0026, t01=0x0088}
0x3c0a…3c2c              Head {h00=0x001e, h01=0x0050, text=»*    CHECK CHARACTER CODE.«, t00=0x0026, t01=0x00b6}
0x3c2c…3c36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d8}
0x3c36…3c4a              Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0026, t01=0x00e2}
0x3c4a…3c6e              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0026, t01=0x00f6}
0x3c6e…3c98              Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x0026, t01=0x011a}
0x3c98…3cba              Head {h00=0x001e, h01=0x0050, text=» ANK A4,/20 SHIFT BIT 9 ? «, t00=0x0026, t01=0x0144}
0x3cba…3cd4              Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB361 YES «, t00=0x0026, t01=0x0166}
0x3cd4…3cf0              Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0026, t01=0x0180}
0x3cf0…3d02              Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x000c}
0x3d02…3d16              Head {h00=0x0010, h01=0x0050, text=»AKB361 EQU *«, t00=0x0027, t01=0x001e}
0x3d16…3d2a              Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A6 «, t00=0x0027, t01=0x0032}
0x3d2a…3d48              Head {h00=0x001a, h01=0x0050, text=» ANK A4,/10 PTS 6234 ?«, t00=0x0027, t01=0x0046}
0x3d48…3d5e              Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB362 «, t00=0x0027, t01=0x0064}
0x3d5e…3d70              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x007a}
0x3d70…3d84              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0027, t01=0x008c}
0x3d84…3d9a              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB362«, t00=0x0027, t01=0x00a0}
0x3d9a…3dac              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x00b6}
0x3dac…3dbe              Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x00c8}
0x3dbe…3dd2              Head {h00=0x0010, h01=0x0050, text=»AKB362 EQU *«, t00=0x0027, t01=0x00da}
0x3dd2…3dee              Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0027, t01=0x00ee}
0x3dee…3e0e              Head {h00=0x001c, h01=0x0050, text=» ANK A4,/BF RESET BIT 9 «, t00=0x0027, t01=0x010a}
0x3e0e…3e22              Head {h00=0x0010, h01=0x0050, text=»AKB363 EQU *«, t00=0x0027, t01=0x012a}
0x3e22…3e38              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x0027, t01=0x013e}
0x3e38…3e5e              Head {h00=0x0022, h01=0x0050, text=» CC A4,KBMZ,A6 MULTIPLE ZERO ?«, t00=0x0027, t01=0x0154}
0x3e5e…3e78              Head {h00=0x0016, h01=0x0050, text=» RF(E) KBMZ10 YES!«, t00=0x0027, t01=0x017a}
0x3e78…3e84 (40, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0004}
0x3e84…3ea2              Head {h00=0x001a, h01=0x0050, text=» CC A4,KBCLR,A6 CLEAR?«, t00=0x0028, t01=0x0010}
0x3ea2…3eb8              Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0028, t01=0x002e}
0x3eb8…3eda              Head {h00=0x001e, h01=0x0050, text=» CC A4,KBBSP,A6 BACKSPACE?«, t00=0x0028, t01=0x0044}
0x3eda…3ef0              Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0028, t01=0x0066}
0x3ef0…3f10              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x0028, t01=0x007c}
0x3f10…3f3c              Head {h00=0x0028, h01=0x0050, text=» RF(NE) AKB369 YES,STORE AND END I/O«, t00=0x0028, t01=0x009c}
0x3f3c…3f52              Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0028, t01=0x00c8}
0x3f52…3f66              Head {h00=0x0010, h01=0x0050, text=»AKB365 EQU *«, t00=0x0028, t01=0x00de}
0x3f66…3f7a              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x00f2}
0x3f7a…3f9c              Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHOCHARACTER «, t00=0x0028, t01=0x0106}
0x3f9c…3fa8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0128}
0x3fa8…3fcc              Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0028, t01=0x0134}
0x3fcc…3fe4              Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB210 NO«, t00=0x0028, t01=0x0158}
0x3fe4…400c              Head {h00=0x0024, h01=0x0050, text=»AKB368 LDK A1,8 SET RETURN CODE «, t00=0x0028, t01=0x0170}
0x400c…402a              Head {h00=0x001a, h01=0x0050, text=» RF ENDIO AND END I/O «, t00=0x0029, t01=0x0008}
0x402a…4064              Head {h00=0x0036, h01=0x0050, text=»AKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0029, t01=0x0026}
0x4064…4086              Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0029, t01=0x0060}
0x4086…4094              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0082}
0x4094…409e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0090}
0x409e…40a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x009a}
0x40a8…40d4              Head {h00=0x0028, h01=0x0050, text=»*    CHECK CODE OF END OF RECORD KEY«, t00=0x0029, t01=0x00a4}
0x40d4…40de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d0}
0x40de…40e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00da}
0x40e8…40fc              Head {h00=0x0010, h01=0x0050, text=»AKB370 EQU *«, t00=0x0029, t01=0x00e4}
0x40fc…4110              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0029, t01=0x00f8}
0x4110…4134              Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0029, t01=0x010c}
0x4134…415e              Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE END OF RECORD«, t00=0x0029, t01=0x0130}
0x415e…417e              Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x0029, t01=0x015a}
0x417e…4194              Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB380«, t00=0x0029, t01=0x017a}
0x4194…41b6              Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x0029, t01=0x0190}
0x41b6…41c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0022}
0x41c0…41cc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x002c}
0x41cc…41d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0038}
0x41d6…41fa              Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x0042}
0x41fa…4208              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0066}
0x4208…4212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0074}
0x4212…421c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007e}
0x421c…424c              Head {h00=0x002c, h01=0x0050, text=»*    THIS IS A COMMON END OF THE DRIVER «, t00=0x002a, t01=0x0088}
0x424c…4256              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b8}
0x4256…428c              Head {h00=0x0032, h01=0x0050, text=»*    SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x002a, t01=0x00c2}
0x428c…42b4              Head {h00=0x0024, h01=0x0050, text=»*    ON KEYBOARD AND ECHO-DEVICE«, t00=0x002a, t01=0x00f8}
0x42b4…42be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0120}
0x42be…42c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012a}
0x42c8…42dc              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x002a, t01=0x0134}
0x42dc…42e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0148}
0x42e6…42fc              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002a, t01=0x0152}
0x42fc…4308              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002a, t01=0x0168}
0x4308…4320              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x002a, t01=0x0174}
0x4320…434e              Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x002a, t01=0x018c}
0x434e…4370              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x002b, t01=0x002a}
0x4370…4384              Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002b, t01=0x004c}
0x4384…4390              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0060}
0x4390…439a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006c}
0x439a…43ca              Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x002b, t01=0x0076}
0x43ca…43de              Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x002b, t01=0x00a6}
0x43de…43e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ba}
0x43e8…43fc              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002b, t01=0x00c4}
0x43fc…4416              Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x002b, t01=0x00d8}
0x4416…4442              Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x002b, t01=0x00f2}
0x4442…4460              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x002b, t01=0x011e}
0x4460…446c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x013c}
0x446c…4476              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0148}
0x4476…44aa              Head {h00=0x0030, h01=0x0050, text=» ABL DISEND END I/O ON KEYBOARD AND DISPATCH«, t00=0x002b, t01=0x0152}
0x44aa…44b8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0186}
0x44b8…44c2 (44, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0004}
0x44c2…44dc              Head {h00=0x0016, h01=0x0050, text=»*    MULTIPLE ZERO«, t00=0x002c, t01=0x000e}
0x44dc…44e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0028}
0x44e6…44fc              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002c, t01=0x0032}
0x44fc…4510              Head {h00=0x0010, h01=0x0050, text=»KBMZ10 EQU *«, t00=0x002c, t01=0x0048}
0x4510…453c              Head {h00=0x0028, h01=0x0050, text=» LDK A4,CMULTZ LOAD NUMBER OF ZEROES«, t00=0x002c, t01=0x005c}
0x453c…456c              Head {h00=0x002c, h01=0x0050, text=»KBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO«, t00=0x002c, t01=0x0088}
0x456c…457e              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x00b8}
0x457e…459c              Head {h00=0x001a, h01=0x0050, text=» RB(L) AKB240 ALL DONE«, t00=0x002c, t01=0x00ca}
0x459c…45b6              Head {h00=0x0016, h01=0x0050, text=» LDR A1,A4 SAVE A4«, t00=0x002c, t01=0x00e8}
0x45b6…45e6              Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE ZOERO IN ECB-BUFFER «, t00=0x002c, t01=0x0102}
0x45e6…4604              Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 RESTORE A4 «, t00=0x002c, t01=0x0132}
0x4604…460e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0150}
0x460e…4622              Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002c, t01=0x015a}
0x4622…462c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016e}
0x462c…464a              Head {h00=0x001a, h01=0x0050, text=» CF A5,ECHO ECHO ZERO «, t00=0x002c, t01=0x0178}
0x464a…4656              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0008}
0x4656…4660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0014}
0x4660…466a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001e}
0x466a…4680              Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002d, t01=0x0028}
0x4680…468a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x003e}
0x468a…46b0              Head {h00=0x0022, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW ? «, t00=0x002d, t01=0x0048}
0x46b0…46c8              Head {h00=0x0014, h01=0x0050, text=» RB(L) KBMZ20 NO«, t00=0x002d, t01=0x006e}
0x46c8…46fa              Head {h00=0x002e, h01=0x0050, text=»KBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ?«, t00=0x002d, t01=0x0086}
0x46fa…4712              Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB368 NO«, t00=0x002d, t01=0x00b8}
0x4712…471e              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x00d0}
0x471e…474c              Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x002d, t01=0x00dc}
0x474c…475e              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x002d, t01=0x010a}
0x475e…4784              Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x002d, t01=0x011c}
0x4784…479e              Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ30 NO «, t00=0x002d, t01=0x0142}
0x479e…47ce              Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x002d, t01=0x015c}
0x47ce…47e0              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x002d, t01=0x018c}
0x47e0…47f2              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x000e}
0x47f2…4804              Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x002e, t01=0x0020}
0x4804…483a              Head {h00=0x0032, h01=0x0050, text=»KBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x002e, t01=0x0032}
0x483a…484c              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x0068}
0x484c…487c              Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x002e, t01=0x007a}
0x487c…48a0              Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x002e, t01=0x00aa}
0x48a0…48d4              Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x002e, t01=0x00ce}
0x48d4…48fe              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x002e, t01=0x0102}
0x48fe…491e              Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x002e, t01=0x012c}
0x491e…4942              Head {h00=0x0020, h01=0x0050, text=» RB KBMZ25 ONCE MORE TIME !!«, t00=0x002e, t01=0x014c}
0x4942…4956              Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x002e, t01=0x0170}
0x4956…4982              Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x002e, t01=0x0184}
0x4982…4994              Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x002f, t01=0x0020}
0x4994…49bc              Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x002f, t01=0x0032}
0x49bc…49e8              Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x002f, t01=0x005a}
0x49e8…4a16              Head {h00=0x002a, h01=0x0050, text=» RB ENDIO LENGTH AND THRUGHPUT ERRORS «, t00=0x002f, t01=0x0086}
0x4a16…4a22              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00b4}
0x4a22…4a2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c0}
0x4a2c…4a3e              Head {h00=0x000e, h01=0x0050, text=»*    CLEAR«, t00=0x002f, t01=0x00ca}
0x4a3e…4a48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00dc}
0x4a48…4a72              Head {h00=0x0026, h01=0x0050, text=»KBCL10 LDK A3,0 RESET BUFFER INDEX«, t00=0x002f, t01=0x00e6}
0x4a72…4a9c              Head {h00=0x0026, h01=0x0050, text=» LDK A2,/18 CHANGE CHARACTER-CODE «, t00=0x002f, t01=0x0110}
0x4a9c…4aae              Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x002f, t01=0x013a}
0x4aae…4ab8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014c}
0x4ab8…4ace              Head {h00=0x0012, h01=0x0050, text=»*    BACKSPACE«, t00=0x002f, t01=0x0156}
0x4ace…4ad8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x016c}
0x4ad8…4b02              Head {h00=0x0026, h01=0x0050, text=»KBSP10 LDR A3,A3 FIRST CHARACTER? «, t00=0x002f, t01=0x0176}
0x4b02…4b18              Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0030, t01=0x0010}
0x4b18…4b40              Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER INDEX«, t00=0x0030, t01=0x0026}
0x4b40…4b64              Head {h00=0x0020, h01=0x0050, text=» LDK A2,/00 CLEAR ECB-BUFFER«, t00=0x0030, t01=0x004e}
0x4b64…4b7a              Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0030, t01=0x0072}
0x4b7a…4b9c              Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 DECREMENT INDEX «, t00=0x0030, t01=0x0088}
0x4b9c…4bca              Head {h00=0x002a, h01=0x0050, text=»KBSP15 LDK A2,/8 CHANGE CHARACTER-CODE«, t00=0x0030, t01=0x00aa}
0x4bca…4bdc              Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x0030, t01=0x00d8}
0x4bdc…4bea              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00ea}
0x4bea…4bf4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f8}
0x4bf4…4c08              Head {h00=0x0010, h01=0x0050, text=»*    C H E K«, t00=0x0030, t01=0x0102}
0x4c08…4c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0116}
0x4c12…4c1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0120}
0x4c1c…4c4c              Head {h00=0x002c, h01=0x0050, text=»*    SUBROUTINE TO CHECK INPUT CHARACTER«, t00=0x0030, t01=0x012a}
0x4c4c…4c56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015a}
0x4c56…4c6c              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0030, t01=0x0164}
0x4c6c…4c76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x017a}
0x4c76…4c92              Head {h00=0x0018, h01=0x0050, text=»*    A2 = CHARACTER «, t00=0x0030, t01=0x0184}
0x4c92…4cb0              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x0031, t01=0x0010}
0x4cb0…4cce              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x0031, t01=0x002e}
0x4cce…4ce6              Head {h00=0x0014, h01=0x0050, text=»*    A7 = ORDER «, t00=0x0031, t01=0x004c}
0x4ce6…4cf0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0064}
0x4cf0…4cfa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006e}
0x4cfa…4d10              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0031, t01=0x0078}
0x4d10…4d1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008e}
0x4d1a…4d38              Head {h00=0x001a, h01=0x0050, text=»*    A1 = RETURN CODE «, t00=0x0031, t01=0x0098}
0x4d38…4d42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b6}
0x4d42…4d54              Head {h00=0x000e, h01=0x0050, text=»CHEK EQU *«, t00=0x0031, t01=0x00c0}
0x4d54…4d78              Head {h00=0x0020, h01=0x0050, text=» STR A2,A15 SAVE A2 ON STACK«, t00=0x0031, t01=0x00d2}
0x4d78…4d8c              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0031, t01=0x00f6}
0x4d8c…4db2              Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0031, t01=0x010a}
0x4db2…4dbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0130}
0x4dbc…4dd2              Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=1 «, t00=0x0031, t01=0x013a}
0x4dd2…4ddc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0150}
0x4ddc…4df6              Head {h00=0x0016, h01=0x0050, text=» CWK A7,2 ORDER 2?«, t00=0x0031, t01=0x015a}
0x4df6…4e10              Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHEK05 NO «, t00=0x0031, t01=0x0174}
0x4e10…4e24              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/20 «, t00=0x0031, t01=0x018e}
0x4e24…4e50              Head {h00=0x0028, h01=0x0050, text=» ORK A1,/5F 5F OR 7F AS UPPER LIMIT «, t00=0x0032, t01=0x0012}
0x4e50…4e70              Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0032, t01=0x003e}
0x4e70…4e82              Head {h00=0x000e, h01=0x0050, text=» RF CHEK08«, t00=0x0032, t01=0x005e}
0x4e82…4e8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0070}
0x4e8c…4e98              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x007a}
0x4e98…4ea2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0086}
0x4ea2…4ebc              Head {h00=0x0016, h01=0x0050, text=»CHEK05 ANK A1,/10 «, t00=0x0032, t01=0x0090}
0x4ebc…4ed2              Head {h00=0x0012, h01=0x0050, text=» RF(NE) CHEK06«, t00=0x0032, t01=0x00aa}
0x4ed2…4ef2              Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x00c0}
0x4ef2…4f18              Head {h00=0x0022, h01=0x0050, text=»CHEK06 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x00e0}
0x4f18…4f38              Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x0106}
0x4f38…4f50              Head {h00=0x0014, h01=0x0050, text=»CHEK08 SUR A1,A2«, t00=0x0032, t01=0x0126}
0x4f50…4f76              Head {h00=0x0022, h01=0x0050, text=» RF(N) CHERRO CODE CHECK ERROR«, t00=0x0032, t01=0x013e}
0x4f76…4f88              Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0032, t01=0x0164}
0x4f88…4fae              Head {h00=0x0022, h01=0x0050, text=» RF(P) CHERRO CODE CHECK ERROR«, t00=0x0032, t01=0x0176}
0x4fae…4fc2              Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0033, t01=0x000c}
0x4fc2…4fe6              Head {h00=0x0020, h01=0x0050, text=»CHEK10 LDK A1,0 RETURN CODE «, t00=0x0033, t01=0x0020}
0x4fe6…4ffc              Head {h00=0x0012, h01=0x0050, text=»CHEK20 RTN A5 «, t00=0x0033, t01=0x0044}
0x4ffc…5006              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x005a}
0x5006…5010              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0064}
0x5010…502e              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0033, t01=0x006e}
0x502e…5038              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008c}
0x5038…506a              Head {h00=0x002e, h01=0x0050, text=»CHERRO LDK A1,4 SET RETURN CODE AND RETURN«, t00=0x0033, t01=0x0096}
0x506a…5090              Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A15 RELOAD CHARACTER «, t00=0x0033, t01=0x00c8}
0x5090…50a2              Head {h00=0x000e, h01=0x0050, text=» RB CHEK20«, t00=0x0033, t01=0x00ee}
0x50a2…50b0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0100}
0x50b0…50ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010e}
0x50ba…50c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0118}
0x50c4…50d8              Head {h00=0x0010, h01=0x0050, text=»*    I H K B«, t00=0x0033, t01=0x0122}
0x50d8…50e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0136}
0x50e2…512a              Head {h00=0x0044, h01=0x0050, text=»*    THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0033, t01=0x0140}
0x512a…5134              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0188}
0x5134…513e (52, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0004}
0x513e…5150              Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0034, t01=0x000e}
0x5150…5164              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0034, t01=0x0020}
0x5164…5186              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET ALLOW BITS«, t00=0x0034, t01=0x0034}
0x5186…519a              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/C0 «, t00=0x0034, t01=0x0056}
0x519a…51d2              Head {h00=0x0034, h01=0x0050, text=» RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS «, t00=0x0034, t01=0x006a}
0x51d2…51e4              Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0034, t01=0x00a2}
0x51e4…51f8              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/80 «, t00=0x0034, t01=0x00b4}
0x51f8…520e              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL1 «, t00=0x0034, t01=0x00c8}
0x520e…5220              Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x0034, t01=0x00de}
0x5220…5238              Head {h00=0x0014, h01=0x0050, text=»IHNOL1 LDR A3,A2«, t00=0x0034, t01=0x00f0}
0x5238…524a              Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0034, t01=0x0108}
0x524a…525c              Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0034, t01=0x011a}
0x525c…5270              Head {h00=0x0010, h01=0x0050, text=» RF(NE) EXIT«, t00=0x0034, t01=0x012c}
0x5270…5284              Head {h00=0x0010, h01=0x0050, text=»IHNOL2 EQU *«, t00=0x0034, t01=0x0140}
0x5284…5290              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0154}
0x5290…529a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0160}
0x529a…52b0              Head {h00=0x0012, h01=0x0050, text=» IFT CONVER=1 «, t00=0x0034, t01=0x016a}
0x52b0…52ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0180}
0x52ba…52d8              Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 INPUT WORD «, t00=0x0034, t01=0x018a}
0x52d8…52fe              Head {h00=0x0022, h01=0x0050, text=» SRL A4,11 DEVICE ADDRESS * 2 «, t00=0x0035, t01=0x0018}
0x52fe…5310              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/E«, t00=0x0035, t01=0x003e}
0x5310…5338              Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTBC,A6 8-BIT SETTING ? «, t00=0x0035, t01=0x0050}
0x5338…534e              Head {h00=0x0012, h01=0x0050, text=» RF(NE) IHKB03«, t00=0x0035, t01=0x0078}
0x534e…5360              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x008e}
0x5360…5374              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0035, t01=0x00a0}
0x5374…5388              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0035, t01=0x00b4}
0x5388…539e              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB01 «, t00=0x0035, t01=0x00c8}
0x539e…53b0              Head {h00=0x000e, h01=0x0050, text=» SUK A3,/A«, t00=0x0035, t01=0x00de}
0x53b0…53c6              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB02 «, t00=0x0035, t01=0x00f0}
0x53c6…53e0              Head {h00=0x0016, h01=0x0050, text=»IHKB01 ORK A2,/80 «, t00=0x0035, t01=0x0106}
0x53e0…53f2              Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0035, t01=0x0120}
0x53f2…540e              Head {h00=0x0018, h01=0x0050, text=»IHKB02 ANKL A2,/FF3F«, t00=0x0035, t01=0x0132}
0x540e…5420              Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0035, t01=0x014e}
0x5420…5458              Head {h00=0x0034, h01=0x0050, text=»IHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS «, t00=0x0035, t01=0x0160}
0x5458…546e              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x0008}
0x546e…5480              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x001e}
0x5480…5494              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0036, t01=0x0030}
0x5494…54b0              Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x0036, t01=0x0044}
0x54b0…54c2              Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0036, t01=0x0060}
0x54c2…54ea              Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A3 COLUMN TABLE ADDRESS«, t00=0x0036, t01=0x0072}
0x54ea…5500              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x009a}
0x5500…5512              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x00b0}
0x5512…5524              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0036, t01=0x00c2}
0x5524…5544              Head {h00=0x001c, h01=0x0050, text=» ADR A3,A4 ADD ROW INDEX«, t00=0x0036, t01=0x00d4}
0x5544…5564              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0036, t01=0x00f4}
0x5564…5578              Head {h00=0x0010, h01=0x0050, text=»IHKB04 EQU *«, t00=0x0036, t01=0x0114}
0x5578…5582              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0128}
0x5582…558e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0132}
0x558e…5598              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013e}
0x5598…55a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0148}
0x55a2…55b6              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0036, t01=0x0152}
0x55b6…55c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0166}
0x55c0…55d2              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0036, t01=0x0170}
0x55d2…55e6              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0036, t01=0x0182}
0x55e6…55fa              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/22 «, t00=0x0037, t01=0x0008}
0x55fa…5610              Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHNOL6 «, t00=0x0037, t01=0x001c}
0x5610…5622              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0037, t01=0x0032}
0x5622…5638              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) IHNOL8«, t00=0x0037, t01=0x0044}
0x5638…564a              Head {h00=0x000e, h01=0x0050, text=» RF IHNOL7«, t00=0x0037, t01=0x005a}
0x564a…5662              Head {h00=0x0014, h01=0x0050, text=»IHNOL6 ADK A2,7 «, t00=0x0037, t01=0x006c}
0x5662…567e              Head {h00=0x0018, h01=0x0050, text=»IHNOL7 ANKL A2,/FF3F«, t00=0x0037, t01=0x0084}
0x567e…5692              Head {h00=0x0010, h01=0x0050, text=»IHNOL8 EQU *«, t00=0x0037, t01=0x00a0}
0x5692…569c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b4}
0x569c…56a8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00be}
0x56a8…56b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ca}
0x56b2…56d6              Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x0037, t01=0x00d4}
0x56d6…56ec              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB10 «, t00=0x0037, t01=0x00f8}
0x56ec…5712              Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPTS ALLOWED? «, t00=0x0037, t01=0x010e}
0x5712…574a              Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER «, t00=0x0037, t01=0x0134}
0x574a…5754              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016c}
0x5754…576a              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0037, t01=0x0176}
0x576a…5774              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x018c}
0x5774…578c              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x0038, t01=0x0008}
0x578c…57ba              Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB05 NO TIMING ON THIS DEVICE«, t00=0x0038, t01=0x0020}
0x57ba…57de              Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x0038, t01=0x004e}
0x57de…57f6              Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x0038, t01=0x0072}
0x57f6…5800              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x008a}
0x5800…580c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0094}
0x580c…5816              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a0}
0x5816…5846              Head {h00=0x002c, h01=0x0050, text=»IHKB05 ABL LDREG RETURN TO READ ROUTINE «, t00=0x0038, t01=0x00aa}
0x5846…5864              Head {h00=0x001a, h01=0x0050, text=»IHKB10 LD A1,DWTINQ,A6«, t00=0x0038, t01=0x00da}
0x5864…5876              Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0038, t01=0x00f8}
0x5876…589c              Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x0038, t01=0x010a}
0x589c…58b4              Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x0038, t01=0x0130}
0x58b4…58c6              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0038, t01=0x0148}
0x58c6…58fc              Head {h00=0x0032, h01=0x0050, text=» CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS «, t00=0x0038, t01=0x015a}
0x58fc…591e              Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x0038, t01=0x0190}
0x591e…5938              Head {h00=0x0016, h01=0x0050, text=» RF(NE) IHKB20 NO!«, t00=0x0039, t01=0x0022}
0x5938…596c              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER«, t00=0x0039, t01=0x003c}
0x596c…597e              Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x0039, t01=0x0070}
0x597e…59b2              Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x0039, t01=0x0082}
0x59b2…59ea              Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A3 STORE CHARACTER IN INPUT BUFFER«, t00=0x0039, t01=0x00b6}
0x59ea…5a00              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0039, t01=0x00ee}
0x5a00…5a14              Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0039, t01=0x0104}
0x5a14…5a2c              Head {h00=0x0014, h01=0x0050, text=»IHNOL3 LDR A3,A2«, t00=0x0039, t01=0x0118}
0x5a2c…5a3e              Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0039, t01=0x0130}
0x5a3e…5a52              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x0039, t01=0x0142}
0x5a52…5a64              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0039, t01=0x0156}
0x5a64…5a7a              Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL4 «, t00=0x0039, t01=0x0168}
0x5a7a…5a8e              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0039, t01=0x017e}
0x5a8e…5aa0 (58, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x003a, t01=0x0004}
0x5aa0…5ab6              Head {h00=0x0012, h01=0x0050, text=» RB(NE) IHNOL2«, t00=0x003a, t01=0x0016}
0x5ab6…5ade              Head {h00=0x0024, h01=0x0050, text=»IHNOL4 ORRS A4,A6 SET ALLOW BIT «, t00=0x003a, t01=0x002c}
0x5ade…5af0              Head {h00=0x000e, h01=0x0050, text=» RB IHNOL2«, t00=0x003a, t01=0x0054}
0x5af0…5afc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0066}
0x5afc…5b0a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0072}
0x5b0a…5b14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0080}
0x5b14…5b1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008a}
0x5b1e…5b36              Head {h00=0x0014, h01=0x0050, text=»*    A K B T U T«, t00=0x003a, t01=0x0094}
0x5b36…5b40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ac}
0x5b40…5b6a              Head {h00=0x0026, h01=0x0050, text=»*    THIS IS THE TIME-OUT ROUTINE «, t00=0x003a, t01=0x00b6}
0x5b6a…5b74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e0}
0x5b74…5b7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ea}
0x5b7e…5b94              Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x003a, t01=0x00f4}
0x5b94…5b9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010a}
0x5b9e…5bb2              Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x003a, t01=0x0114}
0x5bb2…5bd4              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x003a, t01=0x0128}
0x5bd4…5be8              Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x003a, t01=0x014a}
0x5be8…5c00              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x003a, t01=0x015e}
0x5c00…5c14              Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x003a, t01=0x0176}
0x5c14…5c38              Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x003a, t01=0x018a}
0x5c38…5c68              Head {h00=0x002c, h01=0x0050, text=» RB IHKB05 RESTORE REGISTERS AND END I/O«, t00=0x003b, t01=0x001e}
0x5c68…5c72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x004e}
0x5c72…5c7e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0058}
0x5c7e…5c8c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0064}
0x5c8c…5c96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0072}
0x5c96…5cce              Head {h00=0x0034, h01=0x0050, text=»*    STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x003b, t01=0x007c}
0x5cce…5d08              Head {h00=0x0036, h01=0x0050, text=»*            ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x003b, t01=0x00b4}
0x5d08…5d12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ee}
0x5d12…5d28              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x003b, t01=0x00f8}
0x5d28…5d32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x010e}
0x5d32…5d56              Head {h00=0x0020, h01=0x0050, text=»*    A2 = CHARACTER TO STORE«, t00=0x003b, t01=0x0118}
0x5d56…5d74              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x003b, t01=0x013c}
0x5d74…5d7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015a}
0x5d7e…5d88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0164}
0x5d88…5d9c              Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x003b, t01=0x016e}
0x5d9c…5dbe              Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x003b, t01=0x0182}
0x5dbe…5de2              Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x003c, t01=0x0014}
0x5de2…5e0e              Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x003c, t01=0x0038}
0x5e0e…5e36              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x003c, t01=0x0064}
0x5e36…5e4a              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x008c}
0x5e4a…5e6c              Head {h00=0x001e, h01=0x0050, text=» RF EOQU20 RTN A15 AND ENB«, t00=0x003c, t01=0x00a0}
0x5e6c…5e7a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00c2}
0x5e7a…5e84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d0}
0x5e84…5e8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00da}
0x5e8e…5ec8              Head {h00=0x0036, h01=0x0050, text=»*    EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x003c, t01=0x00e4}
0x5ec8…5ed2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x011e}
0x5ed2…5ee8              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x003c, t01=0x0128}
0x5ee8…5ef2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013e}
0x5ef2…5f12              Head {h00=0x001c, h01=0x0050, text=»*    A1 = QUEUE POINTER «, t00=0x003c, t01=0x0148}
0x5f12…5f30              Head {h00=0x001a, h01=0x0050, text=»*    A6 = DWT-ADDRESS «, t00=0x003c, t01=0x0168}
0x5f30…5f3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0186}
0x5f3a…5f50              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x003c, t01=0x0190}
0x5f50…5f5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0016}
0x5f5a…5f7e              Head {h00=0x0020, h01=0x0050, text=»*    A1 = NEW QUEUE POINTER «, t00=0x003d, t01=0x0020}
0x5f7e…5f92              Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x003d, t01=0x0044}
0x5f92…5f9e              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003d, t01=0x0058}
0x5f9e…5fb0              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x003d, t01=0x0064}
0x5fb0…5fc2              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x003d, t01=0x0076}
0x5fc2…5fe6              Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x003d, t01=0x0088}
0x5fe6…5ffc              Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x003d, t01=0x00ac}
0x5ffc…602a              Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x003d, t01=0x00c2}
0x602a…6042              Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x003d, t01=0x00f0}
0x6042…606e              Head {h00=0x0028, h01=0x0050, text=»EOQU20 ADKL A15,2 RETURN AND ENABLE «, t00=0x003d, t01=0x0108}
0x606e…607a              Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003d, t01=0x0134}
0x607a…608e              Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x003d, t01=0x0140}
0x608e…6098              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0154}
0x6098…60a4              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003d, t01=0x015e}
0x60a4…60a8              Head {h00=0x4004, h01=0x0000}
0x60a8…60ac              00 3d 01 6a                                                                                                                                                                                                                                       ┆ = j┆
0x60ac…60b4 (62, 1, 8)   20 04 00 00 00 3e 00 04                                                                                                                                                                                                                           ┆     >  ┆
0x60b4…6104 (63, 0, 400) 44 5c 41 32 2c 45 43 42 52 4c 2c 41 38 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 26 01 8e 00 22 00 50 5c 43 57 4b 5c 41 32 2c 42 55 46 4c 45 4e 5c 49 4e 56 41 4c 49 44 20 4c 45 4e 47 54 48 3f 00 27 00 26 00 22 00 50 5c 41 42 4c   ┆D A2,ECBRL,A8 REQUESTED LENGTH &   " P CWK A2,BUFLEN INVALID LENGTH? ' & " P ABL┆
0x6104…6154              28 47 29 5c 52 58 49 4e 43 4c 5c 49 4c 4c 45 47 41 4c 20 4c 45 4e 47 54 48 20 00 27 00 4c 00 26 00 50 5c 4c 44 5c 41 31 2c 44 57 54 54 49 4d 2c 41 36 5c 47 45 54 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 00 27 00 72 00 08 00 50 5c 58 49 46   ┆(G) RXINCL ILLEGAL LENGTH  ' L & P LD A1,DWTTIM,A6 GET CONTROL WORD  ' r   P XIF┆
0x6154…61a4              00 27 00 9c 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 54 49 4d 2c 41 36 00 27 00 a8 00 28 00 50 5c 52 46 28 5a 29 5c 52 44 34 32 30 5c 4e 4f 20 54 49 4d 45 20 4f 55 54 20 53 55 50 45 52 56 49 53 49 4f 4e 00 27 00 c0 00 10 00 50 5c 53 54 5c   ┆ '     P LD A1,DWTTIM,A6 '   ( P RF(Z) RD420 NO TIME OUT SUPERVISION '     P ST ┆
0x61a4…61f4              41 31 2c 52 44 34 31 30 00 27 00 ec 00 1a 00 50 5c 4c 44 52 5c 41 31 2c 41 36 5c 44 57 54 20 41 44 44 52 45 53 53 00 27 01 00 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 45 5c 53 54 41 52 54 20 52 45 51 55 45 53 54 20 54 49 4d 45 52   ┆A1,RD410 '     P LDR A1,A6 DWT ADDRESS '   & P CF A15,SETIME START REQUEST TIMER┆
0x61f4…6244              00 27 01 1e 00 22 00 50 5c 44 41 54 41 5c 52 44 35 30 30 5c 54 49 4d 45 20 4f 55 54 20 53 45 51 55 45 4e 43 45 20 00 27 01 48 00 1c 00 50 52 44 34 31 30 5c 44 41 54 41 5c 30 5c 54 49 4d 45 52 20 56 41 4c 55 45 00 27 01 6e 00 28 00 50 5c 53   ┆ '   " P DATA RD500 TIME OUT SEQUENCE  ' H   PRD410 DATA 0 TIMER VALUE ' n ( P S┆
0x6244…6294 (64, 0, 400) 54 5c 41 34 2c 44 57 54 52 54 49 2c 41 36 5c 53 54 4f 52 45 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 00 27 01 8e 00 10 00 50 52 44 34 32 30 5c 45 51 55 5c 2a 20 00 28 00 2a 00 12 00 0d 5c 49 46 54 5c 49 44 4c 45 4c 4e 3d 31 20 00 28 00 3e   ┆T A4,DWTRTI,A6 STORE TIMER POINTER '     PRD420 EQU *  ( *     IFT IDLELN=1  ( >┆
0x6294…62e4              00 32 00 50 5c 43 46 5c 41 31 35 2c 43 4c 49 44 4c 45 5c 43 4c 45 41 52 20 49 44 4c 45 20 4c 49 4e 45 20 41 43 54 49 56 49 54 59 20 54 49 4d 45 52 20 00 28 00 54 00 08 00 04 5c 58 49 46 00 28 00 8a 00 28 00 50 5c 4c 44 5c 41 31 2c 44 57 54   ┆ 2 P CF A15,CLIDLE CLEAR IDLE LINE ACTIVITY TIMER  ( T     XIF (   ( P LD A1,DWT┆
0x62e4…6334              58 53 54 2c 41 36 5c 47 45 54 20 50 52 4f 43 45 44 55 52 45 20 53 54 41 54 45 00 28 00 96 00 30 00 50 5c 41 42 4c 28 5a 29 5c 42 4d 4d 5c 49 4e 20 43 4f 4e 54 52 4f 4c 20 53 54 41 54 45 3a 20 53 54 41 52 54 20 52 45 43 45 49 56 45 52 00 28   ┆XST,A6 GET PROCEDURE STATE (   0 P ABL(Z) BMM IN CONTROL STATE: START RECEIVER (┆
0x6334…6384              00 c2 00 10 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 2e 20 00 28 00 f6 00 3a 00 50 5c 41 42 4c 28 5a 29 5c 52 58 49 53 45 51 5c 53 45 51 55 45 4e 43 45 20 45 52 52 4f 52 20 2d 20 52 45 41 44 20 57 48 45 4e 20 54 52 41 4e 53 4d 49 54 54 49 4e 47   ┆     P SUK A1,1 .  (   : P ABL(Z) RXISEQ SEQUENCE ERROR - READ WHEN TRANSMITTING┆
0x6384…63d4              00 28 01 0a 00 2e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 41 43 4b 2c 41 36 5c 47 45 54 20 57 41 43 4b 20 44 45 4c 41 59 20 49 4e 44 49 43 41 54 4f 52 20 00 28 01 48 00 38 00 50 5c 41 42 4c 28 5a 29 5c 45 58 44 49 53 50 5c 4e 4f 54 20 57 41 43   ┆ (   . P LD A1,DWTACK,A6 GET WACK DELAY INDICATOR  ( H 8 P ABL(Z) EXDISP NOT WAC┆
0x63d4…6424 (65, 0, 400) 4b 20 44 45 4c 41 59 20 2d 20 57 41 49 54 20 46 4f 52 20 45 4e 51 20 4f 52 20 45 4f 54 20 00 28 01 7a 00 28 00 50 5c 43 46 5c 41 31 35 2c 43 4c 50 54 49 4d 5c 53 54 4f 50 20 50 52 4f 43 45 44 55 52 45 20 54 49 4d 45 52 20 00 29 00 26 00 2c   ┆K DELAY - WAIT FOR ENQ OR EOT  ( z ( P CF A15,CLPTIM STOP PROCEDURE TIMER  ) & ,┆
0x6424…6474              00 50 5c 43 4d 5c 44 57 54 41 43 4b 2c 41 36 5c 52 45 53 45 54 20 57 41 43 4b 20 44 45 4c 41 59 20 49 4e 44 49 43 41 54 4f 52 00 29 00 52 00 1e 00 50 5c 43 46 5c 41 35 2c 54 52 41 43 4b 5c 53 45 4e 44 20 41 43 4b 20 30 2f 31 20 00 29 00 82   ┆ P CM DWTACK,A6 RESET WACK DELAY INDICATOR ) R   P CF A5,TRACK SEND ACK 0/1  )  ┆
0x6474…64c4              00 20 00 50 5c 41 42 4c 5c 42 4d 4d 5c 43 4f 4e 54 49 4e 55 45 20 52 45 43 45 50 54 49 4f 4e 20 00 29 00 a4 00 0a 00 50 5c 45 4a 45 43 54 00 29 00 c8 00 06 00 50 2a 20 00 29 00 d6 00 06 00 50 2a 20 00 29 00 e0 00 1c 00 50 2a 5c 52 45 41 44   ┆   P ABL BMM CONTINUE RECEPTION  )     P EJECT )     P*  )     P*  )     P* READ┆
0x64c4…6514              20 52 45 51 55 45 53 54 20 54 49 4d 45 20 4f 55 54 20 00 29 00 ea 00 06 00 50 2a 20 00 29 01 0a 00 06 00 50 2a 20 00 29 01 14 00 36 00 50 52 44 35 30 30 5c 4c 44 52 5c 41 36 2c 41 31 5c 52 45 41 44 20 52 45 51 55 45 53 54 20 54 49 4d 45 20   ┆ REQUEST TIME OUT  )     P*  )     P*  )   6 PRD500 LDR A6,A1 READ REQUEST TIME ┆
0x6514…6564              4f 55 54 2c 20 52 45 53 54 4f 52 45 20 41 36 20 00 29 01 1e 00 26 00 50 5c 43 46 5c 41 31 35 2c 43 4c 52 54 49 4d 5c 43 4c 45 41 52 20 54 49 4d 45 52 20 4c 49 4e 4b 53 5c 20 00 29 01 58 00 24 00 50 5c 43 46 5c 41 31 35 2c 43 4c 50 54 49 4d   ┆OUT, RESTORE A6  )   & P CF A15,CLRTIM CLEAR TIMER LINKS   ) X $ P CF A15,CLPTIM┆
0x6564…65b4 (66, 0, 400) 5c 43 4c 45 41 52 20 50 52 4f 43 20 54 49 4d 45 52 20 00 29 01 82 00 24 00 50 5c 43 46 5c 41 31 35 2c 43 4c 4d 54 49 4d 5c 43 4c 45 41 52 20 4d 4f 44 45 4d 20 54 49 4d 45 52 00 2a 00 1a 00 20 00 50 5c 43 46 5c 41 35 2c 43 48 41 4c 54 49 5c   ┆ CLEAR PROC TIMER  )   $ P CF A15,CLMTIM CLEAR MODEM TIMER *     P CF A5,CHALTI ┆
0x65b4…6604              20 48 41 4c 54 20 49 4e 50 55 54 20 26 20 00 2a 00 42 00 1a 00 50 5c 43 46 5c 41 35 2c 43 48 41 4c 54 4f 5c 20 4f 55 54 50 55 54 20 00 2a 00 66 00 28 00 50 5c 43 4d 5c 44 57 54 53 41 56 2b 34 2c 41 36 5c 43 4c 45 41 52 20 53 54 41 43 4b 20   ┆ HALT INPUT &  * B   P CF A5,CHALTO  OUTPUT  * f ( P CM DWTSAV+4,A6 CLEAR STACK ┆
0x6604…6654              50 4f 49 4e 54 45 52 20 00 2a 00 84 00 12 00 0d 5c 49 46 54 5c 49 44 4c 45 4c 4e 3d 31 20 00 2a 00 b0 00 32 00 2d 5c 43 46 5c 41 31 35 2c 53 54 49 44 4c 45 5c 53 54 41 52 54 20 49 44 4c 45 20 4c 49 4e 45 20 41 43 54 49 56 49 54 59 20 54 49   ┆POINTER  *       IFT IDLELN=1  *   2 - CF A15,STIDLE START IDLE LINE ACTIVITY TI┆
0x6654…66a4              4d 45 52 20 00 2a 00 c6 00 08 00 04 5c 58 49 46 00 2a 00 fc 00 1e 00 50 5c 41 42 4c 5c 52 58 54 49 4d 4f 5c 54 49 4d 45 4f 55 54 3b 20 45 58 49 54 20 00 2a 01 08 00 0a 00 50 5c 45 4a 45 43 54 00 2a 01 2a 00 06 00 50 2a 20 00 2a 01 38 00 06   ┆MER  *       XIF *     P ABL RXTIMO TIMEOUT; EXIT  *     P EJECT * *   P*  * 8  ┆
0x66a4…66f4              00 50 2a 20 00 2a 01 42 00 16 00 50 2a 5c 4f 52 44 45 52 20 30 36 3a 20 57 52 49 54 45 20 00 2a 01 4c 00 06 00 50 2a 20 00 2a 01 66 00 3a 00 50 2a 20 20 20 49 46 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 20 3d 20 30 20 4e 4f 54   ┆ P*  * B   P* ORDER 06: WRITE  * L   P*  * f : P*   IF CONTROL CHARACTER = 0 NOT┆
0x66f4…6744 (67, 0, 400) 2c 20 54 45 58 54 20 49 53 20 45 4e 44 45 44 20 42 59 20 45 54 42 00 2a 01 70 00 3a 00 50 2a 20 20 20 49 46 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 20 3d 20 30 20 20 20 20 2c 20 54 45 58 54 20 49 53 20 45 4e 44 45 44 20 42 59   ┆, TEXT IS ENDED BY ETB * p : P*   IF CONTROL CHARACTER = 0    , TEXT IS ENDED BY┆
0x6744…6794              20 45 54 58 00 2b 00 1e 00 06 00 50 2a 20 00 2b 00 5c 00 0c 00 50 57 52 5c 45 51 55 5c 2a 00 2b 00 66 00 1a 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 43 48 45 43 4b 20 53 54 41 54 55 53 00 2b 00 76 00 2c 00 50 5c 41 42 4c 28 5a 29 5c 52 58 4d 4e   ┆ ETX +     P*  +     PWR EQU * + f   P ANK A1,1 CHECK STATUS + v , P ABL(Z) RXMN┆
0x6794…67e4              4f 50 5c 4d 4f 44 45 4d 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 2d 20 45 58 49 54 00 2b 00 94 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 2b 00 c4 00 24 00 50 5c 4c 44 5c 41 31 2c 45 43 42 52 4c 2c 41 38 5c 52 45 51 55 45 53   ┆OP MODEM NOT OPERABLE - EXIT +     P IFT MMUPAG=1  +   $ P LD A1,ECBRL,A8 REQUES┆
0x67e4…6834              54 45 44 20 4c 45 4e 47 54 48 00 2b 00 da 00 22 00 50 5c 43 57 4b 5c 41 31 2c 42 55 46 4c 45 4e 5c 49 4e 56 41 4c 49 44 20 4c 45 4e 47 54 48 3f 00 2b 01 02 00 22 00 50 5c 41 42 4c 28 47 29 5c 52 58 49 4e 43 4c 5c 49 4c 4c 45 47 41 4c 20 4c   ┆TED LENGTH +   " P CWK A1,BUFLEN INVALID LENGTH? +   " P ABL(G) RXINCL ILLEGAL L┆
0x6834…6884              45 4e 47 54 48 20 00 2b 01 28 00 08 00 50 5c 58 49 46 00 2b 01 4e 00 28 00 50 5c 4c 44 5c 41 31 2c 44 57 54 58 53 54 2c 41 36 5c 47 45 54 20 50 52 4f 43 45 44 55 52 45 20 53 54 41 54 45 00 2b 01 5a 00 22 00 50 5c 52 46 28 5a 29 5c 42 49 44   ┆ENGTH  + (   P XIF + N ( P LD A1,DWTXST,A6 GET PROCEDURE STATE + Z " P RF(Z) BID┆
0x6884…68d4 (68, 0, 400) 5c 43 4f 4e 54 52 4f 4c 20 53 54 41 54 45 3a 20 42 49 44 20 00 2b 01 86 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 2c 00 1c 00 1e 00 50 5c 52 46 28 5a 29 5c 57 52 31 30 30 5c 54 52 41 4e 53 4d 49 54 20 4d 4f 44 45 00 2c 00 2e 00 40 00 50   ┆ CONTROL STATE: BID  +     P SUK A1,1  ,     P RF(Z) WR100 TRANSMIT MODE , . @ P┆
0x68d4…6924              5c 41 42 4c 5c 52 58 49 53 45 51 5c 49 4c 4c 45 47 41 4c 20 53 45 51 55 45 4e 43 45 3b 20 54 52 59 49 4e 47 20 54 4f 20 57 52 49 54 45 20 57 48 45 4e 20 52 45 43 45 49 56 49 4e 47 00 2c 00 50 00 06 00 50 2a 20 00 2c 00 94 00 06 00 50 2a 20   ┆ ABL RXISEQ ILLEGAL SEQUENCE; TRYING TO WRITE WHEN RECEIVING , P   P*  ,     P* ┆
0x6924…6974              00 2c 00 9e 00 18 00 50 2a 5c 53 45 4e 44 20 42 49 44 20 53 45 51 55 45 4e 43 45 20 00 2c 00 a8 00 06 00 50 2a 20 00 2c 00 c4 00 06 00 50 2a 20 00 2c 00 ce 00 10 00 50 42 49 44 5c 4c 44 4b 5c 41 31 2c 31 00 2c 00 d8 00 2c 00 50 5c 53 54 5c   ┆ ,     P* SEND BID SEQUENCE  ,     P*  ,     P*  ,     PBID LDK A1,1 ,   , P ST ┆
0x6974…69c4              41 31 2c 44 57 54 58 53 54 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 54 52 41 4e 53 4d 49 54 20 4d 4f 44 45 20 00 2c 00 ec 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 36 20 00 2c 01 1c 00 26 00 50 5c 53 54 5c 41 31 2c 44 57 54 41 43 4b 2c 41 36 5c 41   ┆A1,DWTXST,A6 INDICATE TRANSMIT MODE  ,     P LDK A1,6  ,   & P ST A1,DWTACK,A6 A┆
0x69c4…6a14              4e 44 20 42 49 44 20 53 45 51 55 45 4e 43 45 20 00 2c 01 2e 00 24 00 50 5c 43 4d 5c 44 57 54 45 4e 51 2c 41 36 5c 52 45 53 45 54 20 45 4e 51 20 43 4f 55 4e 54 45 52 20 00 2c 01 58 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 41 43 4b 30 00 2c 01 80   ┆ND BID SEQUENCE  , . $ P CM DWTENQ,A6 RESET ENQ COUNTER  , X   P LDK A1,ACK0 ,  ┆

Reduced view