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

⟦437e201db⟧

    Length: 17254 (0x4366)
    Notes: pts_type(SC)
    Names: »DRTW01.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »M:DEMO/DRTW01.SC« 

PTS(SC)

	IDENT DRTW01 	REL 10.0 80-03-14 870105041000 




**************************************************
* 
*   PHILIPS TERMINAL SYSTE  PTS 
* 
*   DRTW01 = DRIVER TYPEWRITER PTS 6862 
* 
* 
* 
* 
* 
* 
**************************************************
* 
*   THIS DRIVER HANDLES INPUT AND OUTPUT TO TYPEWRITERS 
*   PTS 6862
* 
* 
	EJECT
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
	ENTRY	TWAD	ADDRESS BLOCK 
	ENTRY	IHTW 
	ENTRY	TWON 
	ENTRY	DWTW01 
* 
************* 
* EXTERNALS * 
************* 
* 
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	TDISP	DISPATCH 
	EXTRN	DISEND	DISPATCH AND ENDIO
	EXTRN	SETIME	SET TIME BEFORE TIME-OUT
	EXTRN	SAVE8	SAVE REGISTERS A1-A8 ON STACK
	EXTRN	DWTST	STATUS 
	EXTRN	DWTBC	BYTE COUNTER 
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTOR	DWT INDEX AND ORDER
	EXTRN	DWTA3	SAVE AREA A3 
	EXTRN	DWTA4	SAVE AREA A4 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB1	STACK BASE 1 IN DWT 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	DWTTP	TIMER POINTER
	EXTRN	INTSAV	SAVE AREA LAST INTRRUPT 
	EXTRN	PFPOST	PWF POST PROCESSING FLAG
	EJECT
* 
* 
********************
* I/O-INSTRUCTIONS
********************
* 
* 
TWSTRT	EQU	/42C0	CIO-START
TWHLT	EQU	/4280	CIO-HALT
TWINR	EQU	/4A00	INPUT 
TWOTR	EQU	/4200	OUTPUT
TWSST	EQU	/4AC0	SENSE STATUS
* 
* 
	EJECT
* 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
CR	EQU	/0D	CARRIAGE RETURN
LF	EQU	/0A	LINE FEED
LNGERR	EQU	/8	INCORRECT LENGTH
TPERR	EQU	/2	THROUGHPUT ERROR 
TIME	EQU	300	TIME BEFORE TIME-OUT 
* 
* 
************************
*  CONDITIONAL ASSEMBLY*
************************
* 
* 
X:A	EQU	0 
X:B	EQU	0 
X:C	EQU	60
X:D	EQU	10
X:E	EQU	6 

TIMOUT	EQU	0	 
POWUP	EQU	0 
DVBLEN	EQU	040
DVBKTB	EQU	X:D
DEVIND	EQU	X:E

CREDIT	EQU	1
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	EJECT
* 
* 
********************* 
* 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
* 
DWTHP	EQU	START+/18 
TWCLR	EQU	START+/15 
TWEOF	EQU	START+/16 
TWBSP	EQU	START+/14 
DWTA2	EQU	START+/1A 
	DATA	DVBKTB+DVBKTB	MMU KEY TABLE SIZE
	DATA	DVBLEN+DVBLEN	MMU BUFFER SIZE 
	DATA	DEVIND	DEVICE INDEX 
TWAD	EQU	*
	DATA	TWA	ACTIVATION PART 
	DATA	0	ABORT ROUTINE ADDRESS 
	EJECT
* 
* 
*   ACTIVATION PART: CHECK VALIDITY OF ORDERS 
* 
* 
TWA	EQU	* 
	LDK	A3,0 
	LD	A2,4,A8	GET REQUESTED LENGTH
	ABL(Z)	IHTW50	REQUESTED LENGTH =0
* 
* 
	LDR	A2,A7	COPY ORDER 
	RF(NP)	TWAERR	REQUEST ERROR
	SUK	A2,4 
	RF(Z)	TWAERR	REQUEST ERROR 
	RF(N)	TWAIN	INPUT REQUEST
	SUK	A2,2 
	RF(NP)	TWAOUT	OUTPUT REQUEST 
* 
* 
TWAERR	ABL	DISIOE	REQUEST ERROR 
	EJECT
* 
* 
TWAIN	EQU	* 
	IFT	TIMOUT=1 
	LD	A2,DWTTP,A6	GET TIMER POINTER 
	RF(Z)	TWA010	NO TIMING ON THIS DEVICE
	LDR	A1,A6	SAVE DWT-ADDRESS 
	CF	A15,SETIME
	DATA	TWTUT,TIME
	ST	A4,DWTTP,A6	SAVE TIMER BLOCK-ADDRESS
	XIF
TWA010	EQU	*
	IFT	POWUP=1
	LD	A2,DWTST,A6	GET DWT-STATUS
	ANKL	A2,/200 
	RF(Z)	TWA020	NOT FIRST READ AFTER POEWR UP 
	XRS	A2,DWTST,A6	RESET POINTER
	LDKL	A2,-2 
	ST	A2,10,A8	INDICATE POWER UP
	ABL	IHTW35	PERFORM ENDIO 
	XIF
TWA020	LDK	A2,/21 
* 
* 
READ	CF	A5,STRTIO	EXECUTE CIO-START 
	RF	RED030
RED020	CF	A5,STREG	SAVE REGISTERS 
	EJECT
* 
*   RETURN AFTER INTERRUPT
* 
* 
RED030	EQU	*
	IFT	TIMOUT=1 
	LDR	A1,A1
	RF(NZ)	RED037
	XIF
	SUK	A7,1 
	RF(P)	RED050	ORDERS 02/03
* 
* 
RED035	CF	A5,STORE	STORE CHARACTER IN BUFFER
	CW	A3,4,A8	
	RB(L)	RED020	GET NEXT CHARACTER
	LDR	A7,A7
	RF(Z)	RED040	BASIC READ
* 
* 
	LDK	A1,LNGERR	OVERFLOW 
RED037	ORS	A1,8,A8	SET RETURN CODE
* 
* 
	EJECT

RED040	EQU	*

	IFT	TIMOUT=1 
	LD	A7,DWTOR,A6	GET ORDER 
	ANK	A7,/FF	MASK ORDER
	CWK	A7,4	
	RF(G)	RED045	WRITE ORDER 
	LD	A4,DWTTP,A6	TIMER POINTER 
	RF(Z)	RED045	NO TIMIMG ON THIS DEVICE
	CM*	DWTTP,A6	RESET TIMER 
	XIF

RED045	EQU	*
	CF	A5,HLTIO	EXECUTE CIO-HALT 
	ABL	IHTW40	PERFORM TENDIO
	EJECT
* 
* 
* 
*   ORDERS 02,03
* 
* 
RED050	EQU	*
	LD	A1,10,A8	GET CONTROL WORD 
	RF(Z)	RED080	NO KEYTABLE 
	LCR	A4,A1	GET NUMBER OF KEYS 
	ANK	A4,/FF 
	ADR	A1,A4	ADDRESS TO LAST KEY
	ADK	A1,1 
RED060	SUK	A4,1 
	RF(N)	RED080	KEY NOT IN KEYTABLE 
	SUK	A1,1	DECREMENT ADDRESS 
	CCR	A2,A1	CHECK IF IN KEYTABLE 
	RB(NE)	RED060	NOT IN KEYTABLE
	ADR	A4,A4	DOUBLE INDEX 
	ST	A4,10,A8	STORE INDEX IN CONTROL WORD
RED070	CF	A5,STORE	STORE KEY IN KEYTABLE
	RB	RED040	EXECUTE CIO-HALT 
RED080	CC	A2,TWEOF,A6	
	RB(E)	RED070	STANDARD EOR-KEY
	CC	A2,TWBSP,A6 
	RF(E)	RED110	BACKSPACE 
	CC	A2,TWCLR,A6 
	RF(E)	RED110	CLEAR 
	EJECT
* 
* 
*   CHARACTER NOT FOUND IN KEYTABLE 
* 
* 
* 
RED090	LDR	A4,A2	COPY CHARACTER 
	ANK	A4,/FF	MASK
	LDR	A1,A7
	SUK	A1,1 
	RF(Z)	RED100	ORDER 02
	SUK	A4,/30	ORDER 03
	RF(N)	CODERR	LESS THAN /30 
	SUK	A4,/9
	RF(P)	CODERR	GREATER THAN /39
	RF	RED110
* 
* 
RED100	SUK	A4,/20 
	RF(N)	CODERR	LESS THAN /20 
	SUK	A4,/3F 
	RF(NP)	RED110	CORRECT CHARACTER
* 
* 
CODERR	LDK	A1,4	CODE CHECK ERROR
	ORS	A1,8,A8
	CF	A5,STORE	STORE CHARACTER IN ECB-BUFFER
	RB	RED040	EXECUTE CIO-HALT 
* 
* 
	EJECT
* 
* 
* 
RED110	CC	A2,TWBSP,A6 
	RF(E)	RED120	BACKSPACE 
	CC	A2,TWCLR,A6 
	RB(NE)	RED035
* 
* 
	LDK	A3,0	CLEAR ECB-BUFFER
	RB	RED020	GET NEXT CHARACTER 
* 
* 
RED120	SUK	A3,1	BACKSPACE 
	RB(NN)	RED020	GET NEXT CHARACTER 
	ADK	A3,1 
	RB	RED020	GET NEXT CHARACTER 
* 
* 
* 
	EJECT
* 
* 
*   W R I T E 
* 
*   ORDERS 05 AND 06:  BASIC AND STANDARD WRITE 
* 
* 
WRITE	EQU	* 
TWAOUT	EQU	*
	INH
	LDK	A4,0 
	LDK	A2,0 
	CF	A5,STRTIO	EXECUTE CIO-START 
* 
* 
	CWK	A7,5 
	RF(Z)	WRT050	ORDER 05
* 
* 
	LD	A3,2,A8	GET BUFFER ADDRESS
	LC	A3,1,A3	CONTROL CHARACTER 
	ANK	A3,/FF 
	SUK	A3,/2B 
	RF(Z)	WRT030	NO CR OR LF 
* 
* 
	ST	A4,DWTHP,A6	HEAD POSITION INDICATOR 
	LDK	A4,2 
	LDK	A2,CR	SEND CARRIAGE RETURN 
	EJECT
* 
* 
* 
WRT010	CF	A5,OTR	SEND CHARACTER 
* 
* 
	SUK	A4,1 
	RF(NP)	WRT020
WRT015	LDK	A2,LF	SEND LF
	RB	WRT010
* 
WRT020	SUK	A3,5 
	RB(Z)	WRT015	SEND SECOND LF
	SUK	A3,1 
	RF(NZ)	WRT030	 
	LDK	A2,/0C	SEND FORM FEED
	RB	WRT010
WRT030	LDK	A3,2	BUFFER POINTER
	RF	WRT050	GET CHARACTER
* 
* 
* 
WRT040	EQU	*
	CF	A5,OTR	SEND CHARACTER 
	IM	DWTST,A6	INCREMENT BYTE COUNTER 
	EJECT
* 
* 
* 
WRT050	CF	A5,GETCHR	GET CHARACTER FROM ECB-BUFFER 
	LDR	A1,A1	 
	RB(Z)	RED040	LAST CHARACTER
	CWK	A7,5 
	RB(Z)	WRT040	BASIC WRITE 
* 
* 
	LDR	A1,A2	ORDER 06: STANDARD WRITE 
	ANK	A1,/FF 
	SUK	A1,/07 
	RB(Z)	WRT040	BELL
* 
	SUK	A1,/A
	RF(E)	WRTTAB	TABULATION
* 
	SUK	A1,/F
	RF(L)	ERRCOD	LESS THAN /20 
	SUK	A1,/3F	
	RB(NP)	WRT040	BETWEEN /20-/5F
	SUK	A1,/20 
	RF(NP)	WRT060	BETWEEN /60-/7F
* 
* 
ERRCOD	LDK	A1,4 
	ORS	A1,8,A8
	RB	WRT050	GET NEXT CHARACTER 
* 
* 
WRT060	SUK	A2,/20 
	RB	WRT040
* 
* 
	EJECT
* 
* 
*   T A B U L A T I O N 
* 
* 
WRTTAB	EQU	*
	CF	A5,GETCHR	GET FIRST TAB.POSITION CHARACTER
	LDR	A4,A2	COPY 
	CF	A5,GETCHR	GET SECOND TAB. POSITION CHARACTER
	ANK	A2,/F
	ANK	A4,/F
	RF(Z)	TAB020 
TAB010	ADK	A2,/A
	SUK	A4,1 
	RB(NZ)	TAB010
* 
TAB020	SU	A2,DWTHP,A6	
	LC	A4,DWTBC,A6	GET NUMBER OF OUTPUT CHARACTERS 
	SUR	A2,A4	NUMBER OF SPACES TO BE SENT
	RB(NP)	WRT050	NO SPACES SHOULD BE SENT 
	LDR	A4,A2
TAB030	LDK	A2,/20	SEND BALNKS 
TAB040	CF	A5,OTR	SEND CHARACTER 
	IM	DWTST,A6	INCREMENT BYTE COUNTER 
	SUK	A4,1 
	RB(NZ)	TAB030	SEND ANOTHER SPACE 
	LDR	A3,A3
	RB(NZ)	WRT050	NOT RECOVERY 
	SC	A4,DWTBC,A6	RESET BYTE COUNTER
	LDK	A3,2	PRESET BUFFER INDEX 
	RB	WRT050	GET NEXT CHARACTER 
	EJECT
* 
* 
*   RECOVERY ROUTINE
* 
* 
* 
TWON	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A6,DWTW01	GET DWT-ADDRESS 
	IFT	POWUP=1
	LDKL	A1,/200 
	ORS	A1,DWTST,A6	INDICATE POWER UP
	XIF
	LD	A1,DWTST,A6 
	RF(N)	EXIT	DEVICE NOT BUSY 
TWON10	LD	A3,DWTA3,A6 
	LD	A7,DWTOR,A6	GET ORDER 
	ANK	A7,/FF 
	LD	A8,DWTECB,A6	ECB-ADDRESS
	LDKL	A5,DWTSB2 
	ADR	A5,A6	GET STACK BASE 
	SUK	A7,4	
	ABL(N)	TWA010	ORDERS 01,02,03
	SUK	A7,1 
	RF(Z)	TWON20	ORDER 05
	INH
	LDK	A2,0 
	CF	A5,STRTIO	EXECUTE CIO-START 
	LDK	A2,CR
	LDK	A3,0 
	LD	A4,DWTHP,A6 
	ADK	A4,1 
	RB	TAB040	REPRINT LAST REQUEST 
* 
TWON20	LDK	A1,TPERR	ORDER 05
	ABL	DISEND 
* 
* 
	EJECT
* 
* 
*   I H T W 
* 
*   INTERRUPT HANDLER: PROCESS OF INTERRUPT 
* 
* 
IHTW	EQU	*
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A6,DWTW01 
LDREG	EQU	* 
	LD	A3,DWTST,A6 
	RF(N)	SKIP	DEVICE NOT BUSY 
IHTW10	LDR*	A2,A6	GET DEVICE ADDRESS
	ORKL	A2,TWSST
	EXR	A2	EXECUTE SST 
	RF(A)	IHTW30	ENDIO 
	LD	A7,DWTOR,A6	GET ORDER 
	ANK	A7,/FF 
	SUK	A7,4 
	RF(P)	IHTW30 
	LDR*	A2,A6	GET DEVICE ADDRESS
	ORKL	A2,TWINR	 
	EXR	A2	EXECUTE INR 
	ANK	A2,/7F	MASK INPUT-CHARACTER
	EJECT
* 
	IFT	TIMOUT=1 
	LD	A1,DWTTP,A6	GET TIMER POINTER 
	RF(Z)	IHTW30	NO TIMING ON THIS DEVICE
	LDKL	A1,-TIME
	ST*	A1,DWTTP,A6
	XIF
* 
* 
IHTW30	LDK	A1,0 
	RF	LDREGE	RESTORE REGISTERS


IHTW35	EQU	*
	IFT	POWUP+TIMOUT=2 

	LD	A1,DWTTP,A6	TIMER POINTER 
	RF(Z)	IHTW40	NO TIMING ON THIS DEVICE
	CM*	DWTTP,A6	RESET TIMER 
	XIF
	EJECT
* 
* 
IHTW40	EQU	*
* 
* 
IHTW50	ST	A3,6,A8	SAVE EFFECTIVE LENGTH 
IHTW55	SUK	A7,4	
	RF(NP)	IHTW60	READ ORDER 
* 
* 
	LC	A3,DWTBC,A6	GET BYTE COUNTER
	ADS	A3,DWTHP,A6	UPDATE HEAD POSITION 
	LDK	A3,0 
	SC	A3,DWTBC,A6	CLEAR BYTE COUNTER
* 
IHTW60	EQU	*
	IFT	CREDIT=1 
	LD	A1,10,A8	CONVERT INDEX
	ADK	A1,2 
	SRL	A1,1 
	ST	A1,10,A8
	XIF
	LDK	A1,0 
	ABL	DISEND	PERFORM TENDIO
* 
* 

SKIP	LDR*	A2,A6 
	ORKL	A2,TWSST
	EXR	A2	SST 
	RF(A)	EXIT 
	LDR*	A2,A6 
	ORKL	A2,TWHLT
	EXR	A2	CIO HALT
	RF	EXIT
	EJECT
* 
* 
* 
*   I/O COMMANDS
* 
* 
STRTIO	LDKL	A1,TWSTRT	EXECUTE CIO-START 
	RF	EXECIO
HLTIO	LDKL	A1,TWHLT	        CIO-HALT
	RF	EXECIO
OTR	LDKL	A1,TWOTR	        OTR 
* 
* 
EXECIO	LD	A7,PFPOST 
	RF(NZ)	STREG	PFINIT PENDING
	ORR*	A1,A6	GET I/O-COMMAND 
	EXR	A1	EXECUTE COMMAND 
	RF(NA)	HALT
STREG	EQU	* 
	LDKL	A1,/100 
	ORS	A1,DWTST,A6	INDICATE INTERRUPTS ALLOWED
	ST	A3,DWTA3,A6	SAVE REGISTER A3
	ST	A4,DWTA4,A6	              A4
	ST	A5,DWTA5,A6	              A5
EXIT	ABL	TDISP
HALT	ST	A2,DWTA2,A6 
	CF	A5,HLTIO	EXECUTE CIO-HALT 
	LD	A2,DWTA2,A6 
	RB	STRTIO	RESTART REQUEST
* 
* 
	EJECT
* 
* 
* 
*   STORE CHARACTER IN ECB-BUFFER 
* 
* 
STORE	LD	A4,2,A8	GET BUFFER ADDRESS 
	ADR	A4,A3	GET CHARACTER ADDRESS
	SCR	A2,A4	STORE CHARACTER
	ADK	A3,1	INCREMENT BUFFER INDEX
	RTN	A5 
* 
* 
* 
	IFT	TIMOUT=1 
* 
* 
*   TIMOUT ROUTINE
* 
* 
TWTUT	EQU	* 
	LDR	A6,A1	GET DWT-ADDRESS
	LDK	A1,/40	TIME OUT RETURN CODE
	XIF
* 
* 
	EJECT
* 
* 
*   L D R E G E 
* 
*   RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5
* 
* 
LDREGE	EQU	*
	LD	A3,DWTA3,A6	RELOAD REGISTER A3
	LD	A4,DWTA4,A6	                A4
	LD	A5,DWTA5,A6	                A5
	LD	A7,DWTOR,A6 
	ANK	A7,/FF 
	LD	A8,DWTECB,A6
	RTN	A5	RETURN VIA A5-STACK 
	EJECT
* 
* 
*    G E T C H R
* 
*    SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER
* 
*    ON ENTRY:
* 
*    A3 = BUFFER INDEX
*    A8 = ECB-ADDRESS 
* 
*    ON EXIT: 
* 
*    A2 = CHARACTER 
*    A1 = 0 IF LAST CHARACTER ELSE # 0
* 
*    IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH
* 
* 
GETCHR	EQU	*
	LD	A1,4,A8	REQUESTED LENGTH
	SUR	A1,A3
	RF(NP)	GCH010	LAST CHARACTER REACHED 
	LD	A1,2,A8	GET BUFFER ADDRESS
	ADR	A1,A3
	LCR	A2,A1	CHAR. TO A2
	ANK	A2,/FF 
	ADK	A3,1	INCREMENT BUFFER INDEX
	RTN	A5 
GCH010	ST	A3,6,A8	STORE EFFECTIVE LENGTH
	RTN	A5 
	EJECT
* 
*   DEVICE WORK TABLE FOR TYPEWRITER
* 
* 
DWTW01	EQU	*	TABLE ENTRY
	DATA	/0010	CHANNEL PARAMETER 
	DATA	/8000	STATUS./8000 MEANS DEVICE READY 
	DATA	0	ECB ADDRESS 
	DATA	0	ORDER 
	DATA	TWAD	POINTER TO ADDRESS BLOCK 
	DATA	0	TTAB-ADDRESS
	DATA	0	WAIT/ACTIVATE INDICATOR 
	DATA	0	TERMINAL QUEUE
	IFT	MMUPAG=1 
	DATA	0	SAVE AREA USER ECB ADDRESS
	DATA	DEVECB	MMU ECB ADDRESS
	XIF
	DATA	0	OUTPUT QUEUE LINK 
	DATA	0	SAVE AREA FOR A3
	DATA	0	SAVE AREA FOR A4
	DATA	0	SAVE AREA FOR A5
	RES	4	STACK BASE 
	DATA	1	TIMER POINTER 
	DATA	0	ECHO DEVICE 
	DATA	/5F5E	LEFT BYTE BACKSPACE KEY 
			RIGHT BYTE CANCEL KEY
	DATA	/0D00	LEFT BYTE STANDARD EOR
			RIGHT BYTE DOUBLE ZERO 
	DATA	0	HEAD POSITION POINETR 
	DATA	0	SAVE AREA FOR A2
* 
	EJECT			DRTW01 
* 
* 
	IFT	MMUPAG=1 
DEVECB	EQU	*
	DATA	0 
	DATA	TW:BUF
	DATA	0,0,0,0 
	RES	DVBKTB+1 
TW:BUF	RES	DVBLEN+1 
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRTW01  REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x0046…004e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004a}
0x004e…0056              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0052}
0x0056…0090              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x005a}
0x0090…009a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00c2              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTE  PTS «, t00=0x0000, t01=0x009e}
0x00c2…00cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00fc              Head {h00=0x002c, h01=0x0050, text=»*   DRTW01 = DRIVER TYPEWRITER PTS 6862 «, t00=0x0000, t01=0x00d0}
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…0172              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x013c}
0x0172…017c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…01bc              Head {h00=0x003c, h01=0x0050, text=»*   THIS DRIVER HANDLES INPUT AND OUTPUT TO TYPEWRITERS «, t00=0x0000, t01=0x0180}
0x01bc…01d0              Head {h00=0x0010, h01=0x0050, text=»*   PTS 6862«, t00=0x0001, t01=0x0030}
0x01d0…01da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…01e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004e}
0x01e4…01f2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0058}
0x01f2…01fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x01fc…0206              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…021a              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x007a}
0x021a…022e              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x008e}
0x022e…0242              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00a2}
0x0242…024c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…026e              Head {h00=0x001e, h01=0x0050, text=» ENTRY TWAD ADDRESS BLOCK «, t00=0x0001, t01=0x00c0}
0x026e…0282              Head {h00=0x0010, h01=0x0050, text=» ENTRY IHTW «, t00=0x0001, t01=0x00e2}
0x0282…0296              Head {h00=0x0010, h01=0x0050, text=» ENTRY TWON «, t00=0x0001, t01=0x00f6}
0x0296…02ac              Head {h00=0x0012, h01=0x0050, text=» ENTRY DWTW01 «, t00=0x0001, t01=0x010a}
0x02ac…02b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02cc              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x012a}
0x02cc…02e2              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0140}
0x02e2…02f8              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0001, t01=0x0156}
0x02f8…0302              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0302…0326              Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0001, t01=0x0176}
0x0326…0344              Head {h00=0x001a, h01=0x0050, text=» EXTRN TDISP DISPATCH «, t00=0x0002, t01=0x000a}
0x0344…036c              Head {h00=0x0024, h01=0x0050, text=» EXTRN DISEND DISPATCH AND ENDIO«, t00=0x0002, t01=0x0028}
0x036c…039a              Head {h00=0x002a, h01=0x0050, text=» EXTRN SETIME SET TIME BEFORE TIME-OUT«, t00=0x0002, t01=0x0050}
0x039a…03cc              Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK«, t00=0x0002, t01=0x007e}
0x03cc…03e8              Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0002, t01=0x00b0}
0x03e8…040a              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0002, t01=0x00cc}
0x040a…042c              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0002, t01=0x00ee}
0x042c…0454              Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0002, t01=0x0110}
0x0454…0476              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0002, t01=0x0138}
0x0476…0498              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0002, t01=0x015a}
0x0498…04ba              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0002, t01=0x017c}
0x04ba…04e4              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB1 STACK BASE 1 IN DWT «, t00=0x0003, t01=0x000e}
0x04e4…050e              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0003, t01=0x0038}
0x050e…0530              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x0003, t01=0x0062}
0x0530…055e              Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTRRUPT «, t00=0x0003, t01=0x0084}
0x055e…058c              Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0003, t01=0x00b2}
0x058c…059a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00e0}
0x059a…05a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f8}
0x05ae…05ca              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0003, t01=0x0102}
0x05ca…05e4              Head {h00=0x0016, h01=0x0050, text=»* I/O-INSTRUCTIONS«, t00=0x0003, t01=0x011e}
0x05e4…0600              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0003, t01=0x0138}
0x0600…060a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0154}
0x060a…0614              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015e}
0x0614…0636              Head {h00=0x001e, h01=0x0050, text=»TWSTRT EQU /42C0 CIO-START«, t00=0x0003, t01=0x0168}
0x0636…0656              Head {h00=0x001c, h01=0x0050, text=»TWHLT EQU /4280 CIO-HALT«, t00=0x0003, t01=0x018a}
0x0656…0674              Head {h00=0x001a, h01=0x0050, text=»TWINR EQU /4A00 INPUT «, t00=0x0004, t01=0x001a}
0x0674…0692              Head {h00=0x001a, h01=0x0050, text=»TWOTR EQU /4200 OUTPUT«, t00=0x0004, t01=0x0038}
0x0692…06b6              Head {h00=0x0020, h01=0x0050, text=»TWSST EQU /4AC0 SENSE STATUS«, t00=0x0004, t01=0x0056}
0x06b6…06c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06c0…06ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0084}
0x06ca…06d8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x008e}
0x06d8…06e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009c}
0x06e2…06ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06ec…0702              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x00b0}
0x0702…0718              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0004, t01=0x00c6}
0x0718…072e              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x00dc}
0x072e…0738              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f2}
0x0738…0742              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00fc}
0x0742…0764              Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0004, t01=0x0106}
0x0764…0780              Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0004, t01=0x0128}
0x0780…07a6              Head {h00=0x0022, h01=0x0050, text=»LNGERR EQU /8 INCORRECT LENGTH«, t00=0x0004, t01=0x0144}
0x07a6…07cc              Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x0004, t01=0x016a}
0x07cc…07f6              Head {h00=0x0026, h01=0x0050, text=»TIME EQU 300 TIME BEFORE TIME-OUT «, t00=0x0004, t01=0x0190}
0x07f6…0800              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x0800…080a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x080a…082a              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x003e}
0x082a…084a              Head {h00=0x001c, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY*«, t00=0x0005, t01=0x005e}
0x084a…086a              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x007e}
0x086a…0874              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009e}
0x0874…087e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a8}
0x087e…0890              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0005, t01=0x00b2}
0x0890…08a2              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0005, t01=0x00c4}
0x08a2…08b4              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 60«, t00=0x0005, t01=0x00d6}
0x08b4…08c6              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 10«, t00=0x0005, t01=0x00e8}
0x08c6…08d8              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 6 «, t00=0x0005, t01=0x00fa}
0x08d8…08e0              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x010c}
0x08e0…08f6              Head {h00=0x0012, h01=0x0050, text=»TIMOUT EQU 0  «, t00=0x0005, t01=0x0114}
0x08f6…090a              Head {h00=0x0010, h01=0x0050, text=»POWUP EQU 0 «, t00=0x0005, t01=0x012a}
0x090a…0920              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 040«, t00=0x0005, t01=0x013e}
0x0920…0936              Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:D«, t00=0x0005, t01=0x0154}
0x0936…094c              Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU X:E«, t00=0x0005, t01=0x016a}
0x094c…0954              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0180}
0x0954…0968              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x0005, t01=0x0188}
0x0968…0972              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000c}
0x0972…09a4              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x0016}
0x09a4…09d2              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x0048}
0x09d2…09dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0076}
0x09dc…09f0              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0006, t01=0x0080}
0x09f0…09fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0094}
0x09fa…0a04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009e}
0x0a04…0a3e              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0006, t01=0x00a8}
0x0a3e…0a70              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x00e2}
0x0a70…0a7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a7a…0a8e              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0006, t01=0x011e}
0x0a8e…0a98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0132}
0x0a98…0aa6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x013c}
0x0aa6…0ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014a}
0x0ab0…0aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0aba…0ad8              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0006, t01=0x015e}
0x0ad8…0af6              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0006, t01=0x017c}
0x0af6…0b14              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0007, t01=0x000a}
0x0b14…0b1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0028}
0x0b1e…0b28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b28…0b5c              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0007, t01=0x003c}
0x0b5c…0b66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0070}
0x0b66…0b7c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0007, t01=0x007a}
0x0b7c…0b94              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0007, t01=0x0090}
0x0b94…0ba0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00a8}
0x0ba0…0baa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b4}
0x0baa…0bc0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0007, t01=0x00be}
0x0bc0…0bda              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0007, t01=0x00d4}
0x0bda…0be6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00ee}
0x0be6…0bf0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bf0…0c0c              Head {h00=0x0018, h01=0x0050, text=»DWTHP EQU START+/18 «, t00=0x0007, t01=0x0104}
0x0c0c…0c28              Head {h00=0x0018, h01=0x0050, text=»TWCLR EQU START+/15 «, t00=0x0007, t01=0x0120}
0x0c28…0c44              Head {h00=0x0018, h01=0x0050, text=»TWEOF EQU START+/16 «, t00=0x0007, t01=0x013c}
0x0c44…0c60              Head {h00=0x0018, h01=0x0050, text=»TWBSP EQU START+/14 «, t00=0x0007, t01=0x0158}
0x0c60…0c7c              Head {h00=0x0018, h01=0x0050, text=»DWTA2 EQU START+/1A «, t00=0x0007, t01=0x0174}
0x0c7c…0caa              Head {h00=0x002a, h01=0x0050, text=» DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE«, t00=0x0007, t01=0x0190}
0x0caa…0cd6              Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x0008, t01=0x002e}
0x0cd6…0cf8              Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x0008, t01=0x005a}
0x0cf8…0d0a              Head {h00=0x000e, h01=0x0050, text=»TWAD EQU *«, t00=0x0008, t01=0x007c}
0x0d0a…0d2c              Head {h00=0x001e, h01=0x0050, text=» DATA TWA ACTIVATION PART «, t00=0x0008, t01=0x008e}
0x0d2c…0d52              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0008, t01=0x00b0}
0x0d52…0d60              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00d6}
0x0d60…0d6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d6a…0d74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d74…0daa              Head {h00=0x0032, h01=0x0050, text=»*   ACTIVATION PART: CHECK VALIDITY OF ORDERS «, t00=0x0008, t01=0x00f8}
0x0daa…0db4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012e}
0x0db4…0dbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dbe…0dd0              Head {h00=0x000e, h01=0x0050, text=»TWA EQU * «, t00=0x0008, t01=0x0142}
0x0dd0…0de2              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0008, t01=0x0154}
0x0de2…0e0a              Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x0008, t01=0x0166}
0x0e0a…0e34              Head {h00=0x0026, h01=0x0050, text=» ABL(Z) IHTW50 REQUESTED LENGTH =0«, t00=0x0008, t01=0x018e}
0x0e34…0e3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e3e…0e48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e48…0e66              Head {h00=0x001a, h01=0x0050, text=» LDR A2,A7 COPY ORDER «, t00=0x0009, t01=0x003c}
0x0e66…0e8a              Head {h00=0x0020, h01=0x0050, text=» RF(NP) TWAERR REQUEST ERROR«, t00=0x0009, t01=0x005a}
0x0e8a…0e9c              Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x0009, t01=0x007e}
0x0e9c…0ec0              Head {h00=0x0020, h01=0x0050, text=» RF(Z) TWAERR REQUEST ERROR «, t00=0x0009, t01=0x0090}
0x0ec0…0ee2              Head {h00=0x001e, h01=0x0050, text=» RF(N) TWAIN INPUT REQUEST«, t00=0x0009, t01=0x00b4}
0x0ee2…0ef4              Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0009, t01=0x00d6}
0x0ef4…0f1a              Head {h00=0x0022, h01=0x0050, text=» RF(NP) TWAOUT OUTPUT REQUEST «, t00=0x0009, t01=0x00e8}
0x0f1a…0f24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x010e}
0x0f24…0f2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2e…0f56              Head {h00=0x0024, h01=0x0050, text=»TWAERR ABL DISIOE REQUEST ERROR «, t00=0x0009, t01=0x0122}
0x0f56…0f64              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x014a}
0x0f64…0f6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6e…0f78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0162}
0x0f78…0f8c              Head {h00=0x0010, h01=0x0050, text=»TWAIN EQU * «, t00=0x0009, t01=0x016c}
0x0f8c…0fa2              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x0009, t01=0x0180}
0x0fa2…0fcc              Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTTP,A6 GET TIMER POINTER «, t00=0x000a, t01=0x0008}
0x0fcc…0ffa              Head {h00=0x002a, h01=0x0050, text=» RF(Z) TWA010 NO TIMING ON THIS DEVICE«, t00=0x000a, t01=0x0032}
0x0ffa…101e              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDRESS «, t00=0x000a, t01=0x0060}
0x101e…1034              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x000a, t01=0x0084}
0x1034…104c              Head {h00=0x0014, h01=0x0050, text=» DATA TWTUT,TIME«, t00=0x000a, t01=0x009a}
0x104c…107c              Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS«, t00=0x000a, t01=0x00b2}
0x107c…1088              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00e2}
0x1088…109c              Head {h00=0x0010, h01=0x0050, text=»TWA010 EQU *«, t00=0x000a, t01=0x00ee}
0x109c…10b0              Head {h00=0x0010, h01=0x0050, text=» IFT POWUP=1«, t00=0x000a, t01=0x0102}
0x10b0…10d6              Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 GET DWT-STATUS«, t00=0x000a, t01=0x0116}
0x10d6…10ec              Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/200 «, t00=0x000a, t01=0x013c}
0x10ec…1120              Head {h00=0x0030, h01=0x0050, text=» RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP «, t00=0x000a, t01=0x0152}
0x1120…1146              Head {h00=0x0022, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POINTER«, t00=0x000a, t01=0x0186}
0x1146…115a              Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-2 «, t00=0x000b, t01=0x001c}
0x115a…1180              Head {h00=0x0022, h01=0x0050, text=» ST A2,10,A8 INDICATE POWER UP«, t00=0x000b, t01=0x0030}
0x1180…11a2              Head {h00=0x001e, h01=0x0050, text=» ABL IHTW35 PERFORM ENDIO «, t00=0x000b, t01=0x0056}
0x11a2…11ae              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0078}
0x11ae…11c8              Head {h00=0x0016, h01=0x0050, text=»TWA020 LDK A2,/21 «, t00=0x000b, t01=0x0084}
0x11c8…11d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009e}
0x11d2…11dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a8}
0x11dc…1208              Head {h00=0x0028, h01=0x0050, text=»READ CF A5,STRTIO EXECUTE CIO-START «, t00=0x000b, t01=0x00b2}
0x1208…121a              Head {h00=0x000e, h01=0x0050, text=» RF RED030«, t00=0x000b, t01=0x00de}
0x121a…1244              Head {h00=0x0026, h01=0x0050, text=»RED020 CF A5,STREG SAVE REGISTERS «, t00=0x000b, t01=0x00f0}
0x1244…1252              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x011a}
0x1252…125c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0128}
0x125c…127e              Head {h00=0x001e, h01=0x0050, text=»*   RETURN AFTER INTERRUPT«, t00=0x000b, t01=0x0132}
0x127e…1288              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0154}
0x1288…1292              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1292…12a6              Head {h00=0x0010, h01=0x0050, text=»RED030 EQU *«, t00=0x000b, t01=0x0168}
0x12a6…12bc              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000b, t01=0x017c}
0x12bc…12ce (12, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000c, t01=0x0004}
0x12ce…12e4              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RED037«, t00=0x000c, t01=0x0016}
0x12e4…12f0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x002c}
0x12f0…1302              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000c, t01=0x0038}
0x1302…1324              Head {h00=0x001e, h01=0x0050, text=» RF(P) RED050 ORDERS 02/03«, t00=0x000c, t01=0x004a}
0x1324…132e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x132e…1338              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x1338…136c              Head {h00=0x0030, h01=0x0050, text=»RED035 CF A5,STORE STORE CHARACTER IN BUFFER«, t00=0x000c, t01=0x0080}
0x136c…1380              Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x000c, t01=0x00b4}
0x1380…13a8              Head {h00=0x0024, h01=0x0050, text=» RB(L) RED020 GET NEXT CHARACTER«, t00=0x000c, t01=0x00c8}
0x13a8…13ba              Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x000c, t01=0x00f0}
0x13ba…13da              Head {h00=0x001c, h01=0x0050, text=» RF(Z) RED040 BASIC READ«, t00=0x000c, t01=0x0102}
0x13da…13e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0122}
0x13e4…13ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012c}
0x13ee…140e              Head {h00=0x001c, h01=0x0050, text=» LDK A1,LNGERR OVERFLOW «, t00=0x000c, t01=0x0136}
0x140e…1438              Head {h00=0x0026, h01=0x0050, text=»RED037 ORS A1,8,A8 SET RETURN CODE«, t00=0x000c, t01=0x0156}
0x1438…1442              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x1442…144c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018a}
0x144c…145a (13, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0004}
0x145a…1462              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0012}
0x1462…1476              Head {h00=0x0010, h01=0x0050, text=»RED040 EQU *«, t00=0x000d, t01=0x001a}
0x1476…147e              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x002e}
0x147e…1494              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000d, t01=0x0036}
0x1494…14b6              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x000d, t01=0x004c}
0x14b6…14d4              Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF MASK ORDER«, t00=0x000d, t01=0x006e}
0x14d4…14e6              Head {h00=0x000e, h01=0x0050, text=» CWK A7,4 «, t00=0x000d, t01=0x008c}
0x14e6…1508              Head {h00=0x001e, h01=0x0050, text=» RF(G) RED045 WRITE ORDER «, t00=0x000d, t01=0x009e}
0x1508…152e              Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP,A6 TIMER POINTER «, t00=0x000d, t01=0x00c0}
0x152e…155c              Head {h00=0x002a, h01=0x0050, text=» RF(Z) RED045 NO TIMIMG ON THIS DEVICE«, t00=0x000d, t01=0x00e6}
0x155c…157e              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x000d, t01=0x0114}
0x157e…158a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0136}
0x158a…1592              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0142}
0x1592…15a6              Head {h00=0x0010, h01=0x0050, text=»RED045 EQU *«, t00=0x000d, t01=0x014a}
0x15a6…15cc              Head {h00=0x0022, h01=0x0050, text=» CF A5,HLTIO EXECUTE CIO-HALT «, t00=0x000d, t01=0x015e}
0x15cc…15ee              Head {h00=0x001e, h01=0x0050, text=» ABL IHTW40 PERFORM TENDIO«, t00=0x000d, t01=0x0184}
0x15ee…15fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0016}
0x15fc…1606              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1606…1610              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002e}
0x1610…161a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0038}
0x161a…1632              Head {h00=0x0014, h01=0x0050, text=»*   ORDERS 02,03«, t00=0x000e, t01=0x0042}
0x1632…163c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x163c…1646              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1646…165a              Head {h00=0x0010, h01=0x0050, text=»RED050 EQU *«, t00=0x000e, t01=0x006e}
0x165a…1680              Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x000e, t01=0x0082}
0x1680…16a2              Head {h00=0x001e, h01=0x0050, text=» RF(Z) RED080 NO KEYTABLE «, t00=0x000e, t01=0x00a8}
0x16a2…16c8              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 GET NUMBER OF KEYS «, t00=0x000e, t01=0x00ca}
0x16c8…16dc              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x000e, t01=0x00f0}
0x16dc…1702              Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 ADDRESS TO LAST KEY«, t00=0x000e, t01=0x0104}
0x1702…1714              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000e, t01=0x012a}
0x1714…172c              Head {h00=0x0014, h01=0x0050, text=»RED060 SUK A4,1 «, t00=0x000e, t01=0x013c}
0x172c…1756              Head {h00=0x0026, h01=0x0050, text=» RF(N) RED080 KEY NOT IN KEYTABLE «, t00=0x000e, t01=0x0154}
0x1756…177a              Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT ADDRESS «, t00=0x000e, t01=0x017e}
0x177a…17a2              Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CHECK IF IN KEYTABLE «, t00=0x000f, t01=0x0012}
0x17a2…17c8              Head {h00=0x0022, h01=0x0050, text=» RB(NE) RED060 NOT IN KEYTABLE«, t00=0x000f, t01=0x003a}
0x17c8…17e8              Head {h00=0x001c, h01=0x0050, text=» ADR A4,A4 DOUBLE INDEX «, t00=0x000f, t01=0x0060}
0x17e8…1818              Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x000f, t01=0x0080}
0x1818…1848              Head {h00=0x002c, h01=0x0050, text=»RED070 CF A5,STORE STORE KEY IN KEYTABLE«, t00=0x000f, t01=0x00b0}
0x1848…186c              Head {h00=0x0020, h01=0x0050, text=» RB RED040 EXECUTE CIO-HALT «, t00=0x000f, t01=0x00e0}
0x186c…188a              Head {h00=0x001a, h01=0x0050, text=»RED080 CC A2,TWEOF,A6 «, t00=0x000f, t01=0x0104}
0x188a…18b0              Head {h00=0x0022, h01=0x0050, text=» RB(E) RED070 STANDARD EOR-KEY«, t00=0x000f, t01=0x0122}
0x18b0…18c8              Head {h00=0x0014, h01=0x0050, text=» CC A2,TWBSP,A6 «, t00=0x000f, t01=0x0148}
0x18c8…18e8              Head {h00=0x001c, h01=0x0050, text=» RF(E) RED110 BACKSPACE «, t00=0x000f, t01=0x0160}
0x18e8…1900              Head {h00=0x0014, h01=0x0050, text=» CC A2,TWCLR,A6 «, t00=0x000f, t01=0x0180}
0x1900…191c              Head {h00=0x0018, h01=0x0050, text=» RF(E) RED110 CLEAR «, t00=0x0010, t01=0x0008}
0x191c…192a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0024}
0x192a…1934              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0032}
0x1934…193e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003c}
0x193e…196a              Head {h00=0x0028, h01=0x0050, text=»*   CHARACTER NOT FOUND IN KEYTABLE «, t00=0x0010, t01=0x0046}
0x196a…1974              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1974…197e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007c}
0x197e…1988              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0086}
0x1988…19b0              Head {h00=0x0024, h01=0x0050, text=»RED090 LDR A4,A2 COPY CHARACTER «, t00=0x0010, t01=0x0090}
0x19b0…19c8              Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0010, t01=0x00b8}
0x19c8…19da              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0010, t01=0x00d0}
0x19da…19ec              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x00e2}
0x19ec…1a0a              Head {h00=0x001a, h01=0x0050, text=» RF(Z) RED100 ORDER 02«, t00=0x0010, t01=0x00f4}
0x1a0a…1a26              Head {h00=0x0018, h01=0x0050, text=» SUK A4,/30 ORDER 03«, t00=0x0010, t01=0x0112}
0x1a26…1a4a              Head {h00=0x0020, h01=0x0050, text=» RF(N) CODERR LESS THAN /30 «, t00=0x0010, t01=0x012e}
0x1a4a…1a5c              Head {h00=0x000e, h01=0x0050, text=» SUK A4,/9«, t00=0x0010, t01=0x0152}
0x1a5c…1a82              Head {h00=0x0022, h01=0x0050, text=» RF(P) CODERR GREATER THAN /39«, t00=0x0010, t01=0x0164}
0x1a82…1a94              Head {h00=0x000e, h01=0x0050, text=» RF RED110«, t00=0x0010, t01=0x018a}
0x1a94…1a9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000c}
0x1a9e…1aa8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0016}
0x1aa8…1ac2              Head {h00=0x0016, h01=0x0050, text=»RED100 SUK A4,/20 «, t00=0x0011, t01=0x0020}
0x1ac2…1ae6              Head {h00=0x0020, h01=0x0050, text=» RF(N) CODERR LESS THAN /20 «, t00=0x0011, t01=0x003a}
0x1ae6…1afa              Head {h00=0x0010, h01=0x0050, text=» SUK A4,/3F «, t00=0x0011, t01=0x005e}
0x1afa…1b22              Head {h00=0x0024, h01=0x0050, text=» RF(NP) RED110 CORRECT CHARACTER«, t00=0x0011, t01=0x0072}
0x1b22…1b2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009a}
0x1b2c…1b36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a4}
0x1b36…1b5e              Head {h00=0x0024, h01=0x0050, text=»CODERR LDK A1,4 CODE CHECK ERROR«, t00=0x0011, t01=0x00ae}
0x1b5e…1b72              Head {h00=0x0010, h01=0x0050, text=» ORS A1,8,A8«, t00=0x0011, t01=0x00d6}
0x1b72…1ba4              Head {h00=0x002e, h01=0x0050, text=» CF A5,STORE STORE CHARACTER IN ECB-BUFFER«, t00=0x0011, t01=0x00ea}
0x1ba4…1bc8              Head {h00=0x0020, h01=0x0050, text=» RB RED040 EXECUTE CIO-HALT «, t00=0x0011, t01=0x011c}
0x1bc8…1bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0140}
0x1bd2…1bdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014a}
0x1bdc…1bea              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0154}
0x1bea…1bf4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0162}
0x1bf4…1bfe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016c}
0x1bfe…1c08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0176}
0x1c08…1c26              Head {h00=0x001a, h01=0x0050, text=»RED110 CC A2,TWBSP,A6 «, t00=0x0011, t01=0x0180}
0x1c26…1c46              Head {h00=0x001c, h01=0x0050, text=» RF(E) RED120 BACKSPACE «, t00=0x0012, t01=0x000e}
0x1c46…1c5e              Head {h00=0x0014, h01=0x0050, text=» CC A2,TWCLR,A6 «, t00=0x0012, t01=0x002e}
0x1c5e…1c74              Head {h00=0x0012, h01=0x0050, text=» RB(NE) RED035«, t00=0x0012, t01=0x0046}
0x1c74…1c7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005c}
0x1c7e…1c88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0066}
0x1c88…1caa              Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 CLEAR ECB-BUFFER«, t00=0x0012, t01=0x0070}
0x1caa…1cd0              Head {h00=0x0022, h01=0x0050, text=» RB RED020 GET NEXT CHARACTER «, t00=0x0012, t01=0x0092}
0x1cd0…1cda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b8}
0x1cda…1ce4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1ce4…1d06              Head {h00=0x001e, h01=0x0050, text=»RED120 SUK A3,1 BACKSPACE «, t00=0x0012, t01=0x00cc}
0x1d06…1d30              Head {h00=0x0026, h01=0x0050, text=» RB(NN) RED020 GET NEXT CHARACTER «, t00=0x0012, t01=0x00ee}
0x1d30…1d42              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0012, t01=0x0118}
0x1d42…1d68              Head {h00=0x0022, h01=0x0050, text=» RB RED020 GET NEXT CHARACTER «, t00=0x0012, t01=0x012a}
0x1d68…1d72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d72…1d7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x1d7c…1d86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0164}
0x1d86…1d94              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x016e}
0x1d94…1d9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017c}
0x1d9e…1da8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1da8…1dbe              Head {h00=0x0012, h01=0x0050, text=»*   W R I T E «, t00=0x0012, t01=0x0190}
0x1dbe…1dc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc8…1e00              Head {h00=0x0034, h01=0x0050, text=»*   ORDERS 05 AND 06:  BASIC AND STANDARD WRITE «, t00=0x0013, t01=0x0020}
0x1e00…1e0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0058}
0x1e0a…1e14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0062}
0x1e14…1e28              Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0013, t01=0x006c}
0x1e28…1e3c              Head {h00=0x0010, h01=0x0050, text=»TWAOUT EQU *«, t00=0x0013, t01=0x0080}
0x1e3c…1e48              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x0094}
0x1e48…1e5a              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0013, t01=0x00a0}
0x1e5a…1e6c              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0013, t01=0x00b2}
0x1e6c…1e94              Head {h00=0x0024, h01=0x0050, text=» CF A5,STRTIO EXECUTE CIO-START «, t00=0x0013, t01=0x00c4}
0x1e94…1e9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ec}
0x1e9e…1ea8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f6}
0x1ea8…1eba              Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0013, t01=0x0100}
0x1eba…1ed8              Head {h00=0x001a, h01=0x0050, text=» RF(Z) WRT050 ORDER 05«, t00=0x0013, t01=0x0112}
0x1ed8…1ee2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0130}
0x1ee2…1eec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013a}
0x1eec…1f12              Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0013, t01=0x0144}
0x1f12…1f38              Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A3 CONTROL CHARACTER «, t00=0x0013, t01=0x016a}
0x1f38…1f4c              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0013, t01=0x0190}
0x1f4c…1f60              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/2B «, t00=0x0014, t01=0x0014}
0x1f60…1f82              Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRT030 NO CR OR LF «, t00=0x0014, t01=0x0028}
0x1f82…1f8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004a}
0x1f8c…1f96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f96…1fc6              Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTHP,A6 HEAD POSITION INDICATOR «, t00=0x0014, t01=0x005e}
0x1fc6…1fd8              Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0014, t01=0x008e}
0x1fd8…2000              Head {h00=0x0024, h01=0x0050, text=» LDK A2,CR SEND CARRIAGE RETURN «, t00=0x0014, t01=0x00a0}
0x2000…200e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c8}
0x200e…2018              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d6}
0x2018…2022              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e0}
0x2022…202c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ea}
0x202c…2054              Head {h00=0x0024, h01=0x0050, text=»WRT010 CF A5,OTR SEND CHARACTER «, t00=0x0014, t01=0x00f4}
0x2054…205e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011c}
0x205e…2068              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0126}
0x2068…207a              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0014, t01=0x0130}
0x207a…2090              Head {h00=0x0012, h01=0x0050, text=» RF(NP) WRT020«, t00=0x0014, t01=0x0142}
0x2090…20b0              Head {h00=0x001c, h01=0x0050, text=»WRT015 LDK A2,LF SEND LF«, t00=0x0014, t01=0x0158}
0x20b0…20c2              Head {h00=0x000e, h01=0x0050, text=» RB WRT010«, t00=0x0014, t01=0x0178}
0x20c2…20cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018a}
0x20cc…20e4 (21, 0, 400) Head {h00=0x0014, h01=0x0050, text=»WRT020 SUK A3,5 «, t00=0x0015, t01=0x0004}
0x20e4…2108              Head {h00=0x0020, h01=0x0050, text=» RB(Z) WRT015 SEND SECOND LF«, t00=0x0015, t01=0x001c}
0x2108…211a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0015, t01=0x0040}
0x211a…2132              Head {h00=0x0014, h01=0x0050, text=» RF(NZ) WRT030  «, t00=0x0015, t01=0x0052}
0x2132…2154              Head {h00=0x001e, h01=0x0050, text=» LDK A2,/0C SEND FORM FEED«, t00=0x0015, t01=0x006a}
0x2154…2166              Head {h00=0x000e, h01=0x0050, text=» RB WRT010«, t00=0x0015, t01=0x008c}
0x2166…218c              Head {h00=0x0022, h01=0x0050, text=»WRT030 LDK A3,2 BUFFER POINTER«, t00=0x0015, t01=0x009e}
0x218c…21ac              Head {h00=0x001c, h01=0x0050, text=» RF WRT050 GET CHARACTER«, t00=0x0015, t01=0x00c4}
0x21ac…21b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e4}
0x21b6…21c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ee}
0x21c0…21ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f8}
0x21ca…21de              Head {h00=0x0010, h01=0x0050, text=»WRT040 EQU *«, t00=0x0015, t01=0x0102}
0x21de…2200              Head {h00=0x001e, h01=0x0050, text=» CF A5,OTR SEND CHARACTER «, t00=0x0015, t01=0x0116}
0x2200…222c              Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0015, t01=0x0138}
0x222c…223a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0164}
0x223a…2244              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0172}
0x2244…224e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x224e…2258              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0186}
0x2258…2292              Head {h00=0x0036, h01=0x0050, text=»WRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0015, t01=0x0190}
0x2292…22a6              Head {h00=0x0010, h01=0x0050, text=» LDR A1,A1  «, t00=0x0016, t01=0x003a}
0x22a6…22ca              Head {h00=0x0020, h01=0x0050, text=» RB(Z) RED040 LAST CHARACTER«, t00=0x0016, t01=0x004e}
0x22ca…22dc              Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0016, t01=0x0072}
0x22dc…22fe              Head {h00=0x001e, h01=0x0050, text=» RB(Z) WRT040 BASIC WRITE «, t00=0x0016, t01=0x0084}
0x22fe…2308              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a6}
0x2308…2312              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b0}
0x2312…233e              Head {h00=0x0028, h01=0x0050, text=» LDR A1,A2 ORDER 06: STANDARD WRITE «, t00=0x0016, t01=0x00ba}
0x233e…2352              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0016, t01=0x00e6}
0x2352…2366              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/07 «, t00=0x0016, t01=0x00fa}
0x2366…2380              Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRT040 BELL«, t00=0x0016, t01=0x010e}
0x2380…238a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0128}
0x238a…239c              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/A«, t00=0x0016, t01=0x0132}
0x239c…23bc              Head {h00=0x001c, h01=0x0050, text=» RF(E) WRTTAB TABULATION«, t00=0x0016, t01=0x0144}
0x23bc…23c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0164}
0x23c6…23d8              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x0016, t01=0x016e}
0x23d8…23fc              Head {h00=0x0020, h01=0x0050, text=» RF(L) ERRCOD LESS THAN /20 «, t00=0x0016, t01=0x0180}
0x23fc…2410              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/3F «, t00=0x0017, t01=0x0014}
0x2410…2436              Head {h00=0x0022, h01=0x0050, text=» RB(NP) WRT040 BETWEEN /20-/5F«, t00=0x0017, t01=0x0028}
0x2436…244a              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x0017, t01=0x004e}
0x244a…2470              Head {h00=0x0022, h01=0x0050, text=» RF(NP) WRT060 BETWEEN /60-/7F«, t00=0x0017, t01=0x0062}
0x2470…247a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0088}
0x247a…2484              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0092}
0x2484…249c              Head {h00=0x0014, h01=0x0050, text=»ERRCOD LDK A1,4 «, t00=0x0017, t01=0x009c}
0x249c…24b0              Head {h00=0x0010, h01=0x0050, text=» ORS A1,8,A8«, t00=0x0017, t01=0x00b4}
0x24b0…24d6              Head {h00=0x0022, h01=0x0050, text=» RB WRT050 GET NEXT CHARACTER «, t00=0x0017, t01=0x00c8}
0x24d6…24e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ee}
0x24e0…24ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24ea…2504              Head {h00=0x0016, h01=0x0050, text=»WRT060 SUK A2,/20 «, t00=0x0017, t01=0x0102}
0x2504…2516              Head {h00=0x000e, h01=0x0050, text=» RB WRT040«, t00=0x0017, t01=0x011c}
0x2516…2520              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x012e}
0x2520…252a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0138}
0x252a…2538              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0142}
0x2538…2542              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0150}
0x2542…254c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015a}
0x254c…256c              Head {h00=0x001c, h01=0x0050, text=»*   T A B U L A T I O N «, t00=0x0017, t01=0x0164}
0x256c…2576              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x2576…2580              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018e}
0x2580…2594              Head {h00=0x0010, h01=0x0050, text=»WRTTAB EQU *«, t00=0x0018, t01=0x0008}
0x2594…25ca              Head {h00=0x0032, h01=0x0050, text=» CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER«, t00=0x0018, t01=0x001c}
0x25ca…25e2              Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 COPY «, t00=0x0018, t01=0x0052}
0x25e2…261a              Head {h00=0x0034, h01=0x0050, text=» CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER«, t00=0x0018, t01=0x006a}
0x261a…262c              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0018, t01=0x00a2}
0x262c…263e              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0018, t01=0x00b4}
0x263e…2654              Head {h00=0x0012, h01=0x0050, text=» RF(Z) TAB020 «, t00=0x0018, t01=0x00c6}
0x2654…266c              Head {h00=0x0014, h01=0x0050, text=»TAB010 ADK A2,/A«, t00=0x0018, t01=0x00dc}
0x266c…267e              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0018, t01=0x00f4}
0x267e…2694              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TAB010«, t00=0x0018, t01=0x0106}
0x2694…269e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011c}
0x269e…26bc              Head {h00=0x001a, h01=0x0050, text=»TAB020 SU A2,DWTHP,A6 «, t00=0x0018, t01=0x0126}
0x26bc…26f4              Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF OUTPUT CHARACTERS «, t00=0x0018, t01=0x0144}
0x26f4…2722              Head {h00=0x002a, h01=0x0050, text=» SUR A2,A4 NUMBER OF SPACES TO BE SENT«, t00=0x0018, t01=0x017c}
0x2722…2752              Head {h00=0x002c, h01=0x0050, text=» RB(NP) WRT050 NO SPACES SHOULD BE SENT «, t00=0x0019, t01=0x001a}
0x2752…2764              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0019, t01=0x004a}
0x2764…278a              Head {h00=0x0022, h01=0x0050, text=»TAB030 LDK A2,/20 SEND BALNKS «, t00=0x0019, t01=0x005c}
0x278a…27b2              Head {h00=0x0024, h01=0x0050, text=»TAB040 CF A5,OTR SEND CHARACTER «, t00=0x0019, t01=0x0082}
0x27b2…27de              Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0019, t01=0x00aa}
0x27de…27f0              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0019, t01=0x00d6}
0x27f0…281a              Head {h00=0x0026, h01=0x0050, text=» RB(NZ) TAB030 SEND ANOTHER SPACE «, t00=0x0019, t01=0x00e8}
0x281a…282c              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0019, t01=0x0112}
0x282c…2850              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) WRT050 NOT RECOVERY «, t00=0x0019, t01=0x0124}
0x2850…287a              Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0019, t01=0x0148}
0x287a…28a0              Head {h00=0x0022, h01=0x0050, text=» LDK A3,2 PRESET BUFFER INDEX «, t00=0x0019, t01=0x0172}
0x28a0…28c6              Head {h00=0x0022, h01=0x0050, text=» RB WRT050 GET NEXT CHARACTER «, t00=0x001a, t01=0x0008}
0x28c6…28d4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x002e}
0x28d4…28de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003c}
0x28de…28e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0046}
0x28e8…2904              Head {h00=0x0018, h01=0x0050, text=»*   RECOVERY ROUTINE«, t00=0x001a, t01=0x0050}
0x2904…290e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006c}
0x290e…2918              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0076}
0x2918…2922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0080}
0x2922…2934              Head {h00=0x000e, h01=0x0050, text=»TWON EQU *«, t00=0x001a, t01=0x008a}
0x2934…294a              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001a, t01=0x009c}
0x294a…2974              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001a, t01=0x00b2}
0x2974…2980              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00dc}
0x2980…298a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e8}
0x298a…29a0              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001a, t01=0x00f2}
0x29a0…29c6              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001a, t01=0x0108}
0x29c6…29d2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x012e}
0x29d2…29dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x013a}
0x29dc…2a04              Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWTW01 GET DWT-ADDRESS «, t00=0x001a, t01=0x0144}
0x2a04…2a18              Head {h00=0x0010, h01=0x0050, text=» IFT POWUP=1«, t00=0x001a, t01=0x016c}
0x2a18…2a2e              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x001a, t01=0x0180}
0x2a2e…2a58              Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER UP«, t00=0x001b, t01=0x0008}
0x2a58…2a64              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0032}
0x2a64…2a7c              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x001b, t01=0x003e}
0x2a7c…2aa0              Head {h00=0x0020, h01=0x0050, text=» RF(N) EXIT DEVICE NOT BUSY «, t00=0x001b, t01=0x0056}
0x2aa0…2abe              Head {h00=0x001a, h01=0x0050, text=»TWON10 LD A3,DWTA3,A6 «, t00=0x001b, t01=0x007a}
0x2abe…2ae0              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001b, t01=0x0098}
0x2ae0…2af4              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x001b, t01=0x00ba}
0x2af4…2b18              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB-ADDRESS«, t00=0x001b, t01=0x00ce}
0x2b18…2b30              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x001b, t01=0x00f2}
0x2b30…2b52              Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x001b, t01=0x010a}
0x2b52…2b64              Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x001b, t01=0x012c}
0x2b64…2b8a              Head {h00=0x0022, h01=0x0050, text=» ABL(N) TWA010 ORDERS 01,02,03«, t00=0x001b, t01=0x013e}
0x2b8a…2b9c              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x001b, t01=0x0164}
0x2b9c…2bba              Head {h00=0x001a, h01=0x0050, text=» RF(Z) TWON20 ORDER 05«, t00=0x001b, t01=0x0176}
0x2bba…2bc6 (28, 0, 400) Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x0004}
0x2bc6…2bd8              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x0010}
0x2bd8…2c00              Head {h00=0x0024, h01=0x0050, text=» CF A5,STRTIO EXECUTE CIO-START «, t00=0x001c, t01=0x0022}
0x2c00…2c12              Head {h00=0x000e, h01=0x0050, text=» LDK A2,CR«, t00=0x001c, t01=0x004a}
0x2c12…2c24              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001c, t01=0x005c}
0x2c24…2c3c              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTHP,A6 «, t00=0x001c, t01=0x006e}
0x2c3c…2c4e              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x0086}
0x2c4e…2c76              Head {h00=0x0024, h01=0x0050, text=» RB TAB040 REPRINT LAST REQUEST «, t00=0x001c, t01=0x0098}
0x2c76…2c80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c0}
0x2c80…2ca4              Head {h00=0x0020, h01=0x0050, text=»TWON20 LDK A1,TPERR ORDER 05«, t00=0x001c, t01=0x00ca}
0x2ca4…2cb8              Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x001c, t01=0x00ee}
0x2cb8…2cc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0102}
0x2cc2…2ccc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x010c}
0x2ccc…2cda              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0116}
0x2cda…2ce4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0124}
0x2ce4…2cee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012e}
0x2cee…2d02              Head {h00=0x0010, h01=0x0050, text=»*   I H T W «, t00=0x001c, t01=0x0138}
0x2d02…2d0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014c}
0x2d0c…2d40              Head {h00=0x0030, h01=0x0050, text=»*   INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x001c, t01=0x0156}
0x2d40…2d4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018a}
0x2d4a…2d54 (29, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d54…2d66              Head {h00=0x000e, h01=0x0050, text=»IHTW EQU *«, t00=0x001d, t01=0x000e}
0x2d66…2d8e              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x001d, t01=0x0020}
0x2d8e…2da4              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001d, t01=0x0048}
0x2da4…2dce              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001d, t01=0x005e}
0x2dce…2dda              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0088}
0x2dda…2de4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0094}
0x2de4…2dfa              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001d, t01=0x009e}
0x2dfa…2e20              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001d, t01=0x00b4}
0x2e20…2e2c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00da}
0x2e2c…2e36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e6}
0x2e36…2e4e              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWTW01 «, t00=0x001d, t01=0x00f0}
0x2e4e…2e62              Head {h00=0x0010, h01=0x0050, text=»LDREG EQU * «, t00=0x001d, t01=0x0108}
0x2e62…2e7a              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x001d, t01=0x011c}
0x2e7a…2e9e              Head {h00=0x0020, h01=0x0050, text=» RF(N) SKIP DEVICE NOT BUSY «, t00=0x001d, t01=0x0134}
0x2e9e…2eca              Head {h00=0x0028, h01=0x0050, text=»IHTW10 LDR* A2,A6 GET DEVICE ADDRESS«, t00=0x001d, t01=0x0158}
0x2eca…2ee0              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWSST«, t00=0x001d, t01=0x0184}
0x2ee0…2efc              Head {h00=0x0018, h01=0x0050, text=» EXR A2 EXECUTE SST «, t00=0x001e, t01=0x000a}
0x2efc…2f18              Head {h00=0x0018, h01=0x0050, text=» RF(A) IHTW30 ENDIO «, t00=0x001e, t01=0x0026}
0x2f18…2f3a              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001e, t01=0x0042}
0x2f3a…2f4e              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x001e, t01=0x0064}
0x2f4e…2f60              Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x001e, t01=0x0078}
0x2f60…2f76              Head {h00=0x0012, h01=0x0050, text=» RF(P) IHTW30 «, t00=0x001e, t01=0x008a}
0x2f76…2f9c              Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 GET DEVICE ADDRESS«, t00=0x001e, t01=0x00a0}
0x2f9c…2fb4              Head {h00=0x0014, h01=0x0050, text=» ORKL A2,TWINR  «, t00=0x001e, t01=0x00c6}
0x2fb4…2fd0              Head {h00=0x0018, h01=0x0050, text=» EXR A2 EXECUTE INR «, t00=0x001e, t01=0x00de}
0x2fd0…2ff8              Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F MASK INPUT-CHARACTER«, t00=0x001e, t01=0x00fa}
0x2ff8…3006              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0122}
0x3006…3010              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0130}
0x3010…3026              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x001e, t01=0x013a}
0x3026…3050              Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTP,A6 GET TIMER POINTER «, t00=0x001e, t01=0x0150}
0x3050…307e              Head {h00=0x002a, h01=0x0050, text=» RF(Z) IHTW30 NO TIMING ON THIS DEVICE«, t00=0x001e, t01=0x017a}
0x307e…3094              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x001f, t01=0x0018}
0x3094…30ac              Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x001f, t01=0x002e}
0x30ac…30b8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0046}
0x30b8…30c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30c2…30cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x005c}
0x30cc…30e4              Head {h00=0x0014, h01=0x0050, text=»IHTW30 LDK A1,0 «, t00=0x001f, t01=0x0066}
0x30e4…3108              Head {h00=0x0020, h01=0x0050, text=» RF LDREGE RESTORE REGISTERS«, t00=0x001f, t01=0x007e}
0x3108…3110              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00a2}
0x3110…3118              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00aa}
0x3118…312c              Head {h00=0x0010, h01=0x0050, text=»IHTW35 EQU *«, t00=0x001f, t01=0x00b2}
0x312c…3148              Head {h00=0x0018, h01=0x0050, text=» IFT POWUP+TIMOUT=2 «, t00=0x001f, t01=0x00c6}
0x3148…3150              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00e2}
0x3150…3176              Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTTP,A6 TIMER POINTER «, t00=0x001f, t01=0x00ea}
0x3176…31a4              Head {h00=0x002a, h01=0x0050, text=» RF(Z) IHTW40 NO TIMING ON THIS DEVICE«, t00=0x001f, t01=0x0110}
0x31a4…31c6              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x001f, t01=0x013e}
0x31c6…31d2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0160}
0x31d2…31e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x016c}
0x31e0…31ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017a}
0x31ea…31f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0184}
0x31f4…3208              Head {h00=0x0010, h01=0x0050, text=»IHTW40 EQU *«, t00=0x001f, t01=0x018e}
0x3208…3212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x3212…321c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001c}
0x321c…324c              Head {h00=0x002c, h01=0x0050, text=»IHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH «, t00=0x0020, t01=0x0026}
0x324c…3264              Head {h00=0x0014, h01=0x0050, text=»IHTW55 SUK A7,4 «, t00=0x0020, t01=0x0056}
0x3264…3286              Head {h00=0x001e, h01=0x0050, text=» RF(NP) IHTW60 READ ORDER «, t00=0x0020, t01=0x006e}
0x3286…3290              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0090}
0x3290…329a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009a}
0x329a…32c2              Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTBC,A6 GET BYTE COUNTER«, t00=0x0020, t01=0x00a4}
0x32c2…32f0              Head {h00=0x002a, h01=0x0050, text=» ADS A3,DWTHP,A6 UPDATE HEAD POSITION «, t00=0x0020, t01=0x00cc}
0x32f0…3302              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0020, t01=0x00fa}
0x3302…332c              Head {h00=0x0026, h01=0x0050, text=» SC A3,DWTBC,A6 CLEAR BYTE COUNTER«, t00=0x0020, t01=0x010c}
0x332c…3336              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0136}
0x3336…334a              Head {h00=0x0010, h01=0x0050, text=»IHTW60 EQU *«, t00=0x0020, t01=0x0140}
0x334a…3360              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0020, t01=0x0154}
0x3360…3382              Head {h00=0x001e, h01=0x0050, text=» LD A1,10,A8 CONVERT INDEX«, t00=0x0020, t01=0x016a}
0x3382…3394              Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0020, t01=0x018c}
0x3394…33a6              Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0021, t01=0x000e}
0x33a6…33ba              Head {h00=0x0010, h01=0x0050, text=» ST A1,10,A8«, t00=0x0021, t01=0x0020}
0x33ba…33c6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0034}
0x33c6…33d8              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0040}
0x33d8…33fa              Head {h00=0x001e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO«, t00=0x0021, t01=0x0052}
0x33fa…3404              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0074}
0x3404…340e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007e}
0x340e…3416              Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0088}
0x3416…342e              Head {h00=0x0014, h01=0x0050, text=»SKIP LDR* A2,A6 «, t00=0x0021, t01=0x0090}
0x342e…3444              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWSST«, t00=0x0021, t01=0x00a8}
0x3444…3458              Head {h00=0x0010, h01=0x0050, text=» EXR A2 SST «, t00=0x0021, t01=0x00be}
0x3458…346c              Head {h00=0x0010, h01=0x0050, text=» RF(A) EXIT «, t00=0x0021, t01=0x00d2}
0x346c…3480              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A6 «, t00=0x0021, t01=0x00e6}
0x3480…3496              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWHLT«, t00=0x0021, t01=0x00fa}
0x3496…34ae              Head {h00=0x0014, h01=0x0050, text=» EXR A2 CIO HALT«, t00=0x0021, t01=0x0110}
0x34ae…34be              Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0021, t01=0x0128}
0x34be…34cc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0138}
0x34cc…34d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0146}
0x34d6…34e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0150}
0x34e0…34ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x015a}
0x34ea…3502              Head {h00=0x0014, h01=0x0050, text=»*   I/O COMMANDS«, t00=0x0021, t01=0x0164}
0x3502…350c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017c}
0x350c…3516              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0186}
0x3516…3546              Head {h00=0x002c, h01=0x0050, text=»STRTIO LDKL A1,TWSTRT EXECUTE CIO-START «, t00=0x0021, t01=0x0190}
0x3546…3558              Head {h00=0x000e, h01=0x0050, text=» RF EXECIO«, t00=0x0022, t01=0x0030}
0x3558…3584              Head {h00=0x0028, h01=0x0050, text=»HLTIO LDKL A1,TWHLT         CIO-HALT«, t00=0x0022, t01=0x0042}
0x3584…3596              Head {h00=0x000e, h01=0x0050, text=» RF EXECIO«, t00=0x0022, t01=0x006e}
0x3596…35bc              Head {h00=0x0022, h01=0x0050, text=»OTR LDKL A1,TWOTR         OTR «, t00=0x0022, t01=0x0080}
0x35bc…35c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a6}
0x35c6…35d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b0}
0x35d0…35ec              Head {h00=0x0018, h01=0x0050, text=»EXECIO LD A7,PFPOST «, t00=0x0022, t01=0x00ba}
0x35ec…3610              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STREG PFINIT PENDING«, t00=0x0022, t01=0x00d6}
0x3610…3634              Head {h00=0x0020, h01=0x0050, text=» ORR* A1,A6 GET I/O-COMMAND «, t00=0x0022, t01=0x00fa}
0x3634…3654              Head {h00=0x001c, h01=0x0050, text=» EXR A1 EXECUTE COMMAND «, t00=0x0022, t01=0x011e}
0x3654…3668              Head {h00=0x0010, h01=0x0050, text=» RF(NA) HALT«, t00=0x0022, t01=0x013e}
0x3668…367c              Head {h00=0x0010, h01=0x0050, text=»STREG EQU * «, t00=0x0022, t01=0x0152}
0x367c…3692              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x0022, t01=0x0166}
0x3692…36c6              Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED«, t00=0x0022, t01=0x017c}
0x36c6…36ee              Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE REGISTER A3«, t00=0x0023, t01=0x0020}
0x36ee…3716              Head {h00=0x0024, h01=0x0050, text=» ST A4,DWTA4,A6               A4«, t00=0x0023, t01=0x0048}
0x3716…373e              Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTA5,A6               A5«, t00=0x0023, t01=0x0070}
0x373e…3754              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0023, t01=0x0098}
0x3754…3770              Head {h00=0x0018, h01=0x0050, text=»HALT ST A2,DWTA2,A6 «, t00=0x0023, t01=0x00ae}
0x3770…3796              Head {h00=0x0022, h01=0x0050, text=» CF A5,HLTIO EXECUTE CIO-HALT «, t00=0x0023, t01=0x00ca}
0x3796…37ae              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0023, t01=0x00f0}
0x37ae…37d0              Head {h00=0x001e, h01=0x0050, text=» RB STRTIO RESTART REQUEST«, t00=0x0023, t01=0x0108}
0x37d0…37da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x012a}
0x37da…37e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0134}
0x37e4…37f2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x013e}
0x37f2…37fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014c}
0x37fc…3806              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0156}
0x3806…3810              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0160}
0x3810…383a              Head {h00=0x0026, h01=0x0050, text=»*   STORE CHARACTER IN ECB-BUFFER «, t00=0x0023, t01=0x016a}
0x383a…3844 (36, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0004}
0x3844…384e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000e}
0x384e…387a              Head {h00=0x0028, h01=0x0050, text=»STORE LD A4,2,A8 GET BUFFER ADDRESS «, t00=0x0024, t01=0x0018}
0x387a…38a2              Head {h00=0x0024, h01=0x0050, text=» ADR A4,A3 GET CHARACTER ADDRESS«, t00=0x0024, t01=0x0044}
0x38a2…38c4              Head {h00=0x001e, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER«, t00=0x0024, t01=0x006c}
0x38c4…38ec              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0024, t01=0x008e}
0x38ec…38fc              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0024, t01=0x00b6}
0x38fc…3906              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c6}
0x3906…3910              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d0}
0x3910…391a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00da}
0x391a…3930              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x0024, t01=0x00e4}
0x3930…393a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fa}
0x393a…3944              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0104}
0x3944…395e              Head {h00=0x0016, h01=0x0050, text=»*   TIMOUT ROUTINE«, t00=0x0024, t01=0x010e}
0x395e…3968              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0128}
0x3968…3972              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0132}
0x3972…3986              Head {h00=0x0010, h01=0x0050, text=»TWTUT EQU * «, t00=0x0024, t01=0x013c}
0x3986…39a8              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x0024, t01=0x0150}
0x39a8…39d0              Head {h00=0x0024, h01=0x0050, text=» LDK A1,/40 TIME OUT RETURN CODE«, t00=0x0024, t01=0x0172}
0x39d0…39dc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x000a}
0x39dc…39e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0016}
0x39e6…39f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0020}
0x39f0…39fe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x002a}
0x39fe…3a08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x3a08…3a12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x3a12…3a2a              Head {h00=0x0014, h01=0x0050, text=»*   L D R E G E «, t00=0x0025, t01=0x004c}
0x3a2a…3a34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0064}
0x3a34…3a70              Head {h00=0x0038, h01=0x0050, text=»*   RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5«, t00=0x0025, t01=0x006e}
0x3a70…3a7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00aa}
0x3a7a…3a84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b4}
0x3a84…3a98              Head {h00=0x0010, h01=0x0050, text=»LDREGE EQU *«, t00=0x0025, t01=0x00be}
0x3a98…3ac2              Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD REGISTER A3«, t00=0x0025, t01=0x00d2}
0x3ac2…3aec              Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6                 A4«, t00=0x0025, t01=0x00fc}
0x3aec…3b16              Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6                 A5«, t00=0x0025, t01=0x0126}
0x3b16…3b2e              Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0025, t01=0x0150}
0x3b2e…3b42              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0025, t01=0x0168}
0x3b42…3b5a              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0025, t01=0x017c}
0x3b5a…3b7e (38, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RTN A5 RETURN VIA A5-STACK «, t00=0x0026, t01=0x0004}
0x3b7e…3b8c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0028}
0x3b8c…3b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0036}
0x3b96…3ba0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0040}
0x3ba0…3bb8              Head {h00=0x0014, h01=0x0050, text=»*    G E T C H R«, t00=0x0026, t01=0x004a}
0x3bb8…3bc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bc2…3bfe              Head {h00=0x0038, h01=0x0050, text=»*    SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x0026, t01=0x006c}
0x3bfe…3c08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a8}
0x3c08…3c1e              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0026, t01=0x00b2}
0x3c1e…3c28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c8}
0x3c28…3c46              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x0026, t01=0x00d2}
0x3c46…3c64              Head {h00=0x001a, h01=0x0050, text=»*    A8 = ECB-ADDRESS «, t00=0x0026, t01=0x00f0}
0x3c64…3c6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010e}
0x3c6e…3c84              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0026, t01=0x0118}
0x3c84…3c8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012e}
0x3c8e…3caa              Head {h00=0x0018, h01=0x0050, text=»*    A2 = CHARACTER «, t00=0x0026, t01=0x0138}
0x3caa…3cd8              Head {h00=0x002a, h01=0x0050, text=»*    A1 = 0 IF LAST CHARACTER ELSE # 0«, t00=0x0026, t01=0x0154}
0x3cd8…3ce2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0182}
0x3ce2…3d30              Head {h00=0x004a, h01=0x0050, text=»*    IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH«, t00=0x0026, t01=0x018c}
0x3d30…3d3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x004a}
0x3d3a…3d44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0054}
0x3d44…3d58              Head {h00=0x0010, h01=0x0050, text=»GETCHR EQU *«, t00=0x0027, t01=0x005e}
0x3d58…3d7c              Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A8 REQUESTED LENGTH«, t00=0x0027, t01=0x0072}
0x3d7c…3d8e              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0027, t01=0x0096}
0x3d8e…3dbc              Head {h00=0x002a, h01=0x0050, text=» RF(NP) GCH010 LAST CHARACTER REACHED «, t00=0x0027, t01=0x00a8}
0x3dbc…3de2              Head {h00=0x0022, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS«, t00=0x0027, t01=0x00d6}
0x3de2…3df4              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0027, t01=0x00fc}
0x3df4…3e12              Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0027, t01=0x010e}
0x3e12…3e26              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x012c}
0x3e26…3e4e              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0027, t01=0x0140}
0x3e4e…3e5e              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0027, t01=0x0168}
0x3e5e…3e8e              Head {h00=0x002c, h01=0x0050, text=»GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0027, t01=0x0178}
0x3e8e…3e9e              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0028, t01=0x0018}
0x3e9e…3eac              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0028}
0x3eac…3eb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eb6…3ee2              Head {h00=0x0028, h01=0x0050, text=»*   DEVICE WORK TABLE FOR TYPEWRITER«, t00=0x0028, t01=0x0040}
0x3ee2…3eec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006c}
0x3eec…3ef6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0076}
0x3ef6…3f16              Head {h00=0x001c, h01=0x0050, text=»DWTW01 EQU * TABLE ENTRY«, t00=0x0028, t01=0x0080}
0x3f16…3f3c              Head {h00=0x0022, h01=0x0050, text=» DATA /0010 CHANNEL PARAMETER «, t00=0x0028, t01=0x00a0}
0x3f3c…3f70              Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0028, t01=0x00c6}
0x3f70…3f8c              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0028, t01=0x00fa}
0x3f8c…3fa2              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0028, t01=0x0116}
0x3fa2…3fce              Head {h00=0x0028, h01=0x0050, text=» DATA TWAD POINTER TO ADDRESS BLOCK «, t00=0x0028, t01=0x012c}
0x3fce…3fea              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0028, t01=0x0158}
0x3fea…4012              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0028, t01=0x0174}
0x4012…4030              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0029, t01=0x000c}
0x4030…4046              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0029, t01=0x002a}
0x4046…4070              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0029, t01=0x0040}
0x4070…4094              Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0029, t01=0x006a}
0x4094…40a0              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0029, t01=0x008e}
0x40a0…40c2              Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0029, t01=0x009a}
0x40c2…40e2              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A3«, t00=0x0029, t01=0x00bc}
0x40e2…4102              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A4«, t00=0x0029, t01=0x00dc}
0x4102…4122              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A5«, t00=0x0029, t01=0x00fc}
0x4122…413c              Head {h00=0x0016, h01=0x0050, text=» RES 4 STACK BASE «, t00=0x0029, t01=0x011c}
0x413c…415a              Head {h00=0x001a, h01=0x0050, text=» DATA 1 TIMER POINTER «, t00=0x0029, t01=0x0136}
0x415a…4176              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECHO DEVICE «, t00=0x0029, t01=0x0154}
0x4176…41a2              Head {h00=0x0028, h01=0x0050, text=» DATA /5F5E LEFT BYTE BACKSPACE KEY «, t00=0x0029, t01=0x0170}
0x41a2…41c2              Head {h00=0x001c, h01=0x0050, text=»   RIGHT BYTE CANCEL KEY«, t00=0x002a, t01=0x000c}
0x41c2…41ec              Head {h00=0x0026, h01=0x0050, text=» DATA /0D00 LEFT BYTE STANDARD EOR«, t00=0x002a, t01=0x002c}
0x41ec…420e              Head {h00=0x001e, h01=0x0050, text=»   RIGHT BYTE DOUBLE ZERO «, t00=0x002a, t01=0x0056}
0x420e…4234              Head {h00=0x0022, h01=0x0050, text=» DATA 0 HEAD POSITION POINETR «, t00=0x002a, t01=0x0078}
0x4234…4254              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A2«, t00=0x002a, t01=0x009e}
0x4254…425e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00be}
0x425e…4276              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRTW01 «, t00=0x002a, t01=0x00c8}
0x4276…4280              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e0}
0x4280…428a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ea}
0x428a…42a0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002a, t01=0x00f4}
0x42a0…42b4              Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x002a, t01=0x010a}
0x42b4…42c4              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002a, t01=0x011e}
0x42c4…42d8              Head {h00=0x0010, h01=0x0050, text=» DATA TW:BUF«, t00=0x002a, t01=0x012e}
0x42d8…42ee              Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x002a, t01=0x0142}
0x42ee…4304              Head {h00=0x0012, h01=0x0050, text=» RES DVBKTB+1 «, t00=0x002a, t01=0x0158}
0x4304…4320              Head {h00=0x0018, h01=0x0050, text=»TW:BUF RES DVBLEN+1 «, t00=0x002a, t01=0x016e}
0x4320…432c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x018a}
0x432c…4336              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0008}
0x4336…4340              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0012}
0x4340…434a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001c}
0x434a…4356              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002b, t01=0x0026}
0x4356…435a              Head {h00=0x4004, h01=0x0000}
0x435a…435e              00 2b 00 32                                                                                                                                                                                                                                       ┆ + 2┆
0x435e…4366 (44, 1, 8)   20 04 00 00 00 2c 00 04                                                                                                                                                                                                                           ┆     ,  ┆

Reduced view