|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 0538 | 8 | .CONST 0x0538 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0047 | G | .CONST 0x0047 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0013 | | .CONST 0x0013 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c e003 | | Load 0x0,0x3 001d 0092 03b0 | | Action Push_String_Extended,0x3b0 ; "MIDDLE-PASS" 001f e004 | | Load 0x0,0x4 0020 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0021 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0022 0387 | | Declare_Variable Package 0023 00d8 | | Load_Top At_Offset_0 0024 020f | | Execute Module,Activate 0025 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0027 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0029 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 002b 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 002d 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 002f 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0031 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0033 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0035 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0037 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0039 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 003b 029f 019b | | Declare_Subprogram INIT_0198,For_Call 003d 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 003f 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0041 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0043 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0045 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 0047 BODY_0018: 0047 e005 | | Load 0x0,0x5 0048 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0049 7004 |p | Jump_Nonzero 0x4e 004a 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "Privileged mode is required to run this command" 004c 8406 | | Call 0x2,0x6 004d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 004e 8413 | | Call 0x2,0x13 004f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 e7ff | | Load 0x3,-0x1 0054 0f00 | | Execute_Immediate Equal,0x0 0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e7ff | | Load 0x3,-0x1 005c 0f00 | | Execute_Immediate Equal,0x0 005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e5fd | | Load 0x2,-0x3 0064 e006 | | Load 0x0,0x6 0065 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0066 4807 |H | Short_Literal 0x7 0067 e7ff | | Load 0x3,-0x1 0068 e007 | | Load 0x0,0x7 0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006b 0000 0000 | | .BLANK 0000[0x5] 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 e5fd | | Load 0x2,-0x3 0074 e006 | | Load 0x0,0x6 0075 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0076 4805 |H | Short_Literal 0x5 0077 e7ff | | Load 0x3,-0x1 0078 e007 | | Load 0x0,0x7 0079 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0096 | | .CONST 0x0096 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 e7ff | | Load 0x3,-0x1 0084 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0085 e008 | | Load 0x0,0x8 0086 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0087 011c | | Execute Any,Convert_Unchecked 0088 1c01 | | Execute_Immediate Run_Utility,0x1 0089 00d8 | | Load_Top At_Offset_0 008a 01dd | | Execute Vector,First 008b e602 | | Load 0x3,0x2 008c 01dd | | Execute Vector,First 008d 0a04 | | Execute_Immediate Plus,0x4 008e 00d8 | | Load_Top At_Offset_0 008f 00e2 | | Load_Encached Integer_Cache 0090 0260 | ` | Execute Discrete,In_Type 0091 7001 |p | Jump_Nonzero 0x93 0092 0801 | | Execute_Immediate Raise,0x1 0093 e602 | | Load 0x3,0x2 0094 01cf | | Execute Vector,Slice_Read 0095 0007 | | Action Break_Optional 0096 BODY_0080: 0096 00d8 | | Load_Top At_Offset_0 0097 0092 03b2 | | Action Push_String_Extended,0x3b2 ; "R1000" 0099 01df | | Execute Vector,Equal 009a 7005 |p | Jump_Nonzero 0xa0 009b 00d8 | | Load_Top At_Offset_0 009c 0092 03b3 | | Action Push_String_Extended,0x3b3 ; "SPARE" 009e 01df | | Execute Vector,Equal 009f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a0 4801 |H | Short_Literal 0x1 00a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 00e3 | | Load_Encached Natural_Cache 00ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ad BODY_00a8: 00ad e7ff | | Load 0x3,-0x1 00ae e009 | | Load 0x0,0x9 00af 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00b0 180d | | Execute Package,Field_Execute,Field_Number 0xd 00b1 6803 |h | Jump_Zero 0xb5 00b2 00d8 | | Load_Top At_Offset_0 00b3 0a01 | | Execute_Immediate Plus,0x1 00b4 c602 | | Store 0x3,0x2 00b5 e7ff | | Load 0x3,-0x1 00b6 e00a | | Load 0x0,0xa 00b7 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 00b8 6806 |h | Jump_Zero 0xbf 00b9 00d8 | | Load_Top At_Offset_0 00ba e7ff | | Load 0x3,-0x1 00bb e00a | | Load 0x0,0xa 00bc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00bd 0273 | s | Execute Discrete,Plus 00be c602 | | Store 0x3,0x2 00bf 00d8 | | Load_Top At_Offset_0 00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cd | | .CONST 0x00cd ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb 00e3 | | Load_Encached Natural_Cache 00cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cd BODY_00c8: 00cd e7ff | | Load 0x3,-0x1 00ce e009 | | Load 0x0,0x9 00cf 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d0 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d1 6803 |h | Jump_Zero 0xd5 00d2 00d8 | | Load_Top At_Offset_0 00d3 0a01 | | Execute_Immediate Plus,0x1 00d4 c602 | | Store 0x3,0x2 00d5 e7ff | | Load 0x3,-0x1 00d6 e00a | | Load 0x0,0xa 00d7 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 00d8 6806 |h | Jump_Zero 0xdf 00d9 00d8 | | Load_Top At_Offset_0 00da e7ff | | Load 0x3,-0x1 00db e00a | | Load 0x0,0xa 00dc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00dd 0273 | s | Execute Discrete,Plus 00de c602 | | Store 0x3,0x2 00df 00d8 | | Load_Top At_Offset_0 00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e1 0000 0000 | | .BLANK 0000[0x7] 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 e7fe | | Load 0x3,-0x2 00ec 0c01 | | Execute_Immediate Greater_Equal,0x1 00ed 6817 |h | Jump_Zero 0x105 00ee e7fe | | Load 0x3,-0x2 00ef 00d8 | | Load_Top At_Offset_0 00f0 00e4 | | Load_Encached Positive_Cache 00f1 0260 | ` | Execute Discrete,In_Type 00f2 7001 |p | Jump_Nonzero 0xf4 00f3 0801 | | Execute_Immediate Raise,0x1 00f4 e7ff | | Load 0x3,-0x1 00f5 e00a | | Load 0x0,0xa 00f6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00f7 680a |h | Jump_Zero 0x102 00f8 e7fe | | Load 0x3,-0x2 00f9 00d8 | | Load_Top At_Offset_0 00fa 00e4 | | Load_Encached Positive_Cache 00fb 0260 | ` | Execute Discrete,In_Type 00fc 7001 |p | Jump_Nonzero 0xfe 00fd 0801 | | Execute_Immediate Raise,0x1 00fe e7ff | | Load 0x3,-0x1 00ff e00a | | Load 0x0,0xa 0100 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0101 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0102 e004 | | Load 0x0,0x4 0103 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0104 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0105 e7ff | | Load 0x3,-0x1 0106 e009 | | Load 0x0,0x9 0107 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0108 180d | | Execute Package,Field_Execute,Field_Number 0xd 0109 6805 |h | Jump_Zero 0x10f 010a e7ff | | Load 0x3,-0x1 010b e009 | | Load 0x0,0x9 010c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010d 180e | | Execute Package,Field_Execute,Field_Number 0xe 010e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010f e004 | | Load 0x0,0x4 0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0111 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e7fe | | Load 0x3,-0x2 011c 0c01 | | Execute_Immediate Greater_Equal,0x1 011d 6817 |h | Jump_Zero 0x135 011e e7fe | | Load 0x3,-0x2 011f 00d8 | | Load_Top At_Offset_0 0120 00e4 | | Load_Encached Positive_Cache 0121 0260 | ` | Execute Discrete,In_Type 0122 7001 |p | Jump_Nonzero 0x124 0123 0801 | | Execute_Immediate Raise,0x1 0124 e7ff | | Load 0x3,-0x1 0125 e00a | | Load 0x0,0xa 0126 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0127 680a |h | Jump_Zero 0x132 0128 e7fe | | Load 0x3,-0x2 0129 00d8 | | Load_Top At_Offset_0 012a 00e4 | | Load_Encached Positive_Cache 012b 0260 | ` | Execute Discrete,In_Type 012c 7001 |p | Jump_Nonzero 0x12e 012d 0801 | | Execute_Immediate Raise,0x1 012e e7ff | | Load 0x3,-0x1 012f e00a | | Load 0x0,0xa 0130 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0132 e004 | | Load 0x0,0x4 0133 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0134 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0135 e7ff | | Load 0x3,-0x1 0136 e009 | | Load 0x0,0x9 0137 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0138 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0139 6805 |h | Jump_Zero 0x13f 013a e7ff | | Load 0x3,-0x1 013b e009 | | Load 0x0,0x9 013c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 013e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013f e004 | | Load 0x0,0x4 0140 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0141 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0159 | Y | .CONST 0x0159 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0004 | | .CONST 0x0004 ; Number of locals 014b INIT_0148: 014b e7ff | | Load 0x3,-0x1 014c 0092 03b4 | | Action Push_String_Extended,0x3b4 ; ".<@>" 014e 01cc | | Execute Vector,Catenate 014f 0007 | | Action Break_Optional 0150 e004 | | Load 0x0,0x4 0151 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0152 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0153 02c7 | | Declare_Variable Any 0154 00d8 | | Load_Top At_Offset_0 0155 1c00 | | Execute_Immediate Run_Utility,0x0 0156 e004 | | Load 0x0,0x4 0157 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0158 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0159 BODY_0148: 0159 e004 | | Load 0x0,0x4 015a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015c e603 | | Load 0x3,0x3 015d 601e |` | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00004000} 015e e00b | | Load 0x0,0xb 015f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0160 e00c | | Load 0x0,0xc 0161 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0162 e00d | | Load 0x0,0xd 0163 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0164 4801 |H | Short_Literal 0x1 0165 4800 |H | Short_Literal 0x0 0166 e00c | | Load 0x0,0xc 0167 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0168 e004 | | Load 0x0,0x4 0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 016b e602 | | Load 0x3,0x2 016c e004 | | Load 0x0,0x4 016d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016f c603 | | Store 0x3,0x3 0170 c604 | | Store 0x3,0x4 0171 00d8 | | Load_Top At_Offset_0 0172 8404 | | Call 0x2,0x4 0173 6807 |h | Jump_Zero 0x17b 0174 e5fd | | Load 0x2,-0x3 0175 0092 03b5 | | Action Push_String_Extended,0x3b5 ; "<DIRECTORIES>" 0177 4805 |H | Short_Literal 0x5 0178 e602 | | Load 0x3,0x2 0179 e00e | | Load 0x0,0xe 017a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 017b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e7ff | | Load 0x3,-0x1 0184 e004 | | Load 0x0,0x4 0185 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0186 700a |p | Jump_Nonzero 0x191 0187 e5fd | | Load 0x2,-0x3 0188 0092 03b5 | | Action Push_String_Extended,0x3b5 ; "<DIRECTORIES>" 018a 4801 |H | Short_Literal 0x1 018b e7ff | | Load 0x3,-0x1 018c e004 | | Load 0x0,0x4 018d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 018e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 018f e00e | | Load 0x0,0xe 0190 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0191 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 01ac | | .CONST 0x01ac ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 019d BODY_0198: 019d e7fd | | Load 0x3,-0x3 019e 8407 | | Call 0x2,0x7 019f 680b |h | Jump_Zero 0x1ab 01a0 00cf | | Action Mark_Auxiliary 01a1 e7fe | | Load 0x3,-0x2 01a2 8408 | | Call 0x2,0x8 01a3 0aff | | Execute_Immediate Plus,-0x1 01a4 4800 |H | Short_Literal 0x0 01a5 0263 | c | Execute Discrete,Above_Bound 01a6 7003 |p | Jump_Nonzero 0x1aa 01a7 8602 | | Call 0x3,0x2 01a8 00c8 | | Action Pop_Auxiliary_Range 01a9 3ffd |? | Loop_Increasing 0x1a7 01aa 00ce | | Action Pop_Auxiliary 01ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ac TRAP_0198: 01ac 0007 | | Action Break_Optional 01ad 0092 03b6 | | Action Push_String_Extended,0x3b6 ; "Unhandled exception destroying code segment for " 01af e7ff | | Load 0x3,-0x1 01b0 01cc | | Execute Vector,Catenate 01b1 8405 | | Call 0x2,0x5 01b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01b3 0000 0000 | | .BLANK 0000[0x5] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 01cc | | .CONST 0x01cc ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call 01bd BODY_01b8: 01bd e7fd | | Load 0x3,-0x3 01be 8407 | | Call 0x2,0x7 01bf 680b |h | Jump_Zero 0x1cb 01c0 00cf | | Action Mark_Auxiliary 01c1 e7fe | | Load 0x3,-0x2 01c2 8409 | | Call 0x2,0x9 01c3 0aff | | Execute_Immediate Plus,-0x1 01c4 4800 |H | Short_Literal 0x0 01c5 0263 | c | Execute Discrete,Above_Bound 01c6 7003 |p | Jump_Nonzero 0x1ca 01c7 8602 | | Call 0x3,0x2 01c8 00c8 | | Action Pop_Auxiliary_Range 01c9 3ffd |? | Loop_Increasing 0x1c7 01ca 00ce | | Action Pop_Auxiliary 01cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01cc TRAP_01b8: 01cc 0007 | | Action Break_Optional 01cd 0092 03b7 | | Action Push_String_Extended,0x3b7 ; "Unhandled exception destroying elab code segment for " 01cf e7ff | | Load 0x3,-0x1 01d0 01cc | | Execute Vector,Catenate 01d1 8405 | | Call 0x2,0x5 01d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01dd | | .CONST 0x01dd ; Address of begin 01d9 0205 | | .CONST 0x0205 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e004 | | Load 0x0,0x4 01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dd BODY_01d8: 01dd e7fd | | Load 0x3,-0x3 01de 8407 | | Call 0x2,0x7 01df 680a |h | Jump_Zero 0x1ea 01e0 e004 | | Load 0x0,0x4 01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e2 6029 |`) | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00004000} 01e3 e00b | | Load 0x0,0xb 01e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e5 e7fe | | Load 0x3,-0x2 01e6 e00f | | Load 0x0,0xf 01e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e8 c602 | | Store 0x3,0x2 01e9 7809 |x | Jump 0x1f3 01ea e004 | | Load 0x0,0x4 01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ec 601f |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00004000} 01ed e00b | | Load 0x0,0xb 01ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ef e7fe | | Load 0x3,-0x2 01f0 e402 | | Load 0x2,0x2 01f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f2 c602 | | Store 0x3,0x2 01f3 00d8 | | Load_Top At_Offset_0 01f4 8403 | | Call 0x2,0x3 01f5 700e |p | Jump_Nonzero 0x204 01f6 0092 03b8 | | Action Push_String_Extended,0x3b8 ; "Bad status destroying cg attribute space for unit " 01f8 e7ff | | Load 0x3,-0x1 01f9 01cc | | Execute Vector,Catenate 01fa 0092 03b9 | | Action Push_String_Extended,0x3b9 ; ": " 01fc 01cc | | Execute Vector,Catenate 01fd e602 | | Load 0x3,0x2 01fe e004 | | Load 0x0,0x4 01ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0200 011c | | Execute Any,Convert_Unchecked 0201 1c01 | | Execute_Immediate Run_Utility,0x1 0202 01cc | | Execute Vector,Catenate 0203 8406 | | Call 0x2,0x6 0204 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0205 TRAP_01d8: 0205 0007 | | Action Break_Optional 0206 0092 03ba | | Action Push_String_Extended,0x3ba ; "Unhandled exception destroying attribute space for " 0208 e7ff | | Load 0x3,-0x1 0209 01cc | | Execute Vector,Catenate 020a 8405 | | Call 0x2,0x5 020b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 020c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0215 | | .CONST 0x0215 ; Address of begin 0211 0231 | 1 | .CONST 0x0231 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e004 | | Load 0x0,0x4 0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0215 BODY_0210: 0215 e004 | | Load 0x0,0x4 0216 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0217 67f4 |g | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00004000} 0218 e00b | | Load 0x0,0xb 0219 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021a e7fd | | Load 0x3,-0x3 021b e7fe | | Load 0x3,-0x2 021c e010 | | Load 0x0,0x10 021d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 021e c602 | | Store 0x3,0x2 021f 00d8 | | Load_Top At_Offset_0 0220 8403 | | Call 0x2,0x3 0221 700e |p | Jump_Nonzero 0x230 0222 0092 03bb | | Action Push_String_Extended,0x3bb ; "Could not set unit state for " 0224 e7ff | | Load 0x3,-0x1 0225 01cc | | Execute Vector,Catenate 0226 0092 03bc | | Action Push_String_Extended,0x3bc ; " to installed: " 0228 01cc | | Execute Vector,Catenate 0229 e602 | | Load 0x3,0x2 022a e004 | | Load 0x0,0x4 022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022c 011c | | Execute Any,Convert_Unchecked 022d 1c01 | | Execute_Immediate Run_Utility,0x1 022e 01cc | | Execute Vector,Catenate 022f 8405 | | Call 0x2,0x5 0230 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0231 TRAP_0210: 0231 0007 | | Action Break_Optional 0232 0092 03bd | | Action Push_String_Extended,0x3bd ; "Unhandled exception setting unit state for unit " 0234 e7ff | | Load 0x3,-0x1 0235 01cc | | Execute Vector,Catenate 0236 8405 | | Call 0x2,0x5 0237 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0253 | S | .CONST 0x0253 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 000a | | .CONST 0x000a ; Number of locals 023b INIT_0238: 023b 00ec | | Load_Encached Diana_Tree_Cache 023c 00ec | | Load_Encached Diana_Tree_Cache 023d e004 | | Load 0x0,0x4 023e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 023f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0240 02c7 | | Declare_Variable Any 0241 00d8 | | Load_Top At_Offset_0 0242 1c00 | | Execute_Immediate Run_Utility,0x0 0243 e004 | | Load 0x0,0x4 0244 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0245 0322 | " | Declare_Variable Record 0246 00d8 | | Load_Top At_Offset_0 0247 1c00 | | Execute_Immediate Run_Utility,0x0 0248 e004 | | Load 0x0,0x4 0249 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024a e004 | | Load 0x0,0x4 024b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 024c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024d 029f 030b | | Declare_Subprogram INIT_0308,For_Call 024f 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call 0251 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 0253 BODY_0238: 0253 8608 | | Call 0x3,0x8 0254 8609 | | Call 0x3,0x9 0255 860a | | Call 0x3,0xa 0256 e602 | | Load 0x3,0x2 0257 4976 |Iv | Short_Literal 0x176 0258 00eb | | Load_Encached Diana_Cache 0259 0098 | | Execute Package,Field_Read_Dynamic 025a 180f | | Execute Package,Field_Execute,Field_Number 0xf 025b a603 | | Store_Unchecked 0x3,0x3 025c e607 | | Load 0x3,0x7 025d 0c04 | | Execute_Immediate Greater_Equal,0x4 025e 6812 |h | Jump_Zero 0x271 025f e7ff | | Load 0x3,-0x1 0260 840c | | Call 0x2,0xc 0261 e605 | | Load 0x3,0x5 0262 e603 | | Load 0x3,0x3 0263 e7ff | | Load 0x3,-0x1 0264 840e | | Call 0x2,0xe 0265 e605 | | Load 0x3,0x5 0266 e603 | | Load 0x3,0x3 0267 e7ff | | Load 0x3,-0x1 0268 840f | | Call 0x2,0xf 0269 e605 | | Load 0x3,0x5 026a e603 | | Load 0x3,0x3 026b e7ff | | Load 0x3,-0x1 026c 8410 | | Call 0x2,0x10 026d 4803 |H | Short_Literal 0x3 026e e603 | | Load 0x3,0x3 026f e7ff | | Load 0x3,-0x1 0270 8411 | | Call 0x2,0x11 0271 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0272 0000 0000 | | .BLANK 0000[0x6] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0284 | | .CONST 0x0284 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0003 | | .CONST 0x0003 ; Number of locals 027b INIT_0278: 027b e004 | | Load 0x0,0x4 027c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 027d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 027e 02c7 | | Declare_Variable Any 027f 00d8 | | Load_Top At_Offset_0 0280 1c00 | | Execute_Immediate Run_Utility,0x0 0281 e004 | | Load 0x0,0x4 0282 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0284 BODY_0278: 0284 e004 | | Load 0x0,0x4 0285 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0286 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0287 e602 | | Load 0x3,0x2 0288 6057 |`W | Indirect_Literal Discrete,0x2e0,{0x00000000, 0x00004000} 0289 e00b | | Load 0x0,0xb 028a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028b e00c | | Load 0x0,0xc 028c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 028d e00d | | Load 0x0,0xd 028e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 028f 4801 |H | Short_Literal 0x1 0290 4800 |H | Short_Literal 0x0 0291 e00c | | Load 0x0,0xc 0292 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0293 e004 | | Load 0x0,0x4 0294 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0295 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0296 e5ff | | Load 0x2,-0x1 0297 e004 | | Load 0x0,0x4 0298 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0299 181b | | Execute Package,Field_Execute,Field_Number 0x1b 029a c602 | | Store 0x3,0x2 029b c603 | | Store 0x3,0x3 029c 00d8 | | Load_Top At_Offset_0 029d 8404 | | Call 0x2,0x4 029e 701e |p | Jump_Nonzero 0x2bd 029f 0092 03be | | Action Push_String_Extended,0x3be ; "Can't resolve \x22" 02a1 e5ff | | Load 0x2,-0x1 02a2 01cc | | Execute Vector,Catenate 02a3 0092 03bf | | Action Push_String_Extended,0x3bf ; "\x22 because " 02a5 01cc | | Execute Vector,Catenate 02a6 6039 |`9 | Indirect_Literal Discrete,0x2e0,{0x00000000, 0x00004000} 02a7 e00b | | Load 0x0,0xb 02a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a9 e00c | | Load 0x0,0xc 02aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ab e00d | | Load 0x0,0xd 02ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ad 4801 |H | Short_Literal 0x1 02ae 4800 |H | Short_Literal 0x0 02af e00c | | Load 0x0,0xc 02b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b1 e004 | | Load 0x0,0x4 02b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02b4 e5ff | | Load 0x2,-0x1 02b5 e603 | | Load 0x3,0x3 02b6 e004 | | Load 0x0,0x4 02b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b8 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 02b9 01cc | | Execute Vector,Catenate 02ba 8406 | | Call 0x2,0x6 02bb 00cc | | Action Pop_Block 02bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02bd 00cf | | Action Mark_Auxiliary 02be 780b |x | Jump 0x2ca 02bf e602 | | Load 0x3,0x2 02c0 e004 | | Load 0x0,0x4 02c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02c3 8412 | | Call 0x2,0x12 02c4 e602 | | Load 0x3,0x2 02c5 e004 | | Load 0x0,0x4 02c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02c8 c602 | | Store 0x3,0x2 02c9 00c9 | | Action Pop_Auxiliary_Loop 02ca e602 | | Load 0x3,0x2 02cb e004 | | Load 0x0,0x4 02cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02cd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02ce 6ff0 |o | Jump_Zero 0x2bf 02cf 00ce | | Action Pop_Auxiliary 02d0 e5fe | | Load 0x2,-0x2 02d1 680b |h | Jump_Zero 0x2dd 02d2 e5fd | | Load 0x2,-0x3 02d3 00ea | | Load_Encached Null_String_Cache 02d4 4801 |H | Short_Literal 0x1 02d5 4800 |H | Short_Literal 0x0 02d6 485b |H[ | Short_Literal 0x5b 02d7 e5ff | | Load 0x2,-0x1 02d8 01ca | | Execute Vector,Prepend 02d9 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "]$$" 02db 01cc | | Execute Vector,Catenate 02dc 8011 | | Call 0x0,0x11 02dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02de 0000 0000 | | .XXX[0x2] 02e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02e4 0000 0000 | | .BLANK 0000[0x4] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 02f0 | | .CONST 0x02f0 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e605 | | Load 0x3,0x5 02ec e7fe | | Load 0x3,-0x2 02ed 840a | | Call 0x2,0xa 02ee 840d | | Call 0x2,0xd 02ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f0 TRAP_02e8: 02f0 0007 | | Action Break_Optional 02f1 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Could not destroy code segment for " 02f3 e7ff | | Load 0x3,-0x1 02f4 01cc | | Execute Vector,Catenate 02f5 8405 | | Call 0x2,0x5 02f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f7 0000 | | .XXX[0x1] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0300 | | .CONST 0x0300 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e605 | | Load 0x3,0x5 02fc e7fe | | Load 0x3,-0x2 02fd 840b | | Call 0x2,0xb 02fe 840d | | Call 0x2,0xd 02ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0300 TRAP_02f8: 0300 0007 | | Action Break_Optional 0301 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Could not destroy elab code segment for " 0303 e7ff | | Load 0x3,-0x1 0304 01cc | | Execute Vector,Catenate 0305 8405 | | Call 0x2,0x5 0306 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0307 0000 | | .XXX[0x1] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 033f | ? | .CONST 0x033f ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b e004 | | Load 0x0,0x4 030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030d e604 | | Load 0x3,0x4 030e 0120 | | Execute Any,Is_Value 030f 6804 |h | Jump_Zero 0x314 0310 e004 | | Load 0x0,0x4 0311 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0312 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0313 7801 |x | Jump 0x315 0314 e604 | | Load 0x3,0x4 0315 e004 | | Load 0x0,0x4 0316 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0317 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0318 602f |`/ | Indirect_Literal Discrete,0x348,{0x00000000, 0x00004000} 0319 4801 |H | Short_Literal 0x1 031a 4800 |H | Short_Literal 0x0 031b 4800 |H | Short_Literal 0x0 031c e00c | | Load 0x0,0xc 031d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031e e004 | | Load 0x0,0x4 031f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0320 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0321 e00b | | Load 0x0,0xb 0322 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0323 4800 |H | Short_Literal 0x0 0324 e7ff | | Load 0x3,-0x1 0325 e004 | | Load 0x0,0x4 0326 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0327 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0328 c602 | | Store 0x3,0x2 0329 c604 | | Store 0x3,0x4 032a c606 | | Store 0x3,0x6 032b e606 | | Load 0x3,0x6 032c 8403 | | Call 0x2,0x3 032d 7010 |p | Jump_Nonzero 0x33e 032e 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "Bad status opening unit " 0330 e7ff | | Load 0x3,-0x1 0331 01cc | | Execute Vector,Catenate 0332 0092 03b9 | | Action Push_String_Extended,0x3b9 ; ": " 0334 01cc | | Execute Vector,Catenate 0335 e606 | | Load 0x3,0x6 0336 e004 | | Load 0x0,0x4 0337 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0338 011c | | Execute Any,Convert_Unchecked 0339 1c01 | | Execute_Immediate Run_Utility,0x1 033a 01cc | | Execute Vector,Catenate 033b 8406 | | Call 0x2,0x6 033c 00cc | | Action Pop_Block 033d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 033f TRAP_0308: 033f 0007 | | Action Break_Optional 0340 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "Unhandled exception opening ada unit " 0342 e7ff | | Load 0x3,-0x1 0343 01cc | | Execute Vector,Catenate 0344 8405 | | Call 0x2,0x5 0345 00cc | | Action Pop_Block 0346 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0347 0000 | | .XXX[0x1] 0348 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0375 | u | .CONST 0x0375 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e004 | | Load 0x0,0x4 0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0355 e004 | | Load 0x0,0x4 0356 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0358 67ef |g | Indirect_Literal Discrete,0x348,{0x00000000, 0x00004000} 0359 e00b | | Load 0x0,0xb 035a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035b e602 | | Load 0x3,0x2 035c e004 | | Load 0x0,0x4 035d 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 035e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 035f c607 | | Store 0x3,0x7 0360 c606 | | Store 0x3,0x6 0361 e606 | | Load 0x3,0x6 0362 8403 | | Call 0x2,0x3 0363 7010 |p | Jump_Nonzero 0x374 0364 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "Bad status getting unit state for unit " 0366 e7ff | | Load 0x3,-0x1 0367 01cc | | Execute Vector,Catenate 0368 0092 03b9 | | Action Push_String_Extended,0x3b9 ; ": " 036a 01cc | | Execute Vector,Catenate 036b e606 | | Load 0x3,0x6 036c e004 | | Load 0x0,0x4 036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036e 011c | | Execute Any,Convert_Unchecked 036f 1c01 | | Execute_Immediate Run_Utility,0x1 0370 01cc | | Execute Vector,Catenate 0371 8406 | | Call 0x2,0x6 0372 00cc | | Action Pop_Block 0373 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0374 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0375 TRAP_0350: 0375 0007 | | Action Break_Optional 0376 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "Unhandled exception getting unit state for unit " 0378 e7ff | | Load 0x3,-0x1 0379 01cc | | Execute Vector,Catenate 037a 8405 | | Call 0x2,0x5 037b 00cc | | Action Pop_Block 037c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 037d 0000 0000 | | .XXX[0x3] 037f 0000 | | 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 03a3 | | .CONST 0x03a3 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 e004 | | Load 0x0,0x4 0384 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0385 e605 | | Load 0x3,0x5 0386 6025 |`% | Indirect_Literal Discrete,0x3ac,{0x00000000, 0x00004000} 0387 e00b | | Load 0x0,0xb 0388 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0389 e602 | | Load 0x3,0x2 038a e004 | | Load 0x0,0x4 038b 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 038c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 038d 00d1 | | Pop_Control Pop_Count_1 038e c606 | | Store 0x3,0x6 038f e606 | | Load 0x3,0x6 0390 8403 | | Call 0x2,0x3 0391 7010 |p | Jump_Nonzero 0x3a2 0392 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Bad status getting target key for unit " 0394 e7ff | | Load 0x3,-0x1 0395 01cc | | Execute Vector,Catenate 0396 0092 03b9 | | Action Push_String_Extended,0x3b9 ; ": " 0398 01cc | | Execute Vector,Catenate 0399 e606 | | Load 0x3,0x6 039a e004 | | Load 0x0,0x4 039b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039c 011c | | Execute Any,Convert_Unchecked 039d 1c01 | | Execute_Immediate Run_Utility,0x1 039e 01cc | | Execute Vector,Catenate 039f 8406 | | Call 0x2,0x6 03a0 00cc | | Action Pop_Block 03a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a3 TRAP_0380: 03a3 0007 | | Action Break_Optional 03a4 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Unhandled exception getting target key for unit " 03a6 e7ff | | Load 0x3,-0x1 03a7 01cc | | Execute Vector,Catenate 03a8 8405 | | Call 0x2,0x5 03a9 00cc | | Action Pop_Block 03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ab 0000 | | .XXX[0x1] 03ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; STRING TABLE 03b0 ; -------------------------------------------------------------------------------------- 03b0 0034 | 4 | .STRTAB 0x0034->0x03ca ; "MIDDLE-PASS" 03b1 003d | = | .STRTAB 0x003d->0x03cf ; "Privileged mode is required to run this command" 03b2 006a | j | .STRTAB 0x006a->0x03e7 ; "R1000" 03b3 006d | m | .STRTAB 0x006d->0x03e9 ; "SPARE" 03b4 0070 | p | .STRTAB 0x0070->0x03ec ; ".<@>" 03b5 0072 | r | .STRTAB 0x0072->0x03ee ; "<DIRECTORIES>" 03b6 007d | } | .STRTAB 0x007d->0x03f4 ; "Unhandled exception destroying code segment for " 03b7 00ab | | .STRTAB 0x00ab->0x040c ; "Unhandled exception destroying elab code segment for " 03b8 00de | | .STRTAB 0x00de->0x0427 ; "Bad status destroying cg attribute space for unit " 03b9 010e | | .STRTAB 0x010e->0x0440 ; ": " 03ba 010e | | .STRTAB 0x010e->0x0441 ; "Unhandled exception destroying attribute space for " 03bb 013f | ? | .STRTAB 0x013f->0x045a ; "Could not set unit state for " 03bc 015a | Z | .STRTAB 0x015a->0x0469 ; " to installed: " 03bd 0167 | g | .STRTAB 0x0167->0x0470 ; "Unhandled exception setting unit state for unit " 03be 0195 | | .STRTAB 0x0195->0x0488 ; "Can't resolve \x22" 03bf 01a2 | | .STRTAB 0x01a2->0x0490 ; "\x22 because " 03c0 01aa | | .STRTAB 0x01aa->0x0495 ; "]$$" 03c1 01ab | | .STRTAB 0x01ab->0x0496 ; "Could not destroy code segment for " 03c2 01cc | | .STRTAB 0x01cc->0x04a8 ; "Could not destroy elab code segment for " 03c3 01f2 | | .STRTAB 0x01f2->0x04bc ; "Bad status opening unit " 03c4 0208 | | .STRTAB 0x0208->0x04c8 ; "Unhandled exception opening ada unit " 03c5 022b | + | .STRTAB 0x022b->0x04da ; "Bad status getting unit state for unit " 03c6 0250 | P | .STRTAB 0x0250->0x04ee ; "Unhandled exception getting unit state for unit " 03c7 027e | ~ | .STRTAB 0x027e->0x0506 ; "Bad status getting target key for unit " 03c8 02a3 | | .STRTAB 0x02a3->0x0519 ; "Unhandled exception getting target key for unit " 03c9 02d1 | | .STREND 0x02d1->0x0531 03ca 4d49 4444 |MIDD| .STRTAB_STRINGS 0532 0000 0000 | | .BLANK 0000[0x6] 0538 ; -------------------------------------------------------------------------------------- 0538 ; Debug Table 0538 ; -------------------------------------------------------------------------------------- 0538 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd73b,0x0000,0x0001,0x0000 053e 7239 901c |r9 | .XXX[0xc2] 0540 000f 524f | RO| 0542 4f54 5f54 |OT_T| 0544 5950 455f |YPE_| 0546 5354 4143 |STAC| 0548 4b66 1700 |Kf | 054a 1b4d 4943 | MIC| 054c 524f 434f |ROCO| 054e 4445 5f54 |DE_T| 0550 5950 4553 |YPES| 0552 2e4d 4f44 |.MOD| 0554 554c 455f |ULE_| 0556 4e41 4d45 |NAME| 0558 0000 3990 | 9 | 055a 1c00 0d54 | T| 055c 5950 455f |YPE_| 055e 434f 4e54 |CONT| 0560 454e 5453 |ENTS| 0562 6617 001e |f | 0564 4d49 4352 |MICR| 0566 4f43 4f44 |OCOD| 0568 455f 5459 |E_TY| 056a 5045 532e |PES.| 056c 434f 4d50 |COMP| 056e 4f4e 454e |ONEN| 0570 545f 494e |T_IN| 0572 464f 0000 |FO | 0574 3990 1c00 |9 | 0576 1154 5950 | TYP| 0578 455f 4e4f |E_NO| 057a 545f 434f |T_CO| 057c 4d50 4c45 |MPLE| 057e 5445 6617 |TEf | 0580 0010 5354 | ST| 0582 414e 4441 |ANDA| 0584 5244 2e42 |RD.B| 0586 4f4f 4c45 |OOLE| 0588 414e 0000 |AN | 058a 3990 1c00 |9 | 058c 144f 424a | OBJ| 058e 4543 5453 |ECTS| 0590 5f57 4f52 |_WOR| 0592 445f 414c |D_AL| 0594 4947 4e45 |IGNE| 0596 4466 1700 |Df | 0598 1053 5441 | STA| 059a 4e44 4152 |NDAR| 059c 442e 424f |D.BO| 059e 4f4c 4541 |OLEA| 05a0 4e00 0039 |N 9| 05a2 901c 0014 | | 05a4 554e 5349 |UNSI| 05a6 474e 4544 |GNED| 05a8 5f49 465f |_IF_| 05aa 4449 5343 |DISC| 05ac 5245 5445 |RETE| 05ae 6617 0010 |f | 05b0 5354 414e |STAN| 05b2 4441 5244 |DARD| 05b4 2e42 4f4f |.BOO| 05b6 4c45 414e |LEAN| 05b8 0000 3990 | 9 | 05ba 1c00 1052 | R| 05bc 4f4f 545f |OOT_| 05be 5459 5045 |TYPE| 05c0 5f4f 4646 |_OFF| 05c2 5345 5466 |SETf| 05c4 1700 214d | !M| 05c6 4943 524f |ICRO| 05c8 434f 4445 |CODE| 05ca 5f54 5950 |_TYP| 05cc 4553 2e54 |ES.T| 05ce 5950 455f |YPE_| 05d0 4449 5350 |DISP| 05d2 4c41 4345 |LACE| 05d4 4d45 4e54 |MENT| 05d6 0000 3990 | 9 | 05d8 1c00 1043 | C| 05da 4f4d 504c |OMPL| 05dc 4554 494f |ETIO| 05de 4e5f 5354 |N_ST| 05e0 4154 4566 |ATEf| 05e2 1700 214d | !M| 05e4 4943 524f |ICRO| 05e6 434f 4445 |CODE| 05e8 5f54 5950 |_TYP| 05ea 4553 2e43 |ES.C| 05ec 4f4d 504c |OMPL| 05ee 4554 494f |ETIO| 05f0 4e5f 5354 |N_ST| 05f2 4154 5553 |ATUS| 05f4 0000 3990 | 9 | 05f6 1c00 1153 | S| 05f8 5045 4349 |PECI| 05fa 4649 435f |FIC_| 05fc 434f 4e54 |CONT| 05fe 454e 5453 |ENTS|