|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 0328 | ( | .CONST 0x0328 ; 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 00ee | | .CONST 0x00ee ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0035 | 5 | .CONST 0x0035 ; Number of locals 000b INIT_0008: 000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0011 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0015 4800 |H | Short_Literal 0x0 0016 0093 026b | k| push_full_address INIT_0268 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 038f | | Declare_Type Package,Defined,Visible 001a 0386 | | Declare_Variable Package,Visible 001b 4803 |H | Short_Literal 0x3 001c 032b | + | Declare_Type Record,Incomplete,Visible 001d 00d8 | | Load_Top At_Offset_0 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 03ae | | Declare_Type Heap_Access,Defined,Visible 0020 00bf | | Action Accept_Activation 0021 0093 0000 | | push_full_address 0x0 0023 60e8 |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00030000} 0024 0273 | s | Execute Discrete,Plus 0025 e20d | | Load 0x1,0xd 0026 60e1 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0000ffff} 0027 0279 | y | Execute Discrete,And 0028 0273 | s | Execute Discrete,Plus 0029 e002 | | Load 0x0,0x2 002a 0273 | s | Execute Discrete,Plus 002b 00d9 | | Load_Top At_Offset_1 002c e003 | | Load 0x0,0x3 002d 0387 | | Declare_Variable Package 002e 00d8 | | Load_Top At_Offset_0 002f 020f | | Execute Module,Activate 0030 029b 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Unelaborated 0032 029b 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Unelaborated 0034 029b 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Unelaborated 0036 029b 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Unelaborated 0038 029b 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Unelaborated 003a 029b 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Unelaborated 003c 029b 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Unelaborated 003e 029b 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Unelaborated 0040 029b 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Unelaborated 0042 029b 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Unelaborated 0044 029b 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Unelaborated 0046 029b 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Unelaborated 0048 029b 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Unelaborated 004a 029b 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Unelaborated 004c 0093 0000 | | push_full_address 0x0 004e 60b5 |` | Indirect_Literal Discrete,0x104,{0x80000000, 0x00020000} 004f 0273 | s | Execute Discrete,Plus 0050 e20d | | Load 0x1,0xd 0051 60b6 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0000ffff} 0052 0279 | y | Execute Discrete,And 0053 0273 | s | Execute Discrete,Plus 0054 e004 | | Load 0x0,0x4 0055 0273 | s | Execute Discrete,Plus 0056 e005 | | Load 0x0,0x5 0057 e225 | % | Load 0x1,0x25 0058 0098 | | Execute Package,Field_Read_Dynamic 0059 e224 | $ | Load 0x1,0x24 005a e006 | | Load 0x0,0x6 005b e225 | % | Load 0x1,0x25 005c 0095 | | Execute Package,Field_Reference_Dynamic 005d e007 | | Load 0x0,0x7 005e e225 | % | Load 0x1,0x25 005f 0095 | | Execute Package,Field_Reference_Dynamic 0060 e008 | | Load 0x0,0x8 0061 e225 | % | Load 0x1,0x25 0062 0095 | | Execute Package,Field_Reference_Dynamic 0063 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0064 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0065 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0066 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0067 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0068 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0069 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 006a 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 006b 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 006c e009 | | Load 0x0,0x9 006d 0387 | | Declare_Variable Package 006e 00d8 | | Load_Top At_Offset_0 006f 020f | | Execute Module,Activate 0070 0093 0000 | | push_full_address 0x0 0072 608d |` | Indirect_Literal Discrete,0x100,{0x80000000, 0x00010000} 0073 0273 | s | Execute Discrete,Plus 0074 e20d | | Load 0x1,0xd 0075 6092 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x0000ffff} 0076 0279 | y | Execute Discrete,And 0077 0273 | s | Execute Discrete,Plus 0078 e00a | | Load 0x0,0xa 0079 0273 | s | Execute Discrete,Plus 007a e00b | | Load 0x0,0xb 007b 00da | | Load_Top At_Offset_2 007c 0098 | | Execute Package,Field_Read_Dynamic 007d e224 | $ | Load 0x1,0x24 007e e20f | | Load 0x1,0xf 007f e210 | | Load 0x1,0x10 0080 e00c | | Load 0x0,0xc 0081 e234 | 4 | Load 0x1,0x34 0082 0095 | | Execute Package,Field_Reference_Dynamic 0083 e00d | | Load 0x0,0xd 0084 e234 | 4 | Load 0x1,0x34 0085 0095 | | Execute Package,Field_Reference_Dynamic 0086 e00e | | Load 0x0,0xe 0087 e234 | 4 | Load 0x1,0x34 0088 0095 | | Execute Package,Field_Reference_Dynamic 0089 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 008a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 008b 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 008c 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 008d 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 008e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 008f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0090 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0091 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0092 e21b | | Load 0x1,0x1b 0093 e21c | | Load 0x1,0x1c 0094 00d8 | | Load_Top At_Offset_0 0095 e21b | | Load 0x1,0x1b 0096 0260 | ` | Execute Discrete,In_Type 0097 7001 |p | Jump_Nonzero 0x99 0098 0801 | | Execute_Immediate Raise,0x1 0099 e00f | | Load 0x0,0xf 009a 0387 | | Declare_Variable Package 009b 00d8 | | Load_Top At_Offset_0 009c 020f | | Execute Module,Activate 009d e010 | | Load 0x0,0x10 009e 00d9 | | Load_Top At_Offset_1 009f 0098 | | Execute Package,Field_Read_Dynamic 00a0 e20e | | Load 0x1,0xe 00a1 00e1 | | Load_Encached Boolean_Cache 00a2 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 00a4 e223 | # | Load 0x1,0x23 00a5 0326 | & | Complete_Type Record,By_Defining 00a6 e224 | $ | Load 0x1,0x24 00a7 03a0 | | Complete_Type Heap_Access,By_Component_Completion 00a8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ab 00c7 | | Action Elaborate_Subprogram 00ac e011 | | Load 0x0,0x11 00ad 00da | | Load_Top At_Offset_2 00ae 0095 | | Execute Package,Field_Reference_Dynamic 00af e012 | | Load 0x0,0x12 00b0 00db | | Load_Top At_Offset_3 00b1 0095 | | Execute Package,Field_Reference_Dynamic 00b2 e013 | | Load 0x0,0x13 00b3 e234 | 4 | Load 0x1,0x34 00b4 0095 | | Execute Package,Field_Reference_Dynamic 00b5 e014 | | Load 0x0,0x14 00b6 e234 | 4 | Load 0x1,0x34 00b7 0095 | | Execute Package,Field_Reference_Dynamic 00b8 e015 | | Load 0x0,0x15 00b9 e234 | 4 | Load 0x1,0x34 00ba 0095 | | Execute Package,Field_Reference_Dynamic 00bb e016 | | Load 0x0,0x16 00bc e234 | 4 | Load 0x1,0x34 00bd 0095 | | Execute Package,Field_Reference_Dynamic 00be e017 | | Load 0x0,0x17 00bf e234 | 4 | Load 0x1,0x34 00c0 0095 | | Execute Package,Field_Reference_Dynamic 00c1 e018 | | Load 0x0,0x18 00c2 e234 | 4 | Load 0x1,0x34 00c3 0095 | | Execute Package,Field_Reference_Dynamic 00c4 e019 | | Load 0x0,0x19 00c5 e234 | 4 | Load 0x1,0x34 00c6 0095 | | Execute Package,Field_Reference_Dynamic 00c7 4809 |H | Short_Literal 0x9 00c8 e222 | " | Load 0x1,0x22 00c9 020e | | Execute Module,Augment_Imports 00ca e222 | " | Load 0x1,0x22 00cb 020f | | Execute Module,Activate 00cc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00ed 00c7 | | Action Elaborate_Subprogram 00ee BODY_0008: 00ee 00bc | | Action Signal_Activated 00ef 00bb | | Action Signal_Completion 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 0217 | | Execute Heap_Access,All_Reference 00f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f6 00d8 | | Load_Top At_Offset_0 00f7 0120 | | Execute Any,Is_Value 00f8 7002 |p | Jump_Nonzero 0xfb 00f9 00d8 | | Load_Top At_Offset_0 00fa 011e | | Execute Any,Convert 00fb e20e | | Load 0x1,0xe 00fc 0119 | | Execute Any,Check_In_Formal_Type 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0104 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0108 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 010c 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 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 00da | | Load_Top At_Offset_2 0114 e5fe | | Load 0x2,-0x2 0115 0217 | | Execute Heap_Access,All_Reference 0116 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0121 | ! | .CONST 0x0121 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e224 | $ | Load 0x1,0x24 011c 00db | | Load_Top At_Offset_3 011d 039c | | Declare_Variable Heap_Access,By_Allocation 011e 00d8 | | Load_Top At_Offset_0 011f 0217 | | Execute Heap_Access,All_Reference 0120 1c00 | | Execute_Immediate Run_Utility,0x0 0121 BODY_0118: 0121 00db | | Load_Top At_Offset_3 0122 00d9 | | Load_Top At_Offset_1 0123 e01a | | Load 0x0,0x1a 0124 e235 | 5 | Load 0x1,0x35 0125 0096 | | Execute Package,Entry 0126 00d9 | | Load_Top At_Offset_1 0127 0217 | | Execute Heap_Access,All_Reference 0128 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0129 00db | | Load_Top At_Offset_3 012a 8212 | | Call 0x1,0x12 012b 00d9 | | Load_Top At_Offset_1 012c 0217 | | Execute Heap_Access,All_Reference 012d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012e 00d8 | | Load_Top At_Offset_0 012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0134 681c |h | Jump_Zero 0x151 0135 00da | | Load_Top At_Offset_2 0136 0217 | | Execute Heap_Access,All_Reference 0137 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0138 680e |h | Jump_Zero 0x147 0139 00da | | Load_Top At_Offset_2 013a 0219 | | Execute Heap_Access,All_Read 013b 00d8 | | Load_Top At_Offset_0 013c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 013d 00d8 | | Load_Top At_Offset_0 013e 0120 | | Execute Any,Is_Value 013f 6803 |h | Jump_Zero 0x143 0140 e20e | | Load 0x1,0xe 0141 0122 | " | Execute Any,Make_Root_Type 0142 011e | | Execute Any,Convert 0143 8213 | | Call 0x1,0x13 0144 00d9 | | Load_Top At_Offset_1 0145 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0146 00d1 | | Pop_Control Pop_Count_1 0147 00da | | Load_Top At_Offset_2 0148 0219 | | Execute Heap_Access,All_Read 0149 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014a 00d8 | | Load_Top At_Offset_0 014b e01b | | Load 0x0,0x1b 014c e235 | 5 | Load 0x1,0x35 014d 0096 | | Execute Package,Entry 014e 00d2 | | Pop_Control Pop_Count_2 014f e224 | $ | Load 0x1,0x24 0150 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 0217 | | Execute Heap_Access,All_Reference 015d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0164 0219 | | Execute Heap_Access,All_Read 0165 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0166 00d8 | | Load_Top At_Offset_0 0167 e01c | | Load 0x0,0x1c 0168 e235 | 5 | Load 0x1,0x35 0169 0096 | | Execute Package,Entry 016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 0219 | | Execute Heap_Access,All_Read 0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0176 00d8 | | Load_Top At_Offset_0 0177 e5fd | | Load 0x2,-0x3 0178 e5fe | | Load 0x2,-0x2 0179 e01d | | Load 0x0,0x1d 017a e235 | 5 | Load 0x1,0x35 017b 0096 | | Execute Package,Entry 017c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 0219 | | Execute Heap_Access,All_Read 0185 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0186 00d8 | | Load_Top At_Offset_0 0187 e5fe | | Load 0x2,-0x2 0188 e01e | | Load 0x0,0x1e 0189 e235 | 5 | Load 0x1,0x35 018a 0096 | | Execute Package,Entry 018b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 0217 | | Execute Heap_Access,All_Reference 0195 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0196 e01f | | Load 0x0,0x1f 0197 e235 | 5 | Load 0x1,0x35 0198 0096 | | Execute Package,Entry 0199 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 0219 | | Execute Heap_Access,All_Read 01a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a6 00d8 | | Load_Top At_Offset_0 01a7 e020 | | Load 0x0,0x20 01a8 e235 | 5 | Load 0x1,0x35 01a9 0096 | | Execute Package,Entry 01aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ab 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 01b4 0219 | | Execute Heap_Access,All_Read 01b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b6 00d8 | | Load_Top At_Offset_0 01b7 e5fe | | Load 0x2,-0x2 01b8 e021 | ! | Load 0x0,0x21 01b9 e235 | 5 | Load 0x1,0x35 01ba 0096 | | Execute Package,Entry 01bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00da | | Load_Top At_Offset_2 01c4 0219 | | Execute Heap_Access,All_Read 01c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c6 00d8 | | Load_Top At_Offset_0 01c7 e5fe | | Load 0x2,-0x2 01c8 e022 | " | Load 0x0,0x22 01c9 e235 | 5 | Load 0x1,0x35 01ca 0096 | | Execute Package,Entry 01cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 0217 | | Execute Heap_Access,All_Reference 01d5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d6 e023 | # | Load 0x0,0x23 01d7 e235 | 5 | Load 0x1,0x35 01d8 0096 | | Execute Package,Entry 01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 01e4 0219 | | Execute Heap_Access,All_Read 01e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e6 00d8 | | Load_Top At_Offset_0 01e7 e5fe | | Load 0x2,-0x2 01e8 e024 | $ | Load 0x0,0x24 01e9 e235 | 5 | Load 0x1,0x35 01ea 0096 | | Execute Package,Entry 01eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5fd | | Load 0x2,-0x3 01f4 e5fe | | Load 0x2,-0x2 01f5 8211 | | Call 0x1,0x11 01f6 00db | | Load_Top At_Offset_3 01f7 0217 | | Execute Heap_Access,All_Reference 01f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f9 4801 |H | Short_Literal 0x1 01fa 00db | | Load_Top At_Offset_3 01fb 0217 | | Execute Heap_Access,All_Reference 01fc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 0219 | | Execute Heap_Access,All_Read 0205 00d8 | | Load_Top At_Offset_0 0206 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0207 00d8 | | Load_Top At_Offset_0 0208 0120 | | Execute Any,Is_Value 0209 6803 |h | Jump_Zero 0x20d 020a e20e | | Load 0x1,0xe 020b 0122 | " | Execute Any,Make_Root_Type 020c 011e | | Execute Any,Convert 020d 8213 | | Call 0x1,0x13 020e 00d9 | | Load_Top At_Offset_1 020f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0210 00d1 | | Pop_Control Pop_Count_1 0211 4800 |H | Short_Literal 0x0 0212 00db | | Load_Top At_Offset_3 0213 0217 | | Execute Heap_Access,All_Reference 0214 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0216 0000 0000 | | .XXX[0x2] 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 00db | | Load_Top At_Offset_3 021c 0217 | | Execute Heap_Access,All_Reference 021d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021e 00db | | Load_Top At_Offset_3 021f 0217 | | Execute Heap_Access,All_Reference 0220 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0221 4801 |H | Short_Literal 0x1 0222 00db | | Load_Top At_Offset_3 0223 0217 | | Execute Heap_Access,All_Reference 0224 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e5fd | | Load 0x2,-0x3 022c 6803 |h | Jump_Zero 0x230 022d e5fd | | Load 0x2,-0x3 022e 8220 | | Call 0x1,0x20 022f c5fd | | Store 0x2,-0x3 0230 e224 | $ | Load 0x1,0x24 0231 e5fe | | Load 0x2,-0x2 0232 039c | | Declare_Variable Heap_Access,By_Allocation 0233 00d8 | | Load_Top At_Offset_0 0234 0217 | | Execute Heap_Access,All_Reference 0235 1c00 | | Execute_Immediate Run_Utility,0x0 0236 a5fd | | Store_Unchecked 0x2,-0x3 0237 00da | | Load_Top At_Offset_2 0238 0217 | | Execute Heap_Access,All_Reference 0239 e5fd | | Load 0x2,-0x3 023a 0218 | | Execute Heap_Access,All_Write 023b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0244 0217 | | Execute Heap_Access,All_Reference 0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0246 8216 | | Call 0x1,0x16 0247 e20f | | Load 0x1,0xf 0248 0119 | | Execute Any,Check_In_Formal_Type 0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024a 0000 0000 | | .BLANK 0000[0x6] 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 4601 |F | Jump_Case 0x2 0254 7801 |x | Jump 0x256 ; case 0x0 0255 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0256 00da | | Load_Top At_Offset_2 0257 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0258 1c00 | | Execute_Immediate Run_Utility,0x0 0259 00da | | Load_Top At_Offset_2 025a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 025b 0125 | % | Execute Any,Set_Constraint 025c 00da | | Load_Top At_Offset_2 025d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 025e 1c00 | | Execute_Immediate Run_Utility,0x0 025f 4801 |H | Short_Literal 0x1 0260 00db | | Load_Top At_Offset_3 0261 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0262 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0263 0000 0000 | | .BLANK 0000[0x5] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0290 | | .CONST 0x0290 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0015 | | .CONST 0x0015 ; Number of locals 026b INIT_0268: 026b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 026d 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 026f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0271 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0273 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0275 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0277 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0279 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 027b 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 027d 00bf | | Action Accept_Activation 027e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 027f 00c7 | | Action Elaborate_Subprogram 0280 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0281 00c7 | | Action Elaborate_Subprogram 0282 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0283 00c7 | | Action Elaborate_Subprogram 0284 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0285 00c7 | | Action Elaborate_Subprogram 0286 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0287 00c7 | | Action Elaborate_Subprogram 0288 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0289 00c7 | | Action Elaborate_Subprogram 028a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 028b 00c7 | | Action Elaborate_Subprogram 028c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 028d 00c7 | | Action Elaborate_Subprogram 028e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 028f 00c7 | | Action Elaborate_Subprogram 0290 BODY_0268: 0290 00bc | | Action Signal_Activated 0291 00bb | | Action Signal_Completion 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c 00db | | Load_Top At_Offset_3 029d 0217 | | Execute Heap_Access,All_Reference 029e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 029f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a0 8001 | | Call 0x0,0x1 02a1 c5fe | | Store 0x2,-0x2 02a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e5fd | | Load 0x2,-0x3 02ac 0219 | | Execute Heap_Access,All_Read 02ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02af 00d8 | | Load_Top At_Offset_0 02b0 e5fe | | Load 0x2,-0x2 02b1 e5ff | | Load 0x2,-0x1 02b2 8002 | | Call 0x0,0x2 02b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b4 0000 0000 | | .BLANK 0000[0x4] 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 0219 | | Execute Heap_Access,All_Read 02bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02bf 00d8 | | Load_Top At_Offset_0 02c0 e5ff | | Load 0x2,-0x1 02c1 8003 | | Call 0x0,0x3 02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c3 0000 0000 | | .BLANK 0000[0x5] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 0217 | | Execute Heap_Access,All_Reference 02cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02cf 8004 | | Call 0x0,0x4 02d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d1 0000 0000 | | .BLANK 0000[0x7] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00da | | Load_Top At_Offset_2 02dc 0219 | | Execute Heap_Access,All_Read 02dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02df 00d8 | | Load_Top At_Offset_0 02e0 8005 | | Call 0x0,0x5 02e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00db | | Load_Top At_Offset_3 02ec 0219 | | Execute Heap_Access,All_Read 02ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ef 00d8 | | Load_Top At_Offset_0 02f0 e5ff | | Load 0x2,-0x1 02f1 8006 | | Call 0x0,0x6 02f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f3 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 02fc 0219 | | Execute Heap_Access,All_Read 02fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ff 00d8 | | Load_Top At_Offset_0 0300 e5ff | | Load 0x2,-0x1 0301 8007 | | Call 0x0,0x7 0302 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0303 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 030c 0217 | | Execute Heap_Access,All_Reference 030d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 030e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 030f 8008 | | Call 0x0,0x8 0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00db | | Load_Top At_Offset_3 031c 0219 | | Execute Heap_Access,All_Read 031d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 031e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 031f 00d8 | | Load_Top At_Offset_0 0320 e5ff | | Load 0x2,-0x1 0321 8009 | | Call 0x0,0x9 0322 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; Debug Table 0328 ; -------------------------------------------------------------------------------------- 0328 0004 000a | | .DEBUG4 0x0004,0x000a,0x0e84,0x0000,0x0001,0x0000 032e 0000 0000 | | .BLANK 0000[0xd2]