Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
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