|
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_ccb0b3
└─⟦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 0478 | x | .CONST 0x0478 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0142 | B | .CONST 0x0142 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0010 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0012 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0038 c232 | 2 | Store 0x1,0x32
0039 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
003b c211 | | Store 0x1,0x11
003c 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
003e c212 | | Store 0x1,0x12
003f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0041 c213 | | Store 0x1,0x13
0042 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0044 c214 | | Store 0x1,0x14
0045 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0047 c215 | | Store 0x1,0x15
0048 e002 | | Load 0x0,0x2
0049 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004a 0129 | ) | Execute Any,Make_Visible
004b c216 | | Store 0x1,0x16
004c e216 | | Load 0x1,0x16
004d 0266 | f | Execute Discrete,Bounds
004e 00e1 | | Load_Encached Boolean_Cache
004f 02a0 | | Declare_Subprogram Null_Subprogram
0050 4801 |H | Short_Literal 0x1
0051 035e | ^ | Declare_Type Array,Defined,Visible
0052 c217 | | Store 0x1,0x17
0053 e217 | | Load 0x1,0x17
0054 0337 | 7 | Declare_Variable Array
0055 4800 |H | Short_Literal 0x0
0056 4800 |H | Short_Literal 0x0
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4805 |H | Short_Literal 0x5
005a 4801 |H | Short_Literal 0x1
005b 4801 |H | Short_Literal 0x1
005c 00d9 | | Load_Top At_Offset_1
005d e233 | 3 | Load 0x1,0x33
005e 01d6 | | Execute Vector,Field_Write
005f 3ffb |? | Loop_Increasing 0x5b
0060 e217 | | Load 0x1,0x17
0061 01c3 | | Execute Vector,Check_In_Type
0062 0129 | ) | Execute Any,Make_Visible
0063 c218 | | Store 0x1,0x18
0064 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0066 c219 | | Store 0x1,0x19
0067 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0069 c21a | | Store 0x1,0x1a
006a 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
006c c21b | | Store 0x1,0x1b
006d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
006f c21c | | Store 0x1,0x1c
0070 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0072 c21d | | Store 0x1,0x1d
0073 00e3 | | Load_Encached Natural_Cache
0074 0266 | f | Execute Discrete,Bounds
0075 e20d | | Load 0x1,0xd
0076 02a0 | | Declare_Subprogram Null_Subprogram
0077 4801 |H | Short_Literal 0x1
0078 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0079 c21e | | Store 0x1,0x1e
007a 00e3 | | Load_Encached Natural_Cache
007b e003 | | Load 0x0,0x3
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 4801 |H | Short_Literal 0x1
007e 60d1 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x7fffffff}
007f e21e | | Load 0x1,0x1e
0080 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0081 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
0083 4800 |H | Short_Literal 0x0
0084 4801 |H | Short_Literal 0x1
0085 4801 |H | Short_Literal 0x1
0086 4800 |H | Short_Literal 0x0
0087 4801 |H | Short_Literal 0x1
0088 4801 |H | Short_Literal 0x1
0089 031e | | Declare_Type Variant_Record,Defined,Visible
008a c21f | | Store 0x1,0x1f
008b e217 | | Load 0x1,0x17
008c e004 | | Load 0x0,0x4
008d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008e 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0090 4802 |H | Short_Literal 0x2
0091 032e | . | Declare_Type Record,Defined,Visible
0092 c220 | | Store 0x1,0x20
0093 00e3 | | Load_Encached Natural_Cache
0094 0266 | f | Execute Discrete,Bounds
0095 e220 | | Load 0x1,0x20
0096 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0098 4801 |H | Short_Literal 0x1
0099 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
009a c221 | ! | Store 0x1,0x21
009b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
009d c222 | " | Store 0x1,0x22
009e 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
00a0 c223 | # | Store 0x1,0x23
00a1 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
00a3 c224 | $ | Store 0x1,0x24
00a4 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
00a6 c225 | % | Store 0x1,0x25
00a7 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
00a9 c226 | & | Store 0x1,0x26
00aa 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
00ac c227 | ' | Store 0x1,0x27
00ad 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
00af c228 | ( | Store 0x1,0x28
00b0 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
00b2 c229 | ) | Store 0x1,0x29
00b3 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
00b5 c22a | * | Store 0x1,0x2a
00b6 e217 | | Load 0x1,0x17
00b7 0337 | 7 | Declare_Variable Array
00b8 4801 |H | Short_Literal 0x1
00b9 4801 |H | Short_Literal 0x1
00ba 00da | | Load_Top At_Offset_2
00bb 01d6 | | Execute Vector,Field_Write
00bc 4801 |H | Short_Literal 0x1
00bd 4802 |H | Short_Literal 0x2
00be 00da | | Load_Top At_Offset_2
00bf 01d6 | | Execute Vector,Field_Write
00c0 4800 |H | Short_Literal 0x0
00c1 4800 |H | Short_Literal 0x0
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 4805 |H | Short_Literal 0x5
00c5 4803 |H | Short_Literal 0x3
00c6 4800 |H | Short_Literal 0x0
00c7 00d9 | | Load_Top At_Offset_1
00c8 e233 | 3 | Load 0x1,0x33
00c9 01d6 | | Execute Vector,Field_Write
00ca 3ffb |? | Loop_Increasing 0xc6
00cb e217 | | Load 0x1,0x17
00cc 01c3 | | Execute Vector,Check_In_Type
00cd 0129 | ) | Execute Any,Make_Visible
00ce c22b | + | Store 0x1,0x2b
00cf e217 | | Load 0x1,0x17
00d0 0337 | 7 | Declare_Variable Array
00d1 4804 |H | Short_Literal 0x4
00d2 4801 |H | Short_Literal 0x1
00d3 4801 |H | Short_Literal 0x1
00d4 00d9 | | Load_Top At_Offset_1
00d5 e233 | 3 | Load 0x1,0x33
00d6 01d6 | | Execute Vector,Field_Write
00d7 3ffb |? | Loop_Increasing 0xd3
00d8 4800 |H | Short_Literal 0x0
00d9 4800 |H | Short_Literal 0x0
00da 00da | | Load_Top At_Offset_2
00db 01d6 | | Execute Vector,Field_Write
00dc 4800 |H | Short_Literal 0x0
00dd 4805 |H | Short_Literal 0x5
00de 00da | | Load_Top At_Offset_2
00df 01d6 | | Execute Vector,Field_Write
00e0 e217 | | Load 0x1,0x17
00e1 01c3 | | Execute Vector,Check_In_Type
00e2 0129 | ) | Execute Any,Make_Visible
00e3 c22c | , | Store 0x1,0x2c
00e4 e217 | | Load 0x1,0x17
00e5 0337 | 7 | Declare_Variable Array
00e6 4801 |H | Short_Literal 0x1
00e7 4805 |H | Short_Literal 0x5
00e8 00da | | Load_Top At_Offset_2
00e9 01d6 | | Execute Vector,Field_Write
00ea 4804 |H | Short_Literal 0x4
00eb 4800 |H | Short_Literal 0x0
00ec 4800 |H | Short_Literal 0x0
00ed 00d9 | | Load_Top At_Offset_1
00ee e233 | 3 | Load 0x1,0x33
00ef 01d6 | | Execute Vector,Field_Write
00f0 3ffb |? | Loop_Increasing 0xec
00f1 e217 | | Load 0x1,0x17
00f2 01c3 | | Execute Vector,Check_In_Type
00f3 0129 | ) | Execute Any,Make_Visible
00f4 c22d | - | Store 0x1,0x2d
00f5 e217 | | Load 0x1,0x17
00f6 0336 | 6 | Declare_Variable Array,Visible
00f7 00d8 | | Load_Top At_Offset_0
00f8 0335 | 5 | Declare_Variable Array,Duplicate
00f9 00cd | | Action Spare6_Action
00fa 4805 |H | Short_Literal 0x5
00fb 4800 |H | Short_Literal 0x0
00fc 4801 |H | Short_Literal 0x1
00fd 00d9 | | Load_Top At_Offset_1
00fe e234 | 4 | Load 0x1,0x34
00ff 01d6 | | Execute Vector,Field_Write
0100 3ffb |? | Loop_Increasing 0xfc
0101 00d9 | | Load_Top At_Offset_1
0102 01d4 | | Execute Vector,Structure_Write
0103 c22e | . | Store 0x1,0x2e
0104 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0106 c22f | / | Store 0x1,0x2f
0107 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
0109 c230 | 0 | Store 0x1,0x30
010a 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
010c c231 | 1 | Store 0x1,0x31
010d 00bf | | Action Accept_Activation
010e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
010f 00c7 | | Action Elaborate_Subprogram
0110 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0111 00c7 | | Action Elaborate_Subprogram
0112 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0113 00c7 | | Action Elaborate_Subprogram
0114 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0115 00c7 | | Action Elaborate_Subprogram
0116 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0117 00c7 | | Action Elaborate_Subprogram
0118 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0119 00c7 | | Action Elaborate_Subprogram
011a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
011b 00c7 | | Action Elaborate_Subprogram
011c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
011d 00c7 | | Action Elaborate_Subprogram
011e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
011f 00c7 | | Action Elaborate_Subprogram
0120 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0121 00c7 | | Action Elaborate_Subprogram
0122 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0123 00c7 | | Action Elaborate_Subprogram
0124 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0125 00c7 | | Action Elaborate_Subprogram
0126 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0127 00c7 | | Action Elaborate_Subprogram
0128 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0129 00c7 | | Action Elaborate_Subprogram
012a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
012b 00c7 | | Action Elaborate_Subprogram
012c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
012d 00c7 | | Action Elaborate_Subprogram
012e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
012f 00c7 | | Action Elaborate_Subprogram
0130 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0131 00c7 | | Action Elaborate_Subprogram
0132 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0133 00c7 | | Action Elaborate_Subprogram
0134 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0135 00c7 | | Action Elaborate_Subprogram
0136 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0137 00c7 | | Action Elaborate_Subprogram
0138 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0139 00c7 | | Action Elaborate_Subprogram
013a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
013b 00c7 | | Action Elaborate_Subprogram
013c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
013d 00c7 | | Action Elaborate_Subprogram
013e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
013f 00c7 | | Action Elaborate_Subprogram
0140 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0141 00c7 | | Action Elaborate_Subprogram
0142 BODY_0008:
0142 00bc | | Action Signal_Activated
0143 00bb | | Action Signal_Completion
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c e005 | | Load 0x0,0x5
014d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
014e 180e | | Execute Package,Field_Execute,Field_Number 0xe
014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0150 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e5fd | | Load 0x2,-0x3
015c e5fe | | Load 0x2,-0x2
015d 0120 | | Execute Any,Is_Value
015e 6803 |h | Jump_Zero 0x162
015f e004 | | Load 0x0,0x4
0160 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0161 7801 |x | Jump 0x163
0162 e5fe | | Load 0x2,-0x2
0163 e5ff | | Load 0x2,-0x1
0164 e005 | | Load 0x0,0x5
0165 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0166 180f | | Execute Package,Field_Execute,Field_Number 0xf
0167 c5fe | | Store 0x2,-0x2
0168 c5fd | | Store 0x2,-0x3
0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e5fd | | Load 0x2,-0x3
0174 e005 | | Load 0x0,0x5
0175 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0176 e5ff | | Load 0x2,-0x1
0177 e005 | | Load 0x0,0x5
0178 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0179 1810 | | Execute Package,Field_Execute,Field_Number 0x10
017a c5fe | | Store 0x2,-0x2
017b c5fd | | Store 0x2,-0x3
017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e005 | | Load 0x0,0x5
0185 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0186 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c e005 | | Load 0x0,0x5
018d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e005 | | Load 0x0,0x5
0195 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0196 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e005 | | Load 0x0,0x5
019d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
019e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e5fd | | Load 0x2,-0x3
01a4 e005 | | Load 0x0,0x5
01a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01a6 e5ff | | Load 0x2,-0x1
01a7 e005 | | Load 0x0,0x5
01a8 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01aa c5fe | | Store 0x2,-0x2
01ab c5fd | | Store 0x2,-0x3
01ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e5fd | | Load 0x2,-0x3
01b4 e005 | | Load 0x0,0x5
01b5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b7 e5ff | | Load 0x2,-0x1
01b8 e005 | | Load 0x0,0x5
01b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01ba 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01bb c5fe | | Store 0x2,-0x2
01bc c5fd | | Store 0x2,-0x3
01bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 e005 | | Load 0x0,0x5
01c5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01c7 00d8 | | Load_Top At_Offset_0
01c8 01db | | Execute Vector,Length
01c9 e217 | | Load 0x1,0x17
01ca 01db | | Execute Vector,Length
01cb 027f | | Execute Discrete,Equal
01cc 7001 |p | Jump_Nonzero 0x1ce
01cd 08e0 | | Execute_Immediate Raise,0xe0
01ce e217 | | Load 0x1,0x17
01cf 0337 | 7 | Declare_Variable Array
01d0 00d0 | | Action Swap_Control
01d1 00d8 | | Load_Top At_Offset_0
01d2 01dd | | Execute Vector,First
01d3 00da | | Load_Top At_Offset_2
01d4 01dd | | Execute Vector,First
01d5 0272 | r | Execute Discrete,Minus
01d6 00da | | Load_Top At_Offset_2
01d7 01d9 | | Execute Vector,Reverse_Bounds
01d8 0263 | c | Execute Discrete,Above_Bound
01d9 700a |p | Jump_Nonzero 0x1e4
01da 00d8 | | Load_Top At_Offset_0
01db 00db | | Load_Top At_Offset_3
01dc 0273 | s | Execute Discrete,Plus
01dd e403 | | Load 0x2,0x3
01de 01d7 | | Execute Vector,Field_Read
01df 00d9 | | Load_Top At_Offset_1
01e0 e402 | | Load 0x2,0x2
01e1 01d5 | | Execute Vector,Field_Reference
01e2 0118 | | Execute Any,Write_Unchecked
01e3 3ff6 |? | Loop_Increasing 0x1da
01e4 00d2 | | Pop_Control Pop_Count_2
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
01ec e005 | | Load 0x0,0x5
01ed 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01ee 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ef e006 | | Load 0x0,0x6
01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
01fc e005 | | Load 0x0,0x5
01fd 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 e005 | | Load 0x0,0x5
0205 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0206 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c e005 | | Load 0x0,0x5
020d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
020e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00d1 | | Pop_Control Pop_Count_1
0214 00da | | Load_Top At_Offset_2
0215 01dc | | Execute Vector,Last
0216 00db | | Load_Top At_Offset_3
0217 01dd | | Execute Vector,First
0218 0263 | c | Execute Discrete,Above_Bound
0219 7006 |p | Jump_Nonzero 0x220
021a 00d8 | | Load_Top At_Offset_0
021b e5ff | | Load 0x2,-0x1
021c 01d5 | | Execute Vector,Field_Reference
021d 1c00 | | Execute_Immediate Run_Utility,0x0
021e 0a01 | | Execute_Immediate Plus,0x1
021f 7ff8 | | Jump 0x218
0220 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00db | | Load_Top At_Offset_3
022c 00db | | Load_Top At_Offset_3
022d e005 | | Load 0x0,0x5
022e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0230 c5fe | | Store 0x2,-0x2
0231 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0232 0000 0000 | | .BLANK 0000[0x6]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e5fc | | Load 0x2,-0x4
023c e5fd | | Load 0x2,-0x3
023d 00d8 | | Load_Top At_Offset_0
023e 01db | | Execute Vector,Length
023f e005 | | Load 0x0,0x5
0240 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0241 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0242 01db | | Execute Vector,Length
0243 027f | | Execute Discrete,Equal
0244 7001 |p | Jump_Nonzero 0x246
0245 08e0 | | Execute_Immediate Raise,0xe0
0246 e005 | | Load 0x0,0x5
0247 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0248 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0249 0337 | 7 | Declare_Variable Array
024a 00d0 | | Action Swap_Control
024b 00d8 | | Load_Top At_Offset_0
024c 01dd | | Execute Vector,First
024d 00da | | Load_Top At_Offset_2
024e 01dd | | Execute Vector,First
024f 0272 | r | Execute Discrete,Minus
0250 00da | | Load_Top At_Offset_2
0251 01d9 | | Execute Vector,Reverse_Bounds
0252 0263 | c | Execute Discrete,Above_Bound
0253 700a |p | Jump_Nonzero 0x25e
0254 00d8 | | Load_Top At_Offset_0
0255 00db | | Load_Top At_Offset_3
0256 0273 | s | Execute Discrete,Plus
0257 e404 | | Load 0x2,0x4
0258 01d7 | | Execute Vector,Field_Read
0259 00d9 | | Load_Top At_Offset_1
025a e403 | | Load 0x2,0x3
025b 01d5 | | Execute Vector,Field_Reference
025c 0118 | | Execute Any,Write_Unchecked
025d 3ff6 |? | Loop_Increasing 0x254
025e 00d2 | | Pop_Control Pop_Count_2
025f e5fe | | Load 0x2,-0x2
0260 e5ff | | Load 0x2,-0x1
0261 e005 | | Load 0x0,0x5
0262 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0263 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0264 c5fc | | Store 0x2,-0x4
0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e5fc | | Load 0x2,-0x4
026c e5fd | | Load 0x2,-0x3
026d 00d8 | | Load_Top At_Offset_0
026e 01db | | Execute Vector,Length
026f e005 | | Load 0x0,0x5
0270 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0271 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0272 01db | | Execute Vector,Length
0273 027f | | Execute Discrete,Equal
0274 7001 |p | Jump_Nonzero 0x276
0275 08e0 | | Execute_Immediate Raise,0xe0
0276 e005 | | Load 0x0,0x5
0277 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0278 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0279 0337 | 7 | Declare_Variable Array
027a 00d0 | | Action Swap_Control
027b 00d8 | | Load_Top At_Offset_0
027c 01dd | | Execute Vector,First
027d 00da | | Load_Top At_Offset_2
027e 01dd | | Execute Vector,First
027f 0272 | r | Execute Discrete,Minus
0280 00da | | Load_Top At_Offset_2
0281 01d9 | | Execute Vector,Reverse_Bounds
0282 0263 | c | Execute Discrete,Above_Bound
0283 700a |p | Jump_Nonzero 0x28e
0284 00d8 | | Load_Top At_Offset_0
0285 00db | | Load_Top At_Offset_3
0286 0273 | s | Execute Discrete,Plus
0287 e404 | | Load 0x2,0x4
0288 01d7 | | Execute Vector,Field_Read
0289 00d9 | | Load_Top At_Offset_1
028a e403 | | Load 0x2,0x3
028b 01d5 | | Execute Vector,Field_Reference
028c 0118 | | Execute Any,Write_Unchecked
028d 3ff6 |? | Loop_Increasing 0x284
028e 00d2 | | Pop_Control Pop_Count_2
028f e5fe | | Load 0x2,-0x2
0290 e5ff | | Load 0x2,-0x1
0291 e005 | | Load 0x0,0x5
0292 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0293 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0294 c5fc | | Store 0x2,-0x4
0295 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0296 0000 0000 | | .XXX[0x2]
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 e5fc | | Load 0x2,-0x4
029c e5fd | | Load 0x2,-0x3
029d 00d8 | | Load_Top At_Offset_0
029e 01db | | Execute Vector,Length
029f e005 | | Load 0x0,0x5
02a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a2 01db | | Execute Vector,Length
02a3 027f | | Execute Discrete,Equal
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 08e0 | | Execute_Immediate Raise,0xe0
02a6 e005 | | Load 0x0,0x5
02a7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02a8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a9 0337 | 7 | Declare_Variable Array
02aa 00d0 | | Action Swap_Control
02ab 00d8 | | Load_Top At_Offset_0
02ac 01dd | | Execute Vector,First
02ad 00da | | Load_Top At_Offset_2
02ae 01dd | | Execute Vector,First
02af 0272 | r | Execute Discrete,Minus
02b0 00da | | Load_Top At_Offset_2
02b1 01d9 | | Execute Vector,Reverse_Bounds
02b2 0263 | c | Execute Discrete,Above_Bound
02b3 700a |p | Jump_Nonzero 0x2be
02b4 00d8 | | Load_Top At_Offset_0
02b5 00db | | Load_Top At_Offset_3
02b6 0273 | s | Execute Discrete,Plus
02b7 e404 | | Load 0x2,0x4
02b8 01d7 | | Execute Vector,Field_Read
02b9 00d9 | | Load_Top At_Offset_1
02ba e403 | | Load 0x2,0x3
02bb 01d5 | | Execute Vector,Field_Reference
02bc 0118 | | Execute Any,Write_Unchecked
02bd 3ff6 |? | Loop_Increasing 0x2b4
02be 00d2 | | Pop_Control Pop_Count_2
02bf e5fe | | Load 0x2,-0x2
02c0 e5ff | | Load 0x2,-0x1
02c1 e005 | | Load 0x0,0x5
02c2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02c3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02c4 c5fc | | Store 0x2,-0x4
02c5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e5fc | | Load 0x2,-0x4
02cc e5fd | | Load 0x2,-0x3
02cd 00d8 | | Load_Top At_Offset_0
02ce 01db | | Execute Vector,Length
02cf e005 | | Load 0x0,0x5
02d0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02d2 01db | | Execute Vector,Length
02d3 027f | | Execute Discrete,Equal
02d4 7001 |p | Jump_Nonzero 0x2d6
02d5 08e0 | | Execute_Immediate Raise,0xe0
02d6 e005 | | Load 0x0,0x5
02d7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02d8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02d9 0337 | 7 | Declare_Variable Array
02da 00d0 | | Action Swap_Control
02db 00d8 | | Load_Top At_Offset_0
02dc 01dd | | Execute Vector,First
02dd 00da | | Load_Top At_Offset_2
02de 01dd | | Execute Vector,First
02df 0272 | r | Execute Discrete,Minus
02e0 00da | | Load_Top At_Offset_2
02e1 01d9 | | Execute Vector,Reverse_Bounds
02e2 0263 | c | Execute Discrete,Above_Bound
02e3 700a |p | Jump_Nonzero 0x2ee
02e4 00d8 | | Load_Top At_Offset_0
02e5 00db | | Load_Top At_Offset_3
02e6 0273 | s | Execute Discrete,Plus
02e7 e404 | | Load 0x2,0x4
02e8 01d7 | | Execute Vector,Field_Read
02e9 00d9 | | Load_Top At_Offset_1
02ea e403 | | Load 0x2,0x3
02eb 01d5 | | Execute Vector,Field_Reference
02ec 0118 | | Execute Any,Write_Unchecked
02ed 3ff6 |? | Loop_Increasing 0x2e4
02ee 00d2 | | Pop_Control Pop_Count_2
02ef e5fe | | Load 0x2,-0x2
02f0 e5ff | | Load 0x2,-0x1
02f1 e005 | | Load 0x0,0x5
02f2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02f3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02f4 c5fc | | Store 0x2,-0x4
02f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02f6 0000 0000 | | .XXX[0x2]
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 e5fc | | Load 0x2,-0x4
02fc e5fd | | Load 0x2,-0x3
02fd 00d8 | | Load_Top At_Offset_0
02fe 01db | | Execute Vector,Length
02ff e005 | | Load 0x0,0x5
0300 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0301 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0302 01db | | Execute Vector,Length
0303 027f | | Execute Discrete,Equal
0304 7001 |p | Jump_Nonzero 0x306
0305 08e0 | | Execute_Immediate Raise,0xe0
0306 e005 | | Load 0x0,0x5
0307 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0308 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0309 0337 | 7 | Declare_Variable Array
030a 00d0 | | Action Swap_Control
030b 00d8 | | Load_Top At_Offset_0
030c 01dd | | Execute Vector,First
030d 00da | | Load_Top At_Offset_2
030e 01dd | | Execute Vector,First
030f 0272 | r | Execute Discrete,Minus
0310 00da | | Load_Top At_Offset_2
0311 01d9 | | Execute Vector,Reverse_Bounds
0312 0263 | c | Execute Discrete,Above_Bound
0313 700a |p | Jump_Nonzero 0x31e
0314 00d8 | | Load_Top At_Offset_0
0315 00db | | Load_Top At_Offset_3
0316 0273 | s | Execute Discrete,Plus
0317 e404 | | Load 0x2,0x4
0318 01d7 | | Execute Vector,Field_Read
0319 00d9 | | Load_Top At_Offset_1
031a e403 | | Load 0x2,0x3
031b 01d5 | | Execute Vector,Field_Reference
031c 0118 | | Execute Any,Write_Unchecked
031d 3ff6 |? | Loop_Increasing 0x314
031e 00d2 | | Pop_Control Pop_Count_2
031f e5fe | | Load 0x2,-0x2
0320 e5ff | | Load 0x2,-0x1
0321 e005 | | Load 0x0,0x5
0322 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0323 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0324 c5fc | | Store 0x2,-0x4
0325 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0326 0000 0000 | | .XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b e5fc | | Load 0x2,-0x4
032c e5fd | | Load 0x2,-0x3
032d 00d8 | | Load_Top At_Offset_0
032e 01db | | Execute Vector,Length
032f e005 | | Load 0x0,0x5
0330 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0331 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0332 01db | | Execute Vector,Length
0333 027f | | Execute Discrete,Equal
0334 7001 |p | Jump_Nonzero 0x336
0335 08e0 | | Execute_Immediate Raise,0xe0
0336 e005 | | Load 0x0,0x5
0337 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0338 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0339 0337 | 7 | Declare_Variable Array
033a 00d0 | | Action Swap_Control
033b 00d8 | | Load_Top At_Offset_0
033c 01dd | | Execute Vector,First
033d 00da | | Load_Top At_Offset_2
033e 01dd | | Execute Vector,First
033f 0272 | r | Execute Discrete,Minus
0340 00da | | Load_Top At_Offset_2
0341 01d9 | | Execute Vector,Reverse_Bounds
0342 0263 | c | Execute Discrete,Above_Bound
0343 700a |p | Jump_Nonzero 0x34e
0344 00d8 | | Load_Top At_Offset_0
0345 00db | | Load_Top At_Offset_3
0346 0273 | s | Execute Discrete,Plus
0347 e404 | | Load 0x2,0x4
0348 01d7 | | Execute Vector,Field_Read
0349 00d9 | | Load_Top At_Offset_1
034a e403 | | Load 0x2,0x3
034b 01d5 | | Execute Vector,Field_Reference
034c 0118 | | Execute Any,Write_Unchecked
034d 3ff6 |? | Loop_Increasing 0x344
034e 00d2 | | Pop_Control Pop_Count_2
034f e5fe | | Load 0x2,-0x2
0350 e5ff | | Load 0x2,-0x1
0351 e007 | | Load 0x0,0x7
0352 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0353 e005 | | Load 0x0,0x5
0354 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0355 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0356 c5fc | | Store 0x2,-0x4
0357 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c e005 | | Load 0x0,0x5
035d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
035e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
035f 00d8 | | Load_Top At_Offset_0
0360 01db | | Execute Vector,Length
0361 e217 | | Load 0x1,0x17
0362 01db | | Execute Vector,Length
0363 027f | | Execute Discrete,Equal
0364 7001 |p | Jump_Nonzero 0x366
0365 08e0 | | Execute_Immediate Raise,0xe0
0366 e217 | | Load 0x1,0x17
0367 0337 | 7 | Declare_Variable Array
0368 00d0 | | Action Swap_Control
0369 00d8 | | Load_Top At_Offset_0
036a 01dd | | Execute Vector,First
036b 00da | | Load_Top At_Offset_2
036c 01dd | | Execute Vector,First
036d 0272 | r | Execute Discrete,Minus
036e 00da | | Load_Top At_Offset_2
036f 01d9 | | Execute Vector,Reverse_Bounds
0370 0263 | c | Execute Discrete,Above_Bound
0371 700a |p | Jump_Nonzero 0x37c
0372 00d8 | | Load_Top At_Offset_0
0373 00db | | Load_Top At_Offset_3
0374 0273 | s | Execute Discrete,Plus
0375 e403 | | Load 0x2,0x3
0376 01d7 | | Execute Vector,Field_Read
0377 00d9 | | Load_Top At_Offset_1
0378 e402 | | Load 0x2,0x2
0379 01d5 | | Execute Vector,Field_Reference
037a 0118 | | Execute Any,Write_Unchecked
037b 3ff6 |? | Loop_Increasing 0x372
037c 00d2 | | Pop_Control Pop_Count_2
037d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037e 0000 0000 | | .XXX[0x2]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 e5fd | | Load 0x2,-0x3
0384 e5fe | | Load 0x2,-0x2
0385 00d8 | | Load_Top At_Offset_0
0386 01db | | Execute Vector,Length
0387 e005 | | Load 0x0,0x5
0388 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0389 1b17 | | Execute Package,Field_Read,Field_Number 0x17
038a 01db | | Execute Vector,Length
038b 027f | | Execute Discrete,Equal
038c 7001 |p | Jump_Nonzero 0x38e
038d 08e0 | | Execute_Immediate Raise,0xe0
038e e005 | | Load 0x0,0x5
038f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0390 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0391 0337 | 7 | Declare_Variable Array
0392 00d0 | | Action Swap_Control
0393 00d8 | | Load_Top At_Offset_0
0394 01dd | | Execute Vector,First
0395 00da | | Load_Top At_Offset_2
0396 01dd | | Execute Vector,First
0397 0272 | r | Execute Discrete,Minus
0398 00da | | Load_Top At_Offset_2
0399 01d9 | | Execute Vector,Reverse_Bounds
039a 0263 | c | Execute Discrete,Above_Bound
039b 700a |p | Jump_Nonzero 0x3a6
039c 00d8 | | Load_Top At_Offset_0
039d 00db | | Load_Top At_Offset_3
039e 0273 | s | Execute Discrete,Plus
039f e404 | | Load 0x2,0x4
03a0 01d7 | | Execute Vector,Field_Read
03a1 00d9 | | Load_Top At_Offset_1
03a2 e403 | | Load 0x2,0x3
03a3 01d5 | | Execute Vector,Field_Reference
03a4 0118 | | Execute Any,Write_Unchecked
03a5 3ff6 |? | Loop_Increasing 0x39c
03a6 00d2 | | Pop_Control Pop_Count_2
03a7 e5ff | | Load 0x2,-0x1
03a8 e005 | | Load 0x0,0x5
03a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03aa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
03ab c5fd | | Store 0x2,-0x3
03ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00db | | Load_Top At_Offset_3
03b4 00d8 | | Load_Top At_Offset_0
03b5 01db | | Execute Vector,Length
03b6 e005 | | Load 0x0,0x5
03b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03b9 01db | | Execute Vector,Length
03ba 027f | | Execute Discrete,Equal
03bb 7001 |p | Jump_Nonzero 0x3bd
03bc 08e0 | | Execute_Immediate Raise,0xe0
03bd e005 | | Load 0x0,0x5
03be 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03c0 0337 | 7 | Declare_Variable Array
03c1 00d0 | | Action Swap_Control
03c2 00d8 | | Load_Top At_Offset_0
03c3 01dd | | Execute Vector,First
03c4 00da | | Load_Top At_Offset_2
03c5 01dd | | Execute Vector,First
03c6 0272 | r | Execute Discrete,Minus
03c7 00da | | Load_Top At_Offset_2
03c8 01d9 | | Execute Vector,Reverse_Bounds
03c9 0263 | c | Execute Discrete,Above_Bound
03ca 700a |p | Jump_Nonzero 0x3d5
03cb 00d8 | | Load_Top At_Offset_0
03cc 00db | | Load_Top At_Offset_3
03cd 0273 | s | Execute Discrete,Plus
03ce e403 | | Load 0x2,0x3
03cf 01d7 | | Execute Vector,Field_Read
03d0 00d9 | | Load_Top At_Offset_1
03d1 e402 | | Load 0x2,0x2
03d2 01d5 | | Execute Vector,Field_Reference
03d3 0118 | | Execute Any,Write_Unchecked
03d4 3ff6 |? | Loop_Increasing 0x3cb
03d5 00d2 | | Pop_Control Pop_Count_2
03d6 00db | | Load_Top At_Offset_3
03d7 e005 | | Load 0x0,0x5
03d8 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03d9 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
03da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03db 0000 0000 | | .BLANK 0000[0x5]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00db | | Load_Top At_Offset_3
03e4 00d8 | | Load_Top At_Offset_0
03e5 01db | | Execute Vector,Length
03e6 e005 | | Load 0x0,0x5
03e7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03e9 01db | | Execute Vector,Length
03ea 027f | | Execute Discrete,Equal
03eb 7001 |p | Jump_Nonzero 0x3ed
03ec 08e0 | | Execute_Immediate Raise,0xe0
03ed e005 | | Load 0x0,0x5
03ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03ef 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03f0 0337 | 7 | Declare_Variable Array
03f1 00d0 | | Action Swap_Control
03f2 00d8 | | Load_Top At_Offset_0
03f3 01dd | | Execute Vector,First
03f4 00da | | Load_Top At_Offset_2
03f5 01dd | | Execute Vector,First
03f6 0272 | r | Execute Discrete,Minus
03f7 00da | | Load_Top At_Offset_2
03f8 01d9 | | Execute Vector,Reverse_Bounds
03f9 0263 | c | Execute Discrete,Above_Bound
03fa 700a |p | Jump_Nonzero 0x405
03fb 00d8 | | Load_Top At_Offset_0
03fc 00db | | Load_Top At_Offset_3
03fd 0273 | s | Execute Discrete,Plus
03fe e403 | | Load 0x2,0x3
03ff 01d7 | | Execute Vector,Field_Read
0400 00d9 | | Load_Top At_Offset_1
0401 e402 | | Load 0x2,0x2
0402 01d5 | | Execute Vector,Field_Reference
0403 0118 | | Execute Any,Write_Unchecked
0404 3ff6 |? | Loop_Increasing 0x3fb
0405 00d2 | | Pop_Control Pop_Count_2
0406 00db | | Load_Top At_Offset_3
0407 e005 | | Load 0x0,0x5
0408 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0409 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
040a e008 | | Load 0x0,0x8
040b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
040c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00db | | Load_Top At_Offset_3
0414 00db | | Load_Top At_Offset_3
0415 e005 | | Load 0x0,0x5
0416 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0417 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0418 00d8 | | Load_Top At_Offset_0
0419 01db | | Execute Vector,Length
041a e217 | | Load 0x1,0x17
041b 01db | | Execute Vector,Length
041c 027f | | Execute Discrete,Equal
041d 7001 |p | Jump_Nonzero 0x41f
041e 08e0 | | Execute_Immediate Raise,0xe0
041f e217 | | Load 0x1,0x17
0420 0337 | 7 | Declare_Variable Array
0421 00d0 | | Action Swap_Control
0422 00d8 | | Load_Top At_Offset_0
0423 01dd | | Execute Vector,First
0424 00da | | Load_Top At_Offset_2
0425 01dd | | Execute Vector,First
0426 0272 | r | Execute Discrete,Minus
0427 00da | | Load_Top At_Offset_2
0428 01d9 | | Execute Vector,Reverse_Bounds
0429 0263 | c | Execute Discrete,Above_Bound
042a 700a |p | Jump_Nonzero 0x435
042b 00d8 | | Load_Top At_Offset_0
042c 00db | | Load_Top At_Offset_3
042d 0273 | s | Execute Discrete,Plus
042e e403 | | Load 0x2,0x3
042f 01d7 | | Execute Vector,Field_Read
0430 00d9 | | Load_Top At_Offset_1
0431 e402 | | Load 0x2,0x2
0432 01d5 | | Execute Vector,Field_Reference
0433 0118 | | Execute Any,Write_Unchecked
0434 3ff6 |? | Loop_Increasing 0x42b
0435 00d2 | | Pop_Control Pop_Count_2
0436 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0437 0000 | | .XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 4608 |F | Jump_Case 0x9
043c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
043d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
043e 7819 |x | Jump 0x458 ; case 0x2
043f 7818 |x | Jump 0x458 ; case 0x3
0440 7817 |x | Jump 0x458 ; case 0x4
0441 7816 |x | Jump 0x458 ; case 0x5
0442 7815 |x | Jump 0x458 ; case 0x6
0443 7801 |x | Jump 0x445 ; case 0x7
0444 7809 |x | Jump 0x44e ; case 0x8
0445 00db | | Load_Top At_Offset_3
0446 4801 |H | Short_Literal 0x1
0447 e5fe | | Load 0x2,-0x2
0448 e21e | | Load 0x1,0x1e
0449 035b | [ | Declare_Type Array,Constrained
044a 4801 |H | Short_Literal 0x1
044b e5ff | | Load 0x2,-0x1
044c 031b | | Declare_Type Variant_Record,Constrained
044d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
044e 00db | | Load_Top At_Offset_3
044f 00db | | Load_Top At_Offset_3
0450 02fc | | Declare_Variable Variant_Record,With_Constraint
0451 4801 |H | Short_Literal 0x1
0452 e5fe | | Load 0x2,-0x2
0453 e21e | | Load 0x1,0x1e
0454 0334 | 4 | Declare_Variable Array,With_Constraint
0455 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0456 016a | j | QQ_execute Variant_Record,XXX
0457 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0458 0869 | i | Execute_Immediate Raise,0x69
0459 0000 0000 | | .BLANK 0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 4608 |F | Jump_Case 0x9
0464 7808 |x | Jump 0x46d ; case 0x0
0465 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0466 780d |x | Jump 0x474 ; case 0x2
0467 780c |x | Jump 0x474 ; case 0x3
0468 780b |x | Jump 0x474 ; case 0x4
0469 780a |x | Jump 0x474 ; case 0x5
046a 7809 |x | Jump 0x474 ; case 0x6
046b 7808 |x | Jump 0x474 ; case 0x7
046c 7807 |x | Jump 0x474 ; case 0x8
046d 00da | | Load_Top At_Offset_2
046e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
046f 0125 | % | Execute Any,Set_Constraint
0470 00da | | Load_Top At_Offset_2
0471 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0472 1c00 | | Execute_Immediate Run_Utility,0x0
0473 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0474 0869 | i | Execute_Immediate Raise,0x69
0475 0000 0000 | | .XXX[0x3]
0477 0000 | |
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug Table
0478 ; --------------------------------------------------------------------------------------
0478 0004 000d | | .DEBUG4 0x0004,0x000d,0xd954,0x0000,0x0001,0x0000
047e 0000 0000 | | .BLANK 0000[0x182]