|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01b8 | | .CONST 0x01b8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000f 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call 001a 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call 001c 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001f 00c7 | | Action Elaborate_Subprogram 0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0021 00c7 | | Action Elaborate_Subprogram 0022 BODY_0008: 0022 00bc | | Action Signal_Activated 0023 00bb | | Action Signal_Completion 0024 0000 0000 | | .BLANK 0000[0x4] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4801 |H | Short_Literal 0x1 0034 00db | | Load_Top At_Offset_3 0035 e001 | | Load 0x0,0x1 0036 18a6 | | Execute Package,Field_Execute,Field_Number 0xa6 0037 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004f | O | .CONST 0x004f ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0006 | | .CONST 0x0006 ; Number of locals 003b INIT_0038: 003b 00ec | | Load_Encached Diana_Tree_Cache 003c 02c7 | | Declare_Variable Any 003d e5fe | | Load 0x2,-0x2 003e 00eb | | Load_Encached Diana_Cache 003f 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0040 a402 | | Store_Unchecked 0x2,0x2 0041 00d8 | | Load_Top At_Offset_0 0042 00eb | | Load_Encached Diana_Cache 0043 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0044 00eb | | Load_Encached Diana_Cache 0045 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0046 e5ff | | Load 0x2,-0x1 0047 8211 | | Call 0x1,0x11 0048 e002 | | Load 0x0,0x2 0049 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004a 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 004b 02c7 | | Declare_Variable Any 004c 00d8 | | Load_Top At_Offset_0 004d 1c00 | | Execute_Immediate Run_Utility,0x0 004e 00e1 | | Load_Encached Boolean_Cache 004f BODY_0038: 004f 480e |H | Short_Literal 0xe 0050 a5fc | | Store_Unchecked 0x2,-0x4 0051 00e1 | | Load_Encached Boolean_Cache 0052 00da | | Load_Top At_Offset_2 0053 0120 | | Execute Any,Is_Value 0054 6804 |h | Jump_Zero 0x59 0055 e002 | | Load 0x0,0x2 0056 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0057 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0058 7801 |x | Jump 0x5a 0059 00da | | Load_Top At_Offset_2 005a e403 | | Load 0x2,0x3 005b e404 | | Load 0x2,0x4 005c 8213 | | Call 0x1,0x13 005d c405 | | Store 0x2,0x5 005e 0059 | Y | Store_Top Discrete,At_Offset_1 005f 00d8 | | Load_Top At_Offset_0 0060 7003 |p | Jump_Nonzero 0x64 0061 480d |H | Short_Literal 0xd 0062 a5fc | | Store_Unchecked 0x2,-0x4 0063 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0064 e5fd | | Load 0x2,-0x3 0065 00da | | Load_Top At_Offset_2 0066 e002 | | Load 0x0,0x2 0067 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0068 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0069 01d7 | | Execute Vector,Field_Read 006a 7005 |p | Jump_Nonzero 0x70 006b e5fe | | Load 0x2,-0x2 006c e5ff | | Load 0x2,-0x1 006d e003 | | Load 0x0,0x3 006e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 006f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0070 00e1 | | Load_Encached Boolean_Cache 0071 00da | | Load_Top At_Offset_2 0072 e5fe | | Load 0x2,-0x2 0073 e5ff | | Load 0x2,-0x1 0074 8212 | | Call 0x1,0x12 0075 0059 | Y | Store_Top Discrete,At_Offset_1 0076 00d8 | | Load_Top At_Offset_0 0077 7002 |p | Jump_Nonzero 0x7a 0078 e5fe | | Load 0x2,-0x2 0079 820e | | Call 0x1,0xe 007a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 007b 0000 0000 | | .BLANK 0000[0x5] 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 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0084 0000 0000 | | .BLANK 0000[0x4] 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 008c e004 | | Load 0x0,0x4 008d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 008e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0090 e005 | | Load 0x0,0x5 0091 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0092 e002 | | Load 0x0,0x2 0093 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0094 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00c4 | | .CONST 0x00c4 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 000b | | .CONST 0x000b ; Number of locals 009b INIT_0098: 009b e5fd | | Load 0x2,-0x3 009c e002 | | Load 0x0,0x2 009d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 009f 4801 |H | Short_Literal 0x1 00a0 00d9 | | Load_Top At_Offset_1 00a1 01db | | Execute Vector,Length 00a2 e003 | | Load 0x0,0x3 00a3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a4 035b | [ | Declare_Type Array,Constrained 00a5 0337 | 7 | Declare_Variable Array 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 4801 |H | Short_Literal 0x1 00a9 00da | | Load_Top At_Offset_2 00aa 01db | | Execute Vector,Length 00ab e003 | | Load 0x0,0x3 00ac 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ad 035b | [ | Declare_Type Array,Constrained 00ae 0337 | 7 | Declare_Variable Array 00af 00d8 | | Load_Top At_Offset_0 00b0 1c00 | | Execute_Immediate Run_Utility,0x0 00b1 00e3 | | Load_Encached Natural_Cache 00b2 00f1 | | Load_Encached Diana_Temp_Seq 00b3 02c7 | | Declare_Variable Any 00b4 00d8 | | Load_Top At_Offset_0 00b5 1c00 | | Execute_Immediate Run_Utility,0x0 00b6 00ec | | Load_Encached Diana_Tree_Cache 00b7 02c7 | | Declare_Variable Any 00b8 00d8 | | Load_Top At_Offset_0 00b9 1c00 | | Execute_Immediate Run_Utility,0x0 00ba 00ec | | Load_Encached Diana_Tree_Cache 00bb 02c7 | | Declare_Variable Any 00bc 00d8 | | Load_Top At_Offset_0 00bd 1c00 | | Execute_Immediate Run_Utility,0x0 00be 00e1 | | Load_Encached Boolean_Cache 00bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c0 00e1 | | Load_Encached Boolean_Cache 00c1 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00c2 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 00c4 BODY_0098: 00c4 e5fd | | Load 0x2,-0x3 00c5 e002 | | Load 0x0,0x2 00c6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00c8 a405 | | Store_Unchecked 0x2,0x5 00c9 00cf | | Action Mark_Auxiliary 00ca e403 | | Load 0x2,0x3 00cb 01d9 | | Execute Vector,Reverse_Bounds 00cc 0263 | c | Execute Discrete,Above_Bound 00cd 7029 |p) | Jump_Nonzero 0xf7 00ce 00d8 | | Load_Top At_Offset_0 00cf 00d8 | | Load_Top At_Offset_0 00d0 00e3 | | Load_Encached Natural_Cache 00d1 0260 | ` | Execute Discrete,In_Type 00d2 7001 |p | Jump_Nonzero 0xd4 00d3 0801 | | Execute_Immediate Raise,0x1 00d4 e405 | | Load 0x2,0x5 00d5 027d | } | Execute Discrete,Greater 00d6 6806 |h | Jump_Zero 0xdd 00d7 4801 |H | Short_Literal 0x1 00d8 00d9 | | Load_Top At_Offset_1 00d9 e403 | | Load 0x2,0x3 00da 01d5 | | Execute Vector,Field_Reference 00db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00dc 7805 |x | Jump 0xe2 00dd 4800 |H | Short_Literal 0x0 00de 00d9 | | Load_Top At_Offset_1 00df e403 | | Load 0x2,0x3 00e0 01d5 | | Execute Vector,Field_Reference 00e1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e2 00d8 | | Load_Top At_Offset_0 00e3 00d8 | | Load_Top At_Offset_0 00e4 00e3 | | Load_Encached Natural_Cache 00e5 0260 | ` | Execute Discrete,In_Type 00e6 7001 |p | Jump_Nonzero 0xe8 00e7 0801 | | Execute_Immediate Raise,0x1 00e8 e402 | | Load 0x2,0x2 00e9 01d7 | | Execute Vector,Field_Read 00ea e002 | | Load 0x0,0x2 00eb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ed e006 | | Load 0x0,0x6 00ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ef 00eb | | Load_Encached Diana_Cache 00f0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00f1 00d9 | | Load_Top At_Offset_1 00f2 e403 | | Load 0x2,0x3 00f3 01d5 | | Execute Vector,Field_Reference 00f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f5 00c8 | | Action Pop_Auxiliary_Range 00f6 3fd7 |? | Loop_Increasing 0xce 00f7 00ce | | Action Pop_Auxiliary 00f8 00e1 | | Load_Encached Boolean_Cache 00f9 e404 | | Load 0x2,0x4 00fa 4801 |H | Short_Literal 0x1 00fb 4800 |H | Short_Literal 0x0 00fc e403 | | Load 0x2,0x3 00fd e5fe | | Load 0x2,-0x2 00fe e5ff | | Load 0x2,-0x1 00ff e003 | | Load 0x0,0x3 0100 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0101 00d1 | | Pop_Control Pop_Count_1 0102 005a | Z | Store_Top Discrete,At_Offset_2 0103 00d9 | | Load_Top At_Offset_1 0104 7003 |p | Jump_Nonzero 0x108 0105 4800 |H | Short_Literal 0x0 0106 a5fc | | Store_Unchecked 0x2,-0x4 0107 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0108 00cf | | Action Mark_Auxiliary 0109 e402 | | Load 0x2,0x2 010a 01d9 | | Execute Vector,Reverse_Bounds 010b 0263 | c | Execute Discrete,Above_Bound 010c 700f |p | Jump_Nonzero 0x11c 010d 00d8 | | Load_Top At_Offset_0 010e 00d8 | | Load_Top At_Offset_0 010f e003 | | Load 0x0,0x3 0110 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0111 0260 | ` | Execute Discrete,In_Type 0112 7001 |p | Jump_Nonzero 0x114 0113 0801 | | Execute_Immediate Raise,0x1 0114 e404 | | Load 0x2,0x4 0115 01d7 | | Execute Vector,Field_Read 0116 c408 | | Store 0x2,0x8 0117 e408 | | Load 0x2,0x8 0118 6801 |h | Jump_Zero 0x11a 0119 840b | | Call 0x2,0xb 011a 00c8 | | Action Pop_Auxiliary_Range 011b 3ff1 |? | Loop_Increasing 0x10d 011c 00ce | | Action Pop_Auxiliary 011d 00d9 | | Load_Top At_Offset_1 011e a5fc | | Store_Unchecked 0x2,-0x4 011f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00cf | | Action Mark_Auxiliary 0124 00db | | Load_Top At_Offset_3 0125 01d9 | | Execute Vector,Reverse_Bounds 0126 0263 | c | Execute Discrete,Above_Bound 0127 7014 |p | Jump_Nonzero 0x13c 0128 4801 |H | Short_Literal 0x1 0129 e5fe | | Load 0x2,-0x2 012a 00da | | Load_Top At_Offset_2 012b e5ff | | Load 0x2,-0x1 012c 01d7 | | Execute Vector,Field_Read 012d e002 | | Load 0x0,0x2 012e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 012f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0130 e006 | | Load 0x0,0x6 0131 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0132 6807 |h | Jump_Zero 0x13a 0133 00d8 | | Load_Top At_Offset_0 0134 e5ff | | Load 0x2,-0x1 0135 01d7 | | Execute Vector,Field_Read 0136 c5fd | | Store 0x2,-0x3 0137 4801 |H | Short_Literal 0x1 0138 a5fc | | Store_Unchecked 0x2,-0x4 0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013a 00c8 | | Action Pop_Auxiliary_Range 013b 3fec |? | Loop_Increasing 0x128 013c 00ce | | Action Pop_Auxiliary 013d 4800 |H | Short_Literal 0x0 013e a5fc | | Store_Unchecked 0x2,-0x4 013f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 019b | | .CONST 0x019b ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0145 BODY_0140: 0145 e40e | | Load 0x2,0xe 0146 e402 | | Load 0x2,0x2 0147 01d7 | | Execute Vector,Field_Read 0148 e002 | | Load 0x0,0x2 0149 1b14 | | Execute Package,Field_Read,Field_Number 0x14 014a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014b 6841 |hA | Jump_Zero 0x18d 014c 00e1 | | Load_Encached Boolean_Cache 014d e406 | | Load 0x2,0x6 014e 0120 | | Execute Any,Is_Value 014f 6802 |h | Jump_Zero 0x152 0150 00f1 | | Load_Encached Diana_Temp_Seq 0151 7801 |x | Jump 0x153 0152 e406 | | Load 0x2,0x6 0153 e408 | | Load 0x2,0x8 0154 4801 |H | Short_Literal 0x1 0155 e5ff | | Load 0x2,-0x1 0156 e40e | | Load 0x2,0xe 0157 e402 | | Load 0x2,0x2 0158 01d7 | | Execute Vector,Field_Read 0159 e002 | | Load 0x0,0x2 015a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 015b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 015c e40e | | Load 0x2,0xe 015d e402 | | Load 0x2,0x2 015e 01d7 | | Execute Vector,Field_Read 015f e002 | | Load 0x0,0x2 0160 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0161 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0162 e40e | | Load 0x2,0xe 0163 e402 | | Load 0x2,0x2 0164 01d7 | | Execute Vector,Field_Read 0165 e002 | | Load 0x0,0x2 0166 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0167 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0168 e40e | | Load 0x2,0xe 0169 e402 | | Load 0x2,0x2 016a 01d7 | | Execute Vector,Field_Read 016b e002 | | Load 0x0,0x2 016c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 016d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 016e e007 | | Load 0x0,0x7 016f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0170 c408 | | Store 0x2,0x8 0171 c406 | | Store 0x2,0x6 0172 c40a | | Store 0x2,0xa 0173 e40a | | Load 0x2,0xa 0174 e409 | | Load 0x2,0x9 0175 0f00 | | Execute_Immediate Equal,0x0 0176 0279 | y | Execute Discrete,And 0177 680f |h | Jump_Zero 0x187 0178 00cf | | Action Mark_Auxiliary 0179 780a |x | Jump 0x184 017a e406 | | Load 0x2,0x6 017b 0217 | | Execute Heap_Access,All_Reference 017c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017d c407 | | Store 0x2,0x7 017e e406 | | Load 0x2,0x6 017f 0217 | | Execute Heap_Access,All_Reference 0180 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0181 c406 | | Store 0x2,0x6 0182 8602 | | Call 0x3,0x2 0183 00c9 | | Action Pop_Auxiliary_Loop 0184 e406 | | Load 0x2,0x6 0185 77f4 |w | Jump_Nonzero 0x17a 0186 00ce | | Action Pop_Auxiliary 0187 e409 | | Load 0x2,0x9 0188 e40a | | Load 0x2,0xa 0189 0f00 | | Execute_Immediate Equal,0x0 018a 0278 | x | Execute Discrete,Or 018b a409 | | Store_Unchecked 0x2,0x9 018c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018d 00e1 | | Load_Encached Boolean_Cache 018e e408 | | Load 0x2,0x8 018f e5ff | | Load 0x2,-0x1 0190 e40e | | Load 0x2,0xe 0191 e402 | | Load 0x2,0x2 0192 01d7 | | Execute Vector,Field_Read 0193 e002 | | Load 0x0,0x2 0194 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0195 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0196 e007 | | Load 0x0,0x7 0197 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0198 c408 | | Store 0x2,0x8 0199 c40a | | Store 0x2,0xa 019a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019b TRAP_0140: 019b e002 | | Load 0x0,0x2 019c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 019d 010f | | Execute Exception,Equal 019e 6801 |h | Jump_Zero 0x1a0 019f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a0 0100 | | Execute Exception,Raise 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 01b2 | | .CONST 0x01b2 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e5fe | | Load 0x2,-0x2 01ac 00eb | | Load_Encached Diana_Cache 01ad 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 01ae e407 | | Load 0x2,0x7 01af e001 | | Load 0x0,0x1 01b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b2 TRAP_01a8: 01b2 0007 | | Action Break_Optional 01b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; Debug Table 01b8 ; -------------------------------------------------------------------------------------- 01b8 0004 000c | | .DEBUG4 0x0004,0x000c,0x0023,0x0000,0x0001,0x0000 01be 0000 4000 | @ | .XXX[0xc] 01c0 000f d85b | [| 01c2 1b17 dc1d | | 01c4 5c9c 1bdc |\ | 01c6 d957 d95c | W \| 01c8 9c9b dc80 | | 01ca 0000 0000 | | .BLANK 0000[0x17] 01e1 2f0f 0500 |/ | .XXX[0x1f] 01e3 00ad 5f80 | _ | 01e5 0000 0013 | | 01e7 bd51 4140 | QA@| 01e9 06b4 0100 | | 01eb 0000 0fc0 | | 01ed 02bc 0d00 | | 01ef 001f 8280 | | 01f1 06b4 0100 | | 01f3 0000 1fc0 | | 01f5 2f0f 0500 |/ | 01f7 0018 e480 | | 01f9 032a 0100 | * | 01fb 0000 5100 | Q | 01fd 1c7e 2e40 | ~.@| 01ff 001e | |