|
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: 4096 (0x1000)
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 0768 | h | .CONST 0x0768 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 015f | _ | .CONST 0x015f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0049 | I | .CONST 0x0049 ; Number of locals
000b INIT_0008:
000b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
000d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
000f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0011 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0013 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0015 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0017 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0019 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
001b 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
001d 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
001f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0021 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0023 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0025 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0027 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0029 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
002b 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
002d 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
002f 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0031 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0033 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0035 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0037 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0039 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
003b 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
003d 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
003f 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
0040 00d8 | | Load_Top At_Offset_0
0041 02a0 | | Declare_Subprogram Null_Subprogram
0042 03ae | | Declare_Type Heap_Access,Defined,Visible
0043 4802 |H | Short_Literal 0x2
0044 032b | + | Declare_Type Record,Incomplete,Visible
0045 00d8 | | Load_Top At_Offset_0
0046 02a0 | | Declare_Subprogram Null_Subprogram
0047 03ae | | Declare_Type Heap_Access,Defined,Visible
0048 4804 |H | Short_Literal 0x4
0049 032b | + | Declare_Type Record,Incomplete,Visible
004a 00d8 | | Load_Top At_Offset_0
004b 02a0 | | Declare_Subprogram Null_Subprogram
004c 03ae | | Declare_Type Heap_Access,Defined,Visible
004d 00bf | | Action Accept_Activation
004e 0093 0000 | | push_full_address 0x0
0050 6143 |aC | Indirect_Literal Discrete,0x194,{0x80000000, 0x00020000}
0051 0273 | s | Execute Discrete,Plus
0052 e20d | | Load 0x1,0xd
0053 613c |a< | Indirect_Literal Discrete,0x190,{0x00000000, 0x0000ffff}
0054 0279 | y | Execute Discrete,And
0055 0273 | s | Execute Discrete,Plus
0056 e002 | | Load 0x0,0x2
0057 0273 | s | Execute Discrete,Plus
0058 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0059 e003 | | Load 0x0,0x3
005a 0387 | | Declare_Variable Package
005b 00d8 | | Load_Top At_Offset_0
005c 020f | | Execute Module,Activate
005d 4800 |H | Short_Literal 0x0
005e 4803 |H | Short_Literal 0x3
005f 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
0061 03fd | | Declare_Type Discrete,Defined
0062 00d8 | | Load_Top At_Offset_0
0063 00e1 | | Load_Encached Boolean_Cache
0064 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0066 4800 |H | Short_Literal 0x0
0067 4801 |H | Short_Literal 0x1
0068 4800 |H | Short_Literal 0x0
0069 4800 |H | Short_Literal 0x0
006a 4801 |H | Short_Literal 0x1
006b 031d | | Declare_Type Variant_Record,Defined
006c 4800 |H | Short_Literal 0x0
006d 4806 |H | Short_Literal 0x6
006e 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
0070 03fd | | Declare_Type Discrete,Defined
0071 4801 |H | Short_Literal 0x1
0072 4806 |H | Short_Literal 0x6
0073 00da | | Load_Top At_Offset_2
0074 03f8 | | Declare_Type Discrete,Constrained
0075 4803 |H | Short_Literal 0x3
0076 4806 |H | Short_Literal 0x6
0077 00da | | Load_Top At_Offset_2
0078 03f8 | | Declare_Type Discrete,Constrained
0079 00da | | Load_Top At_Offset_2
007a 4801 |H | Short_Literal 0x1
007b 00e1 | | Load_Encached Boolean_Cache
007c 4801 |H | Short_Literal 0x1
007d e004 | | Load 0x0,0x4
007e 4801 |H | Short_Literal 0x1
007f e005 | | Load 0x0,0x5
0080 4801 |H | Short_Literal 0x1
0081 e005 | | Load 0x0,0x5
0082 4801 |H | Short_Literal 0x1
0083 e005 | | Load 0x0,0x5
0084 4801 |H | Short_Literal 0x1
0085 e005 | | Load 0x0,0x5
0086 029f 041b | | Declare_Subprogram INIT_0418,For_Call
0088 4806 |H | Short_Literal 0x6
0089 4800 |H | Short_Literal 0x0
008a 4806 |H | Short_Literal 0x6
008b 4800 |H | Short_Literal 0x0
008c 4801 |H | Short_Literal 0x1
008d 031d | | Declare_Type Variant_Record,Defined
008e e006 | | Load 0x0,0x6
008f 0322 | " | Declare_Variable Record
0090 e231 | 1 | Load 0x1,0x31
0091 02ff | | Declare_Variable Variant_Record
0092 00d8 | | Load_Top At_Offset_0
0093 1c00 | | Execute_Immediate Run_Utility,0x0
0094 4800 |H | Short_Literal 0x0
0095 00db | | Load_Top At_Offset_3
0096 1c08 | | Execute_Immediate Run_Utility,0x8
0097 00d8 | | Load_Top At_Offset_0
0098 1c00 | | Execute_Immediate Run_Utility,0x0
0099 029b 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Unelaborated
009b 029b 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Unelaborated
009d 029b 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Unelaborated
009f 029b 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Unelaborated
00a1 029b 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Unelaborated
00a3 029b 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Unelaborated
00a5 029b 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Unelaborated
00a7 0093 0000 | | push_full_address 0x0
00a9 60e2 |` | Indirect_Literal Discrete,0x18c,{0x80000000, 0x00010000}
00aa 0273 | s | Execute Discrete,Plus
00ab e20d | | Load 0x1,0xd
00ac 60e3 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x0000ffff}
00ad 0279 | y | Execute Discrete,And
00ae 0273 | s | Execute Discrete,Plus
00af e007 | | Load 0x0,0x7
00b0 0273 | s | Execute Discrete,Plus
00b1 e232 | 2 | Load 0x1,0x32
00b2 e006 | | Load 0x0,0x6
00b3 e236 | 6 | Load 0x1,0x36
00b4 0320 | | Declare_Variable Record,Duplicate
00b5 00cd | | Action Spare6_Action
00b6 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
00b7 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
00b8 e231 | 1 | Load 0x1,0x31
00b9 e237 | 7 | Load 0x1,0x37
00ba 02fd | | Declare_Variable Variant_Record,Duplicate
00bb 00cd | | Action Spare6_Action
00bc 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
00bd 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
00be e235 | 5 | Load 0x1,0x35
00bf e238 | 8 | Load 0x1,0x38
00c0 02fd | | Declare_Variable Variant_Record,Duplicate
00c1 00cd | | Action Spare6_Action
00c2 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
00c3 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00c4 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
00c5 0092 06d7 | | Action Push_String_Extended,0x6d7 ; " "
00c7 e008 | | Load 0x0,0x8
00c8 0387 | | Declare_Variable Package
00c9 00d8 | | Load_Top At_Offset_0
00ca 020f | | Execute Module,Activate
00cb e009 | | Load 0x0,0x9
00cc 00d9 | | Load_Top At_Offset_1
00cd 0098 | | Execute Package,Field_Read_Dynamic
00ce e229 | ) | Load 0x1,0x29
00cf 03a2 | | Complete_Type Heap_Access,By_Renaming
00d0 e00a | | Load 0x0,0xa
00d1 00d9 | | Load_Top At_Offset_1
00d2 0098 | | Execute Package,Field_Read_Dynamic
00d3 e22b | + | Load 0x1,0x2b
00d4 0325 | % | Complete_Type Record,By_Renaming
00d5 e22c | , | Load 0x1,0x2c
00d6 03a0 | | Complete_Type Heap_Access,By_Component_Completion
00d7 e00b | | Load 0x0,0xb
00d8 00d9 | | Load_Top At_Offset_1
00d9 0098 | | Execute Package,Field_Read_Dynamic
00da e22d | - | Load 0x1,0x2d
00db 0325 | % | Complete_Type Record,By_Renaming
00dc e22e | . | Load 0x1,0x2e
00dd 03a0 | | Complete_Type Heap_Access,By_Component_Completion
00de e00c | | Load 0x0,0xc
00df 00d9 | | Load_Top At_Offset_1
00e0 0098 | | Execute Package,Field_Read_Dynamic
00e1 0337 | 7 | Declare_Variable Array
00e2 00d8 | | Load_Top At_Offset_0
00e3 0335 | 5 | Declare_Variable Array,Duplicate
00e4 00cd | | Action Spare6_Action
00e5 4800 |H | Short_Literal 0x0
00e6 4800 |H | Short_Literal 0x0
00e7 00da | | Load_Top At_Offset_2
00e8 01d6 | | Execute Vector,Field_Write
00e9 4801 |H | Short_Literal 0x1
00ea 4801 |H | Short_Literal 0x1
00eb 00da | | Load_Top At_Offset_2
00ec 01d6 | | Execute Vector,Field_Write
00ed 481e |H | Short_Literal 0x1e
00ee 4802 |H | Short_Literal 0x2
00ef 00da | | Load_Top At_Offset_2
00f0 01d6 | | Execute Vector,Field_Write
00f1 480a |H | Short_Literal 0xa
00f2 4803 |H | Short_Literal 0x3
00f3 00da | | Load_Top At_Offset_2
00f4 01d6 | | Execute Vector,Field_Write
00f5 480a |H | Short_Literal 0xa
00f6 4804 |H | Short_Literal 0x4
00f7 00da | | Load_Top At_Offset_2
00f8 01d6 | | Execute Vector,Field_Write
00f9 480a |H | Short_Literal 0xa
00fa 4805 |H | Short_Literal 0x5
00fb 00da | | Load_Top At_Offset_2
00fc 01d6 | | Execute Vector,Field_Write
00fd 480a |H | Short_Literal 0xa
00fe 4806 |H | Short_Literal 0x6
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 0092 06d8 | | Action Push_String_Extended,0x6d8 ; " TEST RUN"
0105 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "NEW PASSES"
0107 0092 06da | | Action Push_String_Extended,0x6da ; "NEW FAILS"
0109 0092 06db | | Action Push_String_Extended,0x6db ; "NEW TESTS"
010b 0092 06dc | | Action Push_String_Extended,0x6dc ; "REMOVED"
010d 4801 |H | Short_Literal 0x1
010e 4850 |HP | Short_Literal 0x50
010f 00e9 | | Load_Encached String_Cache
0110 035b | [ | Declare_Type Array,Constrained
0111 0337 | 7 | Declare_Variable Array
0112 4850 |HP | Short_Literal 0x50
0113 4801 |H | Short_Literal 0x1
0114 482d |H- | Short_Literal 0x2d
0115 00d9 | | Load_Top At_Offset_1
0116 e247 | G | Load 0x1,0x47
0117 01d6 | | Execute Vector,Field_Write
0118 3ffb |? | Loop_Increasing 0x114
0119 1d0f | | Execute_Immediate Reference_Lex_1,0xf
011a 00c7 | | Action Elaborate_Subprogram
011b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
011c 00c7 | | Action Elaborate_Subprogram
011d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
011e 00c7 | | Action Elaborate_Subprogram
011f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0120 00c7 | | Action Elaborate_Subprogram
0121 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0122 00c7 | | Action Elaborate_Subprogram
0123 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0124 00c7 | | Action Elaborate_Subprogram
0125 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0126 00c7 | | Action Elaborate_Subprogram
0127 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
0129 1d16 | | Execute_Immediate Reference_Lex_1,0x16
012a 00c7 | | Action Elaborate_Subprogram
012b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
012c 00c7 | | Action Elaborate_Subprogram
012d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
012e 00c7 | | Action Elaborate_Subprogram
012f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0130 00c7 | | Action Elaborate_Subprogram
0131 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0132 00c7 | | Action Elaborate_Subprogram
0133 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0134 00c7 | | Action Elaborate_Subprogram
0135 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0136 00c7 | | Action Elaborate_Subprogram
0137 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0138 00c7 | | Action Elaborate_Subprogram
0139 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
013a 00c7 | | Action Elaborate_Subprogram
013b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
013c 00c7 | | Action Elaborate_Subprogram
013d 1d20 | | Execute_Immediate Reference_Lex_1,0x20
013e 00c7 | | Action Elaborate_Subprogram
013f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0140 00c7 | | Action Elaborate_Subprogram
0141 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0142 00c7 | | Action Elaborate_Subprogram
0143 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0144 00c7 | | Action Elaborate_Subprogram
0145 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0146 00c7 | | Action Elaborate_Subprogram
0147 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0148 00c7 | | Action Elaborate_Subprogram
0149 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
014a 00c7 | | Action Elaborate_Subprogram
014b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
014c 00c7 | | Action Elaborate_Subprogram
014d 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
014e 00c7 | | Action Elaborate_Subprogram
014f 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call
0151 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0152 00c7 | | Action Elaborate_Subprogram
0153 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0154 00c7 | | Action Elaborate_Subprogram
0155 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0156 00c7 | | Action Elaborate_Subprogram
0157 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0158 00c7 | | Action Elaborate_Subprogram
0159 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
015a 00c7 | | Action Elaborate_Subprogram
015b 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
015c 00c7 | | Action Elaborate_Subprogram
015d 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
015e 00c7 | | Action Elaborate_Subprogram
015f BODY_0008:
015f 00bc | | Action Signal_Activated
0160 00bb | | Action Signal_Completion
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0172 | r | .CONST 0x0172 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0005 | | .CONST 0x0005 ; Number of locals
016b INIT_0168:
016b e00d | | Load 0x0,0xd
016c 0322 | " | Declare_Variable Record
016d e22a | * | Load 0x1,0x2a
016e 029f 057b | {| Declare_Subprogram INIT_0578,For_Call
0170 029f 0603 | | Declare_Subprogram INIT_0600,For_Call
0172 BODY_0168:
0172 e5fd | | Load 0x2,-0x3
0173 e00e | | Load 0x0,0xe
0174 e240 | @ | Load 0x1,0x40
0175 0096 | | Execute Package,Entry
0176 e22a | * | Load 0x1,0x2a
0177 e5fd | | Load 0x2,-0x3
0178 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0179 0033 | 3 | Store_Top Heap_Access,At_Offset_3
017a e5ff | | Load 0x2,-0x1
017b 00db | | Load_Top At_Offset_3
017c 0219 | | Execute Heap_Access,All_Read
017d e00f | | Load 0x0,0xf
017e e240 | @ | Load 0x1,0x40
017f 0096 | | Execute Package,Entry
0180 8404 | | Call 0x2,0x4
0181 8405 | | Call 0x2,0x5
0182 e241 | A | Load 0x1,0x41
0183 00db | | Load_Top At_Offset_3
0184 0219 | | Execute Heap_Access,All_Read
0185 e010 | | Load 0x0,0x10
0186 e240 | @ | Load 0x1,0x40
0187 0096 | | Execute Package,Entry
0188 00da | | Load_Top At_Offset_2
0189 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
018a 0000 0000 | | .XXX[0x2]
018c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0190 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0194 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a8 | | .CONST 0x01a8 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 4804 |H | Short_Literal 0x4
01a4 e011 | | Load 0x0,0x11
01a5 1c08 | | Execute_Immediate Run_Utility,0x8
01a6 00d8 | | Load_Top At_Offset_0
01a7 1c00 | | Execute_Immediate Run_Utility,0x0
01a8 BODY_01a0:
01a8 00db | | Load_Top At_Offset_3
01a9 0219 | | Execute Heap_Access,All_Read
01aa e012 | | Load 0x0,0x12
01ab e240 | @ | Load 0x1,0x40
01ac 0096 | | Execute Package,Entry
01ad 00d9 | | Load_Top At_Offset_1
01ae 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01af 00d8 | | Load_Top At_Offset_0
01b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01ca | | .CONST 0x01ca ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e006 | | Load 0x0,0x6
01bc 0322 | " | Declare_Variable Record
01bd 00db | | Load_Top At_Offset_3
01be 0219 | | Execute Heap_Access,All_Read
01bf e012 | | Load 0x0,0x12
01c0 e240 | @ | Load 0x1,0x40
01c1 0096 | | Execute Package,Entry
01c2 00d9 | | Load_Top At_Offset_1
01c3 017d | } | Execute Record,Structure_Write
01c4 e013 | | Load 0x0,0x13
01c5 0322 | " | Declare_Variable Record
01c6 00d9 | | Load_Top At_Offset_1
01c7 8014 | | Call 0x0,0x14
01c8 00d9 | | Load_Top At_Offset_1
01c9 017d | } | Execute Record,Structure_Write
01ca BODY_01b8:
01ca 00d8 | | Load_Top At_Offset_0
01cb 8015 | | Call 0x0,0x15
01cc 8016 | | Call 0x0,0x16
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d6 | | .CONST 0x01d6 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e22a | * | Load 0x1,0x2a
01d4 e5fe | | Load 0x2,-0x2
01d5 039c | | Declare_Variable Heap_Access,By_Allocation
01d6 BODY_01d0:
01d6 00d8 | | Load_Top At_Offset_0
01d7 00d8 | | Load_Top At_Offset_0
01d8 0219 | | Execute Heap_Access,All_Read
01d9 e009 | | Load 0x0,0x9
01da e240 | @ | Load 0x1,0x40
01db 0098 | | Execute Package,Field_Read_Dynamic
01dc 0216 | | Execute Heap_Access,Convert
01dd e5fe | | Load 0x2,-0x2
01de e5ff | | Load 0x2,-0x1
01df 0219 | | Execute Heap_Access,All_Read
01e0 e017 | | Load 0x0,0x17
01e1 e240 | @ | Load 0x1,0x40
01e2 0096 | | Execute Package,Entry
01e3 00d9 | | Load_Top At_Offset_1
01e4 0218 | | Execute Heap_Access,All_Write
01e5 00d1 | | Pop_Control Pop_Count_1
01e6 00d8 | | Load_Top At_Offset_0
01e7 a5fd | | Store_Unchecked 0x2,-0x3
01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1
01f4 a5fc | | Store_Unchecked 0x2,-0x4
01f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00ea | | Load_Encached Null_String_Cache
01fc 0092 06dd | | Action Push_String_Extended,0x6dd ; "Explain"
01fe e018 | | Load 0x0,0x18
01ff e22f | / | Load 0x1,0x2f
0200 0096 | | Execute Package,Entry
0201 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0228 | ( | .CONST 0x0228 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0007 | | .CONST 0x0007 ; Number of locals
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3
020c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020d 00d8 | | Load_Top At_Offset_0
020e 00e4 | | Load_Encached Positive_Cache
020f 0260 | ` | Execute Discrete,In_Type
0210 7001 |p | Jump_Nonzero 0x212
0211 0801 | | Execute_Immediate Raise,0x1
0212 00db | | Load_Top At_Offset_3
0213 0219 | | Execute Heap_Access,All_Read
0214 e019 | | Load 0x0,0x19
0215 e240 | @ | Load 0x1,0x40
0216 0096 | | Execute Package,Entry
0217 00d8 | | Load_Top At_Offset_0
0218 e01a | | Load 0x0,0x1a
0219 e240 | @ | Load 0x1,0x40
021a 0096 | | Execute Package,Entry
021b e232 | 2 | Load 0x1,0x32
021c 0007 | | Action Break_Optional
021d e011 | | Load 0x0,0x11
021e 02ff | | Declare_Variable Variant_Record
021f 00d8 | | Load_Top At_Offset_0
0220 1c00 | | Execute_Immediate Run_Utility,0x0
0221 e5ff | | Load 0x2,-0x1
0222 0219 | | Execute Heap_Access,All_Read
0223 e01b | | Load 0x0,0x1b
0224 e240 | @ | Load 0x1,0x40
0225 0096 | | Execute Package,Entry
0226 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call
0228 BODY_0208:
0228 e403 | | Load 0x2,0x3
0229 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022a 4800 |H | Short_Literal 0x0
022b 4801 |H | Short_Literal 0x1
022c 0262 | b | Execute Discrete,In_Range
022d 7026 |p& | Jump_Nonzero 0x254
022e e5fe | | Load 0x2,-0x2
022f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0230 0d04 | | Execute_Immediate Less,0x4
0231 6803 |h | Jump_Zero 0x235
0232 4802 |H | Short_Literal 0x2
0233 a404 | | Store_Unchecked 0x2,0x4
0234 7808 |x | Jump 0x23d
0235 e5fe | | Load 0x2,-0x2
0236 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0237 e5ff | | Load 0x2,-0x1
0238 0219 | | Execute Heap_Access,All_Read
0239 e01c | | Load 0x0,0x1c
023a e240 | @ | Load 0x1,0x40
023b 0096 | | Execute Package,Entry
023c a404 | | Store_Unchecked 0x2,0x4
023d 00d9 | | Load_Top At_Offset_1
023e 4802 |H | Short_Literal 0x2
023f 801d | | Call 0x0,0x1d
0240 00db | | Load_Top At_Offset_3
0241 016d | m | Execute Variant_Record,Structure_Write
0242 e403 | | Load 0x2,0x3
0243 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0244 0f02 | | Execute_Immediate Equal,0x2
0245 7004 |p | Jump_Nonzero 0x24a
0246 00db | | Load_Top At_Offset_3
0247 e234 | 4 | Load 0x1,0x34
0248 025f | _ | Execute Discrete,Not_In_Type
0249 6806 |h | Jump_Zero 0x250
024a 00d9 | | Load_Top At_Offset_1
024b e402 | | Load 0x2,0x2
024c 8248 | H | Call 0x1,0x48
024d 00db | | Load_Top At_Offset_3
024e 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
024f 7801 |x | Jump 0x251
0250 8407 | | Call 0x2,0x7
0251 00da | | Load_Top At_Offset_2
0252 e5fd | | Load 0x2,-0x3
0253 016d | m | Execute Variant_Record,Structure_Write
0254 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0268 | h | .CONST 0x0268 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0003 | | .CONST 0x0003 ; Number of locals
025b INIT_0258:
025b e011 | | Load 0x0,0x11
025c 02ff | | Declare_Variable Variant_Record
025d 00db | | Load_Top At_Offset_3
025e 0219 | | Execute Heap_Access,All_Read
025f e01b | | Load 0x0,0x1b
0260 e240 | @ | Load 0x1,0x40
0261 0096 | | Execute Package,Entry
0262 4810 |H | Short_Literal 0x10
0263 801d | | Call 0x0,0x1d
0264 00d9 | | Load_Top At_Offset_1
0265 016d | m | Execute Variant_Record,Structure_Write
0266 00db | | Load_Top At_Offset_3
0267 8212 | | Call 0x1,0x12
0268 BODY_0258:
0268 00d9 | | Load_Top At_Offset_1
0269 00d8 | | Load_Top At_Offset_0
026a 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
026b 00d8 | | Load_Top At_Offset_0
026c e5ff | | Load 0x2,-0x1
026d 0219 | | Execute Heap_Access,All_Read
026e e01b | | Load 0x0,0x1b
026f e240 | @ | Load 0x1,0x40
0270 0096 | | Execute Package,Entry
0271 e5ff | | Load 0x2,-0x1
0272 8212 | | Call 0x1,0x12
0273 801e | | Call 0x0,0x1e
0274 801f | | Call 0x0,0x1f
0275 00d9 | | Load_Top At_Offset_1
0276 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
0277 00d1 | | Pop_Control Pop_Count_1
0278 00d0 | | Action Swap_Control
0279 2b0a |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
027a 4800 |H | Short_Literal 0x0
027b a5fd | | Store_Unchecked 0x2,-0x3
027c 00d9 | | Load_Top At_Offset_1
027d e5fe | | Load 0x2,-0x2
027e 016d | m | Execute Variant_Record,Structure_Write
027f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00ea | | Load_Encached Null_String_Cache
0284 0092 06de | | Action Push_String_Extended,0x6de ; "Elide"
0286 e018 | | Load 0x0,0x18
0287 e22f | / | Load 0x1,0x2f
0288 0096 | | Execute Package,Entry
0289 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00ea | | Load_Encached Null_String_Cache
0294 0092 06df | | Action Push_String_Extended,0x6df ; "Expand"
0296 e018 | | Load 0x0,0x18
0297 e22f | / | Load 0x1,0x2f
0298 0096 | | Execute Package,Entry
0299 4504 |E | Exit_Suprogram New_Top_Offset 0x4
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 0833 | 3 | Execute_Immediate Raise,0x33
02a4 0000 0000 | | .BLANK 0000[0x4]
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 0833 | 3 | Execute_Immediate Raise,0x33
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00ea | | Load_Encached Null_String_Cache
02b4 0092 06e0 | | Action Push_String_Extended,0x6e0 ; "Promote"
02b6 e018 | | Load 0x0,0x18
02b7 e22f | / | Load 0x1,0x2f
02b8 0096 | | Execute Package,Entry
02b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00ea | | Load_Encached Null_String_Cache
02c4 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "Demote"
02c6 e018 | | Load 0x0,0x18
02c7 e22f | / | Load 0x1,0x2f
02c8 0096 | | Execute Package,Entry
02c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00ea | | Load_Encached Null_String_Cache
02d4 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "Delete"
02d6 e018 | | Load 0x0,0x18
02d7 e22f | / | Load 0x1,0x2f
02d8 0096 | | Execute Package,Entry
02d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00ea | | Load_Encached Null_String_Cache
02e4 0092 06e3 | | Action Push_String_Extended,0x6e3 ; "Sort"
02e6 e018 | | Load 0x0,0x18
02e7 e22f | / | Load 0x1,0x2f
02e8 0096 | | Execute Package,Entry
02e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00ea | | Load_Encached Null_String_Cache
02f4 0092 06e4 | | Action Push_String_Extended,0x6e4 ; "Filter"
02f6 e018 | | Load 0x0,0x18
02f7 e22f | / | Load 0x1,0x2f
02f8 0096 | | Execute Package,Entry
02f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fa 0000 0000 | | .BLANK 0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 0217 | | Execute Heap_Access,All_Reference
0305 e020 | | Load 0x0,0x20
0306 e240 | @ | Load 0x1,0x40
0307 0096 | | Execute Package,Entry
0308 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 0092 06e5 | | Action Push_String_Extended,0x6e5 ; "TR_DIFF"
0315 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0316 0000 0000 | | .XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0325 | % | .CONST 0x0325 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b e013 | | Load 0x0,0x13
031c 0322 | " | Declare_Variable Record
031d 00db | | Load_Top At_Offset_3
031e 0219 | | Execute Heap_Access,All_Read
031f e012 | | Load 0x0,0x12
0320 e240 | @ | Load 0x1,0x40
0321 0096 | | Execute Package,Entry
0322 8014 | | Call 0x0,0x14
0323 00d9 | | Load_Top At_Offset_1
0324 017d | } | Execute Record,Structure_Write
0325 BODY_0318:
0325 00d8 | | Load_Top At_Offset_0
0326 8015 | | Call 0x0,0x15
0327 8016 | | Call 0x0,0x16
0328 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 8223 | # | Call 0x1,0x23
0335 e5fe | | Load 0x2,-0x2
0336 8223 | # | Call 0x1,0x23
0337 01df | | Execute Vector,Equal
0338 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0348 | H | .CONST 0x0348 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 0219 | | Execute Heap_Access,All_Read
0345 e01b | | Load 0x0,0x1b
0346 e240 | @ | Load 0x1,0x40
0347 0096 | | Execute Package,Entry
0348 BODY_0340:
0348 4801 |H | Short_Literal 0x1
0349 e5ff | | Load 0x2,-0x1
034a 0219 | | Execute Heap_Access,All_Read
034b e021 | ! | Load 0x0,0x21
034c e240 | @ | Load 0x1,0x40
034d 0096 | | Execute Package,Entry
034e e22e | . | Load 0x1,0x2e
034f 00da | | Load_Top At_Offset_2
0350 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0351 a5fe | | Store_Unchecked 0x2,-0x2
0352 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0353 0000 0000 | | .BLANK 0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 0217 | | Execute Heap_Access,All_Reference
035d e022 | " | Load 0x0,0x22
035e e240 | @ | Load 0x1,0x40
035f 0096 | | Execute Package,Entry
0360 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0361 0000 0000 | | .BLANK 0000[0x7]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0373 | s | .CONST 0x0373 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 0217 | | Execute Heap_Access,All_Reference
036d e023 | # | Load 0x0,0x23
036e e240 | @ | Load 0x1,0x40
036f 0096 | | Execute Package,Entry
0370 e01b | | Load 0x0,0x1b
0371 e240 | @ | Load 0x1,0x40
0372 0096 | | Execute Package,Entry
0373 BODY_0368:
0373 00db | | Load_Top At_Offset_3
0374 0217 | | Execute Heap_Access,All_Reference
0375 e024 | $ | Load 0x0,0x24
0376 e240 | @ | Load 0x1,0x40
0377 0096 | | Execute Package,Entry
0378 e22c | , | Load 0x1,0x2c
0379 00da | | Load_Top At_Offset_2
037a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
037b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037c 0000 0000 | | .BLANK 0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 0219 | | Execute Heap_Access,All_Read
0385 00d8 | | Load_Top At_Offset_0
0386 e025 | % | Load 0x0,0x25
0387 e240 | @ | Load 0x1,0x40
0388 0096 | | Execute Package,Entry
0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 4607 |F | Jump_Case 0x8
0394 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0395 7807 |x | Jump 0x39d ; case 0x1
0396 780a |x | Jump 0x3a1 ; case 0x2
0397 780e |x | Jump 0x3a6 ; case 0x3
0398 7811 |x | Jump 0x3aa ; case 0x4
0399 7812 |x | Jump 0x3ac ; case 0x5
039a 7813 |x | Jump 0x3ae ; case 0x6
039b 7816 |x | Jump 0x3b2 ; case 0x7
039c 4302 |C | .XXX[0x1]
039d 00da | | Load_Top At_Offset_2
039e 0091 06cc | | Action Push_String_Extended_Indexed,0x6cc ; "NIL_ROW"
03a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03a1 00db | | Load_Top At_Offset_3
03a2 00db | | Load_Top At_Offset_3
03a3 00e0 | | Load_Encached Standard_Cache
03a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03a6 00da | | Load_Top At_Offset_2
03a7 00e0 | | Load_Encached Standard_Cache
03a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03aa 00db | | Load_Top At_Offset_3
03ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ac 00db | | Load_Top At_Offset_3
03ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ae e230 | 0 | Load 0x1,0x30
03af 00dc | | Load_Top At_Offset_4
03b0 0267 | g | Execute Discrete,Predecessor
03b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03b2 e230 | 0 | Load 0x1,0x30
03b3 00dc | | Load_Top At_Offset_4
03b4 0268 | h | Execute Discrete,Successor
03b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03b6 0000 0000 | | .XXX[0x2]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 4609 |F | Jump_Case 0xa
03bc 7809 |x | Jump 0x3c6 ; case 0x0
03bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03be 7817 |x | Jump 0x3d6 ; case 0x2
03bf 781a |x | Jump 0x3da ; case 0x3
03c0 782b |x+ | Jump 0x3ec ; case 0x4
03c1 782a |x* | Jump 0x3ec ; case 0x5
03c2 7829 |x) | Jump 0x3ec ; case 0x6
03c3 781c |x | Jump 0x3e0 ; case 0x7
03c4 781f |x | Jump 0x3e4 ; case 0x8
03c5 7822 |x" | Jump 0x3e8 ; case 0x9
03c6 00da | | Load_Top At_Offset_2
03c7 016c | l | Execute Variant_Record,Is_Constrained
03c8 7009 |p | Jump_Nonzero 0x3d2
03c9 00cf | | Action Mark_Auxiliary
03ca 4800 |H | Short_Literal 0x0
03cb e5ff | | Load 0x2,-0x1
03cc 1c08 | | Execute_Immediate Run_Utility,0x8
03cd 00d8 | | Load_Top At_Offset_0
03ce 1c00 | | Execute_Immediate Run_Utility,0x0
03cf c5ff | | Store 0x2,-0x1
03d0 00ce | | Action Pop_Auxiliary
03d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d2 4800 |H | Short_Literal 0x0
03d3 00db | | Load_Top At_Offset_3
03d4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03d6 4801 |H | Short_Literal 0x1
03d7 4802 |H | Short_Literal 0x2
03d8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
03d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03da e5fd | | Load 0x2,-0x3
03db 00db | | Load_Top At_Offset_3
03dc 1c07 | | Execute_Immediate Run_Utility,0x7
03dd e5fe | | Load 0x2,-0x2
03de 0306 | | Complete_Type Variant_Record,By_Renaming
03df 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
03e0 00db | | Load_Top At_Offset_3
03e1 e5ff | | Load 0x2,-0x1
03e2 031b | | Declare_Type Variant_Record,Constrained
03e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e4 00db | | Load_Top At_Offset_3
03e5 00db | | Load_Top At_Offset_3
03e6 02fc | | Declare_Variable Variant_Record,With_Constraint
03e7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e8 4800 |H | Short_Literal 0x0
03e9 00db | | Load_Top At_Offset_3
03ea 1c07 | | Execute_Immediate Run_Utility,0x7
03eb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03ec 0869 | i | Execute_Immediate Raise,0x69
03ed 0000 0000 | | .XXX[0x3]
03ef 0000 | |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 4607 |F | Jump_Case 0x8
03f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03f5 7807 |x | Jump 0x3fd ; case 0x1
03f6 780a |x | Jump 0x401 ; case 0x2
03f7 780e |x | Jump 0x406 ; case 0x3
03f8 7811 |x | Jump 0x40a ; case 0x4
03f9 7812 |x | Jump 0x40c ; case 0x5
03fa 7813 |x | Jump 0x40e ; case 0x6
03fb 7816 |x | Jump 0x412 ; case 0x7
03fc 4302 |C | .XXX[0x1]
03fd 00da | | Load_Top At_Offset_2
03fe 0091 06d0 | | Action Push_String_Extended_Indexed,0x6d0 ; "NIL_COL"
0400 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0401 00db | | Load_Top At_Offset_3
0402 00db | | Load_Top At_Offset_3
0403 00e0 | | Load_Encached Standard_Cache
0404 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0405 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0406 00da | | Load_Top At_Offset_2
0407 00e0 | | Load_Encached Standard_Cache
0408 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0409 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
040a 00db | | Load_Top At_Offset_3
040b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040c 00db | | Load_Top At_Offset_3
040d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040e e232 | 2 | Load 0x1,0x32
040f 00dc | | Load_Top At_Offset_4
0410 0267 | g | Execute Discrete,Predecessor
0411 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0412 e232 | 2 | Load 0x1,0x32
0413 00dc | | Load_Top At_Offset_4
0414 0268 | h | Execute Discrete,Successor
0415 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 4609 |F | Jump_Case 0xa
041c 7809 |x | Jump 0x426 ; case 0x0
041d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
041e 7831 |x1 | Jump 0x450 ; case 0x2
041f 7834 |x4 | Jump 0x454 ; case 0x3
0420 7875 |xu | Jump 0x496 ; case 0x4
0421 7874 |xt | Jump 0x496 ; case 0x5
0422 7837 |x7 | Jump 0x45a ; case 0x6
0423 784d |xM | Jump 0x471 ; case 0x7
0424 7866 |xf | Jump 0x48b ; case 0x8
0425 786c |xl | Jump 0x492 ; case 0x9
0426 00da | | Load_Top At_Offset_2
0427 016c | l | Execute Variant_Record,Is_Constrained
0428 7009 |p | Jump_Nonzero 0x432
0429 00cf | | Action Mark_Auxiliary
042a 4800 |H | Short_Literal 0x0
042b e5ff | | Load 0x2,-0x1
042c 1c08 | | Execute_Immediate Run_Utility,0x8
042d 00d8 | | Load_Top At_Offset_0
042e 1c00 | | Execute_Immediate Run_Utility,0x0
042f c5ff | | Store 0x2,-0x1
0430 00ce | | Action Pop_Auxiliary
0431 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0432 00da | | Load_Top At_Offset_2
0433 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0434 4606 |F | Jump_Case 0x7
0435 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0436 7809 |x | Jump 0x440 ; case 0x1
0437 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0438 780b |x | Jump 0x444 ; case 0x3
0439 780e |x | Jump 0x448 ; case 0x4
043a 7811 |x | Jump 0x44c ; case 0x5
043b 7800 |x | Jump 0x43c ; case 0x6
043c 00da | | Load_Top At_Offset_2
043d 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
043e 1c00 | | Execute_Immediate Run_Utility,0x0
043f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0440 4800 |H | Short_Literal 0x0
0441 00db | | Load_Top At_Offset_3
0442 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0443 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0444 00da | | Load_Top At_Offset_2
0445 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0446 1c00 | | Execute_Immediate Run_Utility,0x0
0447 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0448 00da | | Load_Top At_Offset_2
0449 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
044a 1c00 | | Execute_Immediate Run_Utility,0x0
044b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
044c 00da | | Load_Top At_Offset_2
044d 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
044e 1c00 | | Execute_Immediate Run_Utility,0x0
044f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0450 4801 |H | Short_Literal 0x1
0451 4807 |H | Short_Literal 0x7
0452 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0453 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0454 e5fd | | Load 0x2,-0x3
0455 00db | | Load_Top At_Offset_3
0456 1c07 | | Execute_Immediate Run_Utility,0x7
0457 e5fe | | Load 0x2,-0x2
0458 0306 | | Complete_Type Variant_Record,By_Renaming
0459 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
045a 00db | | Load_Top At_Offset_3
045b 4606 |F | Jump_Case 0x7
045c 7812 |x | Jump 0x46f ; case 0x0
045d 7807 |x | Jump 0x465 ; case 0x1
045e 7808 |x | Jump 0x467 ; case 0x2
045f 7809 |x | Jump 0x469 ; case 0x3
0460 780a |x | Jump 0x46b ; case 0x4
0461 780b |x | Jump 0x46d ; case 0x5
0462 7800 |x | Jump 0x463 ; case 0x6
0463 4806 |H | Short_Literal 0x6
0464 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0465 4801 |H | Short_Literal 0x1
0466 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0467 4802 |H | Short_Literal 0x2
0468 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0469 4803 |H | Short_Literal 0x3
046a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
046b 4804 |H | Short_Literal 0x4
046c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
046d 4805 |H | Short_Literal 0x5
046e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
046f 48ff |H | Short_Literal 0xff
0470 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0471 00db | | Load_Top At_Offset_3
0472 e5fe | | Load 0x2,-0x2
0473 4606 |F | Jump_Case 0x7
0474 7808 |x | Jump 0x47d ; case 0x0
0475 7809 |x | Jump 0x47f ; case 0x1
0476 780a |x | Jump 0x481 ; case 0x2
0477 780b |x | Jump 0x483 ; case 0x3
0478 780c |x | Jump 0x485 ; case 0x4
0479 780d |x | Jump 0x487 ; case 0x5
047a 7800 |x | Jump 0x47b ; case 0x6
047b 4806 |H | Short_Literal 0x6
047c 780b |x | Jump 0x488
047d 48ff |H | Short_Literal 0xff
047e 7809 |x | Jump 0x488
047f 4801 |H | Short_Literal 0x1
0480 7807 |x | Jump 0x488
0481 4802 |H | Short_Literal 0x2
0482 7805 |x | Jump 0x488
0483 4803 |H | Short_Literal 0x3
0484 7803 |x | Jump 0x488
0485 4804 |H | Short_Literal 0x4
0486 7801 |x | Jump 0x488
0487 4805 |H | Short_Literal 0x5
0488 e5ff | | Load 0x2,-0x1
0489 031b | | Declare_Type Variant_Record,Constrained
048a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
048b 00db | | Load_Top At_Offset_3
048c e5fe | | Load 0x2,-0x2
048d e5ff | | Load 0x2,-0x1
048e 1c06 | | Execute_Immediate Run_Utility,0x6
048f e5ff | | Load 0x2,-0x1
0490 02fc | | Declare_Variable Variant_Record,With_Constraint
0491 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0492 4800 |H | Short_Literal 0x0
0493 00db | | Load_Top At_Offset_3
0494 1c07 | | Execute_Immediate Run_Utility,0x7
0495 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0496 0869 | i | Execute_Immediate Raise,0x69
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
049c 0000 0000 | | .BLANK 0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a4 0000 0000 | | .BLANK 0000[0x4]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 00da | | Load_Top At_Offset_2
04b4 e5fd | | Load 0x2,-0x3
04b5 017d | } | Execute Record,Structure_Write
04b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04b7 0000 | | .XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00da | | Load_Top At_Offset_2
04bc e5fd | | Load 0x2,-0x3
04bd 016d | m | Execute Variant_Record,Structure_Write
04be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04bf 0000 | | .XXX[0x1]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c9 | | .CONST 0x04c9 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0002 | | .CONST 0x0002 ; Number of locals
04c3 INIT_04c0:
04c3 00da | | Load_Top At_Offset_2
04c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04c5 e235 | 5 | Load 0x1,0x35
04c6 1c08 | | Execute_Immediate Run_Utility,0x8
04c7 00d8 | | Load_Top At_Offset_0
04c8 1c00 | | Execute_Immediate Run_Utility,0x0
04c9 BODY_04c0:
04c9 00db | | Load_Top At_Offset_3
04ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04cb 4606 |F | Jump_Case 0x7
04cc 7833 |x3 | Jump 0x500 ; case 0x0
04cd 780d |x | Jump 0x4db ; case 0x1
04ce 7811 |x | Jump 0x4e0 ; case 0x2
04cf 7819 |x | Jump 0x4e9 ; case 0x3
04d0 7820 |x | Jump 0x4f1 ; case 0x4
04d1 7827 |x' | Jump 0x4f9 ; case 0x5
04d2 7800 |x | Jump 0x4d3 ; case 0x6
04d3 00d8 | | Load_Top At_Offset_0
04d4 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
04d5 e5fe | | Load 0x2,-0x2
04d6 e5ff | | Load 0x2,-0x1
04d7 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
04d8 8026 | & | Call 0x0,0x26
04d9 00d1 | | Pop_Control Pop_Count_1
04da 7825 |x% | Jump 0x500
04db 00db | | Load_Top At_Offset_3
04dc 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04dd 00d9 | | Load_Top At_Offset_1
04de 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
04df 7820 |x | Jump 0x500
04e0 00d8 | | Load_Top At_Offset_0
04e1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04e2 e5fe | | Load 0x2,-0x2
04e3 e5ff | | Load 0x2,-0x1
04e4 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04e5 8027 | ' | Call 0x0,0x27
04e6 00d9 | | Load_Top At_Offset_1
04e7 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
04e8 7817 |x | Jump 0x500
04e9 00d8 | | Load_Top At_Offset_0
04ea 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04eb e5fe | | Load 0x2,-0x2
04ec e5ff | | Load 0x2,-0x1
04ed 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
04ee 8026 | & | Call 0x0,0x26
04ef 00d1 | | Pop_Control Pop_Count_1
04f0 780f |x | Jump 0x500
04f1 00d8 | | Load_Top At_Offset_0
04f2 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04f3 e5fe | | Load 0x2,-0x2
04f4 e5ff | | Load 0x2,-0x1
04f5 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
04f6 8026 | & | Call 0x0,0x26
04f7 00d1 | | Pop_Control Pop_Count_1
04f8 7807 |x | Jump 0x500
04f9 00d8 | | Load_Top At_Offset_0
04fa 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04fb e5fe | | Load 0x2,-0x2
04fc e5ff | | Load 0x2,-0x1
04fd 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
04fe 8026 | & | Call 0x0,0x26
04ff 00d1 | | Pop_Control Pop_Count_1
0500 00d8 | | Load_Top At_Offset_0
0501 e5fd | | Load 0x2,-0x3
0502 016d | m | Execute Variant_Record,Structure_Write
0503 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0504 0000 0000 | | .BLANK 0000[0x4]
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 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
050d 4606 |F | Jump_Case 0x7
050e 780c |x | Jump 0x51b ; case 0x0
050f 780d |x | Jump 0x51d ; case 0x1
0510 7814 |x | Jump 0x525 ; case 0x2
0511 7817 |x | Jump 0x529 ; case 0x3
0512 781c |x | Jump 0x52f ; case 0x4
0513 7821 |x! | Jump 0x535 ; case 0x5
0514 7800 |x | Jump 0x515 ; case 0x6
0515 00da | | Load_Top At_Offset_2
0516 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0517 8249 | I | Call 0x1,0x49
0518 00e0 | | Load_Encached Standard_Cache
0519 1818 | | Execute Package,Field_Execute,Field_Number 0x18
051a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051b 00ea | | Load_Encached Null_String_Cache
051c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051d 00da | | Load_Top At_Offset_2
051e 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
051f 6803 |h | Jump_Zero 0x523
0520 0092 06e6 | | Action Push_String_Extended,0x6e6 ; "*"
0522 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0523 00ea | | Load_Encached Null_String_Cache
0524 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0525 00da | | Load_Top At_Offset_2
0526 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0527 8016 | | Call 0x0,0x16
0528 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0529 00da | | Load_Top At_Offset_2
052a 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
052b 8249 | I | Call 0x1,0x49
052c 00e0 | | Load_Encached Standard_Cache
052d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052f 00da | | Load_Top At_Offset_2
0530 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0531 8249 | I | Call 0x1,0x49
0532 00e0 | | Load_Encached Standard_Cache
0533 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0534 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0535 00da | | Load_Top At_Offset_2
0536 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0537 8249 | I | Call 0x1,0x49
0538 00e0 | | Load_Encached Standard_Cache
0539 1818 | | Execute Package,Field_Execute,Field_Number 0x18
053a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053b 0000 0000 | | .BLANK 0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0549 | I | .CONST 0x0549 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0003 | | .CONST 0x0003 ; Number of locals
0543 INIT_0540:
0543 e005 | | Load 0x0,0x5
0544 02ff | | Declare_Variable Variant_Record
0545 00d8 | | Load_Top At_Offset_0
0546 1c00 | | Execute_Immediate Run_Utility,0x0
0547 e004 | | Load 0x0,0x4
0548 0007 | | Action Break_Optional
0549 BODY_0540:
0549 4802 |H | Short_Literal 0x2
054a e5ff | | Load 0x2,-0x1
054b e028 | ( | Load 0x0,0x28
054c e240 | @ | Load 0x1,0x40
054d 0096 | | Execute Package,Entry
054e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
054f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0550 e5fe | | Load 0x2,-0x2
0551 4801 |H | Short_Literal 0x1
0552 00da | | Load_Top At_Offset_2
0553 8029 | ) | Call 0x0,0x29
0554 00da | | Load_Top At_Offset_2
0555 016d | m | Execute Variant_Record,Structure_Write
0556 00d9 | | Load_Top At_Offset_1
0557 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055f | _ | .CONST 0x055f ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0003 | | .CONST 0x0003 ; Number of locals
055b INIT_0558:
055b 00e3 | | Load_Encached Natural_Cache
055c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
055d e02a | * | Load 0x0,0x2a
055e 0007 | | Action Break_Optional
055f BODY_0558:
055f e02a | * | Load 0x0,0x2a
0560 e5ff | | Load 0x2,-0x1
0561 802b | + | Call 0x0,0x2b
0562 0039 | 9 | Store_Top Access,At_Offset_1
0563 00cf | | Action Mark_Auxiliary
0564 7807 |x | Jump 0x56c
0565 00da | | Load_Top At_Offset_2
0566 0a01 | | Execute_Immediate Plus,0x1
0567 005b | [ | Store_Top Discrete,At_Offset_3
0568 00d9 | | Load_Top At_Offset_1
0569 802c | , | Call 0x0,0x2c
056a 003a | : | Store_Top Access,At_Offset_2
056b 00c9 | | Action Pop_Auxiliary_Loop
056c 00d9 | | Load_Top At_Offset_1
056d 802d | - | Call 0x0,0x2d
056e 6ff6 |o | Jump_Zero 0x565
056f 00ce | | Action Pop_Auxiliary
0570 00d9 | | Load_Top At_Offset_1
0571 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0572 0000 0000 | | .BLANK 0000[0x6]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057f | | .CONST 0x057f ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0002 | | .CONST 0x0002 ; Number of locals
057b INIT_0578:
057b e00a | | Load 0x0,0xa
057c e240 | @ | Load 0x1,0x40
057d 0098 | | Execute Package,Field_Read_Dynamic
057e 0322 | " | Declare_Variable Record
057f BODY_0578:
057f 00d8 | | Load_Top At_Offset_0
0580 4801 |H | Short_Literal 0x1
0581 e403 | | Load 0x2,0x3
0582 0219 | | Execute Heap_Access,All_Read
0583 e02e | . | Load 0x0,0x2e
0584 e240 | @ | Load 0x1,0x40
0585 0096 | | Execute Package,Entry
0586 00d1 | | Pop_Control Pop_Count_1
0587 4801 |H | Short_Literal 0x1
0588 e231 | 1 | Load 0x1,0x31
0589 1c08 | | Execute_Immediate Run_Utility,0x8
058a 4800 |H | Short_Literal 0x0
058b 00d9 | | Load_Top At_Offset_1
058c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
058d 00d9 | | Load_Top At_Offset_1
058e e02f | / | Load 0x0,0x2f
058f e240 | @ | Load 0x1,0x40
0590 0096 | | Execute Package,Entry
0591 4802 |H | Short_Literal 0x2
0592 e242 | B | Load 0x1,0x42
0593 00da | | Load_Top At_Offset_2
0594 e030 | 0 | Load 0x0,0x30
0595 e240 | @ | Load 0x1,0x40
0596 0096 | | Execute Package,Entry
0597 4803 |H | Short_Literal 0x3
0598 e243 | C | Load 0x1,0x43
0599 00da | | Load_Top At_Offset_2
059a e030 | 0 | Load 0x0,0x30
059b e240 | @ | Load 0x1,0x40
059c 0096 | | Execute Package,Entry
059d 4804 |H | Short_Literal 0x4
059e e244 | D | Load 0x1,0x44
059f 00da | | Load_Top At_Offset_2
05a0 e030 | 0 | Load 0x0,0x30
05a1 e240 | @ | Load 0x1,0x40
05a2 0096 | | Execute Package,Entry
05a3 4805 |H | Short_Literal 0x5
05a4 e245 | E | Load 0x1,0x45
05a5 00da | | Load_Top At_Offset_2
05a6 e030 | 0 | Load 0x0,0x30
05a7 e240 | @ | Load 0x1,0x40
05a8 0096 | | Execute Package,Entry
05a9 4806 |H | Short_Literal 0x6
05aa e246 | F | Load 0x1,0x46
05ab 00da | | Load_Top At_Offset_2
05ac e030 | 0 | Load 0x0,0x30
05ad e240 | @ | Load 0x1,0x40
05ae 0096 | | Execute Package,Entry
05af 00d8 | | Load_Top At_Offset_0
05b0 4801 |H | Short_Literal 0x1
05b1 e403 | | Load 0x2,0x3
05b2 0219 | | Execute Heap_Access,All_Read
05b3 e02e | . | Load 0x0,0x2e
05b4 e240 | @ | Load 0x1,0x40
05b5 0096 | | Execute Package,Entry
05b6 00d1 | | Pop_Control Pop_Count_1
05b7 4801 |H | Short_Literal 0x1
05b8 e231 | 1 | Load 0x1,0x31
05b9 1c08 | | Execute_Immediate Run_Utility,0x8
05ba 4800 |H | Short_Literal 0x0
05bb 00d9 | | Load_Top At_Offset_1
05bc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05bd 00d9 | | Load_Top At_Offset_1
05be e02f | / | Load 0x0,0x2f
05bf e240 | @ | Load 0x1,0x40
05c0 0096 | | Execute Package,Entry
05c1 4802 |H | Short_Literal 0x2
05c2 4801 |H | Short_Literal 0x1
05c3 4802 |H | Short_Literal 0x2
05c4 e241 | A | Load 0x1,0x41
05c5 01d7 | | Execute Vector,Field_Read
05c6 e247 | G | Load 0x1,0x47
05c7 01cf | | Execute Vector,Slice_Read
05c8 00da | | Load_Top At_Offset_2
05c9 e030 | 0 | Load 0x0,0x30
05ca e240 | @ | Load 0x1,0x40
05cb 0096 | | Execute Package,Entry
05cc 4803 |H | Short_Literal 0x3
05cd 4801 |H | Short_Literal 0x1
05ce 4803 |H | Short_Literal 0x3
05cf e241 | A | Load 0x1,0x41
05d0 01d7 | | Execute Vector,Field_Read
05d1 e247 | G | Load 0x1,0x47
05d2 01cf | | Execute Vector,Slice_Read
05d3 00da | | Load_Top At_Offset_2
05d4 e030 | 0 | Load 0x0,0x30
05d5 e240 | @ | Load 0x1,0x40
05d6 0096 | | Execute Package,Entry
05d7 4804 |H | Short_Literal 0x4
05d8 4801 |H | Short_Literal 0x1
05d9 4804 |H | Short_Literal 0x4
05da e241 | A | Load 0x1,0x41
05db 01d7 | | Execute Vector,Field_Read
05dc e247 | G | Load 0x1,0x47
05dd 01cf | | Execute Vector,Slice_Read
05de 00da | | Load_Top At_Offset_2
05df e030 | 0 | Load 0x0,0x30
05e0 e240 | @ | Load 0x1,0x40
05e1 0096 | | Execute Package,Entry
05e2 4805 |H | Short_Literal 0x5
05e3 4801 |H | Short_Literal 0x1
05e4 4805 |H | Short_Literal 0x5
05e5 e241 | A | Load 0x1,0x41
05e6 01d7 | | Execute Vector,Field_Read
05e7 e247 | G | Load 0x1,0x47
05e8 01cf | | Execute Vector,Slice_Read
05e9 00da | | Load_Top At_Offset_2
05ea e030 | 0 | Load 0x0,0x30
05eb e240 | @ | Load 0x1,0x40
05ec 0096 | | Execute Package,Entry
05ed 4806 |H | Short_Literal 0x6
05ee 4801 |H | Short_Literal 0x1
05ef 4806 |H | Short_Literal 0x6
05f0 e241 | A | Load 0x1,0x41
05f1 01d7 | | Execute Vector,Field_Read
05f2 e247 | G | Load 0x1,0x47
05f3 01cf | | Execute Vector,Slice_Read
05f4 00da | | Load_Top At_Offset_2
05f5 e030 | 0 | Load 0x0,0x30
05f6 e240 | @ | Load 0x1,0x40
05f7 0096 | | Execute Package,Entry
05f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05f9 0000 0000 | | .BLANK 0000[0x7]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 060b | | .CONST 0x060b ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0004 | | .CONST 0x0004 ; Number of locals
0603 INIT_0600:
0603 00e1 | | Load_Encached Boolean_Cache
0604 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0605 e00a | | Load 0x0,0xa
0606 e240 | @ | Load 0x1,0x40
0607 0098 | | Execute Package,Field_Read_Dynamic
0608 0322 | " | Declare_Variable Record
0609 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call
060b BODY_0600:
060b e402 | | Load 0x2,0x2
060c e5ff | | Load 0x2,-0x1
060d 8031 | 1 | Call 0x0,0x31
060e 00d1 | | Pop_Control Pop_Count_1
060f 00cf | | Action Mark_Auxiliary
0610 7805 |x | Jump 0x616
0611 8604 | | Call 0x3,0x4
0612 e402 | | Load 0x2,0x2
0613 8032 | 2 | Call 0x0,0x32
0614 00d1 | | Pop_Control Pop_Count_1
0615 00c9 | | Action Pop_Auxiliary_Loop
0616 e402 | | Load 0x2,0x2
0617 8033 | 3 | Call 0x0,0x33
0618 6ff8 |o | Jump_Zero 0x611
0619 4501 |E | Exit_Suprogram New_Top_Offset 0x1
061a 0000 0000 | | .BLANK 0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 062c | , | .CONST 0x062c ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0003 | | .CONST 0x0003 ; Number of locals
0623 INIT_0620:
0623 e404 | | Load 0x2,0x4
0624 e402 | | Load 0x2,0x2
0625 e028 | ( | Load 0x0,0x28
0626 e240 | @ | Load 0x1,0x40
0627 0096 | | Execute Package,Entry
0628 e005 | | Load 0x0,0x5
0629 02ff | | Declare_Variable Variant_Record
062a 00d8 | | Load_Top At_Offset_0
062b 1c00 | | Execute_Immediate Run_Utility,0x0
062c BODY_0620:
062c e404 | | Load 0x2,0x4
062d 00d8 | | Load_Top At_Offset_0
062e e234 | 4 | Load 0x1,0x34
062f 0260 | ` | Execute Discrete,In_Type
0630 7001 |p | Jump_Nonzero 0x632
0631 0801 | | Execute_Immediate Raise,0x1
0632 0afd | | Execute_Immediate Plus,-0x3
0633 4603 |F | Jump_Case 0x4
0634 7808 |x | Jump 0x63d ; case 0x0
0635 780c |x | Jump 0x642 ; case 0x1
0636 7810 |x | Jump 0x647 ; case 0x2
0637 7800 |x | Jump 0x638 ; case 0x3
0638 00d9 | | Load_Top At_Offset_1
0639 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
063a 00d9 | | Load_Top At_Offset_1
063b 016d | m | Execute Variant_Record,Structure_Write
063c 780e |x | Jump 0x64b
063d 00d9 | | Load_Top At_Offset_1
063e 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
063f 00d9 | | Load_Top At_Offset_1
0640 016d | m | Execute Variant_Record,Structure_Write
0641 7809 |x | Jump 0x64b
0642 00d9 | | Load_Top At_Offset_1
0643 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0644 00d9 | | Load_Top At_Offset_1
0645 016d | m | Execute Variant_Record,Structure_Write
0646 7804 |x | Jump 0x64b
0647 00d9 | | Load_Top At_Offset_1
0648 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0649 00d9 | | Load_Top At_Offset_1
064a 016d | m | Execute Variant_Record,Structure_Write
064b 00d8 | | Load_Top At_Offset_0
064c e405 | | Load 0x2,0x5
064d 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
064e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
064f 0000 | | .XXX[0x1]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 065b | [ | .CONST 0x065b ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0003 | | .CONST 0x0003 ; Number of locals
0653 INIT_0650:
0653 e013 | | Load 0x0,0x13
0654 0322 | " | Declare_Variable Record
0655 e402 | | Load 0x2,0x2
0656 8034 | 4 | Call 0x0,0x34
0657 00d9 | | Load_Top At_Offset_1
0658 017d | } | Execute Record,Structure_Write
0659 029f 069b | | Declare_Subprogram INIT_0698,For_Call
065b BODY_0650:
065b e602 | | Load 0x3,0x2
065c 6820 |h | Jump_Zero 0x67d
065d 4800 |H | Short_Literal 0x0
065e a602 | | Store_Unchecked 0x3,0x2
065f e603 | | Load 0x3,0x3
0660 4802 |H | Short_Literal 0x2
0661 e403 | | Load 0x2,0x3
0662 0219 | | Execute Heap_Access,All_Read
0663 e02e | . | Load 0x0,0x2e
0664 e240 | @ | Load 0x1,0x40
0665 0096 | | Execute Package,Entry
0666 00d1 | | Pop_Control Pop_Count_1
0667 4802 |H | Short_Literal 0x2
0668 e231 | 1 | Load 0x1,0x31
0669 1c08 | | Execute_Immediate Run_Utility,0x8
066a 4800 |H | Short_Literal 0x0
066b 00d9 | | Load_Top At_Offset_1
066c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
066d e603 | | Load 0x3,0x3
066e e02f | / | Load 0x0,0x2f
066f e240 | @ | Load 0x1,0x40
0670 0096 | | Execute Package,Entry
0671 4802 |H | Short_Literal 0x2
0672 e235 | 5 | Load 0x1,0x35
0673 1c08 | | Execute_Immediate Run_Utility,0x8
0674 00da | | Load_Top At_Offset_2
0675 8015 | | Call 0x0,0x15
0676 00d9 | | Load_Top At_Offset_1
0677 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0678 4802 |H | Short_Literal 0x2
0679 e603 | | Load 0x3,0x3
067a e035 | 5 | Load 0x0,0x35
067b e240 | @ | Load 0x1,0x40
067c 0096 | | Execute Package,Entry
067d e603 | | Load 0x3,0x3
067e 4802 |H | Short_Literal 0x2
067f e403 | | Load 0x2,0x3
0680 0219 | | Execute Heap_Access,All_Read
0681 e02e | . | Load 0x0,0x2e
0682 e240 | @ | Load 0x1,0x40
0683 0096 | | Execute Package,Entry
0684 00d1 | | Pop_Control Pop_Count_1
0685 4803 |H | Short_Literal 0x3
0686 e231 | 1 | Load 0x1,0x31
0687 1c08 | | Execute_Immediate Run_Utility,0x8
0688 4800 |H | Short_Literal 0x0
0689 00d9 | | Load_Top At_Offset_1
068a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
068b e603 | | Load 0x3,0x3
068c e02f | / | Load 0x0,0x2f
068d e240 | @ | Load 0x1,0x40
068e 0096 | | Execute Package,Entry
068f 00cf | | Action Mark_Auxiliary
0690 4806 |H | Short_Literal 0x6
0691 4801 |H | Short_Literal 0x1
0692 0007 | | Action Break_Optional
0693 8803 | | Call 0x4,0x3
0694 00c8 | | Action Pop_Auxiliary_Range
0695 3ffd |? | Loop_Increasing 0x693
0696 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0697 0000 | | .XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06a0 | | .CONST 0x06a0 ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0002 | | .CONST 0x0002 ; Number of locals
069b INIT_0698:
069b e806 | | Load 0x4,0x6
069c e235 | 5 | Load 0x1,0x35
069d 1c08 | | Execute_Immediate Run_Utility,0x8
069e 00d8 | | Load_Top At_Offset_0
069f 1c00 | | Execute_Immediate Run_Utility,0x0
06a0 BODY_0698:
06a0 e806 | | Load 0x4,0x6
06a1 0aff | | Execute_Immediate Plus,-0x1
06a2 4605 |F | Jump_Case 0x6
06a3 780a |x | Jump 0x6ae ; case 0x0
06a4 780d |x | Jump 0x6b2 ; case 0x1
06a5 7811 |x | Jump 0x6b7 ; case 0x2
06a6 7815 |x | Jump 0x6bc ; case 0x3
06a7 7819 |x | Jump 0x6c1 ; case 0x4
06a8 7800 |x | Jump 0x6a9 ; case 0x5
06a9 e802 | | Load 0x4,0x2
06aa 8036 | 6 | Call 0x0,0x36
06ab 00d9 | | Load_Top At_Offset_1
06ac 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
06ad 7817 |x | Jump 0x6c5
06ae 4800 |H | Short_Literal 0x0
06af 00d9 | | Load_Top At_Offset_1
06b0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
06b1 7813 |x | Jump 0x6c5
06b2 e802 | | Load 0x4,0x2
06b3 8037 | 7 | Call 0x0,0x37
06b4 00d9 | | Load_Top At_Offset_1
06b5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
06b6 780e |x | Jump 0x6c5
06b7 e802 | | Load 0x4,0x2
06b8 8038 | 8 | Call 0x0,0x38
06b9 00d9 | | Load_Top At_Offset_1
06ba 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
06bb 7809 |x | Jump 0x6c5
06bc e802 | | Load 0x4,0x2
06bd 8039 | 9 | Call 0x0,0x39
06be 00d9 | | Load_Top At_Offset_1
06bf 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
06c0 7804 |x | Jump 0x6c5
06c1 e802 | | Load 0x4,0x2
06c2 803a | : | Call 0x0,0x3a
06c3 00d9 | | Load_Top At_Offset_1
06c4 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
06c5 00d8 | | Load_Top At_Offset_0
06c6 e806 | | Load 0x4,0x6
06c7 e603 | | Load 0x3,0x3
06c8 e035 | 5 | Load 0x0,0x35
06c9 e240 | @ | Load 0x1,0x40
06ca 0096 | | Execute Package,Entry
06cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06cc ; --------------------------------------------------------------------------------------
06cc ; STRING TABLE
06cc ; --------------------------------------------------------------------------------------
06cc 0038 | 8 | .STRTAB 0x0038->0x06e8 ; "NIL_ROW"
06cd 003d | = | .STRTAB 0x003d->0x06eb ; "COLUMN_TITLE_ROW"
06ce 004b | K | .STRTAB 0x004b->0x06f3 ; "FIRST_TEST_RUN_ROW"
06cf 005b | [ | .STRTAB 0x005b->0x06fc ; "DIFFERENTIAL_ROW"
06d0 0069 | i | .STRTAB 0x0069->0x0704 ; "NIL_COL"
06d1 006e | n | .STRTAB 0x006e->0x0708 ; "MARK_COL"
06d2 0074 | t | .STRTAB 0x0074->0x070c ; "TEST_RUN_NAME_COL"
06d3 0083 | | .STRTAB 0x0083->0x0714 ; "NEW_PASSES_COL"
06d4 008f | | .STRTAB 0x008f->0x071b ; "NEW_FAILS_COL"
06d5 009a | | .STRTAB 0x009a->0x0722 ; "NEW_TESTS_COL"
06d6 00a5 | | .STRTAB 0x00a5->0x0728 ; "REMOVED_TESTS_COL"
06d7 00b4 | | .STRTAB 0x00b4->0x0731 ; " "
06d8 00b4 | | .STRTAB 0x00b4->0x0732 ; " TEST RUN"
06d9 00c4 | | .STRTAB 0x00c4->0x073b ; "NEW PASSES"
06da 00cc | | .STRTAB 0x00cc->0x0740 ; "NEW FAILS"
06db 00d3 | | .STRTAB 0x00d3->0x0744 ; "NEW TESTS"
06dc 00da | | .STRTAB 0x00da->0x0749 ; "REMOVED"
06dd 00df | | .STRTAB 0x00df->0x074c ; "Explain"
06de 00e4 | | .STRTAB 0x00e4->0x0750 ; "Elide"
06df 00e7 | | .STRTAB 0x00e7->0x0752 ; "Expand"
06e0 00eb | | .STRTAB 0x00eb->0x0755 ; "Promote"
06e1 00f0 | | .STRTAB 0x00f0->0x0759 ; "Demote"
06e2 00f4 | | .STRTAB 0x00f4->0x075c ; "Delete"
06e3 00f8 | | .STRTAB 0x00f8->0x075f ; "Sort"
06e4 00fa | | .STRTAB 0x00fa->0x0761 ; "Filter"
06e5 00fe | | .STRTAB 0x00fe->0x0764 ; "TR_DIFF"
06e6 0103 | | .STRTAB 0x0103->0x0767 ; "*"
06e7 0102 | | .STREND 0x0102->0x0768
06e8 4e49 4c5f |NIL_| .STRTAB_STRINGS
0768 ; --------------------------------------------------------------------------------------
0768 ; Debug Table
0768 ; --------------------------------------------------------------------------------------
0768 0004 000a | | .DEBUG4 0x0004,0x000a,0x3053,0x0000,0x0001,0x0000
076e 0000 0000 | | .BLANK 0000[0x92]