|
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_0534f8
└─⟦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 04a0 | | .CONST 0x04a0 ; 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 00a8 | | .CONST 0x00a8 ; 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 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0023 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0025 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0027 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0029 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
002b 029a 02b3 | | Declare_Subprogram INIT_02b0,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 048b | | Declare_Subprogram INIT_0488,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 00bf | | Action Accept_Activation
004f 00e3 | | Load_Encached Natural_Cache
0050 0266 | f | Execute Discrete,Bounds
0051 00e3 | | Load_Encached Natural_Cache
0052 02a0 | | Declare_Subprogram Null_Subprogram
0053 4801 |H | Short_Literal 0x1
0054 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0055 00e9 | | Load_Encached String_Cache
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 4818 |H | Short_Literal 0x18
0058 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0059 00d8 | | Load_Top At_Offset_0
005a 0221 | ! | Execute Access,Allow_Deallocate
005b 00e3 | | Load_Encached Natural_Cache
005c 00d9 | | Load_Top At_Offset_1
005d e20f | | Load 0x1,0xf
005e e226 | & | Load 0x1,0x26
005f 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0061 e225 | % | Load 0x1,0x25
0062 0326 | & | Complete_Type Record,By_Defining
0063 4800 |H | Short_Literal 0x0
0064 e210 | | Load 0x1,0x10
0065 0aff | | Execute_Immediate Plus,-0x1
0066 00e3 | | Load_Encached Natural_Cache
0067 025d | ] | Execute Discrete,Bounds_Check
0068 e226 | & | Load 0x1,0x26
0069 02a0 | | Declare_Subprogram Null_Subprogram
006a 4801 |H | Short_Literal 0x1
006b 035d | ] | Declare_Type Array,Defined
006c 00e3 | | Load_Encached Natural_Cache
006d 00d9 | | Load_Top At_Offset_1
006e 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
0070 e224 | $ | Load 0x1,0x24
0071 0326 | & | Complete_Type Record,By_Defining
0072 a003 | | Store_Unchecked 0x0,0x3
0073 00c6 | | Action Check_Subprogram_Elaborated
0074 00e9 | | Load_Encached String_Cache
0075 00da | | Load_Top At_Offset_2
0076 e004 | | Load 0x0,0x4
0077 e005 | | Load 0x0,0x5
0078 4800 |H | Short_Literal 0x0
0079 0007 | | Action Break_Optional
007a a003 | | Store_Unchecked 0x0,0x3
007b 00c6 | | Action Check_Subprogram_Elaborated
007c e225 | % | Load 0x1,0x25
007d e226 | & | Load 0x1,0x26
007e e006 | | Load 0x0,0x6
007f e007 | | Load 0x0,0x7
0080 4800 |H | Short_Literal 0x0
0081 0007 | | Action Break_Optional
0082 a003 | | Store_Unchecked 0x0,0x3
0083 00c6 | | Action Check_Subprogram_Elaborated
0084 e224 | $ | Load 0x1,0x24
0085 e212 | | Load 0x1,0x12
0086 e008 | | Load 0x0,0x8
0087 e009 | | Load 0x0,0x9
0088 4800 |H | Short_Literal 0x0
0089 0007 | | Action Break_Optional
008a 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
008c 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
008e 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
0090 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0091 00c7 | | Action Elaborate_Subprogram
0092 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0093 00c7 | | Action Elaborate_Subprogram
0094 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0099 00c7 | | Action Elaborate_Subprogram
009a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009d 00c7 | | Action Elaborate_Subprogram
009e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a7 00c7 | | Action Elaborate_Subprogram
00a8 BODY_0008:
00a8 00bc | | Action Signal_Activated
00a9 00bb | | Action Signal_Completion
00aa 0000 0000 | | .BLANK 0000[0x6]
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 00d8 | | Load_Top At_Offset_0
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 0119 | | .CONST 0x0119 ; 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 00d9 | | Load_Top At_Offset_1
0112 e210 | | Load 0x1,0x10
0113 026f | o | Execute Discrete,Remainder
0114 e5ff | | Load 0x2,-0x1
0115 0227 | ' | Execute Access,All_Reference
0116 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0117 01d7 | | Execute Vector,Field_Read
0118 0007 | | Action Break_Optional
0119 BODY_0108:
0119 00d8 | | Load_Top At_Offset_0
011a e226 | & | Load 0x1,0x26
011b e5fe | | Load 0x2,-0x2
011c e402 | | Load 0x2,0x2
011d 823c | < | Call 0x1,0x3c
011e 003b | ; | Store_Top Access,At_Offset_3
011f 0039 | 9 | Store_Top Access,At_Offset_1
0120 00d8 | | Load_Top At_Offset_0
0121 6807 |h | Jump_Zero 0x129
0122 00d8 | | Load_Top At_Offset_0
0123 0227 | ' | Execute Access,All_Reference
0124 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0125 c5fd | | Store 0x2,-0x3
0126 4801 |H | Short_Literal 0x1
0127 a5fc | | Store_Unchecked 0x2,-0x4
0128 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0129 4800 |H | Short_Literal 0x0
012a a5fc | | Store_Unchecked 0x2,-0x4
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0141 | A | .CONST 0x0141 ; 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 00d9 | | Load_Top At_Offset_1
013a e210 | | Load 0x1,0x10
013b 026f | o | Execute Discrete,Remainder
013c e5ff | | Load 0x2,-0x1
013d 0227 | ' | Execute Access,All_Reference
013e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
013f 01d7 | | Execute Vector,Field_Read
0140 0007 | | Action Break_Optional
0141 BODY_0130:
0141 00d8 | | Load_Top At_Offset_0
0142 e226 | & | Load 0x1,0x26
0143 e5fe | | Load 0x2,-0x2
0144 e402 | | Load 0x2,0x2
0145 823c | < | Call 0x1,0x3c
0146 003b | ; | Store_Top Access,At_Offset_3
0147 0039 | 9 | Store_Top Access,At_Offset_1
0148 00d8 | | Load_Top At_Offset_0
0149 680b |h | Jump_Zero 0x155
014a 00d8 | | Load_Top At_Offset_0
014b 0227 | ' | Execute Access,All_Reference
014c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014d 00d8 | | Load_Top At_Offset_0
014e 0120 | | Execute Any,Is_Value
014f 7002 |p | Jump_Nonzero 0x152
0150 00d8 | | Load_Top At_Offset_0
0151 011e | | Execute Any,Convert
0152 e20f | | Load 0x1,0xf
0153 0119 | | Execute Any,Check_In_Formal_Type
0154 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0155 e217 | | Load 0x1,0x17
0156 0257 | W | Execute Discrete,Raise
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0169 | i | .CONST 0x0169 ; 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 00d9 | | Load_Top At_Offset_1
0162 e210 | | Load 0x1,0x10
0163 026f | o | Execute Discrete,Remainder
0164 e5ff | | Load 0x2,-0x1
0165 0227 | ' | Execute Access,All_Reference
0166 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0167 01d7 | | Execute Vector,Field_Read
0168 0007 | | Action Break_Optional
0169 BODY_0158:
0169 00d8 | | Load_Top At_Offset_0
016a e226 | & | Load 0x1,0x26
016b e5fe | | Load 0x2,-0x2
016c e402 | | Load 0x2,0x2
016d 823c | < | Call 0x1,0x3c
016e 003b | ; | Store_Top Access,At_Offset_3
016f 0039 | 9 | Store_Top Access,At_Offset_1
0170 00d8 | | Load_Top At_Offset_0
0171 6809 |h | Jump_Zero 0x17b
0172 e5fc | | Load 0x2,-0x4
0173 6805 |h | Jump_Zero 0x179
0174 e5fd | | Load 0x2,-0x3
0175 00d9 | | Load_Top At_Offset_1
0176 0227 | ' | Execute Access,All_Reference
0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0178 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0179 e216 | | Load 0x1,0x16
017a 0257 | W | Execute Discrete,Raise
017b e225 | % | Load 0x1,0x25
017c 0322 | " | Declare_Variable Record
017d 00db | | Load_Top At_Offset_3
017e 00d9 | | Load_Top At_Offset_1
017f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0180 e5fe | | Load 0x2,-0x2
0181 e229 | ) | Load 0x1,0x29
0182 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0183 00d9 | | Load_Top At_Offset_1
0184 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0185 e5fd | | Load 0x2,-0x3
0186 e225 | % | Load 0x1,0x25
0187 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0188 0119 | | Execute Any,Check_In_Formal_Type
0189 00d9 | | Load_Top At_Offset_1
018a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018b e226 | & | Load 0x1,0x26
018c 00d9 | | Load_Top At_Offset_1
018d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
018e e226 | & | Load 0x1,0x26
018f 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0190 0039 | 9 | Store_Top Access,At_Offset_1
0191 00da | | Load_Top At_Offset_2
0192 e210 | | Load 0x1,0x10
0193 026f | o | Execute Discrete,Remainder
0194 005b | [ | Store_Top Discrete,At_Offset_3
0195 00da | | Load_Top At_Offset_2
0196 e5ff | | Load 0x2,-0x1
0197 0227 | ' | Execute Access,All_Reference
0198 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0199 01d7 | | Execute Vector,Field_Read
019a 00d9 | | Load_Top At_Offset_1
019b 0227 | ' | Execute Access,All_Reference
019c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
019d 00d8 | | Load_Top At_Offset_0
019e 00db | | Load_Top At_Offset_3
019f e5ff | | Load 0x2,-0x1
01a0 0227 | ' | Execute Access,All_Reference
01a1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01a2 01d6 | | Execute Vector,Field_Write
01a3 e211 | | Load 0x1,0x11
01a4 701a |p | Jump_Nonzero 0x1bf
01a5 00cf | | Action Mark_Auxiliary
01a6 00d9 | | Load_Top At_Offset_1
01a7 0227 | ' | Execute Access,All_Reference
01a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a9 0227 | ' | Execute Access,All_Reference
01aa 01d9 | | Execute Vector,Reverse_Bounds
01ab 0263 | c | Execute Discrete,Above_Bound
01ac 7011 |p | Jump_Nonzero 0x1be
01ad 00d8 | | Load_Top At_Offset_0
01ae e404 | | Load 0x2,0x4
01af 0227 | ' | Execute Access,All_Reference
01b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b1 0227 | ' | Execute Access,All_Reference
01b2 01d7 | | Execute Vector,Field_Read
01b3 e00a | | Load 0x0,0xa
01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b5 01d7 | | Execute Vector,Field_Read
01b6 00d9 | | Load_Top At_Offset_1
01b7 e404 | | Load 0x2,0x4
01b8 0227 | ' | Execute Access,All_Reference
01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ba 0227 | ' | Execute Access,All_Reference
01bb 01d6 | | Execute Vector,Field_Write
01bc 00c8 | | Action Pop_Auxiliary_Range
01bd 3fef |? | Loop_Increasing 0x1ad
01be 00ce | | Action Pop_Auxiliary
01bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d4 | | .CONST 0x01d4 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0005 | | .CONST 0x0005 ; Number of locals
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3
01c4 823a | : | Call 0x1,0x3a
01c5 00e3 | | Load_Encached Natural_Cache
01c6 03f1 | | Declare_Variable Discrete,With_Value
01c7 00d8 | | Load_Top At_Offset_0
01c8 e210 | | Load 0x1,0x10
01c9 026f | o | Execute Discrete,Remainder
01ca 00e3 | | Load_Encached Natural_Cache
01cb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01cc e226 | & | Load 0x1,0x26
01cd 0007 | | Action Break_Optional
01ce 00d9 | | Load_Top At_Offset_1
01cf e5ff | | Load 0x2,-0x1
01d0 0227 | ' | Execute Access,All_Reference
01d1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d2 01d7 | | Execute Vector,Field_Read
01d3 0007 | | Action Break_Optional
01d4 BODY_01c0:
01d4 00d8 | | Load_Top At_Offset_0
01d5 e226 | & | Load 0x1,0x26
01d6 e5fe | | Load 0x2,-0x2
01d7 e402 | | Load 0x2,0x2
01d8 823c | < | Call 0x1,0x3c
01d9 003b | ; | Store_Top Access,At_Offset_3
01da 0039 | 9 | Store_Top Access,At_Offset_1
01db 00d8 | | Load_Top At_Offset_0
01dc 6823 |h# | Jump_Zero 0x200
01dd 00d9 | | Load_Top At_Offset_1
01de 7009 |p | Jump_Nonzero 0x1e8
01df 00d8 | | Load_Top At_Offset_0
01e0 0227 | ' | Execute Access,All_Reference
01e1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01e2 00db | | Load_Top At_Offset_3
01e3 e5ff | | Load 0x2,-0x1
01e4 0227 | ' | Execute Access,All_Reference
01e5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01e6 01d6 | | Execute Vector,Field_Write
01e7 7806 |x | Jump 0x1ee
01e8 00d8 | | Load_Top At_Offset_0
01e9 0227 | ' | Execute Access,All_Reference
01ea 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01eb 00da | | Load_Top At_Offset_2
01ec 0227 | ' | Execute Access,All_Reference
01ed 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ee 00d8 | | Load_Top At_Offset_0
01ef 0229 | ) | Execute Access,All_Read
01f0 00d8 | | Load_Top At_Offset_0
01f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f2 e22b | + | Load 0x1,0x2b
01f3 e22c | , | Load 0x1,0x2c
01f4 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01f5 8003 | | Call 0x0,0x3
01f6 00d9 | | Load_Top At_Offset_1
01f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f8 00d1 | | Pop_Control Pop_Count_1
01f9 00d8 | | Load_Top At_Offset_0
01fa e230 | 0 | Load 0x1,0x30
01fb e231 | 1 | Load 0x1,0x31
01fc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
01fd 8003 | | Call 0x0,0x3
01fe 0039 | 9 | Store_Top Access,At_Offset_1
01ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0200 e5fd | | Load 0x2,-0x3
0201 6801 |h | Jump_Zero 0x203
0202 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0203 e217 | | Load 0x1,0x17
0204 0257 | W | Execute Discrete,Raise
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021c | | .CONST 0x021c ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0005 | | .CONST 0x0005 ; Number of locals
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3
020c 823a | : | Call 0x1,0x3a
020d 00e3 | | Load_Encached Natural_Cache
020e 03f1 | | Declare_Variable Discrete,With_Value
020f 00d8 | | Load_Top At_Offset_0
0210 e210 | | Load 0x1,0x10
0211 026f | o | Execute Discrete,Remainder
0212 00e3 | | Load_Encached Natural_Cache
0213 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0214 e226 | & | Load 0x1,0x26
0215 0007 | | Action Break_Optional
0216 00d9 | | Load_Top At_Offset_1
0217 e5ff | | Load 0x2,-0x1
0218 0227 | ' | Execute Access,All_Reference
0219 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
021a 01d7 | | Execute Vector,Field_Read
021b 0007 | | Action Break_Optional
021c BODY_0208:
021c 00d8 | | Load_Top At_Offset_0
021d e226 | & | Load 0x1,0x26
021e e5fe | | Load 0x2,-0x2
021f e402 | | Load 0x2,0x2
0220 823c | < | Call 0x1,0x3c
0221 003b | ; | Store_Top Access,At_Offset_3
0222 0039 | 9 | Store_Top Access,At_Offset_1
0223 00d8 | | Load_Top At_Offset_0
0224 6829 |h) | Jump_Zero 0x24e
0225 00d9 | | Load_Top At_Offset_1
0226 7009 |p | Jump_Nonzero 0x230
0227 00d8 | | Load_Top At_Offset_0
0228 0227 | ' | Execute Access,All_Reference
0229 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
022a 00db | | Load_Top At_Offset_3
022b e5ff | | Load 0x2,-0x1
022c 0227 | ' | Execute Access,All_Reference
022d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
022e 01d6 | | Execute Vector,Field_Write
022f 7806 |x | Jump 0x236
0230 00d8 | | Load_Top At_Offset_0
0231 0227 | ' | Execute Access,All_Reference
0232 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0233 00da | | Load_Top At_Offset_2
0234 0227 | ' | Execute Access,All_Reference
0235 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0236 00d8 | | Load_Top At_Offset_0
0237 0227 | ' | Execute Access,All_Reference
0238 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0239 c5fd | | Store 0x2,-0x3
023a 00d8 | | Load_Top At_Offset_0
023b 0229 | ) | Execute Access,All_Read
023c 00d8 | | Load_Top At_Offset_0
023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023e e22b | + | Load 0x1,0x2b
023f e22c | , | Load 0x1,0x2c
0240 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0241 8003 | | Call 0x0,0x3
0242 00d9 | | Load_Top At_Offset_1
0243 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0244 00d1 | | Pop_Control Pop_Count_1
0245 00d8 | | Load_Top At_Offset_0
0246 e230 | 0 | Load 0x1,0x30
0247 e231 | 1 | Load 0x1,0x31
0248 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0249 8003 | | Call 0x0,0x3
024a 0039 | 9 | Store_Top Access,At_Offset_1
024b 4801 |H | Short_Literal 0x1
024c a5fc | | Store_Unchecked 0x2,-0x4
024d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024e 4800 |H | Short_Literal 0x0
024f a5fc | | Store_Unchecked 0x2,-0x4
0250 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0251 0000 0000 | | .BLANK 0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e5fe | | Load 0x2,-0x2
025d 0227 | ' | Execute Access,All_Reference
025e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
025f 00cf | | Action Mark_Auxiliary
0260 e210 | | Load 0x1,0x10
0261 0aff | | Execute_Immediate Plus,-0x1
0262 4800 |H | Short_Literal 0x0
0263 0263 | c | Execute Discrete,Above_Bound
0264 7015 |p | Jump_Nonzero 0x27a
0265 00d8 | | Load_Top At_Offset_0
0266 e5ff | | Load 0x2,-0x1
0267 0227 | ' | Execute Access,All_Reference
0268 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0269 01d7 | | Execute Vector,Field_Read
026a 680d |h | Jump_Zero 0x278
026b 00d8 | | Load_Top At_Offset_0
026c e5ff | | Load 0x2,-0x1
026d 0227 | ' | Execute Access,All_Reference
026e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
026f 01d7 | | Execute Vector,Field_Read
0270 e5fe | | Load 0x2,-0x2
0271 0227 | ' | Execute Access,All_Reference
0272 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0273 00d8 | | Load_Top At_Offset_0
0274 e5fe | | Load 0x2,-0x2
0275 0227 | ' | Execute Access,All_Reference
0276 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0277 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0278 00c8 | | Action Pop_Auxiliary_Range
0279 3feb |? | Loop_Increasing 0x265
027a 00ce | | Action Pop_Auxiliary
027b e226 | & | Load 0x1,0x26
027c e5fe | | Load 0x2,-0x2
027d 0227 | ' | Execute Access,All_Reference
027e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027f e210 | | Load 0x1,0x10
0280 e5fe | | Load 0x2,-0x2
0281 0227 | ' | Execute Access,All_Reference
0282 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 0227 | ' | Execute Access,All_Reference
028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028e 6802 |h | Jump_Zero 0x291
028f 4800 |H | Short_Literal 0x0
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 4801 |H | Short_Literal 0x1
0292 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0293 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
029c 0227 | ' | Execute Access,All_Reference
029d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
029e 7002 |p | Jump_Nonzero 0x2a1
029f e217 | | Load 0x1,0x17
02a0 0257 | W | Execute Discrete,Raise
02a1 00da | | Load_Top At_Offset_2
02a2 0227 | ' | Execute Access,All_Reference
02a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a4 0227 | ' | Execute Access,All_Reference
02a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a6 00d8 | | Load_Top At_Offset_0
02a7 0120 | | Execute Any,Is_Value
02a8 7002 |p | Jump_Nonzero 0x2ab
02a9 00d8 | | Load_Top At_Offset_0
02aa 011e | | Execute Any,Convert
02ab e20f | | Load 0x1,0xf
02ac 0119 | | Execute Any,Check_In_Formal_Type
02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ae 0000 0000 | | .XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 e226 | & | Load 0x1,0x26
02b4 0007 | | Action Break_Optional
02b5 BODY_02b0:
02b5 00db | | Load_Top At_Offset_3
02b6 0227 | ' | Execute Access,All_Reference
02b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b8 7002 |p | Jump_Nonzero 0x2bb
02b9 e217 | | Load 0x1,0x17
02ba 0257 | W | Execute Discrete,Raise
02bb 00db | | Load_Top At_Offset_3
02bc 0227 | ' | Execute Access,All_Reference
02bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02be 0227 | ' | Execute Access,All_Reference
02bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02c0 6809 |h | Jump_Zero 0x2ca
02c1 00db | | Load_Top At_Offset_3
02c2 0227 | ' | Execute Access,All_Reference
02c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c4 0227 | ' | Execute Access,All_Reference
02c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02c6 e5ff | | Load 0x2,-0x1
02c7 0227 | ' | Execute Access,All_Reference
02c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ca 00cf | | Action Mark_Auxiliary
02cb e210 | | Load 0x1,0x10
02cc 0aff | | Execute_Immediate Plus,-0x1
02cd e5ff | | Load 0x2,-0x1
02ce 0227 | ' | Execute Access,All_Reference
02cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d0 0a01 | | Execute_Immediate Plus,0x1
02d1 00d8 | | Load_Top At_Offset_0
02d2 00e2 | | Load_Encached Integer_Cache
02d3 0260 | ` | Execute Discrete,In_Type
02d4 7001 |p | Jump_Nonzero 0x2d6
02d5 0801 | | Execute_Immediate Raise,0x1
02d6 0263 | c | Execute Discrete,Above_Bound
02d7 7019 |p | Jump_Nonzero 0x2f1
02d8 00d8 | | Load_Top At_Offset_0
02d9 e5ff | | Load 0x2,-0x1
02da 0227 | ' | Execute Access,All_Reference
02db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02dc 0227 | ' | Execute Access,All_Reference
02dd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02de 01d7 | | Execute Vector,Field_Read
02df 680f |h | Jump_Zero 0x2ef
02e0 00d8 | | Load_Top At_Offset_0
02e1 e5ff | | Load 0x2,-0x1
02e2 0227 | ' | Execute Access,All_Reference
02e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e4 0227 | ' | Execute Access,All_Reference
02e5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02e6 01d7 | | Execute Vector,Field_Read
02e7 e5ff | | Load 0x2,-0x1
02e8 0227 | ' | Execute Access,All_Reference
02e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ea 00d8 | | Load_Top At_Offset_0
02eb e5ff | | Load 0x2,-0x1
02ec 0227 | ' | Execute Access,All_Reference
02ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ef 00c8 | | Action Pop_Auxiliary_Range
02f0 3fe7 |? | Loop_Increasing 0x2d8
02f1 00ce | | Action Pop_Auxiliary
02f2 e226 | & | Load 0x1,0x26
02f3 e5ff | | Load 0x2,-0x1
02f4 0227 | ' | Execute Access,All_Reference
02f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f7 0000 | | .XXX[0x1]
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 4608 |F | Jump_Case 0x9
02fc 7808 |x | Jump 0x305 ; case 0x0
02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02fe 7810 |x | Jump 0x30f ; case 0x2
02ff 780f |x | Jump 0x30f ; case 0x3
0300 780e |x | Jump 0x30f ; case 0x4
0301 780d |x | Jump 0x30f ; case 0x5
0302 780c |x | Jump 0x30f ; case 0x6
0303 780b |x | Jump 0x30f ; case 0x7
0304 780a |x | Jump 0x30f ; case 0x8
0305 4800 |H | Short_Literal 0x0
0306 00db | | Load_Top At_Offset_3
0307 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0308 00da | | Load_Top At_Offset_2
0309 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
030a 0125 | % | Execute Any,Set_Constraint
030b 00da | | Load_Top At_Offset_2
030c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
030d 1c00 | | Execute_Immediate Run_Utility,0x0
030e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
030f 0869 | i | Execute_Immediate Raise,0x69
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4608 |F | Jump_Case 0x9
0314 7808 |x | Jump 0x31d ; case 0x0
0315 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0316 7820 |x | Jump 0x337 ; case 0x2
0317 781f |x | Jump 0x337 ; case 0x3
0318 781e |x | Jump 0x337 ; case 0x4
0319 781d |x | Jump 0x337 ; case 0x5
031a 781c |x | Jump 0x337 ; case 0x6
031b 781b |x | Jump 0x337 ; case 0x7
031c 781a |x | Jump 0x337 ; case 0x8
031d 4800 |H | Short_Literal 0x0
031e 00db | | Load_Top At_Offset_3
031f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0320 4800 |H | Short_Literal 0x0
0321 e210 | | Load 0x1,0x10
0322 0aff | | Execute_Immediate Plus,-0x1
0323 e22a | * | Load 0x1,0x2a
0324 0334 | 4 | Declare_Variable Array,With_Constraint
0325 00d8 | | Load_Top At_Offset_0
0326 01dc | | Execute Vector,Last
0327 4800 |H | Short_Literal 0x0
0328 0263 | c | Execute Discrete,Above_Bound
0329 7005 |p | Jump_Nonzero 0x32f
032a e226 | & | Load 0x1,0x26
032b 00d9 | | Load_Top At_Offset_1
032c e402 | | Load 0x2,0x2
032d 01d6 | | Execute Vector,Field_Write
032e 3ffb |? | Loop_Increasing 0x32a
032f 00db | | Load_Top At_Offset_3
0330 00d9 | | Load_Top At_Offset_1
0331 00d9 | | Load_Top At_Offset_1
0332 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0333 0119 | | Execute Any,Check_In_Formal_Type
0334 00d1 | | Pop_Control Pop_Count_1
0335 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0336 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0337 0869 | i | Execute_Immediate Raise,0x69
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0342 | B | .CONST 0x0342 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0003 | | .CONST 0x0003 ; Number of locals
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 01da | | Execute Vector,Bounds
033d e228 | ( | Load 0x1,0x28
033e 035b | [ | Declare_Type Array,Constrained
033f 0337 | 7 | Declare_Variable Array
0340 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
0342 BODY_0338:
0342 e211 | | Load 0x1,0x11
0343 680f |h | Jump_Zero 0x353
0344 00cf | | Action Mark_Auxiliary
0345 e5ff | | Load 0x2,-0x1
0346 01d9 | | Execute Vector,Reverse_Bounds
0347 0263 | c | Execute Discrete,Above_Bound
0348 7008 |p | Jump_Nonzero 0x351
0349 00d8 | | Load_Top At_Offset_0
034a e5ff | | Load 0x2,-0x1
034b 01d7 | | Execute Vector,Field_Read
034c 00d9 | | Load_Top At_Offset_1
034d e402 | | Load 0x2,0x2
034e 01d6 | | Execute Vector,Field_Write
034f 00c8 | | Action Pop_Auxiliary_Range
0350 3ff8 |? | Loop_Increasing 0x349
0351 00ce | | Action Pop_Auxiliary
0352 7811 |x | Jump 0x364
0353 00cf | | Action Mark_Auxiliary
0354 e5ff | | Load 0x2,-0x1
0355 01d9 | | Execute Vector,Reverse_Bounds
0356 0263 | c | Execute Discrete,Above_Bound
0357 700b |p | Jump_Nonzero 0x363
0358 00d8 | | Load_Top At_Offset_0
0359 e5ff | | Load 0x2,-0x1
035a 01d7 | | Execute Vector,Field_Read
035b e00a | | Load 0x0,0xa
035c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035d 01d7 | | Execute Vector,Field_Read
035e 00d9 | | Load_Top At_Offset_1
035f e402 | | Load 0x2,0x2
0360 01d6 | | Execute Vector,Field_Write
0361 00c8 | | Action Pop_Auxiliary_Range
0362 3ff5 |? | Loop_Increasing 0x358
0363 00ce | | Action Pop_Auxiliary
0364 e5ff | | Load 0x2,-0x1
0365 01db | | Execute Vector,Length
0366 00d8 | | Load_Top At_Offset_0
0367 4800 |H | Short_Literal 0x0
0368 4804 |H | Short_Literal 0x4
0369 0262 | b | Execute Discrete,In_Range
036a 6857 |hW | Jump_Zero 0x3c2
036b 0b00 | | Execute_Immediate Case_Compare,0x0
036c 7024 |p$ | Jump_Nonzero 0x391
036d 0b01 | | Execute_Immediate Case_Compare,0x1
036e 7025 |p% | Jump_Nonzero 0x394
036f 0b02 | | Execute_Immediate Case_Compare,0x2
0370 7029 |p) | Jump_Nonzero 0x39a
0371 0f03 | | Execute_Immediate Equal,0x3
0372 7038 |p8 | Jump_Nonzero 0x3ab
0373 00d9 | | Load_Top At_Offset_1
0374 01dd | | Execute Vector,First
0375 00da | | Load_Top At_Offset_2
0376 01d7 | | Execute Vector,Field_Read
0377 0915 | | Execute_Immediate Binary_Scale,0x15
0378 00da | | Load_Top At_Offset_2
0379 01dd | | Execute Vector,First
037a 0a01 | | Execute_Immediate Plus,0x1
037b 00db | | Load_Top At_Offset_3
037c 01d7 | | Execute Vector,Field_Read
037d 090e | | Execute_Immediate Binary_Scale,0xe
037e 0273 | s | Execute Discrete,Plus
037f 00da | | Load_Top At_Offset_2
0380 01dd | | Execute Vector,First
0381 0a02 | | Execute_Immediate Plus,0x2
0382 00db | | Load_Top At_Offset_3
0383 01d7 | | Execute Vector,Field_Read
0384 0907 | | Execute_Immediate Binary_Scale,0x7
0385 0273 | s | Execute Discrete,Plus
0386 00da | | Load_Top At_Offset_2
0387 01dc | | Execute Vector,Last
0388 00db | | Load_Top At_Offset_3
0389 01d7 | | Execute Vector,Field_Read
038a 0273 | s | Execute Discrete,Plus
038b 00d8 | | Load_Top At_Offset_0
038c 00e3 | | Load_Encached Natural_Cache
038d 0260 | ` | Execute Discrete,In_Type
038e 7001 |p | Jump_Nonzero 0x390
038f 0801 | | Execute_Immediate Raise,0x1
0390 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0391 00d1 | | Pop_Control Pop_Count_1
0392 4800 |H | Short_Literal 0x0
0393 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0394 00d1 | | Pop_Control Pop_Count_1
0395 00d9 | | Load_Top At_Offset_1
0396 01dd | | Execute Vector,First
0397 00da | | Load_Top At_Offset_2
0398 01d7 | | Execute Vector,Field_Read
0399 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039a 00d1 | | Pop_Control Pop_Count_1
039b 00d9 | | Load_Top At_Offset_1
039c 01dd | | Execute Vector,First
039d 00da | | Load_Top At_Offset_2
039e 01d7 | | Execute Vector,Field_Read
039f 0907 | | Execute_Immediate Binary_Scale,0x7
03a0 00da | | Load_Top At_Offset_2
03a1 01dc | | Execute Vector,Last
03a2 00db | | Load_Top At_Offset_3
03a3 01d7 | | Execute Vector,Field_Read
03a4 0273 | s | Execute Discrete,Plus
03a5 00d8 | | Load_Top At_Offset_0
03a6 00e3 | | Load_Encached Natural_Cache
03a7 0260 | ` | Execute Discrete,In_Type
03a8 7001 |p | Jump_Nonzero 0x3aa
03a9 0801 | | Execute_Immediate Raise,0x1
03aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ab 00d9 | | Load_Top At_Offset_1
03ac 01dd | | Execute Vector,First
03ad 00da | | Load_Top At_Offset_2
03ae 01d7 | | Execute Vector,Field_Read
03af 090e | | Execute_Immediate Binary_Scale,0xe
03b0 00da | | Load_Top At_Offset_2
03b1 01dd | | Execute Vector,First
03b2 0a01 | | Execute_Immediate Plus,0x1
03b3 00db | | Load_Top At_Offset_3
03b4 01d7 | | Execute Vector,Field_Read
03b5 0907 | | Execute_Immediate Binary_Scale,0x7
03b6 0273 | s | Execute Discrete,Plus
03b7 00da | | Load_Top At_Offset_2
03b8 01dc | | Execute Vector,Last
03b9 00db | | Load_Top At_Offset_3
03ba 01d7 | | Execute Vector,Field_Read
03bb 0273 | s | Execute Discrete,Plus
03bc 00d8 | | Load_Top At_Offset_0
03bd 00e3 | | Load_Encached Natural_Cache
03be 0260 | ` | Execute Discrete,In_Type
03bf 7001 |p | Jump_Nonzero 0x3c1
03c0 0801 | | Execute_Immediate Raise,0x1
03c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c2 00d1 | | Pop_Control Pop_Count_1
03c3 8403 | | Call 0x2,0x3
03c4 0831 | 1 | Execute_Immediate Raise,0x31
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d3 | | .CONST 0x03d3 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc 01dd | | Execute Vector,First
03cd 00e3 | | Load_Encached Natural_Cache
03ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03cf e5fe | | Load 0x2,-0x2
03d0 01dd | | Execute Vector,First
03d1 00e3 | | Load_Encached Natural_Cache
03d2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03d3 BODY_03c8:
03d3 e5ff | | Load 0x2,-0x1
03d4 01db | | Execute Vector,Length
03d5 e5fe | | Load 0x2,-0x2
03d6 01db | | Execute Vector,Length
03d7 027e | ~ | Execute Discrete,Not_Equal
03d8 6802 |h | Jump_Zero 0x3db
03d9 4800 |H | Short_Literal 0x0
03da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03db 00cf | | Action Mark_Auxiliary
03dc e5ff | | Load 0x2,-0x1
03dd 01db | | Execute Vector,Length
03de 0aff | | Execute_Immediate Plus,-0x1
03df 00d8 | | Load_Top At_Offset_0
03e0 00e2 | | Load_Encached Integer_Cache
03e1 0260 | ` | Execute Discrete,In_Type
03e2 7001 |p | Jump_Nonzero 0x3e4
03e3 0801 | | Execute_Immediate Raise,0x1
03e4 4800 |H | Short_Literal 0x0
03e5 00e3 | | Load_Encached Natural_Cache
03e6 025c | \ | QQucode_0x025c
03e7 0263 | c | Execute Discrete,Above_Bound
03e8 7013 |p | Jump_Nonzero 0x3fc
03e9 e402 | | Load 0x2,0x2
03ea 00d9 | | Load_Top At_Offset_1
03eb 0273 | s | Execute Discrete,Plus
03ec e5ff | | Load 0x2,-0x1
03ed 01d7 | | Execute Vector,Field_Read
03ee e00a | | Load 0x0,0xa
03ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f0 01d7 | | Execute Vector,Field_Read
03f1 e403 | | Load 0x2,0x3
03f2 00da | | Load_Top At_Offset_2
03f3 0273 | s | Execute Discrete,Plus
03f4 e5fe | | Load 0x2,-0x2
03f5 01d7 | | Execute Vector,Field_Read
03f6 027e | ~ | Execute Discrete,Not_Equal
03f7 6802 |h | Jump_Zero 0x3fa
03f8 4800 |H | Short_Literal 0x0
03f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03fa 00c8 | | Action Pop_Auxiliary_Range
03fb 3fed |? | Loop_Increasing 0x3e9
03fc 00ce | | Action Pop_Auxiliary
03fd 4801 |H | Short_Literal 0x1
03fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ff 0000 | | .XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0405 | | .CONST 0x0405 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0002 | | .CONST 0x0002 ; Number of locals
0403 INIT_0400:
0403 e5fc | | Load 0x2,-0x4
0404 0007 | | Action Break_Optional
0405 BODY_0400:
0405 e226 | & | Load 0x1,0x26
0406 a5fd | | Store_Unchecked 0x2,-0x3
0407 00cf | | Action Mark_Auxiliary
0408 7823 |x# | Jump 0x42c
0409 00d9 | | Load_Top At_Offset_1
040a 0227 | ' | Execute Access,All_Reference
040b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
040c e5ff | | Load 0x2,-0x1
040d 027f | | Execute Discrete,Equal
040e 6816 |h | Jump_Zero 0x425
040f e211 | | Load 0x1,0x11
0410 680a |h | Jump_Zero 0x41b
0411 00d9 | | Load_Top At_Offset_1
0412 0227 | ' | Execute Access,All_Reference
0413 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0414 0227 | ' | Execute Access,All_Reference
0415 e5fe | | Load 0x2,-0x2
0416 01df | | Execute Vector,Equal
0417 680d |h | Jump_Zero 0x425
0418 00d9 | | Load_Top At_Offset_1
0419 a5fc | | Store_Unchecked 0x2,-0x4
041a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
041b 00d9 | | Load_Top At_Offset_1
041c 0227 | ' | Execute Access,All_Reference
041d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
041e 0227 | ' | Execute Access,All_Reference
041f e5fe | | Load 0x2,-0x2
0420 823b | ; | Call 0x1,0x3b
0421 6803 |h | Jump_Zero 0x425
0422 00d9 | | Load_Top At_Offset_1
0423 a5fc | | Store_Unchecked 0x2,-0x4
0424 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0425 00d9 | | Load_Top At_Offset_1
0426 a5fd | | Store_Unchecked 0x2,-0x3
0427 00d9 | | Load_Top At_Offset_1
0428 0227 | ' | Execute Access,All_Reference
0429 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
042a 003a | : | Store_Top Access,At_Offset_2
042b 00c9 | | Action Pop_Auxiliary_Loop
042c 00d9 | | Load_Top At_Offset_1
042d 77db |w | Jump_Nonzero 0x409
042e 00ce | | Action Pop_Auxiliary
042f e226 | & | Load 0x1,0x26
0430 a5fc | | Store_Unchecked 0x2,-0x4
0431 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0432 0000 0000 | | .BLANK 0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0441 | A | .CONST 0x0441 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0003 | | .CONST 0x0003 ; Number of locals
043b INIT_0438:
043b e402 | | Load 0x2,0x2
043c 01dd | | Execute Vector,First
043d 00e3 | | Load_Encached Natural_Cache
043e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
043f 00e3 | | Load_Encached Natural_Cache
0440 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0441 BODY_0438:
0441 00cf | | Action Mark_Auxiliary
0442 7824 |x$ | Jump 0x467
0443 00d9 | | Load_Top At_Offset_1
0444 603b |`; | Indirect_Literal Discrete,0x480,{0x00000000, 0x6fffffff}
0445 027d | } | Execute Discrete,Greater
0446 6804 |h | Jump_Zero 0x44b
0447 00d9 | | Load_Top At_Offset_1
0448 4803 |H | Short_Literal 0x3
0449 0270 | p | Execute Discrete,Divide
044a 005a | Z | Store_Top Discrete,At_Offset_2
044b 00d9 | | Load_Top At_Offset_1
044c 00db | | Load_Top At_Offset_3
044d e402 | | Load 0x2,0x2
044e 01d7 | | Execute Vector,Field_Read
044f 0915 | | Execute_Immediate Binary_Scale,0x15
0450 0273 | s | Execute Discrete,Plus
0451 00db | | Load_Top At_Offset_3
0452 0a01 | | Execute_Immediate Plus,0x1
0453 e402 | | Load 0x2,0x2
0454 01d7 | | Execute Vector,Field_Read
0455 090e | | Execute_Immediate Binary_Scale,0xe
0456 0273 | s | Execute Discrete,Plus
0457 00db | | Load_Top At_Offset_3
0458 0a02 | | Execute_Immediate Plus,0x2
0459 e402 | | Load 0x2,0x2
045a 01d7 | | Execute Vector,Field_Read
045b 0907 | | Execute_Immediate Binary_Scale,0x7
045c 0273 | s | Execute Discrete,Plus
045d 00db | | Load_Top At_Offset_3
045e 0a03 | | Execute_Immediate Plus,0x3
045f e402 | | Load 0x2,0x2
0460 01d7 | | Execute Vector,Field_Read
0461 0273 | s | Execute Discrete,Plus
0462 005a | Z | Store_Top Discrete,At_Offset_2
0463 00da | | Load_Top At_Offset_2
0464 0a04 | | Execute_Immediate Plus,0x4
0465 005b | [ | Store_Top Discrete,At_Offset_3
0466 00c9 | | Action Pop_Auxiliary_Loop
0467 00da | | Load_Top At_Offset_2
0468 0a03 | | Execute_Immediate Plus,0x3
0469 e402 | | Load 0x2,0x2
046a 01dc | | Execute Vector,Last
046b 027a | z | Execute Discrete,Less_Equal
046c 77d6 |w | Jump_Nonzero 0x443
046d 00c9 | | Action Pop_Auxiliary_Loop
046e e402 | | Load 0x2,0x2
046f 01dc | | Execute Vector,Last
0470 00db | | Load_Top At_Offset_3
0471 0263 | c | Execute Discrete,Above_Bound
0472 7008 |p | Jump_Nonzero 0x47b
0473 00db | | Load_Top At_Offset_3
0474 00d9 | | Load_Top At_Offset_1
0475 e402 | | Load 0x2,0x2
0476 01d7 | | Execute Vector,Field_Read
0477 0273 | s | Execute Discrete,Plus
0478 c603 | | Store 0x3,0x3
0479 00c8 | | Action Pop_Auxiliary_Range
047a 3ff8 |? | Loop_Increasing 0x473
047b 00ce | | Action Pop_Auxiliary
047c 00d8 | | Load_Top At_Offset_0
047d 00cb | | Action Pop_Block_With_Result
047e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047f 0000 | | .XXX[0x1]
0480 0000 0000 | | .LITERAL {0x00000000, 0x6fffffff}
0484 0000 0000 | | .BLANK 0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 4608 |F | Jump_Case 0x9
048c 7808 |x | Jump 0x495 ; case 0x0
048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
048e 780a |x | Jump 0x499 ; case 0x2
048f 7809 |x | Jump 0x499 ; case 0x3
0490 7808 |x | Jump 0x499 ; case 0x4
0491 7807 |x | Jump 0x499 ; case 0x5
0492 7806 |x | Jump 0x499 ; case 0x6
0493 7805 |x | Jump 0x499 ; case 0x7
0494 7804 |x | Jump 0x499 ; case 0x8
0495 4800 |H | Short_Literal 0x0
0496 00db | | Load_Top At_Offset_3
0497 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0498 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0499 0869 | i | Execute_Immediate Raise,0x69
049a 0000 0000 | | .BLANK 0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug Table
04a0 ; --------------------------------------------------------------------------------------
04a0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa926,0x0000,0x0001,0x0000
04a6 0000 0000 | | .BLANK 0000[0x15]
04bb 481e a920 |H | .XXX[0x1b]
04bd 0000 00e9 | |
04bf 0000 1000 | |
04c1 c000 9300 | |
04c3 0000 04d5 | |
04c5 8000 0300 | |
04c7 0000 0500 | |
04c9 2800 0000 |( |
04cb 0800 0002 | |
04cd 0000 0011 | |
04cf 0000 0000 | |
04d1 0800 0000 | |
04d3 5200 0010 |R |
04d5 196e | n |
04d6 0000 0000 | | .BLANK 0000[0x9]
04df 0200 0018 | | .XXX[0x4]
04e1 1a46 5800 | FX |
04e3 0000 0000 | | .BLANK 0000[0x11]
04f4 0903 d526 | &| .XXX[0x1c]
04f6 0000 0019 | |
04f8 2000 0200 | |
04fa 1800 1260 | `|
04fc 0000 0098 | |
04fe d000 0040 | @|
0500 0000 00e0 | |
0502 0500 0000 | |
0504 0100 0000 | |
0506 4000 0002 |@ |
0508 2000 0000 | |
050a 0100 0000 | |
050c 0a40 0002 | @ |
050e 033f ee00 | ? |
0510 0000 0000 | | .BLANK 0000[0x8]
0518 0040 0002 | @ | .XXX[0x4]
051a 033f fa00 | ? |
051c 0000 0000 | | .BLANK 0000[0x5]
0521 0040 0002 | @ | .XXX[0x4]
0523 032c d300 | , |
0525 0000 0000 | | .BLANK 0000[0x15]
053a 0004 00a0 | | .XXX[0xc]
053c 0000 0000 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0140 | @|
0546 0000 0000 | | .BLANK 0000[0x2e]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]