|
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]