|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0658 | X | .CONST 0x0658 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b3 | | .CONST 0x00b3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0047 | G | .CONST 0x0047 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 0129 | ) | Execute Any,Make_Visible
000f e001 | | Load 0x0,0x1
0010 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0011 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0012 0129 | ) | Execute Any,Make_Visible
0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001f 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0021 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0023 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0025 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0027 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0029 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
002b 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
002d 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
002f 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0031 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0033 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0035 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0037 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0039 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
003b 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
003d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
003f 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0041 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0043 00bf | | Action Accept_Activation
0044 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0045 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0046 00c7 | | Action Elaborate_Subprogram
0047 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0048 00c7 | | Action Elaborate_Subprogram
0049 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004a 00c7 | | Action Elaborate_Subprogram
004b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004c 00c7 | | Action Elaborate_Subprogram
004d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004e 00c7 | | Action Elaborate_Subprogram
004f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0050 00c7 | | Action Elaborate_Subprogram
0051 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0052 00c7 | | Action Elaborate_Subprogram
0053 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0054 00c7 | | Action Elaborate_Subprogram
0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0056 00c7 | | Action Elaborate_Subprogram
0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0058 00c7 | | Action Elaborate_Subprogram
0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005a 00c7 | | Action Elaborate_Subprogram
005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005c 00c7 | | Action Elaborate_Subprogram
005d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0064 00c7 | | Action Elaborate_Subprogram
0065 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0066 00c7 | | Action Elaborate_Subprogram
0067 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0068 00c7 | | Action Elaborate_Subprogram
0069 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
006b 029b 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Unelaborated
006d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
006e 00c7 | | Action Elaborate_Subprogram
006f 029b 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Unelaborated
0071 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0072 00c7 | | Action Elaborate_Subprogram
0073 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
0075 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
0077 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0078 00c6 | | Action Check_Subprogram_Elaborated
0079 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
007a e002 | | Load 0x0,0x2
007b e003 | | Load 0x0,0x3
007c 4800 |H | Short_Literal 0x0
007d 0007 | | Action Break_Optional
007e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007f 00c7 | | Action Elaborate_Subprogram
0080 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0081 00c6 | | Action Check_Subprogram_Elaborated
0082 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0083 e004 | | Load 0x0,0x4
0084 e005 | | Load 0x0,0x5
0085 4800 |H | Short_Literal 0x0
0086 0007 | | Action Break_Optional
0087 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0088 00c7 | | Action Elaborate_Subprogram
0089 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
008b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
008c 00c6 | | Action Check_Subprogram_Elaborated
008d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
008e e006 | | Load 0x0,0x6
008f e007 | | Load 0x0,0x7
0090 4800 |H | Short_Literal 0x0
0091 0007 | | Action Break_Optional
0092 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0093 00c7 | | Action Elaborate_Subprogram
0094 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0095 00c6 | | Action Check_Subprogram_Elaborated
0096 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0097 e008 | | Load 0x0,0x8
0098 e009 | | Load 0x0,0x9
0099 4800 |H | Short_Literal 0x0
009a 0007 | | Action Break_Optional
009b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
009c 00c7 | | Action Elaborate_Subprogram
009d 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
009f 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00a0 00c6 | | Action Check_Subprogram_Elaborated
00a1 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
00a2 e00a | | Load 0x0,0xa
00a3 e00b | | Load 0x0,0xb
00a4 4800 |H | Short_Literal 0x0
00a5 0007 | | Action Break_Optional
00a6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00a7 00c7 | | Action Elaborate_Subprogram
00a8 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00aa 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00ab 00c6 | | Action Check_Subprogram_Elaborated
00ac 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
00ad e00c | | Load 0x0,0xc
00ae e00d | | Load 0x0,0xd
00af 4800 |H | Short_Literal 0x0
00b0 0007 | | Action Break_Optional
00b1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00b2 00c7 | | Action Elaborate_Subprogram
00b3 BODY_0008:
00b3 00bc | | Action Signal_Activated
00b4 00bb | | Action Signal_Completion
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e001 | | Load 0x0,0x1
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00be 00ca | | Action Exit_Nullary_Function
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 e00e | | Load 0x0,0xe
00c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c6 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e00e | | Load 0x0,0xe
00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ce 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7 | | .CONST 0x00d7 ; Address of begin
00d1 00fc | | .CONST 0x00fc ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e20e | | Load 0x1,0xe
00d4 02c7 | | Declare_Variable Any
00d5 00db | | Load_Top At_Offset_3
00d6 a402 | | Store_Unchecked 0x2,0x2
00d7 BODY_00d0:
00d7 00d8 | | Load_Top At_Offset_0
00d8 e001 | | Load 0x0,0x1
00d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00db 00cf | | Action Mark_Auxiliary
00dc 7813 |x | Jump 0xf0
00dd 00d9 | | Load_Top At_Offset_1
00de e001 | | Load 0x0,0x1
00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00e1 e5fe | | Load 0x2,-0x2
00e2 8214 | | Call 0x1,0x14
00e3 7006 |p | Jump_Nonzero 0xea
00e4 00d9 | | Load_Top At_Offset_1
00e5 e001 | | Load 0x0,0x1
00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00e8 4801 |H | Short_Literal 0x1
00e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ea 00d9 | | Load_Top At_Offset_1
00eb e001 | | Load 0x0,0x1
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00ee c402 | | Store 0x2,0x2
00ef 00c9 | | Action Pop_Auxiliary_Loop
00f0 00d9 | | Load_Top At_Offset_1
00f1 e001 | | Load 0x0,0x1
00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00f4 6fe8 |o | Jump_Zero 0xdd
00f5 00ce | | Action Pop_Auxiliary
00f6 00d8 | | Load_Top At_Offset_0
00f7 e001 | | Load 0x0,0x1
00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00fa 4800 |H | Short_Literal 0x0
00fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fc TRAP_00d0:
00fc 0007 | | Action Break_Optional
00fd 00d9 | | Load_Top At_Offset_1
00fe e001 | | Load 0x0,0x1
00ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0100 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0101 4800 |H | Short_Literal 0x0
0102 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0113 | | .CONST 0x0113 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b e20e | | Load 0x1,0xe
010c 02c7 | | Declare_Variable Any
010d 00db | | Load_Top At_Offset_3
010e a402 | | Store_Unchecked 0x2,0x2
010f e20e | | Load 0x1,0xe
0110 02c7 | | Declare_Variable Any
0111 820f | | Call 0x1,0xf
0112 a403 | | Store_Unchecked 0x2,0x3
0113 BODY_0108:
0113 00d9 | | Load_Top At_Offset_1
0114 e001 | | Load 0x0,0x1
0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0116 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0117 00cf | | Action Mark_Auxiliary
0118 780d |x | Jump 0x126
0119 00d9 | | Load_Top At_Offset_1
011a 00db | | Load_Top At_Offset_3
011b e001 | | Load 0x0,0x1
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
011e 8215 | | Call 0x1,0x15
011f c403 | | Store 0x2,0x3
0120 00da | | Load_Top At_Offset_2
0121 e001 | | Load 0x0,0x1
0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0123 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0124 c402 | | Store 0x2,0x2
0125 00c9 | | Action Pop_Auxiliary_Loop
0126 00da | | Load_Top At_Offset_2
0127 e001 | | Load 0x0,0x1
0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0129 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
012a 6fee |o | Jump_Zero 0x119
012b 00ce | | Action Pop_Auxiliary
012c 00d8 | | Load_Top At_Offset_0
012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 00db | | Load_Top At_Offset_3
0135 e001 | | Load 0x0,0x1
0136 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0137 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0138 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0144 | D | .CONST 0x0144 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 00e1 | | Load_Encached Boolean_Cache
0144 BODY_0140:
0144 00db | | Load_Top At_Offset_3
0145 e00e | | Load 0x0,0xe
0146 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0147 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0148 680e |h | Jump_Zero 0x157
0149 00db | | Load_Top At_Offset_3
014a e5fe | | Load 0x2,-0x2
014b 8214 | | Call 0x1,0x14
014c 700a |p | Jump_Nonzero 0x157
014d 00e1 | | Load_Encached Boolean_Cache
014e e001 | | Load 0x0,0x1
014f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0150 180e | | Execute Package,Field_Execute,Field_Number 0xe
0151 e5ff | | Load 0x2,-0x1
0152 e5fe | | Load 0x2,-0x2
0153 e001 | | Load 0x0,0x1
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0156 0059 | Y | Store_Top Discrete,At_Offset_1
0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015c | \ | .CONST 0x015c ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00e1 | | Load_Encached Boolean_Cache
015c BODY_0158:
015c 00e1 | | Load_Encached Boolean_Cache
015d e5ff | | Load 0x2,-0x1
015e e5fe | | Load 0x2,-0x2
015f e001 | | Load 0x0,0x1
0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0161 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0162 0059 | Y | Store_Top Discrete,At_Offset_1
0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0190 | | .CONST 0x0190 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0008 | | .CONST 0x0008 ; Number of locals
016b INIT_0168:
016b 4801 |H | Short_Literal 0x1
016c e5fd | | Load 0x2,-0x3
016d 8211 | | Call 0x1,0x11
016e 00e1 | | Load_Encached Boolean_Cache
016f 02a0 | | Declare_Subprogram Null_Subprogram
0170 4801 |H | Short_Literal 0x1
0171 035d | ] | Declare_Type Array,Defined
0172 00d8 | | Load_Top At_Offset_0
0173 0337 | 7 | Declare_Variable Array
0174 00d8 | | Load_Top At_Offset_0
0175 0335 | 5 | Declare_Variable Array,Duplicate
0176 00cd | | Action Spare6_Action
0177 00d9 | | Load_Top At_Offset_1
0178 01d9 | | Execute Vector,Reverse_Bounds
0179 0263 | c | Execute Discrete,Above_Bound
017a 7005 |p | Jump_Nonzero 0x180
017b 4800 |H | Short_Literal 0x0
017c 00d9 | | Load_Top At_Offset_1
017d e404 | | Load 0x2,0x4
017e 01d6 | | Execute Vector,Field_Write
017f 3ffb |? | Loop_Increasing 0x17b
0180 00d9 | | Load_Top At_Offset_1
0181 01d4 | | Execute Vector,Structure_Write
0182 e5fd | | Load 0x2,-0x3
0183 8211 | | Call 0x1,0x11
0184 00e3 | | Load_Encached Natural_Cache
0185 03f1 | | Declare_Variable Discrete,With_Value
0186 e20e | | Load 0x1,0xe
0187 02c7 | | Declare_Variable Any
0188 820f | | Call 0x1,0xf
0189 a405 | | Store_Unchecked 0x2,0x5
018a e20d | | Load 0x1,0xd
018b 02c7 | | Declare_Variable Any
018c 00d8 | | Load_Top At_Offset_0
018d 1c00 | | Execute_Immediate Run_Utility,0x0
018e 00e3 | | Load_Encached Natural_Cache
018f 00e3 | | Load_Encached Natural_Cache
0190 BODY_0168:
0190 00cf | | Action Mark_Auxiliary
0191 783a |x: | Jump 0x1cc
0192 4801 |H | Short_Literal 0x1
0193 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0194 e5fd | | Load 0x2,-0x3
0195 e001 | | Load 0x0,0x1
0196 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0197 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0198 e5fd | | Load 0x2,-0x3
0199 e001 | | Load 0x0,0x1
019a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
019c c406 | | Store 0x2,0x6
019d 00cf | | Action Mark_Auxiliary
019e 781b |x | Jump 0x1ba
019f 00da | | Load_Top At_Offset_2
01a0 e403 | | Load 0x2,0x3
01a1 01d7 | | Execute Vector,Field_Read
01a2 700e |p | Jump_Nonzero 0x1b1
01a3 e406 | | Load 0x2,0x6
01a4 e5fd | | Load 0x2,-0x3
01a5 e001 | | Load 0x0,0x1
01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01a8 85fe | | Call 0x2,-0x2
01a9 6807 |h | Jump_Zero 0x1b1
01aa e5fd | | Load 0x2,-0x3
01ab e001 | | Load 0x0,0x1
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01ae c406 | | Store 0x2,0x6
01af 00da | | Load_Top At_Offset_2
01b0 a407 | | Store_Unchecked 0x2,0x7
01b1 e5fd | | Load 0x2,-0x3
01b2 e001 | | Load 0x0,0x1
01b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01b5 c5fd | | Store 0x2,-0x3
01b6 00da | | Load_Top At_Offset_2
01b7 0a01 | | Execute_Immediate Plus,0x1
01b8 005b | [ | Store_Top Discrete,At_Offset_3
01b9 00c9 | | Action Pop_Auxiliary_Loop
01ba e5fd | | Load 0x2,-0x3
01bb e001 | | Load 0x0,0x1
01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01be 6fe0 |o | Jump_Zero 0x19f
01bf 00ce | | Action Pop_Auxiliary
01c0 e405 | | Load 0x2,0x5
01c1 e406 | | Load 0x2,0x6
01c2 8215 | | Call 0x1,0x15
01c3 c405 | | Store 0x2,0x5
01c4 4801 |H | Short_Literal 0x1
01c5 00db | | Load_Top At_Offset_3
01c6 e403 | | Load 0x2,0x3
01c7 01d6 | | Execute Vector,Field_Write
01c8 e404 | | Load 0x2,0x4
01c9 0aff | | Execute_Immediate Plus,-0x1
01ca c404 | | Store 0x2,0x4
01cb 00c9 | | Action Pop_Auxiliary_Loop
01cc e404 | | Load 0x2,0x4
01cd 0c01 | | Execute_Immediate Greater_Equal,0x1
01ce 77c3 |w | Jump_Nonzero 0x192
01cf 00ce | | Action Pop_Auxiliary
01d0 00db | | Load_Top At_Offset_3
01d1 c5fd | | Store 0x2,-0x3
01d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01df | | .CONST 0x01df ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e20e | | Load 0x1,0xe
01dc 02c7 | | Declare_Variable Any
01dd 820f | | Call 0x1,0xf
01de a402 | | Store_Unchecked 0x2,0x2
01df BODY_01d8:
01df e5fd | | Load 0x2,-0x3
01e0 e001 | | Load 0x0,0x1
01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01e3 00cf | | Action Mark_Auxiliary
01e4 7813 |x | Jump 0x1f8
01e5 e5fd | | Load 0x2,-0x3
01e6 e001 | | Load 0x0,0x1
01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01e9 85fe | | Call 0x2,-0x2
01ea 7007 |p | Jump_Nonzero 0x1f2
01eb 00d9 | | Load_Top At_Offset_1
01ec e5fd | | Load 0x2,-0x3
01ed e001 | | Load 0x0,0x1
01ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ef 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01f0 8215 | | Call 0x1,0x15
01f1 c402 | | Store 0x2,0x2
01f2 e5fd | | Load 0x2,-0x3
01f3 e001 | | Load 0x0,0x1
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01f6 c5fd | | Store 0x2,-0x3
01f7 00c9 | | Action Pop_Auxiliary_Loop
01f8 e5fd | | Load 0x2,-0x3
01f9 e001 | | Load 0x0,0x1
01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01fc 6fe8 |o | Jump_Zero 0x1e5
01fd 00ce | | Action Pop_Auxiliary
01fe 00d8 | | Load_Top At_Offset_0
01ff c5fd | | Store 0x2,-0x3
0200 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d | | .CONST 0x020d ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
020d BODY_0208:
020d e5fd | | Load 0x2,-0x3
020e e001 | | Load 0x0,0x1
020f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0210 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0211 00cf | | Action Mark_Auxiliary
0212 7807 |x | Jump 0x21a
0213 8402 | | Call 0x2,0x2
0214 e5fd | | Load 0x2,-0x3
0215 e001 | | Load 0x0,0x1
0216 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0217 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0218 c5fd | | Store 0x2,-0x3
0219 00c9 | | Action Pop_Auxiliary_Loop
021a e5fd | | Load 0x2,-0x3
021b e001 | | Load 0x0,0x1
021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
021e 6ff4 |o | Jump_Zero 0x213
021f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call
0225 BODY_0220:
0225 e5f9 | | Load 0x2,-0x7
0226 00d8 | | Load_Top At_Offset_0
0227 0120 | | Execute Any,Is_Value
0228 6803 |h | Jump_Zero 0x22c
0229 e5fb | | Load 0x2,-0x5
022a 011e | | Execute Any,Convert
022b 7802 |x | Jump 0x22e
022c e5fb | | Load 0x2,-0x5
022d 0119 | | Execute Any,Check_In_Formal_Type
022e 85fc | | Call 0x2,-0x4
022f c5f9 | | Store 0x2,-0x7
0230 e5fa | | Load 0x2,-0x6
0231 e001 | | Load 0x0,0x1
0232 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0233 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0234 00cf | | Action Mark_Auxiliary
0235 7807 |x | Jump 0x23d
0236 8402 | | Call 0x2,0x2
0237 e5fa | | Load 0x2,-0x6
0238 e001 | | Load 0x0,0x1
0239 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
023b c5fa | | Store 0x2,-0x6
023c 00c9 | | Action Pop_Auxiliary_Loop
023d e5fa | | Load 0x2,-0x6
023e e001 | | Load 0x0,0x1
023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0240 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0241 6ff4 |o | Jump_Zero 0x236
0242 00ce | | Action Pop_Auxiliary
0243 e5f9 | | Load 0x2,-0x7
0244 00d8 | | Load_Top At_Offset_0
0245 0120 | | Execute Any,Is_Value
0246 6803 |h | Jump_Zero 0x24a
0247 e5fb | | Load 0x2,-0x5
0248 011e | | Execute Any,Convert
0249 7802 |x | Jump 0x24c
024a e5fb | | Load 0x2,-0x5
024b 0119 | | Execute Any,Check_In_Formal_Type
024c 85fe | | Call 0x2,-0x2
024d c5f9 | | Store 0x2,-0x7
024e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259 | Y | .CONST 0x0259 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 e20e | | Load 0x1,0xe
0254 02c7 | | Declare_Variable Any
0255 820f | | Call 0x1,0xf
0256 a402 | | Store_Unchecked 0x2,0x2
0257 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call
0259 BODY_0250:
0259 00d9 | | Load_Top At_Offset_1
025a e5ff | | Load 0x2,-0x1
025b 8403 | | Call 0x2,0x3
025c c402 | | Store 0x2,0x2
025d 00d9 | | Load_Top At_Offset_1
025e e5fe | | Load 0x2,-0x2
025f 8403 | | Call 0x2,0x3
0260 c402 | | Store 0x2,0x2
0261 00d9 | | Load_Top At_Offset_1
0262 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0273 | s | .CONST 0x0273 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b e20e | | Load 0x1,0xe
026c 02c7 | | Declare_Variable Any
026d 00db | | Load_Top At_Offset_3
026e a402 | | Store_Unchecked 0x2,0x2
026f e20e | | Load 0x1,0xe
0270 02c7 | | Declare_Variable Any
0271 820f | | Call 0x1,0xf
0272 a403 | | Store_Unchecked 0x2,0x3
0273 BODY_0268:
0273 00d9 | | Load_Top At_Offset_1
0274 e001 | | Load 0x0,0x1
0275 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0276 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0277 00cf | | Action Mark_Auxiliary
0278 7814 |x | Jump 0x28d
0279 00da | | Load_Top At_Offset_2
027a e001 | | Load 0x0,0x1
027b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
027d e5fe | | Load 0x2,-0x2
027e 8214 | | Call 0x1,0x14
027f 6807 |h | Jump_Zero 0x287
0280 00d9 | | Load_Top At_Offset_1
0281 00db | | Load_Top At_Offset_3
0282 e001 | | Load 0x0,0x1
0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0284 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0285 8215 | | Call 0x1,0x15
0286 c403 | | Store 0x2,0x3
0287 00da | | Load_Top At_Offset_2
0288 e001 | | Load 0x0,0x1
0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
028b c402 | | Store 0x2,0x2
028c 00c9 | | Action Pop_Auxiliary_Loop
028d 00da | | Load_Top At_Offset_2
028e e001 | | Load 0x0,0x1
028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0290 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0291 6fe7 |o | Jump_Zero 0x279
0292 00ce | | Action Pop_Auxiliary
0293 00d8 | | Load_Top At_Offset_0
0294 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a1 | | .CONST 0x02a1 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b e20e | | Load 0x1,0xe
029c 02c7 | | Declare_Variable Any
029d 820f | | Call 0x1,0xf
029e a402 | | Store_Unchecked 0x2,0x2
029f 029f 060b | | Declare_Subprogram INIT_0608,For_Call
02a1 BODY_0298:
02a1 00d9 | | Load_Top At_Offset_1
02a2 e5fe | | Load 0x2,-0x2
02a3 e5ff | | Load 0x2,-0x1
02a4 8403 | | Call 0x2,0x3
02a5 c402 | | Store 0x2,0x2
02a6 00d9 | | Load_Top At_Offset_1
02a7 e5ff | | Load 0x2,-0x1
02a8 e5fe | | Load 0x2,-0x2
02a9 8403 | | Call 0x2,0x3
02aa c402 | | Store 0x2,0x2
02ab 00d9 | | Load_Top At_Offset_1
02ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02bb | | .CONST 0x02bb ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0003 | | .CONST 0x0003 ; Number of locals
02b3 INIT_02b0:
02b3 e20e | | Load 0x1,0xe
02b4 02c7 | | Declare_Variable Any
02b5 00db | | Load_Top At_Offset_3
02b6 a402 | | Store_Unchecked 0x2,0x2
02b7 e20e | | Load 0x1,0xe
02b8 02c7 | | Declare_Variable Any
02b9 820f | | Call 0x1,0xf
02ba a403 | | Store_Unchecked 0x2,0x3
02bb BODY_02b0:
02bb 00d9 | | Load_Top At_Offset_1
02bc e001 | | Load 0x0,0x1
02bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02be 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02bf 00cf | | Action Mark_Auxiliary
02c0 7814 |x | Jump 0x2d5
02c1 00da | | Load_Top At_Offset_2
02c2 e001 | | Load 0x0,0x1
02c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02c5 e5fe | | Load 0x2,-0x2
02c6 8214 | | Call 0x1,0x14
02c7 7007 |p | Jump_Nonzero 0x2cf
02c8 00d9 | | Load_Top At_Offset_1
02c9 00db | | Load_Top At_Offset_3
02ca e001 | | Load 0x0,0x1
02cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02cc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02cd 8215 | | Call 0x1,0x15
02ce c403 | | Store 0x2,0x3
02cf 00da | | Load_Top At_Offset_2
02d0 e001 | | Load 0x0,0x1
02d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02d3 c402 | | Store 0x2,0x2
02d4 00c9 | | Action Pop_Auxiliary_Loop
02d5 00da | | Load_Top At_Offset_2
02d6 e001 | | Load 0x0,0x1
02d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02d9 6fe7 |o | Jump_Zero 0x2c1
02da 00ce | | Action Pop_Auxiliary
02db 00d8 | | Load_Top At_Offset_0
02dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02dd 0000 0000 | | .XXX[0x3]
02df 0000 | |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e9 | | .CONST 0x02e9 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0003 | | .CONST 0x0003 ; Number of locals
02e3 INIT_02e0:
02e3 e20e | | Load 0x1,0xe
02e4 02c7 | | Declare_Variable Any
02e5 e5fe | | Load 0x2,-0x2
02e6 a402 | | Store_Unchecked 0x2,0x2
02e7 00e1 | | Load_Encached Boolean_Cache
02e8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02e9 BODY_02e0:
02e9 00d9 | | Load_Top At_Offset_1
02ea e001 | | Load 0x0,0x1
02eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ec 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02ed 00cf | | Action Mark_Auxiliary
02ee 7810 |x | Jump 0x2ff
02ef 00da | | Load_Top At_Offset_2
02f0 e001 | | Load 0x0,0x1
02f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02f3 e5ff | | Load 0x2,-0x1
02f4 8214 | | Call 0x1,0x14
02f5 7003 |p | Jump_Nonzero 0x2f9
02f6 4800 |H | Short_Literal 0x0
02f7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02f8 780b |x | Jump 0x304
02f9 00da | | Load_Top At_Offset_2
02fa e001 | | Load 0x0,0x1
02fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02fd c402 | | Store 0x2,0x2
02fe 00c9 | | Action Pop_Auxiliary_Loop
02ff 00da | | Load_Top At_Offset_2
0300 e001 | | Load 0x0,0x1
0301 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0302 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0303 6feb |o | Jump_Zero 0x2ef
0304 00ce | | Action Pop_Auxiliary
0305 00d8 | | Load_Top At_Offset_0
0306 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0307 0000 | | .XXX[0x1]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00db | | Load_Top At_Offset_3
030c 00db | | Load_Top At_Offset_3
030d 821f | | Call 0x1,0x1f
030e 6806 |h | Jump_Zero 0x315
030f 00da | | Load_Top At_Offset_2
0310 8211 | | Call 0x1,0x11
0311 e5fe | | Load 0x2,-0x2
0312 8211 | | Call 0x1,0x11
0313 027d | } | Execute Discrete,Greater
0314 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0315 4800 |H | Short_Literal 0x0
0316 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0317 0000 | | .XXX[0x1]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b e5fa | | Load 0x2,-0x6
031c e5fb | | Load 0x2,-0x5
031d e5fc | | Load 0x2,-0x4
031e e5fd | | Load 0x2,-0x3
031f e5fe | | Load 0x2,-0x2
0320 e5ff | | Load 0x2,-0x1
0321 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0322 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0323 8229 | ) | Call 0x1,0x29
0324 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b e5fa | | Load 0x2,-0x6
032c e5fb | | Load 0x2,-0x5
032d e5fc | | Load 0x2,-0x4
032e e5fd | | Load 0x2,-0x3
032f e5fe | | Load 0x2,-0x2
0330 e5ff | | Load 0x2,-0x1
0331 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0332 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0333 822a | * | Call 0x1,0x2a
0334 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e5fa | | Load 0x2,-0x6
033c e5fb | | Load 0x2,-0x5
033d e5fc | | Load 0x2,-0x4
033e e5fd | | Load 0x2,-0x3
033f e5fe | | Load 0x2,-0x2
0340 e5ff | | Load 0x2,-0x1
0341 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0342 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0343 8229 | ) | Call 0x1,0x29
0344 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b e5fa | | Load 0x2,-0x6
034c e5fb | | Load 0x2,-0x5
034d e5fc | | Load 0x2,-0x4
034e e5fd | | Load 0x2,-0x3
034f e5fe | | Load 0x2,-0x2
0350 e5ff | | Load 0x2,-0x1
0351 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0352 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0353 822a | * | Call 0x1,0x2a
0354 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0367 | g | .CONST 0x0367 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0002 | | .CONST 0x0002 ; Number of locals
035b INIT_0358:
035b e20e | | Load 0x1,0xe
035c 02c7 | | Declare_Variable Any
035d e5fe | | Load 0x2,-0x2
035e 4801 |H | Short_Literal 0x1
035f 4801 |H | Short_Literal 0x1
0360 4801 |H | Short_Literal 0x1
0361 4800 |H | Short_Literal 0x0
0362 e5ff | | Load 0x2,-0x1
0363 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0364 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
0365 8229 | ) | Call 0x1,0x29
0366 a402 | | Store_Unchecked 0x2,0x2
0367 BODY_0358:
0367 00db | | Load_Top At_Offset_3
0368 e00e | | Load 0x0,0xe
0369 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
036b 6804 |h | Jump_Zero 0x370
036c 00d8 | | Load_Top At_Offset_0
036d e5ff | | Load 0x2,-0x1
036e 8215 | | Call 0x1,0x15
036f c402 | | Store 0x2,0x2
0370 00d8 | | Load_Top At_Offset_0
0371 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b e5fd | | Load 0x2,-0x3
037c 4801 |H | Short_Literal 0x1
037d e5fe | | Load 0x2,-0x2
037e 4801 |H | Short_Literal 0x1
037f 4800 |H | Short_Literal 0x0
0380 e5ff | | Load 0x2,-0x1
0381 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
0382 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
0383 8229 | ) | Call 0x1,0x29
0384 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0393 | | .CONST 0x0393 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0003 | | .CONST 0x0003 ; Number of locals
038b INIT_0388:
038b e20e | | Load 0x1,0xe
038c 02c7 | | Declare_Variable Any
038d 820f | | Call 0x1,0xf
038e a402 | | Store_Unchecked 0x2,0x2
038f e20d | | Load 0x1,0xd
0390 02c7 | | Declare_Variable Any
0391 00d8 | | Load_Top At_Offset_0
0392 1c00 | | Execute_Immediate Run_Utility,0x0
0393 BODY_0388:
0393 e5fc | | Load 0x2,-0x4
0394 e001 | | Load 0x0,0x1
0395 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0396 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0397 00cf | | Action Mark_Auxiliary
0398 782a |x* | Jump 0x3c3
0399 e5fc | | Load 0x2,-0x4
039a e001 | | Load 0x0,0x1
039b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
039d c403 | | Store 0x2,0x3
039e 00d9 | | Load_Top At_Offset_1
039f e00e | | Load 0x0,0xe
03a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a1 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
03a2 6801 |h | Jump_Zero 0x3a4
03a3 7819 |x | Jump 0x3bd
03a4 00d9 | | Load_Top At_Offset_1
03a5 e5ff | | Load 0x2,-0x1
03a6 8214 | | Call 0x1,0x14
03a7 6801 |h | Jump_Zero 0x3a9
03a8 7814 |x | Jump 0x3bd
03a9 e5fe | | Load 0x2,-0x2
03aa 6806 |h | Jump_Zero 0x3b1
03ab 00d9 | | Load_Top At_Offset_1
03ac e00e | | Load 0x0,0xe
03ad 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03af 7001 |p | Jump_Nonzero 0x3b1
03b0 780c |x | Jump 0x3bd
03b1 e5fd | | Load 0x2,-0x3
03b2 7006 |p | Jump_Nonzero 0x3b9
03b3 00d9 | | Load_Top At_Offset_1
03b4 e00e | | Load 0x0,0xe
03b5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03b7 6801 |h | Jump_Zero 0x3b9
03b8 7804 |x | Jump 0x3bd
03b9 00da | | Load_Top At_Offset_2
03ba 00da | | Load_Top At_Offset_2
03bb 8215 | | Call 0x1,0x15
03bc c402 | | Store 0x2,0x2
03bd e5fc | | Load 0x2,-0x4
03be e001 | | Load 0x0,0x1
03bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03c1 c5fc | | Store 0x2,-0x4
03c2 00c9 | | Action Pop_Auxiliary_Loop
03c3 e5fc | | Load 0x2,-0x4
03c4 e001 | | Load 0x0,0x1
03c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03c7 6fd1 |o | Jump_Zero 0x399
03c8 00ce | | Action Pop_Auxiliary
03c9 00d9 | | Load_Top At_Offset_1
03ca c5fc | | Store 0x2,-0x4
03cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03dd | | .CONST 0x03dd ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0004 | | .CONST 0x0004 ; Number of locals
03d3 INIT_03d0:
03d3 e20e | | Load 0x1,0xe
03d4 02c7 | | Declare_Variable Any
03d5 820f | | Call 0x1,0xf
03d6 a402 | | Store_Unchecked 0x2,0x2
03d7 e20e | | Load 0x1,0xe
03d8 02c7 | | Declare_Variable Any
03d9 820f | | Call 0x1,0xf
03da a403 | | Store_Unchecked 0x2,0x3
03db 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call
03dd BODY_03d0:
03dd e5f8 | | Load 0x2,-0x8
03de e5f9 | | Load 0x2,-0x7
03df e5fd | | Load 0x2,-0x3
03e0 85fe | | Call 0x2,-0x2
03e1 c403 | | Store 0x2,0x3
03e2 00cf | | Action Mark_Auxiliary
03e3 00da | | Load_Top At_Offset_2
03e4 e5fa | | Load 0x2,-0x6
03e5 e5fc | | Load 0x2,-0x4
03e6 e402 | | Load 0x2,0x2
03e7 8228 | ( | Call 0x1,0x28
03e8 c403 | | Store 0x2,0x3
03e9 00da | | Load_Top At_Offset_2
03ea e402 | | Load 0x2,0x2
03eb 8227 | ' | Call 0x1,0x27
03ec c402 | | Store 0x2,0x2
03ed e5fb | | Load 0x2,-0x5
03ee 7001 |p | Jump_Nonzero 0x3f0
03ef 7809 |x | Jump 0x3f9
03f0 00da | | Load_Top At_Offset_2
03f1 8210 | | Call 0x1,0x10
03f2 6801 |h | Jump_Zero 0x3f4
03f3 7805 |x | Jump 0x3f9
03f4 00da | | Load_Top At_Offset_2
03f5 8404 | | Call 0x2,0x4
03f6 c403 | | Store 0x2,0x3
03f7 00c9 | | Action Pop_Auxiliary_Loop
03f8 7fea | | Jump 0x3e3
03f9 00ce | | Action Pop_Auxiliary
03fa 00da | | Load_Top At_Offset_2
03fb 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 040b | | .CONST 0x040b ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 e20e | | Load 0x1,0xe
0404 02c7 | | Declare_Variable Any
0405 e5fd | | Load 0x2,-0x3
0406 a402 | | Store_Unchecked 0x2,0x2
0407 e20e | | Load 0x1,0xe
0408 02c7 | | Declare_Variable Any
0409 820f | | Call 0x1,0xf
040a a403 | | Store_Unchecked 0x2,0x3
040b BODY_0400:
040b 00d9 | | Load_Top At_Offset_1
040c e001 | | Load 0x0,0x1
040d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
040f 00cf | | Action Mark_Auxiliary
0410 7813 |x | Jump 0x424
0411 e5f8 | | Load 0x2,-0x8
0412 e5f9 | | Load 0x2,-0x7
0413 e5fa | | Load 0x2,-0x6
0414 e5fb | | Load 0x2,-0x5
0415 e5fc | | Load 0x2,-0x4
0416 e402 | | Load 0x2,0x2
0417 e001 | | Load 0x0,0x1
0418 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0419 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
041a 85fe | | Call 0x2,-0x2
041b 00da | | Load_Top At_Offset_2
041c 8227 | ' | Call 0x1,0x27
041d c403 | | Store 0x2,0x3
041e 00da | | Load_Top At_Offset_2
041f e001 | | Load 0x0,0x1
0420 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0421 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0422 c402 | | Store 0x2,0x2
0423 00c9 | | Action Pop_Auxiliary_Loop
0424 00da | | Load_Top At_Offset_2
0425 e001 | | Load 0x0,0x1
0426 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0427 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0428 6fe8 |o | Jump_Zero 0x411
0429 00ce | | Action Pop_Auxiliary
042a 00d8 | | Load_Top At_Offset_0
042b 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
042c 0000 0000 | | .BLANK 0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 e00e | | Load 0x0,0xe
0435 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0436 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0437 e00e | | Load 0x0,0xe
0438 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0439 181b | | Execute Package,Field_Execute,Field_Number 0x1b
043a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043b 0000 0000 | | .BLANK 0000[0x5]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044a | J | .CONST 0x044a ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 e20e | | Load 0x1,0xe
0444 02c7 | | Declare_Variable Any
0445 00db | | Load_Top At_Offset_3
0446 e00e | | Load 0x0,0xe
0447 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0448 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0449 a402 | | Store_Unchecked 0x2,0x2
044a BODY_0440:
044a 00db | | Load_Top At_Offset_3
044b e00e | | Load 0x0,0xe
044c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
044d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
044e 6821 |h! | Jump_Zero 0x470
044f e5fe | | Load 0x2,-0x2
0450 7012 |p | Jump_Nonzero 0x463
0451 00db | | Load_Top At_Offset_3
0452 e00e | | Load 0x0,0xe
0453 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0454 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0455 680d |h | Jump_Zero 0x463
0456 00db | | Load_Top At_Offset_3
0457 822b | + | Call 0x1,0x2b
0458 680a |h | Jump_Zero 0x463
0459 00db | | Load_Top At_Offset_3
045a e00e | | Load 0x0,0xe
045b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
045c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
045d e00e | | Load 0x0,0xe
045e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
045f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0460 00d9 | | Load_Top At_Offset_1
0461 8227 | ' | Call 0x1,0x27
0462 c402 | | Store 0x2,0x2
0463 00db | | Load_Top At_Offset_3
0464 e00e | | Load 0x0,0xe
0465 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0466 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0467 6808 |h | Jump_Zero 0x470
0468 00d8 | | Load_Top At_Offset_0
0469 e5fd | | Load 0x2,-0x3
046a e5ff | | Load 0x2,-0x1
046b e00e | | Load 0x0,0xe
046c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
046d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
046e 8215 | | Call 0x1,0x15
046f c402 | | Store 0x2,0x2
0470 00d8 | | Load_Top At_Offset_0
0471 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0472 0000 0000 | | .BLANK 0000[0x6]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 048a | | .CONST 0x048a ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0004 | | .CONST 0x0004 ; Number of locals
047b INIT_0478:
047b e20e | | Load 0x1,0xe
047c 02c7 | | Declare_Variable Any
047d 00db | | Load_Top At_Offset_3
047e e00e | | Load 0x0,0xe
047f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0480 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0481 a402 | | Store_Unchecked 0x2,0x2
0482 e20e | | Load 0x1,0xe
0483 02c7 | | Declare_Variable Any
0484 820f | | Call 0x1,0xf
0485 a403 | | Store_Unchecked 0x2,0x3
0486 e20e | | Load 0x1,0xe
0487 02c7 | | Declare_Variable Any
0488 820f | | Call 0x1,0xf
0489 a404 | | Store_Unchecked 0x2,0x4
048a BODY_0478:
048a e5ff | | Load 0x2,-0x1
048b e00e | | Load 0x0,0xe
048c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
048d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
048e 686c |hl | Jump_Zero 0x4fb
048f e5ff | | Load 0x2,-0x1
0490 e00e | | Load 0x0,0xe
0491 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0492 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0493 6808 |h | Jump_Zero 0x49c
0494 00da | | Load_Top At_Offset_2
0495 e5ff | | Load 0x2,-0x1
0496 e00e | | Load 0x0,0xe
0497 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0498 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0499 8215 | | Call 0x1,0x15
049a c402 | | Store 0x2,0x2
049b 780c |x | Jump 0x4a8
049c e5ff | | Load 0x2,-0x1
049d e00e | | Load 0x0,0xe
049e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
049f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04a0 6807 |h | Jump_Zero 0x4a8
04a1 00da | | Load_Top At_Offset_2
04a2 e5ff | | Load 0x2,-0x1
04a3 e00e | | Load 0x0,0xe
04a4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04a5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04a6 8215 | | Call 0x1,0x15
04a7 c402 | | Store 0x2,0x2
04a8 e5fe | | Load 0x2,-0x2
04a9 7024 |p$ | Jump_Nonzero 0x4ce
04aa 00da | | Load_Top At_Offset_2
04ab e001 | | Load 0x0,0x1
04ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ad 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04ae 00cf | | Action Mark_Auxiliary
04af 7818 |x | Jump 0x4c8
04b0 00db | | Load_Top At_Offset_3
04b1 e001 | | Load 0x0,0x1
04b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04b3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04b4 e00e | | Load 0x0,0xe
04b5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04b7 680a |h | Jump_Zero 0x4c2
04b8 e00f | | Load 0x0,0xf
04b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04ba e402 | | Load 0x2,0x2
04bb e001 | | Load 0x0,0x1
04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04be 8225 | % | Call 0x1,0x25
04bf 00db | | Load_Top At_Offset_3
04c0 8227 | ' | Call 0x1,0x27
04c1 c403 | | Store 0x2,0x3
04c2 00db | | Load_Top At_Offset_3
04c3 e001 | | Load 0x0,0x1
04c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04c6 c402 | | Store 0x2,0x2
04c7 00c9 | | Action Pop_Auxiliary_Loop
04c8 00db | | Load_Top At_Offset_3
04c9 e001 | | Load 0x0,0x1
04ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04cb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04cc 6fe3 |o | Jump_Zero 0x4b0
04cd 00ce | | Action Pop_Auxiliary
04ce 00d9 | | Load_Top At_Offset_1
04cf 00db | | Load_Top At_Offset_3
04d0 8227 | ' | Call 0x1,0x27
04d1 c402 | | Store 0x2,0x2
04d2 00da | | Load_Top At_Offset_2
04d3 e001 | | Load 0x0,0x1
04d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04d6 00cf | | Action Mark_Auxiliary
04d7 7819 |x | Jump 0x4f1
04d8 00db | | Load_Top At_Offset_3
04d9 e001 | | Load 0x0,0x1
04da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04db 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04dc e00e | | Load 0x0,0xe
04dd 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04de 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04df 680b |h | Jump_Zero 0x4eb
04e0 00d9 | | Load_Top At_Offset_1
04e1 e5fd | | Load 0x2,-0x3
04e2 e402 | | Load 0x2,0x2
04e3 e001 | | Load 0x0,0x1
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04e6 e00e | | Load 0x0,0xe
04e7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04e8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04e9 8215 | | Call 0x1,0x15
04ea c404 | | Store 0x2,0x4
04eb 00db | | Load_Top At_Offset_3
04ec e001 | | Load 0x0,0x1
04ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04ef c402 | | Store 0x2,0x2
04f0 00c9 | | Action Pop_Auxiliary_Loop
04f1 00db | | Load_Top At_Offset_3
04f2 e001 | | Load 0x0,0x1
04f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04f5 6fe2 |o | Jump_Zero 0x4d8
04f6 00ce | | Action Pop_Auxiliary
04f7 00d8 | | Load_Top At_Offset_0
04f8 00db | | Load_Top At_Offset_3
04f9 8227 | ' | Call 0x1,0x27
04fa c402 | | Store 0x2,0x2
04fb 00da | | Load_Top At_Offset_2
04fc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04fd 0000 0000 | | .XXX[0x3]
04ff 0000 | |
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 050a | | .CONST 0x050a ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0002 | | .CONST 0x0002 ; Number of locals
0503 INIT_0500:
0503 e20e | | Load 0x1,0xe
0504 02c7 | | Declare_Variable Any
0505 00db | | Load_Top At_Offset_3
0506 e00e | | Load 0x0,0xe
0507 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0508 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0509 a402 | | Store_Unchecked 0x2,0x2
050a BODY_0500:
050a 00db | | Load_Top At_Offset_3
050b e00e | | Load 0x0,0xe
050c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
050d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
050e 681f |h | Jump_Zero 0x52e
050f 00d8 | | Load_Top At_Offset_0
0510 e5ff | | Load 0x2,-0x1
0511 e00e | | Load 0x0,0xe
0512 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0513 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0514 8215 | | Call 0x1,0x15
0515 c402 | | Store 0x2,0x2
0516 00db | | Load_Top At_Offset_3
0517 e00e | | Load 0x0,0xe
0518 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0519 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
051a e00e | | Load 0x0,0xe
051b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
051c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
051d 00d9 | | Load_Top At_Offset_1
051e 8227 | ' | Call 0x1,0x27
051f c402 | | Store 0x2,0x2
0520 00db | | Load_Top At_Offset_3
0521 e00e | | Load 0x0,0xe
0522 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0523 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0524 6815 |h | Jump_Zero 0x53a
0525 00d8 | | Load_Top At_Offset_0
0526 e5fd | | Load 0x2,-0x3
0527 e5ff | | Load 0x2,-0x1
0528 e00e | | Load 0x0,0xe
0529 1b12 | | Execute Package,Field_Read,Field_Number 0x12
052a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
052b 8215 | | Call 0x1,0x15
052c c402 | | Store 0x2,0x2
052d 780c |x | Jump 0x53a
052e 00db | | Load_Top At_Offset_3
052f e00e | | Load 0x0,0xe
0530 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0531 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0532 6807 |h | Jump_Zero 0x53a
0533 00db | | Load_Top At_Offset_3
0534 e00e | | Load 0x0,0xe
0535 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0536 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0537 00d9 | | Load_Top At_Offset_1
0538 8227 | ' | Call 0x1,0x27
0539 c402 | | Store 0x2,0x2
053a 00d8 | | Load_Top At_Offset_0
053b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
053c 0000 0000 | | .BLANK 0000[0x4]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0552 | R | .CONST 0x0552 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0004 | | .CONST 0x0004 ; Number of locals
0543 INIT_0540:
0543 e20e | | Load 0x1,0xe
0544 02c7 | | Declare_Variable Any
0545 00db | | Load_Top At_Offset_3
0546 e00e | | Load 0x0,0xe
0547 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0548 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0549 a402 | | Store_Unchecked 0x2,0x2
054a e20e | | Load 0x1,0xe
054b 02c7 | | Declare_Variable Any
054c 820f | | Call 0x1,0xf
054d a403 | | Store_Unchecked 0x2,0x3
054e e20e | | Load 0x1,0xe
054f 02c7 | | Declare_Variable Any
0550 820f | | Call 0x1,0xf
0551 a404 | | Store_Unchecked 0x2,0x4
0552 BODY_0540:
0552 e5ff | | Load 0x2,-0x1
0553 e00e | | Load 0x0,0xe
0554 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0555 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0556 6866 |hf | Jump_Zero 0x5bd
0557 00da | | Load_Top At_Offset_2
0558 e5ff | | Load 0x2,-0x1
0559 8215 | | Call 0x1,0x15
055a c402 | | Store 0x2,0x2
055b e5ff | | Load 0x2,-0x1
055c e00e | | Load 0x0,0xe
055d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
055e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
055f 6808 |h | Jump_Zero 0x568
0560 00da | | Load_Top At_Offset_2
0561 e5ff | | Load 0x2,-0x1
0562 e00e | | Load 0x0,0xe
0563 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0564 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0565 8215 | | Call 0x1,0x15
0566 c402 | | Store 0x2,0x2
0567 780c |x | Jump 0x574
0568 e5ff | | Load 0x2,-0x1
0569 e00e | | Load 0x0,0xe
056a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
056b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
056c 6807 |h | Jump_Zero 0x574
056d 00da | | Load_Top At_Offset_2
056e e5ff | | Load 0x2,-0x1
056f e00e | | Load 0x0,0xe
0570 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0571 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0572 8215 | | Call 0x1,0x15
0573 c402 | | Store 0x2,0x2
0574 00da | | Load_Top At_Offset_2
0575 e001 | | Load 0x0,0x1
0576 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0577 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0578 00cf | | Action Mark_Auxiliary
0579 7810 |x | Jump 0x58a
057a e00f | | Load 0x0,0xf
057b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
057c e402 | | Load 0x2,0x2
057d e001 | | Load 0x0,0x1
057e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
057f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0580 8225 | % | Call 0x1,0x25
0581 00db | | Load_Top At_Offset_3
0582 8227 | ' | Call 0x1,0x27
0583 c403 | | Store 0x2,0x3
0584 00db | | Load_Top At_Offset_3
0585 e001 | | Load 0x0,0x1
0586 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0587 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0588 c402 | | Store 0x2,0x2
0589 00c9 | | Action Pop_Auxiliary_Loop
058a 00db | | Load_Top At_Offset_3
058b e001 | | Load 0x0,0x1
058c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
058e 6feb |o | Jump_Zero 0x57a
058f 00ce | | Action Pop_Auxiliary
0590 00d9 | | Load_Top At_Offset_1
0591 00db | | Load_Top At_Offset_3
0592 8227 | ' | Call 0x1,0x27
0593 c402 | | Store 0x2,0x2
0594 00da | | Load_Top At_Offset_2
0595 e001 | | Load 0x0,0x1
0596 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0597 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0598 00cf | | Action Mark_Auxiliary
0599 7819 |x | Jump 0x5b3
059a 00db | | Load_Top At_Offset_3
059b e001 | | Load 0x0,0x1
059c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
059e e00e | | Load 0x0,0xe
059f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05a1 680b |h | Jump_Zero 0x5ad
05a2 00d9 | | Load_Top At_Offset_1
05a3 e5fd | | Load 0x2,-0x3
05a4 e402 | | Load 0x2,0x2
05a5 e001 | | Load 0x0,0x1
05a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05a8 e00e | | Load 0x0,0xe
05a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05aa 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05ab 8215 | | Call 0x1,0x15
05ac c404 | | Store 0x2,0x4
05ad 00db | | Load_Top At_Offset_3
05ae e001 | | Load 0x0,0x1
05af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05b1 c402 | | Store 0x2,0x2
05b2 00c9 | | Action Pop_Auxiliary_Loop
05b3 00db | | Load_Top At_Offset_3
05b4 e001 | | Load 0x0,0x1
05b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05b6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05b7 6fe2 |o | Jump_Zero 0x59a
05b8 00ce | | Action Pop_Auxiliary
05b9 00d8 | | Load_Top At_Offset_0
05ba 00db | | Load_Top At_Offset_3
05bb 8227 | ' | Call 0x1,0x27
05bc c402 | | Store 0x2,0x2
05bd 00da | | Load_Top At_Offset_2
05be 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05bf 0000 | | .XXX[0x1]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05ca | | .CONST 0x05ca ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0002 | | .CONST 0x0002 ; Number of locals
05c3 INIT_05c0:
05c3 e20d | | Load 0x1,0xd
05c4 02c7 | | Declare_Variable Any
05c5 e5fd | | Load 0x2,-0x3
05c6 e001 | | Load 0x0,0x1
05c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05c9 a602 | | Store_Unchecked 0x3,0x2
05ca BODY_05c0:
05ca 00d8 | | Load_Top At_Offset_0
05cb 85fe | | Call 0x2,-0x2
05cc c602 | | Store 0x3,0x2
05cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05da | | .CONST 0x05da ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0002 | | .CONST 0x0002 ; Number of locals
05d3 INIT_05d0:
05d3 e20d | | Load 0x1,0xd
05d4 02c7 | | Declare_Variable Any
05d5 e5fa | | Load 0x2,-0x6
05d6 e001 | | Load 0x0,0x1
05d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05d9 a602 | | Store_Unchecked 0x3,0x2
05da BODY_05d0:
05da e5f9 | | Load 0x2,-0x7
05db 00d8 | | Load_Top At_Offset_0
05dc 0120 | | Execute Any,Is_Value
05dd 6803 |h | Jump_Zero 0x5e1
05de e5fb | | Load 0x2,-0x5
05df 011e | | Execute Any,Convert
05e0 7802 |x | Jump 0x5e3
05e1 e5fb | | Load 0x2,-0x5
05e2 0119 | | Execute Any,Check_In_Formal_Type
05e3 00d9 | | Load_Top At_Offset_1
05e4 85fd | | Call 0x2,-0x3
05e5 c602 | | Store 0x3,0x2
05e6 c5f9 | | Store 0x2,-0x7
05e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05ef | | .CONST 0x05ef ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb e20e | | Load 0x1,0xe
05ec 02c7 | | Declare_Variable Any
05ed 00db | | Load_Top At_Offset_3
05ee a602 | | Store_Unchecked 0x3,0x2
05ef BODY_05e8:
05ef 00d8 | | Load_Top At_Offset_0
05f0 e001 | | Load 0x0,0x1
05f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05f3 00cf | | Action Mark_Auxiliary
05f4 780d |x | Jump 0x602
05f5 e7fe | | Load 0x3,-0x2
05f6 00da | | Load_Top At_Offset_2
05f7 e001 | | Load 0x0,0x1
05f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05fa 8215 | | Call 0x1,0x15
05fb c7fe | | Store 0x3,-0x2
05fc 00d9 | | Load_Top At_Offset_1
05fd e001 | | Load 0x0,0x1
05fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ff 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0600 c602 | | Store 0x3,0x2
0601 00c9 | | Action Pop_Auxiliary_Loop
0602 00d9 | | Load_Top At_Offset_1
0603 e001 | | Load 0x0,0x1
0604 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0605 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0606 6fee |o | Jump_Zero 0x5f5
0607 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060f | | .CONST 0x060f ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0002 | | .CONST 0x0002 ; Number of locals
060b INIT_0608:
060b e20e | | Load 0x1,0xe
060c 02c7 | | Declare_Variable Any
060d 00db | | Load_Top At_Offset_3
060e a602 | | Store_Unchecked 0x3,0x2
060f BODY_0608:
060f 00d8 | | Load_Top At_Offset_0
0610 e001 | | Load 0x0,0x1
0611 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0612 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0613 00cf | | Action Mark_Auxiliary
0614 7814 |x | Jump 0x629
0615 00d9 | | Load_Top At_Offset_1
0616 e001 | | Load 0x0,0x1
0617 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0618 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0619 e7fe | | Load 0x3,-0x2
061a 8214 | | Call 0x1,0x14
061b 7007 |p | Jump_Nonzero 0x623
061c e7fd | | Load 0x3,-0x3
061d 00da | | Load_Top At_Offset_2
061e e001 | | Load 0x0,0x1
061f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0620 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0621 8215 | | Call 0x1,0x15
0622 c7fd | | Store 0x3,-0x3
0623 00d9 | | Load_Top At_Offset_1
0624 e001 | | Load 0x0,0x1
0625 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0626 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0627 c602 | | Store 0x3,0x2
0628 00c9 | | Action Pop_Auxiliary_Loop
0629 00d9 | | Load_Top At_Offset_1
062a e001 | | Load 0x0,0x1
062b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
062d 6fe7 |o | Jump_Zero 0x615
062e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
062f 0000 | | .XXX[0x1]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0637 | 7 | .CONST 0x0637 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 e20e | | Load 0x1,0xe
0634 02c7 | | Declare_Variable Any
0635 820f | | Call 0x1,0xf
0636 a602 | | Store_Unchecked 0x3,0x2
0637 BODY_0630:
0637 00db | | Load_Top At_Offset_3
0638 e001 | | Load 0x0,0x1
0639 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
063b 00cf | | Action Mark_Auxiliary
063c 7810 |x | Jump 0x64d
063d e5f8 | | Load 0x2,-0x8
063e e5f9 | | Load 0x2,-0x7
063f e7ff | | Load 0x3,-0x1
0640 e001 | | Load 0x0,0x1
0641 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0642 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0643 85fe | | Call 0x2,-0x2
0644 00da | | Load_Top At_Offset_2
0645 8227 | ' | Call 0x1,0x27
0646 c602 | | Store 0x3,0x2
0647 e7ff | | Load 0x3,-0x1
0648 e001 | | Load 0x0,0x1
0649 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
064b c7ff | | Store 0x3,-0x1
064c 00c9 | | Action Pop_Auxiliary_Loop
064d e7ff | | Load 0x3,-0x1
064e e001 | | Load 0x0,0x1
064f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0650 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0651 6feb |o | Jump_Zero 0x63d
0652 00ce | | Action Pop_Auxiliary
0653 00d8 | | Load_Top At_Offset_0
0654 c7ff | | Store 0x3,-0x1
0655 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0656 0000 0000 | | .XXX[0x2]
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e51,0x0000,0x0001,0x0000
065e 0000 0000 | | .BLANK 0000[0x1a2]