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

⟦1f5f4dfd7⟧

    Length: 10822 (0x2a46)
    Notes: pts_type(SC)
    Names: »DRDI01.SC«

Derivation

└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
    └─⟦this⟧ »M:PTB/DRDI01.SC« 

PTS(SC)

	IDENT DRDI01 	REL 9.2 79-11-16  870105040920 

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





HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDI01  REL 9.2 79-11-16  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0092              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0056}
0x0092…009c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00c4              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a0}
0x00c4…00ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00fc              Head {h00=0x002a, h01=0x0050, text=»*   DRDI01 = DRIVER INDICATOR DISPLAY «, t00=0x0000, t01=0x00d2}
0x00fc…0106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0138              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0178              Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x013c}
0x0178…0182              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…018c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01ce              Head {h00=0x003e, h01=0x0050, text=»*   THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241«, t00=0x0000, t01=0x0190}
0x01ce…0210              Head {h00=0x003e, h01=0x0050, text=»*   AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232«, t00=0x0001, t01=0x0042}
0x0210…0236              Head {h00=0x0022, h01=0x0050, text=»*   6233, 6236 AND 633, 62361.«, t00=0x0001, t01=0x0084}
0x0236…0240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…0284              Head {h00=0x0040, h01=0x0050, text=»*   THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT «, t00=0x0001, t01=0x00b4}
0x0284…028e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…02c6              Head {h00=0x0034, h01=0x0050, text=»*   THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x0102}
0x02c6…02d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…02f6              Head {h00=0x0022, h01=0x0050, text=»*   A C D I : ACTIVATION PART «, t00=0x0001, t01=0x0144}
0x02f6…0300              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0328              Head {h00=0x0024, h01=0x0050, text=»*   I H D I : INTERRUPT HANDLER «, t00=0x0001, t01=0x0174}
0x0328…0332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000c}
0x0332…0358              Head {h00=0x0022, h01=0x0050, text=»*   R C D I : RECOVERY ROUTINE«, t00=0x0002, t01=0x0016}
0x0358…0362              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0362…0390              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0046}
0x0390…039a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03c0              Head {h00=0x0022, h01=0x0050, text=»*   ORDER 05: WRITE LIGHTS ON «, t00=0x0002, t01=0x007e}
0x03c0…03e6              Head {h00=0x0022, h01=0x0050, text=»*         06: WRITE LIGHTS OFF«, t00=0x0002, t01=0x00a4}
0x03e6…0412              Head {h00=0x0028, h01=0x0050, text=»*         07: WRITE PROGRAM DISPLAY «, t00=0x0002, t01=0x00ca}
0x0412…0442              Head {h00=0x002c, h01=0x0050, text=»*         39:     WRITE  FLASHING LIGHTS«, t00=0x0002, t01=0x00f6}
0x0442…0450              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0126}
0x0450…045a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0464              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0486              Head {h00=0x001e, h01=0x0050, text=»*   NORMAL REGISTER USAGE:«, t00=0x0002, t01=0x0148}
0x0486…0490              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04b4              Head {h00=0x0020, h01=0x0050, text=»*   REGISTER A1: RETURN CODE«, t00=0x0002, t01=0x0174}
0x04b4…04d4              Head {h00=0x001c, h01=0x0050, text=»*            A2:  OUTPUT«, t00=0x0003, t01=0x0008}
0x04d4…04fa              Head {h00=0x0022, h01=0x0050, text=»*            A3: WORK REGISTER«, t00=0x0003, t01=0x0028}
0x04fa…0520              Head {h00=0x0022, h01=0x0050, text=»*            A4: WORK REGISTER«, t00=0x0003, t01=0x004e}
0x0520…0546              Head {h00=0x0022, h01=0x0050, text=»*            A5: WORK REGISTER«, t00=0x0003, t01=0x0074}
0x0546…056a              Head {h00=0x0020, h01=0x0050, text=»*            A6: DWT-ADDRESS«, t00=0x0003, t01=0x009a}
0x056a…0588              Head {h00=0x001a, h01=0x0050, text=»*            A7: ORDER«, t00=0x0003, t01=0x00be}
0x0588…05ac              Head {h00=0x0020, h01=0x0050, text=»*            A8: ECB-ADDRESS«, t00=0x0003, t01=0x00dc}
0x05ac…05b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0100}
0x05b6…05c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010a}
0x05c0…05de              Head {h00=0x001a, h01=0x0050, text=»*   SYSTEM ADAPTATION «, t00=0x0003, t01=0x0114}
0x05de…05e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0132}
0x05e8…0626              Head {h00=0x003a, h01=0x0050, text=»*   DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT «, t00=0x0003, t01=0x013c}
0x0626…0630              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…0668              Head {h00=0x0034, h01=0x0050, text=»*   BIT 10 = 1   IF PROGRAM DISPLAY   (PTS 6241)«, t00=0x0003, t01=0x0184}
0x0668…0698              Head {h00=0x002c, h01=0x0050, text=»*   BIT 11 = 1   FOR PTS 6232,6331,6236 «, t00=0x0004, t01=0x002c}
0x0698…06c8              Head {h00=0x002c, h01=0x0050, text=»*   BIT 11 = 0   FOR PTS 6241,6242,6233 «, t00=0x0004, t01=0x005c}
0x06c8…06d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…0710              Head {h00=0x003a, h01=0x0050, text=»*   ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0004, t01=0x0096}
0x0710…0730              Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x00d4}
0x0730…073a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f4}
0x073a…0748              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00fe}
0x0748…0752              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x0752…075c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…0774              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0120}
0x0774…078c              Head {h00=0x0014, h01=0x0050, text=»*    ENTRIES  * «, t00=0x0004, t01=0x0138}
0x078c…07a4              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0150}
0x07a4…07ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07ae…07da              Head {h00=0x0028, h01=0x0050, text=» ENTRY DIAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0004, t01=0x0172}
0x07da…07e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e4…0800              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0005, t01=0x0018}
0x0800…081c              Head {h00=0x0018, h01=0x0050, text=»*    EXTERNALS    * «, t00=0x0005, t01=0x0034}
0x081c…0838              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0005, t01=0x0050}
0x0838…0842              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0842…0860              Head {h00=0x001a, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS«, t00=0x0005, t01=0x0076}
0x0860…087e              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0005, t01=0x0094}
0x087e…08b0              Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND PERFORM END I/O AND DISPATCH«, t00=0x0005, t01=0x00b2}
0x08b0…08de              Head {h00=0x002a, h01=0x0050, text=» EXTRN TDISP DISPATCHER ORDINARY INT. «, t00=0x0005, t01=0x00e4}
0x08de…0904              Head {h00=0x0022, h01=0x0050, text=» EXTRN OUTLIN OUTPUT ONE CHAR.«, t00=0x0005, t01=0x0112}
0x0904…0928              Head {h00=0x0020, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER «, t00=0x0005, t01=0x0138}
0x0928…0950              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0005, t01=0x015c}
0x0950…096c              Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x0184}
0x096c…098e              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0006, t01=0x0010}
0x098e…09b0              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x0032}
0x09b0…09ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09ba…09da              Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIMP SET TIMER «, t00=0x0006, t01=0x005e}
0x09da…09e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007e}
0x09e4…09ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0088}
0x09ee…09fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0092}
0x09fc…0a06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a0}
0x0a06…0a10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00aa}
0x0a10…0a28              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00b4}
0x0a28…0a3e              Head {h00=0x0012, h01=0x0050, text=»*    TABLES  *«, t00=0x0006, t01=0x00cc}
0x0a3e…0a56              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x00e2}
0x0a56…0a60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a60…0a6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0104}
0x0a6a…0a90              Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN BUFFER SIZE (MMU)«, t00=0x0006, t01=0x010e}
0x0a90…0aac              Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0006, t01=0x0134}
0x0aac…0ab6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0150}
0x0ab6…0ad6              Head {h00=0x001c, h01=0x0050, text=»DIAD EQU * ADDRESS BLOCK«, t00=0x0006, t01=0x015a}
0x0ad6…0afa              Head {h00=0x0020, h01=0x0050, text=» DATA ACDI ACTIVATION DRIVER«, t00=0x0006, t01=0x017a}
0x0afa…0b20              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0007, t01=0x000e}
0x0b20…0b44              Head {h00=0x0020, h01=0x0050, text=» DATA IHDI INTERRUPT HANDLER«, t00=0x0007, t01=0x0034}
0x0b44…0b68              Head {h00=0x0020, h01=0x0050, text=» DATA RCDI RECOVERY ROUTINE «, t00=0x0007, t01=0x0058}
0x0b68…0b72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b72…0b98              Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0007, t01=0x0086}
0x0b98…0ba2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba2…0bb0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b6}
0x0bb0…0bba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x0bc4…0be6              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x00d8}
0x0be6…0c08              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY * «, t00=0x0007, t01=0x00fa}
0x0c08…0c2a              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x011c}
0x0c2a…0c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c34…0c3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0148}
0x0c3e…0c7c              Head {h00=0x003a, h01=0x0050, text=»*   ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0007, t01=0x0152}
0x0c7c…0c96              Head {h00=0x0016, h01=0x0050, text=»*   SETTING X:A=0 «, t00=0x0007, t01=0x0190}
0x0c96…0ca0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0ca0…0cb2              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0024}
0x0cb2…0cc4              Head {h00=0x000e, h01=0x0050, text=»ORD7 EQU 0«, t00=0x0008, t01=0x0036}
0x0cc4…0cce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0cce…0cd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0052}
0x0cd8…0d14              Head {h00=0x0038, h01=0x0050, text=»*   THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0008, t01=0x005c}
0x0d14…0d36              Head {h00=0x001e, h01=0x0050, text=»*   BY SETTING CREDIT = 1 «, t00=0x0008, t01=0x0098}
0x0d36…0d6a              Head {h00=0x0030, h01=0x0050, text=»*   ORDERS 05,06AND 07 ARE THEN REPLACED BY «, t00=0x0008, t01=0x00ba}
0x0d6a…0d8a              Head {h00=0x001c, h01=0x0050, text=»*   ORDERS 37,38 AND 06 «, t00=0x0008, t01=0x00ee}
0x0d8a…0d94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d94…0da8              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x0008, t01=0x0118}
0x0da8…0db2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012c}
0x0db2…0dbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0136}
0x0dbc…0df8              Head {h00=0x0038, h01=0x0050, text=»*   ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED «, t00=0x0008, t01=0x0140}
0x0df8…0e24              Head {h00=0x0028, h01=0x0050, text=»*   IN THIS DRIVER BY SETTING X:B=1 «, t00=0x0008, t01=0x017c}
0x0e24…0e2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0018}
0x0e2e…0e40              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x0022}
0x0e40…0e54              Head {h00=0x0010, h01=0x0050, text=»FLASH EQU 0 «, t00=0x0009, t01=0x0034}
0x0e54…0e5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0048}
0x0e5e…0e68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0052}
0x0e68…0e9a              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x005c}
0x0e9a…0ec8              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x008e}
0x0ec8…0ed2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00bc}
0x0ed2…0ee6              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x00c6}
0x0ee6…0ef0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0ef0…0efa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e4}
0x0efa…0f34              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x00ee}
0x0f34…0f66              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x0128}
0x0f66…0f70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f70…0f84              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x0164}
0x0f84…0f8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0178}
0x0f8e…0f9c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0182}
0x0f9c…0fa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0190}
0x0fa6…0fb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000a}
0x0fb0…0fcc              Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x0014}
0x0fcc…0fd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0030}
0x0fd6…0fe8              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 4 «, t00=0x000a, t01=0x003a}
0x0fe8…0ffe              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x000a, t01=0x004c}
0x0ffe…1008              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1008…1012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006c}
0x1012…1030              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000a, t01=0x0076}
0x1030…104e              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x000a, t01=0x0094}
0x104e…106c              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000a, t01=0x00b2}
0x106c…1076              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d0}
0x1076…1080              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x1080…10b4              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000a, t01=0x00e4}
0x10b4…10be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0118}
0x10be…10d4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x0122}
0x10d4…10ec              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000a, t01=0x0138}
0x10ec…10f8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0150}
0x10f8…1102              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015c}
0x1102…1118              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x0166}
0x1118…1132              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000a, t01=0x017c}
0x1132…113e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0008}
0x113e…1148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0014}
0x1148…116e              Head {h00=0x0022, h01=0x0050, text=»DWTDIB EQU START+/02 SAVE AREA«, t00=0x000b, t01=0x001e}
0x116e…11a4              Head {h00=0x0032, h01=0x0050, text=»DWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE«, t00=0x000b, t01=0x0044}
0x11a4…11ce              Head {h00=0x0026, h01=0x0050, text=»DWTTP EQU START+/0A TIMER POINTER «, t00=0x000b, t01=0x007a}
0x11ce…11ec              Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x000b, t01=0x00a4}
0x11ec…11f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c2}
0x11f6…1204              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00cc}
0x1204…120e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00da}
0x120e…1222              Head {h00=0x0010, h01=0x0050, text=»*    A C D I«, t00=0x000b, t01=0x00e4}
0x1222…122c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f8}
0x122c…126e              Head {h00=0x003e, h01=0x0050, text=»*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS «, t00=0x000b, t01=0x0102}
0x126e…1288              Head {h00=0x0016, h01=0x0050, text=»*   THE PROCESSING«, t00=0x000b, t01=0x0144}
0x1288…1292              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1292…129c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x129c…12ae              Head {h00=0x000e, h01=0x0050, text=»ACDI EQU *«, t00=0x000b, t01=0x0172}
0x12ae…12c8              Head {h00=0x0016, h01=0x0050, text=» IFT ORD7-CREDIT=1«, t00=0x000b, t01=0x0184}
0x12c8…12de              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0707 «, t00=0x000c, t01=0x000e}
0x12de…12fe              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /07 «, t00=0x000c, t01=0x0024}
0x12fe…130a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0044}
0x130a…1324              Head {h00=0x0016, h01=0x0050, text=» IFT ORD7+CREDIT=2«, t00=0x000c, t01=0x0050}
0x1324…133a              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0606 «, t00=0x000c, t01=0x006a}
0x133a…135a              Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /06 «, t00=0x000c, t01=0x0080}
0x135a…1366              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00a0}
0x1366…138e              Head {h00=0x0024, h01=0x0050, text=» LD A4,10,A8 CONTROL WORD TO A4 «, t00=0x000c, t01=0x00ac}
0x138e…13a2              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A6 «, t00=0x000c, t01=0x00d4}
0x13a2…13da              Head {h00=0x0034, h01=0x0050, text=» ANK A3,/10 TEST IF ONE OR TWO CHARACTER DEVICE «, t00=0x000c, t01=0x00e8}
0x13da…1406              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ADI005 ONE CHARACTER DEVICE «, t00=0x000c, t01=0x0120}
0x1406…142c              Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 CONTROL WORD tO A3 «, t00=0x000c, t01=0x014c}
0x142c…143e              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000c, t01=0x0172}
0x143e…1452              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x000c, t01=0x0184}
0x1452…1464              Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x000d, t01=0x0008}
0x1464…1486              Head {h00=0x001e, h01=0x0050, text=» ORR A4,A3 LAMPCODES IN A4«, t00=0x000d, t01=0x001a}
0x1486…149a              Head {h00=0x0010, h01=0x0050, text=»ADI005 EQU *«, t00=0x000d, t01=0x003c}
0x149a…14ae              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000d, t01=0x0050}
0x14ae…14c4              Head {h00=0x0012, h01=0x0050, text=» CCK A7,/3939 «, t00=0x000d, t01=0x0064}
0x14c4…14d8              Head {h00=0x0010, h01=0x0050, text=» RF(E) FLA05«, t00=0x000d, t01=0x007a}
0x14d8…14e4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x008e}
0x14e4…14fa              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000d, t01=0x009a}
0x14fa…150c              Head {h00=0x000e, h01=0x0050, text=» SUK A7,5 «, t00=0x000d, t01=0x00b0}
0x150c…1518              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00c2}
0x1518…152e              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000d, t01=0x00ce}
0x152e…1542              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/37 «, t00=0x000d, t01=0x00e4}
0x1542…154e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f8}
0x154e…156c              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI010 ORDER 05«, t00=0x000d, t01=0x0104}
0x156c…157e              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000d, t01=0x0122}
0x157e…159c              Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI007 ORDER 06«, t00=0x000d, t01=0x0134}
0x159c…15c2              Head {h00=0x0022, h01=0x0050, text=» ABL(NE) DISIOE REQUEST ERROR «, t00=0x000d, t01=0x0152}
0x15c2…15cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15cc…15da              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0182}
0x15da…15e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0190}
0x15e4…15ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15ee…1602              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000e, t01=0x0014}
0x1602…160c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x160c…162c              Head {h00=0x001c, h01=0x0050, text=»*     FLASH    ORDER /39«, t00=0x000e, t01=0x0032}
0x162c…1636              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0052}
0x1636…1640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005c}
0x1640…1670              Head {h00=0x002c, h01=0x0050, text=»FLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE«, t00=0x000e, t01=0x0066}
0x1670…169a              Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTP,A6 GET TIMER POINTER «, t00=0x000e, t01=0x0096}
0x169a…16c6              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FLA10 TIMER ALREADY STARTED «, t00=0x000e, t01=0x00c0}
0x16c6…16e8              Head {h00=0x001e, h01=0x0050, text=» LDK A4,DWTTP START TIMER «, t00=0x000e, t01=0x00ec}
0x16e8…16fa              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x000e, t01=0x010e}
0x16fa…170c              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x000e, t01=0x0120}
0x170c…1722              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x000e, t01=0x0132}
0x1722…173a              Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x000e, t01=0x0148}
0x173a…1752              Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x000e, t01=0x0160}
0x1752…1768              Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FFBF«, t00=0x000e, t01=0x0178}
0x1768…1792              Head {h00=0x0026, h01=0x0050, text=» ANRS A4,A6 CHECK ON-OFF INDICATOR«, t00=0x000e, t01=0x018e}
0x1792…17a6              Head {h00=0x0010, h01=0x0050, text=»FLA10 EQU * «, t00=0x000f, t01=0x0028}
0x17a6…17be              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFLA,A6«, t00=0x000f, t01=0x003c}
0x17be…17e8              Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A6 CHECK ON-OFF INDICATOR«, t00=0x000f, t01=0x0054}
0x17e8…17fc              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/40 «, t00=0x000f, t01=0x007e}
0x17fc…182a              Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA20 WRITE FLASHING LIGHTS OFF«, t00=0x000f, t01=0x0092}
0x182a…184e              Head {h00=0x0020, h01=0x0050, text=» ORS A4,DWTDIB,A6 ON + FLASH«, t00=0x000f, t01=0x00c0}
0x184e…186e              Head {h00=0x001c, h01=0x0050, text=» RF ADI030 TURN ON LAMPS«, t00=0x000f, t01=0x00e4}
0x186e…1886              Head {h00=0x0014, h01=0x0050, text=»FLA20 C1R A4,A4 «, t00=0x000f, t01=0x0104}
0x1886…18a8              Head {h00=0x001e, h01=0x0050, text=» ANS A4,DWTDIB,A6 ON-FLASH«, t00=0x000f, t01=0x011c}
0x18a8…18c8              Head {h00=0x001c, h01=0x0050, text=» RF ADI030 TURN ON LAMPS«, t00=0x000f, t01=0x013e}
0x18c8…18f2              Head {h00=0x0026, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT ROUTINE«, t00=0x000f, t01=0x015e}
0x18f2…1904              Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x000f, t01=0x0188}
0x1904…191c              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFLA,A6«, t00=0x0010, t01=0x000a}
0x191c…195c              Head {h00=0x003c, h01=0x0050, text=» RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER «, t00=0x0010, t01=0x0022}
0x195c…1980              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x0010, t01=0x0062}
0x1980…1998              Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0010, t01=0x0086}
0x1998…19ac              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x0010, t01=0x009e}
0x19ac…19d2              Head {h00=0x0022, h01=0x0050, text=» XRRS A4,A6 SWITCH 0N-OFF FLAG«, t00=0x0010, t01=0x00b2}
0x19d2…19e4              Head {h00=0x000e, h01=0x0050, text=» RB FLA10 «, t00=0x0010, t01=0x00d8}
0x19e4…19fe              Head {h00=0x0016, h01=0x0050, text=»FLA30 CM DWTTP,A6 «, t00=0x0010, t01=0x00ea}
0x19fe…1a0e              Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0010, t01=0x0104}
0x1a0e…1a1a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0114}
0x1a1a…1a24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0120}
0x1a24…1a2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012a}
0x1a2e…1a56              Head {h00=0x0024, h01=0x0050, text=»*    ORDER 06: SWITCH OFF LAMPS «, t00=0x0010, t01=0x0134}
0x1a56…1a60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015c}
0x1a60…1a74              Head {h00=0x0010, h01=0x0050, text=»ADI007 EQU *«, t00=0x0010, t01=0x0166}
0x1a74…1a86              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0010, t01=0x017a}
0x1a86…1ab8              Head {h00=0x002e, h01=0x0050, text=» ANS A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER«, t00=0x0010, t01=0x018c}
0x1ab8…1acc              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0011, t01=0x002e}
0x1acc…1b00              Head {h00=0x0030, h01=0x0050, text=» ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE «, t00=0x0011, t01=0x0042}
0x1b00…1b0c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0076}
0x1b0c…1b1e              Head {h00=0x000e, h01=0x0050, text=» RF ADI030«, t00=0x0011, t01=0x0082}
0x1b1e…1b28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0094}
0x1b28…1b32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b32…1b40              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00a8}
0x1b40…1b4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b4a…1b54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b54…1b78              Head {h00=0x0020, h01=0x0050, text=»*    ORDER 05: TURN ON LAMPS«, t00=0x0011, t01=0x00ca}
0x1b78…1b82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b82…1b8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f8}
0x1b8c…1b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0102}
0x1b96…1bcc              Head {h00=0x0032, h01=0x0050, text=»ADI010 ORS A4,DWTDIB,A6 SET BITS IN DWT-BUFFER«, t00=0x0011, t01=0x010c}
0x1bcc…1be0              Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0011, t01=0x0142}
0x1be0…1bf2              Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0011, t01=0x0156}
0x1bf2…1c26              Head {h00=0x0030, h01=0x0050, text=» ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE «, t00=0x0011, t01=0x0168}
0x1c26…1c32              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x000c}
0x1c32…1c64              Head {h00=0x002e, h01=0x0050, text=»ADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER«, t00=0x0012, t01=0x0018}
0x1c64…1c7c              Head {h00=0x0014, h01=0x0050, text=»ADI035 LDK A1,1 «, t00=0x0012, t01=0x004a}
0x1c7c…1cb6              Head {h00=0x0036, h01=0x0050, text=» SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER «, t00=0x0012, t01=0x0062}
0x1cb6…1cd8              Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 TWO OUTPUTS ? «, t00=0x0012, t01=0x009c}
0x1cd8…1cec              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0012, t01=0x00be}
0x1cec…1d06              Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IHDI10 NO «, t00=0x0012, t01=0x00d2}
0x1d06…1d1c              Head {h00=0x0012, h01=0x0050, text=» RF IHDI20 YES«, t00=0x0012, t01=0x00ec}
0x1d1c…1d26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0102}
0x1d26…1d30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010c}
0x1d30…1d44              Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0012, t01=0x0116}
0x1d44…1d52              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x012a}
0x1d52…1d5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0138}
0x1d5c…1d66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d66…1d92              Head {h00=0x0028, h01=0x0050, text=»*   ORDER 07: WRITE PROGRAM DISPLAY «, t00=0x0012, t01=0x014c}
0x1d92…1d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0178}
0x1d9c…1db4              Head {h00=0x0014, h01=0x0050, text=»ADI050 LDK A3,0 «, t00=0x0012, t01=0x0182}
0x1db4…1dde              Head {h00=0x0026, h01=0x0050, text=»ADI060 CF A15,GETCHR GET CHARACTER«, t00=0x0013, t01=0x000a}
0x1dde…1e02              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x0013, t01=0x0034}
0x1e02…1e1c              Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADI070 YES «, t00=0x0013, t01=0x0058}
0x1e1c…1e2e              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0013, t01=0x0072}
0x1e2e…1e40              Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0013, t01=0x0084}
0x1e40…1e68              Head {h00=0x0024, h01=0x0050, text=» SUK A4,3 UNDEFINED CHARACTER ? «, t00=0x0013, t01=0x0096}
0x1e68…1e82              Head {h00=0x0016, h01=0x0050, text=» RF(L) ADI100 YES «, t00=0x0013, t01=0x00be}
0x1e82…1ea0              Head {h00=0x001a, h01=0x0050, text=» CWK A4,3 UNDEFINED ? «, t00=0x0013, t01=0x00d8}
0x1ea0…1eba              Head {h00=0x0016, h01=0x0050, text=» RF(G) ADI100 YES «, t00=0x0013, t01=0x00f6}
0x1eba…1ed4              Head {h00=0x0016, h01=0x0050, text=» ADKL A4,DWTDIB+2 «, t00=0x0013, t01=0x0110}
0x1ed4…1ee8              Head {h00=0x0010, h01=0x0050, text=» ADR A4,A6  «, t00=0x0013, t01=0x012a}
0x1ee8…1f18              Head {h00=0x002c, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN DWT-BUFFER«, t00=0x0013, t01=0x013e}
0x1f18…1f3e              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0013, t01=0x016e}
0x1f3e…1f7e (20, 0, 400) Head {h00=0x003c, h01=0x0050, text=»ADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER «, t00=0x0014, t01=0x0004}
0x1f7e…1fa0              Head {h00=0x001e, h01=0x0050, text=» RF IHDI10 SEND CHARACTERS«, t00=0x0014, t01=0x0044}
0x1fa0…1faa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0066}
0x1faa…1fb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0070}
0x1fb4…1fd2              Head {h00=0x001a, h01=0x0050, text=»*    CODE CHECK ERROR «, t00=0x0014, t01=0x007a}
0x1fd2…1fdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0098}
0x1fdc…2008              Head {h00=0x0028, h01=0x0050, text=»ADI100 LDK A1,CCERR SET RETURN CODE «, t00=0x0014, t01=0x00a2}
0x2008…2024              Head {h00=0x0018, h01=0x0050, text=» ORS A1,8,A8 IN ECB «, t00=0x0014, t01=0x00ce}
0x2024…204a              Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0014, t01=0x00ea}
0x204a…2056              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0110}
0x2056…2060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011c}
0x2060…206e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0126}
0x206e…2078              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0134}
0x2078…208c              Head {h00=0x0010, h01=0x0050, text=»*    I H D I«, t00=0x0014, t01=0x013e}
0x208c…2096              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0152}
0x2096…20ca              Head {h00=0x0030, h01=0x0050, text=»*   INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0014, t01=0x015c}
0x20ca…20d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0190}
0x20d4…20e6              Head {h00=0x000e, h01=0x0050, text=»IHDI EQU *«, t00=0x0015, t01=0x000a}
0x20e6…2104              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0015, t01=0x001c}
0x2104…2126              Head {h00=0x001e, h01=0x0050, text=» RF(NE) ENDIO YES END I/O «, t00=0x0015, t01=0x003a}
0x2126…2148              Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0015, t01=0x005c}
0x2148…215c              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0015, t01=0x007e}
0x215c…217e              Head {h00=0x001e, h01=0x0050, text=» SUK A4,2 TWO CHARS. SENT «, t00=0x0015, t01=0x0092}
0x217e…2192              Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0015, t01=0x00b4}
0x2192…21ac              Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IHDI05 NO «, t00=0x0015, t01=0x00c8}
0x21ac…21d6              Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET CHANNEL PARAMETER «, t00=0x0015, t01=0x00e2}
0x21d6…21f8              Head {h00=0x001e, h01=0x0050, text=» ANK A3,/20 PROGRAM STEP ?«, t00=0x0015, t01=0x010c}
0x21f8…221e              Head {h00=0x0022, h01=0x0050, text=» RF(Z) ENDIO NO. PERFORM ENDIO«, t00=0x0015, t01=0x012e}
0x221e…2246              Head {h00=0x0024, h01=0x0050, text=»IHDI05 SUK A4,4 LAST CHARACTER ?«, t00=0x0015, t01=0x0154}
0x2246…226e              Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO YES. PERFORM ENDIO «, t00=0x0015, t01=0x017c}
0x226e…228c              Head {h00=0x001a, h01=0x0050, text=»IHDI10 LDKL A2,DWTDIB «, t00=0x0016, t01=0x0014}
0x228c…22a0              Head {h00=0x0010, h01=0x0050, text=» ADR A2,A6  «, t00=0x0016, t01=0x0032}
0x22a0…22b8              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTST,A6 «, t00=0x0016, t01=0x0046}
0x22b8…22cc              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0016, t01=0x005e}
0x22cc…22de              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0016, t01=0x0072}
0x22de…22fe              Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0016, t01=0x0084}
0x22fe…230a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00a4}
0x230a…231e              Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=0 «, t00=0x0016, t01=0x00b0}
0x231e…2332              Head {h00=0x0010, h01=0x0050, text=» RF(Z) ENDIO«, t00=0x0016, t01=0x00c4}
0x2332…2368              Head {h00=0x0032, h01=0x0050, text=»IHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER «, t00=0x0016, t01=0x00d8}
0x2368…2374              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x010e}
0x2374…238c              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0016, t01=0x011a}
0x238c…23b8              Head {h00=0x0028, h01=0x0050, text=» RF(Z) OUTPUT IF POWER FAIL NO BELL «, t00=0x0016, t01=0x0132}
0x23b8…23d2              Head {h00=0x0016, h01=0x0050, text=» LD A3,10,A8 BELL?«, t00=0x0016, t01=0x015e}
0x23d2…23ec              Head {h00=0x0016, h01=0x0050, text=» RF(NN) OUTPUT NO «, t00=0x0016, t01=0x0178}
0x23ec…240e (23, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ORK A2,/40 INDICATE BELL «, t00=0x0017, t01=0x0004}
0x240e…2418              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0026}
0x2418…244a              Head {h00=0x002e, h01=0x0050, text=»OUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0017, t01=0x0030}
0x244a…2474              Head {h00=0x0026, h01=0x0050, text=»IHDI20 CF A15,OUTLIN OUTPUT CHAR. «, t00=0x0017, t01=0x0062}
0x2474…248a              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0017, t01=0x008c}
0x248a…24c0              Head {h00=0x0032, h01=0x0050, text=»ENDIO ABL DISEND PERFORM END I/O AND DISPATCH «, t00=0x0017, t01=0x00a2}
0x24c0…24ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d8}
0x24ca…24d8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00e2}
0x24d8…24e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f0}
0x24e2…24f6              Head {h00=0x0010, h01=0x0050, text=»*    R C D I«, t00=0x0017, t01=0x00fa}
0x24f6…2500              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010e}
0x2500…2542              Head {h00=0x003e, h01=0x0050, text=»*   RECIVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH «, t00=0x0017, t01=0x0118}
0x2542…2588              Head {h00=0x0042, h01=0x0050, text=»*   THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION «, t00=0x0017, t01=0x015a}
0x2588…25b8              Head {h00=0x002c, h01=0x0050, text=»*   OM PROGRAM DISPLAY IS ALSO RESTORED «, t00=0x0018, t01=0x0010}
0x25b8…25c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25c2…25cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25cc…25de              Head {h00=0x000e, h01=0x0050, text=»RCDI EQU *«, t00=0x0018, t01=0x0054}
0x25de…25f4              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0018, t01=0x0066}
0x25f4…261e              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0018, t01=0x007c}
0x261e…262a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00a6}
0x262a…2634              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b2}
0x2634…264a              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x00bc}
0x264a…2670              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0018, t01=0x00d2}
0x2670…267c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00f8}
0x267c…2686              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0104}
0x2686…26b2              Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTDIB,A6 GET FIRST CHARACTER«, t00=0x0018, t01=0x010e}
0x26b2…26c4              Head {h00=0x000e, h01=0x0050, text=» RB ADI035«, t00=0x0018, t01=0x013a}
0x26c4…26ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014c}
0x26ce…26d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0156}
0x26d8…26e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0160}
0x26e2…26ee              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0018, t01=0x016a}
0x26ee…26f6              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0176}
0x26f6…26fe              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x017e}
0x26fe…2706              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0186}
0x2706…270e              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x018e}
0x270e…2716              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0008}
0x2716…271a              Head {h00=0x4004, h01=0x0000}
0x271a…271e              00 19 00 10                                                                                                                                                                                                                                       ┆    ┆
0x271e…2726 (26, 1, 8)   20 04 00 00 00 1a 00 04                                                                                                                                                                                                                           ┆        ┆
0x2726…2776 (27, 0, 400) 00 12 01 70 00 18 00 50 5c 44 41 54 41 5c 32 5c 44 45 56 49 43 45 20 49 4e 44 45 58 00 13 00 08 00 1c 00 50 47 50 41 44 5c 45 51 55 5c 2a 5c 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 00 13 00 24 00 20 00 50 5c 44 41 54 41 5c 41 43 47 50 5c 41   ┆   p   P DATA 2 DEVICE INDEX       PGPAD EQU * ADDRESS BLOCK   $   P DATA ACGP A┆
0x2776…27c6              43 54 49 56 41 54 49 4f 4e 20 44 52 49 56 45 52 00 13 00 44 00 22 00 50 5c 44 41 54 41 5c 30 5c 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 41 44 44 52 45 53 53 20 00 13 00 68 00 20 00 50 5c 44 41 54 41 5c 49 48 47 50 5c 49 4e 54 45 52 52 55   ┆CTIVATION DRIVER   D " P DATA 0 ABORT ROUTINE ADDRESS    h   P DATA IHGP INTERRU┆
0x27c6…2816              50 54 20 48 41 4e 44 4c 45 52 00 13 00 8e 00 20 00 50 5c 44 41 54 41 5c 52 43 47 50 5c 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 20 00 13 00 b2 00 2e 00 50 5c 44 41 54 41 5c 45 43 48 4f 47 50 5c 44 45 56 49 43 45 2d 44 45 50 45 4e 44   ┆PT HANDLER       P DATA RCGP RECOVERY ROUTINE      . P DATA ECHOGP DEVICE-DEPEND┆
0x2816…2866              45 4e 54 20 45 43 48 4f 2d 52 4f 55 54 49 4e 45 00 13 00 d6 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 08 00 06 00 50 2a 20 00 13 01 16 00 10 00 50 2a 20 20 20 20 41 20 43 20 47 20 50 00 13 01 20 00 06 00 50 2a 20 00 13 01 34 00 32 00 50 2a 20   ┆ENT ECHO-ROUTINE       P EJECT       P*        P*    A C G P       P*    4 2 P* ┆
0x2866…28b6              20 20 20 41 43 47 50 20 3d 20 41 43 54 49 56 41 54 49 4f 4e 20 44 52 49 56 45 52 20 47 45 4e 45 52 41 4c 20 50 52 49 4e 54 45 52 20 00 13 01 3e 00 06 00 50 2a 20 00 13 01 74 00 48 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 30 3a 20 54 45 53   ┆   ACGP = ACTIVATION DRIVER GENERAL PRINTER    >   P*    t H P*    ORDER 00: TES┆
0x28b6…2906 (28, 0, 400) 54 20 53 54 41 54 55 53 2e 20 44 55 4d 4d 59 20 49 53 20 53 45 4e 54 20 54 4f 20 50 52 49 4e 54 45 52 20 41 4e 44 20 52 45 54 55 52 4e 20 43 4f 44 45 00 13 01 7e 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 53 20 53 45 54 20   ┆T STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE   ~ < P*              IS SET ┆
0x2906…2956              49 46 20 50 41 50 45 52 20 4f 55 54 20 4f 52 20 52 45 41 44 59 20 53 57 49 54 43 48 20 4f 46 46 2e 20 00 14 00 3a 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 20 49 53 20 41 4c 53 4f 20 53 45 54   ┆IF PAPER OUT OR READY SWITCH OFF.    : H P*              RETURN CODE IS ALSO SET┆
0x2956…29a6              20 49 46 20 54 49 4d 45 2d 4f 55 54 20 49 53 20 53 49 47 4e 41 4c 4c 45 44 20 46 52 4f 4d 00 14 00 7a 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 2e 00 14 00 c6 00 06 00 50 2a 20 00 14 00 ea   ┆ IF TIME-OUT IS SIGNALLED FROM   z   P*              CHANNEL UNIT.       P*     ┆
0x29a6…29f6              00 3e 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 35 3a 20 42 41 53 49 43 20 57 52 49 54 45 2e 20 43 48 41 52 41 43 54 45 52 20 41 52 45 20 53 45 4e 54 20 54 4f 20 50 52 49 4e 54 45 52 20 00 14 00 f4 00 22 00 50 2a 20 20 20 20 20 20 20 20 20   ┆ > P*    ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER      " P*         ┆
0x29f6…2a46              20 20 20 20 20 46 52 4f 4d 20 45 43 42 2d 42 55 46 46 45 52 00 14 01 36 00 06 00 50 2a 20 00 14 01 5c 00 46 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 36 3a 20 53 54 41 4e 44 41 52 44 20 57 52 49 54 45 2e 20 43 48 41 52 41 43 54 45 52 53 20   ┆     FROM ECB-BUFFER   6   P*      F P*    ORDER 06: STANDARD WRITE. CHARACTERS ┆

Reduced view