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

⟦cdd71db2d⟧ 

    Length: 7824 (0x1e90)
    Notes: pts_type(SC)
    Names: »DRDN01.SC«

Derivation

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

PTS(SC)

	IDENT DRDN01 	REL 9.2 79-11-16  870105040920 

* 
* 
*************************************************** 
* 
*   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 DRKB01.
* 
*    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 05: 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	TDISP	DISPATCHER 
	EXTRN	GETCHR	GET CHARACTER FROM ECB
	EXTRN	DISIOE	I/O REQUEST ERROR 
	EXTRN	TENDIO	END I/O 
	EXTRN	OUTPUT	SEND CHARACTER
	EXTRN	LDREG	RESTORE REGISTERS A4,A3,A5,A7,A8 AND RETURN
	EXTRN	SAVE8	SAVE REGISTERS A1-A8 
	EXTRN	ECHRTN	RETURN FROM ECHOING 
* 
* 
****************************
*    DWT PARAMETERS        *
****************************
* 
* 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTBC	BYTE COUNTER 
	EXTRN	DWTECB	ECB ADDRESS 
	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
* 
*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS 
*   BY SETTING CREDIT = 1 
*   ORDER 05 IS THEN REPLACED BY ORDER /31
* 
CREDIT	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
* 
* 
***************** 
*    CONSTANTS  * 
***************** 
* 
CCERR	EQU	/4	CODE CHECK ERROR 
* 
*   MEMORY MANAGEMENT BUFFER SIZE 
* 
X:B	EQU	16
DVBLEN	EQU	X:B
	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	IHDN	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 05: ERASE NUMERIC DISPLAY
*    ORDER 06: WRITE ON NUMERIC DISPLAY 
* 
*    IF ORDER 5 ERASE CHARACTER /40 IS SENT TO DISPLAY. 
*    IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY
* 
ACDN	EQU	*
	IFT	CREDIT=0 
	SUK	A7,5	ORDER 5?
	RF(E)	ADN010 
	XIF
	IFT	CREDIT=1 
	SUK	A7,/31 
	RF(Z)	ADN010 
	ADK	A7,/2C 
	XIF
* 
	IFT	DNWRIT=1 
* 
	SUK	A7,1	ORDER 6?
	RF(E)	ADN015 
* 
	XIF
* 
	ABL	DISIOE	I/O REQUEST ERROR 
* 
	EJECT			DRDN01 
* 
*    ORDER 05 
* 
ADN010	EQU	*
	LDK	A2,/40	ERASE DISPLAY 
	CF	A5,OUTPUT	SEND CHARACTER
	RF	ENDIO 
* 
*    ORDER 06 
* 
	IFT	DNWRIT=1 
* 
ADN015	LDK	A3,0	RESET BUFFER INDEX
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
	RB	ADN020
ADN030	LDK	A1,CCERR	INDICATE CODE CHECK ERROR 
	ORS	A1,8,A8	RETURN CODE
	RB	ADN020
* 
	XIF
* 
ENDIO	CF	A15,TENDIO	END I/O 
EXIT	ABL	TDISP
* 
	EJECT			DRDN01 
* 
*    I H D N
* 
*    INTERRUPT
* 
IHDN	EQU	*
	LD	A4,DWTST,A6	BUSY? 
	RB(N)	EXIT 
	SLL	A4,2	ECHO MODE ? 
	RF(N)	IHDN10 
	LDR	A1,A1	RETURN CODE FROM CHLT? 
	RB(NE)	ENDIO 
IHDN10	EQU	*
	ABL	LDREG
* 
	EJECT			DRDN01 
* 
*    R C D N
* 
*    RECOVERY 
* 
RCDN	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A2,/7FFF	 
	ANS	A2,DWTST,A6	SET DEVICE BUSY
	LDK	A2,/40	ERASE CHARACTER 
	CF	A5,OUTPUT	SEND ERASE
	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)	ECH050 
	LDR	A3,A2
	SUK	A3,/8	BACKSPACE? 
	RF(E)	ECH050 
	SUK	A3,/10	CLEAR?
	RF(NE)	ECH040	NO 
	LDK	A2,/40	ERASE DISPLAY 
ECH040	CF	A5,OUTPUT	SEND CHARACTER
ECH050	ABL	ECHRTN	RETURN TO KEYBOARD DRIVER 
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDN01  REL 9.2 79-11-16  870105040920 «, 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…008e              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x0056}
0x008e…0098              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00c0              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009c}
0x00c0…00ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00f6              Head {h00=0x0028, h01=0x0050, text=»*   DRDN01 = DRIVER NUMERIC DISPLAY «, t00=0x0000, t01=0x00ce}
0x00f6…0100              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…016e              Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x0136}
0x016e…0178              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…0182              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…01b6              Head {h00=0x0030, h01=0x0050, text=»*    THIS DRIVER HANDLES THE NUMERIC DISPLAY«, t00=0x0000, t01=0x0186}
0x01b6…01ea              Head {h00=0x0030, h01=0x0050, text=»*    ON INDICATOR UNIT PTS 6241 CONNECTED TO«, t00=0x0001, t01=0x002a}
0x01ea…0214              Head {h00=0x0026, h01=0x0050, text=»*    THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0001, t01=0x005e}
0x0214…021e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021e…0252              Head {h00=0x0030, h01=0x0050, text=»*    THE DISPLAY MAY BE USED AS AN ORDINARY «, t00=0x0001, t01=0x0092}
0x0252…0286              Head {h00=0x0030, h01=0x0050, text=»*    OUTPUT DEVICE WHERE NUMERIC INFORMATION«, t00=0x0001, t01=0x00c6}
0x0286…02ba              Head {h00=0x0030, h01=0x0050, text=»*    ARE DISPLAYED FROM THE USER PROGRAM. IT«, t00=0x0001, t01=0x00fa}
0x02ba…02ec              Head {h00=0x002e, h01=0x0050, text=»*    MAY ALSO BE USED AS AN ECHO-DEVICE TO«, t00=0x0001, t01=0x012e}
0x02ec…0322              Head {h00=0x0032, h01=0x0050, text=»*    ANY KEYBOARD THAT WORKS UNDER THE GENERAL«, t00=0x0001, t01=0x0160}
0x0322…0346              Head {h00=0x0020, h01=0x0050, text=»*    KEYBOARD DRIVER DRKB01.«, t00=0x0002, t01=0x0008}
0x0346…0350              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002c}
0x0350…0384              Head {h00=0x0030, h01=0x0050, text=»*    THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0036}
0x0384…038e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x038e…03b8              Head {h00=0x0026, h01=0x0050, text=»*    A C D N       ACTIVATION PART«, t00=0x0002, t01=0x0074}
0x03b8…03c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009e}
0x03c2…03ee              Head {h00=0x0028, h01=0x0050, text=»*    I H D N       INTERRUPT HANDLER«, t00=0x0002, t01=0x00a8}
0x03ee…03f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03f8…0424              Head {h00=0x0028, h01=0x0050, text=»*    R C D N       RECOVERY ROUTINE «, t00=0x0002, t01=0x00de}
0x0424…042e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010a}
0x042e…0458              Head {h00=0x0026, h01=0x0050, text=»*    E C H O D N   ECHO FUNCTIONS «, t00=0x0002, t01=0x0114}
0x0458…0470              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0002, t01=0x013e}
0x0470…047a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047a…0484              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0160}
0x0484…04b4              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x016a}
0x04b4…04be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000a}
0x04be…04ea              Head {h00=0x0028, h01=0x0050, text=»*    ORDER 05: ERASE NUMERIC DISPLAY«, t00=0x0003, t01=0x0014}
0x04ea…0516              Head {h00=0x0028, h01=0x0050, text=»*          06: WRITE NUMERIC DISPLAY«, t00=0x0003, t01=0x0040}
0x0516…0520              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0520…052a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0076}
0x052a…054e              Head {h00=0x0020, h01=0x0050, text=»*    NORMAL REGISTER USAGE: «, t00=0x0003, t01=0x0080}
0x054e…0558              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a4}
0x0558…0580              Head {h00=0x0024, h01=0x0050, text=»*    REGISTER: A1 = RETURN CODE «, t00=0x0003, t01=0x00ae}
0x0580…05ac              Head {h00=0x0028, h01=0x0050, text=»*              A2 = OUTPUT CHARACTER«, t00=0x0003, t01=0x00d6}
0x05ac…05d4              Head {h00=0x0024, h01=0x0050, text=»*              A3 = BUFFER INDEX«, t00=0x0003, t01=0x0102}
0x05d4…05fe              Head {h00=0x0026, h01=0x0050, text=»*              A4 = WORK REGISTER «, t00=0x0003, t01=0x012a}
0x05fe…0624              Head {h00=0x0022, h01=0x0050, text=»*              A5 = STACK BASE«, t00=0x0003, t01=0x0154}
0x0624…064c              Head {h00=0x0024, h01=0x0050, text=»*              A6 = DWT-ADDRESS «, t00=0x0003, t01=0x017a}
0x064c…066e              Head {h00=0x001e, h01=0x0050, text=»*              A7 = ORDER «, t00=0x0004, t01=0x0012}
0x066e…0696              Head {h00=0x0024, h01=0x0050, text=»*              A8 = ECB-ADDRESS «, t00=0x0004, t01=0x0034}
0x0696…06a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005c}
0x06a0…06aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06c8              Head {h00=0x001a, h01=0x0050, text=»*    SYSTEM ADAPTATION«, t00=0x0004, t01=0x0070}
0x06c8…06d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008e}
0x06d2…0708              Head {h00=0x0032, h01=0x0050, text=»*    BY MEANS OF CONDITIONAL ASSEMBLY ORDER 06«, t00=0x0004, t01=0x0098}
0x0708…073c              Head {h00=0x0030, h01=0x0050, text=»*    WRITE NUMERIC DISPLAY MAY BE EXCLUDED. «, t00=0x0004, t01=0x00ce}
0x073c…0770              Head {h00=0x0030, h01=0x0050, text=»*    TO BE USED IN SYSTEMS WHERE THE DISPLAY«, t00=0x0004, t01=0x0102}
0x0770…079c              Head {h00=0x0028, h01=0x0050, text=»*    FIGURES ONLY AS AN ECHO-DEVICE.«, t00=0x0004, t01=0x0136}
0x079c…07a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a6…07b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016c}
0x07b0…07c8              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0004, t01=0x0176}
0x07c8…07d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x07d2…07dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…07f0              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0012}
0x07f0…0804              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x0026}
0x0804…0818              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x003a}
0x0818…0822              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004e}
0x0822…082c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0058}
0x082c…0858              Head {h00=0x0028, h01=0x0050, text=» ENTRY DNAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0005, t01=0x0062}
0x0858…0862              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0862…086c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086c…08a0              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0005, t01=0x00a2}
0x08a0…08d4              Head {h00=0x0030, h01=0x0050, text=»*    EXTERNAL TOSS MODULE ENTRIES          *«, t00=0x0005, t01=0x00d6}
0x08d4…0908              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0005, t01=0x010a}
0x0908…0912              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0912…091c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091c…093c              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x0152}
0x093c…0968              Head {h00=0x0028, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB«, t00=0x0005, t01=0x0172}
0x0968…0990              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0006, t01=0x000e}
0x0990…09ae              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0006, t01=0x0036}
0x09ae…09d2              Head {h00=0x0020, h01=0x0050, text=» EXTRN OUTPUT SEND CHARACTER«, t00=0x0006, t01=0x0054}
0x09d2…0a12              Head {h00=0x003c, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS A4,A3,A5,A7,A8 AND RETURN«, t00=0x0006, t01=0x0078}
0x0a12…0a3c              Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTERS A1-A8 «, t00=0x0006, t01=0x00b8}
0x0a3c…0a66              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHOING «, t00=0x0006, t01=0x00e2}
0x0a66…0a70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010c}
0x0a70…0a7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a7a…0a9e              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0006, t01=0x0120}
0x0a9e…0ac2              Head {h00=0x0020, h01=0x0050, text=»*    DWT PARAMETERS        *«, t00=0x0006, t01=0x0144}
0x0ac2…0ae6              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0006, t01=0x0168}
0x0ae6…0af0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0af0…0afa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afa…0b16              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0007, t01=0x0012}
0x0b16…0b38              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0007, t01=0x002e}
0x0b38…0b5a              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0007, t01=0x0050}
0x0b5a…0b72              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0007, t01=0x0072}
0x0b72…0b7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7c…0b86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0094}
0x0b86…0ba8              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x009e}
0x0ba8…0bca              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0007, t01=0x00c0}
0x0bca…0bec              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x00e2}
0x0bec…0bf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0104}
0x0bf6…0c2a              Head {h00=0x0030, h01=0x0050, text=»*    BY SETTING X:A = 0 THIS DRIVER HANDLES «, t00=0x0007, t01=0x010e}
0x0c2a…0c5a              Head {h00=0x002c, h01=0x0050, text=»*    ONLY ORDER 05 ERASE NUMERIC DISPLAY«, t00=0x0007, t01=0x0142}
0x0c5a…0c64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0172}
0x0c64…0c76              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x017c}
0x0c76…0c94              Head {h00=0x001a, h01=0x0050, text=»DNWRIT EQU X:A ORDER 6«, t00=0x0007, t01=0x018e}
0x0c94…0c9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0c9e…0cda              Head {h00=0x0038, h01=0x0050, text=»*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0008, t01=0x0026}
0x0cda…0cfc              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING CREDIT = 1 «, t00=0x0008, t01=0x0062}
0x0cfc…0d2e              Head {h00=0x002e, h01=0x0050, text=»*   ORDER 05 IS THEN REPLACED BY ORDER /31«, t00=0x0008, t01=0x0084}
0x0d2e…0d38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d38…0d4c              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0008, t01=0x00c0}
0x0d4c…0d56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d4}
0x0d56…0d88              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00de}
0x0d88…0db6              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x0110}
0x0db6…0dc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dc0…0dd4              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x0148}
0x0dd4…0dde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015c}
0x0dde…0de8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0166}
0x0de8…0e22              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x0170}
0x0e22…0e54              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x001a}
0x0e54…0e5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e5e…0e72              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x0056}
0x0e72…0e7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006a}
0x0e7c…0e86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0074}
0x0e86…0ea0              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0009, t01=0x007e}
0x0ea0…0eba              Head {h00=0x0016, h01=0x0050, text=»*    CONSTANTS  * «, t00=0x0009, t01=0x0098}
0x0eba…0ed4              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0009, t01=0x00b2}
0x0ed4…0ede              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ede…0f04              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0009, t01=0x00d6}
0x0f04…0f0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fc}
0x0f0e…0f38              Head {h00=0x0026, h01=0x0050, text=»*   MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0009, t01=0x0106}
0x0f38…0f42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0130}
0x0f42…0f54              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 16«, t00=0x0009, t01=0x013a}
0x0f54…0f6a              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x0009, t01=0x014c}
0x0f6a…0f82              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0009, t01=0x0162}
0x0f82…0f8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f8c…0f96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0184}
0x0f96…0fac              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x018e}
0x0fac…0fc2              Head {h00=0x0012, h01=0x0050, text=»*    TABLES  *«, t00=0x000a, t01=0x0014}
0x0fc2…0fd8              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x002a}
0x0fd8…0fe2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0040}
0x0fe2…0fec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004a}
0x0fec…1010              Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000a, t01=0x0054}
0x1010…102e              Head {h00=0x001a, h01=0x0050, text=» DATA 2 DEVICE  INDEX «, t00=0x000a, t01=0x0078}
0x102e…104e              Head {h00=0x001c, h01=0x0050, text=»DNAD EQU * ADDRESS BLOCK«, t00=0x000a, t01=0x0096}
0x104e…1070              Head {h00=0x001e, h01=0x0050, text=» DATA ACDN ACTIVATION PART«, t00=0x000a, t01=0x00b6}
0x1070…1096              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x00d8}
0x1096…10ba              Head {h00=0x0020, h01=0x0050, text=» DATA IHDN INTERRUPT HANDLER«, t00=0x000a, t01=0x00fe}
0x10ba…10de              Head {h00=0x0020, h01=0x0050, text=» DATA RCDN RECOVERY ROUTINE «, t00=0x000a, t01=0x0122}
0x10de…1114              Head {h00=0x0032, h01=0x0050, text=» DATA ECHODN DEVICE-DEPENDENT ECHO-SUBROUTINE «, t00=0x000a, t01=0x0146}
0x1114…111e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017c}
0x111e…1136              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000a, t01=0x0186}
0x1136…1140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000e}
0x1140…1154              Head {h00=0x0010, h01=0x0050, text=»*    A C D N«, t00=0x000b, t01=0x0018}
0x1154…115e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002c}
0x115e…1194              Head {h00=0x0032, h01=0x0050, text=»*    ACDN = ACTIVATION DRIVER NUMERIC DISPLAY «, t00=0x000b, t01=0x0036}
0x1194…119e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006c}
0x119e…11ce              Head {h00=0x002c, h01=0x0050, text=»*    THE FOLLOWING ORDERS ARE THREATED: «, t00=0x000b, t01=0x0076}
0x11ce…11d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11d8…1204              Head {h00=0x0028, h01=0x0050, text=»*    ORDER 05: ERASE NUMERIC DISPLAY«, t00=0x000b, t01=0x00b0}
0x1204…1234              Head {h00=0x002c, h01=0x0050, text=»*    ORDER 06: WRITE ON NUMERIC DISPLAY «, t00=0x000b, t01=0x00dc}
0x1234…123e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010c}
0x123e…127e              Head {h00=0x003c, h01=0x0050, text=»*    IF ORDER 5 ERASE CHARACTER /40 IS SENT TO DISPLAY. «, t00=0x000b, t01=0x0116}
0x127e…12c2              Head {h00=0x0040, h01=0x0050, text=»*    IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY«, t00=0x000b, t01=0x0156}
0x12c2…12cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000a}
0x12cc…12de              Head {h00=0x000e, h01=0x0050, text=»ACDN EQU *«, t00=0x000c, t01=0x0014}
0x12de…12f4              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000c, t01=0x0026}
0x12f4…130e              Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x000c, t01=0x003c}
0x130e…1324              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN010 «, t00=0x000c, t01=0x0056}
0x1324…1330              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x006c}
0x1330…1346              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000c, t01=0x0078}
0x1346…135a              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/31 «, t00=0x000c, t01=0x008e}
0x135a…1370              Head {h00=0x0012, h01=0x0050, text=» RF(Z) ADN010 «, t00=0x000c, t01=0x00a2}
0x1370…1384              Head {h00=0x0010, h01=0x0050, text=» ADK A7,/2C «, t00=0x000c, t01=0x00b8}
0x1384…1390              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00cc}
0x1390…139a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139a…13b0              Head {h00=0x0012, h01=0x0050, text=» IFT DNWRIT=1 «, t00=0x000c, t01=0x00e2}
0x13b0…13ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f8}
0x13ba…13d4              Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 ORDER 6?«, t00=0x000c, t01=0x0102}
0x13d4…13ea              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN015 «, t00=0x000c, t01=0x011c}
0x13ea…13f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f4…1400              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x013c}
0x1400…140a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0148}
0x140a…1430              Head {h00=0x0022, h01=0x0050, text=» ABL DISIOE I/O REQUEST ERROR «, t00=0x000c, t01=0x0152}
0x1430…143a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x143a…1452              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000c, t01=0x0182}
0x1452…145c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x145c…1472              Head {h00=0x0012, h01=0x0050, text=»*    ORDER 05 «, t00=0x000d, t01=0x0014}
0x1472…147c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x147c…1490              Head {h00=0x0010, h01=0x0050, text=»ADN010 EQU *«, t00=0x000d, t01=0x0034}
0x1490…14b2              Head {h00=0x001e, h01=0x0050, text=» LDK A2,/40 ERASE DISPLAY «, t00=0x000d, t01=0x0048}
0x14b2…14d6              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x000d, t01=0x006a}
0x14d6…14e8              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x000d, t01=0x008e}
0x14e8…14f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a0}
0x14f2…1508              Head {h00=0x0012, h01=0x0050, text=»*    ORDER 06 «, t00=0x000d, t01=0x00aa}
0x1508…1512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…1528              Head {h00=0x0012, h01=0x0050, text=» IFT DNWRIT=1 «, t00=0x000d, t01=0x00ca}
0x1528…1532              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e0}
0x1532…155c              Head {h00=0x0026, h01=0x0050, text=»ADN015 LDK A3,0 RESET BUFFER INDEX«, t00=0x000d, t01=0x00ea}
0x155c…1586              Head {h00=0x0026, h01=0x0050, text=»ADN020 CF A15,GETCHR GET CHARACTER«, t00=0x000d, t01=0x0114}
0x1586…15a0              Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 FOUND? «, t00=0x000d, t01=0x013e}
0x15a0…15c2              Head {h00=0x001e, h01=0x0050, text=» RF(NP) ENDIO NO, READY ! «, t00=0x000d, t01=0x0158}
0x15c2…15cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15cc…15e4              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000d, t01=0x0184}
0x15e4…15ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15ee…160a              Head {h00=0x0018, h01=0x0050, text=»*    CHECK CHARACTER«, t00=0x000e, t01=0x0016}
0x160a…1614              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1614…1626              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000e, t01=0x003c}
0x1626…1640              Head {h00=0x0016, h01=0x0050, text=» SUK A4,/3F BLANK?«, t00=0x000e, t01=0x004e}
0x1640…1656              Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN025 «, t00=0x000e, t01=0x0068}
0x1656…1672              Head {h00=0x0018, h01=0x0050, text=» ADK A4,6 KEY > /39?«, t00=0x000e, t01=0x007e}
0x1672…1688              Head {h00=0x0012, h01=0x0050, text=» RF(P) ADN030 «, t00=0x000e, t01=0x009a}
0x1688…16a4              Head {h00=0x0018, h01=0x0050, text=» ADK A4,9 KEY < /30 «, t00=0x000e, t01=0x00b0}
0x16a4…16ba              Head {h00=0x0012, h01=0x0050, text=» RF(N) ADN030 «, t00=0x000e, t01=0x00cc}
0x16ba…16ce              Head {h00=0x0010, h01=0x0050, text=»ADN025 EQU *«, t00=0x000e, t01=0x00e2}
0x16ce…16f2              Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x000e, t01=0x00f6}
0x16f2…1704              Head {h00=0x000e, h01=0x0050, text=» RB ADN020«, t00=0x000e, t01=0x011a}
0x1704…173a              Head {h00=0x0032, h01=0x0050, text=»ADN030 LDK A1,CCERR INDICATE CODE CHECK ERROR «, t00=0x000e, t01=0x012c}
0x173a…175a              Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x000e, t01=0x0162}
0x175a…176c              Head {h00=0x000e, h01=0x0050, text=» RB ADN020«, t00=0x000e, t01=0x0182}
0x176c…1776 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1776…1782              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x000e}
0x1782…178c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001a}
0x178c…17b0              Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x000f, t01=0x0024}
0x17b0…17c6              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000f, t01=0x0048}
0x17c6…17d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17d0…17e8              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x000f, t01=0x0068}
0x17e8…17f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f2…1806              Head {h00=0x0010, h01=0x0050, text=»*    I H D N«, t00=0x000f, t01=0x008a}
0x1806…1810              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x1810…1826              Head {h00=0x0012, h01=0x0050, text=»*    INTERRUPT«, t00=0x000f, t01=0x00a8}
0x1826…1830              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00be}
0x1830…1842              Head {h00=0x000e, h01=0x0050, text=»IHDN EQU *«, t00=0x000f, t01=0x00c8}
0x1842…1860              Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x000f, t01=0x00da}
0x1860…1874              Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x000f, t01=0x00f8}
0x1874…1892              Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x000f, t01=0x010c}
0x1892…18a8              Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDN10 «, t00=0x000f, t01=0x012a}
0x18a8…18d2              Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHLT? «, t00=0x000f, t01=0x0140}
0x18d2…18e8              Head {h00=0x0012, h01=0x0050, text=» RB(NE) ENDIO «, t00=0x000f, t01=0x016a}
0x18e8…18fc              Head {h00=0x0010, h01=0x0050, text=»IHDN10 EQU *«, t00=0x000f, t01=0x0180}
0x18fc…190e (16, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ABL LDREG«, t00=0x0010, t01=0x0004}
0x190e…1918              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x1918…1930              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0010, t01=0x0020}
0x1930…193a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0038}
0x193a…194e              Head {h00=0x0010, h01=0x0050, text=»*    R C D N«, t00=0x0010, t01=0x0042}
0x194e…1958              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1958…196e              Head {h00=0x0012, h01=0x0050, text=»*    RECOVERY «, t00=0x0010, t01=0x0060}
0x196e…1978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x1978…198a              Head {h00=0x000e, h01=0x0050, text=»RCDN EQU *«, t00=0x0010, t01=0x0080}
0x198a…19a0              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0010, t01=0x0092}
0x19a0…19ca              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0010, t01=0x00a8}
0x19ca…19d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00d2}
0x19d6…19e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e0…19f6              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0010, t01=0x00e8}
0x19f6…1a1c              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0010, t01=0x00fe}
0x1a1c…1a28              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0124}
0x1a28…1a32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a32…1a4a              Head {h00=0x0014, h01=0x0050, text=» LDKL A2,/7FFF  «, t00=0x0010, t01=0x013a}
0x1a4a…1a72              Head {h00=0x0024, h01=0x0050, text=» ANS A2,DWTST,A6 SET DEVICE BUSY«, t00=0x0010, t01=0x0152}
0x1a72…1a96              Head {h00=0x0020, h01=0x0050, text=» LDK A2,/40 ERASE CHARACTER «, t00=0x0010, t01=0x017a}
0x1a96…1ab6              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND ERASE«, t00=0x0011, t01=0x000e}
0x1ab6…1ace              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0011, t01=0x002e}
0x1ace…1ae2              Head {h00=0x0010, h01=0x0050, text=» RB(E) ENDIO«, t00=0x0011, t01=0x0046}
0x1ae2…1b10              Head {h00=0x002a, h01=0x0050, text=» RB ACDN RETURN TO ACTIVATINO PARTONI «, t00=0x0011, t01=0x005a}
0x1b10…1b1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0088}
0x1b1a…1b32              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDN01 «, t00=0x0011, t01=0x0092}
0x1b32…1b3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00aa}
0x1b3c…1b54              Head {h00=0x0014, h01=0x0050, text=»*    E C H O D N«, t00=0x0011, t01=0x00b4}
0x1b54…1b5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00cc}
0x1b5e…1b78              Head {h00=0x0016, h01=0x0050, text=»*    ECHO-ROUTINE «, t00=0x0011, t01=0x00d6}
0x1b78…1b82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f0}
0x1b82…1b96              Head {h00=0x0010, h01=0x0050, text=»ECHODN EQU *«, t00=0x0011, t01=0x00fa}
0x1b96…1bae              Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0011, t01=0x010e}
0x1bae…1bc4              Head {h00=0x0012, h01=0x0050, text=» RF(N) ECH050 «, t00=0x0011, t01=0x0126}
0x1bc4…1bd6              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0011, t01=0x013c}
0x1bd6…1bf4              Head {h00=0x001a, h01=0x0050, text=» SUK A3,/8 BACKSPACE? «, t00=0x0011, t01=0x014e}
0x1bf4…1c0a              Head {h00=0x0012, h01=0x0050, text=» RF(E) ECH050 «, t00=0x0011, t01=0x016c}
0x1c0a…1c24              Head {h00=0x0016, h01=0x0050, text=» SUK A3,/10 CLEAR?«, t00=0x0011, t01=0x0182}
0x1c24…1c3e              Head {h00=0x0016, h01=0x0050, text=» RF(NE) ECH040 NO «, t00=0x0012, t01=0x000c}
0x1c3e…1c60              Head {h00=0x001e, h01=0x0050, text=» LDK A2,/40 ERASE DISPLAY «, t00=0x0012, t01=0x0026}
0x1c60…1c8a              Head {h00=0x0026, h01=0x0050, text=»ECH040 CF A5,OUTPUT SEND CHARACTER«, t00=0x0012, t01=0x0048}
0x1c8a…1cbe              Head {h00=0x0030, h01=0x0050, text=»ECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER «, t00=0x0012, t01=0x0072}
0x1cbe…1cc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a6}
0x1cc8…1cd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b0}
0x1cd2…1cdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ba}
0x1cdc…1ce8              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0012, t01=0x00c4}
0x1ce8…1cf0              Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00d0}
0x1cf0…1cf4              Head {h00=0x4004, h01=0x0000}
0x1cf4…1cf8              00 12 00 d8                                                                                                                                                                                                                                       ┆    ┆
0x1cf8…1d00 (19, 1, 8)   20 04 00 00 00 13 00 04                                                                                                                                                                                                                           ┆        ┆
0x1d00…1d50 (20, 0, 400) 20 43 4f 55 4e 54 45 52 00 1b 01 6a 00 06 00 50 2a 20 00 1c 00 10 00 2a 00 50 52 45 41 44 34 30 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 47 45 54 20 45 43 42 20 41 44 44 52 45 53 53 00 1c 00 1a 00 2a 00 50 5c 53 54 5c 41 37 2c 45   ┆ COUNTER   j   P*      * PREAD40 LD A8,DWTECB,A6 GET ECB ADDRESS     * P ST A7,E┆
0x1d50…1da0              43 42 45 4c 2c 41 38 5c 53 41 56 45 20 45 46 46 45 43 54 49 56 45 20 4c 45 4e 47 54 48 20 00 1c 00 48 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 52 54 52 49 45 53 00 1c 00 76 00 2e 00 50 5c 53 55 52 5c 41 32 2c 41 34 5c 47 45 54 20 4e 55 4d 42 45   ┆CBEL,A8 SAVE EFFECTIVE LENGTH    H   P LDK A2,RTRIES   v . P SUR A2,A4 GET NUMBE┆
0x1da0…1df0              52 20 4f 46 20 52 45 54 52 49 45 53 20 50 45 52 46 4f 52 4d 45 44 00 1c 00 8c 00 2c 00 50 5c 53 54 5c 41 32 2c 45 43 42 43 57 2c 41 38 5c 53 41 56 45 20 49 54 20 49 4e 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 00 1c 00 be 00 06 00 50 2a 20   ┆R OF RETRIES PERFORMED     , P ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD        P* ┆
0x1df0…1e40              00 1c 00 ee 00 10 00 50 52 45 41 44 35 30 5c 45 51 55 5c 2a 00 1c 00 f8 00 20 00 50 5c 53 54 5c 41 33 2c 44 57 54 53 54 2c 41 36 5c 53 41 56 45 20 53 54 41 54 55 53 20 00 1c 01 0c 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 54 43 30 31 20   ┆       PREAD50 EQU *       P ST A3,DWTST,A6 SAVE STATUS        P EJECT   DRTC01 ┆
0x1e40…1e90              00 1c 01 30 00 06 00 50 2a 20 00 1c 01 48 00 06 00 50 2a 20 00 1c 01 52 00 1a 00 50 2a 20 45 4e 44 20 4f 46 20 49 2f 4f 20 4f 50 45 52 41 54 49 4f 4e 00 1c 01 5c 00 06 00 50 2a 20 00 1c 01 7a 00 06 00 50 2a 20 00 1c 01 84 00 10 00 50 45 4e   ┆   0   P*    H   P*    R   P* END OF I/O OPERATION       P*    z   P*        PEN┆

Reduced view