|
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_191cd7
└─⟦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 0378 | x | .CONST 0x0378 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a7 | | .CONST 0x00a7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0035 | 5 | .CONST 0x0035 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 0007 | | Action Break_Optional
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 0093 0000 | | push_full_address 0x0
0011 60b2 |` | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00010000}
0012 0273 | s | Execute Discrete,Plus
0013 e20d | | Load 0x1,0xd
0014 60ab |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0000ffff}
0015 0279 | y | Execute Discrete,And
0016 0273 | s | Execute Discrete,Plus
0017 0129 | ) | Execute Any,Make_Visible
0018 0093 0000 | | push_full_address 0x0
001a 60a1 |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00020000}
001b 0273 | s | Execute Discrete,Plus
001c e20d | | Load 0x1,0xd
001d 60a2 |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0000ffff}
001e 0279 | y | Execute Discrete,And
001f 0273 | s | Execute Discrete,Plus
0020 0129 | ) | Execute Any,Make_Visible
0021 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0023 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0025 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0027 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0029 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
002b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
002d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
002f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0031 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0033 4802 |H | Short_Literal 0x2
0034 032b | + | Declare_Type Record,Incomplete,Visible
0035 4803 |H | Short_Literal 0x3
0036 032b | + | Declare_Type Record,Incomplete,Visible
0037 00d8 | | Load_Top At_Offset_0
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 4818 |H | Short_Literal 0x18
003a 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
003b 00da | | Load_Top At_Offset_2
003c 02a0 | | Declare_Subprogram Null_Subprogram
003d 4818 |H | Short_Literal 0x18
003e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
003f 00d8 | | Load_Top At_Offset_0
0040 0129 | ) | Execute Any,Make_Visible
0041 c210 | | Store 0x1,0x10
0042 00d8 | | Load_Top At_Offset_0
0043 00da | | Load_Top At_Offset_2
0044 e002 | | Load 0x0,0x2
0045 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
0047 4803 |H | Short_Literal 0x3
0048 032e | . | Declare_Type Record,Defined,Visible
0049 00d8 | | Load_Top At_Offset_0
004a 0322 | " | Declare_Variable Record
004b 00da | | Load_Top At_Offset_2
004c 00d9 | | Load_Top At_Offset_1
004d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004e 00db | | Load_Top At_Offset_3
004f 00d9 | | Load_Top At_Offset_1
0050 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0051 4800 |H | Short_Literal 0x0
0052 00d9 | | Load_Top At_Offset_1
0053 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0054 0129 | ) | Execute Any,Make_Visible
0055 c211 | | Store 0x1,0x11
0056 00bf | | Action Accept_Activation
0057 e002 | | Load 0x0,0x2
0058 0266 | f | Execute Discrete,Bounds
0059 e002 | | Load 0x0,0x2
005a 02a0 | | Declare_Subprogram Null_Subprogram
005b 4801 |H | Short_Literal 0x1
005c 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
005d e002 | | Load 0x0,0x2
005e e003 | | Load 0x0,0x3
005f e21f | | Load 0x1,0x1f
0060 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0062 e21e | | Load 0x1,0x1e
0063 0326 | & | Complete_Type Record,By_Defining
0064 00db | | Load_Top At_Offset_3
0065 03c4 | | Complete_Type Access,By_Component_Completion
0066 4800 |H | Short_Literal 0x0
0067 e20e | | Load 0x1,0xe
0068 0aff | | Execute_Immediate Plus,-0x1
0069 e002 | | Load 0x0,0x2
006a 025d | ] | Execute Discrete,Bounds_Check
006b e21f | | Load 0x1,0x1f
006c 02a0 | | Declare_Subprogram Null_Subprogram
006d 4801 |H | Short_Literal 0x1
006e 035d | ] | Declare_Type Array,Defined
006f e002 | | Load 0x0,0x2
0070 00d9 | | Load_Top At_Offset_1
0071 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0073 e21d | | Load 0x1,0x1d
0074 0326 | & | Complete_Type Record,By_Defining
0075 00db | | Load_Top At_Offset_3
0076 03c4 | | Complete_Type Access,By_Component_Completion
0077 a004 | | Store_Unchecked 0x0,0x4
0078 00c6 | | Action Check_Subprogram_Elaborated
0079 e005 | | Load 0x0,0x5
007a e003 | | Load 0x0,0x3
007b e006 | | Load 0x0,0x6
007c e007 | | Load 0x0,0x7
007d 4800 |H | Short_Literal 0x0
007e 0007 | | Action Break_Optional
007f a004 | | Store_Unchecked 0x0,0x4
0080 00c6 | | Action Check_Subprogram_Elaborated
0081 e21e | | Load 0x1,0x1e
0082 e21f | | Load 0x1,0x1f
0083 e008 | | Load 0x0,0x8
0084 e009 | | Load 0x0,0x9
0085 4800 |H | Short_Literal 0x0
0086 0007 | | Action Break_Optional
0087 a004 | | Store_Unchecked 0x0,0x4
0088 00c6 | | Action Check_Subprogram_Elaborated
0089 e21d | | Load 0x1,0x1d
008a e220 | | Load 0x1,0x20
008b e00a | | Load 0x0,0xa
008c e00b | | Load 0x0,0xb
008d 4800 |H | Short_Literal 0x0
008e 0007 | | Action Break_Optional
008f 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0091 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0093 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call
0095 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0096 00c7 | | Action Elaborate_Subprogram
0097 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0098 00c7 | | Action Elaborate_Subprogram
0099 1d16 | | Execute_Immediate Reference_Lex_1,0x16
009a 00c7 | | Action Elaborate_Subprogram
009b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
009c 00c7 | | Action Elaborate_Subprogram
009d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
009e 00c7 | | Action Elaborate_Subprogram
009f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a6 00c7 | | Action Elaborate_Subprogram
00a7 BODY_0008:
00a7 00bc | | Action Signal_Activated
00a8 00bb | | Action Signal_Completion
00a9 0000 0000 | | .BLANK 0000[0x7]
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 e220 | | Load 0x1,0x20
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 | | .XXX[0x2]
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00c0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00c4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf | | .CONST 0x00cf ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e21f | | Load 0x1,0x1f
00cc 0007 | | Action Break_Optional
00cd e21f | | Load 0x1,0x1f
00ce 0007 | | Action Break_Optional
00cf BODY_00c8:
00cf e5ff | | Load 0x2,-0x1
00d0 0227 | ' | Execute Access,All_Reference
00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d2 0c01 | | Execute_Immediate Greater_Equal,0x1
00d3 682d |h- | Jump_Zero 0x101
00d4 00cf | | Action Mark_Auxiliary
00d5 e5ff | | Load 0x2,-0x1
00d6 0227 | ' | Execute Access,All_Reference
00d7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d8 01d9 | | Execute Vector,Reverse_Bounds
00d9 0263 | c | Execute Discrete,Above_Bound
00da 7025 |p% | Jump_Nonzero 0x100
00db 00d8 | | Load_Top At_Offset_0
00dc e5ff | | Load 0x2,-0x1
00dd 0227 | ' | Execute Access,All_Reference
00de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00df 01d7 | | Execute Vector,Field_Read
00e0 a402 | | Store_Unchecked 0x2,0x2
00e1 00cf | | Action Mark_Auxiliary
00e2 7818 |x | Jump 0xfb
00e3 e402 | | Load 0x2,0x2
00e4 0227 | ' | Execute Access,All_Reference
00e5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e6 a403 | | Store_Unchecked 0x2,0x3
00e7 e402 | | Load 0x2,0x2
00e8 0229 | ) | Execute Access,All_Read
00e9 00d8 | | Load_Top At_Offset_0
00ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00eb e224 | $ | Load 0x1,0x24
00ec e225 | % | Load 0x1,0x25
00ed 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00ee 8004 | | Call 0x0,0x4
00ef 00d9 | | Load_Top At_Offset_1
00f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f1 00d1 | | Pop_Control Pop_Count_1
00f2 e402 | | Load 0x2,0x2
00f3 e229 | ) | Load 0x1,0x29
00f4 e22a | * | Load 0x1,0x2a
00f5 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00f6 8004 | | Call 0x0,0x4
00f7 c402 | | Store 0x2,0x2
00f8 e403 | | Load 0x2,0x3
00f9 a402 | | Store_Unchecked 0x2,0x2
00fa 00c9 | | Action Pop_Auxiliary_Loop
00fb e402 | | Load 0x2,0x2
00fc 77e6 |w | Jump_Nonzero 0xe3
00fd 00ce | | Action Pop_Auxiliary
00fe 00c8 | | Action Pop_Auxiliary_Range
00ff 3fdb |? | Loop_Increasing 0xdb
0100 00ce | | Action Pop_Auxiliary
0101 e5ff | | Load 0x2,-0x1
0102 e22e | . | Load 0x1,0x2e
0103 e22f | / | Load 0x1,0x2f
0104 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0105 8004 | | Call 0x0,0x4
0106 c5ff | | Store 0x2,-0x1
0107 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 0227 | ' | Execute Access,All_Reference
010d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010e 0f00 | | Execute_Immediate Equal,0x0
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 0227 | ' | Execute Access,All_Reference
0115 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0129 | ) | .CONST 0x0129 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0004 | | .CONST 0x0004 ; Number of locals
011b INIT_0118:
011b 00db | | Load_Top At_Offset_3
011c 8233 | 3 | Call 0x1,0x33
011d e002 | | Load 0x0,0x2
011e 03f1 | | Declare_Variable Discrete,With_Value
011f e21f | | Load 0x1,0x1f
0120 0007 | | Action Break_Optional
0121 00d9 | | Load_Top At_Offset_1
0122 e20e | | Load 0x1,0xe
0123 026f | o | Execute Discrete,Remainder
0124 e5ff | | Load 0x2,-0x1
0125 0227 | ' | Execute Access,All_Reference
0126 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0127 01d7 | | Execute Vector,Field_Read
0128 0007 | | Action Break_Optional
0129 BODY_0118:
0129 00d8 | | Load_Top At_Offset_0
012a e21f | | Load 0x1,0x1f
012b e5fe | | Load 0x2,-0x2
012c e402 | | Load 0x2,0x2
012d 8235 | 5 | Call 0x1,0x35
012e 003b | ; | Store_Top Access,At_Offset_3
012f 0039 | 9 | Store_Top Access,At_Offset_1
0130 00d8 | | Load_Top At_Offset_0
0131 6804 |h | Jump_Zero 0x136
0132 00d8 | | Load_Top At_Offset_0
0133 0227 | ' | Execute Access,All_Reference
0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0135 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0136 e21e | | Load 0x1,0x1e
0137 0322 | " | Declare_Variable Record
0138 00db | | Load_Top At_Offset_3
0139 00d9 | | Load_Top At_Offset_1
013a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013b e5fe | | Load 0x2,-0x2
013c e003 | | Load 0x0,0x3
013d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
013e 00d9 | | Load_Top At_Offset_1
013f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0140 e21f | | Load 0x1,0x1f
0141 00d9 | | Load_Top At_Offset_1
0142 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0143 e21f | | Load 0x1,0x1f
0144 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0145 0039 | 9 | Store_Top Access,At_Offset_1
0146 00da | | Load_Top At_Offset_2
0147 e20e | | Load 0x1,0xe
0148 026f | o | Execute Discrete,Remainder
0149 005b | [ | Store_Top Discrete,At_Offset_3
014a 00da | | Load_Top At_Offset_2
014b e5ff | | Load 0x2,-0x1
014c 0227 | ' | Execute Access,All_Reference
014d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
014e 01d7 | | Execute Vector,Field_Read
014f 00d9 | | Load_Top At_Offset_1
0150 0227 | ' | Execute Access,All_Reference
0151 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0152 00d8 | | Load_Top At_Offset_0
0153 00db | | Load_Top At_Offset_3
0154 e5ff | | Load 0x2,-0x1
0155 0227 | ' | Execute Access,All_Reference
0156 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0157 01d6 | | Execute Vector,Field_Write
0158 e5ff | | Load 0x2,-0x1
0159 0227 | ' | Execute Access,All_Reference
015a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015b 0a01 | | Execute_Immediate Plus,0x1
015c e5ff | | Load 0x2,-0x1
015d 0227 | ' | Execute Access,All_Reference
015e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015f 00d8 | | Load_Top At_Offset_0
0160 0227 | ' | Execute Access,All_Reference
0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0162 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0163 0000 0000 | | .BLANK 0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c e5fe | | Load 0x2,-0x2
016d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016e 00cf | | Action Mark_Auxiliary
016f e20e | | Load 0x1,0xe
0170 0aff | | Execute_Immediate Plus,-0x1
0171 4800 |H | Short_Literal 0x0
0172 0263 | c | Execute Discrete,Above_Bound
0173 7013 |p | Jump_Nonzero 0x187
0174 00d8 | | Load_Top At_Offset_0
0175 e5ff | | Load 0x2,-0x1
0176 0227 | ' | Execute Access,All_Reference
0177 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0178 01d7 | | Execute Vector,Field_Read
0179 680b |h | Jump_Zero 0x185
017a 00d8 | | Load_Top At_Offset_0
017b e5ff | | Load 0x2,-0x1
017c 0227 | ' | Execute Access,All_Reference
017d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017e 01d7 | | Execute Vector,Field_Read
017f e5fe | | Load 0x2,-0x2
0180 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0181 00d8 | | Load_Top At_Offset_0
0182 e5fe | | Load 0x2,-0x2
0183 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0185 00c8 | | Action Pop_Auxiliary_Range
0186 3fed |? | Loop_Increasing 0x174
0187 00ce | | Action Pop_Auxiliary
0188 e21f | | Load 0x1,0x1f
0189 e5fe | | Load 0x2,-0x2
018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018b e20e | | Load 0x1,0xe
018c e5fe | | Load 0x2,-0x2
018d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0195 6802 |h | Jump_Zero 0x198
0196 4800 |H | Short_Literal 0x0
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 4801 |H | Short_Literal 0x1
0199 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a5 7002 |p | Jump_Nonzero 0x1a8
01a6 e213 | | Load 0x1,0x13
01a7 0257 | W | Execute Discrete,Raise
01a8 00da | | Load_Top At_Offset_2
01a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01aa 0227 | ' | Execute Access,All_Reference
01ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e21f | | Load 0x1,0x1f
01b4 0007 | | Action Break_Optional
01b5 BODY_01b0:
01b5 00db | | Load_Top At_Offset_3
01b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b7 7002 |p | Jump_Nonzero 0x1ba
01b8 e213 | | Load 0x1,0x13
01b9 0257 | W | Execute Discrete,Raise
01ba 00db | | Load_Top At_Offset_3
01bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bc 0227 | ' | Execute Access,All_Reference
01bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01be 6807 |h | Jump_Zero 0x1c6
01bf 00db | | Load_Top At_Offset_3
01c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c1 0227 | ' | Execute Access,All_Reference
01c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c3 e5ff | | Load 0x2,-0x1
01c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c6 00cf | | Action Mark_Auxiliary
01c7 e20e | | Load 0x1,0xe
01c8 0aff | | Execute_Immediate Plus,-0x1
01c9 e5ff | | Load 0x2,-0x1
01ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01cb 0a01 | | Execute_Immediate Plus,0x1
01cc 0263 | c | Execute Discrete,Above_Bound
01cd 7015 |p | Jump_Nonzero 0x1e3
01ce 00d8 | | Load_Top At_Offset_0
01cf e5ff | | Load 0x2,-0x1
01d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d1 0227 | ' | Execute Access,All_Reference
01d2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d3 01d7 | | Execute Vector,Field_Read
01d4 680c |h | Jump_Zero 0x1e1
01d5 00d8 | | Load_Top At_Offset_0
01d6 e5ff | | Load 0x2,-0x1
01d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d8 0227 | ' | Execute Access,All_Reference
01d9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01da 01d7 | | Execute Vector,Field_Read
01db e5ff | | Load 0x2,-0x1
01dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01dd 00d8 | | Load_Top At_Offset_0
01de e5ff | | Load 0x2,-0x1
01df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e1 00c8 | | Action Pop_Auxiliary_Range
01e2 3feb |? | Loop_Increasing 0x1ce
01e3 00ce | | Action Pop_Auxiliary
01e4 e21f | | Load 0x1,0x1f
01e5 e5ff | | Load 0x2,-0x1
01e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4601 |F | Jump_Case 0x2
01ec 7801 |x | Jump 0x1ee ; case 0x0
01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ee 4800 |H | Short_Literal 0x0
01ef 00db | | Load_Top At_Offset_3
01f0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4601 |F | Jump_Case 0x2
01fc 7801 |x | Jump 0x1fe ; case 0x0
01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01fe 4800 |H | Short_Literal 0x0
01ff 00db | | Load_Top At_Offset_3
0200 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0201 4800 |H | Short_Literal 0x0
0202 e20e | | Load 0x1,0xe
0203 0aff | | Execute_Immediate Plus,-0x1
0204 e223 | # | Load 0x1,0x23
0205 0334 | 4 | Declare_Variable Array,With_Constraint
0206 00d8 | | Load_Top At_Offset_0
0207 01dc | | Execute Vector,Last
0208 4800 |H | Short_Literal 0x0
0209 0263 | c | Execute Discrete,Above_Bound
020a 7005 |p | Jump_Nonzero 0x210
020b e21f | | Load 0x1,0x1f
020c 00d9 | | Load_Top At_Offset_1
020d e402 | | Load 0x2,0x2
020e 01d6 | | Execute Vector,Field_Write
020f 3ffb |? | Loop_Increasing 0x20b
0210 00db | | Load_Top At_Offset_3
0211 00d9 | | Load_Top At_Offset_1
0212 00d9 | | Load_Top At_Offset_1
0213 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0214 0119 | | Execute Any,Check_In_Formal_Type
0215 00d1 | | Pop_Control Pop_Count_1
0216 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0217 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0222 | " | .CONST 0x0222 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 01da | | Execute Vector,Bounds
021d e222 | " | Load 0x1,0x22
021e 035b | [ | Declare_Type Array,Constrained
021f 0337 | 7 | Declare_Variable Array
0220 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0222 BODY_0218:
0222 e20f | | Load 0x1,0xf
0223 680f |h | Jump_Zero 0x233
0224 00cf | | Action Mark_Auxiliary
0225 e5ff | | Load 0x2,-0x1
0226 01d9 | | Execute Vector,Reverse_Bounds
0227 0263 | c | Execute Discrete,Above_Bound
0228 7008 |p | Jump_Nonzero 0x231
0229 00d8 | | Load_Top At_Offset_0
022a e5ff | | Load 0x2,-0x1
022b 01d7 | | Execute Vector,Field_Read
022c 00d9 | | Load_Top At_Offset_1
022d e402 | | Load 0x2,0x2
022e 01d6 | | Execute Vector,Field_Write
022f 00c8 | | Action Pop_Auxiliary_Range
0230 3ff8 |? | Loop_Increasing 0x229
0231 00ce | | Action Pop_Auxiliary
0232 7810 |x | Jump 0x243
0233 00cf | | Action Mark_Auxiliary
0234 e5ff | | Load 0x2,-0x1
0235 01d9 | | Execute Vector,Reverse_Bounds
0236 0263 | c | Execute Discrete,Above_Bound
0237 700a |p | Jump_Nonzero 0x242
0238 00d8 | | Load_Top At_Offset_0
0239 e5ff | | Load 0x2,-0x1
023a 01d7 | | Execute Vector,Field_Read
023b e00c | | Load 0x0,0xc
023c 01d7 | | Execute Vector,Field_Read
023d 00d9 | | Load_Top At_Offset_1
023e e402 | | Load 0x2,0x2
023f 01d6 | | Execute Vector,Field_Write
0240 00c8 | | Action Pop_Auxiliary_Range
0241 3ff6 |? | Loop_Increasing 0x238
0242 00ce | | Action Pop_Auxiliary
0243 e5ff | | Load 0x2,-0x1
0244 01db | | Execute Vector,Length
0245 00d8 | | Load_Top At_Offset_0
0246 4800 |H | Short_Literal 0x0
0247 4804 |H | Short_Literal 0x4
0248 0262 | b | Execute Discrete,In_Range
0249 6857 |hW | Jump_Zero 0x2a1
024a 0b00 | | Execute_Immediate Case_Compare,0x0
024b 7024 |p$ | Jump_Nonzero 0x270
024c 0b01 | | Execute_Immediate Case_Compare,0x1
024d 7025 |p% | Jump_Nonzero 0x273
024e 0b02 | | Execute_Immediate Case_Compare,0x2
024f 7029 |p) | Jump_Nonzero 0x279
0250 0f03 | | Execute_Immediate Equal,0x3
0251 7038 |p8 | Jump_Nonzero 0x28a
0252 00d9 | | Load_Top At_Offset_1
0253 01dd | | Execute Vector,First
0254 00da | | Load_Top At_Offset_2
0255 01d7 | | Execute Vector,Field_Read
0256 0905 | | Execute_Immediate Binary_Scale,0x5
0257 00da | | Load_Top At_Offset_2
0258 01dd | | Execute Vector,First
0259 0a01 | | Execute_Immediate Plus,0x1
025a 00db | | Load_Top At_Offset_3
025b 01d7 | | Execute Vector,Field_Read
025c 0906 | | Execute_Immediate Binary_Scale,0x6
025d 0273 | s | Execute Discrete,Plus
025e 00da | | Load_Top At_Offset_2
025f 01dd | | Execute Vector,First
0260 0a02 | | Execute_Immediate Plus,0x2
0261 00db | | Load_Top At_Offset_3
0262 01d7 | | Execute Vector,Field_Read
0263 0907 | | Execute_Immediate Binary_Scale,0x7
0264 0273 | s | Execute Discrete,Plus
0265 00da | | Load_Top At_Offset_2
0266 01dc | | Execute Vector,Last
0267 00db | | Load_Top At_Offset_3
0268 01d7 | | Execute Vector,Field_Read
0269 0273 | s | Execute Discrete,Plus
026a 00d8 | | Load_Top At_Offset_0
026b e002 | | Load 0x0,0x2
026c 0260 | ` | Execute Discrete,In_Type
026d 7001 |p | Jump_Nonzero 0x26f
026e 0801 | | Execute_Immediate Raise,0x1
026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0270 00d1 | | Pop_Control Pop_Count_1
0271 4800 |H | Short_Literal 0x0
0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0273 00d1 | | Pop_Control Pop_Count_1
0274 00d9 | | Load_Top At_Offset_1
0275 01dd | | Execute Vector,First
0276 00da | | Load_Top At_Offset_2
0277 01d7 | | Execute Vector,Field_Read
0278 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0279 00d1 | | Pop_Control Pop_Count_1
027a 00d9 | | Load_Top At_Offset_1
027b 01dd | | Execute Vector,First
027c 00da | | Load_Top At_Offset_2
027d 01d7 | | Execute Vector,Field_Read
027e 0907 | | Execute_Immediate Binary_Scale,0x7
027f 00da | | Load_Top At_Offset_2
0280 01dc | | Execute Vector,Last
0281 00db | | Load_Top At_Offset_3
0282 01d7 | | Execute Vector,Field_Read
0283 0273 | s | Execute Discrete,Plus
0284 00d8 | | Load_Top At_Offset_0
0285 e002 | | Load 0x0,0x2
0286 0260 | ` | Execute Discrete,In_Type
0287 7001 |p | Jump_Nonzero 0x289
0288 0801 | | Execute_Immediate Raise,0x1
0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028a 00d9 | | Load_Top At_Offset_1
028b 01dd | | Execute Vector,First
028c 00da | | Load_Top At_Offset_2
028d 01d7 | | Execute Vector,Field_Read
028e 0906 | | Execute_Immediate Binary_Scale,0x6
028f 00da | | Load_Top At_Offset_2
0290 01dd | | Execute Vector,First
0291 0a01 | | Execute_Immediate Plus,0x1
0292 00db | | Load_Top At_Offset_3
0293 01d7 | | Execute Vector,Field_Read
0294 0907 | | Execute_Immediate Binary_Scale,0x7
0295 0273 | s | Execute Discrete,Plus
0296 00da | | Load_Top At_Offset_2
0297 01dc | | Execute Vector,Last
0298 00db | | Load_Top At_Offset_3
0299 01d7 | | Execute Vector,Field_Read
029a 0273 | s | Execute Discrete,Plus
029b 00d8 | | Load_Top At_Offset_0
029c e002 | | Load 0x0,0x2
029d 0260 | ` | Execute Discrete,In_Type
029e 7001 |p | Jump_Nonzero 0x2a0
029f 0801 | | Execute_Immediate Raise,0x1
02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a1 00d1 | | Pop_Control Pop_Count_1
02a2 8403 | | Call 0x2,0x3
02a3 0831 | 1 | Execute_Immediate Raise,0x31
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b3 | | .CONST 0x02b3 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac 01dd | | Execute Vector,First
02ad e002 | | Load 0x0,0x2
02ae 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02af e5fe | | Load 0x2,-0x2
02b0 01dd | | Execute Vector,First
02b1 e002 | | Load 0x0,0x2
02b2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02b3 BODY_02a8:
02b3 e5ff | | Load 0x2,-0x1
02b4 01db | | Execute Vector,Length
02b5 e5fe | | Load 0x2,-0x2
02b6 01db | | Execute Vector,Length
02b7 027e | ~ | Execute Discrete,Not_Equal
02b8 6802 |h | Jump_Zero 0x2bb
02b9 4800 |H | Short_Literal 0x0
02ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02bb 00cf | | Action Mark_Auxiliary
02bc e5ff | | Load 0x2,-0x1
02bd 01db | | Execute Vector,Length
02be 0aff | | Execute_Immediate Plus,-0x1
02bf 4800 |H | Short_Literal 0x0
02c0 e002 | | Load 0x0,0x2
02c1 025c | \ | QQucode_0x025c
02c2 0263 | c | Execute Discrete,Above_Bound
02c3 7014 |p | Jump_Nonzero 0x2d8
02c4 e402 | | Load 0x2,0x2
02c5 00d9 | | Load_Top At_Offset_1
02c6 0273 | s | Execute Discrete,Plus
02c7 e5ff | | Load 0x2,-0x1
02c8 01d7 | | Execute Vector,Field_Read
02c9 e00c | | Load 0x0,0xc
02ca 01d7 | | Execute Vector,Field_Read
02cb e403 | | Load 0x2,0x3
02cc 00da | | Load_Top At_Offset_2
02cd 0273 | s | Execute Discrete,Plus
02ce e5fe | | Load 0x2,-0x2
02cf 01d7 | | Execute Vector,Field_Read
02d0 e00c | | Load 0x0,0xc
02d1 01d7 | | Execute Vector,Field_Read
02d2 027e | ~ | Execute Discrete,Not_Equal
02d3 6802 |h | Jump_Zero 0x2d6
02d4 4800 |H | Short_Literal 0x0
02d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d6 00c8 | | Action Pop_Auxiliary_Range
02d7 3fec |? | Loop_Increasing 0x2c4
02d8 00ce | | Action Pop_Auxiliary
02d9 4801 |H | Short_Literal 0x1
02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02db 0000 0000 | | .BLANK 0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5 | | .CONST 0x02e5 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 e5fc | | Load 0x2,-0x4
02e4 0007 | | Action Break_Optional
02e5 BODY_02e0:
02e5 e21f | | Load 0x1,0x1f
02e6 a5fd | | Store_Unchecked 0x2,-0x3
02e7 00cf | | Action Mark_Auxiliary
02e8 7823 |x# | Jump 0x30c
02e9 00d9 | | Load_Top At_Offset_1
02ea 0227 | ' | Execute Access,All_Reference
02eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ec e5ff | | Load 0x2,-0x1
02ed 027f | | Execute Discrete,Equal
02ee 6816 |h | Jump_Zero 0x305
02ef e20f | | Load 0x1,0xf
02f0 680a |h | Jump_Zero 0x2fb
02f1 00d9 | | Load_Top At_Offset_1
02f2 0227 | ' | Execute Access,All_Reference
02f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f4 0227 | ' | Execute Access,All_Reference
02f5 e5fe | | Load 0x2,-0x2
02f6 01df | | Execute Vector,Equal
02f7 680d |h | Jump_Zero 0x305
02f8 00d9 | | Load_Top At_Offset_1
02f9 a5fc | | Store_Unchecked 0x2,-0x4
02fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fb 00d9 | | Load_Top At_Offset_1
02fc 0227 | ' | Execute Access,All_Reference
02fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fe 0227 | ' | Execute Access,All_Reference
02ff e5fe | | Load 0x2,-0x2
0300 8234 | 4 | Call 0x1,0x34
0301 6803 |h | Jump_Zero 0x305
0302 00d9 | | Load_Top At_Offset_1
0303 a5fc | | Store_Unchecked 0x2,-0x4
0304 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0305 00d9 | | Load_Top At_Offset_1
0306 a5fd | | Store_Unchecked 0x2,-0x3
0307 00d9 | | Load_Top At_Offset_1
0308 0227 | ' | Execute Access,All_Reference
0309 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
030a 003a | : | Store_Top Access,At_Offset_2
030b 00c9 | | Action Pop_Auxiliary_Loop
030c 00d9 | | Load_Top At_Offset_1
030d 77db |w | Jump_Nonzero 0x2e9
030e 00ce | | Action Pop_Auxiliary
030f e21f | | Load 0x1,0x1f
0310 a5fc | | Store_Unchecked 0x2,-0x4
0311 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0312 0000 0000 | | .BLANK 0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0321 | ! | .CONST 0x0321 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0003 | | .CONST 0x0003 ; Number of locals
031b INIT_0318:
031b e402 | | Load 0x2,0x2
031c 01dd | | Execute Vector,First
031d e002 | | Load 0x0,0x2
031e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
031f e002 | | Load 0x0,0x2
0320 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0321 BODY_0318:
0321 00cf | | Action Mark_Auxiliary
0322 7824 |x$ | Jump 0x347
0323 00d9 | | Load_Top At_Offset_1
0324 603b |`; | Indirect_Literal Discrete,0x360,{0x00000000, 0x2aaaaaaa}
0325 027d | } | Execute Discrete,Greater
0326 6804 |h | Jump_Zero 0x32b
0327 00d9 | | Load_Top At_Offset_1
0328 4803 |H | Short_Literal 0x3
0329 0270 | p | Execute Discrete,Divide
032a 005a | Z | Store_Top Discrete,At_Offset_2
032b 00d9 | | Load_Top At_Offset_1
032c 00db | | Load_Top At_Offset_3
032d e402 | | Load 0x2,0x2
032e 01d7 | | Execute Vector,Field_Read
032f 0905 | | Execute_Immediate Binary_Scale,0x5
0330 0273 | s | Execute Discrete,Plus
0331 00db | | Load_Top At_Offset_3
0332 0a01 | | Execute_Immediate Plus,0x1
0333 e402 | | Load 0x2,0x2
0334 01d7 | | Execute Vector,Field_Read
0335 0906 | | Execute_Immediate Binary_Scale,0x6
0336 0273 | s | Execute Discrete,Plus
0337 00db | | Load_Top At_Offset_3
0338 0a02 | | Execute_Immediate Plus,0x2
0339 e402 | | Load 0x2,0x2
033a 01d7 | | Execute Vector,Field_Read
033b 0907 | | Execute_Immediate Binary_Scale,0x7
033c 0273 | s | Execute Discrete,Plus
033d 00db | | Load_Top At_Offset_3
033e 0a03 | | Execute_Immediate Plus,0x3
033f e402 | | Load 0x2,0x2
0340 01d7 | | Execute Vector,Field_Read
0341 0273 | s | Execute Discrete,Plus
0342 005a | Z | Store_Top Discrete,At_Offset_2
0343 00da | | Load_Top At_Offset_2
0344 0a04 | | Execute_Immediate Plus,0x4
0345 005b | [ | Store_Top Discrete,At_Offset_3
0346 00c9 | | Action Pop_Auxiliary_Loop
0347 00da | | Load_Top At_Offset_2
0348 0a03 | | Execute_Immediate Plus,0x3
0349 e402 | | Load 0x2,0x2
034a 01dc | | Execute Vector,Last
034b 027a | z | Execute Discrete,Less_Equal
034c 77d6 |w | Jump_Nonzero 0x323
034d 00c9 | | Action Pop_Auxiliary_Loop
034e e402 | | Load 0x2,0x2
034f 01dc | | Execute Vector,Last
0350 00db | | Load_Top At_Offset_3
0351 0263 | c | Execute Discrete,Above_Bound
0352 7008 |p | Jump_Nonzero 0x35b
0353 00db | | Load_Top At_Offset_3
0354 00d9 | | Load_Top At_Offset_1
0355 e402 | | Load 0x2,0x2
0356 01d7 | | Execute Vector,Field_Read
0357 0273 | s | Execute Discrete,Plus
0358 c603 | | Store 0x3,0x3
0359 00c8 | | Action Pop_Auxiliary_Range
035a 3ff8 |? | Loop_Increasing 0x353
035b 00ce | | Action Pop_Auxiliary
035c 00d8 | | Load_Top At_Offset_0
035d 00cb | | Action Pop_Block_With_Result
035e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035f 0000 | | .XXX[0x1]
0360 0000 0000 | | .LITERAL {0x00000000, 0x2aaaaaaa}
0364 0000 0000 | | .BLANK 0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 4601 |F | Jump_Case 0x2
036c 7801 |x | Jump 0x36e ; case 0x0
036d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
036e 4800 |H | Short_Literal 0x0
036f 00db | | Load_Top At_Offset_3
0370 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0371 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug Table
0378 ; --------------------------------------------------------------------------------------
0378 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4d4b,0x0000,0x0001,0x0012
037e 000b 03c6 | | .DBG4T 0x000b,0x03c6,0xc000,0x0000
0382 0057 03de | W | .DBG4T 0x0057,0x03de,0xc000,0x0000
0386 00b3 03f3 | | .DBG4T 0x00b3,0x03f3,0x1001,0x0000
038a 00cb 03f6 | | .DBG4T 0x00cb,0x03f6,0x1001,0x4000
038e 010b 040c | | .DBG4T 0x010b,0x040c,0x1002,0x0000
0392 0113 040f | | .DBG4T 0x0113,0x040f,0x1002,0x0000
0396 011b 0412 | | .DBG4T 0x011b,0x0412,0x1002,0x0000
039a 016b 0420 | k | .DBG4T 0x016b,0x0420,0x1001,0x0000
039e 0193 042a | *| .DBG4T 0x0193,0x042a,0x1002,0x0000
03a2 01a3 042f | /| .DBG4T 0x01a3,0x042f,0x1002,0x0000
03a6 01b3 0434 | 4| .DBG4T 0x01b3,0x0434,0x1001,0x0000
03aa 01eb 0000 | | .DBG4T 0x01eb,0x0000,0x1005,0x0000
03ae 01fb 0000 | | .DBG4T 0x01fb,0x0000,0x1005,0x0000
03b2 021b 0442 | B| .DBG4T 0x021b,0x0442,0x1002,0x4000
03b6 02ab 045d | ]| .DBG4T 0x02ab,0x045d,0x1002,0x0000
03ba 02e3 0467 | g| .DBG4T 0x02e3,0x0467,0x1001,0x4000
03be 031b 0484 | | .DBG4T 0x031b,0x0484,0x1004,0x4000
03c2 036b 0000 | k | .DBG4T 0x036b,0x0000,0x1005,0x0000
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug chain
03c6 ; --------------------------------------------------------------------------------------
03c6 0016 0000 | | .DBGLEN 0x0016,0x0000
03c8 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000e,0x000f,0x0018,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x003b,0x003f,0x0042,0x0049
03de ; --------------------------------------------------------------------------------------
03de ; Debug chain
03de ; --------------------------------------------------------------------------------------
03de 0013 0000 | | .DBGLEN 0x0013,0x0000
03e0 0057 005d | W ]| .DBGLNO 0x0057,0x005d,0x0066,0x006f,0x0077,0x007f,0x0087,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5
03f3 ; --------------------------------------------------------------------------------------
03f3 ; Debug chain
03f3 ; --------------------------------------------------------------------------------------
03f3 0000 0001 | | .DBGLEN 0x0000,0x0001
03f5 00b3 | | .DBGLNO 0x00b3
03f6 ; --------------------------------------------------------------------------------------
03f6 ; Debug chain
03f6 ; --------------------------------------------------------------------------------------
03f6 0002 0009 | | .DBGLEN 0x0002,0x0009
03f8 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00cf,0x00d5,0x00db,0x00e3,0x00e7,0x00f2,0x00f8,0x00fb,0x0101
0403 0001 0002 | | .XXX[0x9]
0405 0003 0005 | |
0407 0006 0007 | |
0409 0008 0004 | |
040b 0009 | |
040c ; --------------------------------------------------------------------------------------
040c ; Debug chain
040c ; --------------------------------------------------------------------------------------
040c 0000 0001 | | .DBGLEN 0x0000,0x0001
040e 010b | | .DBGLNO 0x010b
040f ; --------------------------------------------------------------------------------------
040f ; Debug chain
040f ; --------------------------------------------------------------------------------------
040f 0000 0001 | | .DBGLEN 0x0000,0x0001
0411 0113 | | .DBGLNO 0x0113
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug chain
0412 ; --------------------------------------------------------------------------------------
0412 0003 0009 | | .DBGLEN 0x0003,0x0009
0414 011b 011f | | .DBGLNO 0x011b,0x011f,0x0121,0x0129,0x0130,0x0132,0x0136,0x0146,0x014a,0x0152,0x0158,0x015f
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug chain
0420 ; --------------------------------------------------------------------------------------
0420 0000 0008 | | .DBGLEN 0x0000,0x0008
0422 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0174,0x017a,0x0181,0x0184,0x0188,0x018b
042a ; --------------------------------------------------------------------------------------
042a ; Debug chain
042a ; --------------------------------------------------------------------------------------
042a 0000 0003 | | .DBGLEN 0x0000,0x0003
042c 0193 0196 | | .DBGLNO 0x0193,0x0196,0x0198
042f ; --------------------------------------------------------------------------------------
042f ; Debug chain
042f ; --------------------------------------------------------------------------------------
042f 0000 0003 | | .DBGLEN 0x0000,0x0003
0431 01a3 01a6 | | .DBGLNO 0x01a3,0x01a6,0x01a8
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug chain
0434 ; --------------------------------------------------------------------------------------
0434 0001 000b | | .DBGLEN 0x0001,0x000b
0436 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01b8,0x01ba,0x01bf,0x01c5,0x01c7,0x01ce,0x01d5,0x01dd,0x01e0,0x01e4
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 0001 000c | | .DBGLEN 0x0001,0x000c
0444 021b 0222 | "| .DBGLNO 0x021b,0x0222,0x0225,0x0229,0x0234,0x0238,0x0243,0x0252,0x0271,0x0274,0x027a,0x028a,0x02a2
0451 0001 0002 | | .XXX[0xc]
0453 0003 0004 | |
0455 0005 0006 | |
0457 000b 0007 | |
0459 0008 0009 | |
045b 000a 000c | |
045d ; --------------------------------------------------------------------------------------
045d ; Debug chain
045d ; --------------------------------------------------------------------------------------
045d 0002 0006 | | .DBGLEN 0x0002,0x0006
045f 02ab 02af | | .DBGLNO 0x02ab,0x02af,0x02b3,0x02b9,0x02bc,0x02c4,0x02d4,0x02d9
0467 ; --------------------------------------------------------------------------------------
0467 ; Debug chain
0467 ; --------------------------------------------------------------------------------------
0467 0001 000d | | .DBGLEN 0x0001,0x000d
0469 02e3 02e5 | | .DBGLNO 0x02e3,0x02e5,0x02e9,0x02ef,0x02f1,0x02f8,0x02fa,0x02fb,0x0302,0x0304,0x0305,0x0307,0x030c,0x030f
0477 0001 0003 | | .XXX[0xd]
0479 0004 0005 | |
047b 0006 0007 | |
047d 0008 0009 | |
047f 000a 000b | |
0481 000c 0002 | |
0483 000d | |
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug chain
0484 ; --------------------------------------------------------------------------------------
0484 0002 0008 | | .DBGLEN 0x0002,0x0008
0486 031b 031f | | .DBGLNO 0x031b,0x031f,0x0323,0x0327,0x032b,0x0343,0x0347,0x034e,0x0353,0x035c
0490 0002 0003 | | .XXX[0x8]
0492 0004 0005 | |
0494 0001 0006 | |
0496 0007 0008 | |
0498 0000 0000 | | .BLANK 0000[0x168]