|
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_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0648 | H | .CONST 0x0648 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001b | | .CONST 0x001b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
0011 c210 | | Store 0x1,0x10
0012 00bf | | Action Accept_Activation
0013 029b 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Unelaborated
0015 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0016 00c7 | | Action Elaborate_Subprogram
0017 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call
0019 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001a 00c7 | | Action Elaborate_Subprogram
001b BODY_0008:
001b 00bc | | Action Signal_Activated
001c 00bb | | Action Signal_Completion
001d 0000 0000 | | .XXX[0x3]
001f 0000 | |
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 008d | | .CONST 0x008d ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0022 | " | .CONST 0x0022 ; Number of locals
0023 INIT_0020:
0023 0092 0629 | )| Action Push_String_Extended,0x629 ; "<ACTIVITY>"
0025 00e9 | | Load_Encached String_Cache
0026 02a0 | | Declare_Subprogram Null_Subprogram
0027 4818 |H | Short_Literal 0x18
0028 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0029 00d8 | | Load_Top At_Offset_0
002a 00d9 | | Load_Top At_Offset_1
002b 00f1 | | Load_Encached Diana_Temp_Seq
002c 00ec | | Load_Encached Diana_Tree_Cache
002d 02a0 | | Declare_Subprogram Null_Subprogram
002e 4804 |H | Short_Literal 0x4
002f 032d | - | Declare_Type Record,Defined
0030 e001 | | Load 0x0,0x1
0031 e002 | | Load 0x0,0x2
0032 4861 |Ha | Short_Literal 0x61
0033 00db | | Load_Top At_Offset_3
0034 4801 |H | Short_Literal 0x1
0035 e003 | | Load 0x0,0x3
0036 0387 | | Declare_Variable Package
0037 00d8 | | Load_Top At_Offset_0
0038 020f | | Execute Module,Activate
0039 00d8 | | Load_Top At_Offset_0
003a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003b 02a0 | | Declare_Subprogram Null_Subprogram
003c 4818 |H | Short_Literal 0x18
003d 03d3 | | Declare_Type Access,Defined,Accesses_Protected
003e e004 | | Load 0x0,0x4
003f e005 | | Load 0x0,0x5
0040 4861 |Ha | Short_Literal 0x61
0041 00db | | Load_Top At_Offset_3
0042 4801 |H | Short_Literal 0x1
0043 e003 | | Load 0x0,0x3
0044 0387 | | Declare_Variable Package
0045 00d8 | | Load_Top At_Offset_0
0046 020f | | Execute Module,Activate
0047 00d8 | | Load_Top At_Offset_0
0048 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0049 00da | | Load_Top At_Offset_2
004a 0007 | | Action Break_Optional
004b 00e1 | | Load_Encached Boolean_Cache
004c 00e1 | | Load_Encached Boolean_Cache
004d e006 | | Load 0x0,0x6
004e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004f 02c7 | | Declare_Variable Any
0050 00d8 | | Load_Top At_Offset_0
0051 1c00 | | Execute_Immediate Run_Utility,0x0
0052 00f1 | | Load_Encached Diana_Temp_Seq
0053 00ec | | Load_Encached Diana_Tree_Cache
0054 e006 | | Load 0x0,0x6
0055 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0056 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0057 00e3 | | Load_Encached Natural_Cache
0058 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0059 00e3 | | Load_Encached Natural_Cache
005a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005b 00e3 | | Load_Encached Natural_Cache
005c 00e3 | | Load_Encached Natural_Cache
005d 00e3 | | Load_Encached Natural_Cache
005e 00e3 | | Load_Encached Natural_Cache
005f 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0061 4804 |H | Short_Literal 0x4
0062 032d | - | Declare_Type Record,Defined
0063 029e 021b | | Declare_Subprogram INIT_0218,For_Call,Unelaborated
0065 4813 |H | Short_Literal 0x13
0066 4802 |H | Short_Literal 0x2
0067 0099 | | Action Reference_Dynamic
0068 00c7 | | Action Elaborate_Subprogram
0069 029f 029b | | Declare_Subprogram INIT_0298,For_Call
006b 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
006d 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
006f 4813 |H | Short_Literal 0x13
0070 4802 |H | Short_Literal 0x2
0071 0099 | | Action Reference_Dynamic
0072 00c6 | | Action Check_Subprogram_Elaborated
0073 4814 |H | Short_Literal 0x14
0074 4802 |H | Short_Literal 0x2
0075 0099 | | Action Reference_Dynamic
0076 4816 |H | Short_Literal 0x16
0077 4802 |H | Short_Literal 0x2
0078 0099 | | Action Reference_Dynamic
0079 4815 |H | Short_Literal 0x15
007a 4802 |H | Short_Literal 0x2
007b 0099 | | Action Reference_Dynamic
007c e007 | | Load 0x0,0x7
007d e008 | | Load 0x0,0x8
007e 481c |H | Short_Literal 0x1c
007f 0007 | | Action Break_Optional
0080 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
0082 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0084 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0085 00c6 | | Action Check_Subprogram_Elaborated
0086 481e |H | Short_Literal 0x1e
0087 4802 |H | Short_Literal 0x2
0088 0099 | | Action Reference_Dynamic
0089 e009 | | Load 0x0,0x9
008a e00a | | Load 0x0,0xa
008b 4822 |H" | Short_Literal 0x22
008c 0007 | | Action Break_Optional
008d BODY_0020:
008d e407 | | Load 0x2,0x7
008e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
008f e407 | | Load 0x2,0x7
0090 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0091 c408 | | Store 0x2,0x8
0092 e5ff | | Load 0x2,-0x1
0093 481f |H | Short_Literal 0x1f
0094 4802 |H | Short_Literal 0x2
0095 0099 | | Action Reference_Dynamic
0096 4820 |H | Short_Literal 0x20
0097 4802 |H | Short_Literal 0x2
0098 0099 | | Action Reference_Dynamic
0099 8211 | | Call 0x1,0x11
009a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00af | | .CONST 0x00af ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0005 | | .CONST 0x0005 ; Number of locals
00a3 INIT_00a0:
00a3 e006 | | Load 0x0,0x6
00a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00a6 02c7 | | Declare_Variable Any
00a7 00d8 | | Load_Top At_Offset_0
00a8 1c00 | | Execute_Immediate Run_Utility,0x0
00a9 e006 | | Load 0x0,0x6
00aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ac 00ec | | Load_Encached Diana_Tree_Cache
00ad e006 | | Load 0x0,0x6
00ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00af BODY_00a0:
00af e006 | | Load 0x0,0x6
00b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b2 e402 | | Load 0x2,0x2
00b3 6034 |`4 | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00004000}
00b4 e00b | | Load 0x0,0xb
00b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b6 e00c | | Load 0x0,0xc
00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b8 e00d | | Load 0x0,0xd
00b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ba 4801 |H | Short_Literal 0x1
00bb 4800 |H | Short_Literal 0x0
00bc e00c | | Load 0x0,0xc
00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00be e006 | | Load 0x0,0x6
00bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c1 e5fd | | Load 0x2,-0x3
00c2 e006 | | Load 0x0,0x6
00c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c5 c402 | | Store 0x2,0x2
00c6 005b | [ | Store_Top Discrete,At_Offset_3
00c7 00cf | | Action Mark_Auxiliary
00c8 7817 |x | Jump 0xe0
00c9 e006 | | Load 0x0,0x6
00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cb 00ec | | Load_Encached Diana_Tree_Cache
00cc 601b |` | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00004000}
00cd e00b | | Load 0x0,0xb
00ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cf e402 | | Load 0x2,0x2
00d0 e006 | | Load 0x0,0x6
00d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00d3 c404 | | Store 0x2,0x4
00d4 005a | Z | Store_Top Discrete,At_Offset_2
00d5 00d9 | | Load_Top At_Offset_1
00d6 6801 |h | Jump_Zero 0xd8
00d7 0887 | | Execute_Immediate Raise,0x87
00d8 00da | | Load_Top At_Offset_2
00d9 85fe | | Call 0x2,-0x2
00da e402 | | Load 0x2,0x2
00db e006 | | Load 0x0,0x6
00dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00de c402 | | Store 0x2,0x2
00df 00c9 | | Action Pop_Auxiliary_Loop
00e0 e402 | | Load 0x2,0x2
00e1 e006 | | Load 0x0,0x6
00e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e4 6fe4 |o | Jump_Zero 0xc9
00e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e6 0000 0000 | | .XXX[0x2]
00e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0122 | " | .CONST 0x0122 ; Address of begin
00f1 01f4 | | .CONST 0x01f4 ; Address of exception handler
00f2 000f | | .CONST 0x000f ; Number of locals
00f3 INIT_00f0:
00f3 e006 | | Load 0x0,0x6
00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f5 02c7 | | Declare_Variable Any
00f6 00d8 | | Load_Top At_Offset_0
00f7 1c00 | | Execute_Immediate Run_Utility,0x0
00f8 e006 | | Load 0x0,0x6
00f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fb e006 | | Load 0x0,0x6
00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fd e006 | | Load 0x0,0x6
00fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ff 02c7 | | Declare_Variable Any
0100 00d8 | | Load_Top At_Offset_0
0101 1c00 | | Execute_Immediate Run_Utility,0x0
0102 e00e | | Load 0x0,0xe
0103 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0104 e00e | | Load 0x0,0xe
0105 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0106 02c7 | | Declare_Variable Any
0107 00d8 | | Load_Top At_Offset_0
0108 1c00 | | Execute_Immediate Run_Utility,0x0
0109 e006 | | Load 0x0,0x6
010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010b 02c7 | | Declare_Variable Any
010c 00d8 | | Load_Top At_Offset_0
010d 1c00 | | Execute_Immediate Run_Utility,0x0
010e e006 | | Load 0x0,0x6
010f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0110 02c7 | | Declare_Variable Any
0111 00d8 | | Load_Top At_Offset_0
0112 1c00 | | Execute_Immediate Run_Utility,0x0
0113 e006 | | Load 0x0,0x6
0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
011a 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
011c 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
011e 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0120 029f 0593 | | Declare_Subprogram INIT_0590,For_Call
0122 BODY_00f0:
0122 00be | | Action Activate_Tasks
0123 00ec | | Load_Encached Diana_Tree_Cache
0124 a5fc | | Store_Unchecked 0x2,-0x4
0125 4800 |H | Short_Literal 0x0
0126 a5fb | | Store_Unchecked 0x2,-0x5
0127 e006 | | Load 0x0,0x6
0128 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0129 c5fd | | Store 0x2,-0x3
012a e5fe | | Load 0x2,-0x2
012b 0092 0629 | )| Action Push_String_Extended,0x629 ; "<ACTIVITY>"
012d 01df | | Execute Vector,Equal
012e 6804 |h | Jump_Zero 0x133
012f e00e | | Load 0x0,0xe
0130 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0131 c402 | | Store 0x2,0x2
0132 7821 |x! | Jump 0x154
0133 e006 | | Load 0x0,0x6
0134 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0135 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0136 e402 | | Load 0x2,0x2
0137 0120 | | Execute Any,Is_Value
0138 6803 |h | Jump_Zero 0x13c
0139 e006 | | Load 0x0,0x6
013a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013b 7801 |x | Jump 0x13d
013c e402 | | Load 0x2,0x2
013d 67aa |g | Indirect_Literal Discrete,0xe8,{0x00000000, 0x00004000}
013e e00b | | Load 0x0,0xb
013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0140 e00c | | Load 0x0,0xc
0141 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0142 e006 | | Load 0x0,0x6
0143 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0144 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0145 e5fe | | Load 0x2,-0x2
0146 e006 | | Load 0x0,0x6
0147 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0148 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0149 c402 | | Store 0x2,0x2
014a c403 | | Store 0x2,0x3
014b e403 | | Load 0x2,0x3
014c 840b | | Call 0x2,0xb
014d 7001 |p | Jump_Nonzero 0x14f
014e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014f e402 | | Load 0x2,0x2
0150 e00e | | Load 0x0,0xe
0151 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0152 7001 |p | Jump_Nonzero 0x154
0153 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0154 e402 | | Load 0x2,0x2
0155 c5fd | | Store 0x2,-0x3
0156 e5ff | | Load 0x2,-0x1
0157 840f | | Call 0x2,0xf
0158 c405 | | Store 0x2,0x5
0159 e00e | | Load 0x0,0xe
015a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
015b 0124 | $ | Execute Any,Is_Constrained
015c 700b |p | Jump_Nonzero 0x168
015d e00e | | Load 0x0,0xe
015e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
015f 1c09 | | Execute_Immediate Run_Utility,0x9
0160 e00e | | Load 0x0,0xe
0161 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0162 e00c | | Load 0x0,0xc
0163 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0164 e00d | | Load 0x0,0xd
0165 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0166 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype
0167 7807 |x | Jump 0x16f
0168 e00e | | Load 0x0,0xe
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a e00c | | Load 0x0,0xc
016b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016c e00d | | Load 0x0,0xd
016d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016e 039c | | Declare_Variable Heap_Access,By_Allocation
016f a406 | | Store_Unchecked 0x2,0x6
0170 e406 | | Load 0x2,0x6
0171 e006 | | Load 0x0,0x6
0172 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0173 00d9 | | Load_Top At_Offset_1
0174 0219 | | Execute Heap_Access,All_Read
0175 4800 |H | Short_Literal 0x0
0176 4800 |H | Short_Literal 0x0
0177 e00b | | Load 0x0,0xb
0178 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0179 e402 | | Load 0x2,0x2
017a e00e | | Load 0x0,0xe
017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017c 00da | | Load_Top At_Offset_2
017d 0218 | | Execute Heap_Access,All_Write
017e c404 | | Store 0x2,0x4
017f 00d1 | | Pop_Control Pop_Count_1
0180 e404 | | Load 0x2,0x4
0181 840c | | Call 0x2,0xc
0182 7001 |p | Jump_Nonzero 0x184
0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0184 e407 | | Load 0x2,0x7
0185 0120 | | Execute Any,Is_Value
0186 6803 |h | Jump_Zero 0x18a
0187 e00e | | Load 0x0,0xe
0188 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0189 7801 |x | Jump 0x18b
018a e407 | | Load 0x2,0x7
018b e406 | | Load 0x2,0x6
018c e00e | | Load 0x0,0xe
018d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
018e c407 | | Store 0x2,0x7
018f 00cf | | Action Mark_Auxiliary
0190 7853 |xS | Jump 0x1e4
0191 e407 | | Load 0x2,0x7
0192 e00e | | Load 0x0,0xe
0193 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0194 c408 | | Store 0x2,0x8
0195 e406 | | Load 0x2,0x6
0196 0219 | | Execute Heap_Access,All_Read
0197 e408 | | Load 0x2,0x8
0198 e00e | | Load 0x0,0xe
0199 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
019a c409 | | Store 0x2,0x9
019b e409 | | Load 0x2,0x9
019c e405 | | Load 0x2,0x5
019d 012f | / | Execute Any,Equal
019e 681e |h | Jump_Zero 0x1bd
019f e409 | | Load 0x2,0x9
01a0 e006 | | Load 0x0,0x6
01a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a2 012e | . | Execute Any,Not_Equal
01a3 6819 |h | Jump_Zero 0x1bd
01a4 e406 | | Load 0x2,0x6
01a5 0219 | | Execute Heap_Access,All_Read
01a6 e408 | | Load 0x2,0x8
01a7 e00e | | Load 0x0,0xe
01a8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01a9 c40a | | Store 0x2,0xa
01aa e406 | | Load 0x2,0x6
01ab e006 | | Load 0x0,0x6
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 00d9 | | Load_Top At_Offset_1
01ae 0219 | | Execute Heap_Access,All_Read
01af e00e | | Load 0x0,0xe
01b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b1 00da | | Load_Top At_Offset_2
01b2 0218 | | Execute Heap_Access,All_Write
01b3 c404 | | Store 0x2,0x4
01b4 00d1 | | Pop_Control Pop_Count_1
01b5 4800 |H | Short_Literal 0x0
01b6 a5fb | | Store_Unchecked 0x2,-0x5
01b7 e40a | | Load 0x2,0xa
01b8 e405 | | Load 0x2,0x5
01b9 e5ff | | Load 0x2,-0x1
01ba 840e | | Call 0x2,0xe
01bb a5fc | | Store_Unchecked 0x2,-0x4
01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bd e406 | | Load 0x2,0x6
01be 0219 | | Execute Heap_Access,All_Read
01bf e408 | | Load 0x2,0x8
01c0 e00e | | Load 0x0,0xe
01c1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c2 c40a | | Store 0x2,0xa
01c3 e40a | | Load 0x2,0xa
01c4 e405 | | Load 0x2,0x5
01c5 012f | / | Execute Any,Equal
01c6 6818 |h | Jump_Zero 0x1df
01c7 e40a | | Load 0x2,0xa
01c8 e006 | | Load 0x0,0x6
01c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ca 012e | . | Execute Any,Not_Equal
01cb 6813 |h | Jump_Zero 0x1df
01cc e406 | | Load 0x2,0x6
01cd e006 | | Load 0x0,0x6
01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cf 00d9 | | Load_Top At_Offset_1
01d0 0219 | | Execute Heap_Access,All_Read
01d1 e00e | | Load 0x0,0xe
01d2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d3 00da | | Load_Top At_Offset_2
01d4 0218 | | Execute Heap_Access,All_Write
01d5 c404 | | Store 0x2,0x4
01d6 00d1 | | Pop_Control Pop_Count_1
01d7 4801 |H | Short_Literal 0x1
01d8 a5fb | | Store_Unchecked 0x2,-0x5
01d9 e409 | | Load 0x2,0x9
01da e405 | | Load 0x2,0x5
01db e5ff | | Load 0x2,-0x1
01dc 840e | | Call 0x2,0xe
01dd a5fc | | Store_Unchecked 0x2,-0x4
01de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01df e407 | | Load 0x2,0x7
01e0 e00e | | Load 0x0,0xe
01e1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01e2 c407 | | Store 0x2,0x7
01e3 00c9 | | Action Pop_Auxiliary_Loop
01e4 e407 | | Load 0x2,0x7
01e5 e00e | | Load 0x0,0xe
01e6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
01e7 6fa9 |o | Jump_Zero 0x191
01e8 00ce | | Action Pop_Auxiliary
01e9 e406 | | Load 0x2,0x6
01ea e006 | | Load 0x0,0x6
01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ec 00d9 | | Load_Top At_Offset_1
01ed 0219 | | Execute Heap_Access,All_Read
01ee e00e | | Load 0x0,0xe
01ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f0 00da | | Load_Top At_Offset_2
01f1 0218 | | Execute Heap_Access,All_Write
01f2 c404 | | Store 0x2,0x4
01f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f4 TRAP_00f0:
01f4 0007 | | Action Break_Optional
01f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 4608 |F | Jump_Case 0x9
01fc 7808 |x | Jump 0x205 ; case 0x0
01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01fe 7813 |x | Jump 0x212 ; case 0x2
01ff 7812 |x | Jump 0x212 ; case 0x3
0200 7811 |x | Jump 0x212 ; case 0x4
0201 7810 |x | Jump 0x212 ; case 0x5
0202 780f |x | Jump 0x212 ; case 0x6
0203 780e |x | Jump 0x212 ; case 0x7
0204 780d |x | Jump 0x212 ; case 0x8
0205 4800 |H | Short_Literal 0x0
0206 00db | | Load_Top At_Offset_3
0207 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0208 4800 |H | Short_Literal 0x0
0209 00db | | Load_Top At_Offset_3
020a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020b 4800 |H | Short_Literal 0x0
020c 00db | | Load_Top At_Offset_3
020d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020e 4800 |H | Short_Literal 0x0
020f 00db | | Load_Top At_Offset_3
0210 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0212 0869 | i | Execute_Immediate Raise,0x69
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 022e | . | .CONST 0x022e ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0007 | | .CONST 0x0007 ; Number of locals
021b INIT_0218:
021b e00f | | Load 0x0,0xf
021c 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
021d 02c7 | | Declare_Variable Any
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 e006 | | Load 0x0,0x6
0221 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0222 02c7 | | Declare_Variable Any
0223 00d8 | | Load_Top At_Offset_0
0224 1c00 | | Execute_Immediate Run_Utility,0x0
0225 00ec | | Load_Encached Diana_Tree_Cache
0226 00e1 | | Load_Encached Boolean_Cache
0227 e00f | | Load 0x0,0xf
0228 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0229 02c7 | | Declare_Variable Any
022a 00d8 | | Load_Top At_Offset_0
022b 1c00 | | Execute_Immediate Run_Utility,0x0
022c 029f 0613 | | Declare_Subprogram INIT_0610,For_Call
022e BODY_0218:
022e e7f9 | | Load 0x3,-0x7
022f e7fb | | Load 0x3,-0x5
0230 87fc | | Call 0x3,-0x4
0231 e7fb | | Load 0x3,-0x5
0232 4975 |Iu | Short_Literal 0x175
0233 00eb | | Load_Encached Diana_Cache
0234 0098 | | Execute Package,Field_Read_Dynamic
0235 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0236 a40d | | Store_Unchecked 0x2,0xd
0237 00e1 | | Load_Encached Boolean_Cache
0238 00ec | | Load_Encached Diana_Tree_Cache
0239 e603 | | Load 0x3,0x3
023a 0120 | | Execute Any,Is_Value
023b 6803 |h | Jump_Zero 0x23f
023c e006 | | Load 0x0,0x6
023d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023e 7801 |x | Jump 0x240
023f e603 | | Load 0x3,0x3
0240 e7fa | | Load 0x3,-0x6
0241 e7fb | | Load 0x3,-0x5
0242 8212 | | Call 0x1,0x12
0243 c603 | | Store 0x3,0x3
0244 c604 | | Store 0x3,0x4
0245 005b | [ | Store_Top Discrete,At_Offset_3
0246 00db | | Load_Top At_Offset_3
0247 680a |h | Jump_Zero 0x252
0248 00da | | Load_Top At_Offset_2
0249 4801 |H | Short_Literal 0x1
024a 87fd | | Call 0x3,-0x3
024b 00db | | Load_Top At_Offset_3
024c e7fb | | Load 0x3,-0x5
024d 4975 |Iu | Short_Literal 0x175
024e 00eb | | Load_Encached Diana_Cache
024f 0098 | | Execute Package,Field_Read_Dynamic
0250 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0251 a40d | | Store_Unchecked 0x2,0xd
0252 00e1 | | Load_Encached Boolean_Cache
0253 00da | | Load_Top At_Offset_2
0254 0120 | | Execute Any,Is_Value
0255 6803 |h | Jump_Zero 0x259
0256 e00f | | Load 0x0,0xf
0257 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0258 7801 |x | Jump 0x25a
0259 00da | | Load_Top At_Offset_2
025a e010 | | Load 0x0,0x10
025b 180e | | Execute Package,Field_Execute,Field_Number 0xe
025c e00b | | Load 0x0,0xb
025d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025e e00c | | Load 0x0,0xc
025f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0260 e00d | | Load 0x0,0xd
0261 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0262 00ea | | Load_Encached Null_String_Cache
0263 4800 |H | Short_Literal 0x0
0264 e00f | | Load 0x0,0xf
0265 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0266 e00f | | Load 0x0,0xf
0267 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0268 e006 | | Load 0x0,0x6
0269 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026a 00ea | | Load_Encached Null_String_Cache
026b e7f9 | | Load 0x3,-0x7
026c e40d | | Load 0x2,0xd
026d e00f | | Load 0x0,0xf
026e 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
026f c606 | | Store 0x3,0x6
0270 c40a | | Store 0x2,0xa
0271 e40a | | Load 0x2,0xa
0272 6820 |h | Jump_Zero 0x293
0273 00d9 | | Load_Top At_Offset_1
0274 e00f | | Load 0x0,0xf
0275 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0276 c602 | | Store 0x3,0x2
0277 00cf | | Action Mark_Auxiliary
0278 7815 |x | Jump 0x28e
0279 e602 | | Load 0x3,0x2
027a e00f | | Load 0x0,0xf
027b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
027c e7f9 | | Load 0x3,-0x7
027d e602 | | Load 0x3,0x2
027e e00f | | Load 0x0,0xf
027f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0280 e602 | | Load 0x3,0x2
0281 e00f | | Load 0x0,0xf
0282 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0283 e602 | | Load 0x3,0x2
0284 8607 | | Call 0x3,0x7
0285 e602 | | Load 0x3,0x2
0286 e00f | | Load 0x0,0xf
0287 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0288 87fe | | Call 0x3,-0x2
0289 e602 | | Load 0x3,0x2
028a e00f | | Load 0x0,0xf
028b 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
028c c602 | | Store 0x3,0x2
028d 00c9 | | Action Pop_Auxiliary_Loop
028e e602 | | Load 0x3,0x2
028f e00f | | Load 0x0,0xf
0290 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0291 6fe7 |o | Jump_Zero 0x279
0292 00ce | | Action Pop_Auxiliary
0293 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e408 | | Load 0x2,0x8
029c e407 | | Load 0x2,0x7
029d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
029e c408 | | Store 0x2,0x8
029f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a8 | | .CONST 0x02a8 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0004 | | .CONST 0x0004 ; Number of locals
02a3 INIT_02a0:
02a3 e406 | | Load 0x2,0x6
02a4 0007 | | Action Break_Optional
02a5 00e1 | | Load_Encached Boolean_Cache
02a6 e404 | | Load 0x2,0x4
02a7 0322 | " | Declare_Variable Record
02a8 BODY_02a0:
02a8 00e1 | | Load_Encached Boolean_Cache
02a9 00db | | Load_Top At_Offset_3
02aa e7ff | | Load 0x3,-0x1
02ab e408 | | Load 0x2,0x8
02ac e407 | | Load 0x2,0x7
02ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02ae c602 | | Store 0x3,0x2
02af 005a | Z | Store_Top Discrete,At_Offset_2
02b0 00d9 | | Load_Top At_Offset_1
02b1 7032 |p2 | Jump_Nonzero 0x2e4
02b2 e406 | | Load 0x2,0x6
02b3 03bc | | Declare_Variable Access,By_Allocation
02b4 003b | ; | Store_Top Access,At_Offset_3
02b5 00da | | Load_Top At_Offset_2
02b6 e405 | | Load 0x2,0x5
02b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02b8 00d9 | | Load_Top At_Offset_1
02b9 0229 | ) | Execute Access,All_Read
02ba 00d1 | | Pop_Control Pop_Count_1
02bb e405 | | Load 0x2,0x5
02bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02bd 00d9 | | Load_Top At_Offset_1
02be 0228 | ( | Execute Access,All_Write
02bf 00d1 | | Pop_Control Pop_Count_1
02c0 00da | | Load_Top At_Offset_2
02c1 00d8 | | Load_Top At_Offset_0
02c2 0229 | ) | Execute Access,All_Read
02c3 4800 |H | Short_Literal 0x0
02c4 e404 | | Load 0x2,0x4
02c5 0322 | " | Declare_Variable Record
02c6 e7fd | | Load 0x3,-0x3
02c7 e403 | | Load 0x2,0x3
02c8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02c9 00d9 | | Load_Top At_Offset_1
02ca 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02cb e7fe | | Load 0x3,-0x2
02cc e403 | | Load 0x2,0x3
02cd 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02ce 00d9 | | Load_Top At_Offset_1
02cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d0 e7fc | | Load 0x3,-0x4
02d1 00d9 | | Load_Top At_Offset_1
02d2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02d3 e7fb | | Load 0x3,-0x5
02d4 00d9 | | Load_Top At_Offset_1
02d5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02d6 e7fd | | Load 0x3,-0x3
02d7 e405 | | Load 0x2,0x5
02d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d9 00d9 | | Load_Top At_Offset_1
02da 0228 | ( | Execute Access,All_Write
02db 00d1 | | Pop_Control Pop_Count_1
02dc e408 | | Load 0x2,0x8
02dd 4800 |H | Short_Literal 0x0
02de e602 | | Load 0x3,0x2
02df e7ff | | Load 0x3,-0x1
02e0 e407 | | Load 0x2,0x7
02e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e2 c408 | | Store 0x2,0x8
02e3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02e4 00e1 | | Load_Encached Boolean_Cache
02e5 00d9 | | Load_Top At_Offset_1
02e6 e7fd | | Load 0x3,-0x3
02e7 e602 | | Load 0x3,0x2
02e8 0229 | ) | Execute Access,All_Read
02e9 e405 | | Load 0x2,0x5
02ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02eb 00d1 | | Pop_Control Pop_Count_1
02ec 005a | Z | Store_Top Discrete,At_Offset_2
02ed 00d9 | | Load_Top At_Offset_1
02ee 701d |p | Jump_Nonzero 0x30c
02ef 00da | | Load_Top At_Offset_2
02f0 00d8 | | Load_Top At_Offset_0
02f1 0229 | ) | Execute Access,All_Read
02f2 4800 |H | Short_Literal 0x0
02f3 e404 | | Load 0x2,0x4
02f4 0322 | " | Declare_Variable Record
02f5 e7fd | | Load 0x3,-0x3
02f6 e403 | | Load 0x2,0x3
02f7 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02f8 00d9 | | Load_Top At_Offset_1
02f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02fa e7fe | | Load 0x3,-0x2
02fb e403 | | Load 0x2,0x3
02fc 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02fd 00d9 | | Load_Top At_Offset_1
02fe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ff e7fc | | Load 0x3,-0x4
0300 00d9 | | Load_Top At_Offset_1
0301 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0302 e7fb | | Load 0x3,-0x5
0303 00d9 | | Load_Top At_Offset_1
0304 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0305 e7fd | | Load 0x3,-0x3
0306 e405 | | Load 0x2,0x5
0307 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0308 00d9 | | Load_Top At_Offset_1
0309 0228 | ( | Execute Access,All_Write
030a 00d1 | | Pop_Control Pop_Count_1
030b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
030c e410 | | Load 0x2,0x10
030d 0a01 | | Execute_Immediate Plus,0x1
030e c410 | | Store 0x2,0x10
030f 4801 |H | Short_Literal 0x1
0310 e7fe | | Load 0x3,-0x2
0311 0092 062a | *| Action Push_String_Extended,0x62a ; "spec"
0313 e011 | | Load 0x0,0x11
0314 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0315 e7fe | | Load 0x3,-0x2
0316 01dc | | Execute Vector,Last
0317 0afd | | Execute_Immediate Plus,-0x3
0318 027e | ~ | Execute Discrete,Not_Equal
0319 681c |h | Jump_Zero 0x336
031a 00da | | Load_Top At_Offset_2
031b 00d8 | | Load_Top At_Offset_0
031c 0229 | ) | Execute Access,All_Read
031d 4800 |H | Short_Literal 0x0
031e e404 | | Load 0x2,0x4
031f 0322 | " | Declare_Variable Record
0320 e7fd | | Load 0x3,-0x3
0321 e403 | | Load 0x2,0x3
0322 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0323 00d9 | | Load_Top At_Offset_1
0324 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0325 e7fe | | Load 0x3,-0x2
0326 e403 | | Load 0x2,0x3
0327 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0328 00d9 | | Load_Top At_Offset_1
0329 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
032a e7fc | | Load 0x3,-0x4
032b 00d9 | | Load_Top At_Offset_1
032c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
032d e7fb | | Load 0x3,-0x5
032e 00d9 | | Load_Top At_Offset_1
032f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0330 e7fd | | Load 0x3,-0x3
0331 e405 | | Load 0x2,0x5
0332 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0333 00d9 | | Load_Top At_Offset_1
0334 0228 | ( | Execute Access,All_Write
0335 00d1 | | Pop_Control Pop_Count_1
0336 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034c | L | .CONST 0x034c ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0005 | | .CONST 0x0005 ; Number of locals
0343 INIT_0340:
0343 e407 | | Load 0x2,0x7
0344 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0345 0322 | " | Declare_Variable Record
0346 e405 | | Load 0x2,0x5
0347 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0348 0322 | " | Declare_Variable Record
0349 e404 | | Load 0x2,0x4
034a 0322 | " | Declare_Variable Record
034b 00e3 | | Load_Encached Natural_Cache
034c BODY_0340:
034c e7fd | | Load 0x3,-0x3
034d e402 | | Load 0x2,0x2
034e e7ff | | Load 0x3,-0x1
034f 4817 |H | Short_Literal 0x17
0350 4802 |H | Short_Literal 0x2
0351 0099 | | Action Reference_Dynamic
0352 4818 |H | Short_Literal 0x18
0353 4802 |H | Short_Literal 0x2
0354 0099 | | Action Reference_Dynamic
0355 4819 |H | Short_Literal 0x19
0356 4802 |H | Short_Literal 0x2
0357 0099 | | Action Reference_Dynamic
0358 481a |H | Short_Literal 0x1a
0359 4802 |H | Short_Literal 0x2
035a 0099 | | Action Reference_Dynamic
035b 8413 | | Call 0x2,0x13
035c 00db | | Load_Top At_Offset_3
035d e408 | | Load 0x2,0x8
035e e407 | | Load 0x2,0x7
035f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0360 00d1 | | Pop_Control Pop_Count_1
0361 00cf | | Action Mark_Auxiliary
0362 787d |x} | Jump 0x3e0
0363 00e1 | | Load_Encached Boolean_Cache
0364 e409 | | Load 0x2,0x9
0365 e602 | | Load 0x3,0x2
0366 e407 | | Load 0x2,0x7
0367 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0368 e408 | | Load 0x2,0x8
0369 e407 | | Load 0x2,0x7
036a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
036b c409 | | Store 0x2,0x9
036c c40b | | Store 0x2,0xb
036d e7fc | | Load 0x3,-0x4
036e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
036f 0a01 | | Execute_Immediate Plus,0x1
0370 e7fc | | Load 0x3,-0x4
0371 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0372 e5fe | | Load 0x2,-0x2
0373 6808 |h | Jump_Zero 0x37c
0374 0092 062b | +| Action Push_String_Extended,0x62b ; "Subsystem: "
0376 e602 | | Load 0x3,0x2
0377 e407 | | Load 0x2,0x7
0378 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0379 01cc | | Execute Vector,Catenate
037a e012 | | Load 0x0,0x12
037b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
037c 00db | | Load_Top At_Offset_3
037d e409 | | Load 0x2,0x9
037e 0229 | ) | Execute Access,All_Read
037f e405 | | Load 0x2,0x5
0380 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0381 00d1 | | Pop_Control Pop_Count_1
0382 00cf | | Action Mark_Auxiliary
0383 7852 |xR | Jump 0x3d6
0384 e603 | | Load 0x3,0x3
0385 e405 | | Load 0x2,0x5
0386 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0387 e409 | | Load 0x2,0x9
0388 0229 | ) | Execute Access,All_Read
0389 e405 | | Load 0x2,0x5
038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038b e604 | | Load 0x3,0x4
038c 017d | } | Execute Record,Structure_Write
038d 00db | | Load_Top At_Offset_3
038e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
038f 4975 |Iu | Short_Literal 0x175
0390 00eb | | Load_Encached Diana_Cache
0391 0098 | | Execute Package,Field_Read_Dynamic
0392 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0393 005b | [ | Store_Top Discrete,At_Offset_3
0394 00da | | Load_Top At_Offset_2
0395 7002 |p | Jump_Nonzero 0x398
0396 4801 |H | Short_Literal 0x1
0397 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0398 00db | | Load_Top At_Offset_3
0399 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
039a e7fe | | Load 0x3,-0x2
039b 021f | | Execute Heap_Access,Equal
039c 700f |p | Jump_Nonzero 0x3ac
039d e7fc | | Load 0x3,-0x4
039e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
039f 0a01 | | Execute_Immediate Plus,0x1
03a0 e7fc | | Load 0x3,-0x4
03a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03a2 e7fc | | Load 0x3,-0x4
03a3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03a4 e604 | | Load 0x3,0x4
03a5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03a6 4998 |I | Short_Literal 0x198
03a7 00eb | | Load_Encached Diana_Cache
03a8 0096 | | Execute Package,Entry
03a9 0273 | s | Execute Discrete,Plus
03aa e7fc | | Load 0x3,-0x4
03ab 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03ac e7fc | | Load 0x3,-0x4
03ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ae 00db | | Load_Top At_Offset_3
03af 0273 | s | Execute Discrete,Plus
03b0 e7fc | | Load 0x3,-0x4
03b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b2 e5fe | | Load 0x2,-0x2
03b3 681d |h | Jump_Zero 0x3d1
03b4 0092 062c | ,| Action Push_String_Extended,0x62c ; " "
03b6 4820 |H | Short_Literal 0x20
03b7 4805 |H | Short_Literal 0x5
03b8 480a |H | Short_Literal 0xa
03b9 e605 | | Load 0x3,0x5
03ba e011 | | Load 0x0,0x11
03bb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03bc 01cc | | Execute Vector,Catenate
03bd 0092 062d | -| Action Push_String_Extended,0x62d ; " "
03bf 01cc | | Execute Vector,Catenate
03c0 e012 | | Load 0x0,0x12
03c1 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
03c2 00db | | Load_Top At_Offset_3
03c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c4 0227 | ' | Execute Access,All_Reference
03c5 0092 062e | .| Action Push_String_Extended,0x62e ; " ("
03c7 01cc | | Execute Vector,Catenate
03c8 e604 | | Load 0x3,0x4
03c9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ca 0227 | ' | Execute Access,All_Reference
03cb 01cc | | Execute Vector,Catenate
03cc 0092 062f | /| Action Push_String_Extended,0x62f ; ")"
03ce 01cc | | Execute Vector,Catenate
03cf e012 | | Load 0x0,0x12
03d0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03d1 e603 | | Load 0x3,0x3
03d2 e405 | | Load 0x2,0x5
03d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03d4 00d1 | | Pop_Control Pop_Count_1
03d5 00c9 | | Action Pop_Auxiliary_Loop
03d6 e603 | | Load 0x3,0x3
03d7 e405 | | Load 0x2,0x5
03d8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03d9 6faa |o | Jump_Zero 0x384
03da 00ce | | Action Pop_Auxiliary
03db e602 | | Load 0x3,0x2
03dc e407 | | Load 0x2,0x7
03dd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03de 00d1 | | Pop_Control Pop_Count_1
03df 00c9 | | Action Pop_Auxiliary_Loop
03e0 e602 | | Load 0x3,0x2
03e1 e407 | | Load 0x2,0x7
03e2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03e3 6f7f |o | Jump_Zero 0x363
03e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e5 0000 0000 | | .XXX[0x3]
03e7 0000 | |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 0427 | ' | .CONST 0x0427 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0016 | | .CONST 0x0016 ; Number of locals
03eb INIT_03e8:
03eb 00f1 | | Load_Encached Diana_Temp_Seq
03ec 00ec | | Load_Encached Diana_Tree_Cache
03ed 00e1 | | Load_Encached Boolean_Cache
03ee 00e1 | | Load_Encached Boolean_Cache
03ef e412 | | Load 0x2,0x12
03f0 0322 | " | Declare_Variable Record
03f1 00d8 | | Load_Top At_Offset_0
03f2 1c00 | | Execute_Immediate Run_Utility,0x0
03f3 e412 | | Load 0x2,0x12
03f4 0322 | " | Declare_Variable Record
03f5 00d8 | | Load_Top At_Offset_0
03f6 1c00 | | Execute_Immediate Run_Utility,0x0
03f7 e006 | | Load 0x0,0x6
03f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f9 e006 | | Load 0x0,0x6
03fa 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03fb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
03fc 02c7 | | Declare_Variable Any
03fd 00d8 | | Load_Top At_Offset_0
03fe 1c00 | | Execute_Immediate Run_Utility,0x0
03ff e00b | | Load 0x0,0xb
0400 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0401 02c7 | | Declare_Variable Any
0402 e013 | | Load 0x0,0x13
0403 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0404 e00b | | Load 0x0,0xb
0405 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0406 a60a | | Store_Unchecked 0x3,0xa
0407 e006 | | Load 0x0,0x6
0408 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0409 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040a 02c7 | | Declare_Variable Any
040b 00d8 | | Load_Top At_Offset_0
040c 1c00 | | Execute_Immediate Run_Utility,0x0
040d e006 | | Load 0x0,0x6
040e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
040f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0410 02c7 | | Declare_Variable Any
0411 00d8 | | Load_Top At_Offset_0
0412 1c00 | | Execute_Immediate Run_Utility,0x0
0413 00e3 | | Load_Encached Natural_Cache
0414 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0415 00e3 | | Load_Encached Natural_Cache
0416 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0417 00e3 | | Load_Encached Natural_Cache
0418 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0419 00e3 | | Load_Encached Natural_Cache
041a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
041b 00e3 | | Load_Encached Natural_Cache
041c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
041d 00ec | | Load_Encached Diana_Tree_Cache
041e e006 | | Load 0x0,0x6
041f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0420 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0421 02c7 | | Declare_Variable Any
0422 00d8 | | Load_Top At_Offset_0
0423 1c00 | | Execute_Immediate Run_Utility,0x0
0424 00ec | | Load_Encached Diana_Tree_Cache
0425 00ec | | Load_Encached Diana_Tree_Cache
0426 039d | | Declare_Variable Heap_Access,Duplicate
0427 BODY_03e8:
0427 e607 | | Load 0x3,0x7
0428 4804 |H | Short_Literal 0x4
0429 e7ff | | Load 0x3,-0x1
042a 00d8 | | Load_Top At_Offset_0
042b 841d | | Call 0x2,0x1d
042c 00d1 | | Pop_Control Pop_Count_1
042d 4801 |H | Short_Literal 0x1
042e a60f | | Store_Unchecked 0x3,0xf
042f e006 | | Load 0x0,0x6
0430 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0431 e006 | | Load 0x0,0x6
0432 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0433 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0434 e7ff | | Load 0x3,-0x1
0435 e006 | | Load 0x0,0x6
0436 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0437 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0438 c612 | | Store 0x3,0x12
0439 c608 | | Store 0x3,0x8
043a e612 | | Load 0x3,0x12
043b 4998 |I | Short_Literal 0x198
043c 00eb | | Load_Encached Diana_Cache
043d 0096 | | Execute Package,Entry
043e a610 | | Store_Unchecked 0x3,0x10
043f e610 | | Load 0x3,0x10
0440 a411 | | Store_Unchecked 0x2,0x11
0441 e60a | | Load 0x3,0xa
0442 608d |` | Indirect_Literal Discrete,0x4d0,{0x00007fff, 0xffffffff}
0443 e7ff | | Load 0x3,-0x1
0444 4976 |Iv | Short_Literal 0x176
0445 00eb | | Load_Encached Diana_Cache
0446 0098 | | Execute Package,Field_Read_Dynamic
0447 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0448 e014 | | Load 0x0,0x14
0449 180e | | Execute Package,Field_Execute,Field_Number 0xe
044a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
044b 00da | | Load_Top At_Offset_2
044c 686c |hl | Jump_Zero 0x4b9
044d e60f | | Load 0x3,0xf
044e 0a01 | | Execute_Immediate Plus,0x1
044f c60f | | Store 0x3,0xf
0450 e006 | | Load 0x0,0x6
0451 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0452 e006 | | Load 0x0,0x6
0453 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0454 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0455 e614 | | Load 0x3,0x14
0456 e006 | | Load 0x0,0x6
0457 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0458 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0459 c612 | | Store 0x3,0x12
045a c608 | | Store 0x3,0x8
045b e612 | | Load 0x3,0x12
045c 4998 |I | Short_Literal 0x198
045d 00eb | | Load_Encached Diana_Cache
045e 0096 | | Execute Package,Entry
045f a611 | | Store_Unchecked 0x3,0x11
0460 e006 | | Load 0x0,0x6
0461 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0462 e60b | | Load 0x3,0xb
0463 0120 | | Execute Any,Is_Value
0464 6804 |h | Jump_Zero 0x469
0465 e006 | | Load 0x0,0x6
0466 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0467 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0468 7801 |x | Jump 0x46a
0469 e60b | | Load 0x3,0xb
046a e614 | | Load 0x3,0x14
046b e006 | | Load 0x0,0x6
046c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
046d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
046e c60b | | Store 0x3,0xb
046f c608 | | Store 0x3,0x8
0470 e006 | | Load 0x0,0x6
0471 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0472 e609 | | Load 0x3,0x9
0473 0120 | | Execute Any,Is_Value
0474 6804 |h | Jump_Zero 0x479
0475 e006 | | Load 0x0,0x6
0476 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0477 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0478 7801 |x | Jump 0x47a
0479 e609 | | Load 0x3,0x9
047a 6051 |`Q | Indirect_Literal Discrete,0x4cc,{0x00000000, 0x00004000}
047b e60a | | Load 0x3,0xa
047c e60b | | Load 0x3,0xb
047d e006 | | Load 0x0,0x6
047e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
047f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0480 c609 | | Store 0x3,0x9
0481 c608 | | Store 0x3,0x8
0482 00cf | | Action Mark_Auxiliary
0483 782f |x/ | Jump 0x4b3
0484 e609 | | Load 0x3,0x9
0485 e006 | | Load 0x0,0x6
0486 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0487 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0488 c60c | | Store 0x3,0xc
0489 e60d | | Load 0x3,0xd
048a 0a01 | | Execute_Immediate Plus,0x1
048b c60d | | Store 0x3,0xd
048c e006 | | Load 0x0,0x6
048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048e e613 | | Load 0x3,0x13
048f 0120 | | Execute Any,Is_Value
0490 6804 |h | Jump_Zero 0x495
0491 e006 | | Load 0x0,0x6
0492 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0493 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0494 7801 |x | Jump 0x496
0495 e613 | | Load 0x3,0x13
0496 e006 | | Load 0x0,0x6
0497 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0498 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0499 6032 |`2 | Indirect_Literal Discrete,0x4cc,{0x00000000, 0x00004000}
049a 4801 |H | Short_Literal 0x1
049b 4800 |H | Short_Literal 0x0
049c 4800 |H | Short_Literal 0x0
049d e60a | | Load 0x3,0xa
049e 4800 |H | Short_Literal 0x0
049f e60c | | Load 0x3,0xc
04a0 e006 | | Load 0x0,0x6
04a1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04a2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
04a3 c612 | | Store 0x3,0x12
04a4 c613 | | Store 0x3,0x13
04a5 c608 | | Store 0x3,0x8
04a6 e60e | | Load 0x3,0xe
04a7 e612 | | Load 0x3,0x12
04a8 4998 |I | Short_Literal 0x198
04a9 00eb | | Load_Encached Diana_Cache
04aa 0096 | | Execute Package,Entry
04ab 0273 | s | Execute Discrete,Plus
04ac c60e | | Store 0x3,0xe
04ad e609 | | Load 0x3,0x9
04ae e006 | | Load 0x0,0x6
04af 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
04b0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04b1 c609 | | Store 0x3,0x9
04b2 00c9 | | Action Pop_Auxiliary_Loop
04b3 e609 | | Load 0x3,0x9
04b4 e006 | | Load 0x0,0x6
04b5 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
04b6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04b7 6fcc |o | Jump_Zero 0x484
04b8 00ce | | Action Pop_Auxiliary
04b9 e60a | | Load 0x3,0xa
04ba 4800 |H | Short_Literal 0x0
04bb 4800 |H | Short_Literal 0x0
04bc e00b | | Load 0x0,0xb
04bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04be c60a | | Store 0x3,0xa
04bf e607 | | Load 0x3,0x7
04c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04c1 0a01 | | Execute_Immediate Plus,0x1
04c2 c5fd | | Store 0x2,-0x3
04c3 e607 | | Load 0x3,0x7
04c4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04c5 e610 | | Load 0x3,0x10
04c6 0273 | s | Execute Discrete,Plus
04c7 c5fb | | Store 0x2,-0x5
04c8 e607 | | Load 0x3,0x7
04c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04ca a5fc | | Store_Unchecked 0x2,-0x4
04cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04d0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
04d4 0000 0000 | | .BLANK 0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00da | | Load_Top At_Offset_2
04dc 0f00 | | Execute_Immediate Equal,0x0
04dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04de 0000 0000 | | .XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 00da | | Load_Top At_Offset_2
04e4 0f00 | | Execute_Immediate Equal,0x0
04e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e6 0000 0000 | | .XXX[0x2]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f6 | | .CONST 0x04f6 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0004 | | .CONST 0x0004 ; Number of locals
04eb INIT_04e8:
04eb e006 | | Load 0x0,0x6
04ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ed e006 | | Load 0x0,0x6
04ee 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04ef 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04f0 02c7 | | Declare_Variable Any
04f1 00d8 | | Load_Top At_Offset_0
04f2 1c00 | | Execute_Immediate Run_Utility,0x0
04f3 e006 | | Load 0x0,0x6
04f4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04f6 BODY_04e8:
04f6 e006 | | Load 0x0,0x6
04f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f8 00da | | Load_Top At_Offset_2
04f9 0120 | | Execute Any,Is_Value
04fa 6804 |h | Jump_Zero 0x4ff
04fb e006 | | Load 0x0,0x6
04fc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04fd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04fe 7801 |x | Jump 0x500
04ff 00da | | Load_Top At_Offset_2
0500 e006 | | Load 0x0,0x6
0501 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0502 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0503 6018 |` | Indirect_Literal Discrete,0x51c,{0x00000000, 0x00004000}
0504 4801 |H | Short_Literal 0x1
0505 4800 |H | Short_Literal 0x0
0506 4800 |H | Short_Literal 0x0
0507 e00b | | Load 0x0,0xb
0508 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0509 4800 |H | Short_Literal 0x0
050a e7ff | | Load 0x3,-0x1
050b e006 | | Load 0x0,0x6
050c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
050d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
050e e006 | | Load 0x0,0x6
050f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0510 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0511 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0512 c603 | | Store 0x3,0x3
0513 005b | [ | Store_Top Discrete,At_Offset_3
0514 00da | | Load_Top At_Offset_2
0515 840c | | Call 0x2,0xc
0516 7002 |p | Jump_Nonzero 0x519
0517 00ec | | Load_Encached Diana_Tree_Cache
0518 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0519 00d8 | | Load_Top At_Offset_0
051a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051b 0000 | | .XXX[0x1]
051c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 054b | K | .CONST 0x054b ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0009 | | .CONST 0x0009 ; Number of locals
0523 INIT_0520:
0523 00da | | Load_Top At_Offset_2
0524 e006 | | Load 0x0,0x6
0525 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0526 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0527 e7fe | | Load 0x3,-0x2
0528 e006 | | Load 0x0,0x6
0529 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
052a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
052b e7fd | | Load 0x3,-0x3
052c e006 | | Load 0x0,0x6
052d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
052e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
052f 00d8 | | Load_Top At_Offset_0
0530 00db | | Load_Top At_Offset_3
0531 01dd | | Execute Vector,First
0532 00db | | Load_Top At_Offset_3
0533 01db | | Execute Vector,Length
0534 0273 | s | Execute Discrete,Plus
0535 00d8 | | Load_Top At_Offset_0
0536 00e2 | | Load_Encached Integer_Cache
0537 0260 | ` | Execute Discrete,In_Type
0538 7001 |p | Jump_Nonzero 0x53a
0539 0801 | | Execute_Immediate Raise,0x1
053a e602 | | Load 0x3,0x2
053b 01dc | | Execute Vector,Last
053c e602 | | Load 0x3,0x2
053d 01cf | | Execute Vector,Slice_Read
053e 01cc | | Execute Vector,Catenate
053f 0007 | | Action Break_Optional
0540 00ec | | Load_Encached Diana_Tree_Cache
0541 e006 | | Load 0x0,0x6
0542 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0543 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0544 e006 | | Load 0x0,0x6
0545 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0546 02c7 | | Declare_Variable Any
0547 00d8 | | Load_Top At_Offset_0
0548 1c00 | | Execute_Immediate Run_Utility,0x0
0549 e006 | | Load 0x0,0x6
054a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
054b BODY_0520:
054b e006 | | Load 0x0,0x6
054c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
054d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
054e e006 | | Load 0x0,0x6
054f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0550 67cb |g | Indirect_Literal Discrete,0x51c,{0x00000000, 0x00004000}
0551 e00b | | Load 0x0,0xb
0552 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0553 e00c | | Load 0x0,0xc
0554 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0555 e006 | | Load 0x0,0x6
0556 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0557 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0558 e605 | | Load 0x3,0x5
0559 e006 | | Load 0x0,0x6
055a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
055b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
055c c606 | | Store 0x3,0x6
055d 005b | [ | Store_Top Discrete,At_Offset_3
055e 00da | | Load_Top At_Offset_2
055f 840b | | Call 0x2,0xb
0560 7002 |p | Jump_Nonzero 0x563
0561 00ec | | Load_Encached Diana_Tree_Cache
0562 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0563 00db | | Load_Top At_Offset_3
0564 e015 | | Load 0x0,0x15
0565 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0566 6821 |h! | Jump_Zero 0x588
0567 e006 | | Load 0x0,0x6
0568 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0569 00da | | Load_Top At_Offset_2
056a 0120 | | Execute Any,Is_Value
056b 6803 |h | Jump_Zero 0x56f
056c e006 | | Load 0x0,0x6
056d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
056e 7801 |x | Jump 0x570
056f 00da | | Load_Top At_Offset_2
0570 67ab |g | Indirect_Literal Discrete,0x51c,{0x00000000, 0x00004000}
0571 e00b | | Load 0x0,0xb
0572 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0573 4800 |H | Short_Literal 0x0
0574 e006 | | Load 0x0,0x6
0575 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0576 e606 | | Load 0x3,0x6
0577 e006 | | Load 0x0,0x6
0578 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0579 1816 | | Execute Package,Field_Execute,Field_Number 0x16
057a c608 | | Store 0x3,0x8
057b 0059 | Y | Store_Top Discrete,At_Offset_1
057c 00d8 | | Load_Top At_Offset_0
057d 840c | | Call 0x2,0xc
057e 7002 |p | Jump_Nonzero 0x581
057f 00ec | | Load_Encached Diana_Tree_Cache
0580 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0581 00d9 | | Load_Top At_Offset_1
0582 840d | | Call 0x2,0xd
0583 4976 |Iv | Short_Literal 0x176
0584 00eb | | Load_Encached Diana_Cache
0585 0098 | | Execute Package,Field_Read_Dynamic
0586 180f | | Execute Package,Field_Execute,Field_Number 0xf
0587 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0588 00db | | Load_Top At_Offset_3
0589 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
058a 0000 0000 | | .BLANK 0000[0x6]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 05aa | | .CONST 0x05aa ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0006 | | .CONST 0x0006 ; Number of locals
0593 INIT_0590:
0593 e006 | | Load 0x0,0x6
0594 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0595 e006 | | Load 0x0,0x6
0596 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0597 02c7 | | Declare_Variable Any
0598 00d8 | | Load_Top At_Offset_0
0599 1c00 | | Execute_Immediate Run_Utility,0x0
059a e006 | | Load 0x0,0x6
059b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
059c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
059d 02c7 | | Declare_Variable Any
059e 00d8 | | Load_Top At_Offset_0
059f 1c00 | | Execute_Immediate Run_Utility,0x0
05a0 e006 | | Load 0x0,0x6
05a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05a2 02c7 | | Declare_Variable Any
05a3 00d8 | | Load_Top At_Offset_0
05a4 1c00 | | Execute_Immediate Run_Utility,0x0
05a5 e006 | | Load 0x0,0x6
05a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
05a7 02ff | | Declare_Variable Variant_Record
05a8 00d8 | | Load_Top At_Offset_0
05a9 1c00 | | Execute_Immediate Run_Utility,0x0
05aa BODY_0590:
05aa e006 | | Load 0x0,0x6
05ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ac 00d9 | | Load_Top At_Offset_1
05ad e7ff | | Load 0x3,-0x1
05ae e006 | | Load 0x0,0x6
05af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
05b0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05b1 00d1 | | Pop_Control Pop_Count_1
05b2 c602 | | Store 0x3,0x2
05b3 e602 | | Load 0x3,0x2
05b4 840c | | Call 0x2,0xc
05b5 7003 |p | Jump_Nonzero 0x5b9
05b6 e006 | | Load 0x0,0x6
05b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b9 e006 | | Load 0x0,0x6
05ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05bb 00da | | Load_Top At_Offset_2
05bc 0120 | | Execute Any,Is_Value
05bd 6803 |h | Jump_Zero 0x5c1
05be e006 | | Load 0x0,0x6
05bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c0 7801 |x | Jump 0x5c2
05c1 00da | | Load_Top At_Offset_2
05c2 6045 |`E | Indirect_Literal Discrete,0x608,{0x00000000, 0x00004000}
05c3 e00b | | Load 0x0,0xb
05c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05c5 e606 | | Load 0x3,0x6
05c6 e006 | | Load 0x0,0x6
05c7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
05c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05c9 c605 | | Store 0x3,0x5
05ca c602 | | Store 0x3,0x2
05cb e602 | | Load 0x3,0x2
05cc 840c | | Call 0x2,0xc
05cd 7003 |p | Jump_Nonzero 0x5d1
05ce e006 | | Load 0x0,0x6
05cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d1 00d9 | | Load_Top At_Offset_1
05d2 e006 | | Load 0x0,0x6
05d3 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
05d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d5 6817 |h | Jump_Zero 0x5ed
05d6 e006 | | Load 0x0,0x6
05d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d8 e603 | | Load 0x3,0x3
05d9 0120 | | Execute Any,Is_Value
05da 6803 |h | Jump_Zero 0x5de
05db e006 | | Load 0x0,0x6
05dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05dd 7801 |x | Jump 0x5df
05de e603 | | Load 0x3,0x3
05df 00db | | Load_Top At_Offset_3
05e0 e006 | | Load 0x0,0x6
05e1 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
05e2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05e3 c603 | | Store 0x3,0x3
05e4 c602 | | Store 0x3,0x2
05e5 e602 | | Load 0x3,0x2
05e6 840c | | Call 0x2,0xc
05e7 6802 |h | Jump_Zero 0x5ea
05e8 00db | | Load_Top At_Offset_3
05e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ea e006 | | Load 0x0,0x6
05eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ed e006 | | Load 0x0,0x6
05ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ef 00db | | Load_Top At_Offset_3
05f0 0120 | | Execute Any,Is_Value
05f1 6804 |h | Jump_Zero 0x5f6
05f2 e006 | | Load 0x0,0x6
05f3 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
05f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f5 7801 |x | Jump 0x5f7
05f6 00db | | Load_Top At_Offset_3
05f7 00db | | Load_Top At_Offset_3
05f8 e006 | | Load 0x0,0x6
05f9 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
05fa 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05fb c604 | | Store 0x3,0x4
05fc c602 | | Store 0x3,0x2
05fd e602 | | Load 0x3,0x2
05fe 840c | | Call 0x2,0xc
05ff 6805 |h | Jump_Zero 0x605
0600 00da | | Load_Top At_Offset_2
0601 e006 | | Load 0x0,0x6
0602 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0603 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0604 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0605 e006 | | Load 0x0,0x6
0606 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0607 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0608 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
060c 0000 0000 | | .BLANK 0000[0x4]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0619 | | .CONST 0x0619 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0003 | | .CONST 0x0003 ; Number of locals
0613 INIT_0610:
0613 00da | | Load_Top At_Offset_2
0614 e00f | | Load 0x0,0xf
0615 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0616 00db | | Load_Top At_Offset_3
0617 e00f | | Load 0x0,0xf
0618 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0619 BODY_0610:
0619 00d8 | | Load_Top At_Offset_0
061a 01dd | | Execute Vector,First
061b 00da | | Load_Top At_Offset_2
061c 01db | | Execute Vector,Length
061d 0273 | s | Execute Discrete,Plus
061e 0a01 | | Execute_Immediate Plus,0x1
061f 00d8 | | Load_Top At_Offset_0
0620 00e2 | | Load_Encached Integer_Cache
0621 0260 | ` | Execute Discrete,In_Type
0622 7001 |p | Jump_Nonzero 0x624
0623 0801 | | Execute_Immediate Raise,0x1
0624 00d9 | | Load_Top At_Offset_1
0625 01dc | | Execute Vector,Last
0626 00da | | Load_Top At_Offset_2
0627 01cf | | Execute Vector,Slice_Read
0628 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0629 ; --------------------------------------------------------------------------------------
0629 ; STRING TABLE
0629 ; --------------------------------------------------------------------------------------
0629 0010 | | .STRTAB 0x0010->0x0631 ; "<ACTIVITY>"
062a 0018 | | .STRTAB 0x0018->0x0636 ; "spec"
062b 001a | | .STRTAB 0x001a->0x0638 ; "Subsystem: "
062c 0023 | # | .STRTAB 0x0023->0x063d ; " "
062d 0025 | % | .STRTAB 0x0025->0x063f ; " "
062e 0024 | $ | .STRTAB 0x0024->0x0640 ; " ("
062f 0025 | % | .STRTAB 0x0025->0x0641 ; ")"
0630 0024 | $ | .STREND 0x0024->0x0642
0631 3c41 4354 |<ACT| .STRTAB_STRINGS
0642 0000 0000 | | .BLANK 0000[0x6]
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug Table
0648 ; --------------------------------------------------------------------------------------
0648 0004 0011 | | .DEBUG4 0x0004,0x0011,0xa139,0x0000,0x0001,0x0000
064e 0000 0000 | | .BLANK 0000[0x1b2]