|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01a0 | | .CONST 0x01a0 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x021a,0x0000,0x0000,0x0057,0x3ff5,0x0000,0x026b ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0011 0129 | ) | Execute Any,Make_Visible 0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x12,0xfffc 0014 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x14,0xfffb 0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x16,0xfffa 0018 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x18,0xfff9 001a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1a,0xfff8 001c 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1c,0xfff7 001e 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1e,0xfff6 0020 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x20,0xfff5 0022 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x22,0xfff4 0024 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x24,0xfff3 0026 00bf | | Action Accept_Activation 0027 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0027,0x0236,0x0000,0x0000,0x0058,0xc905,0x0000,0x0006 ; Debug Table 0x1.0x0 = 0x27,0xffff 0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x28,0xfffe 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x2a,0xfffd 002b 00c7 | | Action Elaborate_Subprogram 002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x2c,0xfffc 002d 00c7 | | Action Elaborate_Subprogram 002e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x2e,0xfffb 002f 00c7 | | Action Elaborate_Subprogram 0030 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x30,0xfffa 0031 00c7 | | Action Elaborate_Subprogram 0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x6 = 0x32,0xfff9 0033 00c7 | | Action Elaborate_Subprogram 0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x7 = 0x34,0xfff8 0035 00c7 | | Action Elaborate_Subprogram 0036 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x36,0xfff7 0037 00c7 | | Action Elaborate_Subprogram 0038 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x38,0xfff6 0039 00c7 | | Action Elaborate_Subprogram 003a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xa = 0x3a,0xfff5 003b 00c7 | | Action Elaborate_Subprogram 003c 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xb = 0x3c,0xfff4 003d 00c7 | | Action Elaborate_Subprogram 003e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xc = 0x3e,0xfff3 003f 00c7 | | Action Elaborate_Subprogram 0040 BODY_0008: 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004f | O | .CONST 0x004f ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0003 | | .CONST 0x0003 ; Number of locals 004b INIT_0048: 004b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x004b,0x0252,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x026c ; Debug Table 0x2.0x0 = 0x4b,0xffff 004c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x4c,0xfffe 004d 0217 | | Execute Heap_Access,All_Reference 004e 0007 | | Action Break_Optional 004f BODY_0048: 004f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x4f,0x1 0050 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0051 e002 | | Load 0x0,0x2 0052 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0053 701a |p | Jump_Nonzero 0x6e 0054 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x54,0x2 0055 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0056 8003 | | Call 0x0,0x3 0057 00eb | | Load_Encached Diana_Cache 0058 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0059 00eb | | Load_Encached Diana_Cache 005a 18ec | | Execute Package,Field_Execute,Field_Number 0xec 005b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 005c 0007 | | Action Break_Optional ; Debug Table 0x2.0x4 = 0x5c,0x3 005d e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x5 = 0x5d,0x401 005e 0007 | | Action Break_Optional 005f 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x2.0x6 = 0x5f,0x402 0060 0007 | | Action Break_Optional ; Debug Table 0x2.0x7 = 0x60,0x403 0061 0007 | | Action Break_Optional ; Debug Table 0x2.0x8 = 0x61,0x404 0062 0ba8 | | Execute_Immediate Case_Compare,0xa8 ; Debug Table 0x2.0x9 = 0x62,0x3 0063 7003 |p | Jump_Nonzero 0x67 0064 0b49 | I | Execute_Immediate Case_Compare,0x49 0065 7003 |p | Jump_Nonzero 0x69 0066 7806 |x | Jump 0x6d ; Debug Table 0x2.0xa = 0x66,0x6 0067 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xb = 0x67,0x4 0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0069 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xc = 0x69,0x5 006a 00eb | | Load_Encached Diana_Cache 006b 18ec | | Execute Package,Field_Execute,Field_Number 0xec 006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006d 00d1 | | Pop_Control Pop_Count_1 006e 0007 | | Action Break_Optional ; Debug Table 0x2.0xd = 0x6e,0x7 006f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0xe = 0x6f,0x801 0070 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 ; Debug Table 0x2.0xf = 0x70,0x7 0071 0000 0000 | | .BLANK 0000[0x7] 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,0x0274,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x0277 ; Debug Table 0x3.0x0 = 0x7b,0x1 007c 0217 | | Execute Heap_Access,All_Reference 007d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 007e e004 | | Load 0x0,0x4 007f 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0080 180e | | Execute Package,Field_Execute,Field_Number 0xe 0081 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x008b,0x0278,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x0288 ; Debug Table 0x4.0x0 = 0x8b,0x1 008c 8005 | | Call 0x0,0x5 008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0096 | | .CONST 0x0096 ; 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,0x027c,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x0291 ; Debug Table 0x5.0x0 = 0x93,0xffff 0094 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0095 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0096 BODY_0090: 0096 8006 | | Call 0x0,0x6 ; Debug Table 0x5.0x1 = 0x96,0x1 0097 e5fe | | Load 0x2,-0x2 0098 8007 | | Call 0x0,0x7 0099 0219 | | Execute Heap_Access,All_Read 009a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009b e001 | | Load 0x0,0x1 009c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 009d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 009e 00d9 | | Load_Top At_Offset_1 009f e5ff | | Load 0x2,-0x1 00a0 e001 | | Load 0x0,0x1 00a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a3 00d1 | | Pop_Control Pop_Count_1 00a4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00a5 00d1 | | Pop_Control Pop_Count_1 00a6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0xa6,0x2 00a7 7003 |p | Jump_Nonzero 0xab 00a8 e008 | | Load 0x0,0x8 ; Debug Table 0x5.0x3 = 0xa8,0x3 00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x4 = 0xab,0x4 00ac 0217 | | Execute Heap_Access,All_Reference 00ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 8006 | | Call 0x0,0x6 ; Debug Table 0x6 = .DEBUG 0x00b3,0x0288,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02a2 ; Debug Table 0x6.0x0 = 0xb3,0x1 00b4 00db | | Load_Top At_Offset_3 00b5 8007 | | Call 0x0,0x7 00b6 0217 | | Execute Heap_Access,All_Reference 00b7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x00c3,0x028c,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02ad ; Debug Table 0x7.0x0 = 0xc3,0x1 00c4 00db | | Load_Top At_Offset_3 00c5 8214 | | Call 0x1,0x14 00c6 0f00 | | Execute_Immediate Equal,0x0 00c7 0f00 | | Execute_Immediate Equal,0x0 00c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d8 | | .CONST 0x00d8 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 e009 | | Load 0x0,0x9 ; Debug Table 0x8 = .DEBUG 0x00d3,0x0290,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02bc ; Debug Table 0x8.0x0 = 0xd3,0xffff 00d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d6 e00a | | Load 0x0,0xa ; Debug Table 0x8.0x1 = 0xd6,0xfffe 00d7 0007 | | Action Break_Optional 00d8 BODY_00d0: 00d8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x2 = 0xd8,0x1 00d9 00da | | Load_Top At_Offset_2 00da e5ff | | Load 0x2,-0x1 00db 8006 | | Call 0x0,0x6 00dc e5fe | | Load 0x2,-0x2 00dd 8007 | | Call 0x0,0x7 00de 0217 | | Execute Heap_Access,All_Reference 00df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00e0 e001 | | Load 0x0,0x1 00e1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e3 005b | [ | Store_Top Discrete,At_Offset_3 00e4 0059 | Y | Store_Top Discrete,At_Offset_1 00e5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x3 = 0xe5,0x2 00e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f0 | | .CONST 0x00f0 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0003 | | .CONST 0x0003 ; Number of locals 00eb INIT_00e8: 00eb e009 | | Load 0x0,0x9 ; Debug Table 0x9 = .DEBUG 0x00eb,0x029a,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02cd ; Debug Table 0x9.0x0 = 0xeb,0xffff 00ec 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ee e00a | | Load 0x0,0xa ; Debug Table 0x9.0x1 = 0xee,0xfffe 00ef 0007 | | Action Break_Optional 00f0 BODY_00e8: 00f0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x2 = 0xf0,0x1 00f1 00da | | Load_Top At_Offset_2 00f2 e5ff | | Load 0x2,-0x1 00f3 8006 | | Call 0x0,0x6 00f4 e5fe | | Load 0x2,-0x2 00f5 8007 | | Call 0x0,0x7 00f6 0217 | | Execute Heap_Access,All_Reference 00f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f8 e001 | | Load 0x0,0x1 00f9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00fb 005b | [ | Store_Top Discrete,At_Offset_3 00fc 0059 | Y | Store_Top Discrete,At_Offset_1 00fd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x3 = 0xfd,0x2 00fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0104 | | .CONST 0x0104 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 INIT_0100: 0103 0007 | | Action Break_Optional ; Debug Table 0xa = .DEBUG 0x0103,0x02a4,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02de ; Debug Table 0xa.0x0 = 0x103,0xffff 0104 BODY_0100: 0104 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x104,0x1 0105 e00b | | Load 0x0,0xb 0106 180f | | Execute Package,Field_Execute,Field_Number 0xf 0107 0f03 | | Execute_Immediate Equal,0x3 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0007 | | .CONST 0x0007 ; Number of locals 0113 INIT_0110: 0113 0007 | | Action Break_Optional ; Debug Table 0xb = .DEBUG 0x0113,0x02aa,0x0001,0x0000,0x0057,0x3ff5,0x0000,0x02e9 ; Debug Table 0xb.0x0 = 0x113,0xffff 0114 e009 | | Load 0x0,0x9 ; Debug Table 0xb.0x1 = 0x114,0xfffe 0115 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0116 e00b | | Load 0x0,0xb ; Debug Table 0xb.0x2 = 0x116,0xfffd 0117 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0118 e00a | | Load 0x0,0xa ; Debug Table 0xb.0x3 = 0x118,0xfffc 0119 0007 | | Action Break_Optional 011a e20f | | Load 0x1,0xf ; Debug Table 0xb.0x4 = 0x11a,0xfffb 011b 02ff | | Declare_Variable Variant_Record 011c 00d8 | | Load_Top At_Offset_0 011d 1c00 | | Execute_Immediate Run_Utility,0x0 011e e009 | | Load 0x0,0x9 ; Debug Table 0xb.0x5 = 0x11e,0xfffa 011f 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0120 0269 | i | Execute Discrete,Last 0121 e009 | | Load 0x0,0x9 0122 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0123 03f1 | | Declare_Variable Discrete,With_Value 0124 e00a | | Load 0x0,0xa ; Debug Table 0xb.0x6 = 0x124,0xfff9 0125 0007 | | Action Break_Optional 0126 BODY_0110: 0126 e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0x7 = 0x126,0x1 0127 8216 | | Call 0x1,0x16 0128 7002 |p | Jump_Nonzero 0x12b 0129 4887 |H | Short_Literal 0x87 012a 0257 | W | Execute Discrete,Raise 012b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0x8 = 0x12b,0x2 012c e00b | | Load 0x0,0xb 012d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 012e e009 | | Load 0x0,0x9 012f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0130 e5ff | | Load 0x2,-0x1 0131 e00b | | Load 0x0,0xb 0132 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0133 c402 | | Store 0x2,0x2 0134 c403 | | Store 0x2,0x3 0135 c404 | | Store 0x2,0x4 0136 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x9 = 0x136,0x3 0137 00e1 | | Load_Encached Boolean_Cache 0138 e402 | | Load 0x2,0x2 0139 e001 | | Load 0x0,0x1 013a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 013b 005a | Z | Store_Top Discrete,At_Offset_2 013c 00d1 | | Pop_Control Pop_Count_1 013d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0xa = 0x13d,0x4 013e 00da | | Load_Top At_Offset_2 013f e5ff | | Load 0x2,-0x1 0140 8006 | | Call 0x0,0x6 0141 e405 | | Load 0x2,0x5 0142 8007 | | Call 0x0,0x7 0143 0217 | | Execute Heap_Access,All_Reference 0144 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0145 e001 | | Load 0x0,0x1 0146 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0147 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0148 005b | [ | Store_Top Discrete,At_Offset_3 0149 0059 | Y | Store_Top Discrete,At_Offset_1 014a 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0xb = 0x14a,0x5 014b e5fd | | Load 0x2,-0x3 014c 016d | m | Execute Variant_Record,Structure_Write 014d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0xc = 0x14d,0x6 014e a5fe | | Store_Unchecked 0x2,-0x2 014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015b | [ | .CONST 0x015b ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e009 | | Load 0x0,0x9 ; Debug Table 0xc = .DEBUG 0x0153,0x02c6,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02fd ; Debug Table 0xc.0x0 = 0x153,0xffff 0154 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0155 0269 | i | Execute Discrete,Last 0156 e009 | | Load 0x0,0x9 0157 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0158 03f1 | | Declare_Variable Discrete,With_Value 0159 e00a | | Load 0x0,0xa ; Debug Table 0xc.0x1 = 0x159,0xfffe 015a 0007 | | Action Break_Optional 015b BODY_0150: 015b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xc.0x2 = 0x15b,0x1 015c 00da | | Load_Top At_Offset_2 015d e5ff | | Load 0x2,-0x1 015e 8006 | | Call 0x0,0x6 015f e5fe | | Load 0x2,-0x2 0160 8007 | | Call 0x0,0x7 0161 0217 | | Execute Heap_Access,All_Reference 0162 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0163 e001 | | Load 0x0,0x1 0164 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0165 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0166 005b | [ | Store_Top Discrete,At_Offset_3 0167 0059 | Y | Store_Top Discrete,At_Offset_1 0168 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x3 = 0x168,0x2 0169 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0180 | | .CONST 0x0180 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0006 | | .CONST 0x0006 ; Number of locals 0173 INIT_0170: 0173 029f 0193 | | Declare_Subprogram INIT_0190,For_Call ; Debug Table 0xd = .DEBUG 0x0173,0x02d0,0x2801,0x0002,0x0057,0x3ff5,0x0000,0x030e ; Debug Table 0xd.0x0 = 0x173,0xffff 0175 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x1 = 0x175,0xfffe 0176 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0177 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0178 00c6 | | Action Check_Subprogram_Elaborated 0179 4802 |H | Short_Literal 0x2 017a 4802 |H | Short_Literal 0x2 017b 0099 | | Action Reference_Dynamic 017c 601b |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x0058c905} 017d 4a9e |J | Short_Literal 0x29e 017e 4806 |H | Short_Literal 0x6 017f 0007 | | Action Break_Optional 0180 BODY_0170: 0180 e5fc | | Load 0x2,-0x4 ; Debug Table 0xd.0x2 = 0x180,0x1 0181 e5fd | | Load 0x2,-0x3 0182 8007 | | Call 0x0,0x7 0183 0219 | | Execute Heap_Access,All_Read 0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0185 00d8 | | Load_Top At_Offset_0 0186 4803 |H | Short_Literal 0x3 0187 4802 |H | Short_Literal 0x2 0188 0099 | | Action Reference_Dynamic 0189 4804 |H | Short_Literal 0x4 018a 4802 |H | Short_Literal 0x2 018b 0099 | | Action Reference_Dynamic 018c e001 | | Load 0x0,0x1 018d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 018e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 018f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x0193,0x02d8,0x0801,0x0002,0x0058,0xc905,0x0000,0x0285 ; Debug Table 0xe.0x0 = 0x193,0x1 0194 0217 | | Execute Heap_Access,All_Reference 0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0196 85fe | | Call 0x2,-0x2 0197 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0198 0000 0000 | | .LITERAL {0x00000000, 0x0058c905} 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug Table 01a0 ; -------------------------------------------------------------------------------------- 01a0 0003 000f | | .CONST 0x0003,0x000f 01a2 000b 021a | | .DEBUG 0x000b,0x021a,0x0000,0x0000,0x0057,0x3ff5,0x0000,0x026b 01aa 0027 0236 | ' 6| .DEBUG 0x0027,0x0236,0x0000,0x0000,0x0058,0xc905,0x0000,0x0006 01b2 004b 0252 | K R| .DEBUG 0x004b,0x0252,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x026c 01ba 007b 0274 | { t| .DEBUG 0x007b,0x0274,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x0277 01c2 008b 0278 | x| .DEBUG 0x008b,0x0278,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x0288 01ca 0093 027c | || .DEBUG 0x0093,0x027c,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x0291 01d2 00b3 0288 | | .DEBUG 0x00b3,0x0288,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02a2 01da 00c3 028c | | .DEBUG 0x00c3,0x028c,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02ad 01e2 00d3 0290 | | .DEBUG 0x00d3,0x0290,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02bc 01ea 00eb 029a | | .DEBUG 0x00eb,0x029a,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02cd 01f2 0103 02a4 | | .DEBUG 0x0103,0x02a4,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02de 01fa 0113 02aa | | .DEBUG 0x0113,0x02aa,0x0001,0x0000,0x0057,0x3ff5,0x0000,0x02e9 0202 0153 02c6 | S | .DEBUG 0x0153,0x02c6,0x0002,0x0000,0x0057,0x3ff5,0x0000,0x02fd 020a 0173 02d0 | s | .DEBUG 0x0173,0x02d0,0x2801,0x0002,0x0057,0x3ff5,0x0000,0x030e 0212 0193 02d8 | | .DEBUG 0x0193,0x02d8,0x0801,0x0002,0x0058,0xc905,0x0000,0x0285 021a ; -------------------------------------------------------------------------------------- 021a ; Debug3 Subtable 0x0 021a ; -------------------------------------------------------------------------------------- 021a 000d 0000 | | .DBG3TAB 0x000d,0x0000 021c 000b ffff | | .CONST 0x000b,0xffff 021e 000d fffe | | .CONST 0x000d,0xfffe 0220 000f fffd | | .CONST 0x000f,0xfffd 0222 0012 fffc | | .CONST 0x0012,0xfffc 0224 0014 fffb | | .CONST 0x0014,0xfffb 0226 0016 fffa | | .CONST 0x0016,0xfffa 0228 0018 fff9 | | .CONST 0x0018,0xfff9 022a 001a fff8 | | .CONST 0x001a,0xfff8 022c 001c fff7 | | .CONST 0x001c,0xfff7 022e 001e fff6 | | .CONST 0x001e,0xfff6 0230 0020 fff5 | | .CONST 0x0020,0xfff5 0232 0022 fff4 | " | .CONST 0x0022,0xfff4 0234 0024 fff3 | $ | .CONST 0x0024,0xfff3 0236 ; -------------------------------------------------------------------------------------- 0236 ; Debug3 Subtable 0x1 0236 ; -------------------------------------------------------------------------------------- 0236 000d 0000 | | .DBG3TAB 0x000d,0x0000 0238 0027 ffff | ' | .CONST 0x0027,0xffff 023a 0028 fffe | ( | .CONST 0x0028,0xfffe 023c 002a fffd | * | .CONST 0x002a,0xfffd 023e 002c fffc | , | .CONST 0x002c,0xfffc 0240 002e fffb | . | .CONST 0x002e,0xfffb 0242 0030 fffa | 0 | .CONST 0x0030,0xfffa 0244 0032 fff9 | 2 | .CONST 0x0032,0xfff9 0246 0034 fff8 | 4 | .CONST 0x0034,0xfff8 0248 0036 fff7 | 6 | .CONST 0x0036,0xfff7 024a 0038 fff6 | 8 | .CONST 0x0038,0xfff6 024c 003a fff5 | : | .CONST 0x003a,0xfff5 024e 003c fff4 | < | .CONST 0x003c,0xfff4 0250 003e fff3 | > | .CONST 0x003e,0xfff3 0252 ; -------------------------------------------------------------------------------------- 0252 ; Debug3 Subtable 0x2 0252 ; -------------------------------------------------------------------------------------- 0252 0002 000e | | .DBG3TAB 0x0002,0x000e 0254 004b ffff | K | .CONST 0x004b,0xffff 0256 004c fffe | L | .CONST 0x004c,0xfffe 0258 004f 0001 | O | .CONST 0x004f,0x0001 025a 0054 0002 | T | .CONST 0x0054,0x0002 025c 005c 0003 | \ | .CONST 0x005c,0x0003 025e 005d 0401 | ] | .CONST 0x005d,0x0401 0260 005f 0402 | _ | .CONST 0x005f,0x0402 0262 0060 0403 | ` | .CONST 0x0060,0x0403 0264 0061 0404 | a | .CONST 0x0061,0x0404 0266 0062 0003 | b | .CONST 0x0062,0x0003 0268 0066 0006 | f | .CONST 0x0066,0x0006 026a 0067 0004 | g | .CONST 0x0067,0x0004 026c 0069 0005 | i | .CONST 0x0069,0x0005 026e 006e 0007 | n | .CONST 0x006e,0x0007 0270 006f 0801 | o | .CONST 0x006f,0x0801 0272 0070 0007 | p | .CONST 0x0070,0x0007 0274 ; -------------------------------------------------------------------------------------- 0274 ; Debug3 Subtable 0x3 0274 ; -------------------------------------------------------------------------------------- 0274 0000 0001 | | .DBG3TAB 0x0000,0x0001 0276 007b 0001 | { | .CONST 0x007b,0x0001 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug3 Subtable 0x4 0278 ; -------------------------------------------------------------------------------------- 0278 0000 0001 | | .DBG3TAB 0x0000,0x0001 027a 008b 0001 | | .CONST 0x008b,0x0001 027c ; -------------------------------------------------------------------------------------- 027c ; Debug3 Subtable 0x5 027c ; -------------------------------------------------------------------------------------- 027c 0001 0004 | | .DBG3TAB 0x0001,0x0004 027e 0093 ffff | | .CONST 0x0093,0xffff 0280 0096 0001 | | .CONST 0x0096,0x0001 0282 00a6 0002 | | .CONST 0x00a6,0x0002 0284 00a8 0003 | | .CONST 0x00a8,0x0003 0286 00ab 0004 | | .CONST 0x00ab,0x0004 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug3 Subtable 0x6 0288 ; -------------------------------------------------------------------------------------- 0288 0000 0001 | | .DBG3TAB 0x0000,0x0001 028a 00b3 0001 | | .CONST 0x00b3,0x0001 028c ; -------------------------------------------------------------------------------------- 028c ; Debug3 Subtable 0x7 028c ; -------------------------------------------------------------------------------------- 028c 0000 0001 | | .DBG3TAB 0x0000,0x0001 028e 00c3 0001 | | .CONST 0x00c3,0x0001 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0x8 0290 ; -------------------------------------------------------------------------------------- 0290 0002 0002 | | .DBG3TAB 0x0002,0x0002 0292 00d3 ffff | | .CONST 0x00d3,0xffff 0294 00d6 fffe | | .CONST 0x00d6,0xfffe 0296 00d8 0001 | | .CONST 0x00d8,0x0001 0298 00e5 0002 | | .CONST 0x00e5,0x0002 029a ; -------------------------------------------------------------------------------------- 029a ; Debug3 Subtable 0x9 029a ; -------------------------------------------------------------------------------------- 029a 0002 0002 | | .DBG3TAB 0x0002,0x0002 029c 00eb ffff | | .CONST 0x00eb,0xffff 029e 00ee fffe | | .CONST 0x00ee,0xfffe 02a0 00f0 0001 | | .CONST 0x00f0,0x0001 02a2 00fd 0002 | | .CONST 0x00fd,0x0002 02a4 ; -------------------------------------------------------------------------------------- 02a4 ; Debug3 Subtable 0xa 02a4 ; -------------------------------------------------------------------------------------- 02a4 0001 0001 | | .DBG3TAB 0x0001,0x0001 02a6 0103 ffff | | .CONST 0x0103,0xffff 02a8 0104 0001 | | .CONST 0x0104,0x0001 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug3 Subtable 0xb 02aa ; -------------------------------------------------------------------------------------- 02aa 0007 0006 | | .DBG3TAB 0x0007,0x0006 02ac 0113 ffff | | .CONST 0x0113,0xffff 02ae 0114 fffe | | .CONST 0x0114,0xfffe 02b0 0116 fffd | | .CONST 0x0116,0xfffd 02b2 0118 fffc | | .CONST 0x0118,0xfffc 02b4 011a fffb | | .CONST 0x011a,0xfffb 02b6 011e fffa | | .CONST 0x011e,0xfffa 02b8 0124 fff9 | $ | .CONST 0x0124,0xfff9 02ba 0126 0001 | & | .CONST 0x0126,0x0001 02bc 012b 0002 | + | .CONST 0x012b,0x0002 02be 0136 0003 | 6 | .CONST 0x0136,0x0003 02c0 013d 0004 | = | .CONST 0x013d,0x0004 02c2 014a 0005 | J | .CONST 0x014a,0x0005 02c4 014d 0006 | M | .CONST 0x014d,0x0006 02c6 ; -------------------------------------------------------------------------------------- 02c6 ; Debug3 Subtable 0xc 02c6 ; -------------------------------------------------------------------------------------- 02c6 0002 0002 | | .DBG3TAB 0x0002,0x0002 02c8 0153 ffff | S | .CONST 0x0153,0xffff 02ca 0159 fffe | Y | .CONST 0x0159,0xfffe 02cc 015b 0001 | [ | .CONST 0x015b,0x0001 02ce 0168 0002 | h | .CONST 0x0168,0x0002 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug3 Subtable 0xd 02d0 ; -------------------------------------------------------------------------------------- 02d0 0002 0001 | | .DBG3TAB 0x0002,0x0001 02d2 0173 ffff | s | .CONST 0x0173,0xffff 02d4 0175 fffe | u | .CONST 0x0175,0xfffe 02d6 0180 0001 | | .CONST 0x0180,0x0001 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug3 Subtable 0xe 02d8 ; -------------------------------------------------------------------------------------- 02d8 0000 0001 | | .DBG3TAB 0x0000,0x0001 02da 0193 0001 | | .CONST 0x0193,0x0001 02dc 0000 0000 | | .BLANK 0000[0x124]