|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0948 | H | .CONST 0x0948 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0196 | | .CONST 0x0196 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0043 | C | .CONST 0x0043 ; Number of locals
000b INIT_0008:
000b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
000d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
000f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0011 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0013 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0015 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0017 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0019 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
001b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
001d 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
001f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0021 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0023 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0025 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0027 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0029 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
002b 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
002d 4800 |H | Short_Literal 0x0
002e 0093 082b | +| push_full_address INIT_0828
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 038f | | Declare_Type Package,Defined,Visible
0032 0386 | | Declare_Variable Package,Visible
0033 0093 0000 | | push_full_address 0x0
0035 6172 |ar | Indirect_Literal Discrete,0x1a8,{0x80000000, 0x00020000}
0036 0273 | s | Execute Discrete,Plus
0037 e002 | | Load 0x0,0x2
0038 0273 | s | Execute Discrete,Plus
0039 e003 | | Load 0x0,0x3
003a 0273 | s | Execute Discrete,Plus
003b e004 | | Load 0x0,0x4
003c e005 | | Load 0x0,0x5
003d 4801 |H | Short_Literal 0x1
003e a006 | | Store_Unchecked 0x0,0x6
003f a007 | | Store_Unchecked 0x0,0x7
0040 a008 | | Store_Unchecked 0x0,0x8
0041 a009 | | Store_Unchecked 0x0,0x9
0042 a00a | | Store_Unchecked 0x0,0xa
0043 a00b | | Store_Unchecked 0x0,0xb
0044 a00c | | Store_Unchecked 0x0,0xc
0045 a00d | | Store_Unchecked 0x0,0xd
0046 a00e | | Store_Unchecked 0x0,0xe
0047 e00f | | Load 0x0,0xf
0048 0386 | | Declare_Variable Package,Visible
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b e010 | | Load 0x0,0x10
004c e011 | | Load 0x0,0x11
004d 00da | | Load_Top At_Offset_2
004e 0098 | | Execute Package,Field_Read_Dynamic
004f e012 | | Load 0x0,0x12
0050 e013 | | Load 0x0,0x13
0051 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0052 02a0 | | Declare_Subprogram Null_Subprogram
0053 4804 |H | Short_Literal 0x4
0054 032e | . | Declare_Type Record,Defined,Visible
0055 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0057 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0059 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
005b 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
005d 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
005f 4800 |H | Short_Literal 0x0
0060 4803 |H | Short_Literal 0x3
0061 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0063 03fe | | Declare_Type Discrete,Defined,Visible
0064 e220 | | Load 0x1,0x20
0065 00e1 | | Load_Encached Boolean_Cache
0066 00da | | Load_Top At_Offset_2
0067 00e1 | | Load_Encached Boolean_Cache
0068 e014 | | Load 0x0,0x14
0069 e21f | | Load 0x1,0x1f
006a 0098 | | Execute Package,Field_Read_Dynamic
006b e015 | | Load 0x0,0x15
006c 029f 0813 | | Declare_Subprogram INIT_0810,For_Call
006e 4806 |H | Short_Literal 0x6
006f 032e | . | Declare_Type Record,Defined,Visible
0070 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
0072 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
0074 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0076 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0078 0093 0000 | | push_full_address 0x0
007a 6129 |a) | Indirect_Literal Discrete,0x1a4,{0x80000000, 0x00010000}
007b 0273 | s | Execute Discrete,Plus
007c e002 | | Load 0x0,0x2
007d 0273 | s | Execute Discrete,Plus
007e e016 | | Load 0x0,0x16
007f 0273 | s | Execute Discrete,Plus
0080 e220 | | Load 0x1,0x20
0081 e227 | ' | Load 0x1,0x27
0082 4801 |H | Short_Literal 0x1
0083 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0084 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0085 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0086 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0087 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0088 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0089 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
008a 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
008b 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
008c a017 | | Store_Unchecked 0x0,0x17
008d e018 | | Load 0x0,0x18
008e 4806 |H | Short_Literal 0x6
008f e019 | | Load 0x0,0x19
0090 0386 | | Declare_Variable Package,Visible
0091 00d8 | | Load_Top At_Offset_0
0092 020f | | Execute Module,Activate
0093 e01a | | Load 0x0,0x1a
0094 00d9 | | Load_Top At_Offset_1
0095 0098 | | Execute Package,Field_Read_Dynamic
0096 0129 | ) | Execute Any,Make_Visible
0097 e220 | | Load 0x1,0x20
0098 e01b | | Load 0x0,0x1b
0099 e21f | | Load 0x1,0x1f
009a 0098 | | Execute Package,Field_Read_Dynamic
009b 02a0 | | Declare_Subprogram Null_Subprogram
009c 4802 |H | Short_Literal 0x2
009d 032e | . | Declare_Type Record,Defined,Visible
009e 00bf | | Action Accept_Activation
009f 0093 0000 | | push_full_address 0x0
00a1 60fe |` | Indirect_Literal Discrete,0x1a0,{0x80000000, 0x00010000}
00a2 0273 | s | Execute Discrete,Plus
00a3 0007 | | Action Break_Optional
00a4 e226 | & | Load 0x1,0x26
00a5 0266 | f | Execute Discrete,Bounds
00a6 00e1 | | Load_Encached Boolean_Cache
00a7 02a0 | | Declare_Subprogram Null_Subprogram
00a8 4801 |H | Short_Literal 0x1
00a9 035d | ] | Declare_Type Array,Defined
00aa 00d8 | | Load_Top At_Offset_0
00ab 0337 | 7 | Declare_Variable Array
00ac 00d8 | | Load_Top At_Offset_0
00ad 0335 | 5 | Declare_Variable Array,Duplicate
00ae 00cd | | Action Spare6_Action
00af 4800 |H | Short_Literal 0x0
00b0 4800 |H | Short_Literal 0x0
00b1 00da | | Load_Top At_Offset_2
00b2 01d6 | | Execute Vector,Field_Write
00b3 4801 |H | Short_Literal 0x1
00b4 4801 |H | Short_Literal 0x1
00b5 00da | | Load_Top At_Offset_2
00b6 01d6 | | Execute Vector,Field_Write
00b7 4801 |H | Short_Literal 0x1
00b8 4802 |H | Short_Literal 0x2
00b9 00da | | Load_Top At_Offset_2
00ba 01d6 | | Execute Vector,Field_Write
00bb 4800 |H | Short_Literal 0x0
00bc 4803 |H | Short_Literal 0x3
00bd 00da | | Load_Top At_Offset_2
00be 01d6 | | Execute Vector,Field_Write
00bf 00d9 | | Load_Top At_Offset_1
00c0 01d4 | | Execute Vector,Structure_Write
00c1 e01c | | Load 0x0,0x1c
00c2 0266 | f | Execute Discrete,Bounds
00c3 e01d | | Load 0x0,0x1d
00c4 02a0 | | Declare_Subprogram Null_Subprogram
00c5 4801 |H | Short_Literal 0x1
00c6 035d | ] | Declare_Type Array,Defined
00c7 00d8 | | Load_Top At_Offset_0
00c8 0337 | 7 | Declare_Variable Array
00c9 00d8 | | Load_Top At_Offset_0
00ca 0335 | 5 | Declare_Variable Array,Duplicate
00cb 00cd | | Action Spare6_Action
00cc 4802 |H | Short_Literal 0x2
00cd 4800 |H | Short_Literal 0x0
00ce 00da | | Load_Top At_Offset_2
00cf 01d6 | | Execute Vector,Field_Write
00d0 480c |H | Short_Literal 0xc
00d1 4801 |H | Short_Literal 0x1
00d2 00da | | Load_Top At_Offset_2
00d3 01d6 | | Execute Vector,Field_Write
00d4 480d |H | Short_Literal 0xd
00d5 4802 |H | Short_Literal 0x2
00d6 00da | | Load_Top At_Offset_2
00d7 01d6 | | Execute Vector,Field_Write
00d8 480e |H | Short_Literal 0xe
00d9 4803 |H | Short_Literal 0x3
00da 00da | | Load_Top At_Offset_2
00db 01d6 | | Execute Vector,Field_Write
00dc 4805 |H | Short_Literal 0x5
00dd 4804 |H | Short_Literal 0x4
00de 00da | | Load_Top At_Offset_2
00df 01d6 | | Execute Vector,Field_Write
00e0 00d9 | | Load_Top At_Offset_1
00e1 01d4 | | Execute Vector,Structure_Write
00e2 e01c | | Load 0x0,0x1c
00e3 0266 | f | Execute Discrete,Bounds
00e4 e01d | | Load 0x0,0x1d
00e5 02a0 | | Declare_Subprogram Null_Subprogram
00e6 4801 |H | Short_Literal 0x1
00e7 035d | ] | Declare_Type Array,Defined
00e8 00d8 | | Load_Top At_Offset_0
00e9 0337 | 7 | Declare_Variable Array
00ea 00d8 | | Load_Top At_Offset_0
00eb 0335 | 5 | Declare_Variable Array,Duplicate
00ec 00cd | | Action Spare6_Action
00ed 4804 |H | Short_Literal 0x4
00ee 4800 |H | Short_Literal 0x0
00ef 00da | | Load_Top At_Offset_2
00f0 01d6 | | Execute Vector,Field_Write
00f1 480c |H | Short_Literal 0xc
00f2 4801 |H | Short_Literal 0x1
00f3 00da | | Load_Top At_Offset_2
00f4 01d6 | | Execute Vector,Field_Write
00f5 480d |H | Short_Literal 0xd
00f6 4802 |H | Short_Literal 0x2
00f7 00da | | Load_Top At_Offset_2
00f8 01d6 | | Execute Vector,Field_Write
00f9 480e |H | Short_Literal 0xe
00fa 4803 |H | Short_Literal 0x3
00fb 00da | | Load_Top At_Offset_2
00fc 01d6 | | Execute Vector,Field_Write
00fd 4805 |H | Short_Literal 0x5
00fe 4804 |H | Short_Literal 0x4
00ff 00da | | Load_Top At_Offset_2
0100 01d6 | | Execute Vector,Field_Write
0101 00d9 | | Load_Top At_Offset_1
0102 01d4 | | Execute Vector,Structure_Write
0103 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0104 00c7 | | Action Elaborate_Subprogram
0105 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0106 00c7 | | Action Elaborate_Subprogram
0107 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
0109 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call
010b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
010c 00c7 | | Action Elaborate_Subprogram
010d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
010e 00c7 | | Action Elaborate_Subprogram
010f 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
0111 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call
0113 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0114 00c7 | | Action Elaborate_Subprogram
0115 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call
0117 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0118 00c7 | | Action Elaborate_Subprogram
0119 1d13 | | Execute_Immediate Reference_Lex_1,0x13
011a 00c7 | | Action Elaborate_Subprogram
011b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
011c 00c7 | | Action Elaborate_Subprogram
011d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
011e 00c7 | | Action Elaborate_Subprogram
011f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0120 00c7 | | Action Elaborate_Subprogram
0121 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0122 00c7 | | Action Elaborate_Subprogram
0123 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0124 00c7 | | Action Elaborate_Subprogram
0125 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0126 00c7 | | Action Elaborate_Subprogram
0127 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0128 00c7 | | Action Elaborate_Subprogram
0129 e01e | | Load 0x0,0x1e
012a e01f | | Load 0x0,0x1f
012b e22c | , | Load 0x1,0x2c
012c 0098 | | Execute Package,Field_Read_Dynamic
012d 0095 | | Execute Package,Field_Reference_Dynamic
012e e01a | | Load 0x0,0x1a
012f e22c | , | Load 0x1,0x2c
0130 0098 | | Execute Package,Field_Read_Dynamic
0131 e020 | | Load 0x0,0x20
0132 e01f | | Load 0x0,0x1f
0133 e22c | , | Load 0x1,0x2c
0134 0098 | | Execute Package,Field_Read_Dynamic
0135 0095 | | Execute Package,Field_Reference_Dynamic
0136 e021 | ! | Load 0x0,0x21
0137 e01f | | Load 0x0,0x1f
0138 e22c | , | Load 0x1,0x2c
0139 0098 | | Execute Package,Field_Read_Dynamic
013a 0095 | | Execute Package,Field_Reference_Dynamic
013b e022 | " | Load 0x0,0x22
013c e01f | | Load 0x0,0x1f
013d e22c | , | Load 0x1,0x2c
013e 0098 | | Execute Package,Field_Read_Dynamic
013f 0095 | | Execute Package,Field_Reference_Dynamic
0140 e023 | # | Load 0x0,0x23
0141 e01f | | Load 0x0,0x1f
0142 e22c | , | Load 0x1,0x2c
0143 0098 | | Execute Package,Field_Read_Dynamic
0144 0095 | | Execute Package,Field_Reference_Dynamic
0145 e024 | $ | Load 0x0,0x24
0146 e01f | | Load 0x0,0x1f
0147 e22c | , | Load 0x1,0x2c
0148 0098 | | Execute Package,Field_Read_Dynamic
0149 0095 | | Execute Package,Field_Reference_Dynamic
014a e025 | % | Load 0x0,0x25
014b e01f | | Load 0x0,0x1f
014c e22c | , | Load 0x1,0x2c
014d 0098 | | Execute Package,Field_Read_Dynamic
014e 0095 | | Execute Package,Field_Reference_Dynamic
014f e026 | & | Load 0x0,0x26
0150 e01f | | Load 0x0,0x1f
0151 e22c | , | Load 0x1,0x2c
0152 0098 | | Execute Package,Field_Read_Dynamic
0153 0095 | | Execute Package,Field_Reference_Dynamic
0154 e027 | ' | Load 0x0,0x27
0155 e01f | | Load 0x0,0x1f
0156 e22c | , | Load 0x1,0x2c
0157 0098 | | Execute Package,Field_Read_Dynamic
0158 0095 | | Execute Package,Field_Reference_Dynamic
0159 480a |H | Short_Literal 0xa
015a e21e | | Load 0x1,0x1e
015b 020e | | Execute Module,Augment_Imports
015c e21e | | Load 0x1,0x1e
015d 020f | | Execute Module,Activate
015e e028 | ( | Load 0x0,0x28
015f e029 | ) | Load 0x0,0x29
0160 e226 | & | Load 0x1,0x26
0161 4800 |H | Short_Literal 0x0
0162 4801 |H | Short_Literal 0x1
0163 4803 |H | Short_Literal 0x3
0164 0092 08ce | | Action Push_String_Extended,0x8ce ; "others => Unspecified"
0166 00ea | | Load_Encached Null_String_Cache
0167 00ea | | Load_Encached Null_String_Cache
0168 4801 |H | Short_Literal 0x1
0169 4803 |H | Short_Literal 0x3
016a e02a | * | Load 0x0,0x2a
016b 0387 | | Declare_Variable Package
016c 00d8 | | Load_Top At_Offset_0
016d 020f | | Execute Module,Activate
016e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
016f 00c7 | | Action Elaborate_Subprogram
0170 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0171 00c7 | | Action Elaborate_Subprogram
0172 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0173 00c7 | | Action Elaborate_Subprogram
0174 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0175 00c7 | | Action Elaborate_Subprogram
0176 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0177 00c7 | | Action Elaborate_Subprogram
0178 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call
017a 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call
017c 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
017e 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
0180 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0181 00c7 | | Action Elaborate_Subprogram
0182 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0183 00c7 | | Action Elaborate_Subprogram
0184 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0185 00c7 | | Action Elaborate_Subprogram
0186 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0187 00c7 | | Action Elaborate_Subprogram
0188 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0189 00c7 | | Action Elaborate_Subprogram
018a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
018b 00c7 | | Action Elaborate_Subprogram
018c 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
018e 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call
0190 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
0192 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call
0194 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0195 00c7 | | Action Elaborate_Subprogram
0196 BODY_0008:
0196 00bc | | Action Signal_Activated
0197 00bb | | Action Signal_Completion
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 e02b | + | Load 0x0,0x2b
019d e22c | , | Load 0x1,0x2c
019e 0096 | | Execute Package,Entry
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01a4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01a8 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 e01a | | Load 0x0,0x1a
01b5 e22c | , | Load 0x1,0x2c
01b6 0098 | | Execute Package,Field_Read_Dynamic
01b7 0216 | | Execute Heap_Access,Convert
01b8 e02c | , | Load 0x0,0x2c
01b9 e22c | , | Load 0x1,0x2c
01ba 0096 | | Execute Package,Entry
01bb 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cb | | .CONST 0x01cb ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e220 | | Load 0x1,0x20
01c4 0322 | " | Declare_Variable Record
01c5 e5fe | | Load 0x2,-0x2
01c6 e02d | - | Load 0x0,0x2d
01c7 e22c | , | Load 0x1,0x2c
01c8 0096 | | Execute Package,Entry
01c9 00d9 | | Load_Top At_Offset_1
01ca 017d | } | Execute Record,Structure_Write
01cb BODY_01c0:
01cb 00d8 | | Load_Top At_Offset_0
01cc e5ff | | Load 0x2,-0x1
01cd 8237 | 7 | Call 0x1,0x37
01ce 00d1 | | Pop_Control Pop_Count_1
01cf 00d8 | | Load_Top At_Offset_0
01d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d1 e5ff | | Load 0x2,-0x1
01d2 e02e | . | Load 0x0,0x2e
01d3 e21f | | Load 0x1,0x1f
01d4 0096 | | Execute Package,Entry
01d5 00d1 | | Pop_Control Pop_Count_1
01d6 e5fe | | Load 0x2,-0x2
01d7 e01a | | Load 0x0,0x1a
01d8 e22c | , | Load 0x1,0x2c
01d9 0098 | | Execute Package,Field_Read_Dynamic
01da 0216 | | Execute Heap_Access,Convert
01db 00d9 | | Load_Top At_Offset_1
01dc e02f | / | Load 0x0,0x2f
01dd e22c | , | Load 0x1,0x2c
01de 0096 | | Execute Package,Entry
01df c5fe | | Store 0x2,-0x2
01e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f5 | | .CONST 0x01f5 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb e220 | | Load 0x1,0x20
01ec 0322 | " | Declare_Variable Record
01ed e5fd | | Load 0x2,-0x3
01ee e02d | - | Load 0x0,0x2d
01ef e22c | , | Load 0x1,0x2c
01f0 0096 | | Execute Package,Entry
01f1 00d9 | | Load_Top At_Offset_1
01f2 017d | } | Execute Record,Structure_Write
01f3 029f 067b | {| Declare_Subprogram INIT_0678,For_Call
01f5 BODY_01e8:
01f5 00d9 | | Load_Top At_Offset_1
01f6 e5ff | | Load 0x2,-0x1
01f7 8237 | 7 | Call 0x1,0x37
01f8 00d1 | | Pop_Control Pop_Count_1
01f9 e5fe | | Load 0x2,-0x2
01fa 7002 |p | Jump_Nonzero 0x1fd
01fb 8403 | | Call 0x2,0x3
01fc 780d |x | Jump 0x20a
01fd 00d9 | | Load_Top At_Offset_1
01fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ff e5fe | | Load 0x2,-0x2
0200 00d8 | | Load_Top At_Offset_0
0201 00e4 | | Load_Encached Positive_Cache
0202 0260 | ` | Execute Discrete,In_Type
0203 7001 |p | Jump_Nonzero 0x205
0204 0801 | | Execute_Immediate Raise,0x1
0205 e5ff | | Load 0x2,-0x1
0206 e030 | 0 | Load 0x0,0x30
0207 e21f | | Load 0x1,0x1f
0208 0096 | | Execute Package,Entry
0209 00d1 | | Pop_Control Pop_Count_1
020a e5fd | | Load 0x2,-0x3
020b e01a | | Load 0x0,0x1a
020c e22c | , | Load 0x1,0x2c
020d 0098 | | Execute Package,Field_Read_Dynamic
020e 0216 | | Execute Heap_Access,Convert
020f 00da | | Load_Top At_Offset_2
0210 e02f | / | Load 0x0,0x2f
0211 e22c | , | Load 0x1,0x2c
0212 0096 | | Execute Package,Entry
0213 c5fd | | Store 0x2,-0x3
0214 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00db | | Load_Top At_Offset_3
021c e02d | - | Load 0x0,0x2d
021d e22c | , | Load 0x1,0x2c
021e 0096 | | Execute Package,Entry
021f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0220 00db | | Load_Top At_Offset_3
0221 8239 | 9 | Call 0x1,0x39
0222 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0223 0000 0000 | | .BLANK 0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0237 | 7 | .CONST 0x0237 ; Address of begin
0229 0253 | S | .CONST 0x0253 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b e220 | | Load 0x1,0x20
022c 0322 | " | Declare_Variable Record
022d e5fe | | Load 0x2,-0x2
022e e02d | - | Load 0x0,0x2d
022f e22c | , | Load 0x1,0x2c
0230 0096 | | Execute Package,Entry
0231 00d9 | | Load_Top At_Offset_1
0232 017d | } | Execute Record,Structure_Write
0233 e004 | | Load 0x0,0x4
0234 0322 | " | Declare_Variable Record
0235 00d8 | | Load_Top At_Offset_0
0236 1c00 | | Execute_Immediate Run_Utility,0x0
0237 BODY_0228:
0237 00d9 | | Load_Top At_Offset_1
0238 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0239 e5ff | | Load 0x2,-0x1
023a 8238 | 8 | Call 0x1,0x38
023b 00d9 | | Load_Top At_Offset_1
023c 017d | } | Execute Record,Structure_Write
023d 00d9 | | Load_Top At_Offset_1
023e 00d9 | | Load_Top At_Offset_1
023f 823a | : | Call 0x1,0x3a
0240 00d1 | | Pop_Control Pop_Count_1
0241 00d9 | | Load_Top At_Offset_1
0242 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0243 e5ff | | Load 0x2,-0x1
0244 e031 | 1 | Load 0x0,0x31
0245 e21f | | Load 0x1,0x1f
0246 0096 | | Execute Package,Entry
0247 00d1 | | Pop_Control Pop_Count_1
0248 e5fe | | Load 0x2,-0x2
0249 e01a | | Load 0x0,0x1a
024a e22c | , | Load 0x1,0x2c
024b 0098 | | Execute Package,Field_Read_Dynamic
024c 0216 | | Execute Heap_Access,Convert
024d 00da | | Load_Top At_Offset_2
024e e02f | / | Load 0x0,0x2f
024f e22c | , | Load 0x1,0x2c
0250 0096 | | Execute Package,Entry
0251 c5fe | | Store 0x2,-0x2
0252 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0253 TRAP_0228:
0253 e22f | / | Load 0x1,0x2f
0254 010f | | Execute Exception,Equal
0255 6801 |h | Jump_Zero 0x257
0256 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0257 0100 | | Execute Exception,Raise
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0263 | c | .CONST 0x0263 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e220 | | Load 0x1,0x20
025c 0322 | " | Declare_Variable Record
025d 00db | | Load_Top At_Offset_3
025e e02d | - | Load 0x0,0x2d
025f e22c | , | Load 0x1,0x2c
0260 0096 | | Execute Package,Entry
0261 00d9 | | Load_Top At_Offset_1
0262 017d | } | Execute Record,Structure_Write
0263 BODY_0258:
0263 00d8 | | Load_Top At_Offset_0
0264 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0265 8032 | 2 | Call 0x0,0x32
0266 00d9 | | Load_Top At_Offset_1
0267 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0268 00d8 | | Load_Top At_Offset_0
0269 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
026a e033 | 3 | Load 0x0,0x33
026b e21f | | Load 0x1,0x1f
026c 0096 | | Execute Package,Entry
026d 00d9 | | Load_Top At_Offset_1
026e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
026f 00db | | Load_Top At_Offset_3
0270 e01a | | Load 0x0,0x1a
0271 e22c | , | Load 0x1,0x2c
0272 0098 | | Execute Package,Field_Read_Dynamic
0273 0216 | | Execute Heap_Access,Convert
0274 00d9 | | Load_Top At_Offset_1
0275 e02f | / | Load 0x0,0x2f
0276 e22c | , | Load 0x1,0x2c
0277 0096 | | Execute Package,Entry
0278 c5ff | | Store 0x2,-0x1
0279 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 e22e | . | Load 0x1,0x2e
0284 0322 | " | Declare_Variable Record
0285 BODY_0280:
0285 00db | | Load_Top At_Offset_3
0286 e02d | - | Load 0x0,0x2d
0287 e22c | , | Load 0x1,0x2c
0288 0096 | | Execute Package,Entry
0289 00d9 | | Load_Top At_Offset_1
028a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
028b e01b | | Load 0x0,0x1b
028c e21f | | Load 0x1,0x1f
028d 0098 | | Execute Package,Field_Read_Dynamic
028e 00d9 | | Load_Top At_Offset_1
028f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0290 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0291 e034 | 4 | Load 0x0,0x34
0292 e21f | | Load 0x1,0x1f
0293 0096 | | Execute Package,Entry
0294 00d9 | | Load_Top At_Offset_1
0295 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0296 00d8 | | Load_Top At_Offset_0
0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
029d e035 | 5 | Load 0x0,0x35
029e e21f | | Load 0x1,0x1f
029f 0096 | | Execute Package,Entry
02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ad e036 | 6 | Load 0x0,0x36
02ae e21f | | Load 0x1,0x1f
02af 0096 | | Execute Package,Entry
02b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b1 0000 0000 | | .BLANK 0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02bd e037 | 7 | Load 0x0,0x37
02be e21f | | Load 0x1,0x1f
02bf 0096 | | Execute Package,Entry
02c0 00db | | Load_Top At_Offset_3
02c1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c3 0000 0000 | | .BLANK 0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc e02d | - | Load 0x0,0x2d
02cd e22c | , | Load 0x1,0x2c
02ce 0096 | | Execute Package,Entry
02cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d0 8038 | 8 | Call 0x0,0x38
02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e3 | | .CONST 0x02e3 ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e220 | | Load 0x1,0x20
02dc 0322 | " | Declare_Variable Record
02dd e5fe | | Load 0x2,-0x2
02de e02d | - | Load 0x0,0x2d
02df e22c | , | Load 0x1,0x2c
02e0 0096 | | Execute Package,Entry
02e1 00d9 | | Load_Top At_Offset_1
02e2 017d | } | Execute Record,Structure_Write
02e3 BODY_02d8:
02e3 00d8 | | Load_Top At_Offset_0
02e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02e5 e5ff | | Load 0x2,-0x1
02e6 8039 | 9 | Call 0x0,0x39
02e7 00d9 | | Load_Top At_Offset_1
02e8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02e9 e5fe | | Load 0x2,-0x2
02ea e01a | | Load 0x0,0x1a
02eb e22c | , | Load 0x1,0x2c
02ec 0098 | | Execute Package,Field_Read_Dynamic
02ed 0216 | | Execute Heap_Access,Convert
02ee 00d9 | | Load_Top At_Offset_1
02ef e02f | / | Load 0x0,0x2f
02f0 e22c | , | Load 0x1,0x2c
02f1 0096 | | Execute Package,Entry
02f2 c5fe | | Store 0x2,-0x2
02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f4 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
02fc e02d | - | Load 0x0,0x2d
02fd e22c | , | Load 0x1,0x2c
02fe 0096 | | Execute Package,Entry
02ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0300 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4800 |H | Short_Literal 0x0
030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0325 | % | .CONST 0x0325 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0005 | | .CONST 0x0005 ; Number of locals
0313 INIT_0310:
0313 e01b | | Load 0x0,0x1b
0314 e21f | | Load 0x1,0x1f
0315 0098 | | Execute Package,Field_Read_Dynamic
0316 0007 | | Action Break_Optional
0317 e220 | | Load 0x1,0x20
0318 0322 | " | Declare_Variable Record
0319 e5ff | | Load 0x2,-0x1
031a e02d | - | Load 0x0,0x2d
031b e22c | , | Load 0x1,0x2c
031c 0096 | | Execute Package,Entry
031d 00d9 | | Load_Top At_Offset_1
031e 017d | } | Execute Record,Structure_Write
031f 00e1 | | Load_Encached Boolean_Cache
0320 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0321 e004 | | Load 0x0,0x4
0322 0322 | " | Declare_Variable Record
0323 00d8 | | Load_Top At_Offset_0
0324 1c00 | | Execute_Immediate Run_Utility,0x0
0325 BODY_0310:
0325 e01b | | Load 0x0,0x1b
0326 e21f | | Load 0x1,0x1f
0327 0098 | | Execute Package,Field_Read_Dynamic
0328 00db | | Load_Top At_Offset_3
0329 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
032a e034 | 4 | Load 0x0,0x34
032b e21f | | Load 0x1,0x1f
032c 0096 | | Execute Package,Entry
032d c402 | | Store 0x2,0x2
032e 00cf | | Action Mark_Auxiliary
032f 7812 |x | Jump 0x342
0330 e402 | | Load 0x2,0x2
0331 e036 | 6 | Load 0x0,0x36
0332 e21f | | Load 0x1,0x1f
0333 0096 | | Execute Package,Entry
0334 00da | | Load_Top At_Offset_2
0335 017d | } | Execute Record,Structure_Write
0336 4801 |H | Short_Literal 0x1
0337 00da | | Load_Top At_Offset_2
0338 803a | : | Call 0x0,0x3a
0339 7002 |p | Jump_Nonzero 0x33c
033a 4800 |H | Short_Literal 0x0
033b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
033c e402 | | Load 0x2,0x2
033d e037 | 7 | Load 0x0,0x37
033e e21f | | Load 0x1,0x1f
033f 0096 | | Execute Package,Entry
0340 c402 | | Store 0x2,0x2
0341 00c9 | | Action Pop_Auxiliary_Loop
0342 e402 | | Load 0x2,0x2
0343 e035 | 5 | Load 0x0,0x35
0344 e21f | | Load 0x1,0x1f
0345 0096 | | Execute Package,Entry
0346 6fe9 |o | Jump_Zero 0x330
0347 00ce | | Action Pop_Auxiliary
0348 00d9 | | Load_Top At_Offset_1
0349 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0386 | | .CONST 0x0386 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0010 | | .CONST 0x0010 ; Number of locals
0353 INIT_0350:
0353 4818 |H | Short_Literal 0x18
0354 03ce | | Declare_Type Access,Incomplete
0355 00e3 | | Load_Encached Natural_Cache
0356 00d9 | | Load_Top At_Offset_1
0357 02a0 | | Declare_Subprogram Null_Subprogram
0358 4802 |H | Short_Literal 0x2
0359 032d | - | Declare_Type Record,Defined
035a 00d8 | | Load_Top At_Offset_0
035b 02a0 | | Declare_Subprogram Null_Subprogram
035c 00db | | Load_Top At_Offset_3
035d 03c7 | | Complete_Type Access,By_Defining
035e 00d9 | | Load_Top At_Offset_1
035f 00da | | Load_Top At_Offset_2
0360 02a0 | | Declare_Subprogram Null_Subprogram
0361 4802 |H | Short_Literal 0x2
0362 032d | - | Declare_Type Record,Defined
0363 e5ff | | Load 0x2,-0x1
0364 e21e | | Load 0x1,0x1e
0365 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0366 e01b | | Load 0x0,0x1b
0367 e21f | | Load 0x1,0x1f
0368 0098 | | Execute Package,Field_Read_Dynamic
0369 0007 | | Action Break_Optional
036a e220 | | Load 0x1,0x20
036b 0322 | " | Declare_Variable Record
036c e5ff | | Load 0x2,-0x1
036d e02d | - | Load 0x0,0x2d
036e e22c | , | Load 0x1,0x2c
036f 0096 | | Execute Package,Entry
0370 00d9 | | Load_Top At_Offset_1
0371 017d | } | Execute Record,Structure_Write
0372 00e3 | | Load_Encached Natural_Cache
0373 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0374 e004 | | Load 0x0,0x4
0375 0322 | " | Declare_Variable Record
0376 00d8 | | Load_Top At_Offset_0
0377 1c00 | | Execute_Immediate Run_Utility,0x0
0378 e404 | | Load 0x2,0x4
0379 0322 | " | Declare_Variable Record
037a e402 | | Load 0x2,0x2
037b 0007 | | Action Break_Optional
037c 00e1 | | Load_Encached Boolean_Cache
037d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
037e 00e1 | | Load_Encached Boolean_Cache
037f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0380 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
0382 029f 072b | +| Declare_Subprogram INIT_0728,For_Call
0384 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
0386 BODY_0350:
0386 e01b | | Load 0x0,0x1b
0387 e21f | | Load 0x1,0x1f
0388 0098 | | Execute Package,Field_Read_Dynamic
0389 e407 | | Load 0x2,0x7
038a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
038b e034 | 4 | Load 0x0,0x34
038c e21f | | Load 0x1,0x1f
038d 0096 | | Execute Package,Entry
038e c406 | | Store 0x2,0x6
038f 00cf | | Action Mark_Auxiliary
0390 7838 |x8 | Jump 0x3c9
0391 e406 | | Load 0x2,0x6
0392 e036 | 6 | Load 0x0,0x36
0393 e21f | | Load 0x1,0x1f
0394 0096 | | Execute Package,Entry
0395 e409 | | Load 0x2,0x9
0396 017d | } | Execute Record,Structure_Write
0397 e408 | | Load 0x2,0x8
0398 0a01 | | Execute_Immediate Plus,0x1
0399 c408 | | Store 0x2,0x8
039a 4801 |H | Short_Literal 0x1
039b e409 | | Load 0x2,0x9
039c 803a | : | Call 0x0,0x3a
039d 7025 |p% | Jump_Nonzero 0x3c3
039e 840f | | Call 0x2,0xf
039f e40a | | Load 0x2,0xa
03a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a1 700e |p | Jump_Nonzero 0x3b0
03a2 e402 | | Load 0x2,0x2
03a3 03bc | | Declare_Variable Access,By_Allocation
03a4 e40a | | Load 0x2,0xa
03a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a6 e40a | | Load 0x2,0xa
03a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a8 e40a | | Load 0x2,0xa
03a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03aa e408 | | Load 0x2,0x8
03ab e40a | | Load 0x2,0xa
03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ad 0227 | ' | Execute Access,All_Reference
03ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03af 7811 |x | Jump 0x3c1
03b0 e402 | | Load 0x2,0x2
03b1 03bc | | Declare_Variable Access,By_Allocation
03b2 e40a | | Load 0x2,0xa
03b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b4 0227 | ' | Execute Access,All_Reference
03b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03b6 e40a | | Load 0x2,0xa
03b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b8 0227 | ' | Execute Access,All_Reference
03b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ba e40a | | Load 0x2,0xa
03bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03bc e408 | | Load 0x2,0x8
03bd e40a | | Load 0x2,0xa
03be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03bf 0227 | ' | Execute Access,All_Reference
03c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03c1 4801 |H | Short_Literal 0x1
03c2 a40d | | Store_Unchecked 0x2,0xd
03c3 e406 | | Load 0x2,0x6
03c4 e037 | 7 | Load 0x0,0x37
03c5 e21f | | Load 0x1,0x1f
03c6 0096 | | Execute Package,Entry
03c7 c406 | | Store 0x2,0x6
03c8 00c9 | | Action Pop_Auxiliary_Loop
03c9 e406 | | Load 0x2,0x6
03ca e035 | 5 | Load 0x0,0x35
03cb e21f | | Load 0x1,0x1f
03cc 0096 | | Execute Package,Entry
03cd 6fc3 |o | Jump_Zero 0x391
03ce 00ce | | Action Pop_Auxiliary
03cf 00db | | Load_Top At_Offset_3
03d0 6801 |h | Jump_Zero 0x3d2
03d1 8410 | | Call 0x2,0x10
03d2 e40a | | Load 0x2,0xa
03d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d4 a40b | | Store_Unchecked 0x2,0xb
03d5 00cf | | Action Mark_Auxiliary
03d6 7809 |x | Jump 0x3e0
03d7 e40b | | Load 0x2,0xb
03d8 0227 | ' | Execute Access,All_Reference
03d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03da 840e | | Call 0x2,0xe
03db e40b | | Load 0x2,0xb
03dc 0227 | ' | Execute Access,All_Reference
03dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03de a40b | | Store_Unchecked 0x2,0xb
03df 00c9 | | Action Pop_Auxiliary_Loop
03e0 e40b | | Load 0x2,0xb
03e1 77f5 |w | Jump_Nonzero 0x3d7
03e2 00ce | | Action Pop_Auxiliary
03e3 00db | | Load_Top At_Offset_3
03e4 6819 |h | Jump_Zero 0x3fe
03e5 e40c | | Load 0x2,0xc
03e6 680a |h | Jump_Zero 0x3f1
03e7 e03b | ; | Load 0x0,0x3b
03e8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e9 4803 |H | Short_Literal 0x3
03ea e405 | | Load 0x2,0x5
03eb 0092 08cf | | Action Push_String_Extended,0x8cf ; " updated."
03ed 01cc | | Execute Vector,Catenate
03ee e03c | < | Load 0x0,0x3c
03ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f1 e03b | ; | Load 0x0,0x3b
03f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f3 4805 |H | Short_Literal 0x5
03f4 0092 08d0 | | Action Push_String_Extended,0x8d0 ; "Update of "
03f6 e405 | | Load 0x2,0x5
03f7 01cc | | Execute Vector,Catenate
03f8 0092 08d1 | | Action Push_String_Extended,0x8d1 ; " failed."
03fa 01cc | | Execute Vector,Catenate
03fb e03c | < | Load 0x0,0x3c
03fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fe e03b | ; | Load 0x0,0x3b
03ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0400 4802 |H | Short_Literal 0x2
0401 0092 08d2 | | Action Push_String_Extended,0x8d2 ; "The Test Set "
0403 e405 | | Load 0x2,0x5
0404 01cc | | Execute Vector,Catenate
0405 0092 08d3 | | Action Push_String_Extended,0x8d3 ; " is consistent."
0407 01cc | | Execute Vector,Catenate
0408 e03c | < | Load 0x0,0x3c
0409 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
040b 0000 0000 | | .BLANK 0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0417 | | .CONST 0x0417 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0003 | | .CONST 0x0003 ; Number of locals
0413 INIT_0410:
0413 e23b | ; | Load 0x1,0x3b
0414 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0415 e220 | | Load 0x1,0x20
0416 0322 | " | Declare_Variable Record
0417 BODY_0410:
0417 e5ff | | Load 0x2,-0x1
0418 e23b | ; | Load 0x1,0x3b
0419 1820 | | Execute Package,Field_Execute,Field_Number 0x20
041a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
041b 00d9 | | Load_Top At_Offset_1
041c e23b | ; | Load 0x1,0x3b
041d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
041e 7002 |p | Jump_Nonzero 0x421
041f e03d | = | Load 0x0,0x3d
0420 0257 | W | Execute Discrete,Raise
0421 00cf | | Action Mark_Auxiliary
0422 4803 |H | Short_Literal 0x3
0423 4801 |H | Short_Literal 0x1
0424 0007 | | Action Break_Optional
0425 00d8 | | Load_Top At_Offset_0
0426 e402 | | Load 0x2,0x2
0427 e23b | ; | Load 0x1,0x3b
0428 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0429 6825 |h% | Jump_Zero 0x44f
042a 00d8 | | Load_Top At_Offset_0
042b 0aff | | Execute_Immediate Plus,-0x1
042c 4602 |F | Jump_Case 0x3
042d 780c |x | Jump 0x43a ; case 0x0
042e 7815 |x | Jump 0x444 ; case 0x1
042f 7800 |x | Jump 0x430 ; case 0x2
0430 e5fe | | Load 0x2,-0x2
0431 00ea | | Load_Encached Null_String_Cache
0432 00da | | Load_Top At_Offset_2
0433 e402 | | Load 0x2,0x2
0434 e23b | ; | Load 0x1,0x3b
0435 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0436 8039 | 9 | Call 0x0,0x39
0437 e403 | | Load 0x2,0x3
0438 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0439 7815 |x | Jump 0x44f
043a e5fe | | Load 0x2,-0x2
043b 00ea | | Load_Encached Null_String_Cache
043c 00da | | Load_Top At_Offset_2
043d e402 | | Load 0x2,0x2
043e e23b | ; | Load 0x1,0x3b
043f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0440 803e | > | Call 0x0,0x3e
0441 e403 | | Load 0x2,0x3
0442 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0443 780b |x | Jump 0x44f
0444 e5fe | | Load 0x2,-0x2
0445 00ea | | Load_Encached Null_String_Cache
0446 00da | | Load_Top At_Offset_2
0447 e402 | | Load 0x2,0x2
0448 e23b | ; | Load 0x1,0x3b
0449 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
044a e03f | ? | Load 0x0,0x3f
044b e21f | | Load 0x1,0x1f
044c 0096 | | Execute Package,Entry
044d e403 | | Load 0x2,0x3
044e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
044f 00c8 | | Action Pop_Auxiliary_Range
0450 3fd4 |? | Loop_Increasing 0x425
0451 00ce | | Action Pop_Auxiliary
0452 e5fe | | Load 0x2,-0x2
0453 00d9 | | Load_Top At_Offset_1
0454 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0455 00d8 | | Load_Top At_Offset_0
0456 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0457 0000 | | .XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0465 | e | .CONST 0x0465 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e220 | | Load 0x1,0x20
0464 0322 | " | Declare_Variable Record
0465 BODY_0460:
0465 00db | | Load_Top At_Offset_3
0466 8032 | 2 | Call 0x0,0x32
0467 00d9 | | Load_Top At_Offset_1
0468 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0469 00db | | Load_Top At_Offset_3
046a 00d9 | | Load_Top At_Offset_1
046b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
046c 00d8 | | Load_Top At_Offset_0
046d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046e 0000 0000 | | .XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00db | | Load_Top At_Offset_3
0474 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0475 00db | | Load_Top At_Offset_3
0476 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0477 8040 | @ | Call 0x0,0x40
0478 6810 |h | Jump_Zero 0x489
0479 00db | | Load_Top At_Offset_3
047a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
047b 00db | | Load_Top At_Offset_3
047c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
047d e041 | A | Load 0x0,0x41
047e e21f | | Load 0x1,0x1f
047f 0096 | | Execute Package,Entry
0480 6806 |h | Jump_Zero 0x487
0481 00db | | Load_Top At_Offset_3
0482 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0483 00db | | Load_Top At_Offset_3
0484 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0485 8042 | B | Call 0x0,0x42
0486 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0487 4800 |H | Short_Literal 0x0
0488 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0489 4800 |H | Short_Literal 0x0
048a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
048b 0000 0000 | | .BLANK 0000[0x5]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00da | | Load_Top At_Offset_2
0494 e5fd | | Load 0x2,-0x3
0495 017d | } | Execute Record,Structure_Write
0496 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 4607 |F | Jump_Case 0x8
049c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
049d 7807 |x | Jump 0x4a5 ; case 0x1
049e 780a |x | Jump 0x4a9 ; case 0x2
049f 780e |x | Jump 0x4ae ; case 0x3
04a0 7811 |x | Jump 0x4b2 ; case 0x4
04a1 7812 |x | Jump 0x4b4 ; case 0x5
04a2 7813 |x | Jump 0x4b6 ; case 0x6
04a3 7816 |x | Jump 0x4ba ; case 0x7
04a4 4302 |C | .XXX[0x1]
04a5 00da | | Load_Top At_Offset_2
04a6 0091 08ca | | Action Push_String_Extended_Indexed,0x8ca ; "NONE"
04a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04a9 00db | | Load_Top At_Offset_3
04aa 00db | | Load_Top At_Offset_3
04ab 00e0 | | Load_Encached Standard_Cache
04ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ae 00da | | Load_Top At_Offset_2
04af 00e0 | | Load_Encached Standard_Cache
04b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
04b2 00db | | Load_Top At_Offset_3
04b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b4 00db | | Load_Top At_Offset_3
04b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04b6 e226 | & | Load 0x1,0x26
04b7 00dc | | Load_Top At_Offset_4
04b8 0267 | g | Execute Discrete,Predecessor
04b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04ba e226 | & | Load 0x1,0x26
04bb 00dc | | Load_Top At_Offset_4
04bc 0268 | h | Execute Discrete,Successor
04bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04be 0000 0000 | | .XXX[0x2]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c7 | | .CONST 0x04c7 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0002 | | .CONST 0x0002 ; Number of locals
04c3 INIT_04c0:
04c3 e227 | ' | Load 0x1,0x27
04c4 0322 | " | Declare_Variable Record
04c5 00d8 | | Load_Top At_Offset_0
04c6 1c00 | | Execute_Immediate Run_Utility,0x0
04c7 BODY_04c0:
04c7 00db | | Load_Top At_Offset_3
04c8 00d9 | | Load_Top At_Offset_1
04c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04ca 4801 |H | Short_Literal 0x1
04cb 00d9 | | Load_Top At_Offset_1
04cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04cd 00d8 | | Load_Top At_Offset_0
04ce 00d9 | | Load_Top At_Offset_1
04cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d0 823c | < | Call 0x1,0x3c
04d1 00d1 | | Pop_Control Pop_Count_1
04d2 00d8 | | Load_Top At_Offset_0
04d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d4 0000 0000 | | .BLANK 0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00da | | Load_Top At_Offset_2
04dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04de 0000 0000 | | .XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e5 | | .CONST 0x04e5 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call
04e5 BODY_04e0:
04e5 00db | | Load_Top At_Offset_3
04e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04e7 e231 | 1 | Load 0x1,0x31
04e8 01d7 | | Execute Vector,Field_Read
04e9 6802 |h | Jump_Zero 0x4ec
04ea 8402 | | Call 0x2,0x2
04eb 7816 |x | Jump 0x502
04ec 00db | | Load_Top At_Offset_3
04ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04ee 680e |h | Jump_Zero 0x4fd
04ef 00db | | Load_Top At_Offset_3
04f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04f1 e226 | & | Load 0x1,0x26
04f2 011c | | Execute Any,Convert_Unchecked
04f3 1c01 | | Execute_Immediate Run_Utility,0x1
04f4 0092 08d4 | | Action Push_String_Extended,0x8d4 ; "=>"
04f6 01cc | | Execute Vector,Catenate
04f7 e5ff | | Load 0x2,-0x1
04f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04f9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04fa 8038 | 8 | Call 0x0,0x38
04fb 01cc | | Execute Vector,Catenate
04fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04fd 00db | | Load_Top At_Offset_3
04fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0500 8038 | 8 | Call 0x0,0x38
0501 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0502 0831 | 1 | Execute_Immediate Raise,0x31
0503 0000 0000 | | .BLANK 0000[0x5]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
050d 7023 |p# | Jump_Nonzero 0x531
050e 00da | | Load_Top At_Offset_2
050f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0510 e231 | 1 | Load 0x1,0x31
0511 01d7 | | Execute Vector,Field_Read
0512 680b |h | Jump_Zero 0x51e
0513 00da | | Load_Top At_Offset_2
0514 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0515 00db | | Load_Top At_Offset_3
0516 823e | > | Call 0x1,0x3e
0517 7006 |p | Jump_Nonzero 0x51e
0518 00da | | Load_Top At_Offset_2
0519 00db | | Load_Top At_Offset_3
051a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
051b 823d | = | Call 0x1,0x3d
051c 00d1 | | Pop_Control Pop_Count_1
051d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051e 00da | | Load_Top At_Offset_2
051f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0520 0f03 | | Execute_Immediate Equal,0x3
0521 6804 |h | Jump_Zero 0x526
0522 4801 |H | Short_Literal 0x1
0523 00db | | Load_Top At_Offset_3
0524 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0525 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0526 e226 | & | Load 0x1,0x26
0527 00db | | Load_Top At_Offset_3
0528 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0529 0268 | h | Execute Discrete,Successor
052a 00db | | Load_Top At_Offset_3
052b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
052c 00da | | Load_Top At_Offset_2
052d 00db | | Load_Top At_Offset_3
052e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
052f 823c | < | Call 0x1,0x3c
0530 00d1 | | Pop_Control Pop_Count_1
0531 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0532 0000 0000 | | .BLANK 0000[0x6]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 00da | | Load_Top At_Offset_2
053c 6802 |h | Jump_Zero 0x53f
053d 4800 |H | Short_Literal 0x0
053e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053f 4801 |H | Short_Literal 0x1
0540 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0541 0000 0000 | | .BLANK 0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0553 | S | .CONST 0x0553 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0005 | | .CONST 0x0005 ; Number of locals
054b INIT_0548:
054b e012 | | Load 0x0,0x12
054c 0007 | | Action Break_Optional
054d 00d8 | | Load_Top At_Offset_0
054e 0007 | | Action Break_Optional
054f 029f 0783 | | Declare_Subprogram INIT_0780,For_Call
0551 029f 079b | | Declare_Subprogram INIT_0798,For_Call
0553 BODY_0548:
0553 00cf | | Action Mark_Auxiliary
0554 4804 |H | Short_Literal 0x4
0555 4800 |H | Short_Literal 0x0
0556 0007 | | Action Break_Optional
0557 00d8 | | Load_Top At_Offset_0
0558 8236 | 6 | Call 0x1,0x36
0559 4801 |H | Short_Literal 0x1
055a e5ff | | Load 0x2,-0x1
055b 8043 | C | Call 0x0,0x43
055c 00db | | Load_Top At_Offset_3
055d e233 | 3 | Load 0x1,0x33
055e 01d7 | | Execute Vector,Field_Read
055f 8044 | D | Call 0x0,0x44
0560 a402 | | Store_Unchecked 0x2,0x2
0561 8405 | | Call 0x2,0x5
0562 00c8 | | Action Pop_Auxiliary_Range
0563 3ff3 |? | Loop_Increasing 0x557
0564 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0571 | q | .CONST 0x0571 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0003 | | .CONST 0x0003 ; Number of locals
056b INIT_0568:
056b e01b | | Load 0x0,0x1b
056c e21f | | Load 0x1,0x1f
056d 0098 | | Execute Package,Field_Read_Dynamic
056e 0007 | | Action Break_Optional
056f 00e3 | | Load_Encached Natural_Cache
0570 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0571 BODY_0568:
0571 e01b | | Load 0x0,0x1b
0572 e21f | | Load 0x1,0x1f
0573 0098 | | Execute Package,Field_Read_Dynamic
0574 e5fe | | Load 0x2,-0x2
0575 e034 | 4 | Load 0x0,0x34
0576 e21f | | Load 0x1,0x1f
0577 0096 | | Execute Package,Entry
0578 003a | : | Store_Top Access,At_Offset_2
0579 00cf | | Action Mark_Auxiliary
057a 7812 |x | Jump 0x58d
057b 00d9 | | Load_Top At_Offset_1
057c e5ff | | Load 0x2,-0x1
057d 027f | | Execute Discrete,Equal
057e 6805 |h | Jump_Zero 0x584
057f 00da | | Load_Top At_Offset_2
0580 e036 | 6 | Load 0x0,0x36
0581 e21f | | Load 0x1,0x1f
0582 0096 | | Execute Package,Entry
0583 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0584 00da | | Load_Top At_Offset_2
0585 e037 | 7 | Load 0x0,0x37
0586 e21f | | Load 0x1,0x1f
0587 0096 | | Execute Package,Entry
0588 003b | ; | Store_Top Access,At_Offset_3
0589 00d9 | | Load_Top At_Offset_1
058a 0a01 | | Execute_Immediate Plus,0x1
058b 005a | Z | Store_Top Discrete,At_Offset_2
058c 00c9 | | Action Pop_Auxiliary_Loop
058d 00da | | Load_Top At_Offset_2
058e e035 | 5 | Load 0x0,0x35
058f e21f | | Load 0x1,0x1f
0590 0096 | | Execute Package,Entry
0591 6fe9 |o | Jump_Zero 0x57b
0592 00ce | | Action Pop_Auxiliary
0593 e22f | / | Load 0x1,0x2f
0594 0257 | W | Execute Discrete,Raise
0595 0000 0000 | | .XXX[0x3]
0597 0000 | |
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05a1 | | .CONST 0x05a1 ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0003 | | .CONST 0x0003 ; Number of locals
059b INIT_0598:
059b e01b | | Load 0x0,0x1b
059c e21f | | Load 0x1,0x1f
059d 0098 | | Execute Package,Field_Read_Dynamic
059e 0007 | | Action Break_Optional
059f 00e3 | | Load_Encached Natural_Cache
05a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05a1 BODY_0598:
05a1 e01b | | Load 0x0,0x1b
05a2 e21f | | Load 0x1,0x1f
05a3 0098 | | Execute Package,Field_Read_Dynamic
05a4 e5fe | | Load 0x2,-0x2
05a5 e034 | 4 | Load 0x0,0x34
05a6 e21f | | Load 0x1,0x1f
05a7 0096 | | Execute Package,Entry
05a8 003a | : | Store_Top Access,At_Offset_2
05a9 00cf | | Action Mark_Auxiliary
05aa 780f |x | Jump 0x5ba
05ab 00da | | Load_Top At_Offset_2
05ac e036 | 6 | Load 0x0,0x36
05ad e21f | | Load 0x1,0x1f
05ae 0096 | | Execute Package,Entry
05af e5ff | | Load 0x2,-0x1
05b0 8009 | | Call 0x0,0x9
05b1 6802 |h | Jump_Zero 0x5b4
05b2 00d9 | | Load_Top At_Offset_1
05b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05b4 00da | | Load_Top At_Offset_2
05b5 e037 | 7 | Load 0x0,0x37
05b6 e21f | | Load 0x1,0x1f
05b7 0096 | | Execute Package,Entry
05b8 003b | ; | Store_Top Access,At_Offset_3
05b9 00c9 | | Action Pop_Auxiliary_Loop
05ba 00da | | Load_Top At_Offset_2
05bb e035 | 5 | Load 0x0,0x35
05bc e21f | | Load 0x1,0x1f
05bd 0096 | | Execute Package,Entry
05be 6fec |o | Jump_Zero 0x5ab
05bf 00ce | | Action Pop_Auxiliary
05c0 00d8 | | Load_Top At_Offset_0
05c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05ce | | .CONST 0x05ce ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0003 | | .CONST 0x0003 ; Number of locals
05cb INIT_05c8:
05cb e012 | | Load 0x0,0x12
05cc 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call
05ce BODY_05c8:
05ce 00cf | | Action Mark_Auxiliary
05cf 4804 |H | Short_Literal 0x4
05d0 4800 |H | Short_Literal 0x0
05d1 0007 | | Action Break_Optional
05d2 00d8 | | Load_Top At_Offset_0
05d3 8236 | 6 | Call 0x1,0x36
05d4 4801 |H | Short_Literal 0x1
05d5 e5ff | | Load 0x2,-0x1
05d6 8043 | C | Call 0x0,0x43
05d7 00db | | Load_Top At_Offset_3
05d8 e233 | 3 | Load 0x1,0x33
05d9 01d7 | | Execute Vector,Field_Read
05da 8044 | D | Call 0x0,0x44
05db a402 | | Store_Unchecked 0x2,0x2
05dc 8403 | | Call 0x2,0x3
05dd 00c8 | | Action Pop_Auxiliary_Range
05de 3ff3 |? | Loop_Increasing 0x5d2
05df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 00da | | Load_Top At_Offset_2
05e4 4603 |F | Jump_Case 0x4
05e5 7813 |x | Jump 0x5f9 ; case 0x0
05e6 7803 |x | Jump 0x5ea ; case 0x1
05e7 7809 |x | Jump 0x5f1 ; case 0x2
05e8 7810 |x | Jump 0x5f9 ; case 0x3
05e9 780f |x | .XXX[0x1]
05ea 00db | | Load_Top At_Offset_3
05eb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ed 8045 | E | Call 0x0,0x45
05ee e5fe | | Load 0x2,-0x2
05ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05f0 7808 |x | Jump 0x5f9
05f1 00db | | Load_Top At_Offset_3
05f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05f3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05f4 e046 | F | Load 0x0,0x46
05f5 e21f | | Load 0x1,0x1f
05f6 0096 | | Execute Package,Entry
05f7 e5fe | | Load 0x2,-0x2
05f8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05f9 4801 |H | Short_Literal 0x1
05fa e5fe | | Load 0x2,-0x2
05fb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05fd 0000 0000 | | .XXX[0x3]
05ff 0000 | |
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 00da | | Load_Top At_Offset_2
0604 4603 |F | Jump_Case 0x4
0605 780f |x | Jump 0x615 ; case 0x0
0606 7803 |x | Jump 0x60a ; case 0x1
0607 7807 |x | Jump 0x60f ; case 0x2
0608 780c |x | Jump 0x615 ; case 0x3
0609 780b |x | .XXX[0x1]
060a 00db | | Load_Top At_Offset_3
060b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
060c 8047 | G | Call 0x0,0x47
060d 00d1 | | Pop_Control Pop_Count_1
060e 7806 |x | Jump 0x615
060f 00db | | Load_Top At_Offset_3
0610 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0611 e048 | H | Load 0x0,0x48
0612 e21f | | Load 0x1,0x1f
0613 0096 | | Execute Package,Entry
0614 00d1 | | Pop_Control Pop_Count_1
0615 4800 |H | Short_Literal 0x0
0616 e5fe | | Load 0x2,-0x2
0617 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0618 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0619 0000 0000 | | .BLANK 0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 00db | | Load_Top At_Offset_3
0624 4603 |F | Jump_Case 0x4
0625 7803 |x | Jump 0x629 ; case 0x0
0626 7804 |x | Jump 0x62b ; case 0x1
0627 7807 |x | Jump 0x62f ; case 0x2
0628 7800 |x | Jump 0x629 ; case 0x3
0629 4801 |H | Short_Literal 0x1
062a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
062b 00da | | Load_Top At_Offset_2
062c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
062d 8049 | I | Call 0x0,0x49
062e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
062f 00da | | Load_Top At_Offset_2
0630 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0631 e04a | J | Load 0x0,0x4a
0632 e21f | | Load 0x1,0x1f
0633 0096 | | Execute Package,Entry
0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0635 0000 0000 | | .XXX[0x3]
0637 0000 | |
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 00db | | Load_Top At_Offset_3
063c 00db | | Load_Top At_Offset_3
063d 823e | > | Call 0x1,0x3e
063e 6803 |h | Jump_Zero 0x642
063f 0092 08d5 | | Action Push_String_Extended,0x8d5 ; ")"
0641 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0642 00db | | Load_Top At_Offset_3
0643 4603 |F | Jump_Case 0x4
0644 7803 |x | Jump 0x648 ; case 0x0
0645 7804 |x | Jump 0x64a ; case 0x1
0646 7807 |x | Jump 0x64e ; case 0x2
0647 7800 |x | Jump 0x648 ; case 0x3
0648 00ea | | Load_Encached Null_String_Cache
0649 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
064a 00da | | Load_Top At_Offset_2
064b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
064c 804b | K | Call 0x0,0x4b
064d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
064e 00da | | Load_Top At_Offset_2
064f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0650 e04c | L | Load 0x0,0x4c
0651 e21f | | Load 0x1,0x1f
0652 0096 | | Execute Package,Entry
0653 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0654 0000 0000 | | .BLANK 0000[0x4]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c e5fe | | Load 0x2,-0x2
065d 027f | | Execute Discrete,Equal
065e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
065f 0000 | | .XXX[0x1]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0665 | e | .CONST 0x0665 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0002 | | .CONST 0x0002 ; Number of locals
0663 INIT_0660:
0663 00e3 | | Load_Encached Natural_Cache
0664 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0665 BODY_0660:
0665 00d8 | | Load_Top At_Offset_0
0666 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0667 0000 | | .XXX[0x1]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
066c 0000 0000 | | .BLANK 0000[0x4]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 a5fd | | Store_Unchecked 0x2,-0x3
0675 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0676 0000 0000 | | .XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 068e | | .CONST 0x068e ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0003 | | .CONST 0x0003 ; Number of locals
067b INIT_0678:
067b e011 | | Load 0x0,0x11
067c e21f | | Load 0x1,0x1f
067d 0098 | | Execute Package,Field_Read_Dynamic
067e 0322 | " | Declare_Variable Record
067f e402 | | Load 0x2,0x2
0680 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0681 00d9 | | Load_Top At_Offset_1
0682 017d | } | Execute Record,Structure_Write
0683 e011 | | Load 0x0,0x11
0684 e21f | | Load 0x1,0x1f
0685 0098 | | Execute Package,Field_Read_Dynamic
0686 0322 | " | Declare_Variable Record
0687 e402 | | Load 0x2,0x2
0688 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0689 e033 | 3 | Load 0x0,0x33
068a e21f | | Load 0x1,0x1f
068b 0096 | | Execute Package,Entry
068c 00d9 | | Load_Top At_Offset_1
068d 017d | } | Execute Record,Structure_Write
068e BODY_0678:
068e 00d8 | | Load_Top At_Offset_0
068f e5ff | | Load 0x2,-0x1
0690 e04d | M | Load 0x0,0x4d
0691 e21f | | Load 0x1,0x1f
0692 0096 | | Execute Package,Entry
0693 00d1 | | Pop_Control Pop_Count_1
0694 00d8 | | Load_Top At_Offset_0
0695 00da | | Load_Top At_Offset_2
0696 e04e | N | Load 0x0,0x4e
0697 e21f | | Load 0x1,0x1f
0698 0096 | | Execute Package,Entry
0699 00d1 | | Pop_Control Pop_Count_1
069a 00d8 | | Load_Top At_Offset_0
069b e402 | | Load 0x2,0x2
069c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
069d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
069e 0000 0000 | | .XXX[0x2]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06b6 | | .CONST 0x06b6 ; Address of begin
06a1 071a | | .CONST 0x071a ; Address of exception handler
06a2 0007 | | .CONST 0x0007 ; Number of locals
06a3 INIT_06a0:
06a3 e04f | O | Load 0x0,0x4f
06a4 0007 | | Action Break_Optional
06a5 e012 | | Load 0x0,0x12
06a6 0007 | | Action Break_Optional
06a7 e050 | P | Load 0x0,0x50
06a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06a9 02c7 | | Declare_Variable Any
06aa 00d8 | | Load_Top At_Offset_0
06ab 1c00 | | Execute_Immediate Run_Utility,0x0
06ac e004 | | Load 0x0,0x4
06ad 0322 | " | Declare_Variable Record
06ae 00d8 | | Load_Top At_Offset_0
06af 1c00 | | Execute_Immediate Run_Utility,0x0
06b0 00d8 | | Load_Top At_Offset_0
06b1 0322 | " | Declare_Variable Record
06b2 00d8 | | Load_Top At_Offset_0
06b3 1c00 | | Execute_Immediate Run_Utility,0x0
06b4 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
06b6 BODY_06a0:
06b6 e407 | | Load 0x2,0x7
06b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06b8 8051 | Q | Call 0x0,0x51
06b9 a602 | | Store_Unchecked 0x3,0x2
06ba e407 | | Load 0x2,0x7
06bb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06bc e7ff | | Load 0x3,-0x1
06bd 00d8 | | Load_Top At_Offset_0
06be 00e4 | | Load_Encached Positive_Cache
06bf 0260 | ` | Execute Discrete,In_Type
06c0 7001 |p | Jump_Nonzero 0x6c2
06c1 0801 | | Execute_Immediate Raise,0x1
06c2 8238 | 8 | Call 0x1,0x38
06c3 00db | | Load_Top At_Offset_3
06c4 017d | } | Execute Record,Structure_Write
06c5 8607 | | Call 0x3,0x7
06c6 e602 | | Load 0x3,0x2
06c7 e603 | | Load 0x3,0x3
06c8 4800 |H | Short_Literal 0x0
06c9 8052 | R | Call 0x0,0x52
06ca c602 | | Store 0x3,0x2
06cb 00db | | Load_Top At_Offset_3
06cc e602 | | Load 0x3,0x2
06cd 8053 | S | Call 0x0,0x53
06ce c604 | | Store 0x3,0x4
06cf 4802 |H | Short_Literal 0x2
06d0 e603 | | Load 0x3,0x3
06d1 e604 | | Load 0x3,0x4
06d2 8054 | T | Call 0x0,0x54
06d3 e407 | | Load 0x2,0x7
06d4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06d5 e602 | | Load 0x3,0x2
06d6 8055 | U | Call 0x0,0x55
06d7 00da | | Load_Top At_Offset_2
06d8 017d | } | Execute Record,Structure_Write
06d9 e7ff | | Load 0x3,-0x1
06da 0f01 | | Execute_Immediate Equal,0x1
06db 6819 |h | Jump_Zero 0x6f5
06dc 00d9 | | Load_Top At_Offset_1
06dd e407 | | Load 0x2,0x7
06de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
06df e056 | V | Load 0x0,0x56
06e0 e21f | | Load 0x1,0x1f
06e1 0096 | | Execute Package,Entry
06e2 e407 | | Load 0x2,0x7
06e3 00db | | Load_Top At_Offset_3
06e4 823a | : | Call 0x1,0x3a
06e5 00d1 | | Pop_Control Pop_Count_1
06e6 e407 | | Load 0x2,0x7
06e7 00da | | Load_Top At_Offset_2
06e8 8237 | 7 | Call 0x1,0x37
06e9 00d1 | | Pop_Control Pop_Count_1
06ea e5ff | | Load 0x2,-0x1
06eb e01a | | Load 0x0,0x1a
06ec e22c | , | Load 0x1,0x2c
06ed 0098 | | Execute Package,Field_Read_Dynamic
06ee 0216 | | Execute Heap_Access,Convert
06ef e407 | | Load 0x2,0x7
06f0 e02f | / | Load 0x0,0x2f
06f1 e22c | , | Load 0x1,0x2c
06f2 0096 | | Execute Package,Entry
06f3 c5ff | | Store 0x2,-0x1
06f4 7814 |x | Jump 0x709
06f5 e5ff | | Load 0x2,-0x1
06f6 e7ff | | Load 0x3,-0x1
06f7 00d8 | | Load_Top At_Offset_0
06f8 00e4 | | Load_Encached Positive_Cache
06f9 0260 | ` | Execute Discrete,In_Type
06fa 7001 |p | Jump_Nonzero 0x6fc
06fb 0801 | | Execute_Immediate Raise,0x1
06fc 8212 | | Call 0x1,0x12
06fd c5ff | | Store 0x2,-0x1
06fe e5ff | | Load 0x2,-0x1
06ff e7ff | | Load 0x3,-0x1
0700 0aff | | Execute_Immediate Plus,-0x1
0701 00d8 | | Load_Top At_Offset_0
0702 00e3 | | Load_Encached Natural_Cache
0703 0260 | ` | Execute Discrete,In_Type
0704 7001 |p | Jump_Nonzero 0x706
0705 0801 | | Execute_Immediate Raise,0x1
0706 00db | | Load_Top At_Offset_3
0707 8210 | | Call 0x1,0x10
0708 c5ff | | Store 0x2,-0x1
0709 e602 | | Load 0x3,0x2
070a 4800 |H | Short_Literal 0x0
070b 8057 | W | Call 0x0,0x57
070c c602 | | Store 0x3,0x2
070d e03b | ; | Load 0x0,0x3b
070e 180e | | Execute Package,Field_Execute,Field_Number 0xe
070f 4803 |H | Short_Literal 0x3
0710 e605 | | Load 0x3,0x5
0711 8058 | X | Call 0x0,0x58
0712 0092 08d6 | | Action Push_String_Extended,0x8d6 ; " updated in Test Set."
0714 01cc | | Execute Vector,Catenate
0715 e03c | < | Load 0x0,0x3c
0716 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0717 4801 |H | Short_Literal 0x1
0718 a40c | | Store_Unchecked 0x2,0xc
0719 4502 |E | Exit_Suprogram New_Top_Offset 0x2
071a TRAP_06a0:
071a 0007 | | Action Break_Optional
071b e03b | ; | Load 0x0,0x3b
071c 180e | | Execute Package,Field_Execute,Field_Number 0xe
071d 4805 |H | Short_Literal 0x5
071e e605 | | Load 0x3,0x5
071f 8058 | X | Call 0x0,0x58
0720 0092 08d7 | | Action Push_String_Extended,0x8d7 ; " not updated in Test Set."
0722 01cc | | Execute Vector,Catenate
0723 e03c | < | Load 0x0,0x3c
0724 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0725 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0726 0000 0000 | | .XXX[0x2]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 0730 | 0 | .CONST 0x0730 ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 4800 |H | Short_Literal 0x0
072c e409 | | Load 0x2,0x9
072d 8059 | Y | Call 0x0,0x59
072e 00e1 | | Load_Encached Boolean_Cache
072f 03f1 | | Declare_Variable Discrete,With_Value
0730 BODY_0728:
0730 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0731 0000 0000 | | .BLANK 0000[0x7]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0743 | C | .CONST 0x0743 ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0003 | | .CONST 0x0003 ; Number of locals
073b INIT_0738:
073b e05a | Z | Load 0x0,0x5a
073c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
073d e05b | [ | Load 0x0,0x5b
073e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
073f 4802 |H | Short_Literal 0x2
0740 805c | \ | Call 0x0,0x5c
0741 e5ff | | Load 0x2,-0x1
0742 8218 | | Call 0x1,0x18
0743 BODY_0738:
0743 00d9 | | Load_Top At_Offset_1
0744 e05d | ] | Load 0x0,0x5d
0745 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0746 00d9 | | Load_Top At_Offset_1
0747 e05d | ] | Load 0x0,0x5d
0748 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0749 01de | | Execute Vector,Not_Equal
074a 6812 |h | Jump_Zero 0x75d
074b e5ff | | Load 0x2,-0x1
074c 00da | | Load_Top At_Offset_2
074d 8219 | | Call 0x1,0x19
074e c5ff | | Store 0x2,-0x1
074f e03b | ; | Load 0x0,0x3b
0750 180e | | Execute Package,Field_Execute,Field_Number 0xe
0751 4806 |H | Short_Literal 0x6
0752 0092 08d8 | | Action Push_String_Extended,0x8d8 ; "Test_Set was constructed with "
0754 00db | | Load_Top At_Offset_3
0755 01cc | | Execute Vector,Catenate
0756 0092 08d9 | | Action Push_String_Extended,0x8d9 ; " and current Test_Case_Loc is "
0758 01cc | | Execute Vector,Catenate
0759 e602 | | Load 0x3,0x2
075a 01cc | | Execute Vector,Catenate
075b e03c | < | Load 0x0,0x3c
075c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
075d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
075e 0000 0000 | | .XXX[0x2]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0767 | g | .CONST 0x0767 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0002 | | .CONST 0x0002 ; Number of locals
0763 INIT_0760:
0763 e5ff | | Load 0x2,-0x1
0764 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0765 e5ff | | Load 0x2,-0x1
0766 823f | ? | Call 0x1,0x3f
0767 BODY_0760:
0767 e5ff | | Load 0x2,-0x1
0768 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0769 680c |h | Jump_Zero 0x776
076a e5ff | | Load 0x2,-0x1
076b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
076c e226 | & | Load 0x1,0x26
076d 011c | | Execute Any,Convert_Unchecked
076e 1c01 | | Execute_Immediate Run_Utility,0x1
076f 0092 08da | | Action Push_String_Extended,0x8da ; "=>("
0771 01cc | | Execute Vector,Catenate
0772 00d9 | | Load_Top At_Offset_1
0773 01cc | | Execute Vector,Catenate
0774 00cb | | Action Pop_Block_With_Result
0775 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0776 00d8 | | Load_Top At_Offset_0
0777 00cb | | Action Pop_Block_With_Result
0778 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0779 0000 0000 | | .BLANK 0000[0x7]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 078c | | .CONST 0x078c ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0002 | | .CONST 0x0002 ; Number of locals
0783 INIT_0780:
0783 e05e | ^ | Load 0x0,0x5e
0784 0322 | " | Declare_Variable Record
0785 e5fe | | Load 0x2,-0x2
0786 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0787 4801 |H | Short_Literal 0x1
0788 e7fd | | Load 0x3,-0x3
0789 805f | _ | Call 0x0,0x5f
078a 00d9 | | Load_Top At_Offset_1
078b 017d | } | Execute Record,Structure_Write
078c BODY_0780:
078c e5fe | | Load 0x2,-0x2
078d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
078e e7ff | | Load 0x3,-0x1
078f 00da | | Load_Top At_Offset_2
0790 e7fe | | Load 0x3,-0x2
0791 8060 | ` | Call 0x0,0x60
0792 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0793 0000 0000 | | .BLANK 0000[0x5]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079d | | .CONST 0x079d ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0002 | | .CONST 0x0002 ; Number of locals
079b INIT_0798:
079b e402 | | Load 0x2,0x2
079c 8038 | 8 | Call 0x0,0x38
079d BODY_0798:
079d e408 | | Load 0x2,0x8
079e 6811 |h | Jump_Zero 0x7b0
079f 00d8 | | Load_Top At_Offset_0
07a0 01db | | Execute Vector,Length
07a1 680d |h | Jump_Zero 0x7af
07a2 e5ff | | Load 0x2,-0x1
07a3 8043 | C | Call 0x0,0x43
07a4 e408 | | Load 0x2,0x8
07a5 e235 | 5 | Load 0x1,0x35
07a6 01d7 | | Execute Vector,Field_Read
07a7 8061 | a | Call 0x0,0x61
07a8 a403 | | Store_Unchecked 0x2,0x3
07a9 e403 | | Load 0x2,0x3
07aa 8038 | 8 | Call 0x0,0x38
07ab 8062 | b | Call 0x0,0x62
07ac e402 | | Load 0x2,0x2
07ad e408 | | Load 0x2,0x8
07ae 8404 | | Call 0x2,0x4
07af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07b0 e5ff | | Load 0x2,-0x1
07b1 8043 | C | Call 0x0,0x43
07b2 8063 | c | Call 0x0,0x63
07b3 701b |p | Jump_Nonzero 0x7cf
07b4 00d8 | | Load_Top At_Offset_0
07b5 01db | | Execute Vector,Length
07b6 7007 |p | Jump_Nonzero 0x7be
07b7 4801 |H | Short_Literal 0x1
07b8 4801 |H | Short_Literal 0x1
07b9 e5ff | | Load 0x2,-0x1
07ba 8043 | C | Call 0x0,0x43
07bb 4801 |H | Short_Literal 0x1
07bc 8044 | D | Call 0x0,0x44
07bd a402 | | Store_Unchecked 0x2,0x2
07be e402 | | Load 0x2,0x2
07bf 8038 | 8 | Call 0x0,0x38
07c0 01db | | Execute Vector,Length
07c1 680d |h | Jump_Zero 0x7cf
07c2 e5ff | | Load 0x2,-0x1
07c3 8043 | C | Call 0x0,0x43
07c4 e408 | | Load 0x2,0x8
07c5 e235 | 5 | Load 0x1,0x35
07c6 01d7 | | Execute Vector,Field_Read
07c7 8061 | a | Call 0x0,0x61
07c8 a403 | | Store_Unchecked 0x2,0x3
07c9 e403 | | Load 0x2,0x3
07ca 8038 | 8 | Call 0x0,0x38
07cb 8062 | b | Call 0x0,0x62
07cc e402 | | Load 0x2,0x2
07cd e408 | | Load 0x2,0x8
07ce 8404 | | Call 0x2,0x4
07cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d5 | | .CONST 0x07d5 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0002 | | .CONST 0x0002 ; Number of locals
07d3 INIT_07d0:
07d3 e402 | | Load 0x2,0x2
07d4 8038 | 8 | Call 0x0,0x38
07d5 BODY_07d0:
07d5 e406 | | Load 0x2,0x6
07d6 680a |h | Jump_Zero 0x7e1
07d7 00d8 | | Load_Top At_Offset_0
07d8 01db | | Execute Vector,Length
07d9 6806 |h | Jump_Zero 0x7e0
07da e5fe | | Load 0x2,-0x2
07db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07dc e406 | | Load 0x2,0x6
07dd e402 | | Load 0x2,0x2
07de 8064 | d | Call 0x0,0x64
07df 00d1 | | Pop_Control Pop_Count_1
07e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07e1 e5ff | | Load 0x2,-0x1
07e2 8043 | C | Call 0x0,0x43
07e3 8063 | c | Call 0x0,0x63
07e4 7014 |p | Jump_Nonzero 0x7f9
07e5 00d8 | | Load_Top At_Offset_0
07e6 01db | | Execute Vector,Length
07e7 7007 |p | Jump_Nonzero 0x7ef
07e8 4801 |H | Short_Literal 0x1
07e9 4801 |H | Short_Literal 0x1
07ea e5ff | | Load 0x2,-0x1
07eb 8043 | C | Call 0x0,0x43
07ec 4801 |H | Short_Literal 0x1
07ed 8044 | D | Call 0x0,0x44
07ee a402 | | Store_Unchecked 0x2,0x2
07ef e402 | | Load 0x2,0x2
07f0 8038 | 8 | Call 0x0,0x38
07f1 01db | | Execute Vector,Length
07f2 6806 |h | Jump_Zero 0x7f9
07f3 e5fe | | Load 0x2,-0x2
07f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07f5 e406 | | Load 0x2,0x6
07f6 e402 | | Load 0x2,0x2
07f7 8064 | d | Call 0x0,0x64
07f8 00d1 | | Pop_Control Pop_Count_1
07f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07fa 0000 0000 | | .BLANK 0000[0x6]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0809 | | .CONST 0x0809 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0002 | | .CONST 0x0002 ; Number of locals
0803 INIT_0800:
0803 e407 | | Load 0x2,0x7
0804 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0805 4802 |H | Short_Literal 0x2
0806 e605 | | Load 0x3,0x5
0807 8058 | X | Call 0x0,0x58
0808 8065 | e | Call 0x0,0x65
0809 BODY_0800:
0809 e407 | | Load 0x2,0x7
080a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
080b 00d9 | | Load_Top At_Offset_1
080c 8039 | 9 | Call 0x0,0x39
080d a603 | | Store_Unchecked 0x3,0x3
080e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
080f 0000 | | .XXX[0x1]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813 | | .CONST 0x0813 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0001 | | .CONST 0x0001 ; Number of locals
0813 BODY_0810:
0813 INIT_0810:
0813 4601 |F | Jump_Case 0x2
0814 7801 |x | Jump 0x816 ; case 0x0
0815 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0816 4800 |H | Short_Literal 0x0
0817 00db | | Load_Top At_Offset_3
0818 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0819 4800 |H | Short_Literal 0x0
081a 00db | | Load_Top At_Offset_3
081b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
081c 4801 |H | Short_Literal 0x1
081d 00db | | Load_Top At_Offset_3
081e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
081f 00da | | Load_Top At_Offset_2
0820 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0821 1c00 | | Execute_Immediate Run_Utility,0x0
0822 00da | | Load_Top At_Offset_2
0823 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0824 1c00 | | Execute_Immediate Run_Utility,0x0
0825 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0826 0000 0000 | | .XXX[0x2]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0850 | P | .CONST 0x0850 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0015 | | .CONST 0x0015 ; Number of locals
082b INIT_0828:
082b 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated
082d 029a 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call,Visible,Unelaborated
082f 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated
0831 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated
0833 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated
0835 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated
0837 029a 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call,Visible,Unelaborated
0839 029a 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call,Visible,Unelaborated
083b 029a 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call,Visible,Unelaborated
083d 00bf | | Action Accept_Activation
083e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
083f 00c7 | | Action Elaborate_Subprogram
0840 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0841 00c7 | | Action Elaborate_Subprogram
0842 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0843 00c7 | | Action Elaborate_Subprogram
0844 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0845 00c7 | | Action Elaborate_Subprogram
0846 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0847 00c7 | | Action Elaborate_Subprogram
0848 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0849 00c7 | | Action Elaborate_Subprogram
084a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
084b 00c7 | | Action Elaborate_Subprogram
084c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
084d 00c7 | | Action Elaborate_Subprogram
084e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
084f 00c7 | | Action Elaborate_Subprogram
0850 BODY_0828:
0850 00bc | | Action Signal_Activated
0851 00bb | | Action Signal_Completion
0852 0000 0000 | | .BLANK 0000[0x6]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 00db | | Load_Top At_Offset_3
085c 00db | | Load_Top At_Offset_3
085d 8001 | | Call 0x0,0x1
085e c5fe | | Store 0x2,-0x2
085f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 e5fd | | Load 0x2,-0x3
0864 e002 | | Load 0x0,0x2
0865 0216 | | Execute Heap_Access,Convert
0866 e5fe | | Load 0x2,-0x2
0867 e5ff | | Load 0x2,-0x1
0868 8003 | | Call 0x0,0x3
0869 c5fd | | Store 0x2,-0x3
086a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
086b 0000 0000 | | .BLANK 0000[0x5]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0873 | s | .CONST 0x0873 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0001 | | .CONST 0x0001 ; Number of locals
0873 BODY_0870:
0873 INIT_0870:
0873 00db | | Load_Top At_Offset_3
0874 e002 | | Load 0x0,0x2
0875 0216 | | Execute Heap_Access,Convert
0876 00db | | Load_Top At_Offset_3
0877 8004 | | Call 0x0,0x4
0878 c5fe | | Store 0x2,-0x2
0879 4502 |E | Exit_Suprogram New_Top_Offset 0x2
087a 0000 0000 | | .BLANK 0000[0x6]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 00da | | Load_Top At_Offset_2
0884 8005 | | Call 0x0,0x5
0885 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0886 0000 0000 | | .XXX[0x2]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 00da | | Load_Top At_Offset_2
088c e002 | | Load 0x0,0x2
088d 0216 | | Execute Heap_Access,Convert
088e 8006 | | Call 0x0,0x6
088f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0890 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0891 0000 0000 | | .BLANK 0000[0x7]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b | | .CONST 0x089b ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0001 | | .CONST 0x0001 ; Number of locals
089b BODY_0898:
089b INIT_0898:
089b 00db | | Load_Top At_Offset_3
089c e002 | | Load 0x0,0x2
089d 0216 | | Execute Heap_Access,Convert
089e 00db | | Load_Top At_Offset_3
089f 8007 | | Call 0x0,0x7
08a0 c5fe | | Store 0x2,-0x2
08a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08a2 0000 0000 | | .BLANK 0000[0x6]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab | | .CONST 0x08ab ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0001 | | .CONST 0x0001 ; Number of locals
08ab BODY_08a8:
08ab INIT_08a8:
08ab 00db | | Load_Top At_Offset_3
08ac e002 | | Load 0x0,0x2
08ad 0216 | | Execute Heap_Access,Convert
08ae 00db | | Load_Top At_Offset_3
08af 8008 | | Call 0x0,0x8
08b0 c5fe | | Store 0x2,-0x2
08b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08b2 0000 0000 | | .BLANK 0000[0x6]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb | | .CONST 0x08bb ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0001 | | .CONST 0x0001 ; Number of locals
08bb BODY_08b8:
08bb INIT_08b8:
08bb 00da | | Load_Top At_Offset_2
08bc 8009 | | Call 0x0,0x9
08bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08be 0000 0000 | | .XXX[0x2]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3 | | .CONST 0x08c3 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0001 | | .CONST 0x0001 ; Number of locals
08c3 BODY_08c0:
08c3 INIT_08c0:
08c3 00db | | Load_Top At_Offset_3
08c4 e002 | | Load 0x0,0x2
08c5 0216 | | Execute Heap_Access,Convert
08c6 00db | | Load_Top At_Offset_3
08c7 800a | | Call 0x0,0xa
08c8 c5fe | | Store 0x2,-0x2
08c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08ca ; --------------------------------------------------------------------------------------
08ca ; STRING TABLE
08ca ; --------------------------------------------------------------------------------------
08ca 0024 | $ | .STRTAB 0x0024->0x08dc ; "NONE"
08cb 0026 | & | .STRTAB 0x0026->0x08de ; "SUMMARY"
08cc 002b | + | .STRTAB 0x002b->0x08e1 ; "ELEMENTS"
08cd 0031 | 1 | .STRTAB 0x0031->0x08e5 ; "CONTEXT"
08ce 0036 | 6 | .STRTAB 0x0036->0x08e9 ; "others => Unspecified"
08cf 0049 | I | .STRTAB 0x0049->0x08f3 ; " updated."
08d0 0050 | P | .STRTAB 0x0050->0x08f8 ; "Update of "
08d1 0058 | X | .STRTAB 0x0058->0x08fd ; " failed."
08d2 005e | ^ | .STRTAB 0x005e->0x0901 ; "The Test Set "
08d3 0069 | i | .STRTAB 0x0069->0x0907 ; " is consistent."
08d4 0076 | v | .STRTAB 0x0076->0x090f ; "=>"
08d5 0076 | v | .STRTAB 0x0076->0x0910 ; ")"
08d6 0075 | u | .STRTAB 0x0075->0x0910 ; " updated in Test Set."
08d7 0088 | | .STRTAB 0x0088->0x091b ; " not updated in Test Set."
08d8 009f | | .STRTAB 0x009f->0x0927 ; "Test_Set was constructed with "
08d9 00bb | | .STRTAB 0x00bb->0x0936 ; " and current Test_Case_Loc is "
08da 00d8 | | .STRTAB 0x00d8->0x0946 ; "=>("
08db 00d9 | | .STREND 0x00d9->0x0947
08dc 4e4f 4e45 |NONE| .STRTAB_STRINGS
0948 ; --------------------------------------------------------------------------------------
0948 ; Debug Table
0948 ; --------------------------------------------------------------------------------------
0948 0004 000a | | .DEBUG4 0x0004,0x000a,0x2376,0x0000,0x0001,0x0000
094e 0000 0000 | | .BLANK 0000[0xb2]