|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0520 | | .CONST 0x0520 ; 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 e001 | | Load 0x0,0x1 001c e002 | | Load 0x0,0x2 001d 0092 0398 | | Action Push_String_Extended,0x398 ; "MIDDLE-PASS" 001f e003 | | Load 0x0,0x3 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 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0031 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0033 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0035 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0037 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0039 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 003b 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 003d 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 003f 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0041 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0043 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0045 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 0047 BODY_0018: 0047 e004 | | Load 0x0,0x4 0048 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0049 7004 |p | Jump_Nonzero 0x4e 004a 0092 0399 | | Action Push_String_Extended,0x399 ; "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 e005 | | Load 0x0,0x5 0065 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0066 4807 |H | Short_Literal 0x7 0067 e7ff | | Load 0x3,-0x1 0068 e006 | | Load 0x0,0x6 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 e005 | | Load 0x0,0x5 0075 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0076 4805 |H | Short_Literal 0x5 0077 e7ff | | Load 0x3,-0x1 0078 e006 | | Load 0x0,0x6 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 0092 | | .CONST 0x0092 ; 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 e007 | | Load 0x0,0x7 0086 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0087 025e | ^ | Execute Discrete,Convert 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 0248 | H | Execute Discrete,Check_In_Integer 008f e602 | | Load 0x3,0x2 0090 01cf | | Execute Vector,Slice_Read 0091 0007 | | Action Break_Optional 0092 BODY_0080: 0092 00d8 | | Load_Top At_Offset_0 0093 0092 039a | | Action Push_String_Extended,0x39a ; "R1000" 0095 01df | | Execute Vector,Equal 0096 7005 |p | Jump_Nonzero 0x9c 0097 00d8 | | Load_Top At_Offset_0 0098 0092 039b | | Action Push_String_Extended,0x39b ; "SPARE" 009a 01df | | Execute Vector,Equal 009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009c 4801 |H | Short_Literal 0x1 009d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a5 | | .CONST 0x00a5 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 00e3 | | Load_Encached Natural_Cache 00a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00a5 BODY_00a0: 00a5 e7ff | | Load 0x3,-0x1 00a6 e008 | | Load 0x0,0x8 00a7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a8 180d | | Execute Package,Field_Execute,Field_Number 0xd 00a9 6803 |h | Jump_Zero 0xad 00aa 00d8 | | Load_Top At_Offset_0 00ab 0a01 | | Execute_Immediate Plus,0x1 00ac c602 | | Store 0x3,0x2 00ad e7ff | | Load 0x3,-0x1 00ae e009 | | Load 0x0,0x9 00af 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 00b0 6806 |h | Jump_Zero 0xb7 00b1 00d8 | | Load_Top At_Offset_0 00b2 e7ff | | Load 0x3,-0x1 00b3 e009 | | Load 0x0,0x9 00b4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00b5 0273 | s | Execute Discrete,Plus 00b6 c602 | | Store 0x3,0x2 00b7 00d8 | | Load_Top At_Offset_0 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 00e3 | | Load_Encached Natural_Cache 00c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c5 BODY_00c0: 00c5 e7ff | | Load 0x3,-0x1 00c6 e008 | | Load 0x0,0x8 00c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00c8 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c9 6803 |h | Jump_Zero 0xcd 00ca 00d8 | | Load_Top At_Offset_0 00cb 0a01 | | Execute_Immediate Plus,0x1 00cc c602 | | Store 0x3,0x2 00cd e7ff | | Load 0x3,-0x1 00ce e009 | | Load 0x0,0x9 00cf 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 00d0 6806 |h | Jump_Zero 0xd7 00d1 00d8 | | Load_Top At_Offset_0 00d2 e7ff | | Load 0x3,-0x1 00d3 e009 | | Load 0x0,0x9 00d4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00d5 0273 | s | Execute Discrete,Plus 00d6 c602 | | Store 0x3,0x2 00d7 00d8 | | Load_Top At_Offset_0 00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d9 0000 0000 | | .BLANK 0000[0x7] 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 e7fe | | Load 0x3,-0x2 00e4 0c01 | | Execute_Immediate Greater_Equal,0x1 00e5 6811 |h | Jump_Zero 0xf7 00e6 e7fe | | Load 0x3,-0x2 00e7 00e4 | | Load_Encached Positive_Cache 00e8 025b | [ | Execute Discrete,Check_In_Type 00e9 e7ff | | Load 0x3,-0x1 00ea e009 | | Load 0x0,0x9 00eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00ec 6807 |h | Jump_Zero 0xf4 00ed e7fe | | Load 0x3,-0x2 00ee 00e4 | | Load_Encached Positive_Cache 00ef 025b | [ | Execute Discrete,Check_In_Type 00f0 e7ff | | Load 0x3,-0x1 00f1 e009 | | Load 0x0,0x9 00f2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f4 e003 | | Load 0x0,0x3 00f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f7 e7ff | | Load 0x3,-0x1 00f8 e008 | | Load 0x0,0x8 00f9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00fa 180d | | Execute Package,Field_Execute,Field_Number 0xd 00fb 6805 |h | Jump_Zero 0x101 00fc e7ff | | Load 0x3,-0x1 00fd e008 | | Load 0x0,0x8 00fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ff 180e | | Execute Package,Field_Execute,Field_Number 0xe 0100 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0101 e003 | | Load 0x0,0x3 0102 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0103 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e7fe | | Load 0x3,-0x2 010c 0c01 | | Execute_Immediate Greater_Equal,0x1 010d 6811 |h | Jump_Zero 0x11f 010e e7fe | | Load 0x3,-0x2 010f 00e4 | | Load_Encached Positive_Cache 0110 025b | [ | Execute Discrete,Check_In_Type 0111 e7ff | | Load 0x3,-0x1 0112 e009 | | Load 0x0,0x9 0113 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0114 6807 |h | Jump_Zero 0x11c 0115 e7fe | | Load 0x3,-0x2 0116 00e4 | | Load_Encached Positive_Cache 0117 025b | [ | Execute Discrete,Check_In_Type 0118 e7ff | | Load 0x3,-0x1 0119 e009 | | Load 0x0,0x9 011a 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 011b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011c e003 | | Load 0x0,0x3 011d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011f e7ff | | Load 0x3,-0x1 0120 e008 | | Load 0x0,0x8 0121 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0122 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0123 6805 |h | Jump_Zero 0x129 0124 e7ff | | Load 0x3,-0x1 0125 e008 | | Load 0x0,0x8 0126 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0127 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0128 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0129 e003 | | Load 0x0,0x3 012a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 012b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0141 | A | .CONST 0x0141 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0004 | | .CONST 0x0004 ; Number of locals 0133 INIT_0130: 0133 e7ff | | Load 0x3,-0x1 0134 0092 039c | | Action Push_String_Extended,0x39c ; ".<@>" 0136 01cc | | Execute Vector,Catenate 0137 0007 | | Action Break_Optional 0138 e003 | | Load 0x0,0x3 0139 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 013a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 013b 02c7 | | Declare_Variable Any 013c 00d8 | | Load_Top At_Offset_0 013d 1c00 | | Execute_Immediate Run_Utility,0x0 013e e003 | | Load 0x0,0x3 013f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0140 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0141 BODY_0130: 0141 e003 | | Load 0x0,0x3 0142 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0143 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0144 e603 | | Load 0x3,0x3 0145 601e |` | Indirect_Literal Discrete,0x164,{0x00000000, 0x00004000} 0146 e00a | | Load 0x0,0xa 0147 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0148 e00b | | Load 0x0,0xb 0149 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014a e00c | | Load 0x0,0xc 014b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014c 4801 |H | Short_Literal 0x1 014d 4800 |H | Short_Literal 0x0 014e e00b | | Load 0x0,0xb 014f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0150 e003 | | Load 0x0,0x3 0151 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0152 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0153 e602 | | Load 0x3,0x2 0154 e003 | | Load 0x0,0x3 0155 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0156 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0157 c603 | | Store 0x3,0x3 0158 c604 | | Store 0x3,0x4 0159 00d8 | | Load_Top At_Offset_0 015a 8404 | | Call 0x2,0x4 015b 6807 |h | Jump_Zero 0x163 015c e5fd | | Load 0x2,-0x3 015d 0092 039d | | Action Push_String_Extended,0x39d ; "<DIRECTORIES>" 015f 4805 |H | Short_Literal 0x5 0160 e602 | | Load 0x3,0x2 0161 e00d | | Load 0x0,0xd 0162 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0164 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e7ff | | Load 0x3,-0x1 016c e003 | | Load 0x0,0x3 016d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016e 700a |p | Jump_Nonzero 0x179 016f e5fd | | Load 0x2,-0x3 0170 0092 039d | | Action Push_String_Extended,0x39d ; "<DIRECTORIES>" 0172 4801 |H | Short_Literal 0x1 0173 e7ff | | Load 0x3,-0x1 0174 e003 | | Load 0x0,0x3 0175 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0176 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0177 e00d | | Load 0x0,0xd 0178 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0179 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0194 | | .CONST 0x0194 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 0185 BODY_0180: 0185 e7fd | | Load 0x3,-0x3 0186 8407 | | Call 0x2,0x7 0187 680b |h | Jump_Zero 0x193 0188 00cf | | Action Mark_Auxiliary 0189 e7fe | | Load 0x3,-0x2 018a 8408 | | Call 0x2,0x8 018b 0aff | | Execute_Immediate Plus,-0x1 018c 4800 |H | Short_Literal 0x0 018d 0263 | c | Execute Discrete,Above_Bound 018e 7003 |p | Jump_Nonzero 0x192 018f 8602 | | Call 0x3,0x2 0190 00c8 | | Action Pop_Auxiliary_Range 0191 3ffd |? | Loop_Increasing 0x18f 0192 00ce | | Action Pop_Auxiliary 0193 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0194 TRAP_0180: 0194 0007 | | Action Break_Optional 0195 0092 039e | | Action Push_String_Extended,0x39e ; "Unhandled exception destroying code segment for " 0197 e7ff | | Load 0x3,-0x1 0198 01cc | | Execute Vector,Catenate 0199 8405 | | Call 0x2,0x5 019a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a5 | | .CONST 0x01a5 ; Address of begin 01a1 01b4 | | .CONST 0x01b4 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 01a5 BODY_01a0: 01a5 e7fd | | Load 0x3,-0x3 01a6 8407 | | Call 0x2,0x7 01a7 680b |h | Jump_Zero 0x1b3 01a8 00cf | | Action Mark_Auxiliary 01a9 e7fe | | Load 0x3,-0x2 01aa 8409 | | Call 0x2,0x9 01ab 0aff | | Execute_Immediate Plus,-0x1 01ac 4800 |H | Short_Literal 0x0 01ad 0263 | c | Execute Discrete,Above_Bound 01ae 7003 |p | Jump_Nonzero 0x1b2 01af 8602 | | Call 0x3,0x2 01b0 00c8 | | Action Pop_Auxiliary_Range 01b1 3ffd |? | Loop_Increasing 0x1af 01b2 00ce | | Action Pop_Auxiliary 01b3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01b4 TRAP_01a0: 01b4 0007 | | Action Break_Optional 01b5 0092 039f | | Action Push_String_Extended,0x39f ; "Unhandled exception destroying elab code segment for " 01b7 e7ff | | Load 0x3,-0x1 01b8 01cc | | Execute Vector,Catenate 01b9 8405 | | Call 0x2,0x5 01ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 01ed | | .CONST 0x01ed ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e003 | | Load 0x0,0x3 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 BODY_01c0: 01c5 e7fd | | Load 0x3,-0x3 01c6 8407 | | Call 0x2,0x7 01c7 680a |h | Jump_Zero 0x1d2 01c8 e003 | | Load 0x0,0x3 01c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ca 6029 |`) | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 01cb e00a | | Load 0x0,0xa 01cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01cd e7fe | | Load 0x3,-0x2 01ce e00e | | Load 0x0,0xe 01cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d0 c602 | | Store 0x3,0x2 01d1 7809 |x | Jump 0x1db 01d2 e003 | | Load 0x0,0x3 01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d4 601f |` | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 01d5 e00a | | Load 0x0,0xa 01d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d7 e7fe | | Load 0x3,-0x2 01d8 e402 | | Load 0x2,0x2 01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01da c602 | | Store 0x3,0x2 01db 00d8 | | Load_Top At_Offset_0 01dc 8403 | | Call 0x2,0x3 01dd 700e |p | Jump_Nonzero 0x1ec 01de 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "Bad status destroying cg attribute space for unit " 01e0 e7ff | | Load 0x3,-0x1 01e1 01cc | | Execute Vector,Catenate 01e2 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ": " 01e4 01cc | | Execute Vector,Catenate 01e5 e602 | | Load 0x3,0x2 01e6 e003 | | Load 0x0,0x3 01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e8 025e | ^ | Execute Discrete,Convert 01e9 1c01 | | Execute_Immediate Run_Utility,0x1 01ea 01cc | | Execute Vector,Catenate 01eb 8406 | | Call 0x2,0x6 01ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ed TRAP_01c0: 01ed 0007 | | Action Break_Optional 01ee 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "Unhandled exception destroying attribute space for " 01f0 e7ff | | Load 0x3,-0x1 01f1 01cc | | Execute Vector,Catenate 01f2 8405 | | Call 0x2,0x5 01f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fd | | .CONST 0x01fd ; Address of begin 01f9 0219 | | .CONST 0x0219 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e003 | | Load 0x0,0x3 01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fd BODY_01f8: 01fd e003 | | Load 0x0,0x3 01fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ff 67f4 |g | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00004000} 0200 e00a | | Load 0x0,0xa 0201 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0202 e7fd | | Load 0x3,-0x3 0203 e7fe | | Load 0x3,-0x2 0204 e00f | | Load 0x0,0xf 0205 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0206 c602 | | Store 0x3,0x2 0207 00d8 | | Load_Top At_Offset_0 0208 8403 | | Call 0x2,0x3 0209 700e |p | Jump_Nonzero 0x218 020a 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "Could not set unit state for " 020c e7ff | | Load 0x3,-0x1 020d 01cc | | Execute Vector,Catenate 020e 0092 03a4 | | Action Push_String_Extended,0x3a4 ; " to installed: " 0210 01cc | | Execute Vector,Catenate 0211 e602 | | Load 0x3,0x2 0212 e003 | | Load 0x0,0x3 0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0214 025e | ^ | Execute Discrete,Convert 0215 1c01 | | Execute_Immediate Run_Utility,0x1 0216 01cc | | Execute Vector,Catenate 0217 8405 | | Call 0x2,0x5 0218 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0219 TRAP_01f8: 0219 0007 | | Action Break_Optional 021a 0092 03a5 | | Action Push_String_Extended,0x3a5 ; "Unhandled exception setting unit state for unit " 021c e7ff | | Load 0x3,-0x1 021d 01cc | | Execute Vector,Catenate 021e 8405 | | Call 0x2,0x5 021f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0241 | A | .CONST 0x0241 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 000a | | .CONST 0x000a ; Number of locals 0223 INIT_0220: 0223 00ec | | Load_Encached Diana_Tree_Cache 0224 02c7 | | Declare_Variable Any 0225 00d8 | | Load_Top At_Offset_0 0226 1c00 | | Execute_Immediate Run_Utility,0x0 0227 00ec | | Load_Encached Diana_Tree_Cache 0228 02c7 | | Declare_Variable Any 0229 00d8 | | Load_Top At_Offset_0 022a 1c00 | | Execute_Immediate Run_Utility,0x0 022b e003 | | Load 0x0,0x3 022c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 022d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 022e 02c7 | | Declare_Variable Any 022f 00d8 | | Load_Top At_Offset_0 0230 1c00 | | Execute_Immediate Run_Utility,0x0 0231 e003 | | Load 0x0,0x3 0232 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0233 0322 | " | Declare_Variable Record 0234 00d8 | | Load_Top At_Offset_0 0235 1c00 | | Execute_Immediate Run_Utility,0x0 0236 e003 | | Load 0x0,0x3 0237 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0238 e003 | | Load 0x0,0x3 0239 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 023a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023b 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 023d 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 023f 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 0241 BODY_0220: 0241 8608 | | Call 0x3,0x8 0242 8609 | | Call 0x3,0x9 0243 860a | | Call 0x3,0xa 0244 e602 | | Load 0x3,0x2 0245 4976 |Iv | Short_Literal 0x176 0246 00eb | | Load_Encached Diana_Cache 0247 0098 | | Execute Package,Field_Read_Dynamic 0248 180f | | Execute Package,Field_Execute,Field_Number 0xf 0249 c603 | | Store 0x3,0x3 024a e607 | | Load 0x3,0x7 024b 0c04 | | Execute_Immediate Greater_Equal,0x4 024c 6812 |h | Jump_Zero 0x25f 024d e7ff | | Load 0x3,-0x1 024e 840c | | Call 0x2,0xc 024f e605 | | Load 0x3,0x5 0250 e603 | | Load 0x3,0x3 0251 e7ff | | Load 0x3,-0x1 0252 840e | | Call 0x2,0xe 0253 e605 | | Load 0x3,0x5 0254 e603 | | Load 0x3,0x3 0255 e7ff | | Load 0x3,-0x1 0256 840f | | Call 0x2,0xf 0257 e605 | | Load 0x3,0x5 0258 e603 | | Load 0x3,0x3 0259 e7ff | | Load 0x3,-0x1 025a 8410 | | Call 0x2,0x10 025b 4803 |H | Short_Literal 0x3 025c e603 | | Load 0x3,0x3 025d e7ff | | Load 0x3,-0x1 025e 8411 | | Call 0x2,0x11 025f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 026c | l | .CONST 0x026c ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0003 | | .CONST 0x0003 ; Number of locals 0263 INIT_0260: 0263 e003 | | Load 0x0,0x3 0264 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0265 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0266 02c7 | | Declare_Variable Any 0267 00d8 | | Load_Top At_Offset_0 0268 1c00 | | Execute_Immediate Run_Utility,0x0 0269 e003 | | Load 0x0,0x3 026a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 026c BODY_0260: 026c e003 | | Load 0x0,0x3 026d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 026f e602 | | Load 0x3,0x2 0270 6057 |`W | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00004000} 0271 e00a | | Load 0x0,0xa 0272 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0273 e00b | | Load 0x0,0xb 0274 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0275 e00c | | Load 0x0,0xc 0276 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0277 4801 |H | Short_Literal 0x1 0278 4800 |H | Short_Literal 0x0 0279 e00b | | Load 0x0,0xb 027a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 027b e003 | | Load 0x0,0x3 027c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 027d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 027e e5ff | | Load 0x2,-0x1 027f e003 | | Load 0x0,0x3 0280 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0281 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0282 c602 | | Store 0x3,0x2 0283 c603 | | Store 0x3,0x3 0284 00d8 | | Load_Top At_Offset_0 0285 8404 | | Call 0x2,0x4 0286 701e |p | Jump_Nonzero 0x2a5 0287 0092 03a6 | | Action Push_String_Extended,0x3a6 ; "Can't resolve \x22" 0289 e5ff | | Load 0x2,-0x1 028a 01cc | | Execute Vector,Catenate 028b 0092 03a7 | | Action Push_String_Extended,0x3a7 ; "\x22 because " 028d 01cc | | Execute Vector,Catenate 028e 6039 |`9 | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00004000} 028f e00a | | Load 0x0,0xa 0290 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0291 e00b | | Load 0x0,0xb 0292 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0293 e00c | | Load 0x0,0xc 0294 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0295 4801 |H | Short_Literal 0x1 0296 4800 |H | Short_Literal 0x0 0297 e00b | | Load 0x0,0xb 0298 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0299 e003 | | Load 0x0,0x3 029a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 029b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 029c e5ff | | Load 0x2,-0x1 029d e603 | | Load 0x3,0x3 029e e003 | | Load 0x0,0x3 029f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a0 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 02a1 01cc | | Execute Vector,Catenate 02a2 8406 | | Call 0x2,0x6 02a3 00cc | | Action Pop_Block 02a4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02a5 00cf | | Action Mark_Auxiliary 02a6 780b |x | Jump 0x2b2 02a7 e602 | | Load 0x3,0x2 02a8 e003 | | Load 0x0,0x3 02a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02aa 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02ab 8412 | | Call 0x2,0x12 02ac e602 | | Load 0x3,0x2 02ad e003 | | Load 0x0,0x3 02ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02af 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02b0 c602 | | Store 0x3,0x2 02b1 00c9 | | Action Pop_Auxiliary_Loop 02b2 e602 | | Load 0x3,0x2 02b3 e003 | | Load 0x0,0x3 02b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02b6 6ff0 |o | Jump_Zero 0x2a7 02b7 00ce | | Action Pop_Auxiliary 02b8 e5fe | | Load 0x2,-0x2 02b9 680c |h | Jump_Zero 0x2c6 02ba e5fd | | Load 0x2,-0x3 02bb 00ea | | Load_Encached Null_String_Cache 02bc 4801 |H | Short_Literal 0x1 02bd 4800 |H | Short_Literal 0x0 02be 485b |H[ | Short_Literal 0x5b 02bf e5ff | | Load 0x2,-0x1 02c0 01ca | | Execute Vector,Prepend 02c1 0092 03a8 | | Action Push_String_Extended,0x3a8 ; "]$$" 02c3 01cc | | Execute Vector,Catenate 02c4 e010 | | Load 0x0,0x10 02c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c7 0000 | | .XXX[0x1] 02c8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02cc 0000 0000 | | .BLANK 0000[0x4] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 02d8 | | .CONST 0x02d8 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 e605 | | Load 0x3,0x5 02d4 e7fe | | Load 0x3,-0x2 02d5 840a | | Call 0x2,0xa 02d6 840d | | Call 0x2,0xd 02d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d8 TRAP_02d0: 02d8 0007 | | Action Break_Optional 02d9 0092 03a9 | | Action Push_String_Extended,0x3a9 ; "Could not destroy code segment for " 02db e7ff | | Load 0x3,-0x1 02dc 01cc | | Execute Vector,Catenate 02dd 8405 | | Call 0x2,0x5 02de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02df 0000 | | .XXX[0x1] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 02e8 | | .CONST 0x02e8 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e605 | | Load 0x3,0x5 02e4 e7fe | | Load 0x3,-0x2 02e5 840b | | Call 0x2,0xb 02e6 840d | | Call 0x2,0xd 02e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e8 TRAP_02e0: 02e8 0007 | | Action Break_Optional 02e9 0092 03aa | | Action Push_String_Extended,0x3aa ; "Could not destroy elab code segment for " 02eb e7ff | | Load 0x3,-0x1 02ec 01cc | | Execute Vector,Catenate 02ed 8405 | | Call 0x2,0x5 02ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ef 0000 | | .XXX[0x1] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 032c | , | .CONST 0x032c ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 e003 | | Load 0x0,0x3 02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f5 e604 | | Load 0x3,0x4 02f6 0120 | | Execute Any,Is_Value 02f7 6804 |h | Jump_Zero 0x2fc 02f8 e003 | | Load 0x0,0x3 02f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02fa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02fb 7801 |x | Jump 0x2fd 02fc e604 | | Load 0x3,0x4 02fd e602 | | Load 0x3,0x2 02fe 0120 | | Execute Any,Is_Value 02ff 6804 |h | Jump_Zero 0x304 0300 e003 | | Load 0x0,0x3 0301 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0302 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0303 7801 |x | Jump 0x305 0304 e602 | | Load 0x3,0x2 0305 602e |`. | Indirect_Literal Discrete,0x334,{0x00000000, 0x00004000} 0306 4801 |H | Short_Literal 0x1 0307 4800 |H | Short_Literal 0x0 0308 4800 |H | Short_Literal 0x0 0309 e00b | | Load 0x0,0xb 030a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 030b e003 | | Load 0x0,0x3 030c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 030d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 030e e00a | | Load 0x0,0xa 030f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0310 4800 |H | Short_Literal 0x0 0311 e7ff | | Load 0x3,-0x1 0312 e003 | | Load 0x0,0x3 0313 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0314 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0315 c602 | | Store 0x3,0x2 0316 c604 | | Store 0x3,0x4 0317 c606 | | Store 0x3,0x6 0318 e606 | | Load 0x3,0x6 0319 8403 | | Call 0x2,0x3 031a 7010 |p | Jump_Nonzero 0x32b 031b 0092 03ab | | Action Push_String_Extended,0x3ab ; "Bad status opening unit " 031d e7ff | | Load 0x3,-0x1 031e 01cc | | Execute Vector,Catenate 031f 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ": " 0321 01cc | | Execute Vector,Catenate 0322 e606 | | Load 0x3,0x6 0323 e003 | | Load 0x0,0x3 0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0325 025e | ^ | Execute Discrete,Convert 0326 1c01 | | Execute_Immediate Run_Utility,0x1 0327 01cc | | Execute Vector,Catenate 0328 8406 | | Call 0x2,0x6 0329 00cc | | Action Pop_Block 032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 032b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 032c TRAP_02f0: 032c 0007 | | Action Break_Optional 032d 0092 03ac | | Action Push_String_Extended,0x3ac ; "Unhandled exception opening ada unit " 032f e7ff | | Load 0x3,-0x1 0330 01cc | | Execute Vector,Catenate 0331 8405 | | Call 0x2,0x5 0332 00cc | | Action Pop_Block 0333 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0334 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 035d | ] | .CONST 0x035d ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b e003 | | Load 0x0,0x3 033c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033d e003 | | Load 0x0,0x3 033e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 033f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0340 67f3 |g | Indirect_Literal Discrete,0x334,{0x00000000, 0x00004000} 0341 e00a | | Load 0x0,0xa 0342 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0343 e602 | | Load 0x3,0x2 0344 e003 | | Load 0x0,0x3 0345 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0346 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0347 c607 | | Store 0x3,0x7 0348 c606 | | Store 0x3,0x6 0349 e606 | | Load 0x3,0x6 034a 8403 | | Call 0x2,0x3 034b 7010 |p | Jump_Nonzero 0x35c 034c 0092 03ad | | Action Push_String_Extended,0x3ad ; "Bad status getting unit state for unit " 034e e7ff | | Load 0x3,-0x1 034f 01cc | | Execute Vector,Catenate 0350 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ": " 0352 01cc | | Execute Vector,Catenate 0353 e606 | | Load 0x3,0x6 0354 e003 | | Load 0x0,0x3 0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0356 025e | ^ | Execute Discrete,Convert 0357 1c01 | | Execute_Immediate Run_Utility,0x1 0358 01cc | | Execute Vector,Catenate 0359 8406 | | Call 0x2,0x6 035a 00cc | | Action Pop_Block 035b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 035d TRAP_0338: 035d 0007 | | Action Break_Optional 035e 0092 03ae | | Action Push_String_Extended,0x3ae ; "Unhandled exception getting unit state for unit " 0360 e7ff | | Load 0x3,-0x1 0361 01cc | | Execute Vector,Catenate 0362 8405 | | Call 0x2,0x5 0363 00cc | | Action Pop_Block 0364 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0365 0000 0000 | | .XXX[0x3] 0367 0000 | | 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 038b | | .CONST 0x038b ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b e003 | | Load 0x0,0x3 036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036d e605 | | Load 0x3,0x5 036e 6025 |`% | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000} 036f e00a | | Load 0x0,0xa 0370 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0371 e602 | | Load 0x3,0x2 0372 e003 | | Load 0x0,0x3 0373 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0374 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0375 00d1 | | Pop_Control Pop_Count_1 0376 c606 | | Store 0x3,0x6 0377 e606 | | Load 0x3,0x6 0378 8403 | | Call 0x2,0x3 0379 7010 |p | Jump_Nonzero 0x38a 037a 0092 03af | | Action Push_String_Extended,0x3af ; "Bad status getting target key for unit " 037c e7ff | | Load 0x3,-0x1 037d 01cc | | Execute Vector,Catenate 037e 0092 03a1 | | Action Push_String_Extended,0x3a1 ; ": " 0380 01cc | | Execute Vector,Catenate 0381 e606 | | Load 0x3,0x6 0382 e003 | | Load 0x0,0x3 0383 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0384 025e | ^ | Execute Discrete,Convert 0385 1c01 | | Execute_Immediate Run_Utility,0x1 0386 01cc | | Execute Vector,Catenate 0387 8406 | | Call 0x2,0x6 0388 00cc | | Action Pop_Block 0389 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 038b TRAP_0368: 038b 0007 | | Action Break_Optional 038c 0092 03b0 | | Action Push_String_Extended,0x3b0 ; "Unhandled exception getting target key for unit " 038e e7ff | | Load 0x3,-0x1 038f 01cc | | Execute Vector,Catenate 0390 8405 | | Call 0x2,0x5 0391 00cc | | Action Pop_Block 0392 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0393 0000 | | .XXX[0x1] 0394 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0398 ; -------------------------------------------------------------------------------------- 0398 ; STRING TABLE 0398 ; -------------------------------------------------------------------------------------- 0398 0034 | 4 | .STRTAB 0x0034->0x03b2 ; "MIDDLE-PASS" 0399 003d | = | .STRTAB 0x003d->0x03b7 ; "Privileged mode is required to run this command" 039a 006a | j | .STRTAB 0x006a->0x03cf ; "R1000" 039b 006d | m | .STRTAB 0x006d->0x03d1 ; "SPARE" 039c 0070 | p | .STRTAB 0x0070->0x03d4 ; ".<@>" 039d 0072 | r | .STRTAB 0x0072->0x03d6 ; "<DIRECTORIES>" 039e 007d | } | .STRTAB 0x007d->0x03dc ; "Unhandled exception destroying code segment for " 039f 00ab | | .STRTAB 0x00ab->0x03f4 ; "Unhandled exception destroying elab code segment for " 03a0 00de | | .STRTAB 0x00de->0x040f ; "Bad status destroying cg attribute space for unit " 03a1 010e | | .STRTAB 0x010e->0x0428 ; ": " 03a2 010e | | .STRTAB 0x010e->0x0429 ; "Unhandled exception destroying attribute space for " 03a3 013f | ? | .STRTAB 0x013f->0x0442 ; "Could not set unit state for " 03a4 015a | Z | .STRTAB 0x015a->0x0451 ; " to installed: " 03a5 0167 | g | .STRTAB 0x0167->0x0458 ; "Unhandled exception setting unit state for unit " 03a6 0195 | | .STRTAB 0x0195->0x0470 ; "Can't resolve \x22" 03a7 01a2 | | .STRTAB 0x01a2->0x0478 ; "\x22 because " 03a8 01aa | | .STRTAB 0x01aa->0x047d ; "]$$" 03a9 01ab | | .STRTAB 0x01ab->0x047e ; "Could not destroy code segment for " 03aa 01cc | | .STRTAB 0x01cc->0x0490 ; "Could not destroy elab code segment for " 03ab 01f2 | | .STRTAB 0x01f2->0x04a4 ; "Bad status opening unit " 03ac 0208 | | .STRTAB 0x0208->0x04b0 ; "Unhandled exception opening ada unit " 03ad 022b | + | .STRTAB 0x022b->0x04c2 ; "Bad status getting unit state for unit " 03ae 0250 | P | .STRTAB 0x0250->0x04d6 ; "Unhandled exception getting unit state for unit " 03af 027e | ~ | .STRTAB 0x027e->0x04ee ; "Bad status getting target key for unit " 03b0 02a3 | | .STRTAB 0x02a3->0x0501 ; "Unhandled exception getting target key for unit " 03b1 02d1 | | .STREND 0x02d1->0x0519 03b2 4d49 4444 |MIDD| .STRTAB_STRINGS 051a 0000 0000 | | .BLANK 0000[0x6] 0520 ; -------------------------------------------------------------------------------------- 0520 ; Debug Table 0520 ; -------------------------------------------------------------------------------------- 0520 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb78,0x0000,0x0001,0x0000 0526 0000 0000 | | .BLANK 0000[0x14] 053a 0004 00a0 | | .XXX[0xc] 053c 0000 0000 | | 053e 0000 0800 | | 0540 0000 4400 | D | 0542 0000 0020 | | 0544 0000 0140 | @| 0546 0000 0000 | | .BLANK 0000[0x2e] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]