|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0718 | | .CONST 0x0718 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01dc | | .CONST 0x01dc ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0096 | | .CONST 0x0096 ; 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 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 00c4 | | Action Make_Default
0069 00c4 | | Action Make_Default
006a 00c4 | | Action Make_Default
006b 00c4 | | Action Make_Default
006c 00c4 | | Action Make_Default
006d 00c4 | | Action Make_Default
006e 00c4 | | Action Make_Default
006f 00c4 | | Action Make_Default
0070 00c4 | | Action Make_Default
0071 00c4 | | Action Make_Default
0072 00c4 | | Action Make_Default
0073 00c4 | | Action Make_Default
0074 00c4 | | Action Make_Default
0075 00c4 | | Action Make_Default
0076 00c4 | | Action Make_Default
0077 00c4 | | Action Make_Default
0078 00c4 | | Action Make_Default
0079 e001 | | Load 0x0,0x1
007a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
007b 0129 | ) | Execute Any,Make_Visible
007c c249 | I | Store 0x1,0x49
007d e002 | | Load 0x0,0x2
007e 0129 | ) | Execute Any,Make_Visible
007f c24a | J | Store 0x1,0x4a
0080 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0082 c215 | | Store 0x1,0x15
0083 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0085 c24b | K | Store 0x1,0x4b
0086 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0088 c24c | L | Store 0x1,0x4c
0089 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
008b c24d | M | Store 0x1,0x4d
008c 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
008e c24e | N | Store 0x1,0x4e
008f 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0091 c24f | O | Store 0x1,0x4f
0092 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0094 c250 | P | Store 0x1,0x50
0095 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0097 c251 | Q | Store 0x1,0x51
0098 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
009a c252 | R | Store 0x1,0x52
009b 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
009d c253 | S | Store 0x1,0x53
009e 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
00a0 c254 | T | Store 0x1,0x54
00a1 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
00a3 c255 | U | Store 0x1,0x55
00a4 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
00a6 c256 | V | Store 0x1,0x56
00a7 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
00a9 c257 | W | Store 0x1,0x57
00aa 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
00ac c258 | X | Store 0x1,0x58
00ad 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
00af c259 | Y | Store 0x1,0x59
00b0 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
00b2 c25a | Z | Store 0x1,0x5a
00b3 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
00b5 c25b | [ | Store 0x1,0x5b
00b6 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
00b8 c25c | \ | Store 0x1,0x5c
00b9 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
00bb c25d | ] | Store 0x1,0x5d
00bc 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
00be c25e | ^ | Store 0x1,0x5e
00bf 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
00c1 c25f | _ | Store 0x1,0x5f
00c2 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
00c4 c260 | ` | Store 0x1,0x60
00c5 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
00c7 c261 | a | Store 0x1,0x61
00c8 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
00ca c262 | b | Store 0x1,0x62
00cb 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
00cd c263 | c | Store 0x1,0x63
00ce 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
00d0 c264 | d | Store 0x1,0x64
00d1 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
00d3 c265 | e | Store 0x1,0x65
00d4 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
00d6 c266 | f | Store 0x1,0x66
00d7 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
00d9 c267 | g | Store 0x1,0x67
00da 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
00dc c273 | s | Store 0x1,0x73
00dd 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
00df c268 | h | Store 0x1,0x68
00e0 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
00e2 c279 | y | Store 0x1,0x79
00e3 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
00e5 c274 | t | Store 0x1,0x74
00e6 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
00e8 c275 | u | Store 0x1,0x75
00e9 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
00eb c276 | v | Store 0x1,0x76
00ec 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
00ee c277 | w | Store 0x1,0x77
00ef 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
00f1 c27a | z | Store 0x1,0x7a
00f2 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
00f4 c26e | n | Store 0x1,0x6e
00f5 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
00f7 c26f | o | Store 0x1,0x6f
00f8 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
00fa c271 | q | Store 0x1,0x71
00fb 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
00fd c272 | r | Store 0x1,0x72
00fe 00e5 | | Load_Encached Long_Integer_Cache
00ff 00e5 | | Load_Encached Long_Integer_Cache
0100 00e5 | | Load_Encached Long_Integer_Cache
0101 02a0 | | Declare_Subprogram Null_Subprogram
0102 4803 |H | Short_Literal 0x3
0103 032e | . | Declare_Type Record,Defined,Visible
0104 c247 | G | Store 0x1,0x47
0105 00bf | | Action Accept_Activation
0106 4800 |H | Short_Literal 0x0
0107 0093 064b | K| push_full_address INIT_0648
0109 02a0 | | Declare_Subprogram Null_Subprogram
010a 038e | | Declare_Type Package,Defined
010b 0387 | | Declare_Variable Package
010c 49a0 |I | Short_Literal 0x1a0
010d 00eb | | Load_Encached Diana_Cache
010e 0098 | | Execute Package,Field_Read_Dynamic
010f 02a0 | | Declare_Subprogram Null_Subprogram
0110 4818 |H | Short_Literal 0x18
0111 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0112 e003 | | Load 0x0,0x3
0113 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 e004 | | Load 0x0,0x4
0116 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0117 00e9 | | Load_Encached String_Cache
0118 02a0 | | Declare_Subprogram Null_Subprogram
0119 4818 |H | Short_Literal 0x18
011a 03d3 | | Declare_Type Access,Defined,Accesses_Protected
011b e27b | { | Load 0x1,0x7b
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d 0266 | f | Execute Discrete,Bounds
011e 00ec | | Load_Encached Diana_Tree_Cache
011f 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
0121 4801 |H | Short_Literal 0x1
0122 035d | ] | Declare_Type Array,Defined
0123 e27b | { | Load 0x1,0x7b
0124 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0125 0266 | f | Execute Discrete,Bounds
0126 00ec | | Load_Encached Diana_Tree_Cache
0127 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0129 4801 |H | Short_Literal 0x1
012a 035d | ] | Declare_Type Array,Defined
012b 00da | | Load_Top At_Offset_2
012c e005 | | Load 0x0,0x5
012d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
012e e006 | | Load 0x0,0x6
012f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0130 e27f | | Load 0x1,0x7f
0131 00ec | | Load_Encached Diana_Tree_Cache
0132 00ec | | Load_Encached Diana_Tree_Cache
0133 e280 | | Load 0x1,0x80
0134 00d8 | | Load_Top At_Offset_0
0135 e281 | | Load 0x1,0x81
0136 00ec | | Load_Encached Diana_Tree_Cache
0137 00ec | | Load_Encached Diana_Tree_Cache
0138 e27f | | Load 0x1,0x7f
0139 e007 | | Load 0x0,0x7
013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013b e007 | | Load 0x0,0x7
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d e007 | | Load 0x0,0x7
013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013f e007 | | Load 0x0,0x7
0140 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0141 e007 | | Load 0x0,0x7
0142 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0143 e007 | | Load 0x0,0x7
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 e007 | | Load 0x0,0x7
0146 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0147 e007 | | Load 0x0,0x7
0148 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0149 e007 | | Load 0x0,0x7
014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014b e007 | | Load 0x0,0x7
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d e27c | | | Load 0x1,0x7c
014e 00d8 | | Load_Top At_Offset_0
014f 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
0151 4818 |H | Short_Literal 0x18
0152 032d | - | Declare_Type Record,Defined
0153 00d8 | | Load_Top At_Offset_0
0154 0322 | " | Declare_Variable Record
0155 00d8 | | Load_Top At_Offset_0
0156 1c00 | | Execute_Immediate Run_Utility,0x0
0157 029b 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Unelaborated
0159 e008 | | Load 0x0,0x8
015a e009 | | Load 0x0,0x9
015b e249 | I | Load 0x1,0x49
015c e282 | | Load 0x1,0x82
015d 00e3 | | Load_Encached Natural_Cache
015e 1d84 | | Execute_Immediate Reference_Lex_1,0x84
015f e00a | | Load 0x0,0xa
0160 0387 | | Declare_Variable Package
0161 00d8 | | Load_Top At_Offset_0
0162 020f | | Execute Module,Activate
0163 00d8 | | Load_Top At_Offset_0
0164 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0165 1d84 | | Execute_Immediate Reference_Lex_1,0x84
0166 00c7 | | Action Elaborate_Subprogram
0167 e00b | | Load 0x0,0xb
0168 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0169 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call
016b e00c | | Load 0x0,0xc
016c 190d | | Execute Package,Field_Reference,Field_Number 0xd
016d 00c6 | | Action Check_Subprogram_Elaborated
016e 00e9 | | Load_Encached String_Cache
016f e27f | | Load 0x1,0x7f
0170 e00d | | Load 0x0,0xd
0171 e00e | | Load 0x0,0xe
0172 4800 |H | Short_Literal 0x0
0173 0007 | | Action Break_Optional
0174 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call
0176 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
0178 e00f | | Load 0x0,0xf
0179 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
017a 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
017c 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
017e 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
0180 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0182 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
0184 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0185 00c7 | | Action Elaborate_Subprogram
0186 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
0187 00c7 | | Action Elaborate_Subprogram
0188 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
0189 00c7 | | Action Elaborate_Subprogram
018a 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
018b 00c7 | | Action Elaborate_Subprogram
018c 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
018d 00c7 | | Action Elaborate_Subprogram
018e 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
018f 00c7 | | Action Elaborate_Subprogram
0190 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
0191 00c7 | | Action Elaborate_Subprogram
0192 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
0193 00c7 | | Action Elaborate_Subprogram
0194 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
0195 00c7 | | Action Elaborate_Subprogram
0196 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
0197 00c7 | | Action Elaborate_Subprogram
0198 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
0199 00c7 | | Action Elaborate_Subprogram
019a 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
019b 00c7 | | Action Elaborate_Subprogram
019c 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
019d 00c7 | | Action Elaborate_Subprogram
019e 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
019f 00c7 | | Action Elaborate_Subprogram
01a0 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
01a1 00c7 | | Action Elaborate_Subprogram
01a2 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
01a7 00c7 | | Action Elaborate_Subprogram
01a8 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
01a9 00c7 | | Action Elaborate_Subprogram
01aa 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
01ab 00c7 | | Action Elaborate_Subprogram
01ac 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
01ad 00c7 | | Action Elaborate_Subprogram
01ae 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
01af 00c7 | | Action Elaborate_Subprogram
01b0 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
01b1 00c7 | | Action Elaborate_Subprogram
01b2 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
01b3 00c7 | | Action Elaborate_Subprogram
01b4 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
01b5 00c7 | | Action Elaborate_Subprogram
01b6 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
01b7 00c7 | | Action Elaborate_Subprogram
01b8 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
01b9 00c7 | | Action Elaborate_Subprogram
01ba 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
01bb 00c7 | | Action Elaborate_Subprogram
01bc 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
01bd 00c7 | | Action Elaborate_Subprogram
01be 1d65 | e | Execute_Immediate Reference_Lex_1,0x65
01bf 00c7 | | Action Elaborate_Subprogram
01c0 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
01c1 00c7 | | Action Elaborate_Subprogram
01c2 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
01c3 00c7 | | Action Elaborate_Subprogram
01c4 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
01c6 1d75 | u | Execute_Immediate Reference_Lex_1,0x75
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d76 | v | Execute_Immediate Reference_Lex_1,0x76
01cd 00c7 | | Action Elaborate_Subprogram
01ce 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
01cf 00c7 | | Action Elaborate_Subprogram
01d0 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
01d1 00c7 | | Action Elaborate_Subprogram
01d2 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
01d3 00c7 | | Action Elaborate_Subprogram
01d4 1d73 | s | Execute_Immediate Reference_Lex_1,0x73
01d5 00c7 | | Action Elaborate_Subprogram
01d6 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
01d7 00c7 | | Action Elaborate_Subprogram
01d8 1d74 | t | Execute_Immediate Reference_Lex_1,0x74
01d9 00c7 | | Action Elaborate_Subprogram
01da e27b | { | Load 0x1,0x7b
01db 020f | | Execute Module,Activate
01dc BODY_0008:
01dc e010 | | Load 0x0,0x10
01dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01de e011 | | Load 0x0,0x11
01df 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e0 a27e | ~ | Store_Unchecked 0x1,0x7e
01e1 e285 | | Load 0x1,0x85
01e2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01e3 e27e | ~ | Load 0x1,0x7e
01e4 e285 | | Load 0x1,0x85
01e5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01e6 c286 | | Store 0x1,0x86
01e7 00bc | | Action Signal_Activated
01e8 00bb | | Action Signal_Completion
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e27d | } | Load 0x1,0x7d
01f4 0335 | 5 | Declare_Variable Array,Duplicate
01f5 00cd | | Action Spare6_Action
01f6 00ca | | Action Exit_Nullary_Function
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 828f | | Call 0x1,0x8f
01fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01fe 0227 | ' | Execute Access,All_Reference
01ff 0335 | 5 | Declare_Variable Array,Duplicate
0200 00cd | | Action Spare6_Action
0201 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0212 | | .CONST 0x0212 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b e006 | | Load 0x0,0x6
020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020d 02c7 | | Declare_Variable Any
020e 00db | | Load_Top At_Offset_3
020f 828f | | Call 0x1,0x8f
0210 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0211 a402 | | Store_Unchecked 0x2,0x2
0212 BODY_0208:
0212 00d8 | | Load_Top At_Offset_0
0213 e006 | | Load 0x0,0x6
0214 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0215 6806 |h | Jump_Zero 0x21c
0216 4800 |H | Short_Literal 0x0
0217 4801 |H | Short_Literal 0x1
0218 4800 |H | Short_Literal 0x0
0219 4800 |H | Short_Literal 0x0
021a e5ff | | Load 0x2,-0x1
021b 8290 | | Call 0x1,0x90
021c 00db | | Load_Top At_Offset_3
021d 828f | | Call 0x1,0x8f
021e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
021f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 828f | | Call 0x1,0x8f
0225 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0226 0227 | ' | Execute Access,All_Reference
0227 0335 | 5 | Declare_Variable Array,Duplicate
0228 00cd | | Action Spare6_Action
0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 8292 | | Call 0x1,0x92
0235 e012 | | Load 0x0,0x12
0236 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0237 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0238 00d8 | | Load_Top At_Offset_0
0239 00e3 | | Load_Encached Natural_Cache
023a 0260 | ` | Execute Discrete,In_Type
023b 7001 |p | Jump_Nonzero 0x23d
023c 0801 | | Execute_Immediate Raise,0x1
023d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0249 | I | .CONST 0x0249 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 00ec | | Load_Encached Diana_Tree_Cache
0244 02c7 | | Declare_Variable Any
0245 00db | | Load_Top At_Offset_3
0246 828f | | Call 0x1,0x8f
0247 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0248 a402 | | Store_Unchecked 0x2,0x2
0249 BODY_0240:
0249 00d8 | | Load_Top At_Offset_0
024a 7006 |p | Jump_Nonzero 0x251
024b 00db | | Load_Top At_Offset_3
024c 824d | M | Call 0x1,0x4d
024d e5ff | | Load 0x2,-0x1
024e 824c | L | Call 0x1,0x4c
024f 8287 | | Call 0x1,0x87
0250 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0251 00d8 | | Load_Top At_Offset_0
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 4800 |H | Short_Literal 0x0
025c 00db | | Load_Top At_Offset_3
025d 828f | | Call 0x1,0x8f
025e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
025f 01d7 | | Execute Vector,Field_Read
0260 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 4801 |H | Short_Literal 0x1
026c 00db | | Load_Top At_Offset_3
026d 828f | | Call 0x1,0x8f
026e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
026f 01d7 | | Execute Vector,Field_Read
0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4802 |H | Short_Literal 0x2
027c 00db | | Load_Top At_Offset_3
027d 828f | | Call 0x1,0x8f
027e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
027f 01d7 | | Execute Vector,Field_Read
0280 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4803 |H | Short_Literal 0x3
028c 00db | | Load_Top At_Offset_3
028d 828f | | Call 0x1,0x8f
028e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
028f 01d7 | | Execute Vector,Field_Read
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 828f | | Call 0x1,0x8f
029d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
029e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4802 |H | Short_Literal 0x2
02a4 00db | | Load_Top At_Offset_3
02a5 828f | | Call 0x1,0x8f
02a6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
02a7 01d7 | | Execute Vector,Field_Read
02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 4803 |H | Short_Literal 0x3
02b4 00db | | Load_Top At_Offset_3
02b5 828f | | Call 0x1,0x8f
02b6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
02b7 01d7 | | Execute Vector,Field_Read
02b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b9 0000 0000 | | .BLANK 0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4800 |H | Short_Literal 0x0
02c4 00db | | Load_Top At_Offset_3
02c5 828f | | Call 0x1,0x8f
02c6 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02c7 01d7 | | Execute Vector,Field_Read
02c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4801 |H | Short_Literal 0x1
02d4 00db | | Load_Top At_Offset_3
02d5 828f | | Call 0x1,0x8f
02d6 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02d7 01d7 | | Execute Vector,Field_Read
02d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 4802 |H | Short_Literal 0x2
02e4 00db | | Load_Top At_Offset_3
02e5 828f | | Call 0x1,0x8f
02e6 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02e7 01d7 | | Execute Vector,Field_Read
02e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4803 |H | Short_Literal 0x3
02f4 00db | | Load_Top At_Offset_3
02f5 828f | | Call 0x1,0x8f
02f6 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02f7 01d7 | | Execute Vector,Field_Read
02f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 4804 |H | Short_Literal 0x4
0304 00db | | Load_Top At_Offset_3
0305 828f | | Call 0x1,0x8f
0306 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0307 01d7 | | Execute Vector,Field_Read
0308 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4805 |H | Short_Literal 0x5
0314 00db | | Load_Top At_Offset_3
0315 828f | | Call 0x1,0x8f
0316 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0317 01d7 | | Execute Vector,Field_Read
0318 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0319 0000 0000 | | .BLANK 0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 4806 |H | Short_Literal 0x6
0324 00db | | Load_Top At_Offset_3
0325 828f | | Call 0x1,0x8f
0326 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0327 01d7 | | Execute Vector,Field_Read
0328 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 828f | | Call 0x1,0x8f
0335 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 828f | | Call 0x1,0x8f
033d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
033e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 828f | | Call 0x1,0x8f
0345 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0346 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0347 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
034c 828f | | Call 0x1,0x8f
034d 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
034e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 828f | | Call 0x1,0x8f
0355 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0356 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0357 0000 | | .XXX[0x1]
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 828f | | Call 0x1,0x8f
035d 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
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 828f | | Call 0x1,0x8f
0365 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0366 e007 | | Load 0x0,0x7
0367 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0369 0000 0000 | | .BLANK 0000[0x7]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 828f | | Call 0x1,0x8f
0375 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
0376 e007 | | Load 0x0,0x7
0377 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0378 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0379 0000 0000 | | .BLANK 0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 828f | | Call 0x1,0x8f
0385 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0386 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0387 0000 | | .XXX[0x1]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00da | | Load_Top At_Offset_2
038c 828f | | Call 0x1,0x8f
038d 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
038e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038f 0000 | | .XXX[0x1]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 4800 |H | Short_Literal 0x0
0394 4800 |H | Short_Literal 0x0
0395 4801 |H | Short_Literal 0x1
0396 4800 |H | Short_Literal 0x0
0397 e5ff | | Load 0x2,-0x1
0398 8290 | | Call 0x1,0x90
0399 4502 |E | Exit_Suprogram New_Top_Offset 0x2
039a 0000 0000 | | .BLANK 0000[0x6]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 4800 |H | Short_Literal 0x0
03a4 4801 |H | Short_Literal 0x1
03a5 4800 |H | Short_Literal 0x0
03a6 4801 |H | Short_Literal 0x1
03a7 e5ff | | Load 0x2,-0x1
03a8 8290 | | Call 0x1,0x90
03a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03aa 0000 0000 | | .BLANK 0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 4801 |H | Short_Literal 0x1
03b4 4800 |H | Short_Literal 0x0
03b5 4800 |H | Short_Literal 0x0
03b6 4800 |H | Short_Literal 0x0
03b7 e5ff | | Load 0x2,-0x1
03b8 8290 | | Call 0x1,0x90
03b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ba 0000 0000 | | .BLANK 0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 8291 | | Call 0x1,0x91
03c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c6 0000 0000 | | .XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cf | | .CONST 0x03cf ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0002 | | .CONST 0x0002 ; Number of locals
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc 828f | | Call 0x1,0x8f
03cd 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
03ce 0227 | ' | Execute Access,All_Reference
03cf BODY_03c8:
03cf 00cf | | Action Mark_Auxiliary
03d0 00d9 | | Load_Top At_Offset_1
03d1 01d9 | | Execute Vector,Reverse_Bounds
03d2 0263 | c | Execute Discrete,Above_Bound
03d3 7010 |p | Jump_Nonzero 0x3e4
03d4 e5fe | | Load 0x2,-0x2
03d5 00d9 | | Load_Top At_Offset_1
03d6 e402 | | Load 0x2,0x2
03d7 01d7 | | Execute Vector,Field_Read
03d8 012f | / | Execute Any,Equal
03d9 6808 |h | Jump_Zero 0x3e2
03da 00d8 | | Load_Top At_Offset_0
03db e5ff | | Load 0x2,-0x1
03dc 8292 | | Call 0x1,0x92
03dd e012 | | Load 0x0,0x12
03de 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03df 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
03e0 01d7 | | Execute Vector,Field_Read
03e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e2 00c8 | | Action Pop_Auxiliary_Range
03e3 3ff0 |? | Loop_Increasing 0x3d4
03e4 00ce | | Action Pop_Auxiliary
03e5 0831 | 1 | Execute_Immediate Raise,0x31
03e6 0000 0000 | | .XXX[0x2]
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 8292 | | Call 0x1,0x92
03ed e012 | | Load 0x0,0x12
03ee 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ef 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f1 0000 0000 | | .BLANK 0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 8292 | | Call 0x1,0x92
03fd e012 | | Load 0x0,0x12
03fe 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ff 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0401 0000 0000 | | .BLANK 0000[0x7]
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 8292 | | Call 0x1,0x92
040d e012 | | Load 0x0,0x12
040e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
040f 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0410 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0411 0000 0000 | | .BLANK 0000[0x7]
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 828f | | Call 0x1,0x8f
041d 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
041e 0227 | ' | Execute Access,All_Reference
041f 0335 | 5 | Declare_Variable Array,Duplicate
0420 00cd | | Action Spare6_Action
0421 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0422 0000 0000 | | .BLANK 0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c 828f | | Call 0x1,0x8f
042d 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
042e 0227 | ' | Execute Access,All_Reference
042f 0335 | 5 | Declare_Variable Array,Duplicate
0430 00cd | | Action Spare6_Action
0431 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0432 0000 0000 | | .BLANK 0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 828f | | Call 0x1,0x8f
043d 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
043e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043f 0000 | | .XXX[0x1]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 828f | | Call 0x1,0x8f
0445 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
0446 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0447 0000 | | .XXX[0x1]
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 00d1 | | Pop_Control Pop_Count_1
044c 00da | | Load_Top At_Offset_2
044d 01dc | | Execute Vector,Last
044e 00db | | Load_Top At_Offset_3
044f 01dd | | Execute Vector,First
0450 0263 | c | Execute Discrete,Above_Bound
0451 700a |p | Jump_Nonzero 0x45c
0452 00d8 | | Load_Top At_Offset_0
0453 e5ff | | Load 0x2,-0x1
0454 01d5 | | Execute Vector,Field_Reference
0455 0125 | % | Execute Any,Set_Constraint
0456 00d8 | | Load_Top At_Offset_0
0457 e5ff | | Load 0x2,-0x1
0458 01d5 | | Execute Vector,Field_Reference
0459 1c00 | | Execute_Immediate Run_Utility,0x0
045a 0a01 | | Execute_Immediate Plus,0x1
045b 7ff4 | | Jump 0x450
045c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
045d 0000 0000 | | .XXX[0x3]
045f 0000 | |
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 00d1 | | Pop_Control Pop_Count_1
0464 00da | | Load_Top At_Offset_2
0465 01dc | | Execute Vector,Last
0466 00db | | Load_Top At_Offset_3
0467 01dd | | Execute Vector,First
0468 0263 | c | Execute Discrete,Above_Bound
0469 700a |p | Jump_Nonzero 0x474
046a 00d8 | | Load_Top At_Offset_0
046b e5ff | | Load 0x2,-0x1
046c 01d5 | | Execute Vector,Field_Reference
046d 0125 | % | Execute Any,Set_Constraint
046e 00d8 | | Load_Top At_Offset_0
046f e5ff | | Load 0x2,-0x1
0470 01d5 | | Execute Vector,Field_Reference
0471 1c00 | | Execute_Immediate Run_Utility,0x0
0472 0a01 | | Execute_Immediate Plus,0x1
0473 7ff4 | | Jump 0x468
0474 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0475 0000 0000 | | .XXX[0x3]
0477 0000 | |
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 4608 |F | Jump_Case 0x9
047c 7808 |x | Jump 0x485 ; case 0x0
047d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
047e 78e9 |x | Jump 0x568 ; case 0x2
047f 78e8 |x | Jump 0x568 ; case 0x3
0480 78e7 |x | Jump 0x568 ; case 0x4
0481 78e6 |x | Jump 0x568 ; case 0x5
0482 78e5 |x | Jump 0x568 ; case 0x6
0483 78e4 |x | Jump 0x568 ; case 0x7
0484 78e3 |x | Jump 0x568 ; case 0x8
0485 00da | | Load_Top At_Offset_2
0486 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0487 1c00 | | Execute_Immediate Run_Utility,0x0
0488 00da | | Load_Top At_Offset_2
0489 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
048a 0125 | % | Execute Any,Set_Constraint
048b e006 | | Load 0x0,0x6
048c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
048d 00db | | Load_Top At_Offset_3
048e 00d9 | | Load_Top At_Offset_1
048f 00d9 | | Load_Top At_Offset_1
0490 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0491 0119 | | Execute Any,Check_In_Formal_Type
0492 00d1 | | Pop_Control Pop_Count_1
0493 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0494 00da | | Load_Top At_Offset_2
0495 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0496 0125 | % | Execute Any,Set_Constraint
0497 00ec | | Load_Encached Diana_Tree_Cache
0498 00db | | Load_Top At_Offset_3
0499 00d9 | | Load_Top At_Offset_1
049a 00d9 | | Load_Top At_Offset_1
049b 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
049c 0119 | | Execute Any,Check_In_Formal_Type
049d 00d1 | | Pop_Control Pop_Count_1
049e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
049f 00da | | Load_Top At_Offset_2
04a0 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
04a1 0125 | % | Execute Any,Set_Constraint
04a2 00ec | | Load_Encached Diana_Tree_Cache
04a3 00db | | Load_Top At_Offset_3
04a4 00d9 | | Load_Top At_Offset_1
04a5 00d9 | | Load_Top At_Offset_1
04a6 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
04a7 0119 | | Execute Any,Check_In_Formal_Type
04a8 00d1 | | Pop_Control Pop_Count_1
04a9 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04aa e282 | | Load 0x1,0x82
04ab 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
04ac 0337 | 7 | Declare_Variable Array
04ad 4803 |H | Short_Literal 0x3
04ae 4800 |H | Short_Literal 0x0
04af 00ec | | Load_Encached Diana_Tree_Cache
04b0 00ec | | Load_Encached Diana_Tree_Cache
04b1 0119 | | Execute Any,Check_In_Formal_Type
04b2 00d9 | | Load_Top At_Offset_1
04b3 e402 | | Load 0x2,0x2
04b4 01d6 | | Execute Vector,Field_Write
04b5 3ff9 |? | Loop_Increasing 0x4af
04b6 00db | | Load_Top At_Offset_3
04b7 00d9 | | Load_Top At_Offset_1
04b8 00d9 | | Load_Top At_Offset_1
04b9 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
04ba 0119 | | Execute Any,Check_In_Formal_Type
04bb 00d1 | | Pop_Control Pop_Count_1
04bc 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
04bd e282 | | Load 0x1,0x82
04be 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
04bf 0337 | 7 | Declare_Variable Array
04c0 4803 |H | Short_Literal 0x3
04c1 4800 |H | Short_Literal 0x0
04c2 00ec | | Load_Encached Diana_Tree_Cache
04c3 00ec | | Load_Encached Diana_Tree_Cache
04c4 0119 | | Execute Any,Check_In_Formal_Type
04c5 00d9 | | Load_Top At_Offset_1
04c6 e402 | | Load 0x2,0x2
04c7 01d6 | | Execute Vector,Field_Write
04c8 3ff9 |? | Loop_Increasing 0x4c2
04c9 00db | | Load_Top At_Offset_3
04ca 00d9 | | Load_Top At_Offset_1
04cb 00d9 | | Load_Top At_Offset_1
04cc 3007 |0 | Execute Record,Field_Type,Field_Number 0x7
04cd 0119 | | Execute Any,Check_In_Formal_Type
04ce 00d1 | | Pop_Control Pop_Count_1
04cf 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
04d0 e282 | | Load 0x1,0x82
04d1 3008 |0 | Execute Record,Field_Type,Field_Number 0x8
04d2 0337 | 7 | Declare_Variable Array
04d3 4806 |H | Short_Literal 0x6
04d4 4800 |H | Short_Literal 0x0
04d5 00ec | | Load_Encached Diana_Tree_Cache
04d6 00ec | | Load_Encached Diana_Tree_Cache
04d7 0119 | | Execute Any,Check_In_Formal_Type
04d8 00d9 | | Load_Top At_Offset_1
04d9 e402 | | Load 0x2,0x2
04da 01d6 | | Execute Vector,Field_Write
04db 3ff9 |? | Loop_Increasing 0x4d5
04dc 00db | | Load_Top At_Offset_3
04dd 00d9 | | Load_Top At_Offset_1
04de 00d9 | | Load_Top At_Offset_1
04df 3008 |0 | Execute Record,Field_Type,Field_Number 0x8
04e0 0119 | | Execute Any,Check_In_Formal_Type
04e1 00d1 | | Pop_Control Pop_Count_1
04e2 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04e3 00da | | Load_Top At_Offset_2
04e4 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
04e5 0125 | % | Execute Any,Set_Constraint
04e6 00ec | | Load_Encached Diana_Tree_Cache
04e7 00db | | Load_Top At_Offset_3
04e8 00d9 | | Load_Top At_Offset_1
04e9 00d9 | | Load_Top At_Offset_1
04ea 3009 |0 | Execute Record,Field_Type,Field_Number 0x9
04eb 0119 | | Execute Any,Check_In_Formal_Type
04ec 00d1 | | Pop_Control Pop_Count_1
04ed 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
04ee 00da | | Load_Top At_Offset_2
04ef 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
04f0 0125 | % | Execute Any,Set_Constraint
04f1 00ec | | Load_Encached Diana_Tree_Cache
04f2 00db | | Load_Top At_Offset_3
04f3 00d9 | | Load_Top At_Offset_1
04f4 00d9 | | Load_Top At_Offset_1
04f5 300a |0 | Execute Record,Field_Type,Field_Number 0xa
04f6 0119 | | Execute Any,Check_In_Formal_Type
04f7 00d1 | | Pop_Control Pop_Count_1
04f8 380a |8 | Execute Record,Field_Write,Field_Number 0xa
04f9 00da | | Load_Top At_Offset_2
04fa 340c |4 | Execute Record,Field_Reference,Field_Number 0xc
04fb 0125 | % | Execute Any,Set_Constraint
04fc 4801 |H | Short_Literal 0x1
04fd 00db | | Load_Top At_Offset_3
04fe 00d9 | | Load_Top At_Offset_1
04ff 00d9 | | Load_Top At_Offset_1
0500 300c |0 | Execute Record,Field_Type,Field_Number 0xc
0501 0119 | | Execute Any,Check_In_Formal_Type
0502 00d1 | | Pop_Control Pop_Count_1
0503 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0504 00da | | Load_Top At_Offset_2
0505 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0506 0125 | % | Execute Any,Set_Constraint
0507 6074 |`t | Indirect_Literal Discrete,0x57c,{0x7fffffff, 0xffffffff}
0508 00db | | Load_Top At_Offset_3
0509 00d9 | | Load_Top At_Offset_1
050a 00d9 | | Load_Top At_Offset_1
050b 300d |0 | Execute Record,Field_Type,Field_Number 0xd
050c 0119 | | Execute Any,Check_In_Formal_Type
050d 00d1 | | Pop_Control Pop_Count_1
050e 380d |8 | Execute Record,Field_Write,Field_Number 0xd
050f 00da | | Load_Top At_Offset_2
0510 340e |4 | Execute Record,Field_Reference,Field_Number 0xe
0511 0125 | % | Execute Any,Set_Constraint
0512 6065 |`e | Indirect_Literal Discrete,0x578,{0x80000000, 0x00000000}
0513 00db | | Load_Top At_Offset_3
0514 00d9 | | Load_Top At_Offset_1
0515 00d9 | | Load_Top At_Offset_1
0516 300e |0 | Execute Record,Field_Type,Field_Number 0xe
0517 0119 | | Execute Any,Check_In_Formal_Type
0518 00d1 | | Pop_Control Pop_Count_1
0519 380e |8 | Execute Record,Field_Write,Field_Number 0xe
051a 00da | | Load_Top At_Offset_2
051b 340f |4 | Execute Record,Field_Reference,Field_Number 0xf
051c 0125 | % | Execute Any,Set_Constraint
051d 605e |`^ | Indirect_Literal Discrete,0x57c,{0x7fffffff, 0xffffffff}
051e 00db | | Load_Top At_Offset_3
051f 00d9 | | Load_Top At_Offset_1
0520 00d9 | | Load_Top At_Offset_1
0521 300f |0 | Execute Record,Field_Type,Field_Number 0xf
0522 0119 | | Execute Any,Check_In_Formal_Type
0523 00d1 | | Pop_Control Pop_Count_1
0524 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0525 00da | | Load_Top At_Offset_2
0526 3410 |4 | Execute Record,Field_Reference,Field_Number 0x10
0527 0125 | % | Execute Any,Set_Constraint
0528 604b |`K | Indirect_Literal Discrete,0x574,{0x00000000, 0x7fffffff}
0529 00db | | Load_Top At_Offset_3
052a 00d9 | | Load_Top At_Offset_1
052b 00d9 | | Load_Top At_Offset_1
052c 3010 |0 | Execute Record,Field_Type,Field_Number 0x10
052d 0119 | | Execute Any,Check_In_Formal_Type
052e 00d1 | | Pop_Control Pop_Count_1
052f 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0530 00da | | Load_Top At_Offset_2
0531 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
0532 0125 | % | Execute Any,Set_Constraint
0533 6040 |`@ | Indirect_Literal Discrete,0x574,{0x00000000, 0x7fffffff}
0534 00db | | Load_Top At_Offset_3
0535 00d9 | | Load_Top At_Offset_1
0536 00d9 | | Load_Top At_Offset_1
0537 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0538 0119 | | Execute Any,Check_In_Formal_Type
0539 00d1 | | Pop_Control Pop_Count_1
053a 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
053b 00da | | Load_Top At_Offset_2
053c 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
053d 0125 | % | Execute Any,Set_Constraint
053e 5831 |X1 | Indirect_Literal Float,0x570,1.7976931348623157e+308
053f 00db | | Load_Top At_Offset_3
0540 00d9 | | Load_Top At_Offset_1
0541 00d9 | | Load_Top At_Offset_1
0542 3012 |0 | Execute Record,Field_Type,Field_Number 0x12
0543 0119 | | Execute Any,Check_In_Formal_Type
0544 00d1 | | Pop_Control Pop_Count_1
0545 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0546 00da | | Load_Top At_Offset_2
0547 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
0548 0125 | % | Execute Any,Set_Constraint
0549 5826 |X& | Indirect_Literal Float,0x570,1.7976931348623157e+308
054a 00db | | Load_Top At_Offset_3
054b 00d9 | | Load_Top At_Offset_1
054c 00d9 | | Load_Top At_Offset_1
054d 3013 |0 | Execute Record,Field_Type,Field_Number 0x13
054e 0119 | | Execute Any,Check_In_Formal_Type
054f 00d1 | | Pop_Control Pop_Count_1
0550 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0551 00da | | Load_Top At_Offset_2
0552 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
0553 0125 | % | Execute Any,Set_Constraint
0554 6017 |` | Indirect_Literal Discrete,0x56c,{0xffffffff, 0x80000001}
0555 00db | | Load_Top At_Offset_3
0556 00d9 | | Load_Top At_Offset_1
0557 00d9 | | Load_Top At_Offset_1
0558 3014 |0 | Execute Record,Field_Type,Field_Number 0x14
0559 0119 | | Execute Any,Check_In_Formal_Type
055a 00d1 | | Pop_Control Pop_Count_1
055b 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
055c 00da | | Load_Top At_Offset_2
055d 3415 |4 | Execute Record,Field_Reference,Field_Number 0x15
055e 0125 | % | Execute Any,Set_Constraint
055f 6014 |` | Indirect_Literal Discrete,0x574,{0x00000000, 0x7fffffff}
0560 00db | | Load_Top At_Offset_3
0561 00d9 | | Load_Top At_Offset_1
0562 00d9 | | Load_Top At_Offset_1
0563 3015 |0 | Execute Record,Field_Type,Field_Number 0x15
0564 0119 | | Execute Any,Check_In_Formal_Type
0565 00d1 | | Pop_Control Pop_Count_1
0566 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0567 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0568 0869 | i | Execute_Immediate Raise,0x69
0569 0000 0000 | | .XXX[0x3]
056b 0000 | |
056c ffff ffff | | .LITERAL {0xffffffff, 0x80000001}
0570 7fef ffff | | .DBL 1.7976931348623157e+308
0572 ffff ffff | |
0574 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0578 8000 0000 | | .LITERAL {0x80000000, 0x00000000}
057c 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 00da | | Load_Top At_Offset_2
0584 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0585 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0586 0000 0000 | | .XXX[0x2]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b e013 | | Load 0x0,0x13
058c 180e | | Execute Package,Field_Execute,Field_Number 0xe
058d 4807 |H | Short_Literal 0x7
058e 0092 06b0 | | Action Push_String_Extended,0x6b0 ; "Rcf target not registered"
0590 e014 | | Load 0x0,0x14
0591 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0592 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0593 0000 0000 | | .BLANK 0000[0x5]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b | | .CONST 0x059b ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0001 | | .CONST 0x0001 ; Number of locals
059b BODY_0598:
059b INIT_0598:
059b 00da | | Load_Top At_Offset_2
059c 7001 |p | Jump_Nonzero 0x59e
059d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
059e 00da | | Load_Top At_Offset_2
059f e289 | | Load 0x1,0x89
05a0 e28a | | Load 0x1,0x8a
05a1 1d8b | | Execute_Immediate Reference_Lex_1,0x8b
05a2 e00c | | Load 0x0,0xc
05a3 180d | | Execute Package,Field_Execute,Field_Number 0xd
05a4 003b | ; | Store_Top Access,At_Offset_3
05a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05a6 0000 0000 | | .XXX[0x2]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 05b0 | | .CONST 0x05b0 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac e286 | | Load 0x1,0x86
05ad e285 | | Load 0x1,0x85
05ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b0 TRAP_05a8:
05b0 e285 | | Load 0x1,0x85
05b1 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05b2 010f | | Execute Exception,Equal
05b3 6805 |h | Jump_Zero 0x5b9
05b4 8288 | | Call 0x1,0x88
05b5 e283 | | Load 0x1,0x83
05b6 0320 | | Declare_Variable Record,Duplicate
05b7 00cd | | Action Spare6_Action
05b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b9 0100 | | Execute Exception,Raise
05ba 0000 0000 | | .BLANK 0000[0x6]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 05cb | | .CONST 0x05cb ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 e015 | | Load 0x0,0x15
05c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05c6 00da | | Load_Top At_Offset_2
05c7 e286 | | Load 0x1,0x86
05c8 e285 | | Load 0x1,0x85
05c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05cb TRAP_05c0:
05cb e285 | | Load 0x1,0x85
05cc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
05cd 010f | | Execute Exception,Equal
05ce 6801 |h | Jump_Zero 0x5d0
05cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d0 0100 | | Execute Exception,Raise
05d1 0000 0000 | | .BLANK 0000[0x7]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 05df | | .CONST 0x05df ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00da | | Load_Top At_Offset_2
05dc e016 | | Load 0x0,0x16
05dd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05df TRAP_05d8:
05df e016 | | Load 0x0,0x16
05e0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05e1 010f | | Execute Exception,Equal
05e2 6809 |h | Jump_Zero 0x5ec
05e3 e013 | | Load 0x0,0x13
05e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
05e5 4806 |H | Short_Literal 0x6
05e6 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Semantic information is not registered for Target-key"
05e8 e014 | | Load 0x0,0x14
05e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ea e24a | J | Load 0x1,0x4a
05eb 0257 | W | Execute Discrete,Raise
05ec 0100 | | Execute Exception,Raise
05ed 0000 0000 | | .XXX[0x3]
05ef 0000 | |
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 05f7 | | .CONST 0x05f7 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 e016 | | Load 0x0,0x16
05f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f7 TRAP_05f0:
05f7 e016 | | Load 0x0,0x16
05f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05f9 010f | | Execute Exception,Equal
05fa 6809 |h | Jump_Zero 0x604
05fb e013 | | Load 0x0,0x13
05fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
05fd 4806 |H | Short_Literal 0x6
05fe 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Semantic information is not registered for Target-key"
0600 e014 | | Load 0x0,0x14
0601 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0602 e24a | J | Load 0x1,0x4a
0603 0257 | W | Execute Discrete,Raise
0604 0100 | | Execute Exception,Raise
0605 0000 0000 | | .XXX[0x3]
0607 0000 | |
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 060f | | .CONST 0x060f ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c e016 | | Load 0x0,0x16
060d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
060e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
060f TRAP_0608:
060f e016 | | Load 0x0,0x16
0610 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0611 010f | | Execute Exception,Equal
0612 6809 |h | Jump_Zero 0x61c
0613 e013 | | Load 0x0,0x13
0614 180e | | Execute Package,Field_Execute,Field_Number 0xe
0615 4806 |H | Short_Literal 0x6
0616 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Semantic information is not registered for Target-key"
0618 e014 | | Load 0x0,0x14
0619 1813 | | Execute Package,Field_Execute,Field_Number 0x13
061a e24a | J | Load 0x1,0x4a
061b 0257 | W | Execute Discrete,Raise
061c 0100 | | Execute Exception,Raise
061d 0000 0000 | | .XXX[0x3]
061f 0000 | |
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0627 | ' | .CONST 0x0627 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 00da | | Load_Top At_Offset_2
0624 e016 | | Load 0x0,0x16
0625 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0626 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0627 TRAP_0620:
0627 e016 | | Load 0x0,0x16
0628 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0629 010f | | Execute Exception,Equal
062a 6809 |h | Jump_Zero 0x634
062b e013 | | Load 0x0,0x13
062c 180e | | Execute Package,Field_Execute,Field_Number 0xe
062d 4806 |H | Short_Literal 0x6
062e 0092 06b1 | | Action Push_String_Extended,0x6b1 ; "Semantic information is not registered for Target-key"
0630 e014 | | Load 0x0,0x14
0631 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0632 e24a | J | Load 0x1,0x4a
0633 0257 | W | Execute Discrete,Raise
0634 0100 | | Execute Exception,Raise
0635 0000 0000 | | .XXX[0x3]
0637 0000 | |
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 00da | | Load_Top At_Offset_2
063c 828f | | Call 0x1,0x8f
063d 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
063e e012 | | Load 0x0,0x12
063f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0640 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0641 00d9 | | Load_Top At_Offset_1
0642 00d0 | | Action Swap_Control
0643 0260 | ` | Execute Discrete,In_Type
0644 7001 |p | Jump_Nonzero 0x646
0645 0801 | | Execute_Immediate Raise,0x1
0646 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0647 0000 | | .XXX[0x1]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0656 | V | .CONST 0x0656 ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 000e | | .CONST 0x000e ; Number of locals
064b INIT_0648:
064b 4800 |H | Short_Literal 0x0
064c 4803 |H | Short_Literal 0x3
064d 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
064f 03fe | | Declare_Type Discrete,Defined,Visible
0650 4800 |H | Short_Literal 0x0
0651 4806 |H | Short_Literal 0x6
0652 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
0654 03fe | | Declare_Type Discrete,Defined,Visible
0655 00bf | | Action Accept_Activation
0656 BODY_0648:
0656 00bc | | Action Signal_Activated
0657 00bb | | Action Signal_Completion
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 4607 |F | Jump_Case 0x8
065c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
065d 7806 |x | Jump 0x664 ; case 0x1
065e 7809 |x | Jump 0x668 ; case 0x2
065f 780d |x | Jump 0x66d ; case 0x3
0660 7810 |x | Jump 0x671 ; case 0x4
0661 7811 |x | Jump 0x673 ; case 0x5
0662 7812 |x | Jump 0x675 ; case 0x6
0663 7815 |x | Jump 0x679 ; case 0x7
0664 00da | | Load_Top At_Offset_2
0665 0091 06a5 | | Action Push_String_Extended_Indexed,0x6a5 ; "SYSTEM"
0667 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0668 00db | | Load_Top At_Offset_3
0669 00db | | Load_Top At_Offset_3
066a 00e0 | | Load_Encached Standard_Cache
066b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
066c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
066d 00da | | Load_Top At_Offset_2
066e 00e0 | | Load_Encached Standard_Cache
066f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0670 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0671 00db | | Load_Top At_Offset_3
0672 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0673 00db | | Load_Top At_Offset_3
0674 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0675 e20d | | Load 0x1,0xd
0676 00dc | | Load_Top At_Offset_4
0677 0267 | g | Execute Discrete,Predecessor
0678 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0679 e20d | | Load 0x1,0xd
067a 00dc | | Load_Top At_Offset_4
067b 0268 | h | Execute Discrete,Successor
067c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
067d 0000 0000 | | .XXX[0x3]
067f 0000 | |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 4607 |F | Jump_Case 0x8
0684 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0685 7806 |x | Jump 0x68c ; case 0x1
0686 7809 |x | Jump 0x690 ; case 0x2
0687 780d |x | Jump 0x695 ; case 0x3
0688 7810 |x | Jump 0x699 ; case 0x4
0689 7811 |x | Jump 0x69b ; case 0x5
068a 7812 |x | Jump 0x69d ; case 0x6
068b 7815 |x | Jump 0x6a1 ; case 0x7
068c 00da | | Load_Top At_Offset_2
068d 0091 06a9 | | Action Push_String_Extended_Indexed,0x6a9 ; "CHARACTER"
068f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0690 00db | | Load_Top At_Offset_3
0691 00db | | Load_Top At_Offset_3
0692 00e0 | | Load_Encached Standard_Cache
0693 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0694 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0695 00da | | Load_Top At_Offset_2
0696 00e0 | | Load_Encached Standard_Cache
0697 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0698 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0699 00db | | Load_Top At_Offset_3
069a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
069b 00db | | Load_Top At_Offset_3
069c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
069d e20e | | Load 0x1,0xe
069e 00dc | | Load_Top At_Offset_4
069f 0267 | g | Execute Discrete,Predecessor
06a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06a1 e20e | | Load 0x1,0xe
06a2 00dc | | Load_Top At_Offset_4
06a3 0268 | h | Execute Discrete,Successor
06a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
06a5 ; --------------------------------------------------------------------------------------
06a5 ; STRING TABLE
06a5 ; --------------------------------------------------------------------------------------
06a5 001c | | .STRTAB 0x001c->0x06b3 ; "SYSTEM"
06a6 0020 | | .STRTAB 0x0020->0x06b6 ; "MACHINE_CODE"
06a7 002a | * | .STRTAB 0x002a->0x06bc ; "UNCHECKED_CONVERSION"
06a8 003c | < | .STRTAB 0x003c->0x06c6 ; "UNCHECKED_DEALLOCATION"
06a9 0050 | P | .STRTAB 0x0050->0x06d1 ; "CHARACTER"
06aa 0057 | W | .STRTAB 0x0057->0x06d5 ; "BOOLEAN"
06ab 005c | \ | .STRTAB 0x005c->0x06d9 ; "INTEGER"
06ac 0061 | a | .STRTAB 0x0061->0x06dc ; "NATURAL"
06ad 0066 | f | .STRTAB 0x0066->0x06e0 ; "POSITIVE"
06ae 006c | l | .STRTAB 0x006c->0x06e4 ; "STRING"
06af 0070 | p | .STRTAB 0x0070->0x06e7 ; "DURATION"
06b0 0076 | v | .STRTAB 0x0076->0x06eb ; "Rcf target not registered"
06b1 008d | | .STRTAB 0x008d->0x06f7 ; "Semantic information is not registered for Target-key"
06b2 00c0 | | .STREND 0x00c0->0x0712
06b3 5359 5354 |SYST| .STRTAB_STRINGS
0712 0000 0000 | | .BLANK 0000[0x6]
0718 ; --------------------------------------------------------------------------------------
0718 ; Debug Table
0718 ; --------------------------------------------------------------------------------------
0718 0004 000c | | .DEBUG4 0x0004,0x000c,0x000d,0x0000,0x0001,0x0000
071e 0100 655c | e\| .XXX[0x67]
0720 7fff ffff | |
0722 8000 0000 | |
0724 0020 0c85 | |
0726 0800 0000 | |
0728 1000 0359 | Y|
072a a804 0190 | |
072c a100 0000 | |
072e 0000 006d | m|
0730 7200 8033 |r 3|
0732 43c0 04aa |C |
0734 5800 0000 |X |
0736 0000 24e0 | $ |
0738 8020 0ce8 | |
073a a800 0000 | |
073c 0100 6745 | gE|
073e 4000 0000 |@ |
0740 8000 0000 | |
0742 0020 0ce8 | |
0744 afff ffff | |
0746 f800 0000 | |
0748 0004 019a | |
074a c200 0000 | |
074c 0100 008b | |
074e 3c00 8033 |< 3|
0750 5840 0000 |X@ |
0752 0000 0011 | |
0754 73e0 1006 |s |
0756 8520 0098 | |
0758 9100 0000 | |
075a 0000 04ae | |
075c 2804 01a4 |( |
075e 3f00 2580 |? % |
0760 8020 0d35 | 5|
0762 e000 0000 | |
0764 0100 690f | i |
0766 c000 0000 | |
0768 8000 0000 | |
076a 0020 0d21 | !|
076c ffff ffff | |
076e f800 0000 | |
0770 0004 01a6 | |
0772 bc00 0000 | |
0774 0200 0073 | s|
0776 d800 8034 | 4|
0778 d79f ffff | |
077a ffc0 000e | |
077c 8760 1006 | ` |
077e 87b0 0000 | |
0780 0008 0000 | |
0782 0000 0200 | |
0784 d0f6 | |
0785 0000 0000 | | .BLANK 0000[0x4]
0789 0040 1ab6 | @ | .XXX[0x77]
078b 9002 6b50 | kP|
078d 0000 0000 | |
078f 0013 2160 | !`|
0791 1006 b980 | |
0793 0000 0000 | |
0795 8035 cc00 | 5 |
0797 0000 0040 | @|
0799 0000 0000 | |
079b 1006 b983 | |
079d ffff fffc | |
079f 0000 0000 | |
07a1 0200 d606 | |
07a3 8000 0000 | |
07a5 8000 4921 | I!|
07a7 0040 1ac0 | @ |
07a9 d000 0000 | |
07ab 0000 092a | *|
07ad 5008 0365 |P e|
07af 2600 4e8b |& N |
07b1 8000 0000 | |
07b3 0002 6d38 | m8|
07b5 0200 dad2 | |
07b7 0000 0000 | |
07b9 1006 d690 | |
07bb 0000 0008 | |
07bd 0001 9c24 | $|
07bf 0200 dad2 | |
07c1 7fff ffff | |
07c3 8000 33b6 | 3 |
07c5 0040 1b33 | @ 3|
07c7 7000 0000 |p |
07c9 1000 0857 | W|
07cb 6008 0366 |` f|
07cd 6e00 0000 |n |
07cf 0000 010b | |
07d1 b201 006e | n|
07d3 82c0 09e5 | |
07d5 7000 0000 |p |
07d7 0000 0000 | |
07d9 0040 1baa | @ |
07db f000 0000 | |
07dd 0000 07a2 | |
07df 7008 0375 |p u|
07e1 5e00 0000 |^ |
07e3 0000 00f5 | |
07e5 1401 006f | o|
07e7 7b00 0a09 |{ |
07e9 a000 0000 | |
07eb 0000 4f68 | Oh|
07ed 8040 1c0f | @ |
07ef d000 0000 | |
07f1 0200 e07e | ~|
07f3 8000 0001 | |
07f5 0000 0000 | |
07f7 0040 1c0f | @ |
07f9 dfff ffff | |
07fb f000 0000 | |
07fd 0008 037d | }|
07ff 2000 | |