Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_ap115_bb-ju01b-bb - algser.c12
There are 13 other files named algser.c12 in the archive. Click here to see a list.
 REP 27/10	;12C1
	    FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
 WIT
	    BEGIN						;[364]
	    ;..SET TEMPCODE BUFFER TO EMPTY			;[364]
	    ;INDEX_TCBASE;					;[364]
	    ;HANDLE_770000,TCBASE;				;[364]
					MOVE	T3,TCBASE	;[364]
					MOVEM	T3,INDEX	;[364]
					HRLI	T3,770000	;[364]
					MOVEM	T3,HANDLE	;[364]
	    FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
	    ENDD						;[364]
 REP 41/12	;12C2
	    FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
 WIT
	  BEGIN							;[364]
	  ;..SET TEMPCODE BUFFER TO EMPTY			;[364]
	  ;INDEX_TCBASE;					;[364]
	  ;HANDLE_770000,TCBASE;				;[364]
					MOVE	T1,TCBASE	;[364]
					MOVEM	T1,INDEX	;[364]
					HRLI	T1,770000	;[364]
					MOVEM	T1,HANDLE	;[364]
	  FAIL(83,FRIED,DEL,TEMPCODE OVERFLOW) ;[350]
	  ENDD							;[364]
 SUM 61859