Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/algcon.c05
There are 15 other files named algcon.c05 in the archive. Click here to see a list.
 REP 3/1	;05C1
	;COPYRIGHT (C) 1975,1981,1982 BY
 WIT
	;COPYRIGHT (C) 1975,1982,1983 BY
 REP 10/83	;05C2
		SKIPE	LMSGS		; [273] DUMP 1ST GROUP OF MESSAGES, UNLESS DONE
		JRST	LMSGZ2
 WIT
		SETZM	LMSGS		; [314] SETUP FOR FIRST PASS OF ERROR MESSAGES
 REP 4/109	;05C3
			JRST	COMNT1]		; [273] AND PARSE COMMENT
 WIT
			JRST	COMNT0]		; [314] [273] AND PARSE COMMENT
 REP 5/137	;05C4
	;          !-----------------!    WORD 1  BIT  0:     DYNAMIC
	;          !        !        !                 BITS 1-2:   KIND
	;  WORD-0  ! BL/PL  !  LINK  !                 BITS 3-8:   TYPE
	;          !        !        !                 BITS 9-11:  STATUS
	;          !--------!--------!                 BIT  12:    1=DECLARED
	;          !        !        !                 BITS 13-17: NUMBER OF ACTUALS
	;  WORD-1  ! LEXEME !  VALUE ! 
	;          !        !        !
	;          !-----------------!    WORD 0  BIT  0:     1=EXTENDED ENTRY
	;          !                 !                 BIT  1:     1=MESSAGE GIVEN
	;  WORD-2  !      NAME       !                 BIT  2:     (NOT USED)
	;                                              BITS 3-11:  BLOCK LEVEL
	;          !                 !                 BITS 12-17: PROCEDURE LEVEL
	;          !                 !
	;          !-----------------!
	;          !                 !
	;          ! EXTENSION WORD1 !
	;          !                 !
	;          !-----------------!    NOTE:  THE EXTENSION WORDS ARE OPTIONAL
	;          !                 !
	;          ! EXTENSION WORD2 !
	;          !                 !
	;          !-----------------!
 WIT
	;	-----------------		WORD 0:	BIT  0:     1=EXTENDED ENTRY
	;	!	!	!			BIT  1:     1=MESSAGE GIVEN
	;WORD 0	! BL/PL	! LINK	!			BIT  2:     NOT USED
	;	!	!	!			BITS 3-11:  BLOCK LEVEL
	;	!-------!-------!			BITS 12-17: PROCEDURE LEVEL
	;	!	!	!			BITS 18-35: HASH TABLE LINK
	;WORD 1	!LEXEME	! VALUE ! 
	;	!	!	!		WORD 1:	BIT  0:     DYNAMIC
	;	!---------------!			BITS 1-2:   KIND
	;	!	   !	!			BITS 3-8:   TYPE
	;WORD 2 !   NAME   ! CC	!			BITS 9-11:  STATUS
	;	!	   !	!			BIT  12:    1=DECLARED
	;	!---------------!			BITS 13-17: NUMBER OF ACTUALS
	;	!		!			BITS 18-35: LOC. IN OBJECT CODE
	;	!  NAME (CONT.)	!
	;	!		!		WORD 2:	BITS 0-28:  NAME IN REVERSE
	;	!---------------!				    CHOPPED ASCII
	;	.		.			BITS 29-35: NAME LENGTH -1 IN
	;	.		.				    6 BIT BYTES
	;	.		.
	;	!---------------!
	;	!		!
	;	!  NAME (END)	!
	;	!		!
	;	!---------------!
	;	!		!
	;	!EXTENSION WORD !	<= EXTENDED ENTRIES ONLY (1B0 SET IN WORD 0)
	;	!      ONE	!
	;	!---------------!
	;	!		!
	;	!EXTENSION WORD !	<= EXTENDED ENTRIES ONLY (1B0 SET IN WORD 0)
	;	!      TWO	!
	;	-----------------
 REP 16/139	;05C5
		MOVEI	A3,SYMNAM(A3)	; ADDRES OF NAME FIELD
 WIT
		MOVEI	A3,SYMNAM(A3)	; ADDRESS OF NAME FIELD
 REP 12/180	;05C6
		PUSHJ	SP,NAME		; EXTRACT FROM SYMBOL TABLE ENTRY THE ASCIZ NAME
 WIT
		PUSHJ	SP,NAME		; EXTRACT ASCIZ NAME FROM SYMBOL TABLE ENTRY
 REP 21/181	;05C7
	;--------------------------------------------------------
 WIT
	;--------------------------------------------------------
 REP 19/189	;05C8
		GLOB RA;		;RELATIVE ADDRESS OF NEXT INSTRUCTION PLACED IN 
 WIT
		GLOB RA;		;RELATIVE ADDRESS OF NEXT INSTRUCTION PLACED IN
 SUM 215076