/RASBOL SINGLE USER EXTENDED SYBOL TABLE
/	
/FOR USE WITH RASBOL-8 SOURCE PROGRAMS SYMBOLIC TAPES
/	
/RASBOL-8 INSTRUCTION SET
XLIST

IFNDEF OVERSW<		/CHAIN NOT IN OVERLAYS

/THIS SECTION OF PROGRAM CHAINS IN THE RAS INTERPRETER
/          
FIELD 0
*200
XXXCHN,	CLA CLL
	CDF 0
	CIF 10
	JMS I (7700	/TO USR
	10		/FUNCTION 10: USRIN
	CLA CLL
	CDF 0
	CIF 10
	JMS I (200	/TO USR
	1		/FUNCTION 1: FETCH
	DEVICE SYS
XXXA3,	7000		/HANDLER ADDRESS
	7000		/NOP
	CLA CLL
	TAD XXXA3-1	/FETCH DEVICE NUMBER
	CDF 0
	CIF 10
	JMS I (200	/TO USR
	2		/FUNCTION 2: LOOKUP
XXXLKN,	XXXNME		/POINTER
	0
	JMP XXXERR	/ERROR RETURN
	CLA CLL
	TAD XXXLKN	/FETCH BLOCK NUMBER
	DCA XXXBLK	/SET AS ARGUMENT
	CDF 0
	CIF 10
	JMS I (200	/TO USR
	6		/FUNCTION 6: CHAIN
XXXBLK,	0
/          
XXXNME,	FILENAME RAS.SV
/          
XXXERR,	CLA CLL
	CDF CIF 0		/SET BOTH FIELDS TO 0
	JMP I (7600	/RETURN TO OS/8
	>	/ OVERSW
/          
	CLEAR=0001
	NEGATE=0002
	REMAIN=0003
	EXIT=0004
	LINCAC=0005
	WRITE=0006
	WRITSQ=0007
	WRITAB=0010
	RBSW=0011
	PRINTO=0012
	FILZRO=0013
	FILSPC=0014
	PRNTCH=0015
	EXECX3=0016
	LINC2AC=0017
	OUTONE=0020
	OUTTWO=0021
	OUTBOTH=0022
	SYSDATE=0023
/***	WAIT=0024	/NOT IN THIS VERSION
	SLEEP=0025
	DATE=0026
/**	READAB=0027	/NOT THIS
	GOACC=0030
	GOSACC=0031
	USERNUM=0032	/NOP
	TYPIN=0100
	TYPCH=0100
	PRINTN=0140
	PRINTD=0160
	PRINT=0200
	SIGN1=0310
	SIGN2=0320
	SHIFTR=0340
	MULTX1=0400
	MULTX2=0500
	STORX1=0610
	STORX2=0620
	STORX3=0630
	STORLC=0640
	CLEARLC=0650
	STORL2=0660
	CLRLC2=0670
	OPEN=0700
	CLOSE=0701
	READAB=0702
/TWO WORD INSTRS.
	LOAD=1031
	LOAD2=1021
	LOAD1=1011
	LOADIM=1000
	ADD=1131
	ADD2=1121
	ADD1=1111
	ADDIM=1100
	SUBT=1231
	SUBT2=1221
	SUBT1=1211
	SUBTIM=1200
	ADDTO=1331
	ADDTO2=1321
	ADDTO1=1311
	MULT=1431
	MULT2=1421
	MULT1=1411
	MULTIM=1400
	DIVID=1531
	DIVID2=1521
	DIVID1=1511
	DIVIM=1500
	STORE=1631
	STORE2=1621
	STORE1=1611
	INCREM=1701
	CLEARW=1711
	DECREM=1721
	ANDIM=2000
	ORIM=2100
	SEARCH=2111
	HSEARCH=2121
	GETREC=2210
	PUTREC=2301
	GOTO=3001
	GOZERO=3011
	GOPOS=3021
	GONEG=3031
	GONZRO=3041
	GOSUB=3101
	GSZERO=3111
	GSPOS=3121
	GSNEG=3131
	GSNZRO=3141
	GOPAL=3200
	LOADX1=3311
	LOADX2=3321
	LOADX3=3331
	LOADLC=3341
	LOADL2=3361
	YESNO=3501
	ABORT=3511
	PRINTC=3600
	PRINTA=PRINTC 1
	READ=3700
	READSQ=3710
/THREE WORD INSTRS.
	TYPTEX=4001
	TYPWDS=4101
	PRINTU=4201
	PRINTX=4301
	PRINTW=4401
	GOIF=4511
	INCGOZ=4611
	DECGOZ=4711
	GOIFZO=5011
	GOWDZO=GOIFZO
	MOVIM=5110
	ADDWIM=5111
	CLRWDS=5210
	MOVE1=5311
	MOVE2=5411
	MOVE3=5511
	GOIFEQ=5601
/FOUR WORD INSTRS
	MOVE=6211
	COMPAR=6311
	CONV6W=6411
	CONVW6=6511
	GOWDEQ=6611
	PICTUR=7011
	FILL=7110
	RANGE=7301
/FIVE WORD INSTRS.
	DOVAR=7611
	DO=7711
/	
/ASSORTED CONSTANTS
/	
	XFILES=6200
	XAREA=7200
	TAB=0211
	LF=212
	CRET=215
	BELL=0207
	FF=0214
	VT=0213
	ESCAPE=233
	SPACE=240
	NULL=0200
	K10=10
	K11=11
	K20=20
	K22=22
	K30=30
	K32=32
	K34=34
	LINCON=135
/	
/	
/MQ MICROINSTRUCTIONS
/	
	MLD=7421
	MQA=7501
	CAM=7621
	SWP=7521
	ALD=7701
/	
/POWER FAIL DETECTION AND RESTART TYPE KP8-E
/	
	SPL=6102
/	
/MEMORY EXTENSION AND TIMESHARE TYPE KM8-E
/	
	GTF=6004
	RTF=6005
	CDI=6203
/	
/PDP8-E GROUP 1 OPERATE MICROINSTRUCTION
/	
	BSW=7002
/	
XLIST
FIXTAB
XCDF=10
XFLD=1
FIELD 1
*0000     
DECIMAL

PAUSE