|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 09e8 | | .CONST 0x09e8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0131 | 1 | .CONST 0x0131 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003f | ? | .CONST 0x003f ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0033 c22d | - | Store 0x1,0x2d
0034 4805 |H | Short_Literal 0x5
0035 032b | + | Declare_Type Record,Incomplete,Visible
0036 c20e | | Store 0x1,0xe
0037 00c4 | | Action Make_Default
0038 00d1 | | Pop_Control Pop_Count_1
0039 00e3 | | Load_Encached Natural_Cache
003a 4801 |H | Short_Literal 0x1
003b 4801 |H | Short_Literal 0x1
003c 4801 |H | Short_Literal 0x1
003d 4804 |H | Short_Literal 0x4
003e 0319 | | Declare_Type Variant_Record,Incomplete,Visible
003f 029f 0883 | | Declare_Subprogram INIT_0880,For_Call
0041 00d9 | | Load_Top At_Offset_1
0042 012a | * | Execute Any,Change_Utility
0043 c210 | | Store 0x1,0x10
0044 00c4 | | Action Make_Default
0045 00d1 | | Pop_Control Pop_Count_1
0046 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0048 c212 | | Store 0x1,0x12
0049 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
004b c213 | | Store 0x1,0x13
004c 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
004e c214 | | Store 0x1,0x14
004f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0051 c215 | | Store 0x1,0x15
0052 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0054 c216 | | Store 0x1,0x16
0055 00e9 | | Load_Encached String_Cache
0056 0129 | ) | Execute Any,Make_Visible
0057 c217 | | Store 0x1,0x17
0058 0092 08c8 | | Action Push_String_Extended,0x8c8 ; "<ALL>"
005a 0129 | ) | Execute Any,Make_Visible
005b c218 | | Store 0x1,0x18
005c 0092 08c9 | | Action Push_String_Extended,0x8c9 ; "<UNKNOWN>"
005e 0129 | ) | Execute Any,Make_Visible
005f c219 | | Store 0x1,0x19
0060 00e9 | | Load_Encached String_Cache
0061 0129 | ) | Execute Any,Make_Visible
0062 c21a | | Store 0x1,0x1a
0063 0092 08ca | | Action Push_String_Extended,0x8ca ; "<NIL_NAME>"
0065 0129 | ) | Execute Any,Make_Visible
0066 c21b | | Store 0x1,0x1b
0067 00e9 | | Load_Encached String_Cache
0068 0129 | ) | Execute Any,Make_Visible
0069 c21c | | Store 0x1,0x1c
006a 0092 08cb | | Action Push_String_Extended,0x8cb ; "<NIL_NUMBER>"
006c 0129 | ) | Execute Any,Make_Visible
006d c21d | | Store 0x1,0x1d
006e 00e9 | | Load_Encached String_Cache
006f 0129 | ) | Execute Any,Make_Visible
0070 c21e | | Store 0x1,0x1e
0071 0092 08cc | | Action Push_String_Extended,0x8cc ; "<NIL_CDRL>"
0073 0129 | ) | Execute Any,Make_Visible
0074 c21f | | Store 0x1,0x1f
0075 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0077 c22e | . | Store 0x1,0x2e
0078 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
007a c231 | 1 | Store 0x1,0x31
007b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
007d c22f | / | Store 0x1,0x2f
007e 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0080 c232 | 2 | Store 0x1,0x32
0081 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0083 c222 | " | Store 0x1,0x22
0084 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0086 c223 | # | Store 0x1,0x23
0087 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0089 c224 | $ | Store 0x1,0x24
008a 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
008c c230 | 0 | Store 0x1,0x30
008d 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
008f c226 | & | Store 0x1,0x26
0090 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
0092 c227 | ' | Store 0x1,0x27
0093 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0095 c228 | ( | Store 0x1,0x28
0096 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
0098 c229 | ) | Store 0x1,0x29
0099 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
009b c22a | * | Store 0x1,0x2a
009c 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
009e c22b | + | Store 0x1,0x2b
009f e003 | | Load 0x0,0x3
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 e001 | | Load 0x0,0x1
00a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00a3 e002 | | Load 0x0,0x2
00a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00a5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00a6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a7 e002 | | Load 0x0,0x2
00a8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00a9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00aa 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ab e003 | | Load 0x0,0x3
00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ad 029f 0853 | S| Declare_Subprogram INIT_0850,For_Call
00af e20e | | Load 0x1,0xe
00b0 0326 | & | Complete_Type Record,By_Defining
00b1 e20e | | Load 0x1,0xe
00b2 0322 | " | Declare_Variable Record
00b3 e003 | | Load 0x0,0x3
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 00d9 | | Load_Top At_Offset_1
00b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b7 e001 | | Load 0x0,0x1
00b8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00b9 00d9 | | Load_Top At_Offset_1
00ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bb e002 | | Load 0x0,0x2
00bc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00bd 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00be 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00bf e20e | | Load 0x1,0xe
00c0 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
00c1 0119 | | Execute Any,Check_In_Formal_Type
00c2 00d9 | | Load_Top At_Offset_1
00c3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c4 e002 | | Load 0x0,0x2
00c5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00c6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c8 e20e | | Load 0x1,0xe
00c9 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
00ca 0119 | | Execute Any,Check_In_Formal_Type
00cb 00d9 | | Load_Top At_Offset_1
00cc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00cd e003 | | Load 0x0,0x3
00ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cf 00d9 | | Load_Top At_Offset_1
00d0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00d1 0129 | ) | Execute Any,Make_Visible
00d2 c20f | | Store 0x1,0xf
00d3 00e4 | | Load_Encached Positive_Cache
00d4 0266 | f | Execute Discrete,Bounds
00d5 e20e | | Load 0x1,0xe
00d6 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call
00d8 4801 |H | Short_Literal 0x1
00d9 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
00da c22c | , | Store 0x1,0x2c
00db 4803 |H | Short_Literal 0x3
00dc 4802 |H | Short_Literal 0x2
00dd 00e3 | | Load_Encached Natural_Cache
00de e004 | | Load 0x0,0x4
00df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e0 e22c | , | Load 0x1,0x2c
00e1 029f 0883 | | Declare_Subprogram INIT_0880,For_Call
00e3 4803 |H | Short_Literal 0x3
00e4 4800 |H | Short_Literal 0x0
00e5 4800 |H | Short_Literal 0x0
00e6 e210 | | Load 0x1,0x10
00e7 0307 | | Complete_Type Variant_Record,By_Defining
00e8 4800 |H | Short_Literal 0x0
00e9 e210 | | Load 0x1,0x10
00ea 1c08 | | Execute_Immediate Run_Utility,0x8
00eb 0129 | ) | Execute Any,Make_Visible
00ec c211 | | Store 0x1,0x11
00ed 00bf | | Action Accept_Activation
00ee e005 | | Load 0x0,0x5
00ef 191d | | Execute Package,Field_Reference,Field_Number 0x1d
00f0 0007 | | Action Break_Optional
00f1 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
00f3 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
00f5 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call
00f7 029d 050b | | Declare_Subprogram INIT_0508,For_Outer_Call
00f9 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00fb 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call
00fd 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
00ff 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
0101 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0103 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
0105 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call
0107 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0108 00c7 | | Action Elaborate_Subprogram
0109 1d12 | | Execute_Immediate Reference_Lex_1,0x12
010a 00c7 | | Action Elaborate_Subprogram
010b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
010c 00c7 | | Action Elaborate_Subprogram
010d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
010e 00c7 | | Action Elaborate_Subprogram
010f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0110 00c7 | | Action Elaborate_Subprogram
0111 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0112 00c7 | | Action Elaborate_Subprogram
0113 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0114 00c7 | | Action Elaborate_Subprogram
0115 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0116 00c7 | | Action Elaborate_Subprogram
0117 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call
0119 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
011a 00c7 | | Action Elaborate_Subprogram
011b 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
011c 00c7 | | Action Elaborate_Subprogram
011d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
011e 00c7 | | Action Elaborate_Subprogram
011f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0120 00c7 | | Action Elaborate_Subprogram
0121 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0122 00c7 | | Action Elaborate_Subprogram
0123 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0124 00c7 | | Action Elaborate_Subprogram
0125 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0126 00c7 | | Action Elaborate_Subprogram
0127 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0128 00c7 | | Action Elaborate_Subprogram
0129 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
012a 00c7 | | Action Elaborate_Subprogram
012b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
012c 00c7 | | Action Elaborate_Subprogram
012d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
012e 00c7 | | Action Elaborate_Subprogram
012f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0130 00c7 | | Action Elaborate_Subprogram
0131 BODY_0008:
0131 00bc | | Action Signal_Activated
0132 00bb | | Action Signal_Completion
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c 0092 08cd | | Action Push_String_Extended,0x8cd ; "Document Naming Semanticize is not yet implemented."
013e e004 | | Load 0x0,0x4
013f 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0140 e004 | | Load 0x0,0x4
0141 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0142 c5fe | | Store 0x2,-0x2
0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 8223 | # | Call 0x1,0x23
014d 7007 |p | Jump_Nonzero 0x155
014e 00da | | Load_Top At_Offset_2
014f 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0150 00db | | Load_Top At_Offset_3
0151 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0152 01da | | Execute Vector,Bounds
0153 0261 | a | Execute Discrete,Not_In_Range
0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0155 4801 |H | Short_Literal 0x1
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 8212 | | Call 0x1,0x12
015d 6802 |h | Jump_Zero 0x160
015e e20f | | Load 0x1,0xf
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 00da | | Load_Top At_Offset_2
0161 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0162 00db | | Load_Top At_Offset_3
0163 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0164 01d5 | | Execute Vector,Field_Reference
0165 0320 | | Declare_Variable Record,Duplicate
0166 00cd | | Action Spare6_Action
0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0170 | p | .CONST 0x0170 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e004 | | Load 0x0,0x4
016c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016d 02c7 | | Declare_Variable Any
016e 00d8 | | Load_Top At_Offset_0
016f 1c00 | | Execute_Immediate Run_Utility,0x0
0170 BODY_0168:
0170 00db | | Load_Top At_Offset_3
0171 8223 | # | Call 0x1,0x23
0172 6806 |h | Jump_Zero 0x179
0173 00d8 | | Load_Top At_Offset_0
0174 e004 | | Load 0x0,0x4
0175 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0176 c402 | | Store 0x2,0x2
0177 00d8 | | Load_Top At_Offset_0
0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0179 00db | | Load_Top At_Offset_3
017a 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
017b 00d8 | | Load_Top At_Offset_0
017c 0120 | | Execute Any,Is_Value
017d 7002 |p | Jump_Nonzero 0x180
017e 00d8 | | Load_Top At_Offset_0
017f 011e | | Execute Any,Convert
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 8212 | | Call 0x1,0x12
018d 7006 |p | Jump_Nonzero 0x194
018e 00e2 | | Load_Encached Integer_Cache
018f 00db | | Load_Top At_Offset_3
0190 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0191 0268 | h | Execute Discrete,Successor
0192 00db | | Load_Top At_Offset_3
0193 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0194 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 8223 | # | Call 0x1,0x23
019d 7005 |p | Jump_Nonzero 0x1a3
019e 00da | | Load_Top At_Offset_2
019f 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
01a0 01dd | | Execute Vector,First
01a1 00db | | Load_Top At_Offset_3
01a2 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ae | | .CONST 0x01ae ; Address of begin
01a9 0200 | | .CONST 0x0200 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab 00db | | Load_Top At_Offset_3
01ac 00db | | Load_Top At_Offset_3
01ad 822f | / | Call 0x1,0x2f
01ae BODY_01a8:
01ae 00d8 | | Load_Top At_Offset_0
01af 8223 | # | Call 0x1,0x23
01b0 681e |h | Jump_Zero 0x1cf
01b1 e5fc | | Load 0x2,-0x4
01b2 0092 08ce | | Action Push_String_Extended,0x8ce ; "Document reference \x22"
01b4 e5ff | | Load 0x2,-0x1
01b5 01cc | | Execute Vector,Catenate
01b6 0092 08cf | | Action Push_String_Extended,0x8cf ; "\x22 is not defined in the @DOCUMENT_NUMBERS annotation of "
01b8 01cc | | Execute Vector,Catenate
01b9 e5fe | | Load 0x2,-0x2
01ba e001 | | Load 0x0,0x1
01bb 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01bc e001 | | Load 0x0,0x1
01bd 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
01be 01cc | | Execute Vector,Catenate
01bf 0092 08d0 | | Action Push_String_Extended,0x8d0 ; " component \x22"
01c1 01cc | | Execute Vector,Catenate
01c2 e5fe | | Load 0x2,-0x2
01c3 e001 | | Load 0x0,0x1
01c4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01c5 01cc | | Execute Vector,Catenate
01c6 0092 08d1 | | Action Push_String_Extended,0x8d1 ; "\x22."
01c8 01cc | | Execute Vector,Catenate
01c9 e004 | | Load 0x0,0x4
01ca 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01cb e004 | | Load 0x0,0x4
01cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cd c5fc | | Store 0x2,-0x4
01ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01cf 4801 |H | Short_Literal 0x1
01d0 00d9 | | Load_Top At_Offset_1
01d1 8214 | | Call 0x1,0x14
01d2 e004 | | Load 0x0,0x4
01d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d4 6804 |h | Jump_Zero 0x1d9
01d5 00d8 | | Load_Top At_Offset_0
01d6 8214 | | Call 0x1,0x14
01d7 c5fc | | Store 0x2,-0x4
01d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d9 00d8 | | Load_Top At_Offset_0
01da 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01db 0c02 | | Execute_Immediate Greater_Equal,0x2
01dc 681e |h | Jump_Zero 0x1fb
01dd e5fc | | Load 0x2,-0x4
01de 0092 08ce | | Action Push_String_Extended,0x8ce ; "Document reference \x22"
01e0 e5ff | | Load 0x2,-0x1
01e1 01cc | | Execute Vector,Catenate
01e2 0092 08d2 | | Action Push_String_Extended,0x8d2 ; "\x22 is ambiguous in "
01e4 01cc | | Execute Vector,Catenate
01e5 e5fe | | Load 0x2,-0x2
01e6 e001 | | Load 0x0,0x1
01e7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01e8 e001 | | Load 0x0,0x1
01e9 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
01ea 01cc | | Execute Vector,Catenate
01eb 0092 08d0 | | Action Push_String_Extended,0x8d0 ; " component \x22"
01ed 01cc | | Execute Vector,Catenate
01ee e5fe | | Load 0x2,-0x2
01ef e001 | | Load 0x0,0x1
01f0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01f1 01cc | | Execute Vector,Catenate
01f2 0092 08d1 | | Action Push_String_Extended,0x8d1 ; "\x22."
01f4 01cc | | Execute Vector,Catenate
01f5 e004 | | Load 0x0,0x4
01f6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01f7 e004 | | Load 0x0,0x4
01f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f9 c5fc | | Store 0x2,-0x4
01fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fb 00d8 | | Load_Top At_Offset_0
01fc 8213 | | Call 0x1,0x13
01fd e5fd | | Load 0x2,-0x3
01fe 017d | } | Execute Record,Structure_Write
01ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0200 TRAP_01a8:
0200 0007 | | Action Break_Optional
0201 e5fc | | Load 0x2,-0x4
0202 0092 08d3 | | Action Push_String_Extended,0x8d3 ; "Resolve'N(1)"
0204 8234 | 4 | Call 0x1,0x34
0205 c5fc | | Store 0x2,-0x4
0206 e20f | | Load 0x1,0xf
0207 e5fd | | Load 0x2,-0x3
0208 017d | } | Execute Record,Structure_Write
0209 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e5fc | | Load 0x2,-0x4
0214 e5fd | | Load 0x2,-0x3
0215 e5fe | | Load 0x2,-0x2
0216 e001 | | Load 0x0,0x1
0217 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
0218 e5ff | | Load 0x2,-0x1
0219 822e | . | Call 0x1,0x2e
021a 00d1 | | Pop_Control Pop_Count_1
021b c5fc | | Store 0x2,-0x4
021c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0235 | 5 | .CONST 0x0235 ; Address of begin
0221 023b | ; | .CONST 0x023b ; Address of exception handler
0222 0005 | | .CONST 0x0005 ; Number of locals
0223 INIT_0220:
0223 e002 | | Load 0x0,0x2
0224 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0225 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0226 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0227 02c7 | | Declare_Variable Any
0228 00d8 | | Load_Top At_Offset_0
0229 1c00 | | Execute_Immediate Run_Utility,0x0
022a e004 | | Load 0x0,0x4
022b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022c 02c7 | | Declare_Variable Any
022d 00d8 | | Load_Top At_Offset_0
022e 1c00 | | Execute_Immediate Run_Utility,0x0
022f e5fe | | Load 0x2,-0x2
0230 4800 |H | Short_Literal 0x0
0231 e006 | | Load 0x0,0x6
0232 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0233 029f 06e3 | | Declare_Subprogram INIT_06e0,For_Call
0235 BODY_0220:
0235 e5fe | | Load 0x2,-0x2
0236 e5ff | | Load 0x2,-0x1
0237 823f | ? | Call 0x1,0x3f
0238 c402 | | Store 0x2,0x2
0239 8405 | | Call 0x2,0x5
023a 0831 | 1 | Execute_Immediate Raise,0x31
023b TRAP_0220:
023b e007 | | Load 0x0,0x7
023c 010f | | Execute Exception,Equal
023d 6845 |hE | Jump_Zero 0x283
023e 00db | | Load_Top At_Offset_3
023f 0092 08d4 | | Action Push_String_Extended,0x8d4 ; "@DOCUMENT_NUMBERS argument in "
0241 e5fe | | Load 0x2,-0x2
0242 e001 | | Load 0x0,0x1
0243 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0244 e001 | | Load 0x0,0x1
0245 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0246 01cc | | Execute Vector,Catenate
0247 0092 08d0 | | Action Push_String_Extended,0x8d0 ; " component \x22"
0249 01cc | | Execute Vector,Catenate
024a e5fe | | Load 0x2,-0x2
024b e001 | | Load 0x0,0x1
024c 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
024d 01cc | | Execute Vector,Catenate
024e 0092 08d5 | | Action Push_String_Extended,0x8d5 ; "\x22 is malformed."
0250 01cc | | Execute Vector,Catenate
0251 e004 | | Load 0x0,0x4
0252 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0253 e004 | | Load 0x0,0x4
0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0255 c403 | | Store 0x2,0x3
0256 4801 |H | Short_Literal 0x1
0257 e210 | | Load 0x1,0x10
0258 1c08 | | Execute_Immediate Run_Utility,0x8
0259 00d8 | | Load_Top At_Offset_0
025a 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
025b 0335 | 5 | Declare_Variable Array,Duplicate
025c 00cd | | Action Spare6_Action
025d 00d9 | | Load_Top At_Offset_1
025e 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
025f 01d9 | | Execute Vector,Reverse_Bounds
0260 0263 | c | Execute Discrete,Above_Bound
0261 7005 |p | Jump_Nonzero 0x267
0262 e20f | | Load 0x1,0xf
0263 00d9 | | Load_Top At_Offset_1
0264 e408 | | Load 0x2,0x8
0265 01d6 | | Execute Vector,Field_Write
0266 3ffb |? | Loop_Increasing 0x262
0267 00d9 | | Load_Top At_Offset_1
0268 00d8 | | Load_Top At_Offset_0
0269 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
026a 00da | | Load_Top At_Offset_2
026b 01da | | Execute Vector,Bounds
026c 00da | | Load_Top At_Offset_2
026d 01da | | Execute Vector,Bounds
026e 00da | | Load_Top At_Offset_2
026f 027f | | Execute Discrete,Equal
0270 7001 |p | Jump_Nonzero 0x272
0271 08e0 | | Execute_Immediate Raise,0xe0
0272 00cd | | Action Spare6_Action
0273 027f | | Execute Discrete,Equal
0274 7001 |p | Jump_Nonzero 0x276
0275 08e0 | | Execute_Immediate Raise,0xe0
0276 00d2 | | Pop_Control Pop_Count_2
0277 00d9 | | Load_Top At_Offset_1
0278 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
0279 4800 |H | Short_Literal 0x0
027a 00d9 | | Load_Top At_Offset_1
027b 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
027c e403 | | Load 0x2,0x3
027d e210 | | Load 0x1,0x10
027e 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
027f 0119 | | Execute Any,Check_In_Formal_Type
0280 00d9 | | Load_Top At_Offset_1
0281 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0282 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0283 e008 | | Load 0x0,0x8
0284 010f | | Execute Exception,Equal
0285 684c |hL | Jump_Zero 0x2d2
0286 00db | | Load_Top At_Offset_3
0287 4822 |H" | Short_Literal 0x22
0288 e5ff | | Load 0x2,-0x1
0289 01ca | | Execute Vector,Prepend
028a 0092 08d6 | | Action Push_String_Extended,0x8d6 ; "\x22 is not defined in the @DOCUMENT_NUMBERS annotation"
028c 01cc | | Execute Vector,Catenate
028d 0092 08d7 | | Action Push_String_Extended,0x8d7 ; " of "
028f 01cc | | Execute Vector,Catenate
0290 e5fe | | Load 0x2,-0x2
0291 e001 | | Load 0x0,0x1
0292 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0293 e001 | | Load 0x0,0x1
0294 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0295 01cc | | Execute Vector,Catenate
0296 0092 08d0 | | Action Push_String_Extended,0x8d0 ; " component \x22"
0298 01cc | | Execute Vector,Catenate
0299 e5fe | | Load 0x2,-0x2
029a e001 | | Load 0x0,0x1
029b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
029c 01cc | | Execute Vector,Catenate
029d 0092 08d1 | | Action Push_String_Extended,0x8d1 ; "\x22."
029f 01cc | | Execute Vector,Catenate
02a0 e004 | | Load 0x0,0x4
02a1 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
02a2 e004 | | Load 0x0,0x4
02a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a4 c403 | | Store 0x2,0x3
02a5 4801 |H | Short_Literal 0x1
02a6 e210 | | Load 0x1,0x10
02a7 1c08 | | Execute_Immediate Run_Utility,0x8
02a8 00d8 | | Load_Top At_Offset_0
02a9 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02aa 0335 | 5 | Declare_Variable Array,Duplicate
02ab 00cd | | Action Spare6_Action
02ac 00d9 | | Load_Top At_Offset_1
02ad 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02ae 01d9 | | Execute Vector,Reverse_Bounds
02af 0263 | c | Execute Discrete,Above_Bound
02b0 7005 |p | Jump_Nonzero 0x2b6
02b1 e20f | | Load 0x1,0xf
02b2 00d9 | | Load_Top At_Offset_1
02b3 e408 | | Load 0x2,0x8
02b4 01d6 | | Execute Vector,Field_Write
02b5 3ffb |? | Loop_Increasing 0x2b1
02b6 00d9 | | Load_Top At_Offset_1
02b7 00d8 | | Load_Top At_Offset_0
02b8 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02b9 00da | | Load_Top At_Offset_2
02ba 01da | | Execute Vector,Bounds
02bb 00da | | Load_Top At_Offset_2
02bc 01da | | Execute Vector,Bounds
02bd 00da | | Load_Top At_Offset_2
02be 027f | | Execute Discrete,Equal
02bf 7001 |p | Jump_Nonzero 0x2c1
02c0 08e0 | | Execute_Immediate Raise,0xe0
02c1 00cd | | Action Spare6_Action
02c2 027f | | Execute Discrete,Equal
02c3 7001 |p | Jump_Nonzero 0x2c5
02c4 08e0 | | Execute_Immediate Raise,0xe0
02c5 00d2 | | Pop_Control Pop_Count_2
02c6 00d9 | | Load_Top At_Offset_1
02c7 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
02c8 4800 |H | Short_Literal 0x0
02c9 00d9 | | Load_Top At_Offset_1
02ca 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02cb e403 | | Load 0x2,0x3
02cc e210 | | Load 0x1,0x10
02cd 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
02ce 0119 | | Execute Any,Check_In_Formal_Type
02cf 00d9 | | Load_Top At_Offset_1
02d0 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d2 e009 | | Load 0x0,0x9
02d3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d4 010f | | Execute Exception,Equal
02d5 683e |h> | Jump_Zero 0x314
02d6 00db | | Load_Top At_Offset_3
02d7 4829 |H) | Short_Literal 0x29
02d8 4822 |H" | Short_Literal 0x22
02d9 e5ff | | Load 0x2,-0x1
02da 01ca | | Execute Vector,Prepend
02db 0092 08d8 | | Action Push_String_Extended,0x8d8 ; "\x22 is an invalid document reference ("
02dd 01cc | | Execute Vector,Catenate
02de e009 | | Load 0x0,0x9
02df 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e0 01cc | | Execute Vector,Catenate
02e1 01cb | | Execute Vector,Append
02e2 e004 | | Load 0x0,0x4
02e3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
02e4 e004 | | Load 0x0,0x4
02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e6 c403 | | Store 0x2,0x3
02e7 4801 |H | Short_Literal 0x1
02e8 e210 | | Load 0x1,0x10
02e9 1c08 | | Execute_Immediate Run_Utility,0x8
02ea 00d8 | | Load_Top At_Offset_0
02eb 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02ec 0335 | 5 | Declare_Variable Array,Duplicate
02ed 00cd | | Action Spare6_Action
02ee 00d9 | | Load_Top At_Offset_1
02ef 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02f0 01d9 | | Execute Vector,Reverse_Bounds
02f1 0263 | c | Execute Discrete,Above_Bound
02f2 7005 |p | Jump_Nonzero 0x2f8
02f3 e20f | | Load 0x1,0xf
02f4 00d9 | | Load_Top At_Offset_1
02f5 e408 | | Load 0x2,0x8
02f6 01d6 | | Execute Vector,Field_Write
02f7 3ffb |? | Loop_Increasing 0x2f3
02f8 00d9 | | Load_Top At_Offset_1
02f9 00d8 | | Load_Top At_Offset_0
02fa 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02fb 00da | | Load_Top At_Offset_2
02fc 01da | | Execute Vector,Bounds
02fd 00da | | Load_Top At_Offset_2
02fe 01da | | Execute Vector,Bounds
02ff 00da | | Load_Top At_Offset_2
0300 027f | | Execute Discrete,Equal
0301 7001 |p | Jump_Nonzero 0x303
0302 08e0 | | Execute_Immediate Raise,0xe0
0303 00cd | | Action Spare6_Action
0304 027f | | Execute Discrete,Equal
0305 7001 |p | Jump_Nonzero 0x307
0306 08e0 | | Execute_Immediate Raise,0xe0
0307 00d2 | | Pop_Control Pop_Count_2
0308 00d9 | | Load_Top At_Offset_1
0309 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
030a 4800 |H | Short_Literal 0x0
030b 00d9 | | Load_Top At_Offset_1
030c 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
030d e403 | | Load 0x2,0x3
030e e210 | | Load 0x1,0x10
030f 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
0310 0119 | | Execute Any,Check_In_Formal_Type
0311 00d9 | | Load_Top At_Offset_1
0312 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0313 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0314 00db | | Load_Top At_Offset_3
0315 0092 08d9 | | Action Push_String_Extended,0x8d9 ; "Resolve'N(2)"
0317 8234 | 4 | Call 0x1,0x34
0318 c403 | | Store 0x2,0x3
0319 4801 |H | Short_Literal 0x1
031a e210 | | Load 0x1,0x10
031b 1c08 | | Execute_Immediate Run_Utility,0x8
031c 00d8 | | Load_Top At_Offset_0
031d 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
031e 0335 | 5 | Declare_Variable Array,Duplicate
031f 00cd | | Action Spare6_Action
0320 00d9 | | Load_Top At_Offset_1
0321 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0322 01d9 | | Execute Vector,Reverse_Bounds
0323 0263 | c | Execute Discrete,Above_Bound
0324 7005 |p | Jump_Nonzero 0x32a
0325 e20f | | Load 0x1,0xf
0326 00d9 | | Load_Top At_Offset_1
0327 e408 | | Load 0x2,0x8
0328 01d6 | | Execute Vector,Field_Write
0329 3ffb |? | Loop_Increasing 0x325
032a 00d9 | | Load_Top At_Offset_1
032b 00d8 | | Load_Top At_Offset_0
032c 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
032d 00da | | Load_Top At_Offset_2
032e 01da | | Execute Vector,Bounds
032f 00da | | Load_Top At_Offset_2
0330 01da | | Execute Vector,Bounds
0331 00da | | Load_Top At_Offset_2
0332 027f | | Execute Discrete,Equal
0333 7001 |p | Jump_Nonzero 0x335
0334 08e0 | | Execute_Immediate Raise,0xe0
0335 00cd | | Action Spare6_Action
0336 027f | | Execute Discrete,Equal
0337 7001 |p | Jump_Nonzero 0x339
0338 08e0 | | Execute_Immediate Raise,0xe0
0339 00d2 | | Pop_Control Pop_Count_2
033a 00d9 | | Load_Top At_Offset_1
033b 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
033c 4800 |H | Short_Literal 0x0
033d 00d9 | | Load_Top At_Offset_1
033e 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
033f e403 | | Load 0x2,0x3
0340 e210 | | Load 0x1,0x10
0341 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
0342 0119 | | Execute Any,Check_In_Formal_Type
0343 00d9 | | Load_Top At_Offset_1
0344 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0345 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00db | | Load_Top At_Offset_3
034c e001 | | Load 0x0,0x1
034d 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
034e 00db | | Load_Top At_Offset_3
034f 822f | / | Call 0x1,0x2f
0350 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0351 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
035c e20f | | Load 0x1,0xf
035d 017f | | Execute Record,Equal
035e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0365 0f00 | | Execute_Immediate Equal,0x0
0366 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0367 0000 | | .XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0377 | w | .CONST 0x0377 ; Address of begin
0369 03d9 | | .CONST 0x03d9 ; Address of exception handler
036a 0003 | | .CONST 0x0003 ; Number of locals
036b INIT_0368:
036b e00a | | Load 0x0,0xa
036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036e 02c7 | | Declare_Variable Any
036f 00d8 | | Load_Top At_Offset_0
0370 1c00 | | Execute_Immediate Run_Utility,0x0
0371 e00a | | Load 0x0,0xa
0372 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0374 02c7 | | Declare_Variable Any
0375 00d8 | | Load_Top At_Offset_0
0376 1c00 | | Execute_Immediate Run_Utility,0x0
0377 BODY_0368:
0377 e5ff | | Load 0x2,-0x1
0378 8222 | " | Call 0x1,0x22
0379 6805 |h | Jump_Zero 0x37f
037a e5fe | | Load 0x2,-0x2
037b e004 | | Load 0x0,0x4
037c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
037d c5fe | | Store 0x2,-0x2
037e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037f e5ff | | Load 0x2,-0x1
0380 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0381 8235 | 5 | Call 0x1,0x35
0382 c402 | | Store 0x2,0x2
0383 4801 |H | Short_Literal 0x1
0384 e00a | | Load 0x0,0xa
0385 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0387 e5ff | | Load 0x2,-0x1
0388 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0389 0217 | | Execute Heap_Access,All_Reference
038a e00a | | Load 0x0,0xa
038b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
038d c403 | | Store 0x2,0x3
038e 00d8 | | Load_Top At_Offset_0
038f e00a | | Load 0x0,0xa
0390 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0391 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0392 6816 |h | Jump_Zero 0x3a9
0393 e5fe | | Load 0x2,-0x2
0394 4829 |H) | Short_Literal 0x29
0395 0092 08da | | Action Push_String_Extended,0x8da ; "Unable to resolve "
0397 e5ff | | Load 0x2,-0x1
0398 8226 | & | Call 0x1,0x26
0399 01cc | | Execute Vector,Catenate
039a 0092 08db | | Action Push_String_Extended,0x8db ; " document ("
039c 01cc | | Execute Vector,Catenate
039d 00db | | Load_Top At_Offset_3
039e e00a | | Load 0x0,0xa
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
03a1 01cc | | Execute Vector,Catenate
03a2 01cb | | Execute Vector,Append
03a3 e004 | | Load 0x0,0x4
03a4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
03a5 e004 | | Load 0x0,0x4
03a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a7 c5fe | | Store 0x2,-0x2
03a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a9 00d9 | | Load_Top At_Offset_1
03aa e00a | | Load 0x0,0xa
03ab 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03ac 180f | | Execute Package,Field_Execute,Field_Number 0xf
03ad 00d9 | | Load_Top At_Offset_1
03ae e00a | | Load 0x0,0xa
03af 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
03b1 8233 | 3 | Call 0x1,0x33
03b2 6821 |h! | Jump_Zero 0x3d4
03b3 e5fe | | Load 0x2,-0x2
03b4 0092 08dc | | Action Push_String_Extended,0x8dc ; "Document "
03b6 e5ff | | Load 0x2,-0x1
03b7 8226 | & | Call 0x1,0x26
03b8 01cc | | Execute Vector,Catenate
03b9 0092 08dd | | Action Push_String_Extended,0x8dd ; " has been made obsolete by changes to "
03bb 01cc | | Execute Vector,Catenate
03bc e5ff | | Load 0x2,-0x1
03bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03be e001 | | Load 0x0,0x1
03bf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03c0 e001 | | Load 0x0,0x1
03c1 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
03c2 01cc | | Execute Vector,Catenate
03c3 0092 08d0 | | Action Push_String_Extended,0x8d0 ; " component \x22"
03c5 01cc | | Execute Vector,Catenate
03c6 e5ff | | Load 0x2,-0x1
03c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c8 e001 | | Load 0x0,0x1
03c9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
03ca 01cc | | Execute Vector,Catenate
03cb 0092 08d1 | | Action Push_String_Extended,0x8d1 ; "\x22."
03cd 01cc | | Execute Vector,Catenate
03ce e004 | | Load 0x0,0x4
03cf 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
03d0 e004 | | Load 0x0,0x4
03d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d2 c5fe | | Store 0x2,-0x2
03d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d4 e5fe | | Load 0x2,-0x2
03d5 e004 | | Load 0x0,0x4
03d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03d7 c5fe | | Store 0x2,-0x2
03d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d9 TRAP_0368:
03d9 0007 | | Action Break_Optional
03da e5fe | | Load 0x2,-0x2
03db 0092 08de | | Action Push_String_Extended,0x8de ; "Check_Obsolescence"
03dd 8234 | 4 | Call 0x1,0x34
03de c5fe | | Store 0x2,-0x2
03df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03e5 0320 | | Declare_Variable Record,Duplicate
03e6 00cd | | Action Spare6_Action
03e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec e20f | | Load 0x1,0xf
03ed 017f | | Execute Record,Equal
03ee 6802 |h | Jump_Zero 0x3f1
03ef e219 | | Load 0x1,0x19
03f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f1 4829 |H) | Short_Literal 0x29
03f2 00db | | Load_Top At_Offset_3
03f3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03f4 e002 | | Load 0x0,0x2
03f5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03f6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
03f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03f8 0092 08df | | Action Push_String_Extended,0x8df ; " ("
03fa 01cc | | Execute Vector,Catenate
03fb e5ff | | Load 0x2,-0x1
03fc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03fd e002 | | Load 0x0,0x2
03fe 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03ff 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0400 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0401 01cc | | Execute Vector,Catenate
0402 01cb | | Execute Vector,Append
0403 e00b | | Load 0x0,0xb
0404 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0405 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c e20f | | Load 0x1,0xf
040d 017f | | Execute Record,Equal
040e 6802 |h | Jump_Zero 0x411
040f e219 | | Load 0x1,0x19
0410 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0411 00da | | Load_Top At_Offset_2
0412 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0413 00db | | Load_Top At_Offset_3
0414 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0415 823c | < | Call 0x1,0x3c
0416 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0417 0000 | | .XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2
041c e20f | | Load 0x1,0xf
041d 017f | | Execute Record,Equal
041e 6802 |h | Jump_Zero 0x421
041f e21b | | Load 0x1,0x1b
0420 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0421 00da | | Load_Top At_Offset_2
0422 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0423 e002 | | Load 0x0,0x2
0424 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0425 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0426 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0427 e00b | | Load 0x0,0xb
0428 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0429 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042a 0000 0000 | | .BLANK 0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 e20f | | Load 0x1,0xf
0435 017f | | Execute Record,Equal
0436 6802 |h | Jump_Zero 0x439
0437 e21d | | Load 0x1,0x1d
0438 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0439 00da | | Load_Top At_Offset_2
043a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
043b e002 | | Load 0x0,0x2
043c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
043d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
043e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
043f e00b | | Load 0x0,0xb
0440 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0441 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0442 0000 0000 | | .BLANK 0000[0x6]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c e20f | | Load 0x1,0xf
044d 017f | | Execute Record,Equal
044e 7003 |p | Jump_Nonzero 0x452
044f 00da | | Load_Top At_Offset_2
0450 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0451 7002 |p | Jump_Nonzero 0x454
0452 e21f | | Load 0x1,0x1f
0453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0454 00da | | Load_Top At_Offset_2
0455 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0456 0217 | | Execute Heap_Access,All_Reference
0457 e00b | | Load 0x0,0xb
0458 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0459 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 e20f | | Load 0x1,0xf
0465 017f | | Execute Record,Equal
0466 6802 |h | Jump_Zero 0x469
0467 00ea | | Load_Encached Null_String_Cache
0468 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0469 00da | | Load_Top At_Offset_2
046a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
046b 0217 | | Execute Heap_Access,All_Reference
046c 0335 | 5 | Declare_Variable Array,Duplicate
046d 00cd | | Action Spare6_Action
046e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046f 0000 | | .XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00d1 | | Pop_Control Pop_Count_1
0474 00da | | Load_Top At_Offset_2
0475 01d8 | | Execute Vector,Element_Type
0476 0322 | " | Declare_Variable Record
0477 00d8 | | Load_Top At_Offset_0
0478 1c00 | | Execute_Immediate Run_Utility,0x0
0479 00db | | Load_Top At_Offset_3
047a 01dc | | Execute Vector,Last
047b e5ff | | Load 0x2,-0x1
047c 01dd | | Execute Vector,First
047d 0263 | c | Execute Discrete,Above_Bound
047e 7006 |p | Jump_Nonzero 0x485
047f 00da | | Load_Top At_Offset_2
0480 00d9 | | Load_Top At_Offset_1
0481 e5ff | | Load 0x2,-0x1
0482 01d6 | | Execute Vector,Field_Write
0483 0a01 | | Execute_Immediate Plus,0x1
0484 7ff8 | | Jump 0x47d
0485 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0486 0000 0000 | | .XXX[0x2]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 00db | | Load_Top At_Offset_3
048c 4829 |H) | Short_Literal 0x29
048d 0092 08e0 | | Action Push_String_Extended,0x8e0 ; "Unexpected exception in Document_Naming."
048f e5ff | | Load 0x2,-0x1
0490 01cc | | Execute Vector,Catenate
0491 0092 08df | | Action Push_String_Extended,0x8df ; " ("
0493 01cc | | Execute Vector,Catenate
0494 e004 | | Load 0x0,0x4
0495 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0496 01cc | | Execute Vector,Catenate
0497 01cb | | Execute Vector,Append
0498 e004 | | Load 0x0,0x4
0499 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
049a e004 | | Load 0x0,0x4
049b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
049c c5fe | | Store 0x2,-0x2
049d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2
04a4 e001 | | Load 0x0,0x1
04a5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
04a6 e00c | | Load 0x0,0xc
04a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04a8 e00d | | Load 0x0,0xd
04a9 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
04aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04c4 | | .CONST 0x04c4 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0004 | | .CONST 0x0004 ; Number of locals
04b3 INIT_04b0:
04b3 00da | | Load_Top At_Offset_2
04b4 e00b | | Load 0x0,0xb
04b5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04b6 e002 | | Load 0x0,0x2
04b7 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04b8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04b9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04ba 02c7 | | Declare_Variable Any
04bb 00d8 | | Load_Top At_Offset_0
04bc 1c00 | | Execute_Immediate Run_Utility,0x0
04bd e002 | | Load 0x0,0x2
04be 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04bf 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04c1 02c7 | | Declare_Variable Any
04c2 00d8 | | Load_Top At_Offset_0
04c3 1c00 | | Execute_Immediate Run_Utility,0x0
04c4 BODY_04b0:
04c4 e5fe | | Load 0x2,-0x2
04c5 e002 | | Load 0x0,0x2
04c6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04c7 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04c8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04c9 0f07 | | Execute_Immediate Equal,0x7
04ca 683b |h; | Jump_Zero 0x506
04cb e5fe | | Load 0x2,-0x2
04cc e002 | | Load 0x0,0x2
04cd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04ce 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04cf 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
04d0 c403 | | Store 0x2,0x3
04d1 00cf | | Action Mark_Auxiliary
04d2 782a |x* | Jump 0x4fd
04d3 00da | | Load_Top At_Offset_2
04d4 e002 | | Load 0x0,0x2
04d5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04d6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04d7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
04d8 c404 | | Store 0x2,0x4
04d9 00d9 | | Load_Top At_Offset_1
04da e002 | | Load 0x0,0x2
04db 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04dc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04de 0f04 | | Execute_Immediate Equal,0x4
04df 7002 |p | Jump_Nonzero 0x4e2
04e0 e007 | | Load 0x0,0x7
04e1 0257 | W | Execute Discrete,Raise
04e2 00db | | Load_Top At_Offset_3
04e3 00da | | Load_Top At_Offset_2
04e4 e002 | | Load 0x0,0x2
04e5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04e6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04e7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04e8 e002 | | Load 0x0,0x2
04e9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04ea 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ec e00b | | Load 0x0,0xb
04ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04ee 01df | | Execute Vector,Equal
04ef 6806 |h | Jump_Zero 0x4f6
04f0 00d9 | | Load_Top At_Offset_1
04f1 e002 | | Load 0x0,0x2
04f2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04f3 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04f4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04f6 00da | | Load_Top At_Offset_2
04f7 e002 | | Load 0x0,0x2
04f8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
04f9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
04fa 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
04fb c403 | | Store 0x2,0x3
04fc 00c9 | | Action Pop_Auxiliary_Loop
04fd 00da | | Load_Top At_Offset_2
04fe e002 | | Load 0x0,0x2
04ff 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0500 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0501 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0502 6fd0 |o | Jump_Zero 0x4d3
0503 00ce | | Action Pop_Auxiliary
0504 e008 | | Load 0x0,0x8
0505 0257 | W | Execute Discrete,Raise
0506 e007 | | Load 0x0,0x7
0507 0257 | W | Execute Discrete,Raise
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0515 | | .CONST 0x0515 ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0003 | | .CONST 0x0003 ; Number of locals
050b INIT_0508:
050b e002 | | Load 0x0,0x2
050c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
050d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
050e e002 | | Load 0x0,0x2
050f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0510 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0511 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0512 02c7 | | Declare_Variable Any
0513 00d8 | | Load_Top At_Offset_0
0514 1c00 | | Execute_Immediate Run_Utility,0x0
0515 BODY_0508:
0515 00d9 | | Load_Top At_Offset_1
0516 e5fe | | Load 0x2,-0x2
0517 e001 | | Load 0x0,0x1
0518 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0519 e5ff | | Load 0x2,-0x1
051a e00e | | Load 0x0,0xe
051b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
051c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
051d 00d9 | | Load_Top At_Offset_1
051e e002 | | Load 0x0,0x2
051f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0520 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0521 6805 |h | Jump_Zero 0x527
0522 e002 | | Load 0x0,0x2
0523 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0524 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0525 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0526 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0527 00d9 | | Load_Top At_Offset_1
0528 e002 | | Load 0x0,0x2
0529 1b20 | | Execute Package,Field_Read,Field_Number 0x20
052a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
052b c403 | | Store 0x2,0x3
052c 00d8 | | Load_Top At_Offset_0
052d e002 | | Load 0x0,0x2
052e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
052f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0530 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0531 6805 |h | Jump_Zero 0x537
0532 e002 | | Load 0x0,0x2
0533 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0534 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0535 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0536 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0537 00d8 | | Load_Top At_Offset_0
0538 e5fd | | Load 0x2,-0x3
0539 8236 | 6 | Call 0x1,0x36
053a e002 | | Load 0x0,0x2
053b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
053c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
053d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
053e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
053f 0000 | | .XXX[0x1]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 054a | J | .CONST 0x054a ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e002 | | Load 0x0,0x2
0544 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0545 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0546 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0547 02c7 | | Declare_Variable Any
0548 e5fe | | Load 0x2,-0x2
0549 a402 | | Store_Unchecked 0x2,0x2
054a BODY_0540:
054a 00db | | Load_Top At_Offset_3
054b 7005 |p | Jump_Nonzero 0x551
054c e002 | | Load 0x0,0x2
054d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
054e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
054f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0550 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0551 00cf | | Action Mark_Auxiliary
0552 e5ff | | Load 0x2,-0x1
0553 4801 |H | Short_Literal 0x1
0554 0263 | c | Execute Discrete,Above_Bound
0555 701d |p | Jump_Nonzero 0x573
0556 00db | | Load_Top At_Offset_3
0557 e002 | | Load 0x0,0x2
0558 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0559 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
055a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
055b 6805 |h | Jump_Zero 0x561
055c e002 | | Load 0x0,0x2
055d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
055e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
055f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0560 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0561 00d8 | | Load_Top At_Offset_0
0562 e5ff | | Load 0x2,-0x1
0563 027f | | Execute Discrete,Equal
0564 6806 |h | Jump_Zero 0x56b
0565 00db | | Load_Top At_Offset_3
0566 e002 | | Load 0x0,0x2
0567 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0568 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0569 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
056a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
056b 00db | | Load_Top At_Offset_3
056c e002 | | Load 0x0,0x2
056d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
056e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
056f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0570 c402 | | Store 0x2,0x2
0571 00c8 | | Action Pop_Auxiliary_Range
0572 3fe3 |? | Loop_Increasing 0x556
0573 00ce | | Action Pop_Auxiliary
0574 0831 | 1 | Execute_Immediate Raise,0x31
0575 0000 0000 | | .XXX[0x3]
0577 0000 | |
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 058b | | .CONST 0x058b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0004 | | .CONST 0x0004 ; Number of locals
057b INIT_0578:
057b 00da | | Load_Top At_Offset_2
057c e002 | | Load 0x0,0x2
057d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
057e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
057f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0580 e00b | | Load 0x0,0xb
0581 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0582 00e3 | | Load_Encached Natural_Cache
0583 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0584 e002 | | Load 0x0,0x2
0585 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0586 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0587 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0588 02c7 | | Declare_Variable Any
0589 e5fe | | Load 0x2,-0x2
058a a404 | | Store_Unchecked 0x2,0x4
058b BODY_0578:
058b 00cf | | Action Mark_Auxiliary
058c 7817 |x | Jump 0x5a4
058d 00d9 | | Load_Top At_Offset_1
058e e002 | | Load 0x0,0x2
058f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0590 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0591 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0592 e00b | | Load 0x0,0xb
0593 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0594 e402 | | Load 0x2,0x2
0595 01df | | Execute Vector,Equal
0596 6802 |h | Jump_Zero 0x599
0597 00da | | Load_Top At_Offset_2
0598 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0599 00e2 | | Load_Encached Integer_Cache
059a 00db | | Load_Top At_Offset_3
059b 0268 | h | Execute Discrete,Successor
059c 005b | [ | Store_Top Discrete,At_Offset_3
059d 00d9 | | Load_Top At_Offset_1
059e e002 | | Load 0x0,0x2
059f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05a0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
05a1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
05a2 c404 | | Store 0x2,0x4
05a3 00c9 | | Action Pop_Auxiliary_Loop
05a4 00d9 | | Load_Top At_Offset_1
05a5 e002 | | Load 0x0,0x2
05a6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05a7 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
05a8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
05a9 6fe3 |o | Jump_Zero 0x58d
05aa 00ce | | Action Pop_Auxiliary
05ab 4800 |H | Short_Literal 0x0
05ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b9 | | .CONST 0x05b9 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0003 | | .CONST 0x0003 ; Number of locals
05b3 INIT_05b0:
05b3 00e3 | | Load_Encached Natural_Cache
05b4 00db | | Load_Top At_Offset_3
05b5 e002 | | Load 0x0,0x2
05b6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05b7 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
05b8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05b9 BODY_05b0:
05b9 e003 | | Load 0x0,0x3
05ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05bb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
05bc 0000 0000 | | .BLANK 0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05d1 | | .CONST 0x05d1 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0005 | | .CONST 0x0005 ; Number of locals
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 01da | | Execute Vector,Bounds
05c5 00e9 | | Load_Encached String_Cache
05c6 035b | [ | Declare_Type Array,Constrained
05c7 0337 | 7 | Declare_Variable Array
05c8 00d8 | | Load_Top At_Offset_0
05c9 01dd | | Execute Vector,First
05ca 00e3 | | Load_Encached Natural_Cache
05cb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
05cc e5ff | | Load 0x2,-0x1
05cd e00b | | Load 0x0,0xb
05ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05cf 00e1 | | Load_Encached Boolean_Cache
05d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05d1 BODY_05c0:
05d1 00cf | | Action Mark_Auxiliary
05d2 00da | | Load_Top At_Offset_2
05d3 01d9 | | Execute Vector,Reverse_Bounds
05d4 0263 | c | Execute Discrete,Above_Bound
05d5 7026 |p& | Jump_Nonzero 0x5fc
05d6 00d8 | | Load_Top At_Offset_0
05d7 e404 | | Load 0x2,0x4
05d8 01d7 | | Execute Vector,Field_Read
05d9 00d8 | | Load_Top At_Offset_0
05da 4841 |HA | Short_Literal 0x41
05db 485a |HZ | Short_Literal 0x5a
05dc 0262 | b | Execute Discrete,In_Range
05dd 7010 |p | Jump_Nonzero 0x5ee
05de 4830 |H0 | Short_Literal 0x30
05df 4839 |H9 | Short_Literal 0x39
05e0 0262 | b | Execute Discrete,In_Range
05e1 700d |p | Jump_Nonzero 0x5ef
05e2 00db | | Load_Top At_Offset_3
05e3 7016 |p | Jump_Nonzero 0x5fa
05e4 4801 |H | Short_Literal 0x1
05e5 a405 | | Store_Unchecked 0x2,0x5
05e6 485f |H_ | Short_Literal 0x5f
05e7 e403 | | Load 0x2,0x3
05e8 e402 | | Load 0x2,0x2
05e9 01d6 | | Execute Vector,Field_Write
05ea e403 | | Load 0x2,0x3
05eb 0a01 | | Execute_Immediate Plus,0x1
05ec c403 | | Store 0x2,0x3
05ed 780c |x | Jump 0x5fa
05ee 00d1 | | Pop_Control Pop_Count_1
05ef 4800 |H | Short_Literal 0x0
05f0 a405 | | Store_Unchecked 0x2,0x5
05f1 00d8 | | Load_Top At_Offset_0
05f2 e404 | | Load 0x2,0x4
05f3 01d7 | | Execute Vector,Field_Read
05f4 e403 | | Load 0x2,0x3
05f5 e402 | | Load 0x2,0x2
05f6 01d6 | | Execute Vector,Field_Write
05f7 e403 | | Load 0x2,0x3
05f8 0a01 | | Execute_Immediate Plus,0x1
05f9 c403 | | Store 0x2,0x3
05fa 00c8 | | Action Pop_Auxiliary_Range
05fb 3fda |? | Loop_Increasing 0x5d6
05fc 00ce | | Action Pop_Auxiliary
05fd 00db | | Load_Top At_Offset_3
05fe 01dd | | Execute Vector,First
05ff 00db | | Load_Top At_Offset_3
0600 0aff | | Execute_Immediate Plus,-0x1
0601 e402 | | Load 0x2,0x2
0602 01cf | | Execute Vector,Slice_Read
0603 00e9 | | Load_Encached String_Cache
0604 01c6 | | Execute Vector,Convert_To_Formal
0605 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0606 0000 0000 | | .XXX[0x2]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 485f |H_ | Short_Literal 0x5f
060c 00db | | Load_Top At_Offset_3
060d e002 | | Load 0x0,0x2
060e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
060f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0610 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0611 01cb | | Execute Vector,Append
0612 e5fe | | Load 0x2,-0x2
0613 e002 | | Load 0x0,0x2
0614 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0615 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0616 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0617 01cc | | Execute Vector,Catenate
0618 823b | ; | Call 0x1,0x3b
0619 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
061a 0000 0000 | | .BLANK 0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 062c | , | .CONST 0x062c ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0003 | | .CONST 0x0003 ; Number of locals
0623 INIT_0620:
0623 e002 | | Load 0x0,0x2
0624 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0625 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0626 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0627 02c7 | | Declare_Variable Any
0628 00db | | Load_Top At_Offset_3
0629 a402 | | Store_Unchecked 0x2,0x2
062a 00e3 | | Load_Encached Natural_Cache
062b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
062c BODY_0620:
062c 00cf | | Action Mark_Auxiliary
062d 780b |x | Jump 0x639
062e 00e2 | | Load_Encached Integer_Cache
062f 00da | | Load_Top At_Offset_2
0630 0268 | h | Execute Discrete,Successor
0631 005a | Z | Store_Top Discrete,At_Offset_2
0632 00da | | Load_Top At_Offset_2
0633 e002 | | Load 0x0,0x2
0634 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0635 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0636 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0637 c402 | | Store 0x2,0x2
0638 00c9 | | Action Pop_Auxiliary_Loop
0639 00da | | Load_Top At_Offset_2
063a e002 | | Load 0x0,0x2
063b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
063c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
063d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
063e 6fef |o | Jump_Zero 0x62e
063f 00ce | | Action Pop_Auxiliary
0640 00d8 | | Load_Top At_Offset_0
0641 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0642 0000 0000 | | .BLANK 0000[0x6]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0662 | b | .CONST 0x0662 ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0007 | | .CONST 0x0007 ; Number of locals
064b INIT_0648:
064b e002 | | Load 0x0,0x2
064c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
064d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
064e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
064f 02c7 | | Declare_Variable Any
0650 00d8 | | Load_Top At_Offset_0
0651 1c00 | | Execute_Immediate Run_Utility,0x0
0652 e002 | | Load 0x0,0x2
0653 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0654 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0655 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0656 02c7 | | Declare_Variable Any
0657 00d8 | | Load_Top At_Offset_0
0658 1c00 | | Execute_Immediate Run_Utility,0x0
0659 e22c | , | Load 0x1,0x2c
065a 02a0 | | Declare_Subprogram Null_Subprogram
065b 4818 |H | Short_Literal 0x18
065c 03d3 | | Declare_Type Access,Defined,Accesses_Protected
065d 00d8 | | Load_Top At_Offset_0
065e 029f 0713 | | Declare_Subprogram INIT_0710,For_Call
0660 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call
0662 BODY_0648:
0662 e5ff | | Load 0x2,-0x1
0663 e002 | | Load 0x0,0x2
0664 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0665 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0666 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0667 c403 | | Store 0x2,0x3
0668 e403 | | Load 0x2,0x3
0669 e002 | | Load 0x0,0x2
066a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
066b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
066c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
066d 6802 |h | Jump_Zero 0x670
066e e007 | | Load 0x0,0x7
066f 0257 | W | Execute Discrete,Raise
0670 4801 |H | Short_Literal 0x1
0671 4800 |H | Short_Literal 0x0
0672 e404 | | Load 0x2,0x4
0673 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0674 00d8 | | Load_Top At_Offset_0
0675 0227 | ' | Execute Access,All_Reference
0676 1c00 | | Execute_Immediate Run_Utility,0x0
0677 003b | ; | Store_Top Access,At_Offset_3
0678 00cf | | Action Mark_Auxiliary
0679 7821 |x! | Jump 0x69b
067a e403 | | Load 0x2,0x3
067b e002 | | Load 0x0,0x2
067c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
067d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
067e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
067f c402 | | Store 0x2,0x2
0680 e402 | | Load 0x2,0x2
0681 e002 | | Load 0x0,0x2
0682 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0683 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0684 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0685 4608 |F | Jump_Case 0x9
0686 7808 |x | Jump 0x68f ; case 0x0
0687 780b |x | Jump 0x693 ; case 0x1
0688 7806 |x | Jump 0x68f ; case 0x2
0689 7805 |x | Jump 0x68f ; case 0x3
068a 7804 |x | Jump 0x68f ; case 0x4
068b 7805 |x | Jump 0x691 ; case 0x5
068c 7802 |x | Jump 0x68f ; case 0x6
068d 7801 |x | Jump 0x68f ; case 0x7
068e 7800 |x | Jump 0x68f ; case 0x8
068f e007 | | Load 0x0,0x7
0690 0257 | W | Execute Discrete,Raise
0691 8406 | | Call 0x2,0x6
0692 7801 |x | Jump 0x694
0693 8407 | | Call 0x2,0x7
0694 e403 | | Load 0x2,0x3
0695 e002 | | Load 0x0,0x2
0696 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0697 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0698 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0699 c403 | | Store 0x2,0x3
069a 00c9 | | Action Pop_Auxiliary_Loop
069b e403 | | Load 0x2,0x3
069c e002 | | Load 0x0,0x2
069d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
069e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
069f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
06a0 6fd9 |o | Jump_Zero 0x67a
06a1 00ce | | Action Pop_Auxiliary
06a2 00da | | Load_Top At_Offset_2
06a3 0227 | ' | Execute Access,All_Reference
06a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a5 0000 0000 | | .XXX[0x3]
06a7 0000 | |
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06bc | | .CONST 0x06bc ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0005 | | .CONST 0x0005 ; Number of locals
06ab INIT_06a8:
06ab e003 | | Load 0x0,0x3
06ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ad e002 | | Load 0x0,0x2
06ae 1b20 | | Execute Package,Field_Read,Field_Number 0x20
06af 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
06b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06b1 02c7 | | Declare_Variable Any
06b2 e002 | | Load 0x0,0x2
06b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
06b4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
06b5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
06b6 a403 | | Store_Unchecked 0x2,0x3
06b7 e5ff | | Load 0x2,-0x1
06b8 e00b | | Load 0x0,0xb
06b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06ba 029f 0793 | | Declare_Subprogram INIT_0790,For_Call
06bc BODY_06a8:
06bc 00d9 | | Load_Top At_Offset_1
06bd e218 | | Load 0x1,0x18
06be 01df | | Execute Vector,Equal
06bf 6802 |h | Jump_Zero 0x6c2
06c0 8405 | | Call 0x2,0x5
06c1 7808 |x | Jump 0x6ca
06c2 4829 |H) | Short_Literal 0x29
06c3 4828 |H( | Short_Literal 0x28
06c4 00db | | Load_Top At_Offset_3
06c5 01ca | | Execute Vector,Prepend
06c6 01cb | | Execute Vector,Append
06c7 e003 | | Load 0x0,0x3
06c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06c9 a402 | | Store_Unchecked 0x2,0x2
06ca 00da | | Load_Top At_Offset_2
06cb 0120 | | Execute Any,Is_Value
06cc 6805 |h | Jump_Zero 0x6d2
06cd e002 | | Load 0x0,0x2
06ce 1b20 | | Execute Package,Field_Read,Field_Number 0x20
06cf 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
06d0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06d1 7801 |x | Jump 0x6d3
06d2 00da | | Load_Top At_Offset_2
06d3 e402 | | Load 0x2,0x2
06d4 0217 | | Execute Heap_Access,All_Reference
06d5 e002 | | Load 0x0,0x2
06d6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
06d7 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
06d8 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06d9 c403 | | Store 0x2,0x3
06da 00da | | Load_Top At_Offset_2
06db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06dc 0000 0000 | | .BLANK 0000[0x4]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06ee | | .CONST 0x06ee ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0004 | | .CONST 0x0004 ; Number of locals
06e3 INIT_06e0:
06e3 e5fe | | Load 0x2,-0x2
06e4 e402 | | Load 0x2,0x2
06e5 823e | > | Call 0x1,0x3e
06e6 00d8 | | Load_Top At_Offset_0
06e7 01db | | Execute Vector,Length
06e8 e210 | | Load 0x1,0x10
06e9 1c08 | | Execute_Immediate Run_Utility,0x8
06ea 00d8 | | Load_Top At_Offset_0
06eb 1c00 | | Execute_Immediate Run_Utility,0x0
06ec 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
06ee BODY_06e0:
06ee 00d9 | | Load_Top At_Offset_1
06ef 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06f0 0c01 | | Execute_Immediate Greater_Equal,0x1
06f1 6814 |h | Jump_Zero 0x706
06f2 00da | | Load_Top At_Offset_2
06f3 00da | | Load_Top At_Offset_2
06f4 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
06f5 00cf | | Action Mark_Auxiliary
06f6 00da | | Load_Top At_Offset_2
06f7 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
06f8 01d9 | | Execute Vector,Reverse_Bounds
06f9 0263 | c | Execute Discrete,Above_Bound
06fa 7003 |p | Jump_Nonzero 0x6fe
06fb 8604 | | Call 0x3,0x4
06fc 00c8 | | Action Pop_Auxiliary_Range
06fd 3ffd |? | Loop_Increasing 0x6fb
06fe 00ce | | Action Pop_Auxiliary
06ff 00da | | Load_Top At_Offset_2
0700 01dd | | Execute Vector,First
0701 00da | | Load_Top At_Offset_2
0702 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0703 e403 | | Load 0x2,0x3
0704 00da | | Load_Top At_Offset_2
0705 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0706 00d9 | | Load_Top At_Offset_1
0707 00cb | | Action Pop_Block_With_Result
0708 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0709 0000 0000 | | .BLANK 0000[0x7]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0726 | & | .CONST 0x0726 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0003 | | .CONST 0x0003 ; Number of locals
0713 INIT_0710:
0713 e002 | | Load 0x0,0x2
0714 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0715 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0716 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0717 02c7 | | Declare_Variable Any
0718 e402 | | Load 0x2,0x2
0719 e002 | | Load 0x0,0x2
071a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
071b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
071c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
071d a602 | | Store_Unchecked 0x3,0x2
071e 4801 |H | Short_Literal 0x1
071f 00d9 | | Load_Top At_Offset_1
0720 823d | = | Call 0x1,0x3d
0721 e22c | , | Load 0x1,0x2c
0722 035b | [ | Declare_Type Array,Constrained
0723 0337 | 7 | Declare_Variable Array
0724 00d8 | | Load_Top At_Offset_0
0725 1c00 | | Execute_Immediate Run_Utility,0x0
0726 BODY_0710:
0726 00cf | | Action Mark_Auxiliary
0727 00d9 | | Load_Top At_Offset_1
0728 01d9 | | Execute Vector,Reverse_Bounds
0729 0263 | c | Execute Discrete,Above_Bound
072a 701a |p | Jump_Nonzero 0x745
072b e402 | | Load 0x2,0x2
072c e002 | | Load 0x0,0x2
072d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
072e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
072f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0730 00d9 | | Load_Top At_Offset_1
0731 e603 | | Load 0x3,0x3
0732 01d5 | | Execute Vector,Field_Reference
0733 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0734 e602 | | Load 0x3,0x2
0735 e002 | | Load 0x0,0x2
0736 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0737 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0738 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0739 00d9 | | Load_Top At_Offset_1
073a e603 | | Load 0x3,0x3
073b 01d5 | | Execute Vector,Field_Reference
073c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
073d e602 | | Load 0x3,0x2
073e e002 | | Load 0x0,0x2
073f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0740 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0741 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0742 c602 | | Store 0x3,0x2
0743 00c8 | | Action Pop_Auxiliary_Range
0744 3fe6 |? | Loop_Increasing 0x72b
0745 00ce | | Action Pop_Auxiliary
0746 e405 | | Load 0x2,0x5
0747 0227 | ' | Execute Access,All_Reference
0748 00d9 | | Load_Top At_Offset_1
0749 01cc | | Execute Vector,Catenate
074a e404 | | Load 0x2,0x4
074b 03b6 | | Declare_Variable Access,By_Allocation,With_Value
074c a405 | | Store_Unchecked 0x2,0x5
074d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
074e 0000 0000 | | .XXX[0x2]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0769 | i | .CONST 0x0769 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0003 | | .CONST 0x0003 ; Number of locals
0753 INIT_0750:
0753 e002 | | Load 0x0,0x2
0754 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0755 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0756 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0757 02c7 | | Declare_Variable Any
0758 e402 | | Load 0x2,0x2
0759 e002 | | Load 0x0,0x2
075a 1b20 | | Execute Package,Field_Read,Field_Number 0x20
075b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
075c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
075d e5fe | | Load 0x2,-0x2
075e 480b |H | Short_Literal 0xb
075f 8237 | 7 | Call 0x1,0x37
0760 a602 | | Store_Unchecked 0x3,0x2
0761 4801 |H | Short_Literal 0x1
0762 00d9 | | Load_Top At_Offset_1
0763 823d | = | Call 0x1,0x3d
0764 e22c | , | Load 0x1,0x2c
0765 035b | [ | Declare_Type Array,Constrained
0766 0337 | 7 | Declare_Variable Array
0767 00d8 | | Load_Top At_Offset_0
0768 1c00 | | Execute_Immediate Run_Utility,0x0
0769 BODY_0750:
0769 00cf | | Action Mark_Auxiliary
076a 00d9 | | Load_Top At_Offset_1
076b 01d9 | | Execute Vector,Reverse_Bounds
076c 0263 | c | Execute Discrete,Above_Bound
076d 7016 |p | Jump_Nonzero 0x784
076e e402 | | Load 0x2,0x2
076f 00d9 | | Load_Top At_Offset_1
0770 e603 | | Load 0x3,0x3
0771 01d5 | | Execute Vector,Field_Reference
0772 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0773 e602 | | Load 0x3,0x2
0774 e002 | | Load 0x0,0x2
0775 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0776 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0777 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0778 00d9 | | Load_Top At_Offset_1
0779 e603 | | Load 0x3,0x3
077a 01d5 | | Execute Vector,Field_Reference
077b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
077c e602 | | Load 0x3,0x2
077d e002 | | Load 0x0,0x2
077e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
077f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0780 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0781 c602 | | Store 0x3,0x2
0782 00c8 | | Action Pop_Auxiliary_Range
0783 3fea |? | Loop_Increasing 0x76e
0784 00ce | | Action Pop_Auxiliary
0785 e405 | | Load 0x2,0x5
0786 0227 | ' | Execute Access,All_Reference
0787 00d9 | | Load_Top At_Offset_1
0788 01cc | | Execute Vector,Catenate
0789 e404 | | Load 0x2,0x4
078a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
078b a405 | | Store_Unchecked 0x2,0x5
078c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
078d 0000 0000 | | .XXX[0x3]
078f 0000 | |
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 07ac | | .CONST 0x07ac ; Address of begin
0791 081e | | .CONST 0x081e ; Address of exception handler
0792 0006 | | .CONST 0x0006 ; Number of locals
0793 INIT_0790:
0793 e002 | | Load 0x0,0x2
0794 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0795 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0796 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0797 02c7 | | Declare_Variable Any
0798 00d8 | | Load_Top At_Offset_0
0799 1c00 | | Execute_Immediate Run_Utility,0x0
079a e002 | | Load 0x0,0x2
079b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
079c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
079d e002 | | Load 0x0,0x2
079e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
079f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07a0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07a1 02c7 | | Declare_Variable Any
07a2 00d8 | | Load_Top At_Offset_0
07a3 1c00 | | Execute_Immediate Run_Utility,0x0
07a4 e002 | | Load 0x0,0x2
07a5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07a6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07a7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07a8 02c7 | | Declare_Variable Any
07a9 00d8 | | Load_Top At_Offset_0
07aa 1c00 | | Execute_Immediate Run_Utility,0x0
07ab 00e1 | | Load_Encached Boolean_Cache
07ac BODY_0790:
07ac 00db | | Load_Top At_Offset_3
07ad e5fe | | Load 0x2,-0x2
07ae e001 | | Load 0x0,0x1
07af 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
07b0 480b |H | Short_Literal 0xb
07b1 e00e | | Load 0x0,0xe
07b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07b3 c603 | | Store 0x3,0x3
07b4 00db | | Load_Top At_Offset_3
07b5 e002 | | Load 0x0,0x2
07b6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07b7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
07b8 6802 |h | Jump_Zero 0x7bb
07b9 e00f | | Load 0x0,0xf
07ba 0257 | W | Execute Discrete,Raise
07bb 00db | | Load_Top At_Offset_3
07bc e002 | | Load 0x0,0x2
07bd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07be 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
07bf c604 | | Store 0x3,0x4
07c0 00da | | Load_Top At_Offset_2
07c1 e002 | | Load 0x0,0x2
07c2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07c3 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07c5 6802 |h | Jump_Zero 0x7c8
07c6 e00f | | Load 0x0,0xf
07c7 0257 | W | Execute Discrete,Raise
07c8 00da | | Load_Top At_Offset_2
07c9 e002 | | Load 0x0,0x2
07ca 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07cb 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07cc 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
07cd c605 | | Store 0x3,0x5
07ce 0092 08e1 | | Action Push_String_Extended,0x8e1 ; "("
07d0 e003 | | Load 0x0,0x3
07d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07d2 a402 | | Store_Unchecked 0x2,0x2
07d3 00cf | | Action Mark_Auxiliary
07d4 783b |x; | Jump 0x810
07d5 00da | | Load_Top At_Offset_2
07d6 e002 | | Load 0x0,0x2
07d7 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07d8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07d9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07da c602 | | Store 0x3,0x2
07db 00da | | Load_Top At_Offset_2
07dc e002 | | Load 0x0,0x2
07dd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07de 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07df 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
07e0 c605 | | Store 0x3,0x5
07e1 00da | | Load_Top At_Offset_2
07e2 e002 | | Load 0x0,0x2
07e3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07e4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07e5 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
07e6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
07e7 e602 | | Load 0x3,0x2
07e8 e002 | | Load 0x0,0x2
07e9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07ea 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07eb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07ec 0f04 | | Execute_Immediate Equal,0x4
07ed 7002 |p | Jump_Nonzero 0x7f0
07ee e007 | | Load 0x0,0x7
07ef 0257 | W | Execute Discrete,Raise
07f0 00d9 | | Load_Top At_Offset_1
07f1 680e |h | Jump_Zero 0x800
07f2 e402 | | Load 0x2,0x2
07f3 e602 | | Load 0x3,0x2
07f4 e002 | | Load 0x0,0x2
07f5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07f6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07f7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
07f8 e002 | | Load 0x0,0x2
07f9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
07fa 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
07fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07fc e003 | | Load 0x0,0x3
07fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07fe c402 | | Store 0x2,0x2
07ff 780f |x | Jump 0x80f
0800 e402 | | Load 0x2,0x2
0801 482c |H, | Short_Literal 0x2c
0802 e602 | | Load 0x3,0x2
0803 e002 | | Load 0x0,0x2
0804 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0805 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0806 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0807 e002 | | Load 0x0,0x2
0808 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0809 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
080a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
080b 01cb | | Execute Vector,Append
080c e003 | | Load 0x0,0x3
080d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
080e c402 | | Store 0x2,0x2
080f 00c9 | | Action Pop_Auxiliary_Loop
0810 00da | | Load_Top At_Offset_2
0811 e002 | | Load 0x0,0x2
0812 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0813 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0814 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0815 6fbf |o | Jump_Zero 0x7d5
0816 00ce | | Action Pop_Auxiliary
0817 e402 | | Load 0x2,0x2
0818 0092 08e2 | | Action Push_String_Extended,0x8e2 ; ")"
081a e003 | | Load 0x0,0x3
081b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
081c c402 | | Store 0x2,0x2
081d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
081e TRAP_0790:
081e e00f | | Load 0x0,0xf
081f 010f | | Execute Exception,Equal
0820 6806 |h | Jump_Zero 0x827
0821 0092 08e3 | | Action Push_String_Extended,0x8e3 ; "()"
0823 e003 | | Load 0x0,0x3
0824 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0825 a402 | | Store_Unchecked 0x2,0x2
0826 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0827 0100 | | Execute Exception,Raise
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0830 | 0 | .CONST 0x0830 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0002 | | .CONST 0x0002 ; Number of locals
082b INIT_0828:
082b e607 | | Load 0x3,0x7
082c e603 | | Load 0x3,0x3
082d 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
082e 01d5 | | Execute Vector,Field_Reference
082f 0007 | | Action Break_Optional
0830 BODY_0828:
0830 e5fe | | Load 0x2,-0x2
0831 00d9 | | Load_Top At_Offset_1
0832 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0833 00da | | Load_Top At_Offset_2
0834 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0835 823a | : | Call 0x1,0x3a
0836 00d9 | | Load_Top At_Offset_1
0837 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0838 e5fe | | Load 0x2,-0x2
0839 00d9 | | Load_Top At_Offset_1
083a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
083b 482e |H. | Short_Literal 0x2e
083c e404 | | Load 0x2,0x4
083d 01cb | | Execute Vector,Append
083e 00d9 | | Load_Top At_Offset_1
083f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0840 00da | | Load_Top At_Offset_2
0841 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0842 823c | < | Call 0x1,0x3c
0843 01cc | | Execute Vector,Catenate
0844 e003 | | Load 0x0,0x3
0845 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0846 00d9 | | Load_Top At_Offset_1
0847 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0848 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0849 0000 0000 | | .BLANK 0000[0x7]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853 | S | .CONST 0x0853 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0001 | | .CONST 0x0001 ; Number of locals
0853 BODY_0850:
0853 INIT_0850:
0853 4608 |F | Jump_Case 0x9
0854 7808 |x | Jump 0x85d ; case 0x0
0855 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0856 7827 |x' | Jump 0x87e ; case 0x2
0857 7826 |x& | Jump 0x87e ; case 0x3
0858 7825 |x% | Jump 0x87e ; case 0x4
0859 7824 |x$ | Jump 0x87e ; case 0x5
085a 7823 |x# | Jump 0x87e ; case 0x6
085b 7822 |x" | Jump 0x87e ; case 0x7
085c 7821 |x! | Jump 0x87e ; case 0x8
085d e001 | | Load 0x0,0x1
085e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
085f 00db | | Load_Top At_Offset_3
0860 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0861 00da | | Load_Top At_Offset_2
0862 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0863 0125 | % | Execute Any,Set_Constraint
0864 e002 | | Load 0x0,0x2
0865 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0866 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0867 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0868 00db | | Load_Top At_Offset_3
0869 00d9 | | Load_Top At_Offset_1
086a 00d9 | | Load_Top At_Offset_1
086b 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
086c 0119 | | Execute Any,Check_In_Formal_Type
086d 00d1 | | Pop_Control Pop_Count_1
086e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
086f 00da | | Load_Top At_Offset_2
0870 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0871 0125 | % | Execute Any,Set_Constraint
0872 e002 | | Load 0x0,0x2
0873 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0874 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0875 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0876 00db | | Load_Top At_Offset_3
0877 00d9 | | Load_Top At_Offset_1
0878 00d9 | | Load_Top At_Offset_1
0879 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
087a 0119 | | Execute Any,Check_In_Formal_Type
087b 00d1 | | Pop_Control Pop_Count_1
087c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
087d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
087e 0869 | i | Execute_Immediate Raise,0x69
087f 0000 | | .XXX[0x1]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 BODY_0880:
0883 INIT_0880:
0883 INIT_0880:
0883 4608 |F | Jump_Case 0x9
0884 7808 |x | Jump 0x88d ; case 0x0
0885 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0886 783a |x: | Jump 0x8c1 ; case 0x2
0887 7839 |x9 | Jump 0x8c1 ; case 0x3
0888 7838 |x8 | Jump 0x8c1 ; case 0x4
0889 7837 |x7 | Jump 0x8c1 ; case 0x5
088a 780e |x | Jump 0x899 ; case 0x6
088b 7817 |x | Jump 0x8a3 ; case 0x7
088c 7825 |x% | Jump 0x8b2 ; case 0x8
088d 00da | | Load_Top At_Offset_2
088e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
088f 6808 |h | Jump_Zero 0x898
0890 00da | | Load_Top At_Offset_2
0891 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0892 1c00 | | Execute_Immediate Run_Utility,0x0
0893 00da | | Load_Top At_Offset_2
0894 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0895 00da | | Load_Top At_Offset_2
0896 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0897 1c00 | | Execute_Immediate Run_Utility,0x0
0898 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0899 00db | | Load_Top At_Offset_3
089a 4801 |H | Short_Literal 0x1
089b 6028 |`( | Indirect_Literal Discrete,0x8c4,{0x00000000, 0x7fffffff}
089c 0262 | b | Execute Discrete,In_Range
089d 7001 |p | Jump_Nonzero 0x89f
089e 7802 |x | Jump 0x8a1
089f 4801 |H | Short_Literal 0x1
08a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08a1 48ff |H | Short_Literal 0xff
08a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08a3 00db | | Load_Top At_Offset_3
08a4 e5fe | | Load 0x2,-0x2
08a5 6807 |h | Jump_Zero 0x8ad
08a6 4801 |H | Short_Literal 0x1
08a7 e5fe | | Load 0x2,-0x2
08a8 e22c | , | Load 0x1,0x2c
08a9 035b | [ | Declare_Type Array,Constrained
08aa 4801 |H | Short_Literal 0x1
08ab 4801 |H | Short_Literal 0x1
08ac 7802 |x | Jump 0x8af
08ad 4800 |H | Short_Literal 0x0
08ae 48ff |H | Short_Literal 0xff
08af e5ff | | Load 0x2,-0x1
08b0 031b | | Declare_Type Variant_Record,Constrained
08b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08b2 00db | | Load_Top At_Offset_3
08b3 e5fe | | Load 0x2,-0x2
08b4 e5ff | | Load 0x2,-0x1
08b5 1c06 | | Execute_Immediate Run_Utility,0x6
08b6 e5ff | | Load 0x2,-0x1
08b7 02fc | | Declare_Variable Variant_Record,With_Constraint
08b8 e5fe | | Load 0x2,-0x2
08b9 6805 |h | Jump_Zero 0x8bf
08ba 4801 |H | Short_Literal 0x1
08bb e5fe | | Load 0x2,-0x2
08bc e22c | , | Load 0x1,0x2c
08bd 0334 | 4 | Declare_Variable Array,With_Constraint
08be 2f04 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x4
08bf 016a | j | QQ_execute Variant_Record,XXX
08c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
08c1 0869 | i | Execute_Immediate Raise,0x69
08c2 0000 0000 | | .XXX[0x2]
08c4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
08c8 ; --------------------------------------------------------------------------------------
08c8 ; STRING TABLE
08c8 ; --------------------------------------------------------------------------------------
08c8 003a | : | .STRTAB 0x003a->0x08e5 ; "<ALL>"
08c9 003d | = | .STRTAB 0x003d->0x08e7 ; "<UNKNOWN>"
08ca 0044 | D | .STRTAB 0x0044->0x08ec ; "<NIL_NAME>"
08cb 004c | L | .STRTAB 0x004c->0x08f1 ; "<NIL_NUMBER>"
08cc 0056 | V | .STRTAB 0x0056->0x08f7 ; "<NIL_CDRL>"
08cd 005e | ^ | .STRTAB 0x005e->0x08fc ; "Document Naming Semanticize is not yet implemented."
08ce 008f | | .STRTAB 0x008f->0x0915 ; "Document reference \x22"
08cf 00a1 | | .STRTAB 0x00a1->0x091f ; "\x22 is not defined in the @DOCUMENT_NUMBERS annotation of "
08d0 00d7 | | .STRTAB 0x00d7->0x093b ; " component \x22"
08d1 00e1 | | .STRTAB 0x00e1->0x0941 ; "\x22."
08d2 00e1 | | .STRTAB 0x00e1->0x0942 ; "\x22 is ambiguous in "
08d3 00f1 | | .STRTAB 0x00f1->0x094b ; "Resolve'N(1)"
08d4 00fb | | .STRTAB 0x00fb->0x0951 ; "@DOCUMENT_NUMBERS argument in "
08d5 0117 | | .STRTAB 0x0117->0x0960 ; "\x22 is malformed."
08d6 0124 | $ | .STRTAB 0x0124->0x0968 ; "\x22 is not defined in the @DOCUMENT_NUMBERS annotation"
08d7 0156 | V | .STRTAB 0x0156->0x0982 ; " of "
08d8 0158 | X | .STRTAB 0x0158->0x0984 ; "\x22 is an invalid document reference ("
08d9 017a | z | .STRTAB 0x017a->0x0996 ; "Resolve'N(2)"
08da 0184 | | .STRTAB 0x0184->0x099c ; "Unable to resolve "
08db 0194 | | .STRTAB 0x0194->0x09a5 ; " document ("
08dc 019d | | .STRTAB 0x019d->0x09aa ; "Document "
08dd 01a4 | | .STRTAB 0x01a4->0x09af ; " has been made obsolete by changes to "
08de 01c8 | | .STRTAB 0x01c8->0x09c2 ; "Check_Obsolescence"
08df 01d8 | | .STRTAB 0x01d8->0x09cb ; " ("
08e0 01d8 | | .STRTAB 0x01d8->0x09cc ; "Unexpected exception in Document_Naming."
08e1 01fe | | .STRTAB 0x01fe->0x09e0 ; "("
08e2 01fd | | .STRTAB 0x01fd->0x09e0 ; ")"
08e3 01fc | | .STRTAB 0x01fc->0x09e1 ; "()"
08e4 01fc | | .STREND 0x01fc->0x09e2
08e5 3c41 4c4c |<ALL| .STRTAB_STRINGS
09e2 0000 0000 | | .BLANK 0000[0x6]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; Debug Table
09e8 ; --------------------------------------------------------------------------------------
09e8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc58d,0x0000,0x0001,0x0000
09ee 0000 0000 | | .BLANK 0000[0x12]