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

⟦c46c38aa6⟧

    Length: 11186 (0x2bb2)
    Notes: pts_type(SC)
    Names: »DRDI01.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/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	1
* 
* 
*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED 
*   IN THIS DRIVER BY SETTING X:B=1 
* 
X:B	EQU	0 
FLASH	EQU	1 
* 
* 
	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=0x0050, 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…0c8c              Head {h00=0x000e, h01=0x0050, text=»ORD6 EQU 1«, t00=0x0007, t01=0x018e}
0x0c8c…0c96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x0c96…0ca0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0ca0…0cdc              Head {h00=0x0038, h01=0x0050, text=»*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED «, t00=0x0008, t01=0x0024}
0x0cdc…0d08              Head {h00=0x0028, h01=0x0050, text=»*   IN THIS DRIVER BY SETTING X:B=1 «, t00=0x0008, t01=0x0060}
0x0d08…0d12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008c}
0x0d12…0d24              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0096}
0x0d24…0d38              Head {h00=0x0010, h01=0x0050, text=»FLASH EQU 1 «, t00=0x0008, t01=0x00a8}
0x0d38…0d42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x0d42…0d4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4c…0d5a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00d0}
0x0d5a…0d64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00de}
0x0d64…0d6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e8}
0x0d6e…0d8a              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x0008, t01=0x00f2}
0x0d8a…0d94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d94…0da6              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 4 «, t00=0x0008, t01=0x0118}
0x0da6…0dbc              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x0008, t01=0x012a}
0x0dbc…0dc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dc6…0dd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014a}
0x0dd0…0dee              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0154}
0x0dee…0e0c              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0008, t01=0x0172}
0x0e0c…0e2a              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0190}
0x0e2a…0e34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001e}
0x0e34…0e54              Head {h00=0x001c, h01=0x0050, text=»DWTDIB EQU /02 SAVE AREA«, t00=0x0009, t01=0x0028}
0x0e54…0e84              Head {h00=0x002c, h01=0x0050, text=»DWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE«, t00=0x0009, t01=0x0048}
0x0e84…0ea8              Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /0A TIMER POINTER «, t00=0x0009, t01=0x0078}
0x0ea8…0ec6              Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x0009, t01=0x009c}
0x0ec6…0ed0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ba}
0x0ed0…0ede              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00c4}
0x0ede…0ee8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee8…0efc              Head {h00=0x0010, h01=0x0050, text=»*    A C D I«, t00=0x0009, t01=0x00dc}
0x0efc…0f06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f0}
0x0f06…0f48              Head {h00=0x003e, h01=0x0050, text=»*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS «, t00=0x0009, t01=0x00fa}
0x0f48…0f62              Head {h00=0x0016, h01=0x0050, text=»*   THE PROCESSING«, t00=0x0009, t01=0x013c}
0x0f62…0f6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0156}
0x0f6c…0f76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f76…0f88              Head {h00=0x000e, h01=0x0050, text=»ACDI EQU *«, t00=0x0009, t01=0x016a}
0x0f88…0f9c              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x0009, t01=0x017c}
0x0f9c…0fb2              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0606 «, t00=0x0009, t01=0x0190}
0x0fb2…0fd2              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /06 «, t00=0x000a, t01=0x0016}
0x0fd2…0fde              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0036}
0x0fde…1008              Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBCW,A8 CONTROL WORD TO A4«, t00=0x000a, t01=0x0042}
0x1008…1044              Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE«, t00=0x000a, t01=0x006c}
0x1044…106e              Head {h00=0x0026, h01=0x0050, text=» RF(N) ADI005 ONE CHARACTER DEVICE«, t00=0x000a, t01=0x00a8}
0x106e…1094              Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 CONTROL WORD tO A3 «, t00=0x000a, t01=0x00d2}
0x1094…10a6              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000a, t01=0x00f8}
0x10a6…10ba              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x000a, t01=0x010a}
0x10ba…10cc              Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x000a, t01=0x011e}
0x10cc…10ee              Head {h00=0x001e, h01=0x0050, text=» ORR A4,A3 LAMPCODES IN A4«, t00=0x000a, t01=0x0130}
0x10ee…1102              Head {h00=0x0010, h01=0x0050, text=»ADI005 EQU *«, t00=0x000a, t01=0x0152}
0x1102…1116              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000a, t01=0x0166}
0x1116…112c              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/3939 «, t00=0x000a, t01=0x017a}
0x112c…1140              Head {h00=0x0010, h01=0x0050, text=» RF(E) FLA05«, t00=0x000a, t01=0x0190}
0x1140…114c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0014}
0x114c…1160              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/37 «, t00=0x000b, t01=0x0020}
0x1160…117e              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI010 ORDER 37«, t00=0x000b, t01=0x0034}
0x117e…1190              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000b, t01=0x0052}
0x1190…11ae              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI007 ORDER 38«, t00=0x000b, t01=0x0064}
0x11ae…11d4              Head {h00=0x0022, h01=0x0050, text=» ABL(NE) LENDER REQUEST ERROR «, t00=0x000b, t01=0x0082}
0x11d4…11e2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00a8}
0x11e2…11f6              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000b, t01=0x00b6}
0x11f6…1200              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ca}
0x1200…1220              Head {h00=0x001c, h01=0x0050, text=»*     FLASH    ORDER /39«, t00=0x000b, t01=0x00d4}
0x1220…122a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f4}
0x122a…1234              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fe}
0x1234…126a              Head {h00=0x0032, h01=0x0050, text=»FLA05 ORS A4,DWTFLA+DWTDEV,A6 SAVE FLASH IMAGE«, t00=0x000b, t01=0x0108}
0x126a…1274              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013e}
0x1274…12a4              Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTTP+DWTDEV,A6 GET TIMER POINTER«, t00=0x000b, t01=0x0148}
0x12a4…12d0              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FLA10 TIMER ALREADY STARTED «, t00=0x000b, t01=0x0178}
0x12d0…12e2              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x000c, t01=0x0014}
0x12e2…12f8              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x000c, t01=0x0026}
0x12f8…1310              Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x000c, t01=0x003c}
0x1310…132e              Head {h00=0x001a, h01=0x0050, text=» ST A4,DWTTP+DWTDEV,A6«, t00=0x000c, t01=0x0054}
0x132e…1360              Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE«, t00=0x000c, t01=0x0072}
0x1360…136a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a4}
0x136a…137e              Head {h00=0x0010, h01=0x0050, text=»FLA10 EQU * «, t00=0x000c, t01=0x00ae}
0x137e…1394              Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/200 «, t00=0x000c, t01=0x00c2}
0x1394…13c0              Head {h00=0x0028, h01=0x0050, text=» XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG«, t00=0x000c, t01=0x00d8}
0x13c0…13ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13ca…13ee              Head {h00=0x0020, h01=0x0050, text=» AN A3,DWTDEV,A6 ON OR OFF ?«, t00=0x000c, t01=0x010e}
0x13ee…141c              Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA20 WRITE FLASHING LIGHTS OFF«, t00=0x000c, t01=0x0132}
0x141c…1426              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0160}
0x1426…1452              Head {h00=0x0028, h01=0x0050, text=» ORS A4,DWTDIB+DWTDEV,A6 ON + FLASH «, t00=0x000c, t01=0x016a}
0x1452…1472              Head {h00=0x001c, h01=0x0050, text=» RF ADI020 TURN ON LAMPS«, t00=0x000d, t01=0x0008}
0x1472…147c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x147c…1494              Head {h00=0x0014, h01=0x0050, text=»FLA20 C1R A4,A4 «, t00=0x000d, t01=0x0032}
0x1494…14be              Head {h00=0x0026, h01=0x0050, text=» ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH «, t00=0x000d, t01=0x004a}
0x14be…14e0              Head {h00=0x001e, h01=0x0050, text=» RF ADI020 TURN OFF LAMPS «, t00=0x000d, t01=0x0074}
0x14e0…14ee              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0096}
0x14ee…14f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a4}
0x14f8…1502              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ae}
0x1502…1524              Head {h00=0x001e, h01=0x0050, text=»*   FLASH TIME OUT ROUTINE«, t00=0x000d, t01=0x00b8}
0x1524…152e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x152e…1538              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e4}
0x1538…154c              Head {h00=0x0010, h01=0x0050, text=»FLTUT EQU * «, t00=0x000d, t01=0x00ee}
0x154c…1574              Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS IN A6«, t00=0x000d, t01=0x0102}
0x1574…159a              Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 DEVICE BUSY ? «, t00=0x000d, t01=0x012a}
0x159a…15b6              Head {h00=0x0018, h01=0x0050, text=» RF(NN) FLA40 YES ! «, t00=0x000d, t01=0x0150}
0x15b6…15c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016c}
0x15c0…15e6              Head {h00=0x0022, h01=0x0050, text=» LDKL A4,/7FFF SET DEVICE BUSY«, t00=0x000d, t01=0x0176}
0x15e6…15fe              Head {h00=0x0014, h01=0x0050, text=» ANS A4,DWTST,A6«, t00=0x000e, t01=0x000c}
0x15fe…1608              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1608…1628              Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFLA+DWTDEV,A6 «, t00=0x000e, t01=0x002e}
0x1628…1656              Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA30 NO MORE LAMPS TO FLASHER «, t00=0x000e, t01=0x004e}
0x1656…1660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007c}
0x1660…168e              Head {h00=0x002a, h01=0x0050, text=» LDR A5,A6 INITIATE DWT-STACK POINTER «, t00=0x000e, t01=0x0086}
0x168e…16a6              Head {h00=0x0014, h01=0x0050, text=» ADKL A5,DWTSB2 «, t00=0x000e, t01=0x00b4}
0x16a6…16ca              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x000e, t01=0x00cc}
0x16ca…16ea              Head {h00=0x001c, h01=0x0050, text=» ST* A1,DWTTP+DWTDEV,A6 «, t00=0x000e, t01=0x00f0}
0x16ea…16fc              Head {h00=0x000e, h01=0x0050, text=» RB FLA10 «, t00=0x000e, t01=0x0110}
0x16fc…1706              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1706…1736              Head {h00=0x002c, h01=0x0050, text=»FLA30 CM DWTTP+DWTDEV,A6 TURN OFF TIMER «, t00=0x000e, t01=0x012c}
0x1736…1748              Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x000e, t01=0x015c}
0x1748…1750              Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x016e}
0x1750…175a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0176}
0x175a…176e              Head {h00=0x0010, h01=0x0050, text=»FLA40 EQU * «, t00=0x000e, t01=0x0180}
0x176e…1792 (15, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x000f, t01=0x0004}
0x1792…17b2              Head {h00=0x001c, h01=0x0050, text=» ST* A1,DWTTP+DWTDEV,A6 «, t00=0x000f, t01=0x0028}
0x17b2…17c4              Head {h00=0x000e, h01=0x0050, text=» ABL LDISP«, t00=0x000f, t01=0x0048}
0x17c4…17d0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x005a}
0x17d0…17de              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0066}
0x17de…17f2              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x000f, t01=0x0074}
0x17f2…17fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0088}
0x17fc…1806              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1806…1832              Head {h00=0x0028, h01=0x0050, text=»*   ORDER 06: WRITE PROGRAM DISPLAY «, t00=0x000f, t01=0x009c}
0x1832…183c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x183c…1854              Head {h00=0x0014, h01=0x0050, text=»ADI050 LDK A3,0 «, t00=0x000f, t01=0x00d2}
0x1854…187e              Head {h00=0x0026, h01=0x0050, text=»ADI060 CF A15,GETCHR GET CHARACTER«, t00=0x000f, t01=0x00ea}
0x187e…18a2              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x000f, t01=0x0114}
0x18a2…18bc              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADI070 YES «, t00=0x000f, t01=0x0138}
0x18bc…18ce              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000f, t01=0x0152}
0x18ce…18e0              Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x000f, t01=0x0164}
0x18e0…1908              Head {h00=0x0024, h01=0x0050, text=» SUK A4,3 UNDEFINED CHARACTER ? «, t00=0x000f, t01=0x0176}
0x1908…1922              Head {h00=0x0016, h01=0x0050, text=» RF(L) ADI100 YES «, t00=0x0010, t01=0x000e}
0x1922…1940              Head {h00=0x001a, h01=0x0050, text=» CWK A4,3 UNDEFINED ? «, t00=0x0010, t01=0x0028}
0x1940…195a              Head {h00=0x0016, h01=0x0050, text=» RF(G) ADI100 YES «, t00=0x0010, t01=0x0046}
0x195a…1974              Head {h00=0x0016, h01=0x0050, text=» ADKL A4,DWTDIB+2 «, t00=0x0010, t01=0x0060}
0x1974…1988              Head {h00=0x0010, h01=0x0050, text=» ADR A4,A6  «, t00=0x0010, t01=0x007a}
0x1988…19b8              Head {h00=0x002c, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN DWT-BUFFER«, t00=0x0010, t01=0x008e}
0x19b8…19de              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0010, t01=0x00be}
0x19de…1a1e              Head {h00=0x003c, h01=0x0050, text=»ADI070 SC A1,DWTDEV+1,A6 SET START VALUE IN BYTE COUNTER«, t00=0x0010, t01=0x00e4}
0x1a1e…1a3e              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0010, t01=0x0124}
0x1a3e…1a62              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0010, t01=0x0144}
0x1a62…1a82              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DIER10 NOT OK ! «, t00=0x0010, t01=0x0168}
0x1a82…1aa4              Head {h00=0x001e, h01=0x0050, text=» RF SSEQ00 SEND CHARACTERS«, t00=0x0010, t01=0x0188}
0x1aa4…1aae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001a}
0x1aae…1ab8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0024}
0x1ab8…1ad6              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0011, t01=0x002e}
0x1ad6…1ae0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004c}
0x1ae0…1b0c              Head {h00=0x0028, h01=0x0050, text=»ADI100 LDK A1,CCERR SET RETURN CODE «, t00=0x0011, t01=0x0056}
0x1b0c…1b28              Head {h00=0x0018, h01=0x0050, text=» ORS A1,8,A8 IN ECB «, t00=0x0011, t01=0x0082}
0x1b28…1b4e              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0011, t01=0x009e}
0x1b4e…1b5a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00c4}
0x1b5a…1b64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b64…1b72              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00da}
0x1b72…1b7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e8}
0x1b7c…1b86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f2}
0x1b86…1bae              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 38: SWITCH OFF LAMPS «, t00=0x0011, t01=0x00fc}
0x1bae…1bb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0124}
0x1bb8…1bcc              Head {h00=0x0010, h01=0x0050, text=»ADI007 EQU *«, t00=0x0011, t01=0x012e}
0x1bcc…1bde              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x0142}
0x1bde…1c18              Head {h00=0x0036, h01=0x0050, text=» ANS A4,DWTDIB+DWTDEV,A6 RESET BITS IN DWT-BUFFER «, t00=0x0011, t01=0x0154}
0x1c18…1c2c              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0011, t01=0x018e}
0x1c2c…1c66              Head {h00=0x0036, h01=0x0050, text=» ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE«, t00=0x0012, t01=0x0012}
0x1c66…1c72              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x004c}
0x1c72…1c84              Head {h00=0x000e, h01=0x0050, text=» RF ADI020«, t00=0x0012, t01=0x0058}
0x1c84…1c8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006a}
0x1c8e…1c98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0074}
0x1c98…1ca2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007e}
0x1ca2…1cac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0088}
0x1cac…1cd0              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 37: TURN ON LAMPS«, t00=0x0012, t01=0x0092}
0x1cd0…1cda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b6}
0x1cda…1ce4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c0}
0x1ce4…1cee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ca}
0x1cee…1d2c              Head {h00=0x003a, h01=0x0050, text=»ADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT-BUFFER «, t00=0x0012, t01=0x00d4}
0x1d2c…1d40              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0012, t01=0x0112}
0x1d40…1d52              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0012, t01=0x0126}
0x1d52…1d8c              Head {h00=0x0036, h01=0x0050, text=» ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE«, t00=0x0012, t01=0x0138}
0x1d8c…1d98              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0172}
0x1d98…1da6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x017e}
0x1da6…1db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018c}
0x1db0…1dcc              Head {h00=0x0018, h01=0x0050, text=»*   SENDING SEQUENCE«, t00=0x0013, t01=0x0008}
0x1dcc…1dd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0024}
0x1dd6…1dfc              Head {h00=0x0022, h01=0x0050, text=»ADI020 LDK A2,/2 BLOCK LENGTH «, t00=0x0013, t01=0x002e}
0x1dfc…1e20              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0013, t01=0x0054}
0x1e20…1e40              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DIER10 NOT OK ! «, t00=0x0013, t01=0x0078}
0x1e40…1e74              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER «, t00=0x0013, t01=0x0098}
0x1e74…1e8c              Head {h00=0x0014, h01=0x0050, text=»ADI035 LDK A1,1 «, t00=0x0013, t01=0x00cc}
0x1e8c…1ec6              Head {h00=0x0036, h01=0x0050, text=» SC A1,DWTDEV+1,A6 SET START VALUE IN BYTE COUNTER«, t00=0x0013, t01=0x00e4}
0x1ec6…1eec              Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTDEV,A6 TWO OUTPUTS ?«, t00=0x0013, t01=0x011e}
0x1eec…1f06              Head {h00=0x0016, h01=0x0050, text=» RF(NN) SSEQ20 YES«, t00=0x0013, t01=0x0144}
0x1f06…1f10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015e}
0x1f10…1f3a              Head {h00=0x0026, h01=0x0050, text=»SSEQ00 LDKL A2,DWTDIB+DWTDEV NO ! «, t00=0x0013, t01=0x0168}
0x1f3a…1f4e (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ADR A2,A6  «, t00=0x0014, t01=0x0004}
0x1f4e…1f66              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTDEV,A6«, t00=0x0014, t01=0x0018}
0x1f66…1f7a              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0014, t01=0x0030}
0x1f7a…1f8c              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0014, t01=0x0044}
0x1f8c…1fac              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0014, t01=0x0056}
0x1fac…1fc4              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0014, t01=0x0076}
0x1fc4…2004              Head {h00=0x003c, h01=0x0050, text=» RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING «, t00=0x0014, t01=0x008e}
0x2004…2022              Head {h00=0x001a, h01=0x0050, text=» LD A3,ECBCW,A8 BELL? «, t00=0x0014, t01=0x00ce}
0x2022…203c              Head {h00=0x0016, h01=0x0050, text=» RF(NN) SSEQ05 NO «, t00=0x0014, t01=0x00ec}
0x203c…2064              Head {h00=0x0024, h01=0x0050, text=» ORK A2,/40 YES ! INDICATE BELL «, t00=0x0014, t01=0x0106}
0x2064…2088              Head {h00=0x0020, h01=0x0050, text=»SSEQ05 SLC A3,1 OPEN BOX 2 ?«, t00=0x0014, t01=0x012e}
0x2088…20a4              Head {h00=0x0018, h01=0x0050, text=» RF(NN) SSEQ07 NO ! «, t00=0x0014, t01=0x0152}
0x20a4…20d8              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/20 YES ! INDICATE OPENING OF BOX 2 «, t00=0x0014, t01=0x016e}
0x20d8…20fc              Head {h00=0x0020, h01=0x0050, text=»SSEQ07 SLC A3,1 OPEN BOX 1 ?«, t00=0x0015, t01=0x0012}
0x20fc…2118              Head {h00=0x0018, h01=0x0050, text=» RF(NN) SSEQ10 NO ! «, t00=0x0015, t01=0x0036}
0x2118…214c              Head {h00=0x0030, h01=0x0050, text=» ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 «, t00=0x0015, t01=0x0052}
0x214c…215a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0086}
0x215a…2164              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0094}
0x2164…2196              Head {h00=0x002e, h01=0x0050, text=»SSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER«, t00=0x0015, t01=0x009e}
0x2196…21a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d0}
0x21a0…21c6              Head {h00=0x0022, h01=0x0050, text=»SSEQ20 CF A5,OUTPUT SEND CHAR.«, t00=0x0015, t01=0x00da}
0x21c6…21e6              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DIER10 NOT OK ! «, t00=0x0015, t01=0x0100}
0x21e6…2210              Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0015, t01=0x0120}
0x2210…223c              Head {h00=0x0028, h01=0x0050, text=» RF(N) SSEQ30 ONE CHARACTER DEVICE !«, t00=0x0015, t01=0x014a}
0x223c…2246              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0176}
0x2246…226a              Head {h00=0x0020, h01=0x0050, text=» ANK A4,/FF GET BYTE COUNTER«, t00=0x0015, t01=0x0180}
0x226a…2292              Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 TWO CHARACTERS SENT ? «, t00=0x0016, t01=0x0014}
0x2292…22a0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x003c}
0x22a0…22b4              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x0016, t01=0x004a}
0x22b4…22d0              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SSEQ25 NO ! «, t00=0x0016, t01=0x005e}
0x22d0…22ec              Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 GET ORDER«, t00=0x0016, t01=0x007a}
0x22ec…2300              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=1 «, t00=0x0016, t01=0x0096}
0x2300…2334              Head {h00=0x0030, h01=0x0050, text=» CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ?«, t00=0x0016, t01=0x00aa}
0x2334…2350              Head {h00=0x0018, h01=0x0050, text=» RF(NE) SSEQ30 NO ! «, t00=0x0016, t01=0x00de}
0x2350…2378              Head {h00=0x0024, h01=0x0050, text=»SSEQ25 SUK A4,4 LAST CHARACTER ?«, t00=0x0016, t01=0x00fa}
0x2378…2394              Head {h00=0x0018, h01=0x0050, text=» RF(Z) SSEQ30 YES ! «, t00=0x0016, t01=0x0122}
0x2394…23a6              Head {h00=0x000e, h01=0x0050, text=» RB SSEQ00«, t00=0x0016, t01=0x013e}
0x23a6…23b2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0150}
0x23b2…23c6              Head {h00=0x0010, h01=0x0050, text=» IFT ORD6=0 «, t00=0x0016, t01=0x015c}
0x23c6…23e0              Head {h00=0x0016, h01=0x0050, text=» RF(Z) SSEQ30 YES «, t00=0x0016, t01=0x0170}
0x23e0…240a              Head {h00=0x0026, h01=0x0050, text=» RB SSEQ00 NO ! GET NEXT CHARACTER«, t00=0x0016, t01=0x018a}
0x240a…2416              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0024}
0x2416…2420              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0030}
0x2420…2448              Head {h00=0x0024, h01=0x0050, text=»SSEQ30 CF A5,ENDBLK END OF BLOCK«, t00=0x0017, t01=0x003a}
0x2448…245e              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DIER10«, t00=0x0017, t01=0x0062}
0x245e…2468              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0078}
0x2468…247c              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0017, t01=0x0082}
0x247c…24ac              Head {h00=0x002c, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND DISPATCH«, t00=0x0017, t01=0x0096}
0x24ac…24ba              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00c6}
0x24ba…24c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d4}
0x24c4…24ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00de}
0x24ce…24e8              Head {h00=0x0016, h01=0x0050, text=»*   ERROR ROUTINE «, t00=0x0017, t01=0x00e8}
0x24e8…24f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0102}
0x24f2…24fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010c}
0x24fc…2510              Head {h00=0x0010, h01=0x0050, text=»DIER10 EQU *«, t00=0x0017, t01=0x0116}
0x2510…2530              Head {h00=0x001c, h01=0x0050, text=» SRC A1,1 NOT OPERABLE ?«, t00=0x0017, t01=0x012a}
0x2530…254a              Head {h00=0x0016, h01=0x0050, text=» RF(N) DIER20 YES «, t00=0x0017, t01=0x014a}
0x254a…2554              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0164}
0x2554…2572              Head {h00=0x001a, h01=0x0050, text=» SRC A1,2 LINK ERROR ?«, t00=0x0017, t01=0x016e}
0x2572…259e              Head {h00=0x0028, h01=0x0050, text=» ABL(N) LDISP YES, GO TO DISPATCHER «, t00=0x0017, t01=0x018c}
0x259e…25a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0028}
0x25a8…25ca              Head {h00=0x001e, h01=0x0050, text=» RF RCDI PERFORM RECOVERY «, t00=0x0018, t01=0x0032}
0x25ca…25d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0054}
0x25d4…25e8              Head {h00=0x0010, h01=0x0050, text=»DIER20 EQU *«, t00=0x0018, t01=0x005e}
0x25e8…2610              Head {h00=0x0024, h01=0x0050, text=» SLC A1,1 SET "NOT OPERABLE" BIT«, t00=0x0018, t01=0x0072}
0x2610…262a              Head {h00=0x0016, h01=0x0050, text=» RB ENDIO END I/O «, t00=0x0018, t01=0x009a}
0x262a…2638              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b4}
0x2638…2642              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c2}
0x2642…2656              Head {h00=0x0010, h01=0x0050, text=»*    R C D I«, t00=0x0018, t01=0x00cc}
0x2656…2660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e0}
0x2660…26a2              Head {h00=0x003e, h01=0x0050, text=»*   RECOVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH «, t00=0x0018, t01=0x00ea}
0x26a2…26e8              Head {h00=0x0042, h01=0x0050, text=»*   THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION «, t00=0x0018, t01=0x012c}
0x26e8…2718              Head {h00=0x002c, h01=0x0050, text=»*   OM PROGRAM DISPLAY IS ALSO RESTORED «, t00=0x0018, t01=0x0172}
0x2718…2722              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0012}
0x2722…272c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001c}
0x272c…273e              Head {h00=0x000e, h01=0x0050, text=»RCDI EQU *«, t00=0x0019, t01=0x0026}
0x273e…2764              Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/7FFF SET DEVICE BUSY«, t00=0x0019, t01=0x0038}
0x2764…277c              Head {h00=0x0014, h01=0x0050, text=» ANS A2,DWTST,A6«, t00=0x0019, t01=0x005e}
0x277c…2786              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0076}
0x2786…27a6              Head {h00=0x001c, h01=0x0050, text=» LDK A2,/4 BLOCK LENGTH «, t00=0x0019, t01=0x0080}
0x27a6…27ca              Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0019, t01=0x00a0}
0x27ca…27e0              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIER10«, t00=0x0019, t01=0x00c4}
0x27e0…27ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00da}
0x27ea…281e              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER «, t00=0x0019, t01=0x00e4}
0x281e…2830              Head {h00=0x000e, h01=0x0050, text=» RB ADI035«, t00=0x0019, t01=0x0118}
0x2830…283a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012a}
0x283a…2844              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0134}
0x2844…284e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013e}
0x284e…285a              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x0148}
0x285a…2862              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0154}
0x2862…286a              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x015c}
0x286a…2872              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0164}
0x2872…287a              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x016c}
0x287a…2882              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0174}
0x2882…2886              Head {h00=0x4004, h01=0x0000}
0x2886…288a              00 19 01 7c                                                                                                                                                                                                                                       ┆   |┆
0x288a…2892 (26, 1, 8)   20 04 00 00 00 1a 00 04                                                                                                                                                                                                                           ┆        ┆
0x2892…28e2 (27, 0, 400) 54 48 20 49 4e 20 45 43 42 20 3d 20 30 20 3f 20 00 1a 01 6c 00 2c 00 27 5c 41 42 4c 28 45 29 5c 4d 4b 42 45 4e 44 5c 59 45 53 20 21 20 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 20 21 20 00 1b 00 18 00 06 00 03 2a 20 00 1b 00 48 00 18   ┆TH IN ECB = 0 ?    l , ' ABL(E) MKBEND YES ! COMPLETE REQUEST !         *    H  ┆
0x28e2…2932              00 15 2a 20 20 20 43 4c 45 41 52 20 45 43 42 2d 42 55 46 46 45 52 00 1b 00 52 00 06 00 03 2a 20 00 1b 00 6e 00 22 00 50 5c 4c 44 5c 41 31 2c 45 43 42 42 41 2c 41 38 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 1b 00 78 00 0e 00 09 5c 53   ┆  *   CLEAR ECB-BUFFER   R    *    n " P LD A1,ECBBA,A8 BUFFER ADDRESS   x     S┆
0x2932…2982              55 4b 5c 41 31 2c 31 20 00 1b 00 9e 00 24 00 1f 5c 41 44 52 5c 41 31 2c 41 32 5c 41 44 44 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 00 1b 00 b0 00 06 00 03 2a 20 00 1b 00 d8 00 38 00 34 41 4b 42 32 33 30 5c 53 43 52 5c 41 33 2c   ┆UK A1,1      $   ADR A1,A2 ADD REQUESTED LENGTH         *      8 4AKB230 SCR A3,┆
0x2982…29d2              41 31 5c 43 4c 45 41 52 20 42 55 46 46 45 52 20 55 4e 54 49 4c 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 1b 00 e2 00 10 00 0b 5c 53 55 4b 5c 41 31 2c 31 5c 5c 20 00 1b 01 1e 00 0e 00 09 5c 53 55 4b 5c 41 32 2c 31 20 00 1b 01 32   ┆A1 CLEAR BUFFER UNTIL REQUESTED LENGTH         SUK A1,1            SUK A2,1    2┆
0x29d2…2a22              00 20 00 1c 5c 52 42 28 4e 45 29 5c 41 4b 42 32 33 30 5c 4e 4f 54 20 52 45 41 44 59 20 59 45 54 00 1b 01 44 00 0a 00 50 5c 45 4a 45 43 54 00 1b 01 68 00 06 00 03 2a 20 00 1b 01 76 00 28 00 24 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆     RB(NE) AKB230 NOT READY YET   D   P EJECT   h    *    v ( $****************┆
0x2a22…2a72 (28, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1b 01 80 00 06 00 03 2a 20 00 1c 00 1c 00 06 00 03 2a 20 00 1c 00 26 00 0e 00 09 2a 20 20 20 4d 20 4b 20 42 20 00 1c 00 30 00 24 00 20 2a 20 20 20 4d 41 49 4e 20 50 41 52 54 20   ┆********************        *         *    &    *   M K B    0 $  *   MAIN PART ┆
0x2a72…2ac2              4f 46 20 4b 45 59 42 4f 41 52 44 20 44 52 49 56 45 52 00 1c 00 42 00 06 00 03 2a 20 00 1c 00 6a 00 06 00 03 2a 20 00 1c 00 74 00 2a 00 26 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆OF KEYBOARD DRIVER   B    *    j    *    t * &**********************************┆
0x2ac2…2b12              2a 2a 2a 2a 00 1c 00 7e 00 06 00 03 2a 20 00 1c 00 ac 00 34 00 2f 2a 20 20 20 43 48 45 43 4b 20 43 49 52 43 55 4c 41 52 20 49 4e 50 55 54 20 42 55 46 46 45 52 2e 20 49 46 20 49 54 20 43 4f 4e 54 41 49 4e 53 20 00 1c 00 b6 00 32 00 2e 2a 20   ┆****   ~    *      4 /*   CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS      2 .* ┆
0x2b12…2b62              20 20 43 48 41 52 41 43 54 45 52 53 20 41 4e 44 20 4e 4f 20 4f 56 45 52 46 4c 4f 57 20 48 41 53 20 4f 43 43 55 52 52 45 44 2c 20 41 00 1c 00 ee 00 24 00 1f 2a 20 20 20 43 48 41 52 41 43 54 45 52 20 57 49 4c 4c 20 42 45 20 50 55 54 20 49 4e   ┆  CHARACTERS AND NO OVERFLOW HAS OCCURRED, A     $  *   CHARACTER WILL BE PUT IN┆
0x2b62…2bb2              20 41 32 20 00 1c 01 24 00 06 00 03 2a 20 00 1c 01 4c 00 10 00 50 4d 4b 42 31 30 30 5c 45 51 55 5c 2a 00 1c 01 56 00 08 00 50 5c 49 4e 48 00 1c 01 6a 00 32 00 50 5c 4c 44 5c 41 31 2c 44 57 54 44 45 56 2b 44 57 54 55 54 51 2c 41 36 5c 46 45   ┆ A2    $    *    L   PMKB100 EQU *   V   P INH   j 2 P LD A1,DWTDEV+DWTUTQ,A6 FE┆

Reduced view