|
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_ccb0b3
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 0093 | | Declare_Subprogram INIT_0090,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 009b | | Declare_Subprogram INIT_0098,For_Outer_Call 001a 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 001c 029d 0133 | 3| Declare_Subprogram INIT_0130,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 4801 |H | Short_Literal 0x1 0077 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "MAIN" 0079 e403 | | Load 0x2,0x3 007a e004 | | Load 0x0,0x4 007b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007c 680d |h | Jump_Zero 0x8a 007d e5fe | | Load 0x2,-0x2 007e 00d8 | | Load_Top At_Offset_0 007f 4974 |It | Short_Literal 0x174 0080 00eb | | Load_Encached Diana_Cache 0081 0098 | | Execute Package,Field_Read_Dynamic 0082 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0083 4976 |Iv | Short_Literal 0x176 0084 00eb | | Load_Encached Diana_Cache 0085 0098 | | Execute Package,Field_Read_Dynamic 0086 180f | | Execute Package,Field_Execute,Field_Number 0xf 0087 e001 | | Load 0x0,0x1 0088 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0089 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008a 00d8 | | Load_Top At_Offset_0 008b 7002 |p | Jump_Nonzero 0x8e 008c e5fe | | Load 0x2,-0x2 008d 820e | | Call 0x1,0xe 008e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c e005 | | Load 0x0,0x5 009d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 009e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a0 e006 | | Load 0x0,0x6 00a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a2 e002 | | Load 0x0,0x2 00a3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00d4 | | .CONST 0x00d4 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 000b | | .CONST 0x000b ; Number of locals 00ab INIT_00a8: 00ab e5fd | | Load 0x2,-0x3 00ac e002 | | Load 0x0,0x2 00ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ae 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00af 4801 |H | Short_Literal 0x1 00b0 00d9 | | Load_Top At_Offset_1 00b1 01db | | Execute Vector,Length 00b2 e003 | | Load 0x0,0x3 00b3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b4 035b | [ | Declare_Type Array,Constrained 00b5 0337 | 7 | Declare_Variable Array 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 4801 |H | Short_Literal 0x1 00b9 00da | | Load_Top At_Offset_2 00ba 01db | | Execute Vector,Length 00bb e003 | | Load 0x0,0x3 00bc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00bd 035b | [ | Declare_Type Array,Constrained 00be 0337 | 7 | Declare_Variable Array 00bf 00d8 | | Load_Top At_Offset_0 00c0 1c00 | | Execute_Immediate Run_Utility,0x0 00c1 00e3 | | Load_Encached Natural_Cache 00c2 00f1 | | Load_Encached Diana_Temp_Seq 00c3 02c7 | | Declare_Variable Any 00c4 00d8 | | Load_Top At_Offset_0 00c5 1c00 | | Execute_Immediate Run_Utility,0x0 00c6 00ec | | Load_Encached Diana_Tree_Cache 00c7 02c7 | | Declare_Variable Any 00c8 00d8 | | Load_Top At_Offset_0 00c9 1c00 | | Execute_Immediate Run_Utility,0x0 00ca 00ec | | Load_Encached Diana_Tree_Cache 00cb 02c7 | | Declare_Variable Any 00cc 00d8 | | Load_Top At_Offset_0 00cd 1c00 | | Execute_Immediate Run_Utility,0x0 00ce 00e1 | | Load_Encached Boolean_Cache 00cf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d0 00e1 | | Load_Encached Boolean_Cache 00d1 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00d2 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 00d4 BODY_00a8: 00d4 e5fd | | Load 0x2,-0x3 00d5 e002 | | Load 0x0,0x2 00d6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00d8 a405 | | Store_Unchecked 0x2,0x5 00d9 00cf | | Action Mark_Auxiliary 00da e403 | | Load 0x2,0x3 00db 01d9 | | Execute Vector,Reverse_Bounds 00dc 0263 | c | Execute Discrete,Above_Bound 00dd 7029 |p) | Jump_Nonzero 0x107 00de 00d8 | | Load_Top At_Offset_0 00df 00d8 | | Load_Top At_Offset_0 00e0 00e3 | | Load_Encached Natural_Cache 00e1 0260 | ` | Execute Discrete,In_Type 00e2 7001 |p | Jump_Nonzero 0xe4 00e3 0801 | | Execute_Immediate Raise,0x1 00e4 e405 | | Load 0x2,0x5 00e5 027d | } | Execute Discrete,Greater 00e6 6806 |h | Jump_Zero 0xed 00e7 4801 |H | Short_Literal 0x1 00e8 00d9 | | Load_Top At_Offset_1 00e9 e403 | | Load 0x2,0x3 00ea 01d5 | | Execute Vector,Field_Reference 00eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ec 7805 |x | Jump 0xf2 00ed 4800 |H | Short_Literal 0x0 00ee 00d9 | | Load_Top At_Offset_1 00ef e403 | | Load 0x2,0x3 00f0 01d5 | | Execute Vector,Field_Reference 00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f2 00d8 | | Load_Top At_Offset_0 00f3 00d8 | | Load_Top At_Offset_0 00f4 00e3 | | Load_Encached Natural_Cache 00f5 0260 | ` | Execute Discrete,In_Type 00f6 7001 |p | Jump_Nonzero 0xf8 00f7 0801 | | Execute_Immediate Raise,0x1 00f8 e402 | | Load 0x2,0x2 00f9 01d7 | | Execute Vector,Field_Read 00fa e002 | | Load 0x0,0x2 00fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00fc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00fd e004 | | Load 0x0,0x4 00fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ff 00eb | | Load_Encached Diana_Cache 0100 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0101 00d9 | | Load_Top At_Offset_1 0102 e403 | | Load 0x2,0x3 0103 01d5 | | Execute Vector,Field_Reference 0104 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0105 00c8 | | Action Pop_Auxiliary_Range 0106 3fd7 |? | Loop_Increasing 0xde 0107 00ce | | Action Pop_Auxiliary 0108 00e1 | | Load_Encached Boolean_Cache 0109 e404 | | Load 0x2,0x4 010a 4801 |H | Short_Literal 0x1 010b 4800 |H | Short_Literal 0x0 010c e403 | | Load 0x2,0x3 010d e5fe | | Load 0x2,-0x2 010e e5ff | | Load 0x2,-0x1 010f e003 | | Load 0x0,0x3 0110 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0111 00d1 | | Pop_Control Pop_Count_1 0112 005a | Z | Store_Top Discrete,At_Offset_2 0113 00d9 | | Load_Top At_Offset_1 0114 7003 |p | Jump_Nonzero 0x118 0115 4800 |H | Short_Literal 0x0 0116 a5fc | | Store_Unchecked 0x2,-0x4 0117 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0118 00cf | | Action Mark_Auxiliary 0119 e402 | | Load 0x2,0x2 011a 01d9 | | Execute Vector,Reverse_Bounds 011b 0263 | c | Execute Discrete,Above_Bound 011c 700f |p | Jump_Nonzero 0x12c 011d 00d8 | | Load_Top At_Offset_0 011e 00d8 | | Load_Top At_Offset_0 011f e003 | | Load 0x0,0x3 0120 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0121 0260 | ` | Execute Discrete,In_Type 0122 7001 |p | Jump_Nonzero 0x124 0123 0801 | | Execute_Immediate Raise,0x1 0124 e404 | | Load 0x2,0x4 0125 01d7 | | Execute Vector,Field_Read 0126 c408 | | Store 0x2,0x8 0127 e408 | | Load 0x2,0x8 0128 6801 |h | Jump_Zero 0x12a 0129 840b | | Call 0x2,0xb 012a 00c8 | | Action Pop_Auxiliary_Range 012b 3ff1 |? | Loop_Increasing 0x11d 012c 00ce | | Action Pop_Auxiliary 012d 00d9 | | Load_Top At_Offset_1 012e a5fc | | Store_Unchecked 0x2,-0x4 012f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00cf | | Action Mark_Auxiliary 0134 00db | | Load_Top At_Offset_3 0135 01d9 | | Execute Vector,Reverse_Bounds 0136 0263 | c | Execute Discrete,Above_Bound 0137 7014 |p | Jump_Nonzero 0x14c 0138 4801 |H | Short_Literal 0x1 0139 e5fe | | Load 0x2,-0x2 013a 00da | | Load_Top At_Offset_2 013b e5ff | | Load 0x2,-0x1 013c 01d7 | | Execute Vector,Field_Read 013d e002 | | Load 0x0,0x2 013e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 013f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0140 e004 | | Load 0x0,0x4 0141 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0142 6807 |h | Jump_Zero 0x14a 0143 00d8 | | Load_Top At_Offset_0 0144 e5ff | | Load 0x2,-0x1 0145 01d7 | | Execute Vector,Field_Read 0146 c5fd | | Store 0x2,-0x3 0147 4801 |H | Short_Literal 0x1 0148 a5fc | | Store_Unchecked 0x2,-0x4 0149 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014a 00c8 | | Action Pop_Auxiliary_Range 014b 3fec |? | Loop_Increasing 0x138 014c 00ce | | Action Pop_Auxiliary 014d 4800 |H | Short_Literal 0x0 014e a5fc | | Store_Unchecked 0x2,-0x4 014f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 01ab | | .CONST 0x01ab ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0155 BODY_0150: 0155 e40e | | Load 0x2,0xe 0156 e402 | | Load 0x2,0x2 0157 01d7 | | Execute Vector,Field_Read 0158 e002 | | Load 0x0,0x2 0159 1b14 | | Execute Package,Field_Read,Field_Number 0x14 015a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 015b 6841 |hA | Jump_Zero 0x19d 015c 00e1 | | Load_Encached Boolean_Cache 015d e406 | | Load 0x2,0x6 015e 0120 | | Execute Any,Is_Value 015f 6802 |h | Jump_Zero 0x162 0160 00f1 | | Load_Encached Diana_Temp_Seq 0161 7801 |x | Jump 0x163 0162 e406 | | Load 0x2,0x6 0163 e408 | | Load 0x2,0x8 0164 4801 |H | Short_Literal 0x1 0165 e5ff | | Load 0x2,-0x1 0166 e40e | | Load 0x2,0xe 0167 e402 | | Load 0x2,0x2 0168 01d7 | | Execute Vector,Field_Read 0169 e002 | | Load 0x0,0x2 016a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 016b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 016c e40e | | Load 0x2,0xe 016d e402 | | Load 0x2,0x2 016e 01d7 | | Execute Vector,Field_Read 016f e002 | | Load 0x0,0x2 0170 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0171 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0172 e40e | | Load 0x2,0xe 0173 e402 | | Load 0x2,0x2 0174 01d7 | | Execute Vector,Field_Read 0175 e002 | | Load 0x0,0x2 0176 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0177 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0178 e40e | | Load 0x2,0xe 0179 e402 | | Load 0x2,0x2 017a 01d7 | | Execute Vector,Field_Read 017b e002 | | Load 0x0,0x2 017c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 017d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 017e e007 | | Load 0x0,0x7 017f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0180 c408 | | Store 0x2,0x8 0181 c406 | | Store 0x2,0x6 0182 c40a | | Store 0x2,0xa 0183 e40a | | Load 0x2,0xa 0184 e409 | | Load 0x2,0x9 0185 0f00 | | Execute_Immediate Equal,0x0 0186 0279 | y | Execute Discrete,And 0187 680f |h | Jump_Zero 0x197 0188 00cf | | Action Mark_Auxiliary 0189 780a |x | Jump 0x194 018a e406 | | Load 0x2,0x6 018b 0217 | | Execute Heap_Access,All_Reference 018c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 018d c407 | | Store 0x2,0x7 018e e406 | | Load 0x2,0x6 018f 0217 | | Execute Heap_Access,All_Reference 0190 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0191 c406 | | Store 0x2,0x6 0192 8602 | | Call 0x3,0x2 0193 00c9 | | Action Pop_Auxiliary_Loop 0194 e406 | | Load 0x2,0x6 0195 77f4 |w | Jump_Nonzero 0x18a 0196 00ce | | Action Pop_Auxiliary 0197 e409 | | Load 0x2,0x9 0198 e40a | | Load 0x2,0xa 0199 0f00 | | Execute_Immediate Equal,0x0 019a 0278 | x | Execute Discrete,Or 019b a409 | | Store_Unchecked 0x2,0x9 019c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019d 00e1 | | Load_Encached Boolean_Cache 019e e408 | | Load 0x2,0x8 019f e5ff | | Load 0x2,-0x1 01a0 e40e | | Load 0x2,0xe 01a1 e402 | | Load 0x2,0x2 01a2 01d7 | | Execute Vector,Field_Read 01a3 e002 | | Load 0x0,0x2 01a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01a5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01a6 e007 | | Load 0x0,0x7 01a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a8 c408 | | Store 0x2,0x8 01a9 c40a | | Store 0x2,0xa 01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ab TRAP_0150: 01ab e002 | | Load 0x0,0x2 01ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ad 010f | | Execute Exception,Equal 01ae 6801 |h | Jump_Zero 0x1b0 01af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b0 0100 | | Execute Exception,Raise 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 01c0 | | .CONST 0x01c0 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb e5fe | | Load 0x2,-0x2 01bc e407 | | Load 0x2,0x7 01bd e001 | | Load 0x0,0x1 01be 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c0 TRAP_01b8: 01c0 0007 | | Action Break_Optional 01c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; STRING TABLE 01c2 ; -------------------------------------------------------------------------------------- 01c2 0004 | | .STRTAB 0x0004->0x01c4 ; "MAIN" 01c3 0006 | | .STREND 0x0006->0x01c6 01c4 4d41 494e |MAIN| .STRTAB_STRINGS 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0004 000e | | .DEBUG4 0x0004,0x000e,0x943c,0x0000,0x0001,0x0000 01ce 0000 0000 | | .BLANK 0000[0x32]