|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0250 | P | .CONST 0x0250 ; 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 0067 | g | .CONST 0x0067 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4818 |H | Short_Literal 0x18 0011 03cf | | Declare_Type Access,Incomplete,Visible 0012 4801 |H | Short_Literal 0x1 0013 4850 |HP | Short_Literal 0x50 0014 00e9 | | Load_Encached String_Cache 0015 035c | \ | Declare_Type Array,Constrained,Visible 0016 00e3 | | Load_Encached Natural_Cache 0017 00e1 | | Load_Encached Boolean_Cache 0018 00db | | Load_Top At_Offset_3 0019 02a0 | | Declare_Subprogram Null_Subprogram 001a 4804 |H | Short_Literal 0x4 001b 032e | . | Declare_Type Record,Defined,Visible 001c 00d8 | | Load_Top At_Offset_0 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 00db | | Load_Top At_Offset_3 001f 03c7 | | Complete_Type Access,By_Defining 0020 e002 | | Load 0x0,0x2 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 00da | | Load_Top At_Offset_2 0023 00e1 | | Load_Encached Boolean_Cache 0024 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0026 4803 |H | Short_Literal 0x3 0027 032e | . | Declare_Type Record,Defined,Visible 0028 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 002a 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 002c 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 002e 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0030 00bf | | Action Accept_Activation 0031 0092 0234 | 4| Action Push_String_Extended,0x234 ; "CRASH_ANALYZER" 0033 4800 |H | Short_Literal 0x0 0034 0092 0235 | 5| Action Push_String_Extended,0x235 ; "INFO" 0036 e003 | | Load 0x0,0x3 0037 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0038 e003 | | Load 0x0,0x3 0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003a 011e | | Execute Any,Convert 003b 4801 |H | Short_Literal 0x1 003c 0092 0231 | 1| Action Push_String_Extended,0x231 ; "WARNING" 003e e003 | | Load 0x0,0x3 003f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0040 e003 | | Load 0x0,0x3 0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0042 011e | | Execute Any,Convert 0043 4802 |H | Short_Literal 0x2 0044 0092 0236 | 6| Action Push_String_Extended,0x236 ; "ERROR" 0046 e003 | | Load 0x0,0x3 0047 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0048 e003 | | Load 0x0,0x3 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a 011e | | Execute Any,Convert 004b 4803 |H | Short_Literal 0x3 004c 0092 0233 | 3| Action Push_String_Extended,0x233 ; "FATAL" 004e e003 | | Load 0x0,0x3 004f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0050 e003 | | Load 0x0,0x3 0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0052 011e | | Execute Any,Convert 0053 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 0055 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0057 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0059 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 005b 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 005d 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0060 00c7 | | Action Elaborate_Subprogram 0061 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0062 00c7 | | Action Elaborate_Subprogram 0063 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0064 00c7 | | Action Elaborate_Subprogram 0065 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0066 00c7 | | Action Elaborate_Subprogram 0067 BODY_0008: 0067 00bc | | Action Signal_Activated 0068 00bb | | Action Signal_Completion 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7807 |x | Jump 0x7d ; case 0x1 0076 780a |x | Jump 0x81 ; case 0x2 0077 780e |x | Jump 0x86 ; case 0x3 0078 7811 |x | Jump 0x8a ; case 0x4 0079 7812 |x | Jump 0x8c ; case 0x5 007a 7813 |x | Jump 0x8e ; case 0x6 007b 7816 |x | Jump 0x92 ; case 0x7 007c 4302 |C | .XXX[0x1] 007d 00da | | Load_Top At_Offset_2 007e 0091 0230 | 0| Action Push_String_Extended_Indexed,0x230 ; "MSG" 0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0081 00db | | Load_Top At_Offset_3 0082 00db | | Load_Top At_Offset_3 0083 00e0 | | Load_Encached Standard_Cache 0084 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 00da | | Load_Top At_Offset_2 0087 00e0 | | Load_Encached Standard_Cache 0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0089 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 008a 00db | | Load_Top At_Offset_3 008b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008c 00db | | Load_Top At_Offset_3 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e e20d | | Load 0x1,0xd 008f 00dc | | Load_Top At_Offset_4 0090 0267 | g | Execute Discrete,Predecessor 0091 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0092 e20d | | Load 0x1,0xd 0093 00dc | | Load_Top At_Offset_4 0094 0268 | h | Execute Discrete,Successor 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 0000 0000 | | .XXX[0x2] 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 e5fd | | Load 0x2,-0x3 009c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 009d 6807 |h | Jump_Zero 0xa5 009e 00da | | Load_Top At_Offset_2 009f e5fe | | Load 0x2,-0x2 00a0 821a | | Call 0x1,0x1a 00a1 e215 | | Load 0x1,0x15 00a2 e003 | | Load 0x0,0x3 00a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a4 7805 |x | Jump 0xaa 00a5 00da | | Load_Top At_Offset_2 00a6 e5fd | | Load 0x2,-0x3 00a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a8 e002 | | Load 0x0,0x2 00a9 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 00aa e5fd | | Load 0x2,-0x3 00ab 00db | | Load_Top At_Offset_3 00ac 821b | | Call 0x1,0x1b 00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ae 0000 0000 | | .XXX[0x2] 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 e5fd | | Load 0x2,-0x3 00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b5 6807 |h | Jump_Zero 0xbd 00b6 00da | | Load_Top At_Offset_2 00b7 e5fe | | Load 0x2,-0x2 00b8 821a | | Call 0x1,0x1a 00b9 e215 | | Load 0x1,0x15 00ba e003 | | Load 0x0,0x3 00bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00bc 7805 |x | Jump 0xc2 00bd 00da | | Load_Top At_Offset_2 00be e5fd | | Load 0x2,-0x3 00bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c0 e002 | | Load 0x0,0x2 00c1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00c2 e5fd | | Load 0x2,-0x3 00c3 00db | | Load_Top At_Offset_3 00c4 821c | | Call 0x1,0x1c 00c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00db | | Load_Top At_Offset_3 00cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00cd 6806 |h | Jump_Zero 0xd4 00ce 00db | | Load_Top At_Offset_3 00cf 00db | | Load_Top At_Offset_3 00d0 00ea | | Load_Encached Null_String_Cache 00d1 8212 | | Call 0x1,0x12 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 7805 |x | Jump 0xd9 00d4 4801 |H | Short_Literal 0x1 00d5 e5fe | | Load 0x2,-0x2 00d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d7 e002 | | Load 0x0,0x2 00d8 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 00d9 00db | | Load_Top At_Offset_3 00da 821d | | Call 0x1,0x1d 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e5 821f | | Call 0x1,0x1f 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 4603 |F | Jump_Case 0x4 00ed 7805 |x | Jump 0xf3 ; case 0x0 00ee 7806 |x | Jump 0xf5 ; case 0x1 00ef 7807 |x | Jump 0xf7 ; case 0x2 00f0 7800 |x | Jump 0xf1 ; case 0x3 00f1 e219 | | Load 0x1,0x19 00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f3 e216 | | Load 0x1,0x16 00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f5 e217 | | Load 0x1,0x17 00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f7 e218 | | Load 0x1,0x18 00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0109 | | .CONST 0x0109 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0003 | | .CONST 0x0003 ; Number of locals 0103 INIT_0100: 0103 e20e | | Load 0x1,0xe 0104 0007 | | Action Break_Optional 0105 00db | | Load_Top At_Offset_3 0106 01db | | Execute Vector,Length 0107 00e2 | | Load_Encached Integer_Cache 0108 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0109 BODY_0100: 0109 e20e | | Load 0x1,0xe 010a 03bc | | Declare_Variable Access,By_Allocation 010b 003a | : | Store_Top Access,At_Offset_2 010c 00d8 | | Load_Top At_Offset_0 010d 0d51 | Q | Execute_Immediate Less,0x51 010e 681d |h | Jump_Zero 0x12c 010f e5ff | | Load 0x2,-0x1 0110 01dd | | Execute Vector,First 0111 e5ff | | Load 0x2,-0x1 0112 01dc | | Execute Vector,Last 0113 e5ff | | Load 0x2,-0x1 0114 01cf | | Execute Vector,Slice_Read 0115 4801 |H | Short_Literal 0x1 0116 00da | | Load_Top At_Offset_2 0117 e402 | | Load 0x2,0x2 0118 0229 | ) | Execute Access,All_Read 0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011a 01ce | | Execute Vector,Slice_Write 011b 00d8 | | Load_Top At_Offset_0 011c 00da | | Load_Top At_Offset_2 011d 0227 | ' | Execute Access,All_Reference 011e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 011f 4800 |H | Short_Literal 0x0 0120 00da | | Load_Top At_Offset_2 0121 0227 | ' | Execute Access,All_Reference 0122 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0123 e5fe | | Load 0x2,-0x2 0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0125 00da | | Load_Top At_Offset_2 0126 0227 | ' | Execute Access,All_Reference 0127 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0128 00d9 | | Load_Top At_Offset_1 0129 e5fe | | Load 0x2,-0x2 012a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012c e5ff | | Load 0x2,-0x1 012d 01dd | | Execute Vector,First 012e e5ff | | Load 0x2,-0x1 012f 01dd | | Execute Vector,First 0130 0a4f | O | Execute_Immediate Plus,0x4f 0131 00d8 | | Load_Top At_Offset_0 0132 00e2 | | Load_Encached Integer_Cache 0133 0260 | ` | Execute Discrete,In_Type 0134 7001 |p | Jump_Nonzero 0x136 0135 0801 | | Execute_Immediate Raise,0x1 0136 e5ff | | Load 0x2,-0x1 0137 01cf | | Execute Vector,Slice_Read 0138 00da | | Load_Top At_Offset_2 0139 0227 | ' | Execute Access,All_Reference 013a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 013b 4850 |HP | Short_Literal 0x50 013c 00da | | Load_Top At_Offset_2 013d 0227 | ' | Execute Access,All_Reference 013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013f 4800 |H | Short_Literal 0x0 0140 00da | | Load_Top At_Offset_2 0141 0227 | ' | Execute Access,All_Reference 0142 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0143 e5fe | | Load 0x2,-0x2 0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0145 00da | | Load_Top At_Offset_2 0146 0227 | ' | Execute Access,All_Reference 0147 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0148 00d9 | | Load_Top At_Offset_1 0149 e5fe | | Load 0x2,-0x2 014a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 014b e5fe | | Load 0x2,-0x2 014c e5ff | | Load 0x2,-0x1 014d 01dd | | Execute Vector,First 014e 0a50 | P | Execute_Immediate Plus,0x50 014f 00d8 | | Load_Top At_Offset_0 0150 00e2 | | Load_Encached Integer_Cache 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 e5ff | | Load 0x2,-0x1 0155 01dc | | Execute Vector,Last 0156 e5ff | | Load 0x2,-0x1 0157 01cf | | Execute Vector,Slice_Read 0158 821b | | Call 0x1,0x1b 0159 00d1 | | Pop_Control Pop_Count_1 015a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0169 | i | .CONST 0x0169 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 e20e | | Load 0x1,0xe 0164 0007 | | Action Break_Optional 0165 00db | | Load_Top At_Offset_3 0166 01db | | Execute Vector,Length 0167 00e2 | | Load_Encached Integer_Cache 0168 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0169 BODY_0160: 0169 e20e | | Load 0x1,0xe 016a 03bc | | Declare_Variable Access,By_Allocation 016b 003a | : | Store_Top Access,At_Offset_2 016c 00d8 | | Load_Top At_Offset_0 016d 0d51 | Q | Execute_Immediate Less,0x51 016e 681d |h | Jump_Zero 0x18c 016f e5ff | | Load 0x2,-0x1 0170 01dd | | Execute Vector,First 0171 e5ff | | Load 0x2,-0x1 0172 01dc | | Execute Vector,Last 0173 e5ff | | Load 0x2,-0x1 0174 01cf | | Execute Vector,Slice_Read 0175 4801 |H | Short_Literal 0x1 0176 00da | | Load_Top At_Offset_2 0177 e402 | | Load 0x2,0x2 0178 0229 | ) | Execute Access,All_Read 0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017a 01ce | | Execute Vector,Slice_Write 017b 00d8 | | Load_Top At_Offset_0 017c 00da | | Load_Top At_Offset_2 017d 0227 | ' | Execute Access,All_Reference 017e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 017f 4801 |H | Short_Literal 0x1 0180 00da | | Load_Top At_Offset_2 0181 0227 | ' | Execute Access,All_Reference 0182 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0183 e5fe | | Load 0x2,-0x2 0184 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0185 00da | | Load_Top At_Offset_2 0186 0227 | ' | Execute Access,All_Reference 0187 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0188 00d9 | | Load_Top At_Offset_1 0189 e5fe | | Load 0x2,-0x2 018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018c e5ff | | Load 0x2,-0x1 018d 01dd | | Execute Vector,First 018e e5ff | | Load 0x2,-0x1 018f 01dd | | Execute Vector,First 0190 0a4f | O | Execute_Immediate Plus,0x4f 0191 00d8 | | Load_Top At_Offset_0 0192 00e2 | | Load_Encached Integer_Cache 0193 0260 | ` | Execute Discrete,In_Type 0194 7001 |p | Jump_Nonzero 0x196 0195 0801 | | Execute_Immediate Raise,0x1 0196 e5ff | | Load 0x2,-0x1 0197 01cf | | Execute Vector,Slice_Read 0198 00da | | Load_Top At_Offset_2 0199 0227 | ' | Execute Access,All_Reference 019a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 019b 4850 |HP | Short_Literal 0x50 019c 00da | | Load_Top At_Offset_2 019d 0227 | ' | Execute Access,All_Reference 019e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019f 4800 |H | Short_Literal 0x0 01a0 00da | | Load_Top At_Offset_2 01a1 0227 | ' | Execute Access,All_Reference 01a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01a3 e5fe | | Load 0x2,-0x2 01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a5 00da | | Load_Top At_Offset_2 01a6 0227 | ' | Execute Access,All_Reference 01a7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01a8 00d9 | | Load_Top At_Offset_1 01a9 e5fe | | Load 0x2,-0x2 01aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ab e5fe | | Load 0x2,-0x2 01ac e5ff | | Load 0x2,-0x1 01ad 01dd | | Execute Vector,First 01ae 0a50 | P | Execute_Immediate Plus,0x50 01af 00d8 | | Load_Top At_Offset_0 01b0 00e2 | | Load_Encached Integer_Cache 01b1 0260 | ` | Execute Discrete,In_Type 01b2 7001 |p | Jump_Nonzero 0x1b4 01b3 0801 | | Execute_Immediate Raise,0x1 01b4 e5ff | | Load 0x2,-0x1 01b5 01dc | | Execute Vector,Last 01b6 e5ff | | Load 0x2,-0x1 01b7 01cf | | Execute Vector,Slice_Read 01b8 821c | | Call 0x1,0x1c 01b9 00d1 | | Pop_Control Pop_Count_1 01ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e20e | | Load 0x1,0xe 01c4 0007 | | Action Break_Optional 01c5 BODY_01c0: 01c5 00db | | Load_Top At_Offset_3 01c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c7 0227 | ' | Execute Access,All_Reference 01c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c9 6814 |h | Jump_Zero 0x1de 01ca e20e | | Load 0x1,0xe 01cb 03bc | | Declare_Variable Access,By_Allocation 01cc 0039 | 9 | Store_Top Access,At_Offset_1 01cd 4800 |H | Short_Literal 0x0 01ce 00d9 | | Load_Top At_Offset_1 01cf 0227 | ' | Execute Access,All_Reference 01d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d1 4801 |H | Short_Literal 0x1 01d2 00d9 | | Load_Top At_Offset_1 01d3 0227 | ' | Execute Access,All_Reference 01d4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01d5 00db | | Load_Top At_Offset_3 01d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d7 00d9 | | Load_Top At_Offset_1 01d8 0227 | ' | Execute Access,All_Reference 01d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01da 00d8 | | Load_Top At_Offset_0 01db e5ff | | Load 0x2,-0x1 01dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01de 4801 |H | Short_Literal 0x1 01df e5ff | | Load 0x2,-0x1 01e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e1 0227 | ' | Execute Access,All_Reference 01e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 0227 | ' | Execute Access,All_Reference 01ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ee 680b |h | Jump_Zero 0x1fa 01ef 480a |H | Short_Literal 0xa 01f0 4801 |H | Short_Literal 0x1 01f1 e5ff | | Load 0x2,-0x1 01f2 0227 | ' | Execute Access,All_Reference 01f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f4 e5ff | | Load 0x2,-0x1 01f5 0227 | ' | Execute Access,All_Reference 01f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f7 01cf | | Execute Vector,Slice_Read 01f8 01cb | | Execute Vector,Append 01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fa 4801 |H | Short_Literal 0x1 01fb 00db | | Load_Top At_Offset_3 01fc 0227 | ' | Execute Access,All_Reference 01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01fe e5ff | | Load 0x2,-0x1 01ff 0227 | ' | Execute Access,All_Reference 0200 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0201 01cf | | Execute Vector,Slice_Read 0202 0335 | 5 | Declare_Variable Array,Duplicate 0203 00cd | | Action Spare6_Action 0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 0227 | ' | Execute Access,All_Reference 020d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 020e 6808 |h | Jump_Zero 0x217 020f 00da | | Load_Top At_Offset_2 0210 0227 | ' | Execute Access,All_Reference 0211 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0212 821f | | Call 0x1,0x1f 0213 00db | | Load_Top At_Offset_3 0214 821e | | Call 0x1,0x1e 0215 01cc | | Execute Vector,Catenate 0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0217 00da | | Load_Top At_Offset_2 0218 821e | | Call 0x1,0x1e 0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4601 |F | Jump_Case 0x2 0224 7801 |x | Jump 0x226 ; case 0x0 0225 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0226 00da | | Load_Top At_Offset_2 0227 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0228 0125 | % | Execute Any,Set_Constraint 0229 00da | | Load_Top At_Offset_2 022a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 022b 1c00 | | Execute_Immediate Run_Utility,0x0 022c 4800 |H | Short_Literal 0x0 022d 00db | | Load_Top At_Offset_3 022e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 022f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0230 ; -------------------------------------------------------------------------------------- 0230 ; STRING TABLE 0230 ; -------------------------------------------------------------------------------------- 0230 0010 | | .STRTAB 0x0010->0x0238 ; "MSG" 0231 0011 | | .STRTAB 0x0011->0x0239 ; "WARNING" 0232 0016 | | .STRTAB 0x0016->0x023d ; "PROBLEM" 0233 001b | | .STRTAB 0x001b->0x0240 ; "FATAL" 0234 001e | | .STRTAB 0x001e->0x0243 ; "CRASH_ANALYZER" 0235 002a | * | .STRTAB 0x002a->0x024a ; "INFO" 0236 002c | , | .STRTAB 0x002c->0x024c ; "ERROR" 0237 002f | / | .STREND 0x002f->0x024e 0238 4d53 4757 |MSGW| .STRTAB_STRINGS 024f 0000 | | .XXX[0x1] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0012 | | .DEBUG4 0x0004,0x0012,0x33a0,0x0000,0x0001,0x0000 0256 0000 0000 | | .BLANK 0000[0x1aa]