|
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_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0498 | | .CONST 0x0498 ; 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 00aa | | .CONST 0x00aa ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003c | < | .CONST 0x003c ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 4818 |H | Short_Literal 0x18
000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 e001 | | Load 0x0,0x1
0012 0129 | ) | Execute Any,Make_Visible
0013 e002 | | Load 0x0,0x2
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0019 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0021 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0023 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0025 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0027 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0029 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
002b 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
002d 4802 |H | Short_Literal 0x2
002e 032a | * | Declare_Type Record,Incomplete
002f 4804 |H | Short_Literal 0x4
0030 032a | * | Declare_Type Record,Incomplete
0031 00d8 | | Load_Top At_Offset_0
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 4818 |H | Short_Literal 0x18
0034 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0035 00d8 | | Load_Top At_Offset_0
0036 0221 | ! | Execute Access,Allow_Deallocate
0037 00da | | Load_Top At_Offset_2
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 e212 | | Load 0x1,0x12
003a 03c7 | | Complete_Type Access,By_Defining
003b e212 | | Load 0x1,0x12
003c 0221 | ! | Execute Access,Allow_Deallocate
003d e212 | | Load 0x1,0x12
003e 0129 | ) | Execute Any,Make_Visible
003f c214 | | Store 0x1,0x14
0040 e212 | | Load 0x1,0x12
0041 00d9 | | Load_Top At_Offset_1
0042 00e3 | | Load_Encached Natural_Cache
0043 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0045 4803 |H | Short_Literal 0x3
0046 032d | - | Declare_Type Record,Defined
0047 00d8 | | Load_Top At_Offset_0
0048 02a0 | | Declare_Subprogram Null_Subprogram
0049 e213 | | Load 0x1,0x13
004a 03c7 | | Complete_Type Access,By_Defining
004b e213 | | Load 0x1,0x13
004c 0129 | ) | Execute Any,Make_Visible
004d c215 | | Store 0x1,0x15
004e 0007 | | Action Break_Optional
004f 00bf | | Action Accept_Activation
0050 00e3 | | Load_Encached Natural_Cache
0051 0266 | f | Execute Discrete,Bounds
0052 00e3 | | Load_Encached Natural_Cache
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 4801 |H | Short_Literal 0x1
0055 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0056 00e9 | | Load_Encached String_Cache
0057 02a0 | | Declare_Subprogram Null_Subprogram
0058 4818 |H | Short_Literal 0x18
0059 03d3 | | Declare_Type Access,Defined,Accesses_Protected
005a 00d8 | | Load_Top At_Offset_0
005b 0221 | ! | Execute Access,Allow_Deallocate
005c 0007 | | Action Break_Optional
005d 00e3 | | Load_Encached Natural_Cache
005e 00d9 | | Load_Top At_Offset_1
005f e20f | | Load 0x1,0xf
0060 e226 | & | Load 0x1,0x26
0061 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0063 e225 | % | Load 0x1,0x25
0064 0326 | & | Complete_Type Record,By_Defining
0065 4800 |H | Short_Literal 0x0
0066 e210 | | Load 0x1,0x10
0067 0aff | | Execute_Immediate Plus,-0x1
0068 00e3 | | Load_Encached Natural_Cache
0069 025d | ] | Execute Discrete,Bounds_Check
006a e226 | & | Load 0x1,0x26
006b 02a0 | | Declare_Subprogram Null_Subprogram
006c 4801 |H | Short_Literal 0x1
006d 035d | ] | Declare_Type Array,Defined
006e 00e3 | | Load_Encached Natural_Cache
006f 00d9 | | Load_Top At_Offset_1
0070 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
0072 e224 | $ | Load 0x1,0x24
0073 0326 | & | Complete_Type Record,By_Defining
0074 a003 | | Store_Unchecked 0x0,0x3
0075 00c6 | | Action Check_Subprogram_Elaborated
0076 00e9 | | Load_Encached String_Cache
0077 00da | | Load_Top At_Offset_2
0078 e004 | | Load 0x0,0x4
0079 e005 | | Load 0x0,0x5
007a 4800 |H | Short_Literal 0x0
007b 0007 | | Action Break_Optional
007c a003 | | Store_Unchecked 0x0,0x3
007d 00c6 | | Action Check_Subprogram_Elaborated
007e e225 | % | Load 0x1,0x25
007f e226 | & | Load 0x1,0x26
0080 e006 | | Load 0x0,0x6
0081 e007 | | Load 0x0,0x7
0082 4800 |H | Short_Literal 0x0
0083 0007 | | Action Break_Optional
0084 a003 | | Store_Unchecked 0x0,0x3
0085 00c6 | | Action Check_Subprogram_Elaborated
0086 e224 | $ | Load 0x1,0x24
0087 e212 | | Load 0x1,0x12
0088 e008 | | Load 0x0,0x8
0089 e009 | | Load 0x0,0x9
008a 4800 |H | Short_Literal 0x0
008b 0007 | | Action Break_Optional
008c 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
008e 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
0090 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
0092 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0093 00c7 | | Action Elaborate_Subprogram
0094 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0099 00c7 | | Action Elaborate_Subprogram
009a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009d 00c7 | | Action Elaborate_Subprogram
009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a9 00c7 | | Action Elaborate_Subprogram
00aa BODY_0008:
00aa 00bc | | Action Signal_Activated
00ab 00bb | | Action Signal_Completion
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e212 | | Load 0x1,0x12
00b4 03bc | | Declare_Variable Access,By_Allocation
00b5 00d8 | | Load_Top At_Offset_0
00b6 0227 | ' | Execute Access,All_Reference
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 003b | ; | Store_Top Access,At_Offset_3
00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c7 | | .CONST 0x00c7 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0003 | | .CONST 0x0003 ; Number of locals
00c3 INIT_00c0:
00c3 e226 | & | Load 0x1,0x26
00c4 0007 | | Action Break_Optional
00c5 e226 | & | Load 0x1,0x26
00c6 0007 | | Action Break_Optional
00c7 BODY_00c0:
00c7 e5ff | | Load 0x2,-0x1
00c8 0227 | ' | Execute Access,All_Reference
00c9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ca 0c01 | | Execute_Immediate Greater_Equal,0x1
00cb 682d |h- | Jump_Zero 0xf9
00cc 00cf | | Action Mark_Auxiliary
00cd e5ff | | Load 0x2,-0x1
00ce 0227 | ' | Execute Access,All_Reference
00cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d0 01d9 | | Execute Vector,Reverse_Bounds
00d1 0263 | c | Execute Discrete,Above_Bound
00d2 7025 |p% | Jump_Nonzero 0xf8
00d3 00d8 | | Load_Top At_Offset_0
00d4 e5ff | | Load 0x2,-0x1
00d5 0227 | ' | Execute Access,All_Reference
00d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d7 01d7 | | Execute Vector,Field_Read
00d8 a402 | | Store_Unchecked 0x2,0x2
00d9 00cf | | Action Mark_Auxiliary
00da 7818 |x | Jump 0xf3
00db e402 | | Load 0x2,0x2
00dc 0227 | ' | Execute Access,All_Reference
00dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00de a403 | | Store_Unchecked 0x2,0x3
00df e402 | | Load 0x2,0x2
00e0 0229 | ) | Execute Access,All_Read
00e1 00d8 | | Load_Top At_Offset_0
00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e3 e22b | + | Load 0x1,0x2b
00e4 e22c | , | Load 0x1,0x2c
00e5 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e6 8003 | | Call 0x0,0x3
00e7 00d9 | | Load_Top At_Offset_1
00e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e9 00d1 | | Pop_Control Pop_Count_1
00ea e402 | | Load 0x2,0x2
00eb e230 | 0 | Load 0x1,0x30
00ec e231 | 1 | Load 0x1,0x31
00ed 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00ee 8003 | | Call 0x0,0x3
00ef c402 | | Store 0x2,0x2
00f0 e403 | | Load 0x2,0x3
00f1 a402 | | Store_Unchecked 0x2,0x2
00f2 00c9 | | Action Pop_Auxiliary_Loop
00f3 e402 | | Load 0x2,0x2
00f4 77e6 |w | Jump_Nonzero 0xdb
00f5 00ce | | Action Pop_Auxiliary
00f6 00c8 | | Action Pop_Auxiliary_Range
00f7 3fdb |? | Loop_Increasing 0xd3
00f8 00ce | | Action Pop_Auxiliary
00f9 e5ff | | Load 0x2,-0x1
00fa e235 | 5 | Load 0x1,0x35
00fb e236 | 6 | Load 0x1,0x36
00fc 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00fd 8003 | | Call 0x0,0x3
00fe c5ff | | Store 0x2,-0x1
00ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0104 0227 | ' | Execute Access,All_Reference
0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0106 0f00 | | Execute_Immediate Equal,0x0
0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 011a | | .CONST 0x011a ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0004 | | .CONST 0x0004 ; Number of locals
010b INIT_0108:
010b 00db | | Load_Top At_Offset_3
010c 823a | : | Call 0x1,0x3a
010d 00e3 | | Load_Encached Natural_Cache
010e 03f1 | | Declare_Variable Discrete,With_Value
010f e226 | & | Load 0x1,0x26
0110 0007 | | Action Break_Optional
0111 e226 | & | Load 0x1,0x26
0112 00da | | Load_Top At_Offset_2
0113 e210 | | Load 0x1,0x10
0114 026f | o | Execute Discrete,Remainder
0115 e5ff | | Load 0x2,-0x1
0116 0227 | ' | Execute Access,All_Reference
0117 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0118 01d7 | | Execute Vector,Field_Read
0119 0039 | 9 | Store_Top Access,At_Offset_1
011a BODY_0108:
011a 00d8 | | Load_Top At_Offset_0
011b e226 | & | Load 0x1,0x26
011c e5fe | | Load 0x2,-0x2
011d e402 | | Load 0x2,0x2
011e 823c | < | Call 0x1,0x3c
011f 003b | ; | Store_Top Access,At_Offset_3
0120 0039 | 9 | Store_Top Access,At_Offset_1
0121 00d8 | | Load_Top At_Offset_0
0122 6807 |h | Jump_Zero 0x12a
0123 00d8 | | Load_Top At_Offset_0
0124 0227 | ' | Execute Access,All_Reference
0125 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0126 c5fd | | Store 0x2,-0x3
0127 4801 |H | Short_Literal 0x1
0128 a5fc | | Store_Unchecked 0x2,-0x4
0129 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012a 4800 |H | Short_Literal 0x0
012b a5fc | | Store_Unchecked 0x2,-0x4
012c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0142 | B | .CONST 0x0142 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0004 | | .CONST 0x0004 ; Number of locals
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 823a | : | Call 0x1,0x3a
0135 00e3 | | Load_Encached Natural_Cache
0136 03f1 | | Declare_Variable Discrete,With_Value
0137 e226 | & | Load 0x1,0x26
0138 0007 | | Action Break_Optional
0139 e226 | & | Load 0x1,0x26
013a 00da | | Load_Top At_Offset_2
013b e210 | | Load 0x1,0x10
013c 026f | o | Execute Discrete,Remainder
013d e5ff | | Load 0x2,-0x1
013e 0227 | ' | Execute Access,All_Reference
013f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0140 01d7 | | Execute Vector,Field_Read
0141 0039 | 9 | Store_Top Access,At_Offset_1
0142 BODY_0130:
0142 00d8 | | Load_Top At_Offset_0
0143 e226 | & | Load 0x1,0x26
0144 e5fe | | Load 0x2,-0x2
0145 e402 | | Load 0x2,0x2
0146 823c | < | Call 0x1,0x3c
0147 003b | ; | Store_Top Access,At_Offset_3
0148 0039 | 9 | Store_Top Access,At_Offset_1
0149 00d8 | | Load_Top At_Offset_0
014a 680b |h | Jump_Zero 0x156
014b 00d8 | | Load_Top At_Offset_0
014c 0227 | ' | Execute Access,All_Reference
014d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014e 00d8 | | Load_Top At_Offset_0
014f 0120 | | Execute Any,Is_Value
0150 7002 |p | Jump_Nonzero 0x153
0151 00d8 | | Load_Top At_Offset_0
0152 011e | | Execute Any,Convert
0153 e20f | | Load 0x1,0xf
0154 0119 | | Execute Any,Check_In_Formal_Type
0155 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0156 e217 | | Load 0x1,0x17
0157 0257 | W | Execute Discrete,Raise
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 016a | j | .CONST 0x016a ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0004 | | .CONST 0x0004 ; Number of locals
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 823a | : | Call 0x1,0x3a
015d 00e3 | | Load_Encached Natural_Cache
015e 03f1 | | Declare_Variable Discrete,With_Value
015f e226 | & | Load 0x1,0x26
0160 0007 | | Action Break_Optional
0161 e226 | & | Load 0x1,0x26
0162 00da | | Load_Top At_Offset_2
0163 e210 | | Load 0x1,0x10
0164 026f | o | Execute Discrete,Remainder
0165 e5ff | | Load 0x2,-0x1
0166 0227 | ' | Execute Access,All_Reference
0167 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0168 01d7 | | Execute Vector,Field_Read
0169 0039 | 9 | Store_Top Access,At_Offset_1
016a BODY_0158:
016a 00d8 | | Load_Top At_Offset_0
016b e226 | & | Load 0x1,0x26
016c e5fe | | Load 0x2,-0x2
016d e402 | | Load 0x2,0x2
016e 823c | < | Call 0x1,0x3c
016f 003b | ; | Store_Top Access,At_Offset_3
0170 0039 | 9 | Store_Top Access,At_Offset_1
0171 00d8 | | Load_Top At_Offset_0
0172 6809 |h | Jump_Zero 0x17c
0173 e5fc | | Load 0x2,-0x4
0174 6805 |h | Jump_Zero 0x17a
0175 e5fd | | Load 0x2,-0x3
0176 00d9 | | Load_Top At_Offset_1
0177 0227 | ' | Execute Access,All_Reference
0178 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0179 4505 |E | Exit_Suprogram New_Top_Offset 0x5
017a e216 | | Load 0x1,0x16
017b 0257 | W | Execute Discrete,Raise
017c e225 | % | Load 0x1,0x25
017d 0322 | " | Declare_Variable Record
017e 00db | | Load_Top At_Offset_3
017f 00d9 | | Load_Top At_Offset_1
0180 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0181 e5fe | | Load 0x2,-0x2
0182 e229 | ) | Load 0x1,0x29
0183 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0184 00d9 | | Load_Top At_Offset_1
0185 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0186 e5fd | | Load 0x2,-0x3
0187 e225 | % | Load 0x1,0x25
0188 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0189 0119 | | Execute Any,Check_In_Formal_Type
018a 00d9 | | Load_Top At_Offset_1
018b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018c e226 | & | Load 0x1,0x26
018d 00d9 | | Load_Top At_Offset_1
018e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
018f e226 | & | Load 0x1,0x26
0190 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0191 0039 | 9 | Store_Top Access,At_Offset_1
0192 00da | | Load_Top At_Offset_2
0193 e210 | | Load 0x1,0x10
0194 026f | o | Execute Discrete,Remainder
0195 005b | [ | Store_Top Discrete,At_Offset_3
0196 00da | | Load_Top At_Offset_2
0197 e5ff | | Load 0x2,-0x1
0198 0227 | ' | Execute Access,All_Reference
0199 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
019a 01d7 | | Execute Vector,Field_Read
019b 00d9 | | Load_Top At_Offset_1
019c 0227 | ' | Execute Access,All_Reference
019d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
019e 00d8 | | Load_Top At_Offset_0
019f 00db | | Load_Top At_Offset_3
01a0 e5ff | | Load 0x2,-0x1
01a1 0227 | ' | Execute Access,All_Reference
01a2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01a3 01d6 | | Execute Vector,Field_Write
01a4 e211 | | Load 0x1,0x11
01a5 701a |p | Jump_Nonzero 0x1c0
01a6 00cf | | Action Mark_Auxiliary
01a7 00d9 | | Load_Top At_Offset_1
01a8 0227 | ' | Execute Access,All_Reference
01a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01aa 0227 | ' | Execute Access,All_Reference
01ab 01d9 | | Execute Vector,Reverse_Bounds
01ac 0263 | c | Execute Discrete,Above_Bound
01ad 7011 |p | Jump_Nonzero 0x1bf
01ae 00d8 | | Load_Top At_Offset_0
01af e404 | | Load 0x2,0x4
01b0 0227 | ' | Execute Access,All_Reference
01b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b2 0227 | ' | Execute Access,All_Reference
01b3 01d7 | | Execute Vector,Field_Read
01b4 e00a | | Load 0x0,0xa
01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b6 01d7 | | Execute Vector,Field_Read
01b7 00d9 | | Load_Top At_Offset_1
01b8 e404 | | Load 0x2,0x4
01b9 0227 | ' | Execute Access,All_Reference
01ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bb 0227 | ' | Execute Access,All_Reference
01bc 01d6 | | Execute Vector,Field_Write
01bd 00c8 | | Action Pop_Auxiliary_Range
01be 3fef |? | Loop_Increasing 0x1ae
01bf 00ce | | Action Pop_Auxiliary
01c0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c1 0000 0000 | | .BLANK 0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01dd | | .CONST 0x01dd ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0005 | | .CONST 0x0005 ; Number of locals
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 823a | : | Call 0x1,0x3a
01cd 00e3 | | Load_Encached Natural_Cache
01ce 03f1 | | Declare_Variable Discrete,With_Value
01cf 00d8 | | Load_Top At_Offset_0
01d0 e210 | | Load 0x1,0x10
01d1 026f | o | Execute Discrete,Remainder
01d2 00e3 | | Load_Encached Natural_Cache
01d3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01d4 e226 | & | Load 0x1,0x26
01d5 0007 | | Action Break_Optional
01d6 e226 | & | Load 0x1,0x26
01d7 00da | | Load_Top At_Offset_2
01d8 e5ff | | Load 0x2,-0x1
01d9 0227 | ' | Execute Access,All_Reference
01da 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01db 01d7 | | Execute Vector,Field_Read
01dc 0039 | 9 | Store_Top Access,At_Offset_1
01dd BODY_01c8:
01dd 00d8 | | Load_Top At_Offset_0
01de e226 | & | Load 0x1,0x26
01df e5fe | | Load 0x2,-0x2
01e0 e402 | | Load 0x2,0x2
01e1 823c | < | Call 0x1,0x3c
01e2 003b | ; | Store_Top Access,At_Offset_3
01e3 0039 | 9 | Store_Top Access,At_Offset_1
01e4 00d8 | | Load_Top At_Offset_0
01e5 6823 |h# | Jump_Zero 0x209
01e6 00d9 | | Load_Top At_Offset_1
01e7 7009 |p | Jump_Nonzero 0x1f1
01e8 00d8 | | Load_Top At_Offset_0
01e9 0227 | ' | Execute Access,All_Reference
01ea 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01eb 00db | | Load_Top At_Offset_3
01ec e5ff | | Load 0x2,-0x1
01ed 0227 | ' | Execute Access,All_Reference
01ee 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ef 01d6 | | Execute Vector,Field_Write
01f0 7806 |x | Jump 0x1f7
01f1 00d8 | | Load_Top At_Offset_0
01f2 0227 | ' | Execute Access,All_Reference
01f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01f4 00da | | Load_Top At_Offset_2
01f5 0227 | ' | Execute Access,All_Reference
01f6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f7 00d8 | | Load_Top At_Offset_0
01f8 0229 | ) | Execute Access,All_Read
01f9 00d8 | | Load_Top At_Offset_0
01fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fb e22b | + | Load 0x1,0x2b
01fc e22c | , | Load 0x1,0x2c
01fd 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01fe 8003 | | Call 0x0,0x3
01ff 00d9 | | Load_Top At_Offset_1
0200 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0201 00d1 | | Pop_Control Pop_Count_1
0202 00d8 | | Load_Top At_Offset_0
0203 e230 | 0 | Load 0x1,0x30
0204 e231 | 1 | Load 0x1,0x31
0205 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0206 8003 | | Call 0x0,0x3
0207 0039 | 9 | Store_Top Access,At_Offset_1
0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0209 e5fd | | Load 0x2,-0x3
020a 6801 |h | Jump_Zero 0x20c
020b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
020c e217 | | Load 0x1,0x17
020d 0257 | W | Execute Discrete,Raise
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0225 | % | .CONST 0x0225 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0005 | | .CONST 0x0005 ; Number of locals
0213 INIT_0210:
0213 00db | | Load_Top At_Offset_3
0214 823a | : | Call 0x1,0x3a
0215 00e3 | | Load_Encached Natural_Cache
0216 03f1 | | Declare_Variable Discrete,With_Value
0217 00d8 | | Load_Top At_Offset_0
0218 e210 | | Load 0x1,0x10
0219 026f | o | Execute Discrete,Remainder
021a 00e3 | | Load_Encached Natural_Cache
021b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
021c e226 | & | Load 0x1,0x26
021d 0007 | | Action Break_Optional
021e e226 | & | Load 0x1,0x26
021f 00da | | Load_Top At_Offset_2
0220 e5ff | | Load 0x2,-0x1
0221 0227 | ' | Execute Access,All_Reference
0222 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0223 01d7 | | Execute Vector,Field_Read
0224 0039 | 9 | Store_Top Access,At_Offset_1
0225 BODY_0210:
0225 00d8 | | Load_Top At_Offset_0
0226 e226 | & | Load 0x1,0x26
0227 e5fe | | Load 0x2,-0x2
0228 e402 | | Load 0x2,0x2
0229 823c | < | Call 0x1,0x3c
022a 003b | ; | Store_Top Access,At_Offset_3
022b 0039 | 9 | Store_Top Access,At_Offset_1
022c 00d8 | | Load_Top At_Offset_0
022d 6829 |h) | Jump_Zero 0x257
022e 00d9 | | Load_Top At_Offset_1
022f 7009 |p | Jump_Nonzero 0x239
0230 00d8 | | Load_Top At_Offset_0
0231 0227 | ' | Execute Access,All_Reference
0232 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0233 00db | | Load_Top At_Offset_3
0234 e5ff | | Load 0x2,-0x1
0235 0227 | ' | Execute Access,All_Reference
0236 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0237 01d6 | | Execute Vector,Field_Write
0238 7806 |x | Jump 0x23f
0239 00d8 | | Load_Top At_Offset_0
023a 0227 | ' | Execute Access,All_Reference
023b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
023c 00da | | Load_Top At_Offset_2
023d 0227 | ' | Execute Access,All_Reference
023e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
023f 00d8 | | Load_Top At_Offset_0
0240 0227 | ' | Execute Access,All_Reference
0241 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0242 c5fd | | Store 0x2,-0x3
0243 00d8 | | Load_Top At_Offset_0
0244 0229 | ) | Execute Access,All_Read
0245 00d8 | | Load_Top At_Offset_0
0246 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0247 e22b | + | Load 0x1,0x2b
0248 e22c | , | Load 0x1,0x2c
0249 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
024a 8003 | | Call 0x0,0x3
024b 00d9 | | Load_Top At_Offset_1
024c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
024d 00d1 | | Pop_Control Pop_Count_1
024e 00d8 | | Load_Top At_Offset_0
024f e230 | 0 | Load 0x1,0x30
0250 e231 | 1 | Load 0x1,0x31
0251 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0252 8003 | | Call 0x0,0x3
0253 0039 | 9 | Store_Top Access,At_Offset_1
0254 4801 |H | Short_Literal 0x1
0255 a5fc | | Store_Unchecked 0x2,-0x4
0256 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0257 4800 |H | Short_Literal 0x0
0258 a5fc | | Store_Unchecked 0x2,-0x4
0259 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 e5fe | | Load 0x2,-0x2
0265 0227 | ' | Execute Access,All_Reference
0266 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0267 00cf | | Action Mark_Auxiliary
0268 e210 | | Load 0x1,0x10
0269 0aff | | Execute_Immediate Plus,-0x1
026a 4800 |H | Short_Literal 0x0
026b 0263 | c | Execute Discrete,Above_Bound
026c 7015 |p | Jump_Nonzero 0x282
026d 00d8 | | Load_Top At_Offset_0
026e e5ff | | Load 0x2,-0x1
026f 0227 | ' | Execute Access,All_Reference
0270 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0271 01d7 | | Execute Vector,Field_Read
0272 680d |h | Jump_Zero 0x280
0273 00d8 | | Load_Top At_Offset_0
0274 e5ff | | Load 0x2,-0x1
0275 0227 | ' | Execute Access,All_Reference
0276 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0277 01d7 | | Execute Vector,Field_Read
0278 e5fe | | Load 0x2,-0x2
0279 0227 | ' | Execute Access,All_Reference
027a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027b 00d8 | | Load_Top At_Offset_0
027c e5fe | | Load 0x2,-0x2
027d 0227 | ' | Execute Access,All_Reference
027e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0280 00c8 | | Action Pop_Auxiliary_Range
0281 3feb |? | Loop_Increasing 0x26d
0282 00ce | | Action Pop_Auxiliary
0283 e226 | & | Load 0x1,0x26
0284 e5fe | | Load 0x2,-0x2
0285 0227 | ' | Execute Access,All_Reference
0286 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0287 e210 | | Load 0x1,0x10
0288 e5fe | | Load 0x2,-0x2
0289 0227 | ' | Execute Access,All_Reference
028a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
028b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
0294 0227 | ' | Execute Access,All_Reference
0295 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0296 6802 |h | Jump_Zero 0x299
0297 4800 |H | Short_Literal 0x0
0298 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0299 4801 |H | Short_Literal 0x1
029a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 0227 | ' | Execute Access,All_Reference
02a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a6 7002 |p | Jump_Nonzero 0x2a9
02a7 e217 | | Load 0x1,0x17
02a8 0257 | W | Execute Discrete,Raise
02a9 00da | | Load_Top At_Offset_2
02aa 0227 | ' | Execute Access,All_Reference
02ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ac 0227 | ' | Execute Access,All_Reference
02ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ae 00d8 | | Load_Top At_Offset_0
02af 0120 | | Execute Any,Is_Value
02b0 7002 |p | Jump_Nonzero 0x2b3
02b1 00d8 | | Load_Top At_Offset_0
02b2 011e | | Execute Any,Convert
02b3 e20f | | Load 0x1,0xf
02b4 0119 | | Execute Any,Check_In_Formal_Type
02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b6 0000 0000 | | .XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd | | .CONST 0x02bd ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb e226 | & | Load 0x1,0x26
02bc 0007 | | Action Break_Optional
02bd BODY_02b8:
02bd 00db | | Load_Top At_Offset_3
02be 0227 | ' | Execute Access,All_Reference
02bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c0 7002 |p | Jump_Nonzero 0x2c3
02c1 e217 | | Load 0x1,0x17
02c2 0257 | W | Execute Discrete,Raise
02c3 00db | | Load_Top At_Offset_3
02c4 0227 | ' | Execute Access,All_Reference
02c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c6 0227 | ' | Execute Access,All_Reference
02c7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02c8 6809 |h | Jump_Zero 0x2d2
02c9 00db | | Load_Top At_Offset_3
02ca 0227 | ' | Execute Access,All_Reference
02cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02cc 0227 | ' | Execute Access,All_Reference
02cd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ce e5ff | | Load 0x2,-0x1
02cf 0227 | ' | Execute Access,All_Reference
02d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d2 00cf | | Action Mark_Auxiliary
02d3 e210 | | Load 0x1,0x10
02d4 0aff | | Execute_Immediate Plus,-0x1
02d5 e5ff | | Load 0x2,-0x1
02d6 0227 | ' | Execute Access,All_Reference
02d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d8 0a01 | | Execute_Immediate Plus,0x1
02d9 0263 | c | Execute Discrete,Above_Bound
02da 7019 |p | Jump_Nonzero 0x2f4
02db 00d8 | | Load_Top At_Offset_0
02dc e5ff | | Load 0x2,-0x1
02dd 0227 | ' | Execute Access,All_Reference
02de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02df 0227 | ' | Execute Access,All_Reference
02e0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02e1 01d7 | | Execute Vector,Field_Read
02e2 680f |h | Jump_Zero 0x2f2
02e3 00d8 | | Load_Top At_Offset_0
02e4 e5ff | | Load 0x2,-0x1
02e5 0227 | ' | Execute Access,All_Reference
02e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e7 0227 | ' | Execute Access,All_Reference
02e8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02e9 01d7 | | Execute Vector,Field_Read
02ea e5ff | | Load 0x2,-0x1
02eb 0227 | ' | Execute Access,All_Reference
02ec 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ed 00d8 | | Load_Top At_Offset_0
02ee e5ff | | Load 0x2,-0x1
02ef 0227 | ' | Execute Access,All_Reference
02f0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f2 00c8 | | Action Pop_Auxiliary_Range
02f3 3fe7 |? | Loop_Increasing 0x2db
02f4 00ce | | Action Pop_Auxiliary
02f5 e226 | & | Load 0x1,0x26
02f6 e5ff | | Load 0x2,-0x1
02f7 0227 | ' | Execute Access,All_Reference
02f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02fa 0000 0000 | | .BLANK 0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 4608 |F | Jump_Case 0x9
0304 7808 |x | Jump 0x30d ; case 0x0
0305 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0306 780a |x | Jump 0x311 ; case 0x2
0307 7809 |x | Jump 0x311 ; case 0x3
0308 7808 |x | Jump 0x311 ; case 0x4
0309 7807 |x | Jump 0x311 ; case 0x5
030a 7806 |x | Jump 0x311 ; case 0x6
030b 7805 |x | Jump 0x311 ; case 0x7
030c 7804 |x | Jump 0x311 ; case 0x8
030d 4800 |H | Short_Literal 0x0
030e 00db | | Load_Top At_Offset_3
030f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0310 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0311 0869 | i | Execute_Immediate Raise,0x69
0312 0000 0000 | | .BLANK 0000[0x6]
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 4608 |F | Jump_Case 0x9
031c 7808 |x | Jump 0x325 ; case 0x0
031d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
031e 7810 |x | Jump 0x32f ; case 0x2
031f 780f |x | Jump 0x32f ; case 0x3
0320 780e |x | Jump 0x32f ; case 0x4
0321 780d |x | Jump 0x32f ; case 0x5
0322 780c |x | Jump 0x32f ; case 0x6
0323 780b |x | Jump 0x32f ; case 0x7
0324 780a |x | Jump 0x32f ; case 0x8
0325 4800 |H | Short_Literal 0x0
0326 00db | | Load_Top At_Offset_3
0327 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0328 00da | | Load_Top At_Offset_2
0329 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
032a 0125 | % | Execute Any,Set_Constraint
032b 00da | | Load_Top At_Offset_2
032c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
032d 1c00 | | Execute_Immediate Run_Utility,0x0
032e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
032f 0869 | i | Execute_Immediate Raise,0x69
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 4608 |F | Jump_Case 0x9
0334 7808 |x | Jump 0x33d ; case 0x0
0335 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0336 7820 |x | Jump 0x357 ; case 0x2
0337 781f |x | Jump 0x357 ; case 0x3
0338 781e |x | Jump 0x357 ; case 0x4
0339 781d |x | Jump 0x357 ; case 0x5
033a 781c |x | Jump 0x357 ; case 0x6
033b 781b |x | Jump 0x357 ; case 0x7
033c 781a |x | Jump 0x357 ; case 0x8
033d 4800 |H | Short_Literal 0x0
033e 00db | | Load_Top At_Offset_3
033f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0340 4800 |H | Short_Literal 0x0
0341 e210 | | Load 0x1,0x10
0342 0aff | | Execute_Immediate Plus,-0x1
0343 e22a | * | Load 0x1,0x2a
0344 0334 | 4 | Declare_Variable Array,With_Constraint
0345 00d8 | | Load_Top At_Offset_0
0346 01dc | | Execute Vector,Last
0347 4800 |H | Short_Literal 0x0
0348 0263 | c | Execute Discrete,Above_Bound
0349 7005 |p | Jump_Nonzero 0x34f
034a e226 | & | Load 0x1,0x26
034b 00d9 | | Load_Top At_Offset_1
034c e402 | | Load 0x2,0x2
034d 01d6 | | Execute Vector,Field_Write
034e 3ffb |? | Loop_Increasing 0x34a
034f 00db | | Load_Top At_Offset_3
0350 00d9 | | Load_Top At_Offset_1
0351 00d9 | | Load_Top At_Offset_1
0352 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0353 0119 | | Execute Any,Check_In_Formal_Type
0354 00d1 | | Pop_Control Pop_Count_1
0355 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0356 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0357 0869 | i | Execute_Immediate Raise,0x69
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0361 | a | .CONST 0x0361 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0003 | | .CONST 0x0003 ; Number of locals
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 01da | | Execute Vector,Bounds
035d e228 | ( | Load 0x1,0x28
035e 0334 | 4 | Declare_Variable Array,With_Constraint
035f 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
0361 BODY_0358:
0361 e211 | | Load 0x1,0x11
0362 680f |h | Jump_Zero 0x372
0363 00cf | | Action Mark_Auxiliary
0364 e5ff | | Load 0x2,-0x1
0365 01d9 | | Execute Vector,Reverse_Bounds
0366 0263 | c | Execute Discrete,Above_Bound
0367 7008 |p | Jump_Nonzero 0x370
0368 00d8 | | Load_Top At_Offset_0
0369 e5ff | | Load 0x2,-0x1
036a 01d7 | | Execute Vector,Field_Read
036b 00d9 | | Load_Top At_Offset_1
036c e402 | | Load 0x2,0x2
036d 01d6 | | Execute Vector,Field_Write
036e 00c8 | | Action Pop_Auxiliary_Range
036f 3ff8 |? | Loop_Increasing 0x368
0370 00ce | | Action Pop_Auxiliary
0371 7811 |x | Jump 0x383
0372 00cf | | Action Mark_Auxiliary
0373 e5ff | | Load 0x2,-0x1
0374 01d9 | | Execute Vector,Reverse_Bounds
0375 0263 | c | Execute Discrete,Above_Bound
0376 700b |p | Jump_Nonzero 0x382
0377 00d8 | | Load_Top At_Offset_0
0378 e5ff | | Load 0x2,-0x1
0379 01d7 | | Execute Vector,Field_Read
037a e00a | | Load 0x0,0xa
037b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037c 01d7 | | Execute Vector,Field_Read
037d 00d9 | | Load_Top At_Offset_1
037e e402 | | Load 0x2,0x2
037f 01d6 | | Execute Vector,Field_Write
0380 00c8 | | Action Pop_Auxiliary_Range
0381 3ff5 |? | Loop_Increasing 0x377
0382 00ce | | Action Pop_Auxiliary
0383 e5ff | | Load 0x2,-0x1
0384 01db | | Execute Vector,Length
0385 0b00 | | Execute_Immediate Case_Compare,0x0
0386 700a |p | Jump_Nonzero 0x391
0387 0b01 | | Execute_Immediate Case_Compare,0x1
0388 700a |p | Jump_Nonzero 0x393
0389 0b02 | | Execute_Immediate Case_Compare,0x2
038a 700d |p | Jump_Nonzero 0x398
038b 0b03 | | Execute_Immediate Case_Compare,0x3
038c 7018 |p | Jump_Nonzero 0x3a5
038d 0b04 | | Execute_Immediate Case_Compare,0x4
038e 702a |p* | Jump_Nonzero 0x3b9
038f 8403 | | Call 0x2,0x3
0390 7843 |xC | Jump 0x3d4
0391 4800 |H | Short_Literal 0x0
0392 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0393 00da | | Load_Top At_Offset_2
0394 01dd | | Execute Vector,First
0395 00db | | Load_Top At_Offset_3
0396 01d7 | | Execute Vector,Field_Read
0397 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0398 00da | | Load_Top At_Offset_2
0399 01dd | | Execute Vector,First
039a 00db | | Load_Top At_Offset_3
039b 01d7 | | Execute Vector,Field_Read
039c 0907 | | Execute_Immediate Binary_Scale,0x7
039d 00db | | Load_Top At_Offset_3
039e 01dc | | Execute Vector,Last
039f e402 | | Load 0x2,0x2
03a0 01d7 | | Execute Vector,Field_Read
03a1 0273 | s | Execute Discrete,Plus
03a2 00e3 | | Load_Encached Natural_Cache
03a3 025b | [ | Execute Discrete,Check_In_Type
03a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a5 00da | | Load_Top At_Offset_2
03a6 01dd | | Execute Vector,First
03a7 00db | | Load_Top At_Offset_3
03a8 01d7 | | Execute Vector,Field_Read
03a9 090e | | Execute_Immediate Binary_Scale,0xe
03aa 00db | | Load_Top At_Offset_3
03ab 01dd | | Execute Vector,First
03ac 0a01 | | Execute_Immediate Plus,0x1
03ad e402 | | Load 0x2,0x2
03ae 01d7 | | Execute Vector,Field_Read
03af 0907 | | Execute_Immediate Binary_Scale,0x7
03b0 0273 | s | Execute Discrete,Plus
03b1 00db | | Load_Top At_Offset_3
03b2 01dc | | Execute Vector,Last
03b3 e402 | | Load 0x2,0x2
03b4 01d7 | | Execute Vector,Field_Read
03b5 0273 | s | Execute Discrete,Plus
03b6 00e3 | | Load_Encached Natural_Cache
03b7 025b | [ | Execute Discrete,Check_In_Type
03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b9 00da | | Load_Top At_Offset_2
03ba 01dd | | Execute Vector,First
03bb 00db | | Load_Top At_Offset_3
03bc 01d7 | | Execute Vector,Field_Read
03bd 0915 | | Execute_Immediate Binary_Scale,0x15
03be 00db | | Load_Top At_Offset_3
03bf 01dd | | Execute Vector,First
03c0 0a01 | | Execute_Immediate Plus,0x1
03c1 e402 | | Load 0x2,0x2
03c2 01d7 | | Execute Vector,Field_Read
03c3 090e | | Execute_Immediate Binary_Scale,0xe
03c4 0273 | s | Execute Discrete,Plus
03c5 00db | | Load_Top At_Offset_3
03c6 01dd | | Execute Vector,First
03c7 0a02 | | Execute_Immediate Plus,0x2
03c8 e402 | | Load 0x2,0x2
03c9 01d7 | | Execute Vector,Field_Read
03ca 0907 | | Execute_Immediate Binary_Scale,0x7
03cb 0273 | s | Execute Discrete,Plus
03cc 00db | | Load_Top At_Offset_3
03cd 01dc | | Execute Vector,Last
03ce e402 | | Load 0x2,0x2
03cf 01d7 | | Execute Vector,Field_Read
03d0 0273 | s | Execute Discrete,Plus
03d1 00e3 | | Load_Encached Natural_Cache
03d2 025b | [ | Execute Discrete,Check_In_Type
03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d4 00d1 | | Pop_Control Pop_Count_1
03d5 0831 | 1 | Execute_Immediate Raise,0x31
03d6 0000 0000 | | .XXX[0x2]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e3 | | .CONST 0x03e3 ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0003 | | .CONST 0x0003 ; Number of locals
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 01dd | | Execute Vector,First
03dd 00e3 | | Load_Encached Natural_Cache
03de 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03df e5fe | | Load 0x2,-0x2
03e0 01dd | | Execute Vector,First
03e1 00e3 | | Load_Encached Natural_Cache
03e2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03e3 BODY_03d8:
03e3 e5ff | | Load 0x2,-0x1
03e4 01db | | Execute Vector,Length
03e5 e5fe | | Load 0x2,-0x2
03e6 01db | | Execute Vector,Length
03e7 027e | ~ | Execute Discrete,Not_Equal
03e8 6802 |h | Jump_Zero 0x3eb
03e9 4800 |H | Short_Literal 0x0
03ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03eb 00cf | | Action Mark_Auxiliary
03ec e5ff | | Load 0x2,-0x1
03ed 01db | | Execute Vector,Length
03ee 0aff | | Execute_Immediate Plus,-0x1
03ef 4800 |H | Short_Literal 0x0
03f0 00e3 | | Load_Encached Natural_Cache
03f1 025c | \ | QQucode_0x025c
03f2 0263 | c | Execute Discrete,Above_Bound
03f3 7013 |p | Jump_Nonzero 0x407
03f4 e402 | | Load 0x2,0x2
03f5 00d9 | | Load_Top At_Offset_1
03f6 0273 | s | Execute Discrete,Plus
03f7 e5ff | | Load 0x2,-0x1
03f8 01d7 | | Execute Vector,Field_Read
03f9 e00a | | Load 0x0,0xa
03fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fb 01d7 | | Execute Vector,Field_Read
03fc e403 | | Load 0x2,0x3
03fd 00da | | Load_Top At_Offset_2
03fe 0273 | s | Execute Discrete,Plus
03ff e5fe | | Load 0x2,-0x2
0400 01d7 | | Execute Vector,Field_Read
0401 027e | ~ | Execute Discrete,Not_Equal
0402 6802 |h | Jump_Zero 0x405
0403 4800 |H | Short_Literal 0x0
0404 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0405 00c8 | | Action Pop_Auxiliary_Range
0406 3fed |? | Loop_Increasing 0x3f4
0407 00ce | | Action Pop_Auxiliary
0408 4801 |H | Short_Literal 0x1
0409 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
040a 0000 0000 | | .BLANK 0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0416 | | .CONST 0x0416 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e226 | & | Load 0x1,0x26
0414 e5fc | | Load 0x2,-0x4
0415 0039 | 9 | Store_Top Access,At_Offset_1
0416 BODY_0410:
0416 e226 | & | Load 0x1,0x26
0417 a5fd | | Store_Unchecked 0x2,-0x3
0418 00cf | | Action Mark_Auxiliary
0419 7823 |x# | Jump 0x43d
041a 00d9 | | Load_Top At_Offset_1
041b 0227 | ' | Execute Access,All_Reference
041c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
041d e5ff | | Load 0x2,-0x1
041e 027f | | Execute Discrete,Equal
041f 6816 |h | Jump_Zero 0x436
0420 e211 | | Load 0x1,0x11
0421 680a |h | Jump_Zero 0x42c
0422 00d9 | | Load_Top At_Offset_1
0423 0227 | ' | Execute Access,All_Reference
0424 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0425 0227 | ' | Execute Access,All_Reference
0426 e5fe | | Load 0x2,-0x2
0427 01df | | Execute Vector,Equal
0428 680d |h | Jump_Zero 0x436
0429 00d9 | | Load_Top At_Offset_1
042a a5fc | | Store_Unchecked 0x2,-0x4
042b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
042c 00d9 | | Load_Top At_Offset_1
042d 0227 | ' | Execute Access,All_Reference
042e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
042f 0227 | ' | Execute Access,All_Reference
0430 e5fe | | Load 0x2,-0x2
0431 823b | ; | Call 0x1,0x3b
0432 6803 |h | Jump_Zero 0x436
0433 00d9 | | Load_Top At_Offset_1
0434 a5fc | | Store_Unchecked 0x2,-0x4
0435 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0436 00d9 | | Load_Top At_Offset_1
0437 a5fd | | Store_Unchecked 0x2,-0x3
0438 00d9 | | Load_Top At_Offset_1
0439 0227 | ' | Execute Access,All_Reference
043a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
043b 003a | : | Store_Top Access,At_Offset_2
043c 00c9 | | Action Pop_Auxiliary_Loop
043d 00d9 | | Load_Top At_Offset_1
043e 77db |w | Jump_Nonzero 0x41a
043f 00ce | | Action Pop_Auxiliary
0440 e226 | & | Load 0x1,0x26
0441 a5fc | | Store_Unchecked 0x2,-0x4
0442 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0443 0000 0000 | | .BLANK 0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0451 | Q | .CONST 0x0451 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0003 | | .CONST 0x0003 ; Number of locals
044b INIT_0448:
044b e402 | | Load 0x2,0x2
044c 01dd | | Execute Vector,First
044d 00e3 | | Load_Encached Natural_Cache
044e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
044f 00e3 | | Load_Encached Natural_Cache
0450 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0451 BODY_0448:
0451 00cf | | Action Mark_Auxiliary
0452 7824 |x$ | Jump 0x477
0453 00d9 | | Load_Top At_Offset_1
0454 603b |`; | Indirect_Literal Discrete,0x490,{0x00000000, 0x6fffffff}
0455 027d | } | Execute Discrete,Greater
0456 6804 |h | Jump_Zero 0x45b
0457 00d9 | | Load_Top At_Offset_1
0458 4803 |H | Short_Literal 0x3
0459 0270 | p | Execute Discrete,Divide
045a 005a | Z | Store_Top Discrete,At_Offset_2
045b 00d9 | | Load_Top At_Offset_1
045c 00db | | Load_Top At_Offset_3
045d e402 | | Load 0x2,0x2
045e 01d7 | | Execute Vector,Field_Read
045f 0915 | | Execute_Immediate Binary_Scale,0x15
0460 0273 | s | Execute Discrete,Plus
0461 00db | | Load_Top At_Offset_3
0462 0a01 | | Execute_Immediate Plus,0x1
0463 e402 | | Load 0x2,0x2
0464 01d7 | | Execute Vector,Field_Read
0465 090e | | Execute_Immediate Binary_Scale,0xe
0466 0273 | s | Execute Discrete,Plus
0467 00db | | Load_Top At_Offset_3
0468 0a02 | | Execute_Immediate Plus,0x2
0469 e402 | | Load 0x2,0x2
046a 01d7 | | Execute Vector,Field_Read
046b 0907 | | Execute_Immediate Binary_Scale,0x7
046c 0273 | s | Execute Discrete,Plus
046d 00db | | Load_Top At_Offset_3
046e 0a03 | | Execute_Immediate Plus,0x3
046f e402 | | Load 0x2,0x2
0470 01d7 | | Execute Vector,Field_Read
0471 0273 | s | Execute Discrete,Plus
0472 005a | Z | Store_Top Discrete,At_Offset_2
0473 00da | | Load_Top At_Offset_2
0474 0a04 | | Execute_Immediate Plus,0x4
0475 005b | [ | Store_Top Discrete,At_Offset_3
0476 00c9 | | Action Pop_Auxiliary_Loop
0477 00da | | Load_Top At_Offset_2
0478 0a03 | | Execute_Immediate Plus,0x3
0479 e402 | | Load 0x2,0x2
047a 01dc | | Execute Vector,Last
047b 027a | z | Execute Discrete,Less_Equal
047c 77d6 |w | Jump_Nonzero 0x453
047d 00c9 | | Action Pop_Auxiliary_Loop
047e e402 | | Load 0x2,0x2
047f 01dc | | Execute Vector,Last
0480 00db | | Load_Top At_Offset_3
0481 0263 | c | Execute Discrete,Above_Bound
0482 7008 |p | Jump_Nonzero 0x48b
0483 00db | | Load_Top At_Offset_3
0484 00d9 | | Load_Top At_Offset_1
0485 e402 | | Load 0x2,0x2
0486 01d7 | | Execute Vector,Field_Read
0487 0273 | s | Execute Discrete,Plus
0488 c603 | | Store 0x3,0x3
0489 00c8 | | Action Pop_Auxiliary_Range
048a 3ff8 |? | Loop_Increasing 0x483
048b 00ce | | Action Pop_Auxiliary
048c 00d8 | | Load_Top At_Offset_0
048d 00cb | | Action Pop_Block_With_Result
048e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048f 0000 | | .XXX[0x1]
0490 0000 0000 | | .LITERAL {0x00000000, 0x6fffffff}
0494 0000 0000 | | .BLANK 0000[0x4]
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug Table
0498 ; --------------------------------------------------------------------------------------
0498 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa8f8,0x0000,0x0001,0x0000
049e 0000 0000 | | .BLANK 0000[0xd6]
0574 6810 0100 |h | .XXX[0x8c]
0576 0000 0002 | |
0578 0000 000a | |
057a 888a 84aa | |
057c 8f63 6b61 | cka|
057e 0000 0681 | |
0580 001f 0000 | |
0582 0000 2000 | |
0584 0002 e428 | (|
0586 69e9 a9a8 |i |
0588 29c8 8a65 |) e|
058a ca6b 2a6a | k*j|
058c 88a9 abe8 | |
058e 4828 696a |H(ij|
0590 aa10 0000 | |
0592 6810 0150 |h P|
0594 0000 0002 | |
0596 0000 001a | |
0598 a6b2 a6a8 | |
059a 8a9a be84 | |
059c 8286 96aa | |
059e a100 0006 | |
05a0 8100 1900 | |
05a2 0000 0020 | |
05a4 0000 0224 | $|
05a6 2869 e9a9 |(i |
05a8 a829 c88a | ) |
05aa 65c8 69e9 |e i |
05ac a9a8 29c8 | ) |
05ae 9000 0068 | h|
05b0 1001 0000 | |
05b2 0000 0200 | |
05b4 0000 0e86 | |
05b6 9e9a 9a82 | |
05b8 9c88 6700 | g |
05ba 0006 8100 | |
05bc 1a00 0000 | |
05be 0020 0000 | |
05c0 0244 2869 | D(i|
05c2 e9a9 a829 | )|
05c4 c88a 65ca | e |
05c6 88aa 49a9 | I |
05c8 29c8 2990 |) ) |
05ca 0000 6810 | h |
05cc 0100 0000 | |
05ce 0002 0000 | |
05d0 0010 a88a | |
05d2 a49a 929c | |
05d4 8299 0000 | |
05d6 0681 0010 | |
05d8 0000 0000 | |
05da 2000 0000 | |
05dc c429 29e5 | )) |
05de c929 f465 | ) e|
05e0 3000 0068 |0 h|
05e2 1001 0000 | |
05e4 0000 0200 | |
05e6 0000 0492 | |
05e8 9e4a 002b | J +|
05ea 2020 2100 | ! |
05ec 0006 8100 | |
05ee 2500 0000 |% |
05f0 0020 0000 | |
05f2 03a4 2929 | ))|
05f4 aa09 88a9 | |
05f6 a8a9 ca88 | |
05f8 2a89 29e9 |* ) |
05fa c5c8 8928 | (|
05fc 29c8 2bea |) + |
05fe 48a9 c829 |H )|