Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50150/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