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

⟦84c52811d⟧

    Length: 36096 (0x8d00)
    Notes: pts_type(SC)
    Names: »DRTN01.SC«

Derivation

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

PTS(SC)

	IDENT DRTN01 	REL 11.0 81-03-18 870105041100 
*			=1 SUPPORT BOTH TND2.05 AND TND6.01 
			=2,NO MOVE OF USER BUF. WHEN OPN AND MMU 
			=2,REL 11.0 81-01-28 
*			REL 11.0  81-01-26

************************************************************
* 
*   PHILIPS TERMINAL SYSTEM   PTS 
* 
*   DRTN01 = DRIVER TELLER NOTE DISPENSER 
* 
************************************************************
* 
* 
*   THIS DRIVER HANDLES THE MICROCOMPUTER IN THE NOTE 
*   DISPENSER (ND). 
*   (VERSION 2.05 AND 6.01)	=1
*   THE ND IS INTENDED FOR USE IN PTS6000 BANKING SYSTEMS.
* 
*   THE INTENTION WITH THE NOTE DISPENSER IS TO DISPENSE
*   BANK NOTES FROM CASSETTES TO THE TERMINAL OPERATOR
*   OR THE CUSTOMER.UP TO 100 NOTES CAN BE ORDERED IN 
*   ONE COMMAND FROM A NUMBER OF CASSETTES CONTAINING 
*   VARIOUS DENOMINATIONS.
* 
* 
*   THE DRIVER CONSISTS OF FOLLOWING PARTS: 
* 
*   ACTN:   ACTIVATION PART,ORDER PROCESSOR 
*   RCTN:   RECOVERY ROUTINE
* 
* 
*   THE FOLLOWING ORDERS ARE TREATED: 
* 
*	/21   OPEN
*	/22   CLOSE 
*	/2C   READ DEVICE STATUS
*	/2A   READ CONTROL
*	/2D   READ DIAGNOSTIC 
*	(SPLIT=0) 
*	/2B   DISPENSE AND DELIVER
*	(SPLIT=1) 
*	/2B   DISPENSE
*	/38   DELIVER 
*	/31   DUMP
*   THE FOLLOWING RETURN CODES ARE USED:
* 
*   BIT   0  REQUEST ERROR                     =  8000
*         1  NO CASSETTE                       =  4000
*         2  NOTES IN DELIVERY UNIT            =  2000
*         3  BAD NOTES                         =  1000
*         4  REJECT CASSETTE FULL              =  0800
*         5  CASSETTE LOW                      =  0400
*         6  CASSETTE EMPTY                    =  0200
*         7  JAMMED NOTES                      =  0100
*         8  POWER FAILURE                     =  0080
*         9  TIME-OUT                          =  0040
*        10  REJECTED NOTES                    =  0020
*        11  SEQUENCE ERROR                    =  0010
*        12  COMMUNICATION ERROR               =  0008
*        13  FIRMWARE ERROR                    =  0004
*        14  HARDWARE ERROR                    =  0002
*        15  NOT OPERABLE                      =  0001
* 
*   NORMAL USE OF REGISTERS:
* 
*     A1    RETURN CODE 
*     A2    INPUT/OUTPUT CHARACTER
*     A3
*     A4    BUFFER INDEX OR BUFFER POINTER
*     A5    STACK BASE POINTER
*     A6    DWT ADDRESS 
*     A7    ORDER 
*     A8    ECB ADDRESS 
	EJECT
* 
*********** 
* ENTRIES * 
*********** 
* 
	ENTRY	TNAD	ADDRESS BLOCK 
	EJECT
* 
********************************
* EXTERNAL TOSS MODULE ENTRIES *
********************************
* 
	EXTRN	INPUT	INPUT ONE CHARACTER
	EXTRN	STABLK	START OF BLOCK
	EXTRN	OUTPUT	OUTPUT ONE CHARACTER
	EXTRN	ENDBLK	END OF BLOCK
	EXTRN	LENDER	DISPATCH, END I/0 ,REQUEST ERROR
	EXTRN	LENDIS	END I/O AND DISPATCH
	EXTRN	LDISP	DISPATCH 
	EXTRN	SETIME	SET TIME
	EJECT
* 
**************************************
*	DEVICE INDEX VALUES 
**************************************
* 
	EXTRN	PC:DIX	PROGRAMMED CHANNEL DEVICE INDEX 
* 
* 
* 
********************
* ECB-DISPLACEMENTS * 
********************
* 
	EXTRN	ECBBA	BUFFER ADDRESS 
	EXTRN	ECBRL	REQUESTED LENGTH 
	EXTRN	ECBEL	EFFECTIVE LENGTH 
	EXTRN	ECBRC	RETURN CODE
	EXTRN	ECBCW	CONTROL WORD 
* 
* 
***************************** 
*	DWT PARAMETERS
******************************
* 
* 
	EXTRN	DWTOR	ORDER
	EXTRN	DWTECB	ECB-ADDRESS 
	EXTRN	DWTSB2	STACK BASE
* 
	EXTRN	DWTDEV	DEVICE DRIVER DEPENDANT (FIRST FIELD) 
* 
* 
	EJECT
* 
*	FORM STATEMENTS 
* 
BYTE	FORM	8,8 
QUART	FORM	4,4,4,4
	EJECT
* 
************************
* CONDITIONAL ASSEMBLY *
************************
* 
X:A	EQU	0	ORDER 'DIPENSE AND DELIVER' 
*			IS SPLIT (OR NOT) 
*			INTO ORDERS 'DISPENSE', 'DELIVER', 'DUMP'.
SPLIT	EQU	X:A 
* 
* 
X:B	EQU	40	MMU BUFFER SIZE (STANDARD) 
DVBLEN	EQU	X:B
* 
* 
	EJECT
* 
* 
**************************************
* DWT-DISPLACEMENTS RELATIVE DWTDEV  *
*************************************** 
* 
DWTTP	EQU	2	TIMER POINTER 
DWTLR	EQU	DWTTP+2	BITS 0-7: INDICATOR LEFT OR RIGHT TELLER
DWTLRC	EQU	DWTLR	BITS 8-15: LRC-ACKUMULATOR 
DWTBFR	EQU	DWTLRC+2	DELAY-BUFFER (LAST HW-MESSAGE FROM ND)
DWTSTA	EQU	DWTBFR+2	NOTE DISPENSER STATUS 
DWTTAB	EQU	DWTSTA+2	STORE-CHECK TABLE POINTER 
DWTNCR	EQU	DWTTAB+2	NUMBER OF CHARACTERS RECEIVED 
DWTCNB	EQU	DWTNCR+2	OLD CASSETTE NUMBER 
DWTTP1	EQU	DWTCNB+2	TIMER POINTER DEVICE BUSY 
DWTRDS	EQU	DWTTP1+2	LOGGAREA: OUTPUT HW-ORDER, RECIEVED STAT
DWTBUF	EQU	DWTRDS+4	INTERN BUFFER 
* 
	EJECT
* 
************* 
* CONSTANTS * 
************* 
* 
BIT0	EQU	/8000
BIT1	EQU	/4000
BIT2	EQU	/2000
BIT3	EQU	/1000
BIT4	EQU	/0800
BIT5	EQU	/0400
BIT6	EQU	/0200
BIT7	EQU	/0100
BIT8	EQU	/0080
BIT9	EQU	/0040
BIT10	EQU	/0020 
BIT11	EQU	/0010 
BIT12	EQU	/0008 
BIT13	EQU	/0004 
BIT14	EQU	/0002 
BIT15	EQU	/0001 
* 
* 
TIME2M	EQU	1200	TIME CONSTANT=2 MINUTES 
TIME1M	EQU	600	TIME CONSTANT=1 MINUTE 
TIME9S	EQU	90	TIME CONSTANT=9 SECONDS 
TIME1S	EQU	10	TIME CONSTANT=1 SECOND
BUFLEN	EQU	36	DWT BUFFER LENGTH 
BLKSIZ	EQU	30	BLOCK-SIZE OUTPUT TO LINE DRIVER
	EJECT
* 
****************
* RETURN CODES *
****************
* 
REQERR	EQU	BIT0	REQUEST ERROR 
NOCASS	EQU	BIT1	NO CASSETTE 
NOTDEL	EQU	BIT2	NOTES IN DELIVERY UNIT
BADNOT	EQU	BIT3	BAD NOTES 
REJFUL	EQU	BIT4	REJECT CASSETTE FULL
CASLOW	EQU	BIT5	CASSETTE LOW
CASEMP	EQU	BIT6	CASSETTE EMPTY
JAMNOT	EQU	BIT7	JAMMED NOTES
PWFAIL	EQU	BIT8	POWER FAILURE 
TIMOUT	EQU	BIT9	TIME-OUT
REJNOT	EQU	BIT10	REJECTED NOTES 
SEQERR	EQU	BIT11	SEQUENCE ERROR 
COMERR	EQU	BIT12	COMMUNICATION ERROR
FMERR	EQU	BIT13	FIRMWARE ERROR IN TND 
HWERR	EQU	BIT14	HARDWARE ERROR
NOTOPE	EQU	BIT15	NOT OPERABLE 
REJNF	EQU	REJNOT+REJFUL	REJECTED NOTES+REJECT CASSETTE FULL 
	EJECT
******************* 
* STATUS BITS IN DWTDEV * 
******************* 
* 
OPNBIT	EQU	BIT15	OPEN/CLOSE BIT (1/0) 
RESDON	EQU	BIT14	RESET DONE BIT (0) 
DISDON	EQU	BIT13	DISPENSE DONE (1)
	EJECT
* 
*************** 
* ORDER CODES * 
*************** 
* 
OPEN	EQU	/21	OPEN 
CLOSE	EQU	/22	CLOSE 
DISDEL	EQU	/2B	DISPENSE AND DELIVER 
READCO	EQU	/2A	READ CONTROL 
READDI	EQU	/2D	READ DIAGNOSTIC
READDS	EQU	/2C	READ DEVICE STATUS 
DUMP	EQU	/31	DUMP NOTES 
DELIVE	EQU	/38	DELIVER
	EJECT
* 
********************* 
* HARDWARE COMMANDS * 
********************* 
* 
RESET	EQU	/30	RESET 
DISDLV	EQU	/31	DISPENSE AND DELIVER 
DISPNS	EQU	/32	DISPENSE 
DELIVR	EQU	/33	DELIVER
REJECT	EQU	/34	REJECT NOTES 
CASNBR	EQU	/35	GET CASSETTE NUMBERS 
STADIS	EQU	/36	GET STATUS FROM LAST DISPENSE
LIFTDW	EQU	/37	LIFTS DOWN 
LIFTUP	EQU	/38	LIFTS UP 
RTRACE	EQU	/39	GET REJECT TRACE AREA
CHKDEL	EQU	/3A	CHECK DELIVER UNIT 
ENDCH	EQU	/0D	END OF MESSAGE
	EJECT
* 
**********
* TABLES *
**********
* 
* 
* 
	DATA	DVBLEN	MMU BUFFER LENGTH
	DATA	PC:DIX	PROGRAMMED CHANNEL DEVICE INDEX
TNAD	EQU	*
	DATA	ACTN	ACTIVATION DRIVER
	DATA	0	ABORT ROUTINE 
	DATA	0	INTERRUPT HANDLER 
	DATA	RCTN	RECOVERY ROUTINE 
* 
* 
TNTAB	EQU	*	ORDER TABLE 
	BYTE	OPEN,CLOSE
	BYTE	DISDEL,READCO 
	BYTE	READDI,READDS 
	IFT	SPLIT=1
	BYTE	DUMP,DELIVE 
	XIF
TNLEN	EQU	*-TNTAB-1 
* 
* 
TNFUN	EQU	*	NOTE DISPENSER FUNCTION 
	DATA	OPENTN,CLOSTN,DISPEN
	DATA	RDCONT,RDDIAG,RDDEVS
	IFT	SPLIT=1
	DATA	DUMPA,DELIV 
	XIF
	EJECT
* 
*	TABLE OF NO-STORE BYTE-NUMBERS OF MESSAGE AFTER HW-COMMAND /30 (RESET)
* 
	DATA	RESEND-RESTAB 
RESTAB	EQU	*
	BYTE	2,3	MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0
	BYTE	7,8	DITO HOPPER 1 
	BYTE	14,15	DITO HOPPER 2 
	BYTE	21,22	DITO HOPPER 3 
	BYTE	28,29	DITO HOPPER 4 
	BYTE	35,36	DITO HOPPER 5 
	BYTE	42,43	DITO HOPPER 6 
RESEND	EQU	*-1
* 
* 
* 
*	TABLE OF NO-STORE BYTE-NUMBERS OF MESSAGE AFTER HW-COMMAND /35
*	(GET CASSETTE NUMBERS)
* 
	DATA	CTABEN-CNBTAB 
CNBTAB	EQU	*
	BYTE	2,3	MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0
	BYTE	9,10	DITO HOPPER 1
	BYTE	16,17	DITO HOPPER 2 
	BYTE	23,24	DITO HOPPER 3 
	BYTE	30,31	DITO HOPPER 4 
	BYTE	37,38	DITO HOPPER 5 
	BYTE	44,45	DITO HOPPER 6 
CTABEN	EQU	*-1
	EJECT
* 
*	BIT IN RETURN CODE	HW-STATUS
* 
CASTAT	EQU	*
	QUART	5,6,15,10	31,32,33,34
	QUART	15,15,12,11	35,36,37,38
	QUART	7,1,7,3	39,3A,3B,3C
	QUART	7,15,15,15	3D,3E,3F,40 
	QUART	15,0,15,4	41,42,43,44
	QUART	15,14,14,14	45,46,47,49
	QUART	15,14,2,2	4A,4B,4C,4D
	QUART	12,14,15,15	4E,4F,50,51	=1 
	EJECT
* 
* 
*   ACTN
* 
* 
*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS
*                    AND STARTS PROCESSING
* 
* 
* 
ACTN	EQU	*
	CF	A5,CLDATA	CLEAR DATA IN DWT 
	LDK	A3,TNLEN 
ACTN10	CC	A7,TNTAB,A3	FIND OUT IF LEGAL ORDER 
	RF(E)	ACTN20	VALID ORDER 
	SUK	A3,1	DECREMENT INDEX 
	RB(NN)	ACTN10	TRY NEXT 
* 
* 
	ABL	LENDER	DISPATCH, END I/O ,REQUEST ERROR
* 
* 
	EJECT
ACTN20	EQU	*
* 
* 
* 
	ADR	A3,A3	GET INDEX
	ABI	TNFUN,A3	BRANCH TO VALID FUNCTION MODULE 
	EJECT
* 
*   THIS IS THE TIME OUT ROUTINE
* 
ACTNTO	EQU	*
	LDR	A6,A1	GET DWT ADDRESS
	LDK	A1,TIMOUT	SET RETURN CODE
	CM	DWTDEV+DWTTP,A6	RESET TIMER POINTER 
	CM	DWTDEV+DWTSTA,A6
	RF	OPCLEN	END I/O
	EJECT
* 
*	THIS IS THE DEVICE-BUSY-TIMEOUT ROUTINE 
* 
BSYTUT	EQU	*
	LDR	A6,A1	DWT ADDRESS
	LDKL	A5,DWTSB2 
	ADR	A5,A6	STACK BASE 
	CM	DWTDEV+DWTTP1,A6	RESET TIMER POINTER DEVICE BUSY
	CM	DWTDEV+DWTSTA,A6	RESET RETURN CODE ACCUMULATOR
	LD	A8,DWTECB,A6	ECB ADDRESS
	LD	A7,DWTOR,A6 
	ANK	A7,/FF	ORDER CODE
	RB	ACTN	DEVICE FREE.  TRY ORDER AGAIN
	EJECT
* 
*	THIS IS THE ROUTINE TO OPEN AND CLOSE THE NOTE DISPENSER
* 


* 
*	LIFTS UP
* 
OPENTN	EQU	*
	LDKL	A7,TIME1M 
	CF	A15,TIMER 
	LDK	A2,LIFTUP	LIFTS UP COMMAND 
	CF	A5,SENCOM	SEND COMMAND
	CF	A5,RECMES	RECEIVE MESSAGE 
	RF(NZ)	OPCLEN	END BECAUSE OF ERROR IN MESSAGE
* 
*	DUMMY-COMMAND (SEND CASSETTE NUMBERS) ONLY TO CLEAR,
*	 IN TND-MICROPROCESSOR, THE FLAG INDICATING 'LIFTS HAVE BEEN DOWN'
* 
	LDK	A2,CASNBR	COMMAND: GET CASSETTE NUMBERS
	CF	A5,SENCOM	SEND COMMAND
OPE090	EQU	*
	CF	A5,RECMES	RECIEVE MESSAGE 
	RF(P)	OPCLEN	END BECAUSE OF ERROR IN MESSAGE 
	RB(NZ)	OPE090	NEXT CHAR
	CM	DWTDEV+DWTSTA,A6	CLEAR STATUS AFTER DUMMY COMMAND 
	EJECT
* 
*	RESET NOTE DISPENSER
* 
	LDKL	A2,RESTAB	TABLE TO KNOW WHICH MESSAGE BYTES 
*			NOT TO STORE INTO USER BUFFER 
	ST	A2,DWTDEV+DWTTAB,A6	
	LDK	A4,0	USER BUFFER DISPLACEMENT
	LDK	A3,/30 
	CF	A5,STORE	DUMMY IN USER BUFFER 
	CF	A5,STORE	DUMMY IN USER BUFFER 
	LDK	A2,RESET 
OPE100	EQU	*
	LDK	A3,'0' 
	ST	A3,DWTDEV+DWTCNB,A6	INDICATE OLD CASSETTE = 0 
	CF	A5,SENCOM	SEND COMMAND
OPE110	EQU	*
	CF	A5,RECMES	RECEIVE MESSAGE 
	RF(Z)	OPE120	END OF MESSAGE
	RF(P)	OPCLEN	END BECAUSE OF ERROR IN MESSAGE 
	CF	A5,STORE	BUILD USER BUFFER
	RB	OPE110
	EJECT
OPE120	EQU	*
	LD	A2,DWTDEV,A6
	ANK	A2,RESDON
	RF(Z)	OPE130	RESET DONE
	C1R	A2,A2
	ANS	A2,DWTDEV,A6	INDICATE RESET DONE 
	LDKL	A2,CNBTAB	TABLE TO KNOW WHICH MESSAGE BYTES 
*			NOT TO STORE INTO USER BUFFER 
	ST	A2,DWTDEV+DWTTAB,A6	STORE CONTROL TABLE 
	LDK	A2,2 
	ST	A2,DWTDEV+DWTNCR,A6	NUMBER OF CHARACTERS RECEIVED 
	LDK	A4,5	USER BUFFER DISPLACEMENT
	LDK	A2,CASNBR	GET CASSETTE NUMBER
	RB	OPE100
OPE130	EQU	*
	LDK	A7,OPNBIT+RESDON 
	ORS	A7,DWTDEV,A6	INDICATE ND OPEN AND RESET NOT DONE 
	LDK	A7,2	READ ORDER	=2 
	SC	A7,DWTOR+1,A6	INDICATE MOVE BUF. TO USER	=2 
	EJECT
* 
*	COMMON END
* 
ENDIOC	EQU	*
	CM	DWTDEV+DWTBUF+2,A6	RESET READ CONTROL BUFFER LENGTH 
ENDIOL	EQU	*
	LD	A8,DWTECB,A6	RESTORE (REAL) ECB-ADDRESS 
	ST	A4,ECBEL,A8	UPDATE EFFECTIVE LENGTH 

ENDIO	EQU	* 
	OR	A1,DWTDEV+DWTSTA,A6	SET RETURN CODE 
	LD	A4,DWTDEV+DWTTP,A6	LOAD TIMER POINTER 
	RF(Z)	ENDI10	NO TIMING 
	CMR	A4	RESET TIMER 
	CM	DWTDEV+DWTTP,A6	RESET TIMER POINTER 
ENDI10	EQU	*
	LD	A4,DWTDEV+DWTTP1,A6	TIMER POINTER DEVICE BUSY 
	RF(Z)	ENDI20	NO TIMER
	CMR	A4	RESET TIMER 
	CM	DWTDEV+DWTTP1,A6	RESET TIMER POINTER DEVICE BUSY
ENDI20	EQU	*
	ABL	LENDIS	END I/O AND DISPATCH
	EJECT
* 
*	CLOSE NOTE DISPENSER
* 


* 
*	LIFTS DOWN
* 
CLOSTN	EQU	*
	LDK	A7,TIME9S
	CF	A15,TIMER 
	LDK	A2,LIFTDW
	CF	A5,SENCOM	SEND COMMAND
	CF	A5,RECMES	RECEIVE MESSAGE 
	LDKL	A4,-OPNBIT-1
	ANS	A4,DWTDEV,A6	INDICATE NOTE DISPENSER CLOSED
OPCLEN	EQU	*
	LDK	A7,RESDON
	ORS	A7,DWTDEV,A6	INDICATE RESET NOT DONE 
ENDIOZ	EQU	*
	LDK	A4,0 
	RB	ENDIOC
	EJECT
* 
*   DISPENSE AND DELIVER   /2B
* 
DISPEN	EQU	*
	LDKL	A7,TIME2M 
	CF	A15,TIMER 
	LD	A2,DWTDEV,A6
	ANK	A2,OPNBIT
	RF(Z)	SEQER	ND NOT OPEN, INDICATE SEQUENCE ERROR 
	CF	A5,DSRQTS	TEST IF REQUEST ERROR 
	LDK	A2,BLKSIZ	BLOCK-SIZE 
	CF	A5,STABLK	DEFINE START OF BLOCK 
	ABL(NZ)	LINERR	LINE ERROR STATUS 
	IFT	SPLIT=0
	LDK	A2,DISDLV	DISPENSE AND DELIVER 
	XIF
	IFT	SPLIT=1
	LDK	A2,DISPNS	DISPENSE 
	XIF
	XRS	A2,DWTDEV+DWTLRC,A6	UPDATE LRC ACKUMULATOR 
	SC	A2,DWTDEV+DWTRDS,A6	SAVE HW-ORDER 
	CF	A5,OUTPUT	SEND COMMAND DISPENSE AND DELIVER 
	ABL(NZ)	LINERR	LINE ERROR STATUS 
	LC	A2,DWTDEV+DWTLR,A6	LEFT OR RIGHT TELLER 
	ADK	A2,/30	MAKE ASCII
	XRS	A2,DWTDEV+DWTLRC,A6	UPDATE LRC ACKUMULATOR 
	CF	A5,OUTPUT	SEND LEFT OR RIGHT TELLER 
	ABL(NZ)	LINERR	LINE ERROR STATUS 
	LD	A4,ECBBA,A8	USER BUFFER ADDRESS 
	LDK	A3,/31	CASSETTE 1
	EJECT
* 
*	SEND CASSETTE DATA
* 
DIS100	EQU	*
	CF	A5,SENCAS	SEND CASSETTE DATA
	RB(NZ)	DIS100	NOT LAST CASSETTE
	CF	A5,LRCEOM	SEND LRC AND END OF MESSAGE 
DIS110	EQU	*
	LDK	A4,0	BUFFER DISPLACEMENT 
	LDK	A2,BUFLEN	DWT BUFFER LENGTH
	ST	A2,DWTDEV+DWTBUF+2,A6 
	LDR	A2,A6
	ADKL	A2,DWTDEV+DWTBUF+4	A2:=DWT BUFFER POINTER 
	ST	A2,DWTDEV+DWTBUF,A6 
	EJECT
* 
*	RECEIVE MESSAGE 
* 
DIS120	EQU	*
	CF	A5,RECMES	RECEIVE MESSAGE 
	RB(P)	ENDIOZ	ERROR IN MESSAGE
	RF(Z)	DADEND	END OF MESSAGE
	LD	A8,DWTDEV+DWTBUF,A6 
	SUKL	A8,6	VIRTUAL ECB POINTER
	CF	A5,STORE	STORE CHARACTER INTO DWT-INTERN BUFFER 
	RB	DIS120
DADEND	EQU	*
	IFT	SPLIT=1
	LD	A7,DWTOR,A6	GET ORDER 
	ANK	A7,/FF	MASK
	CWK	A7,DISDEL
	RF(E)	DIS125	DISPENSE ORDER
	LDR	A1,A1	RETURN CODE WITHOUT WARNINGS 
	RF(NZ)	DIS130	COMMAND NOT OK 
	LDKL	A3,-DISDON-1
	ANS	A3,DWTDEV,A6	INDICATE DISPENSE NOT DONE
	RF	DIS130	 
DIS125	EQU	*
	LDR	A1,A1	RETURN CODE WITHOUT WARNINGS 
	RF(NZ)	DIS130	COMMAND NOT OK 
	LDK	A2,DISDON
	ORS	A2,DWTDEV,A6	INDICATE DISPENSE DONE
DIS130	EQU	*
	XIF
	ST	A4,DWTDEV+DWTBUF+2,A6	SAVE BUFFER LENGTH
	RB	ENDIO 
* 
*	SEQUENCE ERROR
* 
SEQER	EQU	* 
	LDK	A1,SEQERR
	RB	ENDIOZ
	EJECT
* 
*	READ CONTROL
* 
RDCONT	EQU	*
	LDK	A4,'0' 
	ST	A4,DWTDEV+DWTCNB,A6	INDICATE OLD CASSETTE = 0 
	LDK	A4,0	USER BUFFER DISPLACMENT 
	C2	DWTDEV+DWTBUF+2,A6	NEGATE DWT BUFFER LENGTH 
	RF(Z)	RDC120	NOTHING IN BUFFER 
RDC100	EQU	*
	LC*	A3,DWTDEV+DWTBUF,A6	GET CASSETTE NUMBER
	CF	A5,RESCAS	RESET CASSETTES NOT IN SEQUENCE 
	IM	DWTDEV+DWTBUF,A6	NEXT CHARCATER IN DWT BUFFER 
	IM	DWTDEV+DWTBUF+2,A6	NUMBER OF CHARACTERS 
	LDK	A3,/30 
	CF	A5,STORE
	LDK	A1,3	GET 4 BYTES FROM DWT BUFFER 
RDC110	EQU	*
	LC*	A3,DWTDEV+DWTBUF,A6	GET CHARACTER
	CF	A5,STORE
	IM	DWTDEV+DWTBUF,A6	UPDATE BUFFER POINTER
	IM	DWTDEV+DWTBUF+2,A6
	RF(Z)	RDC120	WHOLE BUFFER MOVED
	SUK	A1,1 
	RB(NN)	RDC110	NEXT FOR THIS CASSETTE 
	RB	RDC100
RDC120	EQU	*
	LDR	A1,A6
	ADKL	A1,DWTDEV+DWTBUF+4	A1:=DWT BUFFER POINTER 
	ST	A1,DWTDEV+DWTBUF,A6 
	LDK	A1,0	RETURN CODE 
ENIOL1	EQU	*
	ABL	ENDIOL 
	EJECT
* 
*	READ DIAGNOSTIC 
* 
RDDIAG	EQU	*
	LDK	A7,TIME1S
	CF	A15,TIMER 
	LDK	A2,RTRACE	GET REJECT TRACE AREA
	CF	A5,SENCOM	SEND COMMAND
	LDK	A4,0	USER BUFFER DISPLACEMENT
RDD100	EQU	*
	CF	A5,RECMES	RECEIVE MESSAGE 
	RF(NN)	RDD110	END OF MESSAGE OR ERROR IN MESSAGE 
	CF	A5,STORE	SAVE CHARACTER (A3) IN USER BUFFER 
	RB	RDD100	NEXT CHARACTER 
RDD110	EQU	*
	RB	ENIOL1
	EJECT
* 
*	READ DEVICE STATUS
* 
RDDEVS	EQU	*
	LDKL	A2,DWTDEV+DWTRDS
	ADR	A2,A6	DATA POINTER 
	LDK	A4,0	BUFFER INDEX
RDS100	EQU	*
	LCR	A3,A2
	ANK	A3,/FF 
	RF(Z)	RDS110	END OF BUFFER 
	CF	A5,STCHAR	STORE CHARACTER IN USER BUFFER
	ADK	A2,1	UPDATE POINTER
	CWK	A4,4 
	RB(L)	RDS100	NEXT CHARACTER
RDS110	EQU	*
	LDK	A1,0	RETURN CODE 
	RB	ENIOL1
	IFT	SPLIT=1
	EJECT
* 
*	DELIVER NOTES  /38
* 
DELIV	EQU	* 
* 
*	CHECK IF NOTES IN DELIVERY UNIT 
* 
	LDK	A7,TIME9S
	CF	A15,TIMER 
	LDK	A2,CHKDEL
	CF	A5,SENCOM	SEND COMMAND
DEL100	EQU	*
	CF	A5,RECMES	RECEIVE MESSAGE 
	ABL(P)	ENDIO	COMMUNICATION ERROR 
	LD	A1,DWTDEV+DWTSTA,A6	RETURN CODE 
	ABL(NZ)	ENDIO	NOTES IN DELIVERY UNIT 
	LD	A2,DWTDEV,A6
	ANK	A2,DISDON
	RB(Z)	SEQER	DISPENSE NOT DONE,SEQUENCE ERROR 
	LDK	A2,DELIVR
	RF	DUM100
	EJECT
* 
*	DUMP NOTES  /31 
* 
DUMPA	EQU	* 
	LDK	A7,TIME9S
	CF	A15,TIMER 
	LDK	A2,REJECT
DUM100	EQU	*
	CF	A5,SENCOM	SEND COMMAND
	ABL	DIS110	RECEIVE MESSAGE 
	XIF
	EJECT
* 
* 
*   RCTN
* 
*   RECOVERY AT POWER ON
* 
* 
RCTN	EQU	*
	LDKL	A1,-OPNBIT-1
	ANS	A1,DWTDEV,A6	INDICATE ND NOT OPEN
	LDK	A1,RESDON
	ORS	A1,DWTDEV,A6	INDICATE RESET NOT DONE 
	LDR	A8,A8	ANY ECB ADDRESS ?
	ABL(Z)	LDISP	NO. DEVICE NOT BUSY 
	LDK	A1,PWFAIL	SET POWER FAILURE BIT
	CWK	A7,READCO
	ABL(E)	ENDIO	READ CONTROL ORDER
	ABL	ENDIOZ	OTHER ORDERS THAN READ CONTROL
	EJECT
* 
* 
*   SUBROUTINES 
* 
* 
* 


* 
*	SET TIMER 
*	A7=TIME VALUE 
* 
TIMER	EQU	* 
	LD	A1,DWTDEV+DWTTP,A6	TIMER POINTER
	RF(NZ)	TIM100	TIMER ALREADY SET
	LDR	A1,A6	SAVE DWT ADDRESS IF TIMEOUT
	CF	A15,SETIME	SET TIME 
	DATA	ACTNTO,TIME1S	TIME1S OUT ROUTINE AND TIME1S 
	ST	A4,DWTDEV+DWTTP,A6	STORE TIMER ADDRESS IN DWT 
	NGR	A7,A7
	STR	A7,A4	NEW TIME VALUE 
TIM100	EQU	*
	RTN	A15
	EJECT
CLDATA	EQU	*
	CM	DWTDEV+DWTLRC,A6	RESET LRC BUFFER 
	LC	A1,DWTOR,A6	INDEX 
	ANK	A1,1 
	SC	A1,DWTDEV+DWTLR,A6	LEFT OR RIGHT TELLER 
	CM	DWTDEV+DWTBFR,A6	CLEAR DELAY BUFFER 
	CM	DWTDEV+DWTSTA,A6	CLEAR NOTE DISPENSER STATUS
	CM	DWTDEV+DWTTAB,A6	CLEAR STORE-TABLE POINTER
	CM	DWTDEV+DWTNCR,A6	CLEAR NUMBER OF CHARACTERS RECEIVED
	CWK	A7,READDS
	RF(E)	CLD100	ORDER READ DEVICE STATUS
	CM	DWTDEV+DWTRDS,A6
	CM	DWTDEV+DWTRDS+2,A6
CLD100	EQU	*
	RTN	A5 
	EJECT
* 
*	SUBROUTINE TO GET RETURN CODE FROM H.W. STATUS
* 
*	ENTRY:  A2 = H.W. STATUS
* 
*	EXIT: 
*	        A1,A2 = IRRELEVANT
*	        RETURN CODE IN DWTSTA 
* 
STATUS	EQU	*
	LDK	A1,0 
	CWK	A2,/33 
	RF(E)	STA150	DEVICE BUSY BECAUSE LIFTS ARE DOWN
	CWK	A2,/30 
	RF(E)	STA160	DEVICE OK 
	LC	A1,DWTDEV+DWTRDS+1,A6	OLD STATUS
	ANK	A1,/FF 
	RF(NZ)	STA080	BYTE ALREADY OCCUPIED
	SC	A2,DWTDEV+DWTRDS+1,A6	SAVE HW STATUS
	RF	STA090
STA080	EQU	*
	SC	A2,DWTDEV+DWTRDS+3,A6	SAVE HW STATUS
STA090	EQU	*
	SUK	A2,/30	CHECK LOWER LIMIT 
	RF(N)	STA180	WRONG HW-STATUS 
	SUK	A2,/21	 CHECK UPPER LIMIT	=1 
	RF(P)	STA180	WRONG HW-STATUS 
	ADK	A2,/20	ADJUST BACK, AND DECR WITH /31.	=1
	EJECT
	CWK	A2,/17 
	RF(E)	STA140	STATUS /48,HIGH PRESSURE = WARNING
	RF(L)	STA100	DON'T SKIP /48
	SUK	A2,1	SKIP /48
STA100	EQU	*
	SRC	A2,1 
	RF(N)	STA110	ODD QUART 
	LC	A2,CASTAT,A2
	SRL	A2,4	A2:=BIT NUMBER IN RETURN CODE 
	RF	STA120
STA110	EQU	*
	ANK	A2,/FF 
	LC	A2,CASTAT,A2
	ANK	A2,/F	A2:=BIT NUMBER IN RETURN CODE
STA120	EQU	*
	LDK	A1,1	SET BIT 15
STA130	EQU	*
	SRC	A1,1 
	SUK	A2,1 
	RB(NN)	STA130	BIT NOT IN CORRECT POSITION
STA140	EQU	*
	ORS	A1,DWTDEV+DWTSTA,A6	SET RETURN CODE
	LDK	A1,0 
	RTN	A5 
	EJECT
STA150	EQU	*
	SUK	A1,1	INDICATE DEVICE BUSY (LIFTS ARE DOWN) 
STA160	EQU	*
	LD	A2,DWTDEV+DWTRDS+2,A6	HW ORDER AND STATUS 2 
	RF(NZ)	STA170	BOTH STATUS WORDS OCCUPIED 
	CM	DWTDEV+DWTRDS,A6
STA170	EQU	*
	CM	DWTDEV+DWTRDS+2,A6
	RB	STA140
STA180	EQU	*
	LDK	A1,FMERR	FIRMWARE-ERROR IN TND 
	RB	STA140	 
	EJECT
* 
* 
* 
*	THIS SUBROUTINE IS ENTERED
*	WHEN LINE DRIVER ERROR STATUS IS DETECTED 
* 
* 
LINERR	EQU	*
	LDK	A1,NOTOPE	RETURN CODE FOR ECB: NOT OPERABLE
	ORS	A1,DWTDEV+DWTSTA,A6	SET RETURN CODE INTO ECB 
	ABL	OPCLEN	INDICATE RESET NOT DONE ETC.
	EJECT
* 
*	THIS SUBROUTINE SENDS A ONE BYTE LONG COMMAND 
*	AND CALCULATES LRC,SENDS IT AND SENDS END OF MESSAGE
* 
*	ENTRY: A2 = COMMAND TO SEND 
* 
*	EXIT:  A1,A2,A3 = IRRELEVANT
* 
SENCOM	EQU	*
	LDR	A3,A2	SAVE THE COMMAND 
	LDK	A2,BLKSIZ	GET BLOCKSIZE
	CF	A5,STABLK	DEFINE START OF BLOCK 
	RB(NZ)	LINERR	LINE ERROR STATUS
	LDR	A2,A3	RESTORE THE COMMAND
	SC	A2,DWTDEV+DWTLRC+1,A6	SAVE LRC SUM
	LD	A1,DWTDEV+DWTRDS,A6	FIRST WORD IN LOGG AREA 
	RF(NZ)	SEN100	ONE LOGG ALREADY DONE
	SC	A2,DWTDEV+DWTRDS,A6	SAVE HW ORDER 
	RF	SEN200
SEN100	EQU	*
	SC	A2,DWTDEV+DWTRDS+2,A6	SAVE HW ORDER 
SEN200	EQU	*
	CF	A5,OUTPUT	SEND BYTE 
	RB(NZ)	LINERR	LINE ERROR STATUS
* 
*	SEND LRC AND END OF MESSAGE 
* 
LRCEOM	EQU	*
	LC	A3,DWTDEV+DWTLRC+1,A6	GET LRC SUM 
	ANK	A3,/FF 
	LDR	A2,A3
	SRL	A2,4 
	ANK	A3,/F
	ADK	A2,/30	CMSD
	ADK	A3,/30	CLSD
	CF	A5,OUTPUT	SEND BYTE 
	RB(NZ)	LINERR	LINE ERROR STATUS
	LDR	A2,A3	CLSD 
	CF	A5,OUTPUT	SEND BYTE 
	RB(NZ)	LINERR	LINE ERROR STATUS
	LDK	A2,ENDCH	END CHARACTER 
	CF	A5,OUTPUT	SEND BYTE 
	RB(NZ)	LINERR	LINE ERROR STATUS
	LDK	A2,0 
	SC	A2,DWTDEV+DWTLRC+1,A6	RESET LRC ACKUMULATOR 
	CF	A5,ENDBLK	DEFINE END OF BLOCK 
	RB(NZ)	LINERR	LINE ERROR STATUS
	RTN	A5 
	EJECT
* 
*	SUBROUTINE TO SEND DATA TO EACH CASSETTE
* 
*	ENTRY:  A4 = USER BUFFER POINTER
*	        A3 = CASSETTE NUMBER
* 
*	EXIT:   A4 = A4 + 5 
*	        A3 = A3 + 1 
*	        A1,A2 = IRRELEVANT
* 
SENCAS	EQU	*
	ST	A3,DWTDEV+DWTBUF,A6	SAVE A3 
	XRS	A3,DWTDEV+DWTLRC,A6	UPDATE LRC 
	LDR	A2,A3
	CF	A5,OUTPUT 
	RB(NZ)	LINERR	LINE ERROR STATUS
	ADK	A4,2 
	LDK	A3,2 
SCA100	EQU	*
	LCR	A2,A4
	XRS	A2,DWTDEV+DWTLRC,A6	UPDATE LRC 
	CF	A5,OUTPUT 
	RB(NZ)	LINERR	LINE ERROR STATUS
	ADK	A4,1	UPDATE BUFFER POINTER 
	SUK	A3,1 
	RB(NN)	SCA100	DATA FOR THIS CASSETTE NOT FINISHED
	LD	A3,DWTDEV+DWTBUF,A6	SAVED REGISTER=CASSETTE NBR 
	ADK	A3,1	NEXT CASSETTE 
	ADK	A5,4	ADJUST STACK
	LD	A2,ECBBA,A8 
	AD	A2,ECBRL,A8 
	CWR	A4,A2	SET CR 
	ABR*	A5	RETURN 
	EJECT
*	THIS ROUTINE RECEIVES A MESSAGE FROM NOTE DISPENSER 
*	IF DWTBFR IS ZERO,IT RECEIVES STATUS+3 BYTES
*	IF THE LAST BYTE IS EOM,IT CHECKS LRC AND THEN RETURNS
*	IF DWTBFR IS NOT ZERO,IT RECEIVES ONE BYTE
* 
*	ENTRY: NOTHING
*	EXIT:  A3 = RECEIVED CHARACTER
*	       A2 = IRRELEVANT
*	       A1 = RETURN CODE 
*	       CR = O MEANS EOM AND LRC OK
*	            1 MEANS EOM AND LRC BAD 
*	            2 MEANS NOT EOM 
RECMES	EQU	*
	LD	A2,DWTDEV+DWTBFR,A6 
	RF(NZ)	REC100	NOT FIRST TIME 
	CF	A5,INPUT	GET STATUS 
	XRS	A2,DWTDEV+DWTLRC,A6	UPDATE LRC 
	CF	A5,STATUS	TEST STATUS AND SET RETURN CODE 
	CF	A5,INPUT	GET NEXT BYTE
	SC	A2,DWTDEV+DWTBFR,A6	SAVE CHARACTER
	CF	A5,INPUT	GET NEXT BYTE
	SC	A2,DWTDEV+DWTBFR+1,A6	SAVE CHARACTER
REC100	EQU	*
	CF	A5,INPUT	GET CHARACTER
	ADK	A5,4	UPDATE STACK POINTER
	CCK	A2,/0D0D 
	RF(E)	REC120	END OF MESSAGE
	LD	A3,DWTDEV+DWTBFR,A6	GET TWO LAST CHARACTERS 
	SC	A3,DWTDEV+DWTBFR,A6	UPDATE DELAY BUFFER 
	SRL	A3,8 
	XRS	A3,DWTDEV+DWTLRC,A6	UPDATE LRC ACK.
	SC	A2,DWTDEV+DWTBFR+1,A6	UPDATE DELAY BUFFER 
	LDKL	A1,-1	SET CR
REC110	EQU	*
	ABR*	A5
	EJECT
* 
*	CHECK LRC 
* 
REC120	EQU	*
	LD	A3,DWTDEV+DWTBFR,A6	DELAY BUFFER WITH CMSD,CLSD 
	LDR	A2,A3
	ANK	A2,/FF 
	SUK	A2,/30 
	SRL	A3,8 
	SUK	A3,/30 
	SLL	A3,4 
	ORR	A3,A2	LRC VALUE
	LC	A2,DWTDEV+DWTLRC+1,A6	DRIVER LRC VALUE
	CM	DWTDEV+DWTBFR,A6	RESET INTERN BUFFER
	LD	A1,DWTDEV+DWTSTA,A6	RETURN CODE 
	CWK	A1,-1
	RF(E)	REC130	HW DEVICE BUSY BECAUSE LIFTS ARE DOWN 
	ANKL	A1,-CASLOW-REJNF-1	MASK WARNINGS
	CWR	A3,A2
	RB(E)	REC110	EOM AND LRC OK
	LDKL	A1,COMERR	SET CR AND RETURN CODE
	RB	REC110
	EJECT
* 
*	HW DEVICE BUSY BECAUSE LIFTS ARE DOWN 
*	 (DELAY AND TRY ORDER AGAIN)
* 
REC130	EQU	*
	LDR	A1,A6	SAVE DWT ADDRESS 
	CF	A15,SETIME
	DATA	BSYTUT,TIME1S 
	ST	A4,DWTDEV+DWTTP1,A6	SAVE TIMER POINTER
	ABL	LDISP	DISPATCH 
	EJECT
* 
*   STORE = SUBROUTINE TO STORE CHARACTER 
*           IN ECB-BUFFER AND INCREMENT BUFFER-INDEX
* 
*	ENTRY :  DWTTAB = CONTROL TABLE  (=0 MEANS NO CONTROL ) 
*	         A3 = CHARACTER TO STORE
*	         A4 = USER BUFFER INDEX 
*	         DWTNCR = NUMBER OF CHARCTERS RECEIVED
*	         DWTCNB = OLD CASSETTE NUMBER 
* 
*	EXIT  :  DWTTAB = NOT CHANGED 
*	         A3 = CHANGED IF CASSETTE NUMBER TO '0' 
*	         A4 = A4 + 1  IF CHARACTER NOT FILTERED WITH CONTROL TABLE
*	         DWTNCR = DWTNCR + 1
*	         DWTCNB = NEW CASSETTE NUMBER 
* 
STORE	EQU	* 
	LD	A7,DWTDEV+DWTTAB,A6 
	RF(Z)	STO105	NO TABLE
	AD	A7,-2,A7	POINTER TO END OF TABLE
	LD	A2,DWTDEV+DWTNCR,A6	NUMBER OF CHARACTERS RECEIVED 
STO100	EQU	*
	CCR	A2,A7
	RF(E)	STO110	CHARACTER FOUND IN TABLE,DON'T STORE IT 
	SUK	A7,1	UPDATE TABLE POINTER
	CW	A7,DWTDEV+DWTTAB,A6 
	RB(NL)	STO100	NOT END OF TABLE 
* 
*	STORE IT IN USER BUFFER AND INCREMENT A4
* 
STO105	EQU	*
	CF	A5,STCHAR	STORE CHARACTER IN USER BUFFER
	RF	STO140
	EJECT
* 
*	CHECK IF SOME CASSETTE IS MISSING 
* 
STO110	EQU	*
	LC	A2,DWTOR+1,A6	ORDER CODE
	SUK	A2,OPEN
	RF(NZ)	STO140	NOT OPEN ORDER 
	ANK	A7,1	EVEN ADDRESS ? (=ADDRESS TO BYTE NUMBER 
*			OF MESSAGE BYTE CONTAINING CASS NBR)
	RF(NZ)	STO140	NO. NOT CASSETTE NUMBER BUT CASS STAT
* 
*	RESET CASSETTES NOT IN SEQUENCE 
*	CASSETTE NUMBER IN A3 
* 
RESCAS	EQU	*
	LD	A2,DWTDEV+DWTCNB,A6	OLD CASSETTE NUMBER 
	ST	A3,DWTDEV+DWTCNB,A6	NEW CASSETTE NUMBER 
	SUR	A3,A2
	LDK	A2,0 
	SUK	A3,1 
	RF(NP)	STO140	CASSETTES IN SEQUENCE
STO120	EQU	*
	ADK	A2,5 
	SUK	A3,1 
	RB(P)	STO120	MORE CASSETTES TO RESET 
	LDK	A3,'0' 
STO130	EQU	*
	CF	A5,STCHAR	STORE CHARACTER 
	SUK	A2,1 
	RB(P)	STO130	RESET NOT FINISHED
STO140	EQU	*
	IM	DWTDEV+DWTNCR,A6	NUMBER OF CHARACTERS RECEIVED
	RTN	A5 
	EJECT
* 
*STORE CHARACTER IN USER BUFFER 
* 
*	ENTRY :  A4 = INDEX IN USER BUFFER
*	         A3 = CHARACTER TO STORE
* 
*	EXIT  :  A4 = A4 + 1
*	         A3 = NOT CHANGED 
*	         A7 = IRRELEVANT
* 
STCHAR	EQU	*
	CW	A4,ECBRL,A8 
	RF(NL)	STC110	TOO SMALL USER BUFFER
	LD	A7,ECBBA,A8	BUFFER ADDRESS
	ADR	A7,A4	ADD BUFFER INDEX 
	SCR	A3,A7	STORE CHARACTER
STC100	EQU	*
	ADK	A4,1 
	RTN	A5 
* 
*	USER BUFFER TOO SMALL 
* 
STC110	EQU	*
	LDKL	A7,REQERR	REQUEST ERROR 
	ORS	A7,DWTDEV+DWTSTA,A6	SET RETURN CODE
	RB	STC100
	EJECT
* 
*	SUBROUTINE TO TEST DISPENSE REQUEST ERROR 
* 
*	ENTRY:  A8 = ECB-ADDRESS
* 
*	EXIT:   A1,A2,A3 = IRRELEVANT  IF REQUEST ERROR 
*	                               A1=/8000 AND JUMP TO ENDIO 
* 
DSRQTS	EQU	*
	LD	A7,ECBBA,A8	BUFFER ADDRES 
	LD	A3,ECBRL,A8	REQUESTED LENGTH
DSR100	EQU	*
	CF	A5,CASTST	TEST CASSETTE DATA
	SUK	A3,5 
	RB(P)	DSR100	NEXT CASSETTE 
	RF(N)	CST110	REQUEST ERROR 
	RTN	A5 
	EJECT
* 
*	SUBROUTINE TO TEST CASSETTE DATA
* 
*	ENTRY:  A7 = BUFFER POINTER 
* 
*	EXIT:   A7 = A7 + 5 
*	        A2 = IRRELEVANT 
*	        A1 = IRRELEVANT OR /8000 AND JUMP TO ENDIO
* 
CASTST	EQU	*
	ADK	A7,2 
	LDK	A1,2	INTERN INDEX
CST100	EQU	*
	LCR	A2,A7
	ANK	A2,/FF	CHARACTER TO TEST 
	SUK	A2,/30 
	RF(N)	CST110	REQUEST ERROR 
	SUK	A2,9 
	RF(P)	CST110	REQUEST ERROR 
	ADK	A7,1 
	SUK	A1,1 
	RB(NN)	CST100	NEXT CHARACTER 
	RTN	A5 
* 
*	REQUEST ERROR 
* 
CST110	EQU	*
	ABL	LENDER 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRTN01  REL 11.0 81-03-18 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…0066              Head {h00=0x002c, h01=0x0050, text=»*   =1 SUPPORT BOTH TND2.05 AND TND6.01 «, t00=0x0000, t01=0x003a}
0x0066…009a              Head {h00=0x0030, h01=0x0050, text=»   =2,NO MOVE OF USER BUF. WHEN OPN AND MMU «, t00=0x0000, t01=0x006a}
0x009a…00ba              Head {h00=0x001c, h01=0x0050, text=»   =2,REL 11.0 81-01-28 «, t00=0x0000, t01=0x009e}
0x00ba…00d8              Head {h00=0x001a, h01=0x0050, text=»*   REL 11.0  81-01-26«, t00=0x0000, t01=0x00be}
0x00d8…00e0              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00dc}
0x00e0…0124              Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x00e4}
0x0124…012e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0158              Head {h00=0x0026, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM   PTS «, t00=0x0000, t01=0x0132}
0x0158…0162              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…0194              Head {h00=0x002e, h01=0x0050, text=»*   DRTN01 = DRIVER TELLER NOTE DISPENSER «, t00=0x0000, t01=0x0166}
0x0194…019e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01e2              Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x0012}
0x01e2…01ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0056}
0x01ec…01f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f6…0234              Head {h00=0x003a, h01=0x0050, text=»*   THIS DRIVER HANDLES THE MICROCOMPUTER IN THE NOTE «, t00=0x0001, t01=0x006a}
0x0234…0250              Head {h00=0x0018, h01=0x0050, text=»*   DISPENSER (ND). «, t00=0x0001, t01=0x00a8}
0x0250…0276              Head {h00=0x0022, h01=0x0050, text=»*   (VERSION 2.05 AND 6.01) =1«, t00=0x0001, t01=0x00c4}
0x0276…02b8              Head {h00=0x003e, h01=0x0050, text=»*   THE ND IS INTENDED FOR USE IN PTS6000 BANKING SYSTEMS.«, t00=0x0001, t01=0x00ea}
0x02b8…02c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…0302              Head {h00=0x003c, h01=0x0050, text=»*   THE INTENTION WITH THE NOTE DISPENSER IS TO DISPENSE«, t00=0x0001, t01=0x0136}
0x0302…0340              Head {h00=0x003a, h01=0x0050, text=»*   BANK NOTES FROM CASSETTES TO THE TERMINAL OPERATOR«, t00=0x0001, t01=0x0176}
0x0340…037e              Head {h00=0x003a, h01=0x0050, text=»*   OR THE CUSTOMER.UP TO 100 NOTES CAN BE ORDERED IN «, t00=0x0002, t01=0x0024}
0x037e…03bc              Head {h00=0x003a, h01=0x0050, text=»*   ONE COMMAND FROM A NUMBER OF CASSETTES CONTAINING «, t00=0x0002, t01=0x0062}
0x03bc…03de              Head {h00=0x001e, h01=0x0050, text=»*   VARIOUS DENOMINATIONS.«, t00=0x0002, t01=0x00a0}
0x03de…03e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…03f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00cc}
0x03f2…0426              Head {h00=0x0030, h01=0x0050, text=»*   THE DRIVER CONSISTS OF FOLLOWING PARTS: «, t00=0x0002, t01=0x00d6}
0x0426…0430              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010a}
0x0430…0464              Head {h00=0x0030, h01=0x0050, text=»*   ACTN:   ACTIVATION PART,ORDER PROCESSOR «, t00=0x0002, t01=0x0114}
0x0464…0488              Head {h00=0x0020, h01=0x0050, text=»*   RCTN:   RECOVERY ROUTINE«, t00=0x0002, t01=0x0148}
0x0488…0492              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0492…049c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0176}
0x049c…04ca              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0180}
0x04ca…04d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001e}
0x04d4…04e8              Head {h00=0x0010, h01=0x0050, text=»* /21   OPEN«, t00=0x0003, t01=0x0028}
0x04e8…04fe              Head {h00=0x0012, h01=0x0050, text=»* /22   CLOSE «, t00=0x0003, t01=0x003c}
0x04fe…0520              Head {h00=0x001e, h01=0x0050, text=»* /2C   READ DEVICE STATUS«, t00=0x0003, t01=0x0052}
0x0520…053c              Head {h00=0x0018, h01=0x0050, text=»* /2A   READ CONTROL«, t00=0x0003, t01=0x0074}
0x053c…055c              Head {h00=0x001c, h01=0x0050, text=»* /2D   READ DIAGNOSTIC «, t00=0x0003, t01=0x0090}
0x055c…0570              Head {h00=0x0010, h01=0x0050, text=»* (SPLIT=0) «, t00=0x0003, t01=0x00b0}
0x0570…0594              Head {h00=0x0020, h01=0x0050, text=»* /2B   DISPENSE AND DELIVER«, t00=0x0003, t01=0x00c4}
0x0594…05a8              Head {h00=0x0010, h01=0x0050, text=»* (SPLIT=1) «, t00=0x0003, t01=0x00e8}
0x05a8…05c0              Head {h00=0x0014, h01=0x0050, text=»* /2B   DISPENSE«, t00=0x0003, t01=0x00fc}
0x05c0…05d8              Head {h00=0x0014, h01=0x0050, text=»* /38   DELIVER «, t00=0x0003, t01=0x0114}
0x05d8…05ec              Head {h00=0x0010, h01=0x0050, text=»* /31   DUMP«, t00=0x0003, t01=0x012c}
0x05ec…061c              Head {h00=0x002c, h01=0x0050, text=»*   THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0003, t01=0x0140}
0x061c…0626              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0170}
0x0626…0664              Head {h00=0x003a, h01=0x0050, text=»*   BIT   0  REQUEST ERROR                     =  8000«, t00=0x0003, t01=0x017a}
0x0664…06a2              Head {h00=0x003a, h01=0x0050, text=»*         1  NO CASSETTE                       =  4000«, t00=0x0004, t01=0x0028}
0x06a2…06e0              Head {h00=0x003a, h01=0x0050, text=»*         2  NOTES IN DELIVERY UNIT            =  2000«, t00=0x0004, t01=0x0066}
0x06e0…071e              Head {h00=0x003a, h01=0x0050, text=»*         3  BAD NOTES                         =  1000«, t00=0x0004, t01=0x00a4}
0x071e…075c              Head {h00=0x003a, h01=0x0050, text=»*         4  REJECT CASSETTE FULL              =  0800«, t00=0x0004, t01=0x00e2}
0x075c…079a              Head {h00=0x003a, h01=0x0050, text=»*         5  CASSETTE LOW                      =  0400«, t00=0x0004, t01=0x0120}
0x079a…07d8              Head {h00=0x003a, h01=0x0050, text=»*         6  CASSETTE EMPTY                    =  0200«, t00=0x0004, t01=0x015e}
0x07d8…0816              Head {h00=0x003a, h01=0x0050, text=»*         7  JAMMED NOTES                      =  0100«, t00=0x0005, t01=0x000c}
0x0816…0854              Head {h00=0x003a, h01=0x0050, text=»*         8  POWER FAILURE                     =  0080«, t00=0x0005, t01=0x004a}
0x0854…0892              Head {h00=0x003a, h01=0x0050, text=»*         9  TIME-OUT                          =  0040«, t00=0x0005, t01=0x0088}
0x0892…08d0              Head {h00=0x003a, h01=0x0050, text=»*        10  REJECTED NOTES                    =  0020«, t00=0x0005, t01=0x00c6}
0x08d0…090e              Head {h00=0x003a, h01=0x0050, text=»*        11  SEQUENCE ERROR                    =  0010«, t00=0x0005, t01=0x0104}
0x090e…094c              Head {h00=0x003a, h01=0x0050, text=»*        12  COMMUNICATION ERROR               =  0008«, t00=0x0005, t01=0x0142}
0x094c…098a              Head {h00=0x003a, h01=0x0050, text=»*        13  FIRMWARE ERROR                    =  0004«, t00=0x0005, t01=0x0180}
0x098a…09c8              Head {h00=0x003a, h01=0x0050, text=»*        14  HARDWARE ERROR                    =  0002«, t00=0x0006, t01=0x002e}
0x09c8…0a06              Head {h00=0x003a, h01=0x0050, text=»*        15  NOT OPERABLE                      =  0001«, t00=0x0006, t01=0x006c}
0x0a06…0a10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00aa}
0x0a10…0a34              Head {h00=0x0020, h01=0x0050, text=»*   NORMAL USE OF REGISTERS:«, t00=0x0006, t01=0x00b4}
0x0a34…0a3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d8}
0x0a3e…0a5e              Head {h00=0x001c, h01=0x0050, text=»*     A1    RETURN CODE «, t00=0x0006, t01=0x00e2}
0x0a5e…0a88              Head {h00=0x0026, h01=0x0050, text=»*     A2    INPUT/OUTPUT CHARACTER«, t00=0x0006, t01=0x0102}
0x0a88…0a98              Head {h00=0x000c, h01=0x0050, text=»*     A3«, t00=0x0006, t01=0x012c}
0x0a98…0aca              Head {h00=0x002e, h01=0x0050, text=»*     A4    BUFFER INDEX OR BUFFER POINTER«, t00=0x0006, t01=0x013c}
0x0aca…0af0              Head {h00=0x0022, h01=0x0050, text=»*     A5    STACK BASE POINTER«, t00=0x0006, t01=0x016e}
0x0af0…0b10 (7, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»*     A6    DWT ADDRESS «, t00=0x0007, t01=0x0004}
0x0b10…0b2a              Head {h00=0x0016, h01=0x0050, text=»*     A7    ORDER «, t00=0x0007, t01=0x0024}
0x0b2a…0b4a              Head {h00=0x001c, h01=0x0050, text=»*     A8    ECB ADDRESS «, t00=0x0007, t01=0x003e}
0x0b4a…0b58              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x005e}
0x0b58…0b62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006c}
0x0b62…0b76              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0076}
0x0b76…0b8a              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x008a}
0x0b8a…0b9e              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x009e}
0x0b9e…0ba8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b2}
0x0ba8…0bca              Head {h00=0x001e, h01=0x0050, text=» ENTRY TNAD ADDRESS BLOCK «, t00=0x0007, t01=0x00bc}
0x0bca…0bd8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00de}
0x0bd8…0be2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0be2…0c0a              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0007, t01=0x00f6}
0x0c0a…0c32              Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0007, t01=0x011e}
0x0c32…0c5a              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0007, t01=0x0146}
0x0c5a…0c64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016e}
0x0c64…0c8c              Head {h00=0x0024, h01=0x0050, text=» EXTRN INPUT INPUT ONE CHARACTER«, t00=0x0007, t01=0x0178}
0x0c8c…0cb0              Head {h00=0x0020, h01=0x0050, text=» EXTRN STABLK START OF BLOCK«, t00=0x0008, t01=0x0010}
0x0cb0…0cda              Head {h00=0x0026, h01=0x0050, text=» EXTRN OUTPUT OUTPUT ONE CHARACTER«, t00=0x0008, t01=0x0034}
0x0cda…0cfc              Head {h00=0x001e, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK«, t00=0x0008, t01=0x005e}
0x0cfc…0d32              Head {h00=0x0032, h01=0x0050, text=» EXTRN LENDER DISPATCH, END I/0 ,REQUEST ERROR«, t00=0x0008, t01=0x0080}
0x0d32…0d5c              Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0008, t01=0x00b6}
0x0d5c…0d7a              Head {h00=0x001a, h01=0x0050, text=» EXTRN LDISP DISPATCH «, t00=0x0008, t01=0x00e0}
0x0d7a…0d98              Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x0008, t01=0x00fe}
0x0d98…0da6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x011c}
0x0da6…0db0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0db0…0dde              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0008, t01=0x0134}
0x0dde…0dfc              Head {h00=0x001a, h01=0x0050, text=»* DEVICE INDEX VALUES «, t00=0x0008, t01=0x0162}
0x0dfc…0e2a              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0008, t01=0x0180}
0x0e2a…0e34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001e}
0x0e34…0e6a              Head {h00=0x0032, h01=0x0050, text=» EXTRN PC:DIX PROGRAMMED CHANNEL DEVICE INDEX «, t00=0x0009, t01=0x0028}
0x0e6a…0e74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005e}
0x0e74…0e7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0068}
0x0e7e…0e88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0072}
0x0e88…0ea4              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x007c}
0x0ea4…0ec2              Head {h00=0x001a, h01=0x0050, text=»* ECB-DISPLACEMENTS * «, t00=0x0009, t01=0x0098}
0x0ec2…0ede              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00b6}
0x0ede…0ee8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee8…0f0c              Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0009, t01=0x00dc}
0x0f0c…0f32              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0009, t01=0x0100}
0x0f32…0f58              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0009, t01=0x0126}
0x0f58…0f78              Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0009, t01=0x014c}
0x0f78…0f9a              Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0009, t01=0x016c}
0x0f9a…0fa4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x018e}
0x0fa4…0fae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0fae…0fd4              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x000a, t01=0x0012}
0x0fd4…0fec              Head {h00=0x0014, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x000a, t01=0x0038}
0x0fec…1012              Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000a, t01=0x0050}
0x1012…101c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0076}
0x101c…1026              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0080}
0x1026…1040              Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x008a}
0x1040…1062              Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x000a, t01=0x00a4}
0x1062…1082              Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x000a, t01=0x00c6}
0x1082…108c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e6}
0x108c…10c8              Head {h00=0x0038, h01=0x0050, text=» EXTRN DWTDEV DEVICE DRIVER DEPENDANT (FIRST FIELD) «, t00=0x000a, t01=0x00f0}
0x10c8…10d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10d2…10dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0136}
0x10dc…10ea              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0140}
0x10ea…10f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014e}
0x10f4…110e              Head {h00=0x0016, h01=0x0050, text=»* FORM STATEMENTS «, t00=0x000a, t01=0x0158}
0x110e…1118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0172}
0x1118…112e              Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x000a, t01=0x017c}
0x112e…1148 (11, 0, 400) Head {h00=0x0016, h01=0x0050, text=»QUART FORM 4,4,4,4«, t00=0x000b, t01=0x0004}
0x1148…1156              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x001e}
0x1156…1160              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002c}
0x1160…1180              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0036}
0x1180…11a0              Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0056}
0x11a0…11c0              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x0076}
0x11c0…11ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0096}
0x11ca…11f8              Head {h00=0x002a, h01=0x0050, text=»X:A EQU 0 ORDER 'DIPENSE AND DELIVER' «, t00=0x000b, t01=0x00a0}
0x11f8…1216              Head {h00=0x001a, h01=0x0050, text=»*   IS SPLIT (OR NOT) «, t00=0x000b, t01=0x00ce}
0x1216…124c              Head {h00=0x0032, h01=0x0050, text=»*   INTO ORDERS 'DISPENSE', 'DELIVER', 'DUMP'.«, t00=0x000b, t01=0x00ec}
0x124c…1262              Head {h00=0x0012, h01=0x0050, text=»SPLIT EQU X:A «, t00=0x000b, t01=0x0122}
0x1262…126c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126c…1276              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1276…12a4              Head {h00=0x002a, h01=0x0050, text=»X:B EQU 40 MMU BUFFER SIZE (STANDARD) «, t00=0x000b, t01=0x014c}
0x12a4…12ba              Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x000b, t01=0x017a}
0x12ba…12c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c4…12ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000a}
0x12ce…12dc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0014}
0x12dc…12e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0022}
0x12e6…12f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002c}
0x12f0…131e              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000c, t01=0x0036}
0x131e…134c              Head {h00=0x002a, h01=0x0050, text=»* DWT-DISPLACEMENTS RELATIVE DWTDEV  *«, t00=0x000c, t01=0x0064}
0x134c…137c              Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000c, t01=0x0092}
0x137c…1386              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c2}
0x1386…13a8              Head {h00=0x001e, h01=0x0050, text=»DWTTP EQU 2 TIMER POINTER «, t00=0x000c, t01=0x00cc}
0x13a8…13ea              Head {h00=0x003e, h01=0x0050, text=»DWTLR EQU DWTTP+2 BITS 0-7: INDICATOR LEFT OR RIGHT TELLER«, t00=0x000c, t01=0x00ee}
0x13ea…141e              Head {h00=0x0030, h01=0x0050, text=»DWTLRC EQU DWTLR BITS 8-15: LRC-ACKUMULATOR «, t00=0x000c, t01=0x0130}
0x141e…1460              Head {h00=0x003e, h01=0x0050, text=»DWTBFR EQU DWTLRC+2 DELAY-BUFFER (LAST HW-MESSAGE FROM ND)«, t00=0x000c, t01=0x0164}
0x1460…1492              Head {h00=0x002e, h01=0x0050, text=»DWTSTA EQU DWTBFR+2 NOTE DISPENSER STATUS «, t00=0x000d, t01=0x0016}
0x1492…14c8              Head {h00=0x0032, h01=0x0050, text=»DWTTAB EQU DWTSTA+2 STORE-CHECK TABLE POINTER «, t00=0x000d, t01=0x0048}
0x14c8…1502              Head {h00=0x0036, h01=0x0050, text=»DWTNCR EQU DWTTAB+2 NUMBER OF CHARACTERS RECEIVED «, t00=0x000d, t01=0x007e}
0x1502…1532              Head {h00=0x002c, h01=0x0050, text=»DWTCNB EQU DWTNCR+2 OLD CASSETTE NUMBER «, t00=0x000d, t01=0x00b8}
0x1532…1568              Head {h00=0x0032, h01=0x0050, text=»DWTTP1 EQU DWTCNB+2 TIMER POINTER DEVICE BUSY «, t00=0x000d, t01=0x00e8}
0x1568…15ac              Head {h00=0x0040, h01=0x0050, text=»DWTRDS EQU DWTTP1+2 LOGGAREA: OUTPUT HW-ORDER, RECIEVED STAT«, t00=0x000d, t01=0x011e}
0x15ac…15d6              Head {h00=0x0026, h01=0x0050, text=»DWTBUF EQU DWTRDS+4 INTERN BUFFER «, t00=0x000d, t01=0x0162}
0x15d6…15e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018c}
0x15e0…15ee              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0008}
0x15ee…15f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0016}
0x15f8…160e              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x0020}
0x160e…1624              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000e, t01=0x0036}
0x1624…163a              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x004c}
0x163a…1644              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0062}
0x1644…165a              Head {h00=0x0012, h01=0x0050, text=»BIT0 EQU /8000«, t00=0x000e, t01=0x006c}
0x165a…1670              Head {h00=0x0012, h01=0x0050, text=»BIT1 EQU /4000«, t00=0x000e, t01=0x0082}
0x1670…1686              Head {h00=0x0012, h01=0x0050, text=»BIT2 EQU /2000«, t00=0x000e, t01=0x0098}
0x1686…169c              Head {h00=0x0012, h01=0x0050, text=»BIT3 EQU /1000«, t00=0x000e, t01=0x00ae}
0x169c…16b2              Head {h00=0x0012, h01=0x0050, text=»BIT4 EQU /0800«, t00=0x000e, t01=0x00c4}
0x16b2…16c8              Head {h00=0x0012, h01=0x0050, text=»BIT5 EQU /0400«, t00=0x000e, t01=0x00da}
0x16c8…16de              Head {h00=0x0012, h01=0x0050, text=»BIT6 EQU /0200«, t00=0x000e, t01=0x00f0}
0x16de…16f4              Head {h00=0x0012, h01=0x0050, text=»BIT7 EQU /0100«, t00=0x000e, t01=0x0106}
0x16f4…170a              Head {h00=0x0012, h01=0x0050, text=»BIT8 EQU /0080«, t00=0x000e, t01=0x011c}
0x170a…1720              Head {h00=0x0012, h01=0x0050, text=»BIT9 EQU /0040«, t00=0x000e, t01=0x0132}
0x1720…1738              Head {h00=0x0014, h01=0x0050, text=»BIT10 EQU /0020 «, t00=0x000e, t01=0x0148}
0x1738…1750              Head {h00=0x0014, h01=0x0050, text=»BIT11 EQU /0010 «, t00=0x000e, t01=0x0160}
0x1750…1768              Head {h00=0x0014, h01=0x0050, text=»BIT12 EQU /0008 «, t00=0x000e, t01=0x0178}
0x1768…1780              Head {h00=0x0014, h01=0x0050, text=»BIT13 EQU /0004 «, t00=0x000e, t01=0x0190}
0x1780…1798              Head {h00=0x0014, h01=0x0050, text=»BIT14 EQU /0002 «, t00=0x000f, t01=0x0018}
0x1798…17b0              Head {h00=0x0014, h01=0x0050, text=»BIT15 EQU /0001 «, t00=0x000f, t01=0x0030}
0x17b0…17ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0048}
0x17ba…17c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0052}
0x17c4…17f4              Head {h00=0x002c, h01=0x0050, text=»TIME2M EQU 1200 TIME CONSTANT=2 MINUTES «, t00=0x000f, t01=0x005c}
0x17f4…1822              Head {h00=0x002a, h01=0x0050, text=»TIME1M EQU 600 TIME CONSTANT=1 MINUTE «, t00=0x000f, t01=0x008c}
0x1822…1850              Head {h00=0x002a, h01=0x0050, text=»TIME9S EQU 90 TIME CONSTANT=9 SECONDS «, t00=0x000f, t01=0x00ba}
0x1850…187c              Head {h00=0x0028, h01=0x0050, text=»TIME1S EQU 10 TIME CONSTANT=1 SECOND«, t00=0x000f, t01=0x00e8}
0x187c…18a4              Head {h00=0x0024, h01=0x0050, text=»BUFLEN EQU 36 DWT BUFFER LENGTH «, t00=0x000f, t01=0x0114}
0x18a4…18da              Head {h00=0x0032, h01=0x0050, text=»BLKSIZ EQU 30 BLOCK-SIZE OUTPUT TO LINE DRIVER«, t00=0x000f, t01=0x013c}
0x18da…18e8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0172}
0x18e8…18f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0180}
0x18f2…190a              Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000f, t01=0x018a}
0x190a…1922              Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES *«, t00=0x0010, t01=0x0012}
0x1922…193a              Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0010, t01=0x002a}
0x193a…1944              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0042}
0x1944…196a              Head {h00=0x0022, h01=0x0050, text=»REQERR EQU BIT0 REQUEST ERROR «, t00=0x0010, t01=0x004c}
0x196a…198e              Head {h00=0x0020, h01=0x0050, text=»NOCASS EQU BIT1 NO CASSETTE «, t00=0x0010, t01=0x0072}
0x198e…19bc              Head {h00=0x002a, h01=0x0050, text=»NOTDEL EQU BIT2 NOTES IN DELIVERY UNIT«, t00=0x0010, t01=0x0096}
0x19bc…19de              Head {h00=0x001e, h01=0x0050, text=»BADNOT EQU BIT3 BAD NOTES «, t00=0x0010, t01=0x00c4}
0x19de…1a0a              Head {h00=0x0028, h01=0x0050, text=»REJFUL EQU BIT4 REJECT CASSETTE FULL«, t00=0x0010, t01=0x00e6}
0x1a0a…1a2e              Head {h00=0x0020, h01=0x0050, text=»CASLOW EQU BIT5 CASSETTE LOW«, t00=0x0010, t01=0x0112}
0x1a2e…1a54              Head {h00=0x0022, h01=0x0050, text=»CASEMP EQU BIT6 CASSETTE EMPTY«, t00=0x0010, t01=0x0136}
0x1a54…1a78              Head {h00=0x0020, h01=0x0050, text=»JAMNOT EQU BIT7 JAMMED NOTES«, t00=0x0010, t01=0x015c}
0x1a78…1a9e              Head {h00=0x0022, h01=0x0050, text=»PWFAIL EQU BIT8 POWER FAILURE «, t00=0x0010, t01=0x0180}
0x1a9e…1abe              Head {h00=0x001c, h01=0x0050, text=»TIMOUT EQU BIT9 TIME-OUT«, t00=0x0011, t01=0x0016}
0x1abe…1ae6              Head {h00=0x0024, h01=0x0050, text=»REJNOT EQU BIT10 REJECTED NOTES «, t00=0x0011, t01=0x0036}
0x1ae6…1b0e              Head {h00=0x0024, h01=0x0050, text=»SEQERR EQU BIT11 SEQUENCE ERROR «, t00=0x0011, t01=0x005e}
0x1b0e…1b3a              Head {h00=0x0028, h01=0x0050, text=»COMERR EQU BIT12 COMMUNICATION ERROR«, t00=0x0011, t01=0x0086}
0x1b3a…1b68              Head {h00=0x002a, h01=0x0050, text=»FMERR EQU BIT13 FIRMWARE ERROR IN TND «, t00=0x0011, t01=0x00b2}
0x1b68…1b8e              Head {h00=0x0022, h01=0x0050, text=»HWERR EQU BIT14 HARDWARE ERROR«, t00=0x0011, t01=0x00e0}
0x1b8e…1bb4              Head {h00=0x0022, h01=0x0050, text=»NOTOPE EQU BIT15 NOT OPERABLE «, t00=0x0011, t01=0x0106}
0x1bb4…1bf8              Head {h00=0x0040, h01=0x0050, text=»REJNF EQU REJNOT+REJFUL REJECTED NOTES+REJECT CASSETTE FULL «, t00=0x0011, t01=0x012c}
0x1bf8…1c06              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0170}
0x1c06…1c22              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0011, t01=0x017e}
0x1c22…1c44              Head {h00=0x001e, h01=0x0050, text=»* STATUS BITS IN DWTDEV * «, t00=0x0012, t01=0x000a}
0x1c44…1c60              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0012, t01=0x002c}
0x1c60…1c6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0048}
0x1c6a…1c98              Head {h00=0x002a, h01=0x0050, text=»OPNBIT EQU BIT15 OPEN/CLOSE BIT (1/0) «, t00=0x0012, t01=0x0052}
0x1c98…1cc4              Head {h00=0x0028, h01=0x0050, text=»RESDON EQU BIT14 RESET DONE BIT (0) «, t00=0x0012, t01=0x0080}
0x1cc4…1cee              Head {h00=0x0026, h01=0x0050, text=»DISDON EQU BIT13 DISPENSE DONE (1)«, t00=0x0012, t01=0x00ac}
0x1cee…1cfc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00d6}
0x1cfc…1d06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e4}
0x1d06…1d1e              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0012, t01=0x00ee}
0x1d1e…1d36              Head {h00=0x0014, h01=0x0050, text=»* ORDER CODES * «, t00=0x0012, t01=0x0106}
0x1d36…1d4e              Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0012, t01=0x011e}
0x1d4e…1d58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0136}
0x1d58…1d72              Head {h00=0x0016, h01=0x0050, text=»OPEN EQU /21 OPEN «, t00=0x0012, t01=0x0140}
0x1d72…1d8e              Head {h00=0x0018, h01=0x0050, text=»CLOSE EQU /22 CLOSE «, t00=0x0012, t01=0x015a}
0x1d8e…1dba              Head {h00=0x0028, h01=0x0050, text=»DISDEL EQU /2B DISPENSE AND DELIVER «, t00=0x0012, t01=0x0176}
0x1dba…1dde              Head {h00=0x0020, h01=0x0050, text=»READCO EQU /2A READ CONTROL «, t00=0x0013, t01=0x0012}
0x1dde…1e04              Head {h00=0x0022, h01=0x0050, text=»READDI EQU /2D READ DIAGNOSTIC«, t00=0x0013, t01=0x0036}
0x1e04…1e2e              Head {h00=0x0026, h01=0x0050, text=»READDS EQU /2C READ DEVICE STATUS «, t00=0x0013, t01=0x005c}
0x1e2e…1e4e              Head {h00=0x001c, h01=0x0050, text=»DUMP EQU /31 DUMP NOTES «, t00=0x0013, t01=0x0086}
0x1e4e…1e6c              Head {h00=0x001a, h01=0x0050, text=»DELIVE EQU /38 DELIVER«, t00=0x0013, t01=0x00a6}
0x1e6c…1e7a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00c4}
0x1e7a…1e84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d2}
0x1e84…1ea2              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x00dc}
0x1ea2…1ec0              Head {h00=0x001a, h01=0x0050, text=»* HARDWARE COMMANDS * «, t00=0x0013, t01=0x00fa}
0x1ec0…1ede              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x0118}
0x1ede…1ee8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0136}
0x1ee8…1f04              Head {h00=0x0018, h01=0x0050, text=»RESET EQU /30 RESET «, t00=0x0013, t01=0x0140}
0x1f04…1f30              Head {h00=0x0028, h01=0x0050, text=»DISDLV EQU /31 DISPENSE AND DELIVER «, t00=0x0013, t01=0x015c}
0x1f30…1f50              Head {h00=0x001c, h01=0x0050, text=»DISPNS EQU /32 DISPENSE «, t00=0x0013, t01=0x0188}
0x1f50…1f6e              Head {h00=0x001a, h01=0x0050, text=»DELIVR EQU /33 DELIVER«, t00=0x0014, t01=0x0018}
0x1f6e…1f92              Head {h00=0x0020, h01=0x0050, text=»REJECT EQU /34 REJECT NOTES «, t00=0x0014, t01=0x0036}
0x1f92…1fbe              Head {h00=0x0028, h01=0x0050, text=»CASNBR EQU /35 GET CASSETTE NUMBERS «, t00=0x0014, t01=0x005a}
0x1fbe…1ff2              Head {h00=0x0030, h01=0x0050, text=»STADIS EQU /36 GET STATUS FROM LAST DISPENSE«, t00=0x0014, t01=0x0086}
0x1ff2…2014              Head {h00=0x001e, h01=0x0050, text=»LIFTDW EQU /37 LIFTS DOWN «, t00=0x0014, t01=0x00ba}
0x2014…2034              Head {h00=0x001c, h01=0x0050, text=»LIFTUP EQU /38 LIFTS UP «, t00=0x0014, t01=0x00dc}
0x2034…2060              Head {h00=0x0028, h01=0x0050, text=»RTRACE EQU /39 GET REJECT TRACE AREA«, t00=0x0014, t01=0x00fc}
0x2060…208a              Head {h00=0x0026, h01=0x0050, text=»CHKDEL EQU /3A CHECK DELIVER UNIT «, t00=0x0014, t01=0x0128}
0x208a…20ae              Head {h00=0x0020, h01=0x0050, text=»ENDCH EQU /0D END OF MESSAGE«, t00=0x0014, t01=0x0152}
0x20ae…20bc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0176}
0x20bc…20c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0184}
0x20c6…20d8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x018e}
0x20d8…20ea              Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0015, t01=0x0010}
0x20ea…20fc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x0022}
0x20fc…2106              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2106…2110              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003e}
0x2110…211a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x211a…2140              Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN MMU BUFFER LENGTH«, t00=0x0015, t01=0x0052}
0x2140…2174              Head {h00=0x0030, h01=0x0050, text=» DATA PC:DIX PROGRAMMED CHANNEL DEVICE INDEX«, t00=0x0015, t01=0x0078}
0x2174…2186              Head {h00=0x000e, h01=0x0050, text=»TNAD EQU *«, t00=0x0015, t01=0x00ac}
0x2186…21aa              Head {h00=0x0020, h01=0x0050, text=» DATA ACTN ACTIVATION DRIVER«, t00=0x0015, t01=0x00be}
0x21aa…21c8              Head {h00=0x001a, h01=0x0050, text=» DATA 0 ABORT ROUTINE «, t00=0x0015, t01=0x00e2}
0x21c8…21ea              Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0015, t01=0x0100}
0x21ea…220e              Head {h00=0x0020, h01=0x0050, text=» DATA RCTN RECOVERY ROUTINE «, t00=0x0015, t01=0x0122}
0x220e…2218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0146}
0x2218…2222              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0150}
0x2222…2242              Head {h00=0x001c, h01=0x0050, text=»TNTAB EQU * ORDER TABLE «, t00=0x0015, t01=0x015a}
0x2242…225a              Head {h00=0x0014, h01=0x0050, text=» BYTE OPEN,CLOSE«, t00=0x0015, t01=0x017a}
0x225a…2276 (22, 0, 400) Head {h00=0x0018, h01=0x0050, text=» BYTE DISDEL,READCO «, t00=0x0016, t01=0x0004}
0x2276…2292              Head {h00=0x0018, h01=0x0050, text=» BYTE READDI,READDS «, t00=0x0016, t01=0x0020}
0x2292…22a6              Head {h00=0x0010, h01=0x0050, text=» IFT SPLIT=1«, t00=0x0016, t01=0x003c}
0x22a6…22c0              Head {h00=0x0016, h01=0x0050, text=» BYTE DUMP,DELIVE «, t00=0x0016, t01=0x0050}
0x22c0…22cc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x006a}
0x22cc…22e8              Head {h00=0x0018, h01=0x0050, text=»TNLEN EQU *-TNTAB-1 «, t00=0x0016, t01=0x0076}
0x22e8…22f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0092}
0x22f2…22fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009c}
0x22fc…2328              Head {h00=0x0028, h01=0x0050, text=»TNFUN EQU * NOTE DISPENSER FUNCTION «, t00=0x0016, t01=0x00a6}
0x2328…234a              Head {h00=0x001e, h01=0x0050, text=» DATA OPENTN,CLOSTN,DISPEN«, t00=0x0016, t01=0x00d2}
0x234a…236c              Head {h00=0x001e, h01=0x0050, text=» DATA RDCONT,RDDIAG,RDDEVS«, t00=0x0016, t01=0x00f4}
0x236c…2380              Head {h00=0x0010, h01=0x0050, text=» IFT SPLIT=1«, t00=0x0016, t01=0x0116}
0x2380…239a              Head {h00=0x0016, h01=0x0050, text=» DATA DUMPA,DELIV «, t00=0x0016, t01=0x012a}
0x239a…23a6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0144}
0x23a6…23b4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0150}
0x23b4…23be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015e}
0x23be…240e              Head {h00=0x004c, h01=0x0050, text=»* TABLE OF NO-STORE BYTE-NUMBERS OF MESSAGE AFTER HW-COMMAND /30 (RESET)«, t00=0x0016, t01=0x0168}
0x240e…2418              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0028}
0x2418…2434              Head {h00=0x0018, h01=0x0050, text=» DATA RESEND-RESTAB «, t00=0x0017, t01=0x0032}
0x2434…2448              Head {h00=0x0010, h01=0x0050, text=»RESTAB EQU *«, t00=0x0017, t01=0x004e}
0x2448…2482              Head {h00=0x0036, h01=0x0050, text=» BYTE 2,3 MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0«, t00=0x0017, t01=0x0062}
0x2482…24a2              Head {h00=0x001c, h01=0x0050, text=» BYTE 7,8 DITO HOPPER 1 «, t00=0x0017, t01=0x009c}
0x24a2…24c4              Head {h00=0x001e, h01=0x0050, text=» BYTE 14,15 DITO HOPPER 2 «, t00=0x0017, t01=0x00bc}
0x24c4…24e6              Head {h00=0x001e, h01=0x0050, text=» BYTE 21,22 DITO HOPPER 3 «, t00=0x0017, t01=0x00de}
0x24e6…2508              Head {h00=0x001e, h01=0x0050, text=» BYTE 28,29 DITO HOPPER 4 «, t00=0x0017, t01=0x0100}
0x2508…252a              Head {h00=0x001e, h01=0x0050, text=» BYTE 35,36 DITO HOPPER 5 «, t00=0x0017, t01=0x0122}
0x252a…254c              Head {h00=0x001e, h01=0x0050, text=» BYTE 42,43 DITO HOPPER 6 «, t00=0x0017, t01=0x0144}
0x254c…2562              Head {h00=0x0012, h01=0x0050, text=»RESEND EQU *-1«, t00=0x0017, t01=0x0166}
0x2562…256c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017c}
0x256c…2576              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0186}
0x2576…2580              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0190}
0x2580…25c8              Head {h00=0x0044, h01=0x0050, text=»* TABLE OF NO-STORE BYTE-NUMBERS OF MESSAGE AFTER HW-COMMAND /35«, t00=0x0018, t01=0x000a}
0x25c8…25e8              Head {h00=0x001c, h01=0x0050, text=»* (GET CASSETTE NUMBERS)«, t00=0x0018, t01=0x0052}
0x25e8…25f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x25f2…260e              Head {h00=0x0018, h01=0x0050, text=» DATA CTABEN-CNBTAB «, t00=0x0018, t01=0x007c}
0x260e…2622              Head {h00=0x0010, h01=0x0050, text=»CNBTAB EQU *«, t00=0x0018, t01=0x0098}
0x2622…265c              Head {h00=0x0036, h01=0x0050, text=» BYTE 2,3 MESSAGEBYTES WITH NBR/STATUS OF HOPPER 0«, t00=0x0018, t01=0x00ac}
0x265c…267c              Head {h00=0x001c, h01=0x0050, text=» BYTE 9,10 DITO HOPPER 1«, t00=0x0018, t01=0x00e6}
0x267c…269e              Head {h00=0x001e, h01=0x0050, text=» BYTE 16,17 DITO HOPPER 2 «, t00=0x0018, t01=0x0106}
0x269e…26c0              Head {h00=0x001e, h01=0x0050, text=» BYTE 23,24 DITO HOPPER 3 «, t00=0x0018, t01=0x0128}
0x26c0…26e2              Head {h00=0x001e, h01=0x0050, text=» BYTE 30,31 DITO HOPPER 4 «, t00=0x0018, t01=0x014a}
0x26e2…2704              Head {h00=0x001e, h01=0x0050, text=» BYTE 37,38 DITO HOPPER 5 «, t00=0x0018, t01=0x016c}
0x2704…2726              Head {h00=0x001e, h01=0x0050, text=» BYTE 44,45 DITO HOPPER 6 «, t00=0x0018, t01=0x018e}
0x2726…273c              Head {h00=0x0012, h01=0x0050, text=»CTABEN EQU *-1«, t00=0x0019, t01=0x0020}
0x273c…274a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0036}
0x274a…2754              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0044}
0x2754…277a              Head {h00=0x0022, h01=0x0050, text=»* BIT IN RETURN CODE HW-STATUS«, t00=0x0019, t01=0x004e}
0x277a…2784              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0074}
0x2784…2798              Head {h00=0x0010, h01=0x0050, text=»CASTAT EQU *«, t00=0x0019, t01=0x007e}
0x2798…27bc              Head {h00=0x0020, h01=0x0050, text=» QUART 5,6,15,10 31,32,33,34«, t00=0x0019, t01=0x0092}
0x27bc…27e2              Head {h00=0x0022, h01=0x0050, text=» QUART 15,15,12,11 35,36,37,38«, t00=0x0019, t01=0x00b6}
0x27e2…2804              Head {h00=0x001e, h01=0x0050, text=» QUART 7,1,7,3 39,3A,3B,3C«, t00=0x0019, t01=0x00dc}
0x2804…282a              Head {h00=0x0022, h01=0x0050, text=» QUART 7,15,15,15 3D,3E,3F,40 «, t00=0x0019, t01=0x00fe}
0x282a…284e              Head {h00=0x0020, h01=0x0050, text=» QUART 15,0,15,4 41,42,43,44«, t00=0x0019, t01=0x0124}
0x284e…2874              Head {h00=0x0022, h01=0x0050, text=» QUART 15,14,14,14 45,46,47,49«, t00=0x0019, t01=0x0148}
0x2874…2898              Head {h00=0x0020, h01=0x0050, text=» QUART 15,14,2,2 4A,4B,4C,4D«, t00=0x0019, t01=0x016e}
0x2898…28c2 (26, 0, 400) Head {h00=0x0026, h01=0x0050, text=» QUART 12,14,15,15 4E,4F,50,51 =1 «, t00=0x001a, t01=0x0004}
0x28c2…28d0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x002e}
0x28d0…28da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003c}
0x28da…28e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0046}
0x28e4…28f4              Head {h00=0x000c, h01=0x0050, text=»*   ACTN«, t00=0x001a, t01=0x0050}
0x28f4…28fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0060}
0x28fe…2908              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006a}
0x2908…293e              Head {h00=0x0032, h01=0x0050, text=»*   ACTIVATION PART: CHECKS VALIDITY OF ORDERS«, t00=0x001a, t01=0x0074}
0x293e…2970              Head {h00=0x002e, h01=0x0050, text=»*                    AND STARTS PROCESSING«, t00=0x001a, t01=0x00aa}
0x2970…297a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00dc}
0x297a…2984              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e6}
0x2984…298e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f0}
0x298e…29a0              Head {h00=0x000e, h01=0x0050, text=»ACTN EQU *«, t00=0x001a, t01=0x00fa}
0x29a0…29c8              Head {h00=0x0024, h01=0x0050, text=» CF A5,CLDATA CLEAR DATA IN DWT «, t00=0x001a, t01=0x010c}
0x29c8…29de              Head {h00=0x0012, h01=0x0050, text=» LDK A3,TNLEN «, t00=0x001a, t01=0x0134}
0x29de…2a14              Head {h00=0x0032, h01=0x0050, text=»ACTN10 CC A7,TNTAB,A3 FIND OUT IF LEGAL ORDER «, t00=0x001a, t01=0x014a}
0x2a14…2a36              Head {h00=0x001e, h01=0x0050, text=» RF(E) ACTN20 VALID ORDER «, t00=0x001a, t01=0x0180}
0x2a36…2a58              Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 DECREMENT INDEX «, t00=0x001b, t01=0x0012}
0x2a58…2a78              Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACTN10 TRY NEXT «, t00=0x001b, t01=0x0034}
0x2a78…2a82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0054}
0x2a82…2a8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x2a8c…2ac0              Head {h00=0x0030, h01=0x0050, text=» ABL LENDER DISPATCH, END I/O ,REQUEST ERROR«, t00=0x001b, t01=0x0068}
0x2ac0…2aca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x009c}
0x2aca…2ad4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a6}
0x2ad4…2ae2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00b0}
0x2ae2…2af6              Head {h00=0x0010, h01=0x0050, text=»ACTN20 EQU *«, t00=0x001b, t01=0x00be}
0x2af6…2b00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d2}
0x2b00…2b0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00dc}
0x2b0a…2b14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e6}
0x2b14…2b30              Head {h00=0x0018, h01=0x0050, text=» ADR A3,A3 GET INDEX«, t00=0x001b, t01=0x00f0}
0x2b30…2b66              Head {h00=0x0032, h01=0x0050, text=» ABI TNFUN,A3 BRANCH TO VALID FUNCTION MODULE «, t00=0x001b, t01=0x010c}
0x2b66…2b74              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0142}
0x2b74…2b7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0150}
0x2b7e…2ba6              Head {h00=0x0024, h01=0x0050, text=»*   THIS IS THE TIME OUT ROUTINE«, t00=0x001b, t01=0x015a}
0x2ba6…2bb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0182}
0x2bb0…2bc4              Head {h00=0x0010, h01=0x0050, text=»ACTNTO EQU *«, t00=0x001b, t01=0x018c}
0x2bc4…2be6              Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT ADDRESS«, t00=0x001c, t01=0x0010}
0x2be6…2c0c              Head {h00=0x0022, h01=0x0050, text=» LDK A1,TIMOUT SET RETURN CODE«, t00=0x001c, t01=0x0032}
0x2c0c…2c3c              Head {h00=0x002c, h01=0x0050, text=» CM DWTDEV+DWTTP,A6 RESET TIMER POINTER «, t00=0x001c, t01=0x0058}
0x2c3c…2c58              Head {h00=0x0018, h01=0x0050, text=» CM DWTDEV+DWTSTA,A6«, t00=0x001c, t01=0x0088}
0x2c58…2c72              Head {h00=0x0016, h01=0x0050, text=» RF OPCLEN END I/O«, t00=0x001c, t01=0x00a4}
0x2c72…2c80              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00be}
0x2c80…2c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00cc}
0x2c8a…2cbc              Head {h00=0x002e, h01=0x0050, text=»* THIS IS THE DEVICE-BUSY-TIMEOUT ROUTINE «, t00=0x001c, t01=0x00d6}
0x2cbc…2cc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0108}
0x2cc6…2cda              Head {h00=0x0010, h01=0x0050, text=»BSYTUT EQU *«, t00=0x001c, t01=0x0112}
0x2cda…2cf8              Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 DWT ADDRESS«, t00=0x001c, t01=0x0126}
0x2cf8…2d10              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x001c, t01=0x0144}
0x2d10…2d2e              Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x001c, t01=0x015c}
0x2d2e…2d6a              Head {h00=0x0038, h01=0x0050, text=» CM DWTDEV+DWTTP1,A6 RESET TIMER POINTER DEVICE BUSY«, t00=0x001c, t01=0x017a}
0x2d6a…2da4              Head {h00=0x0036, h01=0x0050, text=» CM DWTDEV+DWTSTA,A6 RESET RETURN CODE ACCUMULATOR«, t00=0x001d, t01=0x0026}
0x2da4…2dc8              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x001d, t01=0x0060}
0x2dc8…2de0              Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x001d, t01=0x0084}
0x2de0…2dfe              Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF ORDER CODE«, t00=0x001d, t01=0x009c}
0x2dfe…2e2c              Head {h00=0x002a, h01=0x0050, text=» RB ACTN DEVICE FREE.  TRY ORDER AGAIN«, t00=0x001d, t01=0x00ba}
0x2e2c…2e3a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00e8}
0x2e3a…2e44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f6}
0x2e44…2e86              Head {h00=0x003e, h01=0x0050, text=»* THIS IS THE ROUTINE TO OPEN AND CLOSE THE NOTE DISPENSER«, t00=0x001d, t01=0x0100}
0x2e86…2e90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0142}
0x2e90…2e98              Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x014c}
0x2e98…2ea0              Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0154}
0x2ea0…2eaa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2eaa…2ebc              Head {h00=0x000e, h01=0x0050, text=»* LIFTS UP«, t00=0x001d, t01=0x0166}
0x2ebc…2ec6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0178}
0x2ec6…2eda              Head {h00=0x0010, h01=0x0050, text=»OPENTN EQU *«, t00=0x001d, t01=0x0182}
0x2eda…2ef2              Head {h00=0x0014, h01=0x0050, text=» LDKL A7,TIME1M «, t00=0x001e, t01=0x0008}
0x2ef2…2f08              Head {h00=0x0012, h01=0x0050, text=» CF A15,TIMER «, t00=0x001e, t01=0x0020}
0x2f08…2f30              Head {h00=0x0024, h01=0x0050, text=» LDK A2,LIFTUP LIFTS UP COMMAND «, t00=0x001e, t01=0x0036}
0x2f30…2f52              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x001e, t01=0x005e}
0x2f52…2f78              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECEIVE MESSAGE «, t00=0x001e, t01=0x0080}
0x2f78…2fae              Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OPCLEN END BECAUSE OF ERROR IN MESSAGE«, t00=0x001e, t01=0x00a6}
0x2fae…2fb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00dc}
0x2fb8…2ff6              Head {h00=0x003a, h01=0x0050, text=»* DUMMY-COMMAND (SEND CASSETTE NUMBERS) ONLY TO CLEAR,«, t00=0x001e, t01=0x00e6}
0x2ff6…3042              Head {h00=0x0048, h01=0x0050, text=»*  IN TND-MICROPROCESSOR, THE FLAG INDICATING 'LIFTS HAVE BEEN DOWN'«, t00=0x001e, t01=0x0124}
0x3042…304c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0170}
0x304c…3080              Head {h00=0x0030, h01=0x0050, text=» LDK A2,CASNBR COMMAND: GET CASSETTE NUMBERS«, t00=0x001e, t01=0x017a}
0x3080…30a2              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x001f, t01=0x001e}
0x30a2…30b6              Head {h00=0x0010, h01=0x0050, text=»OPE090 EQU *«, t00=0x001f, t01=0x0040}
0x30b6…30dc              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECIEVE MESSAGE «, t00=0x001f, t01=0x0054}
0x30dc…3112              Head {h00=0x0032, h01=0x0050, text=» RF(P) OPCLEN END BECAUSE OF ERROR IN MESSAGE «, t00=0x001f, t01=0x007a}
0x3112…3132              Head {h00=0x001c, h01=0x0050, text=» RB(NZ) OPE090 NEXT CHAR«, t00=0x001f, t01=0x00b0}
0x3132…3170              Head {h00=0x003a, h01=0x0050, text=» CM DWTDEV+DWTSTA,A6 CLEAR STATUS AFTER DUMMY COMMAND «, t00=0x001f, t01=0x00d0}
0x3170…317e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x010e}
0x317e…3188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011c}
0x3188…31a6              Head {h00=0x001a, h01=0x0050, text=»* RESET NOTE DISPENSER«, t00=0x001f, t01=0x0126}
0x31a6…31b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0144}
0x31b0…31ea              Head {h00=0x0036, h01=0x0050, text=» LDKL A2,RESTAB TABLE TO KNOW WHICH MESSAGE BYTES «, t00=0x001f, t01=0x014e}
0x31ea…3214              Head {h00=0x0026, h01=0x0050, text=»*   NOT TO STORE INTO USER BUFFER «, t00=0x001f, t01=0x0188}
0x3214…3234              Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTDEV+DWTTAB,A6 «, t00=0x0020, t01=0x0022}
0x3234…325e              Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 USER BUFFER DISPLACEMENT«, t00=0x0020, t01=0x0042}
0x325e…3272              Head {h00=0x0010, h01=0x0050, text=» LDK A3,/30 «, t00=0x0020, t01=0x006c}
0x3272…329c              Head {h00=0x0026, h01=0x0050, text=» CF A5,STORE DUMMY IN USER BUFFER «, t00=0x0020, t01=0x0080}
0x329c…32c6              Head {h00=0x0026, h01=0x0050, text=» CF A5,STORE DUMMY IN USER BUFFER «, t00=0x0020, t01=0x00aa}
0x32c6…32dc              Head {h00=0x0012, h01=0x0050, text=» LDK A2,RESET «, t00=0x0020, t01=0x00d4}
0x32dc…32f0              Head {h00=0x0010, h01=0x0050, text=»OPE100 EQU *«, t00=0x0020, t01=0x00ea}
0x32f0…3304              Head {h00=0x0010, h01=0x0050, text=» LDK A3,'0' «, t00=0x0020, t01=0x00fe}
0x3304…333e              Head {h00=0x0036, h01=0x0050, text=» ST A3,DWTDEV+DWTCNB,A6 INDICATE OLD CASSETTE = 0 «, t00=0x0020, t01=0x0112}
0x333e…3360              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x0020, t01=0x014c}
0x3360…3374              Head {h00=0x0010, h01=0x0050, text=»OPE110 EQU *«, t00=0x0020, t01=0x016e}
0x3374…339a              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECEIVE MESSAGE «, t00=0x0020, t01=0x0182}
0x339a…33be              Head {h00=0x0020, h01=0x0050, text=» RF(Z) OPE120 END OF MESSAGE«, t00=0x0021, t01=0x0018}
0x33be…33f4              Head {h00=0x0032, h01=0x0050, text=» RF(P) OPCLEN END BECAUSE OF ERROR IN MESSAGE «, t00=0x0021, t01=0x003c}
0x33f4…341a              Head {h00=0x0022, h01=0x0050, text=» CF A5,STORE BUILD USER BUFFER«, t00=0x0021, t01=0x0072}
0x341a…342c              Head {h00=0x000e, h01=0x0050, text=» RB OPE110«, t00=0x0021, t01=0x0098}
0x342c…343a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00aa}
0x343a…344e              Head {h00=0x0010, h01=0x0050, text=»OPE120 EQU *«, t00=0x0021, t01=0x00b8}
0x344e…3466              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTDEV,A6«, t00=0x0021, t01=0x00cc}
0x3466…347c              Head {h00=0x0012, h01=0x0050, text=» ANK A2,RESDON«, t00=0x0021, t01=0x00e4}
0x347c…349c              Head {h00=0x001c, h01=0x0050, text=» RF(Z) OPE130 RESET DONE«, t00=0x0021, t01=0x00fa}
0x349c…34ae              Head {h00=0x000e, h01=0x0050, text=» C1R A2,A2«, t00=0x0021, t01=0x011a}
0x34ae…34dc              Head {h00=0x002a, h01=0x0050, text=» ANS A2,DWTDEV,A6 INDICATE RESET DONE «, t00=0x0021, t01=0x012c}
0x34dc…3516              Head {h00=0x0036, h01=0x0050, text=» LDKL A2,CNBTAB TABLE TO KNOW WHICH MESSAGE BYTES «, t00=0x0021, t01=0x015a}
0x3516…3540 (34, 0, 400) Head {h00=0x0026, h01=0x0050, text=»*   NOT TO STORE INTO USER BUFFER «, t00=0x0022, t01=0x0004}
0x3540…3574              Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTDEV+DWTTAB,A6 STORE CONTROL TABLE «, t00=0x0022, t01=0x002e}
0x3574…3586              Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x0022, t01=0x0062}
0x3586…35c4              Head {h00=0x003a, h01=0x0050, text=» ST A2,DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED «, t00=0x0022, t01=0x0074}
0x35c4…35ee              Head {h00=0x0026, h01=0x0050, text=» LDK A4,5 USER BUFFER DISPLACEMENT«, t00=0x0022, t01=0x00b2}
0x35ee…3618              Head {h00=0x0026, h01=0x0050, text=» LDK A2,CASNBR GET CASSETTE NUMBER«, t00=0x0022, t01=0x00dc}
0x3618…362a              Head {h00=0x000e, h01=0x0050, text=» RB OPE100«, t00=0x0022, t01=0x0106}
0x362a…363e              Head {h00=0x0010, h01=0x0050, text=»OPE130 EQU *«, t00=0x0022, t01=0x0118}
0x363e…365c              Head {h00=0x001a, h01=0x0050, text=» LDK A7,OPNBIT+RESDON «, t00=0x0022, t01=0x012c}
0x365c…369a              Head {h00=0x003a, h01=0x0050, text=» ORS A7,DWTDEV,A6 INDICATE ND OPEN AND RESET NOT DONE «, t00=0x0022, t01=0x014a}
0x369a…36ba              Head {h00=0x001c, h01=0x0050, text=» LDK A7,2 READ ORDER =2 «, t00=0x0022, t01=0x0188}
0x36ba…36f2              Head {h00=0x0034, h01=0x0050, text=» SC A7,DWTOR+1,A6 INDICATE MOVE BUF. TO USER =2 «, t00=0x0023, t01=0x0018}
0x36f2…3700              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0050}
0x3700…370a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005e}
0x370a…371e              Head {h00=0x0010, h01=0x0050, text=»* COMMON END«, t00=0x0023, t01=0x0068}
0x371e…3728              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007c}
0x3728…373c              Head {h00=0x0010, h01=0x0050, text=»ENDIOC EQU *«, t00=0x0023, t01=0x0086}
0x373c…377c              Head {h00=0x003c, h01=0x0050, text=» CM DWTDEV+DWTBUF+2,A6 RESET READ CONTROL BUFFER LENGTH «, t00=0x0023, t01=0x009a}
0x377c…3790              Head {h00=0x0010, h01=0x0050, text=»ENDIOL EQU *«, t00=0x0023, t01=0x00da}
0x3790…37c4              Head {h00=0x0030, h01=0x0050, text=» LD A8,DWTECB,A6 RESTORE (REAL) ECB-ADDRESS «, t00=0x0023, t01=0x00ee}
0x37c4…37f4              Head {h00=0x002c, h01=0x0050, text=» ST A4,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x0023, t01=0x0122}
0x37f4…37fc              Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0152}
0x37fc…3810              Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0023, t01=0x015a}
0x3810…3840              Head {h00=0x002c, h01=0x0050, text=» OR A1,DWTDEV+DWTSTA,A6 SET RETURN CODE «, t00=0x0023, t01=0x016e}
0x3840…3872              Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTDEV+DWTTP,A6 LOAD TIMER POINTER «, t00=0x0024, t01=0x000e}
0x3872…3892              Head {h00=0x001c, h01=0x0050, text=» RF(Z) ENDI10 NO TIMING «, t00=0x0024, t01=0x0040}
0x3892…38ae              Head {h00=0x0018, h01=0x0050, text=» CMR A4 RESET TIMER «, t00=0x0024, t01=0x0060}
0x38ae…38de              Head {h00=0x002c, h01=0x0050, text=» CM DWTDEV+DWTTP,A6 RESET TIMER POINTER «, t00=0x0024, t01=0x007c}
0x38de…38f2              Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x0024, t01=0x00ac}
0x38f2…392c              Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTDEV+DWTTP1,A6 TIMER POINTER DEVICE BUSY «, t00=0x0024, t01=0x00c0}
0x392c…394a              Head {h00=0x001a, h01=0x0050, text=» RF(Z) ENDI20 NO TIMER«, t00=0x0024, t01=0x00fa}
0x394a…3966              Head {h00=0x0018, h01=0x0050, text=» CMR A4 RESET TIMER «, t00=0x0024, t01=0x0118}
0x3966…39a2              Head {h00=0x0038, h01=0x0050, text=» CM DWTDEV+DWTTP1,A6 RESET TIMER POINTER DEVICE BUSY«, t00=0x0024, t01=0x0134}
0x39a2…39b6              Head {h00=0x0010, h01=0x0050, text=»ENDI20 EQU *«, t00=0x0024, t01=0x0170}
0x39b6…39de              Head {h00=0x0024, h01=0x0050, text=» ABL LENDIS END I/O AND DISPATCH«, t00=0x0024, t01=0x0184}
0x39de…39ec              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x001c}
0x39ec…39f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002a}
0x39f6…3a14              Head {h00=0x001a, h01=0x0050, text=»* CLOSE NOTE DISPENSER«, t00=0x0025, t01=0x0034}
0x3a14…3a1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0052}
0x3a1e…3a26              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x005c}
0x3a26…3a2e              Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0064}
0x3a2e…3a38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006c}
0x3a38…3a4c              Head {h00=0x0010, h01=0x0050, text=»* LIFTS DOWN«, t00=0x0025, t01=0x0076}
0x3a4c…3a56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008a}
0x3a56…3a6a              Head {h00=0x0010, h01=0x0050, text=»CLOSTN EQU *«, t00=0x0025, t01=0x0094}
0x3a6a…3a80              Head {h00=0x0012, h01=0x0050, text=» LDK A7,TIME9S«, t00=0x0025, t01=0x00a8}
0x3a80…3a96              Head {h00=0x0012, h01=0x0050, text=» CF A15,TIMER «, t00=0x0025, t01=0x00be}
0x3a96…3aac              Head {h00=0x0012, h01=0x0050, text=» LDK A2,LIFTDW«, t00=0x0025, t01=0x00d4}
0x3aac…3ace              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x0025, t01=0x00ea}
0x3ace…3af4              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECEIVE MESSAGE «, t00=0x0025, t01=0x010c}
0x3af4…3b0e              Head {h00=0x0016, h01=0x0050, text=» LDKL A4,-OPNBIT-1«, t00=0x0025, t01=0x0132}
0x3b0e…3b46              Head {h00=0x0034, h01=0x0050, text=» ANS A4,DWTDEV,A6 INDICATE NOTE DISPENSER CLOSED«, t00=0x0025, t01=0x014c}
0x3b46…3b5a              Head {h00=0x0010, h01=0x0050, text=»OPCLEN EQU *«, t00=0x0025, t01=0x0184}
0x3b5a…3b70              Head {h00=0x0012, h01=0x0050, text=» LDK A7,RESDON«, t00=0x0026, t01=0x0008}
0x3b70…3ba2              Head {h00=0x002e, h01=0x0050, text=» ORS A7,DWTDEV,A6 INDICATE RESET NOT DONE «, t00=0x0026, t01=0x001e}
0x3ba2…3bb6              Head {h00=0x0010, h01=0x0050, text=»ENDIOZ EQU *«, t00=0x0026, t01=0x0050}
0x3bb6…3bc8              Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0026, t01=0x0064}
0x3bc8…3bda              Head {h00=0x000e, h01=0x0050, text=» RB ENDIOC«, t00=0x0026, t01=0x0076}
0x3bda…3be8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0088}
0x3be8…3bf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0096}
0x3bf2…3c18              Head {h00=0x0022, h01=0x0050, text=»*   DISPENSE AND DELIVER   /2B«, t00=0x0026, t01=0x00a0}
0x3c18…3c22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c22…3c36              Head {h00=0x0010, h01=0x0050, text=»DISPEN EQU *«, t00=0x0026, t01=0x00d0}
0x3c36…3c4e              Head {h00=0x0014, h01=0x0050, text=» LDKL A7,TIME2M «, t00=0x0026, t01=0x00e4}
0x3c4e…3c64              Head {h00=0x0012, h01=0x0050, text=» CF A15,TIMER «, t00=0x0026, t01=0x00fc}
0x3c64…3c7c              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTDEV,A6«, t00=0x0026, t01=0x0112}
0x3c7c…3c92              Head {h00=0x0012, h01=0x0050, text=» ANK A2,OPNBIT«, t00=0x0026, t01=0x012a}
0x3c92…3ccc              Head {h00=0x0036, h01=0x0050, text=» RF(Z) SEQER ND NOT OPEN, INDICATE SEQUENCE ERROR «, t00=0x0026, t01=0x0140}
0x3ccc…3cf8              Head {h00=0x0028, h01=0x0050, text=» CF A5,DSRQTS TEST IF REQUEST ERROR «, t00=0x0026, t01=0x017a}
0x3cf8…3d1a              Head {h00=0x001e, h01=0x0050, text=» LDK A2,BLKSIZ BLOCK-SIZE «, t00=0x0027, t01=0x0016}
0x3d1a…3d46              Head {h00=0x0028, h01=0x0050, text=» CF A5,STABLK DEFINE START OF BLOCK «, t00=0x0027, t01=0x0038}
0x3d46…3d70              Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) LINERR LINE ERROR STATUS «, t00=0x0027, t01=0x0064}
0x3d70…3d84              Head {h00=0x0010, h01=0x0050, text=» IFT SPLIT=0«, t00=0x0027, t01=0x008e}
0x3d84…3db0              Head {h00=0x0028, h01=0x0050, text=» LDK A2,DISDLV DISPENSE AND DELIVER «, t00=0x0027, t01=0x00a2}
0x3db0…3dbc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00ce}
0x3dbc…3dd0              Head {h00=0x0010, h01=0x0050, text=» IFT SPLIT=1«, t00=0x0027, t01=0x00da}
0x3dd0…3df0              Head {h00=0x001c, h01=0x0050, text=» LDK A2,DISPNS DISPENSE «, t00=0x0027, t01=0x00ee}
0x3df0…3dfc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x010e}
0x3dfc…3e34              Head {h00=0x0034, h01=0x0050, text=» XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC ACKUMULATOR «, t00=0x0027, t01=0x011a}
0x3e34…3e62              Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTDEV+DWTRDS,A6 SAVE HW-ORDER «, t00=0x0027, t01=0x0152}
0x3e62…3e9a              Head {h00=0x0034, h01=0x0050, text=» CF A5,OUTPUT SEND COMMAND DISPENSE AND DELIVER «, t00=0x0027, t01=0x0180}
0x3e9a…3ec4              Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) LINERR LINE ERROR STATUS «, t00=0x0028, t01=0x0028}
0x3ec4…3ef8              Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTDEV+DWTLR,A6 LEFT OR RIGHT TELLER «, t00=0x0028, t01=0x0052}
0x3ef8…3f16              Head {h00=0x001a, h01=0x0050, text=» ADK A2,/30 MAKE ASCII«, t00=0x0028, t01=0x0086}
0x3f16…3f4e              Head {h00=0x0034, h01=0x0050, text=» XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC ACKUMULATOR «, t00=0x0028, t01=0x00a4}
0x3f4e…3f7e              Head {h00=0x002c, h01=0x0050, text=» CF A5,OUTPUT SEND LEFT OR RIGHT TELLER «, t00=0x0028, t01=0x00dc}
0x3f7e…3fa8              Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) LINERR LINE ERROR STATUS «, t00=0x0028, t01=0x010c}
0x3fa8…3fd4              Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0028, t01=0x0136}
0x3fd4…3ff2              Head {h00=0x001a, h01=0x0050, text=» LDK A3,/31 CASSETTE 1«, t00=0x0028, t01=0x0162}
0x3ff2…4000              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0180}
0x4000…400a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018e}
0x400a…4026              Head {h00=0x0018, h01=0x0050, text=»* SEND CASSETTE DATA«, t00=0x0029, t01=0x0008}
0x4026…4030              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0024}
0x4030…4044              Head {h00=0x0010, h01=0x0050, text=»DIS100 EQU *«, t00=0x0029, t01=0x002e}
0x4044…406c              Head {h00=0x0024, h01=0x0050, text=» CF A5,SENCAS SEND CASSETTE DATA«, t00=0x0029, t01=0x0042}
0x406c…4094              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS100 NOT LAST CASSETTE«, t00=0x0029, t01=0x006a}
0x4094…40c6              Head {h00=0x002e, h01=0x0050, text=» CF A5,LRCEOM SEND LRC AND END OF MESSAGE «, t00=0x0029, t01=0x0092}
0x40c6…40da              Head {h00=0x0010, h01=0x0050, text=»DIS110 EQU *«, t00=0x0029, t01=0x00c4}
0x40da…4100              Head {h00=0x0022, h01=0x0050, text=» LDK A4,0 BUFFER DISPLACEMENT «, t00=0x0029, t01=0x00d8}
0x4100…4128              Head {h00=0x0024, h01=0x0050, text=» LDK A2,BUFLEN DWT BUFFER LENGTH«, t00=0x0029, t01=0x00fe}
0x4128…414a              Head {h00=0x001e, h01=0x0050, text=» ST A2,DWTDEV+DWTBUF+2,A6 «, t00=0x0029, t01=0x0126}
0x414a…415c              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0029, t01=0x0148}
0x415c…4194              Head {h00=0x0034, h01=0x0050, text=» ADKL A2,DWTDEV+DWTBUF+4 A2:=DWT BUFFER POINTER «, t00=0x0029, t01=0x015a}
0x4194…41b4 (42, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ST A2,DWTDEV+DWTBUF,A6 «, t00=0x002a, t01=0x0004}
0x41b4…41c2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0024}
0x41c2…41cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0032}
0x41cc…41e6              Head {h00=0x0016, h01=0x0050, text=»* RECEIVE MESSAGE «, t00=0x002a, t01=0x003c}
0x41e6…41f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0056}
0x41f0…4204              Head {h00=0x0010, h01=0x0050, text=»DIS120 EQU *«, t00=0x002a, t01=0x0060}
0x4204…422a              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECEIVE MESSAGE «, t00=0x002a, t01=0x0074}
0x422a…4250              Head {h00=0x0022, h01=0x0050, text=» RB(P) ENDIOZ ERROR IN MESSAGE«, t00=0x002a, t01=0x009a}
0x4250…4274              Head {h00=0x0020, h01=0x0050, text=» RF(Z) DADEND END OF MESSAGE«, t00=0x002a, t01=0x00c0}
0x4274…4294              Head {h00=0x001c, h01=0x0050, text=» LD A8,DWTDEV+DWTBUF,A6 «, t00=0x002a, t01=0x00e4}
0x4294…42ba              Head {h00=0x0022, h01=0x0050, text=» SUKL A8,6 VIRTUAL ECB POINTER«, t00=0x002a, t01=0x0104}
0x42ba…42f6              Head {h00=0x0038, h01=0x0050, text=» CF A5,STORE STORE CHARACTER INTO DWT-INTERN BUFFER «, t00=0x002a, t01=0x012a}
0x42f6…4308              Head {h00=0x000e, h01=0x0050, text=» RB DIS120«, t00=0x002a, t01=0x0166}
0x4308…431c              Head {h00=0x0010, h01=0x0050, text=»DADEND EQU *«, t00=0x002a, t01=0x0178}
0x431c…4330              Head {h00=0x0010, h01=0x0050, text=» IFT SPLIT=1«, t00=0x002a, t01=0x018c}
0x4330…4352              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x002b, t01=0x0010}
0x4352…436a              Head {h00=0x0014, h01=0x0050, text=» ANK A7,/FF MASK«, t00=0x002b, t01=0x0032}
0x436a…4380              Head {h00=0x0012, h01=0x0050, text=» CWK A7,DISDEL«, t00=0x002b, t01=0x004a}
0x4380…43a4              Head {h00=0x0020, h01=0x0050, text=» RF(E) DIS125 DISPENSE ORDER«, t00=0x002b, t01=0x0060}
0x43a4…43d4              Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE WITHOUT WARNINGS «, t00=0x002b, t01=0x0084}
0x43d4…43fa              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DIS130 COMMAND NOT OK «, t00=0x002b, t01=0x00b4}
0x43fa…4414              Head {h00=0x0016, h01=0x0050, text=» LDKL A3,-DISDON-1«, t00=0x002b, t01=0x00da}
0x4414…4448              Head {h00=0x0030, h01=0x0050, text=» ANS A3,DWTDEV,A6 INDICATE DISPENSE NOT DONE«, t00=0x002b, t01=0x00f4}
0x4448…445c              Head {h00=0x0010, h01=0x0050, text=» RF DIS130  «, t00=0x002b, t01=0x0128}
0x445c…4470              Head {h00=0x0010, h01=0x0050, text=»DIS125 EQU *«, t00=0x002b, t01=0x013c}
0x4470…44a0              Head {h00=0x002c, h01=0x0050, text=» LDR A1,A1 RETURN CODE WITHOUT WARNINGS «, t00=0x002b, t01=0x0150}
0x44a0…44c6              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DIS130 COMMAND NOT OK «, t00=0x002b, t01=0x0180}
0x44c6…44dc              Head {h00=0x0012, h01=0x0050, text=» LDK A2,DISDON«, t00=0x002c, t01=0x0016}
0x44dc…450c              Head {h00=0x002c, h01=0x0050, text=» ORS A2,DWTDEV,A6 INDICATE DISPENSE DONE«, t00=0x002c, t01=0x002c}
0x450c…4520              Head {h00=0x0010, h01=0x0050, text=»DIS130 EQU *«, t00=0x002c, t01=0x005c}
0x4520…452c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0070}
0x452c…4560              Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTDEV+DWTBUF+2,A6 SAVE BUFFER LENGTH«, t00=0x002c, t01=0x007c}
0x4560…4572              Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x002c, t01=0x00b0}
0x4572…457c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c2}
0x457c…4594              Head {h00=0x0014, h01=0x0050, text=»* SEQUENCE ERROR«, t00=0x002c, t01=0x00cc}
0x4594…459e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e4}
0x459e…45b2              Head {h00=0x0010, h01=0x0050, text=»SEQER EQU * «, t00=0x002c, t01=0x00ee}
0x45b2…45c8              Head {h00=0x0012, h01=0x0050, text=» LDK A1,SEQERR«, t00=0x002c, t01=0x0102}
0x45c8…45da              Head {h00=0x000e, h01=0x0050, text=» RB ENDIOZ«, t00=0x002c, t01=0x0118}
0x45da…45e8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x012a}
0x45e8…45f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0138}
0x45f2…4608              Head {h00=0x0012, h01=0x0050, text=»* READ CONTROL«, t00=0x002c, t01=0x0142}
0x4608…4612              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0158}
0x4612…4626              Head {h00=0x0010, h01=0x0050, text=»RDCONT EQU *«, t00=0x002c, t01=0x0162}
0x4626…463a              Head {h00=0x0010, h01=0x0050, text=» LDK A4,'0' «, t00=0x002c, t01=0x0176}
0x463a…4674              Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTDEV+DWTCNB,A6 INDICATE OLD CASSETTE = 0 «, t00=0x002c, t01=0x018a}
0x4674…469e              Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 USER BUFFER DISPLACMENT «, t00=0x002d, t01=0x0034}
0x469e…46d6              Head {h00=0x0034, h01=0x0050, text=» C2 DWTDEV+DWTBUF+2,A6 NEGATE DWT BUFFER LENGTH «, t00=0x002d, t01=0x005e}
0x46d6…46fe              Head {h00=0x0024, h01=0x0050, text=» RF(Z) RDC120 NOTHING IN BUFFER «, t00=0x002d, t01=0x0096}
0x46fe…4712              Head {h00=0x0010, h01=0x0050, text=»RDC100 EQU *«, t00=0x002d, t01=0x00be}
0x4712…4746              Head {h00=0x0030, h01=0x0050, text=» LC* A3,DWTDEV+DWTBUF,A6 GET CASSETTE NUMBER«, t00=0x002d, t01=0x00d2}
0x4746…477c              Head {h00=0x0032, h01=0x0050, text=» CF A5,RESCAS RESET CASSETTES NOT IN SEQUENCE «, t00=0x002d, t01=0x0106}
0x477c…47b6              Head {h00=0x0036, h01=0x0050, text=» IM DWTDEV+DWTBUF,A6 NEXT CHARCATER IN DWT BUFFER «, t00=0x002d, t01=0x013c}
0x47b6…47ea              Head {h00=0x0030, h01=0x0050, text=» IM DWTDEV+DWTBUF+2,A6 NUMBER OF CHARACTERS «, t00=0x002d, t01=0x0176}
0x47ea…47fe              Head {h00=0x0010, h01=0x0050, text=» LDK A3,/30 «, t00=0x002e, t01=0x001a}
0x47fe…4812              Head {h00=0x0010, h01=0x0050, text=» CF A5,STORE«, t00=0x002e, t01=0x002e}
0x4812…4840              Head {h00=0x002a, h01=0x0050, text=» LDK A1,3 GET 4 BYTES FROM DWT BUFFER «, t00=0x002e, t01=0x0042}
0x4840…4854              Head {h00=0x0010, h01=0x0050, text=»RDC110 EQU *«, t00=0x002e, t01=0x0070}
0x4854…4882              Head {h00=0x002a, h01=0x0050, text=» LC* A3,DWTDEV+DWTBUF,A6 GET CHARACTER«, t00=0x002e, t01=0x0084}
0x4882…4896              Head {h00=0x0010, h01=0x0050, text=» CF A5,STORE«, t00=0x002e, t01=0x00b2}
0x4896…48c8              Head {h00=0x002e, h01=0x0050, text=» IM DWTDEV+DWTBUF,A6 UPDATE BUFFER POINTER«, t00=0x002e, t01=0x00c6}
0x48c8…48e6              Head {h00=0x001a, h01=0x0050, text=» IM DWTDEV+DWTBUF+2,A6«, t00=0x002e, t01=0x00f8}
0x48e6…490e              Head {h00=0x0024, h01=0x0050, text=» RF(Z) RDC120 WHOLE BUFFER MOVED«, t00=0x002e, t01=0x0116}
0x490e…4920              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x013e}
0x4920…494e              Head {h00=0x002a, h01=0x0050, text=» RB(NN) RDC110 NEXT FOR THIS CASSETTE «, t00=0x002e, t01=0x0150}
0x494e…4960              Head {h00=0x000e, h01=0x0050, text=» RB RDC100«, t00=0x002e, t01=0x017e}
0x4960…4974              Head {h00=0x0010, h01=0x0050, text=»RDC120 EQU *«, t00=0x002e, t01=0x0190}
0x4974…4986              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x002f, t01=0x0014}
0x4986…49be              Head {h00=0x0034, h01=0x0050, text=» ADKL A1,DWTDEV+DWTBUF+4 A1:=DWT BUFFER POINTER «, t00=0x002f, t01=0x0026}
0x49be…49de              Head {h00=0x001c, h01=0x0050, text=» ST A1,DWTDEV+DWTBUF,A6 «, t00=0x002f, t01=0x005e}
0x49de…49fc              Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002f, t01=0x007e}
0x49fc…4a10              Head {h00=0x0010, h01=0x0050, text=»ENIOL1 EQU *«, t00=0x002f, t01=0x009c}
0x4a10…4a24              Head {h00=0x0010, h01=0x0050, text=» ABL ENDIOL «, t00=0x002f, t01=0x00b0}
0x4a24…4a32              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00c4}
0x4a32…4a3c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d2}
0x4a3c…4a56              Head {h00=0x0016, h01=0x0050, text=»* READ DIAGNOSTIC «, t00=0x002f, t01=0x00dc}
0x4a56…4a60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f6}
0x4a60…4a74              Head {h00=0x0010, h01=0x0050, text=»RDDIAG EQU *«, t00=0x002f, t01=0x0100}
0x4a74…4a8a              Head {h00=0x0012, h01=0x0050, text=» LDK A7,TIME1S«, t00=0x002f, t01=0x0114}
0x4a8a…4aa0              Head {h00=0x0012, h01=0x0050, text=» CF A15,TIMER «, t00=0x002f, t01=0x012a}
0x4aa0…4acc              Head {h00=0x0028, h01=0x0050, text=» LDK A2,RTRACE GET REJECT TRACE AREA«, t00=0x002f, t01=0x0140}
0x4acc…4aee              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x002f, t01=0x016c}
0x4aee…4b18              Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 USER BUFFER DISPLACEMENT«, t00=0x002f, t01=0x018e}
0x4b18…4b2c              Head {h00=0x0010, h01=0x0050, text=»RDD100 EQU *«, t00=0x0030, t01=0x0028}
0x4b2c…4b52              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECEIVE MESSAGE «, t00=0x0030, t01=0x003c}
0x4b52…4b8c              Head {h00=0x0036, h01=0x0050, text=» RF(NN) RDD110 END OF MESSAGE OR ERROR IN MESSAGE «, t00=0x0030, t01=0x0062}
0x4b8c…4bc4              Head {h00=0x0034, h01=0x0050, text=» CF A5,STORE SAVE CHARACTER (A3) IN USER BUFFER «, t00=0x0030, t01=0x009c}
0x4bc4…4be6              Head {h00=0x001e, h01=0x0050, text=» RB RDD100 NEXT CHARACTER «, t00=0x0030, t01=0x00d4}
0x4be6…4bfa              Head {h00=0x0010, h01=0x0050, text=»RDD110 EQU *«, t00=0x0030, t01=0x00f6}
0x4bfa…4c0c              Head {h00=0x000e, h01=0x0050, text=» RB ENIOL1«, t00=0x0030, t01=0x010a}
0x4c0c…4c1a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x011c}
0x4c1a…4c24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012a}
0x4c24…4c40              Head {h00=0x0018, h01=0x0050, text=»* READ DEVICE STATUS«, t00=0x0030, t01=0x0134}
0x4c40…4c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0150}
0x4c4a…4c5e              Head {h00=0x0010, h01=0x0050, text=»RDDEVS EQU *«, t00=0x0030, t01=0x015a}
0x4c5e…4c7c              Head {h00=0x001a, h01=0x0050, text=» LDKL A2,DWTDEV+DWTRDS«, t00=0x0030, t01=0x016e}
0x4c7c…4c9c              Head {h00=0x001c, h01=0x0050, text=» ADR A2,A6 DATA POINTER «, t00=0x0030, t01=0x018c}
0x4c9c…4cba              Head {h00=0x001a, h01=0x0050, text=» LDK A4,0 BUFFER INDEX«, t00=0x0031, t01=0x001c}
0x4cba…4cce              Head {h00=0x0010, h01=0x0050, text=»RDS100 EQU *«, t00=0x0031, t01=0x003a}
0x4cce…4ce0              Head {h00=0x000e, h01=0x0050, text=» LCR A3,A2«, t00=0x0031, t01=0x004e}
0x4ce0…4cf4              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0031, t01=0x0060}
0x4cf4…4d18              Head {h00=0x0020, h01=0x0050, text=» RF(Z) RDS110 END OF BUFFER «, t00=0x0031, t01=0x0074}
0x4d18…4d4c              Head {h00=0x0030, h01=0x0050, text=» CF A5,STCHAR STORE CHARACTER IN USER BUFFER«, t00=0x0031, t01=0x0098}
0x4d4c…4d6c              Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 UPDATE POINTER«, t00=0x0031, t01=0x00cc}
0x4d6c…4d7e              Head {h00=0x000e, h01=0x0050, text=» CWK A4,4 «, t00=0x0031, t01=0x00ec}
0x4d7e…4da2              Head {h00=0x0020, h01=0x0050, text=» RB(L) RDS100 NEXT CHARACTER«, t00=0x0031, t01=0x00fe}
0x4da2…4db6              Head {h00=0x0010, h01=0x0050, text=»RDS110 EQU *«, t00=0x0031, t01=0x0122}
0x4db6…4dd4              Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0031, t01=0x0136}
0x4dd4…4de6              Head {h00=0x000e, h01=0x0050, text=» RB ENIOL1«, t00=0x0031, t01=0x0154}
0x4de6…4dfa              Head {h00=0x0010, h01=0x0050, text=» IFT SPLIT=1«, t00=0x0031, t01=0x0166}
0x4dfa…4e08              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x017a}
0x4e08…4e12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0188}
0x4e12…4e2e (50, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* DELIVER NOTES  /38«, t00=0x0032, t01=0x0004}
0x4e2e…4e38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0020}
0x4e38…4e4c              Head {h00=0x0010, h01=0x0050, text=»DELIV EQU * «, t00=0x0032, t01=0x002a}
0x4e4c…4e56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003e}
0x4e56…4e80              Head {h00=0x0026, h01=0x0050, text=»* CHECK IF NOTES IN DELIVERY UNIT «, t00=0x0032, t01=0x0048}
0x4e80…4e8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0072}
0x4e8a…4ea0              Head {h00=0x0012, h01=0x0050, text=» LDK A7,TIME9S«, t00=0x0032, t01=0x007c}
0x4ea0…4eb6              Head {h00=0x0012, h01=0x0050, text=» CF A15,TIMER «, t00=0x0032, t01=0x0092}
0x4eb6…4ecc              Head {h00=0x0012, h01=0x0050, text=» LDK A2,CHKDEL«, t00=0x0032, t01=0x00a8}
0x4ecc…4eee              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x0032, t01=0x00be}
0x4eee…4f02              Head {h00=0x0010, h01=0x0050, text=»DEL100 EQU *«, t00=0x0032, t01=0x00e0}
0x4f02…4f28              Head {h00=0x0022, h01=0x0050, text=» CF A5,RECMES RECEIVE MESSAGE «, t00=0x0032, t01=0x00f4}
0x4f28…4f52              Head {h00=0x0026, h01=0x0050, text=» ABL(P) ENDIO COMMUNICATION ERROR «, t00=0x0032, t01=0x011a}
0x4f52…4f7e              Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTDEV+DWTSTA,A6 RETURN CODE «, t00=0x0032, t01=0x0144}
0x4f7e…4fac              Head {h00=0x002a, h01=0x0050, text=» ABL(NZ) ENDIO NOTES IN DELIVERY UNIT «, t00=0x0032, t01=0x0170}
0x4fac…4fc4              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTDEV,A6«, t00=0x0033, t01=0x000e}
0x4fc4…4fda              Head {h00=0x0012, h01=0x0050, text=» ANK A2,DISDON«, t00=0x0033, t01=0x0026}
0x4fda…5010              Head {h00=0x0032, h01=0x0050, text=» RB(Z) SEQER DISPENSE NOT DONE,SEQUENCE ERROR «, t00=0x0033, t01=0x003c}
0x5010…5026              Head {h00=0x0012, h01=0x0050, text=» LDK A2,DELIVR«, t00=0x0033, t01=0x0072}
0x5026…5038              Head {h00=0x000e, h01=0x0050, text=» RF DUM100«, t00=0x0033, t01=0x0088}
0x5038…5046              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x009a}
0x5046…5050              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a8}
0x5050…506a              Head {h00=0x0016, h01=0x0050, text=»* DUMP NOTES  /31 «, t00=0x0033, t01=0x00b2}
0x506a…5074              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00cc}
0x5074…5088              Head {h00=0x0010, h01=0x0050, text=»DUMPA EQU * «, t00=0x0033, t01=0x00d6}
0x5088…509e              Head {h00=0x0012, h01=0x0050, text=» LDK A7,TIME9S«, t00=0x0033, t01=0x00ea}
0x509e…50b4              Head {h00=0x0012, h01=0x0050, text=» CF A15,TIMER «, t00=0x0033, t01=0x0100}
0x50b4…50ca              Head {h00=0x0012, h01=0x0050, text=» LDK A2,REJECT«, t00=0x0033, t01=0x0116}
0x50ca…50de              Head {h00=0x0010, h01=0x0050, text=»DUM100 EQU *«, t00=0x0033, t01=0x012c}
0x50de…5100              Head {h00=0x001e, h01=0x0050, text=» CF A5,SENCOM SEND COMMAND«, t00=0x0033, t01=0x0140}
0x5100…5124              Head {h00=0x0020, h01=0x0050, text=» ABL DIS110 RECEIVE MESSAGE «, t00=0x0033, t01=0x0162}
0x5124…5130              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0186}
0x5130…513e (52, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0004}
0x513e…5148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0012}
0x5148…5152              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x001c}
0x5152…5162              Head {h00=0x000c, h01=0x0050, text=»*   RCTN«, t00=0x0034, t01=0x0026}
0x5162…516c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0036}
0x516c…518c              Head {h00=0x001c, h01=0x0050, text=»*   RECOVERY AT POWER ON«, t00=0x0034, t01=0x0040}
0x518c…5196              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0060}
0x5196…51a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x006a}
0x51a0…51b2              Head {h00=0x000e, h01=0x0050, text=»RCTN EQU *«, t00=0x0034, t01=0x0074}
0x51b2…51cc              Head {h00=0x0016, h01=0x0050, text=» LDKL A1,-OPNBIT-1«, t00=0x0034, t01=0x0086}
0x51cc…51fa              Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTDEV,A6 INDICATE ND NOT OPEN«, t00=0x0034, t01=0x00a0}
0x51fa…5210              Head {h00=0x0012, h01=0x0050, text=» LDK A1,RESDON«, t00=0x0034, t01=0x00ce}
0x5210…5242              Head {h00=0x002e, h01=0x0050, text=» ORS A1,DWTDEV,A6 INDICATE RESET NOT DONE «, t00=0x0034, t01=0x00e4}
0x5242…5266              Head {h00=0x0020, h01=0x0050, text=» LDR A8,A8 ANY ECB ADDRESS ?«, t00=0x0034, t01=0x0116}
0x5266…5290              Head {h00=0x0026, h01=0x0050, text=» ABL(Z) LDISP NO. DEVICE NOT BUSY «, t00=0x0034, t01=0x013a}
0x5290…52bc              Head {h00=0x0028, h01=0x0050, text=» LDK A1,PWFAIL SET POWER FAILURE BIT«, t00=0x0034, t01=0x0164}
0x52bc…52d2              Head {h00=0x0012, h01=0x0050, text=» CWK A7,READCO«, t00=0x0034, t01=0x0190}
0x52d2…52fa              Head {h00=0x0024, h01=0x0050, text=» ABL(E) ENDIO READ CONTROL ORDER«, t00=0x0035, t01=0x0016}
0x52fa…532c              Head {h00=0x002e, h01=0x0050, text=» ABL ENDIOZ OTHER ORDERS THAN READ CONTROL«, t00=0x0035, t01=0x003e}
0x532c…533a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0070}
0x533a…5344              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007e}
0x5344…534e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0088}
0x534e…5366              Head {h00=0x0014, h01=0x0050, text=»*   SUBROUTINES «, t00=0x0035, t01=0x0092}
0x5366…5370              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00aa}
0x5370…537a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x537a…5384              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00be}
0x5384…538c              Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00c8}
0x538c…5394              Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00d0}
0x5394…539e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d8}
0x539e…53b2              Head {h00=0x0010, h01=0x0050, text=»* SET TIMER «, t00=0x0035, t01=0x00e2}
0x53b2…53ca              Head {h00=0x0014, h01=0x0050, text=»* A7=TIME VALUE «, t00=0x0035, t01=0x00f6}
0x53ca…53d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010e}
0x53d4…53e8              Head {h00=0x0010, h01=0x0050, text=»TIMER EQU * «, t00=0x0035, t01=0x0118}
0x53e8…5414              Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTDEV+DWTTP,A6 TIMER POINTER«, t00=0x0035, t01=0x012c}
0x5414…543c              Head {h00=0x0024, h01=0x0050, text=» RF(NZ) TIM100 TIMER ALREADY SET«, t00=0x0035, t01=0x0158}
0x543c…546a              Head {h00=0x002a, h01=0x0050, text=» LDR A1,A6 SAVE DWT ADDRESS IF TIMEOUT«, t00=0x0035, t01=0x0180}
0x546a…548a              Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIME SET TIME «, t00=0x0036, t01=0x001e}
0x548a…54c4              Head {h00=0x0036, h01=0x0050, text=» DATA ACTNTO,TIME1S TIME1S OUT ROUTINE AND TIME1S «, t00=0x0036, t01=0x003e}
0x54c4…54fe              Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTDEV+DWTTP,A6 STORE TIMER ADDRESS IN DWT «, t00=0x0036, t01=0x0078}
0x54fe…5510              Head {h00=0x000e, h01=0x0050, text=» NGR A7,A7«, t00=0x0036, t01=0x00b2}
0x5510…5532              Head {h00=0x001e, h01=0x0050, text=» STR A7,A4 NEW TIME VALUE «, t00=0x0036, t01=0x00c4}
0x5532…5546              Head {h00=0x0010, h01=0x0050, text=»TIM100 EQU *«, t00=0x0036, t01=0x00e6}
0x5546…5556              Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0036, t01=0x00fa}
0x5556…5564              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x010a}
0x5564…5578              Head {h00=0x0010, h01=0x0050, text=»CLDATA EQU *«, t00=0x0036, t01=0x0118}
0x5578…55a6              Head {h00=0x002a, h01=0x0050, text=» CM DWTDEV+DWTLRC,A6 RESET LRC BUFFER «, t00=0x0036, t01=0x012c}
0x55a6…55c4              Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTOR,A6 INDEX «, t00=0x0036, t01=0x015a}
0x55c4…55d6              Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0036, t01=0x0178}
0x55d6…560a              Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTDEV+DWTLR,A6 LEFT OR RIGHT TELLER «, t00=0x0036, t01=0x018a}
0x560a…563a              Head {h00=0x002c, h01=0x0050, text=» CM DWTDEV+DWTBFR,A6 CLEAR DELAY BUFFER «, t00=0x0037, t01=0x002e}
0x563a…5672              Head {h00=0x0034, h01=0x0050, text=» CM DWTDEV+DWTSTA,A6 CLEAR NOTE DISPENSER STATUS«, t00=0x0037, t01=0x005e}
0x5672…56a8              Head {h00=0x0032, h01=0x0050, text=» CM DWTDEV+DWTTAB,A6 CLEAR STORE-TABLE POINTER«, t00=0x0037, t01=0x0096}
0x56a8…56e8              Head {h00=0x003c, h01=0x0050, text=» CM DWTDEV+DWTNCR,A6 CLEAR NUMBER OF CHARACTERS RECEIVED«, t00=0x0037, t01=0x00cc}
0x56e8…56fe              Head {h00=0x0012, h01=0x0050, text=» CWK A7,READDS«, t00=0x0037, t01=0x010c}
0x56fe…572c              Head {h00=0x002a, h01=0x0050, text=» RF(E) CLD100 ORDER READ DEVICE STATUS«, t00=0x0037, t01=0x0122}
0x572c…5748              Head {h00=0x0018, h01=0x0050, text=» CM DWTDEV+DWTRDS,A6«, t00=0x0037, t01=0x0150}
0x5748…5766              Head {h00=0x001a, h01=0x0050, text=» CM DWTDEV+DWTRDS+2,A6«, t00=0x0037, t01=0x016c}
0x5766…577a              Head {h00=0x0010, h01=0x0050, text=»CLD100 EQU *«, t00=0x0037, t01=0x018a}
0x577a…578a              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0038, t01=0x000e}
0x578a…5798              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x001e}
0x5798…57a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002c}
0x57a2…57da              Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE TO GET RETURN CODE FROM H.W. STATUS«, t00=0x0038, t01=0x0036}
0x57da…57e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x006e}
0x57e4…5806              Head {h00=0x001e, h01=0x0050, text=»* ENTRY:  A2 = H.W. STATUS«, t00=0x0038, t01=0x0078}
0x5806…5810              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x009a}
0x5810…5820              Head {h00=0x000c, h01=0x0050, text=»* EXIT: «, t00=0x0038, t01=0x00a4}
0x5820…5844              Head {h00=0x0020, h01=0x0050, text=»*         A1,A2 = IRRELEVANT«, t00=0x0038, t01=0x00b4}
0x5844…586c              Head {h00=0x0024, h01=0x0050, text=»*         RETURN CODE IN DWTSTA «, t00=0x0038, t01=0x00d8}
0x586c…5876              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0100}
0x5876…588a              Head {h00=0x0010, h01=0x0050, text=»STATUS EQU *«, t00=0x0038, t01=0x010a}
0x588a…589c              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x011e}
0x589c…58b0              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/33 «, t00=0x0038, t01=0x0130}
0x58b0…58e8              Head {h00=0x0034, h01=0x0050, text=» RF(E) STA150 DEVICE BUSY BECAUSE LIFTS ARE DOWN«, t00=0x0038, t01=0x0144}
0x58e8…58fc              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/30 «, t00=0x0038, t01=0x017c}
0x58fc…591c              Head {h00=0x001c, h01=0x0050, text=» RF(E) STA160 DEVICE OK «, t00=0x0038, t01=0x0190}
0x591c…5948              Head {h00=0x0028, h01=0x0050, text=» LC A1,DWTDEV+DWTRDS+1,A6 OLD STATUS«, t00=0x0039, t01=0x0020}
0x5948…595c              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0039, t01=0x004c}
0x595c…5988              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) STA080 BYTE ALREADY OCCUPIED«, t00=0x0039, t01=0x0060}
0x5988…59b8              Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTDEV+DWTRDS+1,A6 SAVE HW STATUS«, t00=0x0039, t01=0x008c}
0x59b8…59ca              Head {h00=0x000e, h01=0x0050, text=» RF STA090«, t00=0x0039, t01=0x00bc}
0x59ca…59de              Head {h00=0x0010, h01=0x0050, text=»STA080 EQU *«, t00=0x0039, t01=0x00ce}
0x59de…5a0e              Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTDEV+DWTRDS+3,A6 SAVE HW STATUS«, t00=0x0039, t01=0x00e2}
0x5a0e…5a22              Head {h00=0x0010, h01=0x0050, text=»STA090 EQU *«, t00=0x0039, t01=0x0112}
0x5a22…5a48              Head {h00=0x0022, h01=0x0050, text=» SUK A2,/30 CHECK LOWER LIMIT «, t00=0x0039, t01=0x0126}
0x5a48…5a6e              Head {h00=0x0022, h01=0x0050, text=» RF(N) STA180 WRONG HW-STATUS «, t00=0x0039, t01=0x014c}
0x5a6e…5a98              Head {h00=0x0026, h01=0x0050, text=» SUK A2,/21  CHECK UPPER LIMIT =1 «, t00=0x0039, t01=0x0172}
0x5a98…5abe              Head {h00=0x0022, h01=0x0050, text=» RF(P) STA180 WRONG HW-STATUS «, t00=0x003a, t01=0x000c}
0x5abe…5af4              Head {h00=0x0032, h01=0x0050, text=» ADK A2,/20 ADJUST BACK, AND DECR WITH /31. =1«, t00=0x003a, t01=0x0032}
0x5af4…5b02              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0068}
0x5b02…5b16              Head {h00=0x0010, h01=0x0050, text=» CWK A2,/17 «, t00=0x003a, t01=0x0076}
0x5b16…5b4e              Head {h00=0x0034, h01=0x0050, text=» RF(E) STA140 STATUS /48,HIGH PRESSURE = WARNING«, t00=0x003a, t01=0x008a}
0x5b4e…5b72              Head {h00=0x0020, h01=0x0050, text=» RF(L) STA100 DON'T SKIP /48«, t00=0x003a, t01=0x00c2}
0x5b72…5b8c              Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 SKIP /48«, t00=0x003a, t01=0x00e6}
0x5b8c…5ba0              Head {h00=0x0010, h01=0x0050, text=»STA100 EQU *«, t00=0x003a, t01=0x0100}
0x5ba0…5bb2              Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x003a, t01=0x0114}
0x5bb2…5bd2              Head {h00=0x001c, h01=0x0050, text=» RF(N) STA110 ODD QUART «, t00=0x003a, t01=0x0126}
0x5bd2…5bea              Head {h00=0x0014, h01=0x0050, text=» LC A2,CASTAT,A2«, t00=0x003a, t01=0x0146}
0x5bea…5c1a              Head {h00=0x002c, h01=0x0050, text=» SRL A2,4 A2:=BIT NUMBER IN RETURN CODE «, t00=0x003a, t01=0x015e}
0x5c1a…5c2c              Head {h00=0x000e, h01=0x0050, text=» RF STA120«, t00=0x003a, t01=0x018e}
0x5c2c…5c40              Head {h00=0x0010, h01=0x0050, text=»STA110 EQU *«, t00=0x003b, t01=0x0010}
0x5c40…5c54              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003b, t01=0x0024}
0x5c54…5c6c              Head {h00=0x0014, h01=0x0050, text=» LC A2,CASTAT,A2«, t00=0x003b, t01=0x0038}
0x5c6c…5c9c              Head {h00=0x002c, h01=0x0050, text=» ANK A2,/F A2:=BIT NUMBER IN RETURN CODE«, t00=0x003b, t01=0x0050}
0x5c9c…5cb0              Head {h00=0x0010, h01=0x0050, text=»STA120 EQU *«, t00=0x003b, t01=0x0080}
0x5cb0…5ccc              Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 SET BIT 15«, t00=0x003b, t01=0x0094}
0x5ccc…5ce0              Head {h00=0x0010, h01=0x0050, text=»STA130 EQU *«, t00=0x003b, t01=0x00b0}
0x5ce0…5cf2              Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x003b, t01=0x00c4}
0x5cf2…5d04              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003b, t01=0x00d6}
0x5d04…5d36              Head {h00=0x002e, h01=0x0050, text=» RB(NN) STA130 BIT NOT IN CORRECT POSITION«, t00=0x003b, t01=0x00e8}
0x5d36…5d4a              Head {h00=0x0010, h01=0x0050, text=»STA140 EQU *«, t00=0x003b, t01=0x011a}
0x5d4a…5d7a              Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTDEV+DWTSTA,A6 SET RETURN CODE«, t00=0x003b, t01=0x012e}
0x5d7a…5d8c              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003b, t01=0x015e}
0x5d8c…5d9c              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003b, t01=0x0170}
0x5d9c…5daa              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0180}
0x5daa…5dbe              Head {h00=0x0010, h01=0x0050, text=»STA150 EQU *«, t00=0x003b, t01=0x018e}
0x5dbe…5df6              Head {h00=0x0034, h01=0x0050, text=» SUK A1,1 INDICATE DEVICE BUSY (LIFTS ARE DOWN) «, t00=0x003c, t01=0x0012}
0x5df6…5e0a              Head {h00=0x0010, h01=0x0050, text=»STA160 EQU *«, t00=0x003c, t01=0x004a}
0x5e0a…5e42              Head {h00=0x0034, h01=0x0050, text=» LD A2,DWTDEV+DWTRDS+2,A6 HW ORDER AND STATUS 2 «, t00=0x003c, t01=0x005e}
0x5e42…5e74              Head {h00=0x002e, h01=0x0050, text=» RF(NZ) STA170 BOTH STATUS WORDS OCCUPIED «, t00=0x003c, t01=0x0096}
0x5e74…5e90              Head {h00=0x0018, h01=0x0050, text=» CM DWTDEV+DWTRDS,A6«, t00=0x003c, t01=0x00c8}
0x5e90…5ea4              Head {h00=0x0010, h01=0x0050, text=»STA170 EQU *«, t00=0x003c, t01=0x00e4}
0x5ea4…5ec2              Head {h00=0x001a, h01=0x0050, text=» CM DWTDEV+DWTRDS+2,A6«, t00=0x003c, t01=0x00f8}
0x5ec2…5ed4              Head {h00=0x000e, h01=0x0050, text=» RB STA140«, t00=0x003c, t01=0x0116}
0x5ed4…5ee8              Head {h00=0x0010, h01=0x0050, text=»STA180 EQU *«, t00=0x003c, t01=0x0128}
0x5ee8…5f14              Head {h00=0x0028, h01=0x0050, text=» LDK A1,FMERR FIRMWARE-ERROR IN TND «, t00=0x003c, t01=0x013c}
0x5f14…5f28              Head {h00=0x0010, h01=0x0050, text=» RB STA140  «, t00=0x003c, t01=0x0168}
0x5f28…5f36              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x017c}
0x5f36…5f40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x018a}
0x5f40…5f4a (61, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0004}
0x5f4a…5f54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000e}
0x5f54…5f78              Head {h00=0x0020, h01=0x0050, text=»* THIS SUBROUTINE IS ENTERED«, t00=0x003d, t01=0x0018}
0x5f78…5fac              Head {h00=0x0030, h01=0x0050, text=»* WHEN LINE DRIVER ERROR STATUS IS DETECTED «, t00=0x003d, t01=0x003c}
0x5fac…5fb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0070}
0x5fb6…5fc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007a}
0x5fc0…5fd4              Head {h00=0x0010, h01=0x0050, text=»LINERR EQU *«, t00=0x003d, t01=0x0084}
0x5fd4…600c              Head {h00=0x0034, h01=0x0050, text=» LDK A1,NOTOPE RETURN CODE FOR ECB: NOT OPERABLE«, t00=0x003d, t01=0x0098}
0x600c…6046              Head {h00=0x0036, h01=0x0050, text=» ORS A1,DWTDEV+DWTSTA,A6 SET RETURN CODE INTO ECB «, t00=0x003d, t01=0x00d0}
0x6046…6076              Head {h00=0x002c, h01=0x0050, text=» ABL OPCLEN INDICATE RESET NOT DONE ETC.«, t00=0x003d, t01=0x010a}
0x6076…6084              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x013a}
0x6084…608e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0148}
0x608e…60c6              Head {h00=0x0034, h01=0x0050, text=»* THIS SUBROUTINE SENDS A ONE BYTE LONG COMMAND «, t00=0x003d, t01=0x0152}
0x60c6…6104              Head {h00=0x003a, h01=0x0050, text=»* AND CALCULATES LRC,SENDS IT AND SENDS END OF MESSAGE«, t00=0x003d, t01=0x018a}
0x6104…610e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0038}
0x610e…6134              Head {h00=0x0022, h01=0x0050, text=»* ENTRY: A2 = COMMAND TO SEND «, t00=0x003e, t01=0x0042}
0x6134…613e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0068}
0x613e…6164              Head {h00=0x0022, h01=0x0050, text=»* EXIT:  A1,A2,A3 = IRRELEVANT«, t00=0x003e, t01=0x0072}
0x6164…616e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0098}
0x616e…6182              Head {h00=0x0010, h01=0x0050, text=»SENCOM EQU *«, t00=0x003e, t01=0x00a2}
0x6182…61a6              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE THE COMMAND «, t00=0x003e, t01=0x00b6}
0x61a6…61ca              Head {h00=0x0020, h01=0x0050, text=» LDK A2,BLKSIZ GET BLOCKSIZE«, t00=0x003e, t01=0x00da}
0x61ca…61f6              Head {h00=0x0028, h01=0x0050, text=» CF A5,STABLK DEFINE START OF BLOCK «, t00=0x003e, t01=0x00fe}
0x61f6…621e              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x003e, t01=0x012a}
0x621e…6244              Head {h00=0x0022, h01=0x0050, text=» LDR A2,A3 RESTORE THE COMMAND«, t00=0x003e, t01=0x0152}
0x6244…6272              Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTDEV+DWTLRC+1,A6 SAVE LRC SUM«, t00=0x003e, t01=0x0178}
0x6272…62aa              Head {h00=0x0034, h01=0x0050, text=» LD A1,DWTDEV+DWTRDS,A6 FIRST WORD IN LOGG AREA «, t00=0x003f, t01=0x0016}
0x62aa…62d6              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) SEN100 ONE LOGG ALREADY DONE«, t00=0x003f, t01=0x004e}
0x62d6…6304              Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTDEV+DWTRDS,A6 SAVE HW ORDER «, t00=0x003f, t01=0x007a}
0x6304…6316              Head {h00=0x000e, h01=0x0050, text=» RF SEN200«, t00=0x003f, t01=0x00a8}
0x6316…632a              Head {h00=0x0010, h01=0x0050, text=»SEN100 EQU *«, t00=0x003f, t01=0x00ba}
0x632a…635a              Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTDEV+DWTRDS+2,A6 SAVE HW ORDER «, t00=0x003f, t01=0x00ce}
0x635a…636e              Head {h00=0x0010, h01=0x0050, text=»SEN200 EQU *«, t00=0x003f, t01=0x00fe}
0x636e…638e              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND BYTE «, t00=0x003f, t01=0x0112}
0x638e…63b6              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x003f, t01=0x0132}
0x63b6…63c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x015a}
0x63c0…63e6              Head {h00=0x0022, h01=0x0050, text=»* SEND LRC AND END OF MESSAGE «, t00=0x003f, t01=0x0164}
0x63e6…63f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x018a}
0x63f0…6404 (64, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LRCEOM EQU *«, t00=0x0040, t01=0x0004}
0x6404…6432              Head {h00=0x002a, h01=0x0050, text=» LC A3,DWTDEV+DWTLRC+1,A6 GET LRC SUM «, t00=0x0040, t01=0x0018}
0x6432…6446              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0040, t01=0x0046}
0x6446…6458              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0040, t01=0x005a}
0x6458…646a              Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x0040, t01=0x006c}
0x646a…647c              Head {h00=0x000e, h01=0x0050, text=» ANK A3,/F«, t00=0x0040, t01=0x007e}
0x647c…6494              Head {h00=0x0014, h01=0x0050, text=» ADK A2,/30 CMSD«, t00=0x0040, t01=0x0090}
0x6494…64ac              Head {h00=0x0014, h01=0x0050, text=» ADK A3,/30 CLSD«, t00=0x0040, t01=0x00a8}
0x64ac…64cc              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND BYTE «, t00=0x0040, t01=0x00c0}
0x64cc…64f4              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x0040, t01=0x00e0}
0x64f4…650c              Head {h00=0x0014, h01=0x0050, text=» LDR A2,A3 CLSD «, t00=0x0040, t01=0x0108}
0x650c…652c              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND BYTE «, t00=0x0040, t01=0x0120}
0x652c…6554              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x0040, t01=0x0140}
0x6554…6578              Head {h00=0x0020, h01=0x0050, text=» LDK A2,ENDCH END CHARACTER «, t00=0x0040, t01=0x0168}
0x6578…6598              Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND BYTE «, t00=0x0040, t01=0x018c}
0x6598…65c0              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x0041, t01=0x001c}
0x65c0…65d2              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0041, t01=0x0044}
0x65d2…660a              Head {h00=0x0034, h01=0x0050, text=» SC A2,DWTDEV+DWTLRC+1,A6 RESET LRC ACKUMULATOR «, t00=0x0041, t01=0x0056}
0x660a…6634              Head {h00=0x0026, h01=0x0050, text=» CF A5,ENDBLK DEFINE END OF BLOCK «, t00=0x0041, t01=0x008e}
0x6634…665c              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x0041, t01=0x00b8}
0x665c…666c              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0041, t01=0x00e0}
0x666c…667a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x00f0}
0x667a…6684              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00fe}
0x6684…66b6              Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE TO SEND DATA TO EACH CASSETTE«, t00=0x0041, t01=0x0108}
0x66b6…66c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x013a}
0x66c0…66ea              Head {h00=0x0026, h01=0x0050, text=»* ENTRY:  A4 = USER BUFFER POINTER«, t00=0x0041, t01=0x0144}
0x66ea…6710              Head {h00=0x0022, h01=0x0050, text=»*         A3 = CASSETTE NUMBER«, t00=0x0041, t01=0x016e}
0x6710…671a (66, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0004}
0x671a…6738              Head {h00=0x001a, h01=0x0050, text=»* EXIT:   A4 = A4 + 5 «, t00=0x0042, t01=0x000e}
0x6738…6756              Head {h00=0x001a, h01=0x0050, text=»*         A3 = A3 + 1 «, t00=0x0042, t01=0x002c}
0x6756…677a              Head {h00=0x0020, h01=0x0050, text=»*         A1,A2 = IRRELEVANT«, t00=0x0042, t01=0x004a}
0x677a…6784              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x006e}
0x6784…6798              Head {h00=0x0010, h01=0x0050, text=»SENCAS EQU *«, t00=0x0042, t01=0x0078}
0x6798…67c0              Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTDEV+DWTBUF,A6 SAVE A3 «, t00=0x0042, t01=0x008c}
0x67c0…67ec              Head {h00=0x0028, h01=0x0050, text=» XRS A3,DWTDEV+DWTLRC,A6 UPDATE LRC «, t00=0x0042, t01=0x00b4}
0x67ec…67fe              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0042, t01=0x00e0}
0x67fe…6814              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0042, t01=0x00f2}
0x6814…683c              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x0042, t01=0x0108}
0x683c…684e              Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0042, t01=0x0130}
0x684e…6860              Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0042, t01=0x0142}
0x6860…6874              Head {h00=0x0010, h01=0x0050, text=»SCA100 EQU *«, t00=0x0042, t01=0x0154}
0x6874…6886              Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0042, t01=0x0168}
0x6886…68b2              Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC «, t00=0x0042, t01=0x017a}
0x68b2…68c8              Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0043, t01=0x0016}
0x68c8…68f0              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) LINERR LINE ERROR STATUS«, t00=0x0043, t01=0x002c}
0x68f0…6918              Head {h00=0x0024, h01=0x0050, text=» ADK A4,1 UPDATE BUFFER POINTER «, t00=0x0043, t01=0x0054}
0x6918…692a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0043, t01=0x007c}
0x692a…6964              Head {h00=0x0036, h01=0x0050, text=» RB(NN) SCA100 DATA FOR THIS CASSETTE NOT FINISHED«, t00=0x0043, t01=0x008e}
0x6964…69a0              Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV+DWTBUF,A6 SAVED REGISTER=CASSETTE NBR «, t00=0x0043, t01=0x00c8}
0x69a0…69c0              Head {h00=0x001c, h01=0x0050, text=» ADK A3,1 NEXT CASSETTE «, t00=0x0043, t01=0x0104}
0x69c0…69de              Head {h00=0x001a, h01=0x0050, text=» ADK A5,4 ADJUST STACK«, t00=0x0043, t01=0x0124}
0x69de…69f6              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0043, t01=0x0142}
0x69f6…6a0e              Head {h00=0x0014, h01=0x0050, text=» AD A2,ECBRL,A8 «, t00=0x0043, t01=0x015a}
0x6a0e…6a28              Head {h00=0x0016, h01=0x0050, text=» CWR A4,A2 SET CR «, t00=0x0043, t01=0x0172}
0x6a28…6a40              Head {h00=0x0014, h01=0x0050, text=» ABR* A5 RETURN «, t00=0x0043, t01=0x018c}
0x6a40…6a4e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0014}
0x6a4e…6a8c              Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE RECEIVES A MESSAGE FROM NOTE DISPENSER «, t00=0x0044, t01=0x0022}
0x6a8c…6ac2              Head {h00=0x0032, h01=0x0050, text=»* IF DWTBFR IS ZERO,IT RECEIVES STATUS+3 BYTES«, t00=0x0044, t01=0x0060}
0x6ac2…6b02              Head {h00=0x003c, h01=0x0050, text=»* IF THE LAST BYTE IS EOM,IT CHECKS LRC AND THEN RETURNS«, t00=0x0044, t01=0x0096}
0x6b02…6b36              Head {h00=0x0030, h01=0x0050, text=»* IF DWTBFR IS NOT ZERO,IT RECEIVES ONE BYTE«, t00=0x0044, t01=0x00d6}
0x6b36…6b40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x010a}
0x6b40…6b58              Head {h00=0x0014, h01=0x0050, text=»* ENTRY: NOTHING«, t00=0x0044, t01=0x0114}
0x6b58…6b80              Head {h00=0x0024, h01=0x0050, text=»* EXIT:  A3 = RECEIVED CHARACTER«, t00=0x0044, t01=0x012c}
0x6b80…6ba0              Head {h00=0x001c, h01=0x0050, text=»*        A2 = IRRELEVANT«, t00=0x0044, t01=0x0154}
0x6ba0…6bc2              Head {h00=0x001e, h01=0x0050, text=»*        A1 = RETURN CODE «, t00=0x0044, t01=0x0174}
0x6bc2…6bee              Head {h00=0x0028, h01=0x0050, text=»*        CR = O MEANS EOM AND LRC OK«, t00=0x0045, t01=0x0008}
0x6bee…6c1c              Head {h00=0x002a, h01=0x0050, text=»*             1 MEANS EOM AND LRC BAD «, t00=0x0045, t01=0x0034}
0x6c1c…6c42              Head {h00=0x0022, h01=0x0050, text=»*             2 MEANS NOT EOM «, t00=0x0045, t01=0x0062}
0x6c42…6c56              Head {h00=0x0010, h01=0x0050, text=»RECMES EQU *«, t00=0x0045, t01=0x0088}
0x6c56…6c76              Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTDEV+DWTBFR,A6 «, t00=0x0045, t01=0x009c}
0x6c76…6c9c              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) REC100 NOT FIRST TIME «, t00=0x0045, t01=0x00bc}
0x6c9c…6cbc              Head {h00=0x001c, h01=0x0050, text=» CF A5,INPUT GET STATUS «, t00=0x0045, t01=0x00e2}
0x6cbc…6ce8              Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTDEV+DWTLRC,A6 UPDATE LRC «, t00=0x0045, t01=0x0102}
0x6ce8…6d1e              Head {h00=0x0032, h01=0x0050, text=» CF A5,STATUS TEST STATUS AND SET RETURN CODE «, t00=0x0045, t01=0x012e}
0x6d1e…6d40              Head {h00=0x001e, h01=0x0050, text=» CF A5,INPUT GET NEXT BYTE«, t00=0x0045, t01=0x0164}
0x6d40…6d6e              Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTDEV+DWTBFR,A6 SAVE CHARACTER«, t00=0x0045, t01=0x0186}
0x6d6e…6d90              Head {h00=0x001e, h01=0x0050, text=» CF A5,INPUT GET NEXT BYTE«, t00=0x0046, t01=0x0024}
0x6d90…6dc0              Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTDEV+DWTBFR+1,A6 SAVE CHARACTER«, t00=0x0046, t01=0x0046}
0x6dc0…6dd4              Head {h00=0x0010, h01=0x0050, text=»REC100 EQU *«, t00=0x0046, t01=0x0076}
0x6dd4…6df6              Head {h00=0x001e, h01=0x0050, text=» CF A5,INPUT GET CHARACTER«, t00=0x0046, t01=0x008a}
0x6df6…6e1c              Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 UPDATE STACK POINTER«, t00=0x0046, t01=0x00ac}
0x6e1c…6e32              Head {h00=0x0012, h01=0x0050, text=» CCK A2,/0D0D «, t00=0x0046, t01=0x00d2}
0x6e32…6e56              Head {h00=0x0020, h01=0x0050, text=» RF(E) REC120 END OF MESSAGE«, t00=0x0046, t01=0x00e8}
0x6e56…6e8e              Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTDEV+DWTBFR,A6 GET TWO LAST CHARACTERS «, t00=0x0046, t01=0x010c}
0x6e8e…6ec2              Head {h00=0x0030, h01=0x0050, text=» SC A3,DWTDEV+DWTBFR,A6 UPDATE DELAY BUFFER «, t00=0x0046, t01=0x0144}
0x6ec2…6ed4              Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0046, t01=0x0178}
0x6ed4…6f04              Head {h00=0x002c, h01=0x0050, text=» XRS A3,DWTDEV+DWTLRC,A6 UPDATE LRC ACK.«, t00=0x0046, t01=0x018a}
0x6f04…6f3a              Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTDEV+DWTBFR+1,A6 UPDATE DELAY BUFFER «, t00=0x0047, t01=0x002a}
0x6f3a…6f54              Head {h00=0x0016, h01=0x0050, text=» LDKL A1,-1 SET CR«, t00=0x0047, t01=0x0060}
0x6f54…6f68              Head {h00=0x0010, h01=0x0050, text=»REC110 EQU *«, t00=0x0047, t01=0x007a}
0x6f68…6f78              Head {h00=0x000c, h01=0x0050, text=» ABR* A5«, t00=0x0047, t01=0x008e}
0x6f78…6f86              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x009e}
0x6f86…6f90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ac}
0x6f90…6fa4              Head {h00=0x0010, h01=0x0050, text=»* CHECK LRC «, t00=0x0047, t01=0x00b6}
0x6fa4…6fae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ca}
0x6fae…6fc2              Head {h00=0x0010, h01=0x0050, text=»REC120 EQU *«, t00=0x0047, t01=0x00d4}
0x6fc2…6ffe              Head {h00=0x0038, h01=0x0050, text=» LD A3,DWTDEV+DWTBFR,A6 DELAY BUFFER WITH CMSD,CLSD «, t00=0x0047, t01=0x00e8}
0x6ffe…7010              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0047, t01=0x0124}
0x7010…7024              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0047, t01=0x0136}
0x7024…7038              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0047, t01=0x014a}
0x7038…704a              Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0047, t01=0x015e}
0x704a…705e              Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0047, t01=0x0170}
0x705e…7070              Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0047, t01=0x0184}
0x7070…708c              Head {h00=0x0018, h01=0x0050, text=» ORR A3,A2 LRC VALUE«, t00=0x0048, t01=0x0008}
0x708c…70be              Head {h00=0x002e, h01=0x0050, text=» LC A2,DWTDEV+DWTLRC+1,A6 DRIVER LRC VALUE«, t00=0x0048, t01=0x0024}
0x70be…70ee              Head {h00=0x002c, h01=0x0050, text=» CM DWTDEV+DWTBFR,A6 RESET INTERN BUFFER«, t00=0x0048, t01=0x0056}
0x70ee…711a              Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTDEV+DWTSTA,A6 RETURN CODE «, t00=0x0048, t01=0x0086}
0x711a…712c              Head {h00=0x000e, h01=0x0050, text=» CWK A1,-1«, t00=0x0048, t01=0x00b2}
0x712c…7168              Head {h00=0x0038, h01=0x0050, text=» RF(E) REC130 HW DEVICE BUSY BECAUSE LIFTS ARE DOWN «, t00=0x0048, t01=0x00c4}
0x7168…7196              Head {h00=0x002a, h01=0x0050, text=» ANKL A1,-CASLOW-REJNF-1 MASK WARNINGS«, t00=0x0048, t01=0x0100}
0x7196…71a8              Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x0048, t01=0x012e}
0x71a8…71cc              Head {h00=0x0020, h01=0x0050, text=» RB(E) REC110 EOM AND LRC OK«, t00=0x0048, t01=0x0140}
0x71cc…71fa              Head {h00=0x002a, h01=0x0050, text=» LDKL A1,COMERR SET CR AND RETURN CODE«, t00=0x0048, t01=0x0164}
0x71fa…720c (73, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB REC110«, t00=0x0049, t01=0x0004}
0x720c…721a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0016}
0x721a…7224              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0024}
0x7224…7254              Head {h00=0x002c, h01=0x0050, text=»* HW DEVICE BUSY BECAUSE LIFTS ARE DOWN «, t00=0x0049, t01=0x002e}
0x7254…727a              Head {h00=0x0022, h01=0x0050, text=»*  (DELAY AND TRY ORDER AGAIN)«, t00=0x0049, t01=0x005e}
0x727a…7284              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0084}
0x7284…7298              Head {h00=0x0010, h01=0x0050, text=»REC130 EQU *«, t00=0x0049, t01=0x008e}
0x7298…72bc              Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 SAVE DWT ADDRESS «, t00=0x0049, t01=0x00a2}
0x72bc…72d2              Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x0049, t01=0x00c6}
0x72d2…72ee              Head {h00=0x0018, h01=0x0050, text=» DATA BSYTUT,TIME1S «, t00=0x0049, t01=0x00dc}
0x72ee…7320              Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTDEV+DWTTP1,A6 SAVE TIMER POINTER«, t00=0x0049, t01=0x00f8}
0x7320…733c              Head {h00=0x0018, h01=0x0050, text=» ABL LDISP DISPATCH «, t00=0x0049, t01=0x012a}
0x733c…734a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0146}
0x734a…7354              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0154}
0x7354…7386              Head {h00=0x002e, h01=0x0050, text=»*   STORE = SUBROUTINE TO STORE CHARACTER «, t00=0x0049, t01=0x015e}
0x7386…73c2              Head {h00=0x0038, h01=0x0050, text=»*           IN ECB-BUFFER AND INCREMENT BUFFER-INDEX«, t00=0x0049, t01=0x0190}
0x73c2…73cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x003c}
0x73cc…740e              Head {h00=0x003e, h01=0x0050, text=»* ENTRY :  DWTTAB = CONTROL TABLE  (=0 MEANS NO CONTROL ) «, t00=0x004a, t01=0x0046}
0x740e…7438              Head {h00=0x0026, h01=0x0050, text=»*          A3 = CHARACTER TO STORE«, t00=0x004a, t01=0x0088}
0x7438…7462              Head {h00=0x0026, h01=0x0050, text=»*          A4 = USER BUFFER INDEX «, t00=0x004a, t01=0x00b2}
0x7462…749a              Head {h00=0x0034, h01=0x0050, text=»*          DWTNCR = NUMBER OF CHARCTERS RECEIVED«, t00=0x004a, t01=0x00dc}
0x749a…74ca              Head {h00=0x002c, h01=0x0050, text=»*          DWTCNB = OLD CASSETTE NUMBER «, t00=0x004a, t01=0x0114}
0x74ca…74d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0144}
0x74d4…74fc              Head {h00=0x0024, h01=0x0050, text=»* EXIT  :  DWTTAB = NOT CHANGED «, t00=0x004a, t01=0x014e}
0x74fc…7536              Head {h00=0x0036, h01=0x0050, text=»*          A3 = CHANGED IF CASSETTE NUMBER TO '0' «, t00=0x004a, t01=0x0176}
0x7536…7582              Head {h00=0x0048, h01=0x0050, text=»*          A4 = A4 + 1  IF CHARACTER NOT FILTERED WITH CONTROL TABLE«, t00=0x004b, t01=0x0020}
0x7582…75a8              Head {h00=0x0022, h01=0x0050, text=»*          DWTNCR = DWTNCR + 1«, t00=0x004b, t01=0x006c}
0x75a8…75d8              Head {h00=0x002c, h01=0x0050, text=»*          DWTCNB = NEW CASSETTE NUMBER «, t00=0x004b, t01=0x0092}
0x75d8…75e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00c2}
0x75e2…75f6              Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x004b, t01=0x00cc}
0x75f6…7616              Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTDEV+DWTTAB,A6 «, t00=0x004b, t01=0x00e0}
0x7616…7634              Head {h00=0x001a, h01=0x0050, text=» RF(Z) STO105 NO TABLE«, t00=0x004b, t01=0x0100}
0x7634…7660              Head {h00=0x0028, h01=0x0050, text=» AD A7,-2,A7 POINTER TO END OF TABLE«, t00=0x004b, t01=0x011e}
0x7660…769e              Head {h00=0x003a, h01=0x0050, text=» LD A2,DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED «, t00=0x004b, t01=0x014a}
0x769e…76b2              Head {h00=0x0010, h01=0x0050, text=»STO100 EQU *«, t00=0x004b, t01=0x0188}
0x76b2…76c4              Head {h00=0x000e, h01=0x0050, text=» CCR A2,A7«, t00=0x004c, t01=0x000c}
0x76c4…7702              Head {h00=0x003a, h01=0x0050, text=» RF(E) STO110 CHARACTER FOUND IN TABLE,DON'T STORE IT «, t00=0x004c, t01=0x001e}
0x7702…7728              Head {h00=0x0022, h01=0x0050, text=» SUK A7,1 UPDATE TABLE POINTER«, t00=0x004c, t01=0x005c}
0x7728…7748              Head {h00=0x001c, h01=0x0050, text=» CW A7,DWTDEV+DWTTAB,A6 «, t00=0x004c, t01=0x0082}
0x7748…7770              Head {h00=0x0024, h01=0x0050, text=» RB(NL) STO100 NOT END OF TABLE «, t00=0x004c, t01=0x00a2}
0x7770…777a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00ca}
0x777a…77ac              Head {h00=0x002e, h01=0x0050, text=»* STORE IT IN USER BUFFER AND INCREMENT A4«, t00=0x004c, t01=0x00d4}
0x77ac…77b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0106}
0x77b6…77ca              Head {h00=0x0010, h01=0x0050, text=»STO105 EQU *«, t00=0x004c, t01=0x0110}
0x77ca…77fe              Head {h00=0x0030, h01=0x0050, text=» CF A5,STCHAR STORE CHARACTER IN USER BUFFER«, t00=0x004c, t01=0x0124}
0x77fe…7810              Head {h00=0x000e, h01=0x0050, text=» RF STO140«, t00=0x004c, t01=0x0158}
0x7810…781e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x016a}
0x781e…7828              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0178}
0x7828…7854              Head {h00=0x0028, h01=0x0050, text=»* CHECK IF SOME CASSETTE IS MISSING «, t00=0x004c, t01=0x0182}
0x7854…785e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x001e}
0x785e…7872              Head {h00=0x0010, h01=0x0050, text=»STO110 EQU *«, t00=0x004d, t01=0x0028}
0x7872…7896              Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOR+1,A6 ORDER CODE«, t00=0x004d, t01=0x003c}
0x7896…78aa              Head {h00=0x0010, h01=0x0050, text=» SUK A2,OPEN«, t00=0x004d, t01=0x0060}
0x78aa…78d0              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) STO140 NOT OPEN ORDER «, t00=0x004d, t01=0x0074}
0x78d0…790a              Head {h00=0x0036, h01=0x0050, text=» ANK A7,1 EVEN ADDRESS ? (=ADDRESS TO BYTE NUMBER «, t00=0x004d, t01=0x009a}
0x790a…793a              Head {h00=0x002c, h01=0x0050, text=»*   OF MESSAGE BYTE CONTAINING CASS NBR)«, t00=0x004d, t01=0x00d4}
0x793a…7976              Head {h00=0x0038, h01=0x0050, text=» RF(NZ) STO140 NO. NOT CASSETTE NUMBER BUT CASS STAT«, t00=0x004d, t01=0x0104}
0x7976…7980              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0140}
0x7980…79aa              Head {h00=0x0026, h01=0x0050, text=»* RESET CASSETTES NOT IN SEQUENCE «, t00=0x004d, t01=0x014a}
0x79aa…79ca              Head {h00=0x001c, h01=0x0050, text=»* CASSETTE NUMBER IN A3 «, t00=0x004d, t01=0x0174}
0x79ca…79d4 (78, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0004}
0x79d4…79e8              Head {h00=0x0010, h01=0x0050, text=»RESCAS EQU *«, t00=0x004e, t01=0x000e}
0x79e8…7a1c              Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTDEV+DWTCNB,A6 OLD CASSETTE NUMBER «, t00=0x004e, t01=0x0022}
0x7a1c…7a50              Head {h00=0x0030, h01=0x0050, text=» ST A3,DWTDEV+DWTCNB,A6 NEW CASSETTE NUMBER «, t00=0x004e, t01=0x0056}
0x7a50…7a62              Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x004e, t01=0x008a}
0x7a62…7a74              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004e, t01=0x009c}
0x7a74…7a86              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004e, t01=0x00ae}
0x7a86…7ab2              Head {h00=0x0028, h01=0x0050, text=» RF(NP) STO140 CASSETTES IN SEQUENCE«, t00=0x004e, t01=0x00c0}
0x7ab2…7ac6              Head {h00=0x0010, h01=0x0050, text=»STO120 EQU *«, t00=0x004e, t01=0x00ec}
0x7ac6…7ad8              Head {h00=0x000e, h01=0x0050, text=» ADK A2,5 «, t00=0x004e, t01=0x0100}
0x7ad8…7aea              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004e, t01=0x0112}
0x7aea…7b18              Head {h00=0x002a, h01=0x0050, text=» RB(P) STO120 MORE CASSETTES TO RESET «, t00=0x004e, t01=0x0124}
0x7b18…7b2c              Head {h00=0x0010, h01=0x0050, text=» LDK A3,'0' «, t00=0x004e, t01=0x0152}
0x7b2c…7b40              Head {h00=0x0010, h01=0x0050, text=»STO130 EQU *«, t00=0x004e, t01=0x0166}
0x7b40…7b66              Head {h00=0x0022, h01=0x0050, text=» CF A5,STCHAR STORE CHARACTER «, t00=0x004e, t01=0x017a}
0x7b66…7b78              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x004f, t01=0x0010}
0x7b78…7ba0              Head {h00=0x0024, h01=0x0050, text=» RB(P) STO130 RESET NOT FINISHED«, t00=0x004f, t01=0x0022}
0x7ba0…7bb4              Head {h00=0x0010, h01=0x0050, text=»STO140 EQU *«, t00=0x004f, t01=0x004a}
0x7bb4…7bee              Head {h00=0x0036, h01=0x0050, text=» IM DWTDEV+DWTNCR,A6 NUMBER OF CHARACTERS RECEIVED«, t00=0x004f, t01=0x005e}
0x7bee…7bfe              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004f, t01=0x0098}
0x7bfe…7c0c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00a8}
0x7c0c…7c16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00b6}
0x7c16…7c3e              Head {h00=0x0024, h01=0x0050, text=»*STORE CHARACTER IN USER BUFFER «, t00=0x004f, t01=0x00c0}
0x7c3e…7c48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e8}
0x7c48…7c74              Head {h00=0x0028, h01=0x0050, text=»* ENTRY :  A4 = INDEX IN USER BUFFER«, t00=0x004f, t01=0x00f2}
0x7c74…7c9e              Head {h00=0x0026, h01=0x0050, text=»*          A3 = CHARACTER TO STORE«, t00=0x004f, t01=0x011e}
0x7c9e…7ca8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0148}
0x7ca8…7cc6              Head {h00=0x001a, h01=0x0050, text=»* EXIT  :  A4 = A4 + 1«, t00=0x004f, t01=0x0152}
0x7cc6…7cea              Head {h00=0x0020, h01=0x0050, text=»*          A3 = NOT CHANGED «, t00=0x004f, t01=0x0170}
0x7cea…7d0c (80, 0, 400) Head {h00=0x001e, h01=0x0050, text=»*          A7 = IRRELEVANT«, t00=0x0050, t01=0x0004}
0x7d0c…7d16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0026}
0x7d16…7d2a              Head {h00=0x0010, h01=0x0050, text=»STCHAR EQU *«, t00=0x0050, t01=0x0030}
0x7d2a…7d42              Head {h00=0x0014, h01=0x0050, text=» CW A4,ECBRL,A8 «, t00=0x0050, t01=0x0044}
0x7d42…7d6e              Head {h00=0x0028, h01=0x0050, text=» RF(NL) STC110 TOO SMALL USER BUFFER«, t00=0x0050, t01=0x005c}
0x7d6e…7d94              Head {h00=0x0022, h01=0x0050, text=» LD A7,ECBBA,A8 BUFFER ADDRESS«, t00=0x0050, t01=0x0088}
0x7d94…7db8              Head {h00=0x0020, h01=0x0050, text=» ADR A7,A4 ADD BUFFER INDEX «, t00=0x0050, t01=0x00ae}
0x7db8…7dda              Head {h00=0x001e, h01=0x0050, text=» SCR A3,A7 STORE CHARACTER«, t00=0x0050, t01=0x00d2}
0x7dda…7dee              Head {h00=0x0010, h01=0x0050, text=»STC100 EQU *«, t00=0x0050, t01=0x00f4}
0x7dee…7e00              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0050, t01=0x0108}
0x7e00…7e10              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x011a}
0x7e10…7e1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x012a}
0x7e1a…7e3a              Head {h00=0x001c, h01=0x0050, text=»* USER BUFFER TOO SMALL «, t00=0x0050, t01=0x0134}
0x7e3a…7e44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0154}
0x7e44…7e58              Head {h00=0x0010, h01=0x0050, text=»STC110 EQU *«, t00=0x0050, t01=0x015e}
0x7e58…7e7e              Head {h00=0x0022, h01=0x0050, text=» LDKL A7,REQERR REQUEST ERROR «, t00=0x0050, t01=0x0172}
0x7e7e…7eae              Head {h00=0x002c, h01=0x0050, text=» ORS A7,DWTDEV+DWTSTA,A6 SET RETURN CODE«, t00=0x0051, t01=0x0008}
0x7eae…7ec0              Head {h00=0x000e, h01=0x0050, text=» RB STC100«, t00=0x0051, t01=0x0038}
0x7ec0…7ece              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x004a}
0x7ece…7ed8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0058}
0x7ed8…7f0c              Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE TO TEST DISPENSE REQUEST ERROR «, t00=0x0051, t01=0x0062}
0x7f0c…7f16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0096}
0x7f16…7f38              Head {h00=0x001e, h01=0x0050, text=»* ENTRY:  A8 = ECB-ADDRESS«, t00=0x0051, t01=0x00a0}
0x7f38…7f42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00c2}
0x7f42…7f7c              Head {h00=0x0036, h01=0x0050, text=»* EXIT:   A1,A2,A3 = IRRELEVANT  IF REQUEST ERROR «, t00=0x0051, t01=0x00cc}
0x7f7c…7fc0              Head {h00=0x0040, h01=0x0050, text=»*                                A1=/8000 AND JUMP TO ENDIO «, t00=0x0051, t01=0x0106}
0x7fc0…7fca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014a}
0x7fca…7fde              Head {h00=0x0010, h01=0x0050, text=»DSRQTS EQU *«, t00=0x0051, t01=0x0154}
0x7fde…8004              Head {h00=0x0022, h01=0x0050, text=» LD A7,ECBBA,A8 BUFFER ADDRES «, t00=0x0051, t01=0x0168}
0x8004…802c              Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBRL,A8 REQUESTED LENGTH«, t00=0x0051, t01=0x018e}
0x802c…8040              Head {h00=0x0010, h01=0x0050, text=»DSR100 EQU *«, t00=0x0052, t01=0x0026}
0x8040…8068              Head {h00=0x0024, h01=0x0050, text=» CF A5,CASTST TEST CASSETTE DATA«, t00=0x0052, t01=0x003a}
0x8068…807a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,5 «, t00=0x0052, t01=0x0062}
0x807a…809e              Head {h00=0x0020, h01=0x0050, text=» RB(P) DSR100 NEXT CASSETTE «, t00=0x0052, t01=0x0074}
0x809e…80c2              Head {h00=0x0020, h01=0x0050, text=» RF(N) CST110 REQUEST ERROR «, t00=0x0052, t01=0x0098}
0x80c2…80d2              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x00bc}
0x80d2…80e0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00cc}
0x80e0…80ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00da}
0x80ea…8114              Head {h00=0x0026, h01=0x0050, text=»* SUBROUTINE TO TEST CASSETTE DATA«, t00=0x0052, t01=0x00e4}
0x8114…811e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x010e}
0x811e…8144              Head {h00=0x0022, h01=0x0050, text=»* ENTRY:  A7 = BUFFER POINTER «, t00=0x0052, t01=0x0118}
0x8144…814e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x013e}
0x814e…816c              Head {h00=0x001a, h01=0x0050, text=»* EXIT:   A7 = A7 + 5 «, t00=0x0052, t01=0x0148}
0x816c…818e              Head {h00=0x001e, h01=0x0050, text=»*         A2 = IRRELEVANT «, t00=0x0052, t01=0x0166}
0x818e…81ca              Head {h00=0x0038, h01=0x0050, text=»*         A1 = IRRELEVANT OR /8000 AND JUMP TO ENDIO«, t00=0x0052, t01=0x0188}
0x81ca…81d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0034}
0x81d4…81e8              Head {h00=0x0010, h01=0x0050, text=»CASTST EQU *«, t00=0x0053, t01=0x003e}
0x81e8…81fa              Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0053, t01=0x0052}
0x81fa…8218              Head {h00=0x001a, h01=0x0050, text=» LDK A1,2 INTERN INDEX«, t00=0x0053, t01=0x0064}
0x8218…822c              Head {h00=0x0010, h01=0x0050, text=»CST100 EQU *«, t00=0x0053, t01=0x0082}
0x822c…823e              Head {h00=0x000e, h01=0x0050, text=» LCR A2,A7«, t00=0x0053, t01=0x0096}
0x823e…8264              Head {h00=0x0022, h01=0x0050, text=» ANK A2,/FF CHARACTER TO TEST «, t00=0x0053, t01=0x00a8}
0x8264…8278              Head {h00=0x0010, h01=0x0050, text=» SUK A2,/30 «, t00=0x0053, t01=0x00ce}
0x8278…829c              Head {h00=0x0020, h01=0x0050, text=» RF(N) CST110 REQUEST ERROR «, t00=0x0053, t01=0x00e2}
0x829c…82ae              Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0053, t01=0x0106}
0x82ae…82d2              Head {h00=0x0020, h01=0x0050, text=» RF(P) CST110 REQUEST ERROR «, t00=0x0053, t01=0x0118}
0x82d2…82e4              Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0053, t01=0x013c}
0x82e4…82f6              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0053, t01=0x014e}
0x82f6…831c              Head {h00=0x0022, h01=0x0050, text=» RB(NN) CST100 NEXT CHARACTER «, t00=0x0053, t01=0x0160}
0x831c…832c              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x0186}
0x832c…8336              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0008}
0x8336…834e              Head {h00=0x0014, h01=0x0050, text=»* REQUEST ERROR «, t00=0x0054, t01=0x0012}
0x834e…8358              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x002a}
0x8358…836c              Head {h00=0x0010, h01=0x0050, text=»CST110 EQU *«, t00=0x0054, t01=0x0034}
0x836c…8380              Head {h00=0x0010, h01=0x0050, text=» ABL LENDER «, t00=0x0054, t01=0x0048}
0x8380…838c              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0054, t01=0x005c}
0x838c…8390              Head {h00=0x4004, h01=0x0000}
0x8390…8394              00 54 00 68                                                                                                                                                                                                                                       ┆ T h┆
0x8394…839c (85, 1, 8)   20 04 00 00 00 55 00 04                                                                                                                                                                                                                           ┆     U  ┆
0x839c…83ec (86, 0, 400) 20 3d 55 53 45 44 20 52 45 47 49 53 54 45 52 53 00 5d 01 80 00 26 00 50 2a 5c 4e 55 4d 42 45 52 20 4f 46 20 41 31 34 20 4c 45 56 45 4c 53 20 3d 20 32 20 28 57 4f 52 44 53 29 00 5e 00 18 00 06 00 50 2a 20 00 5e 00 42 00 10 00 50 52 45 43 45   ┆ =USED REGISTERS ]   & P* NUMBER OF A14 LEVELS = 2 (WORDS) ^     P*  ^ B   PRECE┆
0x83ec…843c              43 42 5c 45 51 55 5c 2a 00 5e 00 4c 00 22 00 50 5c 4c 44 5c 41 32 2c 46 44 42 52 52 4f 2c 41 31 31 5c 52 45 43 4f 52 44 20 41 44 44 52 20 00 5e 00 60 00 14 00 50 5c 41 44 4b 4c 5c 41 32 2c 42 55 46 53 54 41 5c 00 5e 00 86 00 18 00 50 5c 41   ┆CB EQU * ^ L " P LD A2,FDBRRO,A11 RECORD ADDR  ^ `   P ADKL A2,BUFSTA  ^     P A┆
0x843c…848c              44 52 5c 41 32 2c 41 34 5c 52 45 43 20 41 44 44 52 20 00 5e 00 9e 00 24 00 50 5c 4c 44 5c 41 31 2c 46 44 42 52 4c 45 2c 41 31 31 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 5e 00 ba 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 36 5c 00 5e 00 e2   ┆DR A2,A4 REC ADDR  ^   $ P LD A1,FDBRLE,A11 RECORD LENGTH  ^     P SUK A1,6  ^  ┆
0x848c…84dc              00 10 00 50 5c 41 44 52 5c 41 32 2c 41 31 5c 20 00 5e 00 f4 00 06 00 50 2a 20 00 5e 01 08 00 1e 00 50 2a 20 20 20 4d 4f 56 45 20 4c 4f 47 20 52 45 43 20 4e 4f 20 54 4f 20 45 43 42 00 5e 01 12 00 06 00 50 2a 20 00 5e 01 34 00 0e 00 50 5c 4c   ┆   P ADR A2,A1   ^     P*  ^     P*   MOVE LOG REC NO TO ECB ^     P*  ^ 4   P L┆
0x84dc…852c              44 4b 5c 41 31 2c 30 20 00 5e 01 3e 00 10 00 50 5c 4c 43 5c 41 31 2c 33 2c 41 32 20 00 5e 01 50 00 14 00 50 5c 53 54 5c 41 31 2c 45 43 42 43 57 2c 41 39 20 00 5e 01 64 00 10 00 50 5c 4c 43 5c 41 31 2c 34 2c 41 32 20 00 5e 01 7c 00 0e 00 50   ┆DK A1,0  ^ >   P LC A1,3,A2  ^ P   P ST A1,ECBCW,A9  ^ d   P LC A1,4,A2  ^ |   P┆
0x852c…8532 (87, 0, 6)   2a 98 2a a0 2a a8                                                                                                                                                                                                                                 ┆* * * ┆
0x8532…8582 (88, 0, 398) 00 3e 00 40 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 20 44 52 54 4e 30 31 20 20 20 20 20 52 45 4c 20 31 31 2e 30 20 38 31 2d 30 33 2d 31 38 20 38 37 30 31 30 35 30 34 31 31 30 30 00 00 00 04 00 0c 00 08 01 03 84 54 4e 41 44 00 00 00   ┆ > @        IDENT    DRTN01     REL 11.0 81-03-18 870105041100           TNAD   ┆
0x8582…85d2              00 46 00 0e 00 0a 02 04 c2 50 43 3a 44 49 58 00 00 00 00 56 00 0e 00 0a 05 04 9c 54 4e 41 44 00 00 04 00 00 00 68 00 2c 00 28 03 13 00 00 00 01 40 00 00 28 00 00 00 02 00 00 00 00 00 00 00 00 21 22 2b 2a 2d 2c 00 00 00 00 00 00 00 00 00 00   ┆ F       PC:DIX    V       TNAD      h , (      @  (            !"+*-,          ┆
0x85d2…8622              00 00 00 00 00 7a 00 2c 00 28 03 13 00 00 00 1f 00 00 00 00 02 03 07 08 0e 0f 15 16 1c 1d 23 24 2a 2b 00 00 02 03 09 0a 10 11 17 18 1e 1f 25 26 2c 2d 00 00 00 aa 00 0e 00 0a 02 04 c2 4c 45 4e 44 45 52 00 00 00 00 da 00 2c 00 28 03 13 00 08   ┆     z , (                    #$*+            %&,-           LENDER      , (    ┆
0x8622…8672              00 3f 00 00 56 fa ff cb 71 73 7f ff f0 f4 fe ee fe 22 ce ff f5 21 00 00 03 05 ef 4d 00 0c 50 00 1b 01 5e 0a 00 00 00 ec 00 0e 00 0a 02 04 c2 44 57 54 44 45 56 00 00 00 01 1c 00 0e 00 0a 02 04 c2 44 57 54 53 42 32 00 00 00 01 2e 00 2c 00 28   ┆ ?  V   qs       "   !     M  P   ^            DWTDEV            DWTSB2    . , (┆
0x8672…86c0              03 13 04 00 00 5f 40 48 8f 20 00 00 00 04 93 0c 8f 4c 00 12 86 04 01 40 a0 59 00 02 00 06 a0 59 00 08 00 06 57 00 86 04 00 00 01 40 00 0e 00 0a 02 04 c2 44 57 54 45 43 42 00 00 00 01 70 00 0c 00 08 02 03 a2 44 57 54 4f 52 00 00 01 82         ┆     _@H         L     @ Y     Y    W      @       DWTECB    p       DWTOR    ┆
0x86c0…8710 (89, 0, 400) 00 2c 00 28 03 13 00 00 00 79 44 92 85 20 00 00 00 08 95 18 a0 59 00 10 00 06 a0 59 00 08 00 06 80 d8 00 00 00 0a 87 58 00 00 00 0c 00 01 00 04 00 2c 00 28 03 13 00 00 00 8f 00 00 27 ff 5f 44 87 20 02 58 f7 a1 00 00 02 38 f5 21 00 00 f5 21   ┆ , (     yD          Y     Y           X         , (        ' _D   X     8 !   !┆
0x8710…8760              00 00 54 00 02 35 f5 21 00 00 f5 21 00 01 00 34 00 2c 00 28 03 13 01 00 00 af 08 40 00 00 51 00 5c 08 a0 59 00 08 00 06 82 20 00 20 82 59 00 0a 00 06 04 00 03 30 f5 21 00 00 f5 21 00 01 00 64 00 2c 00 28 03 13 00 00 00 cb 08 00 00 00 02 30   ┆  T  5 !   !   4 , (       @  Q    Y         Y       0 !   !   d , (           0┆
0x8760…87b0              03 30 83 59 00 0e 00 06 f5 21 00 00 f5 21 00 00 50 00 51 00 f5 21 00 00 5f 0e 82 58 00 01 00 94 00 2a 00 26 03 12 00 40 00 e9 82 10 00 00 00 06 22 02 50 00 fa 08 a2 59 00 00 00 06 82 20 00 30 82 59 00 0a 00 06 02 02 82 59 00 01 00 c4 00 2c   ┆ 0 Y     !   !  P Q  !  _  X     * &   @        " P    Y       0 Y       Y     ,┆
0x87b0…8800              00 28 03 13 00 00 01 01 81 12 00 0c 00 06 04 05 02 35 5f 3a 07 03 af 59 00 00 00 06 07 02 e7 59 00 01 00 0c a0 59 00 18 00 06 00 01 00 f2 00 0c 00 08 02 03 a2 45 43 42 45 4c 00 01 01 22 00 2a 00 26 03 12 00 00 01 19 49 20 80 d8 00 00 00 0a   ┆ (               5_:   Y       Y     Y               ECBEL   " * &      I       ┆
0x8800…8850              84 43 00 00 00 0e a9 58 00 08 00 06 84 58 00 02 00 06 50 00 a0 31 a0 59 00 01 01 32 00 0e 00 0a 02 04 c2 4c 45 4e 44 49 53 00 00 01 01 60 00 2c 00 28 03 13 00 00 01 2f 90 90 00 02 00 06 84 58 00 10 00 06 50 00 a0 31 a0 59 00 10 00 06 8f 20   ┆ C     X     X    P  1 Y   2       LENDIS    ` , (     /       X    P  1 Y      ┆
0x8850…88a0 (90, 0, 400) 00 00 00 10 07 5a f7 a1 00 00 00 01 01 72 00 2c 00 28 03 13 00 00 01 47 00 88 02 37 f5 21 00 00 f5 21 00 00 84 20 ff fe a4 59 00 00 00 06 07 02 af 59 00 00 00 06 04 00 5f 4e 00 02 00 12 00 0e 00 0a 02 04 c2 53 54 41 42 4c 4b 00 00 02 00 42   ┆     Z       r , (     G   7 !   !       Y       Y      _N           STABLK    B┆
0x88a0…88f0              00 2c 00 28 03 13 00 00 01 63 04 04 87 20 04 b0 f7 a1 00 00 82 58 00 00 00 06 22 01 50 00 f5 21 00 00 02 1e f5 21 00 00 00 12 8c 20 00 02 00 54 00 0e 00 0a 02 04 c2 4f 55 54 50 55 54 00 00 02 00 84 00 2c 00 28 03 13 00 00 01 7f 12 42 00 00   ┆ , (     c           X    " P  !     !         T       OUTPUT      , (       B  ┆
0x88f0…8940              02 31 b2 59 00 04 00 06 e2 59 00 12 00 06 f5 21 00 00 00 14 8c 20 00 00 e2 58 00 04 00 06 00 02 00 96 00 0c 00 08 02 03 a2 45 43 42 42 41 00 02 00 c6 00 2c 00 28 03 13 00 00 01 97 24 20 12 30 b2 59 00 04 00 06 f5 21 00 00 00 14 8c 20 00 00   ┆ 1 Y     Y     !         X               ECBBA     , (      $  0 Y     !        ┆
0x8940…8990              84 42 00 00 00 16 03 31 f5 21 00 00 5c 06 00 02 00 d6 00 2c 00 28 03 13 00 00 01 b1 04 48 f5 21 00 00 04 00 02 24 82 59 00 18 00 06 82 18 92 20 00 1a 00 06 82 59 00 16 00 06 f5 21 00 00 00 02 01 06 00 2c 00 28 03 13 00 00 01 cb 10 10 59 6e   ┆ B     1 !         , (       H !     $ Y             Y     !       , (        Yn┆
0x8990…89e0              50 00 80 d8 00 16 00 06 98 a0 00 06 f5 21 00 00 5f 16 84 59 00 18 00 06 5f c2 01 10 5f 88 00 02 01 36 00 2a 00 26 03 12 00 00 01 e7 22 20 04 30 84 59 00 0e 00 06 04 00 98 59 00 18 00 06 50 00 e3 78 00 16 00 06 f5 21 00 00 90 59 00 02 01 66   ┆P            !  _  Y    _   _    6 * &      "  0 Y       Y    P  x     !   Y   f┆
0x89e0…8a30 (91, 0, 400) 00 2a 00 26 03 12 00 00 01 ff 90 20 00 16 00 06 90 59 00 18 00 06 03 30 f5 21 00 00 01 03 e3 78 00 16 00 06 f5 21 00 00 90 59 00 03 00 04 00 2c 00 28 03 13 00 00 02 17 90 12 00 16 00 06 90 59 00 18 00 06 50 00 19 01 5e 16 5f 30 81 18 91 20   ┆ * &             Y     0 !     x     !   Y     , (             Y    P   ^ _0    ┆
0x8a30…8a80              00 1a 00 06 81 59 00 16 00 06 00 03 00 32 00 2c 00 28 03 13 20 00 02 2f 00 00 01 00 8f 20 01 18 07 0a f7 a1 00 00 02 39 f5 21 00 00 04 00 f5 21 00 00 56 00 f5 21 00 00 5f 0c 00 03 00 62 00 2c 00 28 03 13 00 00 02 4f 20 00 5f 20 82 20 00 12   ┆     Y       2 , (     /               9 !     !  V  !  _    b , (     O  _     ┆
0x8a80…8ad0              00 06 92 18 04 00 e3 28 23 ff 50 00 f5 21 00 00 12 01 ec 20 00 04 5a 12 01 00 00 03 00 92 00 0c 00 08 02 03 a2 4c 44 49 53 50 00 03 00 c2 00 2c 00 28 03 13 00 00 02 6d 08 88 5f 3e 81 20 ff fe a1 59 00 00 00 06 01 02 a9 59 00 00 00 06 80 82   ┆       (# P  !        Z              LDISP     , (     m  _>     Y       Y      ┆
0x8ad0…8b20              88 20 00 00 00 18 01 80 ef 20 00 03 00 d2 00 0e 00 0a 02 04 c2 53 45 54 49 4d 45 00 00 03 01 02 00 2c 00 28 03 13 28 04 02 87 02 10 00 2a 88 20 01 20 8f 20 01 5e 81 58 00 02 00 06 54 00 81 18 f7 a1 00 00 00 1a 00 68 00 0a 84 59 00 03 01 14   ┆                     SETIME      , (  (      *       ^ X    T          h   Y    ┆
0x8b20…8b70              00 2c 00 28 03 13 00 00 02 a3 82 44 00 02 00 06 9f 1d 87 31 f0 3e a0 59 00 04 00 06 e1 58 00 00 00 0c 21 01 e1 59 00 04 00 06 a0 59 00 03 01 44 00 2a 00 26 03 12 00 00 02 bb 92 40 00 06 00 06 a0 59 00 08 00 06 a0 59 00 0a 00 06 a0 59 00 0c   ┆ , (       D       1 > Y     X    !  Y     Y   D * &       @     Y     Y     Y  ┆
0x8b70…8bc0 (92, 0, 400) 00 06 ef 20 00 2c 50 00 a0 59 00 03 01 74 00 2c 00 28 03 13 00 00 02 d1 90 02 00 12 00 06 a0 59 00 14 00 06 f0 34 01 00 ea 20 00 33 50 00 ea 20 00 30 50 00 e1 58 00 13 00 06 00 04 00 12 00 2c 00 28 03 13 00 00 02 eb 11 00 21 ff 54 00 e2 59   ┆     ,P  Y   t , (             Y     4     3P    0P  X         , (        ! T  Y┆
0x8bc0…8c10              00 13 00 06 57 00 e2 59 00 15 00 06 1a 30 52 00 1a 21 51 00 12 20 ea 20 00 17 00 04 00 42 00 2c 00 28 03 13 02 10 03 07 00 00 50 00 52 00 1a 01 3a e1 52 00 e2 48 00 3e 3a 64 57 00 22 ff e2 48 00 3e 22 0f 01 01 39 e1 1a 01 00 04 00 72 00 2a   ┆    W  Y     0R  !Q          B , (        P R   : R  H >:dW "  H >"   9      r *┆
0x8c10…8c60              00 26 03 12 00 00 03 27 20 88 5e 06 a9 59 00 08 00 06 01 00 f0 34 19 01 82 58 00 14 00 06 54 00 a0 59 00 12 00 06 a0 59 00 04 00 a2 00 2c 00 28 03 13 00 20 03 3f 81 02 00 14 00 06 5f 1a 01 04 5f 1e 01 01 a9 59 00 08 00 06 8f 20 01 58 83 08   ┆ &     '  ^  Y       4   X    T  Y     Y     , (     ?      _   _    Y       X  ┆
0x8c60…8cb0              02 1e f5 21 00 00 00 12 00 04 00 d0 00 2c 00 28 03 13 00 00 03 59 12 22 5c 14 82 0c e2 59 00 05 00 06 81 58 00 12 00 06 54 00 e2 59 00 12 00 06 57 00 e2 59 00 14 00 06 00 04 01 00 00 2c 00 28 03 13 00 00 03 71 44 02 f5 21 00 00 00 14 5c 30   ┆   !         , (     Y "     Y     X    T  Y    W  Y         , (     qD  !     0┆
0x8cb0…8d00              e3 58 00 05 00 06 23 ff 82 0c 3a 64 23 0f 12 30 13 30 f5 21 00 00 00 14 00 04 01 30 00 0e 00 0a 02 04 c2 45 4e 44 42 4c 4b 00 00 04 01 60 00 2c 00 28 03 13 00 00 03 8b 10 84 5c 46 82 0c f5 21 00 00 00 14 5c 4e 02 0d f5 21 00 00 00 14 5c 56   ┆ X    #   :d#  0 0 !       0       ENDBLK    ` , (         F   !     N   !     V┆

Reduced view