|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0268 | h | .CONST 0x0268 ; 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 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 0029 | ) | .CONST 0x0029 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 001d 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 001f 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0021 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0023 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0025 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0027 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0029 BODY_0018: 0029 e001 | | Load 0x0,0x1 002a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 002b 7004 |p | Jump_Nonzero 0x30 002c 0092 01bc | | Action Push_String_Extended,0x1bc ; "Privileged mode is required to run this command" 002e 8405 | | Call 0x2,0x5 002f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0030 8408 | | Call 0x2,0x8 0031 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e7ff | | Load 0x3,-0x1 003c 0f00 | | Execute_Immediate Equal,0x0 003d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003e 0000 0000 | | .XXX[0x2] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 e7ff | | Load 0x3,-0x1 0044 0f00 | | Execute_Immediate Equal,0x0 0045 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b e5fd | | Load 0x2,-0x3 004c e002 | | Load 0x0,0x2 004d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 004e 4807 |H | Short_Literal 0x7 004f e7ff | | Load 0x3,-0x1 0050 e003 | | Load 0x0,0x3 0051 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0053 0000 0000 | | .BLANK 0000[0x5] 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 e5fd | | Load 0x2,-0x3 005c e002 | | Load 0x0,0x2 005d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 005e 4805 |H | Short_Literal 0x5 005f e7ff | | Load 0x3,-0x1 0060 e003 | | Load 0x0,0x3 0061 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0063 0000 0000 | | .BLANK 0000[0x5] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006d | m | .CONST 0x006d ; Address of begin 0069 0089 | | .CONST 0x0089 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e004 | | Load 0x0,0x4 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d BODY_0068: 006d e004 | | Load 0x0,0x4 006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006f 6020 |` | Indirect_Literal Discrete,0x90,{0x00000000, 0x00004000} 0070 e005 | | Load 0x0,0x5 0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0072 e7fd | | Load 0x3,-0x3 0073 e7fe | | Load 0x3,-0x2 0074 e006 | | Load 0x0,0x6 0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0076 c602 | | Store 0x3,0x2 0077 00d8 | | Load_Top At_Offset_0 0078 8402 | | Call 0x2,0x2 0079 700e |p | Jump_Nonzero 0x88 007a 0092 01bd | | Action Push_String_Extended,0x1bd ; "Could not set unit state for " 007c e7ff | | Load 0x3,-0x1 007d 01cc | | Execute Vector,Catenate 007e 0092 01be | | Action Push_String_Extended,0x1be ; " to source: " 0080 01cc | | Execute Vector,Catenate 0081 e602 | | Load 0x3,0x2 0082 e004 | | Load 0x0,0x4 0083 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0084 025e | ^ | Execute Discrete,Convert 0085 1c01 | | Execute_Immediate Run_Utility,0x1 0086 01cc | | Execute Vector,Catenate 0087 8404 | | Call 0x2,0x4 0088 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0089 TRAP_0068: 0089 0007 | | Action Break_Optional 008a 0092 01bf | | Action Push_String_Extended,0x1bf ; "Unhandled exception setting unit state for unit " 008c e7ff | | Load 0x3,-0x1 008d 01cc | | Execute Vector,Catenate 008e 8404 | | Call 0x2,0x4 008f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0090 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00b2 | | .CONST 0x00b2 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0008 | | .CONST 0x0008 ; Number of locals 009b INIT_0098: 009b 00ec | | Load_Encached Diana_Tree_Cache 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f 00ec | | Load_Encached Diana_Tree_Cache 00a0 02c7 | | Declare_Variable Any 00a1 00d8 | | Load_Top At_Offset_0 00a2 1c00 | | Execute_Immediate Run_Utility,0x0 00a3 e004 | | Load 0x0,0x4 00a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00a6 02c7 | | Declare_Variable Any 00a7 00d8 | | Load_Top At_Offset_0 00a8 1c00 | | Execute_Immediate Run_Utility,0x0 00a9 e004 | | Load 0x0,0x4 00aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ab e004 | | Load 0x0,0x4 00ac 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ae 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 00b0 029f 018b | | Declare_Subprogram INIT_0188,For_Call 00b2 BODY_0098: 00b2 8607 | | Call 0x3,0x7 00b3 8608 | | Call 0x3,0x8 00b4 e602 | | Load 0x3,0x2 00b5 4976 |Iv | Short_Literal 0x176 00b6 00eb | | Load_Encached Diana_Cache 00b7 0098 | | Execute Package,Field_Read_Dynamic 00b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b9 c603 | | Store 0x3,0x3 00ba e606 | | Load 0x3,0x6 00bb 0c04 | | Execute_Immediate Greater_Equal,0x4 00bc 6804 |h | Jump_Zero 0xc1 00bd e5fd | | Load 0x2,-0x3 00be 4800 |H | Short_Literal 0x0 00bf e7ff | | Load 0x3,-0x1 00c0 8007 | | Call 0x0,0x7 00c1 e606 | | Load 0x3,0x6 00c2 0c03 | | Execute_Immediate Greater_Equal,0x3 00c3 6804 |h | Jump_Zero 0xc8 00c4 4802 |H | Short_Literal 0x2 00c5 e603 | | Load 0x3,0x3 00c6 e7ff | | Load 0x3,-0x1 00c7 8406 | | Call 0x2,0x6 00c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00dc | | .CONST 0x00dc ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 e004 | | Load 0x0,0x4 00d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00d6 02c7 | | Declare_Variable Any 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 e004 | | Load 0x0,0x4 00da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00dc BODY_00d0: 00dc e004 | | Load 0x0,0x4 00dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00de 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00df e602 | | Load 0x3,0x2 00e0 6057 |`W | Indirect_Literal Discrete,0x138,{0x00000000, 0x00004000} 00e1 e005 | | Load 0x0,0x5 00e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e3 e008 | | Load 0x0,0x8 00e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e5 e009 | | Load 0x0,0x9 00e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e7 4801 |H | Short_Literal 0x1 00e8 4800 |H | Short_Literal 0x0 00e9 e008 | | Load 0x0,0x8 00ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00eb e004 | | Load 0x0,0x4 00ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ee e5ff | | Load 0x2,-0x1 00ef e004 | | Load 0x0,0x4 00f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f2 c602 | | Store 0x3,0x2 00f3 c603 | | Store 0x3,0x3 00f4 00d8 | | Load_Top At_Offset_0 00f5 8403 | | Call 0x2,0x3 00f6 701e |p | Jump_Nonzero 0x115 00f7 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "Can't resolve \x22" 00f9 e5ff | | Load 0x2,-0x1 00fa 01cc | | Execute Vector,Catenate 00fb 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "\x22 because " 00fd 01cc | | Execute Vector,Catenate 00fe 6039 |`9 | Indirect_Literal Discrete,0x138,{0x00000000, 0x00004000} 00ff e005 | | Load 0x0,0x5 0100 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0101 e008 | | Load 0x0,0x8 0102 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0103 e009 | | Load 0x0,0x9 0104 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0105 4801 |H | Short_Literal 0x1 0106 4800 |H | Short_Literal 0x0 0107 e008 | | Load 0x0,0x8 0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0109 e004 | | Load 0x0,0x4 010a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 010b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 010c e5ff | | Load 0x2,-0x1 010d e603 | | Load 0x3,0x3 010e e004 | | Load 0x0,0x4 010f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0110 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0111 01cc | | Execute Vector,Catenate 0112 8405 | | Call 0x2,0x5 0113 00cc | | Action Pop_Block 0114 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0115 00cf | | Action Mark_Auxiliary 0116 780b |x | Jump 0x122 0117 e602 | | Load 0x3,0x2 0118 e004 | | Load 0x0,0x4 0119 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 011b 8407 | | Call 0x2,0x7 011c e602 | | Load 0x3,0x2 011d e004 | | Load 0x0,0x4 011e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0120 c602 | | Store 0x3,0x2 0121 00c9 | | Action Pop_Auxiliary_Loop 0122 e602 | | Load 0x3,0x2 0123 e004 | | Load 0x0,0x4 0124 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0125 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0126 6ff0 |o | Jump_Zero 0x117 0127 00ce | | Action Pop_Auxiliary 0128 e5fe | | Load 0x2,-0x2 0129 680c |h | Jump_Zero 0x136 012a e5fd | | Load 0x2,-0x3 012b 00ea | | Load_Encached Null_String_Cache 012c 4801 |H | Short_Literal 0x1 012d 4800 |H | Short_Literal 0x0 012e 485b |H[ | Short_Literal 0x5b 012f e5ff | | Load 0x2,-0x1 0130 01ca | | Execute Vector,Prepend 0131 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "]$$" 0133 01cc | | Execute Vector,Catenate 0134 e00a | | Load 0x0,0xa 0135 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 017c | | | .CONST 0x017c ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 e004 | | Load 0x0,0x4 0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0145 e604 | | Load 0x3,0x4 0146 0120 | | Execute Any,Is_Value 0147 6804 |h | Jump_Zero 0x14c 0148 e004 | | Load 0x0,0x4 0149 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 014a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 014b 7801 |x | Jump 0x14d 014c e604 | | Load 0x3,0x4 014d e602 | | Load 0x3,0x2 014e 0120 | | Execute Any,Is_Value 014f 6804 |h | Jump_Zero 0x154 0150 e004 | | Load 0x0,0x4 0151 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0152 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0153 7801 |x | Jump 0x155 0154 e602 | | Load 0x3,0x2 0155 67e2 |g | Indirect_Literal Discrete,0x138,{0x00000000, 0x00004000} 0156 4801 |H | Short_Literal 0x1 0157 4800 |H | Short_Literal 0x0 0158 4800 |H | Short_Literal 0x0 0159 e008 | | Load 0x0,0x8 015a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015b e004 | | Load 0x0,0x4 015c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 015e e005 | | Load 0x0,0x5 015f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0160 4800 |H | Short_Literal 0x0 0161 e7ff | | Load 0x3,-0x1 0162 e004 | | Load 0x0,0x4 0163 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0164 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0165 c602 | | Store 0x3,0x2 0166 c604 | | Store 0x3,0x4 0167 c605 | | Store 0x3,0x5 0168 e605 | | Load 0x3,0x5 0169 8402 | | Call 0x2,0x2 016a 7010 |p | Jump_Nonzero 0x17b 016b 0092 01c3 | | Action Push_String_Extended,0x1c3 ; "Bad status opening unit " 016d e7ff | | Load 0x3,-0x1 016e 01cc | | Execute Vector,Catenate 016f 0092 01c4 | | Action Push_String_Extended,0x1c4 ; ": " 0171 01cc | | Execute Vector,Catenate 0172 e605 | | Load 0x3,0x5 0173 e004 | | Load 0x0,0x4 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 025e | ^ | Execute Discrete,Convert 0176 1c01 | | Execute_Immediate Run_Utility,0x1 0177 01cc | | Execute Vector,Catenate 0178 8405 | | Call 0x2,0x5 0179 00cc | | Action Pop_Block 017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017c TRAP_0140: 017c 0007 | | Action Break_Optional 017d 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "Unhandled exception opening ada unit " 017f e7ff | | Load 0x3,-0x1 0180 01cc | | Execute Vector,Catenate 0181 8404 | | Call 0x2,0x4 0182 00cc | | Action Pop_Block 0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 01ad | | .CONST 0x01ad ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e004 | | Load 0x0,0x4 018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018d e004 | | Load 0x0,0x4 018e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 018f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0190 6027 |`' | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00004000} 0191 e005 | | Load 0x0,0x5 0192 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0193 e602 | | Load 0x3,0x2 0194 e004 | | Load 0x0,0x4 0195 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0196 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0197 c606 | | Store 0x3,0x6 0198 c605 | | Store 0x3,0x5 0199 e605 | | Load 0x3,0x5 019a 8402 | | Call 0x2,0x2 019b 7010 |p | Jump_Nonzero 0x1ac 019c 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "Bad status getting unit state for unit " 019e e7ff | | Load 0x3,-0x1 019f 01cc | | Execute Vector,Catenate 01a0 0092 01c4 | | Action Push_String_Extended,0x1c4 ; ": " 01a2 01cc | | Execute Vector,Catenate 01a3 e605 | | Load 0x3,0x5 01a4 e004 | | Load 0x0,0x4 01a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a6 025e | ^ | Execute Discrete,Convert 01a7 1c01 | | Execute_Immediate Run_Utility,0x1 01a8 01cc | | Execute Vector,Catenate 01a9 8405 | | Call 0x2,0x5 01aa 00cc | | Action Pop_Block 01ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ad TRAP_0188: 01ad 0007 | | Action Break_Optional 01ae 0092 01c7 | | Action Push_String_Extended,0x1c7 ; "Unhandled exception getting unit state for unit " 01b0 e7ff | | Load 0x3,-0x1 01b1 01cc | | Execute Vector,Catenate 01b2 8404 | | Call 0x2,0x4 01b3 00cc | | Action Pop_Block 01b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01bc ; -------------------------------------------------------------------------------------- 01bc ; STRING TABLE 01bc ; -------------------------------------------------------------------------------------- 01bc 001a | | .STRTAB 0x001a->0x01c9 ; "Privileged mode is required to run this command" 01bd 0047 | G | .STRTAB 0x0047->0x01e0 ; "Could not set unit state for " 01be 0062 | b | .STRTAB 0x0062->0x01ef ; " to source: " 01bf 006c | l | .STRTAB 0x006c->0x01f5 ; "Unhandled exception setting unit state for unit " 01c0 009a | | .STRTAB 0x009a->0x020d ; "Can't resolve \x22" 01c1 00a7 | | .STRTAB 0x00a7->0x0214 ; "\x22 because " 01c2 00af | | .STRTAB 0x00af->0x0219 ; "]$$" 01c3 00b0 | | .STRTAB 0x00b0->0x021b ; "Bad status opening unit " 01c4 00c6 | | .STRTAB 0x00c6->0x0227 ; ": " 01c5 00c6 | | .STRTAB 0x00c6->0x0228 ; "Unhandled exception opening ada unit " 01c6 00e9 | | .STRTAB 0x00e9->0x023a ; "Bad status getting unit state for unit " 01c7 010e | | .STRTAB 0x010e->0x024e ; "Unhandled exception getting unit state for unit " 01c8 013c | < | .STREND 0x013c->0x0266 01c9 5072 6976 |Priv| .STRTAB_STRINGS 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug Table 0268 ; -------------------------------------------------------------------------------------- 0268 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb79,0x0000,0x0001,0x0000 026e 0d2e 840d | . | .XXX[0xf7] 0270 2dc4 0e8d |- | 0272 0ca4 0d8d | | 0274 2c4e 4c2e |,NL.| 0276 4f24 0e6e |O$ n| 0278 8e4e ac6e | N n| 027a 8eae 4ca4 | L | 027c 0ead cc8c | | 027e ae44 0d2e | D .| 0280 8e64 0e0e | d | 0282 4dee 0cae |M | 0284 440d cc2d |D -| 0286 aca5 c404 | | 0288 0a8d 0ca0 | | 028a 0000 0660 | `| 028c 0000 0864 | d| 028e 040c adce | | 0290 8e4f 240c | O$ | 0292 cdee 440d | D | 0294 2e84 0d2d |. -| 0296 c40e 8d0c | | 0298 a40d 8d2c | ,| 029a 4e4c 2e4f |NL.O| 029c 240e 6e8e |$ n | 029e 4eac 6e8e |N n | 02a0 ae4c a40e | L | 02a2 adcc 8cae | | 02a4 440d 2e8e |D . | 02a6 640e 0e4d |d M| 02a8 ee0c ae44 | D| 02aa 0dcc 2dac | - | 02ac a5c4 040a | | 02ae 8d0c a000 | | 02b0 0006 6000 | ` | 02b2 0008 6404 | d | 02b4 0cad ce8e | | 02b6 4f24 0ccd |O$ | 02b8 ee44 0d2e | D .| 02ba 840d 2dc4 | - | 02bc 0e8d 0ca4 | | 02be 0d8d 2c4e | ,N| 02c0 4c2e 4f24 |L.O$| 02c2 0e6e 8e4e | n N| 02c4 ac6e 8eae | n | 02c6 4ca4 0ead |L | 02c8 cc8c ae44 | D| 02ca 0d2e 8e64 | . d| 02cc 0e0e 4dee | M | 02ce 0cae 440d | D | 02d0 cc2d aca5 | - | 02d2 c404 0a8d | | 02d4 0ca0 0000 | | 02d6 0f20 0000 | | 02d8 076e ee4d | n M| 02da 2e8c a40d |. | 02dc 8dec 6d64 | md| 02de 0ded c40e | | 02e0 8d0c a40e | | 02e2 adcd 2e84 | . | 02e4 0d2e 640e | .d | 02e6 4cad 8cac |L | 02e8 2e6c ac84 |.l | 02ea 050e 8d0c | | 02ec a40e adcd | | 02ee 2e84 0d2e |. .| 02f0 640e 4cac |d L | 02f2 2c84 0ded |, | 02f4 cd8f 2525 | %%| 02f6 c000 000e | | 02f8 e000 0007 | | 02fa a404 0eee | | 02fc 4d2e 8ca4 |M. | 02fe 0d8d ec6d | m| 0300 640d edc4 |d | 0302 0e8d 0ca4 | | 0304 0ead cd2e | .| 0306 840d 2e64 | .d| 0308 0e4c ad8c | L | 030a ac2e 6cac | .l | 030c 8405 0e8d | | 030e 0ca4 0ead | | 0310 cd2e 840d | . | 0312 2e64 0e4c |.d L| 0314 ac2c 840d | , | 0316 edcd 8f25 | %| 0318 25c0 0000 |% | 031a 0ee0 0000 | | 031c 07a4 040e | | 031e ee4d 2e8c | M. | 0320 a40d 8dec | | 0322 6d64 0ded |md | 0324 c40e 8d0c | | 0326 a40e adcd | | 0328 2e84 0d2e |. .| 032a 640e 4cad |d L | 032c 8cac 2e6c | .l| 032e ac84 050e | | 0330 8d0c a40e | | 0332 adcd 2e84 | . | 0334 0d2e 640e | .d | 0336 4cac 2c84 |L , | 0338 0ded cd8f | | 033a 2525 c000 |%% | 033c 0006 e000 | | 033e 0003 880d | | 0340 cdec 8ca4 | | 0342 0428 6ded | (m | 0344 adac 2dcc | - | 0346 8e65 c82c | e ,| 0348 8c25 caed | % | 034a 2e8d 0c8e |. | 034c 4c2e e000 |L. | 034e 0007 0000 | | 0350 0000 8dcd | | 0352 ec8c a000 | | 0354 0007 a000 | | 0356 0002 c428 | (| 0358 6ded adac |m | 035a 2dcc 8e65 |- e| 035c c82c 8c25 | , %| 035e caed 2e8d | . | 0360 0c8e 4c2e | L.| 0362 e000 0000 | | 0364 2000 | | 0365 0000 0000 | | .BLANK 0000[0x4] 0369 000a 8000 | | .XXX[0x5e] 036b 0000 0000 | | 036d 000a 6000 | ` | 036f 000a e000 | | 0371 0006 0e0e | | 0373 4dec 6cac |M l | 0375 8eae 4ca4 | L | 0377 0aed 2e8d | . | 0379 0c8e 4c2e | L.| 037b e405 09cc | | 037d 2dac a407 |- | 037f 440a 6e8e |D n | 0381 4d2d cce4 |M- | 0383 0747 a404 | G | 0385 4789 29a8 |G ) | 0387 28e8 a7c4 |( | 0389 4527 6000 |E'` | 038b 000a a000 | | 038d 0006 4404 | D | 038f 0e0e 4dec | M | 0391 6cac 8eae |l | 0393 4ca4 0aed |L | 0395 2e8d 0c8e |. | 0397 4c2e e405 |L. | 0399 09cc 2dac | - | 039b a407 440a | D | 039d 6e8e 4d2d |n M-| 039f cce4 0747 | G| 03a1 a404 4789 | G | 03a3 29a8 28e8 |) ( | 03a5 a7c4 4527 | E'| 03a7 6000 000a |` | 03a9 a000 0006 | | 03ab 4404 0e0e |D | 03ad 4dec 6cac |M l | 03af 8eae 4ca4 | L | 03b1 0aed 2e8d | . | 03b3 0c8e 4c2e | L.| 03b5 e405 09cc | | 03b7 2dac a407 |- | 03b9 440a 6e8e |D n | 03bb 4d2d cce4 |M- | 03bd 0747 a404 | G | 03bf 4789 29a8 |G ) | 03c1 28e8 a7c4 |( | 03c3 4527 6000 |E'` | 03c5 0000 2000 | | 03c7 0000 0000 | | .BLANK 0000[0x4] 03cb 0001 | | .XXX[0x1] 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 e000 0001 | | .XXX[0x30] 03d2 6000 0008 |` | 03d4 2aed 2e8d |* . | 03d6 0c8e 4c2e | L.| 03d8 ee64 0e8d | d | 03da 0ca4 0e6e | n| 03dc 8eac 4405 | D | 03de 0d8d 2c4e | ,N| 03e0 4c2e 4f24 |L.O$| 03e2 0cad ce8e | | 03e4 4f24 0ccd |O$ | 03e6 ee45 240d | E$ | 03e8 ecc4 0e8d | | 03ea 0ca4 0dcc | | 03ec 2dac ac84 |- | 03ee 082c 8c24 | , $| 03f0 0ead cd2e | .| 03f2 8584 0e8d | | 03f4 0ca0 0000 | | 03f6 0120 0000 | | 03f8 0864 040a | d | 03fa ed2e 8d0c | . | 03fc 8e4c 2eee | L. | 03fe 640e 8d0c |d |