|
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
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 04d8 | | .CONST 0x04d8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0059 | Y | .CONST 0x0059 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache
000c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000d 00e1 | | Load_Encached Boolean_Cache
000e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000f 00e1 | | Load_Encached Boolean_Cache
0010 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0011 00e1 | | Load_Encached Boolean_Cache
0012 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0013 00e3 | | Load_Encached Natural_Cache
0014 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0015 00e3 | | Load_Encached Natural_Cache
0016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0017 00e3 | | Load_Encached Natural_Cache
0018 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0019 00e3 | | Load_Encached Natural_Cache
001a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001b 00e3 | | Load_Encached Natural_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d e00e | | Load 0x0,0xe
001e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0020 02c7 | | Declare_Variable Any
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 00e1 | | Load_Encached Boolean_Cache
0024 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0025 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0027 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0029 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
002b 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
002d 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
002f 4809 |H | Short_Literal 0x9
0030 e001 | | Load 0x0,0x1
0031 01d7 | | Execute Vector,Field_Read
0032 0a07 | | Execute_Immediate Plus,0x7
0033 e001 | | Load 0x0,0x1
0034 01d7 | | Execute Vector,Field_Read
0035 02ab | | Declare_Subprogram For_Call,With_Address
0036 4809 |H | Short_Literal 0x9
0037 e001 | | Load 0x0,0x1
0038 01d7 | | Execute Vector,Field_Read
0039 0a01 | | Execute_Immediate Plus,0x1
003a e001 | | Load 0x0,0x1
003b 01d7 | | Execute Vector,Field_Read
003c 02ab | | Declare_Subprogram For_Call,With_Address
003d 4809 |H | Short_Literal 0x9
003e e001 | | Load 0x0,0x1
003f 01d7 | | Execute Vector,Field_Read
0040 0a03 | | Execute_Immediate Plus,0x3
0041 e001 | | Load 0x0,0x1
0042 01d7 | | Execute Vector,Field_Read
0043 02ab | | Declare_Subprogram For_Call,With_Address
0044 4809 |H | Short_Literal 0x9
0045 e001 | | Load 0x0,0x1
0046 01d7 | | Execute Vector,Field_Read
0047 0a05 | | Execute_Immediate Plus,0x5
0048 e001 | | Load 0x0,0x1
0049 01d7 | | Execute Vector,Field_Read
004a 02ab | | Declare_Subprogram For_Call,With_Address
004b 029f 011b | | Declare_Subprogram INIT_0118,For_Call
004d 029f 018b | | Declare_Subprogram INIT_0188,For_Call
004f 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0051 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0053 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
0055 029f 029b | | Declare_Subprogram INIT_0298,For_Call
0057 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0059 BODY_0008:
0059 4801 |H | Short_Literal 0x1
005a a5fb | | Store_Unchecked 0x2,-0x5
005b e5fc | | Load 0x2,-0x4
005c e5ff | | Load 0x2,-0x1
005d 0092 0360 | `| Action Push_String_Extended,0x360 ; "Verifying subsystem <1>"
005f e21e | | Load 0x1,0x1e
0060 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0061 e5fe | | Load 0x2,-0x2
0062 6801 |h | Jump_Zero 0x64
0063 841a | | Call 0x2,0x1a
0064 e5fd | | Load 0x2,-0x3
0065 6801 |h | Jump_Zero 0x67
0066 841c | | Call 0x2,0x1c
0067 8411 | | Call 0x2,0x11
0068 e406 | | Load 0x2,0x6
0069 0c01 | | Execute_Immediate Greater_Equal,0x1
006a 7009 |p | Jump_Nonzero 0x74
006b e408 | | Load 0x2,0x8
006c 0c01 | | Execute_Immediate Greater_Equal,0x1
006d 7006 |p | Jump_Nonzero 0x74
006e e409 | | Load 0x2,0x9
006f 0c01 | | Execute_Immediate Greater_Equal,0x1
0070 7003 |p | Jump_Nonzero 0x74
0071 e40a | | Load 0x2,0xa
0072 0c01 | | Execute_Immediate Greater_Equal,0x1
0073 680b |h | Jump_Zero 0x7f
0074 e5fc | | Load 0x2,-0x4
0075 e5ff | | Load 0x2,-0x1
0076 0092 0361 | a| Action Push_String_Extended,0x361 ; "Subsystem <1> is corrupt"
0078 e21e | | Load 0x1,0x1e
0079 181d | | Execute Package,Field_Execute,Field_Number 0x1d
007a e5fc | | Load 0x2,-0x4
007b e5ff | | Load 0x2,-0x1
007c e21e | | Load 0x1,0x1e
007d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
007e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
007f e407 | | Load 0x2,0x7
0080 0c01 | | Execute_Immediate Greater_Equal,0x1
0081 6807 |h | Jump_Zero 0x89
0082 e5fc | | Load 0x2,-0x4
0083 e5ff | | Load 0x2,-0x1
0084 0092 0361 | a| Action Push_String_Extended,0x361 ; "Subsystem <1> is corrupt"
0086 e21e | | Load 0x1,0x1e
0087 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0088 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0089 e5fc | | Load 0x2,-0x4
008a e5ff | | Load 0x2,-0x1
008b 0092 0362 | b| Action Push_String_Extended,0x362 ; "Subsystem <1> is ok"
008d e21e | | Load 0x1,0x1e
008e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
008f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e5fc | | Load 0x2,-0x4
0094 00db | | Load_Top At_Offset_3
0095 e21e | | Load 0x1,0x1e
0096 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0097 e406 | | Load 0x2,0x6
0098 0a01 | | Execute_Immediate Plus,0x1
0099 c406 | | Store 0x2,0x6
009a 4800 |H | Short_Literal 0x0
009b a5fb | | Store_Unchecked 0x2,-0x5
009c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e5fc | | Load 0x2,-0x4
00a4 e7fe | | Load 0x3,-0x2
00a5 e7ff | | Load 0x3,-0x1
00a6 e21e | | Load 0x1,0x1e
00a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a8 e406 | | Load 0x2,0x6
00a9 0a01 | | Execute_Immediate Plus,0x1
00aa c406 | | Store 0x2,0x6
00ab 4800 |H | Short_Literal 0x0
00ac a5fb | | Store_Unchecked 0x2,-0x5
00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 0c01 | | Execute_Immediate Greater_Equal,0x1
00b5 6805 |h | Jump_Zero 0xbb
00b6 e5fc | | Load 0x2,-0x4
00b7 e7fe | | Load 0x3,-0x2
00b8 e7ff | | Load 0x3,-0x1
00b9 e21e | | Load 0x1,0x1e
00ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c9 | | .CONST 0x00c9 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e00e | | Load 0x0,0xe
00c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 02c7 | | Declare_Variable Any
00c7 00d8 | | Load_Top At_Offset_0
00c8 1c00 | | Execute_Immediate Run_Utility,0x0
00c9 BODY_00c0:
00c9 e40c | | Load 0x2,0xc
00ca 7024 |p$ | Jump_Nonzero 0xef
00cb 00d8 | | Load_Top At_Offset_0
00cc 0120 | | Execute Any,Is_Value
00cd 6804 |h | Jump_Zero 0xd2
00ce e00e | | Load 0x0,0xe
00cf 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d1 7801 |x | Jump 0xd3
00d2 00d8 | | Load_Top At_Offset_0
00d3 e40b | | Load 0x2,0xb
00d4 4800 |H | Short_Literal 0x0
00d5 4800 |H | Short_Literal 0x0
00d6 e00b | | Load 0x0,0xb
00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d8 e5ff | | Load 0x2,-0x1
00d9 e00e | | Load 0x0,0xe
00da 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dc c40b | | Store 0x2,0xb
00dd c602 | | Store 0x3,0x2
00de 00d8 | | Load_Top At_Offset_0
00df e00e | | Load 0x0,0xe
00e0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e2 0b00 | | Execute_Immediate Case_Compare,0x0
00e3 7008 |p | Jump_Nonzero 0xec
00e4 0f01 | | Execute_Immediate Equal,0x1
00e5 7009 |p | Jump_Nonzero 0xef
00e6 00d8 | | Load_Top At_Offset_0
00e7 e00e | | Load 0x0,0xe
00e8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ea 840d | | Call 0x2,0xd
00eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ec 00d1 | | Pop_Control Pop_Count_1
00ed 4801 |H | Short_Literal 0x1
00ee a40c | | Store_Unchecked 0x2,0xc
00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f9 | | .CONST 0x00f9 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e00e | | Load 0x0,0xe
00f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f6 02c7 | | Declare_Variable Any
00f7 00d8 | | Load_Top At_Offset_0
00f8 1c00 | | Execute_Immediate Run_Utility,0x0
00f9 BODY_00f0:
00f9 e40c | | Load 0x2,0xc
00fa 681a |h | Jump_Zero 0x115
00fb 00d8 | | Load_Top At_Offset_0
00fc 0120 | | Execute Any,Is_Value
00fd 6804 |h | Jump_Zero 0x102
00fe e00e | | Load 0x0,0xe
00ff 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0100 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0101 7801 |x | Jump 0x103
0102 00d8 | | Load_Top At_Offset_0
0103 e40b | | Load 0x2,0xb
0104 e00e | | Load 0x0,0xe
0105 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0106 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0107 c40b | | Store 0x2,0xb
0108 c602 | | Store 0x3,0x2
0109 00d8 | | Load_Top At_Offset_0
010a e00e | | Load 0x0,0xe
010b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
010c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010d 7005 |p | Jump_Nonzero 0x113
010e 00d8 | | Load_Top At_Offset_0
010f e00e | | Load 0x0,0xe
0110 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0111 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0112 840d | | Call 0x2,0xd
0113 4800 |H | Short_Literal 0x0
0114 a40c | | Store_Unchecked 0x2,0xc
0115 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012e | . | .CONST 0x012e ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0005 | | .CONST 0x0005 ; Number of locals
011b INIT_0118:
011b e003 | | Load 0x0,0x3
011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011d 02c7 | | Declare_Variable Any
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 e003 | | Load 0x0,0x3
0121 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0122 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0123 02c7 | | Declare_Variable Any
0124 00d8 | | Load_Top At_Offset_0
0125 1c00 | | Execute_Immediate Run_Utility,0x0
0126 e003 | | Load 0x0,0x3
0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0128 e00e | | Load 0x0,0xe
0129 1b14 | | Execute Package,Field_Read,Field_Number 0x14
012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012b 02c7 | | Declare_Variable Any
012c 00d8 | | Load_Top At_Offset_0
012d 1c00 | | Execute_Immediate Run_Utility,0x0
012e BODY_0118:
012e 00d8 | | Load_Top At_Offset_0
012f 0120 | | Execute Any,Is_Value
0130 6804 |h | Jump_Zero 0x135
0131 e00e | | Load 0x0,0xe
0132 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0133 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0134 7801 |x | Jump 0x136
0135 00d8 | | Load_Top At_Offset_0
0136 00db | | Load_Top At_Offset_3
0137 0120 | | Execute Any,Is_Value
0138 6804 |h | Jump_Zero 0x13d
0139 e003 | | Load 0x0,0x3
013a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
013c 7801 |x | Jump 0x13e
013d 00db | | Load_Top At_Offset_3
013e e00b | | Load 0x0,0xb
013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0140 e5ff | | Load 0x2,-0x1
0141 e00e | | Load 0x0,0xe
0142 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0143 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0144 c603 | | Store 0x3,0x3
0145 c605 | | Store 0x3,0x5
0146 00d8 | | Load_Top At_Offset_0
0147 e00e | | Load 0x0,0xe
0148 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0149 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014a 7006 |p | Jump_Nonzero 0x151
014b 00d8 | | Load_Top At_Offset_0
014c e00e | | Load 0x0,0xe
014d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
014e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
014f 840d | | Call 0x2,0xd
0150 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0151 00cf | | Action Mark_Auxiliary
0152 782c |x, | Jump 0x17f
0153 e003 | | Load 0x0,0x3
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 e602 | | Load 0x3,0x2
0156 0120 | | Execute Any,Is_Value
0157 6803 |h | Jump_Zero 0x15b
0158 e003 | | Load 0x0,0x3
0159 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015a 7801 |x | Jump 0x15c
015b e602 | | Load 0x3,0x2
015c e603 | | Load 0x3,0x3
015d e003 | | Load 0x0,0x3
015e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0160 c602 | | Store 0x3,0x2
0161 005b | [ | Store_Top Discrete,At_Offset_3
0162 00da | | Load_Top At_Offset_2
0163 821b | | Call 0x1,0x1b
0164 7012 |p | Jump_Nonzero 0x177
0165 0092 0363 | c| Action Push_String_Extended,0x363 ; "Could not get declaration map "
0167 e603 | | Load 0x3,0x3
0168 e003 | | Load 0x0,0x3
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
016b 01cc | | Execute Vector,Catenate
016c 0092 0364 | d| Action Push_String_Extended,0x364 ; ": "
016e 01cc | | Execute Vector,Catenate
016f 00db | | Load_Top At_Offset_3
0170 e003 | | Load 0x0,0x3
0171 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0172 011c | | Execute Any,Convert_Unchecked
0173 1c01 | | Execute_Immediate Run_Utility,0x1
0174 01cc | | Execute Vector,Catenate
0175 840d | | Call 0x2,0xd
0176 7802 |x | Jump 0x179
0177 e602 | | Load 0x3,0x2
0178 8413 | | Call 0x2,0x13
0179 00db | | Load_Top At_Offset_3
017a e003 | | Load 0x0,0x3
017b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
017d c603 | | Store 0x3,0x3
017e 00c9 | | Action Pop_Auxiliary_Loop
017f 00db | | Load_Top At_Offset_3
0180 e003 | | Load 0x0,0x3
0181 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0182 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0183 6fcf |o | Jump_Zero 0x153
0184 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 019e | | .CONST 0x019e ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0005 | | .CONST 0x0005 ; Number of locals
018b INIT_0188:
018b e003 | | Load 0x0,0x3
018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018d 02c7 | | Declare_Variable Any
018e 00d8 | | Load_Top At_Offset_0
018f 1c00 | | Execute_Immediate Run_Utility,0x0
0190 e003 | | Load 0x0,0x3
0191 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0192 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0193 02c7 | | Declare_Variable Any
0194 00d8 | | Load_Top At_Offset_0
0195 1c00 | | Execute_Immediate Run_Utility,0x0
0196 e003 | | Load 0x0,0x3
0197 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0198 e00e | | Load 0x0,0xe
0199 1b16 | | Execute Package,Field_Read,Field_Number 0x16
019a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019b 02c7 | | Declare_Variable Any
019c 00d8 | | Load_Top At_Offset_0
019d 1c00 | | Execute_Immediate Run_Utility,0x0
019e BODY_0188:
019e 00d8 | | Load_Top At_Offset_0
019f 0120 | | Execute Any,Is_Value
01a0 6804 |h | Jump_Zero 0x1a5
01a1 e00e | | Load 0x0,0xe
01a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a4 7801 |x | Jump 0x1a6
01a5 00d8 | | Load_Top At_Offset_0
01a6 00db | | Load_Top At_Offset_3
01a7 0120 | | Execute Any,Is_Value
01a8 6804 |h | Jump_Zero 0x1ad
01a9 e003 | | Load 0x0,0x3
01aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ab 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01ac 7801 |x | Jump 0x1ae
01ad 00db | | Load_Top At_Offset_3
01ae e00b | | Load 0x0,0xb
01af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b0 e5ff | | Load 0x2,-0x1
01b1 e00e | | Load 0x0,0xe
01b2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01b3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b4 c603 | | Store 0x3,0x3
01b5 c605 | | Store 0x3,0x5
01b6 00d8 | | Load_Top At_Offset_0
01b7 e00e | | Load 0x0,0xe
01b8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ba 7006 |p | Jump_Nonzero 0x1c1
01bb 00d8 | | Load_Top At_Offset_0
01bc e00e | | Load 0x0,0xe
01bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01be 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01bf 840d | | Call 0x2,0xd
01c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c1 00cf | | Action Mark_Auxiliary
01c2 7829 |x) | Jump 0x1ec
01c3 e003 | | Load 0x0,0x3
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 e602 | | Load 0x3,0x2
01c6 0120 | | Execute Any,Is_Value
01c7 6803 |h | Jump_Zero 0x1cb
01c8 e003 | | Load 0x0,0x3
01c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ca 7801 |x | Jump 0x1cc
01cb e602 | | Load 0x3,0x2
01cc e603 | | Load 0x3,0x3
01cd e003 | | Load 0x0,0x3
01ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01d0 c602 | | Store 0x3,0x2
01d1 005b | [ | Store_Top Discrete,At_Offset_3
01d2 00da | | Load_Top At_Offset_2
01d3 821b | | Call 0x1,0x1b
01d4 700f |p | Jump_Nonzero 0x1e4
01d5 0092 0365 | e| Action Push_String_Extended,0x365 ; "Could not get offset map "
01d7 e603 | | Load 0x3,0x3
01d8 e003 | | Load 0x0,0x3
01d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01db 01cc | | Execute Vector,Catenate
01dc 00db | | Load_Top At_Offset_3
01dd e003 | | Load 0x0,0x3
01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01df 011c | | Execute Any,Convert_Unchecked
01e0 1c01 | | Execute_Immediate Run_Utility,0x1
01e1 01cc | | Execute Vector,Catenate
01e2 840d | | Call 0x2,0xd
01e3 7802 |x | Jump 0x1e6
01e4 e602 | | Load 0x3,0x2
01e5 8414 | | Call 0x2,0x14
01e6 00db | | Load_Top At_Offset_3
01e7 e003 | | Load 0x0,0x3
01e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ea c603 | | Store 0x3,0x3
01eb 00c9 | | Action Pop_Auxiliary_Loop
01ec 00db | | Load_Top At_Offset_3
01ed e003 | | Load 0x0,0x3
01ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f0 6fd2 |o | Jump_Zero 0x1c3
01f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e5fc | | Load 0x2,-0x4
01fc e5ff | | Load 0x2,-0x1
01fd 0092 0366 | f| Action Push_String_Extended,0x366 ; "Corrupt CDB state file for <1>: "
01ff e7ff | | Load 0x3,-0x1
0200 01cc | | Execute Vector,Catenate
0201 e21e | | Load 0x1,0x1e
0202 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0203 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0223 | # | .CONST 0x0223 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0006 | | .CONST 0x0006 ; Number of locals
020b INIT_0208:
020b e00b | | Load 0x0,0xb
020c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020d e5ff | | Load 0x2,-0x1
020e e00e | | Load 0x0,0xe
020f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0210 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0211 e00e | | Load 0x0,0xe
0212 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0214 011e | | Execute Any,Convert
0215 00d8 | | Load_Top At_Offset_0
0216 e00e | | Load 0x0,0xe
0217 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0218 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0219 0f00 | | Execute_Immediate Equal,0x0
021a 0007 | | Action Break_Optional
021b 00d9 | | Load_Top At_Offset_1
021c e00e | | Load 0x0,0xe
021d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
021e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
021f 00e1 | | Load_Encached Boolean_Cache
0220 e00e | | Load 0x0,0xe
0221 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0222 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0223 BODY_0208:
0223 e40c | | Load 0x2,0xc
0224 6830 |h0 | Jump_Zero 0x255
0225 e40b | | Load 0x2,0xb
0226 e00e | | Load 0x0,0xe
0227 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0228 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0229 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
022a 00db | | Load_Top At_Offset_3
022b 00da | | Load_Top At_Offset_2
022c 027e | ~ | Execute Discrete,Not_Equal
022d 680f |h | Jump_Zero 0x23d
022e 0092 0367 | g| Action Push_String_Extended,0x367 ; "Subsystem mode "
0230 e603 | | Load 0x3,0x3
0231 8217 | | Call 0x1,0x17
0232 01cc | | Execute Vector,Catenate
0233 0092 0368 | h| Action Push_String_Extended,0x368 ; " does not match subsystem mode "
0235 01cc | | Execute Vector,Catenate
0236 00da | | Load_Top At_Offset_2
0237 8217 | | Call 0x1,0x17
0238 01cc | | Execute Vector,Catenate
0239 0092 0369 | i| Action Push_String_Extended,0x369 ; " in unit map"
023b 01cc | | Execute Vector,Catenate
023c 8418 | | Call 0x2,0x18
023d e40b | | Load 0x2,0xb
023e e00e | | Load 0x0,0xe
023f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0240 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0241 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0242 00da | | Load_Top At_Offset_2
0243 00d9 | | Load_Top At_Offset_1
0244 027e | ~ | Execute Discrete,Not_Equal
0245 680f |h | Jump_Zero 0x255
0246 0092 036a | j| Action Push_String_Extended,0x36a ; "Subsystem id "
0248 00db | | Load_Top At_Offset_3
0249 8219 | | Call 0x1,0x19
024a 01cc | | Execute Vector,Catenate
024b 0092 036b | k| Action Push_String_Extended,0x36b ; " does not match subsystem id "
024d 01cc | | Execute Vector,Catenate
024e 00d9 | | Load_Top At_Offset_1
024f 8219 | | Call 0x1,0x19
0250 01cc | | Execute Vector,Catenate
0251 0092 0369 | i| Action Push_String_Extended,0x369 ; " in unit map"
0253 01cc | | Execute Vector,Catenate
0254 8418 | | Call 0x2,0x18
0255 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5fc | | Load 0x2,-0x4
025c e5ff | | Load 0x2,-0x1
025d 0092 036c | l| Action Push_String_Extended,0x36c ; "Verifying CDB for <1>"
025f e21e | | Load 0x1,0x1e
0260 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0261 8410 | | Call 0x2,0x10
0262 8412 | | Call 0x2,0x12
0263 8416 | | Call 0x2,0x16
0264 8417 | | Call 0x2,0x17
0265 8419 | | Call 0x2,0x19
0266 e406 | | Load 0x2,0x6
0267 0c01 | | Execute_Immediate Greater_Equal,0x1
0268 6806 |h | Jump_Zero 0x26f
0269 e5fc | | Load 0x2,-0x4
026a e5ff | | Load 0x2,-0x1
026b 0092 036d | m| Action Push_String_Extended,0x36d ; "Errors prevented complete verification of CDB for <1>"
026d e21e | | Load 0x1,0x1e
026e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
026f e408 | | Load 0x2,0x8
0270 0c01 | | Execute_Immediate Greater_Equal,0x1
0271 7006 |p | Jump_Nonzero 0x278
0272 e409 | | Load 0x2,0x9
0273 0c01 | | Execute_Immediate Greater_Equal,0x1
0274 7003 |p | Jump_Nonzero 0x278
0275 e40a | | Load 0x2,0xa
0276 0c01 | | Execute_Immediate Greater_Equal,0x1
0277 6813 |h | Jump_Zero 0x28b
0278 e5fc | | Load 0x2,-0x4
0279 e5ff | | Load 0x2,-0x1
027a 0092 036e | n| Action Push_String_Extended,0x36e ; "CDB for <1> is corrupt"
027c e21e | | Load 0x1,0x1e
027d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
027e 0092 036f | o| Action Push_String_Extended,0x36f ; "Corrupt unit maps"
0280 e408 | | Load 0x2,0x8
0281 840f | | Call 0x2,0xf
0282 0092 0370 | p| Action Push_String_Extended,0x370 ; "Corrupt declaration maps"
0284 e409 | | Load 0x2,0x9
0285 840f | | Call 0x2,0xf
0286 0092 0371 | q| Action Push_String_Extended,0x371 ; "Corrupt offset maps"
0288 e40a | | Load 0x2,0xa
0289 840f | | Call 0x2,0xf
028a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028b e5fc | | Load 0x2,-0x4
028c e5ff | | Load 0x2,-0x1
028d 0092 0372 | r| Action Push_String_Extended,0x372 ; "CDB for <1> is ok"
028f e21e | | Load 0x1,0x1e
0290 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0291 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02b0 | | .CONST 0x02b0 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0007 | | .CONST 0x0007 ; Number of locals
029b INIT_0298:
029b e003 | | Load 0x0,0x3
029c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029d 02c7 | | Declare_Variable Any
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 e003 | | Load 0x0,0x3
02a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02a3 e003 | | Load 0x0,0x3
02a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02a6 02c7 | | Declare_Variable Any
02a7 00d8 | | Load_Top At_Offset_0
02a8 1c00 | | Execute_Immediate Run_Utility,0x0
02a9 e003 | | Load 0x0,0x3
02aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ac e003 | | Load 0x0,0x3
02ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ae 0092 0373 | s| Action Push_String_Extended,0x373 ; "@'C(LOAD_VIEW,SPEC_VIEW,COMB_VIEW).??'SPEC"
02b0 BODY_0298:
02b0 e003 | | Load 0x0,0x3
02b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b2 e003 | | Load 0x0,0x3
02b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02b5 607a |`z | Indirect_Literal Discrete,0x330,{0x00000000, 0x00004000}
02b6 e00b | | Load 0x0,0xb
02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b8 4800 |H | Short_Literal 0x0
02b9 e5ff | | Load 0x2,-0x1
02ba e003 | | Load 0x0,0x3
02bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bd c603 | | Store 0x3,0x3
02be 005a | Z | Store_Top Discrete,At_Offset_2
02bf 00d9 | | Load_Top At_Offset_1
02c0 821b | | Call 0x1,0x1b
02c1 700b |p | Jump_Nonzero 0x2cd
02c2 e5ff | | Load 0x2,-0x1
02c3 0092 0374 | t| Action Push_String_Extended,0x374 ; "Could not get context for <1>: "
02c5 00db | | Load_Top At_Offset_3
02c6 e003 | | Load 0x0,0x3
02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c8 011c | | Execute Any,Convert_Unchecked
02c9 1c01 | | Execute_Immediate Run_Utility,0x1
02ca 01cc | | Execute Vector,Catenate
02cb 840e | | Call 0x2,0xe
02cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02cd e003 | | Load 0x0,0x3
02ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d0 e604 | | Load 0x3,0x4
02d1 605e |`^ | Indirect_Literal Discrete,0x330,{0x00000000, 0x00004000}
02d2 e00b | | Load 0x0,0xb
02d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d4 e00c | | Load 0x0,0xc
02d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d6 e00d | | Load 0x0,0xd
02d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d8 4801 |H | Short_Literal 0x1
02d9 4800 |H | Short_Literal 0x0
02da e603 | | Load 0x3,0x3
02db e607 | | Load 0x3,0x7
02dc e003 | | Load 0x0,0x3
02dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02de 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02df c604 | | Store 0x3,0x4
02e0 005b | [ | Store_Top Discrete,At_Offset_3
02e1 00da | | Load_Top At_Offset_2
02e2 821c | | Call 0x1,0x1c
02e3 7017 |p | Jump_Nonzero 0x2fb
02e4 00da | | Load_Top At_Offset_2
02e5 821d | | Call 0x1,0x1d
02e6 7014 |p | Jump_Nonzero 0x2fb
02e7 0092 0375 | u| Action Push_String_Extended,0x375 ; "Could not get ada units because "
02e9 6046 |`F | Indirect_Literal Discrete,0x330,{0x00000000, 0x00004000}
02ea e00b | | Load 0x0,0xb
02eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ec e00c | | Load 0x0,0xc
02ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02ee e00d | | Load 0x0,0xd
02ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f0 4801 |H | Short_Literal 0x1
02f1 4800 |H | Short_Literal 0x0
02f2 e603 | | Load 0x3,0x3
02f3 e607 | | Load 0x3,0x7
02f4 e605 | | Load 0x3,0x5
02f5 e003 | | Load 0x0,0x3
02f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f7 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02f8 01cc | | Execute Vector,Catenate
02f9 840d | | Call 0x2,0xd
02fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02fb 00cf | | Action Mark_Auxiliary
02fc 782c |x, | Jump 0x329
02fd e003 | | Load 0x0,0x3
02fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ff e602 | | Load 0x3,0x2
0300 0120 | | Execute Any,Is_Value
0301 6803 |h | Jump_Zero 0x305
0302 e003 | | Load 0x0,0x3
0303 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0304 7801 |x | Jump 0x306
0305 e602 | | Load 0x3,0x2
0306 e604 | | Load 0x3,0x4
0307 e003 | | Load 0x0,0x3
0308 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0309 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
030a c602 | | Store 0x3,0x2
030b 005b | [ | Store_Top Discrete,At_Offset_3
030c 00da | | Load_Top At_Offset_2
030d 821b | | Call 0x1,0x1b
030e 7012 |p | Jump_Nonzero 0x321
030f 0092 0376 | v| Action Push_String_Extended,0x376 ; "Could not get ada unit "
0311 e604 | | Load 0x3,0x4
0312 e003 | | Load 0x0,0x3
0313 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0314 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0315 01cc | | Execute Vector,Catenate
0316 0092 0364 | d| Action Push_String_Extended,0x364 ; ": "
0318 01cc | | Execute Vector,Catenate
0319 00db | | Load_Top At_Offset_3
031a e003 | | Load 0x0,0x3
031b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031c 011c | | Execute Any,Convert_Unchecked
031d 1c01 | | Execute_Immediate Run_Utility,0x1
031e 01cc | | Execute Vector,Catenate
031f 840d | | Call 0x2,0xd
0320 7802 |x | Jump 0x323
0321 e602 | | Load 0x3,0x2
0322 8415 | | Call 0x2,0x15
0323 e604 | | Load 0x3,0x4
0324 e003 | | Load 0x0,0x3
0325 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0326 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0327 c604 | | Store 0x3,0x4
0328 00c9 | | Action Pop_Auxiliary_Loop
0329 e604 | | Load 0x3,0x4
032a e003 | | Load 0x0,0x3
032b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
032c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
032d 6fcf |o | Jump_Zero 0x2fd
032e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032f 0000 | | .XXX[0x1]
0330 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e5fc | | Load 0x2,-0x4
033c e5ff | | Load 0x2,-0x1
033d 0092 0377 | w| Action Push_String_Extended,0x377 ; "Verifying ada units for <1>"
033f e21e | | Load 0x1,0x1e
0340 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0341 4800 |H | Short_Literal 0x0
0342 a406 | | Store_Unchecked 0x2,0x6
0343 8410 | | Call 0x2,0x10
0344 841b | | Call 0x2,0x1b
0345 e406 | | Load 0x2,0x6
0346 0c01 | | Execute_Immediate Greater_Equal,0x1
0347 6806 |h | Jump_Zero 0x34e
0348 e5fc | | Load 0x2,-0x4
0349 e5ff | | Load 0x2,-0x1
034a 0092 0378 | x| Action Push_String_Extended,0x378 ; "Errors prevented complete verification of ada units for <1>"
034c e21e | | Load 0x1,0x1e
034d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
034e e407 | | Load 0x2,0x7
034f 0c01 | | Execute_Immediate Greater_Equal,0x1
0350 6808 |h | Jump_Zero 0x359
0351 e5fc | | Load 0x2,-0x4
0352 e5ff | | Load 0x2,-0x1
0353 0092 0379 | y| Action Push_String_Extended,0x379 ; "Corrupt ada units in <1>"
0355 e407 | | Load 0x2,0x7
0356 e21e | | Load 0x1,0x1e
0357 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0358 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0359 e5fc | | Load 0x2,-0x4
035a e5ff | | Load 0x2,-0x1
035b 0092 037a | z| Action Push_String_Extended,0x37a ; "All ada units in <1> are ok"
035d e21e | | Load 0x1,0x1e
035e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
035f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0360 ; --------------------------------------------------------------------------------------
0360 ; STRING TABLE
0360 ; --------------------------------------------------------------------------------------
0360 0038 | 8 | .STRTAB 0x0038->0x037c ; "Verifying subsystem <1>"
0361 004d | M | .STRTAB 0x004d->0x0387 ; "Subsystem <1> is corrupt"
0362 0063 | c | .STRTAB 0x0063->0x0393 ; "Subsystem <1> is ok"
0363 0074 | t | .STRTAB 0x0074->0x039d ; "Could not get declaration map "
0364 0090 | | .STRTAB 0x0090->0x03ac ; ": "
0365 0090 | | .STRTAB 0x0090->0x03ad ; "Could not get offset map "
0366 00a7 | | .STRTAB 0x00a7->0x03b9 ; "Corrupt CDB state file for <1>: "
0367 00c5 | | .STRTAB 0x00c5->0x03c9 ; "Subsystem mode "
0368 00d2 | | .STRTAB 0x00d2->0x03d1 ; " does not match subsystem mode "
0369 00ef | | .STRTAB 0x00ef->0x03e0 ; " in unit map"
036a 00f9 | | .STRTAB 0x00f9->0x03e6 ; "Subsystem id "
036b 0104 | | .STRTAB 0x0104->0x03ed ; " does not match subsystem id "
036c 011f | | .STRTAB 0x011f->0x03fb ; "Verifying CDB for <1>"
036d 0132 | 2 | .STRTAB 0x0132->0x0406 ; "Errors prevented complete verification of CDB for <1>"
036e 0165 | e | .STRTAB 0x0165->0x0420 ; "CDB for <1> is corrupt"
036f 0179 | y | .STRTAB 0x0179->0x042b ; "Corrupt unit maps"
0370 0188 | | .STRTAB 0x0188->0x0434 ; "Corrupt declaration maps"
0371 019e | | .STRTAB 0x019e->0x0440 ; "Corrupt offset maps"
0372 01af | | .STRTAB 0x01af->0x0449 ; "CDB for <1> is ok"
0373 01be | | .STRTAB 0x01be->0x0452 ; "@'C(LOAD_VIEW,SPEC_VIEW,COMB_VIEW).??'SPEC"
0374 01e6 | | .STRTAB 0x01e6->0x0467 ; "Could not get context for <1>: "
0375 0203 | | .STRTAB 0x0203->0x0476 ; "Could not get ada units because "
0376 0221 | ! | .STRTAB 0x0221->0x0486 ; "Could not get ada unit "
0377 0236 | 6 | .STRTAB 0x0236->0x0492 ; "Verifying ada units for <1>"
0378 024f | O | .STRTAB 0x024f->0x049f ; "Errors prevented complete verification of ada units for <1>"
0379 0288 | | .STRTAB 0x0288->0x04bd ; "Corrupt ada units in <1>"
037a 029e | | .STRTAB 0x029e->0x04c9 ; "All ada units in <1> are ok"
037b 02b7 | | .STREND 0x02b7->0x04d6
037c 5665 7269 |Veri| .STRTAB_STRINGS
04d7 0000 | | .XXX[0x1]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug Table
04d8 ; --------------------------------------------------------------------------------------
04d8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc050,0x0000,0x0001,0x0000
04de 0000 0000 | | .BLANK 0000[0x122]