|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 09f8 | | .CONST 0x09f8 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 015e | ^ | .CONST 0x015e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 006a | j | .CONST 0x006a ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f 0129 | ) | Execute Any,Make_Visible
0010 e001 | | Load 0x0,0x1
0011 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0012 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0013 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0019 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001b 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
001d 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0021 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0023 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0025 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0027 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0029 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
002b 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
002d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
002f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0031 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0033 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0035 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0037 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0039 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
003b 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
003d 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
003f 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0041 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0043 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
0045 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
0047 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0049 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
004b 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated
004d 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
004f 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
0051 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0053 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
0055 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
0057 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
0059 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
005b 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated
005d 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
005f 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated
0061 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
0063 029a 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call,Visible,Unelaborated
0065 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated
0067 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated
0069 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated
006b 00bf | | Action Accept_Activation
006c e002 | | Load 0x0,0x2
006d 1910 | | Execute Package,Field_Reference,Field_Number 0x10
006e 0007 | | Action Break_Optional
006f e002 | | Load 0x0,0x2
0070 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0071 0007 | | Action Break_Optional
0072 e002 | | Load 0x0,0x2
0073 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0074 0007 | | Action Break_Optional
0075 e002 | | Load 0x0,0x2
0076 194e | N | Execute Package,Field_Reference,Field_Number 0x4e
0077 0007 | | Action Break_Optional
0078 e002 | | Load 0x0,0x2
0079 190f | | Execute Package,Field_Reference,Field_Number 0xf
007a 0007 | | Action Break_Optional
007b e002 | | Load 0x0,0x2
007c 1911 | | Execute Package,Field_Reference,Field_Number 0x11
007d 0007 | | Action Break_Optional
007e e002 | | Load 0x0,0x2
007f 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0080 0007 | | Action Break_Optional
0081 e002 | | Load 0x0,0x2
0082 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0083 0007 | | Action Break_Optional
0084 e002 | | Load 0x0,0x2
0085 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0086 0007 | | Action Break_Optional
0087 e002 | | Load 0x0,0x2
0088 1917 | | Execute Package,Field_Reference,Field_Number 0x17
0089 0007 | | Action Break_Optional
008a e002 | | Load 0x0,0x2
008b 1918 | | Execute Package,Field_Reference,Field_Number 0x18
008c 0007 | | Action Break_Optional
008d e002 | | Load 0x0,0x2
008e 1919 | | Execute Package,Field_Reference,Field_Number 0x19
008f 0007 | | Action Break_Optional
0090 e002 | | Load 0x0,0x2
0091 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0092 0007 | | Action Break_Optional
0093 e002 | | Load 0x0,0x2
0094 194b | K | Execute Package,Field_Reference,Field_Number 0x4b
0095 0007 | | Action Break_Optional
0096 e002 | | Load 0x0,0x2
0097 194d | M | Execute Package,Field_Reference,Field_Number 0x4d
0098 0007 | | Action Break_Optional
0099 e002 | | Load 0x0,0x2
009a 1953 | S | Execute Package,Field_Reference,Field_Number 0x53
009b 0007 | | Action Break_Optional
009c e002 | | Load 0x0,0x2
009d 1954 | T | Execute Package,Field_Reference,Field_Number 0x54
009e 0007 | | Action Break_Optional
009f e002 | | Load 0x0,0x2
00a0 1955 | U | Execute Package,Field_Reference,Field_Number 0x55
00a1 0007 | | Action Break_Optional
00a2 e002 | | Load 0x0,0x2
00a3 1956 | V | Execute Package,Field_Reference,Field_Number 0x56
00a4 0007 | | Action Break_Optional
00a5 4800 |H | Short_Literal 0x0
00a6 e002 | | Load 0x0,0x2
00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a8 011e | | Execute Any,Convert
00a9 4801 |H | Short_Literal 0x1
00aa e002 | | Load 0x0,0x2
00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ac 011e | | Execute Any,Convert
00ad 4802 |H | Short_Literal 0x2
00ae e002 | | Load 0x0,0x2
00af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b0 011e | | Execute Any,Convert
00b1 4fff |O | Short_Literal -0x1
00b2 e002 | | Load 0x0,0x2
00b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b4 011e | | Execute Any,Convert
00b5 e003 | | Load 0x0,0x3
00b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b7 02a0 | | Declare_Subprogram Null_Subprogram
00b8 4800 |H | Short_Literal 0x0
00b9 032d | - | Declare_Type Record,Defined
00ba 00d8 | | Load_Top At_Offset_0
00bb 02a0 | | Declare_Subprogram Null_Subprogram
00bc 03ad | | Declare_Type Heap_Access,Defined
00bd 4800 |H | Short_Literal 0x0
00be e004 | | Load 0x0,0x4
00bf 02a0 | | Declare_Subprogram Null_Subprogram
00c0 038e | | Declare_Type Package,Defined
00c1 0387 | | Declare_Variable Package
00c2 4800 |H | Short_Literal 0x0
00c3 e005 | | Load 0x0,0x5
00c4 02a0 | | Declare_Subprogram Null_Subprogram
00c5 038e | | Declare_Type Package,Defined
00c6 0387 | | Declare_Variable Package
00c7 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
00c9 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call
00cb 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00cc 00c7 | | Action Elaborate_Subprogram
00cd 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
00cf 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
00d1 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
00d3 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
00d5 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00da 00c7 | | Action Elaborate_Subprogram
00db 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00de 00c7 | | Action Elaborate_Subprogram
00df 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00e4 00c7 | | Action Elaborate_Subprogram
00e5 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00e6 00c7 | | Action Elaborate_Subprogram
00e7 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00e8 00c7 | | Action Elaborate_Subprogram
00e9 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
00eb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0100 00c7 | | Action Elaborate_Subprogram
0101 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call
0103 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
0105 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call
0107 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
0109 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
010b 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call
010d 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
010f 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call
0111 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call
0113 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
0115 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call
0117 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0118 00c7 | | Action Elaborate_Subprogram
0119 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
011a 00c7 | | Action Elaborate_Subprogram
011b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
011c 00c7 | | Action Elaborate_Subprogram
011d 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
011e 00c7 | | Action Elaborate_Subprogram
011f 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
0121 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0122 00c7 | | Action Elaborate_Subprogram
0123 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0124 00c7 | | Action Elaborate_Subprogram
0125 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0126 00c7 | | Action Elaborate_Subprogram
0127 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0128 00c7 | | Action Elaborate_Subprogram
0129 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call
012b 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
012c 00c7 | | Action Elaborate_Subprogram
012d 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
012e 00c7 | | Action Elaborate_Subprogram
012f 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0130 00c7 | | Action Elaborate_Subprogram
0131 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0132 00c7 | | Action Elaborate_Subprogram
0133 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0134 00c7 | | Action Elaborate_Subprogram
0135 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call
0137 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0138 00c7 | | Action Elaborate_Subprogram
0139 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
013a 00c7 | | Action Elaborate_Subprogram
013b 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
013c 00c7 | | Action Elaborate_Subprogram
013d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
013e 00c7 | | Action Elaborate_Subprogram
013f 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0140 00c7 | | Action Elaborate_Subprogram
0141 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0142 00c7 | | Action Elaborate_Subprogram
0143 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0144 00c7 | | Action Elaborate_Subprogram
0145 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0146 00c7 | | Action Elaborate_Subprogram
0147 e006 | | Load 0x0,0x6
0148 e007 | | Load 0x0,0x7
0149 e008 | | Load 0x0,0x8
014a e001 | | Load 0x0,0x1
014b e009 | | Load 0x0,0x9
014c e00a | | Load 0x0,0xa
014d e00b | | Load 0x0,0xb
014e 4807 |H | Short_Literal 0x7
014f e254 | T | Load 0x1,0x54
0150 020e | | Execute Module,Augment_Imports
0151 e254 | T | Load 0x1,0x54
0152 020f | | Execute Module,Activate
0153 e007 | | Load 0x0,0x7
0154 e001 | | Load 0x0,0x1
0155 e00b | | Load 0x0,0xb
0156 e009 | | Load 0x0,0x9
0157 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
0158 e00a | | Load 0x0,0xa
0159 4806 |H | Short_Literal 0x6
015a e255 | U | Load 0x1,0x55
015b 020e | | Execute Module,Augment_Imports
015c e255 | U | Load 0x1,0x55
015d 020f | | Execute Module,Activate
015e BODY_0008:
015e 00bc | | Action Signal_Activated
015f 00bb | | Action Signal_Completion
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0173 | s | .CONST 0x0173 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e20d | | Load 0x1,0xd
016c 4801 |H | Short_Literal 0x1
016d e5fe | | Load 0x2,-0x2
016e e5ff | | Load 0x2,-0x1
016f e254 | T | Load 0x1,0x54
0170 180f | | Execute Package,Field_Execute,Field_Number 0xf
0171 c5fd | | Store 0x2,-0x3
0172 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0173 TRAP_0168:
0173 e009 | | Load 0x0,0x9
0174 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0175 010f | | Execute Exception,Equal
0176 7004 |p | Jump_Nonzero 0x17b
0177 e007 | | Load 0x0,0x7
0178 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0179 010f | | Execute Exception,Equal
017a 6803 |h | Jump_Zero 0x17e
017b 480e |H | Short_Literal 0xe
017c a5fd | | Store_Unchecked 0x2,-0x3
017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017e e5fe | | Load 0x2,-0x2
017f e5ff | | Load 0x2,-0x1
0180 8259 | Y | Call 0x1,0x59
0181 480d |H | Short_Literal 0xd
0182 a5fd | | Store_Unchecked 0x2,-0x3
0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0193 | | .CONST 0x0193 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e20d | | Load 0x1,0xd
018c 4803 |H | Short_Literal 0x3
018d e5fe | | Load 0x2,-0x2
018e e5ff | | Load 0x2,-0x1
018f e254 | T | Load 0x1,0x54
0190 180f | | Execute Package,Field_Execute,Field_Number 0xf
0191 c5fd | | Store 0x2,-0x3
0192 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0193 TRAP_0188:
0193 e009 | | Load 0x0,0x9
0194 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0195 010f | | Execute Exception,Equal
0196 7004 |p | Jump_Nonzero 0x19b
0197 e007 | | Load 0x0,0x7
0198 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0199 010f | | Execute Exception,Equal
019a 6803 |h | Jump_Zero 0x19e
019b 480e |H | Short_Literal 0xe
019c a5fd | | Store_Unchecked 0x2,-0x3
019d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019e e5fe | | Load 0x2,-0x2
019f e5ff | | Load 0x2,-0x1
01a0 8259 | Y | Call 0x1,0x59
01a1 480d |H | Short_Literal 0xd
01a2 a5fd | | Store_Unchecked 0x2,-0x3
01a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b3 | | .CONST 0x01b3 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e20d | | Load 0x1,0xd
01ac 4802 |H | Short_Literal 0x2
01ad e5fe | | Load 0x2,-0x2
01ae e5ff | | Load 0x2,-0x1
01af e254 | T | Load 0x1,0x54
01b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01b1 c5fd | | Store 0x2,-0x3
01b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b3 TRAP_01a8:
01b3 e009 | | Load 0x0,0x9
01b4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01b5 010f | | Execute Exception,Equal
01b6 7004 |p | Jump_Nonzero 0x1bb
01b7 e007 | | Load 0x0,0x7
01b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b9 010f | | Execute Exception,Equal
01ba 6803 |h | Jump_Zero 0x1be
01bb 480e |H | Short_Literal 0xe
01bc a5fd | | Store_Unchecked 0x2,-0x3
01bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01be e5fe | | Load 0x2,-0x2
01bf e5ff | | Load 0x2,-0x1
01c0 8259 | Y | Call 0x1,0x59
01c1 480d |H | Short_Literal 0xd
01c2 a5fd | | Store_Unchecked 0x2,-0x3
01c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 01d3 | | .CONST 0x01d3 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e20d | | Load 0x1,0xd
01cc 4804 |H | Short_Literal 0x4
01cd e5fe | | Load 0x2,-0x2
01ce e5ff | | Load 0x2,-0x1
01cf e254 | T | Load 0x1,0x54
01d0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01d1 c5fc | | Store 0x2,-0x4
01d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d3 TRAP_01c8:
01d3 e009 | | Load 0x0,0x9
01d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d5 010f | | Execute Exception,Equal
01d6 7004 |p | Jump_Nonzero 0x1db
01d7 e007 | | Load 0x0,0x7
01d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d9 010f | | Execute Exception,Equal
01da 6803 |h | Jump_Zero 0x1de
01db 480e |H | Short_Literal 0xe
01dc a5fc | | Store_Unchecked 0x2,-0x4
01dd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01de e5fe | | Load 0x2,-0x2
01df e5ff | | Load 0x2,-0x1
01e0 8259 | Y | Call 0x1,0x59
01e1 480d |H | Short_Literal 0xd
01e2 a5fc | | Store_Unchecked 0x2,-0x4
01e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 01f3 | | .CONST 0x01f3 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e20d | | Load 0x1,0xd
01ec 4800 |H | Short_Literal 0x0
01ed e5fe | | Load 0x2,-0x2
01ee e5ff | | Load 0x2,-0x1
01ef e254 | T | Load 0x1,0x54
01f0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f1 c5fd | | Store 0x2,-0x3
01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f3 TRAP_01e8:
01f3 e009 | | Load 0x0,0x9
01f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01f5 010f | | Execute Exception,Equal
01f6 7004 |p | Jump_Nonzero 0x1fb
01f7 e007 | | Load 0x0,0x7
01f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f9 010f | | Execute Exception,Equal
01fa 6803 |h | Jump_Zero 0x1fe
01fb 480e |H | Short_Literal 0xe
01fc a5fd | | Store_Unchecked 0x2,-0x3
01fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fe e5fe | | Load 0x2,-0x2
01ff e5ff | | Load 0x2,-0x1
0200 8259 | Y | Call 0x1,0x59
0201 480d |H | Short_Literal 0xd
0202 a5fd | | Store_Unchecked 0x2,-0x3
0203 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0211 | | .CONST 0x0211 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 00ec | | Load_Encached Diana_Tree_Cache
020c 02c7 | | Declare_Variable Any
020d e5fe | | Load 0x2,-0x2
020e 00eb | | Load_Encached Diana_Cache
020f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0210 a402 | | Store_Unchecked 0x2,0x2
0211 BODY_0208:
0211 4800 |H | Short_Literal 0x0
0212 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 480d |H | Short_Literal 0xd
021c a5fd | | Store_Unchecked 0x2,-0x3
021d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021e 0000 0000 | | .XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 480d |H | Short_Literal 0xd
0224 a5fd | | Store_Unchecked 0x2,-0x3
0225 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 480d |H | Short_Literal 0xd
022c a5fd | | Store_Unchecked 0x2,-0x3
022d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 4801 |H | Short_Literal 0x1
0234 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e20d | | Load 0x1,0xd
023c 4800 |H | Short_Literal 0x0
023d e5fd | | Load 0x2,-0x3
023e e5ff | | Load 0x2,-0x1
023f 825c | \ | Call 0x1,0x5c
0240 c5fc | | Store 0x2,-0x4
0241 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e20d | | Load 0x1,0xd
024c 4801 |H | Short_Literal 0x1
024d e5fd | | Load 0x2,-0x3
024e e5ff | | Load 0x2,-0x1
024f 825c | \ | Call 0x1,0x5c
0250 c5fc | | Store 0x2,-0x4
0251 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e20d | | Load 0x1,0xd
025c 4802 |H | Short_Literal 0x2
025d e5fd | | Load 0x2,-0x3
025e e5ff | | Load 0x2,-0x1
025f 825c | \ | Call 0x1,0x5c
0260 c5fc | | Store 0x2,-0x4
0261 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0275 | u | .CONST 0x0275 ; Address of begin
0269 0287 | | .CONST 0x0287 ; Address of exception handler
026a 0004 | | .CONST 0x0004 ; Number of locals
026b INIT_0268:
026b e20d | | Load 0x1,0xd
026c 060e | | Execute_Immediate Set_Value_Unchecked,0xe
026d e007 | | Load 0x0,0x7
026e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
026f 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0270 02c7 | | Declare_Variable Any
0271 00d8 | | Load_Top At_Offset_0
0272 1c00 | | Execute_Immediate Run_Utility,0x0
0273 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call
0275 BODY_0268:
0275 e20d | | Load 0x1,0xd
0276 4803 |H | Short_Literal 0x3
0277 e5fc | | Load 0x2,-0x4
0278 e5ff | | Load 0x2,-0x1
0279 825c | \ | Call 0x1,0x5c
027a 005b | [ | Store_Top Discrete,At_Offset_3
027b 00da | | Load_Top At_Offset_2
027c 0f0e | | Execute_Immediate Equal,0xe
027d 6806 |h | Jump_Zero 0x284
027e e5ff | | Load 0x2,-0x1
027f 8256 | V | Call 0x1,0x56
0280 e009 | | Load 0x0,0x9
0281 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0282 c403 | | Store 0x2,0x3
0283 8404 | | Call 0x2,0x4
0284 00da | | Load_Top At_Offset_2
0285 a5fb | | Store_Unchecked 0x2,-0x5
0286 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0287 TRAP_0268:
0287 e009 | | Load 0x0,0x9
0288 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0289 010f | | Execute Exception,Equal
028a 7004 |p | Jump_Nonzero 0x28f
028b e007 | | Load 0x0,0x7
028c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028d 010f | | Execute Exception,Equal
028e 6803 |h | Jump_Zero 0x292
028f 480e |H | Short_Literal 0xe
0290 a5fb | | Store_Unchecked 0x2,-0x5
0291 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0292 e5fc | | Load 0x2,-0x4
0293 e5ff | | Load 0x2,-0x1
0294 8259 | Y | Call 0x1,0x59
0295 480d |H | Short_Literal 0xd
0296 a5fb | | Store_Unchecked 0x2,-0x5
0297 4505 |E | Exit_Suprogram New_Top_Offset 0x5
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 e20d | | Load 0x1,0xd
029c 4804 |H | Short_Literal 0x4
029d e5fd | | Load 0x2,-0x3
029e e5ff | | Load 0x2,-0x1
029f 825c | \ | Call 0x1,0x5c
02a0 c5fc | | Store 0x2,-0x4
02a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab e20d | | Load 0x1,0xd
02ac 4806 |H | Short_Literal 0x6
02ad e5fd | | Load 0x2,-0x3
02ae e5ff | | Load 0x2,-0x1
02af 825c | \ | Call 0x1,0x5c
02b0 c5fc | | Store 0x2,-0x4
02b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b2 0000 0000 | | .BLANK 0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e20d | | Load 0x1,0xd
02bc 4807 |H | Short_Literal 0x7
02bd e5fd | | Load 0x2,-0x3
02be e5ff | | Load 0x2,-0x1
02bf 825c | \ | Call 0x1,0x5c
02c0 c5fc | | Store 0x2,-0x4
02c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e20d | | Load 0x1,0xd
02cc 4808 |H | Short_Literal 0x8
02cd e5fe | | Load 0x2,-0x2
02ce e5ff | | Load 0x2,-0x1
02cf 825c | \ | Call 0x1,0x5c
02d0 c5fd | | Store 0x2,-0x3
02d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e20d | | Load 0x1,0xd
02dc 4809 |H | Short_Literal 0x9
02dd e5fc | | Load 0x2,-0x4
02de e5ff | | Load 0x2,-0x1
02df 825c | \ | Call 0x1,0x5c
02e0 c5fb | | Store 0x2,-0x5
02e1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02e2 0000 0000 | | .BLANK 0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb e20d | | Load 0x1,0xd
02ec 480c |H | Short_Literal 0xc
02ed e5fd | | Load 0x2,-0x3
02ee e5ff | | Load 0x2,-0x1
02ef 825c | \ | Call 0x1,0x5c
02f0 c5fc | | Store 0x2,-0x4
02f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02f2 0000 0000 | | .BLANK 0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb e20d | | Load 0x1,0xd
02fc 480c |H | Short_Literal 0xc
02fd e5fc | | Load 0x2,-0x4
02fe e5ff | | Load 0x2,-0x1
02ff 825c | \ | Call 0x1,0x5c
0300 c5fb | | Store 0x2,-0x5
0301 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0317 | | .CONST 0x0317 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0004 | | .CONST 0x0004 ; Number of locals
030b INIT_0308:
030b 00ec | | Load_Encached Diana_Tree_Cache
030c 02c7 | | Declare_Variable Any
030d 00d8 | | Load_Top At_Offset_0
030e 1c00 | | Execute_Immediate Run_Utility,0x0
030f e251 | Q | Load 0x1,0x51
0310 0322 | " | Declare_Variable Record
0311 e5ff | | Load 0x2,-0x1
0312 8256 | V | Call 0x1,0x56
0313 00d9 | | Load_Top At_Offset_1
0314 017d | } | Execute Record,Structure_Write
0315 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
0317 BODY_0308:
0317 e5fe | | Load 0x2,-0x2
0318 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0319 0f71 | q | Execute_Immediate Equal,0x71
031a 7004 |p | Jump_Nonzero 0x31f
031b e5fe | | Load 0x2,-0x2
031c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
031d 0f70 | p | Execute_Immediate Equal,0x70
031e 680a |h | Jump_Zero 0x329
031f e5fe | | Load 0x2,-0x2
0320 00eb | | Load_Encached Diana_Cache
0321 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0322 00eb | | Load_Encached Diana_Cache
0323 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0324 4907 |I | Short_Literal 0x107
0325 00eb | | Load_Encached Diana_Cache
0326 0096 | | Execute Package,Entry
0327 c402 | | Store 0x2,0x2
0328 7802 |x | Jump 0x32b
0329 e5fe | | Load 0x2,-0x2
032a c402 | | Store 0x2,0x2
032b 00da | | Load_Top At_Offset_2
032c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
032d 00d8 | | Load_Top At_Offset_0
032e 4864 |Hd | Short_Literal 0x64
032f 4872 |Hr | Short_Literal 0x72
0330 0262 | b | Execute Discrete,In_Range
0331 6835 |h5 | Jump_Zero 0x367
0332 0a9c | | Execute_Immediate Plus,-0x64
0333 460e |F | Jump_Case 0xf
0334 7824 |x$ | Jump 0x359 ; case 0x0
0335 781c |x | Jump 0x352 ; case 0x1
0336 7831 |x1 | Jump 0x368 ; case 0x2
0337 7830 |x0 | Jump 0x368 ; case 0x3
0338 782f |x/ | Jump 0x368 ; case 0x4
0339 782e |x. | Jump 0x368 ; case 0x5
033a 782d |x- | Jump 0x368 ; case 0x6
033b 7824 |x$ | Jump 0x360 ; case 0x7
033c 7806 |x | Jump 0x343 ; case 0x8
033d 7827 |x' | Jump 0x365 ; case 0x9
033e 7807 |x | Jump 0x346 ; case 0xa
033f 780c |x | Jump 0x34c ; case 0xb
0340 7827 |x' | Jump 0x368 ; case 0xc
0341 7826 |x& | Jump 0x368 ; case 0xd
0342 7800 |x | Jump 0x343 ; case 0xe
0343 480e |H | Short_Literal 0xe
0344 a5fc | | Store_Unchecked 0x2,-0x4
0345 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0346 e5fd | | Load 0x2,-0x3
0347 00da | | Load_Top At_Offset_2
0348 e402 | | Load 0x2,0x2
0349 825d | ] | Call 0x1,0x5d
034a a5fc | | Store_Unchecked 0x2,-0x4
034b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
034c e5fd | | Load 0x2,-0x3
034d 00da | | Load_Top At_Offset_2
034e e402 | | Load 0x2,0x2
034f 825e | ^ | Call 0x1,0x5e
0350 a5fc | | Store_Unchecked 0x2,-0x4
0351 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0352 4800 |H | Short_Literal 0x0
0353 e5fd | | Load 0x2,-0x3
0354 00db | | Load_Top At_Offset_3
0355 e402 | | Load 0x2,0x2
0356 8264 | d | Call 0x1,0x64
0357 a5fc | | Store_Unchecked 0x2,-0x4
0358 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0359 4800 |H | Short_Literal 0x0
035a e5fd | | Load 0x2,-0x3
035b 00db | | Load_Top At_Offset_3
035c e402 | | Load 0x2,0x2
035d 8263 | c | Call 0x1,0x63
035e a5fc | | Store_Unchecked 0x2,-0x4
035f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0360 e5fd | | Load 0x2,-0x3
0361 00da | | Load_Top At_Offset_2
0362 8265 | e | Call 0x1,0x65
0363 a5fc | | Store_Unchecked 0x2,-0x4
0364 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0365 8404 | | Call 0x2,0x4
0366 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0367 00d1 | | Pop_Control Pop_Count_1
0368 480d |H | Short_Literal 0xd
0369 a5fc | | Store_Unchecked 0x2,-0x4
036a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0385 | | .CONST 0x0385 ; Address of begin
0371 03f1 | | .CONST 0x03f1 ; Address of exception handler
0372 0005 | | .CONST 0x0005 ; Number of locals
0373 INIT_0370:
0373 00eb | | Load_Encached Diana_Cache
0374 1b96 | | Execute Package,Field_Read,Field_Number 0x96
0375 02c7 | | Declare_Variable Any
0376 00d8 | | Load_Top At_Offset_0
0377 1c00 | | Execute_Immediate Run_Utility,0x0
0378 00e1 | | Load_Encached Boolean_Cache
0379 e007 | | Load 0x0,0x7
037a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
037b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
037c 02c7 | | Declare_Variable Any
037d 00d8 | | Load_Top At_Offset_0
037e 1c00 | | Execute_Immediate Run_Utility,0x0
037f e007 | | Load 0x0,0x7
0380 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0381 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0382 02c7 | | Declare_Variable Any
0383 00d8 | | Load_Top At_Offset_0
0384 1c00 | | Execute_Immediate Run_Utility,0x0
0385 BODY_0370:
0385 480e |H | Short_Literal 0xe
0386 a5fc | | Store_Unchecked 0x2,-0x4
0387 e5ff | | Load 0x2,-0x1
0388 e001 | | Load 0x0,0x1
0389 1b13 | | Execute Package,Field_Read,Field_Number 0x13
038a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
038b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
038c e009 | | Load 0x0,0x9
038d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
038e e007 | | Load 0x0,0x7
038f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0390 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0391 c405 | | Store 0x2,0x5
0392 00d8 | | Load_Top At_Offset_0
0393 e007 | | Load 0x0,0x7
0394 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0395 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0396 7008 |p | Jump_Nonzero 0x39f
0397 e5fe | | Load 0x2,-0x2
0398 4903 |I | Short_Literal 0x103
0399 00eb | | Load_Encached Diana_Cache
039a 0096 | | Execute Package,Entry
039b 6803 |h | Jump_Zero 0x39f
039c 480d |H | Short_Literal 0xd
039d a5fc | | Store_Unchecked 0x2,-0x4
039e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
039f e5fe | | Load 0x2,-0x2
03a0 e00c | | Load 0x0,0xc
03a1 180d | | Execute Package,Field_Execute,Field_Number 0xd
03a2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03a3 0b73 | s | Execute_Immediate Case_Compare,0x73
03a4 7005 |p | Jump_Nonzero 0x3aa
03a5 0f6b | k | Execute_Immediate Equal,0x6b
03a6 7027 |p' | Jump_Nonzero 0x3ce
03a7 480d |H | Short_Literal 0xd
03a8 a5fc | | Store_Unchecked 0x2,-0x4
03a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03aa 00d1 | | Pop_Control Pop_Count_1
03ab 00d8 | | Load_Top At_Offset_0
03ac e007 | | Load 0x0,0x7
03ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03af 7003 |p | Jump_Nonzero 0x3b3
03b0 480d |H | Short_Literal 0xd
03b1 a5fc | | Store_Unchecked 0x2,-0x4
03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03b3 00db | | Load_Top At_Offset_3
03b4 0120 | | Execute Any,Is_Value
03b5 6803 |h | Jump_Zero 0x3b9
03b6 00eb | | Load_Encached Diana_Cache
03b7 1b96 | | Execute Package,Field_Read,Field_Number 0x96
03b8 7801 |x | Jump 0x3ba
03b9 00db | | Load_Top At_Offset_3
03ba 00e1 | | Load_Encached Boolean_Cache
03bb e5fd | | Load 0x2,-0x3
03bc e00d | | Load 0x0,0xd
03bd 180d | | Execute Package,Field_Execute,Field_Number 0xd
03be c403 | | Store 0x2,0x3
03bf c402 | | Store 0x2,0x2
03c0 00da | | Load_Top At_Offset_2
03c1 682e |h. | Jump_Zero 0x3f0
03c2 00d8 | | Load_Top At_Offset_0
03c3 e007 | | Load 0x0,0x7
03c4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03c6 e402 | | Load 0x2,0x2
03c7 00eb | | Load_Encached Diana_Cache
03c8 189f | | Execute Package,Field_Execute,Field_Number 0x9f
03c9 027c | | | Execute Discrete,Less
03ca 6825 |h% | Jump_Zero 0x3f0
03cb 480d |H | Short_Literal 0xd
03cc a5fc | | Store_Unchecked 0x2,-0x4
03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ce 00d8 | | Load_Top At_Offset_0
03cf e007 | | Load 0x0,0x7
03d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03d1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03d2 7003 |p | Jump_Nonzero 0x3d6
03d3 480d |H | Short_Literal 0xd
03d4 a5fc | | Store_Unchecked 0x2,-0x4
03d5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03d6 00db | | Load_Top At_Offset_3
03d7 0120 | | Execute Any,Is_Value
03d8 6803 |h | Jump_Zero 0x3dc
03d9 00eb | | Load_Encached Diana_Cache
03da 1b96 | | Execute Package,Field_Read,Field_Number 0x96
03db 7801 |x | Jump 0x3dd
03dc 00db | | Load_Top At_Offset_3
03dd 00e1 | | Load_Encached Boolean_Cache
03de e5fd | | Load 0x2,-0x3
03df e00d | | Load 0x0,0xd
03e0 180d | | Execute Package,Field_Execute,Field_Number 0xd
03e1 c403 | | Store 0x2,0x3
03e2 c402 | | Store 0x2,0x2
03e3 00da | | Load_Top At_Offset_2
03e4 680b |h | Jump_Zero 0x3f0
03e5 00d8 | | Load_Top At_Offset_0
03e6 e007 | | Load 0x0,0x7
03e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03e8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03e9 e402 | | Load 0x2,0x2
03ea 00eb | | Load_Encached Diana_Cache
03eb 189f | | Execute Package,Field_Execute,Field_Number 0x9f
03ec 027c | | | Execute Discrete,Less
03ed 6802 |h | Jump_Zero 0x3f0
03ee 480d |H | Short_Literal 0xd
03ef a5fc | | Store_Unchecked 0x2,-0x4
03f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f1 TRAP_0370:
03f1 e007 | | Load 0x0,0x7
03f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f3 010f | | Execute Exception,Equal
03f4 7004 |p | Jump_Nonzero 0x3f9
03f5 e009 | | Load 0x0,0x9
03f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03f7 010f | | Execute Exception,Equal
03f8 6803 |h | Jump_Zero 0x3fc
03f9 480e |H | Short_Literal 0xe
03fa a5fc | | Store_Unchecked 0x2,-0x4
03fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03fc 480d |H | Short_Literal 0xd
03fd a5fc | | Store_Unchecked 0x2,-0x4
03fe e5fe | | Load 0x2,-0x2
03ff e5ff | | Load 0x2,-0x1
0400 8259 | Y | Call 0x1,0x59
0401 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0402 0000 0000 | | .BLANK 0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040f | | .CONST 0x040f ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0003 | | .CONST 0x0003 ; Number of locals
040b INIT_0408:
040b 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call
040d 029f 08bb | | Declare_Subprogram INIT_08b8,For_Call
040f BODY_0408:
040f 8402 | | Call 0x2,0x2
0410 e5fe | | Load 0x2,-0x2
0411 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0412 0f6d | m | Execute_Immediate Equal,0x6d
0413 6801 |h | Jump_Zero 0x415
0414 8403 | | Call 0x2,0x3
0415 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 043e | > | .CONST 0x043e ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0009 | | .CONST 0x0009 ; Number of locals
041b INIT_0418:
041b e251 | Q | Load 0x1,0x51
041c 0322 | " | Declare_Variable Record
041d 00db | | Load_Top At_Offset_3
041e 8256 | V | Call 0x1,0x56
041f 00d9 | | Load_Top At_Offset_1
0420 017d | } | Execute Record,Structure_Write
0421 e5fd | | Load 0x2,-0x3
0422 00e5 | | Load_Encached Long_Integer_Cache
0423 03f1 | | Declare_Variable Discrete,With_Value
0424 00ee | | Load_Encached Diana_Seq_Type_Cache
0425 02c7 | | Declare_Variable Any
0426 e5fe | | Load 0x2,-0x2
0427 00eb | | Load_Encached Diana_Cache
0428 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0429 a404 | | Store_Unchecked 0x2,0x4
042a 00d8 | | Load_Top At_Offset_0
042b 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
042c 00eb | | Load_Encached Diana_Cache
042d 18f0 | | Execute Package,Field_Execute,Field_Number 0xf0
042e 0d00 | | Execute_Immediate Less,0x0
042f 7003 |p | Jump_Nonzero 0x433
0430 00d9 | | Load_Top At_Offset_1
0431 0d00 | | Execute_Immediate Less,0x0
0432 7801 |x | Jump 0x434
0433 4801 |H | Short_Literal 0x1
0434 00e1 | | Load_Encached Boolean_Cache
0435 03f1 | | Declare_Variable Discrete,With_Value
0436 00ec | | Load_Encached Diana_Tree_Cache
0437 02c7 | | Declare_Variable Any
0438 00d8 | | Load_Top At_Offset_0
0439 1c00 | | Execute_Immediate Run_Utility,0x0
043a 00e5 | | Load_Encached Long_Integer_Cache
043b 03e9 | | Declare_Variable Discrete,Duplicate
043c 029f 08d3 | | Declare_Subprogram INIT_08d0,For_Call
043e BODY_0418:
043e 480e |H | Short_Literal 0xe
043f a5fc | | Store_Unchecked 0x2,-0x4
0440 e5fe | | Load 0x2,-0x2
0441 4903 |I | Short_Literal 0x103
0442 00eb | | Load_Encached Diana_Cache
0443 0096 | | Execute Package,Entry
0444 c406 | | Store 0x2,0x6
0445 00db | | Load_Top At_Offset_3
0446 6813 |h | Jump_Zero 0x45a
0447 00db | | Load_Top At_Offset_3
0448 00eb | | Load_Encached Diana_Cache
0449 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
044a 00eb | | Load_Encached Diana_Cache
044b 189f | | Execute Package,Field_Execute,Field_Number 0x9f
044c 8409 | | Call 0x2,0x9
044d e403 | | Load 0x2,0x3
044e 00db | | Load_Top At_Offset_3
044f 027d | } | Execute Discrete,Greater
0450 6803 |h | Jump_Zero 0x454
0451 4801 |H | Short_Literal 0x1
0452 a5fc | | Store_Unchecked 0x2,-0x4
0453 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0454 e403 | | Load 0x2,0x3
0455 00da | | Load_Top At_Offset_2
0456 027c | | | Execute Discrete,Less
0457 6802 |h | Jump_Zero 0x45a
0458 4800 |H | Short_Literal 0x0
0459 a5fc | | Store_Unchecked 0x2,-0x4
045a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
045b 0000 0000 | | .BLANK 0000[0x5]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0469 | i | .CONST 0x0469 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e251 | Q | Load 0x1,0x51
0464 0322 | " | Declare_Variable Record
0465 00db | | Load_Top At_Offset_3
0466 8256 | V | Call 0x1,0x56
0467 00d9 | | Load_Top At_Offset_1
0468 017d | } | Execute Record,Structure_Write
0469 BODY_0460:
0469 e5fd | | Load 0x2,-0x3
046a 0d01 | | Execute_Immediate Less,0x1
046b 6803 |h | Jump_Zero 0x46f
046c 4800 |H | Short_Literal 0x0
046d a5fc | | Store_Unchecked 0x2,-0x4
046e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
046f 480e |H | Short_Literal 0xe
0470 a5fc | | Store_Unchecked 0x2,-0x4
0471 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0472 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3
047c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
047d 0f1c | | Execute_Immediate Equal,0x1c
047e 7003 |p | Jump_Nonzero 0x482
047f 480e |H | Short_Literal 0xe
0480 a5f9 | | Store_Unchecked 0x2,-0x7
0481 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0482 480e |H | Short_Literal 0xe
0483 a5f9 | | Store_Unchecked 0x2,-0x7
0484 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 480e |H | Short_Literal 0xe
048c a5fc | | Store_Unchecked 0x2,-0x4
048d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 480e |H | Short_Literal 0xe
0494 a5fd | | Store_Unchecked 0x2,-0x3
0495 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0496 0000 0000 | | .XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04aa | | .CONST 0x04aa ; Address of begin
0499 04db | | .CONST 0x04db ; Address of exception handler
049a 0005 | | .CONST 0x0005 ; Number of locals
049b INIT_0498:
049b e007 | | Load 0x0,0x7
049c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
049d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
049e 02c7 | | Declare_Variable Any
049f 00d8 | | Load_Top At_Offset_0
04a0 1c00 | | Execute_Immediate Run_Utility,0x0
04a1 00e1 | | Load_Encached Boolean_Cache
04a2 00ec | | Load_Encached Diana_Tree_Cache
04a3 02c7 | | Declare_Variable Any
04a4 00d8 | | Load_Top At_Offset_0
04a5 1c00 | | Execute_Immediate Run_Utility,0x0
04a6 00f1 | | Load_Encached Diana_Temp_Seq
04a7 02c7 | | Declare_Variable Any
04a8 00d8 | | Load_Top At_Offset_0
04a9 1c00 | | Execute_Immediate Run_Utility,0x0
04aa BODY_0498:
04aa 480e |H | Short_Literal 0xe
04ab a5fc | | Store_Unchecked 0x2,-0x4
04ac e5ff | | Load 0x2,-0x1
04ad e001 | | Load 0x0,0x1
04ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04b1 e009 | | Load 0x0,0x9
04b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04b3 e007 | | Load 0x0,0x7
04b4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04b5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04b6 c402 | | Store 0x2,0x2
04b7 e5fe | | Load 0x2,-0x2
04b8 c404 | | Store 0x2,0x4
04b9 00e1 | | Load_Encached Boolean_Cache
04ba 00d9 | | Load_Top At_Offset_1
04bb 0120 | | Execute Any,Is_Value
04bc 6802 |h | Jump_Zero 0x4bf
04bd 00f1 | | Load_Encached Diana_Temp_Seq
04be 7801 |x | Jump 0x4c0
04bf 00d9 | | Load_Top At_Offset_1
04c0 00db | | Load_Top At_Offset_3
04c1 4800 |H | Short_Literal 0x0
04c2 e5ff | | Load 0x2,-0x1
04c3 e007 | | Load 0x0,0x7
04c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04c5 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
04c6 e402 | | Load 0x2,0x2
04c7 e007 | | Load 0x0,0x7
04c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04ca e402 | | Load 0x2,0x2
04cb e007 | | Load 0x0,0x7
04cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04ce e007 | | Load 0x0,0x7
04cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04d1 e00b | | Load 0x0,0xb
04d2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04d3 c404 | | Store 0x2,0x4
04d4 c405 | | Store 0x2,0x5
04d5 005b | [ | Store_Top Discrete,At_Offset_3
04d6 00da | | Load_Top At_Offset_2
04d7 7002 |p | Jump_Nonzero 0x4da
04d8 480d |H | Short_Literal 0xd
04d9 a5fc | | Store_Unchecked 0x2,-0x4
04da 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04db TRAP_0498:
04db e007 | | Load 0x0,0x7
04dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04dd 010f | | Execute Exception,Equal
04de 7004 |p | Jump_Nonzero 0x4e3
04df e009 | | Load 0x0,0x9
04e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04e1 010f | | Execute Exception,Equal
04e2 6803 |h | Jump_Zero 0x4e6
04e3 480e |H | Short_Literal 0xe
04e4 a5fc | | Store_Unchecked 0x2,-0x4
04e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04e6 480d |H | Short_Literal 0xd
04e7 a5fc | | Store_Unchecked 0x2,-0x4
04e8 e5fe | | Load 0x2,-0x2
04e9 e5ff | | Load 0x2,-0x1
04ea 8259 | Y | Call 0x1,0x59
04eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04f4 0000 0000 | | .BLANK 0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0500 | | .CONST 0x0500 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0003 | | .CONST 0x0003 ; Number of locals
04fb INIT_04f8:
04fb 00da | | Load_Top At_Offset_2
04fc 8256 | V | Call 0x1,0x56
04fd 00d8 | | Load_Top At_Offset_0
04fe e00e | | Load 0x0,0xe
04ff 1876 | v | Execute Package,Field_Execute,Field_Number 0x76
0500 BODY_04f8:
0500 00cf | | Action Mark_Auxiliary
0501 00d9 | | Load_Top At_Offset_1
0502 01d9 | | Execute Vector,Reverse_Bounds
0503 0263 | c | Execute Discrete,Above_Bound
0504 701a |p | Jump_Nonzero 0x51f
0505 00d8 | | Load_Top At_Offset_0
0506 e403 | | Load 0x2,0x3
0507 01d7 | | Execute Vector,Field_Read
0508 e007 | | Load 0x0,0x7
0509 1b13 | | Execute Package,Field_Read,Field_Number 0x13
050a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
050b e5fe | | Load 0x2,-0x2
050c 823b | ; | Call 0x1,0x3b
050d 680f |h | Jump_Zero 0x51d
050e 00d8 | | Load_Top At_Offset_0
050f e403 | | Load 0x2,0x3
0510 01d7 | | Execute Vector,Field_Read
0511 e007 | | Load 0x0,0x7
0512 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0513 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0514 e5fd | | Load 0x2,-0x3
0515 823a | : | Call 0x1,0x3a
0516 6806 |h | Jump_Zero 0x51d
0517 00d8 | | Load_Top At_Offset_0
0518 e402 | | Load 0x2,0x2
0519 e00e | | Load 0x0,0xe
051a 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
051b 01d7 | | Execute Vector,Field_Read
051c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
051d 00c8 | | Action Pop_Auxiliary_Range
051e 3fe6 |? | Loop_Increasing 0x505
051f 00ce | | Action Pop_Auxiliary
0520 00ec | | Load_Encached Diana_Tree_Cache
0521 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0522 0000 0000 | | .BLANK 0000[0x6]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0530 | 0 | .CONST 0x0530 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0003 | | .CONST 0x0003 ; Number of locals
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 8256 | V | Call 0x1,0x56
052d 00d8 | | Load_Top At_Offset_0
052e e00e | | Load 0x0,0xe
052f 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
0530 BODY_0528:
0530 00cf | | Action Mark_Auxiliary
0531 00d9 | | Load_Top At_Offset_1
0532 01d9 | | Execute Vector,Reverse_Bounds
0533 0263 | c | Execute Discrete,Above_Bound
0534 7011 |p | Jump_Nonzero 0x546
0535 e5fe | | Load 0x2,-0x2
0536 00d9 | | Load_Top At_Offset_1
0537 e403 | | Load 0x2,0x3
0538 01d7 | | Execute Vector,Field_Read
0539 e007 | | Load 0x0,0x7
053a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
053b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
053c 027a | z | Execute Discrete,Less_Equal
053d 6806 |h | Jump_Zero 0x544
053e 00d8 | | Load_Top At_Offset_0
053f e402 | | Load 0x2,0x2
0540 e00e | | Load 0x0,0xe
0541 186f | o | Execute Package,Field_Execute,Field_Number 0x6f
0542 01d7 | | Execute Vector,Field_Read
0543 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0544 00c8 | | Action Pop_Auxiliary_Range
0545 3fef |? | Loop_Increasing 0x535
0546 00ce | | Action Pop_Auxiliary
0547 00ec | | Load_Encached Diana_Tree_Cache
0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0549 0000 0000 | | .BLANK 0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0558 | X | .CONST 0x0558 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0003 | | .CONST 0x0003 ; Number of locals
0553 INIT_0550:
0553 00da | | Load_Top At_Offset_2
0554 8256 | V | Call 0x1,0x56
0555 00d8 | | Load_Top At_Offset_0
0556 e00e | | Load 0x0,0xe
0557 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
0558 BODY_0550:
0558 00cf | | Action Mark_Auxiliary
0559 00d9 | | Load_Top At_Offset_1
055a 01d9 | | Execute Vector,Reverse_Bounds
055b 0263 | c | Execute Discrete,Above_Bound
055c 7023 |p# | Jump_Nonzero 0x580
055d e5fe | | Load 0x2,-0x2
055e 00d9 | | Load_Top At_Offset_1
055f e403 | | Load 0x2,0x3
0560 01d7 | | Execute Vector,Field_Read
0561 e007 | | Load 0x0,0x7
0562 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0563 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0564 027a | z | Execute Discrete,Less_Equal
0565 6818 |h | Jump_Zero 0x57e
0566 00d8 | | Load_Top At_Offset_0
0567 e403 | | Load 0x2,0x3
0568 01d7 | | Execute Vector,Field_Read
0569 e007 | | Load 0x0,0x7
056a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
056b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
056c e5fd | | Load 0x2,-0x3
056d 823d | = | Call 0x1,0x3d
056e 680f |h | Jump_Zero 0x57e
056f 00d8 | | Load_Top At_Offset_0
0570 e403 | | Load 0x2,0x3
0571 01d7 | | Execute Vector,Field_Read
0572 e007 | | Load 0x0,0x7
0573 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0574 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0575 e5fc | | Load 0x2,-0x4
0576 823c | < | Call 0x1,0x3c
0577 6806 |h | Jump_Zero 0x57e
0578 00d8 | | Load_Top At_Offset_0
0579 e402 | | Load 0x2,0x2
057a e00e | | Load 0x0,0xe
057b 186f | o | Execute Package,Field_Execute,Field_Number 0x6f
057c 01d7 | | Execute Vector,Field_Read
057d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
057e 00c8 | | Action Pop_Auxiliary_Range
057f 3fdd |? | Loop_Increasing 0x55d
0580 00ce | | Action Pop_Auxiliary
0581 00ec | | Load_Encached Diana_Tree_Cache
0582 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0583 0000 0000 | | .BLANK 0000[0x5]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0592 | | .CONST 0x0592 ; Address of begin
0589 0597 | | .CONST 0x0597 ; Address of exception handler
058a 0003 | | .CONST 0x0003 ; Number of locals
058b INIT_0588:
058b 00da | | Load_Top At_Offset_2
058c 8256 | V | Call 0x1,0x56
058d e5fc | | Load 0x2,-0x4
058e e5fd | | Load 0x2,-0x3
058f e5fe | | Load 0x2,-0x2
0590 e00f | | Load 0x0,0xf
0591 180f | | Execute Package,Field_Execute,Field_Number 0xf
0592 BODY_0588:
0592 e5fc | | Load 0x2,-0x4
0593 e5fd | | Load 0x2,-0x3
0594 e5fe | | Load 0x2,-0x2
0595 826a | j | Call 0x1,0x6a
0596 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0597 TRAP_0588:
0597 010d | | Execute Exception,Is_Numeric_Error
0598 6802 |h | Jump_Zero 0x59b
0599 00ec | | Load_Encached Diana_Tree_Cache
059a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
059b 0100 | | Execute Exception,Raise
059c 0000 0000 | | .BLANK 0000[0x4]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 00db | | Load_Top At_Offset_3
05a4 00db | | Load_Top At_Offset_3
05a5 e255 | U | Load 0x1,0x55
05a6 180d | | Execute Package,Field_Execute,Field_Number 0xd
05a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00db | | Load_Top At_Offset_3
05ac 00db | | Load_Top At_Offset_3
05ad e255 | U | Load 0x1,0x55
05ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
05af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 00e1 | | Load_Encached Boolean_Cache
05b4 e5fd | | Load 0x2,-0x3
05b5 e5fe | | Load 0x2,-0x2
05b6 e5ff | | Load 0x2,-0x1
05b7 e255 | U | Load 0x1,0x55
05b8 180f | | Execute Package,Field_Execute,Field_Number 0xf
05b9 c5fc | | Store 0x2,-0x4
05ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05bb 0000 0000 | | .BLANK 0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00e1 | | Load_Encached Boolean_Cache
05c4 e5fd | | Load 0x2,-0x3
05c5 e5fe | | Load 0x2,-0x2
05c6 e5ff | | Load 0x2,-0x1
05c7 e255 | U | Load 0x1,0x55
05c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05c9 c5fc | | Store 0x2,-0x4
05ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05cb 0000 0000 | | .BLANK 0000[0x5]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05d4 0000 0000 | | .BLANK 0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05dc 0000 0000 | | .BLANK 0000[0x4]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 00db | | Load_Top At_Offset_3
05e4 00db | | Load_Top At_Offset_3
05e5 e254 | T | Load 0x1,0x54
05e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00da | | Load_Top At_Offset_2
05ec e001 | | Load 0x0,0x1
05ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00da | | Load_Top At_Offset_2
05fc e001 | | Load 0x0,0x1
05fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0600 e003 | | Load 0x0,0x3
0601 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0602 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0603 0000 0000 | | .BLANK 0000[0x5]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 4801 |H | Short_Literal 0x1
060c 00db | | Load_Top At_Offset_3
060d e006 | | Load 0x0,0x6
060e 18a6 | | Execute Package,Field_Execute,Field_Number 0xa6
060f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 00ea | | Load_Encached Null_String_Cache
0614 0092 09d5 | | Action Push_String_Extended,0x9d5 ; " raised "
0616 4800 |H | Short_Literal 0x0
0617 4801 |H | Short_Literal 0x1
0618 e010 | | Load 0x0,0x10
0619 1815 | | Execute Package,Field_Execute,Field_Number 0x15
061a 01cc | | Execute Vector,Catenate
061b e5fe | | Load 0x2,-0x2
061c e5ff | | Load 0x2,-0x1
061d e001 | | Load 0x0,0x1
061e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
061f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0620 180f | | Execute Package,Field_Execute,Field_Number 0xf
0621 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0622 0000 0000 | | .BLANK 0000[0x6]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b 4801 |H | Short_Literal 0x1
062c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
062d 0000 0000 | | .XXX[0x3]
062f 0000 | |
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 4801 |H | Short_Literal 0x1
0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0635 0000 0000 | | .XXX[0x3]
0637 0000 | |
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 0645 | E | .CONST 0x0645 ; Address of begin
0639 065a | Z | .CONST 0x065a ; Address of exception handler
063a 0003 | | .CONST 0x0003 ; Number of locals
063b INIT_0638:
063b e007 | | Load 0x0,0x7
063c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
063d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
063e 02c7 | | Declare_Variable Any
063f 00d8 | | Load_Top At_Offset_0
0640 1c00 | | Execute_Immediate Run_Utility,0x0
0641 e007 | | Load 0x0,0x7
0642 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0643 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0644 0337 | 7 | Declare_Variable Array
0645 BODY_0638:
0645 e5ff | | Load 0x2,-0x1
0646 8256 | V | Call 0x1,0x56
0647 e009 | | Load 0x0,0x9
0648 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0649 c402 | | Store 0x2,0x2
064a 00d9 | | Load_Top At_Offset_1
064b e007 | | Load 0x0,0x7
064c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
064d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
064e 00d9 | | Load_Top At_Offset_1
064f 01d4 | | Execute Vector,Structure_Write
0650 e5fd | | Load 0x2,-0x3
0651 00d9 | | Load_Top At_Offset_1
0652 01d7 | | Execute Vector,Field_Read
0653 6803 |h | Jump_Zero 0x657
0654 480e |H | Short_Literal 0xe
0655 a5fc | | Store_Unchecked 0x2,-0x4
0656 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0657 480d |H | Short_Literal 0xd
0658 a5fc | | Store_Unchecked 0x2,-0x4
0659 4504 |E | Exit_Suprogram New_Top_Offset 0x4
065a TRAP_0638:
065a e009 | | Load 0x0,0x9
065b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
065c 010f | | Execute Exception,Equal
065d 7004 |p | Jump_Nonzero 0x662
065e e007 | | Load 0x0,0x7
065f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0660 010f | | Execute Exception,Equal
0661 6803 |h | Jump_Zero 0x665
0662 480e |H | Short_Literal 0xe
0663 a5fc | | Store_Unchecked 0x2,-0x4
0664 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0665 e5fe | | Load 0x2,-0x2
0666 e5ff | | Load 0x2,-0x1
0667 8259 | Y | Call 0x1,0x59
0668 480d |H | Short_Literal 0xd
0669 a5fc | | Store_Unchecked 0x2,-0x4
066a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
066b 0000 0000 | | .BLANK 0000[0x5]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0676 | v | .CONST 0x0676 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0002 | | .CONST 0x0002 ; Number of locals
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 e00f | | Load 0x0,0xf
0675 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0676 BODY_0670:
0676 e5fd | | Load 0x2,-0x3
0677 00d9 | | Load_Top At_Offset_1
0678 027c | | | Execute Discrete,Less
0679 6802 |h | Jump_Zero 0x67c
067a 4800 |H | Short_Literal 0x0
067b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
067c 480e |H | Short_Literal 0xe
067d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
067e 0000 0000 | | .XXX[0x2]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0686 | | .CONST 0x0686 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0002 | | .CONST 0x0002 ; Number of locals
0683 INIT_0680:
0683 00da | | Load_Top At_Offset_2
0684 e00f | | Load 0x0,0xf
0685 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0686 BODY_0680:
0686 e5fd | | Load 0x2,-0x3
0687 00d9 | | Load_Top At_Offset_1
0688 027c | | | Execute Discrete,Less
0689 6802 |h | Jump_Zero 0x68c
068a 4800 |H | Short_Literal 0x0
068b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
068c 480e |H | Short_Literal 0xe
068d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
068e 0000 0000 | | .XXX[0x2]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 069f | | .CONST 0x069f ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0004 | | .CONST 0x0004 ; Number of locals
0693 INIT_0690:
0693 e002 | | Load 0x0,0x2
0694 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0695 02c7 | | Declare_Variable Any
0696 00d8 | | Load_Top At_Offset_0
0697 1c00 | | Execute_Immediate Run_Utility,0x0
0698 e002 | | Load 0x0,0x2
0699 1b0d | | Execute Package,Field_Read,Field_Number 0xd
069a 02c7 | | Declare_Variable Any
069b 00d8 | | Load_Top At_Offset_0
069c 1c00 | | Execute_Immediate Run_Utility,0x0
069d 029f 08eb | | Declare_Subprogram INIT_08e8,For_Call
069f BODY_0690:
069f e5fe | | Load 0x2,-0x2
06a0 e5ff | | Load 0x2,-0x1
06a1 027c | | | Execute Discrete,Less
06a2 6802 |h | Jump_Zero 0x6a5
06a3 e24d | M | Load 0x1,0x4d
06a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a5 e24d | M | Load 0x1,0x4d
06a6 e5ff | | Load 0x2,-0x1
06a7 823e | > | Call 0x1,0x3e
06a8 6803 |h | Jump_Zero 0x6ac
06a9 e24e | N | Load 0x1,0x4e
06aa c402 | | Store 0x2,0x2
06ab 7802 |x | Jump 0x6ae
06ac e24d | M | Load 0x1,0x4d
06ad c402 | | Store 0x2,0x2
06ae 8404 | | Call 0x2,0x4
06af 00d9 | | Load_Top At_Offset_1
06b0 e011 | | Load 0x0,0x11
06b1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
06b2 00db | | Load_Top At_Offset_3
06b3 8242 | B | Call 0x1,0x42
06b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06b5 0000 0000 | | .XXX[0x3]
06b7 0000 | |
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb e002 | | Load 0x0,0x2
06bc 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
06bd 00db | | Load_Top At_Offset_3
06be 8247 | G | Call 0x1,0x47
06bf 6804 |h | Jump_Zero 0x6c4
06c0 00da | | Load_Top At_Offset_2
06c1 e011 | | Load 0x0,0x11
06c2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
06c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c4 00da | | Load_Top At_Offset_2
06c5 e011 | | Load 0x0,0x11
06c6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06d5 | | .CONST 0x06d5 ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0003 | | .CONST 0x0003 ; Number of locals
06cb INIT_06c8:
06cb e002 | | Load 0x0,0x2
06cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06cd 02c7 | | Declare_Variable Any
06ce 00d8 | | Load_Top At_Offset_0
06cf 1c00 | | Execute_Immediate Run_Utility,0x0
06d0 e002 | | Load 0x0,0x2
06d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06d2 02c7 | | Declare_Variable Any
06d3 00d8 | | Load_Top At_Offset_0
06d4 1c00 | | Execute_Immediate Run_Utility,0x0
06d5 BODY_06c8:
06d5 e5ff | | Load 0x2,-0x1
06d6 00d8 | | Load_Top At_Offset_0
06d7 e5fe | | Load 0x2,-0x2
06d8 8249 | I | Call 0x1,0x49
06d9 824c | L | Call 0x1,0x4c
06da 8260 | ` | Call 0x1,0x60
06db c402 | | Store 0x2,0x2
06dc e5ff | | Load 0x2,-0x1
06dd 00d8 | | Load_Top At_Offset_0
06de e5fd | | Load 0x2,-0x3
06df 824a | J | Call 0x1,0x4a
06e0 824c | L | Call 0x1,0x4c
06e1 8260 | ` | Call 0x1,0x60
06e2 c403 | | Store 0x2,0x3
06e3 00d8 | | Load_Top At_Offset_0
06e4 00da | | Load_Top At_Offset_2
06e5 825f | _ | Call 0x1,0x5f
06e6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
06e7 0000 | | .XXX[0x1]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 0705 | | .CONST 0x0705 ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0007 | | .CONST 0x0007 ; Number of locals
06eb INIT_06e8:
06eb 00eb | | Load_Encached Diana_Cache
06ec 1b96 | | Execute Package,Field_Read,Field_Number 0x96
06ed 02c7 | | Declare_Variable Any
06ee 00d8 | | Load_Top At_Offset_0
06ef 1c00 | | Execute_Immediate Run_Utility,0x0
06f0 00eb | | Load_Encached Diana_Cache
06f1 1b96 | | Execute Package,Field_Read,Field_Number 0x96
06f2 02c7 | | Declare_Variable Any
06f3 00d8 | | Load_Top At_Offset_0
06f4 1c00 | | Execute_Immediate Run_Utility,0x0
06f5 e002 | | Load 0x0,0x2
06f6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
06f7 02c7 | | Declare_Variable Any
06f8 00d8 | | Load_Top At_Offset_0
06f9 1c00 | | Execute_Immediate Run_Utility,0x0
06fa e002 | | Load 0x0,0x2
06fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06fc 02c7 | | Declare_Variable Any
06fd 00d8 | | Load_Top At_Offset_0
06fe 1c00 | | Execute_Immediate Run_Utility,0x0
06ff e002 | | Load 0x0,0x2
0700 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0701 02c7 | | Declare_Variable Any
0702 00d8 | | Load_Top At_Offset_0
0703 1c00 | | Execute_Immediate Run_Utility,0x0
0704 00e1 | | Load_Encached Boolean_Cache
0705 BODY_06e8:
0705 e403 | | Load 0x2,0x3
0706 0120 | | Execute Any,Is_Value
0707 6803 |h | Jump_Zero 0x70b
0708 00eb | | Load_Encached Diana_Cache
0709 1b96 | | Execute Package,Field_Read,Field_Number 0x96
070a 7801 |x | Jump 0x70c
070b e403 | | Load 0x2,0x3
070c e402 | | Load 0x2,0x2
070d 0120 | | Execute Any,Is_Value
070e 6803 |h | Jump_Zero 0x712
070f 00eb | | Load_Encached Diana_Cache
0710 1b96 | | Execute Package,Field_Read,Field_Number 0x96
0711 7801 |x | Jump 0x713
0712 e402 | | Load 0x2,0x2
0713 00e1 | | Load_Encached Boolean_Cache
0714 e5ff | | Load 0x2,-0x1
0715 e00d | | Load 0x0,0xd
0716 180e | | Execute Package,Field_Execute,Field_Number 0xe
0717 005b | [ | Store_Top Discrete,At_Offset_3
0718 c402 | | Store 0x2,0x2
0719 c403 | | Store 0x2,0x3
071a 00d8 | | Load_Top At_Offset_0
071b 7002 |p | Jump_Nonzero 0x71e
071c e250 | P | Load 0x1,0x50
071d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
071e e5ff | | Load 0x2,-0x1
071f 00eb | | Load_Encached Diana_Cache
0720 18f4 | | Execute Package,Field_Execute,Field_Number 0xf4
0721 c404 | | Store 0x2,0x4
0722 e403 | | Load 0x2,0x3
0723 00eb | | Load_Encached Diana_Cache
0724 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1
0725 e402 | | Load 0x2,0x2
0726 00eb | | Load_Encached Diana_Cache
0727 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1
0728 e404 | | Load 0x2,0x4
0729 8261 | a | Call 0x1,0x61
072a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072b 0000 0000 | | .BLANK 0000[0x5]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0735 | 5 | .CONST 0x0735 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0002 | | .CONST 0x0002 ; Number of locals
0733 INIT_0730:
0733 00da | | Load_Top At_Offset_2
0734 8262 | b | Call 0x1,0x62
0735 BODY_0730:
0735 e5fd | | Load 0x2,-0x3
0736 00d9 | | Load_Top At_Offset_1
0737 027c | | | Execute Discrete,Less
0738 6802 |h | Jump_Zero 0x73b
0739 4800 |H | Short_Literal 0x0
073a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
073b 480e |H | Short_Literal 0xe
073c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
073d 0000 0000 | | .XXX[0x3]
073f 0000 | |
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 074f | O | .CONST 0x074f ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0005 | | .CONST 0x0005 ; Number of locals
0743 INIT_0740:
0743 00db | | Load_Top At_Offset_3
0744 e00e | | Load 0x0,0xe
0745 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
0746 00e1 | | Load_Encached Boolean_Cache
0747 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0748 e007 | | Load 0x0,0x7
0749 1b13 | | Execute Package,Field_Read,Field_Number 0x13
074a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
074b 02c7 | | Declare_Variable Any
074c 00d8 | | Load_Top At_Offset_0
074d 1c00 | | Execute_Immediate Run_Utility,0x0
074e 00e2 | | Load_Encached Integer_Cache
074f BODY_0740:
074f 480e |H | Short_Literal 0xe
0750 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0751 0000 0000 | | .BLANK 0000[0x7]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 480e |H | Short_Literal 0xe
075c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
075d 0000 0000 | | .XXX[0x3]
075f 0000 | |
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 480e |H | Short_Literal 0xe
0764 a5fc | | Store_Unchecked 0x2,-0x4
0765 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0766 0000 0000 | | .XXX[0x2]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b 480e |H | Short_Literal 0xe
076c a5fc | | Store_Unchecked 0x2,-0x4
076d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
076e 0000 0000 | | .XXX[0x2]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0775 | u | .CONST 0x0775 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0002 | | .CONST 0x0002 ; Number of locals
0773 INIT_0770:
0773 00e4 | | Load_Encached Positive_Cache
0774 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0775 BODY_0770:
0775 00cf | | Action Mark_Auxiliary
0776 7805 |x | Jump 0x77c
0777 00d9 | | Load_Top At_Offset_1
0778 00da | | Load_Top At_Offset_2
0779 0273 | s | Execute Discrete,Plus
077a 005a | Z | Store_Top Discrete,At_Offset_2
077b 00c9 | | Action Pop_Auxiliary_Loop
077c 00d9 | | Load_Top At_Offset_1
077d e5ff | | Load 0x2,-0x1
077e 027c | | | Execute Discrete,Less
077f 77f7 |w | Jump_Nonzero 0x777
0780 00ce | | Action Pop_Auxiliary
0781 00d8 | | Load_Top At_Offset_0
0782 e5ff | | Load 0x2,-0x1
0783 027f | | Execute Discrete,Equal
0784 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0785 0000 0000 | | .XXX[0x3]
0787 0000 | |
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 079b | | .CONST 0x079b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0007 | | .CONST 0x0007 ; Number of locals
078b INIT_0788:
078b 00ec | | Load_Encached Diana_Tree_Cache
078c 02c7 | | Declare_Variable Any
078d 00d8 | | Load_Top At_Offset_0
078e 1c00 | | Execute_Immediate Run_Utility,0x0
078f 00e1 | | Load_Encached Boolean_Cache
0790 00eb | | Load_Encached Diana_Cache
0791 1b96 | | Execute Package,Field_Read,Field_Number 0x96
0792 02c7 | | Declare_Variable Any
0793 00d8 | | Load_Top At_Offset_0
0794 1c00 | | Execute_Immediate Run_Utility,0x0
0795 029f 0903 | | Declare_Subprogram INIT_0900,For_Call
0797 029f 094b | K| Declare_Subprogram INIT_0948,For_Call
0799 029f 0963 | c| Declare_Subprogram INIT_0960,For_Call
079b BODY_0788:
079b e5fe | | Load 0x2,-0x2
079c 8405 | | Call 0x2,0x5
079d 7003 |p | Jump_Nonzero 0x7a1
079e 00eb | | Load_Encached Diana_Cache
079f 1899 | | Execute Package,Field_Execute,Field_Number 0x99
07a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07a1 8406 | | Call 0x2,0x6
07a2 e402 | | Load 0x2,0x2
07a3 e5ff | | Load 0x2,-0x1
07a4 e001 | | Load 0x0,0x1
07a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
07a7 180d | | Execute Package,Field_Execute,Field_Number 0xd
07a8 c402 | | Store 0x2,0x2
07a9 8407 | | Call 0x2,0x7
07aa e403 | | Load 0x2,0x3
07ab 7003 |p | Jump_Nonzero 0x7af
07ac 00eb | | Load_Encached Diana_Cache
07ad 1899 | | Execute Package,Field_Execute,Field_Number 0x99
07ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07af 00db | | Load_Top At_Offset_3
07b0 e5fe | | Load 0x2,-0x2
07b1 4954 |IT | Short_Literal 0x154
07b2 00eb | | Load_Encached Diana_Cache
07b3 0096 | | Execute Package,Entry
07b4 00db | | Load_Top At_Offset_3
07b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b6 0000 0000 | | .XXX[0x2]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07d5 | | .CONST 0x07d5 ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0003 | | .CONST 0x0003 ; Number of locals
07bb INIT_07b8:
07bb e002 | | Load 0x0,0x2
07bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07bd 02c7 | | Declare_Variable Any
07be e5fd | | Load 0x2,-0x3
07bf e5fe | | Load 0x2,-0x2
07c0 e5ff | | Load 0x2,-0x1
07c1 8261 | a | Call 0x1,0x61
07c2 a402 | | Store_Unchecked 0x2,0x2
07c3 00ec | | Load_Encached Diana_Tree_Cache
07c4 02c7 | | Declare_Variable Any
07c5 e5fd | | Load 0x2,-0x3
07c6 00eb | | Load_Encached Diana_Cache
07c7 18ac | | Execute Package,Field_Execute,Field_Number 0xac
07c8 e5fe | | Load 0x2,-0x2
07c9 00eb | | Load_Encached Diana_Cache
07ca 18ac | | Execute Package,Field_Execute,Field_Number 0xac
07cb 4861 |Ha | Short_Literal 0x61
07cc 00eb | | Load_Encached Diana_Cache
07cd 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
07ce e5ff | | Load 0x2,-0x1
07cf 00eb | | Load_Encached Diana_Cache
07d0 18ac | | Execute Package,Field_Execute,Field_Number 0xac
07d1 4864 |Hd | Short_Literal 0x64
07d2 00eb | | Load_Encached Diana_Cache
07d3 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
07d4 a403 | | Store_Unchecked 0x2,0x3
07d5 BODY_07b8:
07d5 00d8 | | Load_Top At_Offset_0
07d6 00d9 | | Load_Top At_Offset_1
07d7 4956 |IV | Short_Literal 0x156
07d8 00eb | | Load_Encached Diana_Cache
07d9 0096 | | Execute Package,Entry
07da e5ff | | Load 0x2,-0x1
07db 00d9 | | Load_Top At_Offset_1
07dc 4953 |IS | Short_Literal 0x153
07dd 00eb | | Load_Encached Diana_Cache
07de 0096 | | Execute Package,Entry
07df 00d9 | | Load_Top At_Offset_1
07e0 0aff | | Execute_Immediate Plus,-0x1
07e1 00d8 | | Load_Top At_Offset_0
07e2 00e2 | | Load_Encached Integer_Cache
07e3 0260 | ` | Execute Discrete,In_Type
07e4 7001 |p | Jump_Nonzero 0x7e6
07e5 0801 | | Execute_Immediate Raise,0x1
07e6 00d9 | | Load_Top At_Offset_1
07e7 494d |IM | Short_Literal 0x14d
07e8 00eb | | Load_Encached Diana_Cache
07e9 0096 | | Execute Package,Entry
07ea 00d8 | | Load_Top At_Offset_0
07eb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
07ec 0000 0000 | | .BLANK 0000[0x4]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07fe | | .CONST 0x07fe ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0004 | | .CONST 0x0004 ; Number of locals
07f3 INIT_07f0:
07f3 e5fd | | Load 0x2,-0x3
07f4 00eb | | Load_Encached Diana_Cache
07f5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
07f6 00eb | | Load_Encached Diana_Cache
07f7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07f8 e403 | | Load 0x2,0x3
07f9 e007 | | Load 0x0,0x7
07fa 1b14 | | Execute Package,Field_Read,Field_Number 0x14
07fb 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
07fc 00e1 | | Load_Encached Boolean_Cache
07fd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07fe BODY_07f0:
07fe 00cf | | Action Mark_Auxiliary
07ff 00da | | Load_Top At_Offset_2
0800 01d9 | | Execute Vector,Reverse_Bounds
0801 0263 | c | Execute Discrete,Above_Bound
0802 7011 |p | Jump_Nonzero 0x814
0803 4801 |H | Short_Literal 0x1
0804 e602 | | Load 0x3,0x2
0805 00da | | Load_Top At_Offset_2
0806 e603 | | Load 0x3,0x3
0807 01d7 | | Execute Vector,Field_Read
0808 e007 | | Load 0x0,0x7
0809 1b11 | | Execute Package,Field_Read,Field_Number 0x11
080a 180f | | Execute Package,Field_Execute,Field_Number 0xf
080b e00a | | Load 0x0,0xa
080c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
080d 6804 |h | Jump_Zero 0x812
080e 4801 |H | Short_Literal 0x1
080f a604 | | Store_Unchecked 0x3,0x4
0810 00d2 | | Pop_Control Pop_Count_2
0811 7802 |x | Jump 0x814
0812 00c8 | | Action Pop_Auxiliary_Range
0813 3fef |? | Loop_Increasing 0x803
0814 00ce | | Action Pop_Auxiliary
0815 00d8 | | Load_Top At_Offset_0
0816 700b |p | Jump_Nonzero 0x822
0817 00ea | | Load_Encached Null_String_Cache
0818 0092 09d6 | | Action Push_String_Extended,0x9d6 ; " is not a supported language"
081a e5fd | | Load 0x2,-0x3
081b e5ff | | Load 0x2,-0x1
081c e001 | | Load 0x0,0x1
081d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
081e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
081f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0820 e5fc | | Load 0x2,-0x4
0821 8258 | X | Call 0x1,0x58
0822 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0823 0000 0000 | | .BLANK 0000[0x5]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0838 | 8 | .CONST 0x0838 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0003 | | .CONST 0x0003 ; Number of locals
082b INIT_0828:
082b 00ec | | Load_Encached Diana_Tree_Cache
082c 02c7 | | Declare_Variable Any
082d e402 | | Load 0x2,0x2
082e 00eb | | Load_Encached Diana_Cache
082f 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0830 4908 |I | Short_Literal 0x108
0831 00eb | | Load_Encached Diana_Cache
0832 0096 | | Execute Package,Entry
0833 a602 | | Store_Unchecked 0x3,0x2
0834 00ec | | Load_Encached Diana_Tree_Cache
0835 02c7 | | Declare_Variable Any
0836 00d8 | | Load_Top At_Offset_0
0837 1c00 | | Execute_Immediate Run_Utility,0x0
0838 BODY_0828:
0838 00d9 | | Load_Top At_Offset_1
0839 0145 | E | Execute Heap_Access,Diana_Tree_Kind
083a 00d8 | | Load_Top At_Offset_0
083b 4864 |Hd | Short_Literal 0x64
083c 4872 |Hr | Short_Literal 0x72
083d 0262 | b | Execute Discrete,In_Range
083e 685d |h] | Jump_Zero 0x89c
083f 0a9c | | Execute_Immediate Plus,-0x64
0840 460e |F | Jump_Case 0xf
0841 7845 |xE | Jump 0x887 ; case 0x0
0842 783d |x= | Jump 0x880 ; case 0x1
0843 7859 |xY | Jump 0x89d ; case 0x2
0844 7858 |xX | Jump 0x89d ; case 0x3
0845 7857 |xW | Jump 0x89d ; case 0x4
0846 7856 |xV | Jump 0x89d ; case 0x5
0847 7855 |xU | Jump 0x89d ; case 0x6
0848 784b |xK | Jump 0x894 ; case 0x7
0849 784f |xO | Jump 0x899 ; case 0x8
084a 7852 |xR | Jump 0x89d ; case 0x9
084b 7807 |x | Jump 0x853 ; case 0xa
084c 7827 |x' | Jump 0x874 ; case 0xb
084d 784f |xO | Jump 0x89d ; case 0xc
084e 784e |xN | Jump 0x89d ; case 0xd
084f 7800 |x | Jump 0x850 ; case 0xe
0850 480e |H | Short_Literal 0xe
0851 a5fc | | Store_Unchecked 0x2,-0x4
0852 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0853 e402 | | Load 0x2,0x2
0854 00eb | | Load_Encached Diana_Cache
0855 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0856 00eb | | Load_Encached Diana_Cache
0857 18ba | | Execute Package,Field_Execute,Field_Number 0xba
0858 6803 |h | Jump_Zero 0x85c
0859 480e |H | Short_Literal 0xe
085a a5fc | | Store_Unchecked 0x2,-0x4
085b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
085c e402 | | Load 0x2,0x2
085d 00eb | | Load_Encached Diana_Cache
085e 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
085f 00eb | | Load_Encached Diana_Cache
0860 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
0861 7006 |p | Jump_Nonzero 0x868
0862 e5fd | | Load 0x2,-0x3
0863 e403 | | Load 0x2,0x3
0864 00db | | Load_Top At_Offset_3
0865 825d | ] | Call 0x1,0x5d
0866 a5fc | | Store_Unchecked 0x2,-0x4
0867 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0868 e5fd | | Load 0x2,-0x3
0869 e403 | | Load 0x2,0x3
086a e402 | | Load 0x2,0x2
086b 00eb | | Load_Encached Diana_Cache
086c 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
086d 00eb | | Load_Encached Diana_Cache
086e 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
086f 00eb | | Load_Encached Diana_Cache
0870 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0871 825d | ] | Call 0x1,0x5d
0872 a5fc | | Store_Unchecked 0x2,-0x4
0873 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0874 e5fd | | Load 0x2,-0x3
0875 e403 | | Load 0x2,0x3
0876 e402 | | Load 0x2,0x2
0877 00eb | | Load_Encached Diana_Cache
0878 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0879 00eb | | Load_Encached Diana_Cache
087a 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
087b 00eb | | Load_Encached Diana_Cache
087c 18ec | | Execute Package,Field_Execute,Field_Number 0xec
087d 825e | ^ | Call 0x1,0x5e
087e a5fc | | Store_Unchecked 0x2,-0x4
087f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0880 4801 |H | Short_Literal 0x1
0881 e5fd | | Load 0x2,-0x3
0882 e403 | | Load 0x2,0x3
0883 e602 | | Load 0x3,0x2
0884 8264 | d | Call 0x1,0x64
0885 a5fc | | Store_Unchecked 0x2,-0x4
0886 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0887 e402 | | Load 0x2,0x2
0888 00eb | | Load_Encached Diana_Cache
0889 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
088a 00eb | | Load_Encached Diana_Cache
088b 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
088c c603 | | Store 0x3,0x3
088d 4801 |H | Short_Literal 0x1
088e e5fd | | Load 0x2,-0x3
088f e403 | | Load 0x2,0x3
0890 00db | | Load_Top At_Offset_3
0891 8263 | c | Call 0x1,0x63
0892 a5fc | | Store_Unchecked 0x2,-0x4
0893 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0894 e5fd | | Load 0x2,-0x3
0895 e403 | | Load 0x2,0x3
0896 8265 | e | Call 0x1,0x65
0897 a5fc | | Store_Unchecked 0x2,-0x4
0898 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0899 480e |H | Short_Literal 0xe
089a a5fc | | Store_Unchecked 0x2,-0x4
089b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
089c 00d1 | | Pop_Control Pop_Count_1
089d 480d |H | Short_Literal 0xd
089e a5fc | | Store_Unchecked 0x2,-0x4
089f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a9 | | .CONST 0x08a9 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0003 | | .CONST 0x0003 ; Number of locals
08a3 INIT_08a0:
08a3 00ec | | Load_Encached Diana_Tree_Cache
08a4 02c7 | | Declare_Variable Any
08a5 00d8 | | Load_Top At_Offset_0
08a6 1c00 | | Execute_Immediate Run_Utility,0x0
08a7 029f 097b | {| Declare_Subprogram INIT_0978,For_Call
08a9 BODY_08a0:
08a9 e5fe | | Load 0x2,-0x2
08aa 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08ab 0f6d | m | Execute_Immediate Equal,0x6d
08ac 6807 |h | Jump_Zero 0x8b4
08ad e5fe | | Load 0x2,-0x2
08ae 00eb | | Load_Encached Diana_Cache
08af 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
08b0 00eb | | Load_Encached Diana_Cache
08b1 18f9 | | Execute Package,Field_Execute,Field_Number 0xf9
08b2 c602 | | Store 0x3,0x2
08b3 7802 |x | Jump 0x8b6
08b4 e5fe | | Load 0x2,-0x2
08b5 c602 | | Store 0x3,0x2
08b6 8603 | | Call 0x3,0x3
08b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08c8 | | .CONST 0x08c8 ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0003 | | .CONST 0x0003 ; Number of locals
08bb INIT_08b8:
08bb 00ec | | Load_Encached Diana_Tree_Cache
08bc 02c7 | | Declare_Variable Any
08bd e5fe | | Load 0x2,-0x2
08be 00eb | | Load_Encached Diana_Cache
08bf 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
08c0 00eb | | Load_Encached Diana_Cache
08c1 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
08c2 4907 |I | Short_Literal 0x107
08c3 00eb | | Load_Encached Diana_Cache
08c4 0096 | | Execute Package,Entry
08c5 a602 | | Store_Unchecked 0x3,0x2
08c6 029f 099b | | Declare_Subprogram INIT_0998,For_Call
08c8 BODY_08b8:
08c8 00d9 | | Load_Top At_Offset_1
08c9 7003 |p | Jump_Nonzero 0x8cd
08ca 480d |H | Short_Literal 0xd
08cb a5fc | | Store_Unchecked 0x2,-0x4
08cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08cd 8603 | | Call 0x3,0x3
08ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08cf 0000 | | .XXX[0x1]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3 | | .CONST 0x08d3 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0001 | | .CONST 0x0001 ; Number of locals
08d3 BODY_08d0:
08d3 INIT_08d0:
08d3 e405 | | Load 0x2,0x5
08d4 680b |h | Jump_Zero 0x8e0
08d5 4802 |H | Short_Literal 0x2
08d6 00db | | Load_Top At_Offset_3
08d7 0aff | | Execute_Immediate Plus,-0x1
08d8 026d | m | Execute Discrete,Exponentiate
08d9 0aff | | Execute_Immediate Plus,-0x1
08da a407 | | Store_Unchecked 0x2,0x7
08db e407 | | Load 0x2,0x7
08dc 0275 | u | Execute Discrete,Unary_Minus
08dd 0aff | | Execute_Immediate Plus,-0x1
08de a408 | | Store_Unchecked 0x2,0x8
08df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08e0 4802 |H | Short_Literal 0x2
08e1 00db | | Load_Top At_Offset_3
08e2 026d | m | Execute Discrete,Exponentiate
08e3 0aff | | Execute_Immediate Plus,-0x1
08e4 a407 | | Store_Unchecked 0x2,0x7
08e5 4800 |H | Short_Literal 0x0
08e6 a408 | | Store_Unchecked 0x2,0x8
08e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb | | .CONST 0x08eb ; Address of begin
08e9 08f5 | | .CONST 0x08f5 ; Address of exception handler
08ea 0001 | | .CONST 0x0001 ; Number of locals
08eb BODY_08e8:
08eb INIT_08e8:
08eb e24e | N | Load 0x1,0x4e
08ec e5fe | | Load 0x2,-0x2
08ed 8242 | B | Call 0x1,0x42
08ee 8241 | A | Call 0x1,0x41
08ef e5ff | | Load 0x2,-0x1
08f0 8241 | A | Call 0x1,0x41
08f1 e011 | | Load 0x0,0x11
08f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08f3 c403 | | Store 0x2,0x3
08f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08f5 TRAP_08e8:
08f5 010e | | Execute Exception,Is_Constraint_Error
08f6 7002 |p | Jump_Nonzero 0x8f9
08f7 010d | | Execute Exception,Is_Numeric_Error
08f8 6804 |h | Jump_Zero 0x8fd
08f9 00e2 | | Load_Encached Integer_Cache
08fa 0269 | i | Execute Discrete,Last
08fb c403 | | Store 0x2,0x3
08fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08fd 0100 | | Execute Exception,Raise
08fe 0000 0000 | | .XXX[0x2]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 090f | | .CONST 0x090f ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0004 | | .CONST 0x0004 ; Number of locals
0903 INIT_0900:
0903 00ec | | Load_Encached Diana_Tree_Cache
0904 02c7 | | Declare_Variable Any
0905 00d8 | | Load_Top At_Offset_0
0906 1c00 | | Execute_Immediate Run_Utility,0x0
0907 00ec | | Load_Encached Diana_Tree_Cache
0908 02c7 | | Declare_Variable Any
0909 00d8 | | Load_Top At_Offset_0
090a 1c00 | | Execute_Immediate Run_Utility,0x0
090b 00ec | | Load_Encached Diana_Tree_Cache
090c 02c7 | | Declare_Variable Any
090d 00d8 | | Load_Top At_Offset_0
090e 1c00 | | Execute_Immediate Run_Utility,0x0
090f BODY_0900:
090f e7ff | | Load 0x3,-0x1
0910 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0911 0f10 | | Execute_Immediate Equal,0x10
0912 7002 |p | Jump_Nonzero 0x915
0913 4800 |H | Short_Literal 0x0
0914 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0915 e7ff | | Load 0x3,-0x1
0916 00eb | | Load_Encached Diana_Cache
0917 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0918 c602 | | Store 0x3,0x2
0919 00da | | Load_Top At_Offset_2
091a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
091b 0f12 | | Execute_Immediate Equal,0x12
091c 7002 |p | Jump_Nonzero 0x91f
091d 4800 |H | Short_Literal 0x0
091e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
091f 00da | | Load_Top At_Offset_2
0920 00eb | | Load_Encached Diana_Cache
0921 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0922 c603 | | Store 0x3,0x3
0923 00da | | Load_Top At_Offset_2
0924 00eb | | Load_Encached Diana_Cache
0925 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0
0926 c604 | | Store 0x3,0x4
0927 00d9 | | Load_Top At_Offset_1
0928 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0929 0f17 | | Execute_Immediate Equal,0x17
092a 681a |h | Jump_Zero 0x945
092b 00d8 | | Load_Top At_Offset_0
092c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
092d 0f17 | | Execute_Immediate Equal,0x17
092e 6814 |h | Jump_Zero 0x943
092f 00d9 | | Load_Top At_Offset_1
0930 00eb | | Load_Encached Diana_Cache
0931 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0932 00eb | | Load_Encached Diana_Cache
0933 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0934 0092 09d7 | | Action Push_String_Extended,0x9d7 ; "SYSTEM"
0936 01df | | Execute Vector,Equal
0937 6809 |h | Jump_Zero 0x941
0938 00d8 | | Load_Top At_Offset_0
0939 00eb | | Load_Encached Diana_Cache
093a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
093b 00eb | | Load_Encached Diana_Cache
093c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
093d 0092 09d8 | | Action Push_String_Extended,0x9d8 ; "TO_ADDRESS"
093f 01df | | Execute Vector,Equal
0940 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0941 4800 |H | Short_Literal 0x0
0942 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0943 4800 |H | Short_Literal 0x0
0944 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0945 4800 |H | Short_Literal 0x0
0946 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0947 0000 | | .XXX[0x1]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 0957 | W | .CONST 0x0957 ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 0003 | | .CONST 0x0003 ; Number of locals
094b INIT_0948:
094b 00ec | | Load_Encached Diana_Tree_Cache
094c 02c7 | | Declare_Variable Any
094d e5fe | | Load 0x2,-0x2
094e 00eb | | Load_Encached Diana_Cache
094f 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9
0950 a602 | | Store_Unchecked 0x3,0x2
0951 00ee | | Load_Encached Diana_Seq_Type_Cache
0952 02c7 | | Declare_Variable Any
0953 00d9 | | Load_Top At_Offset_1
0954 00eb | | Load_Encached Diana_Cache
0955 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0956 a603 | | Store_Unchecked 0x3,0x3
0957 BODY_0948:
0957 00d8 | | Load_Top At_Offset_0
0958 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0959 c402 | | Store 0x2,0x2
095a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
095b 0000 0000 | | .BLANK 0000[0x5]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963 | c | .CONST 0x0963 ; Address of begin
0961 0971 | q | .CONST 0x0971 ; Address of exception handler
0962 0001 | | .CONST 0x0001 ; Number of locals
0963 BODY_0960:
0963 INIT_0960:
0963 e404 | | Load 0x2,0x4
0964 0120 | | Execute Any,Is_Value
0965 6803 |h | Jump_Zero 0x969
0966 00eb | | Load_Encached Diana_Cache
0967 1b96 | | Execute Package,Field_Read,Field_Number 0x96
0968 7801 |x | Jump 0x96a
0969 e404 | | Load 0x2,0x4
096a 00e1 | | Load_Encached Boolean_Cache
096b e402 | | Load 0x2,0x2
096c e00d | | Load 0x0,0xd
096d 180d | | Execute Package,Field_Execute,Field_Number 0xd
096e c403 | | Store 0x2,0x3
096f c404 | | Store 0x2,0x4
0970 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0971 TRAP_0960:
0971 0007 | | Action Break_Optional
0972 00eb | | Load_Encached Diana_Cache
0973 1899 | | Execute Package,Field_Execute,Field_Number 0x99
0974 00cb | | Action Pop_Block_With_Result
0975 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0976 0000 0000 | | .XXX[0x2]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 0985 | | .CONST 0x0985 ; Address of begin
0979 0004 | | .CONST 0x0004 ; Address of exception handler
097a 0002 | | .CONST 0x0002 ; Number of locals
097b INIT_0978:
097b e602 | | Load 0x3,0x2
097c 00eb | | Load_Encached Diana_Cache
097d 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
097e 00eb | | Load_Encached Diana_Cache
097f 18f5 | | Execute Package,Field_Execute,Field_Number 0xf5
0980 00eb | | Load_Encached Diana_Cache
0981 18a1 | | Execute Package,Field_Execute,Field_Number 0xa1
0982 e002 | | Load 0x0,0x2
0983 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0984 011e | | Execute Any,Convert
0985 BODY_0978:
0985 e5fd | | Load 0x2,-0x3
0986 e002 | | Load 0x0,0x2
0987 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0988 e002 | | Load 0x0,0x2
0989 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
098a 6808 |h | Jump_Zero 0x993
098b 00d8 | | Load_Top At_Offset_0
098c e5fd | | Load 0x2,-0x3
098d e002 | | Load 0x0,0x2
098e 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
098f 6803 |h | Jump_Zero 0x993
0990 480e |H | Short_Literal 0xe
0991 a5fc | | Store_Unchecked 0x2,-0x4
0992 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0993 480d |H | Short_Literal 0xd
0994 a5fc | | Store_Unchecked 0x2,-0x4
0995 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0996 0000 0000 | | .XXX[0x2]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 09a5 | | .CONST 0x09a5 ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0003 | | .CONST 0x0003 ; Number of locals
099b INIT_0998:
099b e602 | | Load 0x3,0x2
099c e00c | | Load 0x0,0xc
099d 180d | | Execute Package,Field_Execute,Field_Number 0xd
099e 00eb | | Load_Encached Diana_Cache
099f 18f4 | | Execute Package,Field_Execute,Field_Number 0xf4
09a0 e002 | | Load 0x0,0x2
09a1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
09a2 011e | | Execute Any,Convert
09a3 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call
09a5 BODY_0998:
09a5 00d9 | | Load_Top At_Offset_1
09a6 e5fd | | Load 0x2,-0x3
09a7 e002 | | Load 0x0,0x2
09a8 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
09a9 6805 |h | Jump_Zero 0x9af
09aa 8803 | | Call 0x4,0x3
09ab 6803 |h | Jump_Zero 0x9af
09ac 480e |H | Short_Literal 0xe
09ad a5fc | | Store_Unchecked 0x2,-0x4
09ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09af 480d |H | Short_Literal 0xd
09b0 a5fc | | Store_Unchecked 0x2,-0x4
09b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b2 0000 0000 | | .BLANK 0000[0x6]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09c0 | | .CONST 0x09c0 ; Address of begin
09b9 0004 | | .CONST 0x0004 ; Address of exception handler
09ba 0002 | | .CONST 0x0002 ; Number of locals
09bb INIT_09b8:
09bb e002 | | Load 0x0,0x2
09bc 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
09bd 02c7 | | Declare_Variable Any
09be e5fd | | Load 0x2,-0x3
09bf aa02 | | Store_Unchecked 0x5,0x2
09c0 BODY_09b8:
09c0 00cf | | Action Mark_Auxiliary
09c1 e802 | | Load 0x4,0x2
09c2 00da | | Load_Top At_Offset_2
09c3 e002 | | Load 0x0,0x2
09c4 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
09c5 ca02 | | Store 0x5,0x2
09c6 e002 | | Load 0x0,0x2
09c7 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
09c8 00da | | Load_Top At_Offset_2
09c9 e002 | | Load 0x0,0x2
09ca 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
09cb 7002 |p | Jump_Nonzero 0x9ce
09cc 00c9 | | Action Pop_Auxiliary_Loop
09cd 7ff3 | | Jump 0x9c1
09ce 00ce | | Action Pop_Auxiliary
09cf e002 | | Load 0x0,0x2
09d0 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
09d1 00d9 | | Load_Top At_Offset_1
09d2 e002 | | Load 0x0,0x2
09d3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
09d4 00ca | | Action Exit_Nullary_Function
09d5 ; --------------------------------------------------------------------------------------
09d5 ; STRING TABLE
09d5 ; --------------------------------------------------------------------------------------
09d5 000a | | .STRTAB 0x000a->0x09da ; " raised "
09d6 0010 | | .STRTAB 0x0010->0x09de ; " is not a supported language"
09d7 002a | * | .STRTAB 0x002a->0x09ec ; "SYSTEM"
09d8 002e | . | .STRTAB 0x002e->0x09ef ; "TO_ADDRESS"
09d9 0036 | 6 | .STREND 0x0036->0x09f4
09da 2072 6169 | rai| .STRTAB_STRINGS
09f4 0000 0000 | | .BLANK 0000[0x4]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; Debug Table
09f8 ; --------------------------------------------------------------------------------------
09f8 0004 000c | | .DEBUG4 0x0004,0x000c,0x0021,0x0000,0x0001,0x0000
09fe 0000 0008 | | .XXX[0x2]