|
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_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01e0 | | .CONST 0x01e0 ; 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 001a | | .CONST 0x001a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0222,0x0000,0x0000,0x005a,0x8bc5,0x0000,0x005c ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 00bf | | Action Accept_Activation 000e 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x000e,0x0226,0x0000,0x0000,0x005a,0x8da5,0x0000,0x0006 ; Debug Table 0x1.0x0 = 0xe,0xffff 0010 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call ; Debug Table 0x1.0x1 = 0x10,0xfffe 0012 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call ; Debug Table 0x1.0x2 = 0x12,0xfffd 0014 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call ; Debug Table 0x1.0x3 = 0x14,0xfffc 0016 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x1.0x4 = 0x16,0xfffb 0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x5 = 0x18,0xfffa 0019 00c7 | | Action Elaborate_Subprogram 001a BODY_0008: 001a 00bc | | Action Signal_Activated 001b 00bb | | Action Signal_Completion 001c 0000 0000 | | .BLANK 0000[0x4] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0025 | % | .CONST 0x0025 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0003 | | .CONST 0x0003 ; Number of locals 0023 INIT_0020: 0023 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x2 = .DEBUG 0x0023,0x0234,0x0001,0x0000,0x005a,0x8bc5,0x0000,0x005d ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x2.0x1 = 0x24,0xfffe 0025 BODY_0020: 0025 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x2 = 0x25,0x1 0026 00f1 | | Load_Encached Diana_Temp_Seq 0027 8210 | | Call 0x1,0x10 0028 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0029 00d1 | | Pop_Control Pop_Count_1 002a 7808 |x | Jump 0x33 002b 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x2.0x3 = 0x2b,0x3 002c e5ff | | Load 0x2,-0x1 002d 00da | | Load_Top At_Offset_2 002e 8212 | | Call 0x1,0x12 002f 00d1 | | Pop_Control Pop_Count_1 0030 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0031 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x4 = 0x31,0x4 0032 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0033 0007 | | Action Break_Optional ; Debug Table 0x2.0x5 = 0x33,0x2 0034 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x34,0x401 0035 021d | | Execute Heap_Access,Is_Null 0036 6ff4 |o | Jump_Zero 0x2b ; Debug Table 0x2.0x7 = 0x36,0x2 0037 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x8 = 0x37,0x5 0038 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0039 0217 | | Execute Heap_Access,All_Reference 003a 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 003b 7004 |p | Jump_Nonzero 0x40 003c e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x9 = 0x3c,0x6 003d e001 | | Load 0x0,0x1 003e 180f | | Execute Package,Field_Execute,Field_Number 0xf 003f 00d1 | | Pop_Control Pop_Count_1 0040 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0041 0000 0000 | | .BLANK 0000[0x7] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x004b,0x024a,0x0002,0x0000,0x005a,0x8da5,0x0000,0x0007 ; Debug Table 0x3.0x0 = 0x4b,0x1 004c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 004d 0217 | | Execute Heap_Access,All_Reference 004e 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 004f 6802 |h | Jump_Zero 0x52 0050 4803 |H | Short_Literal 0x3 ; Debug Table 0x3.0x1 = 0x50,0x2 0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0052 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x2 = 0x52,0x3 0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0064 | d | .CONST 0x0064 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0004 | | .CONST 0x0004 ; Number of locals 005b INIT_0058: 005b 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x4 = .DEBUG 0x005b,0x0252,0x0001,0x0000,0x005a,0x8da5,0x0000,0x0022 ; Debug Table 0x4.0x0 = 0x5b,0xffff 005c e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1 = 0x5c,0xfffe 005d 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 005e e5fd | | Load 0x2,-0x3 005f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0060 0217 | | Execute Heap_Access,All_Reference 0061 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 0062 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0063 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x4.0x2 = 0x63,0xfffd 0064 BODY_0058: 0064 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x3 = 0x64,0x1 0065 a5fe | | Store_Unchecked 0x2,-0x2 0066 785b |x[ | Jump 0xc2 0067 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0x67,0x3 0068 0217 | | Execute Heap_Access,All_Reference 0069 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 006a e5ff | | Load 0x2,-0x1 006b 027a | z | Execute Discrete,Less_Equal 006c 6851 |hQ | Jump_Zero 0xbe 006d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x5 = 0x6d,0x4 006e 0217 | | Execute Heap_Access,All_Reference 006f 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0070 0f01 | | Execute_Immediate Equal,0x1 0071 6803 |h | Jump_Zero 0x75 0072 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x6 = 0x72,0x5 0073 e004 | | Load 0x0,0x4 0074 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0075 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x7 = 0x75,0x6 0076 0f02 | | Execute_Immediate Equal,0x2 0077 680c |h | Jump_Zero 0x84 0078 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x8 = 0x78,0x7 0079 00f1 | | Load_Encached Diana_Temp_Seq 007a 00db | | Load_Top At_Offset_3 007b 0217 | | Execute Heap_Access,All_Reference 007c 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 007d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007e e403 | | Load 0x2,0x3 007f e005 | | Load 0x0,0x5 0080 180f | | Execute Package,Field_Execute,Field_Number 0xf 0081 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0082 00d1 | | Pop_Control Pop_Count_1 0083 780b |x | Jump 0x8f 0084 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x9 = 0x84,0x8 0085 00f1 | | Load_Encached Diana_Temp_Seq 0086 00db | | Load_Top At_Offset_3 0087 0217 | | Execute Heap_Access,All_Reference 0088 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 0089 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008a e403 | | Load 0x2,0x3 008b e005 | | Load 0x0,0x5 008c 180f | | Execute Package,Field_Execute,Field_Number 0xf 008d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 008e 00d1 | | Pop_Control Pop_Count_1 008f 0007 | | Action Break_Optional ; Debug Table 0x4.0xa = 0x8f,0x9 0090 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xb = 0x90,0x401 0091 021d | | Execute Heap_Access,Is_Null 0092 7011 |p | Jump_Nonzero 0xa4 ; Debug Table 0x4.0xc = 0x92,0x9 0093 0007 | | Action Break_Optional ; Debug Table 0x4.0xd = 0x93,0xa 0094 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xe = 0x94,0x801 0095 021d | | Execute Heap_Access,Is_Null 0096 6803 |h | Jump_Zero 0x9a ; Debug Table 0x4.0xf = 0x96,0xa 0097 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x10 = 0x97,0xb 0098 a5fe | | Store_Unchecked 0x2,-0x2 0099 7804 |x | Jump 0x9e 009a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x11 = 0x9a,0xc 009b 00db | | Load_Top At_Offset_3 009c 00eb | | Load_Encached Diana_Cache 009d 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 009e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x12 = 0x9e,0xd 009f 4975 |Iu | Short_Literal 0x175 00a0 00eb | | Load_Encached Diana_Cache 00a1 0098 | | Execute Package,Field_Read_Dynamic 00a2 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00a3 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00a4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x13 = 0xa4,0xe 00a5 0f02 | | Execute_Immediate Equal,0x2 00a6 680c |h | Jump_Zero 0xb3 00a7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x14 = 0xa7,0xf 00a8 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 00a9 00da | | Load_Top At_Offset_2 00aa 0217 | | Execute Heap_Access,All_Reference 00ab 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 00ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ad e006 | | Load 0x0,0x6 00ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00af 00da | | Load_Top At_Offset_2 00b0 0217 | | Execute Heap_Access,All_Reference 00b1 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 00b2 780b |x | Jump 0xbe 00b3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x15 = 0xb3,0x10 00b4 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 00b5 00da | | Load_Top At_Offset_2 00b6 0217 | | Execute Heap_Access,All_Reference 00b7 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14 00b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b9 e006 | | Load 0x0,0x6 00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bb 00da | | Load_Top At_Offset_2 00bc 0217 | | Execute Heap_Access,All_Reference 00bd 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 00be 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x16 = 0xbe,0x11 00bf 0217 | | Execute Heap_Access,All_Reference 00c0 3c1f |< | Execute Record,Field_Read,Field_Number 0x1f 00c1 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00c2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x17 = 0xc2,0x2 00c3 77a3 |w | Jump_Nonzero 0x67 00c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cc | | .CONST 0x00cc ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x5 = .DEBUG 0x00cb,0x0284,0x0001,0x0000,0x005a,0x8da5,0x0000,0x00f5 ; Debug Table 0x5.0x0 = 0xcb,0xffff 00cc BODY_00c8: 00cc e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x1 = 0xcc,0x1 00cd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00ce 4609 |F | Jump_Case 0xa 00cf 7859 |xY | Jump 0x129 ; case 0x0 00d0 7835 |x5 | Jump 0x106 ; case 0x1 00d1 7807 |x | Jump 0xd9 ; case 0x2 00d2 7806 |x | Jump 0xd9 ; case 0x3 00d3 7805 |x | Jump 0xd9 ; case 0x4 00d4 781c |x | Jump 0xf1 ; case 0x5 00d5 7849 |xI | Jump 0x11f ; case 0x6 00d6 7848 |xH | Jump 0x11f ; case 0x7 00d7 784f |xO | Jump 0x127 ; case 0x8 00d8 7846 |xF | Jump 0x11f ; case 0x9 00d9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x2 = 0xd9,0x2 00da 00f1 | | Load_Encached Diana_Temp_Seq 00db 4803 |H | Short_Literal 0x3 00dc 820f | | Call 0x1,0xf 00dd 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00de 00d1 | | Pop_Control Pop_Count_1 00df e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x3 = 0xdf,0x3 00e0 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 00e1 6847 |hG | Jump_Zero 0x129 00e2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x4 = 0xe2,0x4 00e3 00d9 | | Load_Top At_Offset_1 00e4 e5fe | | Load 0x2,-0x2 00e5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00e6 0007 | | Action Break_Optional 00e7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0xe7,0x401 00e8 0217 | | Execute Heap_Access,All_Reference 00e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ea 00d0 | | Action Swap_Control 00eb 00d1 | | Pop_Control Pop_Count_1 00ec e007 | | Load 0x0,0x7 ; Debug Table 0x5.0x6 = 0xec,0x4 00ed 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ee 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ef 00d1 | | Pop_Control Pop_Count_1 00f0 7838 |x8 | Jump 0x129 00f1 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x7 = 0xf1,0x5 00f2 00f1 | | Load_Encached Diana_Temp_Seq 00f3 4803 |H | Short_Literal 0x3 00f4 820f | | Call 0x1,0xf 00f5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00f6 00d1 | | Pop_Control Pop_Count_1 00f7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x8 = 0xf7,0x6 00f8 00d9 | | Load_Top At_Offset_1 00f9 e5fe | | Load 0x2,-0x2 00fa 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00fb 0007 | | Action Break_Optional 00fc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x9 = 0xfc,0x801 00fd 0217 | | Execute Heap_Access,All_Reference 00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ff 00d0 | | Action Swap_Control 0100 00d1 | | Pop_Control Pop_Count_1 0101 e007 | | Load 0x0,0x7 ; Debug Table 0x5.0xa = 0x101,0x6 0102 180f | | Execute Package,Field_Execute,Field_Number 0xf 0103 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0104 00d1 | | Pop_Control Pop_Count_1 0105 7823 |x# | Jump 0x129 0106 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0xb = 0x106,0x7 0107 00f1 | | Load_Encached Diana_Temp_Seq 0108 e5fe | | Load 0x2,-0x2 0109 820e | | Call 0x1,0xe 010a 820f | | Call 0x1,0xf 010b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 010c 00d1 | | Pop_Control Pop_Count_1 010d e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0xc = 0x10d,0x8 010e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 010f 6819 |h | Jump_Zero 0x129 0110 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0xd = 0x110,0x9 0111 00d9 | | Load_Top At_Offset_1 0112 e5fe | | Load 0x2,-0x2 0113 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0114 0007 | | Action Break_Optional 0115 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0xe = 0x115,0xc01 0116 0217 | | Execute Heap_Access,All_Reference 0117 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0118 00d0 | | Action Swap_Control 0119 00d1 | | Pop_Control Pop_Count_1 011a e007 | | Load 0x0,0x7 ; Debug Table 0x5.0xf = 0x11a,0x9 011b 180f | | Execute Package,Field_Execute,Field_Number 0xf 011c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 011d 00d1 | | Pop_Control Pop_Count_1 011e 780a |x | Jump 0x129 011f e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x10 = 0x11f,0xa 0120 00f1 | | Load_Encached Diana_Temp_Seq 0121 e5fe | | Load 0x2,-0x2 0122 820e | | Call 0x1,0xe 0123 820f | | Call 0x1,0xf 0124 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0125 00d1 | | Pop_Control Pop_Count_1 0126 7802 |x | Jump 0x129 0127 e003 | | Load 0x0,0x3 ; Debug Table 0x5.0x11 = 0x127,0xb 0128 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0129 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x12 = 0x129,0xd 012a a5ff | | Store_Unchecked 0x2,-0x1 012b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0137 | 7 | .CONST 0x0137 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0004 | | .CONST 0x0004 ; Number of locals 0133 INIT_0130: 0133 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x6 = .DEBUG 0x0133,0x02ac,0x0001,0x0000,0x005a,0x8da5,0x0000,0x018c ; Debug Table 0x6.0x0 = 0x133,0xffff 0134 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x1 = 0x134,0xfffe 0135 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0136 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x6.0x2 = 0x136,0xfffd 0137 BODY_0130: 0137 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x3 = 0x137,0x1 0138 00f1 | | Load_Encached Diana_Temp_Seq 0139 00f1 | | Load_Encached Diana_Temp_Seq 013a e5ff | | Load 0x2,-0x1 013b e5fe | | Load 0x2,-0x2 013c e008 | | Load 0x0,0x8 013d 180d | | Execute Package,Field_Execute,Field_Number 0xd 013e c402 | | Store 0x2,0x2 013f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0140 00d1 | | Pop_Control Pop_Count_1 0141 e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x4 = 0x141,0x2 0142 e5fd | | Load 0x2,-0x3 0143 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0144 00da | | Load_Top At_Offset_2 0145 e006 | | Load 0x0,0x6 0146 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0147 c5fc | | Store 0x2,-0x4 0148 0007 | | Action Break_Optional ; Debug Table 0x6.0x5 = 0x148,0x3 0149 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x6 = 0x149,0x401 014a 021d | | Execute Heap_Access,Is_Null 014b 702c |p, | Jump_Nonzero 0x178 ; Debug Table 0x6.0x7 = 0x14b,0x3 014c e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x8 = 0x14c,0x4 014d e5fd | | Load 0x2,-0x3 014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014f e009 | | Load 0x0,0x9 0150 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0151 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0152 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x9 = 0x152,0x5 0153 681b |h | Jump_Zero 0x16f 0154 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xa = 0x154,0x6 0155 0219 | | Execute Heap_Access,All_Read 0156 00d8 | | Load_Top At_Offset_0 0157 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 0158 e5fd | | Load 0x2,-0x3 0159 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 015a e402 | | Load 0x2,0x2 015b e006 | | Load 0x0,0x6 015c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015d 00d9 | | Load_Top At_Offset_1 015e 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 015f 00d1 | | Pop_Control Pop_Count_1 0160 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xb = 0x160,0x7 0161 0217 | | Execute Heap_Access,All_Reference 0162 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0163 4605 |F | Jump_Case 0x6 0164 7805 |x | Jump 0x16a ; case 0x0 0165 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1 0166 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2 0167 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x3 0168 7801 |x | Jump 0x16a ; case 0x4 0169 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x5 016a 4805 |H | Short_Literal 0x5 ; Debug Table 0x6.0xc = 0x16a,0x8 016b 00da | | Load_Top At_Offset_2 016c 0217 | | Execute Heap_Access,All_Reference 016d 380c |8 | Execute Record,Field_Write,Field_Number 0xc 016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016f 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xd = 0x16f,0xa 0170 e5fd | | Load 0x2,-0x3 0171 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0172 e402 | | Load 0x2,0x2 0173 e5ff | | Load 0x2,-0x1 0174 e5fd | | Load 0x2,-0x3 0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0176 e009 | | Load 0x0,0x9 0177 180e | | Execute Package,Field_Execute,Field_Number 0xe 0178 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 018a | | .CONST 0x018a ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0006 | | .CONST 0x0006 ; Number of locals 0183 INIT_0180: 0183 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x7 = .DEBUG 0x0183,0x02ca,0x0001,0x0000,0x005a,0x8da5,0x0000,0x0221 ; Debug Table 0x7.0x0 = 0x183,0xffff 0184 00db | | Load_Top At_Offset_3 0185 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0186 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x1 = 0x186,0xfffe 0187 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x7.0x2 = 0x187,0xfffd 0188 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x7.0x3 = 0x188,0xfffc 0189 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x4 = 0x189,0xfffb 018a BODY_0180: 018a e003 | | Load 0x0,0x3 ; Debug Table 0x7.0x5 = 0x18a,0x1 018b e5fe | | Load 0x2,-0x2 018c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018d 7830 |x0 | Jump 0x1be 018e 0007 | | Action Break_Optional ; Debug Table 0x7.0x6 = 0x18e,0x3 018f e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x7 = 0x18f,0x401 0190 0217 | | Execute Heap_Access,All_Reference 0191 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0192 a403 | | Store_Unchecked 0x2,0x3 ; Debug Table 0x7.0x8 = 0x192,0x3 0193 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x9 = 0x193,0x4 0194 e403 | | Load 0x2,0x3 0195 e00a | | Load 0x0,0xa 0196 180d | | Execute Package,Field_Execute,Field_Number 0xd 0197 00d1 | | Pop_Control Pop_Count_1 0198 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xa = 0x198,0x5 0199 e00b | | Load 0x0,0xb 019a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 019c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 019d e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0xb = 0x19d,0x6 019e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 019f 00d9 | | Load_Top At_Offset_1 01a0 4975 |Iu | Short_Literal 0x175 01a1 00eb | | Load_Encached Diana_Cache 01a2 0098 | | Execute Package,Field_Read_Dynamic 01a3 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 01a4 7009 |p | Jump_Nonzero 0x1ae 01a5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0xc = 0x1a5,0x7 01a6 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 01a7 e5fe | | Load 0x2,-0x2 01a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a9 00da | | Load_Top At_Offset_2 01aa 00eb | | Load_Encached Diana_Cache 01ab 1875 | u | Execute Package,Field_Execute,Field_Number 0x75 01ac e5fe | | Load 0x2,-0x2 01ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ae 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xd = 0x1ae,0x8 01af e007 | | Load 0x0,0x7 01b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b1 6807 |h | Jump_Zero 0x1b9 01b2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0xe = 0x1b2,0x9 01b3 00da | | Load_Top At_Offset_2 01b4 e403 | | Load 0x2,0x3 01b5 e007 | | Load 0x0,0x7 01b6 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b7 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01b8 00d1 | | Pop_Control Pop_Count_1 01b9 0007 | | Action Break_Optional ; Debug Table 0x7.0xf = 0x1b9,0xa 01ba e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x10 = 0x1ba,0x801 01bb 0217 | | Execute Heap_Access,All_Reference 01bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01bd a402 | | Store_Unchecked 0x2,0x2 ; Debug Table 0x7.0x11 = 0x1bd,0xa 01be 0007 | | Action Break_Optional ; Debug Table 0x7.0x12 = 0x1be,0x2 01bf e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x13 = 0x1bf,0xc01 01c0 021d | | Execute Heap_Access,Is_Null 01c1 6fcc |o | Jump_Zero 0x18e ; Debug Table 0x7.0x14 = 0x1c1,0x2 01c2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x15 = 0x1c2,0xb 01c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01c5 780f |x | Jump 0x1d5 01c6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x16 = 0x1c6,0xd 01c7 e5fe | | Load 0x2,-0x2 01c8 e5ff | | Load 0x2,-0x1 01c9 0007 | | Action Break_Optional 01ca e404 | | Load 0x2,0x4 ; Debug Table 0x7.0x17 = 0x1ca,0x1001 01cb 0217 | | Execute Heap_Access,All_Reference 01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cd 8211 | | Call 0x1,0x11 ; Debug Table 0x7.0x18 = 0x1cd,0xd 01ce 00d1 | | Pop_Control Pop_Count_1 01cf 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01d0 0007 | | Action Break_Optional ; Debug Table 0x7.0x19 = 0x1d0,0xe 01d1 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x1a = 0x1d1,0x1401 01d2 0217 | | Execute Heap_Access,All_Reference 01d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 ; Debug Table 0x7.0x1b = 0x1d4,0xe 01d5 0007 | | Action Break_Optional ; Debug Table 0x7.0x1c = 0x1d5,0xc 01d6 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x1d = 0x1d6,0x1801 01d7 021d | | Execute Heap_Access,Is_Null 01d8 6fed |o | Jump_Zero 0x1c6 ; Debug Table 0x7.0x1e = 0x1d8,0xc 01d9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x1f = 0x1d9,0xf 01da a5fd | | Store_Unchecked 0x2,-0x3 01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0003 0008 | | .CONST 0x0003,0x0008 01e2 000b 0222 | "| .DEBUG 0x000b,0x0222,0x0000,0x0000,0x005a,0x8bc5,0x0000,0x005c 01ea 000e 0226 | &| .DEBUG 0x000e,0x0226,0x0000,0x0000,0x005a,0x8da5,0x0000,0x0006 01f2 0023 0234 | # 4| .DEBUG 0x0023,0x0234,0x0001,0x0000,0x005a,0x8bc5,0x0000,0x005d 01fa 004b 024a | K J| .DEBUG 0x004b,0x024a,0x0002,0x0000,0x005a,0x8da5,0x0000,0x0007 0202 005b 0252 | [ R| .DEBUG 0x005b,0x0252,0x0001,0x0000,0x005a,0x8da5,0x0000,0x0022 020a 00cb 0284 | | .DEBUG 0x00cb,0x0284,0x0001,0x0000,0x005a,0x8da5,0x0000,0x00f5 0212 0133 02ac | 3 | .DEBUG 0x0133,0x02ac,0x0001,0x0000,0x005a,0x8da5,0x0000,0x018c 021a 0183 02ca | | .DEBUG 0x0183,0x02ca,0x0001,0x0000,0x005a,0x8da5,0x0000,0x0221 0222 ; -------------------------------------------------------------------------------------- 0222 ; Debug3 Subtable 0x0 0222 ; -------------------------------------------------------------------------------------- 0222 0001 0000 | | .DBG3TAB 0x0001,0x0000 0224 000b ffff | | .CONST 0x000b,0xffff 0226 ; -------------------------------------------------------------------------------------- 0226 ; Debug3 Subtable 0x1 0226 ; -------------------------------------------------------------------------------------- 0226 0006 0000 | | .DBG3TAB 0x0006,0x0000 0228 000e ffff | | .CONST 0x000e,0xffff 022a 0010 fffe | | .CONST 0x0010,0xfffe 022c 0012 fffd | | .CONST 0x0012,0xfffd 022e 0014 fffc | | .CONST 0x0014,0xfffc 0230 0016 fffb | | .CONST 0x0016,0xfffb 0232 0018 fffa | | .CONST 0x0018,0xfffa 0234 ; -------------------------------------------------------------------------------------- 0234 ; Debug3 Subtable 0x2 0234 ; -------------------------------------------------------------------------------------- 0234 0002 0008 | | .DBG3TAB 0x0002,0x0008 0236 0023 ffff | # | .CONST 0x0023,0xffff 0238 0024 fffe | $ | .CONST 0x0024,0xfffe 023a 0025 0001 | % | .CONST 0x0025,0x0001 023c 002b 0003 | + | .CONST 0x002b,0x0003 023e 0031 0004 | 1 | .CONST 0x0031,0x0004 0240 0033 0002 | 3 | .CONST 0x0033,0x0002 0242 0034 0401 | 4 | .CONST 0x0034,0x0401 0244 0036 0002 | 6 | .CONST 0x0036,0x0002 0246 0037 0005 | 7 | .CONST 0x0037,0x0005 0248 003c 0006 | < | .CONST 0x003c,0x0006 024a ; -------------------------------------------------------------------------------------- 024a ; Debug3 Subtable 0x3 024a ; -------------------------------------------------------------------------------------- 024a 0000 0003 | | .DBG3TAB 0x0000,0x0003 024c 004b 0001 | K | .CONST 0x004b,0x0001 024e 0050 0002 | P | .CONST 0x0050,0x0002 0250 0052 0003 | R | .CONST 0x0052,0x0003 0252 ; -------------------------------------------------------------------------------------- 0252 ; Debug3 Subtable 0x4 0252 ; -------------------------------------------------------------------------------------- 0252 0003 0015 | | .DBG3TAB 0x0003,0x0015 0254 005b ffff | [ | .CONST 0x005b,0xffff 0256 005c fffe | \ | .CONST 0x005c,0xfffe 0258 0063 fffd | c | .CONST 0x0063,0xfffd 025a 0064 0001 | d | .CONST 0x0064,0x0001 025c 0067 0003 | g | .CONST 0x0067,0x0003 025e 006d 0004 | m | .CONST 0x006d,0x0004 0260 0072 0005 | r | .CONST 0x0072,0x0005 0262 0075 0006 | u | .CONST 0x0075,0x0006 0264 0078 0007 | x | .CONST 0x0078,0x0007 0266 0084 0008 | | .CONST 0x0084,0x0008 0268 008f 0009 | | .CONST 0x008f,0x0009 026a 0090 0401 | | .CONST 0x0090,0x0401 026c 0092 0009 | | .CONST 0x0092,0x0009 026e 0093 000a | | .CONST 0x0093,0x000a 0270 0094 0801 | | .CONST 0x0094,0x0801 0272 0096 000a | | .CONST 0x0096,0x000a 0274 0097 000b | | .CONST 0x0097,0x000b 0276 009a 000c | | .CONST 0x009a,0x000c 0278 009e 000d | | .CONST 0x009e,0x000d 027a 00a4 000e | | .CONST 0x00a4,0x000e 027c 00a7 000f | | .CONST 0x00a7,0x000f 027e 00b3 0010 | | .CONST 0x00b3,0x0010 0280 00be 0011 | | .CONST 0x00be,0x0011 0282 00c2 0002 | | .CONST 0x00c2,0x0002 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug3 Subtable 0x5 0284 ; -------------------------------------------------------------------------------------- 0284 0001 0012 | | .DBG3TAB 0x0001,0x0012 0286 00cb ffff | | .CONST 0x00cb,0xffff 0288 00cc 0001 | | .CONST 0x00cc,0x0001 028a 00d9 0002 | | .CONST 0x00d9,0x0002 028c 00df 0003 | | .CONST 0x00df,0x0003 028e 00e2 0004 | | .CONST 0x00e2,0x0004 0290 00e7 0401 | | .CONST 0x00e7,0x0401 0292 00ec 0004 | | .CONST 0x00ec,0x0004 0294 00f1 0005 | | .CONST 0x00f1,0x0005 0296 00f7 0006 | | .CONST 0x00f7,0x0006 0298 00fc 0801 | | .CONST 0x00fc,0x0801 029a 0101 0006 | | .CONST 0x0101,0x0006 029c 0106 0007 | | .CONST 0x0106,0x0007 029e 010d 0008 | | .CONST 0x010d,0x0008 02a0 0110 0009 | | .CONST 0x0110,0x0009 02a2 0115 0c01 | | .CONST 0x0115,0x0c01 02a4 011a 0009 | | .CONST 0x011a,0x0009 02a6 011f 000a | | .CONST 0x011f,0x000a 02a8 0127 000b | ' | .CONST 0x0127,0x000b 02aa 0129 000d | ) | .CONST 0x0129,0x000d 02ac ; -------------------------------------------------------------------------------------- 02ac ; Debug3 Subtable 0x6 02ac ; -------------------------------------------------------------------------------------- 02ac 0003 000b | | .DBG3TAB 0x0003,0x000b 02ae 0133 ffff | 3 | .CONST 0x0133,0xffff 02b0 0134 fffe | 4 | .CONST 0x0134,0xfffe 02b2 0136 fffd | 6 | .CONST 0x0136,0xfffd 02b4 0137 0001 | 7 | .CONST 0x0137,0x0001 02b6 0141 0002 | A | .CONST 0x0141,0x0002 02b8 0148 0003 | H | .CONST 0x0148,0x0003 02ba 0149 0401 | I | .CONST 0x0149,0x0401 02bc 014b 0003 | K | .CONST 0x014b,0x0003 02be 014c 0004 | L | .CONST 0x014c,0x0004 02c0 0152 0005 | R | .CONST 0x0152,0x0005 02c2 0154 0006 | T | .CONST 0x0154,0x0006 02c4 0160 0007 | ` | .CONST 0x0160,0x0007 02c6 016a 0008 | j | .CONST 0x016a,0x0008 02c8 016f 000a | o | .CONST 0x016f,0x000a 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug3 Subtable 0x7 02ca ; -------------------------------------------------------------------------------------- 02ca 0005 001b | | .DBG3TAB 0x0005,0x001b 02cc 0183 ffff | | .CONST 0x0183,0xffff 02ce 0186 fffe | | .CONST 0x0186,0xfffe 02d0 0187 fffd | | .CONST 0x0187,0xfffd 02d2 0188 fffc | | .CONST 0x0188,0xfffc 02d4 0189 fffb | | .CONST 0x0189,0xfffb 02d6 018a 0001 | | .CONST 0x018a,0x0001 02d8 018e 0003 | | .CONST 0x018e,0x0003 02da 018f 0401 | | .CONST 0x018f,0x0401 02dc 0192 0003 | | .CONST 0x0192,0x0003 02de 0193 0004 | | .CONST 0x0193,0x0004 02e0 0198 0005 | | .CONST 0x0198,0x0005 02e2 019d 0006 | | .CONST 0x019d,0x0006 02e4 01a5 0007 | | .CONST 0x01a5,0x0007 02e6 01ae 0008 | | .CONST 0x01ae,0x0008 02e8 01b2 0009 | | .CONST 0x01b2,0x0009 02ea 01b9 000a | | .CONST 0x01b9,0x000a 02ec 01ba 0801 | | .CONST 0x01ba,0x0801 02ee 01bd 000a | | .CONST 0x01bd,0x000a 02f0 01be 0002 | | .CONST 0x01be,0x0002 02f2 01bf 0c01 | | .CONST 0x01bf,0x0c01 02f4 01c1 0002 | | .CONST 0x01c1,0x0002 02f6 01c2 000b | | .CONST 0x01c2,0x000b 02f8 01c6 000d | | .CONST 0x01c6,0x000d 02fa 01ca 1001 | | .CONST 0x01ca,0x1001 02fc 01cd 000d | | .CONST 0x01cd,0x000d 02fe 01d0 000e | | .CONST 0x01d0,0x000e 0300 01d1 1401 | | .CONST 0x01d1,0x1401 0302 01d4 000e | | .CONST 0x01d4,0x000e 0304 01d5 000c | | .CONST 0x01d5,0x000c 0306 01d6 1801 | | .CONST 0x01d6,0x1801 0308 01d8 000c | | .CONST 0x01d8,0x000c 030a 01d9 000f | | .CONST 0x01d9,0x000f 030c 0000 0000 | | .BLANK 0000[0xf4]