Google
 

Trailing-Edge - PDP-10 Archives - BB-5471C-BM_1982 - algol-sources/algstb.mac
There are 8 other files named algstb.mac in the archive. Click here to see a list.
;
;
;COPYRIGHT (C) 1975,1981,1982 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;
;
; WRITTEN BY K. NIST, C.M.U./ EDITED BY R. M. DE MORGAN

	SEARCH ALGPRM		; MAIN PARAMETER FILE

	IF1,<	.DIRECTIVE .OKOVL>
	SALL

%TITLE(ALGSTB,ALGOL COMPILER INITIAL SYMBOL TABLE)

	TWOSEG

	RELOC 400000

	MLON
SUBTTL BLOCK0 MODULE



;	THIS MODULE CONTAINS BLOCK0, WHICH IS THE INITIAL SYMBOL TABLE,
;	AND WHICH CONTAINS THE ENTRIES FOR THE LIBRARY PROCEDURES.  BLOCK 0
;	IS IN A DIFFERENT PART OF THE LOW SEGMENT FROM THE REST OF THE
;	SYMBOL TABLE, BUT IS PROPERLY LINKED IN WITH THE OTHER SO THAT
;	ONE CANNOT REALLY TELL THE DIFFERENCE.
;
;	THE MACRO "LIB" HAS BEEN PROVIDED TO SIMPLIFY PLACING THE ENTRIES IN
;	BLOCK 0.  ITS PARAMETERS ARE:
;
;
;	PARAMETER 1: (ALIAS1)	THE ALIAS NUMBER OF THE ROUTINE (WITHOUT THE
;				%-SIGN).
;
;
;	PARAMETER 2: (ALIAS2)	THE ALIAS NUMBER OF THE 2ND ENTRY POINT IF
;				THERE IS ONE (ALSO WITHOUT THE %-SIGN).
;				WHEN THERE IS NO 2ND ENTRY POINT, THIS
;				PARAMETER MUST BE DEFAULTED.
;
;
;	PARAMETER 3: (TYPE)	THE PROCEDURE TYPE, SPECIFIED AS:
;				    I  - INTEGER
;				    R  - REAL
;				    L  - LONG REAL
;				    BO - BOOLEAN
;				    ST - STRING
;				    N  - NON-TYPE
;
;
;	PARAMETER 4: (ACT)	THE NUMBER OF ACTUAL PARAMETERS.  IF THERE
;				CAN BE A VARIABLE NUMBER OF ACTUALS, ENTER
;				A "V" FOR THIS PARAMETER.
;
;
;	PARAMETER 5: (N1)	1ST 5 CHARACTERS OF NAME.
;	PARAMETER 6: (N2)	NEXT 6 CHARACTERS OF NAME.
;	PARAMETER 7: (N3)	NEXT 6 CHARACTERS OF NAME.
;
;				ONLY LETTERS AND DIGITS ARE ALLOWED, NOT SPACES.
;				ANY OF THESE PARAMETERS SHOULD BE OMITTED
;				IF IT WOULD HAVE BEEN NULL.  ALL SPECIFIED
;				PARAMETERS *MUST* BE FOLLOWED IMMEDIATELY
;				BY A COMMA, INCLUDING THE LAST PARAMETER.
	INTERN	ZBOOL		; ADDR OF ENTRY FOR BOOL
	INTERN	ZINT		; ADDR OF ENTRY FOR INT
	INTERN	ZABS		; ADDR OF ENTRY FOR ABS
	INTERN	ZSIGN		; ADDR OF ENTRY FOR SIGN
	INTERN	ZENTIE		; ADDR OF ENTRY FOR ENTIE
	INTERN	PRASE
	INTERN	PRLIB

	SALL
	DEFINE	ENTR (IND)
	<
	LLINK==HT'IND
	HT'IND==CLOC-XB0+BLOCK0>


	DEFINE	ENTR1 (NAME,IND)
	<
	NAME'IND>


	DEFINE	ENTR2 (NAME,IND,VAL)
	<
	NAME'IND==VAL>






	DEFINE	INVERT (NX,NXVAL)
	<
	IFNB	<NX>,<
	NY==SIXBIT/NX/
	SHIFTS==0
	NYVAL==0
	INV INV INV INV INV INV
	NXVAL==<NYVAL>_<SHIFTS>> >



	DEFINE	INV
	<
	CCHAR==NY&77
	IFE	CCHAR, <
	SHIFTS==SHIFTS+6 >
	IFN	CCHAR, <
	CCHAR==<CCHAR+40>&77
	NYVAL==<<NYVAL>_<6>>!CCHAR
	CCC==CCC+1 >
	NY==<NY>_<-6> >
	HASH==-1
	REPEAT	200,
<	HASH==HASH+1
	ENTR2	HT,\HASH,0
>

; THE WEIRD EXPRESSIONS IN LIB ARE TO GET ROUND A BUG IN MACRO-10!!!

	DEFINE	LIB (ALIAS1,ALIAS2,TYPE,ACT,N1,N2,N3)
<
	CCC==-1
	LLINK==0
	CLOC==.
	ENTR2	A1.,\AL1,<<RADIX50 00,%'ALIAS1>&037777777777>
	AL1==AL1+1

	IFNB	<ALIAS2>,<
	ENTR2	A2.,\AL2,<<RADIX50 00,%'ALIAS2>&037777777777>
	AL2==AL2+1>

	IINDEX==IINDEX+1
	INVERT	N1,N1VAL
	INVERT	N2,N2VAL
	INVERT	N3,N3VAL

	IFNB	<N1>,<
	A==<N1VAL+CCC>_<-11>
	B==N1VAL&777
	TTEMP==B*D/1000+A*D+B*C+A*C*1000
	HASH==<<TTEMP>_<-^D26>>&177
	ENTR \HASH>

								XWD	EXT,LLINK
								XWD	TYPE+ACT,0
	IFB	<N1>,<
								XWD	0,0>
	IFNB	<N1>,<
								N1VAL+CCC>
	IFNB	<N2>,<
								N2VAL>
	IFNB	<N3>,<
								N3VAL>
	IFN	EXT, <
								XWD	0,0
								XWD	0,0
>>
	AL1==0
	AL2==0
	V==-1
	C==647
	D==327
	IINDEX==0

B0LIST::XWD	BLOCK0,XSYMHT+200-XB0


	I==$I+$EXT+$PRO+$DEC+1
	R==$R+$EXT+$PRO+$DEC+1
	L==$LR+$EXT+$PRO+$DEC+1
	BO==$B+$EXT+$PRO+$DEC+1
	ST==$S+$EXT+$PRO+$DEC+1
	N==$N+$EXT+$PRO+$DEC+1

	EXT==0

	XALL
XB0:
;	GROUP 1:	BOOL, INT, ABS, SIGN, AND ENTIER.  THIS ORDER
;			CANNOT BE CHANGED.



	LIB	226,,BO,1,BOOL,			; BOOL
	LIB	225,,I,1,INT,			; INT
	LIB	222,,R,1,ABS,			; ABS
	LIB	223,,I,1,SIGN,			; SIGN
	LIB	224,,R,1,ENTIE,R,		; ENTIER
	EXT==400000

XPRASE:
;	GROUP 2:	STANDARD ALGOL LIBRARY PROCEDURES.  EACH MUST
;			HAVE TWO ENTRY POINTS.  THE ORDER IN WHICH PROCEDURES
;			ARE PLACED IN THIS GROUP IS NOT IMPORTANT.



	LIB	100,200,R,1,SIN,		; SIN
	LIB	101,201,R,1,COS,		; COS
	LIB	102,202,R,1,ARCTA,N,		; ARCTAN
	LIB	103,203,R,1,SQRT,		; SQRT
	LIB	104,204,R,1,EXP,		; EXP
	LIB	105,205,R,1,LN,			; LN
	LIB	106,206,R,1,TAN,		; TAN
	LIB	107,207,R,1,ARCSI,N,		; ARCSIN
	LIB	110,210,R,1,ARCCO,S,		; ARCCOS
	LIB	111,211,R,1,SINH,		; SINH
	LIB	112,212,R,1,COSH,		; COSH
	LIB	113,213,R,1,TANH,		; TANH
	LIB	114,214,L,1,LSIN,		; LSIN
	LIB	115,215,L,1,LCOS,		; LCOS
	LIB	116,216,L,1,LARCT,AN,		; LARCTAN
	LIB	117,217,L,1,LSQRT,		; LSQRT
	LIB	120,220,L,1,LEXP,		; LEXP
	LIB	121,221,L,1,LLN,		; LLN
	EXT==0

XPRLIB:
;	GROUP 3:	UNNAMED LIBRARY PROCEDURES.  THE ALGOL USER CANNOT
;			ACCESS THESE ENTRIES BY NAMING THEM IN HIS
;			PROGRAM.  THESE PROCEDURES ARE IN BLOCK 0 ONLY
;			FOR INTERNAL REASONS.  THE STRICT ORDERING OF THESE
;			ENTRIES IS IMPORTANT.


	LIB	1,,R,1,				; POWER1
	LIB	2,,R,1,				; POWER2
	LIB	3,,R,1,				; POWER3
	LIB	4,,R,1,				; POWER4
	LIB	5,,R,1,				; POWER5
	LIB	7,,R,1,				; IR
	LIB	10,,L,1,			; ILR
	LIB	12,,I,1,			; RI
	LIB	13,,L,1,			; RLR
	LIB	15,,I,1,			; LRI
	LIB	16,,R,1,			; LRR
	LIB	14,,L,1,			; ENTIEL
	LIB	17,,L,1,			; DFAD0
	LIB	20,,L,1,			; DFSB0
	LIB	21,,L,1,			; DFMP0
	LIB	22,,L,1,			; DFDV0
	LIB	23,,L,1,			; RDFSB0
	LIB	24,,L,1,			; RDFDV0
	LIB	25,,L,1,			; DFAD3
	LIB	26,,L,1,			; DFSB3
	LIB	27,,L,1,			; DFMP3
	LIB	30,,L,1,			; DFDV3
	LIB	31,,L,1,			; RDFSB3
	LIB	32,,L,1,			; RDFDV3
	LIB	33,,L,1,			; DFAD6
	LIB	34,,L,1,			; DFSB6
	LIB	35,,L,1,			; DFMP6
	LIB	36,,L,1,			; DFDV6
	LIB	37,,L,1,			; RDFSB6
	LIB	40,,L,1,			; RDFDV6
	LIB	41,,L,1,			; DFAD9
	LIB	42,,L,1,			; DFSB9
	LIB	43,,L,1,			; DFMP9
	LIB	44,,L,1,			; DFDV9
	LIB	45,,L,1,			; RDFSB9
	LIB	46,,L,1,			; RDFDV9
XPRAN:
;	GROUP 4:	ALL OTHER LIBRARY PROCEDURES.  THESE ROUTINES
;			MUST HAVE 1 ENTRY POINT.  THE ORDERING OF THESE
;			ENTRIES IS NOT IMPORTANT.


	LIB	300,,I,1,DIM,			; DIM
	LIB	301,,I,2,LB,			; LB
	LIB	302,,I,2,UB,			; UB
	LIB	303,,I,V,IMIN,			; IMIN
	LIB	304,,I,V,IMAX,			; IMAX
	LIB	305,,R,V,RMIN,			; RMIN
	LIB	306,,R,V,RMAX,			; RMAX
	LIB	307,,L,V,LMIN,			; LMIN
	LIB	310,,L,V,LMAX,			; LMAX
	LIB	311,,I,3,GFIEL,D,		; GFIELD
	LIB	312,,N,4,SFIEL,D,		; SFIELD
	LIB	314,,ST,V,COPY,			; COPY
	LIB	315,,N,V,TRAP			;[206] TRAP
	LIB	316,,I,0,INCHA,N,		; INCHAN
	LIB	317,,I,0,OUTCH,AN,		; OUTCHAN
	LIB	320,,ST,2,NEWST,RING,		; NEWSTRING
	LIB	321,,I,1,LENGT,H,		; LENGTH
	LIB	322,,N,1,DELET,E,		; DELETE
	LIB	325,,ST,V,CONCA,T,		; CONCAT
	LIB	326,,I,1,SIZE,			; SIZE
	LIB	327,,N,1,TRACE,			; TRACE
	LIB	401,,N,1,INSYM,BOL,		; INSYMBOL
	LIB	402,,N,1,OUTSY,MBOL,		; OUTSYMBOL
	LIB	403,,N,1,NEXTS,YMBOL,		; NEXTSYMBOL
	LIB	404,,N,0,SKIPS,YMBOL,		; SKIPSYMBOL
	LIB	405,,N,0,BREAK,OUTPUT,		; BREAKOUTPUT
	LIB	406,,N,V,SPACE,			; SPACE
	LIB	407,,N,V,TAB,			; TAB
	LIB	410,,N,V,NEWLI,NE,		; NEWLINE
	LIB	411,,N,V,PAGE,			; PAGE
	LIB	412,,N,V,READ,			; READ
	LIB	413,,N,1,WRITE,			; WRITE
	LIB	414,,N,V,PRINT,			; PRINT
	LIB	415,,N,1,READO,CTAL,		; READOCTAL
	LIB	416,,N,1,PRINT,OCTAL,		; PRINTOCTAL
	LIB	417,,N,V,INPUT,			; INPUT
	LIB	420,,N,V,OUTPU,T,		; OUTPUT
	LIB	421,,N,1,SELEC,TINPUT,		; SELECTINPUT
	LIB	422,,N,1,SELEC,TOUTPU,T,	; SELECTOUTPUT
	LIB	423,,N,1,RELEA,SE,		; RELEASE
	LIB	424,,N,V,OPENF,ILE,		; OPENFILE
	LIB	425,,N,1,CLOSE,FILE,		; CLOSEFILE
	LIB	426,,N,0,TRANS,FILE,		; TRANSFILE
	LIB	427,,N,1,BACKS,PACE,		; BACKSPACE
	LIB	430,,N,1,ENDFI,LE,		; ENDFILE
	LIB	431,,N,1,REWIN,D,		; REWIND
	LIB	432,,BO,1,IOCHA,N,		; IOCHAN
	LIB	433,,I,1,INLIN,E,		; INLINE
	LIB	434,,N,V,CALL,			; CALL
	LIB	435,,I,V,ICALL,			; ICALL
	LIB	436,,R,V,RCALL,			; RCALL
	LIB	437,,L,V,DCALL,			; DCALL
	LIB	440,,BO,V,LCALL,		; LCALL

	LIB	441,,I,1,INFO,			; INFO
	LIB	442,,ST,0,FDATE,		; FDATE
	LIB	443,,ST,0,VDATE,		; VDATE
	LIB	444,,ST,0,TIME,			; TIME
	;
	; Edit(1011)  Establish aliases for RAN,TRACEON & TRACEOFF
	;
	LIB	445,,I,0,RAN,			; RAN
	LIB	445,,I,0,RAND,			; [E1011] = RAND
	LIB	446,,N,1,SETRA,N,		; SETRAN
	LIB	447,,I,0,SAVRA,N,		; SAVRAN
	LIB	455,,N,0,TRACE,ON,		; TRACEON
	LIB	455,,N,0,ONTRA,CE,		; [E1011] = ONTRACE
	LIB	456,,N,0,TRACE,OFF,		; TRACEOFF
	LIB	456,,N,0,OFFTR,ACE,		; [E1011] = OFFTRACE
	LIB	461,,N,0,PAUSE,			; PAUSE
	LIB	462,,N,1,DUMP,			; DUMP
	LIB	450,,N,V,F10CA,LL,		; F10CALL
	LIB	451,,I,V,F10IC,ALL,		; F10ICALL
	LIB	452,,R,V,F10RC,ALL,		; F10RCALL
	LIB	453,,L,V,F10DC,ALL,		; F10DCALL
	LIB	454,,BO,V,F10LC,ALL,		; F10LCALL

XB0END:				; END OF BLOCK 0

	SALL
XSYMHT:
	HASH==-1
	REPEAT	200,
<
	HASH==HASH+1
	ENTR1	HT,\HASH
>
	XWD	0,0

ATABLE::			; TABLE OF LIBRARY ROUTINE ALIAS NAMES

	ALC==-1
	REPEAT AL1,
<
	ALC==ALC+1
	ENTR1	A1.,\ALC
>
AT2==:.-5				; TABLE OF 2-ENTRY LIBRARY ALIAS NAMES

	ALC==-1
	REPEAT AL2,
<
	ALC==ALC+1
	ENTR1	A2.,\ALC
>
	RELOC

BLOCK0::
ZBOOL:	BLOCK	3
ZINT:	BLOCK	3
ZABS:	BLOCK	3
ZSIGN:	BLOCK	3
ZENTIE:	BLOCK	4
PRASE:
	BLOCK	XPRLIB-XPRASE
PRLIB:
	BLOCK	XPRAN-XPRLIB
PRAN:
	BLOCK	XB0END-XPRAN
B0END::
SYMHT::	BLOCK	200		; SYMBOL TABLE HASH TABLE (**MUST FOLLOW BLOCK0**)

	RELOC
	END