Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50516/s.mac
There are 24 other files named s.mac in the archive. Click here to see a list.
UNIVERSAL S
;AC DEFINITIONS
;PRINCIPAL USES:
N=0 ;RUNTIME ACCUMULATOR REGISTER
T=1 ;POINTER TO NXCH
T1=2
A=3 ;SEARCH ARGUMENT
B=4 ;POINTER AFTER SEARCH
C=5 ;XWD CHARACTER-FLAGS,CHAR
D=6 ;BUILD INSTS HERE
F=7 ;FLAGS
E=10
G=11
R=12 ;POINTER TO ROLL BEING USED
X1=13 ;)
X2=14 ;)TEMP REGS
Q=15 ;PUSHDOWN LIST FOR FNX ARGS.
L=16
LP=16
P=17 ;PUSHDOWN LIST
;CHARACTER TYPE TABLE.
;FLAGS IN LEFT HALF OF CTTAB+<LETTER> FOR <LETTER> BELOW 100,
;FLAGS IN RIGHT HALF OF CTTAB+<LETTER-100> OTHERWISE.
DEFINE WWW (FL,VAL)<
XLIST
FL=< Z 0,(VAL)>
LIST>
WWW F.APOS,1B0 ; '
WWW F.COMA,1B1 ; ,
WWW F.CR,1B2 ; <RETURN, OR LF,VT,FFEED>
WWW F.DIG,1B3 ; <NUMERAL>
WWW F.DOLL,1B17
WWW F.EQAL,1B4 ; =
WWW F.ESC,1B5 ; <ESCAPE OR ALTMODE>
WWW F.LCAS,1B6 ; <LOWER CASE LETTER>
WWW F.LETT,1B7 ; <LOWER OR UPPER CASE LETTER>
WWW F.STR,1B8 ; (
WWW F.MINS,1B9 ; -
WWW F.PER,1B10 ; .
WWW F.PLUS,1B11 ; +
WWW F.QUOT,1B12 ; "
WWW F.RPRN,1B13 ; )
WWW F.SLSH,1B14 ; /
WWW F.STAR,1B15 ; *
WWW F.SPTB,1B16 ; <SPACE OR TAB>
F.NU=0 ;ASCII CODES THAT ARE TREATED AS NULLS.
F.OTH=0 ;OTHER CHARACTERS ANALYSED BY BASIC WITHOUT THE USE OF
F.TERM=F.CR+F.APOS ;EITHER TERMINATES THE ANALYZABLE PORTION OF A BASIC ST
.JBINT=134
.JBVER=137
.JB41=41
;VERSION
VWHO==0 ;UNIVERSITY OF PENNSYLVANIA MEDICAL SCHOOL
VBASIC==1 ;MAJOR
VMINOR==0 ;MINOR
VEDIT==4 ;EDIT LEVEL
END