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