Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dbkcem.mac
There are no other files named dbkcem.mac in the archive.
RENTR1:	DROPDV			;CLOSE LOGICAL OUTPUT FILE
	CALL	[SIXBIT .EXIT.]

PGMNAM:	ASCIZ	/
PDP-10 KI10 ADVANCED INSTRUCTION DIAGNOSTIC #5 (DBKCE)
(DOUBLE PRECISION DFAD, DFSB, DFMP, DFDV)
/

;INITIALIZE SUBROUTINES

START:	PGMINT
	MOVE	[ASCIZ/CE/]
	MOVEM	TLET		;INITIALIZE TEST LETTER

STARTA:	JRST	CE00		;GO PERFORM DIAGNOSTIC
SUBTTL CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS

	AC=4
CE00:	SAVEAC	(1,1)
	JRSTF	@[.+1]		;CLEAR ALL FLAGS

T=101
S100:	DFARP	T,201400,0,0,0,577400,0,0,0,200400,0,0,0

	XX=400
	ZZ=200400

	REPEAT	^D8,
<T=T+1
	XX=XX/2
	ZZ=ZZ-1000
	DFARP	T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0
>

	XX=1000000

	REPEAT	^D18,
<T=T+1
	XX=XX/2
	ZZ=ZZ-1000
	DFARP	T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0
>

	XX=400000

	REPEAT	^D17,
<T=T+1
	XX=XX/2
	ZZ=ZZ-1000
	DFARP	T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0
>

	XX=1000000

	REPEAT	^D18,
<T=T+1
	XX=XX/2
	ZZ=ZZ-1000
	DFARP	T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0
>
T=200
	XX=776777
	YY=577377
	ZZ=0

S200:	REPEAT	^D9,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	IFE	ZZ,<ZZ=-1>
DFARP	T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ
>

	XX=777776777777

	REPEAT	^D10,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	DFARP	T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ
>

	ZZ=-1

	REPEAT	^D8,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	DFARP	T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0
>
	XX=777777377777

	REPEAT	^D9,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	DFARP	T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0
>

	ZZ=-1

	REPEAT	^D8,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	DFARP	T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0
>

	XX=777776777777

	REPEAT	^D10,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	DFARP	T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0
>

	YY=YY-377
	ZZ=-1

	REPEAT	^D7,
<T=T+1
	XX=<XX-1>/2
	YY=YY+1000
	ZZ=ZZ+ZZ
	DFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0
>

T=T+1
	XX=<XX-1>/2
	ZZ=ZZ+ZZ
	DFARP	T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&777,0,0,0
SUBTTL	DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND

;CHECK THAT DFAD AC,E DOES NOT ALTER C(E) OR C(E+1)

S10100:	DMOVE	AC,[200777,,-1
		-1,,-1]
	DMOVE	AC+2,[200000,,0
		400000,,-1]
	DFAD	AC,AC+2
	CAME	AC+2,[200000,,0]
	ER5	AC+2,10101	;C(E) WAS ALTERED
	CAME	AC+3,[400000,,-1]
	ER6	AC+3,10101	;C(E+1) WAS ALTERED
	JUMPL	AC+4,S10100	;LOOP ON ERROR SWITCH

	DFA	102,600,0,0,0,400,0,0,0,1500,0,0,0

	DFA	103,377000,0,0,0,377600,0,0,0,377600,0,0,0

	DFA	104,600400,0,0,0,177400,0,0,0,0,0,0,0

	DFA	105,200400,0,0,0,205400,0,0,0,205410,0,0,0

	DFA	106,200400,0,0,0,205600,0,0,0,205610,0,0,0

	DFA	107,600,0,0,0,200400,0,0,0,200400,0,0,0

	DFA	110,200700,0,0,0,0,0,0,0,200700,0,0,0

	DFA	111,201400,0,0,0,200400,0,0,0,201600,0,0,0

	DFA	112,202400,0,0,0,200400,0,0,0,202500,0,0,0

	DFA	113,204400,0,0,0,200400,0,0,0,204420,0,0,0

	DFA	114,210400,0,0,0,200400,0,0,0,210401,0,0,0

	DFA	115,220400,0,0,0,200400,0,0,0,220400,2000,0,0

	DFA	116,240400,0,0,0,200400,0,0,0,240400,0,4000,0

	DFA	117,300400,0,0,0,200400,0,0,0,300400,0,0,0

	DFA	120,600400,0,0,0,600400,0,0,0,577400,0,0,0

	DFA	121,0,0,0,0,205400,0,0,0,205400,0,0,0

	DFA	122,200400,0,0,0,200400,0,0,0,201400,0,0,0

	DFA	123,577400,0,0,0,577400,0,0,0,576400,0,0,0

	DFA	124,205600,0,0,0,177400,0,0,0,205604,0,0,0
	DFA	125,201000,0,0,0,202000,0,0,0,0,0,0,0

	DFA	126,202000,0,0,0,204000,0,0,0,0,0,0,0

	DFA	127,204000,0,0,0,207000,0,0,0,0,0,0,0

	DFA	130,210000,0,0,0,214000,0,0,0,0,0,0,0

	DFA	131,220000,0,0,0,225000,0,0,0,0,0,0,0

	DFA	132,240000,0,0,0,246000,0,0,0,0,0,0,0

	DFA	133,300000,0,0,0,307000,0,0,0,0,0,0,0

	DFA	134,200000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	135,201000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	136,202000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	137,203000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	140,204000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	141,206000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	142,207000,0,0,0,600400,0,0,0,600400,0,0,0

	DFA	143,400200,0,0,0,377400,0,0,0,401400,0,0,0

	DFA	144,377400,0,0,0,400200,0,0,0,401400,0,0,0

	DFA	145,200400,0,0,0,600400,0,0,0,177400,0,0,0

	DFA	146,200600,0,0,0,201400,0,0,0,201700,0,0,0

	DFA	147,577600,0,0,0,200400,0,0,0,177400,0,0,0

	DFA	150,600400,0,0,0,577200,0,0,0,576400,0,0,0

	DFA	151,576400,0,0,0,200400,0,0,0,577400,0,0,0

	DFA	152,200440,0,0,0,200400,0,0,0,201420,0,0,0

	DFA	153,577400,0,0,0,577400,0,0,0,576400,0,0,0

	DFA	154,200400,77,0,0,206400,0,0,0,206404,0,374000,0

	DFA	155,30400,3,0,0,32400,0,0,0,32500,0,300000,0

	DFA	156,200400,1,0,0,201600,0,0,0,202400,0,100000,0

	DFA	157,577400,3,0,0,202400,0,0,0,201600,1,200000,0

	DFA	160,200400,3,0,0,202400,0,0,0,202500,0,300000,0

	DFA	161,200400,-1,0,0,202400,0,0,0,202500,177777,300000,0

	DFA	162,200200,1,0,0,200200,1,0,0,200400,2,0,0

	DFA	163,200200,2,0,0,200200,2,0,0,200400,4,0,0

	DFA	164,200200,4,0,0,200200,4,0,0,200400,10,0,0

	DFA	165,200200,10,0,0,200200,10,0,0,200400,20,0,0

	DFA	166,200200,20,0,0,200200,20,0,0,200400,40,0,0

	DFA	167,200200,40,0,0,200200,40,0,0,200400,100,0,0

	DFA	170,200200,100,0,0,200200,100,0,0,200400,200,0,0

	DFA	171,200200,200,0,0,200200,200,0,0,200400,400,0,0

	DFA	172,200200,400,0,0,200200,400,0,0,200400,1000,0,0

	DFA	173,200200,1000,0,0,200200,1000,0,0,200400,2000,0,0

	DFA	174,172400,0,0,0,201400,0,0,0,201402,0,0,0

	DFA	175,173400,0,0,0,201400,0,0,0,201404,0,0,0

	DFA	176,174400,0,0,0,201400,0,0,0,201410,0,0,0

	DFA	177,175400,0,0,0,201400,0,0,0,201420,0,0,0

	DFA	200,176400,0,0,0,201400,0,0,0,201440,0,0,0

	DFA	201,177400,0,0,0,201400,0,0,0,201500,0,0,0

	DFA	202,202600,0,0,0,200400,0,0,0,202700,0,0,0

	DFA	203,400,0,0,0,200400,0,0,0,200400,0,0,0

	DFA	204,400,0,0,0,201400,0,0,0,201400,0,0,0

	DFA	205,400,0,0,0,202400,0,0,0,202400,0,0,0

	DFA	206,200000,0,0,0,201000,0,0,0,0,0,0,0

	DFA	207,200000,0,0,0,202000,0,0,0,0,0,0,0

	DFA	210,200000,0,0,0,203000,0,0,0,0,0,0,0

	DFA	211,200400,0,0,0,200400,0,0,0,201400,0,0,0

	DFA	212,201400,0,0,0,201400,0,0,0,202400,0,0,0

	DFA	213,202400,0,0,0,202400,0,0,0,203400,0,0,0

	DFA	214,200100,0,0,0,200100,0,0,0,177400,0,0,0

	DFA	215,200040,0,0,0,200040,0,0,0,176400,0,0,0

	DFA	216,200020,0,0,0,200020,0,0,0,175400,0,0,0

	DFA	217,577400,0,0,0,576400,0,0,0,576200,0,0,0

	DFA	220,600400,0,0,0,576400,0,0,0,576300,0,0,0

	DFA	221,601400,0,0,0,576400,0,0,0,576340,0,0,0

	DFA	222,576400,0,0,0,577400,0,0,0,576200,0,0,0

	DFA	223,576400,0,0,0,600400,0,0,0,576300,0,0,0

	DFA	224,576400,0,0,0,601400,0,0,0,576340,0,0,0

	DFA	225,577400,0,0,0,577400,0,0,0,576400,0,0,0

	DFA	226,601400,0,0,0,601400,0,0,0,600400,0,0,0

	DFA	227,201400,0,0,0,577400,0,0,0,200400,0,0,0

	DFA	230,201400,0,0,0,600400,0,0,0,200600,0,0,0

	DFA	231,201400,0,0,0,601400,0,0,0,200700,0,0,0

	DFA	232,200000,0,0,0,200000,1,0,0,146400,0,0,0

	DFA	233,200000,0,0,0,200000,2,0,0,147400,0,0,0

	DFA	234,200000,0,0,0,200000,4,0,0,150400,0,0,0

	DFA	235,200000,0,0,0,200000,10,0,0,151400,0,0,0

	DFA	236,200000,0,0,0,200000,20,0,0,152400,0,0,0

	DFA	237,200000,0,0,0,200000,40,0,0,153400,0,0,0

	DFA	240,200000,0,0,0,200000,100,0,0,154400,0,0,0

	DFA	241,200000,0,0,0,200000,200,0,0,155400,0,0,0

	DFA	242,200000,0,0,0,200000,400,0,0,156400,0,0,0

	DFA	243,200000,0,0,0,200000,1000,0,0,157400,0,0,0

	DFA	244,200000,0,0,0,200000,2000,0,0,160400,0,0,0

	DFA	245,200000,0,0,0,200000,4000,0,0,161400,0,0,0
	DFA	246,200000,0,0,0,200000,10000,0,0,162400,0,0,0

	DFA	247,200000,0,0,0,200000,20000,0,0,163400,0,0,0

	DFA	250,200000,0,0,0,200000,40000,0,0,164400,0,0,0

	DFA	251,200000,0,0,0,200000,100000,0,0,165400,0,0,0

	DFA	252,200000,0,0,0,200000,200000,0,0,166400,0,0,0

	DFA	253,200000,0,0,0,200000,400000,0,0,167400,0,0,0

	DFA	254,200000,0,0,0,200001,0,0,0,170400,0,0,0

	DFA	255,200000,0,0,0,200002,0,0,0,171400,0,0,0

	DFA	256,200000,0,0,0,200004,0,0,0,172400,0,0,0

	DFA	257,200000,0,0,0,200010,0,0,0,173400,0,0,0

	DFA	260,200000,0,0,0,200020,0,0,0,174400,0,0,0

	DFA	261,200000,0,0,0,200040,0,0,0,175400,0,0,0

	DFA	262,200000,0,0,0,200100,0,0,0,176400,0,0,0

	DFA	263,377400,0,0,0,377400,0,0,0,400,0,0,0

	DFA	264,777700,0,0,0,777700,0,0,0,400400,0,0,0

	DFA	265,200000,0,0,0,200777,-1,0,0,200777,-1,0,0

	DFA	266,200000,1,0,0,201400,0,0,0,201400,0,200000,0

	DFA	267,200000,2,0,0,202400,0,0,0,202400,0,200000,0

	DFA	270,200000,4,0,0,203400,0,0,0,203400,0,200000,0

	DFA	271,200000,10,0,0,204400,0,0,0,204400,0,200000,0

	DFA	272,200000,20,0,0,205400,0,0,0,205400,0,200000,0

	DFA	273,200000,40,0,0,206400,0,0,0,206400,0,200000,0

	DFA	274,200000,100,0,0,207400,0,0,0,207400,0,200000,0

	DFA	275,200000,200,0,0,210400,0,0,0,210400,0,200000,0

	DFA	276,200000,400,0,0,211400,0,0,0,211400,0,200000,0

	DFA	277,200000,1000,0,0,212400,0,0,0,212400,0,200000,0

	DFA	300,200000,2000,0,0,213400,0,0,0,213400,0,200000,0

	DFA	301,200000,4000,0,0,214400,0,0,0,214400,0,200000,0
	DFA	302,200000,10000,0,0,215400,0,0,0,215400,0,200000,0

	DFA	303,200000,20000,0,0,216400,0,0,0,216400,0,200000,0

	DFA	304,200000,40000,0,0,217400,0,0,0,217400,0,200000,0

	DFA	305,200000,100000,0,0,220400,0,0,0,220400,0,200000,0

	DFA	306,200000,200000,0,0,221400,0,0,0,221400,0,200000,0

	DFA	307,200000,400000,0,0,222400,0,0,0,222400,0,200000,0

	DFA	310,200001,0,0,0,223400,0,0,0,223400,0,200000,0

	DFA	311,200002,0,0,0,224400,0,0,0,224400,0,200000,0

	DFA	312,200004,0,0,0,225400,0,0,0,225400,0,200000,0

	DFA	313,200010,0,0,0,226400,0,0,0,226400,0,200000,0

	DFA	314,200020,0,0,0,227400,0,0,0,227400,0,200000,0

	DFA	315,200040,0,0,0,230400,0,0,0,230400,0,200000,0

	DFA	316,200100,0,0,0,231400,0,0,0,231400,0,200000,0

	DFA	317,200200,0,0,0,232400,0,0,0,232400,0,200000,0

	DFA	320,200400,0,0,0,233400,0,0,0,233400,0,200000,0

	DFA	321,200400,0,0,0,200400,1,0,0,201400,0,200000,0

	DFA	322,200400,0,0,0,201400,0,0,0,201600,0,0,0

	DFA	323,200000,3,0,0,202400,0,0,0,202400,0,300000,0

	DFA	324,200000,5,0,0,203400,0,0,0,203400,0,240000,0

	DFA	325,200000,11,0,0,204400,0,0,0,204400,0,220000,0

	DFA	326,200000,21,0,0,205400,0,0,0,205400,0,210000,0

	DFA	327,200000,41,0,0,206400,0,0,0,206400,0,204000,0

	DFA	330,200000,101,0,0,207400,0,0,0,207400,0,202000,0

	DFA	331,200000,201,0,0,210400,0,0,0,210400,0,201000,0

	DFA	332,200000,401,0,0,211400,0,0,0,211400,0,200400,0

	DFA	333,200000,1001,0,0,212400,0,0,0,212400,0,200200,0

	DFA	334,200000,2001,0,0,213400,0,0,0,213400,0,200100,0
	DFA	335,200000,4001,0,0,214400,0,0,0,214400,0,200040,0

	DFA	336,200000,10001,0,0,215400,0,0,0,215400,0,200020,0

	DFA	337,200000,20001,0,0,216400,0,0,0,216400,0,200010,0

	DFA	340,200000,40001,0,0,217400,0,0,0,217400,0,200004,0

	DFA	341,200000,100001,0,0,220400,0,0,0,220400,0,200002,0

	DFA	342,200000,200001,0,0,221400,0,0,0,221400,0,200001,0

	DFA	343,200000,400001,0,0,222400,0,0,0,222400,0,200000,400000
;TEST AROV, FOV AND FXU FLAGS - DFAD

	AC=4
	SAVEAC	(1,1)

S34400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
		    0,,0]
	DFAD	AC,[376777,,-1
		    -1,,-2]	;EXPECT AROV, FOV, FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,34401	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,34401	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,34401	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,34401	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,34401	;FXU WAS SET
	JUMPL	AC+4,S34400	;LOOP ON ERROR SWITCH

S34500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
		    0,,0]
	DFAD	AC,[377400,,0
		    0,,0]	;EXPECT AROV, FOV, FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,34501	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,34501	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,34501	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,34501	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,34501	;FXU WAS SET
	JUMPL	AC+4,S34500	;LOOP ON ERROR SWITCH
S34600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[200,,0
		    0,,0]
	DFAD	AC,[200,,0
		    0,,0]	;EXPECT AROV, FOV, FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,34601	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,34601	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,34601	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,34601	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,34601	;FXU WAS SET
	JUMPL	AC+4,S34600	;LOOP ON ERROR SWITCH

S34700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[200,,0
		    0,,0]
	DFAD	AC,[177,,-1
		    -1,,-1]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,34701	;C(AC) FAILED
	CAME	AC+1,[377777,,-2]
	ER4	AC+1,34701	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,34701	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,34701	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,34701	;FXU WAS CLEAR
	JUMPL	AC+4,S34700	;LOOP ON ERROR SWITCH
S35000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[400400,,0
		    0,,0]
	DFAD	AC,[401000,,0
		    0,,2]	;EXPECT AROV, FOV, FXU = 0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400000,,0]
	ER3	AC,35001	;C(AC) FAILED
	CAME	AC+1,[0,,1]
	ER4	AC+1,35001	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,35001	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,35001	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,35001	;FXU WAS SET
	JUMPL	AC+4,S35000	;LOOP ON ERROR SWITCH

S35100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[400400,,0
		    0,,0]
	DFAD	AC,[400400,,0
		    0,,0]	;EXPECT AROV, FOV, FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[777400,,0]
	ER3	AC,35101	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,35101	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,35101	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,35101	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,35101	;FXU WAS SET
	JUMPL	AC+4,S35100	;LOOP ON ERROR SWITCH
S35200:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777600,,0
		    0,,0]
	DFAD	AC,[777600,,0
		    0,,0]	;EXPECT AROV,FOV,FXV=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[777400,,0]
	ER3	AC,35201	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,35201	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,35201	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,35201	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,35201	;FXU WAS SET
	JUMPL	AC+4,S35200	;LOOP ON ERROR SWITCH

S35300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777600,,0
		    0,,0]
	DFAD	AC,[777600,,0
		    0,,1]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400000,,0]
	ER3	AC,35301	;C(AC) FAILED
	CAME	AC+1,[0,,2]
	ER4	AC+1,35301	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,35301	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,35301	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,35301	;FXU WAS CLEAR
	JUMPL	AC+4,S35300	;LOOP ON ERROR SWITCH
SUBTTL	DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND

	AC=4
	SAVEAC	(1,1)
	JRSTF	@[.+1]		;CLEAR ALL FLAGS

;CHECK THAT DFSB AC,E DOES NOT ALTER C(E) OR C(E+1)
S40100:	DMOVE	AC,[200777,,-1
		-1,,-1]
	DMOVE	AC+2,[200000,,0
		400000,,-1]
	DFSB	AC,AC+2
	CAME	AC+2,[200000,,0]
	ER5	AC+2,40101	;C(E) WAS ALTERED
	CAME	AC+3,[400000,,-1]
	ER6	AC+3,40101	;C(E+1) WAS ALTERED
	JUMPL	AC+4,S40100	;LOOP ON ERROR SWITCH

	DFS	402,205400,0,0,0,177400,0,0,0,204770,0,0,0

	DFS	403,200400,0,0,0,177400,0,0,0,177400,0,0,0

	DFS	404,200400,0,0,0,200400,0,0,0,0,0,0,0

	DFS	405,201400,0,0,0,177400,0,0,0,200600,0,0,0

	DFS	406,576400,0,0,0,600400,0,0,0,577200,0,0,0

	DFS	407,201400,0,0,0,577400,0,0,0,201600,0,0,0

	DFS	410,203400,0,0,0,200477,777775,0,0,202660,0,300000,0
;TEST AROV, FOV AND FXU FLAGS - DFSB

	AC=4
	SAVEAC	(1,1)

S41100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
		    0,,0]
	DFSB	AC,[400400,,0
		    0,,1]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,41101	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,41101	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,41101	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,41101	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,41101	;FXU WAS SET
	JUMPL	AC+4,S41100	;LOOP ON ERROR SWITCH

S41200:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
		    0,,0]
	DFSB	AC,[400400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,41201	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,41201	;C(AC+1)FAILED
	JOV	.+2
	ER13	AC-1,41201	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,41201	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,41201	;FXU WAS SET
	JUMPL	AC+4,S41200	;LOOP ON ERROR SWITCH
S41300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777,,-1
		    -1,,-1]
	DFSB	AC,[377,,-1
		    -1,,-1]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,41301	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,41301	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,41301	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,41301	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,41301	;FXU WAS SET
	JUMPL	AC+4,S41300	;LOOP ON ERROR SWITCH

S41400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777,,-1
		    -1,,-1]
	DFSB	AC,[400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,41401	;C(AC) FAILED
	CAME	AC+1,[377777,,-2]
	ER4	AC+1,41401	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,41401	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,41401	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,41401	;FXU WAS CLEAR
	JUMPL	AC+4,S41400	;LOOP ON ERROR SWITCH
S41500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[400400,,0
		    0,,0]
	DFSB	AC,[377377,,-1
		    -1,,-1]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400000,,0]
	ER3	AC,41501	;C(AC) FAILED
	CAME	AC+1,[0,,1]
	ER4	AC+1,41501	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,41501	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,41501	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,41501	;FXU WAS SET
	JUMPL	AC+4,S41500	;LOOP ON ERROR SWITCH

S41600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[400400,,0
		    0,,0]
	DFSB	AC,[377400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[777400,,0]
	ER3	AC,41601	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,41601	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,41601	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,41601	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,41601	;FXU WAS SET
	JUMPL	AC+4,S41600	;LOOP ON ERROR SWITCH
S41700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777000,,0
		    0,,0]
	DFSB	AC,[777400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[777400,,0]
	ER3	AC,41701	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,41701	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,41701	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,41701	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,41701	;FXU WAS SET
	JUMPL	AC+4,S41700	;LOOP ON ERROR SWITCH

S42000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777000,,0
		    0,,1]
	DFSB	AC,[777400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400000,,0]
	ER3	AC,42001	;C(AC) FAILED
	CAME	AC+1,[0,,2]
	ER4	AC+1,42001	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,42001	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,42001	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,42001	;FXU WAS CLEAR
	JUMPL	AC+4,S42000	;LOOP ON ERROR SWITCH
SUBTTL	DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND

	AC=4
	SAVEAC	(1,1)
	JRSTF	@[.+1]		;CLEAR ALL FLAGS

;CHECK THAT DFMP AC,E DOES NOT ALTER C(E) OR C(E+1)
S50100:	DMOVE	AC,[200777,,-1
		-1,,-1]
	DMOVE	AC+2,[201400,,0
		400000,,-1]
	DFMP	AC,AC+2
	CAME	AC+2,[201400,,0]
	ER5	AC+2,50101	;C(E) WAS ALTERED
	CAME	AC+3,[400000,,-1]
	ER6	AC+3,50101	;C(E+1) WAS ALTERED
	JUMPL	AC+4,S50100	;LOOP ON ERROR SWITCH

	DFM	502,200400,0,0,0,0,0,0,0,0,0,0,0

	DFM	503,200400,0,0,0,200400,0,0,0,177400,0,0,0

	DFM	504,400,0,0,0,400,0,0,0,177400,0,0,0

	DFM	505,200400,0,0,0,400,0,0,0,377400,0,0,0

	DFM	506,177400,0,0,0,400,0,0,0,376400,0,0,0

	DFM	507,377400,0,0,0,400,0,0,0,176400,0,0,0

	DFM	510,577400,0,0,0,400,0,0,0,400400,0,0,0

	DFM	511,400,0,0,0,200400,0,0,0,377400,0,0,0

	DFM	512,200400,0,0,0,577400,0,0,0,600400,0,0,0

	DFM	513,200400,0,0,0,205400,0,0,0,204400,0,0,0

	DFM	514,0,0,0,0,577400,0,0,0,0,0,0,0

	DFM	515,200400,0,0,0,201400,0,0,0,200400,0,0,0

	DFM	516,200400,0,0,0,202400,0,0,0,201400,0,0,0

	DFM	517,200400,0,0,0,204400,0,0,0,203400,0,0,0

	DFM	520,200400,0,0,0,210400,0,0,0,207400,0,0,0

	DFM	521,200400,0,0,0,220400,0,0,0,217400,0,0,0

	DFM	522,200400,0,0,0,240400,0,0,0,237400,0,0,0

	DFM	523,200400,0,0,0,300400,0,0,0,277400,0,0,0

	DFM	524,201400,0,0,0,200400,0,0,0,200400,0,0,0

	DFM	525,202400,0,0,0,200400,0,0,0,201400,0,0,0

	DFM	526,204400,0,0,0,200400,0,0,0,203400,0,0,0

	DFM	527,210400,0,0,0,200400,0,0,0,207400,0,0,0

	DFM	530,220400,0,0,0,200400,0,0,0,217400,0,0,0

	DFM	531,240400,0,0,0,200400,0,0,0,237400,0,0,0

	DFM	532,300400,0,0,0,200400,0,0,0,277400,0,0,0

	DFM	533,200400,0,0,0,576400,0,0,0,577400,0,0,0

	DFM	534,200400,0,0,0,575400,0,0,0,576400,0,0,0

	DFM	535,200777,-1,0,0,200400,0,0,0,177777,-1,0,0

	DFM	536,200777,-2,0,0,200400,0,0,0,177777,-2,0,0

	DFM	537,200777,-3,0,0,200400,0,0,0,177777,-3,0,0

	DFM	540,200777,-4,0,0,200400,0,0,0,177777,-4,0,0

	DFM	541,0,0,0,0,200400,0,0,0,0,0,0,0

	DFM	542,577400,0,0,0,200400,0,0,0,600400,0,0,0

	DFMKL	543,501700,0,0,0,500400,0,0,0,374100,0,0,0,372400,0,0,0

	DFMKL	544,502700,0,0,0,500400,0,0,0,373100,0,0,0,371400,0,0,0

	DFMKL	545,503700,0,0,0,500400,0,0,0,372100,0,0,0,370400,0,0,0

	DFMKL	546,504700,0,0,0,500400,0,0,0,371100,0,0,0,367400,0,0,0

	DFMKL	547,505700,0,0,0,500400,0,0,0,370100,0,0,0,366400,0,0,0

	DFMKL	550,200200,0,0,0,200400,0,0,0,177200,0,0,0,176400,0,0,0

	DFMKL	551,200100,0,0,0,200400,0,0,0,177100,0,0,0,175400,0,0,0

	DFMKL	552,200040,0,0,0,200400,0,0,0,177040,0,0,0,174400,0,0,0

	DFMKL	553,200020,0,0,0,200400,0,0,0,177020,0,0,0,173400,0,0,0

	DFMKL	554,200010,0,0,0,200400,0,0,0,177010,0,0,0,172400,0,0,0

	DFMKL	555,200004,0,0,0,200400,0,0,0,177004,0,0,0,171400,0,0,0

	DFMKL	556,200002,0,0,0,200400,0,0,0,177002,0,0,0,170400,0,0,0

	DFMKL	557,500700,0,0,0,200400,0,0,0,501700,0,0,0,503400,0,0,0
	DFMKL	560,500770,0,0,0,200400,0,0,0,501770,0,0,0,506400,0,0,0

	DFM	561,200775,0,0,0,200775,0,0,0,200772,11000,0,0

	DFM	562,200774,0,0,0,200774,0,0,0,200770,20000,0,0

	DFM	563,200773,0,0,0,200773,0,0,0,200766,31000,0,0

	DFM	564,177477,0,0,0,200700,0,0,0,177427,100000,0,0

	DFM	565,200777,-1,0,0,200777,-1,0,0,200777,-2,0,400

	DFM	566,200777,-2,0,0,200777,-1,0,0,200777,-3,0,1000

	DFM	567,200777,-3,0,0,200777,-1,0,0,200777,-4,0,1400

	DFM	570,200777,-4,0,0,200777,-1,0,0,200777,-5,0,2000

	DFM	571,200777,-5,0,0,200777,-1,0,0,200777,-6,0,2400

	DFM	572,500000,-1,0,0,200777,0,0,0,500001,776777,400,0

	DFM	573,500000,777770,0,0,200777,0,0,0,500001,776770,4000,0

	DFM	574,500000,-1,0,0,500000,-1,0,0,376776,1001,377000,400

	DFM	575,500000,-2,0,0,500000,-2,0,0,376776,1003,376000,2000

	DFMKL	576,200777,-1,0,0,200000,2,0,0,177000,3,377777,776000,146777,-1,0,0

	DFM	577,200700,0,0,0,200400,77,0,0,177700,156,100000,0

	DFM	600,200700,0,0,0,200400,76,0,0,177700,154,200000,0

	DFM	601,200700,0,0,0,200400,75,0,0,177700,152,300000,0

	DFM	602,577400,0,0,0,600400,0,0,0,176400,0,0,0

	DFM	603,600400,77,0,0,177660,0,0,0,602120,152,120000,0

	DFM	604,600400,76,0,0,177600,0,0,0,602200,135,0,0

	DFM	605,600400,0,0,0,576400,0,0,0,177400,0,0,0

	DFM	606,600400,0,0,0,575400,0,0,0,200400,0,0,0

	DFM	607,400000,1,0,0,201400,0,0,0,400000,1,0,0
;TEST AROV, FOV AND FXU FLAGS - DFMP

	AC=4
	SAVEAC	(1,1)

S61000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
		    0,,0]
	DFMP	AC,[201777,,-1
		    -1,,-1]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,61001	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,61001	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,61001	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,61001	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,61001	;FXU WAS SET
	JUMPL	AC+4,S61000	;LOOP ON ERROR SWITCH

S61100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
		    0,,0]
	DFMP	AC,[202400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,61101	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,61101	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,61101	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,61101	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,61101	;FXU WAS SET
	JUMPL	AC+4,S61100	;LOOP ON ERROR SWITCH
S61200:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[1400,,0
		    0,,0]
	DFMP	AC,[200400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,61201	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,61201	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,61201	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,61201	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,61201	;FXU WAS SET
	JUMPL	AC+4,S61200	;LOOP ON ERROR SWITCH

S61300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777,,-1
		    -1,,-1]
	DFMP	AC,[200400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,61301	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,61301	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,61301	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,61301	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,61301	;FXU WAS CLEAR
	JUMPL	AC+4,S61300	;LOOP ON ERROR SWITCH
S61400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[400400,,0
		    0,,0]
	DFMP	AC,[576000,,00
		    0,,1]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,61401	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,61401	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,61401	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,61401	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,61401	;FXU WAS SET
	JUMPL	AC+4,S61400	;LOOP ON ERROR SWITCH

S61500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[400400,,0
		    0,,0]
	DFMP	AC,[575400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,61501	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,61501	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,61501	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,61501	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,61501	;FXU WAS SET
	JUMPL	AC+4,S61500	;LOOP ON ERROR SWITCH
S61600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[776400,,0
		    0,,0]
	DFMP	AC,[577400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,61601	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,61601	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,61601	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,61601	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,61601	;FXU WAS SET
	JUMPL	AC+4,S61600	;LOOP ON ERROR SWITCH

S61700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777000,,0
		    0,,1]
	DFMP	AC,[577400,,0
		    0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,61701		;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,61701	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,61701	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,61701	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,61701	;FXU WAS CLEAR
	JUMPL	AC+4,S61700	;LOOP ON ERROR SWITCH
SUBTTL	DFDV TEST-DOUBLE FLOATING POINT DIVIDE

	AC=4
	SAVEAC	(1,1)
	JRSTF	@[.+1]		;CLEAR ALL FLAGS

;CHECK THAT DFDV AC,E DOES NOT ALTER C(E) OR C(E+1)
S70100:	DMOVE	AC,[200777,,-1
		-1,,-1]
	DMOVE	AC+2,[200400,,0
		400000,,-1]
	DFDV	AC,AC+2
	CAME	AC+2,[200400,,0]
	ER5	AC+2,70101	;C(E) WAS ALTERED
	CAME	AC+3,[400000,,-1]
	ER6	AC+3,70101	;C(E+1) WAS ALTERED
	JUMPL	AC+4,S70100	;LOOP ON ERROR SWITCH

	DFD	702,200400,0,0,0,200400,0,0,0,201400,0,0,0

	DFD	703,201400,0,0,0,201400,0,0,0,201400,0,0,0

	DFD	704,202400,0,0,0,202400,0,0,0,201400,0,0,0

	DFD	705,201400,0,0,0,200400,0,0,0,202400,0,0,0

	DFD	706,202400,0,0,0,202400,0,0,0,201400,0,0,0

	DFD	707,203400,0,0,0,200400,0,0,0,204400,0,0,0

	DFD	710,200600,0,0,0,200400,0,0,0,201600,0,0,0

	DFD	711,200700,0,0,0,200400,0,0,0,201700,0,0,0

	DFD	712,200740,0,0,0,200400,0,0,0,201740,0,0,0

	DFD	713,200400,0,0,0,577400,0,0,0,576400,0,0,0

	DFD	714,200600,0,0,0,577400,0,0,0,576200,0,0,0

	DFD	715,177400,0,0,0,204400,0,0,0,174400,0,0,0

	DFDKL	716,576400,0,0,0,200600,0,0,0,576252,525252,252525,252526,576252,525252,252525,252525

	DFD	717,600600,0,0,0,577400,0,0,0,177400,0,0,0

	DFD	720,600400,0,0,0,577400,0,0,0,200400,0,0,0

	DFDKL	721,377400,-1,0,0,577400,-1,0,0,777375,773771,373773,776005,777375,773771,373773,776004

	DFD	722,201400,0,0,0,0,0,0,0,201400,0,0,0

	DFD	723,377400,0,0,0,400,0,0,0,200400,0,0,0

	DFD	724,577775,0,0,0,577777,0,0,0,577775,0,0,0

	DFD	725,577774,0,0,0,577777,0,0,0,577774,0,0,0
	DFDKL	726,210777,-1,0,0,170750,0,0,0,221414,456123,150726,20622,221414,456123,150726,20623

	DFD	727,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146

	DFD	730,577000,555555,0,0,200400,0,0,0,576000,555555,0,0

	DFD	731,210777,-1,-1,-1,170555,0,0,0,221547,63715,200263,431746

	DFDKL	732,210777,-3,0,0,170555,0,0,0,221547,63713,145545,545545,221547,63713,145545,545546

	DFD	733,377400,0,555000,0,100777,0,0,0,77400,400400,355355,355355

	DFDKL	734,373400,0,200777,0,100777,0,0,0,73400,400401,1400,400400,73400,400401,1400,400401

	DFD	735,200777,-1,0,0,200777,-2,0,0,201400,0,200000,400

	DFD	736,200777,-1,0,0,200777,-4,0,0,201400,1,200000,3000

	DFD	737,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146

	DFDKL	741,210777,-1,0,0,170555,600000,0,0,221546,272702,301417,730633,221546,272702,301417,730634

	DFDKL	742,210777,-1,0,0,170557,0,0,0,221545,111740,234200,262444,221545,111740,234200,262445

	DFD	743,210777,-1,0,0,170560,0,0,0,221544,131025,220544,131026

	DFD	744,377400,0,0,0,100777,0,0,0,77400,400400,200200,200200

	DFD	745,376400,0,0,0,100777,0,0,0,76400,400400,200200,200200

	DFD	746,375400,0,0,0,100777,0,0,0,75400,400400,200200,200200

	DFD	747,374400,0,0,0,100777,0,0,0,74400,400400,200200,200200

	DFD	750,373400,0,0,0,100777,0,0,0,73400,400400,200200,200200

	DFD	751,372400,0,0,0,100777,0,0,0,72400,400400,200200,200200

	DFD	752,210777,0,0,0,210777,0,0,0,201400,0,0,0

	DFD	753,200400,0,0,0,210777,0,0,0,170400,400400,200200,200200

	DFD	754,371400,0,0,0,100777,0,0,0,71400,400400,200200,200200

	DFD	755,370400,0,0,0,100777,0,0,0,070400,400400,200200,200200

	DFD	756,367400,0,0,0,100777,0,0,0,67400,400400,200200,200200
;TEST AROV, FOV AND FXU FLAGS-DFDV

	AC=4
	SAVEAC	(1,1)

S75700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[376777,,-1
			-1,,-1]
	DFDV	AC,[200400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,75701	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,75701	;C(AC+1)FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,75701	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,75701	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,75701	;FXU WAS SET
	JUMPL	AC+4,S75700	;LOOP ON ERROR SWITCH

S76000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
			0,,0]
	DFDV	AC,[200400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,76001	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,76001	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,76001	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,76001	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,76001	;FXU WAS SET
	JUMPL	AC+4,S76000	;LOOP ON ERROR SWITCH
S76100:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[1400,,0
			0,,0]
	DFDV	AC,[202400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400,,0]
	ER3	AC,76101	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,76101	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,76101	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,76101	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,76101	;FXU WAS SET
	JUMPL	AC+4,S76100	;LOOP ON ERROR SWITCH

S76200:JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777,,-1
			-1,,-1]
	DFDV	AC,[202400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[377777,,-1]
	ER3	AC,76201	;C(AC) FAILED
	CAME	AC+1,[377777,,-1]
	ER4	AC+1,76201	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,76201	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,76201	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,76201	;FXU WAS CLEAR
	JUMPL	AC+4,S76200	;LOOP ON ERROR SWITCH
S76300:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[376777,,-1
			-1,,-1]
	DFDV	AC,[577400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400000,,0]
	ER3	AC,76301	;C(AC) FAILED
	CAME	AC+1,[0,,1]
	ER4	AC+1,76301	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,76301	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,76301	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,76301	;FXU WAS SET
	JUMPL	AC+4,S76300	;LOOP ON ERROR SWITCH

S76400:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[377400,,0
			0,,0]
	DFDV	AC,[777400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=1,1,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[577400,,0]
	ER3	AC,76401	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,76401	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,76401	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,76401	;FOV WAS CLEAR
	TLNE	AC-1,FXU
	ER13	AC-1,76401	;FXU WAS SET
	JUMPL	AC+4,S76400	;LOOP ON ERROR SWITCH
S76500:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[1400,,0
			0,,0]
	DFDV	AC,[575400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=0,0,0
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[777400,,0]
	ER3	AC,76501	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,76501	;C(AC+1) FAILED
	JOV	.+2
	JRST	.+2
	ER13	AC-1,76501	;AROV WAS SET
	JFOV	.+2
	JRST	.+2
	ER13	AC-1,76501	;FOV WAS SET
	TLNE	AC-1,FXU
	ER13	AC-1,76501	;FXU WAS SET
	JUMPL	AC+4,S76500	;LOOP ON ERROR SWITCH

S76600:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[777,,-1
			-1,,-1]
	DFDV	AC,[575400,,0
			0,,0]	;EXPECT AROV,FOV,FXU=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[400000,,0]
	ER3	AC,76601	;C(AC) FAILED
	CAME	AC+1,[0,,1]
	ER4	AC+1,76601	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,76601	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,76601	;FOV WAS CLEAR
	TLNN	AC-1,FXU
	ER13	AC-1,76601	;FXU WAS CLEAR
	JUMPL	AC+4,S76600	;LOOP ON ERROR SWITCH
;TEST AROV,FOV AND DCK FLAGS-DFDV

S76700:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[201400,,0
			0,,0]
	DFDV	AC,[0,,0
			0,,0]	;EXPECT AROV,FOV,DCK=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[201400,,0]
	ER3	AC,76701	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,76701	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,76701	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,76701	;FOV WAS CLEAR
	TLNN	AC-1,DCK
	ER13	AC-1,76701	;DCK WAS CLEAR
	JUMPL	AC+4,S76700	;LOOP ON ERROR SWITCH

;TEST AROV,FOV AND DCK FLAGS-DFDV

S77000:	JRSTF	@[.+1]		;CLEAR ALL FLAGS
	DMOVE	AC,[201400,,0
			0,,0]
	DFDV	AC,[201200,,0
			0,,0]	;EXPECT AROV,FOV,DCK=1,1,1
	JSP	AC-1,.+1	;SAVE FLAGS
	CAME	AC,[201400,,0]
	ER3	AC,77001	;C(AC) FAILED
	CAME	AC+1,[0,,0]
	ER4	AC+1,77001	;C(AC+1) FAILED
	JOV	.+2
	ER13	AC-1,77001	;AROV WAS CLEAR
	JFOV	.+2
	ER13	AC-1,77001	;FOV WAS CLEAR
	TLNN	AC-1,DCK
	ER13	AC-1,77001	;DCK WAS CLEAR
	JUMPL	AC+4,S77000	;LOOP ON ERROR SWITCH

	JRST	BEGEND