Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0028/execl.313
There are 2 other files named execl.313 in the archive. Click here to see a list.
TITLE EXECL LOW SEGMENT DATA DEFINITIONS FOR EXEC AND C
	SUBTTL LARRY WADE/ THIS ASSEMBLY MADE WITH EXECL.313
	IFNDEF REENTR,<REENTR==1>
IFNDEF CCLSW,<CCLSW=1>
	INTERN PTSOUT,PTSIZE,PTIN,PTINBY,PTINSZ
	INTERNAL SNOFLG
INTERNAL	 CCLSW	;WILL CAUSE GLOBAL CONFLICT IF NOT ALL SAME
IFE CCLSW,<TEMPC==0>
IFNDEF TEMPC,<TEMPC==1>
	INTERNAL	 TEMPC
IFDEF REENTR,<
	INTERNAL	 TMPFLG,TMPFIL,JOBFFI,CMDBUF,CMDPNT,CMDCNT
	INTERNAL	 LSTFIL,SRCFIL
	INTERNAL	 AC00,AC01,AC02,AC03,AC05,AC06,AC07
	INTERNAL	 AC10,AC11,AC12,AC13,AC14,AC15,AC16,AC04
	INTERNAL	 XE,XE1,XE2,XE3
	INTERNAL	 TTOBUF,TTOPNT,TTOCNT
	INTERNAL	 PDPSET,CCLFLA
>
ZZ=0
	INTERN TSTNAM,OUTIT,PTS2,SNONAM
	INTERN PPPDP
	INTERN MSWIT
	INTERNAL TOTAVL,ICORE,NUMIOB,STCORE
	INTERN UNITS,DIGITS,NARGS,SVFN,SVNN,ARRAY0,TEMP,T2
	INTERN SVON,SV17N
	INTERN DMPFLG,UNFLAG,INIST%,ILIST%,BUFSPX,DATBUF
	INTERN PDSTCK,BUFIN,TXBUF,OFILBF,IFILBF

; THIS FLAG IS USED IN CONJUNCTION WITH THE REENTER COMMAND
; TO HOLD UP TRANSFERRING TO THE SYSTEM CUT ROUTINE UNTIL
; SOME IO SENSITIVE CODE IS COMPLETED

	INTERN LEX1CT,LEX2CT,LEX3CT,LEX4CT,LEX5CT,LEX6CT,LEX7CT
LEX1CT:	Z
LEX2CT:	Z
LEX3CT:	Z
LEX4CT:	Z
LEX5CT:	Z
LEX6CT:	Z
LEX7CT:	Z
	INTERN CUTFLG
CUTFLG=.+ZZ
	Z
SNOFLG=.+ZZ
	Z
DMPFLG=.+ZZ
	Z
UNFLAG=.+ZZ
	Z
INIST%=.+ZZ
	SIXBIT /SNOBOL/
	SIXBIT /INI/
	Z
	Z
ILIST%=.+ZZ
	Z
	Z
BUFSPX=.+ZZ
REPEAT 10,<Z>
DATBUF=.+ZZ
REPEAT 2,<Z>
PPPDP=.+ZZ
REPEAT 25,<Z>
PDPSET:	IOWD 10,.+1
PDSTCK=.+ZZ
REPEAT 30,<Z>
BUFIN=.+ZZ
REPEAT ^D27,<Z>
TXBUF=.+ZZ
REPEAT ^D27,<Z>
	INTERN TXBEND
TXBEND:	XWD 0,12345	;MAGIC VALUE TO CHECK FOR OVERRUN
OFILBF=.+ZZ
REPEAT 2,<Z>
IFILBF=.+ZZ
REPEAT 2,<Z>
UNITS=.+ZZ
	Z
DIGITS=.+ZZ
	Z
NARGS=.+ZZ
	Z
SVFN=NARGS
SVNN=.+ZZ
	Z
ARRAY0=.+ZZ
	Z
TEMP=.+ZZ
	Z
T2=.+ZZ
	Z
SVON=.+ZZ
REPEAT 3,<Z>
SV17N=.+ZZ
	Z
TOTAVL=.+ZZ
	Z
ICORE=.+ZZ
	Z
NUMIOB=.+ZZ
	EXP 4
STCORE=.+ZZ
	Z
MSWIT=.+ZZ
	Z
IFN CCLSW,<
	CCLFLA=.+ZZ
	Z
IFN TEMPC,<
TMPFLG=.+ZZ
	Z
TMPFIL=.+ZZ
REPEAT 2,<Z>
>>
JOBFFI=.+ZZ
	Z
CMDBUF=.+ZZ
	Z
CMDPNT=.+ZZ
	Z
CMDCNT=.+ZZ
	Z
LSTFIL:
REPEAT 4,<Z>
SRCFIL:
REPEAT 4,<Z>
AC00:	BLOCK 1
AC01:	BLOCK 1
AC02:	BLOCK 1
AC03:	BLOCK 1
AC04:	BLOCK 1
AC05:	BLOCK 1
AC06:	BLOCK 1
AC07:	BLOCK 1
AC10: BLOCK 1
AC11:	BLOCK 1
AC12:	BLOCK 1
AC13:	BLOCK 1
AC14:	BLOCK 1
AC15:	BLOCK 1
AC16:	BLOCK 1
XE:	BLOCK 1
XE1:	BLOCK 1
XE2:	BLOCK 1
XE3:	BLOCK 1
TTOBUF:	BLOCK 1
TTOPNT:	BLOCK 1
TTOCNT:	BLOCK 1
TSTNAM:	BLOCK 4
	INTERN IFFAIL
; FOLLOWING USED TO INDICATE FUNCTION FAILURE FOR 'IFILE'/'OFILE'
IFFAIL:	Z
	INTERN STRREF,VARPRT
STRREF:	Z	;COUNT OF NUMBER OF STRING REFERENCES
VARPRT:	Z	;SWITCH SET BY /V TO CONTROL PRINTING OF STRREF
OUTIT:	SLIST. 0,TXBUF
PTS2:	JUMP 0,^D27
	FIN.
	POPJ P,

	INTERN SYMNAM

SYMNAM:	SIXBIT /SNOBOL/
	SIXBIT /SYM/
	Z
	Z

SNONAM:	SIXBIT /SNOBOL/
	SIXBIT /INI/
	Z
	Z

PTSOUT:
PTIN:	EXP 0
	Z
PTINBY:	Z
PTSIZE:
PTINSZ:	Z

	INTERN PATCH
PATCH:	BLOCK 50

	INTERN STROUT,SAVDP.,LNGTH
STROUT:	Z
SAVDP.:	Z
LNGTH:	Z


	END