*20
/// MONTEST
	 
	LMODE
	SEGMNT 5
	*20
	 
	OPR 3
	5100
	1
	SETWRD
	0400
NEWMON,	SET I 17
	MLST-1
	SET I 10
	-13
	 
MRMON,	LDA I 17
	STC MONUM
	 
	MONCAL
MONUM,	0
	 
	LDA
	1400
	SAE
	MONUM
	JMP ERROR
	 
	JMP LOADLO
	NOP
	JMP GOOD
	 
ERROR,	SFLOAT
	MONUM
	OUTPUT
	ERNUM
	LIF 4
	MESOUT
	MER
	XSK I 10
	JMP MRMON
	JMP NEWMON
	 
MER,	TEXT %ERROR %
ERNUM,	00
	00
	4543
	 
GOOD,	SFLOAT
	MONUM
	OUTPUT
	GUDNUM
	LIF 4
	MESOUT
	MGUD
	XSK I 10
	JMP MRMON
	JMP NEWMON
	 
MGUD,	TEXT %GOOD%
GUDNUM,	00
	00
	4543
	 
	 
MLST,	2
	3
	4
	5
	6
	7
	10
	36
	37
	40
	41
	 
	 
LOADLO,	SET 3
	0
	OPR 13
	1
	LDF 5
	OPR 12
	7000
	LDF 7
	JMP 3
	 
	 
	MONCAL=JMP .
	SET 14
	0
	LDF 5
	LDA 14
	SAE
	1400
	SKP
	JMP MX
	ADA I
	7022
	STC RMON
	IOB 13
	0
CO12,	IOB 12
RMON,	0
MX,	CLR
	XSK I 14
	LDF 3
	JMP 14
	 
/PBLOCK FOLLOWS.
	NOLIST
	 
/COMMAND DECODER ASSIGNMENTS
/
/
	STOP=JMP 20
	SCAN=JMP 21
	STRSCN=JMP 21
	INUNIT=JMP 22
	STORIT=JMP 23
	GETFIL=JMP 24
	GETFST=JMP 24
	GETNAM=JMP 25
	GETNXT=JMP 25
	DIRINI=JMP 26
	DIRLST=JMP 27
	ASSIGN=JMP 30
	DEASS=JMP 31
	OUTUNIT=JMP 32
	LODBLK=JMP 33
	RUNBLK=JMP 34
	FIND=JMP 35
	CALL=JMP 37
	UNCALL=JMP 40
	RUNPRG=JMP 41
	INTRACT=JMP 42
	MESOUT=JMP 43
	DISK=JMP 44
	TABSET=JMP 45
	INTABLE=JMP 46
	MISSNG=JMP 47
	TABGET=JMP 50
	TABPUT=JMP 51
	TABZER=JMP 52
	MAKDIL=JMP 53
	TABINI=JMP 54
	MGETNAM=JMP 55
	MGETFIL=JMP 56
	MSTORIT=JMP 57
/
/COMMAND LOCATIONS.
/
	FILNAM=2320
	WORD1=2323
	WORD2=2324
	INBUF=2325
/COMMAND NUMBERS.
	YES=17
	NO=20
	SAMPL=21
	TABLE=22
	GO=23
	NEXT=24
	CU=25
	CONT=26
	ALL=27
	AVG=30
	A=31
	B=32
	C=33
	D=34
	E=35
	F=36
	G=37
	H=40
	II=41
	J=42
	PLOT=43
	PRINT=44
	T=45
/
/EXEC3 ASSIGNMENTS
/
	OPR=500
	IOF=6002
	ION=6001
	EXC=1710
	REXC=540
	RLSW=514
	RRSW=515
	IOCALL=511
/FLOATING POINT DEFINITIONS.
/
	FAC=0
	STARTE=740
	FSUB=741
	FMUL=742
	FDIV=743
	LOAD=744
	STORE=745
	SETWRD=746
	INPUT=747
	OUTPUT=750
	ISTOR1=751
	SQRT=752
	DFLOAT=753
	SFLOAT=754
	FIX=755
	FADD=756
	ISTOR2=757
	STARTF=760
	FCOMP=761
	FZER=762
	FAPO=763
	FAZE=764
	RECIP=765
	NEXTIN=766
	SETIN=767
	SETOUT=770
	OUTBUF=771
	PACFAC=772
	SACFAC=773
	FACAC=774
	UNFIX=775
/
/PBLOCK
/FEB 74.
	LIST
/// END MONTEST
/FHD
/OCT 76