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