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

⟦e9b776fca⟧

    Length: 11190 (0x2bb6)
    Notes: pts_type(SC)
    Names: »DRDI01.SC«

Derivation

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

PTS(SC)

	IDENT DRDI01 	REL 11.0 81-01-26 870105041100 

* 
* 
******************************************************* 
* 
*   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.
*   IT IS ALSO POSSIBLE TO OPEN CASH- 
*   BOXES ON FT80.
* 
*   THE DRIVER CONSISTS OF THE FOLLOWING PARTS: 
* 
*   A C D I :	ACTIVATION PART 
* 
*   R C D I :	RECOVERY ROUTINE
* 
*   THE FOLLOWING ORDERS ARE TREATED: 
* 
*   ORDER 37:	WRITE LIGHTS ON 
*         38:	WRITE LIGHTS OFF
*         06:	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 DWTDEV
* 
*   BIT  0 = 1   FOR PTS 6232,6331,6236,6272
*   BIT  0 = 0   FOR PTS 6241,6242,6233 
* 
*   ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY
*   CONDITIONAL ASSEMBLY
* 
	EJECT
* 
* 
*************** 
*    ENTRIES  * 
*************** 
* 
	ENTRY	DIAD	ADDRESS TO ADDRESS-BLOCK
* 
******************* 
*    EXTERNALS    * 
******************* 
* 
	EXTRN	LENDIS	PERFORM END I/O AND DISPATCH
	EXTRN	LDISP	DISPATCHER ORDINARY INT. 
	EXTRN	OUTPUT	SEND ONE CHAR.
	EXTRN	GETCHR	GET CHARACTER 
	EXTRN	LENDER	I/O REQUEST ERROR 
	EXTRN	DWTST	STATUS WORD
	EXTRN	DWTDEV	STATUS
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTSB2	STACK BASE
	EXTRN	SETIME	SET TIMER 
	EXTRN	STABLK	START BLOCK 
	EXTRN	ENDBLK	END BLOCK 
	EXTRN	ECBCW	CONTROL WORD OF ECB
* 
* 
	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	0	NO INTERRUPT HANDLER
	DATA	RCDI	RECOVERY ROUTINE 
* 
CCERR	EQU	/4	CODE CHECK ERROR 
* 
	EJECT
* 
* 
************************* 
*  CONDITIONAL ASSEMBLY * 
************************* 
* 
* 
*   ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY
*   SETTING X:A=0 
* 
X:A	EQU	0 
ORD6	EQU	X:A
* 
* 
*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED 
*   IN THIS DRIVER BY SETTING X:B=1 
* 
X:B	EQU	0 
FLASH	EQU	X:B 
* 
* 
	EJECT
* 
* 
*   MMU BUFFER SIZE 
* 
X:C	EQU	4 
DVBLEN	EQU	X:C
* 
* 
********************* 
* DWT-DISPLACEMENTS * 
********************* 
* 
DWTDIB	EQU	/02	SAVE AREA
DWTFLA	EQU	/08	SAVE AREA FOR FLASH IMAGE
DWTTP	EQU	/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	ORD6=1 
	CCK	A7,/0606 
	RF(E)	ADI050	ORDER /06 
	XIF
	LD	A4,ECBCW,A8	CONTROL WORD TO A4
	LD	A3,DWTDEV,A6	TEST IF ONE OR TWO CHARACTER DEVICE
	RF(N)	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
	SUK	A7,/37 
	RF(E)	ADI010	ORDER 37
	SUK	A7,1	
	RF(E)	ADI007	ORDER 38
	ABL(NE)	LENDER	REQUEST ERROR 
	EJECT
	IFT	FLASH=1
* 
*     FLASH    ORDER /39
* 
* 
FLA05	ORS	A4,DWTFLA+DWTDEV,A6	SAVE FLASH IMAGE
* 
	LD	A1,DWTTP+DWTDEV,A6	GET TIMER POINTER
	RF(NZ)	FLA10	TIMER ALREADY STARTED 
	LDR	A1,A6
	CF	A15,SETIME
	DATA	FLTUT,TIME
	ST	A4,DWTTP+DWTDEV,A6
	LD	A4,DWTFLA+DWTDEV,A6	RELOAD FLASH IMAGE
* 
FLA10	EQU	* 
	LDKL	A3,/200 
	XRS	A3,DWTDEV,A6	SWITCH 0N-OFF FLAG
* 
	AN	A3,DWTDEV,A6	ON OR OFF ?
	RF(Z)	FLA20	WRITE FLASHING LIGHTS OFF
* 
	ORS	A4,DWTDIB+DWTDEV,A6	ON + FLASH 
	RF	ADI020	TURN ON LAMPS
* 
FLA20	C1R	A4,A4 
	ANS	A4,DWTDIB+DWTDEV,A6	ON-FLASH 
	RF	ADI020	TURN OFF LAMPS 
	EJECT
* 
* 
*   FLASH TIME OUT ROUTINE
* 
* 
FLTUT	EQU	* 
	LDR	A6,A1	GET DWT-ADDRESS IN A6
	LD	A4,DWTST,A6	DEVICE BUSY ? 
	RF(NN)	FLA40	YES ! 
* 
	LDKL	A4,/7FFF	SET DEVICE BUSY
	ANS	A4,DWTST,A6
* 
	LD	A4,DWTFLA+DWTDEV,A6 
	RF(Z)	FLA30	NO MORE LAMPS TO FLASHER 
* 
	LDR	A5,A6	INITIATE DWT-STACK POINTER 
	ADKL	A5,DWTSB2 
	LDKL	A1,-TIME	RESTART TIMER
	ST*	A1,DWTTP+DWTDEV,A6 
	RB	FLA10 
* 
FLA30	CM	DWTTP+DWTDEV,A6	TURN OFF TIMER 
	RF	ENDIO 

* 
FLA40	EQU	* 
	LDKL	A1,-TIME	RESTART TIMER
	ST*	A1,DWTTP+DWTDEV,A6 
	ABL	LDISP
	XIF
	EJECT
	IFT	ORD6=1 
* 
* 
*   ORDER 06: 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,DWTDEV+1,A6	SET START VALUE IN BYTE COUNTER
	LDK	A2,/4	BLOCK LENGTH 
	CF	A5,STABLK	START OF BLOCK
	RF(NZ)	DIER10	NOT OK ! 
	RF	SSEQ00	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
* 
* 
*    ORDER 38: SWITCH OFF LAMPS 
* 
ADI007	EQU	*
	C1R	A4,A4
	ANS	A4,DWTDIB+DWTDEV,A6	RESET BITS IN DWT-BUFFER 
	IFT	FLASH=1
	ANS	A4,DWTFLA+DWTDEV,A6	RESET BITS IN FLASH IMAGE
	XIF
	RF	ADI020
* 
* 
* 
* 
*    ORDER 37: TURN ON LAMPS
* 
* 
* 
ADI010	ORS	A4,DWTDIB+DWTDEV,A6	SET BITS IN DWT-BUFFER 
	IFT	FLASH=1
	C1R	A4,A4
	ANS	A4,DWTFLA+DWTDEV,A6	RESET BITS IN FLASH IMAGE
	XIF
	EJECT
* 
*   SENDING SEQUENCE
* 
ADI020	LDK	A2,/2	BLOCK LENGTH 
	CF	A5,STABLK	START OF BLOCK
	RF(NZ)	DIER10	NOT OK ! 
	LC	A2,DWTDIB+DWTDEV,A6	GET FIRST CHARACTER 
ADI035	LDK	A1,1 
	SC	A1,DWTDEV+1,A6	SET START VALUE IN BYTE COUNTER
	LD	A3,DWTDEV,A6	TWO OUTPUTS ?
	RF(NN)	SSEQ20	YES
* 
SSEQ00	LDKL	A2,DWTDIB+DWTDEV	NO ! 
	ADR	A2,A6	 
	LD	A4,DWTDEV,A6
	ANK	A4,/FF 
	ADR	A2,A4
	LCR	A2,A2	GET CHARACTER
	LD	A8,DWTECB,A6
	RF(Z)	SSEQ10	IF POWER FAIL NO BELL OR CASH-BOX OPENING 
	LD	A3,ECBCW,A8	BELL? 
	RF(NN)	SSEQ05	NO 
	ORK	A2,/40	YES ! INDICATE BELL 
SSEQ05	SLC	A3,1	OPEN BOX 2 ?
	RF(NN)	SSEQ07	NO ! 
	ORK	A2,/20	YES ! INDICATE OPENING OF BOX 2 
SSEQ07	SLC	A3,1	OPEN BOX 1 ?
	RF(NN)	SSEQ10	NO ! 
	ORK	A2,/10	YES ! INDICATE OPENING OF BOX 1 
	EJECT
* 
SSEQ10	IM	DWTDEV,A6	INCREMENT BYTE COUNTER
* 
SSEQ20	CF	A5,OUTPUT	SEND CHAR.
	RF(NZ)	DIER10	NOT OK ! 
	LD	A4,DWTDEV,A6	GET DEVICE STATUS
	RF(N)	SSEQ30	ONE CHARACTER DEVICE !
* 
	ANK	A4,/FF	GET BYTE COUNTER
	SUK	A4,2	TWO CHARACTERS SENT ? 
	EJECT
	IFT	ORD6=1 
	RF(NZ)	SSEQ25	NO ! 
	LDR	A7,A7	GET ORDER
	IFT	ORD6=1 
	CWK	A7,06	ORDER 06, WRITE PROGRAM DISPLAY ?
	RF(NE)	SSEQ30	NO ! 
SSEQ25	SUK	A4,4	LAST CHARACTER ?
	RF(Z)	SSEQ30	YES ! 
	RB	SSEQ00
	XIF
	IFT	ORD6=0 
	RF(Z)	SSEQ30	YES 
	RB	SSEQ00	NO ! GET NEXT CHARACTER
	XIF
* 
SSEQ30	CF	A5,ENDBLK	END OF BLOCK
	RF(NZ)	DIER10
* 
ENDIO	EQU	* 
	ABL	LENDIS	PERFORM END I/O AND DISPATCH
	EJECT
* 
* 
*   ERROR ROUTINE 
* 
* 
DIER10	EQU	*
	SRC	A1,1	NOT OPERABLE ?
	RF(N)	DIER20	YES 
* 
	SRC	A1,2	LINK ERROR ?
	ABL(N)	LDISP	YES, GO TO DISPATCHER 
* 
	RF	RCDI	PERFORM RECOVERY 
* 
DIER20	EQU	*
	SLC	A1,1	SET "NOT OPERABLE" BIT
	RB	ENDIO	END I/O 
	EJECT
* 
*    R C D I
* 
*   RECOVERY 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	*
	LDKL	A2,/7FFF	SET DEVICE BUSY
	ANS	A2,DWTST,A6
* 
	LDK	A2,/4	BLOCK LENGTH 
	CF	A5,STABLK	START OF BLOCK
	RB(NZ)	DIER10
* 
	LC	A2,DWTDIB+DWTDEV,A6	GET FIRST CHARACTER 
	RB	ADI035
* 
* 
* 
	END





HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDI01  REL 11.0 81-01-26 870105041100 «, 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…0264              Head {h00=0x002a, h01=0x0050, text=»*   IT IS ALSO POSSIBLE TO OPEN CASH- «, t00=0x0001, t01=0x00aa}
0x0264…027e              Head {h00=0x0016, h01=0x0050, text=»*   BOXES ON FT80.«, t00=0x0001, t01=0x00d8}
0x027e…0288              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…02c0              Head {h00=0x0034, h01=0x0050, text=»*   THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x00fc}
0x02c0…02ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02f0              Head {h00=0x0022, h01=0x0050, text=»*   A C D I : ACTIVATION PART «, t00=0x0001, t01=0x013e}
0x02f0…02fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0164}
0x02fa…0320              Head {h00=0x0022, h01=0x0050, text=»*   R C D I : RECOVERY ROUTINE«, t00=0x0001, t01=0x016e}
0x0320…032a (2, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0358              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x000e}
0x0358…0362              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0362…0388              Head {h00=0x0022, h01=0x0050, text=»*   ORDER 37: WRITE LIGHTS ON «, t00=0x0002, t01=0x0046}
0x0388…03ae              Head {h00=0x0022, h01=0x0050, text=»*         38: WRITE LIGHTS OFF«, t00=0x0002, t01=0x006c}
0x03ae…03da              Head {h00=0x0028, h01=0x0050, text=»*         06: WRITE PROGRAM DISPLAY «, t00=0x0002, t01=0x0092}
0x03da…040a              Head {h00=0x002c, h01=0x0050, text=»*         39:     WRITE  FLASHING LIGHTS«, t00=0x0002, t01=0x00be}
0x040a…0418              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00ee}
0x0418…0422              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…042c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…044e              Head {h00=0x001e, h01=0x0050, text=»*   NORMAL REGISTER USAGE:«, t00=0x0002, t01=0x0110}
0x044e…0458              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0132}
0x0458…047c              Head {h00=0x0020, h01=0x0050, text=»*   REGISTER A1: RETURN CODE«, t00=0x0002, t01=0x013c}
0x047c…049c              Head {h00=0x001c, h01=0x0050, text=»*            A2:  OUTPUT«, t00=0x0002, t01=0x0160}
0x049c…04c2              Head {h00=0x0022, h01=0x0050, text=»*            A3: WORK REGISTER«, t00=0x0002, t01=0x0180}
0x04c2…04e8              Head {h00=0x0022, h01=0x0050, text=»*            A4: WORK REGISTER«, t00=0x0003, t01=0x0016}
0x04e8…050e              Head {h00=0x0022, h01=0x0050, text=»*            A5: WORK REGISTER«, t00=0x0003, t01=0x003c}
0x050e…0532              Head {h00=0x0020, h01=0x0050, text=»*            A6: DWT-ADDRESS«, t00=0x0003, t01=0x0062}
0x0532…0550              Head {h00=0x001a, h01=0x0050, text=»*            A7: ORDER«, t00=0x0003, t01=0x0086}
0x0550…0574              Head {h00=0x0020, h01=0x0050, text=»*            A8: ECB-ADDRESS«, t00=0x0003, t01=0x00a4}
0x0574…057e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c8}
0x057e…0588              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…05a6              Head {h00=0x001a, h01=0x0050, text=»*   SYSTEM ADAPTATION «, t00=0x0003, t01=0x00dc}
0x05a6…05b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05e2              Head {h00=0x002e, h01=0x0050, text=»*   DISPLAY TYPE MUST BE DEFINED IN DWTDEV«, t00=0x0003, t01=0x0104}
0x05e2…05ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0136}
0x05ec…0620              Head {h00=0x0030, h01=0x0050, text=»*   BIT  0 = 1   FOR PTS 6232,6331,6236,6272«, t00=0x0003, t01=0x0140}
0x0620…0650              Head {h00=0x002c, h01=0x0050, text=»*   BIT  0 = 0   FOR PTS 6241,6242,6233 «, t00=0x0003, t01=0x0174}
0x0650…065a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0698              Head {h00=0x003a, h01=0x0050, text=»*   ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0004, t01=0x001e}
0x0698…06b8              Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x005c}
0x06b8…06c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007c}
0x06c2…06d0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0086}
0x06d0…06da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0094}
0x06da…06e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…06fc              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x00a8}
0x06fc…0714              Head {h00=0x0014, h01=0x0050, text=»*    ENTRIES  * «, t00=0x0004, t01=0x00c0}
0x0714…072c              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x00d8}
0x072c…0736              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f0}
0x0736…0762              Head {h00=0x0028, h01=0x0050, text=» ENTRY DIAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0004, t01=0x00fa}
0x0762…076c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0126}
0x076c…0788              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0004, t01=0x0130}
0x0788…07a4              Head {h00=0x0018, h01=0x0050, text=»*    EXTERNALS    * «, t00=0x0004, t01=0x014c}
0x07a4…07c0              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0004, t01=0x0168}
0x07c0…07ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0184}
0x07ca…07fc              Head {h00=0x002e, h01=0x0050, text=» EXTRN LENDIS PERFORM END I/O AND DISPATCH«, t00=0x0004, t01=0x018e}
0x07fc…082a              Head {h00=0x002a, h01=0x0050, text=» EXTRN LDISP DISPATCHER ORDINARY INT. «, t00=0x0005, t01=0x0030}
0x082a…084e              Head {h00=0x0020, h01=0x0050, text=» EXTRN OUTPUT SEND ONE CHAR.«, t00=0x0005, t01=0x005e}
0x084e…0872              Head {h00=0x0020, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER «, t00=0x0005, t01=0x0082}
0x0872…089a              Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER I/O REQUEST ERROR «, t00=0x0005, t01=0x00a6}
0x089a…08ba              Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST STATUS WORD«, t00=0x0005, t01=0x00ce}
0x08ba…08d6              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTDEV STATUS«, t00=0x0005, t01=0x00ee}
0x08d6…08f8              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x010a}
0x08f8…0918              Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0005, t01=0x012c}
0x0918…0938              Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SET TIMER «, t00=0x0005, t01=0x014c}
0x0938…095a              Head {h00=0x001e, h01=0x0050, text=» EXTRN STABLK START BLOCK «, t00=0x0005, t01=0x016c}
0x095a…097a              Head {h00=0x001c, h01=0x0050, text=» EXTRN ENDBLK END BLOCK «, t00=0x0005, t01=0x018e}
0x097a…09a2              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD OF ECB«, t00=0x0006, t01=0x001e}
0x09a2…09ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0046}
0x09ac…09b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b6…09c4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x005a}
0x09c4…09ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0068}
0x09ce…09d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0072}
0x09d8…09f0              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x007c}
0x09f0…0a06              Head {h00=0x0012, h01=0x0050, text=»*    TABLES  *«, t00=0x0006, t01=0x0094}
0x0a06…0a1e              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00aa}
0x0a1e…0a28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a28…0a32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00cc}
0x0a32…0a58              Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN BUFFER SIZE (MMU)«, t00=0x0006, t01=0x00d6}
0x0a58…0a74              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0006, t01=0x00fc}
0x0a74…0a7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0118}
0x0a7e…0a9e              Head {h00=0x001c, h01=0x0050, text=»DIAD EQU * ADDRESS BLOCK«, t00=0x0006, t01=0x0122}
0x0a9e…0ac2              Head {h00=0x0020, h01=0x0050, text=» DATA ACDI ACTIVATION DRIVER«, t00=0x0006, t01=0x0142}
0x0ac2…0ae8              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0006, t01=0x0166}
0x0ae8…0b0c              Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO INTERRUPT HANDLER«, t00=0x0006, t01=0x018c}
0x0b0c…0b30              Head {h00=0x0020, h01=0x0050, text=» DATA RCDI RECOVERY ROUTINE «, t00=0x0007, t01=0x0020}
0x0b30…0b3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b3a…0b60              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0007, t01=0x004e}
0x0b60…0b6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b6a…0b78              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x007e}
0x0b78…0b82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b82…0b8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b8c…0bae              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x00a0}
0x0bae…0bd0              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY * «, t00=0x0007, t01=0x00c2}
0x0bd0…0bf2              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x00e4}
0x0bf2…0bfc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bfc…0c06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c06…0c44              Head {h00=0x003a, h01=0x0050, text=»*   ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0007, t01=0x011a}
0x0c44…0c5e              Head {h00=0x0016, h01=0x0050, text=»*   SETTING X:A=0 «, t00=0x0007, t01=0x0158}
0x0c5e…0c68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0172}
0x0c68…0c7a              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x017c}
0x0c7a…0c8e              Head {h00=0x0010, h01=0x0050, text=»ORD6 EQU X:A«, t00=0x0007, t01=0x018e}
0x0c8e…0c98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0012}
0x0c98…0ca2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0ca2…0cde              Head {h00=0x0038, h01=0x0050, text=»*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED «, t00=0x0008, t01=0x0026}
0x0cde…0d0a              Head {h00=0x0028, h01=0x0050, text=»*   IN THIS DRIVER BY SETTING X:B=1 «, t00=0x0008, t01=0x0062}
0x0d0a…0d14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d14…0d26              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0098}
0x0d26…0d3c              Head {h00=0x0012, h01=0x0050, text=»FLASH EQU X:B «, t00=0x0008, t01=0x00aa}
0x0d3c…0d46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d50…0d5e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00d4}
0x0d5e…0d68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e2}
0x0d68…0d72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ec}
0x0d72…0d8e              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0008, t01=0x00f6}
0x0d8e…0d98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d98…0daa              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 4 «, t00=0x0008, t01=0x011c}
0x0daa…0dc0              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x0008, t01=0x012e}
0x0dc0…0dca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0144}
0x0dca…0dd4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014e}
0x0dd4…0df2              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0158}
0x0df2…0e10              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0008, t01=0x0176}
0x0e10…0e2e (9, 0, 400)  Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0009, t01=0x0004}
0x0e2e…0e38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0022}
0x0e38…0e58              Head {h00=0x001c, h01=0x0050, text=»DWTDIB EQU /02 SAVE AREA«, t00=0x0009, t01=0x002c}
0x0e58…0e88              Head {h00=0x002c, h01=0x0050, text=»DWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE«, t00=0x0009, t01=0x004c}
0x0e88…0eac              Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /0A TIMER POINTER «, t00=0x0009, t01=0x007c}
0x0eac…0eca              Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x0009, t01=0x00a0}
0x0eca…0ed4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00be}
0x0ed4…0ee2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00c8}
0x0ee2…0eec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0eec…0f00              Head {h00=0x0010, h01=0x0050, text=»*    A C D I«, t00=0x0009, t01=0x00e0}
0x0f00…0f0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f0a…0f4c              Head {h00=0x003e, h01=0x0050, text=»*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS «, t00=0x0009, t01=0x00fe}
0x0f4c…0f66              Head {h00=0x0016, h01=0x0050, text=»*   THE PROCESSING«, t00=0x0009, t01=0x0140}
0x0f66…0f70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f70…0f7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0164}
0x0f7a…0f8c              Head {h00=0x000e, h01=0x0050, text=»ACDI EQU *«, t00=0x0009, t01=0x016e}
0x0f8c…0fa0              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x0009, t01=0x0180}
0x0fa0…0fb6 (10, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0606 «, t00=0x000a, t01=0x0004}
0x0fb6…0fd6              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /06 «, t00=0x000a, t01=0x001a}
0x0fd6…0fe2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x003a}
0x0fe2…100c              Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBCW,A8 CONTROL WORD TO A4«, t00=0x000a, t01=0x0046}
0x100c…1048              Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE«, t00=0x000a, t01=0x0070}
0x1048…1072              Head {h00=0x0026, h01=0x0050, text=» RF(N) ADI005 ONE CHARACTER DEVICE«, t00=0x000a, t01=0x00ac}
0x1072…1098              Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 CONTROL WORD tO A3 «, t00=0x000a, t01=0x00d6}
0x1098…10aa              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000a, t01=0x00fc}
0x10aa…10be              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x000a, t01=0x010e}
0x10be…10d0              Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x000a, t01=0x0122}
0x10d0…10f2              Head {h00=0x001e, h01=0x0050, text=» ORR A4,A3 LAMPCODES IN A4«, t00=0x000a, t01=0x0134}
0x10f2…1106              Head {h00=0x0010, h01=0x0050, text=»ADI005 EQU *«, t00=0x000a, t01=0x0156}
0x1106…111a              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000a, t01=0x016a}
0x111a…1130              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/3939 «, t00=0x000a, t01=0x017e}
0x1130…1144 (11, 0, 400) Head {h00=0x0010, h01=0x0050, text=» RF(E) FLA05«, t00=0x000b, t01=0x0004}
0x1144…1150              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0018}
0x1150…1164              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/37 «, t00=0x000b, t01=0x0024}
0x1164…1182              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI010 ORDER 37«, t00=0x000b, t01=0x0038}
0x1182…1194              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000b, t01=0x0056}
0x1194…11b2              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI007 ORDER 38«, t00=0x000b, t01=0x0068}
0x11b2…11d8              Head {h00=0x0022, h01=0x0050, text=» ABL(NE) LENDER REQUEST ERROR «, t00=0x000b, t01=0x0086}
0x11d8…11e6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00ac}
0x11e6…11fa              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000b, t01=0x00ba}
0x11fa…1204              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ce}
0x1204…1224              Head {h00=0x001c, h01=0x0050, text=»*     FLASH    ORDER /39«, t00=0x000b, t01=0x00d8}
0x1224…122e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f8}
0x122e…1238              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1238…126e              Head {h00=0x0032, h01=0x0050, text=»FLA05 ORS A4,DWTFLA+DWTDEV,A6 SAVE FLASH IMAGE«, t00=0x000b, t01=0x010c}
0x126e…1278              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1278…12a8              Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTTP+DWTDEV,A6 GET TIMER POINTER«, t00=0x000b, t01=0x014c}
0x12a8…12d4              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FLA10 TIMER ALREADY STARTED «, t00=0x000b, t01=0x017c}
0x12d4…12e6              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x000c, t01=0x0018}
0x12e6…12fc              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x000c, t01=0x002a}
0x12fc…1314              Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x000c, t01=0x0040}
0x1314…1332              Head {h00=0x001a, h01=0x0050, text=» ST A4,DWTTP+DWTDEV,A6«, t00=0x000c, t01=0x0058}
0x1332…1364              Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE«, t00=0x000c, t01=0x0076}
0x1364…136e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a8}
0x136e…1382              Head {h00=0x0010, h01=0x0050, text=»FLA10 EQU * «, t00=0x000c, t01=0x00b2}
0x1382…1398              Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/200 «, t00=0x000c, t01=0x00c6}
0x1398…13c4              Head {h00=0x0028, h01=0x0050, text=» XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG«, t00=0x000c, t01=0x00dc}
0x13c4…13ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0108}
0x13ce…13f2              Head {h00=0x0020, h01=0x0050, text=» AN A3,DWTDEV,A6 ON OR OFF ?«, t00=0x000c, t01=0x0112}
0x13f2…1420              Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA20 WRITE FLASHING LIGHTS OFF«, t00=0x000c, t01=0x0136}
0x1420…142a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0164}
0x142a…1456              Head {h00=0x0028, h01=0x0050, text=» ORS A4,DWTDIB+DWTDEV,A6 ON + FLASH «, t00=0x000c, t01=0x016e}
0x1456…1476              Head {h00=0x001c, h01=0x0050, text=» RF ADI020 TURN ON LAMPS«, t00=0x000d, t01=0x000a}
0x1476…1480              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x1480…1498              Head {h00=0x0014, h01=0x0050, text=»FLA20 C1R A4,A4 «, t00=0x000d, t01=0x0034}
0x1498…14c2              Head {h00=0x0026, h01=0x0050, text=» ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH «, t00=0x000d, t01=0x004c}
0x14c2…14e4              Head {h00=0x001e, h01=0x0050, text=» RF ADI020 TURN OFF LAMPS «, t00=0x000d, t01=0x0076}
0x14e4…14f2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0098}
0x14f2…14fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14fc…1506              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b0}
0x1506…1528              Head {h00=0x001e, h01=0x0050, text=»*   FLASH TIME OUT ROUTINE«, t00=0x000d, t01=0x00ba}
0x1528…1532              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00dc}
0x1532…153c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e6}
0x153c…1550              Head {h00=0x0010, h01=0x0050, text=»FLTUT EQU * «, t00=0x000d, t01=0x00f0}
0x1550…1578              Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS IN A6«, t00=0x000d, t01=0x0104}
0x1578…159e              Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 DEVICE BUSY ? «, t00=0x000d, t01=0x012c}
0x159e…15ba              Head {h00=0x0018, h01=0x0050, text=» RF(NN) FLA40 YES ! «, t00=0x000d, t01=0x0152}
0x15ba…15c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15c4…15ea              Head {h00=0x0022, h01=0x0050, text=» LDKL A4,/7FFF SET DEVICE BUSY«, t00=0x000d, t01=0x0178}
0x15ea…1602              Head {h00=0x0014, h01=0x0050, text=» ANS A4,DWTST,A6«, t00=0x000e, t01=0x000e}
0x1602…160c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0026}
0x160c…162c              Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFLA+DWTDEV,A6 «, t00=0x000e, t01=0x0030}
0x162c…165a              Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA30 NO MORE LAMPS TO FLASHER «, t00=0x000e, t01=0x0050}
0x165a…1664              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007e}
0x1664…1692              Head {h00=0x002a, h01=0x0050, text=» LDR A5,A6 INITIATE DWT-STACK POINTER «, t00=0x000e, t01=0x0088}
0x1692…16aa              Head {h00=0x0014, h01=0x0050, text=» ADKL A5,DWTSB2 «, t00=0x000e, t01=0x00b6}
0x16aa…16ce              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x000e, t01=0x00ce}
0x16ce…16ee              Head {h00=0x001c, h01=0x0050, text=» ST* A1,DWTTP+DWTDEV,A6 «, t00=0x000e, t01=0x00f2}
0x16ee…1700              Head {h00=0x000e, h01=0x0050, text=» RB FLA10 «, t00=0x000e, t01=0x0112}
0x1700…170a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0124}
0x170a…173a              Head {h00=0x002c, h01=0x0050, text=»FLA30 CM DWTTP+DWTDEV,A6 TURN OFF TIMER «, t00=0x000e, t01=0x012e}
0x173a…174c              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x000e, t01=0x015e}
0x174c…1754              Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0170}
0x1754…175e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0178}
0x175e…1772              Head {h00=0x0010, h01=0x0050, text=»FLA40 EQU * «, t00=0x000e, t01=0x0182}
0x1772…1796              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x000f, t01=0x0008}
0x1796…17b6              Head {h00=0x001c, h01=0x0050, text=» ST* A1,DWTTP+DWTDEV,A6 «, t00=0x000f, t01=0x002c}
0x17b6…17c8              Head {h00=0x000e, h01=0x0050, text=» ABL LDISP«, t00=0x000f, t01=0x004c}
0x17c8…17d4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x005e}
0x17d4…17e2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x006a}
0x17e2…17f6              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x000f, t01=0x0078}
0x17f6…1800              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008c}
0x1800…180a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x180a…1836              Head {h00=0x0028, h01=0x0050, text=»*   ORDER 06: WRITE PROGRAM DISPLAY «, t00=0x000f, t01=0x00a0}
0x1836…1840              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00cc}
0x1840…1858              Head {h00=0x0014, h01=0x0050, text=»ADI050 LDK A3,0 «, t00=0x000f, t01=0x00d6}
0x1858…1882              Head {h00=0x0026, h01=0x0050, text=»ADI060 CF A15,GETCHR GET CHARACTER«, t00=0x000f, t01=0x00ee}
0x1882…18a6              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x000f, t01=0x0118}
0x18a6…18c0              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADI070 YES «, t00=0x000f, t01=0x013c}
0x18c0…18d2              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000f, t01=0x0156}
0x18d2…18e4              Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x000f, t01=0x0168}
0x18e4…190c              Head {h00=0x0024, h01=0x0050, text=» SUK A4,3 UNDEFINED CHARACTER ? «, t00=0x000f, t01=0x017a}
0x190c…1926              Head {h00=0x0016, h01=0x0050, text=» RF(L) ADI100 YES «, t00=0x0010, t01=0x0012}
0x1926…1944              Head {h00=0x001a, h01=0x0050, text=» CWK A4,3 UNDEFINED ? «, t00=0x0010, t01=0x002c}
0x1944…195e              Head {h00=0x0016, h01=0x0050, text=» RF(G) ADI100 YES «, t00=0x0010, t01=0x004a}
0x195e…1978              Head {h00=0x0016, h01=0x0050, text=» ADKL A4,DWTDIB+2 «, t00=0x0010, t01=0x0064}
0x1978…198c              Head {h00=0x0010, h01=0x0050, text=» ADR A4,A6  «, t00=0x0010, t01=0x007e}
0x198c…19bc              Head {h00=0x002c, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN DWT-BUFFER«, t00=0x0010, t01=0x0092}
0x19bc…19e2              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0010, t01=0x00c2}
0x19e2…1a22              Head {h00=0x003c, h01=0x0050, text=»ADI070 SC A1,DWTDEV+1,A6 SET START VALUE IN BYTE COUNTER«, t00=0x0010, t01=0x00e8}
0x1a22…1a42              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0010, t01=0x0128}
0x1a42…1a66              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0010, t01=0x0148}
0x1a66…1a86              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DIER10 NOT OK ! «, t00=0x0010, t01=0x016c}
0x1a86…1aa8              Head {h00=0x001e, h01=0x0050, text=» RF SSEQ00 SEND CHARACTERS«, t00=0x0010, t01=0x018c}
0x1aa8…1ab2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab2…1abc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0028}
0x1abc…1ada              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0011, t01=0x0032}
0x1ada…1ae4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0050}
0x1ae4…1b10              Head {h00=0x0028, h01=0x0050, text=»ADI100 LDK A1,CCERR SET RETURN CODE «, t00=0x0011, t01=0x005a}
0x1b10…1b2c              Head {h00=0x0018, h01=0x0050, text=» ORS A1,8,A8 IN ECB «, t00=0x0011, t01=0x0086}
0x1b2c…1b52              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0011, t01=0x00a2}
0x1b52…1b5e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00c8}
0x1b5e…1b68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d4}
0x1b68…1b76              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00de}
0x1b76…1b80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ec}
0x1b80…1b8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f6}
0x1b8a…1bb2              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 38: SWITCH OFF LAMPS «, t00=0x0011, t01=0x0100}
0x1bb2…1bbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0128}
0x1bbc…1bd0              Head {h00=0x0010, h01=0x0050, text=»ADI007 EQU *«, t00=0x0011, t01=0x0132}
0x1bd0…1be2              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x0146}
0x1be2…1c1c              Head {h00=0x0036, h01=0x0050, text=» ANS A4,DWTDIB+DWTDEV,A6 RESET BITS IN DWT-BUFFER «, t00=0x0011, t01=0x0158}
0x1c1c…1c30 (18, 0, 398) Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0012, t01=0x0004}
0x1c30…1c6a              Head {h00=0x0036, h01=0x0050, text=» ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE«, t00=0x0012, t01=0x0018}
0x1c6a…1c76              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0052}
0x1c76…1c88              Head {h00=0x000e, h01=0x0050, text=» RF ADI020«, t00=0x0012, t01=0x005e}
0x1c88…1c92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0070}
0x1c92…1c9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007a}
0x1c9c…1ca6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca6…1cb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cb0…1cd4              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 37: TURN ON LAMPS«, t00=0x0012, t01=0x0098}
0x1cd4…1cde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00bc}
0x1cde…1ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c6}
0x1ce8…1cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d0}
0x1cf2…1d30              Head {h00=0x003a, h01=0x0050, text=»ADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT-BUFFER «, t00=0x0012, t01=0x00da}
0x1d30…1d44              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0012, t01=0x0118}
0x1d44…1d56              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0012, t01=0x012c}
0x1d56…1d90              Head {h00=0x0036, h01=0x0050, text=» ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE«, t00=0x0012, t01=0x013e}
0x1d90…1d9c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0178}
0x1d9c…1daa              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0184}
0x1daa…1db4 (19, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db4…1dd0              Head {h00=0x0018, h01=0x0050, text=»*   SENDING SEQUENCE«, t00=0x0013, t01=0x000e}
0x1dd0…1dda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002a}
0x1dda…1e00              Head {h00=0x0022, h01=0x0050, text=»ADI020 LDK A2,/2 BLOCK LENGTH «, t00=0x0013, t01=0x0034}
0x1e00…1e24              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0013, t01=0x005a}
0x1e24…1e44              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DIER10 NOT OK ! «, t00=0x0013, t01=0x007e}
0x1e44…1e78              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER «, t00=0x0013, t01=0x009e}
0x1e78…1e90              Head {h00=0x0014, h01=0x0050, text=»ADI035 LDK A1,1 «, t00=0x0013, t01=0x00d2}
0x1e90…1eca              Head {h00=0x0036, h01=0x0050, text=» SC A1,DWTDEV+1,A6 SET START VALUE IN BYTE COUNTER«, t00=0x0013, t01=0x00ea}
0x1eca…1ef0              Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTDEV,A6 TWO OUTPUTS ?«, t00=0x0013, t01=0x0124}
0x1ef0…1f0a              Head {h00=0x0016, h01=0x0050, text=» RF(NN) SSEQ20 YES«, t00=0x0013, t01=0x014a}
0x1f0a…1f14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0164}
0x1f14…1f3e              Head {h00=0x0026, h01=0x0050, text=»SSEQ00 LDKL A2,DWTDIB+DWTDEV NO ! «, t00=0x0013, t01=0x016e}
0x1f3e…1f52              Head {h00=0x0010, h01=0x0050, text=» ADR A2,A6  «, t00=0x0014, t01=0x0008}
0x1f52…1f6a              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTDEV,A6«, t00=0x0014, t01=0x001c}
0x1f6a…1f7e              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0014, t01=0x0034}
0x1f7e…1f90              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0014, t01=0x0048}
0x1f90…1fb0              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0014, t01=0x005a}
0x1fb0…1fc8              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0014, t01=0x007a}
0x1fc8…2008              Head {h00=0x003c, h01=0x0050, text=» RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING «, t00=0x0014, t01=0x0092}
0x2008…2026              Head {h00=0x001a, h01=0x0050, text=» LD A3,ECBCW,A8 BELL? «, t00=0x0014, t01=0x00d2}
0x2026…2040              Head {h00=0x0016, h01=0x0050, text=» RF(NN) SSEQ05 NO «, t00=0x0014, t01=0x00f0}
0x2040…2068              Head {h00=0x0024, h01=0x0050, text=» ORK A2,/40 YES ! INDICATE BELL «, t00=0x0014, t01=0x010a}
0x2068…208c              Head {h00=0x0020, h01=0x0050, text=»SSEQ05 SLC A3,1 OPEN BOX 2 ?«, t00=0x0014, t01=0x0132}
0x208c…20a8              Head {h00=0x0018, h01=0x0050, text=» RF(NN) SSEQ07 NO ! «, t00=0x0014, t01=0x0156}
0x20a8…20dc              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/20 YES ! INDICATE OPENING OF BOX 2 «, t00=0x0014, t01=0x0172}
0x20dc…2100              Head {h00=0x0020, h01=0x0050, text=»SSEQ07 SLC A3,1 OPEN BOX 1 ?«, t00=0x0015, t01=0x0016}
0x2100…211c              Head {h00=0x0018, h01=0x0050, text=» RF(NN) SSEQ10 NO ! «, t00=0x0015, t01=0x003a}
0x211c…2150              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 «, t00=0x0015, t01=0x0056}
0x2150…215e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x008a}
0x215e…2168              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0098}
0x2168…219a              Head {h00=0x002e, h01=0x0050, text=»SSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER«, t00=0x0015, t01=0x00a2}
0x219a…21a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d4}
0x21a4…21ca              Head {h00=0x0022, h01=0x0050, text=»SSEQ20 CF A5,OUTPUT SEND CHAR.«, t00=0x0015, t01=0x00de}
0x21ca…21ea              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DIER10 NOT OK ! «, t00=0x0015, t01=0x0104}
0x21ea…2214              Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0015, t01=0x0124}
0x2214…2240              Head {h00=0x0028, h01=0x0050, text=» RF(N) SSEQ30 ONE CHARACTER DEVICE !«, t00=0x0015, t01=0x014e}
0x2240…224a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x224a…226e              Head {h00=0x0020, h01=0x0050, text=» ANK A4,/FF GET BYTE COUNTER«, t00=0x0015, t01=0x0184}
0x226e…2296              Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 TWO CHARACTERS SENT ? «, t00=0x0016, t01=0x0018}
0x2296…22a4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0040}
0x22a4…22b8              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x0016, t01=0x004e}
0x22b8…22d4              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SSEQ25 NO ! «, t00=0x0016, t01=0x0062}
0x22d4…22f0              Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 GET ORDER«, t00=0x0016, t01=0x007e}
0x22f0…2304              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x0016, t01=0x009a}
0x2304…2338              Head {h00=0x0030, h01=0x0050, text=» CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ?«, t00=0x0016, t01=0x00ae}
0x2338…2354              Head {h00=0x0018, h01=0x0050, text=» RF(NE) SSEQ30 NO ! «, t00=0x0016, t01=0x00e2}
0x2354…237c              Head {h00=0x0024, h01=0x0050, text=»SSEQ25 SUK A4,4 LAST CHARACTER ?«, t00=0x0016, t01=0x00fe}
0x237c…2398              Head {h00=0x0018, h01=0x0050, text=» RF(Z) SSEQ30 YES ! «, t00=0x0016, t01=0x0126}
0x2398…23aa              Head {h00=0x000e, h01=0x0050, text=» RB SSEQ00«, t00=0x0016, t01=0x0142}
0x23aa…23b6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0154}
0x23b6…23ca              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=0 «, t00=0x0016, t01=0x0160}
0x23ca…23e4              Head {h00=0x0016, h01=0x0050, text=» RF(Z) SSEQ30 YES «, t00=0x0016, t01=0x0174}
0x23e4…240e              Head {h00=0x0026, h01=0x0050, text=» RB SSEQ00 NO ! GET NEXT CHARACTER«, t00=0x0016, t01=0x018e}
0x240e…241a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0028}
0x241a…2424              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0034}
0x2424…244c              Head {h00=0x0024, h01=0x0050, text=»SSEQ30 CF A5,ENDBLK END OF BLOCK«, t00=0x0017, t01=0x003e}
0x244c…2462              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIER10«, t00=0x0017, t01=0x0066}
0x2462…246c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007c}
0x246c…2480              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0017, t01=0x0086}
0x2480…24b0              Head {h00=0x002c, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND DISPATCH«, t00=0x0017, t01=0x009a}
0x24b0…24be              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00ca}
0x24be…24c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d8}
0x24c8…24d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e2}
0x24d2…24ec              Head {h00=0x0016, h01=0x0050, text=»*   ERROR ROUTINE «, t00=0x0017, t01=0x00ec}
0x24ec…24f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24f6…2500              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0110}
0x2500…2514              Head {h00=0x0010, h01=0x0050, text=»DIER10 EQU *«, t00=0x0017, t01=0x011a}
0x2514…2534              Head {h00=0x001c, h01=0x0050, text=» SRC A1,1 NOT OPERABLE ?«, t00=0x0017, t01=0x012e}
0x2534…254e              Head {h00=0x0016, h01=0x0050, text=» RF(N) DIER20 YES «, t00=0x0017, t01=0x014e}
0x254e…2558              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0168}
0x2558…2576              Head {h00=0x001a, h01=0x0050, text=» SRC A1,2 LINK ERROR ?«, t00=0x0017, t01=0x0172}
0x2576…25a2              Head {h00=0x0028, h01=0x0050, text=» ABL(N) LDISP YES, GO TO DISPATCHER «, t00=0x0017, t01=0x0190}
0x25a2…25ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x002c}
0x25ac…25ce              Head {h00=0x001e, h01=0x0050, text=» RF RCDI PERFORM RECOVERY «, t00=0x0018, t01=0x0036}
0x25ce…25d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0058}
0x25d8…25ec              Head {h00=0x0010, h01=0x0050, text=»DIER20 EQU *«, t00=0x0018, t01=0x0062}
0x25ec…2614              Head {h00=0x0024, h01=0x0050, text=» SLC A1,1 SET "NOT OPERABLE" BIT«, t00=0x0018, t01=0x0076}
0x2614…262e              Head {h00=0x0016, h01=0x0050, text=» RB ENDIO END I/O «, t00=0x0018, t01=0x009e}
0x262e…263c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b8}
0x263c…2646              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2646…265a              Head {h00=0x0010, h01=0x0050, text=»*    R C D I«, t00=0x0018, t01=0x00d0}
0x265a…2664              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x2664…26a6              Head {h00=0x003e, h01=0x0050, text=»*   RECOVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH «, t00=0x0018, t01=0x00ee}
0x26a6…26ec              Head {h00=0x0042, h01=0x0050, text=»*   THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION «, t00=0x0018, t01=0x0130}
0x26ec…271c              Head {h00=0x002c, h01=0x0050, text=»*   OM PROGRAM DISPLAY IS ALSO RESTORED «, t00=0x0018, t01=0x0176}
0x271c…2726              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0016}
0x2726…2730              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0020}
0x2730…2742              Head {h00=0x000e, h01=0x0050, text=»RCDI EQU *«, t00=0x0019, t01=0x002a}
0x2742…2768              Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/7FFF SET DEVICE BUSY«, t00=0x0019, t01=0x003c}
0x2768…2780              Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x0019, t01=0x0062}
0x2780…278a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x007a}
0x278a…27aa              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0019, t01=0x0084}
0x27aa…27ce              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0019, t01=0x00a4}
0x27ce…27e4              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIER10«, t00=0x0019, t01=0x00c8}
0x27e4…27ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00de}
0x27ee…2822              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER «, t00=0x0019, t01=0x00e8}
0x2822…2834              Head {h00=0x000e, h01=0x0050, text=» RB ADI035«, t00=0x0019, t01=0x011c}
0x2834…283e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012e}
0x283e…2848              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0138}
0x2848…2852              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0142}
0x2852…285e              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x014c}
0x285e…2866              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0158}
0x2866…286e              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0160}
0x286e…2876              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0168}
0x2876…287e              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0170}
0x287e…2886              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0178}
0x2886…288a              Head {h00=0x4004, h01=0x0000}
0x288a…288e              00 19 01 80                                                                                                                                                                                                                                       ┆    ┆
0x288e…2896 (26, 1, 8)   20 04 00 00 00 1a 00 04                                                                                                                                                                                                                           ┆        ┆
0x2896…28e6 (27, 0, 400) 00 00 52 00 83 20 00 00 83 41 00 00 82 40 00 00 00 1a 01 78 00 14 00 10 03 07 00 00 27 e5 00 00 83 40 00 00 f0 34 00 00 00 1b 00 18 00 10 00 0c 03 05 00 00 2c 9d 00 00 00 00 00 00 00 1b 00 30 00 48 00 44 04 21 7f ff 00 01 00 32 00 03 00 a0   ┆  R      A   @     x        '    @   4              ,          0 H D !     2    ┆
0x28e6…2936              00 05 00 32 00 07 00 d2 00 09 01 40 00 0b 01 72 00 0d 01 e0 00 0f 02 12 00 11 02 80 00 13 0a 90 00 15 0a fe 00 17 0b 30 00 19 13 7c 00 1b 13 ae 00 1d 14 1c 00 1f 14 4e 00 1b 00 44 00 48 00 44 04 21 ff ff 00 21 14 bc 00 23 14 ee 00 25 15 5c   ┆   2       @   r                       0   |           N   D H D !   !   #   %  ┆
0x2936…2986              00 27 15 8e 00 29 15 fc 00 2b 16 2e 00 2d 16 9c 00 2f 16 ce 00 31 17 3c 00 3b 17 9c 00 5b 00 a0 00 a9 17 72 00 db 17 9c 00 fb 01 40 01 49 17 72 01 7b 17 9c 00 1b 00 90 00 48 00 44 04 21 ff ff 01 9b 01 e0 01 e9 17 72 02 1b 17 9c 02 3b 02 80   ┆ '   )   + . -   /   1 < ;   [     r       @ I r {       H D !         r     ;  ┆
0x2986…29d6              02 89 17 72 02 b5 02 be 0a 99 17 9c 0a b9 0a fe 0b 07 17 72 0b 39 17 9c 0b 59 13 7c 0b a1 0b aa 13 85 17 72 13 b7 17 9c 13 d7 14 1c 14 25 17 72 00 1b 00 dc 00 48 00 44 04 21 ff ff 14 57 17 9c 14 77 14 bc 14 c5 17 72 14 f7 17 9c 15 17 15 5c   ┆   r               r 9   Y |       r         % r     H D !   W   w     r        ┆
0x29d6…2a26              15 65 17 72 15 97 17 9c 15 b7 15 fc 16 05 17 72 16 37 17 9c 16 57 16 9c 16 a5 17 72 16 d7 17 9c 16 f7 17 3c 17 45 17 72 17 73 17 7a 00 1b 01 28 00 48 00 44 04 21 9a ff 17 75 19 24 17 7d 50 04 17 8b 54 08 17 9d 17 a4 17 9f 19 24 17 a7 50 2a   ┆ e r           r 7   W     r       < E r s z   ( H D !   u $ }P   T        $  P*┆
0x2a26…2a76 (28, 0, 400) 17 ad 18 da 17 b1 50 2c 17 b7 18 a8 17 bd 18 a8 17 c3 18 a8 17 c9 18 b6 17 cf 19 16 17 dd 27 ac 18 07 27 5a 18 0d 24 a2 00 1b 01 74 00 48 00 44 04 21 9f 88 18 13 24 a2 18 15 56 30 18 25 54 06 18 37 19 ac 18 3d 18 44 18 43 19 ac 18 51 18 5a   ┆      P,                      '   'Z  $    t H D !    $   V0 %T  7   = D C   Q Z┆
0x2a76…2ac6              18 77 27 5a 18 87 24 a2 18 8f 50 08 18 9f 50 04 18 cd 52 06 18 ed 27 84 18 ef 51 1e 18 f1 52 08 19 29 50 08 00 1c 00 30 00 48 00 44 04 21 0b c7 19 3d 50 5a 19 4d 50 1a 19 51 54 2a 19 87 50 04 19 93 19 9a 19 b5 56 2a 19 bd 1b 34 19 c5 19 cc   ┆ w'Z  $   P   P   R   '   Q   R  )P    0 H D !   =PZ MP  QT*  P       V*   4    ┆
0x2ac6…2b16              19 f7 1d 20 19 fd 1b 02 1a 01 50 d4 1a 05 50 ee 1a 09 50 38 1a 35 1f f8 1a 39 20 c8 1a 3d 27 5a 00 1c 00 7c 00 48 00 44 04 21 93 01 1a 49 27 84 1a 4b 51 02 1a 4d 57 9c 1a 53 27 84 1a 55 50 06 1a 5b 57 90 1a 85 1f f8 1a 89 20 c8 1a 8d 52 2a   ┆          P   P   P8 5   9   ='Z   | H D !   I'  KQ  MW  S'  UP  [W           R*┆
0x2b16…2b66              1a 97 50 02 1a 99 57 1e 1a b1 54 38 1a b7 57 32 1a c3 54 0e 1a d5 57 16 1b 05 27 5a 00 1c 00 c8 00 48 00 44 04 21 c0 30 1b 0b 24 a2 1b 13 1b 1c 1b 4b 50 06 1b 51 57 c6 1b 57 50 14 1b 5f 56 50 1b 7b 50 0e 1b 83 54 12 1b 8d 52 0a 1b af 57 16   ┆  P   W   T8  W2  T   W   'Z     H D ! 0  $      KP  QW  WP  _VP {P   T   R   W ┆
0x2b66…2bb6              1b d9 1f e2 1b dd 20 da 1b e1 56 44 1b e7 56 06 1c 0d 54 08 1c 2b 50 ca 00 1c 01 14 00 48 00 44 04 21 0b 05 1c 33 50 94 1c 3b 50 1c 1c 43 50 2a 1c 57 57 16 1c 63 1e ee 1c 6d 50 28 1c 8b 1f f8 1c 8f 20 c8 1c 95 57 3c 1c 9f 54 12 1c b1 57 20   ┆          VD  V   T  +P      H D !   3P  ;P  CP* WW  c   mP(          W<  T   W ┆

Reduced view