PCjs Machines

Home of the original IBM PC emulator for browsers.

Logo

DEC PDP-10 KA10 Basic Instruction Diagnostic #6

The PDP-10 KA10 Basic Instruction Diagnostic #6 (MAINDEC-10-DAKAF) test code has been extracted from DAKAFM.MAC [original] for use with the PDP-10 Test Machine with Debugger below.

This diagnostic “TESTS THE BOOLE, HWT AND TEST INSTRUCTIONS.”

Resources for this diagnostic include:

[PCjs Machine "testka10"]

Waiting for machine "testka10" to load....

The Debugger’s assemble (“a”) command can be used to test the new built-in MACRO-10 Mini-Assembler, which supports a subset of the MACRO-10 assembly language.

This command:

a 30724 DAKAF.MAC

will automatically read the DAKAF.MAC source file (a slightly modified copy of DAKAFM.MAC), assemble it, and then load the binary output at the specified address.


DAKAF.TXT

MAINDEC-10-DAKAF.TXT






			IDENTIFICATION
			--------------

	PRODUCT CODE:   MAINDEC-10-DAKAF-B-D

	PRODUCT NAME:   DECSYSTEM10 PDP-10 KA10 BASIC
	                INSTRUCTION DIAGNOSTIC (6)

	FUNCTION:       BOOLE, HWT, TEST

	VERSION:        0.2

	DATE RELEASED:  JANUARY 1977

	MAINTAINED BY:  DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:         JOHN R. KIRCHOFF

COPYRIGHT(C) 1976,1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE,
OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM
AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

							MAINDEC-10-DAKAF.TXT
							PAGE 2


			TABLE OF CONTENTS
			-----------------

1.0	ABSTRACT

2.0	REQUIREMENTS

2.1	EQUIPMENT

2.2	STORAGE

2.3	PRELIMINARY PROGRAMS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

3.2	STARTING PROCEDURE

3.3	OPERATING PROCEDURE

4.0	ERRORS

5.0	ITERATION COUNTER

6.0	CYCLE TIME

7.0	OPERATIONAL VARIATIONS

8.0	MISCELLANEOUS

9.0	LISTING

							MAINDEC-10-DAKAF.TXT
							PAGE 3


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	SIXTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE BOOLE, HWT AND TEST INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

	A PDP-10 KA10 WITH A MINIMUM OF 32K OF MEMORY

	PAPER TAPE READER  
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	CONSOLE FUNCTIONS WORKING PROPERLY
	PAPER TAPE OR DECTAPE READ-IN WORKING PROPERLY  
	PREVIOUS PROCESSOR DIAGNOSTICS
	
							MAINDEC-10-DAKAF.TXT
							PAGE 4


3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

	PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)

3.2	STARTING PROCEDURE

	STAND-ALONE STARTING ADDRESS IS 30000.

	IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE
	FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE.
	(SEE LISTING).

3.3	OPERATING PROCEDURE

	ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED
	OR AN ERROR OCCURS.

4.0	ERRORS

	ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS.  THE LISTING
	SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR.  A
	NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT.  THIS
	MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE
	FAILING INSTRUCTION.

5.0	ITERATION COUNTER

	THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEM-
	ORY INDICATORS (MI).  THIS COUNT IS A DECREMENTING COUNT AND
	INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.

6.0	CYCLE TIME

	THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
	IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC.

							MAINDEC-10-DAKAF.TXT
							PAGE 5


7.0	OPERATIONAL VARIATIONS

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO-
	    VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO-
	    VIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR
	    AREA OF THE PROCESSOR.  CERTAIN PROCEDURES ARE USED WHEN
	    THE PROGRAM IS USED IN THIS MANNER.  THEY ARE:

	    1.  THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PRO-
		GRAM AND STARTS IT AT LOCATION 30002.

	    2.  MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON-
		ITOR CONTROL FLAG WORD.

	B.  USER MODE

	    THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES
	    ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS
	    CORRECTLY.  USER MODE STARTING ADDRESS IS 30000.

	C.  SYSTEM EXERCISER

	    STARTING ADDRESS IS 30003.  NO DATA SWITCHES ARE USED BY
	    THIS PROGRAM.

8.0	MISCELLANEOUS

	NONE

9.0	LISTING

DAKAF.HST

    THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAF

************************************************************************

PRODUCT CODE:       MAINDEC-10-DAKAF

PRODUCT NAME:       BASIC INSTRUCTION DIAGNOSTIC #6

DATE RELEASED:      JANUARY 1977

VERSION:            0.2

UPDATE AUTHOR:      JOHN R. KIRCHOFF

CHANGES MADE:

    1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.

************************************************************************

ORIGINAL VERSION:   0.1

ORIGINAL AUTHOR:    RICHARD MALISKA

ORIGINAL RELEASE:   16-MAR-72

************************************************************************

DAKAF.MAC

[Download]

;MACROS

; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
;	 TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION

DEFINE	STOP	(A)<
	HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
	JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
				;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
				;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
				;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>

SUBTTL	DIAGNOSTIC SECTION

START:	;SETZM	USER#		;CLEAR USER CONTROL WORD
	;JSP	0,.+1		;GET FLAGS
	;TLNE	USERF		;IN USER MODE?
	;SETOM	USER		;YES, SET USER CONTROL WORD
	;SKIPN	MONFLG		;SPECIAL USER MODE?
	;SETZM	USER		;YES, CLEAR USER CONTROL WORD
	;SKIPN	USER
	;JRST	STARTA
	;SKIPL	MONCTL
	;TTCALL	3,PGMNAM	;MENTION OUR NAME
	JRST	STARTA

PGMNAM:	ASCIZ/
PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (6) [DAKAF]
/

STARTA:	JRST	.+1
SUBTTL	TEST OF MSCL BOOLEAN INSTRUCTIONS

;**********

;THIS TEST VERIFIES THAT SETZI CLEARS THE AC AND DOES NOT AFFECT E.
;FIRST, AC AND E ARE PRELOADED WITH -1,,-1, THEN, SETZI IS EXECUTED.
;AC IS THEN CHECKED FOR 0 AND E IS CHECKED FOR -1,,-1

C56100:	SETO	1,		;PRELOAD AC WITH -1,,-1
	SETO	2,		;PRELOAD E WITH -1,,-1
	SETZI	1,2		;*SETZI SHOULD CLEAR THE AC
	SKIPE	1		;PASS IF C(AC)=0
	STOP
	CAME	2,[-1]		;PASS IF C(E)=-1,,-1
	STOP

;**********

;THIS TEST VERIFIES THAT SETZM CLEARS C(E) AND DOES NOT AFFECT C(AC)
;FIRST, AC AND E ARE PRELOADED WITH -1,,-1; THEN SETZM IS EXECUTED.
;AC IS THEN CHECKED FOR -1,,-1 AND E IS CHECKED FOR 0.

C56200:	SETO	1,		;PRELOAD AC WITH -1,,-1
	SETO	2,		;PRELOAD E WITH -1,,-1
	SETZM	1,2		;*SETZM SHOULD CLEAR E
	CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
	STOP
	SKIPE	2		;PASS IF C(E)=0
	STOP

;**********
;THIS TEST VERIFIES THAT SETOI PLACES ALL ONES INTO THE AC.
;FIRST, THE AC AND E ARE CLEARED; THEN, SETOI IS EXECUTED.
;AC AND E ARE CHECKED FOR -1,,-1 AND 0 RESPECTIVELY

C56300:	SETZB	1,2		;CLEAR AC,E
	SETOI	1,2		;*SETOI SHOULD PLACE -1,,-1 INTO THE AC
	CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
	STOP
	SKIPE	2		;PASS IF C(E)=0
	STOP

;**********

;THIS TEST VERIFIES THAT SETOM PLACES ALL ONES INTO E
;FIRST, THE AC AND E ARE CLEARED, THEN SETOM IS EXECUTED.
;AC AND E ARE THEN CHECKED FOR 0 AND -1,,-1 RESPECTIVELY.

C56400:	SETZB	1,2		;CLEAR AC,E
	SETOM	1,2		;*SETOM SHOULD PLACE -1,,-1 INTO E
	SKIPE	1		;PASS IF C(AC)=0
	STOP
	CAME	2,[-1]		;PASS IF C(E)=-1,,-1
	STOP

;**********
;THIS TEST VERIFIES THAT SETOB PLACES ALL ONES INTO BOTH AC AND E.
;FIRST, BOTH AC AND E ARE CLEARED; THEN, SETOB IS EXECUTED.
;AC AND E ARE BOTH CHECKED FOR -1,,-1

C56500:	SETZB	1,2		;CLEAR AC,E
	SETOB	1,2		;*SETOB SHOULD PUT -1,,-1 INTO BOTH AC AND E
	CAME	1,[-1]		;PASS IF C(AC)=-1,,-1
	STOP
	CAME	2,[-1]		;PASS IF C(E)=-1,,-1
	STOP

;**********

;THIS TEST VERIFIES THAT ANDI PLACES THE LOGICAL AND FUNCTION
;OF C(AC) AND 0,,E INTO THE AC.
;IN THIS CASE, C(AC)=777000,,707070 AND E=0,,123123.
;HENCE, THE RESULT IN THE AC SHOULD BE 0,,103103

C56600:	MOVE	1,[777000,,707070]	;PRELOAD AC WITH 777000,,707070
	ANDI	1,123123	;*ANDI SHOULD PLACE 0,,103103 INTO THE AC
	CAIE	1,103020	;PASS IF C(AC)=103103
	STOP

;**********
;THIS TEST VERIFIES THAT ANDM PLACES THE LOGICAL AND FUNCTION OF
;C(AC) AND C(E) INTO E.
;IN THIS CASE, C(AC)=777000,,000777 AND C(E)=123456,,123456.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 777000,,000777 AND
;123000,,00456 RESPECTIVELY

C56700:	MOVE	1,[777000,,777]	;PRELOAD E WITH 777000,,000777
	MOVE	2,[123456,,123456]	;PRELOAD AC WITH 123456,,123456
	ANDM	2,1		;*ANDM SHOULD PLACE 123000,,000456 INTO E
	CAME	2,[123456,,123456]	;PASS IF C(AC) NOT MODIFIED
	STOP
	CAME	1,[123000,,000456]	;PASS IF C(E)=123000,,000456
	STOP

;**********

;THIS TEST VERIFIES THAT ANDM PLACES THE LOGICAL AND FUNCTION OF
;C(AC) AND C(E) INTO E.
;IN THIS CASE, C(AC)=777000,,000777 AND C(E)=123456,,123456.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 777000,,000777 AND
;123000,,00456 RESPECTIVELY

C56701:	MOVE	1,[777000,,777]	;PRELOAD E WITH 777000,,000777
	MOVEM	1,E56701
	MOVE	2,[123456,,123456]	;PRELOAD AC WITH 123456,,123456
	ANDM	2,E56701	;*ANDM SHOULD PLACE 123000,,000456 INTO E
	CAME	2,[123456,,123456]	;PASS IF C(AC) NOT MODIFIED
	STOP
	MOVE	1,E56701
	CAME	1,[123000,,000456]	;PASS IF C(E)=123000,,000456
	STOP

	SKIPA				;GO TO NEXT TEST
E56701:	0				;TEST WORD MEMORY

;**********
;THIS TEST VERIFIES THAT ANDCB PLACES THE LOGICAL AND FUNCTION OF
;C(AC) AND C(E) INTO BOTH AC AND E
;IN THIS CASE, C(AC)=-1,,0 AND C(E)=121212,,-1
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 121212,,0,

C57000:	HRROI	3,0		;PRELOAD AC WITH -1,,0
	HRLOI	6,121212	;PRELOAD E WITH 121212,,-1
	ANDB	3,6		;*ANDB SHOULD PLACE 121212,,0 INTO BOTH AC AND E
	CAME	3,[121212,,0]	;PASS IF C(AC)=121212,,0
	STOP
	CAME	6,[121212,,0]	;PASS IF C(E)=121212,,0
	STOP

;**********

;THIS TEST VERIFIES THAT ANDCB PLACES THE LOGICAL AND FUNCTION OF
;C(AC) AND C(E) INTO BOTH AC AND E
;IN THIS CASE, C(AC)=-1,,0 AND C(E)=121212,,-1
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 121212,,0,

C57001:	HRROI	3,0		;PRELOAD AC WITH -1,,0
	HRLOI	6,121212	;PRELOAD E WITH 121212,,-1
	MOVEM	6,E57001
	ANDB	3,E57001	;*ANDB SHOULD PLACE 121212,,0 INTO BOTH AC AND E
	CAME	3,[121212,,0]	;PASS IF C(AC)=121212,,0
	STOP
	MOVE	6,E57001
	CAME	6,[121212,,0]	;PASS IF C(E)=121212,,0
	STOP

	SKIPA			;GO TO NEXT TEST
E57001:	0			;TEST WORD MEMORY

;**********
;THIS TEST VERIFIES THAT ANDCAI PLACES THE LOGICAL AND FUNCTION
;OF THE WORD 0,E AND THE COMPLEMENT OF C(AC) INTO THE AC
;IN THIS CASE, C(AC)=777,000,,707070 AND E=0,135246
;HENCE, THE RESULT IN THE AC SHOULD BE 0,,030206

C57100:	MOVE	5,[777000,,707070]	;PRELOAD AC WITH 777000,,707070
	ANDCAI	5,135246	;*ANDCAI SHOULD PLACE 0,,30206 INTO THE AC
	CAIE	5,030206	;PASS IF C(AC)=030206
	STOP

;**********

;THIS TEST VERIFIES THAT ANDCAM PLACES THE LOGICAL AND FUNCTION OF
;C(E) AND THE COMPLEMENT OF C(AC) INTO E.
;IN THIS CASE, C(AC)=000767,,-1 AND C(E)=777350,,-2
;HENCE, THE RESULTS IN AC AND E SHOULD BE 000767,,-1 AND
;777010,,0 RESPECTIVELY.

C57200:	HRLOI	4,767		;PRELOAD AC WITH 000767,,-1
	MOVE	6,[777350,,-2]	;PRELOAD E WITH 777350,,-2
	ANDCAM	4,6		;*ANDCAM SHOULD PLACE 777010,,0
				;INTO E
	CAME	4,[767,,-1]	;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	6,[777010,,0]	;PASS IF C(E)=777010,,0
	STOP

;**********
;THIS TEST VERIFIES THAT ANDCAB PLACES THE LOGICAN AND FUNCTION OF
;C(E) AND THE COMPLEMENT OF C(AC) INTO BOTH AC AND E.
;IN THIS CASE, C(AC)=000777,,770077 AND C(E)=123456,246123
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 123000,,006100

C57300:	MOVE	1,[000777,,770077]	;PRELOAD AC WITH 000777,770077
	MOVE	2,[123456,,246123]	;PRELOAD E WITH 123456,246123
	ANDCAB	1,2		;*ANDCAB SHOULD PLACE 123000,006100
				;INTO BOTH AC AND E
	CAME	1,[123000,,006100]	;PASS IF C(AC)=123000,006100
	STOP
	CAME	2,[123000,,006100]	;PASS IF C(E)=123000,006100
	STOP

;**********

;THIS TEST VERIFIES THAT SETMI MOVES THE WORD 0,,E INTO THE AC
;IN THIS CASE, C(AC)=-1,,-1 AND E=0,,123456.  HENCE, THE RESULT
;IN THE AC SHOULD BE 0,,123456

C57400:	SETO	5,		;PRELOAD AC WITH -1,,-1
	SETMI	5,123456	;*SETMI SHOULD PLACE 0,,123456 INTO THE AC
	CAIE	5,123456	;PASS IF C(AC)=0,123456
	STOP

;**********
;THIS TEST VERIFIES THAT SETMM IS A NO-OP.  HENCE, IT SHOULD
;NOT MODIFY AC OR E.
;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1; AND NEITHER SHOULD NOT BE CHANGED

C57500:	SETZ	16,		;CLEAR C(AC)
	SETO	17,		;PRELOAD E WITH -1,,-1
	SETMM	16,17		;*SETMM IS A NO-OP
	SKIPE	16		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	17,[-1]		;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT SETMB PLACES C(E) INTO THE AC
;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=100,,-200  HENCE, THE RESULT
;IN BOTH AC AND E SHOULD BE 000100,,-200.

C57600:	SETO	0,		;CLEAR AC
	MOVE	1,[100,,-200]	;PRELOAD E WITH 100,,-200
	SETMB	0,1		;*SETMB SHOULD PLACE 100,,-200 INTO THE AC
	CAME	0,[100,,-200]	;PASS IF C(AC)=100,,-200
	STOP
	CAME	1,[100,,-200]	;PASS IF C(E)=100,,-200
	STOP

;**********
;THIS TEST VERIFIES THAT ANDCMI PLACES THE LOGICAL AND FUNCTION
;OF C(AC) AND THE COMPLEMENT OF THE WORD 0,,E INTO THE AC.
;IN THIS CASE, C(AC)=123456,,246135 AND E=0,,717273.
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,040104.

C57700:	MOVE	15,[123456,,246135]	;PRELOAD AC WITH 123456,,246135
	ANDCMI	15,717273	;*ANDCMI SHOULD PLACE 123456,,040104
				;INTO THE AC
	CAME	15,[123456,,040104]	;PASS IF C(AC)=123456,,040104
	STOP

;**********

;THIS TEST VERIFIES THAT ANDCMM PLACES THE LOGICAL AND FUNCTION OF
;C(AC) AND THE COMPLEMENT OF C(E) INTO E.
;IN THIS CASE,C(AC)=12321,,456654 AND C(E)= 770077,,007770
;HENCE, THE RESULT IN E SHOULD BE 003300,,450004

C60000:	MOVE	14,[123321,,456654]	;PRELOAD AC WITH 123321,,456654
	MOVE	15,[770077,,007770]	;PRELOAD E WITH 77007770
	ANDCMM	14,15			;*ANDCMM SHOULD PLACE 003300,,450004 INTO THE AC
	CAME	14,[123321,,456654]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	15,[3300,,450004]	;PASS IF C(E) = 003300,,450004
	STOP

;**********
;THIS TEST VERIFIES THAT ANDCMB PLACES THE LOGICAL AND FUNCTION OF
;C(AC) AND THE COMPLEMENT OF C(E) INTO BOTH AC AND E.
;IN THIS CASE, C(AC)123456,,663322 AND C(E) = 777000,,700770
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 000456,,063002

C60100:	MOVE	13,[123456,,663322]	;PRELOAD AC WITH 123456,,663322
	MOVE	14,[777000,,700770]	;PRELOAD E WITH 777000,,700770
	ANDCMB	13,14			;*ANDCMB SHOULD PLACE 000456,,063002
					;INTO BOTH AC AND E
	CAME	13,[456,,63002]		;PASS IF C(AC)=000456,,063002
	STOP
	CAME	14,[456,,63002]		;PASS IF C(E)=000456,,063002
	STOP

;**********

;THIS TEST VERIFIES THAT SETA IS A NO-OP. IT AFFECTS NEITHER
;AC OR E. IN THIS CASE, C(AC)=123456,,777776 AND C(E)=010203,,123450.
;SETA SHOULD NOT MODIFY C(AC) OR C(E)

C60200:	MOVE	12,[123456,,777776]	;PRELOAD AC WITH 123456,,-2
	MOVE	13,[010203,,123450]	;PRELOAD E WITH 010203,,123450
	SETA	12,13			;*SETA IS A NO-OP
	CAME	12,[123456,,-2]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	13,[010203,,123450]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT SETAI IS A NO-OP. IT DOES NOT AFFECT THE AC.
;IN THIS CASE, C(AC)=123456,,777776 AND E=0,,123450
;SETA SHOULD NOT MODIFY C(AC)

C60300:	MOVE 12,[123456,,777776]	;PRELOAD AC WITH 123456,,-2
	SETAI	12,123450		;*SETAI IS A NO-OP
	CAME	12,[123456,,-2]		;PASS IF C(AC) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT SETAM PLACES C(AC) INTO E.
;IN THIS CASE, C(AC)=123456,,0 AND C(E)=-1,,-1.  HENCE, THE
;RESULT IN E SHOULD BE 123456,,0

C60400:	HRLZI	11,123456		;PRELOAD AC WITH 123456,,0
	SETO	12,			;PRELOAD E WITH -1,,-1
	SETAM	11,12			;SETAM SHOULD PLACE 123456,,0 INTO E
	CAME	11,[123456,,0]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	12,[123456,,0]		;PASS IF C(E)=123456,,0
	STOP

;**********
;THIS TEST VERIFIES THAT XORI PLACES THE LOGICAL EXCLUSIVE OR FUNCTION
;OF C(AC) AND THE WORD 0,,E INTO THE AC.
;IN THIS CASE, C(AC)=000777,,123456 AND E=0,,434431
;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,517067.

C60500:	MOVE	10,[777,,123456]	;PRELOAD AC WITH 000777,,123456
	XORI	10,434431		;*XORI SHOULD PLACE 000777,,517067 INTO THE AC
	CAME	10,[777,,517067]	;PASS IF C(AC)=000777,,517067
	STOP

;**********

;THIS TEST VERIFIES THAT XORB PLACES THE LOGICAL EXCLUSIVE OR FUNCTION
;OF C(AC) AND C(E) INTO BOTH AC AND E.
;IN THIS CASE, C(AC)=707077,,555666 AND C(E)=123456,,765432
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 624421,,230254

C60600:	MOVE	7,[707077,,555666]	;PRELOAD AC WITH 707077,,555666
	MOVE	10,[123456,,765432]	;PRELOAD E WITH 123456,,765432
	XORB	7,10			;*XORB SHOULD PLACE 624421,,230254
					;INTO BOTH AC AND E
	CAME	7,[624421,,230254]	;PASS IF C(AC)=624421,,230254
	STOP
	CAME	10,[624421,,230254]	;PASS IF C(E)=624421,,230254
	STOP

;**********
;THIS TEST VERIFIES THAT IORI PLACES THE INCLUSIVE OR FUNCTION
;OF C(AC) AND THE WORD 0,,E INTO THE AC.
;IN THIS CASE, C(AC)=707070,,123456 AND E=0,,765567
;HENCE, THE RESULT IN THE AC SHOULD BE 707070,,767577

C60700:	MOVE	6,[707070,,123456]  ;PRELOAD AC WITH 707070,,123456
	IORI	6,765567	;*IORI SHOULD PLACE 707070,,767577 INTO THE AC
	CAME	6,[707070,,767577]  ;PASS IF C(AC)=707070,,767577
	STOP

;**********

;THIS TEST VERIFIES THAT IORM PLACES THE INCLUSIVE OR FUNCTION
;OF C(AC) AND C(E) INTO E.
;IN THIS CASE, C(AC)=123456,,777666 AND C(E)=777001,,123470
;HENCE, THE RESULT IN E SHOULD BE 777457,,777676

C61000:	MOVE	5,[123456,,777666]  ;PRELOAD AC WITH 123456,777666
	MOVE	6,[777001,,123470]  ;PRELOAD E WITH 777001,,123470
	IORM	5,6		;*IORM SHOULD PLACE
				;777457,777676 INTO E
	CAME	5,[123456,,777666]  ;PASS IF C(AC) UNMODIFIED
	STOP
	CAME	6,[777457,,777676] ;PASS IF C(E)=777457,777676
	STOP

;**********
;THIS TEST VERIFIES THAT IORB PLACES THE INCLUSIVE OR FUNCTION
;OF C(AC) AND C(E) INTO E.
;IN THIS CASE, C(AC)=123456,,777666 AND C(E)=777001,,123470
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 777457,,777676

C61100:	MOVE	5,[123456,,777666]  ;PRELOAD AC WITH 123456,777666
	MOVE	6,[777001,,123470]  ;PRELOAD E WITH 777001,,123470
	IORB	5,6		;*IORB SHOULD PLACE
				;777457,,777676 INTO
	CAME	5,[777457,,777676]  ;PASS IF C(AC)=777457,,777676
	STOP
	CAME	6,[777457,,777676]  ;PASS IF C(E)=777457,,777676
	STOP

;**********

;THIS TEST VERIFIES THAT ANDCBI PLACES THE LOGICAL AND FUNCTION
;OF THE COMPLEMENTS OF BOTH C(AC) AND THE WORD 0,,E INTO THE AC
;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,706050.
;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,050321.

C61200:	MOVE	4,[777000,,123456]  ;PRELOAD AC WITH 777000,,123456
	ANDCBI	4,706050	;*ANDCBI SHOULD PLACE 000777,,050321
				;INTO THE AC
	CAME	4,[777,,50321]	;PASS IF C(AC)=000777,,050321
	STOP

;**********
;THIS TEST VERIFIES THAT ANDCBM PLACES THE LOGICAL AND FUNCTION
;OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO
;IN THE CASE, C(AC)=777007,,771100 AND C(E)=063202,,123477
;HENCE, THE RESULT IN E SHOULD BE 000570,,004200

C61300:	MOVE	3,[777007,,771100]  ;PRELOAD AC WITH 777007,,771100
	MOVE	4,[63202,,123477]   ;PRELOAD E WITH 063202,,123477
	ANDCBM	3,4		;*ANDCBM SHOULD PLACE
				;000570,,004200 INTO E.
	CAME	3,[777007,,771100] ;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	4,[570,,4200]	;PASS IF C(E)=000570,,004200
	STOP

;**********

;THIS TEST VERIFIES THAT ANDCBB PLACES THE LOGICAL AND FUNCTION
;OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO BOTH AC AND E
;IN THIS CASE, C(AC)=777007,,771100 AND C(E)=063202,,123477
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 000570,,004200

C61400:	MOVE	3,[777007,,771100]  ;PRELOAD WITH 777007,,771100
	MOVE	4,[63202,,123477]   ;PRELOAD E WITH 063202,,123477
	ANDCBB	3,4		;*ANDCBB SHOULD PLACE
				;000570,,004200 INTO BOTH AC AND E
	CAME	3,[570,,4200]	;PASS IF C(AC)=000570,,004200
	STOP
	CAME	4,[570,,4200]	;PASS IF C(E)=000570,,004200
	STOP

;**********
;THIS TEST VERIFIES THAT EQVI PLACES THE LOGICAL EQUIVALENCE FUNCTION
;OF C(AC) AND THE WORD 0,,E INTO THE AC
;IN THIS CASE, C(AC)=707070,,123426 AND E=0,,123363
;HENCE, THE RESULT IN THE AC SHOULD BE 070707,,777032

C61500:	MOVE	2,[707070,,123426]  ;PRELOAD AC WITH 707070,,123426
	EQVI	2,123363	;*EQVI SHOULD PLACE
				;070707,,777032 INTO THE AC
	CAME	2,[70707,,777032]  ;PASS IF C(AC)=070707,,777032
	STOP

;**********

;THIS TEST VERIFIES THAT EQVM PLACES THE LOGICAL EQUIVALENCE FUNCTION
;OF C(AC) AND C(E) INTO E.
;IN THIS CASE, C(AC)= 123456,,123457 AND C(E) = 707633,,121212
;HENCE, THE RESULT IN E SHOULD BE 153512,,775132

C61600:	MOVE	1,[123456,,123457] ;PRELOAD AC WITH 123456,,123457
	MOVE	2,[707633,,121212] ;PRELOAD AC WITH 707633,,121212
	EQVM	1,2		;*EQVM SHOULD PLACE 153512,,775132 INTO	E.
	CAME	1,[123456,,123457] ;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[153512,,775132];PASS IF C(E) = 153512,,775132
	STOP

;**********
;THIS TEST VERIFIES THAT EQVB PLACES THE LOGICAL EQUIVALENCE FUNCTION
;OF C(AC)AND C(E) INTO BOTH AC AND  E.
;IN THIS CASE, C(AC) = 123456,,123457 AND C(E) = 707633,,121212
;HENSE, THE RSULT IN BOTH AC AND 	E SHOULD BE 153512,,775132

C61700:	MOVE	1,[123456,,123457]	;PRELOAD AC WITH 123456,,12345
	MOVE	2,[707633,,121212]	;PRELOAD AC WITH 707633,,121212
	EQVB	1,2			;*EQVB SHOULD PLACE 153512,,775132
					;INTO BOTHE AC AND E.
	CAME	1,[153512,,775132]	;PASS IC C(AC)=153512,,775132
	STOP
	CAME	2,[153512,,775132]	;PASS IF C(E)=153512,,775132
	STOP

;**********

;THIS TEST VERIFIES THAT SETCAI PLACES THE COMPLEMENT OF C(AC)
;INTO THE AC.
;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,707070
;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,654321

C62000:	MOVE	0,[777000,,123456]	;PRELOAD AC WITH 777000,,123456
	SETCAI	0,707070		;*SETCAI SHOULD PLACE 000777,,654321
					;INTO THE AC
	CAME	0,[777,,654321]	;PASS IF C(AC)=000777,,654321
	STOP

;**********
;THIS TEST VERIFIES THAT SETCAM PLACES THE COMPLEMENT OF C(AC)
;INTO E.
;IN THIS CASE, C(AC)=123456,,765432 AND C(E)=-1,,-1.
;HENCE, THE RESULT IN E SHOULD BE 654321,,012345

C62100:	MOVE	17,[123456,,765432]	;PRELOAD AC WITH 123456,,765432
	SETO	0,			;PRELOAD E WITH -1,,-1
	SETCAM	17,0			;*SETCAM SHOULD PLACE
					;654321,,012345 INTO E
	CAME	17,[123456,,765432]	;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	0,[654321,,12345]	;PASS IF C(E)=654321,,012345
	STOP

;**********

;THIS TEST VERIFIES THAT SETCAB PLACES THE COMPLEMENT OF C(AC)
;INTO BOTH AC AND E.
;IN THIS CASE, C(AC)=123456,,765432 AND C(E)=-1,,-1.
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 654321,,012345

C62200:	MOVE	17,[123456,,765432]	;PRELOAD AC WITH 123456,,76543
	SETO	0,			;PRELOAD E WITH -1,,-1
	SETCAB	17,0			;*SETCAB SHOULD PLACE
					;654321,,012345 INTO BOTH AC AND E
	CAME	17,[654321,,12345]	;PASS IF C(AC)=654321,,012345
	STOP
	CAME	0,[654321,,12345]	;PASS IF C(E)=654321,,012345
	STOP

;**********
;THIS TEST VERIFIES THAT ORCAI PLACES THE INCLUSIVE OR FUNCTION
;OF THE WORD 0,,E AND THE COMPLEMENT OF C(AC) INTO THE AC.
;IN THIS CASE, C(AC)=777000,,123477 AND E=0,,765401
;HENCE, THE RESULT IN THE AC SHOULD BE 000777,,775701

C62300:	MOVE	16,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
	ORCAI	16,765401		;*ORCAI SHOULD PLACE 000777,,767477
					;INTO THE AC
	CAME	16,[777,,775701]	;PASS IF C(AC)=000777,,775701
	STOP

;**********

;THIS TEST VERIFIES THAT ORCAM PLACES THE INCLUSIVE OR FUNCTION
;OF C(E) AND THE COMPLEMENT OF C(AC) INTO
;IN THIS CASE, C(AC)=777000,,123477 AND C(E)=707070,,707072
;HENCE, THE RESULT IN E SHOULD BE 707777,,757372

C62400:	MOVE	15,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
	MOVE	16,[707070,,707072]	;PRELOAD E WITH 707070,,707072
	ORCAM	15,16			;*ORCAM SHOULD PLACE 707777,,757372
					;INTO E
	CAME	15,[777000,,123477]	;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	16,[707777,,757372]	;PASS IF C(E)=707777,,757372
	STOP

;**********
;THIS TEST VERIFIES THAT ORCAB PLACES THE INCLUSIVE OR FUNCTION
;OF C(E) AND THE COMPLEMENT OF C(AC) INTO BOTH AC AND E.
;IN THIS CASE, C(AC)=777000,,123477 AND C(E)=707070,,707072
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 707777,,757372

C62500:	MOVE	15,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
	MOVE	16,[707070,,707072]	;PRELOAD E WITH 707070,,707072
	ORCAB	15,16			;*ORCAB SHOULD PLACE 707777,,757372
					;INTO BOTHE AC AND E
	CAME	15,[707777,,757372]	;PASS IF C(AC)=707777,,757372
	STOP
	CAME	16,[707777,,757372]	;PASS IF C(E)=707777,,757372
	STOP

;**********

;THIS TEST VERIFIES THAT SETCMI PLACES THE COMPLEMENT OF THE
;WORD 0,,E INTO THE AC
;IN THIS CASE, C(AC)=777000,,123456 AND E=0,,707070
;HENCE, THE RESULT IN THE AC SHOULD BE -1,,070707

C62600:	MOVE	0,[777000,,123456]	;PRELOAD AC WITH 777000,,123456
	SETCMI	0,707070		;*SETCMI SHOULD PLACE -1,,070707
					;INTO THE AC
	CAME	0,[-1,,070707]		;PASS IF C(AC)=-1,,070707
	STOP

;**********
;THIS TEST VERIFIES THAT SETCMM PLACES THE COMPLEMENT OF C(E)
;INTO E.
;IN THIS CASE, C(E)=123456,,765432 AND C(AC)=-1,,-1.
;HENCE, THE RESULT IN E SHOULD BE 654321,,012345

C62700:	MOVE	17,[123456,,765432]	;PRELOAD E WITH 123456,,76543
	SETO	0,			;PRELOAD AC WITH -1,,-1
	SETCMM	0,17			;*SETCMM SHOULD PLACE
					;654321,012345 INTO E
	CAME	0,[-1]			;PASS IF C(AC) UNCHANGED
	STOP
	CAME	17,[654321,,12345]	;PASS IF C(E)=654321,,012345
	STOP

;**********

;THIS TEST VERIFIES THAT SETCMB PLACES THE COMPLEMENT OF C(E)
;INTO BOTH AC AND E.
;IN THIS CASE, C(E)=123456,,765432 AND C(AC)=-1,,-1.
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 654321,,012345

C63000:	MOVE	17,[123456,,765432]	;PRELOAD E WITH 123456,,76543
	SETO	0,			;PRELOAD AC WITH -1,,-1
	SETCMB	0,17			;*SETCMB SHOULD PLACE
					;654321,,012345 INTO BOTH AC AND E
	CAME	0,[654321,,12345]	;PASS IF C(AC)=654321,,012345
	STOP
	CAME	17,[654321,,12345]	;PASS IF C(E)=654321,,012345
	STOP

;**********
;THIS TEST VERIFIES THAT ORCMI PLACES THE INCLUSIVE OR FUNCTION
;OF C(AC) AND THE COMPLEMENT OF THE WORD 0,,E INTO THE AC.
;IN THIS CASE, C(AC)=777000,,123477 AND E=0,,765401
;HENCE, THE RESULT IN THE AC SHOULD BE -1,,133777

C63100:	MOVE	16,[777000,,123477]	;PRELOAD AC WITH 777000,,123477
	ORCMI	16,765401		;*ORCMI SHOULD PLACE -1,,133777
					;INTO THE AC
	CAME	16,[-1,,133777]		;PASS IF C(AC)=-1,,133777
	STOP

;**********

;THIS TEST VERIFIES THAT ORCMM PLACES THE INCLUSIVE OR FUNCTION
;OF C(AC) AND THE COMPLEMENT OC C(E) INTO
;IN THIS CASE, C(E)=777000,,123477 AND C (AC)=707070,,707072
;HENCE, THE RESULT IN E SHOULD BE 707777,,757372

C63200:	MOVE	15,[777000,,123477]	;PRELOAD E WITH 777000,,123477
	MOVE	16,[707070,,707072]	;PRELOAD AC WITH 707070,,707072
	ORCMM	16,15			;*ORCMM SHOULD PLACE 707777,,757372
					;INTO E
	CAME	16,[707070,,707072]	;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	15,[707777,,757372]	;PASS IF C(E)=707777,,757372
	STOP

;**********
;THIS TEST VERIFIES THAT ORCMB PLACES THE INCLUSIVE OR FUNCTION
;OF C(AC) AND THE COMPLEMENT OF C(E) INTO BOTH AC AND E.
;IN THIS CASE, C(E)=777000,,123477 AND C(AC)=707070,,707072
;HENCE, THE RESULT IN BOTH AC AND E SHOULD BE 707777,,757372

C63300:	MOVE	15,[777000,,123477]  ;PRELOAD E WITH 777000,,123477
	MOVE	16,[707070,,707072]  ;PRELOAD AC WITH 707070,,707072
	ORCMB	16,15		;*ORCMB SHOULD PLACE 707777,,757372
				;INTO BOTH AC AND E
	CAME	16,[707777,,757372]  ;PASS IF C(AC)=707777,,757372
	STOP
	CAME	15,[707777,,757372]  ;PASS OF C(E)=707777,,757372
	STOP

;**********

;THIS TEST VERIFIES THAT ORCBI PLACES THE LOGICAL INCLUSIVE OR
;FUNCTION OF THE COMPLEMENTS OF BOTH C(AC) AND THE WORD 0,,E INTO THE AC.
;IN THIS CASE, C(AC)=707070,,070706 AND E=0,,770011.
;HENCE, THE RESULT IN THE AC SHOULD BE -1,,707777

C63400:	MOVE	15,[707070,,070706]  ;PRELOAD AC WITH 707070,,070706
	ORCBI	15,770011	;*ORCBI SHOULD PLACE -1,,707777 INTO THE AC
	CAME	15,[-1,,707777]	;PASS IF C(AC)=-1,707777
	STOP

;**********
;THIS TEST VERIFIES THAT ORCBM PLACES THE LOGICAL INCLUSIVE OR
;FUNCTION OF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO
;IN THIS CASE, C(AC)=123456,,770077 AND C(E)=777001,,123324
;HENCE, THE RESULT IN E SHOULD BE 654777,,657753

C63500:	MOVE	14,[123456,,770077]  ;PRELOAD AC WITH 123456,,770077
	MOVE	15,[777001,,123324]  ;PRELOAD E WITH 777001,,123324
	ORCBM	14,15		;*ORCBM SHOULD PLACE 654777,,657753
				;INTO E
	CAME	14,[123456,,770077]  ;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	15,[654777,,657753]   ;PASS IF C(E)=654777,,657753
	STOP

;**********

;THIS TEST VERIFIES THAT ORCBB PLACES THE LOGICAL INCLUSIVE OR
;FUNCTIONOF THE COMPLEMENTS OF BOTH C(AC) AND C(E) INTO BOTH AC AND E
;IN THIS CASE, C(AC)=123456,,770077 AND C(E)=777001,,657753

C63600:	MOVE	14,[123456,,770077]  ;PRELOAD AC WITH 123456,,770077
	MOVE	15,[777001,,123324]  ;PRELOAD E WITH 777001,,123324
	ORCBB	14,15		;*ORCBB SHOULD PLACE 654777,,657753
				;INTO BOTH AC AND E
	CAME	14,[654777,,657753]  ;PASS IF C(AC)=654777,,657753
	STOP
	CAME	15,[654777,,657753]  ;PASS IF C(E)=654777,,657753
	STOP

;**********
SUBTTL	TEST OF MSCL HWT INSTRUCTIONS

;**********

;THIS TEST VERIFIES THAT HLLI CLEARS AC LEFT
;IN THIS CASE, C(AC)=707070,,123456 AND E=777000
;HENCE, THE RESULT IN THE AC SHOULD BE 0,,123456

C63700:	MOVE	17,[707070,,123456]	;PRELOAD AC WITH 707070,,123456
	HLLI	17,777000	;*HLLI SHOULD PLACE 0,,123456 INTO THHE AC
	CAIE	17,123456	;PASS IF C(AC)=0,,123456
	STOP

;**********

;THIS TEST VERIFIES THAT HLLS PLACES C(E) INTO THE AC IF AC IS NON-ZERO
;AND IS A NO-OP IF AC=0
;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,765432
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1
;AND 123456,,765432 RESPECTIVELY

C64000:	SETO	0		;PRELOAD AC WITH -1,,-1
	MOVE	2,[123456,,765432]	;PRELOAD E WITH 123456,,765432
	HLLS	0,2		;*HLLS SHOULD NOT AFFECT AC OR E
	CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[123456,,765432]	;PASS IF C(C) IS UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT HLLS PLACES C(E) INTO THE AC IF AC IS NON-ZERO?
;AND IS A NO-OP IF AC=0
;IN THIS CASE, AC=1, C(AC)=1,,-1 AND C(E)=123456,,765432
;HENCE, THE RESULTS IN AC AND E WHOULD BE 123456,,765432
;AND 123456,,765432 RESPECTVIELY

C64010:	SETO	1,		;PRELOAD AC WITH -1,,-1
	MOVE	2,[123456,,765432]	;PRELOAD E WITH 123456,,765432
	HLLS	1,2		;*HLLS SHOULD PLACE 123456,,765432 INTO THE AC
	CAME	1,[123456,,765432]	;PASS IF C(AC)=123456,,765432
	STOP
	CAME	2,[123456,,765432]	;PASS IF C(C) IS UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT HRLS PLACES C(E-RIGHT) INTO E-LEFT, BUT
;DOES NOT AFFECT E-RIGHT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=1,,-1 AND C(E)=123456,707070
;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE -1,,-1
;AND 707070,,707070.

C64100:	SETO	0,		;PRELOAD AC WITH -1,,-1
	MOVE	3,[123456,,707070]	;PRELOAD E WITH 123456,,707070
	HRLS	0,3		;*HRLS SHOULD PLACE 707070,,707070
				;INTO E.
	CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	3,[707070,,707070]	;PASS IF C(E)=707070,,707070
	STOP

;**********
;THIS TEST VERIFIES THAT HRLS PLACES C(E-RIGHT) INTO E-LEFT, BUT
;DOES NOT AFFECT E-RIGHT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707070
;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707070,,707070
;AND 707070,,707070.

C64110:	SETO	1,		;PRELOAD AC WITH -1,,-1
	MOVE	3,[123456,,707070]	;PRELOAD E WITH 123456,,707070
	HRLS	1,3		;*HRLS SHOULD PLACE 707070,,707070
				;INTO BOTH AC AND E.
	CAME	1,[707070,,707070]	;PASS IF C(AC)=707070,,707070
	STOP
	CAME	3,[707070,,707070]	;PASS IF C(E)=707070,,707070
	STOP

;**********

;THIS TEST VERIFIES THAN HLLZM PLACES C(AC-LEFT) INTO E-LEFT AND
;PLACES 0 INTO E-RIGHT
;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,717171
;HENCE, THE RESULT IN E SHOULD BE 123456,,0

C64200:	MOVE	1,[123456,,123422]	;PRELOAD AC WITH 123456,,123422
	MOVE	2,[707070,,717171]	;PRELOAD AC WITH 707070,,717171
	HLLZM	1,2		;*HLLZM SHOULD PLACE 123456,,0 INTO E
	CAME	1,[123456,,123422]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[123456,,0]	;PASS IF C(E)=123456,,0
	STOP

;**********
;THIS TEST VERIFIES THAT HLLZS CLEARS THE RIGHT HALF OF E, BUT DOESN'T
;AFFECT THE LEFT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,707070
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1
;AND 123456,,0 RESPECTIVELY

C64300:	SETO	0,		;PRELOAD AC WITH -1,,-1
	MOVE	17,[123456,,707070]	;PRELOAD E WITH 123456,,707070
	HLLZS	0,17		;*HLLZS SHOULD PLACE 123456,,0 INTO E.
	CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	17,[123456,,0]	;PASS IF C(E)=123456,,0
	STOP


;**********

;THIS TEST VERIFIES THAT HLLZS CLEARS THE RIGHT HALF OF E, BUT DOESN'T
;AFFECT THE LEFT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707070
;HENCE, THE RESULTS IN AC AND E SHOULD BE 123456,,0
;AND 123456,,0 RESPECTIVELY.

C64310:	SETO	1,		;PRELOAD AC WITH -1,,-1
	MOVE	17,[123456,,707070]	;PRELOAD E WITH 123456,,707070
	HLLZS	1,17		;*HLLZS SHOULD PLACE 123456,,0 INTO
				;BOTH AC AND E
	CAME	1,[123456,,0]	;PASS IF C(AC)=123456,,0
	STOP
	CAME	17,[123456,,0]	;PASS IF C(E)=123456,,0
	STOP

;**********
;THIS TEST VERIFIES THAT HRLZM PLACES C(AC-RIGHT) INTO E-LEFT AND
;PLACES O INTO E-RIGHT.
;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171
;HENCE, THE RESULT IN E SHOULD BE 123422,,0

C64400:	MOVE	1,[123456,,123422]	;PRELOAD AC WITH 123456,,123422
	MOVE	2,[707070,,717171]	;PRELOAD AC WITH 707070,,717171
	HRLZM	1,2		;*HRLZM SHOULD PLACE 123422,,0 INTO E
	CAME	1,[123456,,123422]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[123422,,0]	;PASS IF C(E)=123422,,0
	STOP

;**********

;THIS TEST VERIFIES THAT HRLZS PLACES C(E-RIGHT) INTO E-LEFT AND
;CLEARS E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO
;PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E)=123456,,707076
;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE -1,,-1
;AND 707076,,0

C64500:	SETO	0,		;PRELOAD AC WITH -1,,-1
	MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
	HRLZS	0,16		;*HRLZS SHOULD PLACE 707076,,0
				;INTO E.
	CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	16,[707076,,0]	;PASS IF C(AC)=707076,,0
	STOP

;**********
;THIS TEST VERIFIES THAT HRLZS PLACES C(E-RIGHT) INTO E-LEFT AND
;CLEARS E-RIGHT.  IF AC IS NON-ZERO, THE RESULT IN E IS ALSO
;PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E)=123456,,707076
;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707076,,0
;AND 707076,,0

C64510:	SETO	1,		;PRELOAD AC WITH -1,,-1
	MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
	HRLZS	1,16		;*HRLZS SHOULD PLACE 707076,,0
				;INTO BOTH AC AND E.
	CAME	1,[707076,,0]	;PASS IF C(AC)=707076,,0
	STOP
	CAME	16,[707076,,0]	;PASS IF C(AC)=707076,,0
	STOP

;**********

;THIS TEST VERIFIES THAT HLLOM PLACES C(AC-LEFT) INTO E-LEFT AND
;PLACES -1 INTO E-RIGHT.
;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171
;HENCE, THE RESULT IN E SHOULD BE 123456,,-1.

C64600:	MOVE	1,[123456,,123422]	;PRELOAD AC WITH 123456,,123422
	MOVE	2,[707070,,717171]	;PRELOAD AC WITH 707070,,717171
	HLLOM	1,2		;*HLLOM SHOULD PLACE 123456,,-1 INTO E
	CAME	1,[123456,,123422]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[123456,,-1]	;PASS IF C(E)=123456,,-1
	STOP

;**********
;THIS TEST VERIFIES THAT HRLO, C(E-RIGHT) INTO AC=LEFT AND
;PLACES -1 INTO AC-RIGHT.  IN THIS CASE, C(AC)=123456,,135724 AND
;C(E)=765432,,246135.  HENCE, THE RESULT IN THE AC SHOULD BE 246135,,-1

C64700:	MOVE	15,[123456,,135724]	;PRELOAD AC WITH 123456,,135724
	MOVE	16,[765432,,246135]	;PRELOAD E WITH 765432,,246135
	HRLO	15,16		;*HRLO SHOULD PLACE 246135,,-1 INTO AC
	CAME	15,[246135,,-1]	;PASS IF C(AC)=246135,,-1
	STOP
	CAME	16,[765432,,246135]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT HRLOI PLACES 0,,E INTO AC-LEFT AND
;PLACES ONES INTO AC-RIGHT.  IN THIS CASE, C(AC)=0 AND E=0,,123456.
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,-1

C65000:	SETZ	14,		;CLEAR AC
	HRLOI	14,123456	;*HRLOI SHOULD PLACE 123456,,-1 INTO THE AC
	CAME	14,[123456,,-1]	;PASS IF C(AC)=123456,,-1
	STOP

;**********
;THIS TEST VERIFIES THAT HRLOM PLACES C(AC-RIGHT) INTO E-LEFT
;AND PLACES -1 INTO E-RIGHT. IN THIS CASE, C(E)=0 AND C(AC)=123123,,456765
;HENCE, THE RESULT IN E SHOULD BE 456765,,-1.

C65100:	SETZM	14		;CLEAR E
	MOVE	13,[123123,,456765]	;PRELOAD AC WITH 123123,,456765
	HRLOM	13,14		;*HRLOM SHOULD PLACE 456765,,-1 INTO E
	CAME	13,[123123,,456765]	;PASS IF C(AC) UNCHANGED

	STOP
	CAME	14,[456765,,-1]	;PASS IF C(E)=456765,,-1
	STOP

;**********

;THIS TEST VERIFIES THAT HRLOS PLACES C(E-RIGHT) INTO E-LEFT AND
;PLACES -1 INTO E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALOS
;PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,707076
;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 0
;AND 707076,,0

C65200:	SETZ	0,		;PRELOAD AC WITH 0
	MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
	HRLOS	0,16		;*HRLZS SHOULD PLACE 707076,,-1
				;INTO E.
	CAME	0,[0]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	16,[707076,,-1]	;PASS IF C(AC)=707076,,-1
	STOP

;**********
;THIS TEST VERIFIES THAT HRLOS PLACES C(E-RIGHT) INTO E-LEFT AND
;PLACES -1 INTO E-RIGHT. IF AC IS NON-ZERO, THE RESULT IN E IS ALSO
;PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,707076
;HENCE, THE RESULTS IN AC AND E RESPECTIVELY SHOULD BE 707076,,-1
;AND 707076,,-1

C65210:	SETZ	1,		;PRELOAD AC WITH 0
	MOVE	16,[123456,,707076]	;PRELOAD E WITH 123456,,707076
	HRLOS	1,16		;*HRLZS SHOULD PLACE 707076,,-1
				;INTO BOTH AC AND E
	CAME	1,[707076,,-1]	;PASS IF C(AC)=707076,,-1
	STOP
	CAME	16,[707076,,-1]	;PASS IF C(AC)=707076,,-1
	STOP

;**********

;THIS TEST VERIFIES THAT HLLEM PLACES C(AC-LEFT) INTO E-LEFT
;AND PLACES BIT 0 OF THE AC INTO BITS 18 THRU 35 OF E.  IN THIS CASE,
;C(AC)=123456,,707076 AND C(E)=-1,,-1.  HENCE, THE RESULT IN E
;SHOULD BE 123456,,0.

C65300:	MOVE	12,[123456,,707076]	;PRELOAD AC WITH 123456,,707076
	SETOM	13		;PRELOAD E WITH -1,,-1
	HLLEM	12,13		;*HLLEM SHOULD PLACE 123456,,0 INTO E
	CAME	12,[123456,,707076]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	13,[123456,,0]	;PASS IF C(E)=123456,,0
	STOP

;**********
;THIS TEST VERIFIES THAT HLLES PLACES C(E-LEFT) INTO E-LEFT AND
;PLACES BIT 0 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO
;THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=765432,,0.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
;AND 765432,,-1 RESPECTIVELY.

C65400:	SETZ	0,		;CLEAR AC
	HRLZI	2,765432	;PRELOAD E WITH 765432,,0
	HLLES	0,2		;*HLLES SHOULD PLACE 765432,,-1
				;INTO E
	CAME	0,[0]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
	STOP

;**********

;THIS TEST VERIFIES THAT HLLES PLACES C(E-LEFT) INTO E-LEFT AND
;PLACES BIT 0 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO,
;THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=765432,,0
;HENCE, THE RESULTS IN AC AND E SHOULD BE 765432,,-1
;AND 765432,,-1 RESPECTIVELY

C65410:	SETZ	1,		;CLEAR AC
	HRLZI	2,765432	;PRELOAD E WITH 765432,,0
	HLLES	1,2		;*HLLES SHOULD PLACE 765432,,-1
				;INTO BOTH AC AND E
	CAME	1,[765432,,-1]	;PASS IF C(AC)=765432,,-1
	STOP
	CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
	STOP

;**********
;THIS TEST VERIFIES THAT HLLEM PLACES C(AC-RIGHT) INTO E-LEFT
;AND PLACES BIT 18 OF THE AC INTO BITS 18 THRU 35 OF E.  IN THIS CASE,
;C(AC)=365432,123456 AND C(E)=-1,,-1.  HENCE, THE RESULT IN E
;SHOULD BE 365432,,0.

C65500:	MOVE	12,[365432,,123456]	;PRELOAD AC WITH 365432,,123456
	SETOM	13		;PRELOAD E WITH -1,,-1
	HLLEM	12,13		;*HLLEM SHOULD PLACE 365432,,0 INTO E
	CAME	12,[365432,,123456]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	13,[365432,,0]	;PASS IF C(E)=365432,,0
	STOP

;**********

;THIS TEST VERIFIES THAT HRLES PLACES C(E-RIGHT) INTO E-LEFT AND
;PLACES BIT 18 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO,
;THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=0,,765432
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
;AND 765432,,-1 RESPECTIVELY

C65600:	SETZ	0,		;CLEAR AC
	HRRZI	2,765432	;PRELOAD E WITH 0,,765432
	HRLES	0,2		;*HLLES SHOULD PLACE 765432,,-1
				;INTO
	CAME	0,[0]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
	STOP

;**********
;THIS TEST VERIFIES THAT HRLES PLACES C(E-RIGHT) INTO E-LEFT AND
;PLACES BIT 18 OF E INTO BITS 18 THRU 35 OF E.  IF AC IS NON-ZERO,
;THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=0,,765432
;HENCE, THE RESULTS IN AC AND E SHOULD BE 765432,,-1
;AND 765432,,-1 RESPECTIVELY.

C65610:	SETZ	1,		;CLEAR AC
	HRRZI	2,765432	;PRELOAD E WITH 0,765432
	HRLES	1,2		;*HLLES SHOULD PLACE 765432,,-1
				;INTO BOTH AC AND E
	CAME	1,[765432,,-1]	;PASS IF C(AC)=765442,,-1
	STOP
	CAME	2,[765432,,-1]	;PASS IF C(E)=765432,,-1
	STOP


;**********

;THIS TEST VERIFIES THAT HLRM SHOULD PLACE C(AC-LEFT) INTO E-RIGHT
;AND NOT AFFECT E-LEFT.  IN THIS CASE, C(AC)=123456,,701234
;AND C(E)=0.  HENCE, THE RESULT IN E SHOULD BE 0,,123456

C65700:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	SETZM	12		;CLEAR E
	HLRM	11,12		;*HLRM SHOULD PLACE 0,,123456 INTO E
	CAME	11,[123456,,701234]	;PASS IF C(AC) UNCHANGE
	STOP
	CAIE	12,123456	;PASS IF C(E)=0,,123456
	STOP

;**********
;THIS TEST VERIFIES THAT HLRS PLACES C(E-LEFT) INTO E-RIGHT AND
;DOES NOT AFFECT E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123123,,246135
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
;AND 123123,,123123 RESPECTIVELY.

C66000:	SETZ	0,		;CLEAR AC
	MOVE	12,[123123,,246135]	;PRELOAD E WITH 123123,,246135
	HLRS	0,12		;*HLRS SHOULD PLACE 123123,,123123
				;INTO E.
	CAME	0,[0]		;PASS IF C(AC) UNCHANGED
	STOP
	CAME	12,[123123,,123123]	;PASS IF C(E)=123123,,123123
	STOP


;**********

;THIS TEST VERIFIES THAT HLRS PLACES C(E-LEFT) INTO E-RIGHT AND
;DOES NOT AFFECT E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123123,,246135
;HENCE, THE RESULTS IN AC AND E SHOULD BE 123123,,123123
;AND 123123,,123123 RESPECTIVELY.

C66010:	SETZ	1,		;CLEAR AC
	MOVE	12,[123123,,246135]	;PRELOAD E WITH 123123,,246135
	HLRS	1,12		;*HLRS SHOULD PLACE 123123,,123123
				;INTO BOTH AC AND E.
	CAME	1,[123123,,123123]	;PASS IF C(AC)=123123,,123123
	STOP
	CAME	12,[123123,,123123]	;PASS IF C(E)=123123,,123123
	STOP

;**********
;THIS TEST VERIFIES THAT HRRZS CLEARS THE LEFT HALF OF E, BUT DOES NOT
;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC = 0, C(AC) = -1,,-1 AND C(E) = 123456,,701234
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 AND 0,,701234
;RESPECTIVELY.

C66100:	SETO	0		;PRELOAD AC WITH -1,,-1
	MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HRRZS	0,17		;HRRZS SHOULD PLACE 0,,701234 INTO E
	CAME	0,[-1]		;PASS IF C(AC) UNCHANGED
	STOP
	CAIE	17,701234	;PASS IF C(E) = 0,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT HRRZS CLEARS THE LEFT HALF OF E, BUT DOES NOT
;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO, THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC = 1, C(AC) = -1,,-1 AND C(E) = 123456,,701234
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,701234 AND 0,,701234
;RESPECTIVELY.

C66110:	SETO	1,		;PRELOAD AC WITH -1,,-1
	MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HRRZS	1,17		;HRRZS SHOULD PLACE 0,,701234 INTO
				;BOTH AC AND E
	CAIE	1,701234	;PASS IF C(AC) = 0,,701234
	STOP
	CAIE	17,701234	;PASS IF C(E) = 0,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT HLRZI CLEARS THE AC
;IN THIS CASE, C(AC) = -1,,-1 AND E = 0,,-1.  HENCE, THE
;RESULT IN THE AC SHOULD BE 0.

C66200:	SETO	7		;PRELOAD AC WITH -1,,-1
	HLRZI	7,-1		;*HLRZI SHOULD CLEAR THE AC
	SKIPE	7		;PASS IF C(AC) = 0
	STOP

;**********

;THIS TEST VERIFIES THAT HLRZM PLACES C(AC-LEFT) INTO E-RIGHT AND
;PLACES 0 INTO E-LEFT.
;IN THIS CASE, C(AC) = 123456,,123422 AND C(E) = 707070,,717171
;HENCE, THE RESULT IN E SHOULD BE 0,,123456.

C66300:	MOVE	1,[123456,,123422]  ;PRELOAD AC WITH 123456,,123422
	MOVE	2,[707070,,717171]  ;PRELOAD AC WITH 707070,,717171
	HLRZM	1,2		;*HLRZM SHOULD PLACE 0,,123456 INTO E.
	CAME	1,[123456,,123422]  ;PASS IF C(AC) UNCHANGED
	STOP
	CAIE	2,123456	;PASS IF C(E) = 0,,123456
	STOP

;**********
;THIS TEST VERIFIES THAT HLRZM PLACES C(AC-LEFT) INTO E-RIGHT AND
;PLACES 0 INTO E-LEFT.
;IN THIS CASE, C(AC) = 123456,,123422 AND C(E) = 707070,,717171
;HENCE, THE RESULT IN E SHOULD BE 0,,123456.

C66301:	MOVE	1,[123456,,123422]  ;PRELOAD AC WITH 123456,,123422
	MOVE	2,[707070,,717171]  ;PRELOAD AC WITH 707070,,717171
	MOVEM	2,E66301
	HLRZM	1,E66301	;*HLRZM SHOULD PLACE 0,,123456 INTO E.
	CAME	1,[123456,,123422]  ;PASS IF C(AC) UNCHANGED
	STOP
	MOVE	2,E66301
	CAIE	2,123456	;PASS IF C(E) = 0,,123456
	STOP

	SKIPA			;GO TO NEXT TEST
E66301:	0			;TEST WORD MEMORY

;**********
;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND
;PLACES 0 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC = 0, C(AC) = -1,,-1 AND C(E) = 123456,,701234.
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1 AND 0,,123456
;RESPECTIVELY.

C66400:	SETO	0,		;PRELOAD AC WITH -1,,-1
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HLRZS	0,7		;*HLRZS SHOULD PLACE 0,,123456 INTO E
	CAME	0,[-1]		;PASS IF C(AC) IS UNCHANGED
	STOP
	CAIE	7,123456	;PASS IF C(E) = 0,,123456
	STOP

;**********

;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND
;PLACES 0 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC = 6, C(AC) = -1,,-1 AND C(E) = 123456,,701234.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 AND 0123456
;RESPECTIVELY.

C66410:	SETO	6,		;PRELOAD AC WITH -1,,-1
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HLRZS	6,7		;*HLRZS SHOULD PLACE 0,,123456 INTO
				;BOTH AC AND E
	CAIE	6,123456	;PASS IF C(AC) = 0,,123456
	STOP
	CAIE	7,123456	;PASS IF C(E) = 0,,123456
	STOP

;**********
;THIS TEST VERIFIES THAT HLRZS PLACES C(E-LEFT) INTO E-RIGHT AND
;PLACES 0 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC = 6, C(AC) = -1,,-1 AND C(E) = 123456,,701234.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456 AND 0123456
;RESPECTIVELY.

C66411:	SETO	6,		;PRELOAD AC WITH -1,,-1
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	MOVEM	7,E66411
	HLRZS	6,E66411	;*HLRZS SHOULD PLACE 0,,123456 INTO
				;BOTH AC AND E
	CAIE	6,123456	;PASS IF C(AC) = 0,,123456
	STOP
	MOVE	7,E66411
	CAIE	7,123456	;PASS IF C(E) = 0,,123456
	STOP

	SKIPA			;GO TO NEXT TEST
E66411:	0			;TEST WORD MEMORY

;**********
;THIS TEST VERIFIES THAT HRROM PLACES C(AC-RIGHT) INTO E-RIGHT AND
;PLACES -1 INTO E-LEFT.  IN THIS CASE, C(AC) = 123456,,701234 AND
;C(E) = 0.  HENCE, THE RESULT IN E SHOULD BE -1,,601234.

C66500:	MOVE	5,[123456,,701234]  ;PRELOAD AC WITH 123456,,701234
	SETZM	6		;CLEAR E
	HRROM	5,6		;*HRROM SHOULD PLACE -1,,701234 INTO E
	CAME	5,[123456,,701234]  ;PASS IF C(AC) UNCHANGED
	STOP
	CAME	6,[-1,,701234]	;PASS IF C(E) = -1,,701234
	STOP


;**********

;THIS TEST VERIFIES THAT HRROS PLACES -1 INTO THE LEFT HALF OF E, BUT DOES NOT
;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
;AND -1,,701234 RESPECTIVELY.

C66600:	SETZ	0		;PRELOAD AC WITH 0
	MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HRROS	0,17		;HRROS SHOULD PLACE -1,,701234 INTO E
	CAME	0,[0]		;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	17,[-1,,701234]	;PASS IF C(E)=-1,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT HRROS PLACES -1 INTO THE LEFT HALF OF E, BUT DOES NOT
;AFFECT THE RIGHT HALF OF E.  IF AC IS NON-ZERO THE RESULT IN E IS
;ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=16, C(AC)=0 AND C(E)=123456,,701234
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,701234
;AND -1,,701234 RESPECTIVELY.

C66610:	SETZ	16,		;PRELOAD AC WITH 0
	MOVE	17,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HRROS	16,17		;*HRROS SHOULD PLACE -1,,701234 INTO
				;BOTH AC AND E
	CAME	16,[-1,,701234]	;PASS IF C(AC)=-1,,701234
	STOP
	CAME	17,[-1,,701234]	;PASS IF C(E)=-1,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT HLRO PLACES C(E-LEFT) INTO AC-RIGHT AND
;PLACES -1 INTO AC-LEFT.  IN THIS CASE, C(AC)=0
;C(E)=765432,,107654.  HENCE, THE RESULT IN THE AC SHOULD BE -1,,765432.

C66700:	SETZ	4,		;CLEAR AC
	MOVE	5,[765432,,107654]  ;PRELOAD E WITH 765432,,107654
	HLRO	4,5		;*HLRO SHOULD PLACE -1,,765432 INTO THE AC
	CAME	4,[-1,,765432]	;PASS IF C(AC)=-1,,765432
	STOP
	CAME	5,[765432,,107654]  ;PASS IF C(E) IS UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT HLROI PLACES -1,,0 INTO THE AC.
;IN THIS CASE, C(AC)=123456,,765432 AND E=070707.  HENCE, THE
;RESULT IN THE AC SHOULD BE -1,,0

C67000:	MOVE	3,[123456,,765432]  ;PRELOAD AC WITH 123456,,765432
	HLROI	3,070707	;*HLROI SHOULD PLACE -1,,0 INTO THE AC
	CAME	3,[-1,,0]	;PASS IF C(AC)=-1,,0
	STOP

;**********

;THIS TEST VERIFIES THAT HLROM PLACES C(AC-LEFT) INTO E RIGHT AND
;PLACES -1 INTO E-LEFT
;IN THIS CASE, C(AC)=123456,,123422 AND C(E)=707070,,717171
;HENCE, THE RESULT IN E SHOULD BE -1,,123456

C67100:	MOVE	1,[123456,,123422]  ;PRELOAD AC WITH 123456,,123422
	MOVE	2,[707070,,717171]  ;PRELOAD AC WITH 707070,,717171
	HLROM	1,2		;*HLROM SHOULD PLACE -1,,123456 INTO E
	CAME	1,[123456,,123422]  ;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[-1,,123456]	;PASS IF C(E)=-1,,123456
	STOP

;**********
;THIS TEST VERIFIES THAT HLROS PLACES C(E-LEFT) INTO E-RIGHT AND
;PLACES -1 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0
;AND -1,,123456 RESPECTIVELY

C67200:	SETZ	0		;PRELOAD AC WITH 0
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HLROS	0,7		;*HLROS SHOULD PLACE -1,,123456 INTO E
				;
	CAIE	0,0		;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	7,[-1,,123456]	;PASS IF C(E)=-1,,123456
	STOP

;**********

;THIS TEST VERIFIES THAT HLROS PLACES C(E-LEFT) INTO E-RIGHT AND
;PLACES -1 INTO E-LEFT.  IF AC IS NON-ZERO, THE RESULT IN E
;IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,701234.
;HENCE, THE RESULT IN AC AND E SHOULD BE -1,,123456
;AND -1,,123456 RESPECTIVELY.

C67210:	SETZ	1,		;PRELOAD AC WITH 0
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HLROS	1,7		;*HLROS SHOULD PLACE -1,,123456 INTO
				;BOTH AC AND E
	CAME	1,[-1,,123456]	;PASS IF C(AC)=-1,,123456
	STOP
	CAME	7,[-1,,123456]	;PASS IF C(E)=-1,,123456
	STOP

;**********
;THIS TEST VERIFIES THAT HRRES PLACES C(E-RIGHT) INTO E-RIGHT
;AND PLACES BIT 18 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS NON-ZERO,
;THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=0 AND C(E)=123456,,701234
;HENCE, THE RESULT IN AC AND E SHOULD BE 0
;AND -1,,701234 RESPECTIVELY.

C67300:	SETZ	0,		;PRELOAD AC WITH 0
	MOVE	3,[123456,,701234]  ;PRELOAD WITH 123456,,701234
	HRRES	0,3		;HRRES SHOULD PLACE -1,,701234 INTO E

	SKIPE			;PASS IF C(AC) IS UNCHANGED
	STOP
	CAME	3,[-1,,701234]	;PASS IF C(E)=-1,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT HRRES, PLACES C(E-RIGHT) INTO E-RIGHT
;AND PLACES BIT 18 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS NON-ZERO,
;THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=0 AND C(E)=123456,,701234.
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,701234
;AND -1,,701234 RESPECTIVELY.

C67310:	SETZ	1,		;PRELOAD AC WITH 0
	MOVE	3,[123456,,701234]  ;PRELOAD WITH 123456,,701234
	HRRES	1,3		;HRRES SHOULD PLACE -1,,701234 INTO
				;BOTH AC AND E
	CAME	1,[-1,,701234]	;PASS IF C(AC)=-1,,701234
	STOP
	CAME	3,[-1,,701234]	;PASS IF C(E)=-1,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT HLRES PLACES C(E-LEFT) INTO E-RIGHT
;AND PLACES BIT 0 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS
;NON-ZERO, THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=0, C(AC)=-1,,-1 AND C(E) 123456,,701234
;HENCE, THE RESULTS IN AC AND E SHOULD BE -1,,-1
;AND 0,,123456 RESPECTIVELY.

C67400:	SETO	0,		;PRELOAD AC WITH -1,,-1
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HLRES	0,7		;*HLRES SHOULD PLACE 0,,123456 INTO E

	CAME	0,[-1]		;PASS IF C(AC) IS UNCHANGED
	STOP
	CAIE	7,123456	;PASS IF C(E)=0,,123456
	STOP

;**********

;THIS TEST VERIFIES THAT HLRES PLACES C(E-LEFT) INTO E-RIGHT
;AND PLACES BIT 0 OF E INTO BITS 0 THRU 17 OF E.  IF AC IS
;NON-ZERO, THE RESULT IN E IS ALSO PLACED INTO THE AC.
;IN THIS CASE, AC=1, C(AC)=-1,,-1 AND C(E) 123456,,701234.
;HENCE, THE RESULTS IN AC AND E SHOULD BE 0,,123456
;AND 0,,123456 RESPECTIVELY.

C67410:	SETO	1,		;PRELOAD AC WITH -1,,-1
	MOVE	7,[123456,,701234]  ;PRELOAD E WITH 123456,,701234
	HLRES	1,7		;*HLRES SHOULD PLACE 0,,123456 INTO
				;BOTH AC AND E
	CAIE	1,123456	;PASS IF C(AC)=0,,123456
	STOP
	CAIE	7,123456	;PASS IF C(E)=0,,123456
	STOP

;**********
SUBTTL	TEST OF MSCL LOGICAL TEST INSTRUCTIONS

;**********

;THIS TEST VERIFIES THAT TRNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TRNE SHOULD SKIP THE NEXT INSTRUCTION.  THE AC IS ALSO
;CHECKED FOR NO MODIFICATION.

C67500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRNE	17,3			;*TRNE SHOULD SKIP THE NEXT INSTRUCTION
	STOP
	CAME	17,[123456,,701234]	;PASS IF C AC) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TRNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TRNE SHOULD NOT SKIP THE NEXT INSTRUCTION.  THE AC IS ALSO
;CHECKED FOR NO MODIFICATION.

C67510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRNE	16,300			;*TRNE SHOULD NOT SKIP THE NEXT INSTRUCTION
	SKIPA				;PASS IF TRNE DID NOT SKIP
	STOP
	CAME	16,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TLNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLNE SHOULD SKIP THE NEXT INSTRUCTION, THE AC IS ALSO
;CHECKED FOR NO MODIFICATION.

C67600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLNE	15,300			;*TLNE CHOULD SKIP
	STOP
	CAME	15,[123456,,701234]	;PASS IF C(AC) IS UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TLNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TLNE SHOULD NOT SKIP THE NEXT INSTRUCTION, THE AC IS ALSO
;CHECKED FOR NO MODIFICATION

C67610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLNE	14,3			;*TLNE SHOULD NOT SKIP
	SKIPA				;PASS IF TLNE DID NOT SKIP
	STOP
	CAME	14,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TRNA ALWAYS SKIPS THE NEXT SEQUENTIAL
;INSTRUCTION.  HENCE, TRNA IS INDEPENDENT OF BOTH C(A) AND E
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TRNA SHOULD SKIP THENEXT INSTRUCTION AND NOT ALTER C(AC).

C67700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRNA	13,3			;*TRNA SHOULD ALWAYS SKIP
	STOP
	CAME	13,[123456,,701234]	;PASS IFC(AC) UNCHANGED
	STOP

;**********

;THIS TEST VERIFhES THAT TRNA ALWAYS SKIPS THE NEXT SEQUENTIAL
;INSTRUCTION.  HENCE, TRNA IS INDEPENDENT OF BOTH C(A) AND E.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TRNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C67710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRNA	12,300			;*TRNA SHOQLD ALWAYS SKIP
	STOP
	CAME	12,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIaS THAT TLNA ALWAYS SKIPS THE NEXT SEQUENTIAL
;INSTRUCTION.  HENCE, TLNA IS INDEPENDENt OF BOTH C(AC) AND E.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TLNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C70000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLNA	11,3			;*TLNA SHOULD ALWAYS SKIP
	STOP
	CAME	11,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TLNA ALWAYS SKIPS THE NEXT SEQUENTIAL
;INSTRUCTION.  HENCE, TLNA IS INDEPENDENT OF BOTH C(AC) AND E.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TLNA SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C70010:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLNA	10,300			;*TLNA SHOULD ALWAYS SKIP
	STOP
	CAME	10,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TRNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN
;E ARE ZERO.  IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TRNN SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C70100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRNN	7,300			;*TRNN SHOULD SKIP
	SToP
	CAME	7,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TRNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN
;E ARE ZERO.  IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TRNN SHoULD NOT SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C70110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRNN	6,3			;*TRNN SHOULD NOT SKIP
	SKIPA				;PASS IF TRNN DID NOT SKIP
	STOP
	CAME	6,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TLNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TLNN SHOULD SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C70200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLNN	5,3			;*TLNN SHOULD SKIP
	STOP
	CAME	5,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES thAT TLNN SkIPS THE NEXT SEQUENTIAL INSTRUcTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TLNN SHOULD NOT SKIP THE NEXT INSTRUCTION AND NOT ALTER C(AC).

C70210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLNN	4,300			;*TLNN SHOULD NOT SKIP
	SKIPA				;PASS IF TLNN DOES NOT SKIP
	STOP
	CAME	4,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
;BOTH HALVES SNAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSNE SHOULD SKIP THE NEXT INSTRUCtION AND
;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED.

C70300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	4,[76543,,654321]	;PRELOAD E WITH 076543,,654321
	TSNE	3,4			;*TSNE SHOULD SKIP
	STOP
	CAME	3,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	4,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSNE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
;BOTH HALVES SNAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654323
;HENCE, TSNE SHOULD NOT SKIP THE NEXT INSTRUCTION AND
;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED.

C70310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	3,[76543,,654323]	;PRELOAD E WITH 076543,,654323
	TSNE	2,3			;*TSNE SHOULD NOT SKIP
	SKIPA				;PASS IF TSOE DId NOT SKIP
	STOP
	CAME	2,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	3,[76543,,654323]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;NEITHER AC NOR E ARE AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSNA SHOULD SKIP THE NEXT INSTRUCTION AND
;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED

C70400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	2,[76543,,654321]	;PRELOAD E WITH 076543,,654321
	TSNA	1,2			;*TSNA SHOULD SKIP
	STOP
	CAME	1,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	2,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSNA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;NEITHER AC NOR E ARE EFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654323
;HENCE, TSNA SHOULD SKIP THE NEXT INSTRUCTION AND
;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED

C70410:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	1,[76543,,654323]	;PRELOAD E WITH 076543,,654323
	TSNA	0,1			;*TSNA SHOULD SKIP
	STOP
	CAME	1,[76543,,654323]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL HITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
;BOTH HALVES SWAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076547,,654321
;HENCE, TSNN SHOULD SKIP THE NEXT INSTRUCTION AND
;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED

C70500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	0,[76547,,654321]	;PRELOAD E WITH 076547,,654321
	TSNN	17,0			;*TSNN SHOULD SKIP
	STOP
	CAME	17,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	0,[76547,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSNN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN C(E) WITH
;BOTH HALVES SWAPPED ARE ZERO.  NEITHER AC NOR E ARE AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSNN SHOULD NOT SKIP THE NEXT INSTRUCTION AND
;BOTH C(AC) AND C(E) SHOULD BE UNMODIFIED

C70510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	17,[76543,,654321]	;PRELOAD E WITH 076543,,654321
	TSNN	16,17			;*TSNN SHOULD NOT SKIP
	SKIPA				;PASS IF TSNN DID NOT SKIP
	STOP
	CAME	16,[123456,,701234]	;PASS IF C(AC) UNCHANGED
	STOP
	CAME	17,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TRZ CHANGES ALL BITS IN THE AC-RIGHT WHICH
;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701234

C70600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234]
	TRZ	12,3			;*TRZ SHOULD PLACE 123456,,701234 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TRZ DOES NOT SKIP
	STOP
	CAME	15,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TRZ CHANGES ALL BITS IN THE AC-RIGHT WHICH
;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701034

C70610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRZ	14,300			;*TRZ SHOULD PLACE 123456,,701234 INTO
					;THE ACAND NOT SKIP
	SKIPA				;PASS IF TRX DOES NOT SKIP
	STOP
	CAME	14,[123456,,701034]	;PASS IF C(AC)=123456,,701034
	STOP

;**********
;THIS TEST VERIFIES THAT TLZ CHANGES ALL BITS IN THE AC-LEFT WHICH
;CORRESPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
;IN THIS CACE, C(AC)=123456,,701234 AND E=300
;HENCE, THE RESULT IN THE AC SHOUL BE 123456,,701234

C70700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZ	13,300			;*TLZ SHOULD PLACE 123456,,701234 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TLZ DOES NOT SKIP
	STOP
	CAME	13,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLZ CHANGES ALL BITS IN THE AC-LEFT WHICH
;CORRSPOND TO 1'S IN E TO ZERO AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, THE RESULT IN THE AC SHOULD BE 123454,,701234

C70710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZ	12,3			;*TLZ SHOULD PLACE 123454,,701234 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TLZ DOES NOT SKIP
	STOP
	CAME	12,[123454,,701234]	;PASS IF C(AC)=123454,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TRZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TRZE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701234

C71000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRZE	11,3			;*TRZE SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	11,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TRZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRSPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TRZE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOUDL BE 123456,,701034

C71010:	MOVE	10,[123456,,701234]	;PRELOAD AC WIT@ 123456,,701234
	TRZE	10,300			;*TRZE SHOULD PLACE 123456,,701034 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TRZE DOES NOT SKIP
	STOP
	CAME	10,[123456,,701034]	;PASS IF C(AC)=123456,,701034
	STOP

;**********
;THIS TEST VERIFIES THAT TLZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLZE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701234

C71100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZE	7,300			;*TLZE SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	7,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TLZE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123454,,701234

C71110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZE	6,3			;*TLZE SHOULD PLACE 123454,,701234 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TLZE DOES NOT SKIP
	STOP
	CAME	6,[123454,,701234]	;PASS IF C(AC)=123454,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TRZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TRZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701234

C71200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRZA	5,3			;*TRZA SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	5,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TRZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TRZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701234.

C71210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRZA	4,300			;*TRZA SHOULD SKIP AND
					;PLACE 123456,,701034 INTO THE AC
	STOP
	CAME	4,[123456,,701034]	;PASS IF C(AC)=123456,,701034
	STOP

;**********
;THIS TEST VERIFIES THAT TLZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRQCTION
;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TLZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123454,,701234.

C71300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZA	3,3			;*TLZA SHOULD SKIP AND
					;PLACE 123454,,701234 INTO THE AC
	STOP
	CAME	3,[123454,,701234]	;PASS IF C(AC)=123454,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLZA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TLZA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701234.

C71310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZA	2,300			;*TLZA SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	2,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TRZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TRZN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701034.

C71400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRZN	1,300			;*TRZN SHOULD SKIP AND
					;PLACE 123456,,701034 INTO THE AC
	STOP
	CAME	1,[123456,,701034]	;PASS IF C(AC)=123456,,701034
	STOP

;**********

;THIS TEST VERIFIES THAT TRZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TRZN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701234.

C71410:	MOVE	0,[123456,,701234]	;PRELOAD AC WATH 123456,,701234
	TRZN	0,3			;*TRZN SHOULD PLACE 123456,,701234 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TRZN DOES NOT SKIP
	STOP
	CAME	0,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TLZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TLZN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123454,,701234.

C71500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZN	17,3			;TLZN SHOULD SKIP AND
					;PLACE 123454,,701234 INTO THE AC
	STOP
	CAME	17,[123454,,701234]	;PASS IF C(AC)=123454,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BIPS ARE THEN CHANGED TO ZEROS.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TLZN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701234.

C71510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLZN	16,300			;*TLZN SHOULD PLACE 123456,,701234 INTO
					;THE AC AND NOT SKIP
	SKIPA				;PASS IF TLZN DOES NOT SKIP
	STOP
	CAME	16,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TSZ CLEARS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
;NOT SKIP THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321.
;HENCE, TSZ SHOULD NOT SKIP AND C(AC) SHOULD BE 123456,,701234.

C71600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	16,[076543,,654321]	;PRELOAD E WITH 076543,,654321
	TSZ	15,16			;*TSZ SHOULD NOT SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	SKIPA				;PASS IF TSZ DID NOT SKIP
	STOP
	CAME	15,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP
	CAME	16,[76543,,654321]	;PASS IF C(E) UNCHANCED
	STOP

;**********

;THIS TEST VERIFIES THAT TSZ CLEARS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
;NOT SKIP THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070.
;HENCE, TSZ SHOULD NOT SKIP AND C(AC) SHOULD BE 020406,,501210.

C71610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	15,[252525,,707070]	;PRELOAD E WITH 252525,,707070
	TSZ	14,15			;*TSZ SHOULD NOT SKIP AND
					;PLACE 020406,,501210 INTO THE AC
	SKIPA				;PASS IF TSZ DID NOT SKIP
	STOP
	CAME	14,[020406,,501210]	;PASS IF C(AC)=020406,,501210
	STOP
	CAME	15,[252525,,707070]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E).
;AC BITS ARE THEN CHANGED TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543.
;HENCE, TDZE SHOULD SKIP AND THE RESULT IN THE AC
;SHOULD BE 123456,,701234.  C(E) IS NOT AFFECTED.

C71700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	14,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDZE	13,14			;*TDZE SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	13,[123456,,701234]	;PASS IF C(AC)=123456,,701234]
	STOP
	CAME	14,[654321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO. THESE MASKED
;AC BITS ARE THEN CHANGED TO ZERO.
;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 754321,,076543
;HENCE, TDZE SHOULD NOT SKIP AND THE RESULT IN AC
;SHOULD BE 023456,,701234 C(E) IS NOT AFFECTED

C71710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	13,[754321,,076543]	;PRELOAD E WITH 754321,,076543
	TDZE	12,13			;*TDZE SHOULD NOT SKIP AND
					;PLACE 023456,,701234 INTO THE AC
	SKIPA				;PASS IF TDZE DOES NOT SKIP
	STOP
	CAME	12,[023456,,701234]	;PASS IF C(AC)= 023456,,701234
	STOP
	CAME	13,[754321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRECPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ZERO.
;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 076543,,654321
;HENCE, TSZE SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE 123456,,701234 C(E) IS NOT AFFECTED

C72000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	12,[076543,,654321]	;PRELOAD E WITH 076543,,654321
	TSZE	11,12			;*TSZE SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	11,[123456,,701234]	;PASS IF C(AC)= 123456,,701234
	STOP
	CAME	12,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSZE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C (E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ZERO
;IN THIS CASE, C(AC)= 123456,,701234 AND C(E)= 076543,,657321
;HENCE, TSZE SHOULD NOT SKIP AND THE RESULT IN AC
;SHOULD BE 120456,,701234 C(E) IS NOT AFFECTED

C72010:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	11,[76543,,657321]	;PRELOAD E WITH 076543,,654321
	TSZE	10,11			;*TSZE SHOULD NOT SKIP AND
					;PLACE 120456,,701234 INTO THE AC
	SKIPA				;PASS IF TSZE DID NOT SKIP
	STOP
	CAME	10,[120456,,701234]	;PASS IF C(AC)= 120456,,701234
	STOP
	CAME	11,[76543,,657321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDZA CLEARS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) AND ALWAYS
;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)= 654321,,076543
;HENCE, TD2A SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 123456,,701234

C72100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	10,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDZA	7,10			;*TDZA SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	7,[123456,,701234]	;PASS IF C(AC)= 123456,,701234
	STOP
	CAME	10,[654321,,076543]	;PASS IF C(AC)=123456,,701234
	STOP
	CAME	10,[654321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDZA CLEARS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
;HENCE, TDZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 121052,,000204

C72110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	7,[252525,,707070]	;PRELOAD E WITH 252525,,707070
	TDZA	6,7			;*TDZA SHOULD SKIP AND
				;PLACE 121052,,000204 INTO THE AC
	STOP
	CAME	6,[121052,,000204]	;PASS IF C(AC)=121052,,000204
	STOP
	CAME	7,[252525,,707070]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES TH`T TSZA CLEARS AHL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
;SKIPS THE NEXT INSTRUCTION. C(E) IS NOT AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 123456,,701234

C72200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	6,[076543,,654321]	;PRELOAD E WITH 076543,,654321
	TSZA	5,6			;*TSZA SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	5,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP
	CAME	6,[076543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSZA CLEARS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456
;HENCE, TSZA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 0

C72210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	5,[701234,,123456]	;PRELOAD E WITH 701234,,123456
	TSZA	4,5			;*TSZA SHOULD SKIP AND
					;PLACE 0 INTO THE AC
	STOP
	CAME	4,[0]			;PASS IF C(AC)=0
	STOP
	CAME	5,[701234,,123456]	;PASS IF C(E) UNCHANGED
	SToP

;**********
;THIS TEST VERIFIES THAT TDZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGEDTO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547
;HENCE, TDZN SHOULD SKIP AND THE RESULT IN THE AC
;SHOULD BE 123456(,701230.  C(E) IS NOT AFFECTED.

C72300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	4,[654321,,76547]	;PRELOAD E WITH 654321,,076547
	TDZN	3,4			;*TDZN SHoULD SKIP AND
					;PLACE 123456,,701230 INTO THE AC
	STOP
	CAME	3,[123456,,701230]	;PASS IF C(AC)=123456,,701230
	STOP
	CAME	4,[654321,,076547]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
;HENCE, TDZN SHOULD NOT SKIP AND THE RESULT IN THE AC
;SHOULD BE 123456,,701234.  C(E) IS NOT AFFECTED.

C72310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	3,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDZN	2,3			;*TDZN SHOULD NOT SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	SKIPA				;PASS IF TDZN DOES NOT SKIP
	STOP
	CAME	2,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP
	CAME	3,[654321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THaT TSZN SKIPS THE NEXT SEQQENPIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321.
;HENCE, TSZN SHOULD SKIP AND THE RESULT IN THE AC
;SHOULD BE 123456,,700234.  C(E) IS NOT AFFECTED.

C72400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	2,[077543,,654321]	;PRELOAD E WITH 077543,,654321
	TSZN	1,2			;*TSZN SHOULD SKIP AND
					;PLACE 123456,,700234 INTO THE AC
	STOP
	CAME	1,[123456,,700234]	;PASS IF C(AC)=123456,,700234
	STOP
	CAME	2,[77543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSZN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ZERO.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321.-
;HENCE, TSZN SHOULD NOT SKIP AND THE RESULT IN THE AC
;SHOULD BE 123456,,701234.  C(E) IS NOT AFFECTED.

C72410:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	1,[76543,,654321]	;PRElOAD E WITH 076543,,654321
	TSZN	0,1			;*TSZN SHOULD NOT SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	SKIPA				;PASS IF TSZN DOES NOT SKIP
	STOP
	CAME	0,[123456,,701234]	;PASS IF C(AC)=123456,,701234]
	STOP
	CAME	1,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TRC COMPLEMENTS ALL BITS IN THE AC-RIGHT WHICH
;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, THE RESULT IN THE AC SHOUHD BE 123456,,701237

C72500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRC	17,3			;*TRC SHOULD NOT SKIP AND
					;PLACE 123456,,701237 INTO THE AC
	SKIPA				;PASS IF TRC DID NOT SKIP
	STOP
	CAME	17,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********

;THIS TEST VERIFIES THAT TRC COMPLEMENTS ALL BITS IN THE AC-RIGHT WHICH
;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701134

C72510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRC	16,300			;*TRC SHOULD NOT SKIP AND
					;PLACE 123456,,701134 INTO THE AC
	SKIPA				;PASS IF TRC DID NOT SKIP
	STOP
	CAME	16,[123456,,701134]	;PASS IF C(AC)=123456,,701134
	STOP

;**********
;THIS TEST VERIFIES THAT TLC COMPLEMENTS ALL BITS IN THE AC-LEFT WHICH
;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, ThE RESULT IN THE AC SHOULD BE 123756,,701234.

C72600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLC	15,300			;*TLC SHOULD NOT SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	SKIPA				;PASS IF TLC DID NOT SKIP
	STOP
	CAME	15,[123756,,701234]	;PASS IF A(AC)=123756,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLC COMPLEMENTS ALL BITS IN THE AC-LEFT WHICH
;CORRESPOND TO 1'S IN E AND DOES NOT SKIP.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, THE RESULT IN THE AC SHOULD BE 123455,,701234.

C72610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLC	14,3			;*TLC SHOULD NOT SKIP AND
					;PLACE 123455,,701234 INTO THE AC
	SKIPA				;PASS IF TLC DID NOT SKIP
	STOP
	CAME	14,[123455,,701234]	;PASS IF C(AC)=123455,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TRCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TRCE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701237.

C72700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRCE	13,3			;*TRCE SHOULD SKIP AND
					;PLACE 123456,,701237 INTO ThE AC
	STOP
	CAME	13,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********

;THIS TEST VERIFIES THAT TRCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TRCE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701134

C72710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRCE	12,300			;*TRCE SHOULD NOT SKIP AND
					;PLACE 123456,,701134 INTO THE AC
	SKIPA				;PASS IF TRCE DID NOT SKIP
	STOP
	CAME	12,[123456,,701134]	;PASS IF C(AC)=123456,,701134
	STOP

;**********
;THIS TEST VERIFIES THAT TLCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
;IN THIS CASE, C(AC)=123456,,701234 AND E=300.
;HENCE, TLCE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123756,,701234.

C73000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLCE	11,300			;*TLCE SHOULD SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	STOP
	CAME	11,[123756,,701234]	;PASS IF C(AC)=123756,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TLCE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123455,,701234.

C73010:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLCE	10,3			;*TLCE SHOULD NOT SKIP AND
					;PLACE 123455,,701234 INTO THE AC
	SKIPA				;PASS IF TLCE DID NOT SKIP
	STOP
	CAME	10,[123455,,701234]	;PASS IF C(AC)=123455,,701234]
	STOP

;**********
;THIS TEST VERIFIES THAT TRCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND COMPLEMENTS ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E.
;IN THIS CASE, C(AC)=123456,,701234 AND E=3.
;HENCE, TRCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701237.

C73100:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRCA	7,3			;*TRCA SHOULD SKIP AND
					;PLACE 123456,,701237 INTO THE AC
	STOP
	CAME	7,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********

;THIS TEST VERIFIES THAT TRCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND COMPLEMENTS ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TRCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701134

C73110:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRCA	6,300			;*TRCA SHOULD SKIP AND
					;PLACE 123456,,701134 INTO THE AC
	STOP
	CAME	6,[123456,,701134]	;PASS IF C(AC)=123456,,701134
	STOP

;**********
;THIS TEST VERIFIES THAT TLCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND COMPLEMENTS ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TLCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD 123456,,701234

C73200:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLCA	5,3			;*TLCA SHOULD SKIP AND
					;PLACE 12345,,701234 INTO THE AC
	STOP
	CAME	5,[123455,,701234]	;PASS IF C(AC)=123455,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLCA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND COMPLEMENTS ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLCA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123756,,701234

C73210:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLCA	4,300			;*TLCA SHOULD SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	STOP
	CAME	4,[123756,,701234]	;PASS IF C(AC)=123756,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TRCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TRCN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND RESULT IN THE AC SHOULD BE 123456,,701134

C73300:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRCN	3,300			;*SHOULD SKIP AND
					;PLACE 123456,,701134 INTO THE AC
	STOP
	CAME	3,[123456,,701134]	;PASS IF C(AC)=123456,,701134
	STOP

;**********

;THIS TEST VERIFIES THAT TRCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TRCN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701237

C73310:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRCN	2,3			;*TRCN SHOULD NOT SKIP AND
					;PLACE 123456,,701237 INTO THE AC
	SKIPA				;PASS IF TRCN DID NOT SKIP
	STOP
	CAME	2,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********
;THIS TEST VERIFIES THAT TLCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED
;IN THE CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TLCN SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701234

C73400:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLCN	1,3			;*TLCN SHOULD SKIP AND
					;PLACE 123455,701234 INTO THE AC
	STOP
	CAME	1,[123455,,701234]	;PASS IF C(AC)=123455,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZER.
;THESE MASKED AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLCN SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123756,,701234

C73410:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLCN	0,300			;*TLCN SHOULD NOT SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	SKIPA				;PASS IF TLCN DID NOT SKIP
	STOP
	CAME	0,[123756,,701234]	;PASS IF C(AC)=123756,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TSL COMPLEMENTS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
;NOT SKIP THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)6543,,654321
;HENCE, TSC SHOULD NOT SKIP AND C(AC) SHOULD BE -1,,-1

C73500:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	0,[076543,,654321]	;PRELOAD E WITH 076543,,654321
	TSC	17,0			;*TSC SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF TSC DOES NOT SKIP
	STOP
	CAME	17,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	0,[076543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSC COMPLEMENTS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND DOES
;NOT SKIP THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
;HENCE, TSC SHOULD NOT SKIP AND C(AC) SHOULD BE 624426,,553711

C73510:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	17,[252525,,707070]	;PRELOAD E WITH 252525,,707070
	TSC	16,17			;*TSC SHOULD NOT SKIP AND
					;PLACE 624426,,553711 INTO THE AC
	SKIPA				;PASS IF TSC DOES NOT SKIP
	STOP
	CAME	16,[624426,,553711]	;PASS IF C(AC)=624426,,553711
	STOP
	CAME	17,[252525,,707070]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
;HENCE, TDCE SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED

C73600:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	16,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDCE	15,16			;*TDCE SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	15,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	16,[654321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E) 754321,,076543
;HENCE, TDCE SHOULD NOT SKIP AND THE RESULT IN AC
;SHOULD BE 677777,,-1 C(E) IS NOT AFFECTED.

C73610:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	15,[754321,,076543]	;PRELOAD E WITH 754321,,076543
	TDCE	14,15			;*TDCE SHOULD NOT SKIP AND
					;PLACE 677777,,-1 INTO THE AC
	SKIPA				;PASS IF TDCE DOES NOT SKIP
	STOP
	CAME	14,[677777,,-1]		;PASS IF C(AC)=677777,,-1
	STOP
	CAME	15,[754321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSCE SHOULD SKIP AND THE RESULT IN THE AC
;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED

C73700:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	14,[76543,,654321]	;PRELOAD E WITH 076543,,654321
	TSCE	13,14			;*TSCE SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME 	13,[-1]			;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSCE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,701234 AND C(E)=076543,,657321
;HENCE, TSCE SHOULD NOT SKIP AND THE RESULT IN THE AC
;SHOULD BE 774777,,-1.  C(E) IS NOT AFFECTED.

C73710:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	13,[76543,,657321]	;PRELOAD E WITH 076543,,657321
	TSCE	12,13			;*TSCE HOULD NOT SKIP AND
					;PLACE 774777,,-1 INTO THE AC
	SKIPA				;PASS IF TSCE DOES NOT SKIP
	STOP
	CAME	12,[774777,,-1]		;PASS IF C(AC)=774777,,-1
	STOP
	CAME	13,[76543,,657321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDCA COMPLEMENTS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
;HENCE, TDCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1

C74000:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	12,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDCA	11,12			;*TDCA SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	11,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	12,[654321,,76543]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDCA COMPLEMENTS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) AND SLWAYS
;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
;HENCE, TDCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 371173,,006244

C74100:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	11,[252525,,707070]	;PRELOAD E WITH 252525,,707070
	TDCA	10,11			;*TDCA SHOULD SKP AND
					;PLACE 371173,,006244 INTO THE AC
	STOP
	CAME	10,[371173,,6244]	;PASS IF C(AC)=371173,,006244
	STOP
	CAME	11,[252525,,707070]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSCA COMPLEMENTS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1

C74200:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	10,[076543,,654321]	;PRELOAD E WITH 076543,,654321
	TSCA	7,10			;*TSCA CHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	7,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	10,[076543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSCA COMPLEMENTS ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456
;HENCE, TSCA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 0

C74210:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	7,[701234,,123456]	;PRELOAD E WITH 701234,,123456
	TSCA	6,7			;*TSCA SHOULD SKIP AND
					;PLACE 0 INTO THE AC
	STOP
	CAME	6,[0]			;PASS IF C(AC)=0
	STOP
	CAME	7,[701234,,123456]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THE CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547
;HENCE, TDCN SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,777773 C(E) IS NOT AFFECTED

C74300:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	6,[654321,,76547]	;PRELOAD E WITH 654321,,076547
	TDCN	5,6			;*TDCN SHOULD SKIP AND
					;PLACE -1,,777773 INTO THE AC
	STOP
	CAME	5,[-1,,777773]		;PASS IF C(AC)=-1,777773
	STOP
	CAME	6,[654321,,76547]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
;HENCE, TDCN SHOULD NOT SKIP AND THE REUSLT IN AC
;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED

C74310:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	5,[654321,,76543]	;PRELOAD E WITH 654321,,076543
	TDCN	4,5			;*TDCN SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF TDCN DOES NOT SKIP
	STOP
	CAME	4,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	5,[654321,,76543]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321
;HENCE, TSCN SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,776777.  C(E) IS NOT AFFECTED

C74400:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	4,[77543,,654321]	;PRELOAD E WITH 077543,,654321
	TSCN	3,4			;*TSCN SHOULD SKIP AND
					;PLACE -1,,776777 INTO THE AC
	STOP
	CAME	3,[-1,,776777]		;PASS IF C(AC)=-1,776777
	STOP
	CAME	4,[77543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSCN SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN COMPLEMENTD
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSCN SHOULD NOT SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1.  C(E) IS NOT AFFECTED.

C74410:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	3,[76543,,654321]	;PRELOAD E WITH 076543,,654321
	TSCN	2,3			;*TSCN SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF TSCN DOES NOT SKIP
	STOP
	CAME	2,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	3,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TRO CHANGES ALL BITS IN THE AC-RIGHT WHICH
;CORRESPOND TO 1'S IN E TO ONES AND DOES ANT SKIP
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701237

C74500:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRO	1,3			;*TRO SHOULD NOT SKIP AND
					;PLACE 123456,,701237 INTO THE AC
	SKIPA				;PASS IF TRO DID NOT SKIP
	STOP
	CAME	1,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********

;THIS TEST VERIFIES THAT TRO CHANGES ALL BITS IN THE AC-RIGHT WHICH
;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, THE RESULT IN THE AC SHOULD BE 123456,,701224

C74510:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRO	0,300			;*TRO SHOULD NOT SKIP AND
					;PLACE 123456,,701334 INTO THE AC
	SKIPA				;PASS IF TRO DID NOT SKIP
	STOP
	CAME	0,[123456,,701334]	;PASS IF C(AC)=123456,,701334
	STOP

;**********
;THIS TEST VERIFIES THAT TLO CHANGES ALL BITS IN THE AC-LEFT WHICH
;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, THE RESULT IN THE AC SHOULD BE 123756,,701234

C74600:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLO	17,300			;*TLO SHOULD NOT SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	SKIPA				;PASS IF TLO DID NOT SKIP
	STOP
	CAME	17,[123756,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;**********

;THIS TEST VERIFIES THAT TLO CHANGES ALL BITS IN THE AC-LEFT WHICH
;CORRESPOND TO 1'S IN E TO ONES AND DOES NOT SKIP
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, THE RESULT IN THE AC SHOULD BE 123457,,701234

C74610:	MOVE	16,[123456,,70234]	;PRELOAD AC WITH 123456,,701234
	TLO	16,3			;*TLO SHOULD NOT SKIP AND
					;PLACE 123457,,701234 INTO THE AC
	SKIPA				;PASS IF DID NOT SKIP
	STOP
	CAME	16,[123457,,70234]	;PASS IF C(AC)=123457,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TROE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TROE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND RESULT IN THE AC SHOUD BE 123456,,701237

C74700:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TROE	15,3			;TROE SHOULD SKIP AND
					;PLACE 123456,,701237 IN TO THE AC
	STOP
	CAME	15,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********

;THIS TEST VERIFIES THAT TROE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TROE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701334

C74710:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TROE	14,300			;*TROE SHOULD NOT SKIP AND
					;PLACE 123456,,701224 INTO THE AC
	SKIPA				;PASS IF DID NOT SKIP
	STOP
	CAME	14,[123456,,701334]	;PASS IF C(AC)=123456,,701334
	STOP

;**********
;THIS TEST VERIFIES THAT TLOE SKIPS THE NEXT SEQUENTIAL  INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE TEN CHANGED TO ONES
;IN THES CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLOE SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123756,,701234

C75000:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLOE	13,300			;*TLOE SOULD SKIP AND
					;PLAND 123756,,701234 INTO THE AC
	STOP
	CAME	13,[123756,,701234]	;PASS IF C(AC)=123456,,701234
	STOP

;********

;THIS TEST VERIFIES THAT TLOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN AC-LEFT CORRESPONDING  TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TLOE SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123457,,701234

C75010:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLOE	12,3			;*TLOE SHOULD NOT SKIP AND
					;PLACE 123457,,701234 INTO THE AC
	SKIPA				;PASS IF TLOE DID NOT SKIP
	STOP
	CAME	12,[123457,,701234]	;PASS IF C(AC)=123457,,701234
	STOP

;*******
;THIS TEST VERIFIES THAT TROA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTUCTION
;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TROA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701237

C75100:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TROA	11,3			;*TROA SHOULD SKIP AND
					;PLACE 123456,,701237
	STOP
	CAME	11,[123456,,701237]	;PASS IF C(AC)=123456,,701237
	STOP

;**********

;THIS TEST VERIFIES THAT TROA ALWAYS SKIPS THE NEXT SEQUENTAIL INSTRUCTION
;AND CHANGES ALL BITS IN AC-RIGHT WHICH CORRESPOND TO 1'S IN E TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TROA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123456,,701334

C75110:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TROA	10,300			;*TROA SHOULD SKIP AND
					;PLACE 123456,,701334 INTO THE AC
	STOP
	CAME	10,[123456,,701334]	;PASS IF C (AC)=123456,,701334
	STOP

;**********
;THIS TEST VERIFIES THAT TLOA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTUCTION
;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND 1'S IN E TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TLOA SHOULD SKIP THE NEXT INSTRUCTION AND RESULT IN
;THE AC SHOULD BE 123457,,701234

C75200:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLOA	7,3			;*TLOA SHOULD SKIP AND
					;PLACE 123457,,701234 INTO THE AC
	STOP
	CAME	7,[123457,,701234]	;PASS IF C(AC)=123457,,701234]
	STOP

;**********

;THIS TEST VERIFIES THAT TLOA ALWAYS SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;AND CHANGES ALL BITS IN AC-LEFT WHICH CORRESPOND TO 1'S IN E TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLOA SHOULD SKIP THE NEXT INSTRUCTION AND THE RESULT IN
;THE AC SHOULD BE 123756,,701234

C75210:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLOA	6,300			;*TLOA SHOULD SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	STOP
	CAME	6,[123756,,701234]	;PASS IF C(AC)=123756,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TRON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TRON SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701334

C75300:	MOVE	5,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRON	5,300			;*TRON SHOULD SKIP AND
					;PLACE 123456,,701334 INTO THE AC
	STOP
	CAME	5,[123456,,701334]	;PASS IF C(AC)=123456,,701334
	STOP

;**********

;THIS TEST VERIFIES THAT TRON SKIPS THE NEXT SEQUENTIAL INSTUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-RIGHT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=3
;HENCE, TRON SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123456,,701237

C75310:	MOVE	4,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TRON	4,3			;*TRON SHOULD NOT  SKIP AND
					;PLACE 123456,,701237 INTO THE AC
	SKIPA				;PASS IF TRON DID NOT SKIP
	STOP
	CAME	4,[123456,,701237]	;PASS IF C(AC)=123456,701237
	STOP

;**********
;THIS TEST VERIFIES THAT TLON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)-123456,,701234 AND E=3
;HENCE, TLON SHOULD SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123457,,701234

C75400:	MOVE	3,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLON	3,3			;*TLON SHOULD SKIP AND
					;PLACE 123457,,701234 INTO THE AC
	STOP
	CAME	3,[123457,,701234]	;PASS IF C(AC)=123457,,701234
	STOP

;*******

;THIS TEST VERIFIES THAT TLON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN AC-LEFT CORRESPONDING TO 1'S IN E ARE ZERO.
;THESE MASKED AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND E=300
;HENCE, TLON SHOULD NOT SKIP THE NEXT SEQUENTIAL INSTRUCTION
;AND THE RESULT IN THE AC SHOULD BE 123756,,701234

C75410:	MOVE	2,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	TLON	2,300			;*TLON SHOULD NOT SKIP AND
					;PLACE 123756,,701234 INTO THE AC
	SKIPA				;PASS IF TLON DID NOT SKIP
	STOP
	CAME	2,[123756,,701234]	;PASS IF C(AC)=123756,,701234
	STOP

;**********
;THIS TEST VERIFIES THAT TDOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E)ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
;HENCE, TDOE SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED

C75500:	MOVE	1,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	2,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDOE	1,2			;*TDOE SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	1,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	2,[654321,,76543]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDOE SKIPS THE NEXT SEQUENTAIL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=754321,,076543
;HENCE, TDOE SHOULD NOT SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1 C(E) IS NOT AFFECTD

C75510:	MOVE	0,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	1,[754321,,76543]	;PRELOAD E WITH 754321,,076543
	TDOE	0,1			;*TDOE SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF TDOE DOES NOT SKIP
	STOP
	CAME	0,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	1,[754321,,76543]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSOE SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1.  C(E) IS NOT AFFECTED

C75600:	MOVE	17,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	0,[76543,,654321]	;PRELOAD E WITH 076543,,654321
	TSOE	17,0			;*TSOE SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	17,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	0,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSOE SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN  CHANGED TO ONES.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,657321
;HENCE, TSOE SHOULD NOT SKIP AND THE RESULT IN THE AC
;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED.

C75610:	MOVE	16,[123456,,701234]	;PRELOAD AC WITH 123456,701234
	MOVE	17,[76543,,657321]	;PRELOAD E WITH 076543,,657321
	TSOE	16,17			;*TSOE SHOULD NOT SKIP AND
					;*TSOE SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF SKIP
	STOP
	CAME	16,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	17,[76543,,657321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDOA PLACES ONES INTO ALL BITS OF THE AC WHICH
;CORRRESPOND TO 1'S IN C(E) AND ALWAYS
;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)= 654321,,076543
;HENCE, TDOA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE -1,,-1

C75700:	MOVE	15,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	16,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDOA	15,16			;*TDOA SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	15,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	16,[654321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDOA PLACE ONES ALL BIT OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) AND ALWAYS
;SKIPS THE NEXT INSTRUCTION C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=252525,,707070
;HENCE, TDOA SHOULD ALWAYS SKIP AND C(AC) SHOULD BE 373577,,707274

C75710:	MOVE	14,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	15,[252525,,707070]	;PRELOAD E WITH 252525,,707070
	TDOA	14,15			;*TDOA SHOULD SKIP AND
					;PLACE 373577,707274 ONTO THE AC
	STOP
	CAME	14,[373577,,707274]	;PASS IF C(AC)=373577,,707274
	STOP
	CAME	15,[252525,,707070]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSOA PLACE ONES INTO ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSOA SHOULD SLAWAYS SKIP AND C(AC) SHOULD BE -1,,-1

C76000:	MOVE	13,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	14,[176543,,654321]	;PRELOAD E WITH 076543,,654321
	TSOA	13,14			;*TSOA SHOULD SKIP AND
					;PLACE -1,,-1 ONTO THE AC
	STOP
	CAME	13,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	14,[176543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSOA PLACES ONES INTO ALL BITS OF THE AC WHICH
;CORRESPOND TO 1'S IN C(E) WITH BOTH HALVES SWAPPED AND ALWAYS
;SKIPS THE NEXT INSTRUCTION.  C(E) IS NOT AFFECTED
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=701234,,123456
;HENCE, TSOA SHOULD SLWAYS SKIP AND C(AC) SHOULD BE 123456,,701234

C76010:	MOVE	12,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	13,[701234,,123456]	;PRELOAD E WITH 701234,123456
	TSOA	12,13			;*TSOA SHOULD SKIP AND
					;PLACE 123456,,701234 INTO THE AC
	STOP
	CAME	12,[123456,,701234]	;PASS IF C(AC)=123456,,701234
	STOP
	CAME	13,[701234,,123456]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TDON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076547
;HENCE, TDON SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED

C76100:	MOVE	11,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	12,[654321,,076547]	;PRELOAD E WITH 654321,,076547
	TDON	11,12			;*TDON SHOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	11,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	12,[654321,,076547]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TDON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=654321,,076543
;THENC, TDON SHOULD NOT SKIP AND THE RESULT IN TH AC
;SHOULD BE -1,,-1 C(E) IS NOT AFFECTED

C76110:	MOVE	10,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	11,[654321,,076543]	;PRELOAD E WITH 654321,,076543
	TDON	10,11			;*TDON SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF TDON DOES NOT SKIP
	STOP
	CAME	10,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	11,[654321,,076543]	;PASS IF C(E) UNCHANGED
	STOP

;**********
;THIS TEST VERIFIES THAT TSON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVE SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=077543,,654321
;HENCE, TSON SHOULD SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED

C76200:	MOVE	7,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	10,[77543,,654321]	;PRELOAD E WITH 077543,,654321]
	TSON	7,10			;*TSON HOULD SKIP AND
					;PLACE -1,,-1 INTO THE AC
	STOP
	CAME	7,[-1]			;PASS IF C(AC)=-1,,-1
	STOP
	CAME	10,[77543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********

;THIS TEST VERIFIES THAT TSON SKIPS THE NEXT SEQUENTIAL INSTRUCTION
;IF AND ONLY IF NOT ALL BITS IN THE AC CORRESPONDING TO 1'S IN
;C(E) WITH BOTH HALVES SWAPPED ARE ZERO.  THESE MASKED
;AC BITS ARE THEN CHANGED TO ONES.
;IN THIS CASE, C(AC)=123456,,701234 AND C(E)=076543,,654321
;HENCE, TSON SHOULD NOT SKIP AND THE RESULT IN AC
;SHOULD BE -1,,-1  C(E) IS NOT AFFECTED

C76210:	MOVE	6,[123456,,701234]	;PRELOAD AC WITH 123456,,701234
	MOVE	7,[76543,,654321]	;PRELOAD E WITH 076543MM654321
	TSON	6,7			;*TSON SHOULD NOT SKIP AND
					;PLACE -1,,-1 INTO THE AC
	SKIPA				;PASS IF TSON DOES NOT SKIP
	STOP
	CAME	6,[-1]			;PASS IF C(AC)-=1,,-1
	STOP
	CAME	7,[76543,,654321]	;PASS IF C(E) UNCHANGED
	STOP

;**********
	;JRST	BEGEND