|
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_ccb0b3
└─⟦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 009a 5800 | X | .XXX[0x38]
0528 0000 0009 | |
052a 9ed0 0268 | h|
052c 7200 0000 |r |
052e 2284 6009 |" ` |
0530 9ed0 0000 | |
0532 0000 6000 | ` |
0534 00b7 0500 | |
0536 0000 0000 | |
0538 04cb 8800 | |
053a 0c00 0000 | |
053c 004c b8a1 | L |
053e 1200 0992 | |
0540 7000 0000 |p |
0542 0099 d2ce | |
0544 c5c0 1324 | $|
0546 e000 0000 | |
0548 0070 0001 | p |
054a 1c7a 864a | z J|
054c 0026 3740 | &7@|
054e 0000 0002 | |
0550 6466 0002 |df |
0552 6a80 0000 |j |
0554 0000 0001 | |
0556 0001 3580 | 5 |
0558 0000 0000 | |
055a 0000 0002 | |
055c 0001 3600 | 6 |
055e 0000 0000 | | .BLANK 0000[0x6]
0564 0001 3660 | 6`| .XXX[0x23]
0566 0000 265c | &\|
0568 4000 0004 |@ |
056a ec5c 0131 | \ 1|
056c ba00 0000 | |
056e 0008 0000 | |
0570 1919 7802 | x |
0572 7d18 0097 |} |
0574 e8c1 8f40 | @|
0576 1403 c000 | |
0578 0000 0137 | 7|
057a ed00 4e4c | NL|
057c 8000 0000 | |
057e 0004 6084 | ` |
0580 0137 4900 | 7I |
0582 4e37 0017 |N7 |
0584 0000 1393 | |
0586 2000 | |
0587 0000 0000 | | .BLANK 0000[0x4]
058b 0009 bf68 | h| .XXX[0x4b]
058d 00f8 0800 | |
058f e000 0000 | |
0591 0000 344c | 4L|
0593 e06f 4009 | o@ |
0595 ba48 0000 | H |
0597 0000 9e14 | |
0599 0027 c2a0 | ' |
059b 0000 0234 | 4|
059d fc00 9e14 | |
059f 0000 0000 | |
05a1 09da 9002 | |
05a3 7762 0000 |wb |
05a5 0022 8460 | " `|
05a7 09da 9000 | |
05a9 0000 0060 | `|
05ab 0000 b705 | |
05ad 0000 0000 | |
05af 0004 e968 | h|
05b1 000c 0000 | |
05b3 0000 4e96 | N |
05b5 a112 0009 | |
05b7 ce30 0000 | 0 |
05b9 0000 9d8e | |
05bb cec5 c013 | |
05bd 9c60 0000 | ` |
05bf 0000 7000 | p |
05c1 011c 7a86 | z |
05c3 4a00 2726 |J '&|
05c5 4000 0000 |@ |
05c7 0273 5600 | sV |
05c9 0279 7000 | yp |
05cb 0000 0000 | |
05cd 0100 013c | <|
05cf f800 0000 | |
05d1 0000 0000 | |
05d3 0200 013d | =|
05d5 7800 |x |
05d6 0000 0000 | | .BLANK 0000[0x6]
05dc 013d d800 | = | .XXX[0x24]
05de 0027 4b40 | 'K@|
05e0 0000 04ec | |
05e2 5c01 3932 |\ 92|
05e4 0000 0000 | |
05e6 0401 000b | |
05e8 c7a8 027d | }|
05ea 8200 9ba4 | |
05ec 8000 0008 | |
05ee 2200 0280 |" |
05f0 7800 0000 |x |
05f2 0027 ecc0 | ' |
05f4 09fe e800 | |
05f6 0276 2e00 | v. |
05f8 9f6e 0000 | n |
05fa 0000 1b80 | |
05fc 0000 0004 | |
05fe 224c 013e |"L >|