        [       :LNOT: :DEF: Get_Types
        GBLS    Get_Types
        ]
        [       :LNOT: :DEF: Types_Hdr
Get_Types                       SETS    "GET Hdr.Types"
        |
Get_Types                       SETS    ""
        ]
        $Get_Types

        [       :LNOT: :DEF: OS_Hdr
        GBLS    OS_Hdr

XOS_ReadVarVal                  *       &20023
OS_ReadVarVal                   *       &23
   ;Entry
   ;  R0 -> var (String)
   ;  R1 = value (pointer to String)
   ;  R2 = size (Int)
   ;  R3 = context (Int)
   ;  R4 = var_type (OS_VarType)
   ;Exit
   ;  R0 corrupted
   ;  R2 = used (Int)
   ;  R3 = context_out (Int)
   ;  R4 = var_type_out (OS_VarType)

        ]
        END
