|
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_03b8fe, 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 0000 0000 | | .BLANK 0000[0x192]