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

⟦ae95222c7⟧

    Length: 8142 (0x1fce)
    Notes: pts_type(SC)
    Names: »DRDN01.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/DRDN01.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/DRDN01.SC« 

	IDENT DRDN01 	REL 11.0 81-03-27 870105041100 

			=2,ASM-ORDER 05 REMOVED
			REL 11.0 81-01-26
			=1 ADAPTED TO NEW INTERFACE (PLC)
			REL 10.0 79-12-07
* 
* 
*************************************************** 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDN01 = DRIVER NUMERIC DISPLAY 
* 
* 
* 
* 
* 
* 
*************************************************** 
* 
* 
*    THIS DRIVER HANDLES THE NUMERIC DISPLAY
*    ON INDICATOR UNIT PTS 6241 CONNECTED TO
*    THE SYSTEM VIA CHLT OR CHRT. 
* 
*    THE DISPLAY MAY BE USED AS AN ORDINARY 
*    OUTPUT DEVICE WHERE NUMERIC INFORMATION
*    ARE DISPLAYED FROM THE USER PROGRAM. IT
*    MAY ALSO BE USED AS AN ECHO-DEVICE TO
*    ANY KEYBOARD THAT WORKS UNDER THE GENERAL
*    KEYBOARD DRIVER DRKB04.
* 
*    THE DRIVER CONSISTS OF FOLLOWING PARTS:
* 
*    A C D N       ACTIVATION PART
* 
*    I H D N       INTERRUPT HANDLER
* 
*    R C D N       RECOVERY ROUTINE 
* 
*    E C H O D N   ECHO FUNCTIONS 
	EJECT			DRDN01 
* 
* 
*    THE FOLLOWING ORDERS ARE THREATED: 
* 
*    ORDER 31: ERASE NUMERIC DISPLAY
*          06: WRITE NUMERIC DISPLAY
* 
* 
*    NORMAL REGISTER USAGE: 
* 
*    REGISTER: A1 = RETURN CODE 
*              A2 = OUTPUT CHARACTER
*              A3 = BUFFER INDEX
*              A4 = WORK REGISTER 
*              A5 = STACK BASE
*              A6 = DWT-ADDRESS 
*              A7 = ORDER 
*              A8 = ECB-ADDRESS 
* 
* 
*    SYSTEM ADAPTATION
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY ORDER 06
*    WRITE NUMERIC DISPLAY MAY BE EXCLUDED. 
*    TO BE USED IN SYSTEMS WHERE THE DISPLAY
*    FIGURES ONLY AS AN ECHO-DEVICE.
* 
* 
	EJECT			DRDN01 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	DNAD	ADDRESS TO ADDRESS-BLOCK
* 
* 
********************************************
*    EXTERNAL TOSS MODULE ENTRIES          *
********************************************
* 
* 
	EXTRN	LENDER	I/O REQUEST ERROR	=1
	EXTRN	OUTPUT	SEND CHARACTER	=1 
	EXTRN	LDISP	DISPATCHER	=1
	EXTRN	NDGET8	RELOAD REGISTERS AND RETURN	=1
	EXTRN	TENDIO	END I/O	=1
	EXTRN	ECHRTN	RETURN TO KEYBOARD AFTER ECHO	=1
	EXTRN	GETCHR	GET CHARACTER FROM ECB BUFFER	=1
	EXTRN	STABLK	START OF BLOCK	=1 
	EXTRN	ENDBLK	END OF BLOCK	=1 
* 
* 
****************************
*    DWT PARAMETERS        *
****************************
* 
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTDEV	DEVICE STATUS	=1
	EXTRN	DWTECB	ECB ADDRESS 




DWTBC	EQU	/0	BYTE COUNTER	=1
BLKSI	EQU	/50	MAX BLOCK SIZE	=1 
	EJECT			DRDN01 
* 
* 
**************************
*  CONDITIONAL ASSEMBLY  *
**************************
* 
*    BY SETTING X:A = 0 THIS DRIVER HANDLES 
*    ONLY ORDER 05 ERASE NUMERIC DISPLAY
* 
X:A	EQU	1 
DNWRIT	EQU	X:A	ORDER 6
* 
*   MEMORY MANAGEMENT BUFFER SIZE 
* 
X:B	EQU	16
DVBLEN	EQU	X:B
* 
***************** 
*    CONSTANTS  * 
***************** 
* 
CCERR	EQU	/4	CODE CHECK ERROR 
* 
	EJECT			DRDN01 
* 
* 
**************
*    TABLES  *
**************
* 
* 
	DATA	DVBLEN	MMU BUFFER SIZE
	DATA	2	DEVICE  INDEX 
DNAD	EQU	*	ADDRESS BLOCK
	DATA	ACDN	ACTIVATION PART
	DATA	0	ABORT ROUTINE ADDRESS 
	DATA	0	INTERRUPT HANDLER 
	DATA	RCDN	RECOVERY ROUTINE 
	DATA	ECHODN	DEVICE-DEPENDENT ECHO-SUBROUTINE 
* 
	EJECT			DRDN01 
* 
*    A C D N
* 
*    ACDN = ACTIVATION DRIVER NUMERIC DISPLAY 
* 
*    THE FOLLOWING ORDERS ARE THREATED: 
* 
*    ORDER 31: ERASE NUMERIC DISPLAY
*    ORDER 06: WRITE ON NUMERIC DISPLAY 
* 
*    IF ORDER 31 ERASE CHARACTER /40 IS SENT TO DISPLAY.
*    IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY
* 
ACDN	EQU	*
				=2
	SUK	A7,/31 
	RF(Z)	ADN010 
				=2
* 
	IFT	DNWRIT=1 
* 
	ADK	A7,/2B	ORDER 6 ?	=2
	RF(E)	ADN015 
* 
	XIF
* 
	ABL	LENDER	I/O REQUEST ERROR	=1
* 
	EJECT			DRDN01 
* 
*    ORDER 31 
* 
ADN010	EQU	*
	LDK	A2,1	BLOCK SIZE	=! 
	CF	A5,STABLK	START OF BLOCK	=1 
	RF(NZ)	DNERR	ERROR 	=1 
	LDK	A2,/40	ERASE DISPLAY 
	CF	A5,OUTPUT	SEND CHARACTER
	RF(NZ)	DNERR	ERROR END I/O	=!
	RF	ENDIO 
* 
*    ORDER 06 
* 
	IFT	DNWRIT=1 
* 
ADN015	EQU	*
	LDK	A3,0	RESET BUFFER INDEX
	LDK	A2,BLKSI	MAX BLOCK SIZE	=1 
	CF	A5,STABLK	START OF BLOCK	=1 
	RF(NZ)	DNERR	ERROR END I/O	=1
ADN020	CF	A15,GETCHR	GET CHARACTER
	LDR	A1,A1	FOUND? 
	RF(NP)	ENDIO	NO, READY ! 
* 
	EJECT			DRDN01 
* 
*    CHECK CHARACTER
* 
	LDR	A4,A2
	SUK	A4,/3F	BLANK?
	RF(E)	ADN025 
	ADK	A4,6	KEY > /39?
	RF(P)	ADN030 
	ADK	A4,9	KEY < /30 
	RF(N)	ADN030 
ADN025	EQU	*
	CF	A5,OUTPUT	SEND CHARACTER
	RF(NZ)	DNERR	ERROR END I/O	=1
	RB	ADN020
ADN030	LDK	A1,CCERR	INDICATE CODE CHECK ERROR 
	ORS	A1,8,A8	RETURN CODE
	RB	ADN020
* 
	XIF
* 
ENDIO	EQU	*	END REQUEST	=1
	CF	A5,ENDBLK	END OF BLOCK	=1 

	CF	A15,TENDIO	END I/O REQUEST	=1 
EXIT	EQU	*	DISPATCH 
	ABL	LDISP	DISPATCH	=1
* 
	EJECT			DRDN01 
* 
*    R C D N
* 
*    RECOVERY 
* 
RCDN	EQU	*
	LDKL	A2,/7FFF	 
	ANS	A2,DWTST,A6	SET DEVICE BUSY
	LDK	A2,1	BLOCK SIZE	=1 
	CF	A5,STABLK	START OF BLOCK	=1 
	RF(NZ)	DNERR	ERROR END I/O	=1
	LDK	A2,/40	ERASE CHARACTER 
	CF	A5,OUTPUT	SEND ERASE
	RF(NZ)	DNERR	ERROR END I/O	=!
	CF	A5,ENDBLK	END OF BLOCK	=1 
	RF(NZ)	DNERR	ERROR END I/O	=1
	LD	A8,DWTECB,A6
	RB(E)	ENDIO
	RB	ACDN	RETURN TO ACTIVATINO PARTONI 
* 
	EJECT			DRDN01 
* 
*    E C H O D N
* 
*    ECHO-ROUTINE 
* 
ECHODN	EQU	*
	LDR	A7,A7	EOR? 
	RF(N)	ECH060 
	LDR	A3,A2
	LDR	A4,A2	SAVE CHARACTER	=1
	SUK	A3,/8	BACKSPACE? 
	RF(E)	ECH050 
	SUK	A3,/10	CLEAR?
	RF(NE)	ECH040	NO 
	LDK	A4,/40	ERASE DISPLAY	=1
ECH040	EQU	*
	LDK	A2,1	BLOCK SIZE	=1 
	CF	A5,STABLK	START OF BLOCK	=1 
	RF(NZ)	ECH050	ERROR END ECHO 
	LDR	A2,A4	GET CHARACTER	=1 
	CF	A5,OUTPUT	SEND CHARACTER	=1 
	RF(NZ)	ECH050	ERROR END ECHO 
	CF	A5,ENDBLK	END OF BLOCK	=1 

ECH050	ABL	ECHRTN	RETURN TO KEYBOARD DRIVER 
* 
ECH060	EQU	*
	CF	A15,TENDIO	END I/O	=! 
	ABL	ECHRTN	RETURN TO KEYBOARD DRIVER 
* 
* 
	EJECT			DRDN01 
* 
* 
****************************************************
* 
*	D N E R R 	 
* 
*	ERROR ROUTINE 
* 
****************************************************
* 
* 
DNERR	EQU	*		=1 
	ANK	A1,/10	OUTPUT ERROR	=1 
	RB(NZ)	RCDN	YES DO RECOVERY	=1 
	LDK	A1,1	SET NOT OPERABEL IN RETURN CODE	=1
	RB	ENDIO	END I/O REQUEST	=1
	END

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDN01  REL 11.0 81-03-27 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060              Head {h00=0x001e, h01=0x0050, text=»   =2,ASM-ORDER 05 REMOVED«, t00=0x0000, t01=0x0042}
0x0060…007c              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0000, t01=0x0064}
0x007c…00a8              Head {h00=0x0028, h01=0x0050, text=»   =1 ADAPTED TO NEW INTERFACE (PLC)«, t00=0x0000, t01=0x0080}
0x00a8…00c4              Head {h00=0x0018, h01=0x0050, text=»   REL 10.0 79-12-07«, t00=0x0000, t01=0x00ac}
0x00c4…00ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…0114              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x00dc}
0x0114…011e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0146              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0122}
0x0146…0150              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014a}
0x0150…017c              Head {h00=0x0028, h01=0x0050, text=»*   DRDN01 = DRIVER NUMERIC DISPLAY «, t00=0x0000, t01=0x0154}
0x017c…0186              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…019a (1, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x019a…01a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01f4              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0001, t01=0x002c}
0x01f4…01fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0208              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…023c              Head {h00=0x0030, h01=0x0050, text=»*    THIS DRIVER HANDLES THE NUMERIC DISPLAY«, t00=0x0001, t01=0x007c}
0x023c…0270              Head {h00=0x0030, h01=0x0050, text=»*    ON INDICATOR UNIT PTS 6241 CONNECTED TO«, t00=0x0001, t01=0x00b0}
0x0270…029a              Head {h00=0x0026, h01=0x0050, text=»*    THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0001, t01=0x00e4}
0x029a…02a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02d8              Head {h00=0x0030, h01=0x0050, text=»*    THE DISPLAY MAY BE USED AS AN ORDINARY «, t00=0x0001, t01=0x0118}
0x02d8…030c              Head {h00=0x0030, h01=0x0050, text=»*    OUTPUT DEVICE WHERE NUMERIC INFORMATION«, t00=0x0001, t01=0x014c}
0x030c…0340              Head {h00=0x0030, h01=0x0050, text=»*    ARE DISPLAYED FROM THE USER PROGRAM. IT«, t00=0x0001, t01=0x0180}
0x0340…0372              Head {h00=0x002e, h01=0x0050, text=»*    MAY ALSO BE USED AS AN ECHO-DEVICE TO«, t00=0x0002, t01=0x0024}
0x0372…03a8              Head {h00=0x0032, h01=0x0050, text=»*    ANY KEYBOARD THAT WORKS UNDER THE GENERAL«, t00=0x0002, t01=0x0056}
0x03a8…03cc              Head {h00=0x0020, h01=0x0050, text=»*    KEYBOARD DRIVER DRKB04.«, t00=0x0002, t01=0x008c}
0x03cc…03d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d6…040a              Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x00ba}
0x040a…0414              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…043e              Head {h00=0x0026, h01=0x0050, text=»*    A C D N       ACTIVATION PART«, t00=0x0002, t01=0x00f8}
0x043e…0448              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0122}
0x0448…0474              Head {h00=0x0028, h01=0x0050, text=»*    I H D N       INTERRUPT HANDLER«, t00=0x0002, t01=0x012c}
0x0474…047e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047e…04aa              Head {h00=0x0028, h01=0x0050, text=»*    R C D N       RECOVERY ROUTINE «, t00=0x0002, t01=0x0162}
0x04aa…04b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04de              Head {h00=0x0026, h01=0x0050, text=»*    E C H O D N   ECHO FUNCTIONS «, t00=0x0003, t01=0x0008}
0x04de…04f6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0003, t01=0x0032}
0x04f6…0500              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004a}
0x0500…050a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x050a…053a              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0003, t01=0x005e}
0x053a…0544              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0544…0570              Head {h00=0x0028, h01=0x0050, text=»*    ORDER 31: ERASE NUMERIC DISPLAY«, t00=0x0003, t01=0x0098}
0x0570…059c              Head {h00=0x0028, h01=0x0050, text=»*          06: WRITE NUMERIC DISPLAY«, t00=0x0003, t01=0x00c4}
0x059c…05a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a6…05b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05d4              Head {h00=0x0020, h01=0x0050, text=»*    NORMAL REGISTER USAGE: «, t00=0x0003, t01=0x0104}
0x05d4…05de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0128}
0x05de…0606              Head {h00=0x0024, h01=0x0050, text=»*    REGISTER: A1 = RETURN CODE «, t00=0x0003, t01=0x0132}
0x0606…0632              Head {h00=0x0028, h01=0x0050, text=»*              A2 = OUTPUT CHARACTER«, t00=0x0003, t01=0x015a}
0x0632…065a              Head {h00=0x0024, h01=0x0050, text=»*              A3 = BUFFER INDEX«, t00=0x0003, t01=0x0186}
0x065a…0684              Head {h00=0x0026, h01=0x0050, text=»*              A4 = WORK REGISTER «, t00=0x0004, t01=0x001e}
0x0684…06aa              Head {h00=0x0022, h01=0x0050, text=»*              A5 = STACK BASE«, t00=0x0004, t01=0x0048}
0x06aa…06d2              Head {h00=0x0024, h01=0x0050, text=»*              A6 = DWT-ADDRESS «, t00=0x0004, t01=0x006e}
0x06d2…06f4              Head {h00=0x001e, h01=0x0050, text=»*              A7 = ORDER «, t00=0x0004, t01=0x0096}
0x06f4…071c              Head {h00=0x0024, h01=0x0050, text=»*              A8 = ECB-ADDRESS «, t00=0x0004, t01=0x00b8}
0x071c…0726              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…0730              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x0730…074e              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0004, t01=0x00f4}
0x074e…0758              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0112}
0x0758…078e              Head {h00=0x0032, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY ORDER 06«, t00=0x0004, t01=0x011c}
0x078e…07c2              Head {h00=0x0030, h01=0x0050, text=»*    WRITE NUMERIC DISPLAY MAY BE EXCLUDED. «, t00=0x0004, t01=0x0152}
0x07c2…07f6              Head {h00=0x0030, h01=0x0050, text=»*    TO BE USED IN SYSTEMS WHERE THE DISPLAY«, t00=0x0004, t01=0x0186}
0x07f6…0822              Head {h00=0x0028, h01=0x0050, text=»*    FIGURES ONLY AS AN ECHO-DEVICE.«, t00=0x0005, t01=0x002a}
0x0822…082c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0056}
0x082c…0836              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0836…084e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0005, t01=0x006a}
0x084e…0858              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0082}
0x0858…0862              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008c}
0x0862…0876              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0096}
0x0876…088a              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x00aa}
0x088a…089e              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00be}
0x089e…08a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d2}
0x08a8…08b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00dc}
0x08b2…08de              Head {h00=0x0028, h01=0x0050, text=» ENTRY DNAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0005, t01=0x00e6}
0x08de…08e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0112}
0x08e8…08f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08f2…0926              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0005, t01=0x0126}
0x0926…095a              Head {h00=0x0030, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES          *«, t00=0x0005, t01=0x015a}
0x095a…098e              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0005, t01=0x018e}
0x098e…0998              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0032}
0x0998…09a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a2…09cc              Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDER I/O REQUEST ERROR =1«, t00=0x0006, t01=0x0046}
0x09cc…09f4              Head {h00=0x0024, h01=0x0050, text=» EXTRN OUTPUT SEND CHARACTER =1 «, t00=0x0006, t01=0x0070}
0x09f4…0a16              Head {h00=0x001e, h01=0x0050, text=» EXTRN LDISP DISPATCHER =1«, t00=0x0006, t01=0x0098}
0x0a16…0a4a              Head {h00=0x0030, h01=0x0050, text=» EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1«, t00=0x0006, t01=0x00ba}
0x0a4a…0a6a              Head {h00=0x001c, h01=0x0050, text=» EXTRN TENDIO END I/O =1«, t00=0x0006, t01=0x00ee}
0x0a6a…0aa0              Head {h00=0x0032, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO =1«, t00=0x0006, t01=0x010e}
0x0aa0…0ad6              Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB BUFFER =1«, t00=0x0006, t01=0x0144}
0x0ad6…0afe              Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK START OF BLOCK =1 «, t00=0x0006, t01=0x017a}
0x0afe…0b24              Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK =1 «, t00=0x0007, t01=0x0012}
0x0b24…0b2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2e…0b38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0042}
0x0b38…0b5c              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0007, t01=0x004c}
0x0b5c…0b80              Head {h00=0x0020, h01=0x0050, text=»*    DWT PARAMETERS        *«, t00=0x0007, t01=0x0070}
0x0b80…0ba4              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0007, t01=0x0094}
0x0ba4…0bae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0bae…0bb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c2}
0x0bb8…0bd4              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0007, t01=0x00cc}
0x0bd4…0bfa              Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS =1«, t00=0x0007, t01=0x00e8}
0x0bfa…0c1c              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0007, t01=0x010e}
0x0c1c…0c24              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0130}
0x0c24…0c2c              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0138}
0x0c2c…0c34              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0140}
0x0c34…0c3c              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0148}
0x0c3c…0c60              Head {h00=0x0020, h01=0x0050, text=»DWTBC EQU /0 BYTE COUNTER =1«, t00=0x0007, t01=0x0150}
0x0c60…0c88              Head {h00=0x0024, h01=0x0050, text=»BLKSI EQU /50 MAX BLOCK SIZE =1 «, t00=0x0007, t01=0x0174}
0x0c88…0ca0              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0008, t01=0x000c}
0x0ca0…0caa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0caa…0cb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002e}
0x0cb4…0cd6              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0008, t01=0x0038}
0x0cd6…0cf8              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0008, t01=0x005a}
0x0cf8…0d1a              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0008, t01=0x007c}
0x0d1a…0d24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009e}
0x0d24…0d58              Head {h00=0x0030, h01=0x0050, text=»*    BY SETTING X:A = 0 THIS DRIVER HANDLES «, t00=0x0008, t01=0x00a8}
0x0d58…0d88              Head {h00=0x002c, h01=0x0050, text=»*    ONLY ORDER 05 ERASE NUMERIC DISPLAY«, t00=0x0008, t01=0x00dc}
0x0d88…0d92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d92…0da4              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x0116}
0x0da4…0dc2              Head {h00=0x001a, h01=0x0050, text=»DNWRIT EQU X:A ORDER 6«, t00=0x0008, t01=0x0128}
0x0dc2…0dcc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0146}
0x0dcc…0df6              Head {h00=0x0026, h01=0x0050, text=»*   MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0008, t01=0x0150}
0x0df6…0e00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017a}
0x0e00…0e12              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 16«, t00=0x0008, t01=0x0184}
0x0e12…0e28              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x0009, t01=0x0008}
0x0e28…0e32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001e}
0x0e32…0e4c              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0009, t01=0x0028}
0x0e4c…0e66              Head {h00=0x0016, h01=0x0050, text=»*    CONSTANTS  * «, t00=0x0009, t01=0x0042}
0x0e66…0e80              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0009, t01=0x005c}
0x0e80…0e8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0076}
0x0e8a…0eb0              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0009, t01=0x0080}
0x0eb0…0eba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a6}
0x0eba…0ed2              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0009, t01=0x00b0}
0x0ed2…0edc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c8}
0x0edc…0ee6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee6…0efc              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x00dc}
0x0efc…0f12              Head {h00=0x0012, h01=0x0050, text=»*    TABLES  *«, t00=0x0009, t01=0x00f2}
0x0f12…0f28              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x0108}
0x0f28…0f32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f32…0f3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0128}
0x0f3c…0f60              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0009, t01=0x0132}
0x0f60…0f7e              Head {h00=0x001a, h01=0x0050, text=» DATA 2 DEVICE  INDEX «, t00=0x0009, t01=0x0156}
0x0f7e…0f9e              Head {h00=0x001c, h01=0x0050, text=»DNAD EQU * ADDRESS BLOCK«, t00=0x0009, t01=0x0174}
0x0f9e…0fc0 (10, 0, 400) Head {h00=0x001e, h01=0x0050, text=» DATA ACDN ACTIVATION PART«, t00=0x000a, t01=0x0004}
0x0fc0…0fe6              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x0026}
0x0fe6…1008              Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x000a, t01=0x004c}
0x1008…102c              Head {h00=0x0020, h01=0x0050, text=» DATA RCDN RECOVERY ROUTINE «, t00=0x000a, t01=0x006e}
0x102c…1062              Head {h00=0x0032, h01=0x0050, text=» DATA ECHODN DEVICE-DEPENDENT ECHO-SUBROUTINE «, t00=0x000a, t01=0x0092}
0x1062…106c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106c…1084              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000a, t01=0x00d2}
0x1084…108e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ea}
0x108e…10a2              Head {h00=0x0010, h01=0x0050, text=»*    A C D N«, t00=0x000a, t01=0x00f4}
0x10a2…10ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0108}
0x10ac…10e2              Head {h00=0x0032, h01=0x0050, text=»*    ACDN = ACTIVATION DRIVER NUMERIC DISPLAY «, t00=0x000a, t01=0x0112}
0x10e2…10ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ec…111c              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x000a, t01=0x0152}
0x111c…1126              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1126…1152              Head {h00=0x0028, h01=0x0050, text=»*    ORDER 31: ERASE NUMERIC DISPLAY«, t00=0x000a, t01=0x018c}
0x1152…1182              Head {h00=0x002c, h01=0x0050, text=»*    ORDER 06: WRITE ON NUMERIC DISPLAY «, t00=0x000b, t01=0x0028}
0x1182…118c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x118c…11cc              Head {h00=0x003c, h01=0x0050, text=»*    IF ORDER 31 ERASE CHARACTER /40 IS SENT TO DISPLAY.«, t00=0x000b, t01=0x0062}
0x11cc…1210              Head {h00=0x0040, h01=0x0050, text=»*    IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY«, t00=0x000b, t01=0x00a2}
0x1210…121a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x121a…122c              Head {h00=0x000e, h01=0x0050, text=»ACDN EQU *«, t00=0x000b, t01=0x00f0}
0x122c…123a              Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x000b, t01=0x0102}
0x123a…124e              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/31 «, t00=0x000b, t01=0x0110}
0x124e…1264              Head {h00=0x0012, h01=0x0050, text=» RF(Z) ADN010 «, t00=0x000b, t01=0x0124}
0x1264…1272              Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x000b, t01=0x013a}
0x1272…127c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0148}
0x127c…1292              Head {h00=0x0012, h01=0x0050, text=» IFT DNWRIT=1 «, t00=0x000b, t01=0x0152}
0x1292…129c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x129c…12bc              Head {h00=0x001c, h01=0x0050, text=» ADK A7,/2B ORDER 6 ? =2«, t00=0x000b, t01=0x0172}
0x12bc…12d2 (12, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN015 «, t00=0x000c, t01=0x0004}
0x12d2…12dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001a}
0x12dc…12e8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0024}
0x12e8…12f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f2…131a              Head {h00=0x0024, h01=0x0050, text=» ABL LENDER I/O REQUEST ERROR =1«, t00=0x000c, t01=0x003a}
0x131a…1324              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1324…133c              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000c, t01=0x006c}
0x133c…1346              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0084}
0x1346…135c              Head {h00=0x0012, h01=0x0050, text=»*    ORDER 31 «, t00=0x000c, t01=0x008e}
0x135c…1366              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a4}
0x1366…137a              Head {h00=0x0010, h01=0x0050, text=»ADN010 EQU *«, t00=0x000c, t01=0x00ae}
0x137a…139a              Head {h00=0x001c, h01=0x0050, text=» LDK A2,1 BLOCK SIZE =! «, t00=0x000c, t01=0x00c2}
0x139a…13c2              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =1 «, t00=0x000c, t01=0x00e2}
0x13c2…13e2              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DNERR ERROR  =1 «, t00=0x000c, t01=0x010a}
0x13e2…1404              Head {h00=0x001e, h01=0x0050, text=» LDK A2,/40 ERASE DISPLAY «, t00=0x000c, t01=0x012a}
0x1404…1428              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x000c, t01=0x014c}
0x1428…144e              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DNERR ERROR END I/O =!«, t00=0x000c, t01=0x0170}
0x144e…1460              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x000d, t01=0x0008}
0x1460…146a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001a}
0x146a…1480              Head {h00=0x0012, h01=0x0050, text=»*    ORDER 06 «, t00=0x000d, t01=0x0024}
0x1480…148a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003a}
0x148a…14a0              Head {h00=0x0012, h01=0x0050, text=» IFT DNWRIT=1 «, t00=0x000d, t01=0x0044}
0x14a0…14aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005a}
0x14aa…14be              Head {h00=0x0010, h01=0x0050, text=»ADN015 EQU *«, t00=0x000d, t01=0x0064}
0x14be…14e2              Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x000d, t01=0x0078}
0x14e2…150a              Head {h00=0x0024, h01=0x0050, text=» LDK A2,BLKSI MAX BLOCK SIZE =1 «, t00=0x000d, t01=0x009c}
0x150a…1532              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =1 «, t00=0x000d, t01=0x00c4}
0x1532…1558              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DNERR ERROR END I/O =1«, t00=0x000d, t01=0x00ec}
0x1558…1582              Head {h00=0x0026, h01=0x0050, text=»ADN020 CF A15,GETCHR GET CHARACTER«, t00=0x000d, t01=0x0112}
0x1582…159c              Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 FOUND? «, t00=0x000d, t01=0x013c}
0x159c…15be              Head {h00=0x001e, h01=0x0050, text=» RF(NP) ENDIO NO, READY ! «, t00=0x000d, t01=0x0156}
0x15be…15c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15c8…15e0              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000d, t01=0x0182}
0x15e0…15ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15ea…1606              Head {h00=0x0018, h01=0x0050, text=»*    CHECK CHARACTER«, t00=0x000e, t01=0x0014}
0x1606…1610              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0030}
0x1610…1622              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000e, t01=0x003a}
0x1622…163c              Head {h00=0x0016, h01=0x0050, text=» SUK A4,/3F BLANK?«, t00=0x000e, t01=0x004c}
0x163c…1652              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN025 «, t00=0x000e, t01=0x0066}
0x1652…166e              Head {h00=0x0018, h01=0x0050, text=» ADK A4,6 KEY > /39?«, t00=0x000e, t01=0x007c}
0x166e…1684              Head {h00=0x0012, h01=0x0050, text=» RF(P) ADN030 «, t00=0x000e, t01=0x0098}
0x1684…16a0              Head {h00=0x0018, h01=0x0050, text=» ADK A4,9 KEY < /30 «, t00=0x000e, t01=0x00ae}
0x16a0…16b6              Head {h00=0x0012, h01=0x0050, text=» RF(N) ADN030 «, t00=0x000e, t01=0x00ca}
0x16b6…16ca              Head {h00=0x0010, h01=0x0050, text=»ADN025 EQU *«, t00=0x000e, t01=0x00e0}
0x16ca…16ee              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x000e, t01=0x00f4}
0x16ee…1714              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DNERR ERROR END I/O =1«, t00=0x000e, t01=0x0118}
0x1714…1726              Head {h00=0x000e, h01=0x0050, text=» RB ADN020«, t00=0x000e, t01=0x013e}
0x1726…175c              Head {h00=0x0032, h01=0x0050, text=»ADN030 LDK A1,CCERR INDICATE CODE CHECK ERROR «, t00=0x000e, t01=0x0150}
0x175c…177c              Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x000e, t01=0x0186}
0x177c…178e              Head {h00=0x000e, h01=0x0050, text=» RB ADN020«, t00=0x000f, t01=0x0016}
0x178e…1798              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0028}
0x1798…17a4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0032}
0x17a4…17ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003e}
0x17ae…17d0              Head {h00=0x001e, h01=0x0050, text=»ENDIO EQU * END REQUEST =1«, t00=0x000f, t01=0x0048}
0x17d0…17f6              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =1 «, t00=0x000f, t01=0x006a}
0x17f6…17fe              Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0090}
0x17fe…1828              Head {h00=0x0026, h01=0x0050, text=» CF A15,TENDIO END I/O REQUEST =1 «, t00=0x000f, t01=0x0098}
0x1828…1844              Head {h00=0x0018, h01=0x0050, text=»EXIT EQU * DISPATCH «, t00=0x000f, t01=0x00c2}
0x1844…1862              Head {h00=0x001a, h01=0x0050, text=» ABL LDISP DISPATCH =1«, t00=0x000f, t01=0x00de}
0x1862…186c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fc}
0x186c…1884              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000f, t01=0x0106}
0x1884…188e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x188e…18a2              Head {h00=0x0010, h01=0x0050, text=»*    R C D N«, t00=0x000f, t01=0x0128}
0x18a2…18ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013c}
0x18ac…18c2              Head {h00=0x0012, h01=0x0050, text=»*    RECOVERY «, t00=0x000f, t01=0x0146}
0x18c2…18cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18cc…18de              Head {h00=0x000e, h01=0x0050, text=»RCDN EQU *«, t00=0x000f, t01=0x0166}
0x18de…18f6              Head {h00=0x0014, h01=0x0050, text=» LDKL A2,/7FFF  «, t00=0x000f, t01=0x0178}
0x18f6…191e              Head {h00=0x0024, h01=0x0050, text=» ANS A2,DWTST,A6 SET DEVICE BUSY«, t00=0x000f, t01=0x0190}
0x191e…193e              Head {h00=0x001c, h01=0x0050, text=» LDK A2,1 BLOCK SIZE =1 «, t00=0x0010, t01=0x0028}
0x193e…1966              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =1 «, t00=0x0010, t01=0x0048}
0x1966…198c              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DNERR ERROR END I/O =1«, t00=0x0010, t01=0x0070}
0x198c…19b0              Head {h00=0x0020, h01=0x0050, text=» LDK A2,/40 ERASE CHARACTER «, t00=0x0010, t01=0x0096}
0x19b0…19d0              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND ERASE«, t00=0x0010, t01=0x00ba}
0x19d0…19f6              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DNERR ERROR END I/O =!«, t00=0x0010, t01=0x00da}
0x19f6…1a1c              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =1 «, t00=0x0010, t01=0x0100}
0x1a1c…1a42              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DNERR ERROR END I/O =1«, t00=0x0010, t01=0x0126}
0x1a42…1a5a              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0010, t01=0x014c}
0x1a5a…1a6e              Head {h00=0x0010, h01=0x0050, text=» RB(E) ENDIO«, t00=0x0010, t01=0x0164}
0x1a6e…1a9c              Head {h00=0x002a, h01=0x0050, text=» RB ACDN RETURN TO ACTIVATINO PARTONI «, t00=0x0010, t01=0x0178}
0x1a9c…1aa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0016}
0x1aa6…1abe              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0011, t01=0x0020}
0x1abe…1ac8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0038}
0x1ac8…1ae0              Head {h00=0x0014, h01=0x0050, text=»*    E C H O D N«, t00=0x0011, t01=0x0042}
0x1ae0…1aea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005a}
0x1aea…1b04              Head {h00=0x0016, h01=0x0050, text=»*    ECHO-ROUTINE «, t00=0x0011, t01=0x0064}
0x1b04…1b0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007e}
0x1b0e…1b22              Head {h00=0x0010, h01=0x0050, text=»ECHODN EQU *«, t00=0x0011, t01=0x0088}
0x1b22…1b3a              Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0011, t01=0x009c}
0x1b3a…1b50              Head {h00=0x0012, h01=0x0050, text=» RF(N) ECH060 «, t00=0x0011, t01=0x00b4}
0x1b50…1b62              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0011, t01=0x00ca}
0x1b62…1b86              Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 SAVE CHARACTER =1«, t00=0x0011, t01=0x00dc}
0x1b86…1ba4              Head {h00=0x001a, h01=0x0050, text=» SUK A3,/8 BACKSPACE? «, t00=0x0011, t01=0x0100}
0x1ba4…1bba              Head {h00=0x0012, h01=0x0050, text=» RF(E) ECH050 «, t00=0x0011, t01=0x011e}
0x1bba…1bd4              Head {h00=0x0016, h01=0x0050, text=» SUK A3,/10 CLEAR?«, t00=0x0011, t01=0x0134}
0x1bd4…1bee              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ECH040 NO «, t00=0x0011, t01=0x014e}
0x1bee…1c12              Head {h00=0x0020, h01=0x0050, text=» LDK A4,/40 ERASE DISPLAY =1«, t00=0x0011, t01=0x0168}
0x1c12…1c26              Head {h00=0x0010, h01=0x0050, text=»ECH040 EQU *«, t00=0x0011, t01=0x018c}
0x1c26…1c46              Head {h00=0x001c, h01=0x0050, text=» LDK A2,1 BLOCK SIZE =1 «, t00=0x0012, t01=0x0010}
0x1c46…1c6e              Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =1 «, t00=0x0012, t01=0x0030}
0x1c6e…1c94              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ECH050 ERROR END ECHO «, t00=0x0012, t01=0x0058}
0x1c94…1cb8              Head {h00=0x0020, h01=0x0050, text=» LDR A2,A4 GET CHARACTER =1 «, t00=0x0012, t01=0x007e}
0x1cb8…1ce0              Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER =1 «, t00=0x0012, t01=0x00a2}
0x1ce0…1d06              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ECH050 ERROR END ECHO «, t00=0x0012, t01=0x00ca}
0x1d06…1d2c              Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =1 «, t00=0x0012, t01=0x00f0}
0x1d2c…1d34              Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0116}
0x1d34…1d68              Head {h00=0x0030, h01=0x0050, text=»ECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER «, t00=0x0012, t01=0x011e}
0x1d68…1d72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d72…1d86              Head {h00=0x0010, h01=0x0050, text=»ECH060 EQU *«, t00=0x0012, t01=0x015c}
0x1d86…1da8              Head {h00=0x001e, h01=0x0050, text=» CF A15,TENDIO END I/O =! «, t00=0x0012, t01=0x0170}
0x1da8…1dd6 (19, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ABL ECHRTN RETURN TO KEYBOARD DRIVER «, t00=0x0013, t01=0x0004}
0x1dd6…1de0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0032}
0x1de0…1dea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1dea…1e02              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0013, t01=0x0046}
0x1e02…1e0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005e}
0x1e0c…1e16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0068}
0x1e16…1e52              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0013, t01=0x0072}
0x1e52…1e5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ae}
0x1e5c…1e72              Head {h00=0x0012, h01=0x0050, text=»* D N E R R   «, t00=0x0013, t01=0x00b8}
0x1e72…1e7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e7c…1e94              Head {h00=0x0014, h01=0x0050, text=»* ERROR ROUTINE «, t00=0x0013, t01=0x00d8}
0x1e94…1e9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f0}
0x1e9e…1eda              Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0013, t01=0x00fa}
0x1eda…1ee4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0136}
0x1ee4…1eee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0140}
0x1eee…1f06              Head {h00=0x0014, h01=0x0050, text=»DNERR EQU *  =1 «, t00=0x0013, t01=0x014a}
0x1f06…1f2a              Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 OUTPUT ERROR =1 «, t00=0x0013, t01=0x0162}
0x1f2a…1f52              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RCDN YES DO RECOVERY =1 «, t00=0x0013, t01=0x0186}
0x1f52…1f86              Head {h00=0x0030, h01=0x0050, text=» LDK A1,1 SET NOT OPERABEL IN RETURN CODE =1«, t00=0x0014, t01=0x001e}
0x1f86…1faa              Head {h00=0x0020, h01=0x0050, text=» RB ENDIO END I/O REQUEST =1«, t00=0x0014, t01=0x0052}
0x1faa…1fb6              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0014, t01=0x0076}
0x1fb6…1fbe              Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0082}
0x1fbe…1fc2              Head {h00=0x4004, h01=0x0000}
0x1fc2…1fc6              00 14 00 8a                                                                                                                                                                                                                                       ┆    ┆
0x1fc6…1fce (21, 1, 8)   20 04 00 00 00 15 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view