|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 0518 | | .CONST 0x0518 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00a8 | | .CONST 0x00a8 ; Address of begin
0019 00f6 | | .CONST 0x00f6 ; Address of exception handler
001a 0021 | ! | .CONST 0x0021 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e003 | | Load 0x0,0x3
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e003 | | Load 0x0,0x3
0026 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 e003 | | Load 0x0,0x3
0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002a e004 | | Load 0x0,0x4
002b e005 | | Load 0x0,0x5
002c e002 | | Load 0x0,0x2
002d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002e e006 | | Load 0x0,0x6
002f 0387 | | Declare_Variable Package
0030 00d8 | | Load_Top At_Offset_0
0031 020f | | Execute Module,Activate
0032 00d8 | | Load_Top At_Offset_0
0033 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0034 e007 | | Load 0x0,0x7
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 02c7 | | Declare_Variable Any
0037 00d8 | | Load_Top At_Offset_0
0038 1c00 | | Execute_Immediate Run_Utility,0x0
0039 e008 | | Load 0x0,0x8
003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003b 02c7 | | Declare_Variable Any
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e e009 | | Load 0x0,0x9
003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0040 02c7 | | Declare_Variable Any
0041 e00a | | Load 0x0,0xa
0042 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0043 e009 | | Load 0x0,0x9
0044 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0045 a40a | | Store_Unchecked 0x2,0xa
0046 e002 | | Load 0x0,0x2
0047 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0048 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0049 02c7 | | Declare_Variable Any
004a 4800 |H | Short_Literal 0x0
004b 4800 |H | Short_Literal 0x0
004c 4801 |H | Short_Literal 0x1
004d e409 | | Load 0x2,0x9
004e e40a | | Load 0x2,0xa
004f e5fe | | Load 0x2,-0x2
0050 e002 | | Load 0x0,0x2
0051 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0052 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0053 a40b | | Store_Unchecked 0x2,0xb
0054 0092 050b | | Action Push_String_Extended,0x50b ; "!tools.test.testmate."
0056 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0058 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
005a 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
005c 029f 018b | | Declare_Subprogram INIT_0188,For_Call
005e 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0060 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0062 4800 |H | Short_Literal 0x0
0063 0093 03b3 | | push_full_address INIT_03b0
0065 02a0 | | Declare_Subprogram Null_Subprogram
0066 038e | | Declare_Type Package,Defined
0067 0387 | | Declare_Variable Package
0068 e00b | | Load 0x0,0xb
0069 e00c | | Load 0x0,0xc
006a e006 | | Load 0x0,0x6
006b e00d | | Load 0x0,0xd
006c e00e | | Load 0x0,0xe
006d e002 | | Load 0x0,0x2
006e e00f | | Load 0x0,0xf
006f e010 | | Load 0x0,0x10
0070 e011 | | Load 0x0,0x11
0071 4810 |H | Short_Literal 0x10
0072 4802 |H | Short_Literal 0x2
0073 0099 | | Action Reference_Dynamic
0074 4808 |H | Short_Literal 0x8
0075 4802 |H | Short_Literal 0x2
0076 0099 | | Action Reference_Dynamic
0077 e007 | | Load 0x0,0x7
0078 4812 |H | Short_Literal 0x12
0079 4802 |H | Short_Literal 0x2
007a 0099 | | Action Reference_Dynamic
007b e012 | | Load 0x0,0x12
007c e013 | | Load 0x0,0x13
007d 480b |H | Short_Literal 0xb
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 e002 | | Load 0x0,0x2
0081 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0082 4811 |H | Short_Literal 0x11
0083 e413 | | Load 0x2,0x13
0084 020e | | Execute Module,Augment_Imports
0085 00d8 | | Load_Top At_Offset_0
0086 020f | | Execute Module,Activate
0087 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0089 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
008b 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
008d 029e 025b | [| Declare_Subprogram INIT_0258,For_Call,Unelaborated
008f 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0091 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
0093 4817 |H | Short_Literal 0x17
0094 4802 |H | Short_Literal 0x2
0095 0099 | | Action Reference_Dynamic
0096 00c7 | | Action Elaborate_Subprogram
0097 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
0099 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
009b e014 | | Load 0x0,0x14
009c 1917 | | Execute Package,Field_Reference,Field_Number 0x17
009d 00c6 | | Action Check_Subprogram_Elaborated
009e e002 | | Load 0x0,0x2
009f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a0 481a |H | Short_Literal 0x1a
00a1 4802 |H | Short_Literal 0x2
00a2 0099 | | Action Reference_Dynamic
00a3 e015 | | Load 0x0,0x15
00a4 e016 | | Load 0x0,0x16
00a5 4820 |H | Short_Literal 0x20
00a6 029f 031b | | Declare_Subprogram INIT_0318,For_Call
00a8 BODY_0018:
00a8 e41c | | Load 0x2,0x1c
00a9 481d |H | Short_Literal 0x1d
00aa 4802 |H | Short_Literal 0x2
00ab 0099 | | Action Reference_Dynamic
00ac 481e |H | Short_Literal 0x1e
00ad 4802 |H | Short_Literal 0x2
00ae 0099 | | Action Reference_Dynamic
00af e014 | | Load 0x0,0x14
00b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b1 e003 | | Load 0x0,0x3
00b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b4 e403 | | Load 0x2,0x3
00b5 0120 | | Execute Any,Is_Value
00b6 6803 |h | Jump_Zero 0xba
00b7 e003 | | Load 0x0,0x3
00b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b9 7801 |x | Jump 0xbb
00ba e403 | | Load 0x2,0x3
00bb 6044 |`D | Indirect_Literal Discrete,0x100,{0x00000000, 0x00004000}
00bc e009 | | Load 0x0,0x9
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be e017 | | Load 0x0,0x17
00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c0 e003 | | Load 0x0,0x3
00c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c3 e5ff | | Load 0x2,-0x1
00c4 e003 | | Load 0x0,0x3
00c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00c7 c403 | | Store 0x2,0x3
00c8 c404 | | Store 0x2,0x4
00c9 00cf | | Action Mark_Auxiliary
00ca 781d |x | Jump 0xe8
00cb 8421 | ! | Call 0x2,0x21
00cc e402 | | Load 0x2,0x2
00cd e002 | | Load 0x0,0x2
00ce 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00cf 012f | / | Execute Any,Equal
00d0 6801 |h | Jump_Zero 0xd2
00d1 7810 |x | Jump 0xe2
00d2 e402 | | Load 0x2,0x2
00d3 e002 | | Load 0x0,0x2
00d4 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
00d5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00d6 6807 |h | Jump_Zero 0xde
00d7 4801 |H | Short_Literal 0x1
00d8 4800 |H | Short_Literal 0x0
00d9 e402 | | Load 0x2,0x2
00da e413 | | Load 0x2,0x13
00db 180d | | Execute Package,Field_Execute,Field_Number 0xd
00dc 8417 | | Call 0x2,0x17
00dd 7804 |x | Jump 0xe2
00de 4801 |H | Short_Literal 0x1
00df 4800 |H | Short_Literal 0x0
00e0 e402 | | Load 0x2,0x2
00e1 8417 | | Call 0x2,0x17
00e2 e5fd | | Load 0x2,-0x3
00e3 e003 | | Load 0x0,0x3
00e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e6 c5fd | | Store 0x2,-0x3
00e7 00c9 | | Action Pop_Auxiliary_Loop
00e8 e5fd | | Load 0x2,-0x3
00e9 e003 | | Load 0x0,0x3
00ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ec 6fde |o | Jump_Zero 0xcb
00ed 00ce | | Action Pop_Auxiliary
00ee 841b | | Call 0x2,0x1b
00ef e40a | | Load 0x2,0xa
00f0 4801 |H | Short_Literal 0x1
00f1 4800 |H | Short_Literal 0x0
00f2 e009 | | Load 0x0,0x9
00f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f4 c40a | | Store 0x2,0xa
00f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f6 TRAP_0018:
00f6 0007 | | Action Break_Optional
00f7 e40a | | Load 0x2,0xa
00f8 4801 |H | Short_Literal 0x1
00f9 4800 |H | Short_Literal 0x0
00fa e009 | | Load 0x0,0x9
00fb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00fc c40a | | Store 0x2,0xa
00fd 00d8 | | Load_Top At_Offset_0
00fe 0101 | | Execute Exception,Reraise
00ff 0000 | | .XXX[0x1]
0100 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111 | | .CONST 0x0111 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c e002 | | Load 0x0,0x2
010d 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
010e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
010f e018 | | Load 0x0,0x18
0110 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0111 BODY_0108:
0111 00d8 | | Load_Top At_Offset_0
0112 01dd | | Execute Vector,First
0113 00d9 | | Load_Top At_Offset_1
0114 01dd | | Execute Vector,First
0115 0a14 | | Execute_Immediate Plus,0x14
0116 00d8 | | Load_Top At_Offset_0
0117 00e2 | | Load_Encached Integer_Cache
0118 0260 | ` | Execute Discrete,In_Type
0119 7001 |p | Jump_Nonzero 0x11b
011a 0801 | | Execute_Immediate Raise,0x1
011b 00da | | Load_Top At_Offset_2
011c 01cf | | Execute Vector,Slice_Read
011d e40c | | Load 0x2,0xc
011e 01df | | Execute Vector,Equal
011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 016a | j | .CONST 0x016a ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 000a | | .CONST 0x000a ; Number of locals
0123 INIT_0120:
0123 e002 | | Load 0x0,0x2
0124 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0125 e002 | | Load 0x0,0x2
0126 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0127 e002 | | Load 0x0,0x2
0128 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0129 e002 | | Load 0x0,0x2
012a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
012b e002 | | Load 0x0,0x2
012c 1b5b | [ | Execute Package,Field_Read,Field_Number 0x5b
012d 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
012f 4805 |H | Short_Literal 0x5
0130 032d | - | Declare_Type Record,Defined
0131 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative
0132 00d9 | | Load_Top At_Offset_1
0133 02a0 | | Declare_Subprogram Null_Subprogram
0134 00da | | Load_Top At_Offset_2
0135 03a3 | | Complete_Type Heap_Access,By_Defining
0136 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative
0137 00e1 | | Load_Encached Boolean_Cache
0138 02a0 | | Declare_Subprogram Null_Subprogram
0139 00da | | Load_Top At_Offset_2
013a 03a3 | | Complete_Type Heap_Access,By_Defining
013b 4fff |O | Short_Literal -0x1
013c 481f |H | Short_Literal 0x1f
013d 00e5 | | Load_Encached Long_Integer_Cache
013e 03f8 | | Declare_Type Discrete,Constrained
013f 00d9 | | Load_Top At_Offset_1
0140 00da | | Load_Top At_Offset_2
0141 00db | | Load_Top At_Offset_3
0142 e019 | | Load 0x0,0x19
0143 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0144 e019 | | Load 0x0,0x19
0145 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0146 e604 | | Load 0x3,0x4
0147 00e3 | | Load_Encached Natural_Cache
0148 00e3 | | Load_Encached Natural_Cache
0149 e019 | | Load 0x0,0x19
014a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
014b e019 | | Load 0x0,0x19
014c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
014d 00e2 | | Load_Encached Integer_Cache
014e e605 | | Load 0x3,0x5
014f 00e3 | | Load_Encached Natural_Cache
0150 029f 039b | | Declare_Subprogram INIT_0398,For_Call
0152 480d |H | Short_Literal 0xd
0153 032d | - | Declare_Type Record,Defined
0154 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative
0155 00d9 | | Load_Top At_Offset_1
0156 02a0 | | Declare_Subprogram Null_Subprogram
0157 00da | | Load_Top At_Offset_2
0158 03a3 | | Complete_Type Heap_Access,By_Defining
0159 e01a | | Load 0x0,0x1a
015a e01b | | Load 0x0,0x1b
015b e602 | | Load 0x3,0x2
015c e603 | | Load 0x3,0x3
015d e606 | | Load 0x3,0x6
015e e607 | | Load 0x3,0x7
015f e002 | | Load 0x0,0x2
0160 1b74 | t | Execute Package,Field_Read,Field_Number 0x74
0161 0387 | | Declare_Variable Package
0162 00d8 | | Load_Top At_Offset_0
0163 020f | | Execute Module,Activate
0164 e7ff | | Load 0x3,-0x1
0165 e002 | | Load 0x0,0x2
0166 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0167 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0168 00da | | Load_Top At_Offset_2
0169 0007 | | Action Break_Optional
016a BODY_0120:
016a 00d9 | | Load_Top At_Offset_1
016b 00db | | Load_Top At_Offset_3
016c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
016e 00d8 | | Load_Top At_Offset_0
016f 0217 | | Execute Heap_Access,All_Reference
0170 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0183 | | .CONST 0x0183 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 840e | | Call 0x2,0xe
017d e019 | | Load 0x0,0x19
017e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
017f 03f1 | | Declare_Variable Discrete,With_Value
0180 e019 | | Load 0x0,0x19
0181 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0182 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0183 BODY_0178:
0183 00d9 | | Load_Top At_Offset_1
0184 00d9 | | Load_Top At_Offset_1
0185 027f | | Execute Discrete,Equal
0186 0f00 | | Execute_Immediate Equal,0x0
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 840f | | Call 0x2,0xf
018d 7004 |p | Jump_Nonzero 0x192
018e 00da | | Load_Top At_Offset_2
018f 840d | | Call 0x2,0xd
0190 0f00 | | Execute_Immediate Equal,0x0
0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0192 4800 |H | Short_Literal 0x0
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a8 | | .CONST 0x01a8 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0005 | | .CONST 0x0005 ; Number of locals
019b INIT_0198:
019b 00ec | | Load_Encached Diana_Tree_Cache
019c e003 | | Load 0x0,0x3
019d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
019e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
019f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01a0 e003 | | Load 0x0,0x3
01a1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01a2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01a3 02c7 | | Declare_Variable Any
01a4 00d8 | | Load_Top At_Offset_0
01a5 1c00 | | Execute_Immediate Run_Utility,0x0
01a6 e003 | | Load 0x0,0x3
01a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a8 BODY_0198:
01a8 e003 | | Load 0x0,0x3
01a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01aa 00da | | Load_Top At_Offset_2
01ab 0120 | | Execute Any,Is_Value
01ac 6804 |h | Jump_Zero 0x1b1
01ad e003 | | Load 0x0,0x3
01ae 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01af 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01b0 7801 |x | Jump 0x1b2
01b1 00da | | Load_Top At_Offset_2
01b2 e003 | | Load 0x0,0x3
01b3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01b5 600e |` | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00004000}
01b6 4801 |H | Short_Literal 0x1
01b7 4800 |H | Short_Literal 0x0
01b8 4800 |H | Short_Literal 0x0
01b9 e40a | | Load 0x2,0xa
01ba e603 | | Load 0x3,0x3
01bb e7ff | | Load 0x3,-0x1
01bc e003 | | Load 0x0,0x3
01bd 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01bf c602 | | Store 0x3,0x2
01c0 c604 | | Store 0x3,0x4
01c1 0059 | Y | Store_Top Discrete,At_Offset_1
01c2 00db | | Load_Top At_Offset_3
01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc e002 | | Load 0x0,0x2
01cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ce 6009 |` | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x7fffffff}
01cf 0279 | y | Execute Discrete,And
01d0 00d8 | | Load_Top At_Offset_0
01d1 00e2 | | Load_Encached Integer_Cache
01d2 0260 | ` | Execute Discrete,In_Type
01d3 7001 |p | Jump_Nonzero 0x1d5
01d4 0801 | | Execute_Immediate Raise,0x1
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01eb | | .CONST 0x01eb ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 4801 |H | Short_Literal 0x1
01e4 00db | | Load_Top At_Offset_3
01e5 e40b | | Load 0x2,0xb
01e6 e002 | | Load 0x0,0x2
01e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01e8 e002 | | Load 0x0,0x2
01e9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01ea 011e | | Execute Any,Convert
01eb BODY_01e0:
01eb 00d8 | | Load_Top At_Offset_0
01ec e002 | | Load 0x0,0x2
01ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ee 012f | / | Execute Any,Equal
01ef 6809 |h | Jump_Zero 0x1f9
01f0 e40b | | Load 0x2,0xb
01f1 e002 | | Load 0x0,0x2
01f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f4 6801 |h | Jump_Zero 0x1f6
01f5 0887 | | Execute_Immediate Raise,0x87
01f6 e002 | | Load 0x0,0x2
01f7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f9 00d8 | | Load_Top At_Offset_0
01fa e413 | | Load 0x2,0x13
01fb 180d | | Execute Package,Field_Execute,Field_Number 0xd
01fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020b | | .CONST 0x020b ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 4801 |H | Short_Literal 0x1
0204 00db | | Load_Top At_Offset_3
0205 e40b | | Load 0x2,0xb
0206 e002 | | Load 0x0,0x2
0207 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0208 e002 | | Load 0x0,0x2
0209 1b13 | | Execute Package,Field_Read,Field_Number 0x13
020a 011e | | Execute Any,Convert
020b BODY_0200:
020b 00d8 | | Load_Top At_Offset_0
020c e002 | | Load 0x0,0x2
020d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
020e 012f | / | Execute Any,Equal
020f 6809 |h | Jump_Zero 0x219
0210 e40b | | Load 0x2,0xb
0211 e002 | | Load 0x0,0x2
0212 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0213 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0214 6801 |h | Jump_Zero 0x216
0215 0887 | | Execute_Immediate Raise,0x87
0216 e002 | | Load 0x0,0x2
0217 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 00d8 | | Load_Top At_Offset_0
021a e413 | | Load 0x2,0x13
021b 180d | | Execute Package,Field_Execute,Field_Number 0xd
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0228 | ( | .CONST 0x0228 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e002 | | Load 0x0,0x2
0224 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0225 02c7 | | Declare_Variable Any
0226 00d8 | | Load_Top At_Offset_0
0227 1c00 | | Execute_Immediate Run_Utility,0x0
0228 BODY_0220:
0228 00db | | Load_Top At_Offset_3
0229 e002 | | Load 0x0,0x2
022a 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
022b 180f | | Execute Package,Field_Execute,Field_Number 0xf
022c c602 | | Store 0x3,0x2
022d 00d8 | | Load_Top At_Offset_0
022e e7ff | | Load 0x3,-0x1
022f 012f | / | Execute Any,Equal
0230 7017 |p | Jump_Nonzero 0x248
0231 00d8 | | Load_Top At_Offset_0
0232 e002 | | Load 0x0,0x2
0233 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0234 012f | / | Execute Any,Equal
0235 700a |p | Jump_Nonzero 0x240
0236 00d8 | | Load_Top At_Offset_0
0237 e002 | | Load 0x0,0x2
0238 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0239 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
023a 0f04 | | Execute_Immediate Equal,0x4
023b 7002 |p | Jump_Nonzero 0x23e
023c e7fe | | Load 0x3,-0x2
023d 7002 |p | Jump_Nonzero 0x240
023e 00d8 | | Load_Top At_Offset_0
023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0240 e002 | | Load 0x0,0x2
0241 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0242 00d8 | | Load_Top At_Offset_0
0243 0120 | | Execute Any,Is_Value
0244 7002 |p | Jump_Nonzero 0x247
0245 00d8 | | Load_Top At_Offset_0
0246 011e | | Execute Any,Convert
0247 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0248 00db | | Load_Top At_Offset_3
0249 e7ff | | Load 0x3,-0x1
024a e002 | | Load 0x0,0x2
024b 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
024c 180e | | Execute Package,Field_Execute,Field_Number 0xe
024d 012f | / | Execute Any,Equal
024e 7001 |p | Jump_Nonzero 0x250
024f 0887 | | Execute_Immediate Raise,0x87
0250 e002 | | Load 0x0,0x2
0251 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0252 00d8 | | Load_Top At_Offset_0
0253 0120 | | Execute Any,Is_Value
0254 7002 |p | Jump_Nonzero 0x257
0255 00d8 | | Load_Top At_Offset_0
0256 011e | | Execute Any,Convert
0257 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0260 | ` | .CONST 0x0260 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e002 | | Load 0x0,0x2
025c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 BODY_0258:
0260 00db | | Load_Top At_Offset_3
0261 e002 | | Load 0x0,0x2
0262 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0263 012f | / | Execute Any,Equal
0264 6801 |h | Jump_Zero 0x266
0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0266 00db | | Load_Top At_Offset_3
0267 840f | | Call 0x2,0xf
0268 7008 |p | Jump_Nonzero 0x271
0269 00db | | Load_Top At_Offset_3
026a 840d | | Call 0x2,0xd
026b 7005 |p | Jump_Nonzero 0x271
026c 00db | | Load_Top At_Offset_3
026d e407 | | Load 0x2,0x7
026e e406 | | Load 0x2,0x6
026f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0270 6801 |h | Jump_Zero 0x272
0271 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0272 e407 | | Load 0x2,0x7
0273 e7ff | | Load 0x3,-0x1
0274 e406 | | Load 0x2,0x6
0275 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0276 c407 | | Store 0x2,0x7
0277 e7fd | | Load 0x3,-0x3
0278 6806 |h | Jump_Zero 0x27f
0279 4801 |H | Short_Literal 0x1
027a e7ff | | Load 0x3,-0x1
027b e002 | | Load 0x0,0x2
027c 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
027d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
027e 8418 | | Call 0x2,0x18
027f 4800 |H | Short_Literal 0x0
0280 e7ff | | Load 0x3,-0x1
0281 e002 | | Load 0x0,0x2
0282 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0283 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0284 8418 | | Call 0x2,0x18
0285 e7fe | | Load 0x3,-0x2
0286 7006 |p | Jump_Nonzero 0x28d
0287 4801 |H | Short_Literal 0x1
0288 4801 |H | Short_Literal 0x1
0289 4801 |H | Short_Literal 0x1
028a e7ff | | Load 0x3,-0x1
028b 8416 | | Call 0x2,0x16
028c 8417 | | Call 0x2,0x17
028d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0298 | | .CONST 0x0298 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 e002 | | Load 0x0,0x2
0294 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0295 02c7 | | Declare_Variable Any
0296 00db | | Load_Top At_Offset_3
0297 a602 | | Store_Unchecked 0x3,0x2
0298 BODY_0290:
0298 00cf | | Action Mark_Auxiliary
0299 780a |x | Jump 0x2a4
029a e7fe | | Load 0x3,-0x2
029b 4800 |H | Short_Literal 0x0
029c 00db | | Load_Top At_Offset_3
029d 8414 | | Call 0x2,0x14
029e 8417 | | Call 0x2,0x17
029f 00d9 | | Load_Top At_Offset_1
02a0 e002 | | Load 0x0,0x2
02a1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02a2 c602 | | Store 0x3,0x2
02a3 00c9 | | Action Pop_Auxiliary_Loop
02a4 00d9 | | Load_Top At_Offset_1
02a5 e002 | | Load 0x0,0x2
02a6 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
02a7 012f | / | Execute Any,Equal
02a8 6ff1 |o | Jump_Zero 0x29a
02a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02aa 0000 0000 | | .BLANK 0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b8 | | .CONST 0x02b8 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 e002 | | Load 0x0,0x2
02b4 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
02b5 02c7 | | Declare_Variable Any
02b6 00db | | Load_Top At_Offset_3
02b7 a602 | | Store_Unchecked 0x3,0x2
02b8 BODY_02b0:
02b8 00cf | | Action Mark_Auxiliary
02b9 780a |x | Jump 0x2c4
02ba e7fe | | Load 0x3,-0x2
02bb 4800 |H | Short_Literal 0x0
02bc 00db | | Load_Top At_Offset_3
02bd 8415 | | Call 0x2,0x15
02be 8417 | | Call 0x2,0x17
02bf 00d9 | | Load_Top At_Offset_1
02c0 e002 | | Load 0x0,0x2
02c1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02c2 c602 | | Store 0x3,0x2
02c3 00c9 | | Action Pop_Auxiliary_Loop
02c4 00d9 | | Load_Top At_Offset_1
02c5 e002 | | Load 0x0,0x2
02c6 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
02c7 012f | / | Execute Any,Equal
02c8 6ff1 |o | Jump_Zero 0x2ba
02c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d8 | | .CONST 0x02d8 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 e003 | | Load 0x0,0x3
02d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d5 02c7 | | Declare_Variable Any
02d6 00d8 | | Load_Top At_Offset_0
02d7 1c00 | | Execute_Immediate Run_Utility,0x0
02d8 BODY_02d0:
02d8 00db | | Load_Top At_Offset_3
02d9 e002 | | Load 0x0,0x2
02da 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
02db 180f | | Execute Package,Field_Execute,Field_Number 0xf
02dc c602 | | Store 0x3,0x2
02dd 00d8 | | Load_Top At_Offset_0
02de e003 | | Load 0x0,0x3
02df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02e1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02e2 0000 0000 | | .BLANK 0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed | | .CONST 0x02ed ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb e406 | | Load 0x2,0x6
02ec 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02ed BODY_02e8:
02ed e5fc | | Load 0x2,-0x4
02ee 0120 | | Execute Any,Is_Value
02ef 6804 |h | Jump_Zero 0x2f4
02f0 e003 | | Load 0x0,0x3
02f1 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
02f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f3 7801 |x | Jump 0x2f5
02f4 e5fc | | Load 0x2,-0x4
02f5 e5fe | | Load 0x2,-0x2
02f6 e003 | | Load 0x0,0x3
02f7 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
02f8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02f9 c5fc | | Store 0x2,-0x4
02fa e406 | | Load 0x2,0x6
02fb 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02fc e407 | | Load 0x2,0x7
02fd e406 | | Load 0x2,0x6
02fe 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02ff 0039 | 9 | Store_Top Access,At_Offset_1
0300 00cf | | Action Mark_Auxiliary
0301 780f |x | Jump 0x311
0302 00d9 | | Load_Top At_Offset_1
0303 e406 | | Load 0x2,0x6
0304 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0305 e002 | | Load 0x0,0x2
0306 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
0307 180f | | Execute Package,Field_Execute,Field_Number 0xf
0308 e5fc | | Load 0x2,-0x4
0309 e003 | | Load 0x0,0x3
030a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
030b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030c 00d9 | | Load_Top At_Offset_1
030d e406 | | Load 0x2,0x6
030e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
030f 003a | : | Store_Top Access,At_Offset_2
0310 00c9 | | Action Pop_Auxiliary_Loop
0311 00d9 | | Load_Top At_Offset_1
0312 e406 | | Load 0x2,0x6
0313 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0314 6fed |o | Jump_Zero 0x302
0315 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0316 0000 0000 | | .XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 032a | * | .CONST 0x032a ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0005 | | .CONST 0x0005 ; Number of locals
031b INIT_0318:
031b e003 | | Load 0x0,0x3
031c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031d e003 | | Load 0x0,0x3
031e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031f 02c7 | | Declare_Variable Any
0320 00d8 | | Load_Top At_Offset_0
0321 1c00 | | Execute_Immediate Run_Utility,0x0
0322 e003 | | Load 0x0,0x3
0323 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0324 e003 | | Load 0x0,0x3
0325 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0327 02c7 | | Declare_Variable Any
0328 00d8 | | Load_Top At_Offset_0
0329 1c00 | | Execute_Immediate Run_Utility,0x0
032a BODY_0318:
032a e003 | | Load 0x0,0x3
032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032c 00db | | Load_Top At_Offset_3
032d 0120 | | Execute Any,Is_Value
032e 6803 |h | Jump_Zero 0x332
032f e003 | | Load 0x0,0x3
0330 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0331 7801 |x | Jump 0x333
0332 00db | | Load_Top At_Offset_3
0333 e5fd | | Load 0x2,-0x3
0334 e003 | | Load 0x0,0x3
0335 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0336 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0337 c603 | | Store 0x3,0x3
0338 005a | Z | Store_Top Discrete,At_Offset_2
0339 00d9 | | Load_Top At_Offset_1
033a 7006 |p | Jump_Nonzero 0x341
033b 00da | | Load_Top At_Offset_2
033c e003 | | Load 0x0,0x3
033d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033f c605 | | Store 0x3,0x5
0340 781d |x | Jump 0x35e
0341 e003 | | Load 0x0,0x3
0342 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0343 e003 | | Load 0x0,0x3
0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0345 6026 |`& | Indirect_Literal Discrete,0x36c,{0x00000000, 0x00004000}
0346 e009 | | Load 0x0,0x9
0347 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0348 e5fd | | Load 0x2,-0x3
0349 e003 | | Load 0x0,0x3
034a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
034c c602 | | Store 0x3,0x2
034d 005a | Z | Store_Top Discrete,At_Offset_2
034e e003 | | Load 0x0,0x3
034f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0350 00d9 | | Load_Top At_Offset_1
0351 0120 | | Execute Any,Is_Value
0352 6804 |h | Jump_Zero 0x357
0353 e003 | | Load 0x0,0x3
0354 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0355 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0356 7801 |x | Jump 0x358
0357 00d9 | | Load_Top At_Offset_1
0358 e602 | | Load 0x3,0x2
0359 e003 | | Load 0x0,0x3
035a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
035b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
035c c605 | | Store 0x3,0x5
035d 005a | Z | Store_Top Discrete,At_Offset_2
035e 00d8 | | Load_Top At_Offset_0
035f 8411 | | Call 0x2,0x11
0360 e40b | | Load 0x2,0xb
0361 e002 | | Load 0x0,0x2
0362 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0363 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0364 c402 | | Store 0x2,0x2
0365 e403 | | Load 0x2,0x3
0366 e40b | | Load 0x2,0xb
0367 e007 | | Load 0x0,0x7
0368 180e | | Execute Package,Field_Execute,Field_Number 0xe
0369 c408 | | Store 0x2,0x8
036a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
036b 0000 | | .XXX[0x1]
036c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 4601 |F | Jump_Case 0x2
0374 7801 |x | Jump 0x376 ; case 0x0
0375 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0376 00da | | Load_Top At_Offset_2
0377 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0378 0125 | % | Execute Any,Set_Constraint
0379 00da | | Load_Top At_Offset_2
037a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037b 1c00 | | Execute_Immediate Run_Utility,0x0
037c 00da | | Load_Top At_Offset_2
037d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
037e 0125 | % | Execute Any,Set_Constraint
037f 00da | | Load_Top At_Offset_2
0380 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0381 1c00 | | Execute_Immediate Run_Utility,0x0
0382 00da | | Load_Top At_Offset_2
0383 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0384 0125 | % | Execute Any,Set_Constraint
0385 00da | | Load_Top At_Offset_2
0386 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0387 1c00 | | Execute_Immediate Run_Utility,0x0
0388 00da | | Load_Top At_Offset_2
0389 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
038a 0125 | % | Execute Any,Set_Constraint
038b 00da | | Load_Top At_Offset_2
038c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
038d 1c00 | | Execute_Immediate Run_Utility,0x0
038e 00da | | Load_Top At_Offset_2
038f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0390 0125 | % | Execute Any,Set_Constraint
0391 00da | | Load_Top At_Offset_2
0392 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0393 1c00 | | Execute_Immediate Run_Utility,0x0
0394 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 4601 |F | Jump_Case 0x2
039c 7801 |x | Jump 0x39e ; case 0x0
039d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
039e 4800 |H | Short_Literal 0x0
039f 00db | | Load_Top At_Offset_3
03a0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03a1 4800 |H | Short_Literal 0x0
03a2 00db | | Load_Top At_Offset_3
03a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03a4 4800 |H | Short_Literal 0x0
03a5 00db | | Load_Top At_Offset_3
03a6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
03a7 4800 |H | Short_Literal 0x0
03a8 00db | | Load_Top At_Offset_3
03a9 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
03aa 4800 |H | Short_Literal 0x0
03ab 00db | | Load_Top At_Offset_3
03ac 380c |8 | Execute Record,Field_Write,Field_Number 0xc
03ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03ae 0000 0000 | | .XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03ea | | .CONST 0x03ea ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0017 | | .CONST 0x0017 ; Number of locals
03b3 INIT_03b0:
03b3 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
03b5 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
03b7 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
03b9 00bf | | Action Accept_Activation
03ba e001 | | Load 0x0,0x1
03bb e002 | | Load 0x0,0x2
03bc 00ec | | Load_Encached Diana_Tree_Cache
03bd e003 | | Load 0x0,0x3
03be 0387 | | Declare_Variable Package
03bf 00d8 | | Load_Top At_Offset_0
03c0 020f | | Execute Module,Activate
03c1 00d8 | | Load_Top At_Offset_0
03c2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03c3 00e3 | | Load_Encached Natural_Cache
03c4 02a0 | | Declare_Subprogram Null_Subprogram
03c5 4802 |H | Short_Literal 0x2
03c6 032d | - | Declare_Type Record,Defined
03c7 00d8 | | Load_Top At_Offset_0
03c8 0322 | " | Declare_Variable Record
03c9 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
03cb 0093 0000 | | push_full_address 0x0
03cd 606a |`j | Indirect_Literal Discrete,0x438,{0x80000000, 0x00020000}
03ce 0273 | s | Execute Discrete,Plus
03cf e004 | | Load 0x0,0x4
03d0 0273 | s | Execute Discrete,Plus
03d1 e005 | | Load 0x0,0x5
03d2 0273 | s | Execute Discrete,Plus
03d3 4900 |I | Short_Literal 0x100
03d4 e006 | | Load 0x0,0x6
03d5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03d6 e211 | | Load 0x1,0x11
03d7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
03d8 e007 | | Load 0x0,0x7
03d9 0387 | | Declare_Variable Package
03da 00d8 | | Load_Top At_Offset_0
03db 020f | | Execute Module,Activate
03dc e008 | | Load 0x0,0x8
03dd 00d9 | | Load_Top At_Offset_1
03de 0098 | | Execute Package,Field_Read_Dynamic
03df 0007 | | Action Break_Optional
03e0 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
03e2 1d0d | | Execute_Immediate Reference_Lex_1,0xd
03e3 00c7 | | Action Elaborate_Subprogram
03e4 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
03e6 1d0e | | Execute_Immediate Reference_Lex_1,0xe
03e7 00c7 | | Action Elaborate_Subprogram
03e8 1d0f | | Execute_Immediate Reference_Lex_1,0xf
03e9 00c7 | | Action Elaborate_Subprogram
03ea BODY_03b0:
03ea e212 | | Load 0x1,0x12
03eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ec e210 | | Load 0x1,0x10
03ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ee e212 | | Load 0x1,0x12
03ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03f0 4800 |H | Short_Literal 0x0
03f1 e212 | | Load 0x1,0x12
03f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03f3 e008 | | Load 0x0,0x8
03f4 e214 | | Load 0x1,0x14
03f5 0098 | | Execute Package,Field_Read_Dynamic
03f6 4900 |I | Short_Literal 0x100
03f7 e009 | | Load 0x0,0x9
03f8 e214 | | Load 0x1,0x14
03f9 0096 | | Execute Package,Entry
03fa 003b | ; | Store_Top Access,At_Offset_3
03fb 00bc | | Action Signal_Activated
03fc 00bb | | Action Signal_Completion
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040f | | .CONST 0x040f ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0005 | | .CONST 0x0005 ; Number of locals
0403 INIT_0400:
0403 e006 | | Load 0x0,0x6
0404 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0405 02c7 | | Declare_Variable Any
0406 00d8 | | Load_Top At_Offset_0
0407 1c00 | | Execute_Immediate Run_Utility,0x0
0408 00e1 | | Load_Encached Boolean_Cache
0409 e5ff | | Load 0x2,-0x1
040a e006 | | Load 0x0,0x6
040b 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
040c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
040d 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
040f BODY_0400:
040f e5ff | | Load 0x2,-0x1
0410 e006 | | Load 0x0,0x6
0411 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0412 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0413 681a |h | Jump_Zero 0x42e
0414 e5ff | | Load 0x2,-0x1
0415 800a | | Call 0x0,0xa
0416 6817 |h | Jump_Zero 0x42e
0417 00db | | Load_Top At_Offset_3
0418 0120 | | Execute Any,Is_Value
0419 6803 |h | Jump_Zero 0x41d
041a e006 | | Load 0x0,0x6
041b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
041c 7801 |x | Jump 0x41e
041d 00db | | Load_Top At_Offset_3
041e 4800 |H | Short_Literal 0x0
041f e00b | | Load 0x0,0xb
0420 e5ff | | Load 0x2,-0x1
0421 e00c | | Load 0x0,0xc
0422 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0423 c402 | | Store 0x2,0x2
0424 00e1 | | Load_Encached Boolean_Cache
0425 e402 | | Load 0x2,0x2
0426 e5ff | | Load 0x2,-0x1
0427 8216 | | Call 0x1,0x16
0428 005b | [ | Store_Top Discrete,At_Offset_3
0429 00da | | Load_Top At_Offset_2
042a 7001 |p | Jump_Nonzero 0x42c
042b 8405 | | Call 0x2,0x5
042c 00db | | Load_Top At_Offset_3
042d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042e e5ff | | Load 0x2,-0x1
042f 00d8 | | Load_Top At_Offset_0
0430 0120 | | Execute Any,Is_Value
0431 7002 |p | Jump_Nonzero 0x434
0432 00d8 | | Load_Top At_Offset_0
0433 011e | | Execute Any,Convert
0434 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0435 0000 0000 | | .XXX[0x3]
0437 0000 | |
0438 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
043c 0000 0000 | | .BLANK 0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 8217 | | Call 0x1,0x17
0445 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0446 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0447 0000 | | .XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0453 | S | .CONST 0x0453 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0003 | | .CONST 0x0003 ; Number of locals
044b INIT_0448:
044b e211 | | Load 0x1,0x11
044c 0322 | " | Declare_Variable Record
044d e5fc | | Load 0x2,-0x4
044e 8217 | | Call 0x1,0x17
044f 00d9 | | Load_Top At_Offset_1
0450 017d | } | Execute Record,Structure_Write
0451 e210 | | Load 0x1,0x10
0452 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0453 BODY_0448:
0453 e210 | | Load 0x1,0x10
0454 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0455 00da | | Load_Top At_Offset_2
0456 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0457 e210 | | Load 0x1,0x10
0458 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0459 0039 | 9 | Store_Top Access,At_Offset_1
045a 00cf | | Action Mark_Auxiliary
045b 00da | | Load_Top At_Offset_2
045c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
045d 4801 |H | Short_Literal 0x1
045e 0263 | c | Execute Discrete,Above_Bound
045f 700c |p | Jump_Nonzero 0x46c
0460 e5fb | | Load 0x2,-0x5
0461 e403 | | Load 0x2,0x3
0462 e210 | | Load 0x1,0x10
0463 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0464 00da | | Load_Top At_Offset_2
0465 85fe | | Call 0x2,-0x2
0466 00db | | Load_Top At_Offset_3
0467 e210 | | Load 0x1,0x10
0468 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0469 c403 | | Store 0x2,0x3
046a 00c8 | | Action Pop_Auxiliary_Range
046b 3ff4 |? | Loop_Increasing 0x460
046c 00ce | | Action Pop_Auxiliary
046d 00d8 | | Load_Top At_Offset_0
046e e210 | | Load 0x1,0x10
046f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0470 7001 |p | Jump_Nonzero 0x472
0471 0887 | | Execute_Immediate Raise,0x87
0472 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0473 0000 0000 | | .BLANK 0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2
047c e006 | | Load 0x0,0x6
047d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
047e 0119 | | Execute Any,Check_In_Formal_Type
047f 800d | | Call 0x0,0xd
0480 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0481 0000 0000 | | .BLANK 0000[0x7]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0492 | | .CONST 0x0492 ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0004 | | .CONST 0x0004 ; Number of locals
048b INIT_0488:
048b 00da | | Load_Top At_Offset_2
048c e006 | | Load 0x0,0x6
048d 1b6e | n | Execute Package,Field_Read,Field_Number 0x6e
048e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
048f e211 | | Load 0x1,0x11
0490 0322 | " | Declare_Variable Record
0491 00e1 | | Load_Encached Boolean_Cache
0492 BODY_0488:
0492 00da | | Load_Top At_Offset_2
0493 7003 |p | Jump_Nonzero 0x497
0494 4801 |H | Short_Literal 0x1
0495 a5fd | | Store_Unchecked 0x2,-0x3
0496 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0497 00e1 | | Load_Encached Boolean_Cache
0498 00da | | Load_Top At_Offset_2
0499 e5fe | | Load 0x2,-0x2
049a e215 | | Load 0x1,0x15
049b e00e | | Load 0x0,0xe
049c e214 | | Load 0x1,0x14
049d 0096 | | Execute Package,Entry
049e 00d1 | | Pop_Control Pop_Count_1
049f 0059 | Y | Store_Top Discrete,At_Offset_1
04a0 00d8 | | Load_Top At_Offset_0
04a1 6809 |h | Jump_Zero 0x4ab
04a2 00da | | Load_Top At_Offset_2
04a3 00da | | Load_Top At_Offset_2
04a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a5 e210 | | Load 0x1,0x10
04a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04a7 680c |h | Jump_Zero 0x4b4
04a8 4801 |H | Short_Literal 0x1
04a9 a5fd | | Store_Unchecked 0x2,-0x3
04aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ab e210 | | Load 0x1,0x10
04ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04ad e210 | | Load 0x1,0x10
04ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04af 00da | | Load_Top At_Offset_2
04b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04b1 4800 |H | Short_Literal 0x0
04b2 00da | | Load_Top At_Offset_2
04b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04b4 00d9 | | Load_Top At_Offset_1
04b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04b6 00db | | Load_Top At_Offset_3
04b7 e210 | | Load 0x1,0x10
04b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b9 00da | | Load_Top At_Offset_2
04ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04bb 00d9 | | Load_Top At_Offset_1
04bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04bd 0a01 | | Execute_Immediate Plus,0x1
04be 00da | | Load_Top At_Offset_2
04bf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c0 e215 | | Load 0x1,0x15
04c1 4800 |H | Short_Literal 0x0
04c2 00db | | Load_Top At_Offset_3
04c3 e5fe | | Load 0x2,-0x2
04c4 e00f | | Load 0x0,0xf
04c5 e214 | | Load 0x1,0x14
04c6 0096 | | Execute Package,Entry
04c7 c215 | | Store 0x1,0x15
04c8 4800 |H | Short_Literal 0x0
04c9 a5fd | | Store_Unchecked 0x2,-0x3
04ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04cb 0000 0000 | | .BLANK 0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d6 | | .CONST 0x04d6 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0003 | | .CONST 0x0003 ; Number of locals
04d3 INIT_04d0:
04d3 e211 | | Load 0x1,0x11
04d4 0322 | " | Declare_Variable Record
04d5 00e1 | | Load_Encached Boolean_Cache
04d6 BODY_04d0:
04d6 00e1 | | Load_Encached Boolean_Cache
04d7 00da | | Load_Top At_Offset_2
04d8 e5ff | | Load 0x2,-0x1
04d9 e215 | | Load 0x1,0x15
04da e00e | | Load 0x0,0xe
04db e214 | | Load 0x1,0x14
04dc 0096 | | Execute Package,Entry
04dd 00d1 | | Pop_Control Pop_Count_1
04de 0059 | Y | Store_Top Discrete,At_Offset_1
04df 00d8 | | Load_Top At_Offset_0
04e0 6802 |h | Jump_Zero 0x4e3
04e1 00d9 | | Load_Top At_Offset_1
04e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e3 e212 | | Load 0x1,0x12
04e4 0320 | | Declare_Variable Record,Duplicate
04e5 00cd | | Action Spare6_Action
04e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e7 0000 | | .XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f8 | | .CONST 0x04f8 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0003 | | .CONST 0x0003 ; Number of locals
04eb INIT_04e8:
04eb e006 | | Load 0x0,0x6
04ec 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
04ed 02c7 | | Declare_Variable Any
04ee e5ff | | Load 0x2,-0x1
04ef e006 | | Load 0x0,0x6
04f0 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
04f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04f2 a602 | | Store_Unchecked 0x3,0x2
04f3 e006 | | Load 0x0,0x6
04f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04f5 02c7 | | Declare_Variable Any
04f6 00d8 | | Load_Top At_Offset_0
04f7 1c00 | | Execute_Immediate Run_Utility,0x0
04f8 BODY_04e8:
04f8 00cf | | Action Mark_Auxiliary
04f9 780c |x | Jump 0x506
04fa 4801 |H | Short_Literal 0x1
04fb 00db | | Load_Top At_Offset_3
04fc e010 | | Load 0x0,0x10
04fd e006 | | Load 0x0,0x6
04fe 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04ff 820d | | Call 0x1,0xd
0500 c603 | | Store 0x3,0x3
0501 00da | | Load_Top At_Offset_2
0502 e006 | | Load 0x0,0x6
0503 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0504 c602 | | Store 0x3,0x2
0505 00c9 | | Action Pop_Auxiliary_Loop
0506 00da | | Load_Top At_Offset_2
0507 e011 | | Load 0x0,0x11
0508 012f | / | Execute Any,Equal
0509 6ff0 |o | Jump_Zero 0x4fa
050a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
050b ; --------------------------------------------------------------------------------------
050b ; STRING TABLE
050b ; --------------------------------------------------------------------------------------
050b 0004 | | .STRTAB 0x0004->0x050d ; "!tools.test.testmate."
050c 0017 | | .STREND 0x0017->0x0517
050d 2174 6f6f |!too| .STRTAB_STRINGS
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug Table
0518 ; --------------------------------------------------------------------------------------
0518 0004 000a | | .DEBUG4 0x0004,0x000a,0x56e3,0x0000,0x0001,0x0000
051e 0000 0000 | | .BLANK 0000[0xe2]