Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 22/1	;05C1
	;[1416] 68274 Generate warning if size of literal and data item not the same.
	;[1404] If LITTAB is expanded, update byte pointer to literal.
	;[1374] Check coll. seq. when generating high-values
	;[1353] If literal generated by call to LITD. too large, FERROR set to force 
	;		exit
	;[1351] STORE READ .. INTO OPERANDS IN A FIXED LOCATION - AVOID LINK FAILURES
 REP 3/21	;05C2
	IFGN9:	MOVEI	LN,EBASEB
 WIT
	IFGN9:				;[1416]
	IFN FT68274,<			;[1416]
		MOVEI	DW,E.765	;[1416] SET UP WARNING MESSAGE
		MOVE	TA,ESIZEA	;[1416] GET SIZE OF OPERATOR
		TSWT	FBNUM		;[1416] NUMERIC LITERAL ?
		CAMN	TA,ESIZEB	;[1416]   OR SIZE EQUAL ?
		SKIPA			;[1416] YES
		PUSHJ	PP,OPNWRN##	;[1416] NO, GENERATE WARNING
	>				;[1416]
		MOVEI	LN,EBASEB	;[1416]
 INS 16/33	;05C3
		HRRZ	TA,EBASEB	;[1404] SET UP ETABLB AGAIN
		PUSHJ	PP,LNKSET	;[1404]  INCASE THE TABLES EXPANDED
		HRRM	TA,EBYTEB	;[1404]
 INS 51/33	;05C4
		TSWF	FERROR		;[1353] LITERAL TOO LARGE
		POPJ	PP,		;[1353]
 REP 7/39	;05C5
		HRRZI	TC,2(TA)	;TC POINTS TO INTO ITEM
		HRRZI	TA,0(TA)	;TA POINTS TO RECORD ITEM
		MOVEM	TC,CUREOP	;SETUP CUREOP THE WAY MOVGN. LIKES
		PUSHJ	PP,MOVGN.	;GENERATE THE MOVE CODE
 WIT
		HRLI	TB,0(TA)	;[1351] MOVE HLDTAB ENTRY
		HRRI	TB,EINTO##	;[1351]  TO A FIXED LOCATION 
		MOVEI	TC,EINTO	;[1351]  BECAUSE TABLE EXPANSION
		ADDI	TC,OPNSIZ+OPNMAX;[1351]  IS CLOBBERING CUREOP'S PTR
		BLT	TB,-1(TC)	;[1351] 
		MOVEI	TA,EINTO	;[1351] TA POINTS TO RECORD ITEM
		MOVEI	TC,2(TA)	;[1351] TC POINTS TO INTO ITEM
		MOVEM	TC,CUREOP	;[1351] SETUP CUREOP THE WAY MOVGN. LIKES IT
	;[1351]	HRRZI	TC,2(TA)	;TC POINTS TO INTO ITEM
	;[1351]	HRRZI	TA,0(TA)	;TA POINTS TO RECORD ITEM
	;[1351]	MOVEM	TC,CUREOP	;SETUP CUREOP THE WAY MOVGN. LIKES
		PUSHJ	PP,MOVGN.	;GENERATE THE MOVE CODE
		SETZM	EINTO		;[1351] RESET EINTO
 INS 27/51	;05C6
	IFN ANS74,<
		SKIPL	TD,COLSEQ	;[1374] WAS ASCII OR EBCDIC COLL SEQ DECLARED?
		JRST	IFHIVA		;[1374] NO, CONT
		TRNE	TD,%AN.EB	;[1374] YES, WAS IT EBCDIC?
		MOVEI	TE,D9MODE	;[1374] YES, CHANGE MODE OF HIGH-VAL TO EBCDIC
	IFHIVA:				;[1374]
	>
 SUM 257888