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

⟦7760a8e18⟧

    Length: 10752 (0x2a00)
    Notes: pts_type(SC)
    Names: »DRDI01.SC«

Derivation

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

PTS(SC)

	IDENT DRDI01 	REL 9.2 79-11-16  870105040920 

* 
* 
******************************************************* 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDI01 = DRIVER INDICATOR DISPLAY 
* 
* 
* 
* 
* 
* 
******************************************************* 
* 
* 
*   THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241
*   AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232
*   6233, 6236 AND 633, 62361.
* 
*   THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT 
* 
*   THE DRIVER CONSISTS OF THE FOLLOWING PARTS: 
* 
*   A C D I :	ACTIVATION PART 
* 
*   I H D I :	INTERRUPT HANDLER 
* 
*   R C D I :	RECOVERY ROUTINE
* 
*   THE FOLLOWING ORDERS ARE TREATED: 
* 
*   ORDER 05:	WRITE LIGHTS ON 
*         06:	WRITE LIGHTS OFF
*         07:	WRITE PROGRAM DISPLAY 
*         39:     WRITE  FLASHING LIGHTS
	EJECT
* 
* 
*   NORMAL REGISTER USAGE:
* 
*   REGISTER A1:	RETURN CODE
*            A2:  OUTPUT
*            A3:	WORK REGISTER
*            A4:	WORK REGISTER
*            A5:	WORK REGISTER
*            A6:	DWT-ADDRESS
*            A7:	ORDER
*            A8:	ECB-ADDRESS
* 
* 
*   SYSTEM ADAPTATION 
* 
*   DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT 
* 
*   BIT 10 = 1   IF PROGRAM DISPLAY   (PTS 6241)
*   BIT 11 = 1   FOR PTS 6232,6331,6236 
*   BIT 11 = 0   FOR PTS 6241,6242,6233 
* 
*   ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY
*   CONDITIONAL ASSEMBLY
* 
	EJECT
* 
* 
*************** 
*    ENTRIES  * 
*************** 
* 
	ENTRY	DIAD	ADDRESS TO ADDRESS-BLOCK
* 
******************* 
*    EXTERNALS    * 
******************* 
* 
	EXTRN	SAVE8	SAVE REGS
	EXTRN	TENDIO	END I/O 
	EXTRN	DISEND	PERFORM END I/O AND DISPATCH
	EXTRN	TDISP	DISPATCHER ORDINARY INT. 
	EXTRN	OUTLIN	OUTPUT ONE CHAR.
	EXTRN	GETCHR	GET CHARACTER 
	EXTRN	DISIOE	I/O REQUEST ERROR 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTBC	BYTE COUNTER 
	EXTRN	DWTECB	ECB ADDRESS 
* 
	EXTRN	SETIMP	SET TIMER 
* 
* 
	EJECT
* 
* 
*************** 
*    TABLES  *
*************** 
* 
* 
	DATA	DVBLEN	BUFFER SIZE (MMU)
	DATA	2	DEVICE INDEX
* 
DIAD	EQU	*	ADDRESS BLOCK
	DATA	ACDI	ACTIVATION DRIVER
	DATA	0	ABORT ROUTINE ADDRESS 
	DATA	IHDI	INTERRUPT HANDLER
	DATA	RCDI	RECOVERY ROUTINE 
* 
CCERR	EQU	/4	CODE CHECK ERROR 
* 
	EJECT
* 
* 
************************* 
*  CONDITIONAL ASSEMBLY * 
************************* 
* 
* 
*   ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY
*   SETTING X:A=0 
* 
X:A	EQU	0 
ORD7	EQU	X:A
* 
* 
*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS 
*   BY SETTING CREDIT = 1 
*   ORDERS 05,06AND 07 ARE THEN REPLACED BY 
*   ORDERS 37,38 AND 06 
* 
CREDIT	EQU	0
* 
* 
*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED 
*   IN THIS DRIVER BY SETTING X:B=1 
* 
X:B	EQU	0 
FLASH	EQU	X:B 
* 
* 
*	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
* 
	EJECT
* 
* 
*   MMU BUFFER SIZE 
* 
X:C	EQU	4 
DVBLEN	EQU	X:C
* 
* 
********************* 
* DWT-DISPLACEMENTS * 
********************* 
* 
* 
DWTDRD	EQU	/10	START OF DRIVER DEFINED PART 
* 
	IFT	MMUPAG=0 
START	EQU	DWTDRD
	XIF
* 
	IFT	MMUPAG=1 
START	EQU	DWTDRD+4
	XIF
* 
DWTDIB	EQU	START+/02	SAVE AREA
DWTFLA	EQU	START+/08	SAVE AREA FOR FLASH IMAGE
DWTTP	EQU	START+/0A	TIMER POINTER 
TIME	EQU	5	FLASH TIME 
* 
	EJECT
* 
*    A C D I
* 
*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS 
*   THE PROCESSING
* 
* 
ACDI	EQU	*
	IFT	ORD7-CREDIT=1
	CCK	A7,/0707 
	RF(E)	ADI050	ORDER /07 
	XIF
	IFT	ORD7+CREDIT=2
	CCK	A7,/0606 
	RF(E)	ADI050	ORDER /06 
	XIF
	LD	A4,10,A8	CONTROL WORD TO A4 
	LDR*	A3,A6 
	ANK	A3,/10	TEST IF ONE OR TWO CHARACTER DEVICE 
	RF(NZ)	ADI005	ONE CHARACTER DEVICE 
	LDR	A3,A4	CONTROL WORD tO A3 
	ANK	A4,/F
	ANK	A3,/F0 
	SLL	A3,4 
	ORR	A4,A3	LAMPCODES IN A4
ADI005	EQU	*
	IFT	FLASH=1
	CCK	A7,/3939 
	RF(E)	FLA05
	XIF
	IFT	CREDIT=0 
	SUK	A7,5 
	XIF
	IFT	CREDIT=1 
	SUK	A7,/37 
	XIF
	RF(E)	ADI010	ORDER 05
	SUK	A7,1	
	RF(E)	ADI007	ORDER 06
	ABL(NE)	DISIOE	REQUEST ERROR 
* 
	EJECT
* 
* 
	IFT	FLASH=1
* 
*     FLASH    ORDER /39
* 
* 
FLA05	ORS	A4,DWTFLA,A6	SAVE FLASH IMMAGE
	LD	A1,DWTTP,A6	GET TIMER POINTER 
	RF(NZ)	FLA10	TIMER ALREADY STARTED 
	LDK	A4,DWTTP	START TIMER 
	ADR	A4,A6
	LDR	A1,A6
	CF	A15,SETIMP
	DATA	FLTUT,TIME
	ST	A4,DWTTP,A6 
	LDKL	A4,/FFBF
	ANRS	A4,A6	CHECK ON-OFF INDICATOR
FLA10	EQU	* 
	LD	A4,DWTFLA,A6
	LDR*	A2,A6	CHECK ON-OFF INDICATOR
	ANK	A2,/40 
	RF(Z)	FLA20	WRITE FLASHING LIGHTS OFF
	ORS	A4,DWTDIB,A6	ON + FLASH
	RF	ADI030	TURN ON LAMPS
FLA20	C1R	A4,A4 
	ANS	A4,DWTDIB,A6	ON-FLASH
	RF	ADI030	TURN ON LAMPS
FLTUT	EQU	*	FLASH TIME OUT ROUTINE
	LDR	A6,A1
	LD	A4,DWTFLA,A6
	RF(Z)	FLA30	IF NO MORE LAMPS TO FLASH GO TO DISPATCHER 
	LDKL	A1,-TIME	RESTART TIMER
	ST*	A1,DWTTP,A6
	LDK	A4,/40 
	XRRS	A4,A6	SWITCH 0N-OFF FLAG
	RB	FLA10 
FLA30	CM	DWTTP,A6 
	RF	EXIT
	XIF
* 
* 
*    ORDER 06: SWITCH OFF LAMPS 
* 
ADI007	EQU	*
	C1R	A4,A4
	ANS	A4,DWTDIB,A6	RESET BITS IN DWT-BUFFER
	IFT	FLASH=1
	ANS	A4,DWTFLA,A6	RESET BITS IN FLASH IMAGE 
	XIF
	RF	ADI030
* 
* 
	EJECT
* 
* 
*    ORDER 05: TURN ON LAMPS
* 
* 
* 
ADI010	ORS	A4,DWTDIB,A6	SET BITS IN DWT-BUFFER
	IFT	FLASH=1
	C1R	A4,A4
	ANS	A4,DWTFLA,A6	RESET BITS IN FLASH IMAGE 
	XIF
ADI030	LC	A2,DWTDIB,A6	GET FIRST CHARACTER
ADI035	LDK	A1,1 
	SC	A1,DWTST+1,A6	SET START VALUE IN BYTE COUNTER 
	LDR*	A3,A6	TWO OUTPUTS ? 
	ANK	A3,/10 
	RF(NZ)	IHDI10	NO 
	RF	IHDI20	YES
* 
* 
	IFT	ORD7=1 
	EJECT
* 
* 
*   ORDER 07: WRITE PROGRAM DISPLAY 
* 
ADI050	LDK	A3,0 
ADI060	CF	A15,GETCHR	GET CHARACTER
	LDR	A1,A1	LAST CHARACTER ? 
	RF(Z)	ADI070	YES 
	LDR	A4,A2
	SRL	A4,4 
	SUK	A4,3	UNDEFINED CHARACTER ? 
	RF(L)	ADI100	YES 
	CWK	A4,3	UNDEFINED ? 
	RF(G)	ADI100	YES 
	ADKL	A4,DWTDIB+2 
	ADR	A4,A6	 
	SCR	A2,A4	STORE CHARACTER IN DWT-BUFFER
	RB	ADI060	GET NEXT CHARACTER 
ADI070	SC	A1,DWTST+1,A6	SET START VALUE IN BYTE COUNTER 
	RF	IHDI10	SEND CHARACTERS
* 
* 
*    CODE CHECK ERROR 
* 
ADI100	LDK	A1,CCERR	SET RETURN CODE 
	ORS	A1,8,A8	IN ECB 
	RB	ADI060	GET NEXT CHARACTER 
	XIF
* 
	EJECT
* 
*    I H D I
* 
*   INTERRUPT HANDLER: PROCESS OF INTERRUPT 
* 
IHDI	EQU	*
	LDR	A1,A1	RETURN CODE
	RF(NE)	ENDIO	YES END I/O 
	LD	A4,DWTST,A6	GET STATUS
	ANK	A4,/FF 
	SUK	A4,2	TWO CHARS. SENT 
	IFT	ORD7=1 
	RF(NZ)	IHDI05	NO 
	LDR*	A3,A6	GET CHANNEL PARAMETER 
	ANK	A3,/20	PROGRAM STEP ?
	RF(Z)	ENDIO	NO. PERFORM ENDIO
IHDI05	SUK	A4,4	LAST CHARACTER ?
	RF(Z)	ENDIO	YES. PERFORM ENDIO 
IHDI10	LDKL	A2,DWTDIB 
	ADR	A2,A6	 
	LD	A4,DWTST,A6 
	ANK	A4,/FF 
	ADR	A2,A4
	LCR	A2,A2	GET CHARACTER
	XIF
	IFT	ORD7=0 
	RF(Z)	ENDIO
IHDI10	LC	A2,DWTDIB+1,A6	GET SECOND CHARACTER 
	XIF
	LD	A8,DWTECB,A6
	RF(Z)	OUTPUT	IF POWER FAIL NO BELL 
	LD	A3,10,A8	BELL?
	RF(NN)	OUTPUT	NO 
	ORK	A2,/40	INDICATE BELL 
* 
OUTPUT	IM	DWTST,A6	INCREMENT BYTE COUNTER 
IHDI20	CF	A15,OUTLIN	OUTPUT CHAR. 
EXIT	ABL	TDISP
ENDIO	ABL	DISEND	PERFORM END I/O AND DISPATCH 
* 
	EJECT
* 
*    R C D I
* 
*   RECIVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH 
*   THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION 
*   OM PROGRAM DISPLAY IS ALSO RESTORED 
* 
* 
RCDI	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
* 
	LC	A2,DWTDIB,A6	GET FIRST CHARACTER
	RB	ADI035
* 
* 
* 
	END





HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDI01  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…0092              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0056}
0x0092…009c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00c4              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a0}
0x00c4…00ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00fc              Head {h00=0x002a, h01=0x0050, text=»*   DRDI01 = DRIVER INDICATOR DISPLAY «, t00=0x0000, t01=0x00d2}
0x00fc…0106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0138              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0178              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x013c}
0x0178…0182              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…018c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01ce              Head {h00=0x003e, h01=0x0050, text=»*   THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241«, t00=0x0000, t01=0x0190}
0x01ce…0210              Head {h00=0x003e, h01=0x0050, text=»*   AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232«, t00=0x0001, t01=0x0042}
0x0210…0236              Head {h00=0x0022, h01=0x0050, text=»*   6233, 6236 AND 633, 62361.«, t00=0x0001, t01=0x0084}
0x0236…0240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…0284              Head {h00=0x0040, h01=0x0050, text=»*   THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT «, t00=0x0001, t01=0x00b4}
0x0284…028e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…02c6              Head {h00=0x0034, h01=0x0050, text=»*   THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x0102}
0x02c6…02d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…02f6              Head {h00=0x0022, h01=0x0050, text=»*   A C D I : ACTIVATION PART «, t00=0x0001, t01=0x0144}
0x02f6…0300              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0328              Head {h00=0x0024, h01=0x0050, text=»*   I H D I : INTERRUPT HANDLER «, t00=0x0001, t01=0x0174}
0x0328…0332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000c}
0x0332…0358              Head {h00=0x0022, h01=0x0050, text=»*   R C D I : RECOVERY ROUTINE«, t00=0x0002, t01=0x0016}
0x0358…0362              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0362…0390              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0046}
0x0390…039a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03c0              Head {h00=0x0022, h01=0x0050, text=»*   ORDER 05: WRITE LIGHTS ON «, t00=0x0002, t01=0x007e}
0x03c0…03e6              Head {h00=0x0022, h01=0x0050, text=»*         06: WRITE LIGHTS OFF«, t00=0x0002, t01=0x00a4}
0x03e6…0412              Head {h00=0x0028, h01=0x0050, text=»*         07: WRITE PROGRAM DISPLAY «, t00=0x0002, t01=0x00ca}
0x0412…0442              Head {h00=0x002c, h01=0x0050, text=»*         39:     WRITE  FLASHING LIGHTS«, t00=0x0002, t01=0x00f6}
0x0442…0450              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0126}
0x0450…045a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0464              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0486              Head {h00=0x001e, h01=0x0050, text=»*   NORMAL REGISTER USAGE:«, t00=0x0002, t01=0x0148}
0x0486…0490              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04b4              Head {h00=0x0020, h01=0x0050, text=»*   REGISTER A1: RETURN CODE«, t00=0x0002, t01=0x0174}
0x04b4…04d4              Head {h00=0x001c, h01=0x0050, text=»*            A2:  OUTPUT«, t00=0x0003, t01=0x0008}
0x04d4…04fa              Head {h00=0x0022, h01=0x0050, text=»*            A3: WORK REGISTER«, t00=0x0003, t01=0x0028}
0x04fa…0520              Head {h00=0x0022, h01=0x0050, text=»*            A4: WORK REGISTER«, t00=0x0003, t01=0x004e}
0x0520…0546              Head {h00=0x0022, h01=0x0050, text=»*            A5: WORK REGISTER«, t00=0x0003, t01=0x0074}
0x0546…056a              Head {h00=0x0020, h01=0x0050, text=»*            A6: DWT-ADDRESS«, t00=0x0003, t01=0x009a}
0x056a…0588              Head {h00=0x001a, h01=0x0050, text=»*            A7: ORDER«, t00=0x0003, t01=0x00be}
0x0588…05ac              Head {h00=0x0020, h01=0x0050, text=»*            A8: ECB-ADDRESS«, t00=0x0003, t01=0x00dc}
0x05ac…05b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0100}
0x05b6…05c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010a}
0x05c0…05de              Head {h00=0x001a, h01=0x0050, text=»*   SYSTEM ADAPTATION «, t00=0x0003, t01=0x0114}
0x05de…05e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0132}
0x05e8…0626              Head {h00=0x003a, h01=0x0050, text=»*   DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT «, t00=0x0003, t01=0x013c}
0x0626…0630              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…0668              Head {h00=0x0034, h01=0x0050, text=»*   BIT 10 = 1   IF PROGRAM DISPLAY   (PTS 6241)«, t00=0x0003, t01=0x0184}
0x0668…0698              Head {h00=0x002c, h01=0x0050, text=»*   BIT 11 = 1   FOR PTS 6232,6331,6236 «, t00=0x0004, t01=0x002c}
0x0698…06c8              Head {h00=0x002c, h01=0x0050, text=»*   BIT 11 = 0   FOR PTS 6241,6242,6233 «, t00=0x0004, t01=0x005c}
0x06c8…06d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…0710              Head {h00=0x003a, h01=0x0050, text=»*   ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0004, t01=0x0096}
0x0710…0730              Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x00d4}
0x0730…073a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f4}
0x073a…0748              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00fe}
0x0748…0752              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…075c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…0774              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0120}
0x0774…078c              Head {h00=0x0014, h01=0x0050, text=»*    ENTRIES  * «, t00=0x0004, t01=0x0138}
0x078c…07a4              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0150}
0x07a4…07ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07ae…07da              Head {h00=0x0028, h01=0x0050, text=» ENTRY DIAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0004, t01=0x0172}
0x07da…07e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e4…0800              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0005, t01=0x0018}
0x0800…081c              Head {h00=0x0018, h01=0x0050, text=»*    EXTERNALS    * «, t00=0x0005, t01=0x0034}
0x081c…0838              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0005, t01=0x0050}
0x0838…0842              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0842…0860              Head {h00=0x001a, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS«, t00=0x0005, t01=0x0076}
0x0860…087e              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0005, t01=0x0094}
0x087e…08b0              Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND PERFORM END I/O AND DISPATCH«, t00=0x0005, t01=0x00b2}
0x08b0…08de              Head {h00=0x002a, h01=0x0050, text=» EXTRN TDISP DISPATCHER ORDINARY INT. «, t00=0x0005, t01=0x00e4}
0x08de…0904              Head {h00=0x0022, h01=0x0050, text=» EXTRN OUTLIN OUTPUT ONE CHAR.«, t00=0x0005, t01=0x0112}
0x0904…0928              Head {h00=0x0020, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER «, t00=0x0005, t01=0x0138}
0x0928…0950              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0005, t01=0x015c}
0x0950…096c              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x0184}
0x096c…098e              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0006, t01=0x0010}
0x098e…09b0              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x0032}
0x09b0…09ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09ba…09da              Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIMP SET TIMER «, t00=0x0006, t01=0x005e}
0x09da…09e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007e}
0x09e4…09ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0088}
0x09ee…09fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0092}
0x09fc…0a06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a06…0a10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00aa}
0x0a10…0a28              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00b4}
0x0a28…0a3e              Head {h00=0x0012, h01=0x0050, text=»*    TABLES  *«, t00=0x0006, t01=0x00cc}
0x0a3e…0a56              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00e2}
0x0a56…0a60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a60…0a6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a6a…0a90              Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN BUFFER SIZE (MMU)«, t00=0x0006, t01=0x010e}
0x0a90…0aac              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0006, t01=0x0134}
0x0aac…0ab6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0150}
0x0ab6…0ad6              Head {h00=0x001c, h01=0x0050, text=»DIAD EQU * ADDRESS BLOCK«, t00=0x0006, t01=0x015a}
0x0ad6…0afa              Head {h00=0x0020, h01=0x0050, text=» DATA ACDI ACTIVATION DRIVER«, t00=0x0006, t01=0x017a}
0x0afa…0b20              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0007, t01=0x000e}
0x0b20…0b44              Head {h00=0x0020, h01=0x0050, text=» DATA IHDI INTERRUPT HANDLER«, t00=0x0007, t01=0x0034}
0x0b44…0b68              Head {h00=0x0020, h01=0x0050, text=» DATA RCDI RECOVERY ROUTINE «, t00=0x0007, t01=0x0058}
0x0b68…0b72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b72…0b98              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0007, t01=0x0086}
0x0b98…0ba2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba2…0bb0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b6}
0x0bb0…0bba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x0bc4…0be6              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x00d8}
0x0be6…0c08              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY * «, t00=0x0007, t01=0x00fa}
0x0c08…0c2a              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x011c}
0x0c2a…0c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c34…0c3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0148}
0x0c3e…0c7c              Head {h00=0x003a, h01=0x0050, text=»*   ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0007, t01=0x0152}
0x0c7c…0c96              Head {h00=0x0016, h01=0x0050, text=»*   SETTING X:A=0 «, t00=0x0007, t01=0x0190}
0x0c96…0ca0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0ca0…0cb2              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0024}
0x0cb2…0cc6              Head {h00=0x0010, h01=0x0050, text=»ORD7 EQU X:A«, t00=0x0008, t01=0x0036}
0x0cc6…0cd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0cd0…0cda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0054}
0x0cda…0d16              Head {h00=0x0038, h01=0x0050, text=»*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0008, t01=0x005e}
0x0d16…0d38              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING CREDIT = 1 «, t00=0x0008, t01=0x009a}
0x0d38…0d6c              Head {h00=0x0030, h01=0x0050, text=»*   ORDERS 05,06AND 07 ARE THEN REPLACED BY «, t00=0x0008, t01=0x00bc}
0x0d6c…0d8c              Head {h00=0x001c, h01=0x0050, text=»*   ORDERS 37,38 AND 06 «, t00=0x0008, t01=0x00f0}
0x0d8c…0d96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x0d96…0daa              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0008, t01=0x011a}
0x0daa…0db4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012e}
0x0db4…0dbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dbe…0dfa              Head {h00=0x0038, h01=0x0050, text=»*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED «, t00=0x0008, t01=0x0142}
0x0dfa…0e26              Head {h00=0x0028, h01=0x0050, text=»*   IN THIS DRIVER BY SETTING X:B=1 «, t00=0x0008, t01=0x017e}
0x0e26…0e30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001a}
0x0e30…0e42              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x0024}
0x0e42…0e58              Head {h00=0x0012, h01=0x0050, text=»FLASH EQU X:B «, t00=0x0009, t01=0x0036}
0x0e58…0e62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e62…0e6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0056}
0x0e6c…0e9e              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x0060}
0x0e9e…0ecc              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x0092}
0x0ecc…0ed6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed6…0eea              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x00ca}
0x0eea…0ef4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00de}
0x0ef4…0efe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efe…0f38              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x00f2}
0x0f38…0f6a              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x012c}
0x0f6a…0f74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f74…0f88              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x0168}
0x0f88…0f92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017c}
0x0f92…0fa0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0186}
0x0fa0…0faa (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0faa…0fb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000e}
0x0fb4…0fd0              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x0018}
0x0fd0…0fda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0034}
0x0fda…0fec              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 4 «, t00=0x000a, t01=0x003e}
0x0fec…1002              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x000a, t01=0x0050}
0x1002…100c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x100c…1016              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1016…1034              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000a, t01=0x007a}
0x1034…1052              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x000a, t01=0x0098}
0x1052…1070              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000a, t01=0x00b6}
0x1070…107a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d4}
0x107a…1084              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x1084…10b8              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000a, t01=0x00e8}
0x10b8…10c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011c}
0x10c2…10d8              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x0126}
0x10d8…10f0              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000a, t01=0x013c}
0x10f0…10fc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0154}
0x10fc…1106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0160}
0x1106…111c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x016a}
0x111c…1136              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000a, t01=0x0180}
0x1136…1142              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x000a}
0x1142…114c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x114c…1172              Head {h00=0x0022, h01=0x0050, text=»DWTDIB EQU START+/02 SAVE AREA«, t00=0x000b, t01=0x0020}
0x1172…11a8              Head {h00=0x0032, h01=0x0050, text=»DWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE«, t00=0x000b, t01=0x0046}
0x11a8…11d2              Head {h00=0x0026, h01=0x0050, text=»DWTTP EQU START+/0A TIMER POINTER «, t00=0x000b, t01=0x007c}
0x11d2…11f0              Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x000b, t01=0x00a6}
0x11f0…11fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c4}
0x11fa…1208              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ce}
0x1208…1212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00dc}
0x1212…1226              Head {h00=0x0010, h01=0x0050, text=»*    A C D I«, t00=0x000b, t01=0x00e6}
0x1226…1230              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fa}
0x1230…1272              Head {h00=0x003e, h01=0x0050, text=»*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS «, t00=0x000b, t01=0x0104}
0x1272…128c              Head {h00=0x0016, h01=0x0050, text=»*   THE PROCESSING«, t00=0x000b, t01=0x0146}
0x128c…1296              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1296…12a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x12a0…12b2              Head {h00=0x000e, h01=0x0050, text=»ACDI EQU *«, t00=0x000b, t01=0x0174}
0x12b2…12cc              Head {h00=0x0016, h01=0x0050, text=» IFT ORD7-CREDIT=1«, t00=0x000b, t01=0x0186}
0x12cc…12e2              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0707 «, t00=0x000c, t01=0x0010}
0x12e2…1302              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /07 «, t00=0x000c, t01=0x0026}
0x1302…130e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0046}
0x130e…1328              Head {h00=0x0016, h01=0x0050, text=» IFT ORD7+CREDIT=2«, t00=0x000c, t01=0x0052}
0x1328…133e              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0606 «, t00=0x000c, t01=0x006c}
0x133e…135e              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /06 «, t00=0x000c, t01=0x0082}
0x135e…136a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00a2}
0x136a…1392              Head {h00=0x0024, h01=0x0050, text=» LD A4,10,A8 CONTROL WORD TO A4 «, t00=0x000c, t01=0x00ae}
0x1392…13a6              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A6 «, t00=0x000c, t01=0x00d6}
0x13a6…13de              Head {h00=0x0034, h01=0x0050, text=» ANK A3,/10 TEST IF ONE OR TWO CHARACTER DEVICE «, t00=0x000c, t01=0x00ea}
0x13de…140a              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ADI005 ONE CHARACTER DEVICE «, t00=0x000c, t01=0x0122}
0x140a…1430              Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 CONTROL WORD tO A3 «, t00=0x000c, t01=0x014e}
0x1430…1442              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000c, t01=0x0174}
0x1442…1456              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x000c, t01=0x0186}
0x1456…1468              Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x000d, t01=0x000a}
0x1468…148a              Head {h00=0x001e, h01=0x0050, text=» ORR A4,A3 LAMPCODES IN A4«, t00=0x000d, t01=0x001c}
0x148a…149e              Head {h00=0x0010, h01=0x0050, text=»ADI005 EQU *«, t00=0x000d, t01=0x003e}
0x149e…14b2              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000d, t01=0x0052}
0x14b2…14c8              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/3939 «, t00=0x000d, t01=0x0066}
0x14c8…14dc              Head {h00=0x0010, h01=0x0050, text=» RF(E) FLA05«, t00=0x000d, t01=0x007c}
0x14dc…14e8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0090}
0x14e8…14fe              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000d, t01=0x009c}
0x14fe…1510              Head {h00=0x000e, h01=0x0050, text=» SUK A7,5 «, t00=0x000d, t01=0x00b2}
0x1510…151c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00c4}
0x151c…1532              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000d, t01=0x00d0}
0x1532…1546              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/37 «, t00=0x000d, t01=0x00e6}
0x1546…1552              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00fa}
0x1552…1570              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI010 ORDER 05«, t00=0x000d, t01=0x0106}
0x1570…1582              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000d, t01=0x0124}
0x1582…15a0              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI007 ORDER 06«, t00=0x000d, t01=0x0136}
0x15a0…15c6              Head {h00=0x0022, h01=0x0050, text=» ABL(NE) DISIOE REQUEST ERROR «, t00=0x000d, t01=0x0154}
0x15c6…15d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15d0…15de              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0184}
0x15de…15e8 (14, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e8…15f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000e}
0x15f2…1606              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000e, t01=0x0018}
0x1606…1610              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x1610…1630              Head {h00=0x001c, h01=0x0050, text=»*     FLASH    ORDER /39«, t00=0x000e, t01=0x0036}
0x1630…163a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0056}
0x163a…1644              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0060}
0x1644…1674              Head {h00=0x002c, h01=0x0050, text=»FLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE«, t00=0x000e, t01=0x006a}
0x1674…169e              Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTP,A6 GET TIMER POINTER «, t00=0x000e, t01=0x009a}
0x169e…16ca              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FLA10 TIMER ALREADY STARTED «, t00=0x000e, t01=0x00c4}
0x16ca…16ec              Head {h00=0x001e, h01=0x0050, text=» LDK A4,DWTTP START TIMER «, t00=0x000e, t01=0x00f0}
0x16ec…16fe              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x000e, t01=0x0112}
0x16fe…1710              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x000e, t01=0x0124}
0x1710…1726              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x000e, t01=0x0136}
0x1726…173e              Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x000e, t01=0x014c}
0x173e…1756              Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x000e, t01=0x0164}
0x1756…176c              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FFBF«, t00=0x000e, t01=0x017c}
0x176c…1796 (15, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ANRS A4,A6 CHECK ON-OFF INDICATOR«, t00=0x000f, t01=0x0004}
0x1796…17aa              Head {h00=0x0010, h01=0x0050, text=»FLA10 EQU * «, t00=0x000f, t01=0x002e}
0x17aa…17c2              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFLA,A6«, t00=0x000f, t01=0x0042}
0x17c2…17ec              Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A6 CHECK ON-OFF INDICATOR«, t00=0x000f, t01=0x005a}
0x17ec…1800              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/40 «, t00=0x000f, t01=0x0084}
0x1800…182e              Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA20 WRITE FLASHING LIGHTS OFF«, t00=0x000f, t01=0x0098}
0x182e…1852              Head {h00=0x0020, h01=0x0050, text=» ORS A4,DWTDIB,A6 ON + FLASH«, t00=0x000f, t01=0x00c6}
0x1852…1872              Head {h00=0x001c, h01=0x0050, text=» RF ADI030 TURN ON LAMPS«, t00=0x000f, t01=0x00ea}
0x1872…188a              Head {h00=0x0014, h01=0x0050, text=»FLA20 C1R A4,A4 «, t00=0x000f, t01=0x010a}
0x188a…18ac              Head {h00=0x001e, h01=0x0050, text=» ANS A4,DWTDIB,A6 ON-FLASH«, t00=0x000f, t01=0x0122}
0x18ac…18cc              Head {h00=0x001c, h01=0x0050, text=» RF ADI030 TURN ON LAMPS«, t00=0x000f, t01=0x0144}
0x18cc…18f6              Head {h00=0x0026, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT ROUTINE«, t00=0x000f, t01=0x0164}
0x18f6…1908              Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x000f, t01=0x018e}
0x1908…1920              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFLA,A6«, t00=0x0010, t01=0x0010}
0x1920…1960              Head {h00=0x003c, h01=0x0050, text=» RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER «, t00=0x0010, t01=0x0028}
0x1960…1984              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0010, t01=0x0068}
0x1984…199c              Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0010, t01=0x008c}
0x199c…19b0              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x0010, t01=0x00a4}
0x19b0…19d6              Head {h00=0x0022, h01=0x0050, text=» XRRS A4,A6 SWITCH 0N-OFF FLAG«, t00=0x0010, t01=0x00b8}
0x19d6…19e8              Head {h00=0x000e, h01=0x0050, text=» RB FLA10 «, t00=0x0010, t01=0x00de}
0x19e8…1a02              Head {h00=0x0016, h01=0x0050, text=»FLA30 CM DWTTP,A6 «, t00=0x0010, t01=0x00f0}
0x1a02…1a12              Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0010, t01=0x010a}
0x1a12…1a1e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x011a}
0x1a1e…1a28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a28…1a32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a32…1a5a              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 06: SWITCH OFF LAMPS «, t00=0x0010, t01=0x013a}
0x1a5a…1a64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a64…1a78              Head {h00=0x0010, h01=0x0050, text=»ADI007 EQU *«, t00=0x0010, t01=0x016c}
0x1a78…1a8a              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0010, t01=0x0180}
0x1a8a…1abc (17, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ANS A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER«, t00=0x0011, t01=0x0004}
0x1abc…1ad0              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0011, t01=0x0036}
0x1ad0…1b04              Head {h00=0x0030, h01=0x0050, text=» ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE «, t00=0x0011, t01=0x004a}
0x1b04…1b10              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x007e}
0x1b10…1b22              Head {h00=0x000e, h01=0x0050, text=» RF ADI030«, t00=0x0011, t01=0x008a}
0x1b22…1b2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009c}
0x1b2c…1b36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a6}
0x1b36…1b44              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00b0}
0x1b44…1b4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00be}
0x1b4e…1b58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c8}
0x1b58…1b7c              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 05: TURN ON LAMPS«, t00=0x0011, t01=0x00d2}
0x1b7c…1b86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f6}
0x1b86…1b90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0100}
0x1b90…1b9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010a}
0x1b9a…1bd0              Head {h00=0x0032, h01=0x0050, text=»ADI010 ORS A4,DWTDIB,A6 SET BITS IN DWT-BUFFER«, t00=0x0011, t01=0x0114}
0x1bd0…1be4              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0011, t01=0x014a}
0x1be4…1bf6              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x015e}
0x1bf6…1c2a              Head {h00=0x0030, h01=0x0050, text=» ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE «, t00=0x0011, t01=0x0170}
0x1c2a…1c36              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0014}
0x1c36…1c68              Head {h00=0x002e, h01=0x0050, text=»ADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER«, t00=0x0012, t01=0x0020}
0x1c68…1c80              Head {h00=0x0014, h01=0x0050, text=»ADI035 LDK A1,1 «, t00=0x0012, t01=0x0052}
0x1c80…1cba              Head {h00=0x0036, h01=0x0050, text=» SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER «, t00=0x0012, t01=0x006a}
0x1cba…1cdc              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 TWO OUTPUTS ? «, t00=0x0012, t01=0x00a4}
0x1cdc…1cf0              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0012, t01=0x00c6}
0x1cf0…1d0a              Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IHDI10 NO «, t00=0x0012, t01=0x00da}
0x1d0a…1d20              Head {h00=0x0012, h01=0x0050, text=» RF IHDI20 YES«, t00=0x0012, t01=0x00f4}
0x1d20…1d2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d2a…1d34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0114}
0x1d34…1d48              Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0012, t01=0x011e}
0x1d48…1d56              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0132}
0x1d56…1d60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0140}
0x1d60…1d6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014a}
0x1d6a…1d96              Head {h00=0x0028, h01=0x0050, text=»*   ORDER 07: WRITE PROGRAM DISPLAY «, t00=0x0012, t01=0x0154}
0x1d96…1da0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1da0…1db8              Head {h00=0x0014, h01=0x0050, text=»ADI050 LDK A3,0 «, t00=0x0012, t01=0x018a}
0x1db8…1de2              Head {h00=0x0026, h01=0x0050, text=»ADI060 CF A15,GETCHR GET CHARACTER«, t00=0x0013, t01=0x0012}
0x1de2…1e06              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x0013, t01=0x003c}
0x1e06…1e20              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADI070 YES «, t00=0x0013, t01=0x0060}
0x1e20…1e32              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0013, t01=0x007a}
0x1e32…1e44              Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0013, t01=0x008c}
0x1e44…1e6c              Head {h00=0x0024, h01=0x0050, text=» SUK A4,3 UNDEFINED CHARACTER ? «, t00=0x0013, t01=0x009e}
0x1e6c…1e86              Head {h00=0x0016, h01=0x0050, text=» RF(L) ADI100 YES «, t00=0x0013, t01=0x00c6}
0x1e86…1ea4              Head {h00=0x001a, h01=0x0050, text=» CWK A4,3 UNDEFINED ? «, t00=0x0013, t01=0x00e0}
0x1ea4…1ebe              Head {h00=0x0016, h01=0x0050, text=» RF(G) ADI100 YES «, t00=0x0013, t01=0x00fe}
0x1ebe…1ed8              Head {h00=0x0016, h01=0x0050, text=» ADKL A4,DWTDIB+2 «, t00=0x0013, t01=0x0118}
0x1ed8…1eec              Head {h00=0x0010, h01=0x0050, text=» ADR A4,A6  «, t00=0x0013, t01=0x0132}
0x1eec…1f1c              Head {h00=0x002c, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN DWT-BUFFER«, t00=0x0013, t01=0x0146}
0x1f1c…1f42              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0013, t01=0x0176}
0x1f42…1f82              Head {h00=0x003c, h01=0x0050, text=»ADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER «, t00=0x0014, t01=0x000c}
0x1f82…1fa4              Head {h00=0x001e, h01=0x0050, text=» RF IHDI10 SEND CHARACTERS«, t00=0x0014, t01=0x004c}
0x1fa4…1fae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006e}
0x1fae…1fb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0078}
0x1fb8…1fd6              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0014, t01=0x0082}
0x1fd6…1fe0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a0}
0x1fe0…200c              Head {h00=0x0028, h01=0x0050, text=»ADI100 LDK A1,CCERR SET RETURN CODE «, t00=0x0014, t01=0x00aa}
0x200c…2028              Head {h00=0x0018, h01=0x0050, text=» ORS A1,8,A8 IN ECB «, t00=0x0014, t01=0x00d6}
0x2028…204e              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0014, t01=0x00f2}
0x204e…205a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0118}
0x205a…2064              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x2064…2072              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x012e}
0x2072…207c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013c}
0x207c…2090              Head {h00=0x0010, h01=0x0050, text=»*    I H D I«, t00=0x0014, t01=0x0146}
0x2090…209a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015a}
0x209a…20ce              Head {h00=0x0030, h01=0x0050, text=»*   INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0014, t01=0x0164}
0x20ce…20d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20d8…20ea              Head {h00=0x000e, h01=0x0050, text=»IHDI EQU *«, t00=0x0015, t01=0x0012}
0x20ea…2108              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0015, t01=0x0024}
0x2108…212a              Head {h00=0x001e, h01=0x0050, text=» RF(NE) ENDIO YES END I/O «, t00=0x0015, t01=0x0042}
0x212a…214c              Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0015, t01=0x0064}
0x214c…2160              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0015, t01=0x0086}
0x2160…2182              Head {h00=0x001e, h01=0x0050, text=» SUK A4,2 TWO CHARS. SENT «, t00=0x0015, t01=0x009a}
0x2182…2196              Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0015, t01=0x00bc}
0x2196…21b0              Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IHDI05 NO «, t00=0x0015, t01=0x00d0}
0x21b0…21da              Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET CHANNEL PARAMETER «, t00=0x0015, t01=0x00ea}
0x21da…21fc              Head {h00=0x001e, h01=0x0050, text=» ANK A3,/20 PROGRAM STEP ?«, t00=0x0015, t01=0x0114}
0x21fc…2222              Head {h00=0x0022, h01=0x0050, text=» RF(Z) ENDIO NO. PERFORM ENDIO«, t00=0x0015, t01=0x0136}
0x2222…224a              Head {h00=0x0024, h01=0x0050, text=»IHDI05 SUK A4,4 LAST CHARACTER ?«, t00=0x0015, t01=0x015c}
0x224a…2272              Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO YES. PERFORM ENDIO «, t00=0x0015, t01=0x0184}
0x2272…2290              Head {h00=0x001a, h01=0x0050, text=»IHDI10 LDKL A2,DWTDIB «, t00=0x0016, t01=0x001c}
0x2290…22a4              Head {h00=0x0010, h01=0x0050, text=» ADR A2,A6  «, t00=0x0016, t01=0x003a}
0x22a4…22bc              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTST,A6 «, t00=0x0016, t01=0x004e}
0x22bc…22d0              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0016, t01=0x0066}
0x22d0…22e2              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0016, t01=0x007a}
0x22e2…2302              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0016, t01=0x008c}
0x2302…230e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00ac}
0x230e…2322              Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=0 «, t00=0x0016, t01=0x00b8}
0x2322…2336              Head {h00=0x0010, h01=0x0050, text=» RF(Z) ENDIO«, t00=0x0016, t01=0x00cc}
0x2336…236c              Head {h00=0x0032, h01=0x0050, text=»IHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER «, t00=0x0016, t01=0x00e0}
0x236c…2378              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0116}
0x2378…2390              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0016, t01=0x0122}
0x2390…23bc              Head {h00=0x0028, h01=0x0050, text=» RF(Z) OUTPUT IF POWER FAIL NO BELL «, t00=0x0016, t01=0x013a}
0x23bc…23d6              Head {h00=0x0016, h01=0x0050, text=» LD A3,10,A8 BELL?«, t00=0x0016, t01=0x0166}
0x23d6…23f0              Head {h00=0x0016, h01=0x0050, text=» RF(NN) OUTPUT NO «, t00=0x0016, t01=0x0180}
0x23f0…2412              Head {h00=0x001e, h01=0x0050, text=» ORK A2,/40 INDICATE BELL «, t00=0x0017, t01=0x000a}
0x2412…241c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002c}
0x241c…244e              Head {h00=0x002e, h01=0x0050, text=»OUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0017, t01=0x0036}
0x244e…2478              Head {h00=0x0026, h01=0x0050, text=»IHDI20 CF A15,OUTLIN OUTPUT CHAR. «, t00=0x0017, t01=0x0068}
0x2478…248e              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0017, t01=0x0092}
0x248e…24c4              Head {h00=0x0032, h01=0x0050, text=»ENDIO ABL DISEND PERFORM END I/O AND DISPATCH «, t00=0x0017, t01=0x00a8}
0x24c4…24ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00de}
0x24ce…24dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00e8}
0x24dc…24e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f6}
0x24e6…24fa              Head {h00=0x0010, h01=0x0050, text=»*    R C D I«, t00=0x0017, t01=0x0100}
0x24fa…2504              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0114}
0x2504…2546              Head {h00=0x003e, h01=0x0050, text=»*   RECIVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH «, t00=0x0017, t01=0x011e}
0x2546…258c              Head {h00=0x0042, h01=0x0050, text=»*   THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION «, t00=0x0017, t01=0x0160}
0x258c…25bc              Head {h00=0x002c, h01=0x0050, text=»*   OM PROGRAM DISPLAY IS ALSO RESTORED «, t00=0x0018, t01=0x0016}
0x25bc…25c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0046}
0x25c6…25d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0050}
0x25d0…25e2              Head {h00=0x000e, h01=0x0050, text=»RCDI EQU *«, t00=0x0018, t01=0x005a}
0x25e2…25f8              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0018, t01=0x006c}
0x25f8…2622              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0018, t01=0x0082}
0x2622…262e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00ac}
0x262e…2638              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b8}
0x2638…264e              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x00c2}
0x264e…2674              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0018, t01=0x00d8}
0x2674…2680              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00fe}
0x2680…268a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010a}
0x268a…26b6              Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTDIB,A6 GET FIRST CHARACTER«, t00=0x0018, t01=0x0114}
0x26b6…26c8              Head {h00=0x000e, h01=0x0050, text=» RB ADI035«, t00=0x0018, t01=0x0140}
0x26c8…26d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0152}
0x26d2…26dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26dc…26e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e6…26f2              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0018, t01=0x0170}
0x26f2…26fa              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x017c}
0x26fa…2702              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0184}
0x2702…270a              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x018c}
0x270a…2712 (25, 2, 24)  Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0004}
0x2712…271a              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x000c}
0x271a…271e              Head {h00=0x4004, h01=0x0000}
0x271e…2722              00 19 00 14                                                                                                                                                                                                                                       ┆    ┆
0x2722…272a (26, 1, 8)   20 04 00 00 00 1a 00 04                                                                                                                                                                                                                           ┆        ┆
0x272a…277a (27, 0, 400) 20 32 00 3a 01 7c 00 30 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 53 54 41 54 55 53 2e 2f 38 30 30 30 20 4d 45 41 4e 53 20 44 45 56 49 43 45 20 52 45 41 44 59 20 00 3b 00 0a 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53   ┆ 2 : | 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY  ;     P DATA 0 ECB ADDRES┆
0x277a…27ca              53 20 00 3b 00 3e 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 3b 00 5a 00 28 00 50 5c 44 41 54 41 5c 54 43 41 44 5c 50 4f 49 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 20 00 3b 00 70 00 18 00 50 5c 44 41 54   ┆S  ; >   P DATA 0 ORDER  ; Z ( P DATA TCAD POINTER TO ADDRESS BLOCK  ; p   P DAT┆
0x27ca…281a              41 5c 30 5c 54 54 41 42 20 41 44 44 52 45 53 53 00 3b 00 9c 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 3b 00 b8 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 45 52 4d 49 4e 41 4c   ┆A 0 TTAB ADDRESS ;   $ P DATA 0 WAIT/ACTIVATE INDICATOR  ;     P DATA 0 TERMINAL┆
0x281a…286a              20 51 55 45 55 45 00 3b 00 e0 00 12 00 0d 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 3b 00 fe 00 26 00 22 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 55 53 45 52 20 45 43 42 20 41 44 44 52 45 53 53 00 3b 01 14 00 20 00 50 5c 44   ┆ QUEUE ;       IFT MMUPAG=1  ;   & " DATA 0 SAVE AREA USER ECB ADDRESS ;     P D┆
0x286a…28ba              41 54 41 5c 45 43 42 54 43 31 5c 4d 4d 55 20 45 43 42 20 41 44 44 52 45 53 53 00 3b 01 3e 00 08 00 04 5c 58 49 46 00 3b 01 62 00 26 00 50 44 57 54 42 4b 43 5c 45 51 55 5c 2a 2d 44 57 54 43 30 31 5c 42 4c 4f 43 4b 20 43 4f 55 4e 54 45 52 20   ┆ATA ECBTC1 MMU ECB ADDRESS ; >     XIF ; b & PDWTBKC EQU *-DWTC01 BLOCK COUNTER ┆
0x28ba…290a (28, 2, 326) 00 3b 01 6e 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 3c 00 08 00 18 00 50 53 45 4b 42 59 54 5c 45 51 55 5c 2a 2d 44 57 54 43 30 31 20 00 3c 00 18 00 1a 00 50 5c 44 41 54 41 5c 30 5c 53 45 51 2e 20 49 4e 44 49 43 41 54 4f 52 00 3c 00 34 00 06   ┆ ; n   P DATA 0  <     PSEKBYT EQU *-DWTC01  <     P DATA 0 SEQ. INDICATOR < 4  ┆
0x290a…295a              00 50 2a 20 00 3c 00 52 00 12 00 50 5c 49 46 54 20 5c 4d 4d 55 50 41 47 3d 31 00 3c 00 5c 00 10 00 50 45 43 42 54 43 31 5c 45 51 55 5c 2a 00 3c 00 72 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 3c 00 86 00 10 00 50 5c 44 41 54 41 5c 54 43 42 55   ┆ P*  < R   P IFT  MMUPAG=1 <     PECBTC1 EQU * < r   P DATA 0  <     P DATA TCBU┆
0x295a…29aa              46 31 00 3c 00 96 00 12 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 3c 00 aa 00 18 00 50 54 43 42 55 46 31 5c 52 45 53 5c 44 56 42 4c 45 4e 2b 31 20 00 3c 00 c0 00 08 00 50 5c 58 49 46 00 3c 00 dc 00 06 00 50 2a 20 00 3c 00 e8 00 22   ┆F1 <     P DATA 0,0,0,0  <     PTCBUF1 RES DVBLEN+1  <     P XIF <     P*  <   "┆
0x29aa…29fa              00 50 52 45 51 4c 45 4e 5c 44 41 54 41 5c 30 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 3c 00 f2 00 06 00 50 2a 20 00 3c 01 18 00 06 00 50 2a 20 00 3c 01 22 00 06 00 50 2a 20 00 3c 01 2c 00 08 00 50 5c 45 4e 44 00 3c 01 36 40 04   ┆ PREQLEN DATA 0 REQUESTED LENGTH <     P*  <     P*  < "   P*  < ,   P END < 6@ ┆
0x29fa…2a00              00 00 00 3c 01 42                                                                                                                                                                                                                                 ┆   < B┆

Reduced view