/DM8E40.PA 15-MAR-80
/TEST PROGRAM FOR DM8E40 MEMORY MANAGEMENT BOARD
/	E. LOPES CARDOZO
/	WESTVRIES COMPUTER CONSULTING BV
/	RIJKSSTRAATWEG 19A
/	1969 LB HEEMSKERK
/	02510 - 43244

/SYMBOL DEFINITIONS:
SINT=6254
SUF=6274
CINT=6204
CUF=6264
RTM=6205
LTM=6235
LRM=6245
SMME=6265
CMME=6275
SKME=6215
SKMM=6225

/FOR PRODUCTION TEST DEFINE PRODUCTION:
	PRODUCTION=1

/INTERRUPT SERVICE ROUTINE:
	*0
	0
	JMP SERV

	*20
SERV,	DCA AC		/SAVE AC
	SINT		/TRAP ?
	 JMP INTERR	/NO, ILLEGAL INTERRUPT
	CINT		/CLEAR TRAP FLAG
	RTM		/READ TRAP REGISTER
	DCA TRAPD	/THAT IS THE INSTR. THE HARDWARE SAW
	CLA CMA
	TAD 0
	DCA 0		/BACKUP PC
	TAD I 0		/GET TRAPPED INSTRUCTION FROM MEMORY
	CIA		/AND COMPARE TO
	TAD TRAPD	/TRAP REGISTER CONTENTS
	SZA CLA		/SHOULD BE EQUAL
	 JMS TRPERR	/ERROR IN TRAP REGISTER
	TAD 0		/DID WE TRAP THE SAFETY HLT ?
	TAD (-HALT	/
	SZA CLA		/?
	 CMA		/NO, SET AC=-1
	JMP I ENDTRP	/BACK TO MAIN LOOP
ENDTRP,	.-1		/CONTINUATION ADDRESS

/VIRTUAL CODE SEQUENCES:
RELTST,	TAD I (7000	/RELOCATION TEST; GET DATAFIELD
	JMP HALT	/EXIT FROM USER MODE

TRPTST,	JMP .		/GETS IOT TO BE TESTED
	JMP .+2		/FOR CIF: ENABLE INTERRUPTS
	ION		/FOR SKON: REENABLE INTERRUPTS
HALT,	HLT		/EXIT FROM USER MODE
	JMP .		/*** IF HERE, HLT DID NOT TRAP ***

TTYTST,	TAD BELL	/TEST TTY IN UNTRAPED MODE
	TLS		/SEND A BELL TO THE CONSOLE
	TSF		/WAIT TILL READY
	JMP .-1		/
IFNDEF PRODUCTION <
	CLA		/ >
IFDEF PRODUCTION <
	KCC		/USED TO CLEAR THE AC
	SZA		/DIDITDO ?
	 JMP .		/NO !!! *** UNTRAPPED KCC DID NOT CLA ***
	TCF		/EXIT WITH TTY FLAG CLEAR
	TSF		/DID THAT WORK ?
	SKP		/YES
	JMP .		/***TCF DID NOT CLEAR FLAG *** >
	JMP HALT	/NOW EXIT FROM USER MODE

/MD-LINE TEST:
MDTST,	DCA I (Q
	TAD I (Q
	IAC
	SZA		/TEST ALL 4096 VALUES
	 JMP MDTST
	JMP HALT
Q,	0

/CDTOIF TEST ROUTINE
CDTF,	0
	6200		/CDTOIF
	CIF 0
	JMP I CDTF

/RDF TEST ROUTINE:
TSTRDF,	RDF
KK,	TAD K0		/GET ACTUAL FIELD NUMBER
	JMP HALT	/GOT THROUGH

K0,	0
K1,	1
K2,	2
K3,	3
K4,	4
K5,	5
K6,	6
K7,	7

/VARIABLES, COUNTERS AND POINTERS:
COUNT,	0
COUNT1,	0
COUNT2,	0
COUNT3,	0
PTR,	0
FIELDS,	0	/NUMBER OF FIELDS AVAILABLE
AC,	0
TRAPD,	0
BELL,	207

PAGE
	JMS INIT	/SETUP FIELDS
START,	CAF
	KIE		/DISABLE KEYBOARD INTERRUPTS
LOOP0,	JMS COPY	/MOVE PAGE 0 TO ALL FIELDS
	JMS IOTTST	/STATIC TEST OF DM8E40 IOTS
	TAD FIELDS
	CIA
	DCA COUNT	/FOR ALL FIELDS
	TAD (CDF
	DCA FCDF	/SET A CDF TO EACH FIELD
LOOP1,	TAD COUNT	/
	TAD FIELDS
FCDF,	CDF 0		//CDF0, CDF10, CDF 20, ...
	DCA I (7000	//PUT THE FIELD NUMBER AT 7000
	CDF 0		//RESTORE THE DATAFIELD
	TAD FCDF	/MAKE A NEW CDF
	TAD (10
	DCA FCDF	/
	ISZ COUNT	/ALL FIELDS DONE
	 JMP LOOP1	/
/NOW A SIMPLE RELOCATION TEST. WE SET UP A SEQUENCE OF
/RELOCATION AND THAN GO VIRTUAL, PICK UP THE FIELD
/CONSTANT FROM 7000 AND HLT, TO GET OUT OF USER MODE
/WE TRY TO TEST IF ALL WORDS OF THE RELOCATION RAM
/CAN TAKE ALL VALUES, AT LEAST ALL VALUES FOR WHICH
/THERE ARE FIELDS IN THE SYSTEM.
	TAD (RET1	/SETUP TRAP RETURN ADDRESS
	DCA ENDTRP	/
	TAD FIELDS	/SET UP COUNTER FOR FIELDS
	CIA
	DCA COUNT	/
LOOP2,	TAD (-10	/TEST ALL 8 WORDS OF THE RELOCATION RAM
	DCA COUNT1	/
LOOP3,	TAD (-10	/LOAD ALL WORDS OF THE RAM
	DCA COUNT2	/
LOOP4,	TAD COUNT2	/
	TAD (10		/MAKE 0, 1, 2, ...
	LRM		/SET ALL WORDS TO 0
	ISZ COUNT2	/
	 JMP LOOP4	/
	TAD COUNT	/
	TAD FIELDS	/POSITIVE REAL FIELD #
	CLL RTL		/
	RAL		/SHIFT TO BITS 6-8
	TAD COUNT1	/ADD VIRTUAL FIELD #
	TAD (10		/(POSITIVE)
	LRM		/THIS SETS ONE WORD
	TAD COUNT1	/
	TAD (10		/
	TAD (100	/USER MODE+VIRTUAL DATA FIELD
	RTF		/RESTORE FLAGS
	CLA		/?!
	JMP RELTST	/JMP TO RELOCATION TEST
/RELTST MUST BE AVAILABLE IN EACH FIELD
RET1,	CLA
	TAD AC		/GET AC FROM TRAP
	CIA		/AND COMPARE TO INTENDED FIELD #
	TAD COUNT	/
	TAD FIELDS	/
	SZA CLA		/
	 JMS RELERR	/RELOCATION ERROR
	ISZ COUNT1	/
	 JMP LOOP3	/
	ISZ COUNT	/
	 JMP LOOP2	/
/END OF RELOCATION TEST. NOW COMES THE TRAP/UNTRAP TEST
/IN EACH AVAILABLE FIELD WE TEST EACH IOT FROM THE TABLE
	TAD FIELDS	/
	CIA
	DCA COUNT	/
LOOP5,	TAD (-10
	DCA COUNT1	/ZERO THE RELOCATION RAM
LOOP6,	TAD COUNT	/
	TAD FIELDS	/
	CLL RTL
	RAL		/
	TAD COUNT1	/
	TAD (10		/MAKE ONE-TO-ONE MAPPING
	LRM		/LOAD RELOCATION MEMORY
	ISZ COUNT1	/
	 JMP LOOP6	/
	TAD COUNT	/
	TAD FIELDS	/
	CLL RTL
	RAL		/
	TAD (CDF	/MAKE CDF
	DCA XCDF	/CDF TO TARGET FIELD
	TAD (TABLE	/SETP POINTER FOR IOT TABLE
	DCA PTR		/
LOOP7,	TAD I PTR	/
	DCA TRPTST	/DROP IT IN THE TRAPTEST
	TAD (RET2
	DCA ENDTRP
	TAD TRPTST	/
XCDF,	CDF		/CDF TARGET FIELD
	DCA I (TRPTST	/IN THE TARGET FIELD TOO
	CDF 0		/
	JMS UTRALL	/UNTRAP ALL DEVICE CODES
	TAD TRPTST	/GET TEST IOT AGAIN
	AND (7776	/CLEAR UNTRAP BIT
	LTM		/AND SET DM8E40 TO TRAP FOR THIS IOT
	SUF		/ENTER USER MODE
	ION		/WITH INTERRUPT ON
	JMP TRPTST	/THIS BRINGS US INTHE TARGET FIELD !
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RET2,	ISZ PTR		/RETURN FROM TRAP HANDLER
	TAD I PTR	/GET TRAP/UNTRAP INDICATOR
	RAR		/BIT 11 IS XOR!
	SZL CLA		/OK ?
	 JMS TERROR	/TRAP ERROR
	TAD (RET3
	DCA ENDTRP	/SET NEW RETURN POINT
	JMS TRPALL	/TRAP ALL DEVICE CODES
	TAD TRPTST
	AND (7776
	IAC		/SET UNTRBP BIT
	LTM		/
	SUF
	ION
	JMP TRPTST	/GO !

PAGE
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RET3,	ISZ PTR
	TAD I PTR
	RAR		/BIT 11 DOES XOR
	SZL CLA		/OK ?
	 JMS UERROR	/NO, UNTRAP ERROR
	ISZ PTR		/SELECT NEXT IOT
	TAD I PTR	/AND FETCH IT
	SZA CLA		/END OF LIST ?
	 JMP LOOP7	/NO, TEST NEXT IOT
IFNDEF FYSIOL <
/FINALY, WE TEST THE CONSOLE TERMINAL WITH IT'S IOTS UNTRAPPED:
	TAD (RET4
	DCA ENDTRP
	JMS TRPALL	/TRAP ALL DEVICE CODES,
	TAD (6031	/EXCEPT FOR THE TERMINAL
	LTM
	TAD (6041	/
	LTM		/
	SUF
	ION
	JMP TTYTST	/
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RET4,	CLA CLL		/ >
	TAD (RET5
	DCA ENDTRP
	SUF
	ION
	JMP MDTST	/TEST ALL VALUES FOR MD DATA
/- - - - - - - - - - - - - - - - - - - - - - - - - -
RET5,	SZA CLA		/SHOULD NOT TRAP
	 JMS MDERR
	JMS RDFTST	/NOW EXERCIZE RDF IN USER MODE
	ISZ COUNT	/SELECT NEXT TARGET FIELD
	 JMP LOOP5	/NOT DONE YET
	JMP LOOP0	/START OVER AGAIN

COPY,	0
	TAD FIELDS
	CIA
	IAC
	SNA
	 JMP I COPY	/ONLY 4K
	DCA COUNT
COPY1,	CMA
	DCA 10
	CMA
	DCA 11
	TAD COUNT
	TAD FIELDS
	CLL RAL
	RTL
	TAD (CDF
	DCA YCDF
	TAD (-200
	DCA COUNT1
COPY2,	CDF 0
	TAD I 10
YCDF,	HLT
	DCA I 11
	ISZ COUNT1
	 JMP COPY2
	TAD YCDF
	AND (70
	CLL RTR
	RAR
	TAD I (KK
	DCA I (KK
	CDF 0
	ISZ COUNT
	 JMP COPY1
	JMP I COPY

/STATIC IOT TST FOR DM8E40 INSTRUCTIONS:
IOTTST,	0
	TAD (IOTLST-1	/SETUP LIST POINTER
	DCA 10
	TAD I 10	/FETCH FIRST IOT
IOT1,	DCA IOTX	/
	TAD (5252	/GET A TEST PATERN IN THE AC
IOTX,	HLT		/REPLACED BY THE IOT UNDER TEST
	JMP IOT2	/IOT DID NOT SKIP
	DCA AC		/REMEBER AC AFTER IOT
	TAD I 10	/GET SKIP FLAG
	SNA CLA		/SHOULD HE HAVE SKIPPED ?
	 JMS ERR1	/NO, BUT HE DID !
	JMP IOT3	/GO CHECK AC EFFECTS
IOT2,	DCA AC		/REMEMBER AC
	TAD I 10	/GET SKIP FLAG
	SZA CLA		/SHOULD HE HAVE SKIPPED ?
	 JMS ERR2	/YES, BUT HE DIDN'T !
IOT3,	TAD I 10	/GET AC-CHANGED FLAG
	SNA CLA		/SHOULD AC HAVE CHANGED ?
	 JMP IOT4	/NO, GO CHECK THAT
	TAD I 10	/YES, MUST AC BE CLEAR NOW ?
	SNA CLA		/
	 JMP IOT5	/NO, UNDEFINED AC NOW
	TAD AC		/YES, TEST AC
	SZA CLA		/ZERO ?
	 JMS ERR3	/NO, IOT DID NOT CLA !
	JMP IOT5	/DONE ALL TESTS
IOT4,	TAD AC		/IF HERE AC SHOULD NOT HAVE CHANGED
	TAD (-5252	/TEST IF STILL OK
	SZA CLA		/
	 JMS ERR4	/IOT SPOILED AC
IOT5,	TAD I 10	/GET NEXT IOT
	SZA		/END OF LIST ?
	 JMP IOT1	/NO, TEST NEXT IOT
	JMS I [CDTOIF	/TEST 6200
	JMP I IOTTST

PAGE
RDFTST,	0		/TEST RDF IN USER MODE
	JMS TRPALL
	TAD (RET6
	DCA ENDTRP
	TAD I (XCDF	/SET DATAFIELD TO
	CMA		/COMPLEMENT OF
	AND (70		/REAL FIELD
	TAD (CDF
	DCA KCDF
	TAD (-7
	DCA COUNT1	/CHANGE MAPPING
LOOP8,	TAD KCDF	/
	AND (70		/
	TAD COUNT1	/
	TAD (10		/
	LRM		/
	ISZ COUNT1	/
	 JMP LOOP8	/
KCDF,	CDF 70
	SUF
	ION
	JMP TSTRDF
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
RET6,	SZA CLA		/DID RDF TRAP ?
	 JMS RDFER1	/YES, ERROR
	TAD KCDF	/COMPUTE CORRECT AC
	AND (70
	MQL
	MQA
	CMA
	AND (70
	CLL RTR
	RAR
	MQA
	CIA
	TAD AC		/GET VIRTUAL AC
	SZA CLA		/ ?
	 JMS RDFER2	/NO, AC WAS SPOILED !
	JMP I RDFTST	/RETURN

PAGE
/ERROR MESSAGE PROCESSORS:
INTERR,	CAF
	KIE
	JMS I [STRING
	TEXT /UNEXPECTED INTERRUPT/
	JMS I [CRLF
	TAD AC
	RMF
	ION
	JMP I 0

TRPERR,	0
	JMS I [STRING
	TEXT /TRAP REGISTER WRONG: (PC-1)=/
	TAD I 0
	JMS OCTOUT
	JMS I [STRING
	TEXT /, RTM=/
	TAD TRAPD
	JMS OCTOUT
	JMS I [CRLF
	JMP I TRPERR

RELERR,	0
	JMS I [STRING
	TEXT /RELOCATION ERROR, GOOD FIELD=/
	TAD COUNT
	TAD FIELDS
	JMS OCTOUT
	JMS I [STRING
	TEXT /, ACTUAL FIELD=/
	TAD AC
	JMS OCTOUT
	JMS I [CRLF
	JMP I RELERR

TERROR,	0
	TAD TRPTST
	JMS OCTOUT
	TAD I PTR
	SNA CLA
	 JMP TER1
	JMS I [STRING
	TEXT / FAILED TO TRAP/
	JMP TER2
TER1,	JMS I [STRING
	TEXT /  DID  TRAP /
TER2,	JMS I [STRING
	TEXT / IN FIELD /
	TAD COUNT
	TAD FIELDS
	AND (7
	TAD ("0
	JMS TYPE
	JMS I [CRLF
	JMP I TERROR

PAGE
UERROR,	0
	TAD TRPTST
	JMS OCTOUT
	TAD I PTR
	SZA CLA
	 JMP UER1
	JMS I [STRING
	TEXT / DID NOT UNTRAP/
	JMP UER2
UER1,	JMS I [STRING
	TEXT / DID UNTRAP/
UER2,	JMS I [STRING
	TEXT / IN FIELD /
	TAD COUNT
	TAD FIELDS
	AND (7
	TAD ("0
	JMS TYPE
	JMS I [CRLF
	JMP I UERROR

MDERR,	0
	JMS I [STRING
	TEXT /TRAPPED ON MEMORY DATA /
	TAD Q
	JMS OCTOUT
	JMS I [CRLF
	JMP I MDERR

ERR1,	0
	TAD I (IOTX
	JMS I [OCTOUT
	JMS I [STRING
	TEXT / WRONGLY SKIPPED/
	JMS I [CRLF
	JMP I ERR1

ERR2,	0
	TAD I [IOTX
	JMS I [OCTOUT
	JMS I [STRING
	TEXT / FAILED TO SKIP/
	JMS I [CRLF
	JMP I ERR2

ERR3,	0
	TAD I [IOTX
	JMS I [OCTOUT
	JMS I [STRING
	TEXT / FAILED TO CLEAR AC/
	JMS I [CRLF
	JMP I ERR3

ERR4,	0
	TAD I [IOTX
	JMS I [OCTOUT
	JMS I [STRING
	TEXT / SPOILED THE AC/
	JMS I [CRLF
	JMP I ERR4
PAGE

RDFER1,	0
	JMS I [STRING
	TEXT /RDF DID TRAP !/
	JMS I [CRLF
	JMP I RDFER1

RDFER2,	0
	JMS I [STRING
	TEXT /RDF RETURNED WRONG ANSWER: /
	TAD AC
	JMS I [OCTOUT
	JMS I [CRLF
	JMP I RDFER2

PAGE
TRPALL,	0		/SUBROUTINE TO SET ALL BITS
	TAD (-100	/IN THE TRAP MEMORY (EXCEPT 600X)
	DCA TRPCNT
TRP1,	TAD TRPCNT
	TAD (100	/MAKE IT POSITIVE
	CLL RAL
	RTL
	LTM		/SET TO TRAP
	ISZ TRPCNT	/DONE ?
	 JMP TRP1	/NO
	TAD (6001	/UNTRAP ION FOR 6215, 6225
	LTM		/
	JMP I TRPALL	/YES, RETURN

UTRALL,	0		/SUBROUTINE TO UNTRAP ALL DEVICE CODES
	TAD (-100
	DCA TRPCNT	/
UTR1,	TAD TRPCNT
	TAD (100	/MAKE IT POTIVE
	CLL RAL
	RTL
	IAC		/SET UNTRAP BIT
	LTM
	ISZ TRPCNT	/DONE ?
	 JMP UTR1	/NO
	JMP I UTRALL	/YES, RETURN

TRPCNT,	0

CDTOIF,	0	/TEST CDTOIF INSTRUCTION
	TAD FIELDS	/FOR ALL AVAILABLE FIELDS
	CIA
	DCA COUNT1	/
CDT1,	TAD COUNT1
	TAD FIELDS	/MAKE POSITIVE FIELD NUMBER
	CLL RAL
	RTL
	TAD [CIF
	DCA CDT3	/
	TAD CDT3
	CMA		/MAKE COMPLEMENTARY CDF
	AND [70
	TAD [CDF
	DCA CDT2
CDT2,	HLT		/CDF
CDT3,	HLT		/CIF
	JMS CDTF	/DO CDTOIF IN SOME FIELD
	RDF		/READ DATA FIELD
	CDF 0		/RESET DF
	CIA
	TAD CDT3	/AND COMPARE WITH PREVIOUS
	AND [70		/INSTRUCTION FIELD
	SZA CLA		/OK ?
	 JMS CDTERR	/NO, CDTOIF DID NOT WORK
	ISZ COUNT1	/TRY NEXT FIELD
	 JMP CDT1
	JMP I CDTOIF	/END OF TEST

CRLF,	0
	TAD (215
	JMS TYPE
	TAD (212
	JMS TYPE
	JMP I CRLF

STRING,	0
	TAD I STRING
	BSW
	JMS BYTE
	TAD I STRING
	ISZ STRING
	JMS BYTE
	JMP STRING+1

BYTE,	0
	AND (77
	SNA
	 JMP I STRING
	TAD (240
	AND (77
	TAD (240
	JMS TYPE
	JMP I BYTE

OCTOUT,	0
	RAL
	JMS DIGIT
	JMS DIGIT
	JMS DIGIT
	JMS DIGIT
	CLA
	JMP I OCTOUT

DIGIT,	0
	RAL
	RTL
	DCA OCTEMP
	TAD OCTEMP
	AND (7
	TAD ("0
	JMS TYPE
	TAD OCTEMP
	JMP I DIGIT

OCTEMP,	0

PAGE
INIT,	0
	JMS I [STRING
	TEXT /HIGHEST FIELD # ? /
	KSF
	 JMP .-1
	KRB
	TLS
	TSF
	 JMP .-1
	AND (7
	IAC
	DCA FIELDS
	JMS I [CRLF
	JMP I INIT

CDTERR,	0
	JMS I [STRING
	TEXT /CDTOIF FAILED IN FIELD /
	TAD COUNT1
	TAD FIELDS
	AND [7
	TAD ["0
	JMS TYPE
	JMS I [CRLF
	JMP I CDTERR

TYPE, 	0
	TLS
	TSF
	JMP .-1
	CLA
	KSF
	JMP I TYPE
CTRLQ,	TAD (7600
	KRS
	TAD (-7603
	SNA
	JMP I (7600
	TAD (3-23
	SNA CLA
	JMP CTRLS
	KCC
	JMP I TYPE
CTRLS,	KCC
	KSF
	JMP .-1
	JMP CTRLQ
PAGE
/THE IOT TABLE. THE FORMAT IS: IOT;SHOULD-TRAP-IF-TRAPPED;SHOULD-TRAP-
/IF-UNTRAPPED. THE TABLE ENDS WITH IOT=0

	Y=7777
	N=0000
TABLE,	6000;Y;N
	6006;N;N	/SGT
IFDEF PRODUCTION <
	6010;Y;N
	6020;Y;N
	6030;Y;N
	6040;Y;N
	6050;Y;N
	6060;Y;N
	6070;Y;N
	6100;Y;N
	6110;Y;N
	6120;Y;N
	6130;Y;N
	6140;Y;N
	6150;Y;N
	6160;Y;N
	6170;Y;N	/ >
	6200;Y;Y	/CDTOIF
	6201;Y;N	/CDF 0
	6202;Y;N	/CIF 0
	6203;Y;N	/CDF CIF 0
	6204;Y;Y	/CINT
	6205;Y;Y	/RTM
	6206;Y;Y
	6207;Y;Y
	6210;Y;Y
	6211;Y;N	/CDF 10
	6212;Y;N	/CIF 10
	6213;Y;N	/CDF CIF 10
	6214;N;N	/RDF
	6215;Y;Y	/SKME
	6216;Y;Y
	6217;Y;Y
	6220;Y;Y
	6221;Y;N	/CDF 20
	6222;Y;N	/CIF 20
	6223;Y;N	/CDF CIF 30
	6224;N;N	/RIF
	6225;Y;Y	/SKMM
	6226;Y;Y
	6227;Y;Y
	6230;Y;Y
	6231;Y;N	/CDF 30
	6232;Y;N	/CIF 30
	6233;Y;N	/CDF CIF 0
	6234;Y;Y
	6235;Y;Y
	6236;Y;Y
	6237;Y;Y
	6240;Y;Y
	6241;Y;N	/CDF 40
	6242;Y;N	/CIF 40
	6243;Y;N	/CDF CIF 40
	6244;Y;Y
	6245;Y;Y
	6246;Y;Y
	6247;Y;Y
	6250;Y;Y
	6251;Y;N	/CDF 50
	6252;Y;N	/CIF 50
	6253;Y;N	/CDF CIF 50
	6254;Y;Y
	6255;Y;Y
	6256;Y;Y
	6257;Y;Y
	6260;Y;Y
	6261;Y;N	/CDF 60
	6262;Y;N	/CIF 60
	6263;Y;N	/CDF CIF 60
	6264;Y;Y
	6265;Y;Y
	6266;Y;Y
	6267;Y;Y
	6270;Y;Y
	6271;Y;N	/CDF 70
	6272;Y;N	/CIF 70
	6273;Y;N	/CDF CIF 70
	6274;Y;Y
	6275;Y;Y
	6276;Y;Y
	6277;Y;Y
IFDEF PRODUCTION <
	6300;Y;N
	6310;Y;N
	6320;Y;N
	6320;Y;N
	6330;Y;N
	6340;Y;N
	6350;Y;N
	6360;Y;N
	6370;Y;N
	6400;Y;N
	6410;Y;N
	6420;Y;N
	6430;Y;N
	6440;Y;N
	6450;Y;N
	6460;Y;N
	6470;Y;N
	6500;Y;N
	6510;Y;N
	6520;Y;N
	6530;Y;N
	6540;Y;N
	6550;Y;N
	6560;Y;N
	6570;Y;N
	6600;Y;N
	6610;Y;N
	6620;Y;N
	6630;Y;N
	6640;Y;N
	6650;Y;N
	6660;Y;N
	6670;Y;N
	6700;Y;N
	6710;Y;N
	6720;Y;N
	6730;Y;N
	6740;Y;N
	6750;Y;N
	6760;Y;N
	6770;Y;N	/ >
	7402;Y;Y	/HLT
	7404;Y;Y	/OSR
	0		/END OF TABLE

/LIST FOR STATIC IOT TEST. EACH ENTRY CONSISTS OF
/IOT-CODE, SHOULD-SKIP, MAY-CHANGE-AC, (SHOULD-CLEAR-AC).
/THE LAST ELEMENT IS ONLY NEEDED IF MAY-CHANGE-AC IS YES.
IOTLST,	6200;N;N
	CMME;N;N
	RTM;N;Y;N
	SKME;N;N
	SKMM;Y;N
	LTM;N;Y;Y
	LRM;N;Y;Y
	SMME;N;N
	SKME;Y;N
	SKMM;Y;N
	RTM;N;Y;N
	LTM;N;Y;Y
	LRM;N;Y;Y
	0
$