%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 PR790$_NICR = 25  !  INTERVAL CLOCK NEXT INTERVAL REGISTER 
      DECLARE LONG CONSTANT PR790$_ICR = 26  !  INTERVAL CLOCK INTERVAL COUNT REGISTER 
      DECLARE LONG CONSTANT PR790$_TODR = 27  !  TIME OF DAY REGISTER 
      DECLARE LONG CONSTANT PR790$_ACCS = 40  !  ACCELERATOR CONTROL STATUS REGISTER 
      DECLARE LONG CONSTANT PR790$_ACCR = 41  !  ACCELERATOR RESERVED 
      DECLARE LONG CONSTANT PR790$_PME = 61  !  PERFORMANCE MONITOR ENABLE 
      DECLARE LONG CONSTANT PR790$_PAMACC = 64  !  PAMM ACCESS 
      DECLARE LONG CONSTANT PR790$_PAMLOC = 65  !  PAMM LOCATION 
      DECLARE LONG CONSTANT PR790$_CSWP = 66  !  CACHE SWEEP REGISTER 
      DECLARE LONG CONSTANT PR790$_MDECC = 67  !  MBOX DATA ECC REGISTER 
      DECLARE LONG CONSTANT PR790$_MENA = 68  !  MBOX ERROR ENABLE REGISTER 
      DECLARE LONG CONSTANT PR790$_MDCTL = 69  !  MBOX DATA CONTROL REGISTER 
      DECLARE LONG CONSTANT PR790$_MCCTL = 70  !  MBOX MCC CONTROL REGISTER 
      DECLARE LONG CONSTANT PR790$_MERG = 71  !  MBOX ERROR GENERATOR REGISTER 
      DECLARE LONG CONSTANT PR790$_CRBT = 72  !  CONSOLE REBOOT 
      DECLARE LONG CONSTANT PR790$_DFI = 73  !  DIAGNOSTIC FAULT INSERTION 
      DECLARE LONG CONSTANT PR790$_EHSR = 74  !  ERROR HANDLING STATUS REGISTER 
      DECLARE LONG CONSTANT PR790$_ACCS790 = 75  !  ACCELERATOR STATUS REGISTER 
      DECLARE LONG CONSTANT PR790$_STXCS = 76  !  CONSOLE STORAGE CONTROL REG
      DECLARE LONG CONSTANT PR790$_STXDB = 77  !  CONSOLE STORAGE DATA REGISTER
      DECLARE LONG CONSTANT PR790$_LSPA = 78  !  SCRATCHPAD ADDRESS
      DECLARE LONG CONSTANT PR790$_RSPD = 79  !  SCRATCHPAD DATA