|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0220 | | .CONST 0x0220 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0282,0x8000,0x0000,0x002c,0xbc04,0x0000,0x0011 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0043 | C | .CONST 0x0043 ; Address of begin 0019 004e | N | .CONST 0x004e ; Address of exception handler 001a 0011 | | .CONST 0x0011 ; Number of locals 001b INIT_0018: 001b 029e 0063 | c| Declare_Subprogram INIT_0060,For_Call,Unelaborated ; Debug Table 0x1 = .DEBUG 0x001b,0x0284,0x8001,0x0000,0x002c,0xbc04,0x0000,0x0011 ; Debug Table 0x1.0x0 = 0x1b,0xffff 001d 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001e 4802 |H | Short_Literal 0x2 001f 0099 | | Action Reference_Dynamic 0020 00c7 | | Action Elaborate_Subprogram 0021 029f 007b | {| Declare_Subprogram INIT_0078,For_Call ; Debug Table 0x1.0x2 = 0x21,0xfffd 0023 029f 0083 | | Declare_Subprogram INIT_0080,For_Call ; Debug Table 0x1.0x3 = 0x23,0xfffc 0025 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x4 = 0x25,0xfffb 0026 4802 |H | Short_Literal 0x2 0027 0099 | | Action Reference_Dynamic 0028 00c6 | | Action Check_Subprogram_Elaborated 0029 e001 | | Load 0x0,0x1 002a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 002b 4803 |H | Short_Literal 0x3 002c 4802 |H | Short_Literal 0x2 002d 0099 | | Action Reference_Dynamic 002e 4804 |H | Short_Literal 0x4 002f 4802 |H | Short_Literal 0x2 0030 0099 | | Action Reference_Dynamic 0031 6176 |av | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x002cbc04} 0032 488b |H | Short_Literal 0x8b 0033 480a |H | Short_Literal 0xa 0034 0007 | | Action Break_Optional 0035 029f 0093 | | Declare_Subprogram INIT_0090,For_Call ; Debug Table 0x1.0x5 = 0x35,0xfffa 0037 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call ; Debug Table 0x1.0x6 = 0x37,0xfff9 0039 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call ; Debug Table 0x1.0x7 = 0x39,0xfff8 003b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call ; Debug Table 0x1.0x8 = 0x3b,0xfff7 003d 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call ; Debug Table 0x1.0x9 = 0x3d,0xfff6 003f 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call ; Debug Table 0x1.0xa = 0x3f,0xfff5 0041 029f 016b | k| Declare_Subprogram INIT_0168,For_Call ; Debug Table 0x1.0xb = 0x41,0xfff4 0043 BODY_0018: 0043 0092 01ac | | Action Push_String_Extended,0x1ac ; "Simple User Test: Open, Close, Create, Destroy" ; Debug Table 0x1.0xc = 0x43,0x1 0045 0092 01ad | | Action Push_String_Extended,0x1ad ; "user-simple" 0047 e002 | | Load 0x0,0x2 0048 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0049 8410 | | Call 0x2,0x10 ; Debug Table 0x1.0xd = 0x49,0x2 004a 8411 | | Call 0x2,0x11 ; Debug Table 0x1.0xe = 0x4a,0x3 004b e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xf = 0x4b,0x4 004c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 004d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004e TRAP_0018: 004e 0007 | | Action Break_Optional 004f 0092 01ae | | Action Push_String_Extended,0x1ae ; "Unhandled Exception: " ; Debug Table 0x1.0x10 = 0x4f,0x5 0051 e003 | | Load 0x0,0x3 0052 180d | | Execute Package,Field_Execute,Field_Number 0xd 0053 01cc | | Execute Vector,Catenate 0054 e002 | | Load 0x0,0x2 0055 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0056 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x11 = 0x56,0x6 0057 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0058 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0059 0000 0000 | | .BLANK 0000[0x7] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e7fb | | Load 0x3,-0x5 ; Debug Table 0x2 = .DEBUG 0x0063,0x02aa,0x2801,0x0003,0x002c,0xbc04,0x0000,0x0014 ; Debug Table 0x2.0x0 = 0x63,0x1 0064 e7fc | | Load 0x3,-0x4 0065 025b | [ | Execute Discrete,Check_In_Type 0066 87fd | | Call 0x3,-0x3 0067 680e |h | Jump_Zero 0x76 0068 0092 01af | | Action Push_String_Extended,0x1af ; "BAD STATUS from " ; Debug Table 0x2.0x1 = 0x68,0x2 006a e7fa | | Load 0x3,-0x6 006b 01cc | | Execute Vector,Catenate 006c 0092 01b0 | | Action Push_String_Extended,0x1b0 ; ": " 006e 01cc | | Execute Vector,Catenate 006f e7fb | | Load 0x3,-0x5 0070 e7fc | | Load 0x3,-0x4 0071 025b | [ | Execute Discrete,Check_In_Type 0072 87fe | | Call 0x3,-0x2 0073 01cc | | Execute Vector,Catenate 0074 e002 | | Load 0x0,0x2 0075 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0076 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x007b,0x02b0,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0065 ; Debug Table 0x3.0x0 = 0x7b,0x1 007c 0e00 | | Execute_Immediate Not_Equal,0x0 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0083,0x02b4,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0078 ; Debug Table 0x4.0x0 = 0x83,0x1 0084 e001 | | Load 0x0,0x1 0085 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0086 0122 | " | Execute Any,Make_Root_Type 0087 025e | ^ | Execute Discrete,Convert 0088 1c01 | | Execute_Immediate Run_Utility,0x1 0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0095 | | .CONST 0x0095 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x0093,0x02b8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0095 ; Debug Table 0x5.0x0 = 0x93,0xffff 0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0095 BODY_0090: 0095 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x1 = 0x95,0x1 0096 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0097 e7fe | | Load 0x3,-0x2 0098 e7ff | | Load 0x3,-0x1 0099 4800 |H | Short_Literal 0x0 009a 4800 |H | Short_Literal 0x0 009b 4800 |H | Short_Literal 0x0 009c e004 | | Load 0x0,0x4 009d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009e e005 | | Load 0x0,0x5 009f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a0 00d1 | | Pop_Control Pop_Count_1 00a1 0059 | Y | Store_Top Discrete,At_Offset_1 00a2 0092 01b1 | | Action Push_String_Extended,0x1b1 ; "Create (user)" ; Debug Table 0x5.0x2 = 0xa2,0x2 00a4 00d9 | | Load_Top At_Offset_1 00a5 e405 | | Load 0x2,0x5 00a6 4806 |H | Short_Literal 0x6 00a7 4802 |H | Short_Literal 0x2 00a8 0099 | | Action Reference_Dynamic 00a9 4807 |H | Short_Literal 0x7 00aa 4802 |H | Short_Literal 0x2 00ab 0099 | | Action Reference_Dynamic 00ac 4808 |H | Short_Literal 0x8 00ad 4802 |H | Short_Literal 0x2 00ae 0099 | | Action Reference_Dynamic 00af 8402 | | Call 0x2,0x2 00b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e001 | | Load 0x0,0x1 ; Debug Table 0x6 = .DEBUG 0x00bb,0x02c0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00c3 ; Debug Table 0x6.0x0 = 0xbb,0xffff 00bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bd BODY_00b8: 00bd e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x1 = 0xbd,0x1 00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bf e7fe | | Load 0x3,-0x2 00c0 e7ff | | Load 0x3,-0x1 00c1 4800 |H | Short_Literal 0x0 00c2 4800 |H | Short_Literal 0x0 00c3 4800 |H | Short_Literal 0x0 00c4 e004 | | Load 0x0,0x4 00c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c6 e005 | | Load 0x0,0x5 00c7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c9 00d1 | | Pop_Control Pop_Count_1 00ca 0059 | Y | Store_Top Discrete,At_Offset_1 00cb 0092 01b2 | | Action Push_String_Extended,0x1b2 ; "Create (session)" ; Debug Table 0x6.0x2 = 0xcb,0x2 00cd 00d9 | | Load_Top At_Offset_1 00ce e405 | | Load 0x2,0x5 00cf 4806 |H | Short_Literal 0x6 00d0 4802 |H | Short_Literal 0x2 00d1 0099 | | Action Reference_Dynamic 00d2 4807 |H | Short_Literal 0x7 00d3 4802 |H | Short_Literal 0x2 00d4 0099 | | Action Reference_Dynamic 00d5 4808 |H | Short_Literal 0x8 00d6 4802 |H | Short_Literal 0x2 00d7 0099 | | Action Reference_Dynamic 00d8 8402 | | Call 0x2,0x2 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e001 | | Load 0x0,0x1 ; Debug Table 0x7 = .DEBUG 0x00e3,0x02c8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00f5 ; Debug Table 0x7.0x0 = 0xe3,0xffff 00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e5 BODY_00e0: 00e5 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x1 = 0xe5,0x1 00e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e7 e7fe | | Load 0x3,-0x2 00e8 4800 |H | Short_Literal 0x0 00e9 e7ff | | Load 0x3,-0x1 00ea e005 | | Load 0x0,0x5 00eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ec 0059 | Y | Store_Top Discrete,At_Offset_1 00ed 0092 01b3 | | Action Push_String_Extended,0x1b3 ; "Destroy" ; Debug Table 0x7.0x2 = 0xed,0x2 00ef 00d9 | | Load_Top At_Offset_1 00f0 e405 | | Load 0x2,0x5 00f1 4806 |H | Short_Literal 0x6 00f2 4802 |H | Short_Literal 0x2 00f3 0099 | | Action Reference_Dynamic 00f4 4807 |H | Short_Literal 0x7 00f5 4802 |H | Short_Literal 0x2 00f6 0099 | | Action Reference_Dynamic 00f7 4808 |H | Short_Literal 0x8 00f8 4802 |H | Short_Literal 0x2 00f9 0099 | | Action Reference_Dynamic 00fa 8402 | | Call 0x2,0x2 00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0105 | | .CONST 0x0105 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e001 | | Load 0x0,0x1 ; Debug Table 0x8 = .DEBUG 0x0103,0x02d0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0123 ; Debug Table 0x8.0x0 = 0x103,0xffff 0104 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0105 BODY_0100: 0105 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x1 = 0x105,0x1 0106 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0107 e7fd | | Load 0x3,-0x3 0108 4800 |H | Short_Literal 0x0 0109 e7fe | | Load 0x3,-0x2 010a e7ff | | Load 0x3,-0x1 010b e005 | | Load 0x0,0x5 010c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 010d 0059 | Y | Store_Top Discrete,At_Offset_1 010e 0092 01b4 | | Action Push_String_Extended,0x1b4 ; "Add_Session" ; Debug Table 0x8.0x2 = 0x10e,0x2 0110 00d9 | | Load_Top At_Offset_1 0111 e405 | | Load 0x2,0x5 0112 4806 |H | Short_Literal 0x6 0113 4802 |H | Short_Literal 0x2 0114 0099 | | Action Reference_Dynamic 0115 4807 |H | Short_Literal 0x7 0116 4802 |H | Short_Literal 0x2 0117 0099 | | Action Reference_Dynamic 0118 4808 |H | Short_Literal 0x8 0119 4802 |H | Short_Literal 0x2 011a 0099 | | Action Reference_Dynamic 011b 8402 | | Call 0x2,0x2 011c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0125 | % | .CONST 0x0125 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e001 | | Load 0x0,0x1 ; Debug Table 0x9 = .DEBUG 0x0123,0x02d8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x015c ; Debug Table 0x9.0x0 = 0x123,0xffff 0124 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0125 BODY_0120: 0125 e001 | | Load 0x0,0x1 ; Debug Table 0x9.0x1 = 0x125,0x1 0126 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0127 e7fd | | Load 0x3,-0x3 0128 4800 |H | Short_Literal 0x0 0129 e7fe | | Load 0x3,-0x2 012a e7ff | | Load 0x3,-0x1 012b e005 | | Load 0x0,0x5 012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012d 0059 | Y | Store_Top Discrete,At_Offset_1 012e 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Delete_Session" ; Debug Table 0x9.0x2 = 0x12e,0x2 0130 00d9 | | Load_Top At_Offset_1 0131 e405 | | Load 0x2,0x5 0132 4806 |H | Short_Literal 0x6 0133 4802 |H | Short_Literal 0x2 0134 0099 | | Action Reference_Dynamic 0135 4807 |H | Short_Literal 0x7 0136 4802 |H | Short_Literal 0x2 0137 0099 | | Action Reference_Dynamic 0138 4808 |H | Short_Literal 0x8 0139 4802 |H | Short_Literal 0x2 013a 0099 | | Action Reference_Dynamic 013b 8402 | | Call 0x2,0x2 013c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0150 | P | .CONST 0x0150 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e006 | | Load 0x0,0x6 ; Debug Table 0xa = .DEBUG 0x0143,0x02e0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0195 ; Debug Table 0xa.0x0 = 0x143,0xffff 0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0145 02c7 | | Declare_Variable Any 0146 e007 | | Load 0x0,0x7 0147 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0148 e006 | | Load 0x0,0x6 0149 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014a c602 | | Store 0x3,0x2 014b e005 | | Load 0x0,0x5 ; Debug Table 0xa.0x1 = 0x14b,0xfffe 014c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014d 02ff | | Declare_Variable Variant_Record 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 BODY_0140: 0150 0092 01b6 | | Action Push_String_Extended,0x1b6 ; "Starting Destroy Test" ; Debug Table 0xa.0x2 = 0x150,0x1 0152 e002 | | Load 0x0,0x2 0153 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0154 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0x154,0x2 0155 00da | | Load_Top At_Offset_2 0156 840b | | Call 0x2,0xb 0157 00d1 | | Pop_Control Pop_Count_1 0158 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x4 = 0x158,0x3 0159 00d9 | | Load_Top At_Offset_1 015a 840d | | Call 0x2,0xd 015b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x5 = 0x15b,0x4 015c 4801 |H | Short_Literal 0x1 015d 4801 |H | Short_Literal 0x1 015e e006 | | Load 0x0,0x6 015f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0160 c602 | | Store 0x3,0x2 0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 017b | { | .CONST 0x017b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0004 | | .CONST 0x0004 ; Number of locals 016b INIT_0168: 016b e006 | | Load 0x0,0x6 ; Debug Table 0xb = .DEBUG 0x016b,0x02ee,0x0001,0x0000,0x002c,0xbc04,0x0000,0x01c7 ; Debug Table 0xb.0x0 = 0x16b,0xffff 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 02c7 | | Declare_Variable Any 016e 00d8 | | Load_Top At_Offset_0 016f 1c00 | | Execute_Immediate Run_Utility,0x0 0170 e005 | | Load 0x0,0x5 ; Debug Table 0xb.0x1 = 0x170,0xfffe 0171 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0172 02ff | | Declare_Variable Variant_Record 0173 00d8 | | Load_Top At_Offset_0 0174 1c00 | | Execute_Immediate Run_Utility,0x0 0175 e005 | | Load 0x0,0x5 ; Debug Table 0xb.0x2 = 0x175,0xfffd 0176 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0177 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0178 02ff | | Declare_Variable Variant_Record 0179 00d8 | | Load_Top At_Offset_0 017a 1c00 | | Execute_Immediate Run_Utility,0x0 017b BODY_0168: 017b 0092 01b7 | | Action Push_String_Extended,0x1b7 ; "Starting Modify Test" ; Debug Table 0xb.0x3 = 0x17b,0x1 017d e002 | | Load 0x0,0x2 017e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 017f e007 | | Load 0x0,0x7 ; Debug Table 0xb.0x4 = 0x17f,0x2 0180 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0181 e006 | | Load 0x0,0x6 0182 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0183 c602 | | Store 0x3,0x2 0184 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x5 = 0x184,0x3 0185 00db | | Load_Top At_Offset_3 0186 840b | | Call 0x2,0xb 0187 00d1 | | Pop_Control Pop_Count_1 0188 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x6 = 0x188,0x4 0189 00db | | Load_Top At_Offset_3 018a 840c | | Call 0x2,0xc 018b 00d1 | | Pop_Control Pop_Count_1 018c 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x7 = 0x18c,0x5 018d 00d9 | | Load_Top At_Offset_1 018e 00db | | Load_Top At_Offset_3 018f 840e | | Call 0x2,0xe 0190 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x8 = 0x190,0x6 0191 4801 |H | Short_Literal 0x1 0192 4801 |H | Short_Literal 0x1 0193 e006 | | Load 0x0,0x6 0194 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0195 c602 | | Store 0x3,0x2 0196 e007 | | Load 0x0,0x7 ; Debug Table 0xb.0x9 = 0x196,0x7 0197 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0198 e006 | | Load 0x0,0x6 0199 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019a c602 | | Store 0x3,0x2 019b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xa = 0x19b,0x8 019c 00d9 | | Load_Top At_Offset_1 019d 00db | | Load_Top At_Offset_3 019e 840f | | Call 0x2,0xf 019f 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xb = 0x19f,0x9 01a0 4801 |H | Short_Literal 0x1 01a1 4800 |H | Short_Literal 0x0 01a2 e006 | | Load 0x0,0x6 01a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a4 c602 | | Store 0x3,0x2 01a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 0000 0000 | | .LITERAL {0x00000000, 0x002cbc04} 01ac ; -------------------------------------------------------------------------------------- 01ac ; STRING TABLE 01ac ; -------------------------------------------------------------------------------------- 01ac 001a | | .STRTAB 0x001a->0x01b9 ; "Simple User Test: Open, Close, Create, Destroy" 01ad 0046 | F | .STRTAB 0x0046->0x01d0 ; "user-simple" 01ae 004f | O | .STRTAB 0x004f->0x01d5 ; "Unhandled Exception: " 01af 0062 | b | .STRTAB 0x0062->0x01e0 ; "BAD STATUS from " 01b0 0070 | p | .STRTAB 0x0070->0x01e8 ; ": " 01b1 0070 | p | .STRTAB 0x0070->0x01e9 ; "Create (user)" 01b2 007b | { | .STRTAB 0x007b->0x01ef ; "Create (session)" 01b3 0089 | | .STRTAB 0x0089->0x01f7 ; "Destroy" 01b4 008e | | .STRTAB 0x008e->0x01fb ; "Add_Session" 01b5 0097 | | .STRTAB 0x0097->0x0200 ; "Delete_Session" 01b6 00a3 | | .STRTAB 0x00a3->0x0207 ; "Starting Destroy Test" 01b7 00b6 | | .STRTAB 0x00b6->0x0212 ; "Starting Modify Test" 01b8 00c8 | | .STREND 0x00c8->0x021c 01b9 5369 6d70 |Simp| .STRTAB_STRINGS 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0003 000c | | .CONST 0x0003,0x000c 0222 000b 0282 | | .DEBUG 0x000b,0x0282,0x8000,0x0000,0x002c,0xbc04,0x0000,0x0011 022a 001b 0284 | | .DEBUG 0x001b,0x0284,0x8001,0x0000,0x002c,0xbc04,0x0000,0x0011 0232 0063 02aa | c | .DEBUG 0x0063,0x02aa,0x2801,0x0003,0x002c,0xbc04,0x0000,0x0014 023a 007b 02b0 | { | .DEBUG 0x007b,0x02b0,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0065 0242 0083 02b4 | | .DEBUG 0x0083,0x02b4,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0078 024a 0093 02b8 | | .DEBUG 0x0093,0x02b8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0095 0252 00bb 02c0 | | .DEBUG 0x00bb,0x02c0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00c3 025a 00e3 02c8 | | .DEBUG 0x00e3,0x02c8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00f5 0262 0103 02d0 | | .DEBUG 0x0103,0x02d0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0123 026a 0123 02d8 | # | .DEBUG 0x0123,0x02d8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x015c 0272 0143 02e0 | C | .DEBUG 0x0143,0x02e0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0195 027a 016b 02ee | k | .DEBUG 0x016b,0x02ee,0x0001,0x0000,0x002c,0xbc04,0x0000,0x01c7 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug3 Subtable 0x0 0282 ; -------------------------------------------------------------------------------------- 0282 0000 0000 | | .DBG3TAB 0x0000,0x0000 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug3 Subtable 0x1 0284 ; -------------------------------------------------------------------------------------- 0284 000c 0006 | | .DBG3TAB 0x000c,0x0006 0286 001b ffff | | .CONST 0x001b,0xffff 0288 001d fffe | | .CONST 0x001d,0xfffe 028a 0021 fffd | ! | .CONST 0x0021,0xfffd 028c 0023 fffc | # | .CONST 0x0023,0xfffc 028e 0025 fffb | % | .CONST 0x0025,0xfffb 0290 0035 fffa | 5 | .CONST 0x0035,0xfffa 0292 0037 fff9 | 7 | .CONST 0x0037,0xfff9 0294 0039 fff8 | 9 | .CONST 0x0039,0xfff8 0296 003b fff7 | ; | .CONST 0x003b,0xfff7 0298 003d fff6 | = | .CONST 0x003d,0xfff6 029a 003f fff5 | ? | .CONST 0x003f,0xfff5 029c 0041 fff4 | A | .CONST 0x0041,0xfff4 029e 0043 0001 | C | .CONST 0x0043,0x0001 02a0 0049 0002 | I | .CONST 0x0049,0x0002 02a2 004a 0003 | J | .CONST 0x004a,0x0003 02a4 004b 0004 | K | .CONST 0x004b,0x0004 02a6 004f 0005 | O | .CONST 0x004f,0x0005 02a8 0056 0006 | V | .CONST 0x0056,0x0006 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug3 Subtable 0x2 02aa ; -------------------------------------------------------------------------------------- 02aa 0000 0002 | | .DBG3TAB 0x0000,0x0002 02ac 0063 0001 | c | .CONST 0x0063,0x0001 02ae 0068 0002 | h | .CONST 0x0068,0x0002 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug3 Subtable 0x3 02b0 ; -------------------------------------------------------------------------------------- 02b0 0000 0001 | | .DBG3TAB 0x0000,0x0001 02b2 007b 0001 | { | .CONST 0x007b,0x0001 02b4 ; -------------------------------------------------------------------------------------- 02b4 ; Debug3 Subtable 0x4 02b4 ; -------------------------------------------------------------------------------------- 02b4 0000 0001 | | .DBG3TAB 0x0000,0x0001 02b6 0083 0001 | | .CONST 0x0083,0x0001 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug3 Subtable 0x5 02b8 ; -------------------------------------------------------------------------------------- 02b8 0001 0002 | | .DBG3TAB 0x0001,0x0002 02ba 0093 ffff | | .CONST 0x0093,0xffff 02bc 0095 0001 | | .CONST 0x0095,0x0001 02be 00a2 0002 | | .CONST 0x00a2,0x0002 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug3 Subtable 0x6 02c0 ; -------------------------------------------------------------------------------------- 02c0 0001 0002 | | .DBG3TAB 0x0001,0x0002 02c2 00bb ffff | | .CONST 0x00bb,0xffff 02c4 00bd 0001 | | .CONST 0x00bd,0x0001 02c6 00cb 0002 | | .CONST 0x00cb,0x0002 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug3 Subtable 0x7 02c8 ; -------------------------------------------------------------------------------------- 02c8 0001 0002 | | .DBG3TAB 0x0001,0x0002 02ca 00e3 ffff | | .CONST 0x00e3,0xffff 02cc 00e5 0001 | | .CONST 0x00e5,0x0001 02ce 00ed 0002 | | .CONST 0x00ed,0x0002 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug3 Subtable 0x8 02d0 ; -------------------------------------------------------------------------------------- 02d0 0001 0002 | | .DBG3TAB 0x0001,0x0002 02d2 0103 ffff | | .CONST 0x0103,0xffff 02d4 0105 0001 | | .CONST 0x0105,0x0001 02d6 010e 0002 | | .CONST 0x010e,0x0002 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug3 Subtable 0x9 02d8 ; -------------------------------------------------------------------------------------- 02d8 0001 0002 | | .DBG3TAB 0x0001,0x0002 02da 0123 ffff | # | .CONST 0x0123,0xffff 02dc 0125 0001 | % | .CONST 0x0125,0x0001 02de 012e 0002 | . | .CONST 0x012e,0x0002 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug3 Subtable 0xa 02e0 ; -------------------------------------------------------------------------------------- 02e0 0002 0004 | | .DBG3TAB 0x0002,0x0004 02e2 0143 ffff | C | .CONST 0x0143,0xffff 02e4 014b fffe | K | .CONST 0x014b,0xfffe 02e6 0150 0001 | P | .CONST 0x0150,0x0001 02e8 0154 0002 | T | .CONST 0x0154,0x0002 02ea 0158 0003 | X | .CONST 0x0158,0x0003 02ec 015b 0004 | [ | .CONST 0x015b,0x0004 02ee ; -------------------------------------------------------------------------------------- 02ee ; Debug3 Subtable 0xb 02ee ; -------------------------------------------------------------------------------------- 02ee 0003 0009 | | .DBG3TAB 0x0003,0x0009 02f0 016b ffff | k | .CONST 0x016b,0xffff 02f2 0170 fffe | p | .CONST 0x0170,0xfffe 02f4 0175 fffd | u | .CONST 0x0175,0xfffd 02f6 017b 0001 | { | .CONST 0x017b,0x0001 02f8 017f 0002 | | .CONST 0x017f,0x0002 02fa 0184 0003 | | .CONST 0x0184,0x0003 02fc 0188 0004 | | .CONST 0x0188,0x0004 02fe 018c 0005 | | .CONST 0x018c,0x0005 0300 0190 0006 | | .CONST 0x0190,0x0006 0302 0196 0007 | | .CONST 0x0196,0x0007 0304 019b 0008 | | .CONST 0x019b,0x0008 0306 019f 0009 | | .CONST 0x019f,0x0009 0308 0000 0000 | | .BLANK 0000[0xf8]