OS 695 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
        [       :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