|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 03f8 | | .CONST 0x03f8 ; 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 00c6 | | .CONST 0x00c6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 481e |H | Short_Literal 0x1e
000d 00e9 | | Load_Encached String_Cache
000e 035c | \ | Declare_Type Array,Constrained,Visible
000f 4810 |H | Short_Literal 0x10
0010 4800 |H | Short_Literal 0x0
0011 60f6 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0000ffff}
0012 00e2 | | Load_Encached Integer_Cache
0013 03fc | | Declare_Type InMicrocode,Discrete
0014 4808 |H | Short_Literal 0x8
0015 4800 |H | Short_Literal 0x0
0016 4801 |H | Short_Literal 0x1
0017 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0019 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
001a 4808 |H | Short_Literal 0x8
001b 4800 |H | Short_Literal 0x0
001c 4801 |H | Short_Literal 0x1
001d 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
001f 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
0020 4800 |H | Short_Literal 0x0
0021 4803 |H | Short_Literal 0x3
0022 00da | | Load_Top At_Offset_2
0023 02a0 | | Declare_Subprogram Null_Subprogram
0024 4801 |H | Short_Literal 0x1
0025 035e | ^ | Declare_Type Array,Defined,Visible
0026 00d9 | | Load_Top At_Offset_1
0027 00db | | Load_Top At_Offset_3
0028 00da | | Load_Top At_Offset_2
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 4803 |H | Short_Literal 0x3
002b 032e | . | Declare_Type Record,Defined,Visible
002c 00da | | Load_Top At_Offset_2
002d 00db | | Load_Top At_Offset_3
002e e210 | | Load 0x1,0x10
002f 00d8 | | Load_Top At_Offset_0
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4804 |H | Short_Literal 0x4
0032 032e | . | Declare_Type Record,Defined,Visible
0033 00db | | Load_Top At_Offset_3
0034 e210 | | Load 0x1,0x10
0035 e20d | | Load 0x1,0xd
0036 02a0 | | Declare_Subprogram Null_Subprogram
0037 4803 |H | Short_Literal 0x3
0038 032e | . | Declare_Type Record,Defined,Visible
0039 e210 | | Load 0x1,0x10
003a 00d9 | | Load_Top At_Offset_1
003b e210 | | Load 0x1,0x10
003c e20e | | Load 0x1,0xe
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 4804 |H | Short_Literal 0x4
003f 032e | . | Declare_Type Record,Defined,Visible
0040 e210 | | Load 0x1,0x10
0041 00d8 | | Load_Top At_Offset_0
0042 e210 | | Load 0x1,0x10
0043 00d8 | | Load_Top At_Offset_0
0044 e210 | | Load 0x1,0x10
0045 00d8 | | Load_Top At_Offset_0
0046 e210 | | Load 0x1,0x10
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4807 |H | Short_Literal 0x7
0049 032e | . | Declare_Type Record,Defined,Visible
004a 4808 |H | Short_Literal 0x8
004b 4800 |H | Short_Literal 0x0
004c 4809 |H | Short_Literal 0x9
004d 029f 013b | ;| Declare_Subprogram For_Call,INIT_0138
004f 03fb | | Declare_Type Discrete,Defined,Visible,With_Size
0050 00d8 | | Load_Top At_Offset_0
0051 0266 | f | Execute Discrete,Bounds
0052 e214 | | Load 0x1,0x14
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 4801 |H | Short_Literal 0x1
0055 035e | ^ | Declare_Type Array,Defined,Visible
0056 e20e | | Load 0x1,0xe
0057 e213 | | Load 0x1,0x13
0058 e215 | | Load 0x1,0x15
0059 e216 | | Load 0x1,0x16
005a e214 | | Load 0x1,0x14
005b e218 | | Load 0x1,0x18
005c e210 | | Load 0x1,0x10
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4807 |H | Short_Literal 0x7
005f 032e | . | Declare_Type Record,Defined,Visible
0060 00d8 | | Load_Top At_Offset_0
0061 012c | , | Execute Any,Size
0062 00e2 | | Load_Encached Integer_Cache
0063 03e8 | | Declare_Variable Discrete,Visible,With_Value,With_Constraint
0064 00d8 | | Load_Top At_Offset_0
0065 09fd | | Execute_Immediate Binary_Scale,-0x3
0066 00e3 | | Load_Encached Natural_Cache
0067 03e8 | | Declare_Variable Discrete,Visible,With_Value,With_Constraint
0068 4800 |H | Short_Literal 0x0
0069 00d9 | | Load_Top At_Offset_1
006a 0aff | | Execute_Immediate Plus,-0x1
006b e001 | | Load 0x0,0x1
006c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006d 035c | \ | Declare_Type Array,Constrained,Visible
006e 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0070 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0072 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0074 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
0076 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
0078 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
007a 029a 02d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d0
007c 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300
007e 029a 035b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0358
0080 029a 0363 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0360
0082 029a 036b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0368
0084 00bf | | Action Accept_Activation
0085 e219 | | Load 0x1,0x19
0086 0322 | " | Declare_Variable Record
0087 e214 | | Load 0x1,0x14
0088 0322 | " | Declare_Variable Record
0089 4800 |H | Short_Literal 0x0
008a 00d9 | | Load_Top At_Offset_1
008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008c 4800 |H | Short_Literal 0x0
008d 00d9 | | Load_Top At_Offset_1
008e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008f e214 | | Load 0x1,0x14
0090 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0091 0337 | 7 | Declare_Variable Array
0092 481e |H | Short_Literal 0x1e
0093 4801 |H | Short_Literal 0x1
0094 4800 |H | Short_Literal 0x0
0095 00d9 | | Load_Top At_Offset_1
0096 e22a | * | Load 0x1,0x2a
0097 01d6 | | Execute Vector,Field_Write
0098 3ffb |? | Loop_Increasing 0x94
0099 e214 | | Load 0x1,0x14
009a 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
009b 0119 | | Execute Any,Check_In_Formal_Type
009c 00d9 | | Load_Top At_Offset_1
009d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
009e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00a1 00c7 | | Action Elaborate_Subprogram
00a2 a002 | | Reference 0x0,0x2
00a3 00c6 | | Action Check_Subprogram_Elaborated
00a4 e219 | | Load 0x1,0x19
00a5 e21c | | Load 0x1,0x1c
00a6 e003 | | Load 0x0,0x3
00a7 e004 | | Load 0x0,0x4
00a8 4800 |H | Short_Literal 0x0
00a9 0007 | | Action Break_Optional
00aa a002 | | Reference 0x0,0x2
00ab 00c6 | | Action Check_Subprogram_Elaborated
00ac e21c | | Load 0x1,0x1c
00ad e219 | | Load 0x1,0x19
00ae e005 | | Load 0x0,0x5
00af e006 | | Load 0x0,0x6
00b0 4800 |H | Short_Literal 0x0
00b1 0007 | | Action Break_Optional
00b2 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b9 00c7 | | Action Elaborate_Subprogram
00ba 029d 037b | {| Declare_Subprogram For_Outer_Call,INIT_0378
00bc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c5 00c7 | | Action Elaborate_Subprogram
00c6 BODY_0008:
00c6 e21c | | Load 0x1,0x1c
00c7 01db | | Execute Vector,Length
00c8 4801 |H | Short_Literal 0x1
00c9 0279 | y | Execute Discrete,And
00ca 6801 |h | Jump_Zero 0xcc
00cb 0887 | | Execute_Immediate Raise,0x87
00cc e21b | | Load 0x1,0x1b
00cd 0903 | | Execute_Immediate Binary_Scale,0x3
00ce e21a | | Load 0x1,0x1a
00cf 027f | | Execute Discrete,Equal
00d0 7001 |p | Jump_Nonzero 0xd2
00d1 0887 | | Execute_Immediate Raise,0x87
00d2 4802 |H | Short_Literal 0x2
00d3 e228 | ( | Load 0x1,0x28
00d4 017c | | | Execute Record,Component_Offset
00d5 4803 |H | Short_Literal 0x3
00d6 e228 | ( | Load 0x1,0x28
00d7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00d8 017c | | | Execute Record,Component_Offset
00d9 0273 | s | Execute Discrete,Plus
00da 480f |H | Short_Literal 0xf
00db 0279 | y | Execute Discrete,And
00dc 6801 |h | Jump_Zero 0xde
00dd 0887 | | Execute_Immediate Raise,0x87
00de 00bc | | Action Signal_Activated
00df 00bb | | Action Signal_Completion
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 4607 |F | Jump_Case 0x7
00e4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00e5 7806 |x | Jump 0xec ; case 0x1
00e6 7809 |x | Jump 0xf0 ; case 0x2
00e7 780d |x | Jump 0xf5 ; case 0x3
00e8 7810 |x | Jump 0xf9 ; case 0x4
00e9 7811 |x | Jump 0xfb ; case 0x5
00ea 7812 |x | Jump 0xfd ; case 0x6
00eb 7815 |x | Jump 0x101 ; case 0x7
00ec 00da | | Load_Top At_Offset_2
00ed 0091 0398 | | Action Push_String_Extended_Indexed,0x398 ; "MB2"
00ef 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f0 00db | | Load_Top At_Offset_3
00f1 00db | | Load_Top At_Offset_3
00f2 00e0 | | Load_Encached Standard_Cache
00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f5 00da | | Load_Top At_Offset_2
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f9 00db | | Load_Top At_Offset_3
00fa 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fb 00db | | Load_Top At_Offset_3
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fd e20f | | Load 0x1,0xf
00fe 00dc | | Load_Top At_Offset_4
00ff 0267 | g | Execute Discrete,Predecessor
0100 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0101 e20f | | Load 0x1,0xf
0102 00dc | | Load_Top At_Offset_4
0103 0268 | h | Execute Discrete,Successor
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 4607 |F | Jump_Case 0x7
0114 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0115 7806 |x | Jump 0x11c ; case 0x1
0116 7809 |x | Jump 0x120 ; case 0x2
0117 780d |x | Jump 0x125 ; case 0x3
0118 7810 |x | Jump 0x129 ; case 0x4
0119 7811 |x | Jump 0x12b ; case 0x5
011a 7812 |x | Jump 0x12d ; case 0x6
011b 7815 |x | Jump 0x131 ; case 0x7
011c 00da | | Load_Top At_Offset_2
011d 0091 039a | | Action Push_String_Extended_Indexed,0x39a ; "FALSE"
011f 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0120 00db | | Load_Top At_Offset_3
0121 00db | | Load_Top At_Offset_3
0122 00e0 | | Load_Encached Standard_Cache
0123 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0124 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0125 00da | | Load_Top At_Offset_2
0126 00e0 | | Load_Encached Standard_Cache
0127 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0128 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0129 00db | | Load_Top At_Offset_3
012a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
012b 00db | | Load_Top At_Offset_3
012c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
012d e210 | | Load 0x1,0x10
012e 00dc | | Load_Top At_Offset_4
012f 0267 | g | Execute Discrete,Predecessor
0130 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0131 e210 | | Load 0x1,0x10
0132 00dc | | Load_Top At_Offset_4
0133 0268 | h | Execute Discrete,Successor
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4607 |F | Jump_Case 0x7
013c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
013d 7806 |x | Jump 0x144 ; case 0x1
013e 7809 |x | Jump 0x148 ; case 0x2
013f 780d |x | Jump 0x14d ; case 0x3
0140 7810 |x | Jump 0x151 ; case 0x4
0141 7811 |x | Jump 0x153 ; case 0x5
0142 7812 |x | Jump 0x155 ; case 0x6
0143 7815 |x | Jump 0x159 ; case 0x7
0144 00da | | Load_Top At_Offset_2
0145 0091 039c | | Action Push_String_Extended_Indexed,0x39c ; "ADA_BASE"
0147 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0148 00db | | Load_Top At_Offset_3
0149 00db | | Load_Top At_Offset_3
014a 00e0 | | Load_Encached Standard_Cache
014b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
014d 00da | | Load_Top At_Offset_2
014e 00e0 | | Load_Encached Standard_Cache
014f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0150 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0151 00db | | Load_Top At_Offset_3
0152 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0153 00db | | Load_Top At_Offset_3
0154 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0155 e217 | | Load 0x1,0x17
0156 00dc | | Load_Top At_Offset_4
0157 0267 | g | Execute Discrete,Predecessor
0158 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0159 e217 | | Load 0x1,0x17
015a 00dc | | Load_Top At_Offset_4
015b 0268 | h | Execute Discrete,Successor
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e229 | ) | Load 0x1,0x29
0164 0320 | | Declare_Variable Record,Duplicate
0165 00cd | | Action Spare6_Action
0166 00ca | | Action Exit_Nullary_Function
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e219 | | Load 0x1,0x19
016c 0322 | " | Declare_Variable Record
016d BODY_0168:
016d 4803 |H | Short_Literal 0x3
016e 00d9 | | Load_Top At_Offset_1
016f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0170 4800 |H | Short_Literal 0x0
0171 00d9 | | Load_Top At_Offset_1
0172 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0173 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0174 4800 |H | Short_Literal 0x0
0175 00d9 | | Load_Top At_Offset_1
0176 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0178 4800 |H | Short_Literal 0x0
0179 00d9 | | Load_Top At_Offset_1
017a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017c 4800 |H | Short_Literal 0x0
017d 00d9 | | Load_Top At_Offset_1
017e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0180 4800 |H | Short_Literal 0x0
0181 00d9 | | Load_Top At_Offset_1
0182 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0183 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0184 821d | | Call 0x1,0x1d
0185 00d9 | | Load_Top At_Offset_1
0186 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0187 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0188 4800 |H | Short_Literal 0x0
0189 00d9 | | Load_Top At_Offset_1
018a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
018b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018c 6083 |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x0000ffff}
018d 00d9 | | Load_Top At_Offset_1
018e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
018f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0190 4801 |H | Short_Literal 0x1
0191 00d9 | | Load_Top At_Offset_1
0192 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0193 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0194 4801 |H | Short_Literal 0x1
0195 00d9 | | Load_Top At_Offset_1
0196 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0197 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0198 4800 |H | Short_Literal 0x0
0199 00d9 | | Load_Top At_Offset_1
019a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
019b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
019c 4800 |H | Short_Literal 0x0
019d 00d9 | | Load_Top At_Offset_1
019e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
019f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01a0 4800 |H | Short_Literal 0x0
01a1 00d9 | | Load_Top At_Offset_1
01a2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01a4 4801 |H | Short_Literal 0x1
01a5 00d9 | | Load_Top At_Offset_1
01a6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01a7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01a8 4801 |H | Short_Literal 0x1
01a9 00d9 | | Load_Top At_Offset_1
01aa 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01ab 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
01ac 4800 |H | Short_Literal 0x0
01ad 00d9 | | Load_Top At_Offset_1
01ae 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b0 4800 |H | Short_Literal 0x0
01b1 00d9 | | Load_Top At_Offset_1
01b2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b4 00d8 | | Load_Top At_Offset_0
01b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b7 4801 |H | Short_Literal 0x1
01b8 4807 |H | Short_Literal 0x7
01b9 00da | | Load_Top At_Offset_2
01ba 035b | [ | Declare_Type Array,Constrained
01bb 00d9 | | Load_Top At_Offset_1
01bc 01cd | | Execute Vector,Slice_Reference
01bd 4801 |H | Short_Literal 0x1
01be 4807 |H | Short_Literal 0x7
01bf 00e9 | | Load_Encached String_Cache
01c0 035b | [ | Declare_Type Array,Constrained
01c1 0337 | 7 | Declare_Variable Array
01c2 4843 |HC | Short_Literal 0x43
01c3 4801 |H | Short_Literal 0x1
01c4 00da | | Load_Top At_Offset_2
01c5 01d6 | | Execute Vector,Field_Write
01c6 4855 |HU | Short_Literal 0x55
01c7 4802 |H | Short_Literal 0x2
01c8 00da | | Load_Top At_Offset_2
01c9 01d6 | | Execute Vector,Field_Write
01ca 4852 |HR | Short_Literal 0x52
01cb 4803 |H | Short_Literal 0x3
01cc 00da | | Load_Top At_Offset_2
01cd 01d6 | | Execute Vector,Field_Write
01ce 4852 |HR | Short_Literal 0x52
01cf 4804 |H | Short_Literal 0x4
01d0 00da | | Load_Top At_Offset_2
01d1 01d6 | | Execute Vector,Field_Write
01d2 4845 |HE | Short_Literal 0x45
01d3 4805 |H | Short_Literal 0x5
01d4 00da | | Load_Top At_Offset_2
01d5 01d6 | | Execute Vector,Field_Write
01d6 484e |HN | Short_Literal 0x4e
01d7 4806 |H | Short_Literal 0x6
01d8 00da | | Load_Top At_Offset_2
01d9 01d6 | | Execute Vector,Field_Write
01da 4854 |HT | Short_Literal 0x54
01db 4807 |H | Short_Literal 0x7
01dc 00da | | Load_Top At_Offset_2
01dd 01d6 | | Execute Vector,Field_Write
01de 00cd | | Action Spare6_Action
01df 4801 |H | Short_Literal 0x1
01e0 4807 |H | Short_Literal 0x7
01e1 00db | | Load_Top At_Offset_3
01e2 01ce | | Execute Vector,Slice_Write
01e3 00d1 | | Pop_Control Pop_Count_1
01e4 00d8 | | Load_Top At_Offset_0
01e5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e7 4808 |H | Short_Literal 0x8
01e8 481e |H | Short_Literal 0x1e
01e9 00da | | Load_Top At_Offset_2
01ea 035b | [ | Declare_Type Array,Constrained
01eb 00d9 | | Load_Top At_Offset_1
01ec 01cd | | Execute Vector,Slice_Reference
01ed 00d8 | | Load_Top At_Offset_0
01ee 0335 | 5 | Declare_Variable Array,Duplicate
01ef 00cd | | Action Spare6_Action
01f0 00d9 | | Load_Top At_Offset_1
01f1 01d9 | | Execute Vector,Reverse_Bounds
01f2 0263 | c | Execute Discrete,Above_Bound
01f3 7005 |p | Jump_Nonzero 0x1f9
01f4 4800 |H | Short_Literal 0x0
01f5 00d9 | | Load_Top At_Offset_1
01f6 e405 | | Load 0x2,0x5
01f7 01d6 | | Execute Vector,Field_Write
01f8 3ffb |? | Loop_Increasing 0x1f4
01f9 00cd | | Action Spare6_Action
01fa 4808 |H | Short_Literal 0x8
01fb 481e |H | Short_Literal 0x1e
01fc 00db | | Load_Top At_Offset_3
01fd 01ce | | Execute Vector,Slice_Write
01fe 00d1 | | Pop_Control Pop_Count_1
01ff 00cf | | Action Mark_Auxiliary
0200 e217 | | Load 0x1,0x17
0201 0265 | e | Execute Discrete,Reverse_Bounds
0202 0007 | | Action Break_Optional
0203 e229 | ) | Load 0x1,0x29
0204 00d9 | | Load_Top At_Offset_1
0205 e402 | | Load 0x2,0x2
0206 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0207 01d6 | | Execute Vector,Field_Write
0208 00c8 | | Action Pop_Auxiliary_Range
0209 3ff9 |? | Loop_Increasing 0x203
020a 00ce | | Action Pop_Auxiliary
020b 4800 |H | Short_Literal 0x0
020c 00d9 | | Load_Top At_Offset_1
020d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
020e 00d8 | | Load_Top At_Offset_0
020f 00ca | | Action Exit_Nullary_Function
0210 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c e22a | * | Load 0x1,0x2a
021d e22b | + | Load 0x1,0x2b
021e 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
021f 8002 | | Call 0x0,0x2
0220 4401 |D | Exit_Subprogram With_Result,0x1
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0249 | I | .CONST 0x0249 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0006 | | .CONST 0x0006 ; Number of locals
022b INIT_0228:
022b e21c | | Load 0x1,0x1c
022c 0337 | 7 | Declare_Variable Array
022d 00db | | Load_Top At_Offset_3
022e e22a | * | Load 0x1,0x2a
022f e22b | + | Load 0x1,0x2b
0230 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0231 8002 | | Call 0x0,0x2
0232 00d9 | | Load_Top At_Offset_1
0233 01d4 | | Execute Vector,Structure_Write
0234 4800 |H | Short_Literal 0x0
0235 e5ff | | Load 0x2,-0x1
0236 017c | | | Execute Record,Component_Offset
0237 09fd | | Execute_Immediate Binary_Scale,-0x3
0238 00e3 | | Load_Encached Natural_Cache
0239 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
023a 4803 |H | Short_Literal 0x3
023b e5ff | | Load 0x2,-0x1
023c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
023d 017c | | | Execute Record,Component_Offset
023e 4802 |H | Short_Literal 0x2
023f e5ff | | Load 0x2,-0x1
0240 017c | | | Execute Record,Component_Offset
0241 0273 | s | Execute Discrete,Plus
0242 09fd | | Execute_Immediate Binary_Scale,-0x3
0243 00e3 | | Load_Encached Natural_Cache
0244 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0245 00e2 | | Load_Encached Integer_Cache
0246 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0247 e001 | | Load 0x0,0x1
0248 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0249 BODY_0228:
0249 00cf | | Action Mark_Auxiliary
024a 781c |x | Jump 0x267
024b 00da | | Load_Top At_Offset_2
024c e403 | | Load 0x2,0x3
024d 027e | ~ | Execute Discrete,Not_Equal
024e 6814 |h | Jump_Zero 0x263
024f 00da | | Load_Top At_Offset_2
0250 e404 | | Load 0x2,0x4
0251 027e | ~ | Execute Discrete,Not_Equal
0252 6810 |h | Jump_Zero 0x263
0253 00da | | Load_Top At_Offset_2
0254 e402 | | Load 0x2,0x2
0255 01d7 | | Execute Vector,Field_Read
0256 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0257 00da | | Load_Top At_Offset_2
0258 0a01 | | Execute_Immediate Plus,0x1
0259 e402 | | Load 0x2,0x2
025a 01d7 | | Execute Vector,Field_Read
025b 00db | | Load_Top At_Offset_3
025c e402 | | Load 0x2,0x2
025d 01d6 | | Execute Vector,Field_Write
025e 00d9 | | Load_Top At_Offset_1
025f 00db | | Load_Top At_Offset_3
0260 0a01 | | Execute_Immediate Plus,0x1
0261 e402 | | Load 0x2,0x2
0262 01d6 | | Execute Vector,Field_Write
0263 00da | | Load_Top At_Offset_2
0264 0a02 | | Execute_Immediate Plus,0x2
0265 005b | [ | Store_Top Discrete,At_Offset_3
0266 00c9 | | Action Pop_Auxiliary_Loop
0267 00da | | Load_Top At_Offset_2
0268 0a01 | | Execute_Immediate Plus,0x1
0269 e402 | | Load 0x2,0x2
026a 01da | | Execute Vector,Bounds
026b 0262 | b | Execute Discrete,In_Range
026c 77de |w | Jump_Nonzero 0x24b
026d 00ce | | Action Pop_Auxiliary
026e e402 | | Load 0x2,0x2
026f 4401 |D | Exit_Subprogram With_Result,0x1
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 e22f | / | Load 0x1,0x2f
0275 e230 | 0 | Load 0x1,0x30
0276 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0277 8002 | | Call 0x0,0x2
0278 4401 |D | Exit_Subprogram With_Result,0x1
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 029f | | .CONST 0x029f ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0007 | | .CONST 0x0007 ; Number of locals
0283 INIT_0280:
0283 e21c | | Load 0x1,0x1c
0284 0337 | 7 | Declare_Variable Array
0285 00db | | Load_Top At_Offset_3
0286 00d9 | | Load_Top At_Offset_1
0287 01d4 | | Execute Vector,Structure_Write
0288 e219 | | Load 0x1,0x19
0289 0322 | " | Declare_Variable Record
028a e001 | | Load 0x0,0x1
028b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
028c 00e3 | | Load_Encached Natural_Cache
028d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
028e 4800 |H | Short_Literal 0x0
028f 00db | | Load_Top At_Offset_3
0290 017c | | | Execute Record,Component_Offset
0291 09fd | | Execute_Immediate Binary_Scale,-0x3
0292 00e3 | | Load_Encached Natural_Cache
0293 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0294 4803 |H | Short_Literal 0x3
0295 e403 | | Load 0x2,0x3
0296 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0297 017c | | | Execute Record,Component_Offset
0298 4802 |H | Short_Literal 0x2
0299 e403 | | Load 0x2,0x3
029a 017c | | | Execute Record,Component_Offset
029b 0273 | s | Execute Discrete,Plus
029c 09fd | | Execute_Immediate Binary_Scale,-0x3
029d 00e3 | | Load_Encached Natural_Cache
029e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
029f BODY_0280:
029f 00cf | | Action Mark_Auxiliary
02a0 781c |x | Jump 0x2bd
02a1 00db | | Load_Top At_Offset_3
02a2 00db | | Load_Top At_Offset_3
02a3 027e | ~ | Execute Discrete,Not_Equal
02a4 6814 |h | Jump_Zero 0x2b9
02a5 00db | | Load_Top At_Offset_3
02a6 00da | | Load_Top At_Offset_2
02a7 027e | ~ | Execute Discrete,Not_Equal
02a8 6810 |h | Jump_Zero 0x2b9
02a9 00db | | Load_Top At_Offset_3
02aa 0a01 | | Execute_Immediate Plus,0x1
02ab e402 | | Load 0x2,0x2
02ac 01d7 | | Execute Vector,Field_Read
02ad a404 | | Store_Unchecked 0x2,0x4
02ae 00db | | Load_Top At_Offset_3
02af e402 | | Load 0x2,0x2
02b0 01d7 | | Execute Vector,Field_Read
02b1 e405 | | Load 0x2,0x5
02b2 0a01 | | Execute_Immediate Plus,0x1
02b3 e402 | | Load 0x2,0x2
02b4 01d6 | | Execute Vector,Field_Write
02b5 e404 | | Load 0x2,0x4
02b6 e405 | | Load 0x2,0x5
02b7 e402 | | Load 0x2,0x2
02b8 01d6 | | Execute Vector,Field_Write
02b9 00db | | Load_Top At_Offset_3
02ba 0a02 | | Execute_Immediate Plus,0x2
02bb c405 | | Store 0x2,0x5
02bc 00c9 | | Action Pop_Auxiliary_Loop
02bd 00db | | Load_Top At_Offset_3
02be 0a01 | | Execute_Immediate Plus,0x1
02bf e402 | | Load 0x2,0x2
02c0 01da | | Execute Vector,Bounds
02c1 0262 | b | Execute Discrete,In_Range
02c2 77de |w | Jump_Nonzero 0x2a1
02c3 00ce | | Action Pop_Auxiliary
02c4 e402 | | Load 0x2,0x2
02c5 e22f | / | Load 0x1,0x2f
02c6 e230 | 0 | Load 0x1,0x30
02c7 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
02c8 8002 | | Call 0x0,0x2
02c9 e403 | | Load 0x2,0x3
02ca 017d | } | Execute Record,Structure_Write
02cb e403 | | Load 0x2,0x3
02cc 4401 |D | Exit_Subprogram With_Result,0x1
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02de | | .CONST 0x02de ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0004 | | .CONST 0x0004 ; Number of locals
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 01da | | Execute Vector,Bounds
02d5 00e9 | | Load_Encached String_Cache
02d6 035b | [ | Declare_Type Array,Constrained
02d7 0337 | 7 | Declare_Variable Array
02d8 00db | | Load_Top At_Offset_3
02d9 00d9 | | Load_Top At_Offset_1
02da 01d4 | | Execute Vector,Structure_Write
02db 00e3 | | Load_Encached Natural_Cache
02dc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02dd 00e8 | | Load_Encached Character_Cache
02de BODY_02d0:
02de 781b |x | Jump 0x2fa
02df 00da 0a01 | | .XXX[0x1b]
02e1 e402 01d7 | |
02e3 0052 00da | R |
02e5 e402 01d7 | |
02e7 00db 0a01 | |
02e9 e402 01d6 | |
02eb 00d9 00db | |
02ed e402 01d6 | |
02ef 00da 0a02 | |
02f1 005b 00c9 | [ |
02f3 00da 0a01 | |
02f5 e402 01da | |
02f7 0262 77e6 | bw |
02f9 00ce | |
02fa 00da | | Load_Top At_Offset_2
02fb 8234 | 4 | Call 0x1,0x34
02fc 00e9 | | Load_Encached String_Cache
02fd 01c6 | | Execute Vector,Convert_To_Formal
02fe 4401 |D | Exit_Subprogram With_Result,0x1
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0308 | | .CONST 0x0308 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0004 | | .CONST 0x0004 ; Number of locals
0303 INIT_0300:
0303 e20d | | Load 0x1,0xd
0304 0337 | 7 | Declare_Variable Array
0305 00e3 | | Load_Encached Natural_Cache
0306 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0307 00e8 | | Load_Encached Character_Cache
0308 BODY_0300:
0308 e5ff | | Load 0x2,-0x1
0309 01db | | Execute Vector,Length
030a 0c1f | | Execute_Immediate Greater_Equal,0x1f
030b 680f |h | Jump_Zero 0x31b
030c e5ff | | Load 0x2,-0x1
030d 01dd | | Execute Vector,First
030e e5ff | | Load 0x2,-0x1
030f 01dd | | Execute Vector,First
0310 0a1d | | Execute_Immediate Plus,0x1d
0311 00d8 | | Load_Top At_Offset_0
0312 00e2 | | Load_Encached Integer_Cache
0313 0260 | ` | Execute Discrete,In_Type
0314 7001 |p | Jump_Nonzero 0x316
0315 0801 | | Execute_Immediate Raise,0x1
0316 e5ff | | Load 0x2,-0x1
0317 01cf | | Execute Vector,Slice_Read
0318 00db | | Load_Top At_Offset_3
0319 01d4 | | Execute Vector,Structure_Write
031a 7835 |x5 | Jump 0x350
031b 00da | | Load_Top At_Offset_2
031c 00d8 | | Load_Top At_Offset_0
031d 0335 | 5 | Declare_Variable Array,Duplicate
031e 00cd | | Action Spare6_Action
031f 481e |H | Short_Literal 0x1e
0320 4801 |H | Short_Literal 0x1
0321 4800 |H | Short_Literal 0x0
0322 00d9 | | Load_Top At_Offset_1
0323 e406 | | Load 0x2,0x6
0324 01d6 | | Execute Vector,Field_Write
0325 3ffb |? | Loop_Increasing 0x321
0326 00cd | | Action Spare6_Action
0327 00db | | Load_Top At_Offset_3
0328 01d4 | | Execute Vector,Structure_Write
0329 e5ff | | Load 0x2,-0x1
032a 4801 |H | Short_Literal 0x1
032b e5ff | | Load 0x2,-0x1
032c 01db | | Execute Vector,Length
032d 00d8 | | Load_Top At_Offset_0
032e 00e2 | | Load_Encached Integer_Cache
032f 0260 | ` | Execute Discrete,In_Type
0330 7001 |p | Jump_Nonzero 0x332
0331 0801 | | Execute_Immediate Raise,0x1
0332 e402 | | Load 0x2,0x2
0333 01ce | | Execute Vector,Slice_Write
0334 781b |x | Jump 0x350
0335 00da 0a01 | | .XXX[0x1b]
0337 e402 01d7 | |
0339 0052 00da | R |
033b e402 01d7 | |
033d 00db 0a01 | |
033f e402 01d6 | |
0341 00d9 00db | |
0343 e402 01d6 | |
0345 00da 0a02 | |
0347 005b 00c9 | [ |
0349 00da 0a01 | |
034b e402 01da | |
034d 0262 77e6 | bw |
034f 00ce | |
0350 00da | | Load_Top At_Offset_2
0351 4401 |D | Exit_Subprogram With_Result,0x1
0352 0000 0000 | | .BLANK 0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c e210 | | Load 0x1,0x10
035d 011c | | Execute Any,Convert_Unchecked
035e 1c01 | | Execute_Immediate Run_Utility,0x1
035f 4401 |D | Exit_Subprogram With_Result,0x1
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 e210 | | Load 0x1,0x10
0365 1c02 | | Execute_Immediate Run_Utility,0x2
0366 4401 |D | Exit_Subprogram With_Result,0x1
0367 0000 | | .XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 00d8 | | Load_Top At_Offset_0
036d e210 | | Load 0x1,0x10
036e 0260 | ` | Execute Discrete,In_Type
036f 7001 |p | Jump_Nonzero 0x371
0370 0801 | | Execute_Immediate Raise,0x1
0371 4401 |D | Exit_Subprogram With_Result,0x1
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0383 | | .CONST 0x0383 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0003 | | .CONST 0x0003 ; Number of locals
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 01dd | | Execute Vector,First
037d 00e3 | | Load_Encached Natural_Cache
037e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
037f 00db | | Load_Top At_Offset_3
0380 01dc | | Execute Vector,Last
0381 00e3 | | Load_Encached Natural_Cache
0382 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0383 BODY_0378:
0383 00cf | | Action Mark_Auxiliary
0384 7804 |x | Jump 0x389
0385 00d9 | | Load_Top At_Offset_1
0386 0aff | | Execute_Immediate Plus,-0x1
0387 005a | Z | Store_Top Discrete,At_Offset_2
0388 00c9 | | Action Pop_Auxiliary_Loop
0389 00d9 | | Load_Top At_Offset_1
038a e5ff | | Load 0x2,-0x1
038b 01da | | Execute Vector,Bounds
038c 0262 | b | Execute Discrete,In_Range
038d 6804 |h | Jump_Zero 0x392
038e 00d9 | | Load_Top At_Offset_1
038f e5ff | | Load 0x2,-0x1
0390 01d7 | | Execute Vector,Field_Read
0391 6ff3 |o | Jump_Zero 0x385
0392 00ce | | Action Pop_Auxiliary
0393 00d9 | | Load_Top At_Offset_1
0394 00d9 | | Load_Top At_Offset_1
0395 e5ff | | Load 0x2,-0x1
0396 01cf | | Execute Vector,Slice_Read
0397 4401 |D | Exit_Subprogram With_Result,0x1
0398 ; --------------------------------------------------------------------------------------
0398 ; STRING TABLE
0398 ; --------------------------------------------------------------------------------------
0398 001e | | .STRTAB 0x001e->0x03a7 ; "MB2"
0399 001f | | .STRTAB 0x001f->0x03a8 ; "MB8"
039a 0020 | | .STRTAB 0x0020->0x03aa ; "FALSE"
039b 0023 | # | .STRTAB 0x0023->0x03ac ; "TRUE"
039c 0025 | % | .STRTAB 0x0025->0x03ae ; "ADA_BASE"
039d 002b | + | .STRTAB 0x002b->0x03b2 ; "MACHINE_INTERFACE"
039e 003a | : | .STRTAB 0x003a->0x03bb ; "KERNEL_DEBUGGER_IO"
039f 004a | J | .STRTAB 0x004a->0x03c4 ; "KERNEL_DEBUGGER"
03a0 0057 | W | .STRTAB 0x0057->0x03cb ; "KERNEL"
03a1 005b | [ | .STRTAB 0x005b->0x03ce ; "ENVIRONMENT_DEBUGGER"
03a2 006d | m | .STRTAB 0x006d->0x03d8 ; "ABSTRACT_TYPES"
03a3 0079 | y | .STRTAB 0x0079->0x03df ; "MISCELLANEOUS"
03a4 0084 | | .STRTAB 0x0084->0x03e6 ; "OS_UTILITIES"
03a5 008e | | .STRTAB 0x008e->0x03ec ; "ELABORATOR_DATABASE"
03a6 009f | | .STREND 0x009f->0x03f5
03a7 4d42 324d |MB2M| .STRTAB_STRINGS
03f6 0000 0000 | | .XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug Table
03f8 ; --------------------------------------------------------------------------------------
03f8 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b5d,0x0000,0x0001,0x0000
03fe 0000 080c | | .XXX[0x2]