Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/matgen.c13
There are 2 other files named matgen.c13 in the archive. Click here to see a list.
 REP 11/1	;13C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1986 BY DIGITAL EQUIPMENT CORPORATION
 INS 26/1	;13C2
	;MJC	10-Jan-86	[1623] ADD 1 TO .. GIVING .. does not load 1 in AC

	;V13 RELEASED
 REP 29/3	;13C3
	ADTGGN:	SETZM	RESTYP		;FORCE RESULT TO "MOVEM"
 WIT
	ADTGGN:	MOVE	TC,RESTYP	;[1623]GET RESTYP LEFT BY ADD
		CAIGE	TC,3		;[1623]AOS OR SOS?
		JRST	ADTGG1		;[1623]NO - OK
		MOVE	CH,RESTYP	;[1623]YES - "A" MUST HAVE BEEN 1/-1
		CAIE	CH,3		;[1623]CAN'T USE AOS OR SOS WITH 'GIVING'
		SKIPA	CH,[MOVNI.,,1]	;[1623]PUT NEG 1 IN AN AC IF SOS
		MOVE	CH,[MOVEI.,,1]	;[1623] OR PLUS 1 IF AOS 
		PUSHJ	PP,PUT.XA	;[1623]GET 1 INTO ACCS
		SWOFF	FALWY0		;[1623]ACCS NOT ZERO NOW
		MOVEI	TE,D1MODE	;[1623]
		MOVEM	TE,EMODEA	;[1623]SET MODE OF A
		MOVEI	TE,1		;[1623]
		MOVEM	TE,ESIZEA	;[1623]AND SIZE
	ADTGG1:	SETZM	RESTYP		;[1623]FORCE RESULT TO "MOVEM"
 SUM 115645