|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_f568d9
└─⟦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 0390 | | .CONST 0x0390 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0081 | | .CONST 0x0081 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0013 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0015 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0017 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0019 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
001b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
001d 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
001f 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0021 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0023 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0025 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0027 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0029 e001 | | Load 0x0,0x1
002a 0129 | ) | Execute Any,Make_Visible
002b e002 | | Load 0x0,0x2
002c 0129 | ) | Execute Any,Make_Visible
002d e003 | | Load 0x0,0x3
002e 0129 | ) | Execute Any,Make_Visible
002f 00bf | | Action Accept_Activation
0030 e004 | | Load 0x0,0x4
0031 e005 | | Load 0x0,0x5
0032 e006 | | Load 0x0,0x6
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 e007 | | Load 0x0,0x7
0035 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0036 e008 | | Load 0x0,0x8
0037 0387 | | Declare_Variable Package
0038 00d8 | | Load_Top At_Offset_0
0039 020f | | Execute Module,Activate
003a e20f | | Load 0x1,0xf
003b 00e1 | | Load_Encached Boolean_Cache
003c 00e1 | | Load_Encached Boolean_Cache
003d e009 | | Load 0x0,0x9
003e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
003f 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
0041 4804 |H | Short_Literal 0x4
0042 032d | - | Declare_Type Record,Defined
0043 00e4 | | Load_Encached Positive_Cache
0044 0266 | f | Execute Discrete,Bounds
0045 00da | | Load_Top At_Offset_2
0046 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
0048 4801 |H | Short_Literal 0x1
0049 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
004a e00a | | Load 0x0,0xa
004b e00b | | Load 0x0,0xb
004c 00db | | Load_Top At_Offset_3
004d 00db | | Load_Top At_Offset_3
004e e008 | | Load 0x0,0x8
004f 0387 | | Declare_Variable Package
0050 00d8 | | Load_Top At_Offset_0
0051 020f | | Execute Module,Activate
0052 00d8 | | Load_Top At_Offset_0
0053 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0054 0322 | " | Declare_Variable Record
0055 00d8 | | Load_Top At_Offset_0
0056 1c00 | | Execute_Immediate Run_Utility,0x0
0057 e00c | | Load 0x0,0xc
0058 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0059 e226 | & | Load 0x1,0x26
005a 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
005b 0322 | " | Declare_Variable Record
005c 00d8 | | Load_Top At_Offset_0
005d 1c00 | | Execute_Immediate Run_Utility,0x0
005e e226 | & | Load 0x1,0x26
005f 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0060 0322 | " | Declare_Variable Record
0061 00d8 | | Load_Top At_Offset_0
0062 1c00 | | Execute_Immediate Run_Utility,0x0
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 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006e 00c7 | | Action Elaborate_Subprogram
006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0078 00c7 | | Action Elaborate_Subprogram
0079 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007a 00c7 | | Action Elaborate_Subprogram
007b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007e 00c7 | | Action Elaborate_Subprogram
007f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0080 00c7 | | Action Elaborate_Subprogram
0081 BODY_0008:
0081 e210 | | Load 0x1,0x10
0082 e00c | | Load 0x0,0xc
0083 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0084 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0085 00bc | | Action Signal_Activated
0086 00bb | | Action Signal_Completion
0087 0000 | | .XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0099 | | .CONST 0x0099 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0006 | | .CONST 0x0006 ; Number of locals
008b INIT_0088:
008b e22b | + | Load 0x1,0x2b
008c e006 | | Load 0x0,0x6
008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008e 1c08 | | Execute_Immediate Run_Utility,0x8
008f e227 | ' | Load 0x1,0x27
0090 0322 | " | Declare_Variable Record
0091 00d8 | | Load_Top At_Offset_0
0092 1c00 | | Execute_Immediate Run_Utility,0x0
0093 00e1 | | Load_Encached Boolean_Cache
0094 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0095 e009 | | Load 0x0,0x9
0096 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0097 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0098 00e3 | | Load_Encached Natural_Cache
0099 BODY_0088:
0099 e211 | | Load 0x1,0x11
009a 6804 |h | Jump_Zero 0x9f
009b e212 | | Load 0x1,0x12
009c e009 | | Load 0x0,0x9
009d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
009f 00cf | | Action Mark_Auxiliary
00a0 e22a | * | Load 0x1,0x2a
00a1 e229 | ) | Load 0x1,0x29
00a2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00a3 4801 |H | Short_Literal 0x1
00a4 0263 | c | Execute Discrete,Above_Bound
00a5 7026 |p& | Jump_Nonzero 0xcc
00a6 00d8 | | Load_Top At_Offset_0
00a7 e22a | * | Load 0x1,0x2a
00a8 e229 | ) | Load 0x1,0x29
00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00aa e403 | | Load 0x2,0x3
00ab 017d | } | Execute Record,Structure_Write
00ac e403 | | Load 0x2,0x3
00ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ae 681b |h | Jump_Zero 0xca
00af 4801 |H | Short_Literal 0x1
00b0 a404 | | Store_Unchecked 0x2,0x4
00b1 00d8 | | Load_Top At_Offset_0
00b2 a406 | | Store_Unchecked 0x2,0x6
00b3 e227 | ' | Load 0x1,0x27
00b4 0322 | " | Declare_Variable Record
00b5 e5ff | | Load 0x2,-0x1
00b6 e227 | ' | Load 0x1,0x27
00b7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00b8 0119 | | Execute Any,Check_In_Formal_Type
00b9 00d9 | | Load_Top At_Offset_1
00ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00bb 4800 |H | Short_Literal 0x0
00bc 00d9 | | Load_Top At_Offset_1
00bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00be 4800 |H | Short_Literal 0x0
00bf 00d9 | | Load_Top At_Offset_1
00c0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c1 e405 | | Load 0x2,0x5
00c2 00d9 | | Load_Top At_Offset_1
00c3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c4 00d9 | | Load_Top At_Offset_1
00c5 e22a | * | Load 0x1,0x2a
00c6 e229 | ) | Load 0x1,0x29
00c7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00c8 00d2 | | Pop_Control Pop_Count_2
00c9 7802 |x | Jump 0xcc
00ca 00c8 | | Action Pop_Auxiliary_Range
00cb 3fda |? | Loop_Increasing 0xa6
00cc 00ce | | Action Pop_Auxiliary
00cd 00da | | Load_Top At_Offset_2
00ce 701a |p | Jump_Nonzero 0xe9
00cf e227 | ' | Load 0x1,0x27
00d0 0322 | " | Declare_Variable Record
00d1 e5ff | | Load 0x2,-0x1
00d2 e227 | ' | Load 0x1,0x27
00d3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00d4 0119 | | Execute Any,Check_In_Formal_Type
00d5 00d9 | | Load_Top At_Offset_1
00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d7 4800 |H | Short_Literal 0x0
00d8 00d9 | | Load_Top At_Offset_1
00d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00da 4800 |H | Short_Literal 0x0
00db 00d9 | | Load_Top At_Offset_1
00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dd 00da | | Load_Top At_Offset_2
00de 00d9 | | Load_Top At_Offset_1
00df 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00e0 e22a | * | Load 0x1,0x2a
00e1 e229 | ) | Load 0x1,0x29
00e2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00e3 e22a | * | Load 0x1,0x2a
00e4 017d | } | Execute Record,Structure_Write
00e5 e22a | * | Load 0x1,0x2a
00e6 e229 | ) | Load 0x1,0x29
00e7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00e8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00e9 e402 | | Load 0x2,0x2
00ea 00d9 | | Load_Top At_Offset_1
00eb e006 | | Load 0x0,0x6
00ec 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ed 00d1 | | Pop_Control Pop_Count_1
00ee e402 | | Load 0x2,0x2
00ef e22c | , | Load 0x1,0x2c
00f0 e226 | & | Load 0x1,0x26
00f1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f2 e22c | , | Load 0x1,0x2c
00f3 017d | } | Execute Record,Structure_Write
00f4 e402 | | Load 0x2,0x2
00f5 e22d | - | Load 0x1,0x2d
00f6 e226 | & | Load 0x1,0x26
00f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f8 e22d | - | Load 0x1,0x2d
00f9 017d | } | Execute Record,Structure_Write
00fa e211 | | Load 0x1,0x11
00fb 680d |h | Jump_Zero 0x109
00fc 00da | | Load_Top At_Offset_2
00fd 6806 |h | Jump_Zero 0x104
00fe 00d9 | | Load_Top At_Offset_1
00ff 00d9 | | Load_Top At_Offset_1
0100 e22b | + | Load 0x1,0x2b
0101 e00c | | Load 0x0,0xc
0102 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0103 7805 |x | Jump 0x109
0104 00d9 | | Load_Top At_Offset_1
0105 00d9 | | Load_Top At_Offset_1
0106 e22b | + | Load 0x1,0x2b
0107 e00c | | Load 0x0,0xc
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 e402 | | Load 0x2,0x2
010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e006 | | Load 0x0,0x6
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 02ff | | Declare_Variable Variant_Record
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 BODY_0110:
0118 00db | | Load_Top At_Offset_3
0119 e20f | | Load 0x1,0xf
011a 0119 | | Execute Any,Check_In_Formal_Type
011b 8214 | | Call 0x1,0x14
011c 00d9 | | Load_Top At_Offset_1
011d 016d | m | Execute Variant_Record,Structure_Write
011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012b | + | .CONST 0x012b ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0003 | | .CONST 0x0003 ; Number of locals
0123 INIT_0120:
0123 e227 | ' | Load 0x1,0x27
0124 0322 | " | Declare_Variable Record
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 00d8 | | Load_Top At_Offset_0
0128 0322 | " | Declare_Variable Record
0129 00d8 | | Load_Top At_Offset_0
012a 1c00 | | Execute_Immediate Run_Utility,0x0
012b BODY_0120:
012b e5ff | | Load 0x2,-0x1
012c e006 | | Load 0x0,0x6
012d 180f | | Execute Package,Field_Execute,Field_Number 0xf
012e e22b | + | Load 0x1,0x2b
012f 027e | ~ | Execute Discrete,Not_Equal
0130 6802 |h | Jump_Zero 0x133
0131 e223 | # | Load 0x1,0x23
0132 0257 | W | Execute Discrete,Raise
0133 e5ff | | Load 0x2,-0x1
0134 e006 | | Load 0x0,0x6
0135 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0136 0d01 | | Execute_Immediate Less,0x1
0137 e5ff | | Load 0x2,-0x1
0138 e006 | | Load 0x0,0x6
0139 1820 | | Execute Package,Field_Execute,Field_Number 0x20
013a e22a | * | Load 0x1,0x2a
013b e229 | ) | Load 0x1,0x29
013c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
013d 027d | } | Execute Discrete,Greater
013e 0278 | x | Execute Discrete,Or
013f 6802 |h | Jump_Zero 0x142
0140 e224 | $ | Load 0x1,0x24
0141 0257 | W | Execute Discrete,Raise
0142 e5ff | | Load 0x2,-0x1
0143 e006 | | Load 0x0,0x6
0144 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0145 00d8 | | Load_Top At_Offset_0
0146 00e4 | | Load_Encached Positive_Cache
0147 0260 | ` | Execute Discrete,In_Type
0148 7001 |p | Jump_Nonzero 0x14a
0149 0801 | | Execute_Immediate Raise,0x1
014a e22a | * | Load 0x1,0x2a
014b e229 | ) | Load 0x1,0x29
014c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014d 00da | | Load_Top At_Offset_2
014e 017d | } | Execute Record,Structure_Write
014f 00d8 | | Load_Top At_Offset_0
0150 e5ff | | Load 0x2,-0x1
0151 e006 | | Load 0x0,0x6
0152 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0153 00d8 | | Load_Top At_Offset_0
0154 00e4 | | Load_Encached Positive_Cache
0155 0260 | ` | Execute Discrete,In_Type
0156 7001 |p | Jump_Nonzero 0x158
0157 0801 | | Execute_Immediate Raise,0x1
0158 e22a | * | Load 0x1,0x2a
0159 e229 | ) | Load 0x1,0x29
015a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
015b 00d9 | | Load_Top At_Offset_1
015c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015d 7005 |p | Jump_Nonzero 0x163
015e e22c | , | Load 0x1,0x2c
015f e5ff | | Load 0x2,-0x1
0160 e226 | & | Load 0x1,0x26
0161 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0162 00d1 | | Pop_Control Pop_Count_1
0163 e22d | - | Load 0x1,0x2d
0164 e5ff | | Load 0x2,-0x1
0165 e226 | & | Load 0x1,0x26
0166 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0167 00d1 | | Pop_Control Pop_Count_1
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177 | w | .CONST 0x0177 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e227 | ' | Load 0x1,0x27
0174 0322 | " | Declare_Variable Record
0175 00d8 | | Load_Top At_Offset_0
0176 1c00 | | Execute_Immediate Run_Utility,0x0
0177 BODY_0170:
0177 e22a | * | Load 0x1,0x2a
0178 e229 | ) | Load 0x1,0x29
0179 1814 | | Execute Package,Field_Execute,Field_Number 0x14
017a 00d1 | | Pop_Control Pop_Count_1
017b e22b | + | Load 0x1,0x2b
017c e00c | | Load 0x0,0xc
017d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
017e e22c | , | Load 0x1,0x2c
017f e226 | & | Load 0x1,0x26
0180 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0181 00d1 | | Pop_Control Pop_Count_1
0182 e22d | - | Load 0x1,0x2d
0183 e226 | & | Load 0x1,0x26
0184 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0185 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f | | .CONST 0x018f ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e227 | ' | Load 0x1,0x27
018c 0322 | " | Declare_Variable Record
018d 00d8 | | Load_Top At_Offset_0
018e 1c00 | | Execute_Immediate Run_Utility,0x0
018f BODY_0188:
018f 00db | | Load_Top At_Offset_3
0190 e006 | | Load 0x0,0x6
0191 180f | | Execute Package,Field_Execute,Field_Number 0xf
0192 e22b | + | Load 0x1,0x2b
0193 027e | ~ | Execute Discrete,Not_Equal
0194 6802 |h | Jump_Zero 0x197
0195 e223 | # | Load 0x1,0x23
0196 0257 | W | Execute Discrete,Raise
0197 00db | | Load_Top At_Offset_3
0198 e006 | | Load 0x0,0x6
0199 1820 | | Execute Package,Field_Execute,Field_Number 0x20
019a 0d01 | | Execute_Immediate Less,0x1
019b e5ff | | Load 0x2,-0x1
019c e006 | | Load 0x0,0x6
019d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
019e e22a | * | Load 0x1,0x2a
019f e229 | ) | Load 0x1,0x29
01a0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01a1 027d | } | Execute Discrete,Greater
01a2 0278 | x | Execute Discrete,Or
01a3 6802 |h | Jump_Zero 0x1a6
01a4 e224 | $ | Load 0x1,0x24
01a5 0257 | W | Execute Discrete,Raise
01a6 00db | | Load_Top At_Offset_3
01a7 e006 | | Load 0x0,0x6
01a8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01a9 00d8 | | Load_Top At_Offset_0
01aa 00e4 | | Load_Encached Positive_Cache
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae e22a | * | Load 0x1,0x2a
01af e229 | ) | Load 0x1,0x29
01b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b1 00d9 | | Load_Top At_Offset_1
01b2 017d | } | Execute Record,Structure_Write
01b3 00d8 | | Load_Top At_Offset_0
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 7023 |p# | Jump_Nonzero 0x1d9
01b6 4801 |H | Short_Literal 0x1
01b7 00d9 | | Load_Top At_Offset_1
01b8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b9 e211 | | Load 0x1,0x11
01ba 680d |h | Jump_Zero 0x1c8
01bb e212 | | Load 0x1,0x12
01bc e009 | | Load 0x0,0x9
01bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01be 00d9 | | Load_Top At_Offset_1
01bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c0 00d8 | | Load_Top At_Offset_0
01c1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c2 e5ff | | Load 0x2,-0x1
01c3 e006 | | Load 0x0,0x6
01c4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01c5 e22b | + | Load 0x1,0x2b
01c6 e00c | | Load 0x0,0xc
01c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c8 00d8 | | Load_Top At_Offset_0
01c9 e5ff | | Load 0x2,-0x1
01ca e006 | | Load 0x0,0x6
01cb 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01cc 00d8 | | Load_Top At_Offset_0
01cd 00e4 | | Load_Encached Positive_Cache
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 e22a | * | Load 0x1,0x2a
01d2 e229 | ) | Load 0x1,0x29
01d3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01d4 e22c | , | Load 0x1,0x2c
01d5 e5ff | | Load 0x2,-0x1
01d6 e226 | & | Load 0x1,0x26
01d7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01d8 00d1 | | Pop_Control Pop_Count_1
01d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e7 | | .CONST 0x01e7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e227 | ' | Load 0x1,0x27
01e4 0322 | " | Declare_Variable Record
01e5 00d8 | | Load_Top At_Offset_0
01e6 1c00 | | Execute_Immediate Run_Utility,0x0
01e7 BODY_01e0:
01e7 00cf | | Action Mark_Auxiliary
01e8 e22a | * | Load 0x1,0x2a
01e9 e229 | ) | Load 0x1,0x29
01ea 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01eb 4801 |H | Short_Literal 0x1
01ec 0263 | c | Execute Discrete,Above_Bound
01ed 7020 |p | Jump_Nonzero 0x20e
01ee 00d8 | | Load_Top At_Offset_0
01ef e22a | * | Load 0x1,0x2a
01f0 e229 | ) | Load 0x1,0x29
01f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f2 e402 | | Load 0x2,0x2
01f3 017d | } | Execute Record,Structure_Write
01f4 00db | | Load_Top At_Offset_3
01f5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01f6 7015 |p | Jump_Nonzero 0x20c
01f7 4801 |H | Short_Literal 0x1
01f8 e402 | | Load 0x2,0x2
01f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01fa e211 | | Load 0x1,0x11
01fb 680b |h | Jump_Zero 0x207
01fc e212 | | Load 0x1,0x12
01fd e009 | | Load 0x0,0x9
01fe 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ff e402 | | Load 0x2,0x2
0200 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0201 00db | | Load_Top At_Offset_3
0202 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0203 00d9 | | Load_Top At_Offset_1
0204 e22b | + | Load 0x1,0x2b
0205 e00c | | Load 0x0,0xc
0206 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0207 00db | | Load_Top At_Offset_3
0208 00d9 | | Load_Top At_Offset_1
0209 e22a | * | Load 0x1,0x2a
020a e229 | ) | Load 0x1,0x29
020b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
020c 00c8 | | Action Pop_Auxiliary_Range
020d 3fe0 |? | Loop_Increasing 0x1ee
020e 00ce | | Action Pop_Auxiliary
020f e22c | , | Load 0x1,0x2c
0210 e226 | & | Load 0x1,0x26
0211 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0212 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f | | .CONST 0x021f ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e227 | ' | Load 0x1,0x27
021c 0322 | " | Declare_Variable Record
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f BODY_0218:
021f 00db | | Load_Top At_Offset_3
0220 e006 | | Load 0x0,0x6
0221 180f | | Execute Package,Field_Execute,Field_Number 0xf
0222 e22b | + | Load 0x1,0x2b
0223 027e | ~ | Execute Discrete,Not_Equal
0224 6802 |h | Jump_Zero 0x227
0225 e223 | # | Load 0x1,0x23
0226 0257 | W | Execute Discrete,Raise
0227 00db | | Load_Top At_Offset_3
0228 e006 | | Load 0x0,0x6
0229 1820 | | Execute Package,Field_Execute,Field_Number 0x20
022a 0d01 | | Execute_Immediate Less,0x1
022b e5ff | | Load 0x2,-0x1
022c e006 | | Load 0x0,0x6
022d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
022e e22a | * | Load 0x1,0x2a
022f e229 | ) | Load 0x1,0x29
0230 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0231 027d | } | Execute Discrete,Greater
0232 0278 | x | Execute Discrete,Or
0233 6802 |h | Jump_Zero 0x236
0234 e224 | $ | Load 0x1,0x24
0235 0257 | W | Execute Discrete,Raise
0236 00db | | Load_Top At_Offset_3
0237 e006 | | Load 0x0,0x6
0238 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0239 00d8 | | Load_Top At_Offset_0
023a 00e4 | | Load_Encached Positive_Cache
023b 0260 | ` | Execute Discrete,In_Type
023c 7001 |p | Jump_Nonzero 0x23e
023d 0801 | | Execute_Immediate Raise,0x1
023e e22a | * | Load 0x1,0x2a
023f e229 | ) | Load 0x1,0x29
0240 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0241 00d9 | | Load_Top At_Offset_1
0242 017d | } | Execute Record,Structure_Write
0243 00d8 | | Load_Top At_Offset_0
0244 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0245 6824 |h$ | Jump_Zero 0x26a
0246 4800 |H | Short_Literal 0x0
0247 00d9 | | Load_Top At_Offset_1
0248 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0249 e211 | | Load 0x1,0x11
024a 680d |h | Jump_Zero 0x258
024b e212 | | Load 0x1,0x12
024c e009 | | Load 0x0,0x9
024d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
024e 00d9 | | Load_Top At_Offset_1
024f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0250 00d8 | | Load_Top At_Offset_0
0251 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0252 e5ff | | Load 0x2,-0x1
0253 e006 | | Load 0x0,0x6
0254 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0255 e22b | + | Load 0x1,0x2b
0256 e00c | | Load 0x0,0xc
0257 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0258 00d8 | | Load_Top At_Offset_0
0259 e5ff | | Load 0x2,-0x1
025a e006 | | Load 0x0,0x6
025b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
025c 00d8 | | Load_Top At_Offset_0
025d 00e4 | | Load_Encached Positive_Cache
025e 0260 | ` | Execute Discrete,In_Type
025f 7001 |p | Jump_Nonzero 0x261
0260 0801 | | Execute_Immediate Raise,0x1
0261 e22a | * | Load 0x1,0x2a
0262 e229 | ) | Load 0x1,0x29
0263 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0264 00db | | Load_Top At_Offset_3
0265 e22c | , | Load 0x1,0x2c
0266 e226 | & | Load 0x1,0x26
0267 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0268 e22c | , | Load 0x1,0x2c
0269 017d | } | Execute Record,Structure_Write
026a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0277 | w | .CONST 0x0277 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e227 | ' | Load 0x1,0x27
0274 0322 | " | Declare_Variable Record
0275 00d8 | | Load_Top At_Offset_0
0276 1c00 | | Execute_Immediate Run_Utility,0x0
0277 BODY_0270:
0277 00cf | | Action Mark_Auxiliary
0278 e22a | * | Load 0x1,0x2a
0279 e229 | ) | Load 0x1,0x29
027a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
027b 4801 |H | Short_Literal 0x1
027c 0263 | c | Execute Discrete,Above_Bound
027d 7020 |p | Jump_Nonzero 0x29e
027e 00d8 | | Load_Top At_Offset_0
027f e22a | * | Load 0x1,0x2a
0280 e229 | ) | Load 0x1,0x29
0281 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0282 e402 | | Load 0x2,0x2
0283 017d | } | Execute Record,Structure_Write
0284 00db | | Load_Top At_Offset_3
0285 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0286 6815 |h | Jump_Zero 0x29c
0287 4800 |H | Short_Literal 0x0
0288 e402 | | Load 0x2,0x2
0289 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
028a e211 | | Load 0x1,0x11
028b 680b |h | Jump_Zero 0x297
028c e212 | | Load 0x1,0x12
028d e009 | | Load 0x0,0x9
028e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028f e402 | | Load 0x2,0x2
0290 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0291 00db | | Load_Top At_Offset_3
0292 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0293 00d9 | | Load_Top At_Offset_1
0294 e22b | + | Load 0x1,0x2b
0295 e00c | | Load 0x0,0xc
0296 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0297 00db | | Load_Top At_Offset_3
0298 00d9 | | Load_Top At_Offset_1
0299 e22a | * | Load 0x1,0x2a
029a e229 | ) | Load 0x1,0x29
029b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
029c 00c8 | | Action Pop_Auxiliary_Range
029d 3fe0 |? | Loop_Increasing 0x27e
029e 00ce | | Action Pop_Auxiliary
029f e22c | , | Load 0x1,0x2c
02a0 e226 | & | Load 0x1,0x26
02a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a2 00d1 | | Pop_Control Pop_Count_1
02a3 e22d | - | Load 0x1,0x2d
02a4 e226 | & | Load 0x1,0x26
02a5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
02a6 e22c | , | Load 0x1,0x2c
02a7 017d | } | Execute Record,Structure_Write
02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 e22c | , | Load 0x1,0x2c
02b4 e226 | & | Load 0x1,0x26
02b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b6 00ca | | Action Exit_Nullary_Function
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e22d | - | Load 0x1,0x2d
02bc e226 | & | Load 0x1,0x26
02bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02be 00ca | | Action Exit_Nullary_Function
02bf 0000 | | .XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 e22a | * | Load 0x1,0x2a
02c4 e229 | ) | Load 0x1,0x29
02c5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02c6 00ca | | Action Exit_Nullary_Function
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e210 | | Load 0x1,0x10
02cc 0335 | 5 | Declare_Variable Array,Duplicate
02cd 00cd | | Action Spare6_Action
02ce 00ca | | Action Exit_Nullary_Function
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 8213 | | Call 0x1,0x13
02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02df | | .CONST 0x02df ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e227 | ' | Load 0x1,0x27
02dc 0322 | " | Declare_Variable Record
02dd 00d8 | | Load_Top At_Offset_0
02de 1c00 | | Execute_Immediate Run_Utility,0x0
02df BODY_02d8:
02df 00db | | Load_Top At_Offset_3
02e0 e006 | | Load 0x0,0x6
02e1 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e2 e22b | + | Load 0x1,0x2b
02e3 027e | ~ | Execute Discrete,Not_Equal
02e4 6802 |h | Jump_Zero 0x2e7
02e5 e223 | # | Load 0x1,0x23
02e6 0257 | W | Execute Discrete,Raise
02e7 00db | | Load_Top At_Offset_3
02e8 e006 | | Load 0x0,0x6
02e9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02ea 0d01 | | Execute_Immediate Less,0x1
02eb e5ff | | Load 0x2,-0x1
02ec e006 | | Load 0x0,0x6
02ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02ee e22a | * | Load 0x1,0x2a
02ef e229 | ) | Load 0x1,0x29
02f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02f1 027d | } | Execute Discrete,Greater
02f2 0278 | x | Execute Discrete,Or
02f3 6802 |h | Jump_Zero 0x2f6
02f4 e224 | $ | Load 0x1,0x24
02f5 0257 | W | Execute Discrete,Raise
02f6 00db | | Load_Top At_Offset_3
02f7 e006 | | Load 0x0,0x6
02f8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02f9 00d8 | | Load_Top At_Offset_0
02fa 00e4 | | Load_Encached Positive_Cache
02fb 0260 | ` | Execute Discrete,In_Type
02fc 7001 |p | Jump_Nonzero 0x2fe
02fd 0801 | | Execute_Immediate Raise,0x1
02fe e22a | * | Load 0x1,0x2a
02ff e229 | ) | Load 0x1,0x29
0300 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0301 00d9 | | Load_Top At_Offset_1
0302 017d | } | Execute Record,Structure_Write
0303 00d8 | | Load_Top At_Offset_0
0304 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0305 e20f | | Load 0x1,0xf
0306 0119 | | Execute Any,Check_In_Formal_Type
0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030f | | .CONST 0x030f ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e227 | ' | Load 0x1,0x27
030c 0322 | " | Declare_Variable Record
030d 00d8 | | Load_Top At_Offset_0
030e 1c00 | | Execute_Immediate Run_Utility,0x0
030f BODY_0308:
030f 00db | | Load_Top At_Offset_3
0310 e006 | | Load 0x0,0x6
0311 180f | | Execute Package,Field_Execute,Field_Number 0xf
0312 e22b | + | Load 0x1,0x2b
0313 027e | ~ | Execute Discrete,Not_Equal
0314 6802 |h | Jump_Zero 0x317
0315 e223 | # | Load 0x1,0x23
0316 0257 | W | Execute Discrete,Raise
0317 00db | | Load_Top At_Offset_3
0318 e006 | | Load 0x0,0x6
0319 1820 | | Execute Package,Field_Execute,Field_Number 0x20
031a 0d01 | | Execute_Immediate Less,0x1
031b e5ff | | Load 0x2,-0x1
031c e006 | | Load 0x0,0x6
031d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
031e e22a | * | Load 0x1,0x2a
031f e229 | ) | Load 0x1,0x29
0320 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0321 027d | } | Execute Discrete,Greater
0322 0278 | x | Execute Discrete,Or
0323 6802 |h | Jump_Zero 0x326
0324 e224 | $ | Load 0x1,0x24
0325 0257 | W | Execute Discrete,Raise
0326 00db | | Load_Top At_Offset_3
0327 e006 | | Load 0x0,0x6
0328 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0329 00d8 | | Load_Top At_Offset_0
032a 00e4 | | Load_Encached Positive_Cache
032b 0260 | ` | Execute Discrete,In_Type
032c 7001 |p | Jump_Nonzero 0x32e
032d 0801 | | Execute_Immediate Raise,0x1
032e e22a | * | Load 0x1,0x2a
032f e229 | ) | Load 0x1,0x29
0330 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0331 00d9 | | Load_Top At_Offset_1
0332 017d | } | Execute Record,Structure_Write
0333 e5fe | | Load 0x2,-0x2
0334 00d9 | | Load_Top At_Offset_1
0335 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0336 e211 | | Load 0x1,0x11
0337 680d |h | Jump_Zero 0x345
0338 e212 | | Load 0x1,0x12
0339 e009 | | Load 0x0,0x9
033a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
033b 00d9 | | Load_Top At_Offset_1
033c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
033d 00d8 | | Load_Top At_Offset_0
033e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
033f e5ff | | Load 0x2,-0x1
0340 e006 | | Load 0x0,0x6
0341 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0342 e22b | + | Load 0x1,0x2b
0343 e00c | | Load 0x0,0xc
0344 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0345 00d8 | | Load_Top At_Offset_0
0346 e5ff | | Load 0x2,-0x1
0347 e006 | | Load 0x0,0x6
0348 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0349 00d8 | | Load_Top At_Offset_0
034a 00e4 | | Load_Encached Positive_Cache
034b 0260 | ` | Execute Discrete,In_Type
034c 7001 |p | Jump_Nonzero 0x34e
034d 0801 | | Execute_Immediate Raise,0x1
034e e22a | * | Load 0x1,0x2a
034f e229 | ) | Load 0x1,0x29
0350 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0351 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0352 0000 0000 | | .BLANK 0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4608 |F | Jump_Case 0x9
035c 7808 |x | Jump 0x365 ; case 0x0
035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
035e 7816 |x | Jump 0x375 ; case 0x2
035f 7815 |x | Jump 0x375 ; case 0x3
0360 7814 |x | Jump 0x375 ; case 0x4
0361 7813 |x | Jump 0x375 ; case 0x5
0362 7812 |x | Jump 0x375 ; case 0x6
0363 7811 |x | Jump 0x375 ; case 0x7
0364 7810 |x | Jump 0x375 ; case 0x8
0365 00da | | Load_Top At_Offset_2
0366 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0367 0125 | % | Execute Any,Set_Constraint
0368 00da | | Load_Top At_Offset_2
0369 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
036a 1c00 | | Execute_Immediate Run_Utility,0x0
036b 4801 |H | Short_Literal 0x1
036c 00db | | Load_Top At_Offset_3
036d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
036e 4800 |H | Short_Literal 0x0
036f 00db | | Load_Top At_Offset_3
0370 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0371 4800 |H | Short_Literal 0x0
0372 00db | | Load_Top At_Offset_3
0373 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0375 0869 | i | Execute_Immediate Raise,0x69
0376 0000 0000 | | .XXX[0x2]
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 00d1 | | Pop_Control Pop_Count_1
037c 00da | | Load_Top At_Offset_2
037d 01dc | | Execute Vector,Last
037e 00db | | Load_Top At_Offset_3
037f 01dd | | Execute Vector,First
0380 0263 | c | Execute Discrete,Above_Bound
0381 7006 |p | Jump_Nonzero 0x388
0382 00d8 | | Load_Top At_Offset_0
0383 e5ff | | Load 0x2,-0x1
0384 01d5 | | Execute Vector,Field_Reference
0385 1c00 | | Execute_Immediate Run_Utility,0x0
0386 0a01 | | Execute_Immediate Plus,0x1
0387 7ff8 | | Jump 0x380
0388 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0389 0000 0000 | | .BLANK 0000[0x7]
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug Table
0390 ; --------------------------------------------------------------------------------------
0390 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdc06,0x0000,0x0001,0x0013
0396 000b 03e2 | | .DBG4T 0x000b,0x03e2,0xc000,0x0000
039a 0030 03f4 | 0 | .DBG4T 0x0030,0x03f4,0xc000,0x8000
039e 008b 0425 | %| .DBG4T 0x008b,0x0425,0x1002,0x0000
03a2 0113 0440 | @| .DBG4T 0x0113,0x0440,0x1001,0x0000
03a6 0123 0444 | # D| .DBG4T 0x0123,0x0444,0x1001,0x0000
03aa 0173 0450 | s P| .DBG4T 0x0173,0x0450,0x1001,0x0000
03ae 018b 0457 | W| .DBG4T 0x018b,0x0457,0x1001,0x0000
03b2 01e3 0466 | f| .DBG4T 0x01e3,0x0466,0x1001,0x0000
03b6 021b 0472 | r| .DBG4T 0x021b,0x0472,0x1001,0x0000
03ba 0273 0481 | s | .DBG4T 0x0273,0x0481,0x1001,0x0000
03be 02b3 048e | | .DBG4T 0x02b3,0x048e,0x1002,0x0000
03c2 02bb 0491 | | .DBG4T 0x02bb,0x0491,0x1002,0x0000
03c6 02c3 0494 | | .DBG4T 0x02c3,0x0494,0x1002,0x0000
03ca 02cb 0497 | | .DBG4T 0x02cb,0x0497,0x1002,0x0000
03ce 02d3 049a | | .DBG4T 0x02d3,0x049a,0x1002,0x0000
03d2 02db 049d | | .DBG4T 0x02db,0x049d,0x1002,0x0000
03d6 030b 04a6 | | .DBG4T 0x030b,0x04a6,0x1001,0x0000
03da 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000
03de 037b 0000 | { | .DBG4T 0x037b,0x0000,0x1005,0x0000
03e2 ; --------------------------------------------------------------------------------------
03e2 ; Debug chain
03e2 ; --------------------------------------------------------------------------------------
03e2 0010 0000 | | .DBGLEN 0x0010,0x0000
03e4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug chain
03f4 ; --------------------------------------------------------------------------------------
03f4 0017 0001 | | .DBGLEN 0x0017,0x0001
03f6 0030 003a | 0 :| .DBGLNO 0x0030,0x003a,0x0043,0x004a,0x0052,0x0057,0x0059,0x005e,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081
040e 0001 0003 | | .XXX[0x17]
0410 0004 0005 | |
0412 0007 0008 | |
0414 0009 000a | |
0416 000b 000c | |
0418 000d 000e | |
041a 000f 0010 | |
041c 0011 0012 | |
041e 0013 0014 | |
0420 0015 0016 | |
0422 0017 0018 | |
0424 0019 | |
0425 ; --------------------------------------------------------------------------------------
0425 ; Debug chain
0425 ; --------------------------------------------------------------------------------------
0425 0005 0014 | | .DBGLEN 0x0005,0x0014
0427 008b 008f | | .DBGLNO 0x008b,0x008f,0x0093,0x0095,0x0098,0x0099,0x009b,0x00a0,0x00a6,0x00ac,0x00af,0x00b1,0x00b3,0x00c8,0x00cd,0x00cf,0x00e5,0x00e9,0x00ee,0x00f4,0x00fa,0x00fc,0x00fe,0x0104,0x0109
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug chain
0440 ; --------------------------------------------------------------------------------------
0440 0001 0001 | | .DBGLEN 0x0001,0x0001
0442 0113 0118 | | .DBGLNO 0x0113,0x0118
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug chain
0444 ; --------------------------------------------------------------------------------------
0444 0001 0009 | | .DBGLEN 0x0001,0x0009
0446 0123 012b | # +| .DBGLNO 0x0123,0x012b,0x0131,0x0133,0x0140,0x0142,0x014f,0x015b,0x015e,0x0163
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug chain
0450 ; --------------------------------------------------------------------------------------
0450 0001 0004 | | .DBGLEN 0x0001,0x0004
0452 0173 0177 | s w| .DBGLNO 0x0173,0x0177,0x017b,0x017e,0x0182
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0001 000c | | .DBGLEN 0x0001,0x000c
0459 018b 018f | | .DBGLNO 0x018b,0x018f,0x0195,0x0197,0x01a4,0x01a6,0x01b3,0x01b6,0x01b9,0x01bb,0x01c0,0x01c8,0x01d4
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug chain
0466 ; --------------------------------------------------------------------------------------
0466 0001 0009 | | .DBGLEN 0x0001,0x0009
0468 01e3 01e8 | | .DBGLNO 0x01e3,0x01e8,0x01ee,0x01f4,0x01f7,0x01fa,0x01fc,0x0201,0x0207,0x020f
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug chain
0472 ; --------------------------------------------------------------------------------------
0472 0001 000c | | .DBGLEN 0x0001,0x000c
0474 021b 021f | | .DBGLNO 0x021b,0x021f,0x0225,0x0227,0x0234,0x0236,0x0243,0x0246,0x0249,0x024b,0x0250,0x0258,0x0264
0481 ; --------------------------------------------------------------------------------------
0481 ; Debug chain
0481 ; --------------------------------------------------------------------------------------
0481 0001 000a | | .DBGLEN 0x0001,0x000a
0483 0273 0278 | s x| .DBGLNO 0x0273,0x0278,0x027e,0x0284,0x0287,0x028a,0x028c,0x0291,0x0297,0x029f,0x02a3
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 0000 0001 | | .DBGLEN 0x0000,0x0001
0490 02b3 | | .DBGLNO 0x02b3
0491 ; --------------------------------------------------------------------------------------
0491 ; Debug chain
0491 ; --------------------------------------------------------------------------------------
0491 0000 0001 | | .DBGLEN 0x0000,0x0001
0493 02bb | | .DBGLNO 0x02bb
0494 ; --------------------------------------------------------------------------------------
0494 ; Debug chain
0494 ; --------------------------------------------------------------------------------------
0494 0000 0001 | | .DBGLEN 0x0000,0x0001
0496 02c3 | | .DBGLNO 0x02c3
0497 ; --------------------------------------------------------------------------------------
0497 ; Debug chain
0497 ; --------------------------------------------------------------------------------------
0497 0000 0001 | | .DBGLEN 0x0000,0x0001
0499 02cb | | .DBGLNO 0x02cb
049a ; --------------------------------------------------------------------------------------
049a ; Debug chain
049a ; --------------------------------------------------------------------------------------
049a 0000 0001 | | .DBGLEN 0x0000,0x0001
049c 02d3 | | .DBGLNO 0x02d3
049d ; --------------------------------------------------------------------------------------
049d ; Debug chain
049d ; --------------------------------------------------------------------------------------
049d 0001 0006 | | .DBGLEN 0x0001,0x0006
049f 02db 02df | | .DBGLNO 0x02db,0x02df,0x02e5,0x02e7,0x02f4,0x02f6,0x0303
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug chain
04a6 ; --------------------------------------------------------------------------------------
04a6 0001 000a | | .DBGLEN 0x0001,0x000a
04a8 030b 030f | | .DBGLNO 0x030b,0x030f,0x0315,0x0317,0x0324,0x0326,0x0333,0x0336,0x0338,0x033d,0x0345
04b3 0000 0000 | | .BLANK 0000[0x14d]