/FOCAL EQUIVALANCE DEFINITIONS

	FIXMRI FADD=1000
	FIXMRI FSUB=2000
	FIXMRI FDIV=3000
	FIXMRI FMUL=4000
	FIXMRI FPUT=6000
	FIXMRI FGET=0000
	FNOR=7000
	FINT=JMS I 7
	FENT=JMS I 7
	FEXT=0
	FXIT=0

	/DEFINE PAGE ZERO POINTERS, CONSTANTS, ETC.

	P13=5
	C100=6
	AXIN=10
	XRT=11
	PDLXR=13
	TELSW=16
	AXOUT=17
	PC=22
	THISLN=23
	LASTLN=25
	PT1=30
	LASTV=31
	INBUF=34
	FLOP=40
	FLAC=44
	BOTTOM=35
	SORTCN=54
	CNTR=57
	BUFR=60
	ADD=61
	OUTDEV=63
	INDEV=64
	NAGSW=65
	CHAR=66
	LINENO=67
	T2=71
	C214=73
	CCR=77
	CLF=76
	P337=75
	M100=101
	P7700=101
	PER=102
	M77=103
	P7600=104
	M20=105
	P177=106
	P17=107
	P277=110
	M2=111
	MINUSA=112
	C260=113
	M240=114
	MPER=115
	MCR=116
	M5=120
	M11=121
	P77=122
	C200=123
	P4000=124
	DOUBLE=127
	COMBUF=132
	CFRS=133
	END=134
	EFUN3I=136

	/NEW INSTRUCTIONS

	GETC=4545
	PACKC=4546
	SORTJ=4547
	SORTC=4550
	PRINTC=4551
	READC=4552
	PRNTLN=4553
	GETLN=4554
	FINDLN=4555
	ENDLN=4556
	RTL6=4557
	SPNOR=4560
	TESTN=4561
	TSTLPR=4562
	TSTGRP=4563
	TESTC=4564
	ERROR2=4566
	INTEGER=JMS I 53
	NEGATE=4451

	/OTHER CONSTANTS AND POINTERS

	P7740=372
	P2000=373
	EVAL=1613
	GETVAR=1407
	GS1=1437
	PROC=611
	DO=420
	START=177
	PROCESS=610
	SAVAC=2600
	SAVLK=2601
	OPTR0=2663
	OPTRO=2664
	OPTRI=2665
	FLARG=2030
	X133=2666
	OUTL=2676
	GLIST=1377
	INPUT=756
	XABS=2014
	OUT=2465
	INLIST=571
	LIST3=77
	SRNLST=1363
	TASK=1204
	DUBLAD=5733
	GOTO=603