Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/comp/sp.mac
There is 1 other file named sp.mac in the archive. Click here to see a list.
COMMENT;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
AUTHOR: CLAES WIHLBORG
VERSION: 3A [11,13,144]
PURPOSE: PERFORM MAIN SCAN OF PASS 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SEARCH SIMMC1,SIMMAC
SALL
CTITLE SP (SYNTAX PARSER)
INTERN SP
INTERN SPDCIN ;[144]
EXTERN T1,SRPROG,LS,LC,YLCLB
EXTERN I1SRCH ;[13]
EXTERN O1XRCL,O1SCCL,O1LSCL,O1ICCL
EXTERN YMAXID,YMAXFX,.JBREL,DC1
EXTERN YC1DC,YDPD,YBSTP,YDLV,YSDENL
IFG QDEBUG,< EXTERN P1INIT>
IFG QTRACE,< EXTERN YTRPAS,YTRACC>
MACINIT
TWOSEG
RELOC 400000
SP:
;INITIALIZATIONS
;MODULE SH
L [IOWD QZSELE-QNSYSID+1,QLOWID+QNSYSID]
ST YMAXID
;MODULE SR
LI QFTFX
ST YMAXFX
;MODULE SD
LI X1,YDPD
SETON ZHSRFL(X1)
SKIPN YC1DC ;[144]
EXEC SPDCIN ;[144]
LI YDPD
ST YBSTP
HRROI -2
ST YDLV
MOVSI 1,-6
LOOP
L [XWD 0,1
XWD 0,2
XWD 0,3
XWD 4-QSTLL/3-QSTLL,0
XWD 4-QSTLL,4
XWD 0,0](1)
ST YSDENL(1)
AS
AOBJN 1,TRUE
SA
LI 2
SF ,ZHSOBL(,YDPD)
;MODULE P1DUMP
IFG QDEBUG,< EXEC P1INIT >
EXEC I1SRCH ;[13] Set up standard search list for externals
;MAKE CURRENT CONTAIN FIRST SYMBOL
L X1LBP,[POINT 7,YLCLB]
CLEAR X1BYTE
EXEC LC
IBP X1LBP
EXEC LS
EXEC LS
;PERFORM SYNTAX RECOGNIZING
EXEC SRPROG
;CLOSE FILES
EXEC O1SCCL
EXEC O1XRCL
EXEC O1LSCL
EXEC O1ICCL
;TERMINATE PASS 1
BRANCH T1
SUBTTL SPDCIN ;[144]
Comment;
Initialize DC1 area if not yet done.
;
SPDCIN: PROC
HRRZ .JBREL
IFG QTRACE,<
IFON YTRSW
HRRZI YTRACC-1
>
SUBI DC1
MOVN
HRLZ
ADDI DC1
ST YC1DC
;[11] ZERO YC1DC AREA
SETZM DC1
L X0,[DC1,,DC1+1]
L X1,.JBREL
BLT X0,-1(X1)
RETURN
EPROC
LIT
END