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

⟦c2a09e8f8⟧

    Length: 17258 (0x436a)
    Notes: pts_type(SC)
    Names: »DRTW01.SC«

Derivation

└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »M:DENJ/DRTW01.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »M:DENJ/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	X:A	 
POWUP	EQU	X:B 
DVBLEN	EQU	X:C
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…08f8              Head {h00=0x0014, h01=0x0050, text=»TIMOUT EQU X:A  «, t00=0x0005, t01=0x0114}
0x08f8…090e              Head {h00=0x0012, h01=0x0050, text=»POWUP EQU X:B «, t00=0x0005, t01=0x012c}
0x090e…0924              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x0005, t01=0x0142}
0x0924…093a              Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:D«, t00=0x0005, t01=0x0158}
0x093a…0950              Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU X:E«, t00=0x0005, t01=0x016e}
0x0950…0958              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0184}
0x0958…096c              Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x0005, t01=0x018c}
0x096c…0976              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x0976…09a8              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x001a}
0x09a8…09d6              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x004c}
0x09d6…09e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007a}
0x09e0…09f4              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0006, t01=0x0084}
0x09f4…09fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0098}
0x09fe…0a08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a2}
0x0a08…0a42              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0006, t01=0x00ac}
0x0a42…0a74              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x00e6}
0x0a74…0a7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0118}
0x0a7e…0a92              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0006, t01=0x0122}
0x0a92…0a9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0136}
0x0a9c…0aaa              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0140}
0x0aaa…0ab4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014e}
0x0ab4…0abe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0158}
0x0abe…0adc              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0006, t01=0x0162}
0x0adc…0afa              Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0006, t01=0x0180}
0x0afa…0b18              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0007, t01=0x000e}
0x0b18…0b22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002c}
0x0b22…0b2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0036}
0x0b2c…0b60              Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0007, t01=0x0040}
0x0b60…0b6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b6a…0b80              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0007, t01=0x007e}
0x0b80…0b98              Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0007, t01=0x0094}
0x0b98…0ba4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00ac}
0x0ba4…0bae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0bae…0bc4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0007, t01=0x00c2}
0x0bc4…0bde              Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0007, t01=0x00d8}
0x0bde…0bea              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00f2}
0x0bea…0bf4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf4…0c10              Head {h00=0x0018, h01=0x0050, text=»DWTHP EQU START+/18 «, t00=0x0007, t01=0x0108}
0x0c10…0c2c              Head {h00=0x0018, h01=0x0050, text=»TWCLR EQU START+/15 «, t00=0x0007, t01=0x0124}
0x0c2c…0c48              Head {h00=0x0018, h01=0x0050, text=»TWEOF EQU START+/16 «, t00=0x0007, t01=0x0140}
0x0c48…0c64              Head {h00=0x0018, h01=0x0050, text=»TWBSP EQU START+/14 «, t00=0x0007, t01=0x015c}
0x0c64…0c80              Head {h00=0x0018, h01=0x0050, text=»DWTA2 EQU START+/1A «, t00=0x0007, t01=0x0178}
0x0c80…0cae (8, 0, 398)  Head {h00=0x002a, h01=0x0050, text=» DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE«, t00=0x0008, t01=0x0004}
0x0cae…0cda              Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x0008, t01=0x0032}
0x0cda…0cfc              Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x0008, t01=0x005e}
0x0cfc…0d0e              Head {h00=0x000e, h01=0x0050, text=»TWAD EQU *«, t00=0x0008, t01=0x0080}
0x0d0e…0d30              Head {h00=0x001e, h01=0x0050, text=» DATA TWA ACTIVATION PART «, t00=0x0008, t01=0x0092}
0x0d30…0d56              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0008, t01=0x00b4}
0x0d56…0d64              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00da}
0x0d64…0d6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e8}
0x0d6e…0d78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f2}
0x0d78…0dae              Head {h00=0x0032, h01=0x0050, text=»*   ACTIVATION PART: CHECK VALIDITY OF ORDERS «, t00=0x0008, t01=0x00fc}
0x0dae…0db8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db8…0dc2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dc2…0dd4              Head {h00=0x000e, h01=0x0050, text=»TWA EQU * «, t00=0x0008, t01=0x0146}
0x0dd4…0de6              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0008, t01=0x0158}
0x0de6…0e0e              Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x0008, t01=0x016a}
0x0e0e…0e38 (9, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» ABL(Z) IHTW50 REQUESTED LENGTH =0«, t00=0x0009, t01=0x0004}
0x0e38…0e42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002e}
0x0e42…0e4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e6a              Head {h00=0x001a, h01=0x0050, text=» LDR A2,A7 COPY ORDER «, t00=0x0009, t01=0x0042}
0x0e6a…0e8e              Head {h00=0x0020, h01=0x0050, text=» RF(NP) TWAERR REQUEST ERROR«, t00=0x0009, t01=0x0060}
0x0e8e…0ea0              Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x0009, t01=0x0084}
0x0ea0…0ec4              Head {h00=0x0020, h01=0x0050, text=» RF(Z) TWAERR REQUEST ERROR «, t00=0x0009, t01=0x0096}
0x0ec4…0ee6              Head {h00=0x001e, h01=0x0050, text=» RF(N) TWAIN INPUT REQUEST«, t00=0x0009, t01=0x00ba}
0x0ee6…0ef8              Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0009, t01=0x00dc}
0x0ef8…0f1e              Head {h00=0x0022, h01=0x0050, text=» RF(NP) TWAOUT OUTPUT REQUEST «, t00=0x0009, t01=0x00ee}
0x0f1e…0f28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0114}
0x0f28…0f32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f32…0f5a              Head {h00=0x0024, h01=0x0050, text=»TWAERR ABL DISIOE REQUEST ERROR «, t00=0x0009, t01=0x0128}
0x0f5a…0f68              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0150}
0x0f68…0f72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015e}
0x0f72…0f7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0168}
0x0f7c…0f90              Head {h00=0x0010, h01=0x0050, text=»TWAIN EQU * «, t00=0x0009, t01=0x0172}
0x0f90…0fa6              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x0009, t01=0x0186}
0x0fa6…0fd0              Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTTP,A6 GET TIMER POINTER «, t00=0x000a, t01=0x000c}
0x0fd0…0ffe              Head {h00=0x002a, h01=0x0050, text=» RF(Z) TWA010 NO TIMING ON THIS DEVICE«, t00=0x000a, t01=0x0036}
0x0ffe…1022              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDRESS «, t00=0x000a, t01=0x0064}
0x1022…1038              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x000a, t01=0x0088}
0x1038…1050              Head {h00=0x0014, h01=0x0050, text=» DATA TWTUT,TIME«, t00=0x000a, t01=0x009e}
0x1050…1080              Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS«, t00=0x000a, t01=0x00b6}
0x1080…108c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00e6}
0x108c…10a0              Head {h00=0x0010, h01=0x0050, text=»TWA010 EQU *«, t00=0x000a, t01=0x00f2}
0x10a0…10b4              Head {h00=0x0010, h01=0x0050, text=» IFT POWUP=1«, t00=0x000a, t01=0x0106}
0x10b4…10da              Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 GET DWT-STATUS«, t00=0x000a, t01=0x011a}
0x10da…10f0              Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/200 «, t00=0x000a, t01=0x0140}
0x10f0…1124              Head {h00=0x0030, h01=0x0050, text=» RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP «, t00=0x000a, t01=0x0156}
0x1124…114a              Head {h00=0x0022, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POINTER«, t00=0x000a, t01=0x018a}
0x114a…115e              Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-2 «, t00=0x000b, t01=0x0020}
0x115e…1184              Head {h00=0x0022, h01=0x0050, text=» ST A2,10,A8 INDICATE POWER UP«, t00=0x000b, t01=0x0034}
0x1184…11a6              Head {h00=0x001e, h01=0x0050, text=» ABL IHTW35 PERFORM ENDIO «, t00=0x000b, t01=0x005a}
0x11a6…11b2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x007c}
0x11b2…11cc              Head {h00=0x0016, h01=0x0050, text=»TWA020 LDK A2,/21 «, t00=0x000b, t01=0x0088}
0x11cc…11d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a2}
0x11d6…11e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ac}
0x11e0…120c              Head {h00=0x0028, h01=0x0050, text=»READ CF A5,STRTIO EXECUTE CIO-START «, t00=0x000b, t01=0x00b6}
0x120c…121e              Head {h00=0x000e, h01=0x0050, text=» RF RED030«, t00=0x000b, t01=0x00e2}
0x121e…1248              Head {h00=0x0026, h01=0x0050, text=»RED020 CF A5,STREG SAVE REGISTERS «, t00=0x000b, t01=0x00f4}
0x1248…1256              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x011e}
0x1256…1260              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x1260…1282              Head {h00=0x001e, h01=0x0050, text=»*   RETURN AFTER INTERRUPT«, t00=0x000b, t01=0x0136}
0x1282…128c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0158}
0x128c…1296              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0162}
0x1296…12aa              Head {h00=0x0010, h01=0x0050, text=»RED030 EQU *«, t00=0x000b, t01=0x016c}
0x12aa…12c0              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000b, t01=0x0180}
0x12c0…12d2              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000c, t01=0x0008}
0x12d2…12e8              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RED037«, t00=0x000c, t01=0x001a}
0x12e8…12f4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0030}
0x12f4…1306              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000c, t01=0x003c}
0x1306…1328              Head {h00=0x001e, h01=0x0050, text=» RF(P) RED050 ORDERS 02/03«, t00=0x000c, t01=0x004e}
0x1328…1332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0070}
0x1332…133c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x133c…1370              Head {h00=0x0030, h01=0x0050, text=»RED035 CF A5,STORE STORE CHARACTER IN BUFFER«, t00=0x000c, t01=0x0084}
0x1370…1384              Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x000c, t01=0x00b8}
0x1384…13ac              Head {h00=0x0024, h01=0x0050, text=» RB(L) RED020 GET NEXT CHARACTER«, t00=0x000c, t01=0x00cc}
0x13ac…13be              Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x000c, t01=0x00f4}
0x13be…13de              Head {h00=0x001c, h01=0x0050, text=» RF(Z) RED040 BASIC READ«, t00=0x000c, t01=0x0106}
0x13de…13e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0126}
0x13e8…13f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f2…1412              Head {h00=0x001c, h01=0x0050, text=» LDK A1,LNGERR OVERFLOW «, t00=0x000c, t01=0x013a}
0x1412…143c              Head {h00=0x0026, h01=0x0050, text=»RED037 ORS A1,8,A8 SET RETURN CODE«, t00=0x000c, t01=0x015a}
0x143c…1446              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1446…1450              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018e}
0x1450…145e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x145e…1466              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0016}
0x1466…147a              Head {h00=0x0010, h01=0x0050, text=»RED040 EQU *«, t00=0x000d, t01=0x001e}
0x147a…1482              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0032}
0x1482…1498              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000d, t01=0x003a}
0x1498…14ba              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x000d, t01=0x0050}
0x14ba…14d8              Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF MASK ORDER«, t00=0x000d, t01=0x0072}
0x14d8…14ea              Head {h00=0x000e, h01=0x0050, text=» CWK A7,4 «, t00=0x000d, t01=0x0090}
0x14ea…150c              Head {h00=0x001e, h01=0x0050, text=» RF(G) RED045 WRITE ORDER «, t00=0x000d, t01=0x00a2}
0x150c…1532              Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP,A6 TIMER POINTER «, t00=0x000d, t01=0x00c4}
0x1532…1560              Head {h00=0x002a, h01=0x0050, text=» RF(Z) RED045 NO TIMIMG ON THIS DEVICE«, t00=0x000d, t01=0x00ea}
0x1560…1582              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x000d, t01=0x0118}
0x1582…158e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x013a}
0x158e…1596              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0146}
0x1596…15aa              Head {h00=0x0010, h01=0x0050, text=»RED045 EQU *«, t00=0x000d, t01=0x014e}
0x15aa…15d0              Head {h00=0x0022, h01=0x0050, text=» CF A5,HLTIO EXECUTE CIO-HALT «, t00=0x000d, t01=0x0162}
0x15d0…15f2              Head {h00=0x001e, h01=0x0050, text=» ABL IHTW40 PERFORM TENDIO«, t00=0x000d, t01=0x0188}
0x15f2…1600              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x001a}
0x1600…160a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x160a…1614              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1614…161e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003c}
0x161e…1636              Head {h00=0x0014, h01=0x0050, text=»*   ORDERS 02,03«, t00=0x000e, t01=0x0046}
0x1636…1640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005e}
0x1640…164a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0068}
0x164a…165e              Head {h00=0x0010, h01=0x0050, text=»RED050 EQU *«, t00=0x000e, t01=0x0072}
0x165e…1684              Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x000e, t01=0x0086}
0x1684…16a6              Head {h00=0x001e, h01=0x0050, text=» RF(Z) RED080 NO KEYTABLE «, t00=0x000e, t01=0x00ac}
0x16a6…16cc              Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 GET NUMBER OF KEYS «, t00=0x000e, t01=0x00ce}
0x16cc…16e0              Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x000e, t01=0x00f4}
0x16e0…1706              Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 ADDRESS TO LAST KEY«, t00=0x000e, t01=0x0108}
0x1706…1718              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000e, t01=0x012e}
0x1718…1730              Head {h00=0x0014, h01=0x0050, text=»RED060 SUK A4,1 «, t00=0x000e, t01=0x0140}
0x1730…175a              Head {h00=0x0026, h01=0x0050, text=» RF(N) RED080 KEY NOT IN KEYTABLE «, t00=0x000e, t01=0x0158}
0x175a…177e              Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT ADDRESS «, t00=0x000e, t01=0x0182}
0x177e…17a6              Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CHECK IF IN KEYTABLE «, t00=0x000f, t01=0x0016}
0x17a6…17cc              Head {h00=0x0022, h01=0x0050, text=» RB(NE) RED060 NOT IN KEYTABLE«, t00=0x000f, t01=0x003e}
0x17cc…17ec              Head {h00=0x001c, h01=0x0050, text=» ADR A4,A4 DOUBLE INDEX «, t00=0x000f, t01=0x0064}
0x17ec…181c              Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x000f, t01=0x0084}
0x181c…184c              Head {h00=0x002c, h01=0x0050, text=»RED070 CF A5,STORE STORE KEY IN KEYTABLE«, t00=0x000f, t01=0x00b4}
0x184c…1870              Head {h00=0x0020, h01=0x0050, text=» RB RED040 EXECUTE CIO-HALT «, t00=0x000f, t01=0x00e4}
0x1870…188e              Head {h00=0x001a, h01=0x0050, text=»RED080 CC A2,TWEOF,A6 «, t00=0x000f, t01=0x0108}
0x188e…18b4              Head {h00=0x0022, h01=0x0050, text=» RB(E) RED070 STANDARD EOR-KEY«, t00=0x000f, t01=0x0126}
0x18b4…18cc              Head {h00=0x0014, h01=0x0050, text=» CC A2,TWBSP,A6 «, t00=0x000f, t01=0x014c}
0x18cc…18ec              Head {h00=0x001c, h01=0x0050, text=» RF(E) RED110 BACKSPACE «, t00=0x000f, t01=0x0164}
0x18ec…1904              Head {h00=0x0014, h01=0x0050, text=» CC A2,TWCLR,A6 «, t00=0x000f, t01=0x0184}
0x1904…1920              Head {h00=0x0018, h01=0x0050, text=» RF(E) RED110 CLEAR «, t00=0x0010, t01=0x000c}
0x1920…192e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0028}
0x192e…1938              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1938…1942              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0040}
0x1942…196e              Head {h00=0x0028, h01=0x0050, text=»*   CHARACTER NOT FOUND IN KEYTABLE «, t00=0x0010, t01=0x004a}
0x196e…1978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x1978…1982              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x1982…198c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008a}
0x198c…19b4              Head {h00=0x0024, h01=0x0050, text=»RED090 LDR A4,A2 COPY CHARACTER «, t00=0x0010, t01=0x0094}
0x19b4…19cc              Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0010, t01=0x00bc}
0x19cc…19de              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0010, t01=0x00d4}
0x19de…19f0              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x00e6}
0x19f0…1a0e              Head {h00=0x001a, h01=0x0050, text=» RF(Z) RED100 ORDER 02«, t00=0x0010, t01=0x00f8}
0x1a0e…1a2a              Head {h00=0x0018, h01=0x0050, text=» SUK A4,/30 ORDER 03«, t00=0x0010, t01=0x0116}
0x1a2a…1a4e              Head {h00=0x0020, h01=0x0050, text=» RF(N) CODERR LESS THAN /30 «, t00=0x0010, t01=0x0132}
0x1a4e…1a60              Head {h00=0x000e, h01=0x0050, text=» SUK A4,/9«, t00=0x0010, t01=0x0156}
0x1a60…1a86              Head {h00=0x0022, h01=0x0050, text=» RF(P) CODERR GREATER THAN /39«, t00=0x0010, t01=0x0168}
0x1a86…1a98              Head {h00=0x000e, h01=0x0050, text=» RF RED110«, t00=0x0010, t01=0x018e}
0x1a98…1aa2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0010}
0x1aa2…1aac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001a}
0x1aac…1ac6              Head {h00=0x0016, h01=0x0050, text=»RED100 SUK A4,/20 «, t00=0x0011, t01=0x0024}
0x1ac6…1aea              Head {h00=0x0020, h01=0x0050, text=» RF(N) CODERR LESS THAN /20 «, t00=0x0011, t01=0x003e}
0x1aea…1afe              Head {h00=0x0010, h01=0x0050, text=» SUK A4,/3F «, t00=0x0011, t01=0x0062}
0x1afe…1b26              Head {h00=0x0024, h01=0x0050, text=» RF(NP) RED110 CORRECT CHARACTER«, t00=0x0011, t01=0x0076}
0x1b26…1b30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b30…1b3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b3a…1b62              Head {h00=0x0024, h01=0x0050, text=»CODERR LDK A1,4 CODE CHECK ERROR«, t00=0x0011, t01=0x00b2}
0x1b62…1b76              Head {h00=0x0010, h01=0x0050, text=» ORS A1,8,A8«, t00=0x0011, t01=0x00da}
0x1b76…1ba8              Head {h00=0x002e, h01=0x0050, text=» CF A5,STORE STORE CHARACTER IN ECB-BUFFER«, t00=0x0011, t01=0x00ee}
0x1ba8…1bcc              Head {h00=0x0020, h01=0x0050, text=» RB RED040 EXECUTE CIO-HALT «, t00=0x0011, t01=0x0120}
0x1bcc…1bd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0144}
0x1bd6…1be0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014e}
0x1be0…1bee              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0158}
0x1bee…1bf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0166}
0x1bf8…1c02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0170}
0x1c02…1c0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017a}
0x1c0c…1c2a              Head {h00=0x001a, h01=0x0050, text=»RED110 CC A2,TWBSP,A6 «, t00=0x0011, t01=0x0184}
0x1c2a…1c4a              Head {h00=0x001c, h01=0x0050, text=» RF(E) RED120 BACKSPACE «, t00=0x0012, t01=0x0012}
0x1c4a…1c62              Head {h00=0x0014, h01=0x0050, text=» CC A2,TWCLR,A6 «, t00=0x0012, t01=0x0032}
0x1c62…1c78              Head {h00=0x0012, h01=0x0050, text=» RB(NE) RED035«, t00=0x0012, t01=0x004a}
0x1c78…1c82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0060}
0x1c82…1c8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006a}
0x1c8c…1cae              Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 CLEAR ECB-BUFFER«, t00=0x0012, t01=0x0074}
0x1cae…1cd4              Head {h00=0x0022, h01=0x0050, text=» RB RED020 GET NEXT CHARACTER «, t00=0x0012, t01=0x0096}
0x1cd4…1cde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00bc}
0x1cde…1ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c6}
0x1ce8…1d0a              Head {h00=0x001e, h01=0x0050, text=»RED120 SUK A3,1 BACKSPACE «, t00=0x0012, t01=0x00d0}
0x1d0a…1d34              Head {h00=0x0026, h01=0x0050, text=» RB(NN) RED020 GET NEXT CHARACTER «, t00=0x0012, t01=0x00f2}
0x1d34…1d46              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0012, t01=0x011c}
0x1d46…1d6c              Head {h00=0x0022, h01=0x0050, text=» RB RED020 GET NEXT CHARACTER «, t00=0x0012, t01=0x012e}
0x1d6c…1d76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d76…1d80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d80…1d8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0168}
0x1d8a…1d98              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0172}
0x1d98…1da2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1da2…1dac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1dac…1dc2 (19, 0, 400) Head {h00=0x0012, h01=0x0050, text=»*   W R I T E «, t00=0x0013, t01=0x0004}
0x1dc2…1dcc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001a}
0x1dcc…1e04              Head {h00=0x0034, h01=0x0050, text=»*   ORDERS 05 AND 06:  BASIC AND STANDARD WRITE «, t00=0x0013, t01=0x0024}
0x1e04…1e0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0e…1e18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0066}
0x1e18…1e2c              Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0013, t01=0x0070}
0x1e2c…1e40              Head {h00=0x0010, h01=0x0050, text=»TWAOUT EQU *«, t00=0x0013, t01=0x0084}
0x1e40…1e4c              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x0098}
0x1e4c…1e5e              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0013, t01=0x00a4}
0x1e5e…1e70              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0013, t01=0x00b6}
0x1e70…1e98              Head {h00=0x0024, h01=0x0050, text=» CF A5,STRTIO EXECUTE CIO-START «, t00=0x0013, t01=0x00c8}
0x1e98…1ea2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f0}
0x1ea2…1eac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fa}
0x1eac…1ebe              Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0013, t01=0x0104}
0x1ebe…1edc              Head {h00=0x001a, h01=0x0050, text=» RF(Z) WRT050 ORDER 05«, t00=0x0013, t01=0x0116}
0x1edc…1ee6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0134}
0x1ee6…1ef0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013e}
0x1ef0…1f16              Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0013, t01=0x0148}
0x1f16…1f3c              Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A3 CONTROL CHARACTER «, t00=0x0013, t01=0x016e}
0x1f3c…1f50 (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0014, t01=0x0004}
0x1f50…1f64              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/2B «, t00=0x0014, t01=0x0018}
0x1f64…1f86              Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRT030 NO CR OR LF «, t00=0x0014, t01=0x002c}
0x1f86…1f90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004e}
0x1f90…1f9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f9a…1fca              Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTHP,A6 HEAD POSITION INDICATOR «, t00=0x0014, t01=0x0062}
0x1fca…1fdc              Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0014, t01=0x0092}
0x1fdc…2004              Head {h00=0x0024, h01=0x0050, text=» LDK A2,CR SEND CARRIAGE RETURN «, t00=0x0014, t01=0x00a4}
0x2004…2012              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00cc}
0x2012…201c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x201c…2026              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e4}
0x2026…2030              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ee}
0x2030…2058              Head {h00=0x0024, h01=0x0050, text=»WRT010 CF A5,OTR SEND CHARACTER «, t00=0x0014, t01=0x00f8}
0x2058…2062              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0120}
0x2062…206c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x012a}
0x206c…207e              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0014, t01=0x0134}
0x207e…2094              Head {h00=0x0012, h01=0x0050, text=» RF(NP) WRT020«, t00=0x0014, t01=0x0146}
0x2094…20b4              Head {h00=0x001c, h01=0x0050, text=»WRT015 LDK A2,LF SEND LF«, t00=0x0014, t01=0x015c}
0x20b4…20c6              Head {h00=0x000e, h01=0x0050, text=» RB WRT010«, t00=0x0014, t01=0x017c}
0x20c6…20d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018e}
0x20d0…20e8              Head {h00=0x0014, h01=0x0050, text=»WRT020 SUK A3,5 «, t00=0x0015, t01=0x0008}
0x20e8…210c              Head {h00=0x0020, h01=0x0050, text=» RB(Z) WRT015 SEND SECOND LF«, t00=0x0015, t01=0x0020}
0x210c…211e              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0015, t01=0x0044}
0x211e…2136              Head {h00=0x0014, h01=0x0050, text=» RF(NZ) WRT030  «, t00=0x0015, t01=0x0056}
0x2136…2158              Head {h00=0x001e, h01=0x0050, text=» LDK A2,/0C SEND FORM FEED«, t00=0x0015, t01=0x006e}
0x2158…216a              Head {h00=0x000e, h01=0x0050, text=» RB WRT010«, t00=0x0015, t01=0x0090}
0x216a…2190              Head {h00=0x0022, h01=0x0050, text=»WRT030 LDK A3,2 BUFFER POINTER«, t00=0x0015, t01=0x00a2}
0x2190…21b0              Head {h00=0x001c, h01=0x0050, text=» RF WRT050 GET CHARACTER«, t00=0x0015, t01=0x00c8}
0x21b0…21ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e8}
0x21ba…21c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f2}
0x21c4…21ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fc}
0x21ce…21e2              Head {h00=0x0010, h01=0x0050, text=»WRT040 EQU *«, t00=0x0015, t01=0x0106}
0x21e2…2204              Head {h00=0x001e, h01=0x0050, text=» CF A5,OTR SEND CHARACTER «, t00=0x0015, t01=0x011a}
0x2204…2230              Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0015, t01=0x013c}
0x2230…223e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0168}
0x223e…2248              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0176}
0x2248…2252              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0180}
0x2252…225c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018a}
0x225c…2296 (22, 0, 400) Head {h00=0x0036, h01=0x0050, text=»WRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0016, t01=0x0004}
0x2296…22aa              Head {h00=0x0010, h01=0x0050, text=» LDR A1,A1  «, t00=0x0016, t01=0x003e}
0x22aa…22ce              Head {h00=0x0020, h01=0x0050, text=» RB(Z) RED040 LAST CHARACTER«, t00=0x0016, t01=0x0052}
0x22ce…22e0              Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0016, t01=0x0076}
0x22e0…2302              Head {h00=0x001e, h01=0x0050, text=» RB(Z) WRT040 BASIC WRITE «, t00=0x0016, t01=0x0088}
0x2302…230c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00aa}
0x230c…2316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b4}
0x2316…2342              Head {h00=0x0028, h01=0x0050, text=» LDR A1,A2 ORDER 06: STANDARD WRITE «, t00=0x0016, t01=0x00be}
0x2342…2356              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0016, t01=0x00ea}
0x2356…236a              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/07 «, t00=0x0016, t01=0x00fe}
0x236a…2384              Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRT040 BELL«, t00=0x0016, t01=0x0112}
0x2384…238e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x012c}
0x238e…23a0              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/A«, t00=0x0016, t01=0x0136}
0x23a0…23c0              Head {h00=0x001c, h01=0x0050, text=» RF(E) WRTTAB TABULATION«, t00=0x0016, t01=0x0148}
0x23c0…23ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0168}
0x23ca…23dc              Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x0016, t01=0x0172}
0x23dc…2400              Head {h00=0x0020, h01=0x0050, text=» RF(L) ERRCOD LESS THAN /20 «, t00=0x0016, t01=0x0184}
0x2400…2414              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/3F «, t00=0x0017, t01=0x0018}
0x2414…243a              Head {h00=0x0022, h01=0x0050, text=» RB(NP) WRT040 BETWEEN /20-/5F«, t00=0x0017, t01=0x002c}
0x243a…244e              Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x0017, t01=0x0052}
0x244e…2474              Head {h00=0x0022, h01=0x0050, text=» RF(NP) WRT060 BETWEEN /60-/7F«, t00=0x0017, t01=0x0066}
0x2474…247e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x247e…2488              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0096}
0x2488…24a0              Head {h00=0x0014, h01=0x0050, text=»ERRCOD LDK A1,4 «, t00=0x0017, t01=0x00a0}
0x24a0…24b4              Head {h00=0x0010, h01=0x0050, text=» ORS A1,8,A8«, t00=0x0017, t01=0x00b8}
0x24b4…24da              Head {h00=0x0022, h01=0x0050, text=» RB WRT050 GET NEXT CHARACTER «, t00=0x0017, t01=0x00cc}
0x24da…24e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f2}
0x24e4…24ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fc}
0x24ee…2508              Head {h00=0x0016, h01=0x0050, text=»WRT060 SUK A2,/20 «, t00=0x0017, t01=0x0106}
0x2508…251a              Head {h00=0x000e, h01=0x0050, text=» RB WRT040«, t00=0x0017, t01=0x0120}
0x251a…2524              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0132}
0x2524…252e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013c}
0x252e…253c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0146}
0x253c…2546              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0154}
0x2546…2550              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015e}
0x2550…2570              Head {h00=0x001c, h01=0x0050, text=»*   T A B U L A T I O N «, t00=0x0017, t01=0x0168}
0x2570…257a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0188}
0x257a…2584 (24, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0004}
0x2584…2598              Head {h00=0x0010, h01=0x0050, text=»WRTTAB EQU *«, t00=0x0018, t01=0x000e}
0x2598…25ce              Head {h00=0x0032, h01=0x0050, text=» CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER«, t00=0x0018, t01=0x0022}
0x25ce…25e6              Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 COPY «, t00=0x0018, t01=0x0058}
0x25e6…261e              Head {h00=0x0034, h01=0x0050, text=» CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER«, t00=0x0018, t01=0x0070}
0x261e…2630              Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0018, t01=0x00a8}
0x2630…2642              Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0018, t01=0x00ba}
0x2642…2658              Head {h00=0x0012, h01=0x0050, text=» RF(Z) TAB020 «, t00=0x0018, t01=0x00cc}
0x2658…2670              Head {h00=0x0014, h01=0x0050, text=»TAB010 ADK A2,/A«, t00=0x0018, t01=0x00e2}
0x2670…2682              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0018, t01=0x00fa}
0x2682…2698              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TAB010«, t00=0x0018, t01=0x010c}
0x2698…26a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0122}
0x26a2…26c0              Head {h00=0x001a, h01=0x0050, text=»TAB020 SU A2,DWTHP,A6 «, t00=0x0018, t01=0x012c}
0x26c0…26f8              Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF OUTPUT CHARACTERS «, t00=0x0018, t01=0x014a}
0x26f8…2726              Head {h00=0x002a, h01=0x0050, text=» SUR A2,A4 NUMBER OF SPACES TO BE SENT«, t00=0x0018, t01=0x0182}
0x2726…2756              Head {h00=0x002c, h01=0x0050, text=» RB(NP) WRT050 NO SPACES SHOULD BE SENT «, t00=0x0019, t01=0x0020}
0x2756…2768              Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0019, t01=0x0050}
0x2768…278e              Head {h00=0x0022, h01=0x0050, text=»TAB030 LDK A2,/20 SEND BALNKS «, t00=0x0019, t01=0x0062}
0x278e…27b6              Head {h00=0x0024, h01=0x0050, text=»TAB040 CF A5,OTR SEND CHARACTER «, t00=0x0019, t01=0x0088}
0x27b6…27e2              Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0019, t01=0x00b0}
0x27e2…27f4              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0019, t01=0x00dc}
0x27f4…281e              Head {h00=0x0026, h01=0x0050, text=» RB(NZ) TAB030 SEND ANOTHER SPACE «, t00=0x0019, t01=0x00ee}
0x281e…2830              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0019, t01=0x0118}
0x2830…2854              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) WRT050 NOT RECOVERY «, t00=0x0019, t01=0x012a}
0x2854…287e              Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x0019, t01=0x014e}
0x287e…28a4              Head {h00=0x0022, h01=0x0050, text=» LDK A3,2 PRESET BUFFER INDEX «, t00=0x0019, t01=0x0178}
0x28a4…28ca              Head {h00=0x0022, h01=0x0050, text=» RB WRT050 GET NEXT CHARACTER «, t00=0x001a, t01=0x000e}
0x28ca…28d8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0034}
0x28d8…28e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e2…28ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004c}
0x28ec…2908              Head {h00=0x0018, h01=0x0050, text=»*   RECOVERY ROUTINE«, t00=0x001a, t01=0x0056}
0x2908…2912              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0072}
0x2912…291c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x291c…2926              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0086}
0x2926…2938              Head {h00=0x000e, h01=0x0050, text=»TWON EQU *«, t00=0x001a, t01=0x0090}
0x2938…294e              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001a, t01=0x00a2}
0x294e…2978              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001a, t01=0x00b8}
0x2978…2984              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00e2}
0x2984…298e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ee}
0x298e…29a4              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001a, t01=0x00f8}
0x29a4…29ca              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001a, t01=0x010e}
0x29ca…29d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0134}
0x29d6…29e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x29e0…2a08              Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWTW01 GET DWT-ADDRESS «, t00=0x001a, t01=0x014a}
0x2a08…2a1c              Head {h00=0x0010, h01=0x0050, text=» IFT POWUP=1«, t00=0x001a, t01=0x0172}
0x2a1c…2a32              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x001a, t01=0x0186}
0x2a32…2a5c              Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER UP«, t00=0x001b, t01=0x000c}
0x2a5c…2a68              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0036}
0x2a68…2a80              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x001b, t01=0x0042}
0x2a80…2aa4              Head {h00=0x0020, h01=0x0050, text=» RF(N) EXIT DEVICE NOT BUSY «, t00=0x001b, t01=0x005a}
0x2aa4…2ac2              Head {h00=0x001a, h01=0x0050, text=»TWON10 LD A3,DWTA3,A6 «, t00=0x001b, t01=0x007e}
0x2ac2…2ae4              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001b, t01=0x009c}
0x2ae4…2af8              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x001b, t01=0x00be}
0x2af8…2b1c              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB-ADDRESS«, t00=0x001b, t01=0x00d2}
0x2b1c…2b34              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x001b, t01=0x00f6}
0x2b34…2b56              Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x001b, t01=0x010e}
0x2b56…2b68              Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x001b, t01=0x0130}
0x2b68…2b8e              Head {h00=0x0022, h01=0x0050, text=» ABL(N) TWA010 ORDERS 01,02,03«, t00=0x001b, t01=0x0142}
0x2b8e…2ba0              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x001b, t01=0x0168}
0x2ba0…2bbe              Head {h00=0x001a, h01=0x0050, text=» RF(Z) TWON20 ORDER 05«, t00=0x001b, t01=0x017a}
0x2bbe…2bca              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x0008}
0x2bca…2bdc              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x0014}
0x2bdc…2c04              Head {h00=0x0024, h01=0x0050, text=» CF A5,STRTIO EXECUTE CIO-START «, t00=0x001c, t01=0x0026}
0x2c04…2c16              Head {h00=0x000e, h01=0x0050, text=» LDK A2,CR«, t00=0x001c, t01=0x004e}
0x2c16…2c28              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001c, t01=0x0060}
0x2c28…2c40              Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTHP,A6 «, t00=0x001c, t01=0x0072}
0x2c40…2c52              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001c, t01=0x008a}
0x2c52…2c7a              Head {h00=0x0024, h01=0x0050, text=» RB TAB040 REPRINT LAST REQUEST «, t00=0x001c, t01=0x009c}
0x2c7a…2c84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c4}
0x2c84…2ca8              Head {h00=0x0020, h01=0x0050, text=»TWON20 LDK A1,TPERR ORDER 05«, t00=0x001c, t01=0x00ce}
0x2ca8…2cbc              Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x001c, t01=0x00f2}
0x2cbc…2cc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0106}
0x2cc6…2cd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0110}
0x2cd0…2cde              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x011a}
0x2cde…2ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0128}
0x2ce8…2cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x2cf2…2d06              Head {h00=0x0010, h01=0x0050, text=»*   I H T W «, t00=0x001c, t01=0x013c}
0x2d06…2d10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0150}
0x2d10…2d44              Head {h00=0x0030, h01=0x0050, text=»*   INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x001c, t01=0x015a}
0x2d44…2d4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018e}
0x2d4e…2d58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d58…2d6a              Head {h00=0x000e, h01=0x0050, text=»IHTW EQU *«, t00=0x001d, t01=0x0012}
0x2d6a…2d92              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x001d, t01=0x0024}
0x2d92…2da8              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001d, t01=0x004c}
0x2da8…2dd2              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001d, t01=0x0062}
0x2dd2…2dde              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x008c}
0x2dde…2de8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0098}
0x2de8…2dfe              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001d, t01=0x00a2}
0x2dfe…2e24              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001d, t01=0x00b8}
0x2e24…2e30              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00de}
0x2e30…2e3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ea}
0x2e3a…2e52              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWTW01 «, t00=0x001d, t01=0x00f4}
0x2e52…2e66              Head {h00=0x0010, h01=0x0050, text=»LDREG EQU * «, t00=0x001d, t01=0x010c}
0x2e66…2e7e              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x001d, t01=0x0120}
0x2e7e…2ea2              Head {h00=0x0020, h01=0x0050, text=» RF(N) SKIP DEVICE NOT BUSY «, t00=0x001d, t01=0x0138}
0x2ea2…2ece              Head {h00=0x0028, h01=0x0050, text=»IHTW10 LDR* A2,A6 GET DEVICE ADDRESS«, t00=0x001d, t01=0x015c}
0x2ece…2ee4              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWSST«, t00=0x001d, t01=0x0188}
0x2ee4…2f00              Head {h00=0x0018, h01=0x0050, text=» EXR A2 EXECUTE SST «, t00=0x001e, t01=0x000e}
0x2f00…2f1c              Head {h00=0x0018, h01=0x0050, text=» RF(A) IHTW30 ENDIO «, t00=0x001e, t01=0x002a}
0x2f1c…2f3e              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001e, t01=0x0046}
0x2f3e…2f52              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x001e, t01=0x0068}
0x2f52…2f64              Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x001e, t01=0x007c}
0x2f64…2f7a              Head {h00=0x0012, h01=0x0050, text=» RF(P) IHTW30 «, t00=0x001e, t01=0x008e}
0x2f7a…2fa0              Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 GET DEVICE ADDRESS«, t00=0x001e, t01=0x00a4}
0x2fa0…2fb8              Head {h00=0x0014, h01=0x0050, text=» ORKL A2,TWINR  «, t00=0x001e, t01=0x00ca}
0x2fb8…2fd4              Head {h00=0x0018, h01=0x0050, text=» EXR A2 EXECUTE INR «, t00=0x001e, t01=0x00e2}
0x2fd4…2ffc              Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F MASK INPUT-CHARACTER«, t00=0x001e, t01=0x00fe}
0x2ffc…300a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0126}
0x300a…3014              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0134}
0x3014…302a              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x001e, t01=0x013e}
0x302a…3054              Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTP,A6 GET TIMER POINTER «, t00=0x001e, t01=0x0154}
0x3054…3082              Head {h00=0x002a, h01=0x0050, text=» RF(Z) IHTW30 NO TIMING ON THIS DEVICE«, t00=0x001e, t01=0x017e}
0x3082…3098              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x001f, t01=0x001c}
0x3098…30b0              Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x001f, t01=0x0032}
0x30b0…30bc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x004a}
0x30bc…30c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0056}
0x30c6…30d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0060}
0x30d0…30e8              Head {h00=0x0014, h01=0x0050, text=»IHTW30 LDK A1,0 «, t00=0x001f, t01=0x006a}
0x30e8…310c              Head {h00=0x0020, h01=0x0050, text=» RF LDREGE RESTORE REGISTERS«, t00=0x001f, t01=0x0082}
0x310c…3114              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00a6}
0x3114…311c              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00ae}
0x311c…3130              Head {h00=0x0010, h01=0x0050, text=»IHTW35 EQU *«, t00=0x001f, t01=0x00b6}
0x3130…314c              Head {h00=0x0018, h01=0x0050, text=» IFT POWUP+TIMOUT=2 «, t00=0x001f, t01=0x00ca}
0x314c…3154              Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00e6}
0x3154…317a              Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTTP,A6 TIMER POINTER «, t00=0x001f, t01=0x00ee}
0x317a…31a8              Head {h00=0x002a, h01=0x0050, text=» RF(Z) IHTW40 NO TIMING ON THIS DEVICE«, t00=0x001f, t01=0x0114}
0x31a8…31ca              Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x001f, t01=0x0142}
0x31ca…31d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0164}
0x31d6…31e4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0170}
0x31e4…31ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31ee…31f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0188}
0x31f8…320c (32, 0, 398) Head {h00=0x0010, h01=0x0050, text=»IHTW40 EQU *«, t00=0x0020, t01=0x0004}
0x320c…3216              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0018}
0x3216…3220              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0022}
0x3220…3250              Head {h00=0x002c, h01=0x0050, text=»IHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH «, t00=0x0020, t01=0x002c}
0x3250…3268              Head {h00=0x0014, h01=0x0050, text=»IHTW55 SUK A7,4 «, t00=0x0020, t01=0x005c}
0x3268…328a              Head {h00=0x001e, h01=0x0050, text=» RF(NP) IHTW60 READ ORDER «, t00=0x0020, t01=0x0074}
0x328a…3294              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0096}
0x3294…329e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a0}
0x329e…32c6              Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTBC,A6 GET BYTE COUNTER«, t00=0x0020, t01=0x00aa}
0x32c6…32f4              Head {h00=0x002a, h01=0x0050, text=» ADS A3,DWTHP,A6 UPDATE HEAD POSITION «, t00=0x0020, t01=0x00d2}
0x32f4…3306              Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0020, t01=0x0100}
0x3306…3330              Head {h00=0x0026, h01=0x0050, text=» SC A3,DWTBC,A6 CLEAR BYTE COUNTER«, t00=0x0020, t01=0x0112}
0x3330…333a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013c}
0x333a…334e              Head {h00=0x0010, h01=0x0050, text=»IHTW60 EQU *«, t00=0x0020, t01=0x0146}
0x334e…3364              Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0020, t01=0x015a}
0x3364…3386              Head {h00=0x001e, h01=0x0050, text=» LD A1,10,A8 CONVERT INDEX«, t00=0x0020, t01=0x0170}
0x3386…3398 (33, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0021, t01=0x0004}
0x3398…33aa              Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0021, t01=0x0016}
0x33aa…33be              Head {h00=0x0010, h01=0x0050, text=» ST A1,10,A8«, t00=0x0021, t01=0x0028}
0x33be…33ca              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x003c}
0x33ca…33dc              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0048}
0x33dc…33fe              Head {h00=0x001e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO«, t00=0x0021, t01=0x005a}
0x33fe…3408              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007c}
0x3408…3412              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0086}
0x3412…341a              Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x0090}
0x341a…3432              Head {h00=0x0014, h01=0x0050, text=»SKIP LDR* A2,A6 «, t00=0x0021, t01=0x0098}
0x3432…3448              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWSST«, t00=0x0021, t01=0x00b0}
0x3448…345c              Head {h00=0x0010, h01=0x0050, text=» EXR A2 SST «, t00=0x0021, t01=0x00c6}
0x345c…3470              Head {h00=0x0010, h01=0x0050, text=» RF(A) EXIT «, t00=0x0021, t01=0x00da}
0x3470…3484              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A6 «, t00=0x0021, t01=0x00ee}
0x3484…349a              Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWHLT«, t00=0x0021, t01=0x0102}
0x349a…34b2              Head {h00=0x0014, h01=0x0050, text=» EXR A2 CIO HALT«, t00=0x0021, t01=0x0118}
0x34b2…34c2              Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0021, t01=0x0130}
0x34c2…34d0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0140}
0x34d0…34da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x014e}
0x34da…34e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0158}
0x34e4…34ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0162}
0x34ee…3506              Head {h00=0x0014, h01=0x0050, text=»*   I/O COMMANDS«, t00=0x0021, t01=0x016c}
0x3506…3510              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0184}
0x3510…351a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x018e}
0x351a…354a              Head {h00=0x002c, h01=0x0050, text=»STRTIO LDKL A1,TWSTRT EXECUTE CIO-START «, t00=0x0022, t01=0x0008}
0x354a…355c              Head {h00=0x000e, h01=0x0050, text=» RF EXECIO«, t00=0x0022, t01=0x0038}
0x355c…3588              Head {h00=0x0028, h01=0x0050, text=»HLTIO LDKL A1,TWHLT         CIO-HALT«, t00=0x0022, t01=0x004a}
0x3588…359a              Head {h00=0x000e, h01=0x0050, text=» RF EXECIO«, t00=0x0022, t01=0x0076}
0x359a…35c0              Head {h00=0x0022, h01=0x0050, text=»OTR LDKL A1,TWOTR         OTR «, t00=0x0022, t01=0x0088}
0x35c0…35ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ae}
0x35ca…35d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b8}
0x35d4…35f0              Head {h00=0x0018, h01=0x0050, text=»EXECIO LD A7,PFPOST «, t00=0x0022, t01=0x00c2}
0x35f0…3614              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STREG PFINIT PENDING«, t00=0x0022, t01=0x00de}
0x3614…3638              Head {h00=0x0020, h01=0x0050, text=» ORR* A1,A6 GET I/O-COMMAND «, t00=0x0022, t01=0x0102}
0x3638…3658              Head {h00=0x001c, h01=0x0050, text=» EXR A1 EXECUTE COMMAND «, t00=0x0022, t01=0x0126}
0x3658…366c              Head {h00=0x0010, h01=0x0050, text=» RF(NA) HALT«, t00=0x0022, t01=0x0146}
0x366c…3680              Head {h00=0x0010, h01=0x0050, text=»STREG EQU * «, t00=0x0022, t01=0x015a}
0x3680…3696              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x0022, t01=0x016e}
0x3696…36ca              Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED«, t00=0x0022, t01=0x0184}
0x36ca…36f2              Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE REGISTER A3«, t00=0x0023, t01=0x0028}
0x36f2…371a              Head {h00=0x0024, h01=0x0050, text=» ST A4,DWTA4,A6               A4«, t00=0x0023, t01=0x0050}
0x371a…3742              Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTA5,A6               A5«, t00=0x0023, t01=0x0078}
0x3742…3758              Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0023, t01=0x00a0}
0x3758…3774              Head {h00=0x0018, h01=0x0050, text=»HALT ST A2,DWTA2,A6 «, t00=0x0023, t01=0x00b6}
0x3774…379a              Head {h00=0x0022, h01=0x0050, text=» CF A5,HLTIO EXECUTE CIO-HALT «, t00=0x0023, t01=0x00d2}
0x379a…37b2              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0023, t01=0x00f8}
0x37b2…37d4              Head {h00=0x001e, h01=0x0050, text=» RB STRTIO RESTART REQUEST«, t00=0x0023, t01=0x0110}
0x37d4…37de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0132}
0x37de…37e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013c}
0x37e8…37f6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0146}
0x37f6…3800              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x3800…380a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015e}
0x380a…3814              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0168}
0x3814…383e              Head {h00=0x0026, h01=0x0050, text=»*   STORE CHARACTER IN ECB-BUFFER «, t00=0x0023, t01=0x0172}
0x383e…3848              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000c}
0x3848…3852              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0016}
0x3852…387e              Head {h00=0x0028, h01=0x0050, text=»STORE LD A4,2,A8 GET BUFFER ADDRESS «, t00=0x0024, t01=0x0020}
0x387e…38a6              Head {h00=0x0024, h01=0x0050, text=» ADR A4,A3 GET CHARACTER ADDRESS«, t00=0x0024, t01=0x004c}
0x38a6…38c8              Head {h00=0x001e, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER«, t00=0x0024, t01=0x0074}
0x38c8…38f0              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0024, t01=0x0096}
0x38f0…3900              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0024, t01=0x00be}
0x3900…390a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ce}
0x390a…3914              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d8}
0x3914…391e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e2}
0x391e…3934              Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x0024, t01=0x00ec}
0x3934…393e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0102}
0x393e…3948              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010c}
0x3948…3962              Head {h00=0x0016, h01=0x0050, text=»*   TIMOUT ROUTINE«, t00=0x0024, t01=0x0116}
0x3962…396c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0130}
0x396c…3976              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013a}
0x3976…398a              Head {h00=0x0010, h01=0x0050, text=»TWTUT EQU * «, t00=0x0024, t01=0x0144}
0x398a…39ac              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x0024, t01=0x0158}
0x39ac…39d4              Head {h00=0x0024, h01=0x0050, text=» LDK A1,/40 TIME OUT RETURN CODE«, t00=0x0024, t01=0x017a}
0x39d4…39e0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0012}
0x39e0…39ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001e}
0x39ea…39f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0028}
0x39f4…3a02              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0032}
0x3a02…3a0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0040}
0x3a0c…3a16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004a}
0x3a16…3a2e              Head {h00=0x0014, h01=0x0050, text=»*   L D R E G E «, t00=0x0025, t01=0x0054}
0x3a2e…3a38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006c}
0x3a38…3a74              Head {h00=0x0038, h01=0x0050, text=»*   RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5«, t00=0x0025, t01=0x0076}
0x3a74…3a7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b2}
0x3a7e…3a88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00bc}
0x3a88…3a9c              Head {h00=0x0010, h01=0x0050, text=»LDREGE EQU *«, t00=0x0025, t01=0x00c6}
0x3a9c…3ac6              Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD REGISTER A3«, t00=0x0025, t01=0x00da}
0x3ac6…3af0              Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6                 A4«, t00=0x0025, t01=0x0104}
0x3af0…3b1a              Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6                 A5«, t00=0x0025, t01=0x012e}
0x3b1a…3b32              Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0025, t01=0x0158}
0x3b32…3b46              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0025, t01=0x0170}
0x3b46…3b5e              Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0025, t01=0x0184}
0x3b5e…3b82              Head {h00=0x0020, h01=0x0050, text=» RTN A5 RETURN VIA A5-STACK «, t00=0x0026, t01=0x000c}
0x3b82…3b90              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0030}
0x3b90…3b9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003e}
0x3b9a…3ba4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0048}
0x3ba4…3bbc              Head {h00=0x0014, h01=0x0050, text=»*    G E T C H R«, t00=0x0026, t01=0x0052}
0x3bbc…3bc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006a}
0x3bc6…3c02              Head {h00=0x0038, h01=0x0050, text=»*    SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x0026, t01=0x0074}
0x3c02…3c0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b0}
0x3c0c…3c22              Head {h00=0x0012, h01=0x0050, text=»*    ON ENTRY:«, t00=0x0026, t01=0x00ba}
0x3c22…3c2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d0}
0x3c2c…3c4a              Head {h00=0x001a, h01=0x0050, text=»*    A3 = BUFFER INDEX«, t00=0x0026, t01=0x00da}
0x3c4a…3c68              Head {h00=0x001a, h01=0x0050, text=»*    A8 = ECB-ADDRESS «, t00=0x0026, t01=0x00f8}
0x3c68…3c72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0116}
0x3c72…3c88              Head {h00=0x0012, h01=0x0050, text=»*    ON EXIT: «, t00=0x0026, t01=0x0120}
0x3c88…3c92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0136}
0x3c92…3cae              Head {h00=0x0018, h01=0x0050, text=»*    A2 = CHARACTER «, t00=0x0026, t01=0x0140}
0x3cae…3cdc              Head {h00=0x002a, h01=0x0050, text=»*    A1 = 0 IF LAST CHARACTER ELSE # 0«, t00=0x0026, t01=0x015c}
0x3cdc…3ce6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018a}
0x3ce6…3d34 (39, 0, 400) Head {h00=0x004a, h01=0x0050, text=»*    IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH«, t00=0x0027, t01=0x0004}
0x3d34…3d3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0052}
0x3d3e…3d48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005c}
0x3d48…3d5c              Head {h00=0x0010, h01=0x0050, text=»GETCHR EQU *«, t00=0x0027, t01=0x0066}
0x3d5c…3d80              Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A8 REQUESTED LENGTH«, t00=0x0027, t01=0x007a}
0x3d80…3d92              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0027, t01=0x009e}
0x3d92…3dc0              Head {h00=0x002a, h01=0x0050, text=» RF(NP) GCH010 LAST CHARACTER REACHED «, t00=0x0027, t01=0x00b0}
0x3dc0…3de6              Head {h00=0x0022, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS«, t00=0x0027, t01=0x00de}
0x3de6…3df8              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0027, t01=0x0104}
0x3df8…3e16              Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0027, t01=0x0116}
0x3e16…3e2a              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x0134}
0x3e2a…3e52              Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0027, t01=0x0148}
0x3e52…3e62              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0027, t01=0x0170}
0x3e62…3e92              Head {h00=0x002c, h01=0x0050, text=»GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0027, t01=0x0180}
0x3e92…3ea2              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0028, t01=0x0020}
0x3ea2…3eb0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0030}
0x3eb0…3eba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003e}
0x3eba…3ee6              Head {h00=0x0028, h01=0x0050, text=»*   DEVICE WORK TABLE FOR TYPEWRITER«, t00=0x0028, t01=0x0048}
0x3ee6…3ef0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0074}
0x3ef0…3efa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007e}
0x3efa…3f1a              Head {h00=0x001c, h01=0x0050, text=»DWTW01 EQU * TABLE ENTRY«, t00=0x0028, t01=0x0088}
0x3f1a…3f40              Head {h00=0x0022, h01=0x0050, text=» DATA /0010 CHANNEL PARAMETER «, t00=0x0028, t01=0x00a8}
0x3f40…3f74              Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0028, t01=0x00ce}
0x3f74…3f90              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0028, t01=0x0102}
0x3f90…3fa6              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0028, t01=0x011e}
0x3fa6…3fd2              Head {h00=0x0028, h01=0x0050, text=» DATA TWAD POINTER TO ADDRESS BLOCK «, t00=0x0028, t01=0x0134}
0x3fd2…3fee              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0028, t01=0x0160}
0x3fee…4016              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0028, t01=0x017c}
0x4016…4034              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0029, t01=0x0014}
0x4034…404a              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0029, t01=0x0032}
0x404a…4074              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0029, t01=0x0048}
0x4074…4098              Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0029, t01=0x0072}
0x4098…40a4              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0029, t01=0x0096}
0x40a4…40c6              Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0029, t01=0x00a2}
0x40c6…40e6              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A3«, t00=0x0029, t01=0x00c4}
0x40e6…4106              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A4«, t00=0x0029, t01=0x00e4}
0x4106…4126              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A5«, t00=0x0029, t01=0x0104}
0x4126…4140              Head {h00=0x0016, h01=0x0050, text=» RES 4 STACK BASE «, t00=0x0029, t01=0x0124}
0x4140…415e              Head {h00=0x001a, h01=0x0050, text=» DATA 1 TIMER POINTER «, t00=0x0029, t01=0x013e}
0x415e…417a              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECHO DEVICE «, t00=0x0029, t01=0x015c}
0x417a…41a6              Head {h00=0x0028, h01=0x0050, text=» DATA /5F5E LEFT BYTE BACKSPACE KEY «, t00=0x0029, t01=0x0178}
0x41a6…41c6              Head {h00=0x001c, h01=0x0050, text=»   RIGHT BYTE CANCEL KEY«, t00=0x002a, t01=0x0014}
0x41c6…41f0              Head {h00=0x0026, h01=0x0050, text=» DATA /0D00 LEFT BYTE STANDARD EOR«, t00=0x002a, t01=0x0034}
0x41f0…4212              Head {h00=0x001e, h01=0x0050, text=»   RIGHT BYTE DOUBLE ZERO «, t00=0x002a, t01=0x005e}
0x4212…4238              Head {h00=0x0022, h01=0x0050, text=» DATA 0 HEAD POSITION POINETR «, t00=0x002a, t01=0x0080}
0x4238…4258              Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A2«, t00=0x002a, t01=0x00a6}
0x4258…4262              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c6}
0x4262…427a              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRTW01 «, t00=0x002a, t01=0x00d0}
0x427a…4284              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e8}
0x4284…428e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f2}
0x428e…42a4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002a, t01=0x00fc}
0x42a4…42b8              Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x002a, t01=0x0112}
0x42b8…42c8              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002a, t01=0x0126}
0x42c8…42dc              Head {h00=0x0010, h01=0x0050, text=» DATA TW:BUF«, t00=0x002a, t01=0x0136}
0x42dc…42f2              Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x002a, t01=0x014a}
0x42f2…4308              Head {h00=0x0012, h01=0x0050, text=» RES DVBKTB+1 «, t00=0x002a, t01=0x0160}
0x4308…4324              Head {h00=0x0018, h01=0x0050, text=»TW:BUF RES DVBLEN+1 «, t00=0x002a, t01=0x0176}
0x4324…4330 (43, 2, 62)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0004}
0x4330…433a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0010}
0x433a…4344              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001a}
0x4344…434e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0024}
0x434e…435a              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002b, t01=0x002e}
0x435a…435e              Head {h00=0x4004, h01=0x0000}
0x435e…4362              00 2b 00 3a                                                                                                                                                                                                                                       ┆ + :┆
0x4362…436a (44, 1, 8)   20 04 00 00 00 2c 00 04                                                                                                                                                                                                                           ┆     ,  ┆

Reduced view