Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0028/p.321
There are 2 other files named p.321 in the archive. Click here to see a list.
SUBTTL THIS ASSEMBLY MADE WITH P.320



;	THE SOURCE TAPE FOR THIS VERSION OF SNOBOL WAS GRACIOUSLY
;	PROVIDED BY BELL TELEPHONE LABORATORIES, HOLMDEL,N.J.
;	THROUGH THE ASSISTANCE OF MR. R.E. GRISWOLD WITHOUT
;	WHOSE HELP THIS PROGRAM WOULD NEVER HAVE BEEN CREATED.
;
;	THE SOURCE TAPE CONTAINS ABOUT 8000 CARD IMAGES OF 
;	IBM/360 MACRO CALLS WHICH ARE USED TO IMPLEMENT
;	SNOBOL. THE MACRO DEFINITIONS FOR THESE CALLS TO ASSEMBLE
;	PROPERLY ON THE PDP-10 ARE CONTAINED IN ANOTHER FILE
;	APPROPRIATLEY CALLED "MACROS".
;
;	COPYWRIGHT 1969,1970,1971 BY DIGITAL EQUIPMENT CORP.
;	MAYNARD, MASSACHUSETTS


STOP=400000
STOPSH=200000
CONTIN=100000
ERROR=40000
	; USER UUO DEFINITIONS
RESET.=15B8
IN.=   16B8
OUT.=  17B8
DATA.= 20B8
FIN.=  21B8
RTB.=  22B8
WTB.=  23B8
MTOP.= 24B8
SLIST.=25B8
INF.=  26B8
OUTF.= 27B8
RERED.=30B8
NLI.=  31B8
NLO.=  32B8


	; AC DEFINITIONS

;	IN THE FOLLOWING DEFINITIONS SEVERAL RESTIRCTIONS ARE
;	NECESSARY FOR A VARIETY OF REASONS. THEY ARE-
;
;	A1 MUST BE EQUAL TO 1 SINCE IT IS USED TO PASS ARGUMENTS
;	  TO FORTRAN SUBROUTINES.
;
;	A0 MUST REMAIN NOT EQUAL TO 0 SINCE IT IS USED IN THE
;	  INDEX REGISTER FIELD OF MANY INSTRUCTIONS.
;
;	A2,A3,A4 MUST BE CONSECUTIVE AFTER A1 SINCE A PROGRAM
;	IS EXECUTED FROM THESE

;	A10,A11 MUST BE CONSECUTIVE SINCE IN. AND OUT. UUOS
;	ARE EXECUTED FROM THESE FOR REENTRANCY PURPOSES
;
;	Q MUST BE EQUAL TO 16 SINCE IT IS USED WITH THE STANDARD
;	  FORTRAN SUBROUTINE CALLING SEQUENCE.
;
;	P MUST BE EQUAL TO 17 SINCE IT IS ALSO USED WITH THE
;	  STANDARD SUBROUTINE CALLS.
;
;

A1=1
A2=2
A3=3
A4=4
A5=5
A6=6
A7=7
OSTACK=13
CSTACK=14
A10=10
A11=11
A12=12
A13=13
A14=14
A15=15
A0=A15
A16=16
Q=A16
A17=17
SPEC1=1
SPEC2=2
L=3
J=4
LOOP=5
CLEAR.=2
CHAR=6
CH=CHAR
CH1=7
P=17
PDP=17
Q=16


	;RANDOM DEFINITIONS

CLRBIT=777000	;USED BY CLEARTB MACRO
SPECL=3		;POSITION OF LENGTH FIELD IN SPECIFIER
SPECO=2		;POITION OF OFFSET IN SPECIFIER
SPECF==1	;PSOITION OF FLAG FIELD IN SPECIFIER
SPECV==1	;POSITION OF VALUE FIELD IN SPECIFIER
SPECA==0	;POSITION OF ADDRESS FIELD IN SPECIFIER
SPCFLG=^O40	;SPECIAL IDENTIFIER FOR SPECIFIERS


R1=A10
R2=A11
R3=A12

J=A0
SPEC1=A1
LOOP=A2
COUNT=A3
CPD=^D10	;NO. OF CHARACTERS PER DESCR
D=2