|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦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 0420 | | .CONST 0x0420 ; 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 007d | } | .CONST 0x007d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 0093 03f3 | | push_full_address INIT_03f0
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 038f | | Declare_Type Package,Defined,Visible
0010 0386 | | Declare_Variable Package,Visible
0011 4800 |H | Short_Literal 0x0
0012 0093 032b | +| push_full_address INIT_0328
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 038f | | Declare_Type Package,Defined,Visible
0016 e001 | | Load 0x0,0x1
0017 4801 |H | Short_Literal 0x1
0018 00da | | Load_Top At_Offset_2
0019 020e | | Execute Module,Augment_Imports
001a 0386 | | Declare_Variable Package,Visible
001b 4800 |H | Short_Literal 0x0
001c 0093 029b | | push_full_address INIT_0298
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 038f | | Declare_Type Package,Defined,Visible
0020 e001 | | Load 0x0,0x1
0021 4801 |H | Short_Literal 0x1
0022 00da | | Load_Top At_Offset_2
0023 020e | | Execute Module,Augment_Imports
0024 0386 | | Declare_Variable Package,Visible
0025 4800 |H | Short_Literal 0x0
0026 0093 0263 | c| push_full_address INIT_0260
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 038f | | Declare_Type Package,Defined,Visible
002a 0386 | | Declare_Variable Package,Visible
002b 4800 |H | Short_Literal 0x0
002c 0093 022b | +| push_full_address INIT_0228
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 038f | | Declare_Type Package,Defined,Visible
0030 0386 | | Declare_Variable Package,Visible
0031 4800 |H | Short_Literal 0x0
0032 0093 01fb | | push_full_address INIT_01f8
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 038f | | Declare_Type Package,Defined,Visible
0036 0386 | | Declare_Variable Package,Visible
0037 4800 |H | Short_Literal 0x0
0038 0093 01cb | | push_full_address INIT_01c8
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b 038f | | Declare_Type Package,Defined,Visible
003c 0386 | | Declare_Variable Package,Visible
003d 4800 |H | Short_Literal 0x0
003e 0093 019b | | push_full_address INIT_0198
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 038f | | Declare_Type Package,Defined,Visible
0042 0386 | | Declare_Variable Package,Visible
0043 4800 |H | Short_Literal 0x0
0044 0093 0113 | | push_full_address INIT_0110
0046 02a0 | | Declare_Subprogram Null_Subprogram
0047 038f | | Declare_Type Package,Defined,Visible
0048 e001 | | Load 0x0,0x1
0049 4801 |H | Short_Literal 0x1
004a 00da | | Load_Top At_Offset_2
004b 020e | | Execute Module,Augment_Imports
004c 0386 | | Declare_Variable Package,Visible
004d 4800 |H | Short_Literal 0x0
004e 0093 00e3 | | push_full_address INIT_00e0
0050 02a0 | | Declare_Subprogram Null_Subprogram
0051 038f | | Declare_Type Package,Defined,Visible
0052 0386 | | Declare_Variable Package,Visible
0053 4800 |H | Short_Literal 0x0
0054 0093 00b3 | | push_full_address INIT_00b0
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 038f | | Declare_Type Package,Defined,Visible
0058 0386 | | Declare_Variable Package,Visible
0059 4800 |H | Short_Literal 0x0
005a 0093 0083 | | push_full_address INIT_0080
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 038f | | Declare_Type Package,Defined,Visible
005e 0386 | | Declare_Variable Package,Visible
005f 00bf | | Action Accept_Activation
0060 e20d | | Load 0x1,0xd
0061 020f | | Execute Module,Activate
0062 e002 | | Load 0x0,0x2
0063 e003 | | Load 0x0,0x3
0064 4802 |H | Short_Literal 0x2
0065 e20e | | Load 0x1,0xe
0066 020e | | Execute Module,Augment_Imports
0067 e20e | | Load 0x1,0xe
0068 020f | | Execute Module,Activate
0069 e20f | | Load 0x1,0xf
006a 020f | | Execute Module,Activate
006b e210 | | Load 0x1,0x10
006c 020f | | Execute Module,Activate
006d e211 | | Load 0x1,0x11
006e 020f | | Execute Module,Activate
006f e212 | | Load 0x1,0x12
0070 020f | | Execute Module,Activate
0071 e213 | | Load 0x1,0x13
0072 020f | | Execute Module,Activate
0073 e214 | | Load 0x1,0x14
0074 020f | | Execute Module,Activate
0075 00db | | Load_Top At_Offset_3
0076 020f | | Execute Module,Activate
0077 00da | | Load_Top At_Offset_2
0078 020f | | Execute Module,Activate
0079 00d9 | | Load_Top At_Offset_1
007a 020f | | Execute Module,Activate
007b 00d8 | | Load_Top At_Offset_0
007c 020f | | Execute Module,Activate
007d BODY_0008:
007d 00bc | | Action Signal_Activated
007e 00bb | | Action Signal_Completion
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0090 | | .CONST 0x0090 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 000f | | .CONST 0x000f ; Number of locals
0083 INIT_0080:
0083 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0085 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0087 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0089 00bf | | Action Accept_Activation
008a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
008b 00c7 | | Action Elaborate_Subprogram
008c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
008d 00c7 | | Action Elaborate_Subprogram
008e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
008f 00c7 | | Action Elaborate_Subprogram
0090 BODY_0080:
0090 00bc | | Action Signal_Activated
0091 00bb | | Action Signal_Completion
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c 0000 0000 | | .BLANK 0000[0x4]
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4800 |H | Short_Literal 0x0
00ac 00ca | | Action Exit_Nullary_Function
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c0 | | .CONST 0x00c0 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 000f | | .CONST 0x000f ; Number of locals
00b3 INIT_00b0:
00b3 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
00b5 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
00b7 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
00b9 00bf | | Action Accept_Activation
00ba 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00bf 00c7 | | Action Elaborate_Subprogram
00c0 BODY_00b0:
00c0 00bc | | Action Signal_Activated
00c1 00bb | | Action Signal_Completion
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4800 |H | Short_Literal 0x0
00dc 00ca | | Action Exit_Nullary_Function
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f0 | | .CONST 0x00f0 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 000f | | .CONST 0x000f ; Number of locals
00e3 INIT_00e0:
00e3 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
00e5 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
00e7 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
00e9 00bf | | Action Accept_Activation
00ea 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00ef 00c7 | | Action Elaborate_Subprogram
00f0 BODY_00e0:
00f0 00bc | | Action Signal_Activated
00f1 00bb | | Action Signal_Completion
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4800 |H | Short_Literal 0x0
010c 00ca | | Action Exit_Nullary_Function
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 012e | . | .CONST 0x012e ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0011 | | .CONST 0x0011 ; Number of locals
0113 INIT_0110:
0113 4803 |H | Short_Literal 0x3
0114 032b | + | Declare_Type Record,Incomplete,Visible
0115 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0117 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0119 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
011b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
011d 00e1 | | Load_Encached Boolean_Cache
011e e001 | | Load 0x0,0x1
011f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0120 00e1 | | Load_Encached Boolean_Cache
0121 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0123 e20d | | Load 0x1,0xd
0124 0326 | & | Complete_Type Record,By_Defining
0125 00bf | | Action Accept_Activation
0126 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0127 00c7 | | Action Elaborate_Subprogram
0128 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0129 00c7 | | Action Elaborate_Subprogram
012a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
012b 00c7 | | Action Elaborate_Subprogram
012c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
012d 00c7 | | Action Elaborate_Subprogram
012e BODY_0110:
012e 00bc | | Action Signal_Activated
012f 00bb | | Action Signal_Completion
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5fd | | Load 0x2,-0x3
0134 e001 | | Load 0x0,0x1
0135 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0136 0e01 | | Execute_Immediate Not_Equal,0x1
0137 e5fb | | Load 0x2,-0x5
0138 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0139 e5fd | | Load 0x2,-0x3
013a e5fb | | Load 0x2,-0x5
013b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013c e5fc | | Load 0x2,-0x4
013d e5fb | | Load 0x2,-0x5
013e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0145 7007 |p | Jump_Nonzero 0x14d
0146 480a |H | Short_Literal 0xa
0147 e5fd | | Load 0x2,-0x3
0148 01cb | | Execute Vector,Append
0149 00db | | Load_Top At_Offset_3
014a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014b e001 | | Load 0x0,0x1
014c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
014d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e20d | | Load 0x1,0xd
0154 0322 | " | Declare_Variable Record
0155 00db | | Load_Top At_Offset_3
0156 00d9 | | Load_Top At_Offset_1
0157 017d | } | Execute Record,Structure_Write
0158 BODY_0150:
0158 00d8 | | Load_Top At_Offset_0
0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015a 7009 |p | Jump_Nonzero 0x164
015b 00db | | Load_Top At_Offset_3
015c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015d 7006 |p | Jump_Nonzero 0x164
015e 00d8 | | Load_Top At_Offset_0
015f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0160 e001 | | Load 0x0,0x1
0161 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0162 00d9 | | Load_Top At_Offset_1
0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016d 6802 |h | Jump_Zero 0x170
016e 4807 |H | Short_Literal 0x7
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 4800 |H | Short_Literal 0x0
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4608 |F | Jump_Case 0x9
017c 7808 |x | Jump 0x185 ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
017e 7813 |x | Jump 0x192 ; case 0x2
017f 7812 |x | Jump 0x192 ; case 0x3
0180 7811 |x | Jump 0x192 ; case 0x4
0181 7810 |x | Jump 0x192 ; case 0x5
0182 780f |x | Jump 0x192 ; case 0x6
0183 780e |x | Jump 0x192 ; case 0x7
0184 780d |x | Jump 0x192 ; case 0x8
0185 4801 |H | Short_Literal 0x1
0186 00db | | Load_Top At_Offset_3
0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0188 00da | | Load_Top At_Offset_2
0189 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
018a 0125 | % | Execute Any,Set_Constraint
018b 00da | | Load_Top At_Offset_2
018c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
018d 1c00 | | Execute_Immediate Run_Utility,0x0
018e 4801 |H | Short_Literal 0x1
018f 00db | | Load_Top At_Offset_3
0190 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0191 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0192 0869 | i | Execute_Immediate Raise,0x69
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a8 | | .CONST 0x01a8 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 000f | | .CONST 0x000f ; Number of locals
019b INIT_0198:
019b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
019d 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
019f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
01a1 00bf | | Action Accept_Activation
01a2 1d0d | | Execute_Immediate Reference_Lex_1,0xd
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d0e | | Execute_Immediate Reference_Lex_1,0xe
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d0f | | Execute_Immediate Reference_Lex_1,0xf
01a7 00c7 | | Action Elaborate_Subprogram
01a8 BODY_0198:
01a8 00bc | | Action Signal_Activated
01a9 00bb | | Action Signal_Completion
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4800 |H | Short_Literal 0x0
01c4 00ca | | Action Exit_Nullary_Function
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d8 | | .CONST 0x01d8 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 000f | | .CONST 0x000f ; Number of locals
01cb INIT_01c8:
01cb 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
01cd 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
01cf 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
01d1 00bf | | Action Accept_Activation
01d2 1d0d | | Execute_Immediate Reference_Lex_1,0xd
01d3 00c7 | | Action Elaborate_Subprogram
01d4 1d0e | | Execute_Immediate Reference_Lex_1,0xe
01d5 00c7 | | Action Elaborate_Subprogram
01d6 1d0f | | Execute_Immediate Reference_Lex_1,0xf
01d7 00c7 | | Action Elaborate_Subprogram
01d8 BODY_01c8:
01d8 00bc | | Action Signal_Activated
01d9 00bb | | Action Signal_Completion
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4800 |H | Short_Literal 0x0
01f4 00ca | | Action Exit_Nullary_Function
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0208 | | .CONST 0x0208 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 000f | | .CONST 0x000f ; Number of locals
01fb INIT_01f8:
01fb 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
01fd 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
01ff 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0201 00bf | | Action Accept_Activation
0202 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0203 00c7 | | Action Elaborate_Subprogram
0204 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0205 00c7 | | Action Elaborate_Subprogram
0206 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0207 00c7 | | Action Elaborate_Subprogram
0208 BODY_01f8:
0208 00bc | | Action Signal_Activated
0209 00bb | | Action Signal_Completion
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4800 |H | Short_Literal 0x0
0224 00ca | | Action Exit_Nullary_Function
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023c | < | .CONST 0x023c ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0010 | | .CONST 0x0010 ; Number of locals
022b INIT_0228:
022b 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
022d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
022f 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0231 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0233 00bf | | Action Accept_Activation
0234 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0235 00c7 | | Action Elaborate_Subprogram
0236 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0237 00c7 | | Action Elaborate_Subprogram
0238 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0239 00c7 | | Action Elaborate_Subprogram
023a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
023b 00c7 | | Action Elaborate_Subprogram
023c BODY_0228:
023c 00bc | | Action Signal_Activated
023d 00bb | | Action Signal_Completion
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0254 0000 0000 | | .BLANK 0000[0x4]
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 4800 |H | Short_Literal 0x0
025c 00ca | | Action Exit_Nullary_Function
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0274 | t | .CONST 0x0274 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0010 | | .CONST 0x0010 ; Number of locals
0263 INIT_0260:
0263 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0265 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0267 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0269 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
026b 00bf | | Action Accept_Activation
026c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
026d 00c7 | | Action Elaborate_Subprogram
026e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
026f 00c7 | | Action Elaborate_Subprogram
0270 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0271 00c7 | | Action Elaborate_Subprogram
0272 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0273 00c7 | | Action Elaborate_Subprogram
0274 BODY_0260:
0274 00bc | | Action Signal_Activated
0275 00bb | | Action Signal_Completion
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027c 0000 0000 | | .BLANK 0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4800 |H | Short_Literal 0x0
0294 00ca | | Action Exit_Nullary_Function
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02b6 | | .CONST 0x02b6 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0011 | | .CONST 0x0011 ; Number of locals
029b INIT_0298:
029b 4803 |H | Short_Literal 0x3
029c 032b | + | Declare_Type Record,Incomplete,Visible
029d 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
029f 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
02a1 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
02a3 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
02a5 00e1 | | Load_Encached Boolean_Cache
02a6 e001 | | Load 0x0,0x1
02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a8 00e1 | | Load_Encached Boolean_Cache
02a9 029f 030b | | Declare_Subprogram INIT_0308,For_Call
02ab e20d | | Load 0x1,0xd
02ac 0326 | & | Complete_Type Record,By_Defining
02ad 00bf | | Action Accept_Activation
02ae 1d0e | | Execute_Immediate Reference_Lex_1,0xe
02af 00c7 | | Action Elaborate_Subprogram
02b0 1d0f | | Execute_Immediate Reference_Lex_1,0xf
02b1 00c7 | | Action Elaborate_Subprogram
02b2 1d10 | | Execute_Immediate Reference_Lex_1,0x10
02b3 00c7 | | Action Elaborate_Subprogram
02b4 1d11 | | Execute_Immediate Reference_Lex_1,0x11
02b5 00c7 | | Action Elaborate_Subprogram
02b6 BODY_0298:
02b6 00bc | | Action Signal_Activated
02b7 00bb | | Action Signal_Completion
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00db | | Load_Top At_Offset_3
02bc e001 | | Load 0x0,0x1
02bd 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02be 0e01 | | Execute_Immediate Not_Equal,0x1
02bf e5fc | | Load 0x2,-0x4
02c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02c1 00db | | Load_Top At_Offset_3
02c2 e5fc | | Load 0x2,-0x4
02c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c4 e5fd | | Load 0x2,-0x3
02c5 e5fc | | Load 0x2,-0x4
02c6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d0 | | .CONST 0x02d0 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb e20d | | Load 0x1,0xd
02cc 0322 | " | Declare_Variable Record
02cd 00db | | Load_Top At_Offset_3
02ce 00d9 | | Load_Top At_Offset_1
02cf 017d | } | Execute Record,Structure_Write
02d0 BODY_02c8:
02d0 00d8 | | Load_Top At_Offset_0
02d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d2 7005 |p | Jump_Nonzero 0x2d8
02d3 e5fd | | Load 0x2,-0x3
02d4 00d9 | | Load_Top At_Offset_1
02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d6 e001 | | Load 0x0,0x1
02d7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e8 | | .CONST 0x02e8 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 e20d | | Load 0x1,0xd
02e4 0322 | " | Declare_Variable Record
02e5 00db | | Load_Top At_Offset_3
02e6 00d9 | | Load_Top At_Offset_1
02e7 017d | } | Execute Record,Structure_Write
02e8 BODY_02e0:
02e8 00d8 | | Load_Top At_Offset_0
02e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ea 7009 |p | Jump_Nonzero 0x2f4
02eb 00db | | Load_Top At_Offset_3
02ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ed 7006 |p | Jump_Nonzero 0x2f4
02ee 00d8 | | Load_Top At_Offset_0
02ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f0 e001 | | Load 0x0,0x1
02f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f2 00d9 | | Load_Top At_Offset_1
02f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02fd 6802 |h | Jump_Zero 0x300
02fe 4807 |H | Short_Literal 0x7
02ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0300 4800 |H | Short_Literal 0x0
0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4608 |F | Jump_Case 0x9
030c 7808 |x | Jump 0x315 ; case 0x0
030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
030e 7813 |x | Jump 0x322 ; case 0x2
030f 7812 |x | Jump 0x322 ; case 0x3
0310 7811 |x | Jump 0x322 ; case 0x4
0311 7810 |x | Jump 0x322 ; case 0x5
0312 780f |x | Jump 0x322 ; case 0x6
0313 780e |x | Jump 0x322 ; case 0x7
0314 780d |x | Jump 0x322 ; case 0x8
0315 4801 |H | Short_Literal 0x1
0316 00db | | Load_Top At_Offset_3
0317 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0318 00da | | Load_Top At_Offset_2
0319 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
031a 0125 | % | Execute Any,Set_Constraint
031b 00da | | Load_Top At_Offset_2
031c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
031d 1c00 | | Execute_Immediate Run_Utility,0x0
031e 4800 |H | Short_Literal 0x0
031f 00db | | Load_Top At_Offset_3
0320 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0321 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0322 0869 | i | Execute_Immediate Raise,0x69
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 034a | J | .CONST 0x034a ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0012 | | .CONST 0x0012 ; Number of locals
032b INIT_0328:
032b 4803 |H | Short_Literal 0x3
032c 032b | + | Declare_Type Record,Incomplete,Visible
032d 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
032f 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0331 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
0333 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0335 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0337 00e1 | | Load_Encached Boolean_Cache
0338 e001 | | Load 0x0,0x1
0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033a 00e1 | | Load_Encached Boolean_Cache
033b 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
033d e20d | | Load 0x1,0xd
033e 0326 | & | Complete_Type Record,By_Defining
033f 00bf | | Action Accept_Activation
0340 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0341 00c7 | | Action Elaborate_Subprogram
0342 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0343 00c7 | | Action Elaborate_Subprogram
0344 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0345 00c7 | | Action Elaborate_Subprogram
0346 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0347 00c7 | | Action Elaborate_Subprogram
0348 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0349 00c7 | | Action Elaborate_Subprogram
034a BODY_0328:
034a 00bc | | Action Signal_Activated
034b 00bb | | Action Signal_Completion
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 e001 | | Load 0x0,0x1
0355 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0356 0e00 | | Execute_Immediate Not_Equal,0x0
0357 e5fc | | Load 0x2,-0x4
0358 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0359 00da | | Load_Top At_Offset_2
035a e5fc | | Load 0x2,-0x4
035b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
035c 00db | | Load_Top At_Offset_3
035d e5fc | | Load 0x2,-0x4
035e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
035f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0365 7005 |p | Jump_Nonzero 0x36b
0366 00da | | Load_Top At_Offset_2
0367 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0368 e001 | | Load 0x0,0x1
0369 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
036a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
036b 4801 |H | Short_Literal 0x1
036c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0380 | | .CONST 0x0380 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0004 | | .CONST 0x0004 ; Number of locals
0373 INIT_0370:
0373 4801 |H | Short_Literal 0x1
0374 602b |`+ | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x000007d0}
0375 e002 | | Load 0x0,0x2
0376 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0377 035b | [ | Declare_Type Array,Constrained
0378 0337 | 7 | Declare_Variable Array
0379 4801 |H | Short_Literal 0x1
037a 4800 |H | Short_Literal 0x0
037b e002 | | Load 0x0,0x2
037c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037d 035b | [ | Declare_Type Array,Constrained
037e 0337 | 7 | Declare_Variable Array
037f 00e3 | | Load_Encached Natural_Cache
0380 BODY_0370:
0380 e5ff | | Load 0x2,-0x1
0381 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0382 7015 |p | Jump_Nonzero 0x398
0383 00e3 | | Load_Encached Natural_Cache
0384 00db | | Load_Top At_Offset_3
0385 e5ff | | Load 0x2,-0x1
0386 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0387 e001 | | Load 0x0,0x1
0388 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0389 00d1 | | Pop_Control Pop_Count_1
038a 0059 | Y | Store_Top Discrete,At_Offset_1
038b 4801 |H | Short_Literal 0x1
038c 00d9 | | Load_Top At_Offset_1
038d 00d8 | | Load_Top At_Offset_0
038e 00e2 | | Load_Encached Integer_Cache
038f 0260 | ` | Execute Discrete,In_Type
0390 7001 |p | Jump_Nonzero 0x392
0391 0801 | | Execute_Immediate Raise,0x1
0392 e402 | | Load 0x2,0x2
0393 01cf | | Execute Vector,Slice_Read
0394 e003 | | Load 0x0,0x3
0395 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0396 01c6 | | Execute Vector,Convert_To_Formal
0397 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0398 00d9 | | Load_Top At_Offset_1
0399 e003 | | Load 0x0,0x3
039a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
039b 01c6 | | Execute Vector,Convert_To_Formal
039c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
039d 0000 0000 | | .XXX[0x3]
039f 0000 | |
03a0 0000 0000 | | .LITERAL {0x00000000, 0x000007d0}
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b0 | | .CONST 0x03b0 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0002 | | .CONST 0x0002 ; Number of locals
03ab INIT_03a8:
03ab e20d | | Load 0x1,0xd
03ac 0322 | " | Declare_Variable Record
03ad 00db | | Load_Top At_Offset_3
03ae 00d9 | | Load_Top At_Offset_1
03af 017d | } | Execute Record,Structure_Write
03b0 BODY_03a8:
03b0 00db | | Load_Top At_Offset_3
03b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b2 7009 |p | Jump_Nonzero 0x3bc
03b3 00db | | Load_Top At_Offset_3
03b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03b5 7006 |p | Jump_Nonzero 0x3bc
03b6 00d8 | | Load_Top At_Offset_0
03b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b8 e001 | | Load 0x0,0x1
03b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ba 00d9 | | Load_Top At_Offset_1
03bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bd 0000 0000 | | .XXX[0x3]
03bf 0000 | |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c5 6802 |h | Jump_Zero 0x3c8
03c6 4807 |H | Short_Literal 0x7
03c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c8 4800 |H | Short_Literal 0x0
03c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ca 0000 0000 | | .BLANK 0000[0x6]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 4608 |F | Jump_Case 0x9
03d4 7808 |x | Jump 0x3dd ; case 0x0
03d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03d6 7813 |x | Jump 0x3ea ; case 0x2
03d7 7812 |x | Jump 0x3ea ; case 0x3
03d8 7811 |x | Jump 0x3ea ; case 0x4
03d9 7810 |x | Jump 0x3ea ; case 0x5
03da 780f |x | Jump 0x3ea ; case 0x6
03db 780e |x | Jump 0x3ea ; case 0x7
03dc 780d |x | Jump 0x3ea ; case 0x8
03dd 4801 |H | Short_Literal 0x1
03de 00db | | Load_Top At_Offset_3
03df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03e0 00da | | Load_Top At_Offset_2
03e1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03e2 0125 | % | Execute Any,Set_Constraint
03e3 00da | | Load_Top At_Offset_2
03e4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03e5 1c00 | | Execute_Immediate Run_Utility,0x0
03e6 4800 |H | Short_Literal 0x0
03e7 00db | | Load_Top At_Offset_3
03e8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03ea 0869 | i | Execute_Immediate Raise,0x69
03eb 0000 0000 | | .BLANK 0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0400 | | .CONST 0x0400 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 000f | | .CONST 0x000f ; Number of locals
03f3 INIT_03f0:
03f3 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
03f5 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
03f7 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
03f9 00bf | | Action Accept_Activation
03fa 1d0d | | Execute_Immediate Reference_Lex_1,0xd
03fb 00c7 | | Action Elaborate_Subprogram
03fc 1d0e | | Execute_Immediate Reference_Lex_1,0xe
03fd 00c7 | | Action Elaborate_Subprogram
03fe 1d0f | | Execute_Immediate Reference_Lex_1,0xf
03ff 00c7 | | Action Elaborate_Subprogram
0400 BODY_03f0:
0400 00bc | | Action Signal_Activated
0401 00bb | | Action Signal_Completion
0402 0000 0000 | | .BLANK 0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040c 0000 0000 | | .BLANK 0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0414 0000 0000 | | .BLANK 0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 4800 |H | Short_Literal 0x0
041c 00ca | | Action Exit_Nullary_Function
041d 0000 0000 | | .XXX[0x3]
041f 0000 | |
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug Table
0420 ; --------------------------------------------------------------------------------------
0420 0004 000e | | .DEBUG4 0x0004,0x000e,0xf46b,0x0000,0x0001,0x0000
0426 0000 00a4 | | .XXX[0x1a]
0428 0000 400e | @ |
042a 3174 0000 |1t |
042c 400e 3184 |@ 1 |
042e 0000 400e | @ |
0430 3194 0000 |1 |
0432 400e 31a4 |@ 1 |
0434 0000 400e | @ |
0436 31d4 0000 |1 |
0438 400e 31e4 |@ 1 |
043a 0000 400e | @ |
043c 31f4 0000 |1 |
043e 400e 3200 |@ 2 |
0440 0000 0000 | | .BLANK 0000[0x6]
0446 3000 046c |0 l| .XXX[0x2a]
0448 042e 0054 | . T|
044a 1800 0008 | |
044c 15a3 8c04 | |
044e 0040 0025 | @ %|
0450 4000 0002 |@ |
0452 23e0 0001 |# |
0454 0000 0002 | |
0456 c00a 0000 | |
0458 0002 0000 | |
045a 0080 0000 | |
045c 0440 0000 | @ |
045e 0002 0000 | |
0460 0014 8000 | |
0462 0801 c668 | h|
0464 8000 0801 | |
0466 c66a 8000 | j |
0468 0801 c66c | l|
046a 8000 0801 | |
046c c66e 8000 | n |
046e 0801 c670 | p|
0470 0000 0000 | | .BLANK 0000[0xf]
047f 0600 008d | | .XXX[0x1f]
0481 8485 c00a | |
0483 8380 0001 | |
0485 02b6 4c80 | L |
0487 8008 0004 | |
0489 a800 0000 | |
048b 448a 0000 |D |
048d 1000 0000 | |
048f 1801 4000 | @ |
0491 0000 4000 | @ |
0493 0010 0000 | |
0495 0088 0000 | |
0497 0000 4000 | @ |
0499 0002 9000 | |
049b 0080 38d5 | 8 |
049d c000 | |
049e 0000 0000 | | .BLANK 0000[0x1a]
04b8 00c0 0011 | | .XXX[0x1f]
04ba b190 b801 | |
04bc 5070 0000 |Pp |
04be 2056 c990 | V |
04c0 1001 0000 | |
04c2 9500 0000 | |
04c4 0891 4000 | @ |
04c6 0200 0000 | |
04c8 0300 2800 | ( |
04ca 0000 0800 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5200 | R |
04d4 0010 071a | |
04d6 b800 | |
04d7 0000 0000 | | .BLANK 0000[0x1a]
04f1 0018 0002 | | .XXX[0x3]
04f3 3630 |60 |
04f4 0000 0000 | | .BLANK 0000[0xd]
0501 0020 0500 | | .XXX[0xc]
0503 0000 0000 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a00 | |
050d 0000 0000 | | .BLANK 0000[0x2d]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]