|
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_06e8fd
└─⟦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 0860 | ` | .CONST 0x0860 ; 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 016c | l | .CONST 0x016c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 005b | [ | .CONST 0x005b ; Number of locals 000b INIT_0008: 000b 00ec | | Load_Encached Diana_Tree_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00e2 | | Load_Encached Integer_Cache 000e 0129 | ) | Execute Any,Make_Visible 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 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0016 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0018 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001a 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001c 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 001e 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0020 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0022 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0024 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0026 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0028 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 002a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 002c 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 002e 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0030 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0032 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0034 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0036 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0038 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 003a 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 003c 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 003e 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0040 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0042 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0044 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0046 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0048 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 004a 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 004c 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 004e 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0050 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 0052 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0054 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0056 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 0058 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated 005a 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 005c 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 005e 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0060 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0062 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 0064 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated 0066 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 0068 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 006a 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 006c 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 006e 0093 0000 | | push_full_address 0x0 0070 611b |a | Indirect_Literal Discrete,0x18c,{0x80000000, 0x00010000} 0071 0273 | s | Execute Discrete,Plus 0072 0129 | ) | Execute Any,Make_Visible 0073 0093 0000 | | push_full_address 0x0 0075 6112 |a | Indirect_Literal Discrete,0x188,{0x80000000, 0x00020000} 0076 0273 | s | Execute Discrete,Plus 0077 0129 | ) | Execute Any,Make_Visible 0078 0093 0000 | | push_full_address 0x0 007a 6109 |a | Indirect_Literal Discrete,0x184,{0x80000000, 0x00030000} 007b 0273 | s | Execute Discrete,Plus 007c 0129 | ) | Execute Any,Make_Visible 007d 0093 0000 | | push_full_address 0x0 007f 6100 |a | Indirect_Literal Discrete,0x180,{0x80000000, 0x00040000} 0080 0273 | s | Execute Discrete,Plus 0081 0129 | ) | Execute Any,Make_Visible 0082 0093 0000 | | push_full_address 0x0 0084 60f7 |` | Indirect_Literal Discrete,0x17c,{0x80000000, 0x00050000} 0085 0273 | s | Execute Discrete,Plus 0086 0129 | ) | Execute Any,Make_Visible 0087 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0089 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 008b 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated 008d 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated 008f 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 0091 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated 0093 029a 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Visible,Unelaborated 0095 0093 0000 | | push_full_address 0x0 0097 60e0 |` | Indirect_Literal Discrete,0x178,{0x80000000, 0x00060000} 0098 0273 | s | Execute Discrete,Plus 0099 0129 | ) | Execute Any,Make_Visible 009a 00e3 | | Load_Encached Natural_Cache 009b e002 | | Load 0x0,0x2 009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009d 00e4 | | Load_Encached Positive_Cache 009e 02a0 | | Declare_Subprogram Null_Subprogram 009f 4803 |H | Short_Literal 0x3 00a0 032e | . | Declare_Type Record,Defined,Visible 00a1 00d8 | | Load_Top At_Offset_0 00a2 0322 | " | Declare_Variable Record 00a3 4800 |H | Short_Literal 0x0 00a4 00d9 | | Load_Top At_Offset_1 00a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a6 4800 |H | Short_Literal 0x0 00a7 00d9 | | Load_Top At_Offset_1 00a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a9 4801 |H | Short_Literal 0x1 00aa 00d9 | | Load_Top At_Offset_1 00ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ac 0129 | ) | Execute Any,Make_Visible 00ad c212 | | Store 0x1,0x12 00ae 00eb | | Load_Encached Diana_Cache 00af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b0 0129 | ) | Execute Any,Make_Visible 00b1 c210 | | Store 0x1,0x10 00b2 00e4 | | Load_Encached Positive_Cache 00b3 0266 | f | Execute Discrete,Bounds 00b4 e20d | | Load 0x1,0xd 00b5 02a0 | | Declare_Subprogram Null_Subprogram 00b6 4801 |H | Short_Literal 0x1 00b7 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00b8 e003 | | Load 0x0,0x3 00b9 e004 | | Load 0x0,0x4 00ba e20d | | Load 0x1,0xd 00bb 00db | | Load_Top At_Offset_3 00bc e210 | | Load 0x1,0x10 00bd 4900 |I | Short_Literal 0x100 00be e005 | | Load 0x0,0x5 00bf 0386 | | Declare_Variable Package,Visible 00c0 00d8 | | Load_Top At_Offset_0 00c1 020f | | Execute Module,Activate 00c2 4805 |H | Short_Literal 0x5 00c3 00d9 | | Load_Top At_Offset_1 00c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c5 1c07 | | Execute_Immediate Run_Utility,0x7 00c6 0129 | ) | Execute Any,Make_Visible 00c7 029f 081b | | Declare_Subprogram INIT_0818,For_Call 00c9 4801 |H | Short_Literal 0x1 00ca 032e | . | Declare_Type Record,Defined,Visible 00cb 00d8 | | Load_Top At_Offset_0 00cc 0321 | ! | Declare_Variable Record,Visible 00cd 00d8 | | Load_Top At_Offset_0 00ce 1c00 | | Execute_Immediate Run_Utility,0x0 00cf 00d8 | | Load_Top At_Offset_0 00d0 0320 | | Declare_Variable Record,Duplicate 00d1 00cd | | Action Spare6_Action 00d2 0129 | ) | Execute Any,Make_Visible 00d3 c20f | | Store 0x1,0xf 00d4 00e4 | | Load_Encached Positive_Cache 00d5 0266 | f | Execute Discrete,Bounds 00d6 e24e | N | Load 0x1,0x4e 00d7 02a0 | | Declare_Subprogram Null_Subprogram 00d8 4801 |H | Short_Literal 0x1 00d9 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00da e006 | | Load 0x0,0x6 00db e007 | | Load 0x0,0x7 00dc e24e | N | Load 0x1,0x4e 00dd 00db | | Load_Top At_Offset_3 00de e212 | | Load 0x1,0x12 00df 4900 |I | Short_Literal 0x100 00e0 e005 | | Load 0x0,0x5 00e1 0386 | | Declare_Variable Package,Visible 00e2 00d8 | | Load_Top At_Offset_0 00e3 020f | | Execute Module,Activate 00e4 4808 |H | Short_Literal 0x8 00e5 00d9 | | Load_Top At_Offset_1 00e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e7 1c07 | | Execute_Immediate Run_Utility,0x7 00e8 0129 | ) | Execute Any,Make_Visible 00e9 029f 0833 | 3| Declare_Subprogram INIT_0830,For_Call 00eb 4801 |H | Short_Literal 0x1 00ec 032e | . | Declare_Type Record,Defined,Visible 00ed 00d8 | | Load_Top At_Offset_0 00ee 0321 | ! | Declare_Variable Record,Visible 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 00d8 | | Load_Top At_Offset_0 00f2 0320 | | Declare_Variable Record,Duplicate 00f3 00cd | | Action Spare6_Action 00f4 0129 | ) | Execute Any,Make_Visible 00f5 c213 | | Store 0x1,0x13 00f6 4800 |H | Short_Literal 0x0 00f7 0129 | ) | Execute Any,Make_Visible 00f8 c211 | | Store 0x1,0x11 00f9 00bf | | Action Accept_Activation 00fa 0092 0841 | A| Action Push_String_Extended,0x841 ; "END" 00fc 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00fd 00c7 | | Action Elaborate_Subprogram 00fe 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ff 00c7 | | Action Elaborate_Subprogram 0100 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0101 00c7 | | Action Elaborate_Subprogram 0102 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0103 00c7 | | Action Elaborate_Subprogram 0104 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call 0106 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0107 00c7 | | Action Elaborate_Subprogram 0108 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0109 00c7 | | Action Elaborate_Subprogram 010a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 010b 00c7 | | Action Elaborate_Subprogram 010c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 010d 00c7 | | Action Elaborate_Subprogram 010e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 010f 00c7 | | Action Elaborate_Subprogram 0110 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0111 00c7 | | Action Elaborate_Subprogram 0112 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0113 00c7 | | Action Elaborate_Subprogram 0114 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0115 00c7 | | Action Elaborate_Subprogram 0116 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0117 00c7 | | Action Elaborate_Subprogram 0118 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0119 00c7 | | Action Elaborate_Subprogram 011a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 011b 00c7 | | Action Elaborate_Subprogram 011c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 011d 00c7 | | Action Elaborate_Subprogram 011e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 011f 00c7 | | Action Elaborate_Subprogram 0120 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0121 00c7 | | Action Elaborate_Subprogram 0122 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0123 00c7 | | Action Elaborate_Subprogram 0124 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0125 00c7 | | Action Elaborate_Subprogram 0126 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0127 00c7 | | Action Elaborate_Subprogram 0128 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call 012a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 012b 00c7 | | Action Elaborate_Subprogram 012c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 012d 00c7 | | Action Elaborate_Subprogram 012e 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 012f 00c7 | | Action Elaborate_Subprogram 0130 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0131 00c7 | | Action Elaborate_Subprogram 0132 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0133 00c7 | | Action Elaborate_Subprogram 0134 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call 0136 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0137 00c7 | | Action Elaborate_Subprogram 0138 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0139 00c7 | | Action Elaborate_Subprogram 013a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 013b 00c7 | | Action Elaborate_Subprogram 013c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 013d 00c7 | | Action Elaborate_Subprogram 013e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 013f 00c7 | | Action Elaborate_Subprogram 0140 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0141 00c7 | | Action Elaborate_Subprogram 0142 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0143 00c7 | | Action Elaborate_Subprogram 0144 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0145 00c7 | | Action Elaborate_Subprogram 0146 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0147 00c7 | | Action Elaborate_Subprogram 0148 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0149 00c7 | | Action Elaborate_Subprogram 014a 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 014b 00c7 | | Action Elaborate_Subprogram 014c 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 014d 00c7 | | Action Elaborate_Subprogram 014e 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 014f 00c7 | | Action Elaborate_Subprogram 0150 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0151 00c7 | | Action Elaborate_Subprogram 0152 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0153 00c7 | | Action Elaborate_Subprogram 0154 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0155 00c7 | | Action Elaborate_Subprogram 0156 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 0157 00c7 | | Action Elaborate_Subprogram 0158 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0159 00c7 | | Action Elaborate_Subprogram 015a 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 015b 00c7 | | Action Elaborate_Subprogram 015c 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 015d 00c7 | | Action Elaborate_Subprogram 015e 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 015f 00c7 | | Action Elaborate_Subprogram 0160 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0161 00c7 | | Action Elaborate_Subprogram 0162 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0163 00c7 | | Action Elaborate_Subprogram 0164 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call 0166 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0167 00c7 | | Action Elaborate_Subprogram 0168 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 0169 00c7 | | Action Elaborate_Subprogram 016a 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 016b 00c7 | | Action Elaborate_Subprogram 016c BODY_0008: 016c 00bc | | Action Signal_Activated 016d 00bb | | Action Signal_Completion 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 00eb | | Load_Encached Diana_Cache 0175 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 0000 | | .XXX[0x1] 0178 8000 0000 | | .LITERAL {0x80000000, 0x00060000} 017c 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 0180 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 0184 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0188 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 018c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0195 e250 | P | Load 0x1,0x50 0196 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0197 0f00 | | Execute_Immediate Equal,0x0 0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 0f00 | | Execute_Immediate Equal,0x0 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac e212 | | Load 0x1,0x12 01ad 017f | | Execute Record,Equal 01ae 7005 |p | Jump_Nonzero 0x1b4 01af 00da | | Load_Top At_Offset_2 01b0 8258 | X | Call 0x1,0x58 01b1 8008 | | Call 0x0,0x8 01b2 017f | | Execute Record,Equal 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 4801 |H | Short_Literal 0x1 01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b6 0000 0000 | | .XXX[0x2] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bd e254 | T | Load 0x1,0x54 01be 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01bf 0f00 | | Execute_Immediate Equal,0x0 01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c1 0000 0000 | | .BLANK 0000[0x7] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01cd e250 | P | Load 0x1,0x50 01ce 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01cf e5fe | | Load 0x2,-0x2 01d0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d1 e250 | P | Load 0x1,0x50 01d2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d3 027f | | Execute Discrete,Equal 01d4 681b |h | Jump_Zero 0x1f0 01d5 00cf | | Action Mark_Auxiliary 01d6 00db | | Load_Top At_Offset_3 01d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d8 e250 | P | Load 0x1,0x50 01d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01da 4801 |H | Short_Literal 0x1 01db 0263 | c | Execute Discrete,Above_Bound 01dc 7010 |p | Jump_Nonzero 0x1ed 01dd 00d8 | | Load_Top At_Offset_0 01de e5ff | | Load 0x2,-0x1 01df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e0 e250 | P | Load 0x1,0x50 01e1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01e2 00d9 | | Load_Top At_Offset_1 01e3 e5fe | | Load 0x2,-0x2 01e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e5 e250 | P | Load 0x1,0x50 01e6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01e7 021e | | Execute Heap_Access,Maximum 01e8 6802 |h | Jump_Zero 0x1eb 01e9 4800 |H | Short_Literal 0x0 01ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01eb 00c8 | | Action Pop_Auxiliary_Range 01ec 3ff0 |? | Loop_Increasing 0x1dd 01ed 00ce | | Action Pop_Auxiliary 01ee 4801 |H | Short_Literal 0x1 01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f0 4800 |H | Short_Literal 0x0 01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f2 0000 0000 | | .BLANK 0000[0x6] 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 e5fe | | Load 0x2,-0x2 01fd 021f | | Execute Heap_Access,Equal 01fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0209 | | .CONST 0x0209 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0205 e254 | T | Load 0x1,0x54 0206 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0207 00e3 | | Load_Encached Natural_Cache 0208 03f1 | | Declare_Variable Discrete,With_Value 0209 BODY_0200: 0209 00d8 | | Load_Top At_Offset_0 020a e5fe | | Load 0x2,-0x2 020b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 020c e254 | T | Load 0x1,0x54 020d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 020e 027f | | Execute Discrete,Equal 020f 6818 |h | Jump_Zero 0x228 0210 00cf | | Action Mark_Auxiliary 0211 00d9 | | Load_Top At_Offset_1 0212 4801 |H | Short_Literal 0x1 0213 0263 | c | Execute Discrete,Above_Bound 0214 7010 |p | Jump_Nonzero 0x225 0215 00d8 | | Load_Top At_Offset_0 0216 e5ff | | Load 0x2,-0x1 0217 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0218 e254 | T | Load 0x1,0x54 0219 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 021a 00d9 | | Load_Top At_Offset_1 021b e5fe | | Load 0x2,-0x2 021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021d e254 | T | Load 0x1,0x54 021e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 021f 017e | ~ | Execute Record,Not_Equal 0220 6802 |h | Jump_Zero 0x223 0221 4800 |H | Short_Literal 0x0 0222 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0223 00c8 | | Action Pop_Auxiliary_Range 0224 3ff0 |? | Loop_Increasing 0x215 0225 00ce | | Action Pop_Auxiliary 0226 4801 |H | Short_Literal 0x1 0227 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0228 4800 |H | Short_Literal 0x0 0229 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 e5fe | | Load 0x2,-0x2 0235 027f | | Execute Discrete,Equal 0236 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0237 0000 | | .XXX[0x1] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023d | = | .CONST 0x023d ; Address of begin 0239 0243 | C | .CONST 0x0243 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b 00eb | | Load_Encached Diana_Cache 023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023d BODY_0238: 023d 00db | | Load_Top At_Offset_3 023e 00eb | | Load_Encached Diana_Cache 023f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0240 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0241 4800 |H | Short_Literal 0x0 0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0243 TRAP_0238: 0243 0007 | | Action Break_Optional 0244 4801 |H | Short_Literal 0x1 0245 e009 | | Load 0x0,0x9 0246 180d | | Execute Package,Field_Execute,Field_Number 0xd 0247 0092 0842 | B| Action Push_String_Extended,0x842 ; "NONEXISTENT_PAGE_ERROR" 0249 e00a | | Load 0x0,0xa 024a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 024b 0e00 | | Execute_Immediate Not_Equal,0x0 024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 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 00da | | Load_Top At_Offset_2 025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025d 0000 0000 | | .XXX[0x3] 025f 0000 | | 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0265 | e | .CONST 0x0265 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 821f | | Call 0x1,0x1f 0265 BODY_0260: 0265 00d8 | | Load_Top At_Offset_0 0266 00eb | | Load_Encached Diana_Cache 0267 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0268 6803 |h | Jump_Zero 0x26c 0269 00eb | | Load_Encached Diana_Cache 026a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026c 00d8 | | Load_Top At_Offset_0 026d e00b | | Load 0x0,0xb 026e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 0d00 | | Execute_Immediate Less,0x0 0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0276 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 027c 0c01 | | Execute_Immediate Greater_Equal,0x1 027d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027e 0000 0000 | | .XXX[0x2] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 8222 | " | Call 0x1,0x22 0285 6807 |h | Jump_Zero 0x28d 0286 00da | | Load_Top At_Offset_2 0287 00d8 | | Load_Top At_Offset_0 0288 00e3 | | Load_Encached Natural_Cache 0289 0260 | ` | Execute Discrete,In_Type 028a 7001 |p | Jump_Nonzero 0x28c 028b 0801 | | Execute_Immediate Raise,0x1 028c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028d e245 | E | Load 0x1,0x45 028e 0257 | W | Execute Discrete,Raise 028f 0000 | | .XXX[0x1] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 8221 | ! | Call 0x1,0x21 0295 6808 |h | Jump_Zero 0x29e 0296 00da | | Load_Top At_Offset_2 0297 0274 | t | Execute Discrete,Absolute_Value 0298 00d8 | | Load_Top At_Offset_0 0299 00e3 | | Load_Encached Natural_Cache 029a 0260 | ` | Execute Discrete,In_Type 029b 7001 |p | Jump_Nonzero 0x29d 029c 0801 | | Execute_Immediate Raise,0x1 029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029e e245 | E | Load 0x1,0x45 029f 0257 | W | Execute Discrete,Raise 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 00da | | Load_Top At_Offset_2 02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a5 0000 0000 | | .XXX[0x3] 02a7 0000 | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 02ac 8221 | ! | Call 0x1,0x21 02ad 680f |h | Jump_Zero 0x2bd 02ae 4864 |Hd | Short_Literal 0x64 02af 4820 |H | Short_Literal 0x20 02b0 4800 |H | Short_Literal 0x0 02b1 480a |H | Short_Literal 0xa 02b2 e5ff | | Load 0x2,-0x1 02b3 0274 | t | Execute Discrete,Absolute_Value 02b4 00d8 | | Load_Top At_Offset_0 02b5 00e3 | | Load_Encached Natural_Cache 02b6 0260 | ` | Execute Discrete,In_Type 02b7 7001 |p | Jump_Nonzero 0x2b9 02b8 0801 | | Execute_Immediate Raise,0x1 02b9 e00a | | Load 0x0,0xa 02ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02bb 01cb | | Execute Vector,Append 02bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bd 00da | | Load_Top At_Offset_2 02be 8222 | " | Call 0x1,0x22 02bf 6814 |h | Jump_Zero 0x2d4 02c0 00da | | Load_Top At_Offset_2 02c1 6016 |` | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x7fffffff} 02c2 027f | | Execute Discrete,Equal 02c3 6802 |h | Jump_Zero 0x2c6 02c4 e257 | W | Load 0x1,0x57 02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c6 4873 |Hs | Short_Literal 0x73 02c7 4820 |H | Short_Literal 0x20 02c8 4800 |H | Short_Literal 0x0 02c9 480a |H | Short_Literal 0xa 02ca e5ff | | Load 0x2,-0x1 02cb 00d8 | | Load_Top At_Offset_0 02cc 00e3 | | Load_Encached Natural_Cache 02cd 0260 | ` | Execute Discrete,In_Type 02ce 7001 |p | Jump_Nonzero 0x2d0 02cf 0801 | | Execute_Immediate Raise,0x1 02d0 e00a | | Load 0x0,0xa 02d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02d2 01cb | | Execute Vector,Append 02d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d4 00ea | | Load_Encached Null_String_Cache 02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d6 0000 0000 | | .XXX[0x2] 02d8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 02dc 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02ee | | .CONST 0x02ee ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0003 | | .CONST 0x0003 ; Number of locals 02eb INIT_02e8: 02eb e20e | | Load 0x1,0xe 02ec 0007 | | Action Break_Optional 02ed 00e1 | | Load_Encached Boolean_Cache 02ee BODY_02e8: 02ee 00e1 | | Load_Encached Boolean_Cache 02ef e20e | | Load 0x1,0xe 02f0 e5ff | | Load 0x2,-0x1 02f1 8259 | Y | Call 0x1,0x59 02f2 005b | [ | Store_Top Discrete,At_Offset_3 02f3 0059 | Y | Store_Top Discrete,At_Offset_1 02f4 00d8 | | Load_Top At_Offset_0 02f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fe | | .CONST 0x02fe ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0003 | | .CONST 0x0003 ; Number of locals 02fb INIT_02f8: 02fb e20e | | Load 0x1,0xe 02fc 0007 | | Action Break_Optional 02fd 00e1 | | Load_Encached Boolean_Cache 02fe BODY_02f8: 02fe 00e1 | | Load_Encached Boolean_Cache 02ff e20e | | Load 0x1,0xe 0300 e5ff | | Load 0x2,-0x1 0301 8259 | Y | Call 0x1,0x59 0302 005b | [ | Store_Top Discrete,At_Offset_3 0303 0059 | Y | Store_Top Discrete,At_Offset_1 0304 00d8 | | Load_Top At_Offset_0 0305 6802 |h | Jump_Zero 0x308 0306 00d9 | | Load_Top At_Offset_1 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 e243 | C | Load 0x1,0x43 0309 0257 | W | Execute Discrete,Raise 030a 0000 0000 | | .BLANK 0000[0x6] 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 6004 |` | Indirect_Literal Discrete,0x318,{0x00000000, 0x7fffffff} 0314 00ca | | Action Exit_Nullary_Function 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0328 | ( | .CONST 0x0328 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0325 e250 | P | Load 0x1,0x50 0326 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0328 TRAP_0320: 0328 010e | | Execute Exception,Is_Constraint_Error 0329 6802 |h | Jump_Zero 0x32c 032a 4800 |H | Short_Literal 0x0 032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032c 0100 | | Execute Exception,Raise 032d 0000 0000 | | .XXX[0x3] 032f 0000 | | 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0338 | 8 | .CONST 0x0338 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0335 e254 | T | Load 0x1,0x54 0336 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0338 TRAP_0330: 0338 010e | | Execute Exception,Is_Constraint_Error 0339 6802 |h | Jump_Zero 0x33c 033a 4800 |H | Short_Literal 0x0 033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033c 0100 | | Execute Exception,Raise 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0349 | I | .CONST 0x0349 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 822b | + | Call 0x1,0x2b 0345 00e3 | | Load_Encached Natural_Cache 0346 03f1 | | Declare_Variable Discrete,With_Value 0347 e20d | | Load 0x1,0xd 0348 0007 | | Action Break_Optional 0349 BODY_0340: 0349 e5fe | | Load 0x2,-0x2 034a 00da | | Load_Top At_Offset_2 034b 027d | } | Execute Discrete,Greater 034c 6802 |h | Jump_Zero 0x34f 034d e244 | D | Load 0x1,0x44 034e 0257 | W | Execute Discrete,Raise 034f 00d9 | | Load_Top At_Offset_1 0350 e5fe | | Load 0x2,-0x2 0351 0272 | r | Execute Discrete,Minus 0352 0a01 | | Execute_Immediate Plus,0x1 0353 00d8 | | Load_Top At_Offset_0 0354 00e4 | | Load_Encached Positive_Cache 0355 0260 | ` | Execute Discrete,In_Type 0356 7001 |p | Jump_Nonzero 0x358 0357 0801 | | Execute_Immediate Raise,0x1 0358 e5ff | | Load 0x2,-0x1 0359 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 035a e250 | P | Load 0x1,0x50 035b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 035c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 035d 00d8 | | Load_Top At_Offset_0 035e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 035f 0000 | | .XXX[0x1] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0367 | g | .CONST 0x0367 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 822b | + | Call 0x1,0x2b 0365 00e3 | | Load_Encached Natural_Cache 0366 03f1 | | Declare_Variable Discrete,With_Value 0367 BODY_0360: 0367 e5fe | | Load 0x2,-0x2 0368 00d9 | | Load_Top At_Offset_1 0369 027d | } | Execute Discrete,Greater 036a 6802 |h | Jump_Zero 0x36d 036b e244 | D | Load 0x1,0x44 036c 0257 | W | Execute Discrete,Raise 036d e5fe | | Load 0x2,-0x2 036e e5ff | | Load 0x2,-0x1 036f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0370 e250 | P | Load 0x1,0x50 0371 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0372 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037f | | .CONST 0x037f ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0002 | | .CONST 0x0002 ; Number of locals 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c 822b | + | Call 0x1,0x2b 037d 00e3 | | Load_Encached Natural_Cache 037e 03f1 | | Declare_Variable Discrete,With_Value 037f BODY_0378: 037f e5fe | | Load 0x2,-0x2 0380 00d9 | | Load_Top At_Offset_1 0381 027d | } | Execute Discrete,Greater 0382 6802 |h | Jump_Zero 0x385 0383 e244 | D | Load 0x1,0x44 0384 0257 | W | Execute Discrete,Raise 0385 e5fe | | Load 0x2,-0x2 0386 e5ff | | Load 0x2,-0x1 0387 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0388 e250 | P | Load 0x1,0x50 0389 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 038a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 038b 0000 0000 | | .BLANK 0000[0x5] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0397 | | .CONST 0x0397 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0002 | | .CONST 0x0002 ; Number of locals 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 822c | , | Call 0x1,0x2c 0395 00e3 | | Load_Encached Natural_Cache 0396 03f1 | | Declare_Variable Discrete,With_Value 0397 BODY_0390: 0397 e5fe | | Load 0x2,-0x2 0398 00d9 | | Load_Top At_Offset_1 0399 027d | } | Execute Discrete,Greater 039a 6802 |h | Jump_Zero 0x39d 039b e244 | D | Load 0x1,0x44 039c 0257 | W | Execute Discrete,Raise 039d e5fe | | Load 0x2,-0x2 039e e5ff | | Load 0x2,-0x1 039f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03a0 e254 | T | Load 0x1,0x54 03a1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a3 0000 0000 | | .BLANK 0000[0x5] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03b1 | | .CONST 0x03b1 ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0003 | | .CONST 0x0003 ; Number of locals 03ab INIT_03a8: 03ab 00db | | Load_Top At_Offset_3 03ac 822b | + | Call 0x1,0x2b 03ad 00e3 | | Load_Encached Natural_Cache 03ae 03f1 | | Declare_Variable Discrete,With_Value 03af 00db | | Load_Top At_Offset_3 03b0 821e | | Call 0x1,0x1e 03b1 BODY_03a8: 03b1 00cf | | Action Mark_Auxiliary 03b2 00da | | Load_Top At_Offset_2 03b3 4801 |H | Short_Literal 0x1 03b4 0263 | c | Execute Discrete,Above_Bound 03b5 7009 |p | Jump_Nonzero 0x3bf 03b6 00db | | Load_Top At_Offset_3 03b7 00d9 | | Load_Top At_Offset_1 03b8 e5fe | | Load 0x2,-0x2 03b9 825a | Z | Call 0x1,0x5a 03ba 021f | | Execute Heap_Access,Equal 03bb 6801 |h | Jump_Zero 0x3bd 03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bd 00c8 | | Action Pop_Auxiliary_Range 03be 3ff7 |? | Loop_Increasing 0x3b6 03bf 00ce | | Action Pop_Auxiliary 03c0 e5fe | | Load 0x2,-0x2 03c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c2 00d9 | | Load_Top At_Offset_1 03c3 e250 | P | Load 0x1,0x50 03c4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d1 | | .CONST 0x03d1 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb 00db | | Load_Top At_Offset_3 03cc 822b | + | Call 0x1,0x2b 03cd 00e3 | | Load_Encached Natural_Cache 03ce 03f1 | | Declare_Variable Discrete,With_Value 03cf 00db | | Load_Top At_Offset_3 03d0 821e | | Call 0x1,0x1e 03d1 BODY_03c8: 03d1 00cf | | Action Mark_Auxiliary 03d2 00da | | Load_Top At_Offset_2 03d3 4801 |H | Short_Literal 0x1 03d4 0263 | c | Execute Discrete,Above_Bound 03d5 7009 |p | Jump_Nonzero 0x3df 03d6 00db | | Load_Top At_Offset_3 03d7 00d9 | | Load_Top At_Offset_1 03d8 e5fe | | Load 0x2,-0x2 03d9 822f | / | Call 0x1,0x2f 03da 021f | | Execute Heap_Access,Equal 03db 6801 |h | Jump_Zero 0x3dd 03dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03dd 00c8 | | Action Pop_Auxiliary_Range 03de 3ff7 |? | Loop_Increasing 0x3d6 03df 00ce | | Action Pop_Auxiliary 03e0 e5fe | | Load 0x2,-0x2 03e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e2 00d9 | | Load_Top At_Offset_1 03e3 4801 |H | Short_Literal 0x1 03e4 e250 | P | Load 0x1,0x50 03e5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e7 0000 | | .XXX[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 00db | | Load_Top At_Offset_3 03ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ed 00db | | Load_Top At_Offset_3 03ee 4801 |H | Short_Literal 0x1 03ef e250 | P | Load 0x1,0x50 03f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f2 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 03fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03fd 00db | | Load_Top At_Offset_3 03fe 4801 |H | Short_Literal 0x1 03ff e254 | T | Load 0x1,0x54 0400 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0401 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0402 0000 0000 | | .BLANK 0000[0x6] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040f | | .CONST 0x040f ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0002 | | .CONST 0x0002 ; Number of locals 040b INIT_0408: 040b e251 | Q | Load 0x1,0x51 040c 0322 | " | Declare_Variable Record 040d 00d8 | | Load_Top At_Offset_0 040e 1c00 | | Execute_Immediate Run_Utility,0x0 040f BODY_0408: 040f 00db | | Load_Top At_Offset_3 0410 e20f | | Load 0x1,0xf 0411 017f | | Execute Record,Equal 0412 6804 |h | Jump_Zero 0x417 0413 00db | | Load_Top At_Offset_3 0414 0320 | | Declare_Variable Record,Duplicate 0415 00cd | | Action Spare6_Action 0416 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0417 00d8 | | Load_Top At_Offset_0 0418 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0419 e5ff | | Load 0x2,-0x1 041a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 041b e250 | P | Load 0x1,0x50 041c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 041d 00d1 | | Pop_Control Pop_Count_1 041e 00d8 | | Load_Top At_Offset_0 041f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0425 | % | .CONST 0x0425 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 e24e | N | Load 0x1,0x4e 0424 0322 | " | Declare_Variable Record 0425 BODY_0420: 0425 00db | | Load_Top At_Offset_3 0426 00d9 | | Load_Top At_Offset_1 0427 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0428 e5fe | | Load 0x2,-0x2 0429 00d9 | | Load_Top At_Offset_1 042a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 042b e5fd | | Load 0x2,-0x3 042c 00d9 | | Load_Top At_Offset_1 042d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 042e 00d8 | | Load_Top At_Offset_0 042f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0435 | 5 | .CONST 0x0435 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0002 | | .CONST 0x0002 ; Number of locals 0433 INIT_0430: 0433 e00c | | Load 0x0,0xc 0434 0322 | " | Declare_Variable Record 0435 BODY_0430: 0435 00db | | Load_Top At_Offset_3 0436 8258 | X | Call 0x1,0x58 0437 00d9 | | Load_Top At_Offset_1 0438 017d | } | Execute Record,Structure_Write 0439 00d8 | | Load_Top At_Offset_0 043a 800d | | Call 0x0,0xd 043b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043c 0000 0000 | | .BLANK 0000[0x4] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0447 | G | .CONST 0x0447 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0003 | | .CONST 0x0003 ; Number of locals 0443 INIT_0440: 0443 e24e | N | Load 0x1,0x4e 0444 0322 | " | Declare_Variable Record 0445 e00c | | Load 0x0,0xc 0446 0322 | " | Declare_Variable Record 0447 BODY_0440: 0447 e5ff | | Load 0x2,-0x1 0448 8214 | | Call 0x1,0x14 0449 6802 |h | Jump_Zero 0x44c 044a e212 | | Load 0x1,0x12 044b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 044c e5ff | | Load 0x2,-0x1 044d 800e | | Call 0x0,0xe 044e 00d9 | | Load_Top At_Offset_1 044f 017d | } | Execute Record,Structure_Write 0450 00d8 | | Load_Top At_Offset_0 0451 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0452 00da | | Load_Top At_Offset_2 0453 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0454 00d8 | | Load_Top At_Offset_0 0455 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0456 00da | | Load_Top At_Offset_2 0457 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0458 00d8 | | Load_Top At_Offset_0 0459 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 045a 00da | | Load_Top At_Offset_2 045b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 045c 00d9 | | Load_Top At_Offset_1 045d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045e 0000 0000 | | .XXX[0x2] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0466 | f | .CONST 0x0466 ; Address of begin 0461 0490 | | .CONST 0x0490 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 00ec | | Load_Encached Diana_Tree_Cache 0464 e24e | N | Load 0x1,0x4e 0465 0322 | " | Declare_Variable Record 0466 BODY_0460: 0466 e5fe | | Load 0x2,-0x2 0467 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0468 e250 | P | Load 0x1,0x50 0469 1b11 | | Execute Package,Field_Read,Field_Number 0x11 046a 4800 |H | Short_Literal 0x0 046b e250 | P | Load 0x1,0x50 046c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 046d 00d1 | | Pop_Control Pop_Count_1 046e 00cf | | Action Mark_Auxiliary 046f e5ff | | Load 0x2,-0x1 0470 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0471 e254 | T | Load 0x1,0x54 0472 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0473 4801 |H | Short_Literal 0x1 0474 0263 | c | Execute Discrete,Above_Bound 0475 7019 |p | Jump_Nonzero 0x48f 0476 00d8 | | Load_Top At_Offset_0 0477 e5ff | | Load 0x2,-0x1 0478 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0479 e254 | T | Load 0x1,0x54 047a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 047b e403 | | Load 0x2,0x3 047c 017d | } | Execute Record,Structure_Write 047d 00db | | Load_Top At_Offset_3 047e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 047f e403 | | Load 0x2,0x3 0480 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0481 e403 | | Load 0x2,0x3 0482 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0483 e00f | | Load 0x0,0xf 0484 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0485 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0486 a402 | | Store_Unchecked 0x2,0x2 0487 e5fe | | Load 0x2,-0x2 0488 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0489 e402 | | Load 0x2,0x2 048a e250 | P | Load 0x1,0x50 048b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 048c 00d1 | | Pop_Control Pop_Count_1 048d 00c8 | | Action Pop_Auxiliary_Range 048e 3fe7 |? | Loop_Increasing 0x476 048f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0490 TRAP_0460: 0490 0007 | | Action Break_Optional 0491 e20f | | Load 0x1,0xf 0492 e5fe | | Load 0x2,-0x2 0493 017d | } | Execute Record,Structure_Write 0494 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0495 0000 0000 | | .XXX[0x3] 0497 0000 | | 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04a9 | | .CONST 0x04a9 ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0007 | | .CONST 0x0007 ; Number of locals 049b INIT_0498: 049b e255 | U | Load 0x1,0x55 049c 0322 | " | Declare_Variable Record 049d 00d8 | | Load_Top At_Offset_0 049e 1c00 | | Execute_Immediate Run_Utility,0x0 049f 00ec | | Load_Encached Diana_Tree_Cache 04a0 e24e | N | Load 0x1,0x4e 04a1 0322 | " | Declare_Variable Record 04a2 e00f | | Load 0x0,0xf 04a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a5 e00f | | Load 0x0,0xf 04a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04a8 00e3 | | Load_Encached Natural_Cache 04a9 BODY_0498: 04a9 e402 | | Load 0x2,0x2 04aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ab e254 | T | Load 0x1,0x54 04ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04ad 4800 |H | Short_Literal 0x0 04ae e254 | T | Load 0x1,0x54 04af 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 04b0 00d1 | | Pop_Control Pop_Count_1 04b1 00cf | | Action Mark_Auxiliary 04b2 e5ff | | Load 0x2,-0x1 04b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04b4 e250 | P | Load 0x1,0x50 04b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 04b6 4801 |H | Short_Literal 0x1 04b7 0263 | c | Execute Discrete,Above_Bound 04b8 7029 |p) | Jump_Nonzero 0x4e2 04b9 00d8 | | Load_Top At_Offset_0 04ba e5ff | | Load 0x2,-0x1 04bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04bc e250 | P | Load 0x1,0x50 04bd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04be a403 | | Store_Unchecked 0x2,0x3 04bf 00e3 | | Load_Encached Natural_Cache 04c0 e00f | | Load 0x0,0xf 04c1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04c3 e00f | | Load 0x0,0xf 04c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c6 e403 | | Load 0x2,0x3 04c7 e00f | | Load 0x0,0xf 04c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04ca c405 | | Store 0x2,0x5 04cb c406 | | Store 0x2,0x6 04cc c407 | | Store 0x2,0x7 04cd e24e | N | Load 0x1,0x4e 04ce 0322 | " | Declare_Variable Record 04cf e407 | | Load 0x2,0x7 04d0 00d9 | | Load_Top At_Offset_1 04d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04d2 e405 | | Load 0x2,0x5 04d3 00d9 | | Load_Top At_Offset_1 04d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04d5 e406 | | Load 0x2,0x6 04d6 00d9 | | Load_Top At_Offset_1 04d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04d8 e404 | | Load 0x2,0x4 04d9 017d | } | Execute Record,Structure_Write 04da e402 | | Load 0x2,0x2 04db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04dc e404 | | Load 0x2,0x4 04dd e254 | T | Load 0x1,0x54 04de 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04df 00d1 | | Pop_Control Pop_Count_1 04e0 00c8 | | Action Pop_Auxiliary_Range 04e1 3fd7 |? | Loop_Increasing 0x4b9 04e2 00ce | | Action Pop_Auxiliary 04e3 e402 | | Load 0x2,0x2 04e4 e5fe | | Load 0x2,-0x2 04e5 017d | } | Execute Record,Structure_Write 04e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04e7 0000 | | .XXX[0x1] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 00da | | Load_Top At_Offset_2 04ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ed a5fe | | Store_Unchecked 0x2,-0x2 04ee 00da | | Load_Top At_Offset_2 04ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04f0 a5fd | | Store_Unchecked 0x2,-0x3 04f1 00da | | Load_Top At_Offset_2 04f2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04f3 a5fc | | Store_Unchecked 0x2,-0x4 04f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04f5 0000 0000 | | .XXX[0x3] 04f7 0000 | | 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fd | | .CONST 0x04fd ; Address of begin 04f9 051b | | .CONST 0x051b ; Address of exception handler 04fa 0002 | | .CONST 0x0002 ; Number of locals 04fb INIT_04f8: 04fb e24e | N | Load 0x1,0x4e 04fc 0322 | " | Declare_Variable Record 04fd BODY_04f8: 04fd 00db | | Load_Top At_Offset_3 04fe 09e0 | | Execute_Immediate Binary_Scale,-0x20 04ff 00d8 | | Load_Top At_Offset_0 0500 e002 | | Load 0x0,0x2 0501 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0502 0260 | ` | Execute Discrete,In_Type 0503 7001 |p | Jump_Nonzero 0x505 0504 0801 | | Execute_Immediate Raise,0x1 0505 00d9 | | Load_Top At_Offset_1 0506 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0507 00db | | Load_Top At_Offset_3 0508 6017 |` | Indirect_Literal Discrete,0x520,{0x00000000, 0xffffffff} 0509 0279 | y | Execute Discrete,And 050a 00d8 | | Load_Top At_Offset_0 050b 00e3 | | Load_Encached Natural_Cache 050c 0260 | ` | Execute Discrete,In_Type 050d 7001 |p | Jump_Nonzero 0x50f 050e 0801 | | Execute_Immediate Raise,0x1 050f 00d9 | | Load_Top At_Offset_1 0510 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0511 e5fe | | Load 0x2,-0x2 0512 00d8 | | Load_Top At_Offset_0 0513 00e4 | | Load_Encached Positive_Cache 0514 0260 | ` | Execute Discrete,In_Type 0515 7001 |p | Jump_Nonzero 0x517 0516 0801 | | Execute_Immediate Raise,0x1 0517 00d9 | | Load_Top At_Offset_1 0518 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0519 00d8 | | Load_Top At_Offset_0 051a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 051b TRAP_04f8: 051b 0007 | | Action Break_Optional 051c e212 | | Load 0x1,0x12 051d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 051e 0000 0000 | | .XXX[0x2] 0520 0000 0000 | | .LITERAL {0x00000000, 0xffffffff} 0524 0000 0000 | | .BLANK 0000[0x4] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b 00da | | Load_Top At_Offset_2 052c 821f | | Call 0x1,0x1f 052d 8010 | | Call 0x0,0x10 052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052f 0000 | | .XXX[0x1] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 053b | ; | .CONST 0x053b ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0004 | | .CONST 0x0004 ; Number of locals 0533 INIT_0530: 0533 00da | | Load_Top At_Offset_2 0534 822b | + | Call 0x1,0x2b 0535 00e3 | | Load_Encached Natural_Cache 0536 03f1 | | Declare_Variable Discrete,With_Value 0537 00e3 | | Load_Encached Natural_Cache 0538 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0539 029f 079b | | Declare_Subprogram INIT_0798,For_Call 053b BODY_0530: 053b 8404 | | Call 0x2,0x4 053c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053d 0000 0000 | | .XXX[0x3] 053f 0000 | | 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0548 | H | .CONST 0x0548 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0004 | | .CONST 0x0004 ; Number of locals 0543 INIT_0540: 0543 00e3 | | Load_Encached Natural_Cache 0544 00e3 | | Load_Encached Natural_Cache 0545 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0546 029f 07c3 | | Declare_Subprogram INIT_07c0,For_Call 0548 BODY_0540: 0548 e5ff | | Load 0x2,-0x1 0549 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 054a e254 | T | Load 0x1,0x54 054b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 054c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 054d 8404 | | Call 0x2,0x4 054e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 054f 0000 | | .XXX[0x1] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 0092 0843 | C| Action Push_String_Extended,0x843 ; "{M:" 0555 00db | | Load_Top At_Offset_3 0556 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0557 00e0 | | Load_Encached Standard_Cache 0558 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0559 01cc | | Execute Vector,Catenate 055a 0092 0844 | D| Action Push_String_Extended,0x844 ; " I:" 055c 01cc | | Execute Vector,Catenate 055d 00db | | Load_Top At_Offset_3 055e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055f 00e0 | | Load_Encached Standard_Cache 0560 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0561 01cc | | Execute Vector,Catenate 0562 0092 0845 | E| Action Push_String_Extended,0x845 ; " Pos:" 0564 01cc | | Execute Vector,Catenate 0565 00db | | Load_Top At_Offset_3 0566 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0567 00e0 | | Load_Encached Standard_Cache 0568 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0569 01cc | | Execute Vector,Catenate 056a 0092 0846 | F| Action Push_String_Extended,0x846 ; "}" 056c 01cc | | Execute Vector,Catenate 056d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056e 0000 0000 | | .XXX[0x2] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 48d9 |H | Short_Literal 0xd9 0574 00ca | | Action Exit_Nullary_Function 0575 0000 0000 | | .XXX[0x3] 0577 0000 | | 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b 4822 |H" | Short_Literal 0x22 057c 4822 |H" | Short_Literal 0x22 057d 4820 |H | Short_Literal 0x20 057e 4800 |H | Short_Literal 0x0 057f 4810 |H | Short_Literal 0x10 0580 e5ff | | Load 0x2,-0x1 0581 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0582 e00a | | Load 0x0,0xa 0583 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0584 01ca | | Execute Vector,Prepend 0585 0092 0847 | G| Action Push_String_Extended,0x847 ; " " 0587 01cc | | Execute Vector,Catenate 0588 4820 |H | Short_Literal 0x20 0589 4800 |H | Short_Literal 0x0 058a 4810 |H | Short_Literal 0x10 058b e5ff | | Load 0x2,-0x1 058c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 058d e00a | | Load 0x0,0xa 058e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 058f 01cc | | Execute Vector,Catenate 0590 0092 0847 | G| Action Push_String_Extended,0x847 ; " " 0592 01cc | | Execute Vector,Catenate 0593 4820 |H | Short_Literal 0x20 0594 4800 |H | Short_Literal 0x0 0595 4810 |H | Short_Literal 0x10 0596 e5ff | | Load 0x2,-0x1 0597 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0598 e00a | | Load 0x0,0xa 0599 1816 | | Execute Package,Field_Execute,Field_Number 0x16 059a 01cc | | Execute Vector,Catenate 059b 01cb | | Execute Vector,Append 059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059d 0000 0000 | | .XXX[0x3] 059f 0000 | | 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a8 | | .CONST 0x05a8 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0004 | | .CONST 0x0004 ; Number of locals 05a3 INIT_05a0: 05a3 00e3 | | Load_Encached Natural_Cache 05a4 00e3 | | Load_Encached Natural_Cache 05a5 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 05a6 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call 05a8 BODY_05a0: 05a8 e5ff | | Load 0x2,-0x1 05a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05aa e254 | T | Load 0x1,0x54 05ab 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05ac 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05ad 4822 |H" | Short_Literal 0x22 05ae 4822 |H" | Short_Literal 0x22 05af 8404 | | Call 0x2,0x4 05b0 01ca | | Execute Vector,Prepend 05b1 01cb | | Execute Vector,Append 05b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b3 0000 0000 | | .BLANK 0000[0x5] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 4820 |H | Short_Literal 0x20 05bc 4800 |H | Short_Literal 0x0 05bd 4810 |H | Short_Literal 0x10 05be e5ff | | Load 0x2,-0x1 05bf e00a | | Load 0x0,0xa 05c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c2 0000 0000 | | .BLANK 0000[0x6] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05e3 | | .CONST 0x05e3 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0006 | | .CONST 0x0006 ; Number of locals 05cb INIT_05c8: 05cb 00da | | Load_Top At_Offset_2 05cc 01db | | Execute Vector,Length 05cd 00e3 | | Load_Encached Natural_Cache 05ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 05cf 00d8 | | Load_Top At_Offset_0 05d0 0a01 | | Execute_Immediate Plus,0x1 05d1 e011 | | Load 0x0,0x11 05d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d3 1c08 | | Execute_Immediate Run_Utility,0x8 05d4 00d8 | | Load_Top At_Offset_0 05d5 1c00 | | Execute_Immediate Run_Utility,0x0 05d6 4808 |H | Short_Literal 0x8 05d7 e012 | | Load 0x0,0x12 05d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05d9 1c08 | | Execute_Immediate Run_Utility,0x8 05da 00d8 | | Load_Top At_Offset_0 05db 1c00 | | Execute_Immediate Run_Utility,0x0 05dc e24e | N | Load 0x1,0x4e 05dd 0322 | " | Declare_Variable Record 05de e212 | | Load 0x1,0x12 05df 00d9 | | Load_Top At_Offset_1 05e0 017d | } | Execute Record,Structure_Write 05e1 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 05e3 BODY_05c8: 05e3 e402 | | Load 0x2,0x2 05e4 7002 |p | Jump_Nonzero 0x5e7 05e5 00d9 | | Load_Top At_Offset_1 05e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e7 00db | | Load_Top At_Offset_3 05e8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05e9 e5ff | | Load 0x2,-0x1 05ea e012 | | Load 0x0,0x12 05eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05ec 00d1 | | Pop_Control Pop_Count_1 05ed 4801 |H | Short_Literal 0x1 05ee e403 | | Load 0x2,0x3 05ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05f0 e012 | | Load 0x0,0x12 05f1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05f2 0f22 | " | Execute_Immediate Equal,0x22 05f3 6807 |h | Jump_Zero 0x5fb 05f4 00db | | Load_Top At_Offset_3 05f5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05f6 4801 |H | Short_Literal 0x1 05f7 4801 |H | Short_Literal 0x1 05f8 e012 | | Load 0x0,0x12 05f9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05fa 00d1 | | Pop_Control Pop_Count_1 05fb 00db | | Load_Top At_Offset_3 05fc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 05fd e012 | | Load 0x0,0x12 05fe 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05ff a402 | | Store_Unchecked 0x2,0x2 0600 e402 | | Load 0x2,0x2 0601 7002 |p | Jump_Nonzero 0x604 0602 00d9 | | Load_Top At_Offset_1 0603 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0604 e402 | | Load 0x2,0x2 0605 00d8 | | Load_Top At_Offset_0 0606 00e4 | | Load_Encached Positive_Cache 0607 0260 | ` | Execute Discrete,In_Type 0608 7001 |p | Jump_Nonzero 0x60a 0609 0801 | | Execute_Immediate Raise,0x1 060a e403 | | Load 0x2,0x3 060b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 060c e012 | | Load 0x0,0x12 060d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 060e 0f22 | " | Execute_Immediate Equal,0x22 060f 680f |h | Jump_Zero 0x61f 0610 00db | | Load_Top At_Offset_3 0611 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0612 4801 |H | Short_Literal 0x1 0613 e402 | | Load 0x2,0x2 0614 00d8 | | Load_Top At_Offset_0 0615 00e4 | | Load_Encached Positive_Cache 0616 0260 | ` | Execute Discrete,In_Type 0617 7001 |p | Jump_Nonzero 0x619 0618 0801 | | Execute_Immediate Raise,0x1 0619 e012 | | Load 0x0,0x12 061a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 061b 00d1 | | Pop_Control Pop_Count_1 061c e402 | | Load 0x2,0x2 061d 0aff | | Execute_Immediate Plus,-0x1 061e c402 | | Store 0x2,0x2 061f e402 | | Load 0x2,0x2 0620 7002 |p | Jump_Nonzero 0x623 0621 00d9 | | Load_Top At_Offset_1 0622 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0623 00da | | Load_Top At_Offset_2 0624 e403 | | Load 0x2,0x3 0625 e011 | | Load 0x0,0x11 0626 180f | | Execute Package,Field_Execute,Field_Number 0xf 0627 00d2 | | Pop_Control Pop_Count_2 0628 00da | | Load_Top At_Offset_2 0629 e012 | | Load 0x0,0x12 062a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 062b 8406 | | Call 0x2,0x6 062c 00da | | Load_Top At_Offset_2 062d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 062e 00da | | Load_Top At_Offset_2 062f e403 | | Load 0x2,0x3 0630 e011 | | Load 0x0,0x11 0631 180f | | Execute Package,Field_Execute,Field_Number 0xf 0632 00d2 | | Pop_Control Pop_Count_2 0633 00da | | Load_Top At_Offset_2 0634 e012 | | Load 0x0,0x12 0635 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0636 8406 | | Call 0x2,0x6 0637 00d8 | | Load_Top At_Offset_0 0638 e002 | | Load 0x0,0x2 0639 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063a 0260 | ` | Execute Discrete,In_Type 063b 7001 |p | Jump_Nonzero 0x63d 063c 0801 | | Execute_Immediate Raise,0x1 063d 00da | | Load_Top At_Offset_2 063e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 063f 00da | | Load_Top At_Offset_2 0640 e403 | | Load 0x2,0x3 0641 e011 | | Load 0x0,0x11 0642 180f | | Execute Package,Field_Execute,Field_Number 0xf 0643 00d2 | | Pop_Control Pop_Count_2 0644 00da | | Load_Top At_Offset_2 0645 e012 | | Load 0x0,0x12 0646 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0647 8406 | | Call 0x2,0x6 0648 00da | | Load_Top At_Offset_2 0649 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 064a 00d9 | | Load_Top At_Offset_1 064b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064c 0000 0000 | | .BLANK 0000[0x4] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 066f | o | .CONST 0x066f ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0007 | | .CONST 0x0007 ; Number of locals 0653 INIT_0650: 0653 00da | | Load_Top At_Offset_2 0654 01db | | Execute Vector,Length 0655 00e3 | | Load_Encached Natural_Cache 0656 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0657 00d8 | | Load_Top At_Offset_0 0658 0a01 | | Execute_Immediate Plus,0x1 0659 e011 | | Load 0x0,0x11 065a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 065b 1c08 | | Execute_Immediate Run_Utility,0x8 065c 00d8 | | Load_Top At_Offset_0 065d 1c00 | | Execute_Immediate Run_Utility,0x0 065e 4818 |H | Short_Literal 0x18 065f e012 | | Load 0x0,0x12 0660 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0661 1c08 | | Execute_Immediate Run_Utility,0x8 0662 00d8 | | Load_Top At_Offset_0 0663 1c00 | | Execute_Immediate Run_Utility,0x0 0664 e255 | U | Load 0x1,0x55 0665 0322 | " | Declare_Variable Record 0666 00d8 | | Load_Top At_Offset_0 0667 1c01 | | Execute_Immediate Run_Utility,0x1 0668 825b | [ | Call 0x1,0x5b 0669 00d9 | | Load_Top At_Offset_1 066a 017d | } | Execute Record,Structure_Write 066b e24e | N | Load 0x1,0x4e 066c 0322 | " | Declare_Variable Record 066d 00e8 | | Load_Encached Character_Cache 066e 0622 | " | Execute_Immediate Set_Value_Unchecked,0x22 066f BODY_0650: 066f e402 | | Load 0x2,0x2 0670 7002 |p | Jump_Nonzero 0x673 0671 00da | | Load_Top At_Offset_2 0672 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0673 e403 | | Load 0x2,0x3 0674 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0675 e5ff | | Load 0x2,-0x1 0676 e012 | | Load 0x0,0x12 0677 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0678 00d1 | | Pop_Control Pop_Count_1 0679 4801 |H | Short_Literal 0x1 067a e403 | | Load 0x2,0x3 067b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 067c e012 | | Load 0x0,0x12 067d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 067e 00d9 | | Load_Top At_Offset_1 067f 027f | | Execute Discrete,Equal 0680 6807 |h | Jump_Zero 0x688 0681 e403 | | Load 0x2,0x3 0682 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0683 4801 |H | Short_Literal 0x1 0684 4801 |H | Short_Literal 0x1 0685 e012 | | Load 0x0,0x12 0686 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0687 00d1 | | Pop_Control Pop_Count_1 0688 e403 | | Load 0x2,0x3 0689 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 068a e012 | | Load 0x0,0x12 068b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 068c a402 | | Store_Unchecked 0x2,0x2 068d e402 | | Load 0x2,0x2 068e 7002 |p | Jump_Nonzero 0x691 068f 00da | | Load_Top At_Offset_2 0690 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0691 e402 | | Load 0x2,0x2 0692 00d8 | | Load_Top At_Offset_0 0693 00e4 | | Load_Encached Positive_Cache 0694 0260 | ` | Execute Discrete,In_Type 0695 7001 |p | Jump_Nonzero 0x697 0696 0801 | | Execute_Immediate Raise,0x1 0697 e403 | | Load 0x2,0x3 0698 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0699 e012 | | Load 0x0,0x12 069a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 069b 00d9 | | Load_Top At_Offset_1 069c 027f | | Execute Discrete,Equal 069d 680f |h | Jump_Zero 0x6ad 069e e403 | | Load 0x2,0x3 069f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06a0 4801 |H | Short_Literal 0x1 06a1 e402 | | Load 0x2,0x2 06a2 00d8 | | Load_Top At_Offset_0 06a3 00e4 | | Load_Encached Positive_Cache 06a4 0260 | ` | Execute Discrete,In_Type 06a5 7001 |p | Jump_Nonzero 0x6a7 06a6 0801 | | Execute_Immediate Raise,0x1 06a7 e012 | | Load 0x0,0x12 06a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06a9 00d1 | | Pop_Control Pop_Count_1 06aa e402 | | Load 0x2,0x2 06ab 0aff | | Execute_Immediate Plus,-0x1 06ac c402 | | Store 0x2,0x2 06ad e402 | | Load 0x2,0x2 06ae 7002 |p | Jump_Nonzero 0x6b1 06af 00da | | Load_Top At_Offset_2 06b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b1 00cf | | Action Mark_Auxiliary 06b2 e404 | | Load 0x2,0x4 06b3 e403 | | Load 0x2,0x3 06b4 e011 | | Load 0x0,0x11 06b5 180f | | Execute Package,Field_Execute,Field_Number 0xf 06b6 00d2 | | Pop_Control Pop_Count_2 06b7 4801 |H | Short_Literal 0x1 06b8 e404 | | Load 0x2,0x4 06b9 e012 | | Load 0x0,0x12 06ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06bb 00da | | Load_Top At_Offset_2 06bc 027f | | Execute Discrete,Equal 06bd 4801 |H | Short_Literal 0x1 06be e404 | | Load 0x2,0x4 06bf e012 | | Load 0x0,0x12 06c0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06c1 0f3b | ; | Execute_Immediate Equal,0x3b 06c2 0278 | x | Execute Discrete,Or 06c3 700e |p | Jump_Nonzero 0x6d2 06c4 e404 | | Load 0x2,0x4 06c5 e012 | | Load 0x0,0x12 06c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c7 824a | J | Call 0x1,0x4a 06c8 00db | | Load_Top At_Offset_3 06c9 017d | } | Execute Record,Structure_Write 06ca 00db | | Load_Top At_Offset_3 06cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06cc 00db | | Load_Top At_Offset_3 06cd e254 | T | Load 0x1,0x54 06ce 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06cf 00d1 | | Pop_Control Pop_Count_1 06d0 00c9 | | Action Pop_Auxiliary_Loop 06d1 7fe0 | | Jump 0x6b2 06d2 00ce | | Action Pop_Auxiliary 06d3 00da | | Load_Top At_Offset_2 06d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d5 0000 0000 | | .XXX[0x3] 06d7 0000 | | 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06dd | | .CONST 0x06dd ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0003 | | .CONST 0x0003 ; Number of locals 06db INIT_06d8: 06db 00e2 | | Load_Encached Integer_Cache 06dc 00e1 | | Load_Encached Boolean_Cache 06dd BODY_06d8: 06dd 00e1 | | Load_Encached Boolean_Cache 06de 00e2 | | Load_Encached Integer_Cache 06df 4810 |H | Short_Literal 0x10 06e0 e5ff | | Load 0x2,-0x1 06e1 e00a | | Load 0x0,0xa 06e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06e3 005b | [ | Store_Top Discrete,At_Offset_3 06e4 0059 | Y | Store_Top Discrete,At_Offset_1 06e5 00d8 | | Load_Top At_Offset_0 06e6 6802 |h | Jump_Zero 0x6e9 06e7 00d9 | | Load_Top At_Offset_1 06e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e9 e24d | M | Load 0x1,0x4d 06ea 0257 | W | Execute Discrete,Raise 06eb 0000 0000 | | .BLANK 0000[0x5] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f5 | | .CONST 0x06f5 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0002 | | .CONST 0x0002 ; Number of locals 06f3 INIT_06f0: 06f3 e00c | | Load 0x0,0xc 06f4 0322 | " | Declare_Variable Record 06f5 BODY_06f0: 06f5 00d8 | | Load_Top At_Offset_0 06f6 e5ff | | Load 0x2,-0x1 06f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06f8 e5ff | | Load 0x2,-0x1 06f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06fa e5ff | | Load 0x2,-0x1 06fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06fc 8013 | | Call 0x0,0x13 06fd 00d1 | | Pop_Control Pop_Count_1 06fe 00d8 | | Load_Top At_Offset_0 06ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 070b | | .CONST 0x070b ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0006 | | .CONST 0x0006 ; Number of locals 0703 INIT_0700: 0703 00da | | Load_Top At_Offset_2 0704 01dc | | Execute Vector,Last 0705 00e3 | | Load_Encached Natural_Cache 0706 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0707 00e8 | | Load_Encached Character_Cache 0708 00e2 | | Load_Encached Integer_Cache 0709 00e1 | | Load_Encached Boolean_Cache 070a 00e2 | | Load_Encached Integer_Cache 070b BODY_0700: 070b 4800 |H | Short_Literal 0x0 070c a5fe | | Store_Unchecked 0x2,-0x2 070d e5ff | | Load 0x2,-0x1 070e 01db | | Execute Vector,Length 070f 7003 |p | Jump_Nonzero 0x713 0710 4800 |H | Short_Literal 0x0 0711 a5fd | | Store_Unchecked 0x2,-0x3 0712 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0713 4800 |H | Short_Literal 0x0 0714 e257 | W | Load 0x1,0x57 0715 e5ff | | Load 0x2,-0x1 0716 e00a | | Load 0x0,0xa 0717 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0718 6805 |h | Jump_Zero 0x71e 0719 4801 |H | Short_Literal 0x1 071a a5fd | | Store_Unchecked 0x2,-0x3 071b 822a | * | Call 0x1,0x2a 071c a5fe | | Store_Unchecked 0x2,-0x2 071d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 071e e402 | | Load 0x2,0x2 071f e5ff | | Load 0x2,-0x1 0720 01d7 | | Execute Vector,Field_Read 0721 e00a | | Load 0x0,0xa 0722 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0723 a403 | | Store_Unchecked 0x2,0x3 0724 00db | | Load_Top At_Offset_3 0725 0f44 | D | Execute_Immediate Equal,0x44 0726 6806 |h | Jump_Zero 0x72d 0727 e402 | | Load 0x2,0x2 0728 0aff | | Execute_Immediate Plus,-0x1 0729 c402 | | Store 0x2,0x2 072a 4fff |O | Short_Literal -0x1 072b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 072c 780b |x | Jump 0x738 072d 00db | | Load_Top At_Offset_3 072e 0f53 | S | Execute_Immediate Equal,0x53 072f 6806 |h | Jump_Zero 0x736 0730 e402 | | Load 0x2,0x2 0731 0aff | | Execute_Immediate Plus,-0x1 0732 c402 | | Store 0x2,0x2 0733 4801 |H | Short_Literal 0x1 0734 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0735 7802 |x | Jump 0x738 0736 4801 |H | Short_Literal 0x1 0737 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0738 e402 | | Load 0x2,0x2 0739 e5ff | | Load 0x2,-0x1 073a 01dd | | Execute Vector,First 073b 027c | | | Execute Discrete,Less 073c 6803 |h | Jump_Zero 0x740 073d 4800 |H | Short_Literal 0x0 073e a5fd | | Store_Unchecked 0x2,-0x3 073f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0740 00e1 | | Load_Encached Boolean_Cache 0741 00e2 | | Load_Encached Integer_Cache 0742 480a |H | Short_Literal 0xa 0743 e5ff | | Load 0x2,-0x1 0744 01dd | | Execute Vector,First 0745 e402 | | Load 0x2,0x2 0746 e5ff | | Load 0x2,-0x1 0747 01cf | | Execute Vector,Slice_Read 0748 e00a | | Load 0x0,0xa 0749 1818 | | Execute Package,Field_Execute,Field_Number 0x18 074a 005a | Z | Store_Top Discrete,At_Offset_2 074b 005a | Z | Store_Top Discrete,At_Offset_2 074c 00d9 | | Load_Top At_Offset_1 074d 6803 |h | Jump_Zero 0x751 074e 00d8 | | Load_Top At_Offset_0 074f 0d01 | | Execute_Immediate Less,0x1 0750 6803 |h | Jump_Zero 0x754 0751 4800 |H | Short_Literal 0x0 0752 a5fd | | Store_Unchecked 0x2,-0x3 0753 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0754 00da | | Load_Top At_Offset_2 0755 00d9 | | Load_Top At_Offset_1 0756 0271 | q | Execute Discrete,Times 0757 00d8 | | Load_Top At_Offset_0 0758 e20e | | Load 0x1,0xe 0759 0260 | ` | Execute Discrete,In_Type 075a 7001 |p | Jump_Nonzero 0x75c 075b 0801 | | Execute_Immediate Raise,0x1 075c a5fe | | Store_Unchecked 0x2,-0x2 075d 4801 |H | Short_Literal 0x1 075e a5fd | | Store_Unchecked 0x2,-0x3 075f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0767 | g | .CONST 0x0767 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0002 | | .CONST 0x0002 ; Number of locals 0763 INIT_0760: 0763 00da | | Load_Top At_Offset_2 0764 822b | + | Call 0x1,0x2b 0765 00e3 | | Load_Encached Natural_Cache 0766 03f1 | | Declare_Variable Discrete,With_Value 0767 BODY_0760: 0767 e5fe | | Load 0x2,-0x2 0768 00d9 | | Load_Top At_Offset_1 0769 027d | } | Execute Discrete,Greater 076a 6802 |h | Jump_Zero 0x76d 076b e244 | D | Load 0x1,0x44 076c 0257 | W | Execute Discrete,Raise 076d 00d8 | | Load_Top At_Offset_0 076e e5fe | | Load 0x2,-0x2 076f 0272 | r | Execute Discrete,Minus 0770 0a01 | | Execute_Immediate Plus,0x1 0771 00d8 | | Load_Top At_Offset_0 0772 00e4 | | Load_Encached Positive_Cache 0773 0260 | ` | Execute Discrete,In_Type 0774 7001 |p | Jump_Nonzero 0x776 0775 0801 | | Execute_Immediate Raise,0x1 0776 e5ff | | Load 0x2,-0x1 0777 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0778 e250 | P | Load 0x1,0x50 0779 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 077a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 077b 0000 0000 | | .BLANK 0000[0x5] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0787 | | .CONST 0x0787 ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0002 | | .CONST 0x0002 ; Number of locals 0783 INIT_0780: 0783 e255 | U | Load 0x1,0x55 0784 0322 | " | Declare_Variable Record 0785 00d8 | | Load_Top At_Offset_0 0786 1c00 | | Execute_Immediate Run_Utility,0x0 0787 BODY_0780: 0787 00d8 | | Load_Top At_Offset_0 0788 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0789 e254 | T | Load 0x1,0x54 078a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 078b 4800 |H | Short_Literal 0x0 078c e254 | T | Load 0x1,0x54 078d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 078e 00d1 | | Pop_Control Pop_Count_1 078f 00d8 | | Load_Top At_Offset_0 0790 00ca | | Action Exit_Nullary_Function 0791 0000 0000 | | .BLANK 0000[0x7] 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b e403 | | Load 0x2,0x3 079c e402 | | Load 0x2,0x2 079d 027f | | Execute Discrete,Equal 079e 680a |h | Jump_Zero 0x7a9 079f e403 | | Load 0x2,0x3 07a0 00d8 | | Load_Top At_Offset_0 07a1 00e4 | | Load_Encached Positive_Cache 07a2 0260 | ` | Execute Discrete,In_Type 07a3 7001 |p | Jump_Nonzero 0x7a5 07a4 0801 | | Execute_Immediate Raise,0x1 07a5 e5ff | | Load 0x2,-0x1 07a6 822e | . | Call 0x1,0x2e 07a7 8010 | | Call 0x0,0x10 07a8 00ca | | Action Exit_Nullary_Function 07a9 e403 | | Load 0x2,0x3 07aa e402 | | Load 0x2,0x2 07ab 027c | | | Execute Discrete,Less 07ac 6810 |h | Jump_Zero 0x7bd 07ad e403 | | Load 0x2,0x3 07ae 0a01 | | Execute_Immediate Plus,0x1 07af c403 | | Store 0x2,0x3 07b0 e403 | | Load 0x2,0x3 07b1 0aff | | Execute_Immediate Plus,-0x1 07b2 00d8 | | Load_Top At_Offset_0 07b3 00e4 | | Load_Encached Positive_Cache 07b4 0260 | ` | Execute Discrete,In_Type 07b5 7001 |p | Jump_Nonzero 0x7b7 07b6 0801 | | Execute_Immediate Raise,0x1 07b7 e5ff | | Load 0x2,-0x1 07b8 822e | . | Call 0x1,0x2e 07b9 8010 | | Call 0x0,0x10 07ba 8404 | | Call 0x2,0x4 07bb 01cc | | Execute Vector,Catenate 07bc 00ca | | Action Exit_Nullary_Function 07bd 00ea | | Load_Encached Null_String_Cache 07be 00ca | | Action Exit_Nullary_Function 07bf 0000 | | .XXX[0x1] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c3 | | .CONST 0x07c3 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0001 | | .CONST 0x0001 ; Number of locals 07c3 BODY_07c0: 07c3 INIT_07c0: 07c3 e403 | | Load 0x2,0x3 07c4 e402 | | Load 0x2,0x2 07c5 027d | } | Execute Discrete,Greater 07c6 6802 |h | Jump_Zero 0x7c9 07c7 00ea | | Load_Encached Null_String_Cache 07c8 00ca | | Action Exit_Nullary_Function 07c9 e403 | | Load 0x2,0x3 07ca 0a01 | | Execute_Immediate Plus,0x1 07cb c403 | | Store 0x2,0x3 07cc e403 | | Load 0x2,0x3 07cd 0aff | | Execute_Immediate Plus,-0x1 07ce 00d8 | | Load_Top At_Offset_0 07cf 00e4 | | Load_Encached Positive_Cache 07d0 0260 | ` | Execute Discrete,In_Type 07d1 7001 |p | Jump_Nonzero 0x7d3 07d2 0801 | | Execute_Immediate Raise,0x1 07d3 e5ff | | Load 0x2,-0x1 07d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07d5 e254 | T | Load 0x1,0x54 07d6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 07d7 8240 | @ | Call 0x1,0x40 07d8 8404 | | Call 0x2,0x4 07d9 01cc | | Execute Vector,Catenate 07da 00ca | | Action Exit_Nullary_Function 07db 0000 0000 | | .BLANK 0000[0x5] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e3 | | .CONST 0x07e3 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0001 | | .CONST 0x0001 ; Number of locals 07e3 BODY_07e0: 07e3 INIT_07e0: 07e3 e403 | | Load 0x2,0x3 07e4 e402 | | Load 0x2,0x2 07e5 027d | } | Execute Discrete,Greater 07e6 6802 |h | Jump_Zero 0x7e9 07e7 00ea | | Load_Encached Null_String_Cache 07e8 00ca | | Action Exit_Nullary_Function 07e9 e403 | | Load 0x2,0x3 07ea 0a01 | | Execute_Immediate Plus,0x1 07eb c403 | | Store 0x2,0x3 07ec e403 | | Load 0x2,0x3 07ed 0aff | | Execute_Immediate Plus,-0x1 07ee 00d8 | | Load_Top At_Offset_0 07ef 00e4 | | Load_Encached Positive_Cache 07f0 0260 | ` | Execute Discrete,In_Type 07f1 7001 |p | Jump_Nonzero 0x7f3 07f2 0801 | | Execute_Immediate Raise,0x1 07f3 e5ff | | Load 0x2,-0x1 07f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07f5 e254 | T | Load 0x1,0x54 07f6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 07f7 8247 | G | Call 0x1,0x47 07f8 0092 0847 | G| Action Push_String_Extended,0x847 ; " " 07fa 01cc | | Execute Vector,Catenate 07fb 8404 | | Call 0x2,0x4 07fc 01cc | | Execute Vector,Catenate 07fd 00ca | | Action Exit_Nullary_Function 07fe 0000 0000 | | .XXX[0x2] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0805 | | .CONST 0x0805 ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0003 | | .CONST 0x0003 ; Number of locals 0803 INIT_0800: 0803 00e2 | | Load_Encached Integer_Cache 0804 00e1 | | Load_Encached Boolean_Cache 0805 BODY_0800: 0805 00e1 | | Load_Encached Boolean_Cache 0806 00e2 | | Load_Encached Integer_Cache 0807 4810 |H | Short_Literal 0x10 0808 e7ff | | Load 0x3,-0x1 0809 e00a | | Load 0x0,0xa 080a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 080b 005b | [ | Store_Top Discrete,At_Offset_3 080c 0059 | Y | Store_Top Discrete,At_Offset_1 080d 00d8 | | Load_Top At_Offset_0 080e 6802 |h | Jump_Zero 0x811 080f 00d9 | | Load_Top At_Offset_1 0810 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0811 e24d | M | Load 0x1,0x4d 0812 0257 | W | Execute Discrete,Raise 0813 0000 0000 | | .BLANK 0000[0x5] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 081b | | .CONST 0x081b ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0001 | | .CONST 0x0001 ; Number of locals 081b BODY_0818: 081b INIT_0818: 081b 4601 |F | Jump_Case 0x2 081c 7801 |x | Jump 0x81e ; case 0x0 081d 7807 |x | Jump 0x825 ; case 0x1 081e 00da | | Load_Top At_Offset_2 081f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0820 0125 | % | Execute Any,Set_Constraint 0821 00da | | Load_Top At_Offset_2 0822 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0823 1c00 | | Execute_Immediate Run_Utility,0x0 0824 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0825 00da | | Load_Top At_Offset_2 0826 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0827 0125 | % | Execute Any,Set_Constraint 0828 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0829 0000 0000 | | .BLANK 0000[0x7] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0833 | 3 | .CONST 0x0833 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0001 | | .CONST 0x0001 ; Number of locals 0833 BODY_0830: 0833 INIT_0830: 0833 4601 |F | Jump_Case 0x2 0834 7801 |x | Jump 0x836 ; case 0x0 0835 7807 |x | Jump 0x83d ; case 0x1 0836 00da | | Load_Top At_Offset_2 0837 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0838 0125 | % | Execute Any,Set_Constraint 0839 00da | | Load_Top At_Offset_2 083a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 083b 1c00 | | Execute_Immediate Run_Utility,0x0 083c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 083d 00da | | Load_Top At_Offset_2 083e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 083f 0125 | % | Execute Any,Set_Constraint 0840 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0841 ; -------------------------------------------------------------------------------------- 0841 ; STRING TABLE 0841 ; -------------------------------------------------------------------------------------- 0841 0010 | | .STRTAB 0x0010->0x0849 ; "END" 0842 0011 | | .STRTAB 0x0011->0x084a ; "NONEXISTENT_PAGE_ERROR" 0843 0025 | % | .STRTAB 0x0025->0x0855 ; "{M:" 0844 0026 | & | .STRTAB 0x0026->0x0857 ; " I:" 0845 0027 | ' | .STRTAB 0x0027->0x0858 ; " Pos:" 0846 002a | * | .STRTAB 0x002a->0x085b ; "}" 0847 0029 | ) | .STRTAB 0x0029->0x085b ; " " 0848 0028 | ( | .STREND 0x0028->0x085c 0849 454e 444e |ENDN| .STRTAB_STRINGS 085c 0000 0000 | | .BLANK 0000[0x4] 0860 ; -------------------------------------------------------------------------------------- 0860 ; Debug Table 0860 ; -------------------------------------------------------------------------------------- 0860 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1298,0x0000,0x0001,0x0000 0866 0000 0000 | | .BLANK 0000[0x4] 086a 8000 0000 | | .XXX[0x9] 086c 0000 0000 | | 086e 004d 7fe5 | M | 0870 0000 0000 | | 0872 8000 | | 0873 0000 0000 | | .BLANK 0000[0x4] 0877 0ff4 0000 | | .XXX[0x4] 0879 0000 8000 | | 087b 0000 0000 | | .BLANK 0000[0x4] 087f 0100 0009 | | .XXX[0x5] 0881 58fd 8000 |X | 0883 014c | L | 0884 0000 0000 | | .BLANK 0000[0x4] 0888 0009 58fd | X | .XXX[0x24] 088a 8800 0480 | | 088c 8000 0000 | | 088e 0000 0000 | | 0890 0009 58fd | X | 0892 8800 0600 | | 0894 8000 0000 | | 0896 0000 0000 | | 0898 0009 58fd | X | 089a 8800 0600 | | 089c 8000 0000 | | 089e 0000 0000 | | 08a0 0001 0804 | | 08a2 8800 0400 | | 08a4 8000 0000 | | 08a6 0000 0000 | | 08a8 0001 0804 | | 08aa 8800 05ec | | 08ac 0000 0000 | | .BLANK 0000[0x4] 08b0 0009 58fd | X | .XXX[0xb4] 08b2 0000 0036 | 6| 08b4 0085 e814 | | 08b6 0000 0eb2 | | 08b8 0009 58fd | X | 08ba 0000 0036 | 6| 08bc 0085 e814 | | 08be 0000 0fb2 | | 08c0 0009 58fd | X | 08c2 0000 0036 | 6| 08c4 0085 e814 | | 08c6 0000 1232 | 2| 08c8 0009 58fd | X | 08ca 0000 0036 | 6| 08cc 0085 e814 | | 08ce 0000 13b2 | | 08d0 0009 58fd | X | 08d2 0000 0036 | 6| 08d4 0085 e814 | | 08d6 0000 1632 | 2| 08d8 0009 58fd | X | 08da 0000 0036 | 6| 08dc 0085 e814 | | 08de 0000 1732 | 2| 08e0 0009 58fd | X | 08e2 0000 0036 | 6| 08e4 0085 e814 | | 08e6 0000 1832 | 2| 08e8 0009 58fd | X | 08ea 0000 0036 | 6| 08ec 0085 e814 | | 08ee 0000 1932 | 2| 08f0 0009 58fd | X | 08f2 0000 0036 | 6| 08f4 0085 e814 | | 08f6 0000 19b2 | | 08f8 0009 58fd | X | 08fa 0000 0036 | 6| 08fc 0085 e814 | | 08fe 0000 1ab2 | | 0900 0009 58fd | X | 0902 0000 0036 | 6| 0904 0085 e814 | | 0906 0000 1bb2 | | 0908 0009 58fd | X | 090a 0000 0036 | 6| 090c 0085 e814 | | 090e 0000 1cb2 | | 0910 0009 58fd | X | 0912 0000 0036 | 6| 0914 0085 e814 | | 0916 0000 1db2 | | 0918 0009 58fd | X | 091a 0000 0036 | 6| 091c 0085 e814 | | 091e 0000 1eb2 | | 0920 0009 58fd | X | 0922 0000 0036 | 6| 0924 0085 e814 | | 0926 0000 2032 | 2| 0928 0009 58fd | X | 092a 0000 0036 | 6| 092c 0085 e814 | | 092e 0000 21b2 | ! | 0930 0009 58fd | X | 0932 0000 0036 | 6| 0934 0085 e814 | | 0936 0000 2332 | #2| 0938 0009 58fd | X | 093a 0000 0036 | 6| 093c 0085 e814 | | 093e 0000 24b2 | $ | 0940 0009 58fd | X | 0942 0000 0036 | 6| 0944 0085 e814 | | 0946 0000 26b2 | & | 0948 0009 58fd | X | 094a 0000 0036 | 6| 094c 0085 e814 | | 094e 0000 2832 | (2| 0950 0009 58fd | X | 0952 0000 0036 | 6| 0954 0085 e814 | | 0956 0000 2a32 | *2| 0958 0009 58fd | X | 095a 0000 0036 | 6| 095c 0085 e814 | | 095e 0000 2c32 | ,2| 0960 0009 58fd | X | 0962 8800 0790 | | 0964 0000 0000 | | .BLANK 0000[0x4] 0968 0006 f804 | | .XXX[0x14] 096a 0000 0032 | 2| 096c 0006 f804 | | 096e 0000 0720 | | 0970 0006 f804 | | 0972 0000 0032 | 2| 0974 0006 f804 | | 0976 0000 06a0 | | 0978 0001 0404 | | 097a 0800 0888 | | 097c 0000 0000 | | .BLANK 0000[0xa] 0986 004c 95a5 | L | .XXX[0x2] 0988 0000 0000 | | .BLANK 0000[0x7] 098f 0048 | H | .XXX[0x1] 0990 0000 0000 | | .BLANK 0000[0x8] 0998 0009 58fd | X | .XXX[0x5] 099a 0800 0480 | | 099c 8000 | | 099d 0000 0000 | | .BLANK 0000[0x9] 09a6 004c 95a5 | L | .XXX[0x2] 09a8 0000 0000 | | .BLANK 0000[0x7] 09af 0054 | T | .XXX[0x1] 09b0 0000 0000 | | .BLANK 0000[0x8] 09b8 0009 58fd | X | .XXX[0x5] 09ba 0800 0600 | | 09bc 8000 | | 09bd 0000 0000 | | .BLANK 0000[0x9] 09c6 004c 95a5 | L | .XXX[0x2] 09c8 0000 0000 | | .BLANK 0000[0x7] 09cf 0060 | ` | .XXX[0x1] 09d0 0000 0000 | | .BLANK 0000[0x8] 09d8 0001 0404 | | .XXX[0x5] 09da 0000 0280 | | 09dc 8000 | | 09dd 0000 0000 | | .BLANK 0000[0x9] 09e6 004c 95a5 | L | .XXX[0x2] 09e8 0000 0000 | | .BLANK 0000[0x7] 09ef 006c | l | .XXX[0x1] 09f0 0000 0000 | | .BLANK 0000[0x8] 09f8 0001 0404 | | .XXX[0x8] 09fa 0000 0700 | | 09fc 8000 0000 | | 09fe 0000 0000 | |