|
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 - metrics - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 0810 | | .CONST 0x0810 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007f | | .CONST 0x007f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000d e002 | | Load 0x0,0x2
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f 02a0 | | Declare_Subprogram Null_Subprogram
0010 4802 |H | Short_Literal 0x2
0011 032e | . | Declare_Type Record,Defined,Visible
0012 4801 |H | Short_Literal 0x1
0013 4814 |H | Short_Literal 0x14
0014 00da | | Load_Top At_Offset_2
0015 02a0 | | Declare_Subprogram Null_Subprogram
0016 4801 |H | Short_Literal 0x1
0017 035e | ^ | Declare_Type Array,Defined,Visible
0018 00d8 | | Load_Top At_Offset_0
0019 0336 | 6 | Declare_Variable Array,Visible
001a 00d8 | | Load_Top At_Offset_0
001b 0335 | 5 | Declare_Variable Array,Duplicate
001c 00cd | | Action Spare6_Action
001d 4814 |H | Short_Literal 0x14
001e 4801 |H | Short_Literal 0x1
001f e20d | | Load 0x1,0xd
0020 0322 | " | Declare_Variable Record
0021 4800 |H | Short_Literal 0x0
0022 00d9 | | Load_Top At_Offset_1
0023 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0024 4800 |H | Short_Literal 0x0
0025 00d9 | | Load_Top At_Offset_1
0026 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0027 00d9 | | Load_Top At_Offset_1
0028 e210 | | Load 0x1,0x10
0029 01d6 | | Execute Vector,Field_Write
002a 3ff4 |? | Loop_Increasing 0x1f
002b 00d9 | | Load_Top At_Offset_1
002c 01d4 | | Execute Vector,Structure_Write
002d 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
002f 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0031 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0033 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
0035 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0037 029a 02bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b8
0039 029a 02d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d0
003b 029a 02eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e8
003d 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300
003f 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
0041 029a 048b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0488
0043 0093 0000 | | PushFullAddress InMicrocode
0045 6152 |aR | Indirect_Literal Discrete,0x198,{0x80000000, 0x00010000}
0046 0273 | s | Execute Discrete,Plus
0047 0129 | ) | Execute Any,Make_Visible
0048 029a 04d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04d0
004a 029a 051b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0518
004c 029a 05bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05b8
004e 029a 06a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06a0
0050 00bf | | Action Accept_Activation
0051 029d 06db | | Declare_Subprogram For_Outer_Call,INIT_06d8
0053 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0054 00c7 | | Action Elaborate_Subprogram
0055 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0056 00c7 | | Action Elaborate_Subprogram
0057 029d 06eb | | Declare_Subprogram For_Outer_Call,INIT_06e8
0059 029d 06fb | | Declare_Subprogram For_Outer_Call,INIT_06f8
005b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005c 00c7 | | Action Elaborate_Subprogram
005d 029d 070b | | Declare_Subprogram For_Outer_Call,INIT_0708
005f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0060 00c7 | | Action Elaborate_Subprogram
0061 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0062 00c7 | | Action Elaborate_Subprogram
0063 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0064 00c7 | | Action Elaborate_Subprogram
0065 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0066 00c7 | | Action Elaborate_Subprogram
0067 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0068 00c7 | | Action Elaborate_Subprogram
0069 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006a 00c7 | | Action Elaborate_Subprogram
006b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006c 00c7 | | Action Elaborate_Subprogram
006d 029d 076b | k| Declare_Subprogram For_Outer_Call,INIT_0768
006f 029d 079b | | Declare_Subprogram For_Outer_Call,INIT_0798
0071 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0074 00c7 | | Action Elaborate_Subprogram
0075 029d 07b3 | | Declare_Subprogram For_Outer_Call,INIT_07b0
0077 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0078 00c7 | | Action Elaborate_Subprogram
0079 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
007a 00c7 | | Action Elaborate_Subprogram
007b 029d 07cb | | Declare_Subprogram For_Outer_Call,INIT_07c8
007d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007e 00c7 | | Action Elaborate_Subprogram
007f BODY_0008:
007f 00bc | | Action Signal_Activated
0080 00bb | | Action Signal_Completion
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00a8 | | .CONST 0x00a8 ; Address of begin
0089 015b | [ | .CONST 0x015b ; Address of exception handler
008a 0014 | | .CONST 0x0014 ; Number of locals
008b INIT_0088:
008b e003 | | Load 0x0,0x3
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d 00e3 | | Load_Encached Natural_Cache
008e e004 | | Load 0x0,0x4
008f 0007 | | Action Break_Optional
0090 00e2 | | Load_Encached Integer_Cache
0091 00e3 | | Load_Encached Natural_Cache
0092 00e1 | | Load_Encached Boolean_Cache
0093 00e1 | | Load_Encached Boolean_Cache
0094 e002 | | Load 0x0,0x2
0095 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0096 e002 | | Load 0x0,0x2
0097 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0098 e002 | | Load 0x0,0x2
0099 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009a e002 | | Load 0x0,0x2
009b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009c e002 | | Load 0x0,0x2
009d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009e e002 | | Load 0x0,0x2
009f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a0 00e1 | | Load_Encached Boolean_Cache
00a1 00e1 | | Load_Encached Boolean_Cache
00a2 e002 | | Load 0x0,0x2
00a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a4 e002 | | Load 0x0,0x2
00a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a6 00e3 | | Load_Encached Natural_Cache
00a7 00e3 | | Load_Encached Natural_Cache
00a8 BODY_0088:
00a8 4800 |H | Short_Literal 0x0
00a9 a404 | | Store_Unchecked 0x2,0x4
00aa 4800 |H | Short_Literal 0x0
00ab a407 | | Store_Unchecked 0x2,0x7
00ac 4800 |H | Short_Literal 0x0
00ad a408 | | Store_Unchecked 0x2,0x8
00ae e5ff | | Load 0x2,-0x1
00af e002 | | Load 0x0,0x2
00b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b1 a409 | | Store_Unchecked 0x2,0x9
00b2 e5ff | | Load 0x2,-0x1
00b3 e002 | | Load 0x0,0x2
00b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b5 a40a | | Store_Unchecked 0x2,0xa
00b6 e002 | | Load 0x0,0x2
00b7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b8 e002 | | Load 0x0,0x2
00b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ba 00e3 | | Load_Encached Natural_Cache
00bb e005 | | Load 0x0,0x5
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd e409 | | Load 0x2,0x9
00be e005 | | Load 0x0,0x5
00bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c0 c402 | | Store 0x2,0x2
00c1 c403 | | Store 0x2,0x3
00c2 c40b | | Store 0x2,0xb
00c3 c40c | | Store 0x2,0xc
00c4 e002 | | Load 0x0,0x2
00c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c6 e40a | | Load 0x2,0xa
00c7 4800 |H | Short_Literal 0x0
00c8 4804 |H | Short_Literal 0x4
00c9 e40c | | Load 0x2,0xc
00ca 0a01 | | Execute_Immediate Plus,0x1
00cb e002 | | Load 0x0,0x2
00cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cd 00d9 | | Load_Top At_Offset_1
00ce 00d0 | | Action Swap_Control
00cf 0260 | ` | Execute Discrete,In_Type
00d0 7001 |p | Jump_Nonzero 0xd2
00d1 0801 | | Execute_Immediate Raise,0x1
00d2 e40c | | Load 0x2,0xc
00d3 e002 | | Load 0x0,0x2
00d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d5 00d9 | | Load_Top At_Offset_1
00d6 00d0 | | Action Swap_Control
00d7 0260 | ` | Execute Discrete,In_Type
00d8 7001 |p | Jump_Nonzero 0xda
00d9 0801 | | Execute_Immediate Raise,0x1
00da e409 | | Load 0x2,0x9
00db e002 | | Load 0x0,0x2
00dc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00dd e409 | | Load 0x2,0x9
00de e005 | | Load 0x0,0x5
00df 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e0 c40d | | Store 0x2,0xd
00e1 e40d | | Load 0x2,0xd
00e2 7003 |p | Jump_Nonzero 0xe6
00e3 e005 | | Load 0x0,0x5
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 0257 | W | Execute Discrete,Raise
00e6 e40a | | Load 0x2,0xa
00e7 e40d | | Load 0x2,0xd
00e8 e002 | | Load 0x0,0x2
00e9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ea 00d9 | | Load_Top At_Offset_1
00eb 00d0 | | Action Swap_Control
00ec 0260 | ` | Execute Discrete,In_Type
00ed 7001 |p | Jump_Nonzero 0xef
00ee 0801 | | Execute_Immediate Raise,0x1
00ef e409 | | Load 0x2,0x9
00f0 e002 | | Load 0x0,0x2
00f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f2 027f | | Execute Discrete,Equal
00f3 a408 | | Store_Unchecked 0x2,0x8
00f4 00e3 | | Load_Encached Natural_Cache
00f5 00e3 | | Load_Encached Natural_Cache
00f6 e002 | | Load 0x0,0x2
00f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f8 00e3 | | Load_Encached Natural_Cache
00f9 00e1 | | Load_Encached Boolean_Cache
00fa 00e1 | | Load_Encached Boolean_Cache
00fb e002 | | Load 0x0,0x2
00fc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00fd e40d | | Load 0x2,0xd
00fe e40c | | Load 0x2,0xc
00ff e409 | | Load 0x2,0x9
0100 e005 | | Load 0x0,0x5
0101 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0102 c40e | | Store 0x2,0xe
0103 c40f | | Store 0x2,0xf
0104 c410 | | Store 0x2,0x10
0105 c406 | | Store 0x2,0x6
0106 c411 | | Store 0x2,0x11
0107 005a | Z | Store_Top Discrete,At_Offset_2
0108 005a | Z | Store_Top Discrete,At_Offset_2
0109 00db | | Load_Top At_Offset_3
010a 7003 |p | Jump_Nonzero 0x10e
010b e005 | | Load 0x0,0x5
010c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
010d 0257 | W | Execute Discrete,Raise
010e e002 | | Load 0x0,0x2
010f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0110 e40a | | Load 0x2,0xa
0111 4800 |H | Short_Literal 0x0
0112 4801 |H | Short_Literal 0x1
0113 e411 | | Load 0x2,0x11
0114 0a02 | | Execute_Immediate Plus,0x2
0115 e002 | | Load 0x0,0x2
0116 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0117 00d9 | | Load_Top At_Offset_1
0118 00d0 | | Action Swap_Control
0119 0260 | ` | Execute Discrete,In_Type
011a 7001 |p | Jump_Nonzero 0x11c
011b 0801 | | Execute_Immediate Raise,0x1
011c e414 | | Load 0x2,0x14
011d e413 | | Load 0x2,0x13
011e 0273 | s | Execute Discrete,Plus
011f 00d8 | | Load_Top At_Offset_0
0120 00e3 | | Load_Encached Natural_Cache
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 e409 | | Load 0x2,0x9
0125 e005 | | Load 0x0,0x5
0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0127 005b | [ | Store_Top Discrete,At_Offset_3
0128 00da | | Load_Top At_Offset_2
0129 7003 |p | Jump_Nonzero 0x12d
012a e005 | | Load 0x0,0x5
012b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
012c 0257 | W | Execute Discrete,Raise
012d 00e2 | | Load_Encached Integer_Cache
012e e410 | | Load 0x2,0x10
012f e40f | | Load 0x2,0xf
0130 e413 | | Load 0x2,0x13
0131 e414 | | Load 0x2,0x14
0132 e411 | | Load 0x2,0x11
0133 e412 | | Load 0x2,0x12
0134 e409 | | Load 0x2,0x9
0135 e005 | | Load 0x0,0x5
0136 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0137 c405 | | Store 0x2,0x5
0138 e405 | | Load 0x2,0x5
0139 8006 | | Call 0x0,0x6
013a a404 | | Store_Unchecked 0x2,0x4
013b e40a | | Load 0x2,0xa
013c 00db | | Load_Top At_Offset_3
013d e002 | | Load 0x0,0x2
013e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
013f 00d9 | | Load_Top At_Offset_1
0140 00d0 | | Action Swap_Control
0141 0260 | ` | Execute Discrete,In_Type
0142 7001 |p | Jump_Nonzero 0x144
0143 0801 | | Execute_Immediate Raise,0x1
0144 e409 | | Load 0x2,0x9
0145 e002 | | Load 0x0,0x2
0146 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0147 027f | | Execute Discrete,Equal
0148 a407 | | Store_Unchecked 0x2,0x7
0149 e408 | | Load 0x2,0x8
014a e407 | | Load 0x2,0x7
014b e404 | | Load 0x2,0x4
014c e406 | | Load 0x2,0x6
014d 00d8 | | Load_Top At_Offset_0
014e 00e4 | | Load_Encached Positive_Cache
014f 0260 | ` | Execute Discrete,In_Type
0150 7001 |p | Jump_Nonzero 0x152
0151 0801 | | Execute_Immediate Raise,0x1
0152 e402 | | Load 0x2,0x2
0153 e403 | | Load 0x2,0x3
0154 8007 | | Call 0x0,0x7
0155 e008 | | Load 0x0,0x8
0156 e5ff | | Load 0x2,-0x1
0157 8009 | | Call 0x0,0x9
0158 e5fe | | Load 0x2,-0x2
0159 017d | } | Execute Record,Structure_Write
015a 4502 |E | Exit_Subprogram 0x2
015b TRAP_0088:
015b e005 | | Load 0x0,0x5
015c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
015d 010f | | Execute Exception,Equal
015e 700c |p | Jump_Nonzero 0x16b
015f e005 | | Load 0x0,0x5
0160 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0161 010f | | Execute Exception,Equal
0162 7008 |p | Jump_Nonzero 0x16b
0163 e005 | | Load 0x0,0x5
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 010f | | Execute Exception,Equal
0166 7004 |p | Jump_Nonzero 0x16b
0167 e005 | | Load 0x0,0x5
0168 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0169 010f | | Execute Exception,Equal
016a 680a |h | Jump_Zero 0x175
016b 4800 |H | Short_Literal 0x0
016c 4800 |H | Short_Literal 0x0
016d 4800 |H | Short_Literal 0x0
016e e00a | | Load 0x0,0xa
016f e008 | | Load 0x0,0x8
0170 e5ff | | Load 0x2,-0x1
0171 8009 | | Call 0x0,0x9
0172 e5fe | | Load 0x2,-0x2
0173 017d | } | Execute Record,Structure_Write
0174 4502 |E | Exit_Subprogram 0x2
0175 e005 | | Load 0x0,0x5
0176 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0177 010f | | Execute Exception,Equal
0178 6812 |h | Jump_Zero 0x18b
0179 e408 | | Load 0x2,0x8
017a 4800 |H | Short_Literal 0x0
017b 4800 |H | Short_Literal 0x0
017c e406 | | Load 0x2,0x6
017d 00d8 | | Load_Top At_Offset_0
017e 00e4 | | Load_Encached Positive_Cache
017f 0260 | ` | Execute Discrete,In_Type
0180 7001 |p | Jump_Nonzero 0x182
0181 0801 | | Execute_Immediate Raise,0x1
0182 e402 | | Load 0x2,0x2
0183 e403 | | Load 0x2,0x3
0184 8007 | | Call 0x0,0x7
0185 e008 | | Load 0x0,0x8
0186 e5ff | | Load 0x2,-0x1
0187 8009 | | Call 0x0,0x9
0188 e5fe | | Load 0x2,-0x2
0189 017d | } | Execute Record,Structure_Write
018a 4502 |E | Exit_Subprogram 0x2
018b 4800 |H | Short_Literal 0x0
018c 4800 |H | Short_Literal 0x0
018d 4800 |H | Short_Literal 0x0
018e e00a | | Load 0x0,0xa
018f e008 | | Load 0x0,0x8
0190 e5ff | | Load 0x2,-0x1
0191 8009 | | Call 0x0,0x9
0192 e5fe | | Load 0x2,-0x2
0193 017d | } | Execute Record,Structure_Write
0194 4502 |E | Exit_Subprogram 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b4 | | .CONST 0x01b4 ; Address of begin
01a1 022c | , | .CONST 0x022c ; Address of exception handler
01a2 000a | | .CONST 0x000a ; Number of locals
01a3 INIT_01a0:
01a3 e002 | | Load 0x0,0x2
01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a5 e002 | | Load 0x0,0x2
01a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a7 e002 | | Load 0x0,0x2
01a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a9 e002 | | Load 0x0,0x2
01aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ab e002 | | Load 0x0,0x2
01ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ad e002 | | Load 0x0,0x2
01ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01af e002 | | Load 0x0,0x2
01b0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01b1 00e3 | | Load_Encached Natural_Cache
01b2 e003 | | Load 0x0,0x3
01b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b4 BODY_01a0:
01b4 e5ff | | Load 0x2,-0x1
01b5 800b | | Call 0x0,0xb
01b6 e002 | | Load 0x0,0x2
01b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b8 a402 | | Store_Unchecked 0x2,0x2
01b9 e5ff | | Load 0x2,-0x1
01ba 800b | | Call 0x0,0xb
01bb e002 | | Load 0x0,0x2
01bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01bd a403 | | Store_Unchecked 0x2,0x3
01be e002 | | Load 0x0,0x2
01bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c0 e002 | | Load 0x0,0x2
01c1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c2 00e3 | | Load_Encached Natural_Cache
01c3 e005 | | Load 0x0,0x5
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 e402 | | Load 0x2,0x2
01c6 e005 | | Load 0x0,0x5
01c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c8 c40a | | Store 0x2,0xa
01c9 c409 | | Store 0x2,0x9
01ca c404 | | Store 0x2,0x4
01cb c405 | | Store 0x2,0x5
01cc e002 | | Load 0x0,0x2
01cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ce e403 | | Load 0x2,0x3
01cf 4800 |H | Short_Literal 0x0
01d0 4804 |H | Short_Literal 0x4
01d1 e405 | | Load 0x2,0x5
01d2 0a01 | | Execute_Immediate Plus,0x1
01d3 e002 | | Load 0x0,0x2
01d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d5 00d9 | | Load_Top At_Offset_1
01d6 00d0 | | Action Swap_Control
01d7 0260 | ` | Execute Discrete,In_Type
01d8 7001 |p | Jump_Nonzero 0x1da
01d9 0801 | | Execute_Immediate Raise,0x1
01da e405 | | Load 0x2,0x5
01db e002 | | Load 0x0,0x2
01dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01dd 00d9 | | Load_Top At_Offset_1
01de 00d0 | | Action Swap_Control
01df 0260 | ` | Execute Discrete,In_Type
01e0 7001 |p | Jump_Nonzero 0x1e2
01e1 0801 | | Execute_Immediate Raise,0x1
01e2 e402 | | Load 0x2,0x2
01e3 e002 | | Load 0x0,0x2
01e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e5 e402 | | Load 0x2,0x2
01e6 e005 | | Load 0x0,0x5
01e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e8 c406 | | Store 0x2,0x6
01e9 e406 | | Load 0x2,0x6
01ea 7003 |p | Jump_Nonzero 0x1ee
01eb e005 | | Load 0x0,0x5
01ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ed 0257 | W | Execute Discrete,Raise
01ee e406 | | Load 0x2,0x6
01ef 0a02 | | Execute_Immediate Plus,0x2
01f0 e002 | | Load 0x0,0x2
01f1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f2 00d9 | | Load_Top At_Offset_1
01f3 00d0 | | Action Swap_Control
01f4 0260 | ` | Execute Discrete,In_Type
01f5 7001 |p | Jump_Nonzero 0x1f7
01f6 0801 | | Execute_Immediate Raise,0x1
01f7 e402 | | Load 0x2,0x2
01f8 e002 | | Load 0x0,0x2
01f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01fa a407 | | Store_Unchecked 0x2,0x7
01fb e406 | | Load 0x2,0x6
01fc 0a03 | | Execute_Immediate Plus,0x3
01fd e002 | | Load 0x0,0x2
01fe 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ff 00d9 | | Load_Top At_Offset_1
0200 00d0 | | Action Swap_Control
0201 0260 | ` | Execute Discrete,In_Type
0202 7001 |p | Jump_Nonzero 0x204
0203 0801 | | Execute_Immediate Raise,0x1
0204 e402 | | Load 0x2,0x2
0205 e002 | | Load 0x0,0x2
0206 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0207 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0208 e5ff | | Load 0x2,-0x1
0209 6046 |`F | Indirect_Literal Discrete,0x250,{0x00000000, 0x00000800}
020a e407 | | Load 0x2,0x7
020b e005 | | Load 0x0,0x5
020c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020d 603e |`> | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00001000}
020e e407 | | Load 0x2,0x7
020f e005 | | Load 0x0,0x5
0210 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0211 6036 |`6 | Indirect_Literal Discrete,0x248,{0x00000000, 0x00002000}
0212 e407 | | Load 0x2,0x7
0213 e005 | | Load 0x0,0x5
0214 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0215 602e |`. | Indirect_Literal Discrete,0x244,{0x00000000, 0x00004000}
0216 e407 | | Load 0x2,0x7
0217 e005 | | Load 0x0,0x5
0218 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0219 e407 | | Load 0x2,0x7
021a 8222 | " | Call 0x1,0x22
021b 800c | | Call 0x0,0xc
021c 00d1 | | Pop_Control Pop_Count_1
021d e5ff | | Load 0x2,-0x1
021e 6021 |`! | Indirect_Literal Discrete,0x240,{0x00000000, 0x00008000}
021f e407 | | Load 0x2,0x7
0220 e005 | | Load 0x0,0x5
0221 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0222 e407 | | Load 0x2,0x7
0223 8222 | " | Call 0x1,0x22
0224 8220 | | Call 0x1,0x20
0225 800d | | Call 0x0,0xd
0226 00d1 | | Pop_Control Pop_Count_1
0227 e5ff | | Load 0x2,-0x1
0228 00db | | Load_Top At_Offset_3
0229 8221 | ! | Call 0x1,0x21
022a 800e | | Call 0x0,0xe
022b 4501 |E | Exit_Subprogram 0x1
022c TRAP_01a0:
022c e005 | | Load 0x0,0x5
022d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
022e 010f | | Execute Exception,Equal
022f 700c |p | Jump_Nonzero 0x23c
0230 e005 | | Load 0x0,0x5
0231 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0232 010f | | Execute Exception,Equal
0233 7008 |p | Jump_Nonzero 0x23c
0234 e005 | | Load 0x0,0x5
0235 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0236 010f | | Execute Exception,Equal
0237 7004 |p | Jump_Nonzero 0x23c
0238 e005 | | Load 0x0,0x5
0239 1b12 | | Execute Package,Field_Read,Field_Number 0x12
023a 010f | | Execute Exception,Equal
023b 6801 |h | Jump_Zero 0x23d
023c 4501 |E | Exit_Subprogram 0x1
023d 4501 |E | Exit_Subprogram 0x1
023e 0000 0000 | | .XXX[0x2]
0240 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0244 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0248 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
024c 0000 0000 | | .LITERAL {0x00000000, 0x00001000}
0250 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025f | _ | .CONST 0x025f ; Address of begin
0259 0272 | r | .CONST 0x0272 ; Address of exception handler
025a 0003 | | .CONST 0x0003 ; Number of locals
025b INIT_0258:
025b e002 | | Load 0x0,0x2
025c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
025d e002 | | Load 0x0,0x2
025e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
025f BODY_0258:
025f e002 | | Load 0x0,0x2
0260 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0261 e002 | | Load 0x0,0x2
0262 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0263 e5ff | | Load 0x2,-0x1
0264 800b | | Call 0x0,0xb
0265 e002 | | Load 0x0,0x2
0266 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0267 e5ff | | Load 0x2,-0x1
0268 800b | | Call 0x0,0xb
0269 e002 | | Load 0x0,0x2
026a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
026b 8223 | # | Call 0x1,0x23
026c 005b | [ | Store_Top Discrete,At_Offset_3
026d 0059 | Y | Store_Top Discrete,At_Offset_1
026e 00d9 | | Load_Top At_Offset_1
026f 8222 | " | Call 0x1,0x22
0270 0f0a | | Execute_Immediate Equal,0xa
0271 4401 |D | Exit_Subprogram With_Result,0x1
0272 TRAP_0258:
0272 0007 | | Action Break_Optional
0273 4800 |H | Short_Literal 0x0
0274 4401 |D | Exit_Subprogram With_Result,0x1
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f | | .CONST 0x027f ; Address of begin
0279 0292 | | .CONST 0x0292 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b e002 | | Load 0x0,0x2
027c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
027d e002 | | Load 0x0,0x2
027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
027f BODY_0278:
027f e002 | | Load 0x0,0x2
0280 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0281 e002 | | Load 0x0,0x2
0282 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0283 e5ff | | Load 0x2,-0x1
0284 800b | | Call 0x0,0xb
0285 e002 | | Load 0x0,0x2
0286 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0287 e5ff | | Load 0x2,-0x1
0288 800b | | Call 0x0,0xb
0289 e002 | | Load 0x0,0x2
028a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
028b 8223 | # | Call 0x1,0x23
028c 005b | [ | Store_Top Discrete,At_Offset_3
028d 0059 | Y | Store_Top Discrete,At_Offset_1
028e 00d9 | | Load_Top At_Offset_1
028f 8222 | " | Call 0x1,0x22
0290 0f09 | | Execute_Immediate Equal,0x9
0291 4401 |D | Exit_Subprogram With_Result,0x1
0292 TRAP_0278:
0292 0007 | | Action Break_Optional
0293 4800 |H | Short_Literal 0x0
0294 4401 |D | Exit_Subprogram With_Result,0x1
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029f | | .CONST 0x029f ; Address of begin
0299 02b2 | | .CONST 0x02b2 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b e002 | | Load 0x0,0x2
029c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
029d e002 | | Load 0x0,0x2
029e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
029f BODY_0298:
029f e002 | | Load 0x0,0x2
02a0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02a1 e002 | | Load 0x0,0x2
02a2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02a3 e5ff | | Load 0x2,-0x1
02a4 800b | | Call 0x0,0xb
02a5 e002 | | Load 0x0,0x2
02a6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02a7 e5ff | | Load 0x2,-0x1
02a8 800b | | Call 0x0,0xb
02a9 e002 | | Load 0x0,0x2
02aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ab 8223 | # | Call 0x1,0x23
02ac 005b | [ | Store_Top Discrete,At_Offset_3
02ad 0059 | Y | Store_Top Discrete,At_Offset_1
02ae 00d9 | | Load_Top At_Offset_1
02af 8222 | " | Call 0x1,0x22
02b0 0f08 | | Execute_Immediate Equal,0x8
02b1 4401 |D | Exit_Subprogram With_Result,0x1
02b2 TRAP_0298:
02b2 0007 | | Action Break_Optional
02b3 4800 |H | Short_Literal 0x0
02b4 4401 |D | Exit_Subprogram With_Result,0x1
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bf | | .CONST 0x02bf ; Address of begin
02b9 02cc | | .CONST 0x02cc ; Address of exception handler
02ba 0003 | | .CONST 0x0003 ; Number of locals
02bb INIT_02b8:
02bb e002 | | Load 0x0,0x2
02bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02bd e002 | | Load 0x0,0x2
02be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02bf BODY_02b8:
02bf e002 | | Load 0x0,0x2
02c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02c1 e002 | | Load 0x0,0x2
02c2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02c3 4800 |H | Short_Literal 0x0
02c4 e5ff | | Load 0x2,-0x1
02c5 8223 | # | Call 0x1,0x23
02c6 005b | [ | Store_Top Discrete,At_Offset_3
02c7 0059 | Y | Store_Top Discrete,At_Offset_1
02c8 00d9 | | Load_Top At_Offset_1
02c9 8222 | " | Call 0x1,0x22
02ca 0f0a | | Execute_Immediate Equal,0xa
02cb 4401 |D | Exit_Subprogram With_Result,0x1
02cc TRAP_02b8:
02cc 0007 | | Action Break_Optional
02cd 4800 |H | Short_Literal 0x0
02ce 4401 |D | Exit_Subprogram With_Result,0x1
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d7 | | .CONST 0x02d7 ; Address of begin
02d1 02e4 | | .CONST 0x02e4 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 e002 | | Load 0x0,0x2
02d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d5 e002 | | Load 0x0,0x2
02d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d7 BODY_02d0:
02d7 e002 | | Load 0x0,0x2
02d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d9 e002 | | Load 0x0,0x2
02da 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02db 4800 |H | Short_Literal 0x0
02dc e5ff | | Load 0x2,-0x1
02dd 8223 | # | Call 0x1,0x23
02de 005b | [ | Store_Top Discrete,At_Offset_3
02df 0059 | Y | Store_Top Discrete,At_Offset_1
02e0 00d9 | | Load_Top At_Offset_1
02e1 8222 | " | Call 0x1,0x22
02e2 0f09 | | Execute_Immediate Equal,0x9
02e3 4401 |D | Exit_Subprogram With_Result,0x1
02e4 TRAP_02d0:
02e4 0007 | | Action Break_Optional
02e5 4800 |H | Short_Literal 0x0
02e6 4401 |D | Exit_Subprogram With_Result,0x1
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef | | .CONST 0x02ef ; Address of begin
02e9 02fc | | .CONST 0x02fc ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb e002 | | Load 0x0,0x2
02ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02ed e002 | | Load 0x0,0x2
02ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02ef BODY_02e8:
02ef e002 | | Load 0x0,0x2
02f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02f1 e002 | | Load 0x0,0x2
02f2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02f3 4800 |H | Short_Literal 0x0
02f4 e5ff | | Load 0x2,-0x1
02f5 8223 | # | Call 0x1,0x23
02f6 005b | [ | Store_Top Discrete,At_Offset_3
02f7 0059 | Y | Store_Top Discrete,At_Offset_1
02f8 00d9 | | Load_Top At_Offset_1
02f9 8222 | " | Call 0x1,0x22
02fa 0f08 | | Execute_Immediate Equal,0x8
02fb 4401 |D | Exit_Subprogram With_Result,0x1
02fc TRAP_02e8:
02fc 0007 | | Action Break_Optional
02fd 4800 |H | Short_Literal 0x0
02fe 4401 |D | Exit_Subprogram With_Result,0x1
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00e1 | | Load_Encached Boolean_Cache
0304 00e3 | | Load_Encached Natural_Cache
0305 e005 | | Load 0x0,0x5
0306 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0307 e5ff | | Load 0x2,-0x1
0308 e005 | | Load 0x0,0x5
0309 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030a c5fe | | Store 0x2,-0x2
030b c5fd | | Store 0x2,-0x3
030c c5fc | | Store 0x2,-0x4
030d 4502 |E | Exit_Subprogram 0x2
030e 0000 0000 | | .XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0338 | 8 | .CONST 0x0338 ; Address of begin
0311 047e | ~ | .CONST 0x047e ; Address of exception handler
0312 0017 | | .CONST 0x0017 ; Number of locals
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 e002 | | Load 0x0,0x2
0315 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0316 03f1 | | Declare_Variable Discrete,With_Value
0317 e002 | | Load 0x0,0x2
0318 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0319 e002 | | Load 0x0,0x2
031a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
031b e002 | | Load 0x0,0x2
031c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
031d e002 | | Load 0x0,0x2
031e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
031f e002 | | Load 0x0,0x2
0320 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0321 e002 | | Load 0x0,0x2
0322 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0323 00e3 | | Load_Encached Natural_Cache
0324 00e3 | | Load_Encached Natural_Cache
0325 e002 | | Load 0x0,0x2
0326 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0327 e002 | | Load 0x0,0x2
0328 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0329 e002 | | Load 0x0,0x2
032a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
032b 00e3 | | Load_Encached Natural_Cache
032c e002 | | Load 0x0,0x2
032d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
032e 00e1 | | Load_Encached Boolean_Cache
032f 00e1 | | Load_Encached Boolean_Cache
0330 e002 | | Load 0x0,0x2
0331 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0332 00e3 | | Load_Encached Natural_Cache
0333 e003 | | Load 0x0,0x3
0334 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0335 00e4 | | Load_Encached Positive_Cache
0336 00e2 | | Load_Encached Integer_Cache
0337 00e1 | | Load_Encached Boolean_Cache
0338 BODY_0310:
0338 00e4 | | Load_Encached Positive_Cache
0339 e003 | | Load 0x0,0x3
033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033b 00e3 | | Load_Encached Natural_Cache
033c e5fe | | Load 0x2,-0x2
033d 800f | | Call 0x0,0xf
033e c413 | | Store 0x2,0x13
033f c414 | | Store 0x2,0x14
0340 005b | [ | Store_Top Discrete,At_Offset_3
0341 4800 |H | Short_Literal 0x0
0342 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0343 00cf | | Action Mark_Auxiliary
0344 792c |y, | Jump 0x471
0345 e002 | | Load 0x0,0x2
0346 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0347 e002 | | Load 0x0,0x2
0348 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0349 00e3 | | Load_Encached Natural_Cache
034a e005 | | Load 0x0,0x5
034b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034c e402 | | Load 0x2,0x2
034d e005 | | Load 0x0,0x5
034e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
034f c414 | | Store 0x2,0x14
0350 c413 | | Store 0x2,0x13
0351 c403 | | Store 0x2,0x3
0352 c404 | | Store 0x2,0x4
0353 e403 | | Load 0x2,0x3
0354 e415 | | Load 0x2,0x15
0355 e402 | | Load 0x2,0x2
0356 8225 | % | Call 0x1,0x25
0357 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0358 00da | | Load_Top At_Offset_2
0359 0d01 | | Execute_Immediate Less,0x1
035a 6803 |h | Jump_Zero 0x35e
035b e005 | | Load 0x0,0x5
035c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035d 0257 | W | Execute Discrete,Raise
035e e404 | | Load 0x2,0x4
035f e002 | | Load 0x0,0x2
0360 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0361 00d9 | | Load_Top At_Offset_1
0362 00d0 | | Action Swap_Control
0363 0260 | ` | Execute Discrete,In_Type
0364 7001 |p | Jump_Nonzero 0x366
0365 0801 | | Execute_Immediate Raise,0x1
0366 e402 | | Load 0x2,0x2
0367 e002 | | Load 0x0,0x2
0368 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0369 a40d | | Store_Unchecked 0x2,0xd
036a 00da | | Load_Top At_Offset_2
036b e40d | | Load 0x2,0xd
036c 027d | } | Execute Discrete,Greater
036d 6808 |h | Jump_Zero 0x376
036e e402 | | Load 0x2,0x2
036f 8224 | $ | Call 0x1,0x24
0370 a402 | | Store_Unchecked 0x2,0x2
0371 e402 | | Load 0x2,0x2
0372 70fd |p | Jump_Nonzero 0x470
0373 e005 | | Load 0x0,0x5
0374 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0375 0257 | W | Execute Discrete,Raise
0376 e404 | | Load 0x2,0x4
0377 00db | | Load_Top At_Offset_3
0378 0aff | | Execute_Immediate Plus,-0x1
0379 0902 | | Execute_Immediate Binary_Scale,0x2
037a 0a01 | | Execute_Immediate Plus,0x1
037b 00d8 | | Load_Top At_Offset_0
037c e002 | | Load 0x0,0x2
037d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
037e 0260 | ` | Execute Discrete,In_Type
037f 7001 |p | Jump_Nonzero 0x381
0380 0801 | | Execute_Immediate Raise,0x1
0381 0273 | s | Execute Discrete,Plus
0382 c405 | | Store 0x2,0x5
0383 00e3 | | Load_Encached Natural_Cache
0384 00e3 | | Load_Encached Natural_Cache
0385 e002 | | Load 0x0,0x2
0386 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0387 00e3 | | Load_Encached Natural_Cache
0388 00e1 | | Load_Encached Boolean_Cache
0389 00e1 | | Load_Encached Boolean_Cache
038a e002 | | Load 0x0,0x2
038b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
038c e405 | | Load 0x2,0x5
038d e404 | | Load 0x2,0x4
038e e402 | | Load 0x2,0x2
038f e005 | | Load 0x0,0x5
0390 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0391 c40f | | Store 0x2,0xf
0392 c410 | | Store 0x2,0x10
0393 c411 | | Store 0x2,0x11
0394 c416 | | Store 0x2,0x16
0395 c406 | | Store 0x2,0x6
0396 c40a | | Store 0x2,0xa
0397 c409 | | Store 0x2,0x9
0398 e406 | | Load 0x2,0x6
0399 7003 |p | Jump_Nonzero 0x39d
039a e005 | | Load 0x0,0x5
039b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
039c 0257 | W | Execute Discrete,Raise
039d e406 | | Load 0x2,0x6
039e 0a02 | | Execute_Immediate Plus,0x2
039f c408 | | Store 0x2,0x8
03a0 e40a | | Load 0x2,0xa
03a1 e409 | | Load 0x2,0x9
03a2 0273 | s | Execute Discrete,Plus
03a3 c40b | | Store 0x2,0xb
03a4 e5fd | | Load 0x2,-0x3
03a5 8010 | | Call 0x0,0x10
03a6 6859 |hY | Jump_Zero 0x400
03a7 e410 | | Load 0x2,0x10
03a8 683c |h< | Jump_Zero 0x3e5
03a9 e5fd | | Load 0x2,-0x3
03aa 8011 | | Call 0x0,0x11
03ab 00d8 | | Load_Top At_Offset_0
03ac e002 | | Load 0x0,0x2
03ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03ae 0260 | ` | Execute Discrete,In_Type
03af 7001 |p | Jump_Nonzero 0x3b1
03b0 0801 | | Execute_Immediate Raise,0x1
03b1 a40c | | Store_Unchecked 0x2,0xc
03b2 4800 |H | Short_Literal 0x0
03b3 a40e | | Store_Unchecked 0x2,0xe
03b4 e408 | | Load 0x2,0x8
03b5 e40b | | Load 0x2,0xb
03b6 0273 | s | Execute Discrete,Plus
03b7 c407 | | Store 0x2,0x7
03b8 00cf | | Action Mark_Auxiliary
03b9 e40e | | Load 0x2,0xe
03ba e40a | | Load 0x2,0xa
03bb 027f | | Execute Discrete,Equal
03bc 700f |p | Jump_Nonzero 0x3cc
03bd e40c | | Load 0x2,0xc
03be e407 | | Load 0x2,0x7
03bf e402 | | Load 0x2,0x2
03c0 e002 | | Load 0x0,0x2
03c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03c2 027f | | Execute Discrete,Equal
03c3 7008 |p | Jump_Nonzero 0x3cc
03c4 e407 | | Load 0x2,0x7
03c5 0a01 | | Execute_Immediate Plus,0x1
03c6 c407 | | Store 0x2,0x7
03c7 e40e | | Load 0x2,0xe
03c8 0a01 | | Execute_Immediate Plus,0x1
03c9 c40e | | Store 0x2,0xe
03ca 00c9 | | Action Pop_Auxiliary_Loop
03cb 7fed | | Jump 0x3b9
03cc 00ce | | Action Pop_Auxiliary
03cd e40e | | Load 0x2,0xe
03ce e40a | | Load 0x2,0xa
03cf 027f | | Execute Discrete,Equal
03d0 6807 |h | Jump_Zero 0x3d8
03d1 e402 | | Load 0x2,0x2
03d2 8224 | $ | Call 0x1,0x24
03d3 a402 | | Store_Unchecked 0x2,0x2
03d4 e402 | | Load 0x2,0x2
03d5 709a |p | Jump_Nonzero 0x470
03d6 e21b | | Load 0x1,0x1b
03d7 0257 | W | Execute Discrete,Raise
03d8 e408 | | Load 0x2,0x8
03d9 e40e | | Load 0x2,0xe
03da 00d8 | | Load_Top At_Offset_0
03db e002 | | Load 0x0,0x2
03dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03dd 0260 | ` | Execute Discrete,In_Type
03de 7001 |p | Jump_Nonzero 0x3e0
03df 0801 | | Execute_Immediate Raise,0x1
03e0 0273 | s | Execute Discrete,Plus
03e1 c407 | | Store 0x2,0x7
03e2 4801 |H | Short_Literal 0x1
03e3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03e4 788b |x | Jump 0x470
03e5 e40a | | Load 0x2,0xa
03e6 e5fd | | Load 0x2,-0x3
03e7 8011 | | Call 0x0,0x11
03e8 027c | | | Execute Discrete,Less
03e9 6807 |h | Jump_Zero 0x3f1
03ea e402 | | Load 0x2,0x2
03eb 8224 | $ | Call 0x1,0x24
03ec a402 | | Store_Unchecked 0x2,0x2
03ed e402 | | Load 0x2,0x2
03ee 7081 |p | Jump_Nonzero 0x470
03ef e21b | | Load 0x1,0x1b
03f0 0257 | W | Execute Discrete,Raise
03f1 e408 | | Load 0x2,0x8
03f2 e5fd | | Load 0x2,-0x3
03f3 8011 | | Call 0x0,0x11
03f4 0aff | | Execute_Immediate Plus,-0x1
03f5 00d8 | | Load_Top At_Offset_0
03f6 e002 | | Load 0x0,0x2
03f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03f8 0260 | ` | Execute Discrete,In_Type
03f9 7001 |p | Jump_Nonzero 0x3fb
03fa 0801 | | Execute_Immediate Raise,0x1
03fb 0273 | s | Execute Discrete,Plus
03fc c407 | | Store 0x2,0x7
03fd 4801 |H | Short_Literal 0x1
03fe 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03ff 7870 |xp | Jump 0x470
0400 e5fd | | Load 0x2,-0x3
0401 8012 | | Call 0x0,0x12
0402 6869 |hi | Jump_Zero 0x46c
0403 e411 | | Load 0x2,0x11
0404 684a |hJ | Jump_Zero 0x44f
0405 e5fd | | Load 0x2,-0x3
0406 8013 | | Call 0x0,0x13
0407 00d8 | | Load_Top At_Offset_0
0408 e002 | | Load 0x0,0x2
0409 1b10 | | Execute Package,Field_Read,Field_Number 0x10
040a 0260 | ` | Execute Discrete,In_Type
040b 7001 |p | Jump_Nonzero 0x40d
040c 0801 | | Execute_Immediate Raise,0x1
040d a40c | | Store_Unchecked 0x2,0xc
040e 4800 |H | Short_Literal 0x0
040f a40e | | Store_Unchecked 0x2,0xe
0410 e408 | | Load 0x2,0x8
0411 e40b | | Load 0x2,0xb
0412 0273 | s | Execute Discrete,Plus
0413 c407 | | Store 0x2,0x7
0414 e410 | | Load 0x2,0x10
0415 680a |h | Jump_Zero 0x420
0416 e407 | | Load 0x2,0x7
0417 e40a | | Load 0x2,0xa
0418 00d8 | | Load_Top At_Offset_0
0419 e002 | | Load 0x0,0x2
041a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
041b 0260 | ` | Execute Discrete,In_Type
041c 7001 |p | Jump_Nonzero 0x41e
041d 0801 | | Execute_Immediate Raise,0x1
041e 0273 | s | Execute Discrete,Plus
041f c407 | | Store 0x2,0x7
0420 00cf | | Action Mark_Auxiliary
0421 e40e | | Load 0x2,0xe
0422 e409 | | Load 0x2,0x9
0423 027f | | Execute Discrete,Equal
0424 700f |p | Jump_Nonzero 0x434
0425 e40c | | Load 0x2,0xc
0426 e407 | | Load 0x2,0x7
0427 e402 | | Load 0x2,0x2
0428 e002 | | Load 0x0,0x2
0429 1814 | | Execute Package,Field_Execute,Field_Number 0x14
042a 027f | | Execute Discrete,Equal
042b 7008 |p | Jump_Nonzero 0x434
042c e407 | | Load 0x2,0x7
042d 0a01 | | Execute_Immediate Plus,0x1
042e c407 | | Store 0x2,0x7
042f e40e | | Load 0x2,0xe
0430 0a01 | | Execute_Immediate Plus,0x1
0431 c40e | | Store 0x2,0xe
0432 00c9 | | Action Pop_Auxiliary_Loop
0433 7fed | | Jump 0x421
0434 00ce | | Action Pop_Auxiliary
0435 e40e | | Load 0x2,0xe
0436 e409 | | Load 0x2,0x9
0437 027f | | Execute Discrete,Equal
0438 6807 |h | Jump_Zero 0x440
0439 e402 | | Load 0x2,0x2
043a 8224 | $ | Call 0x1,0x24
043b a402 | | Store_Unchecked 0x2,0x2
043c e402 | | Load 0x2,0x2
043d 7032 |p2 | Jump_Nonzero 0x470
043e e21b | | Load 0x1,0x1b
043f 0257 | W | Execute Discrete,Raise
0440 e408 | | Load 0x2,0x8
0441 e40e | | Load 0x2,0xe
0442 e40a | | Load 0x2,0xa
0443 0273 | s | Execute Discrete,Plus
0444 00d8 | | Load_Top At_Offset_0
0445 e002 | | Load 0x0,0x2
0446 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0447 0260 | ` | Execute Discrete,In_Type
0448 7001 |p | Jump_Nonzero 0x44a
0449 0801 | | Execute_Immediate Raise,0x1
044a 0273 | s | Execute Discrete,Plus
044b c407 | | Store 0x2,0x7
044c 4801 |H | Short_Literal 0x1
044d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
044e 7821 |x! | Jump 0x470
044f e409 | | Load 0x2,0x9
0450 e5fd | | Load 0x2,-0x3
0451 8013 | | Call 0x0,0x13
0452 027c | | | Execute Discrete,Less
0453 6807 |h | Jump_Zero 0x45b
0454 e402 | | Load 0x2,0x2
0455 8224 | $ | Call 0x1,0x24
0456 a402 | | Store_Unchecked 0x2,0x2
0457 e402 | | Load 0x2,0x2
0458 7017 |p | Jump_Nonzero 0x470
0459 e21b | | Load 0x1,0x1b
045a 0257 | W | Execute Discrete,Raise
045b e408 | | Load 0x2,0x8
045c e5fd | | Load 0x2,-0x3
045d 8013 | | Call 0x0,0x13
045e 0aff | | Execute_Immediate Plus,-0x1
045f e40a | | Load 0x2,0xa
0460 0273 | s | Execute Discrete,Plus
0461 00d8 | | Load_Top At_Offset_0
0462 e002 | | Load 0x0,0x2
0463 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0464 0260 | ` | Execute Discrete,In_Type
0465 7001 |p | Jump_Nonzero 0x467
0466 0801 | | Execute_Immediate Raise,0x1
0467 0273 | s | Execute Discrete,Plus
0468 c407 | | Store 0x2,0x7
0469 4801 |H | Short_Literal 0x1
046a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
046b 7804 |x | Jump 0x470
046c e405 | | Load 0x2,0x5
046d c407 | | Store 0x2,0x7
046e 4801 |H | Short_Literal 0x1
046f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0470 00c9 | | Action Pop_Auxiliary_Loop
0471 00d9 | | Load_Top At_Offset_1
0472 6ed2 |n | Jump_Zero 0x345
0473 00ce | | Action Pop_Auxiliary
0474 e407 | | Load 0x2,0x7
0475 e402 | | Load 0x2,0x2
0476 e002 | | Load 0x0,0x2
0477 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0478 a412 | | Store_Unchecked 0x2,0x12
0479 e412 | | Load 0x2,0x12
047a e402 | | Load 0x2,0x2
047b e002 | | Load 0x0,0x2
047c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
047d 4403 |D | Exit_Subprogram With_Result,0x3
047e TRAP_0310:
047e e21b | | Load 0x1,0x1b
047f 010f | | Execute Exception,Equal
0480 6802 |h | Jump_Zero 0x483
0481 00d8 | | Load_Top At_Offset_0
0482 0101 | | Execute Exception,Reraise
0483 4800 |H | Short_Literal 0x0
0484 4403 |D | Exit_Subprogram With_Result,0x3
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0495 | | .CONST 0x0495 ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0006 | | .CONST 0x0006 ; Number of locals
048b INIT_0488:
048b 00e3 | | Load_Encached Natural_Cache
048c e003 | | Load 0x0,0x3
048d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048e 00e4 | | Load_Encached Positive_Cache
048f e5ff | | Load 0x2,-0x1
0490 e002 | | Load 0x0,0x2
0491 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0492 03f1 | | Declare_Variable Discrete,With_Value
0493 00e3 | | Load_Encached Natural_Cache
0494 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0495 BODY_0488:
0495 00e4 | | Load_Encached Positive_Cache
0496 e003 | | Load 0x0,0x3
0497 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0498 00e3 | | Load_Encached Natural_Cache
0499 e5fe | | Load 0x2,-0x2
049a 800f | | Call 0x0,0xf
049b c402 | | Store 0x2,0x2
049c c403 | | Store 0x2,0x3
049d 005b | [ | Store_Top Discrete,At_Offset_3
049e 00cf | | Action Mark_Auxiliary
049f 4814 |H | Short_Literal 0x14
04a0 4801 |H | Short_Literal 0x1
04a1 0007 | | Action Break_Optional
04a2 00d8 | | Load_Top At_Offset_0
04a3 e5fd | | Load 0x2,-0x3
04a4 01d5 | | Execute Vector,Field_Reference
04a5 00d9 | | Load_Top At_Offset_1
04a6 e5fd | | Load 0x2,-0x3
04a7 01d5 | | Execute Vector,Field_Reference
04a8 e002 | | Load 0x0,0x2
04a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04aa e002 | | Load 0x0,0x2
04ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ac e404 | | Load 0x2,0x4
04ad e405 | | Load 0x2,0x5
04ae e005 | | Load 0x0,0x5
04af 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04b0 00da | | Load_Top At_Offset_2
04b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04b2 00da | | Load_Top At_Offset_2
04b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04b4 00d2 | | Pop_Control Pop_Count_2
04b5 00d8 | | Load_Top At_Offset_0
04b6 e5fd | | Load 0x2,-0x3
04b7 01d5 | | Execute Vector,Field_Reference
04b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b9 0f00 | | Execute_Immediate Equal,0x0
04ba 6802 |h | Jump_Zero 0x4bd
04bb 00d2 | | Pop_Control Pop_Count_2
04bc 780c |x | Jump 0x4c9
04bd 00db | | Load_Top At_Offset_3
04be 0a01 | | Execute_Immediate Plus,0x1
04bf c406 | | Store 0x2,0x6
04c0 e405 | | Load 0x2,0x5
04c1 8224 | $ | Call 0x1,0x24
04c2 a405 | | Store_Unchecked 0x2,0x5
04c3 e405 | | Load 0x2,0x5
04c4 7002 |p | Jump_Nonzero 0x4c7
04c5 00d2 | | Pop_Control Pop_Count_2
04c6 7802 |x | Jump 0x4c9
04c7 00c8 | | Action Pop_Auxiliary_Range
04c8 3fd9 |? | Loop_Increasing 0x4a2
04c9 00ce | | Action Pop_Auxiliary
04ca 00d8 | | Load_Top At_Offset_0
04cb a5fc | | Store_Unchecked 0x2,-0x4
04cc 4503 |E | Exit_Subprogram 0x3
04cd 0000 0000 | | .XXX[0x3]
04cf 0000 | |
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04dd | | .CONST 0x04dd ; Address of begin
04d1 050f | | .CONST 0x050f ; Address of exception handler
04d2 0006 | | .CONST 0x0006 ; Number of locals
04d3 INIT_04d0:
04d3 e002 | | Load 0x0,0x2
04d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04d5 e002 | | Load 0x0,0x2
04d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04d7 e002 | | Load 0x0,0x2
04d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d9 e002 | | Load 0x0,0x2
04da 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04db e002 | | Load 0x0,0x2
04dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04dd BODY_04d0:
04dd e5ff | | Load 0x2,-0x1
04de e002 | | Load 0x0,0x2
04df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04e0 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
04e1 4803 |H | Short_Literal 0x3
04e2 00db | | Load_Top At_Offset_3
04e3 e002 | | Load 0x0,0x2
04e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04e5 a402 | | Store_Unchecked 0x2,0x2
04e6 e402 | | Load 0x2,0x2
04e7 7002 |p | Jump_Nonzero 0x4ea
04e8 4801 |H | Short_Literal 0x1
04e9 4401 |D | Exit_Subprogram With_Result,0x1
04ea e402 | | Load 0x2,0x2
04eb e002 | | Load 0x0,0x2
04ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04ed 00d9 | | Load_Top At_Offset_1
04ee 00d0 | | Action Swap_Control
04ef 0260 | ` | Execute Discrete,In_Type
04f0 7001 |p | Jump_Nonzero 0x4f2
04f1 0801 | | Execute_Immediate Raise,0x1
04f2 00db | | Load_Top At_Offset_3
04f3 e002 | | Load 0x0,0x2
04f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f5 a403 | | Store_Unchecked 0x2,0x3
04f6 00db | | Load_Top At_Offset_3
04f7 0f03 | | Execute_Immediate Equal,0x3
04f8 6802 |h | Jump_Zero 0x4fb
04f9 4801 |H | Short_Literal 0x1
04fa 4401 |D | Exit_Subprogram With_Result,0x1
04fb 00da | | Load_Top At_Offset_2
04fc 8226 | & | Call 0x1,0x26
04fd 6802 |h | Jump_Zero 0x500
04fe 4801 |H | Short_Literal 0x1
04ff 4401 |D | Exit_Subprogram With_Result,0x1
0500 e002 | | Load 0x0,0x2
0501 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0502 e002 | | Load 0x0,0x2
0503 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0504 e5ff | | Load 0x2,-0x1
0505 e002 | | Load 0x0,0x2
0506 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0507 e404 | | Load 0x2,0x4
0508 8223 | # | Call 0x1,0x23
0509 005b | [ | Store_Top Discrete,At_Offset_3
050a 0059 | Y | Store_Top Discrete,At_Offset_1
050b 00d9 | | Load_Top At_Offset_1
050c 8222 | " | Call 0x1,0x22
050d 0f05 | | Execute_Immediate Equal,0x5
050e 4401 |D | Exit_Subprogram With_Result,0x1
050f TRAP_04d0:
050f e005 | | Load 0x0,0x5
0510 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0511 010f | | Execute Exception,Equal
0512 6802 |h | Jump_Zero 0x515
0513 4800 |H | Short_Literal 0x0
0514 4401 |D | Exit_Subprogram With_Result,0x1
0515 4800 |H | Short_Literal 0x0
0516 4401 |D | Exit_Subprogram With_Result,0x1
0517 0000 | | .XXX[0x1]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0533 | 3 | .CONST 0x0533 ; Address of begin
0519 05b2 | | .CONST 0x05b2 ; Address of exception handler
051a 0010 | | .CONST 0x0010 ; Number of locals
051b INIT_0518:
051b e003 | | Load 0x0,0x3
051c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051d 00e3 | | Load_Encached Natural_Cache
051e 00e3 | | Load_Encached Natural_Cache
051f e002 | | Load 0x0,0x2
0520 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0521 e002 | | Load 0x0,0x2
0522 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0523 e002 | | Load 0x0,0x2
0524 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0525 e002 | | Load 0x0,0x2
0526 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0527 e002 | | Load 0x0,0x2
0528 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0529 e002 | | Load 0x0,0x2
052a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
052b 00e1 | | Load_Encached Boolean_Cache
052c 00e1 | | Load_Encached Boolean_Cache
052d e002 | | Load 0x0,0x2
052e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
052f e002 | | Load 0x0,0x2
0530 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0531 00e3 | | Load_Encached Natural_Cache
0532 00e3 | | Load_Encached Natural_Cache
0533 BODY_0518:
0533 e5ff | | Load 0x2,-0x1
0534 e002 | | Load 0x0,0x2
0535 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0536 a405 | | Store_Unchecked 0x2,0x5
0537 e5ff | | Load 0x2,-0x1
0538 e002 | | Load 0x0,0x2
0539 1817 | | Execute Package,Field_Execute,Field_Number 0x17
053a a406 | | Store_Unchecked 0x2,0x6
053b e002 | | Load 0x0,0x2
053c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
053d e002 | | Load 0x0,0x2
053e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
053f 00e3 | | Load_Encached Natural_Cache
0540 e005 | | Load 0x0,0x5
0541 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0542 e405 | | Load 0x2,0x5
0543 e005 | | Load 0x0,0x5
0544 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0545 c402 | | Store 0x2,0x2
0546 c403 | | Store 0x2,0x3
0547 c407 | | Store 0x2,0x7
0548 c408 | | Store 0x2,0x8
0549 e002 | | Load 0x0,0x2
054a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
054b e406 | | Load 0x2,0x6
054c 4800 |H | Short_Literal 0x0
054d 4804 |H | Short_Literal 0x4
054e e408 | | Load 0x2,0x8
054f 0a01 | | Execute_Immediate Plus,0x1
0550 e002 | | Load 0x0,0x2
0551 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0552 00d9 | | Load_Top At_Offset_1
0553 00d0 | | Action Swap_Control
0554 0260 | ` | Execute Discrete,In_Type
0555 7001 |p | Jump_Nonzero 0x557
0556 0801 | | Execute_Immediate Raise,0x1
0557 e408 | | Load 0x2,0x8
0558 e002 | | Load 0x0,0x2
0559 1b11 | | Execute Package,Field_Read,Field_Number 0x11
055a 00d9 | | Load_Top At_Offset_1
055b 00d0 | | Action Swap_Control
055c 0260 | ` | Execute Discrete,In_Type
055d 7001 |p | Jump_Nonzero 0x55f
055e 0801 | | Execute_Immediate Raise,0x1
055f e405 | | Load 0x2,0x5
0560 e002 | | Load 0x0,0x2
0561 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0562 e405 | | Load 0x2,0x5
0563 e005 | | Load 0x0,0x5
0564 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0565 c409 | | Store 0x2,0x9
0566 e409 | | Load 0x2,0x9
0567 7003 |p | Jump_Nonzero 0x56b
0568 e005 | | Load 0x0,0x5
0569 1b0f | | Execute Package,Field_Read,Field_Number 0xf
056a 0257 | W | Execute Discrete,Raise
056b 00e3 | | Load_Encached Natural_Cache
056c 00e3 | | Load_Encached Natural_Cache
056d e002 | | Load 0x0,0x2
056e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
056f 00e3 | | Load_Encached Natural_Cache
0570 00e1 | | Load_Encached Boolean_Cache
0571 00e1 | | Load_Encached Boolean_Cache
0572 e002 | | Load 0x0,0x2
0573 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0574 e409 | | Load 0x2,0x9
0575 e408 | | Load 0x2,0x8
0576 e405 | | Load 0x2,0x5
0577 e005 | | Load 0x0,0x5
0578 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0579 c40a | | Store 0x2,0xa
057a c40b | | Store 0x2,0xb
057b c40c | | Store 0x2,0xc
057c c404 | | Store 0x2,0x4
057d c40d | | Store 0x2,0xd
057e 005a | Z | Store_Top Discrete,At_Offset_2
057f 005a | Z | Store_Top Discrete,At_Offset_2
0580 00db | | Load_Top At_Offset_3
0581 7003 |p | Jump_Nonzero 0x585
0582 e005 | | Load 0x0,0x5
0583 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0584 0257 | W | Execute Discrete,Raise
0585 e002 | | Load 0x0,0x2
0586 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0587 e406 | | Load 0x2,0x6
0588 4800 |H | Short_Literal 0x0
0589 4801 |H | Short_Literal 0x1
058a e40d | | Load 0x2,0xd
058b 0a02 | | Execute_Immediate Plus,0x2
058c e002 | | Load 0x0,0x2
058d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
058e 00d9 | | Load_Top At_Offset_1
058f 00d0 | | Action Swap_Control
0590 0260 | ` | Execute Discrete,In_Type
0591 7001 |p | Jump_Nonzero 0x593
0592 0801 | | Execute_Immediate Raise,0x1
0593 e410 | | Load 0x2,0x10
0594 e40f | | Load 0x2,0xf
0595 0273 | s | Execute Discrete,Plus
0596 00d8 | | Load_Top At_Offset_0
0597 00e3 | | Load_Encached Natural_Cache
0598 0260 | ` | Execute Discrete,In_Type
0599 7001 |p | Jump_Nonzero 0x59b
059a 0801 | | Execute_Immediate Raise,0x1
059b e405 | | Load 0x2,0x5
059c e005 | | Load 0x0,0x5
059d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059e 005b | [ | Store_Top Discrete,At_Offset_3
059f 00da | | Load_Top At_Offset_2
05a0 7003 |p | Jump_Nonzero 0x5a4
05a1 e005 | | Load 0x0,0x5
05a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05a3 0257 | W | Execute Discrete,Raise
05a4 e406 | | Load 0x2,0x6
05a5 00db | | Load_Top At_Offset_3
05a6 e002 | | Load 0x0,0x2
05a7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05a8 00d9 | | Load_Top At_Offset_1
05a9 00d0 | | Action Swap_Control
05aa 0260 | ` | Execute Discrete,In_Type
05ab 7001 |p | Jump_Nonzero 0x5ad
05ac 0801 | | Execute_Immediate Raise,0x1
05ad e405 | | Load 0x2,0x5
05ae e002 | | Load 0x0,0x2
05af 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05b0 027f | | Execute Discrete,Equal
05b1 4401 |D | Exit_Subprogram With_Result,0x1
05b2 TRAP_0518:
05b2 0007 | | Action Break_Optional
05b3 4800 |H | Short_Literal 0x0
05b4 4401 |D | Exit_Subprogram With_Result,0x1
05b5 0000 0000 | | .XXX[0x3]
05b7 0000 | |
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05d4 | | .CONST 0x05d4 ; Address of begin
05b9 0684 | | .CONST 0x0684 ; Address of exception handler
05ba 0011 | | .CONST 0x0011 ; Number of locals
05bb INIT_05b8:
05bb e003 | | Load 0x0,0x3
05bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05bd 00e3 | | Load_Encached Natural_Cache
05be 00e2 | | Load_Encached Integer_Cache
05bf 00e3 | | Load_Encached Natural_Cache
05c0 e002 | | Load 0x0,0x2
05c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c2 e002 | | Load 0x0,0x2
05c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05c4 e002 | | Load 0x0,0x2
05c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05c6 e002 | | Load 0x0,0x2
05c7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05c8 e002 | | Load 0x0,0x2
05c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05ca e002 | | Load 0x0,0x2
05cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05cc 00e1 | | Load_Encached Boolean_Cache
05cd 00e1 | | Load_Encached Boolean_Cache
05ce e002 | | Load 0x0,0x2
05cf 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05d0 e002 | | Load 0x0,0x2
05d1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05d2 00e3 | | Load_Encached Natural_Cache
05d3 00e3 | | Load_Encached Natural_Cache
05d4 BODY_05b8:
05d4 e00a | | Load 0x0,0xa
05d5 e5fe | | Load 0x2,-0x2
05d6 017d | } | Execute Record,Structure_Write
05d7 4800 |H | Short_Literal 0x0
05d8 a5fd | | Store_Unchecked 0x2,-0x3
05d9 4800 |H | Short_Literal 0x0
05da a5fc | | Store_Unchecked 0x2,-0x4
05db 4800 |H | Short_Literal 0x0
05dc a5fb | | Store_Unchecked 0x2,-0x5
05dd e5ff | | Load 0x2,-0x1
05de e002 | | Load 0x0,0x2
05df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05e0 a406 | | Store_Unchecked 0x2,0x6
05e1 e5ff | | Load 0x2,-0x1
05e2 e002 | | Load 0x0,0x2
05e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05e4 a407 | | Store_Unchecked 0x2,0x7
05e5 e002 | | Load 0x0,0x2
05e6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05e7 e002 | | Load 0x0,0x2
05e8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05e9 00e3 | | Load_Encached Natural_Cache
05ea e005 | | Load 0x0,0x5
05eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ec e406 | | Load 0x2,0x6
05ed e005 | | Load 0x0,0x5
05ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05ef c402 | | Store 0x2,0x2
05f0 c403 | | Store 0x2,0x3
05f1 c408 | | Store 0x2,0x8
05f2 c409 | | Store 0x2,0x9
05f3 e002 | | Load 0x0,0x2
05f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05f5 e407 | | Load 0x2,0x7
05f6 4800 |H | Short_Literal 0x0
05f7 4804 |H | Short_Literal 0x4
05f8 e409 | | Load 0x2,0x9
05f9 0a01 | | Execute_Immediate Plus,0x1
05fa e002 | | Load 0x0,0x2
05fb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05fc 00d9 | | Load_Top At_Offset_1
05fd 00d0 | | Action Swap_Control
05fe 0260 | ` | Execute Discrete,In_Type
05ff 7001 |p | Jump_Nonzero 0x601
0600 0801 | | Execute_Immediate Raise,0x1
0601 e409 | | Load 0x2,0x9
0602 e002 | | Load 0x0,0x2
0603 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0604 00d9 | | Load_Top At_Offset_1
0605 00d0 | | Action Swap_Control
0606 0260 | ` | Execute Discrete,In_Type
0607 7001 |p | Jump_Nonzero 0x609
0608 0801 | | Execute_Immediate Raise,0x1
0609 e406 | | Load 0x2,0x6
060a e002 | | Load 0x0,0x2
060b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
060c e406 | | Load 0x2,0x6
060d e005 | | Load 0x0,0x5
060e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060f c40a | | Store 0x2,0xa
0610 e40a | | Load 0x2,0xa
0611 7003 |p | Jump_Nonzero 0x615
0612 e005 | | Load 0x0,0x5
0613 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0614 0257 | W | Execute Discrete,Raise
0615 e407 | | Load 0x2,0x7
0616 e40a | | Load 0x2,0xa
0617 e002 | | Load 0x0,0x2
0618 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0619 00d9 | | Load_Top At_Offset_1
061a 00d0 | | Action Swap_Control
061b 0260 | ` | Execute Discrete,In_Type
061c 7001 |p | Jump_Nonzero 0x61e
061d 0801 | | Execute_Immediate Raise,0x1
061e e406 | | Load 0x2,0x6
061f e002 | | Load 0x0,0x2
0620 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0621 027f | | Execute Discrete,Equal
0622 a5fb | | Store_Unchecked 0x2,-0x5
0623 00e3 | | Load_Encached Natural_Cache
0624 00e3 | | Load_Encached Natural_Cache
0625 e002 | | Load 0x0,0x2
0626 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0627 00e3 | | Load_Encached Natural_Cache
0628 00e1 | | Load_Encached Boolean_Cache
0629 00e1 | | Load_Encached Boolean_Cache
062a e002 | | Load 0x0,0x2
062b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
062c e40a | | Load 0x2,0xa
062d e409 | | Load 0x2,0x9
062e e406 | | Load 0x2,0x6
062f e005 | | Load 0x0,0x5
0630 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0631 c40b | | Store 0x2,0xb
0632 c40c | | Store 0x2,0xc
0633 c40d | | Store 0x2,0xd
0634 c405 | | Store 0x2,0x5
0635 c40e | | Store 0x2,0xe
0636 005a | Z | Store_Top Discrete,At_Offset_2
0637 005a | Z | Store_Top Discrete,At_Offset_2
0638 e405 | | Load 0x2,0x5
0639 00d8 | | Load_Top At_Offset_0
063a 00e4 | | Load_Encached Positive_Cache
063b 0260 | ` | Execute Discrete,In_Type
063c 7001 |p | Jump_Nonzero 0x63e
063d 0801 | | Execute_Immediate Raise,0x1
063e e402 | | Load 0x2,0x2
063f e403 | | Load 0x2,0x3
0640 8007 | | Call 0x0,0x7
0641 e5fe | | Load 0x2,-0x2
0642 017d | } | Execute Record,Structure_Write
0643 00db | | Load_Top At_Offset_3
0644 7003 |p | Jump_Nonzero 0x648
0645 e005 | | Load 0x0,0x5
0646 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0647 0257 | W | Execute Discrete,Raise
0648 e002 | | Load 0x0,0x2
0649 1b11 | | Execute Package,Field_Read,Field_Number 0x11
064a e407 | | Load 0x2,0x7
064b 4800 |H | Short_Literal 0x0
064c 4801 |H | Short_Literal 0x1
064d e40e | | Load 0x2,0xe
064e 0a02 | | Execute_Immediate Plus,0x2
064f e002 | | Load 0x0,0x2
0650 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0651 00d9 | | Load_Top At_Offset_1
0652 00d0 | | Action Swap_Control
0653 0260 | ` | Execute Discrete,In_Type
0654 7001 |p | Jump_Nonzero 0x656
0655 0801 | | Execute_Immediate Raise,0x1
0656 e411 | | Load 0x2,0x11
0657 e410 | | Load 0x2,0x10
0658 0273 | s | Execute Discrete,Plus
0659 00d8 | | Load_Top At_Offset_0
065a 00e3 | | Load_Encached Natural_Cache
065b 0260 | ` | Execute Discrete,In_Type
065c 7001 |p | Jump_Nonzero 0x65e
065d 0801 | | Execute_Immediate Raise,0x1
065e e406 | | Load 0x2,0x6
065f e005 | | Load 0x0,0x5
0660 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0661 005b | [ | Store_Top Discrete,At_Offset_3
0662 00da | | Load_Top At_Offset_2
0663 7003 |p | Jump_Nonzero 0x667
0664 e005 | | Load 0x0,0x5
0665 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0666 0257 | W | Execute Discrete,Raise
0667 00e2 | | Load_Encached Integer_Cache
0668 e40d | | Load 0x2,0xd
0669 e40c | | Load 0x2,0xc
066a e410 | | Load 0x2,0x10
066b e411 | | Load 0x2,0x11
066c e40e | | Load 0x2,0xe
066d e40f | | Load 0x2,0xf
066e e406 | | Load 0x2,0x6
066f e005 | | Load 0x0,0x5
0670 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0671 c404 | | Store 0x2,0x4
0672 e404 | | Load 0x2,0x4
0673 8006 | | Call 0x0,0x6
0674 a5fd | | Store_Unchecked 0x2,-0x3
0675 e407 | | Load 0x2,0x7
0676 00db | | Load_Top At_Offset_3
0677 e002 | | Load 0x0,0x2
0678 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0679 00d9 | | Load_Top At_Offset_1
067a 00d0 | | Action Swap_Control
067b 0260 | ` | Execute Discrete,In_Type
067c 7001 |p | Jump_Nonzero 0x67e
067d 0801 | | Execute_Immediate Raise,0x1
067e e406 | | Load 0x2,0x6
067f e002 | | Load 0x0,0x2
0680 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0681 027f | | Execute Discrete,Equal
0682 a5fc | | Store_Unchecked 0x2,-0x4
0683 4502 |E | Exit_Subprogram 0x2
0684 TRAP_05b8:
0684 e005 | | Load 0x0,0x5
0685 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0686 010f | | Execute Exception,Equal
0687 700c |p | Jump_Nonzero 0x694
0688 e005 | | Load 0x0,0x5
0689 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068a 010f | | Execute Exception,Equal
068b 7008 |p | Jump_Nonzero 0x694
068c e005 | | Load 0x0,0x5
068d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
068e 010f | | Execute Exception,Equal
068f 7004 |p | Jump_Nonzero 0x694
0690 e005 | | Load 0x0,0x5
0691 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0692 010f | | Execute Exception,Equal
0693 6801 |h | Jump_Zero 0x695
0694 4502 |E | Exit_Subprogram 0x2
0695 e005 | | Load 0x0,0x5
0696 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0697 010f | | Execute Exception,Equal
0698 6801 |h | Jump_Zero 0x69a
0699 4502 |E | Exit_Subprogram 0x2
069a 4502 |E | Exit_Subprogram 0x2
069b 0000 0000 | | .BLANK 0000[0x5]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06ab | | .CONST 0x06ab ; Address of begin
06a1 06d3 | | .CONST 0x06d3 ; Address of exception handler
06a2 0005 | | .CONST 0x0005 ; Number of locals
06a3 INIT_06a0:
06a3 e002 | | Load 0x0,0x2
06a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06a5 e002 | | Load 0x0,0x2
06a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06a7 e002 | | Load 0x0,0x2
06a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06a9 e002 | | Load 0x0,0x2
06aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06ab BODY_06a0:
06ab e5ff | | Load 0x2,-0x1
06ac e002 | | Load 0x0,0x2
06ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06ae a402 | | Store_Unchecked 0x2,0x2
06af e5ff | | Load 0x2,-0x1
06b0 e002 | | Load 0x0,0x2
06b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
06b2 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
06b3 00da | | Load_Top At_Offset_2
06b4 0f04 | | Execute_Immediate Equal,0x4
06b5 6802 |h | Jump_Zero 0x6b8
06b6 4801 |H | Short_Literal 0x1
06b7 4401 |D | Exit_Subprogram With_Result,0x1
06b8 00da | | Load_Top At_Offset_2
06b9 e402 | | Load 0x2,0x2
06ba 8227 | ' | Call 0x1,0x27
06bb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
06bc 00d9 | | Load_Top At_Offset_1
06bd 0afe | | Execute_Immediate Plus,-0x2
06be e002 | | Load 0x0,0x2
06bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06c0 00d9 | | Load_Top At_Offset_1
06c1 00d0 | | Action Swap_Control
06c2 0260 | ` | Execute Discrete,In_Type
06c3 7001 |p | Jump_Nonzero 0x6c5
06c4 0801 | | Execute_Immediate Raise,0x1
06c5 e402 | | Load 0x2,0x2
06c6 e002 | | Load 0x0,0x2
06c7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06c8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06c9 00d8 | | Load_Top At_Offset_0
06ca 0f04 | | Execute_Immediate Equal,0x4
06cb 7004 |p | Jump_Nonzero 0x6d0
06cc 00da | | Load_Top At_Offset_2
06cd 00d9 | | Load_Top At_Offset_1
06ce 027b | { | Execute Discrete,Greater_Equal
06cf 4401 |D | Exit_Subprogram With_Result,0x1
06d0 00da | | Load_Top At_Offset_2
06d1 0f04 | | Execute_Immediate Equal,0x4
06d2 4401 |D | Exit_Subprogram With_Result,0x1
06d3 TRAP_06a0:
06d3 0007 | | Action Break_Optional
06d4 4800 |H | Short_Literal 0x0
06d5 4401 |D | Exit_Subprogram With_Result,0x1
06d6 0000 0000 | | .XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 00da | | Load_Top At_Offset_2
06dc 4808 |H | Short_Literal 0x8
06dd 480a |H | Short_Literal 0xa
06de 0262 | b | Execute Discrete,In_Range
06df 7002 |p | Jump_Nonzero 0x6e2
06e0 4800 |H | Short_Literal 0x0
06e1 4401 |D | Exit_Subprogram With_Result,0x1
06e2 4801 |H | Short_Literal 0x1
06e3 4401 |D | Exit_Subprogram With_Result,0x1
06e4 0000 0000 | | .BLANK 0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb 00da | | Load_Top At_Offset_2
06ec 480f |H | Short_Literal 0xf
06ed 0279 | y | Execute Discrete,And
06ee 00d8 | | Load_Top At_Offset_0
06ef 00e3 | | Load_Encached Natural_Cache
06f0 0260 | ` | Execute Discrete,In_Type
06f1 7001 |p | Jump_Nonzero 0x6f3
06f2 0801 | | Execute_Immediate Raise,0x1
06f3 4401 |D | Exit_Subprogram With_Result,0x1
06f4 0000 0000 | | .BLANK 0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 00da | | Load_Top At_Offset_2
06fc 480f |H | Short_Literal 0xf
06fd 0279 | y | Execute Discrete,And
06fe 00d8 | | Load_Top At_Offset_0
06ff e014 | | Load 0x0,0x14
0700 0260 | ` | Execute Discrete,In_Type
0701 7001 |p | Jump_Nonzero 0x703
0702 0801 | | Execute_Immediate Raise,0x1
0703 4401 |D | Exit_Subprogram With_Result,0x1
0704 0000 0000 | | .BLANK 0000[0x4]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0714 | | .CONST 0x0714 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0006 | | .CONST 0x0006 ; Number of locals
070b INIT_0708:
070b e002 | | Load 0x0,0x2
070c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
070d e002 | | Load 0x0,0x2
070e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
070f e002 | | Load 0x0,0x2
0710 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0711 e003 | | Load 0x0,0x3
0712 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0713 00e3 | | Load_Encached Natural_Cache
0714 BODY_0708:
0714 e002 | | Load 0x0,0x2
0715 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0716 e002 | | Load 0x0,0x2
0717 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0718 00e3 | | Load_Encached Natural_Cache
0719 e005 | | Load 0x0,0x5
071a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
071b e5ff | | Load 0x2,-0x1
071c e005 | | Load 0x0,0x5
071d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
071e c405 | | Store 0x2,0x5
071f 005b | [ | Store_Top Discrete,At_Offset_3
0720 c402 | | Store 0x2,0x2
0721 c403 | | Store 0x2,0x3
0722 e5fe | | Load 0x2,-0x2
0723 681e |h | Jump_Zero 0x742
0724 e002 | | Load 0x0,0x2
0725 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0726 e5fe | | Load 0x2,-0x2
0727 4800 |H | Short_Literal 0x0
0728 4804 |H | Short_Literal 0x4
0729 e403 | | Load 0x2,0x3
072a 0a01 | | Execute_Immediate Plus,0x1
072b e002 | | Load 0x0,0x2
072c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
072d 00d9 | | Load_Top At_Offset_1
072e 00d0 | | Action Swap_Control
072f 0260 | ` | Execute Discrete,In_Type
0730 7001 |p | Jump_Nonzero 0x732
0731 0801 | | Execute_Immediate Raise,0x1
0732 e403 | | Load 0x2,0x3
0733 e002 | | Load 0x0,0x2
0734 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0735 00d9 | | Load_Top At_Offset_1
0736 00d0 | | Action Swap_Control
0737 0260 | ` | Execute Discrete,In_Type
0738 7001 |p | Jump_Nonzero 0x73a
0739 0801 | | Execute_Immediate Raise,0x1
073a e5ff | | Load 0x2,-0x1
073b e002 | | Load 0x0,0x2
073c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
073d e5ff | | Load 0x2,-0x1
073e e005 | | Load 0x0,0x5
073f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0740 005b | [ | Store_Top Discrete,At_Offset_3
0741 7803 |x | Jump 0x745
0742 00db | | Load_Top At_Offset_3
0743 0a01 | | Execute_Immediate Plus,0x1
0744 005b | [ | Store_Top Discrete,At_Offset_3
0745 00da | | Load_Top At_Offset_2
0746 7003 |p | Jump_Nonzero 0x74a
0747 e005 | | Load 0x0,0x5
0748 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0749 0257 | W | Execute Discrete,Raise
074a 00da | | Load_Top At_Offset_2
074b 0a02 | | Execute_Immediate Plus,0x2
074c e002 | | Load 0x0,0x2
074d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
074e 00d9 | | Load_Top At_Offset_1
074f 00d0 | | Action Swap_Control
0750 0260 | ` | Execute Discrete,In_Type
0751 7001 |p | Jump_Nonzero 0x753
0752 0801 | | Execute_Immediate Raise,0x1
0753 e5ff | | Load 0x2,-0x1
0754 e002 | | Load 0x0,0x2
0755 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0756 a5fd | | Store_Unchecked 0x2,-0x3
0757 00da | | Load_Top At_Offset_2
0758 0a03 | | Execute_Immediate Plus,0x3
0759 e002 | | Load 0x0,0x2
075a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
075b 00d9 | | Load_Top At_Offset_1
075c 00d0 | | Action Swap_Control
075d 0260 | ` | Execute Discrete,In_Type
075e 7001 |p | Jump_Nonzero 0x760
075f 0801 | | Execute_Immediate Raise,0x1
0760 e5ff | | Load 0x2,-0x1
0761 e002 | | Load 0x0,0x2
0762 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0763 a5fc | | Store_Unchecked 0x2,-0x4
0764 4503 |E | Exit_Subprogram 0x3
0765 0000 0000 | | .XXX[0x3]
0767 0000 | |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076d | m | .CONST 0x076d ; Address of begin
0769 078f | | .CONST 0x078f ; Address of exception handler
076a 0002 | | .CONST 0x0002 ; Number of locals
076b INIT_0768:
076b e002 | | Load 0x0,0x2
076c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
076d BODY_0768:
076d 4802 |H | Short_Literal 0x2
076e e5ff | | Load 0x2,-0x1
076f e002 | | Load 0x0,0x2
0770 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0771 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0772 00d8 | | Load_Top At_Offset_0
0773 7002 |p | Jump_Nonzero 0x776
0774 4800 |H | Short_Literal 0x0
0775 4401 |D | Exit_Subprogram With_Result,0x1
0776 00d8 | | Load_Top At_Offset_0
0777 e5ff | | Load 0x2,-0x1
0778 e002 | | Load 0x0,0x2
0779 1814 | | Execute Package,Field_Execute,Field_Number 0x14
077a 0910 | | Execute_Immediate Binary_Scale,0x10
077b 00d9 | | Load_Top At_Offset_1
077c 0a01 | | Execute_Immediate Plus,0x1
077d e002 | | Load 0x0,0x2
077e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
077f 00d9 | | Load_Top At_Offset_1
0780 00d0 | | Action Swap_Control
0781 0260 | ` | Execute Discrete,In_Type
0782 7001 |p | Jump_Nonzero 0x784
0783 0801 | | Execute_Immediate Raise,0x1
0784 e5ff | | Load 0x2,-0x1
0785 e002 | | Load 0x0,0x2
0786 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0787 0273 | s | Execute Discrete,Plus
0788 00d8 | | Load_Top At_Offset_0
0789 e015 | | Load 0x0,0x15
078a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
078b 0260 | ` | Execute Discrete,In_Type
078c 7001 |p | Jump_Nonzero 0x78e
078d 0801 | | Execute_Immediate Raise,0x1
078e 4401 |D | Exit_Subprogram With_Result,0x1
078f TRAP_0768:
078f 0007 | | Action Break_Optional
0790 4800 |H | Short_Literal 0x0
0791 4401 |D | Exit_Subprogram With_Result,0x1
0792 0000 0000 | | .BLANK 0000[0x6]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079c | | .CONST 0x079c ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0002 | | .CONST 0x0002 ; Number of locals
079b INIT_0798:
079b 00e3 | | Load_Encached Natural_Cache
079c BODY_0798:
079c e5fd | | Load 0x2,-0x3
079d 0a03 | | Execute_Immediate Plus,0x3
079e e002 | | Load 0x0,0x2
079f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07a0 00d9 | | Load_Top At_Offset_1
07a1 00d0 | | Action Swap_Control
07a2 0260 | ` | Execute Discrete,In_Type
07a3 7001 |p | Jump_Nonzero 0x7a5
07a4 0801 | | Execute_Immediate Raise,0x1
07a5 e5ff | | Load 0x2,-0x1
07a6 e002 | | Load 0x0,0x2
07a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07a8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
07a9 e5fe | | Load 0x2,-0x2
07aa 00d9 | | Load_Top At_Offset_1
07ab 0272 | r | Execute Discrete,Minus
07ac 4403 |D | Exit_Subprogram With_Result,0x3
07ad 0000 0000 | | .XXX[0x3]
07af 0000 | |
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b5 | | .CONST 0x07b5 ; Address of begin
07b1 0004 | | .CONST 0x0004 ; Address of exception handler
07b2 0002 | | .CONST 0x0002 ; Number of locals
07b3 INIT_07b0:
07b3 e002 | | Load 0x0,0x2
07b4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
07b5 BODY_07b0:
07b5 4807 |H | Short_Literal 0x7
07b6 e5ff | | Load 0x2,-0x1
07b7 e002 | | Load 0x0,0x2
07b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
07ba 6005 |` | Indirect_Literal Discrete,0x7c0,{0x00000000, 0x00008000}
07bb 00d9 | | Load_Top At_Offset_1
07bc e005 | | Load 0x0,0x5
07bd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07be 4401 |D | Exit_Subprogram With_Result,0x1
07bf 0000 | | .XXX[0x1]
07c0 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
07c4 0000 0000 | | .BLANK 0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07d4 | | .CONST 0x07d4 ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0006 | | .CONST 0x0006 ; Number of locals
07cb INIT_07c8:
07cb e002 | | Load 0x0,0x2
07cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07cd e002 | | Load 0x0,0x2
07ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07cf e002 | | Load 0x0,0x2
07d0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07d1 e003 | | Load 0x0,0x3
07d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d3 00e3 | | Load_Encached Natural_Cache
07d4 BODY_07c8:
07d4 e002 | | Load 0x0,0x2
07d5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07d6 e002 | | Load 0x0,0x2
07d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07d8 00e3 | | Load_Encached Natural_Cache
07d9 e005 | | Load 0x0,0x5
07da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07db e5ff | | Load 0x2,-0x1
07dc e005 | | Load 0x0,0x5
07dd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07de c405 | | Store 0x2,0x5
07df 005b | [ | Store_Top Discrete,At_Offset_3
07e0 c402 | | Store 0x2,0x2
07e1 c403 | | Store 0x2,0x3
07e2 e002 | | Load 0x0,0x2
07e3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07e4 e5fe | | Load 0x2,-0x2
07e5 4800 |H | Short_Literal 0x0
07e6 4804 |H | Short_Literal 0x4
07e7 e403 | | Load 0x2,0x3
07e8 0a01 | | Execute_Immediate Plus,0x1
07e9 e002 | | Load 0x0,0x2
07ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07eb 00d9 | | Load_Top At_Offset_1
07ec 00d0 | | Action Swap_Control
07ed 0260 | ` | Execute Discrete,In_Type
07ee 7001 |p | Jump_Nonzero 0x7f0
07ef 0801 | | Execute_Immediate Raise,0x1
07f0 e403 | | Load 0x2,0x3
07f1 e002 | | Load 0x0,0x2
07f2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07f3 00d9 | | Load_Top At_Offset_1
07f4 00d0 | | Action Swap_Control
07f5 0260 | ` | Execute Discrete,In_Type
07f6 7001 |p | Jump_Nonzero 0x7f8
07f7 0801 | | Execute_Immediate Raise,0x1
07f8 e5ff | | Load 0x2,-0x1
07f9 e002 | | Load 0x0,0x2
07fa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07fb e5ff | | Load 0x2,-0x1
07fc e005 | | Load 0x0,0x5
07fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07fe 005b | [ | Store_Top Discrete,At_Offset_3
07ff 00da | | Load_Top At_Offset_2
0800 7003 |p | Jump_Nonzero 0x804
0801 e005 | | Load 0x0,0x5
0802 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0803 0257 | W | Execute Discrete,Raise
0804 00da | | Load_Top At_Offset_2
0805 e002 | | Load 0x0,0x2
0806 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0807 00d9 | | Load_Top At_Offset_1
0808 00d0 | | Action Swap_Control
0809 0260 | ` | Execute Discrete,In_Type
080a 7001 |p | Jump_Nonzero 0x80c
080b 0801 | | Execute_Immediate Raise,0x1
080c e5ff | | Load 0x2,-0x1
080d e002 | | Load 0x0,0x2
080e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
080f 4402 |D | Exit_Subprogram With_Result,0x2
0810 ; --------------------------------------------------------------------------------------
0810 ; Debug Table
0810 ; --------------------------------------------------------------------------------------
0810 0004 0007 | | .DEBUG4 0x0004,0x0007,0x818b,0x0000,0x0001,0x0000
0816 0000 0000 | | .BLANK 0000[0x1ea]