%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$QUADWORD
		LONG FILL ( 2 )
	END RECORD
    %LET %BASIC$QUADWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$OCTAWORD
		LONG FILL ( 4 )
	END RECORD
    %LET %BASIC$OCTAWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$F_FLOATING_COMPLEX
    		SINGLE REAL_PART
    		SINGLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$D_FLOATING_COMPLEX
    		DOUBLE REAL_PART
    		DOUBLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$G_FLOATING_COMPLEX
    		GFLOAT REAL_PART
    		GFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
      DECLARE LONG CONSTANT PR780$_NICR = 25  !  INTERVAL CLOCK NEXT INTERVAL REGISTER 
      DECLARE LONG CONSTANT PR780$_ICR = 26  !  INTERVAL CLOCK INTERVAL COUNT REGISTER 
      DECLARE LONG CONSTANT PR780$_TODR = 27  !  TIME OF DAY REGISTER 
      DECLARE LONG CONSTANT PR780$_ACCS = 40  !  ACCELERATOR CONTROL STATUS REGISTER 
      DECLARE LONG CONSTANT PR780$_ACCR = 41  !  ACCELERATOR RESERVED 
      DECLARE LONG CONSTANT PR780$_PME = 61  !  PERFORMANCE MONITOR ENABLE 
      DECLARE LONG CONSTANT PR780$_WCSA = 44  !  WCS ADDRESS REGISTER 
      DECLARE LONG CONSTANT PR780$_WCSD = 45  !  WCS DATA REGISTER 
      DECLARE LONG CONSTANT PR780$_SBIFS = 48  !  SBI FAULT STATUS REGISTER 
      DECLARE LONG CONSTANT PR780$_SBIS = 49  !  SBI SILO REGISTER 
      DECLARE LONG CONSTANT PR780$_SBISC = 50  !  SBI COMPARATOR REGISTER 
      DECLARE LONG CONSTANT PR780$_SBIMT = 51  !  SBI MAINTENANCE REGISTER 
      DECLARE LONG CONSTANT PR780$_SBIER = 52  !  SBI ERROR REGISTER 
      DECLARE LONG CONSTANT PR780$_SBITA = 53  !  SBI TIMEOUT ADDRESS REGISTER 
      DECLARE LONG CONSTANT PR780$_SBIQC = 54  !  SBI QUADWORD CLEAR REGISTER