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

 REP 1/1	;14C1
	TITLE MACRO %53B(1242)	3-Aug-83
	SUBTTL EDIT BY MCHC/JBC/EGM/MFB/PY

	;COPYRIGHT (C) 1968, 1983 BY
 WIT
	TITLE MACRO %53B(1244)	13-NOV-85
	SUBTTL EDIT BY MCHC/JBC/EGM/MFB/PY/HD

	;COPYRIGHT (C) 1968, 1985 BY
 REP 24/1	;14C2
		VEDIT==1242		;EDIT NUMBER
 WIT
		VEDIT==1244		;EDIT NUMBER
 INS 552/3	;14C3
	;1243	HD	22-Feb-85	SPR 10-35085
	;	IOWD constant,external will go polish on pass 2, therefore don't
	;	fold it in if it is in a litteral, during pass 1.

	;1244	HD	13-Nov-85	SPR 20-20963
	;	Flag LOC value greater than 18 bits as an error.

 DEL 37/8	;14C4
	DEFINE COPYRIGHT,<ASCIZ .COPYRIGHT > 

 DEL 50/8	;14C5


	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1968,1984.


 INS 20/107	;14C6
	;**; insert 2 lines at %ORG+16 	13-Nov-85	HD
		CAIN C,','		;[1244] IS NEXT CHARACTER A COMMA?
		TRO ER,ERRR!ERRN	;[1244] YES, FLAG AS ERROR
 REP 17/126	;14C7
	IOWD12:	SKIPE RC		;[730] ABSOLUTE?
		JUMP2 [	SKIPN INANGL	;[730] NO, MUST BE REL OR EXT
			JUMPN AC0,.+1	;[730] JUMP IF ADDITIVE GLOBAL NOT IN <>
			CAIN RC,1	;[730] JUMP IF
			JRST .+1	;[730]  RELOCATABLE
			SETZM EXTPNT	;[730] EXTERNAL
			JRST IOWDRP]	;[730] GO DO RH-1
 WIT
	IOWD12:
		JUMPE RC,IOWD13		;[1243] ABSOLUTE?
		JUMP2 [	SKIPN INANGL	;[730] NO, MUST BE REL OR EXT
			JUMPN AC0,IOWD13 ;[1243] JUMP IF ADDITIVE GLOBAL NOT IN <>
			CAIN RC,1	;[730] JUMP IF
			JRST IOWD13	;[1243]  RELOCATABLE
			SETZM EXTPNT	;[730] EXTERNAL
			JRST IOWDRP]	;[730] GO DO RH-1
		JUMP1 [ CAIN RC,1	;[1243] CHECK FOR RELOCATABLE
			JRST IOWD13	;[1243] YES
			SKIPE LITLVL	;[1243] IN A LITERAL?
			 TRO ER,ERRF	;[1243] YES - DON'T FOLD IN PASS 1
			JRST IOWD13 ]	;[1243]
	IOWD13:				;[1243]
 SUM 128217