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