-2,,/;DSS1/
; MODIFIED FOR FPP EMULATION SUPPORT (CONDITIONAL ON FPPEMU)
; DANIEL STEINBERG    18-JAN-78
;NOTE: FPP EMULATION IS TAKEN CARE OF BY CALLING FPINIT BEFORE EXECUTING
;ANY FPP INSTRUCTIONS.  FPINIT SETS UP A TASK DEBUGGING SST TABLE (SVDB$S)
;THAT HANDLES ILLEGAL INSTRUCTIONS (AND FIS ERRORS, WHEN EMULATING FPP).
;SINCE FLOATING POINT EXCEPTIONS DO NOT OCCUR, SOME CHANGES (CONDITIONAL
;ON FPPEMU) HAVE BEEN MADE TO MODULES BASIC0 AND BASIC3, ALSO.
; FPPEMU DEFINED (OR NOT) IN ASSEMBLY PREFIX FILE
	.IF	DF,FPPEMU
	.GLOBL	FPINIT		;GLOBAL REFERENCE
	.ENDC
;
;
;
;
-314,319,/;DSS1/
	.GLOBL	BEGIN
;
BEGIN:
	.IF	DF,FPPEMU	;IF FPP EMULATION
	JSR	PC,FPINIT	;SET DEBUGGING SST TABLE FOR EMULATOR
	.IFF			;IF NOT
	LDFPS	#3400		;SET FPP STATUS REG FOR INTERRUPTS
	SFPA$S	#FPEXTR		;SPECIFY FLOATING POINT EXCEPTION AST
	.ENDC

	DIR$	#MCRDPB		;GET MCR COMMAND LINE (JUST TO CLEAR)
	MOV	@#$DSW,MCRCNT	;GET CHAR COUNT FROM DSW
	SVTK$S	#VECTAB,#8.	;SET UP SST VECTOR TABLE
-323,,/;DSS1/

	SUB	#2,R0	;***********ADJUST

/