|
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: 19456 (0x4c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 2418 |$ | .CONST 0x2418 ; 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 8016 | | .CONST 0x8016 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 036e | n | .CONST 0x036e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00a9 | | .CONST 0x00a9 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 00c4 | | Action Make_Default 0063 00c4 | | Action Make_Default 0064 00c4 | | Action Make_Default 0065 00c4 | | Action Make_Default 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 00c4 | | Action Make_Default 0069 00c4 | | Action Make_Default 006a 00c4 | | Action Make_Default 006b 00c4 | | Action Make_Default 006c 00c4 | | Action Make_Default 006d 00c4 | | Action Make_Default 006e 00c4 | | Action Make_Default 006f 00c4 | | Action Make_Default 0070 00c4 | | Action Make_Default 0071 00c4 | | Action Make_Default 0072 00c4 | | Action Make_Default 0073 00c4 | | Action Make_Default 0074 00c4 | | Action Make_Default 0075 00c4 | | Action Make_Default 0076 00c4 | | Action Make_Default 0077 00c4 | | Action Make_Default 0078 00c4 | | Action Make_Default 0079 00c4 | | Action Make_Default 007a 00c4 | | Action Make_Default 007b 00c4 | | Action Make_Default 007c 00c4 | | Action Make_Default 007d 00c4 | | Action Make_Default 007e 00c4 | | Action Make_Default 007f 00c4 | | Action Make_Default 0080 00c4 | | Action Make_Default 0081 00c4 | | Action Make_Default 0082 00c4 | | Action Make_Default 0083 00c4 | | Action Make_Default 0084 00c4 | | Action Make_Default 0085 00c4 | | Action Make_Default 0086 00c4 | | Action Make_Default 0087 00c4 | | Action Make_Default 0088 00c4 | | Action Make_Default 0089 00c4 | | Action Make_Default 008a 00c4 | | Action Make_Default 008b 00c4 | | Action Make_Default 008c 00c4 | | Action Make_Default 008d 00c4 | | Action Make_Default 008e 00c4 | | Action Make_Default 008f 00c4 | | Action Make_Default 0090 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0091 c20f | | Store 0x1,0xf 0092 00c4 | | Action Make_Default 0093 00d1 | | Pop_Control Pop_Count_1 0094 e001 | | Load 0x0,0x1 0095 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0096 0129 | ) | Execute Any,Make_Visible 0097 c243 | C | Store 0x1,0x43 0098 4800 |H | Short_Literal 0x0 0099 4810 |H | Short_Literal 0x10 009a 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 009c 03fe | | Declare_Type Discrete,Defined,Visible 009d c26c | l | Store 0x1,0x6c 009e e001 | | Load 0x0,0x1 009f 191c | | Execute Package,Field_Reference,Field_Number 0x1c 00a0 0129 | ) | Execute Any,Make_Visible 00a1 c245 | E | Store 0x1,0x45 00a2 4803 |H | Short_Literal 0x3 00a3 0092 1d26 | &| Action Push_String_Extended,0x1d26 ; "CONNECTION_ERROR" 00a5 8245 | E | Call 0x1,0x45 00a6 e001 | | Load 0x0,0x1 00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a8 011e | | Execute Any,Convert 00a9 0129 | ) | Execute Any,Make_Visible 00aa c26d | m | Store 0x1,0x6d 00ab 4802 |H | Short_Literal 0x2 00ac 0092 1d29 | )| Action Push_String_Extended,0x1d29 ; "ACCESS_ERROR" 00ae 8245 | E | Call 0x1,0x45 00af e001 | | Load 0x0,0x1 00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b1 011e | | Execute Any,Convert 00b2 0129 | ) | Execute Any,Make_Visible 00b3 c247 | G | Store 0x1,0x47 00b4 4802 |H | Short_Literal 0x2 00b5 0092 1d2a | *| Action Push_String_Extended,0x1d2a ; "DEVICE_ERROR" 00b7 8245 | E | Call 0x1,0x45 00b8 e001 | | Load 0x0,0x1 00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ba 011e | | Execute Any,Convert 00bb 0129 | ) | Execute Any,Make_Visible 00bc c248 | H | Store 0x1,0x48 00bd 4802 |H | Short_Literal 0x2 00be 0092 1d2b | +| Action Push_String_Extended,0x1d2b ; "LOCK_ERROR" 00c0 8245 | E | Call 0x1,0x45 00c1 e001 | | Load 0x0,0x1 00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c3 011e | | Execute Any,Convert 00c4 0129 | ) | Execute Any,Make_Visible 00c5 c249 | I | Store 0x1,0x49 00c6 4802 |H | Short_Literal 0x2 00c7 0092 1d2c | ,| Action Push_String_Extended,0x1d2c ; "NAME_ERROR" 00c9 8245 | E | Call 0x1,0x45 00ca e001 | | Load 0x0,0x1 00cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cc 011e | | Execute Any,Convert 00cd 0129 | ) | Execute Any,Make_Visible 00ce c24a | J | Store 0x1,0x4a 00cf 4802 |H | Short_Literal 0x2 00d0 0092 1d2d | -| Action Push_String_Extended,0x1d2d ; "POLICY_ERROR" 00d2 8245 | E | Call 0x1,0x45 00d3 e001 | | Load 0x0,0x1 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 011e | | Execute Any,Convert 00d6 0129 | ) | Execute Any,Make_Visible 00d7 c24b | K | Store 0x1,0x4b 00d8 4802 |H | Short_Literal 0x2 00d9 0092 1d2e | .| Action Push_String_Extended,0x1d2e ; "STATUS_ERROR" 00db 8245 | E | Call 0x1,0x45 00dc e001 | | Load 0x0,0x1 00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00de 011e | | Execute Any,Convert 00df 0129 | ) | Execute Any,Make_Visible 00e0 c24c | L | Store 0x1,0x4c 00e1 4802 |H | Short_Literal 0x2 00e2 0092 1d2f | /| Action Push_String_Extended,0x1d2f ; "STORAGE_ERROR" 00e4 8245 | E | Call 0x1,0x45 00e5 e001 | | Load 0x0,0x1 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 011e | | Execute Any,Convert 00e8 0129 | ) | Execute Any,Make_Visible 00e9 c24d | M | Store 0x1,0x4d 00ea 4802 |H | Short_Literal 0x2 00eb 0092 1d30 | 0| Action Push_String_Extended,0x1d30 ; "UNSUPPORTED" 00ed 8245 | E | Call 0x1,0x45 00ee e001 | | Load 0x0,0x1 00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f0 011e | | Execute Any,Convert 00f1 0129 | ) | Execute Any,Make_Visible 00f2 c24e | N | Store 0x1,0x4e 00f3 4802 |H | Short_Literal 0x2 00f4 0092 1d31 | 1| Action Push_String_Extended,0x1d31 ; "USE_ERROR" 00f6 8245 | E | Call 0x1,0x45 00f7 e001 | | Load 0x0,0x1 00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f9 011e | | Execute Any,Convert 00fa 0129 | ) | Execute Any,Make_Visible 00fb c24f | O | Store 0x1,0x4f 00fc 4802 |H | Short_Literal 0x2 00fd 0092 1d32 | 2| Action Push_String_Extended,0x1d32 ; "COMMAND_ERROR" 00ff 8245 | E | Call 0x1,0x45 0100 e001 | | Load 0x0,0x1 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 011e | | Execute Any,Convert 0103 0129 | ) | Execute Any,Make_Visible 0104 c250 | P | Store 0x1,0x50 0105 4802 |H | Short_Literal 0x2 0106 0092 1d33 | 3| Action Push_String_Extended,0x1d33 ; "COMMAND_TERMINATED" 0108 8245 | E | Call 0x1,0x45 0109 e001 | | Load 0x0,0x1 010a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010b 011e | | Execute Any,Convert 010c 0129 | ) | Execute Any,Make_Visible 010d c251 | Q | Store 0x1,0x51 010e 4802 |H | Short_Literal 0x2 010f 0092 1d34 | 4| Action Push_String_Extended,0x1d34 ; "COMMAND_TIMED_OUT" 0111 8245 | E | Call 0x1,0x45 0112 e001 | | Load 0x0,0x1 0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0114 011e | | Execute Any,Convert 0115 0129 | ) | Execute Any,Make_Visible 0116 c252 | R | Store 0x1,0x52 0117 4802 |H | Short_Literal 0x2 0118 0092 1d35 | 5| Action Push_String_Extended,0x1d35 ; "RESOURCE_LIMIT" 011a 8245 | E | Call 0x1,0x45 011b e001 | | Load 0x0,0x1 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 011e | | Execute Any,Convert 011e 0129 | ) | Execute Any,Make_Visible 011f c254 | T | Store 0x1,0x54 0120 4802 |H | Short_Literal 0x2 0121 0092 1d27 | '| Action Push_String_Extended,0x1d27 ; "INTERNAL_ERROR" 0123 8245 | E | Call 0x1,0x45 0124 e001 | | Load 0x0,0x1 0125 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0126 011e | | Execute Any,Convert 0127 0129 | ) | Execute Any,Make_Visible 0128 c255 | U | Store 0x1,0x55 0129 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 012b c269 | i | Store 0x1,0x69 012c 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 012e c285 | | Store 0x1,0x85 012f 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 0131 c283 | | Store 0x1,0x83 0132 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0134 c258 | X | Store 0x1,0x58 0135 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 0137 c259 | Y | Store 0x1,0x59 0138 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 013a c25a | Z | Store 0x1,0x5a 013b 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 013d c25b | [ | Store 0x1,0x5b 013e 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0140 c25c | \ | Store 0x1,0x5c 0141 4800 |H | Short_Literal 0x0 0142 48ff |H | Short_Literal 0xff 0143 00e5 | | Load_Encached Long_Integer_Cache 0144 03f9 | | Declare_Type Discrete,Constrained,Visible 0145 c28c | | Store 0x1,0x8c 0146 4801 |H | Short_Literal 0x1 0147 4802 |H | Short_Literal 0x2 0148 e28c | | Load 0x1,0x8c 0149 02a0 | | Declare_Subprogram Null_Subprogram 014a 4801 |H | Short_Literal 0x1 014b 035e | ^ | Declare_Type Array,Defined,Visible 014c c28d | | Store 0x1,0x8d 014d e28d | | Load 0x1,0x8d 014e 0337 | 7 | Declare_Variable Array 014f 4800 |H | Short_Literal 0x0 0150 4801 |H | Short_Literal 0x1 0151 00da | | Load_Top At_Offset_2 0152 01d6 | | Execute Vector,Field_Write 0153 4800 |H | Short_Literal 0x0 0154 4802 |H | Short_Literal 0x2 0155 00da | | Load_Top At_Offset_2 0156 01d6 | | Execute Vector,Field_Write 0157 e28d | | Load 0x1,0x8d 0158 01c3 | | Execute Vector,Check_In_Type 0159 0129 | ) | Execute Any,Make_Visible 015a c28e | | Store 0x1,0x8e 015b 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 015d c28f | | Store 0x1,0x8f 015e 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 0160 c290 | | Store 0x1,0x90 0161 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated 0163 c275 | u | Store 0x1,0x75 0164 4800 |H | Short_Literal 0x0 0165 48ff |H | Short_Literal 0xff 0166 00e3 | | Load_Encached Natural_Cache 0167 03f9 | | Declare_Type Discrete,Constrained,Visible 0168 c286 | | Store 0x1,0x86 0169 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 016b c291 | | Store 0x1,0x91 016c 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 016e c287 | | Store 0x1,0x87 016f 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated 0171 c278 | x | Store 0x1,0x78 0172 029a 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Visible,Unelaborated 0174 c279 | y | Store 0x1,0x79 0175 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated 0177 c27a | z | Store 0x1,0x7a 0178 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 017a c27b | { | Store 0x1,0x7b 017b 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated 017d c27c | | | Store 0x1,0x7c 017e 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated 0180 c27d | } | Store 0x1,0x7d 0181 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 0183 c27e | ~ | Store 0x1,0x7e 0184 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated 0186 c26f | o | Store 0x1,0x6f 0187 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated 0189 c27f | | Store 0x1,0x7f 018a 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated 018c c284 | | Store 0x1,0x84 018d 029a 08fb | | Declare_Subprogram INIT_08f8,For_Outer_Call,Visible,Unelaborated 018f c281 | | Store 0x1,0x81 0190 029a 096b | k| Declare_Subprogram INIT_0968,For_Outer_Call,Visible,Unelaborated 0192 c282 | | Store 0x1,0x82 0193 029a 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call,Visible,Unelaborated 0195 c270 | p | Store 0x1,0x70 0196 029a 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call,Visible,Unelaborated 0198 c271 | q | Store 0x1,0x71 0199 4800 |H | Short_Literal 0x0 019a 4802 |H | Short_Literal 0x2 019b 029f 0a63 | c| Declare_Subprogram INIT_0a60,For_Call 019d 03fe | | Declare_Type Discrete,Defined,Visible 019e c22a | * | Store 0x1,0x2a 019f 029a 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call,Visible,Unelaborated 01a1 c267 | g | Store 0x1,0x67 01a2 029a 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call,Visible,Unelaborated 01a4 c268 | h | Store 0x1,0x68 01a5 00e3 | | Load_Encached Natural_Cache 01a6 4800 |H | Short_Literal 0x0 01a7 4801 |H | Short_Literal 0x1 01a8 4801 |H | Short_Literal 0x1 01a9 480d |H | Short_Literal 0xd 01aa 0318 | | Declare_Type Variant_Record,Incomplete 01ab 029f 0b6b | k| Declare_Subprogram INIT_0b68,For_Call 01ad 00d9 | | Load_Top At_Offset_1 01ae 012a | * | Execute Any,Change_Utility 01af c272 | r | Store 0x1,0x72 01b0 e272 | r | Load 0x1,0x72 01b1 02a0 | | Declare_Subprogram Null_Subprogram 01b2 e20f | | Load 0x1,0xf 01b3 03a3 | | Complete_Type Heap_Access,By_Defining 01b4 e20f | | Load 0x1,0xf 01b5 0129 | ) | Execute Any,Make_Visible 01b6 c242 | B | Store 0x1,0x42 01b7 00bf | | Action Accept_Activation 01b8 0092 1e14 | | Action Push_String_Extended,0x1e14 ; "localhost" 01ba e002 | | Load 0x0,0x2 01bb 180d | | Execute Package,Field_Execute,Field_Number 0xd 01bc 00d8 | | Load_Top At_Offset_0 01bd e002 | | Load 0x0,0x2 01be 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01bf 00d8 | | Load_Top At_Offset_0 01c0 e002 | | Load 0x0,0x2 01c1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c2 e003 | | Load 0x0,0x3 01c3 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01c4 02a0 | | Declare_Subprogram Null_Subprogram 01c5 03ad | | Declare_Type Heap_Access,Defined 01c6 4800 |H | Short_Literal 0x0 01c7 4807 |H | Short_Literal 0x7 01c8 029f 0bcb | | Declare_Subprogram INIT_0bc8,For_Call 01ca 03fd | | Declare_Type Discrete,Defined 01cb 00e1 | | Load_Encached Boolean_Cache 01cc 00d9 | | Load_Top At_Offset_1 01cd e28d | | Load 0x1,0x8d 01ce e295 | | Load 0x1,0x95 01cf 4801 |H | Short_Literal 0x1 01d0 4802 |H | Short_Literal 0x2 01d1 e004 | | Load 0x0,0x4 01d2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01d3 035b | [ | Declare_Type Array,Constrained 01d4 e005 | | Load 0x0,0x5 01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d6 e243 | C | Load 0x1,0x43 01d7 00e1 | | Load_Encached Boolean_Cache 01d8 4801 |H | Short_Literal 0x1 01d9 61c2 |a | Indirect_Literal Discrete,0x39c,{0x00000000, 0x00000fa0} 01da e006 | | Load 0x0,0x6 01db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dc 035b | [ | Declare_Type Array,Constrained 01dd 00e3 | | Load_Encached Natural_Cache 01de 00e3 | | Load_Encached Natural_Cache 01df 4801 |H | Short_Literal 0x1 01e0 61b7 |a | Indirect_Literal Discrete,0x398,{0x00000000, 0x7fffffff} 01e1 e004 | | Load 0x0,0x4 01e2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e3 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 01e4 029f 0b6b | k| Declare_Subprogram INIT_0b68,For_Call 01e6 4800 |H | Short_Literal 0x0 01e7 4801 |H | Short_Literal 0x1 01e8 480b |H | Short_Literal 0xb 01e9 e272 | r | Load 0x1,0x72 01ea 0307 | | Complete_Type Variant_Record,By_Defining 01eb e007 | | Load 0x0,0x7 01ec e008 | | Load 0x0,0x8 01ed e003 | | Load 0x0,0x3 01ee 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01ef e295 | | Load 0x1,0x95 01f0 e009 | | Load 0x0,0x9 01f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f2 0387 | | Declare_Variable Package 01f3 00d8 | | Load_Top At_Offset_0 01f4 020f | | Execute Module,Activate 01f5 e00a | | Load 0x0,0xa 01f6 e00b | | Load 0x0,0xb 01f7 e272 | r | Load 0x1,0x72 01f8 e20f | | Load 0x1,0xf 01f9 e009 | | Load 0x0,0x9 01fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fb 0387 | | Declare_Variable Package 01fc 00d8 | | Load_Top At_Offset_0 01fd 020f | | Execute Module,Activate 01fe 4800 |H | Short_Literal 0x0 01ff 480b |H | Short_Literal 0xb 0200 029f 0bf3 | | Declare_Subprogram INIT_0bf0,For_Call 0202 03fd | | Declare_Type Discrete,Defined 0203 00d8 | | Load_Top At_Offset_0 0204 0266 | f | Execute Discrete,Bounds 0205 e28d | | Load 0x1,0x8d 0206 02a0 | | Declare_Subprogram Null_Subprogram 0207 4801 |H | Short_Literal 0x1 0208 035d | ] | Declare_Type Array,Defined 0209 00d8 | | Load_Top At_Offset_0 020a 0337 | 7 | Declare_Variable Array 020b 00d8 | | Load_Top At_Offset_0 020c 0335 | 5 | Declare_Variable Array,Duplicate 020d 00cd | | Action Spare6_Action 020e e28d | | Load 0x1,0x8d 020f 0337 | 7 | Declare_Variable Array 0210 4802 |H | Short_Literal 0x2 0211 4801 |H | Short_Literal 0x1 0212 00da | | Load_Top At_Offset_2 0213 01d6 | | Execute Vector,Field_Write 0214 4801 |H | Short_Literal 0x1 0215 4802 |H | Short_Literal 0x2 0216 00da | | Load_Top At_Offset_2 0217 01d6 | | Execute Vector,Field_Write 0218 e28d | | Load 0x1,0x8d 0219 01c3 | | Execute Vector,Check_In_Type 021a e28d | | Load 0x1,0x8d 021b 0119 | | Execute Any,Check_In_Formal_Type 021c 4800 |H | Short_Literal 0x0 021d 00da | | Load_Top At_Offset_2 021e 01d6 | | Execute Vector,Field_Write 021f e28d | | Load 0x1,0x8d 0220 0337 | 7 | Declare_Variable Array 0221 4802 |H | Short_Literal 0x2 0222 4801 |H | Short_Literal 0x1 0223 00da | | Load_Top At_Offset_2 0224 01d6 | | Execute Vector,Field_Write 0225 4801 |H | Short_Literal 0x1 0226 4802 |H | Short_Literal 0x2 0227 00da | | Load_Top At_Offset_2 0228 01d6 | | Execute Vector,Field_Write 0229 e28d | | Load 0x1,0x8d 022a 01c3 | | Execute Vector,Check_In_Type 022b e28d | | Load 0x1,0x8d 022c 0119 | | Execute Any,Check_In_Formal_Type 022d 4801 |H | Short_Literal 0x1 022e 00da | | Load_Top At_Offset_2 022f 01d6 | | Execute Vector,Field_Write 0230 e28d | | Load 0x1,0x8d 0231 0337 | 7 | Declare_Variable Array 0232 4802 |H | Short_Literal 0x2 0233 4801 |H | Short_Literal 0x1 0234 00da | | Load_Top At_Offset_2 0235 01d6 | | Execute Vector,Field_Write 0236 4801 |H | Short_Literal 0x1 0237 4802 |H | Short_Literal 0x2 0238 00da | | Load_Top At_Offset_2 0239 01d6 | | Execute Vector,Field_Write 023a e28d | | Load 0x1,0x8d 023b 01c3 | | Execute Vector,Check_In_Type 023c e28d | | Load 0x1,0x8d 023d 0119 | | Execute Any,Check_In_Formal_Type 023e 4802 |H | Short_Literal 0x2 023f 00da | | Load_Top At_Offset_2 0240 01d6 | | Execute Vector,Field_Write 0241 e28d | | Load 0x1,0x8d 0242 0337 | 7 | Declare_Variable Array 0243 4802 |H | Short_Literal 0x2 0244 4801 |H | Short_Literal 0x1 0245 00da | | Load_Top At_Offset_2 0246 01d6 | | Execute Vector,Field_Write 0247 4801 |H | Short_Literal 0x1 0248 4802 |H | Short_Literal 0x2 0249 00da | | Load_Top At_Offset_2 024a 01d6 | | Execute Vector,Field_Write 024b e28d | | Load 0x1,0x8d 024c 01c3 | | Execute Vector,Check_In_Type 024d e28d | | Load 0x1,0x8d 024e 0119 | | Execute Any,Check_In_Formal_Type 024f 4803 |H | Short_Literal 0x3 0250 00da | | Load_Top At_Offset_2 0251 01d6 | | Execute Vector,Field_Write 0252 e28d | | Load 0x1,0x8d 0253 0337 | 7 | Declare_Variable Array 0254 4802 |H | Short_Literal 0x2 0255 4801 |H | Short_Literal 0x1 0256 00da | | Load_Top At_Offset_2 0257 01d6 | | Execute Vector,Field_Write 0258 4801 |H | Short_Literal 0x1 0259 4802 |H | Short_Literal 0x2 025a 00da | | Load_Top At_Offset_2 025b 01d6 | | Execute Vector,Field_Write 025c e28d | | Load 0x1,0x8d 025d 01c3 | | Execute Vector,Check_In_Type 025e e28d | | Load 0x1,0x8d 025f 0119 | | Execute Any,Check_In_Formal_Type 0260 4804 |H | Short_Literal 0x4 0261 00da | | Load_Top At_Offset_2 0262 01d6 | | Execute Vector,Field_Write 0263 e28d | | Load 0x1,0x8d 0264 0337 | 7 | Declare_Variable Array 0265 4802 |H | Short_Literal 0x2 0266 4801 |H | Short_Literal 0x1 0267 00da | | Load_Top At_Offset_2 0268 01d6 | | Execute Vector,Field_Write 0269 4801 |H | Short_Literal 0x1 026a 4802 |H | Short_Literal 0x2 026b 00da | | Load_Top At_Offset_2 026c 01d6 | | Execute Vector,Field_Write 026d e28d | | Load 0x1,0x8d 026e 01c3 | | Execute Vector,Check_In_Type 026f e28d | | Load 0x1,0x8d 0270 0119 | | Execute Any,Check_In_Formal_Type 0271 4805 |H | Short_Literal 0x5 0272 00da | | Load_Top At_Offset_2 0273 01d6 | | Execute Vector,Field_Write 0274 e28d | | Load 0x1,0x8d 0275 0337 | 7 | Declare_Variable Array 0276 4802 |H | Short_Literal 0x2 0277 4801 |H | Short_Literal 0x1 0278 00da | | Load_Top At_Offset_2 0279 01d6 | | Execute Vector,Field_Write 027a 4801 |H | Short_Literal 0x1 027b 4802 |H | Short_Literal 0x2 027c 00da | | Load_Top At_Offset_2 027d 01d6 | | Execute Vector,Field_Write 027e e28d | | Load 0x1,0x8d 027f 01c3 | | Execute Vector,Check_In_Type 0280 e28d | | Load 0x1,0x8d 0281 0119 | | Execute Any,Check_In_Formal_Type 0282 4806 |H | Short_Literal 0x6 0283 00da | | Load_Top At_Offset_2 0284 01d6 | | Execute Vector,Field_Write 0285 e28d | | Load 0x1,0x8d 0286 0337 | 7 | Declare_Variable Array 0287 4802 |H | Short_Literal 0x2 0288 4801 |H | Short_Literal 0x1 0289 00da | | Load_Top At_Offset_2 028a 01d6 | | Execute Vector,Field_Write 028b 4801 |H | Short_Literal 0x1 028c 4802 |H | Short_Literal 0x2 028d 00da | | Load_Top At_Offset_2 028e 01d6 | | Execute Vector,Field_Write 028f e28d | | Load 0x1,0x8d 0290 01c3 | | Execute Vector,Check_In_Type 0291 e28d | | Load 0x1,0x8d 0292 0119 | | Execute Any,Check_In_Formal_Type 0293 4807 |H | Short_Literal 0x7 0294 00da | | Load_Top At_Offset_2 0295 01d6 | | Execute Vector,Field_Write 0296 e28d | | Load 0x1,0x8d 0297 0337 | 7 | Declare_Variable Array 0298 4802 |H | Short_Literal 0x2 0299 4801 |H | Short_Literal 0x1 029a 00da | | Load_Top At_Offset_2 029b 01d6 | | Execute Vector,Field_Write 029c 4801 |H | Short_Literal 0x1 029d 4802 |H | Short_Literal 0x2 029e 00da | | Load_Top At_Offset_2 029f 01d6 | | Execute Vector,Field_Write 02a0 e28d | | Load 0x1,0x8d 02a1 01c3 | | Execute Vector,Check_In_Type 02a2 e28d | | Load 0x1,0x8d 02a3 0119 | | Execute Any,Check_In_Formal_Type 02a4 4808 |H | Short_Literal 0x8 02a5 00da | | Load_Top At_Offset_2 02a6 01d6 | | Execute Vector,Field_Write 02a7 e28d | | Load 0x1,0x8d 02a8 0337 | 7 | Declare_Variable Array 02a9 4802 |H | Short_Literal 0x2 02aa 4801 |H | Short_Literal 0x1 02ab 00da | | Load_Top At_Offset_2 02ac 01d6 | | Execute Vector,Field_Write 02ad 4801 |H | Short_Literal 0x1 02ae 4802 |H | Short_Literal 0x2 02af 00da | | Load_Top At_Offset_2 02b0 01d6 | | Execute Vector,Field_Write 02b1 e28d | | Load 0x1,0x8d 02b2 01c3 | | Execute Vector,Check_In_Type 02b3 e28d | | Load 0x1,0x8d 02b4 0119 | | Execute Any,Check_In_Formal_Type 02b5 4809 |H | Short_Literal 0x9 02b6 00da | | Load_Top At_Offset_2 02b7 01d6 | | Execute Vector,Field_Write 02b8 e28d | | Load 0x1,0x8d 02b9 0337 | 7 | Declare_Variable Array 02ba 4802 |H | Short_Literal 0x2 02bb 4801 |H | Short_Literal 0x1 02bc 00da | | Load_Top At_Offset_2 02bd 01d6 | | Execute Vector,Field_Write 02be 4801 |H | Short_Literal 0x1 02bf 4802 |H | Short_Literal 0x2 02c0 00da | | Load_Top At_Offset_2 02c1 01d6 | | Execute Vector,Field_Write 02c2 e28d | | Load 0x1,0x8d 02c3 01c3 | | Execute Vector,Check_In_Type 02c4 e28d | | Load 0x1,0x8d 02c5 0119 | | Execute Any,Check_In_Formal_Type 02c6 480a |H | Short_Literal 0xa 02c7 00da | | Load_Top At_Offset_2 02c8 01d6 | | Execute Vector,Field_Write 02c9 e28d | | Load 0x1,0x8d 02ca 0337 | 7 | Declare_Variable Array 02cb 4802 |H | Short_Literal 0x2 02cc 4801 |H | Short_Literal 0x1 02cd 00da | | Load_Top At_Offset_2 02ce 01d6 | | Execute Vector,Field_Write 02cf 4801 |H | Short_Literal 0x1 02d0 4802 |H | Short_Literal 0x2 02d1 00da | | Load_Top At_Offset_2 02d2 01d6 | | Execute Vector,Field_Write 02d3 e28d | | Load 0x1,0x8d 02d4 01c3 | | Execute Vector,Check_In_Type 02d5 e28d | | Load 0x1,0x8d 02d6 0119 | | Execute Any,Check_In_Formal_Type 02d7 480b |H | Short_Literal 0xb 02d8 00da | | Load_Top At_Offset_2 02d9 01d6 | | Execute Vector,Field_Write 02da 00d9 | | Load_Top At_Offset_1 02db 01d4 | | Execute Vector,Structure_Write 02dc 4800 |H | Short_Literal 0x0 02dd 481c |H | Short_Literal 0x1c 02de 029f 0c1b | | Declare_Subprogram INIT_0c18,For_Call 02e0 03fd | | Declare_Type Discrete,Defined 02e1 e26c | l | Load 0x1,0x6c 02e2 0007 | | Action Break_Optional 02e3 4800 |H | Short_Literal 0x0 02e4 e00c | | Load 0x0,0xc 02e5 02a0 | | Declare_Subprogram Null_Subprogram 02e6 038e | | Declare_Type Package,Defined 02e7 0387 | | Declare_Variable Package 02e8 e00d | | Load 0x0,0xd 02e9 e00e | | Load 0x0,0xe 02ea 00b6 | | Action Make_Scope 02eb e00f | | Load 0x0,0xf 02ec e004 | | Load 0x0,0x4 02ed e001 | | Load 0x0,0x1 02ee e003 | | Load 0x0,0x3 02ef e005 | | Load 0x0,0x5 02f0 e292 | | Load 0x1,0x92 02f1 e010 | | Load 0x0,0x10 02f2 e006 | | Load 0x0,0x6 02f3 e29c | | Load 0x1,0x9c 02f4 e011 | | Load 0x0,0x11 02f5 e012 | | Load 0x0,0x12 02f6 e013 | | Load 0x0,0x13 02f7 e272 | r | Load 0x1,0x72 02f8 e297 | | Load 0x1,0x97 02f9 e014 | | Load 0x0,0x14 02fa e298 | | Load 0x1,0x98 02fb e002 | | Load 0x0,0x2 02fc e015 | | Load 0x0,0x15 02fd 4815 |H | Short_Literal 0x15 02fe e29e | | Load 0x1,0x9e 02ff 020e | | Execute Module,Augment_Imports 0300 00d8 | | Load_Top At_Offset_0 0301 020f | | Execute Module,Activate 0302 4800 |H | Short_Literal 0x0 0303 e016 | | Load 0x0,0x16 0304 02a0 | | Declare_Subprogram Null_Subprogram 0305 038e | | Declare_Type Package,Defined 0306 0387 | | Declare_Variable Package 0307 e017 | | Load 0x0,0x17 0308 00b6 | | Action Make_Scope 0309 e001 | | Load 0x0,0x1 030a e014 | | Load 0x0,0x14 030b e018 | | Load 0x0,0x18 030c e019 | | Load 0x0,0x19 030d 4806 |H | Short_Literal 0x6 030e e29f | | Load 0x1,0x9f 030f 020e | | Execute Module,Augment_Imports 0310 00d8 | | Load_Top At_Offset_0 0311 020f | | Execute Module,Activate 0312 4800 |H | Short_Literal 0x0 0313 e01a | | Load 0x0,0x1a 0314 02a0 | | Declare_Subprogram Null_Subprogram 0315 038e | | Declare_Type Package,Defined 0316 e01b | | Load 0x0,0x1b 0317 4801 |H | Short_Literal 0x1 0318 00da | | Load_Top At_Offset_2 0319 020e | | Execute Module,Augment_Imports 031a 0387 | | Declare_Variable Package 031b e006 | | Load 0x0,0x6 031c e012 | | Load 0x0,0x12 031d 4802 |H | Short_Literal 0x2 031e 00db | | Load_Top At_Offset_3 031f 020e | | Execute Module,Augment_Imports 0320 00d8 | | Load_Top At_Offset_0 0321 020f | | Execute Module,Activate 0322 029d 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call 0324 029d 0c6b | k| Declare_Subprogram INIT_0c68,For_Outer_Call 0326 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call 0328 029d 0ccb | | Declare_Subprogram INIT_0cc8,For_Outer_Call 032a 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call 032c 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 032d 00c7 | | Action Elaborate_Subprogram 032e 1d85 | | Execute_Immediate Reference_Lex_1,0x85 032f 00c7 | | Action Elaborate_Subprogram 0330 1d83 | | Execute_Immediate Reference_Lex_1,0x83 0331 00c7 | | Action Elaborate_Subprogram 0332 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 0333 00c7 | | Action Elaborate_Subprogram 0334 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0335 00c7 | | Action Elaborate_Subprogram 0336 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 0337 00c7 | | Action Elaborate_Subprogram 0338 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 0339 00c7 | | Action Elaborate_Subprogram 033a 1d91 | | Execute_Immediate Reference_Lex_1,0x91 033b 00c7 | | Action Elaborate_Subprogram 033c 029d 0cfb | | Declare_Subprogram INIT_0cf8,For_Outer_Call 033e 1d87 | | Execute_Immediate Reference_Lex_1,0x87 033f 00c7 | | Action Elaborate_Subprogram 0340 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 0341 00c7 | | Action Elaborate_Subprogram 0342 1d8f | | Execute_Immediate Reference_Lex_1,0x8f 0343 00c7 | | Action Elaborate_Subprogram 0344 1d90 | | Execute_Immediate Reference_Lex_1,0x90 0345 00c7 | | Action Elaborate_Subprogram 0346 1d75 | u | Execute_Immediate Reference_Lex_1,0x75 0347 00c7 | | Action Elaborate_Subprogram 0348 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0349 00c7 | | Action Elaborate_Subprogram 034a 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 034b 00c7 | | Action Elaborate_Subprogram 034c 029d 0d0b | | Declare_Subprogram INIT_0d08,For_Outer_Call 034e 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b 034f 00c7 | | Action Elaborate_Subprogram 0350 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a 0351 00c7 | | Action Elaborate_Subprogram 0352 029d 0d9b | | Declare_Subprogram INIT_0d98,For_Outer_Call 0354 1d7d | } | Execute_Immediate Reference_Lex_1,0x7d 0355 00c7 | | Action Elaborate_Subprogram 0356 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c 0357 00c7 | | Action Elaborate_Subprogram 0358 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 0359 00c7 | | Action Elaborate_Subprogram 035a 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f 035b 00c7 | | Action Elaborate_Subprogram 035c 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 035d 00c7 | | Action Elaborate_Subprogram 035e 1d84 | | Execute_Immediate Reference_Lex_1,0x84 035f 00c7 | | Action Elaborate_Subprogram 0360 1d81 | | Execute_Immediate Reference_Lex_1,0x81 0361 00c7 | | Action Elaborate_Subprogram 0362 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call 0364 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 0365 00c7 | | Action Elaborate_Subprogram 0366 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 0367 00c7 | | Action Elaborate_Subprogram 0368 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0369 00c7 | | Action Elaborate_Subprogram 036a 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 036b 00c7 | | Action Elaborate_Subprogram 036c 1d82 | | Execute_Immediate Reference_Lex_1,0x82 036d 00c7 | | Action Elaborate_Subprogram 036e BODY_0008: 036e 00bc | | Action Signal_Activated 036f 00bb | | Action Signal_Completion 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 4607 |F | Jump_Case 0x8 0374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0375 7806 |x | Jump 0x37c ; case 0x1 0376 7809 |x | Jump 0x380 ; case 0x2 0377 780d |x | Jump 0x385 ; case 0x3 0378 7810 |x | Jump 0x389 ; case 0x4 0379 7811 |x | Jump 0x38b ; case 0x5 037a 7812 |x | Jump 0x38d ; case 0x6 037b 7815 |x | Jump 0x391 ; case 0x7 037c 00da | | Load_Top At_Offset_2 037d 0091 1d25 | %| Action Push_String_Extended_Indexed,0x1d25 ; "NO_ERROR" 037f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0380 00db | | Load_Top At_Offset_3 0381 00db | | Load_Top At_Offset_3 0382 00e0 | | Load_Encached Standard_Cache 0383 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0384 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0385 00da | | Load_Top At_Offset_2 0386 00e0 | | Load_Encached Standard_Cache 0387 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0388 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0389 00db | | Load_Top At_Offset_3 038a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038b 00db | | Load_Top At_Offset_3 038c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038d e26c | l | Load 0x1,0x6c 038e 00dc | | Load_Top At_Offset_4 038f 0267 | g | Execute Discrete,Predecessor 0390 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0391 e26c | l | Load 0x1,0x6c 0392 00dc | | Load_Top At_Offset_4 0393 0268 | h | Execute Discrete,Successor 0394 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 039c 0000 0000 | | .LITERAL {0x00000000, 0x00000fa0} 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00db | | Load_Top At_Offset_3 03a4 00db | | Load_Top At_Offset_3 03a5 e29e | | Load 0x1,0x9e 03a6 180d | | Execute Package,Field_Execute,Field_Number 0xd 03a7 a5fd | | Store_Unchecked 0x2,-0x3 03a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a9 0000 0000 | | .BLANK 0000[0x7] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03bb | | .CONST 0x03bb ; Address of begin 03b1 0434 | 4 | .CONST 0x0434 ; Address of exception handler 03b2 0004 | | .CONST 0x0004 ; Number of locals 03b3 INIT_03b0: 03b3 e29d | | Load 0x1,0x9d 03b4 0007 | | Action Break_Optional 03b5 e243 | C | Load 0x1,0x43 03b6 02c7 | | Declare_Variable Any 03b7 00d8 | | Load_Top At_Offset_0 03b8 1c00 | | Execute_Immediate Run_Utility,0x0 03b9 029f 0e9b | | Declare_Subprogram INIT_0e98,For_Call 03bb BODY_03b0: 03bb e5fe | | Load 0x2,-0x2 03bc e20f | | Load 0x1,0xf 03bd 021f | | Execute Heap_Access,Equal 03be 6803 |h | Jump_Zero 0x3c2 03bf 82a4 | | Call 0x1,0xa4 03c0 c5fd | | Store 0x2,-0x3 03c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c2 00d9 | | Load_Top At_Offset_1 03c3 e001 | | Load 0x0,0x1 03c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03c5 c403 | | Store 0x2,0x3 03c6 00d9 | | Load_Top At_Offset_1 03c7 c5fd | | Store 0x2,-0x3 03c8 e5fe | | Load 0x2,-0x2 03c9 e29e | | Load 0x1,0x9e 03ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 03cb c5fe | | Store 0x2,-0x2 03cc 4801 |H | Short_Literal 0x1 03cd e5fe | | Load 0x2,-0x2 03ce 0217 | | Execute Heap_Access,All_Reference 03cf 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 03d0 e001 | | Load 0x0,0x1 03d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03d2 6805 |h | Jump_Zero 0x3d8 03d3 e5fe | | Load 0x2,-0x2 03d4 0217 | | Execute Heap_Access,All_Reference 03d5 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 03d6 c5fd | | Store 0x2,-0x3 03d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d8 e5fe | | Load 0x2,-0x2 03d9 0217 | | Execute Heap_Access,All_Reference 03da 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03db 7057 |pW | Jump_Nonzero 0x433 03dc e293 | | Load 0x1,0x93 03dd e5fe | | Load 0x2,-0x2 03de e29e | | Load 0x1,0x9e 03df 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e0 e5fe | | Load 0x2,-0x2 03e1 0217 | | Execute Heap_Access,All_Reference 03e2 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 03e3 0217 | | Execute Heap_Access,All_Reference 03e4 e003 | | Load 0x0,0x3 03e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03e6 e5fe | | Load 0x2,-0x2 03e7 e29e | | Load 0x1,0x9e 03e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e9 e5fe | | Load 0x2,-0x2 03ea 0217 | | Execute Heap_Access,All_Reference 03eb 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 03ec 0217 | | Execute Heap_Access,All_Reference 03ed e003 | | Load 0x0,0x3 03ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ef e5fe | | Load 0x2,-0x2 03f0 e29e | | Load 0x1,0x9e 03f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f2 e5ff | | Load 0x2,-0x1 03f3 e5fe | | Load 0x2,-0x2 03f4 e29e | | Load 0x1,0x9e 03f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f6 8404 | | Call 0x2,0x4 03f7 e5fe | | Load 0x2,-0x2 03f8 e29e | | Load 0x1,0x9e 03f9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03fa 00d8 | | Load_Top At_Offset_0 03fb 00e3 | | Load_Encached Natural_Cache 03fc 0260 | ` | Execute Discrete,In_Type 03fd 7001 |p | Jump_Nonzero 0x3ff 03fe 0801 | | Execute_Immediate Raise,0x1 03ff 82a1 | | Call 0x1,0xa1 0400 e5fe | | Load 0x2,-0x2 0401 0217 | | Execute Heap_Access,All_Reference 0402 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0403 e5fe | | Load 0x2,-0x2 0404 e29e | | Load 0x1,0x9e 0405 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0406 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0407 00da | | Load_Top At_Offset_2 0408 682a |h* | Jump_Zero 0x433 0409 e5fe | | Load 0x2,-0x2 040a e29e | | Load 0x1,0x9e 040b 180f | | Execute Package,Field_Execute,Field_Number 0xf 040c 00da | | Load_Top At_Offset_2 040d 0f03 | | Execute_Immediate Equal,0x3 040e 681f |h | Jump_Zero 0x42e 040f 00d9 | | Load_Top At_Offset_1 0410 4802 |H | Short_Literal 0x2 0411 4822 |H" | Short_Literal 0x22 0412 0092 1e15 | | Action Push_String_Extended,0x1e15 ; "Unable to login as user \x22" 0414 e5fe | | Load 0x2,-0x2 0415 0217 | | Execute Heap_Access,All_Reference 0416 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0417 0217 | | Execute Heap_Access,All_Reference 0418 e003 | | Load 0x0,0x3 0419 1812 | | Execute Package,Field_Execute,Field_Number 0x12 041a 01cc | | Execute Vector,Catenate 041b 0092 1e16 | | Action Push_String_Extended,0x1e16 ; "\x22 on host \x22" 041d 01cc | | Execute Vector,Catenate 041e e5fe | | Load 0x2,-0x2 041f 0217 | | Execute Heap_Access,All_Reference 0420 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0421 0217 | | Execute Heap_Access,All_Reference 0422 e003 | | Load 0x0,0x3 0423 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0424 01cc | | Execute Vector,Catenate 0425 01cb | | Execute Vector,Append 0426 0092 1d28 | (| Action Push_String_Extended,0x1d28 ; "BAD_USER" 0428 e001 | | Load 0x0,0x1 0429 181a | | Execute Package,Field_Execute,Field_Number 0x1a 042a c403 | | Store 0x2,0x3 042b 00d9 | | Load_Top At_Offset_1 042c c5fd | | Store 0x2,-0x3 042d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 042e 00ea | | Load_Encached Null_String_Cache 042f 00db | | Load_Top At_Offset_3 0430 e5fe | | Load 0x2,-0x2 0431 82a3 | | Call 0x1,0xa3 0432 c5fd | | Store 0x2,-0x3 0433 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0434 TRAP_03b0: 0434 e013 | | Load 0x0,0x13 0435 010f | | Execute Exception,Equal 0436 6805 |h | Jump_Zero 0x43c 0437 e5fe | | Load 0x2,-0x2 0438 0217 | | Execute Heap_Access,All_Reference 0439 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 043a c5fd | | Store 0x2,-0x3 043b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 043c 0100 | | Execute Exception,Raise 043d 0000 0000 | | .XXX[0x3] 043f 0000 | | 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 00da | | Load_Top At_Offset_2 0444 0217 | | Execute Heap_Access,All_Reference 0445 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7 0446 e005 | | Load 0x0,0x5 0447 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0448 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0459 | Y | .CONST 0x0459 ; Address of begin 0451 046f | o | .CONST 0x046f ; Address of exception handler 0452 0003 | | .CONST 0x0003 ; Number of locals 0453 INIT_0450: 0453 e243 | C | Load 0x1,0x43 0454 02c7 | | Declare_Variable Any 0455 00d8 | | Load_Top At_Offset_0 0456 1c00 | | Execute_Immediate Run_Utility,0x0 0457 029f 0ebb | | Declare_Subprogram INIT_0eb8,For_Call 0459 BODY_0450: 0459 e5ff | | Load 0x2,-0x1 045a e20f | | Load 0x1,0xf 045b 021f | | Execute Heap_Access,Equal 045c 6803 |h | Jump_Zero 0x460 045d 82a4 | | Call 0x1,0xa4 045e c5fe | | Store 0x2,-0x2 045f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0460 8403 | | Call 0x2,0x3 0461 00d9 | | Load_Top At_Offset_1 0462 e001 | | Load 0x0,0x1 0463 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0464 c402 | | Store 0x2,0x2 0465 e5ff | | Load 0x2,-0x1 0466 0217 | | Execute Heap_Access,All_Reference 0467 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0468 7003 |p | Jump_Nonzero 0x46c 0469 e5ff | | Load 0x2,-0x1 046a e29e | | Load 0x1,0x9e 046b 180f | | Execute Package,Field_Execute,Field_Number 0xf 046c 00d9 | | Load_Top At_Offset_1 046d c5fe | | Store 0x2,-0x2 046e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 046f TRAP_0450: 046f e013 | | Load 0x0,0x13 0470 010f | | Execute Exception,Equal 0471 6805 |h | Jump_Zero 0x477 0472 e5ff | | Load 0x2,-0x1 0473 0217 | | Execute Heap_Access,All_Reference 0474 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0475 c5fe | | Store 0x2,-0x2 0476 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0477 0100 | | Execute Exception,Raise 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b 00da | | Load_Top At_Offset_2 047c e20f | | Load 0x1,0xf 047d 021e | | Execute Heap_Access,Maximum 047e 680d |h | Jump_Zero 0x48c 047f 00da | | Load_Top At_Offset_2 0480 0219 | | Execute Heap_Access,All_Read 0481 00d8 | | Load_Top At_Offset_0 0482 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0483 e297 | | Load 0x1,0x97 0484 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0485 00d9 | | Load_Top At_Offset_1 0486 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0487 00d1 | | Pop_Control Pop_Count_1 0488 00da | | Load_Top At_Offset_2 0489 e298 | | Load 0x1,0x98 048a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 048b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 048c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 048d 0000 0000 | | .XXX[0x3] 048f 0000 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0497 | | .CONST 0x0497 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0002 | | .CONST 0x0002 ; Number of locals 0493 INIT_0490: 0493 e243 | C | Load 0x1,0x43 0494 02c7 | | Declare_Variable Any 0495 00d8 | | Load_Top At_Offset_0 0496 1c00 | | Execute_Immediate Run_Utility,0x0 0497 BODY_0490: 0497 00db | | Load_Top At_Offset_3 0498 e20f | | Load 0x1,0xf 0499 021f | | Execute Heap_Access,Equal 049a 6803 |h | Jump_Zero 0x49e 049b 82a4 | | Call 0x1,0xa4 049c c5fe | | Store 0x2,-0x2 049d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 049e 00d8 | | Load_Top At_Offset_0 049f e001 | | Load 0x0,0x1 04a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04a1 c402 | | Store 0x2,0x2 04a2 00db | | Load_Top At_Offset_3 04a3 0217 | | Execute Heap_Access,All_Reference 04a4 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7 04a5 e005 | | Load 0x0,0x5 04a6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 04a7 6818 |h | Jump_Zero 0x4c0 04a8 00d8 | | Load_Top At_Offset_0 04a9 0120 | | Execute Any,Is_Value 04aa 6802 |h | Jump_Zero 0x4ad 04ab e243 | C | Load 0x1,0x43 04ac 7801 |x | Jump 0x4ae 04ad 00d8 | | Load_Top At_Offset_0 04ae e5ff | | Load 0x2,-0x1 04af 4809 |H | Short_Literal 0x9 04b0 8268 | h | Call 0x1,0x68 04b1 c402 | | Store 0x2,0x2 04b2 4800 |H | Short_Literal 0x0 04b3 0092 1d26 | &| Action Push_String_Extended,0x1d26 ; "CONNECTION_ERROR" 04b5 00da | | Load_Top At_Offset_2 04b6 e001 | | Load 0x0,0x1 04b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04b8 e014 | | Load 0x0,0x14 04b9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04ba 700e |p | Jump_Nonzero 0x4c9 04bb 00d8 | | Load_Top At_Offset_0 04bc e001 | | Load 0x0,0x1 04bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04be c402 | | Store 0x2,0x2 04bf 7809 |x | Jump 0x4c9 04c0 00d8 | | Load_Top At_Offset_0 04c1 4802 |H | Short_Literal 0x2 04c2 0092 1e17 | | Action Push_String_Extended,0x1e17 ; "Not Connected" 04c4 0092 1d26 | &| Action Push_String_Extended,0x1d26 ; "CONNECTION_ERROR" 04c6 e001 | | Load 0x0,0x1 04c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04c8 c402 | | Store 0x2,0x2 04c9 00d8 | | Load_Top At_Offset_0 04ca c5fe | | Store 0x2,-0x2 04cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04cc 0000 0000 | | .BLANK 0000[0x4] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 00da | | Load_Top At_Offset_2 04d4 e20f | | Load 0x1,0xf 04d5 021f | | Execute Heap_Access,Equal 04d6 6803 |h | Jump_Zero 0x4da 04d7 0092 1e18 | | Action Push_String_Extended,0x1e18 ; "Null Connection" 04d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04da 00da | | Load_Top At_Offset_2 04db 0217 | | Execute Heap_Access,All_Reference 04dc 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 04dd 0217 | | Execute Heap_Access,All_Reference 04de e003 | | Load 0x0,0x3 04df 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04e0 0092 1e19 | | Action Push_String_Extended,0x1e19 ; "/" 04e2 01cc | | Execute Vector,Catenate 04e3 00db | | Load_Top At_Offset_3 04e4 0217 | | Execute Heap_Access,All_Reference 04e5 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 04e6 0217 | | Execute Heap_Access,All_Reference 04e7 e003 | | Load 0x0,0x3 04e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04e9 01cc | | Execute Vector,Catenate 04ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04eb 0000 0000 | | .BLANK 0000[0x5] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 e20f | | Load 0x1,0xf 04f5 021f | | Execute Heap_Access,Equal 04f6 6803 |h | Jump_Zero 0x4fa 04f7 e003 | | Load 0x0,0x3 04f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fa 00da | | Load_Top At_Offset_2 04fb 0217 | | Execute Heap_Access,All_Reference 04fc 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 04fd 0217 | | Execute Heap_Access,All_Reference 04fe 02fd | | Declare_Variable Variant_Record,Duplicate 04ff 00cd | | Action Spare6_Action 0500 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0501 0000 0000 | | .BLANK 0000[0x7] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 00da | | Load_Top At_Offset_2 050c e28e | | Load 0x1,0x8e 050d 01df | | Execute Vector,Equal 050e 6803 |h | Jump_Zero 0x512 050f 0092 1e1a | | Action Push_String_Extended,0x1e1a ; "???" 0511 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0512 482e |H. | Short_Literal 0x2e 0513 4820 |H | Short_Literal 0x20 0514 4800 |H | Short_Literal 0x0 0515 480a |H | Short_Literal 0xa 0516 4801 |H | Short_Literal 0x1 0517 e5ff | | Load 0x2,-0x1 0518 01d7 | | Execute Vector,Field_Read 0519 e014 | | Load 0x0,0x14 051a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 051b 01cb | | Execute Vector,Append 051c 4820 |H | Short_Literal 0x20 051d 4800 |H | Short_Literal 0x0 051e 480a |H | Short_Literal 0xa 051f 4802 |H | Short_Literal 0x2 0520 e5ff | | Load 0x2,-0x1 0521 01d7 | | Execute Vector,Field_Read 0522 e014 | | Load 0x0,0x14 0523 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0524 01cc | | Execute Vector,Catenate 0525 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0526 0000 0000 | | .XXX[0x2] 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 e20f | | Load 0x1,0xf 052d 021f | | Execute Heap_Access,Equal 052e 6802 |h | Jump_Zero 0x531 052f e28e | | Load 0x1,0x8e 0530 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0531 00da | | Load_Top At_Offset_2 0532 0217 | | Execute Heap_Access,All_Reference 0533 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0534 0335 | 5 | Declare_Variable Array,Duplicate 0535 00cd | | Action Spare6_Action 0536 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0537 0000 | | .XXX[0x1] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b 00da | | Load_Top At_Offset_2 053c 8290 | | Call 0x1,0x90 053d 828f | | Call 0x1,0x8f 053e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053f 0000 | | .XXX[0x1] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 00da | | Load_Top At_Offset_2 0544 00d8 | | Load_Top At_Offset_0 0545 0c08 | | Execute_Immediate Greater_Equal,0x8 0546 700c |p | Jump_Nonzero 0x553 0547 4607 |F | Jump_Case 0x8 0548 780e |x | Jump 0x557 ; case 0x0 0549 7810 |x | Jump 0x55a ; case 0x1 054a 7812 |x | Jump 0x55d ; case 0x2 054b 7814 |x | Jump 0x560 ; case 0x3 054c 7816 |x | Jump 0x563 ; case 0x4 054d 7818 |x | Jump 0x566 ; case 0x5 054e 781a |x | Jump 0x569 ; case 0x6 054f 7800 |x | Jump 0x550 ; case 0x7 0550 0092 1e1b | | Action Push_String_Extended,0x1e1b ; "Ibm_Os2" 0552 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0553 00d1 | | Pop_Control Pop_Count_1 0554 0092 1e1c | | Action Push_String_Extended,0x1e1c ; "Unknown" 0556 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0557 0092 1e1c | | Action Push_String_Extended,0x1e1c ; "Unknown" 0559 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 055a 0092 1e1d | | Action Push_String_Extended,0x1e1d ; "Sun" 055c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 055d 0092 1e1e | | Action Push_String_Extended,0x1e1e ; "Apollo" 055f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0560 0092 1e1f | | Action Push_String_Extended,0x1e1f ; "Ibm" 0562 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0563 0092 1e20 | | Action Push_String_Extended,0x1e20 ; "Hp" 0565 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0566 0092 1e21 | !| Action Push_String_Extended,0x1e21 ; "Vax" 0568 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0569 0092 1e22 | "| Action Push_String_Extended,0x1e22 ; "Vax_Ultrix" 056b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056c 0000 0000 | | .BLANK 0000[0x4] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0575 | u | .CONST 0x0575 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0002 | | .CONST 0x0002 ; Number of locals 0573 INIT_0570: 0573 00da | | Load_Top At_Offset_2 0574 82a6 | | Call 0x1,0xa6 0575 BODY_0570: 0575 00d8 | | Load_Top At_Offset_0 0576 4607 |F | Jump_Case 0x8 0577 7809 |x | Jump 0x581 ; case 0x0 0578 780a |x | Jump 0x583 ; case 0x1 0579 780b |x | Jump 0x585 ; case 0x2 057a 780c |x | Jump 0x587 ; case 0x3 057b 780d |x | Jump 0x589 ; case 0x4 057c 780e |x | Jump 0x58b ; case 0x5 057d 780f |x | Jump 0x58d ; case 0x6 057e 7800 |x | Jump 0x57f ; case 0x7 057f 4807 |H | Short_Literal 0x7 0580 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0581 4800 |H | Short_Literal 0x0 0582 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0583 4801 |H | Short_Literal 0x1 0584 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0585 4802 |H | Short_Literal 0x2 0586 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0587 4803 |H | Short_Literal 0x3 0588 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0589 4804 |H | Short_Literal 0x4 058a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058b 4805 |H | Short_Literal 0x5 058c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058d 4806 |H | Short_Literal 0x6 058e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058f 0000 | | .XXX[0x1] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 00da | | Load_Top At_Offset_2 0594 8287 | | Call 0x1,0x87 0595 8291 | | Call 0x1,0x91 0596 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0597 0000 | | .XXX[0x1] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 05b8 | | .CONST 0x05b8 ; Address of begin 0599 05fa | | .CONST 0x05fa ; Address of exception handler 059a 000a | | .CONST 0x000a ; Number of locals 059b INIT_0598: 059b 0092 1e23 | #| Action Push_String_Extended,0x1e23 ; "create" 059d 4800 |H | Short_Literal 0x0 059e e5fb | | Load 0x2,-0x5 059f 82a2 | | Call 0x1,0xa2 05a0 e243 | C | Load 0x1,0x43 05a1 02c7 | | Declare_Variable Any 05a2 00d8 | | Load_Top At_Offset_0 05a3 1c00 | | Execute_Immediate Run_Utility,0x0 05a4 e29d | | Load 0x1,0x9d 05a5 0007 | | Action Break_Optional 05a6 4800 |H | Short_Literal 0x0 05a7 4805 |H | Short_Literal 0x5 05a8 029f 0ecb | | Declare_Subprogram INIT_0ec8,For_Call 05aa 03fd | | Declare_Type Discrete,Defined 05ab 4800 |H | Short_Literal 0x0 05ac 4808 |H | Short_Literal 0x8 05ad 029f 0ef3 | | Declare_Subprogram INIT_0ef0,For_Call 05af 03fd | | Declare_Type Discrete,Defined 05b0 029f 0f1b | | Declare_Subprogram INIT_0f18,For_Call 05b2 029f 0f33 | 3| Declare_Subprogram INIT_0f30,For_Call 05b4 029f 0f4b | K| Declare_Subprogram INIT_0f48,For_Call 05b6 029f 0fbb | | Declare_Subprogram INIT_0fb8,For_Call 05b8 BODY_0598: 05b8 e5fb | | Load 0x2,-0x5 05b9 e20f | | Load 0x1,0xf 05ba 021f | | Execute Heap_Access,Equal 05bb 6803 |h | Jump_Zero 0x5bf 05bc 82a4 | | Call 0x1,0xa4 05bd c5fa | | Store 0x2,-0x6 05be 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05bf e402 | | Load 0x2,0x2 05c0 01db | | Execute Vector,Length 05c1 0c01 | | Execute_Immediate Greater_Equal,0x1 05c2 6806 |h | Jump_Zero 0x5c9 05c3 e402 | | Load 0x2,0x2 05c4 480b |H | Short_Literal 0xb 05c5 e5fb | | Load 0x2,-0x5 05c6 82a3 | | Call 0x1,0xa3 05c7 c5fa | | Store 0x2,-0x6 05c8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05c9 e5fb | | Load 0x2,-0x5 05ca 0217 | | Execute Heap_Access,All_Reference 05cb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 05cc 6803 |h | Jump_Zero 0x5d0 05cd 82a5 | | Call 0x1,0xa5 05ce c5fa | | Store 0x2,-0x6 05cf 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05d0 e5fd | | Load 0x2,-0x3 05d1 e5ff | | Load 0x2,-0x1 05d2 e2a0 | | Load 0x1,0xa0 05d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d4 180d | | Execute Package,Field_Execute,Field_Number 0xd 05d5 e403 | | Load 0x2,0x3 05d6 e001 | | Load 0x0,0x1 05d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05d8 c403 | | Store 0x2,0x3 05d9 e403 | | Load 0x2,0x3 05da c5fa | | Store 0x2,-0x6 05db e404 | | Load 0x2,0x4 05dc 4800 |H | Short_Literal 0x0 05dd e5fb | | Load 0x2,-0x5 05de 8409 | | Call 0x2,0x9 05df c404 | | Store 0x2,0x4 05e0 e404 | | Load 0x2,0x4 05e1 7005 |p | Jump_Nonzero 0x5e7 05e2 e29d | | Load 0x1,0x9d 05e3 4800 |H | Short_Literal 0x0 05e4 e5fb | | Load 0x2,-0x5 05e5 840a | | Call 0x2,0xa 05e6 c404 | | Store 0x2,0x4 05e7 e404 | | Load 0x2,0x4 05e8 7006 |p | Jump_Nonzero 0x5ef 05e9 00ea | | Load_Encached Null_String_Cache 05ea e404 | | Load 0x2,0x4 05eb e5fb | | Load 0x2,-0x5 05ec 82a3 | | Call 0x1,0xa3 05ed c5fa | | Store 0x2,-0x6 05ee 7807 |x | Jump 0x5f6 05ef e5fb | | Load 0x2,-0x5 05f0 e29e | | Load 0x1,0x9e 05f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05f2 e404 | | Load 0x2,0x4 05f3 e5fb | | Load 0x2,-0x5 05f4 82a3 | | Call 0x1,0xa3 05f5 c5fa | | Store 0x2,-0x6 05f6 e2a0 | | Load 0x1,0xa0 05f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 05f9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05fa TRAP_0598: 05fa e013 | | Load 0x0,0x13 05fb 010f | | Execute Exception,Equal 05fc 6808 |h | Jump_Zero 0x605 05fd e2a0 | | Load 0x1,0xa0 05fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ff 180e | | Execute Package,Field_Execute,Field_Number 0xe 0600 e5fb | | Load 0x2,-0x5 0601 0217 | | Execute Heap_Access,All_Reference 0602 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0603 c5fa | | Store 0x2,-0x6 0604 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0605 0100 | | Execute Exception,Raise 0606 0000 0000 | | .XXX[0x2] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 0615 | | .CONST 0x0615 ; Address of begin 0609 0656 | V | .CONST 0x0656 ; Address of exception handler 060a 0003 | | .CONST 0x0003 ; Number of locals 060b INIT_0608: 060b 0092 1e24 | $| Action Push_String_Extended,0x1e24 ; "put" 060d 4801 |H | Short_Literal 0x1 060e e5fb | | Load 0x2,-0x5 060f 82a2 | | Call 0x1,0xa2 0610 e01b | | Load 0x0,0x1b 0611 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0612 02c7 | | Declare_Variable Any 0613 00d8 | | Load_Top At_Offset_0 0614 1c00 | | Execute_Immediate Run_Utility,0x0 0615 BODY_0608: 0615 e5fb | | Load 0x2,-0x5 0616 e20f | | Load 0x1,0xf 0617 021f | | Execute Heap_Access,Equal 0618 6803 |h | Jump_Zero 0x61c 0619 82a4 | | Call 0x1,0xa4 061a c5fa | | Store 0x2,-0x6 061b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 061c 00d9 | | Load_Top At_Offset_1 061d 01db | | Execute Vector,Length 061e 0c01 | | Execute_Immediate Greater_Equal,0x1 061f 6806 |h | Jump_Zero 0x626 0620 00d9 | | Load_Top At_Offset_1 0621 480b |H | Short_Literal 0xb 0622 e5fb | | Load 0x2,-0x5 0623 82a3 | | Call 0x1,0xa3 0624 c5fa | | Store 0x2,-0x6 0625 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0626 e5fb | | Load 0x2,-0x5 0627 0217 | | Execute Heap_Access,All_Reference 0628 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0629 6812 |h | Jump_Zero 0x63c 062a e5fa | | Load 0x2,-0x6 062b 0120 | | Execute Any,Is_Value 062c 6802 |h | Jump_Zero 0x62f 062d e243 | C | Load 0x1,0x43 062e 7801 |x | Jump 0x630 062f e5fa | | Load 0x2,-0x6 0630 e5fe | | Load 0x2,-0x2 0631 e5fb | | Load 0x2,-0x5 0632 0217 | | Execute Heap_Access,All_Reference 0633 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0634 0217 | | Execute Heap_Access,All_Reference 0635 e003 | | Load 0x0,0x3 0636 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0637 e5ff | | Load 0x2,-0x1 0638 e29f | | Load 0x1,0x9f 0639 180d | | Execute Package,Field_Execute,Field_Number 0xd 063a c5fa | | Store 0x2,-0x6 063b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 063c 00d8 | | Load_Top At_Offset_0 063d e01c | | Load 0x0,0x1c 063e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 063f e01d | | Load 0x0,0x1d 0640 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0641 00ea | | Load_Encached Null_String_Cache 0642 e5ff | | Load 0x2,-0x1 0643 4800 |H | Short_Literal 0x0 0644 e01b | | Load 0x0,0x1b 0645 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0646 c403 | | Store 0x2,0x3 0647 e5fa | | Load 0x2,-0x6 0648 0120 | | Execute Any,Is_Value 0649 6802 |h | Jump_Zero 0x64c 064a e243 | C | Load 0x1,0x43 064b 7801 |x | Jump 0x64d 064c e5fa | | Load 0x2,-0x6 064d e5fb | | Load 0x2,-0x5 064e e5fc | | Load 0x2,-0x4 064f e5fd | | Load 0x2,-0x3 0650 e5fe | | Load 0x2,-0x2 0651 4800 |H | Short_Literal 0x0 0652 e403 | | Load 0x2,0x3 0653 82a7 | | Call 0x1,0xa7 0654 c5fa | | Store 0x2,-0x6 0655 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0656 TRAP_0608: 0656 0007 | | Action Break_Optional 0657 0092 1e25 | %| Action Push_String_Extended,0x1e25 ; "Unable to open " 0659 e5ff | | Load 0x2,-0x1 065a 01cc | | Execute Vector,Catenate 065b 0092 1e26 | &| Action Push_String_Extended,0x1e26 ; " for input" 065d 01cc | | Execute Vector,Catenate 065e 4807 |H | Short_Literal 0x7 065f e5fb | | Load 0x2,-0x5 0660 82a3 | | Call 0x1,0xa3 0661 c5fa | | Store 0x2,-0x6 0662 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0663 0000 0000 | | .BLANK 0000[0x5] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 0670 | p | .CONST 0x0670 ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0002 | | .CONST 0x0002 ; Number of locals 066b INIT_0668: 066b 0092 1e24 | $| Action Push_String_Extended,0x1e24 ; "put" 066d 4801 |H | Short_Literal 0x1 066e e5fb | | Load 0x2,-0x5 066f 82a2 | | Call 0x1,0xa2 0670 BODY_0668: 0670 e5fb | | Load 0x2,-0x5 0671 e20f | | Load 0x1,0xf 0672 021f | | Execute Heap_Access,Equal 0673 6803 |h | Jump_Zero 0x677 0674 82a4 | | Call 0x1,0xa4 0675 c5fa | | Store 0x2,-0x6 0676 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0677 00d8 | | Load_Top At_Offset_0 0678 01db | | Execute Vector,Length 0679 0c01 | | Execute_Immediate Greater_Equal,0x1 067a 6806 |h | Jump_Zero 0x681 067b 00d8 | | Load_Top At_Offset_0 067c 480b |H | Short_Literal 0xb 067d e5fb | | Load 0x2,-0x5 067e 82a3 | | Call 0x1,0xa3 067f c5fa | | Store 0x2,-0x6 0680 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0681 e5fb | | Load 0x2,-0x5 0682 0217 | | Execute Heap_Access,All_Reference 0683 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0684 6803 |h | Jump_Zero 0x688 0685 82a5 | | Call 0x1,0xa5 0686 c5fa | | Store 0x2,-0x6 0687 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0688 e5fa | | Load 0x2,-0x6 0689 0120 | | Execute Any,Is_Value 068a 6802 |h | Jump_Zero 0x68d 068b e243 | C | Load 0x1,0x43 068c 7801 |x | Jump 0x68e 068d e5fa | | Load 0x2,-0x6 068e e5fb | | Load 0x2,-0x5 068f e5fc | | Load 0x2,-0x4 0690 e5fd | | Load 0x2,-0x3 0691 e5fe | | Load 0x2,-0x2 0692 4801 |H | Short_Literal 0x1 0693 e5ff | | Load 0x2,-0x1 0694 82a7 | | Call 0x1,0xa7 0695 c5fa | | Store 0x2,-0x6 0696 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0697 0000 | | .XXX[0x1] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06a5 | | .CONST 0x06a5 ; Address of begin 0699 06f4 | | .CONST 0x06f4 ; Address of exception handler 069a 0003 | | .CONST 0x0003 ; Number of locals 069b INIT_0698: 069b 0092 1e27 | '| Action Push_String_Extended,0x1e27 ; "get" 069d 4802 |H | Short_Literal 0x2 069e e5fb | | Load 0x2,-0x5 069f 82a2 | | Call 0x1,0xa2 06a0 e01b | | Load 0x0,0x1b 06a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06a2 02c7 | | Declare_Variable Any 06a3 00d8 | | Load_Top At_Offset_0 06a4 1c00 | | Execute_Immediate Run_Utility,0x0 06a5 BODY_0698: 06a5 e5fb | | Load 0x2,-0x5 06a6 e20f | | Load 0x1,0xf 06a7 021f | | Execute Heap_Access,Equal 06a8 6803 |h | Jump_Zero 0x6ac 06a9 82a4 | | Call 0x1,0xa4 06aa c5fa | | Store 0x2,-0x6 06ab 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06ac 00d9 | | Load_Top At_Offset_1 06ad 01db | | Execute Vector,Length 06ae 0c01 | | Execute_Immediate Greater_Equal,0x1 06af 6806 |h | Jump_Zero 0x6b6 06b0 00d9 | | Load_Top At_Offset_1 06b1 480b |H | Short_Literal 0xb 06b2 e5fb | | Load 0x2,-0x5 06b3 82a3 | | Call 0x1,0xa3 06b4 c5fa | | Store 0x2,-0x6 06b5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06b6 e5fb | | Load 0x2,-0x5 06b7 0217 | | Execute Heap_Access,All_Reference 06b8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06b9 6812 |h | Jump_Zero 0x6cc 06ba e5fa | | Load 0x2,-0x6 06bb 0120 | | Execute Any,Is_Value 06bc 6802 |h | Jump_Zero 0x6bf 06bd e243 | C | Load 0x1,0x43 06be 7801 |x | Jump 0x6c0 06bf e5fa | | Load 0x2,-0x6 06c0 e5fd | | Load 0x2,-0x3 06c1 e5ff | | Load 0x2,-0x1 06c2 e5fb | | Load 0x2,-0x5 06c3 0217 | | Execute Heap_Access,All_Reference 06c4 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 06c5 0217 | | Execute Heap_Access,All_Reference 06c6 e003 | | Load 0x0,0x3 06c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06c8 e29f | | Load 0x1,0x9f 06c9 180e | | Execute Package,Field_Execute,Field_Number 0xe 06ca c5fa | | Store 0x2,-0x6 06cb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06cc e5fc | | Load 0x2,-0x4 06cd 680b |h | Jump_Zero 0x6d9 06ce 00d8 | | Load_Top At_Offset_0 06cf e01c | | Load 0x0,0x1c 06d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06d1 e01d | | Load 0x0,0x1d 06d2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06d3 00ea | | Load_Encached Null_String_Cache 06d4 e5fd | | Load 0x2,-0x3 06d5 e01b | | Load 0x0,0x1b 06d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06d7 c403 | | Store 0x2,0x3 06d8 780d |x | Jump 0x6e6 06d9 00d8 | | Load_Top At_Offset_0 06da e01c | | Load 0x0,0x1c 06db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06dc e01d | | Load 0x0,0x1d 06dd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 06de e01d | | Load 0x0,0x1d 06df 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06e0 00ea | | Load_Encached Null_String_Cache 06e1 e5fd | | Load 0x2,-0x3 06e2 4801 |H | Short_Literal 0x1 06e3 e01b | | Load 0x0,0x1b 06e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06e5 c403 | | Store 0x2,0x3 06e6 e5fa | | Load 0x2,-0x6 06e7 0120 | | Execute Any,Is_Value 06e8 6802 |h | Jump_Zero 0x6eb 06e9 e243 | C | Load 0x1,0x43 06ea 7801 |x | Jump 0x6ec 06eb e5fa | | Load 0x2,-0x6 06ec e5fb | | Load 0x2,-0x5 06ed 4800 |H | Short_Literal 0x0 06ee 00db | | Load_Top At_Offset_3 06ef e5fe | | Load 0x2,-0x2 06f0 e5ff | | Load 0x2,-0x1 06f1 82a8 | | Call 0x1,0xa8 06f2 c5fa | | Store 0x2,-0x6 06f3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 06f4 TRAP_0698: 06f4 0007 | | Action Break_Optional 06f5 0092 1e25 | %| Action Push_String_Extended,0x1e25 ; "Unable to open " 06f7 e5fd | | Load 0x2,-0x3 06f8 01cc | | Execute Vector,Catenate 06f9 0092 1e28 | (| Action Push_String_Extended,0x1e28 ; " for output" 06fb 01cc | | Execute Vector,Catenate 06fc 4807 |H | Short_Literal 0x7 06fd e5fb | | Load 0x2,-0x5 06fe 82a3 | | Call 0x1,0xa3 06ff c5fa | | Store 0x2,-0x6 0700 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0701 0000 0000 | | .BLANK 0000[0x7] 0708 ; -------------------------------------------------------------------------------------- 0708 ; SUBPROGRAM 0708 ; -------------------------------------------------------------------------------------- 0708 0710 | | .CONST 0x0710 ; Address of begin 0709 0004 | | .CONST 0x0004 ; Address of exception handler 070a 0002 | | .CONST 0x0002 ; Number of locals 070b INIT_0708: 070b 0092 1e27 | '| Action Push_String_Extended,0x1e27 ; "get" 070d 4802 |H | Short_Literal 0x2 070e e5fc | | Load 0x2,-0x4 070f 82a2 | | Call 0x1,0xa2 0710 BODY_0708: 0710 e5fc | | Load 0x2,-0x4 0711 e20f | | Load 0x1,0xf 0712 021f | | Execute Heap_Access,Equal 0713 6803 |h | Jump_Zero 0x717 0714 82a4 | | Call 0x1,0xa4 0715 c5fb | | Store 0x2,-0x5 0716 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0717 00d8 | | Load_Top At_Offset_0 0718 01db | | Execute Vector,Length 0719 0c01 | | Execute_Immediate Greater_Equal,0x1 071a 6806 |h | Jump_Zero 0x721 071b 00d8 | | Load_Top At_Offset_0 071c 480b |H | Short_Literal 0xb 071d e5fc | | Load 0x2,-0x4 071e 82a3 | | Call 0x1,0xa3 071f c5fb | | Store 0x2,-0x5 0720 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0721 e5fc | | Load 0x2,-0x4 0722 0217 | | Execute Heap_Access,All_Reference 0723 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0724 6803 |h | Jump_Zero 0x728 0725 82a5 | | Call 0x1,0xa5 0726 c5fb | | Store 0x2,-0x5 0727 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0728 e5fb | | Load 0x2,-0x5 0729 0120 | | Execute Any,Is_Value 072a 6802 |h | Jump_Zero 0x72d 072b e243 | C | Load 0x1,0x43 072c 7801 |x | Jump 0x72e 072d e5fb | | Load 0x2,-0x5 072e e5fc | | Load 0x2,-0x4 072f 4801 |H | Short_Literal 0x1 0730 e5fd | | Load 0x2,-0x3 0731 e5fe | | Load 0x2,-0x2 0732 e5ff | | Load 0x2,-0x1 0733 82a8 | | Call 0x1,0xa8 0734 c5fb | | Store 0x2,-0x5 0735 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0736 0000 0000 | | .XXX[0x2] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 0758 | X | .CONST 0x0758 ; Address of begin 0739 079b | | .CONST 0x079b ; Address of exception handler 073a 000a | | .CONST 0x000a ; Number of locals 073b INIT_0738: 073b 0092 1e29 | )| Action Push_String_Extended,0x1e29 ; "last_update" 073d 4803 |H | Short_Literal 0x3 073e e5fd | | Load 0x2,-0x3 073f 82a2 | | Call 0x1,0xa2 0740 e243 | C | Load 0x1,0x43 0741 02c7 | | Declare_Variable Any 0742 00d8 | | Load_Top At_Offset_0 0743 1c00 | | Execute_Immediate Run_Utility,0x0 0744 e29d | | Load 0x1,0x9d 0745 0007 | | Action Break_Optional 0746 4800 |H | Short_Literal 0x0 0747 4805 |H | Short_Literal 0x5 0748 029f 0ff3 | | Declare_Subprogram INIT_0ff0,For_Call 074a 03fd | | Declare_Type Discrete,Defined 074b 4800 |H | Short_Literal 0x0 074c 4808 |H | Short_Literal 0x8 074d 029f 101b | | Declare_Subprogram INIT_1018,For_Call 074f 03fd | | Declare_Type Discrete,Defined 0750 029f 1043 | C| Declare_Subprogram INIT_1040,For_Call 0752 029f 105b | [| Declare_Subprogram INIT_1058,For_Call 0754 029f 1073 | s| Declare_Subprogram INIT_1070,For_Call 0756 029f 10d3 | | Declare_Subprogram INIT_10d0,For_Call 0758 BODY_0738: 0758 4800 |H | Short_Literal 0x0 0759 a5fc | | Store_Unchecked 0x2,-0x4 075a e5fd | | Load 0x2,-0x3 075b e20f | | Load 0x1,0xf 075c 021f | | Execute Heap_Access,Equal 075d 6803 |h | Jump_Zero 0x761 075e 82a4 | | Call 0x1,0xa4 075f c5fb | | Store 0x2,-0x5 0760 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0761 e402 | | Load 0x2,0x2 0762 01db | | Execute Vector,Length 0763 0c01 | | Execute_Immediate Greater_Equal,0x1 0764 6806 |h | Jump_Zero 0x76b 0765 e402 | | Load 0x2,0x2 0766 480b |H | Short_Literal 0xb 0767 e5fd | | Load 0x2,-0x3 0768 82a3 | | Call 0x1,0xa3 0769 c5fb | | Store 0x2,-0x5 076a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 076b e5fd | | Load 0x2,-0x3 076c 0217 | | Execute Heap_Access,All_Reference 076d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 076e 6803 |h | Jump_Zero 0x772 076f 82a5 | | Call 0x1,0xa5 0770 c5fb | | Store 0x2,-0x5 0771 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0772 e5ff | | Load 0x2,-0x1 0773 e2a0 | | Load 0x1,0xa0 0774 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0775 180d | | Execute Package,Field_Execute,Field_Number 0xd 0776 e403 | | Load 0x2,0x3 0777 e001 | | Load 0x0,0x1 0778 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0779 c403 | | Store 0x2,0x3 077a e403 | | Load 0x2,0x3 077b c5fb | | Store 0x2,-0x5 077c e404 | | Load 0x2,0x4 077d 4803 |H | Short_Literal 0x3 077e e5fd | | Load 0x2,-0x3 077f 8409 | | Call 0x2,0x9 0780 c404 | | Store 0x2,0x4 0781 e404 | | Load 0x2,0x4 0782 7005 |p | Jump_Nonzero 0x788 0783 e29d | | Load 0x1,0x9d 0784 4803 |H | Short_Literal 0x3 0785 e5fd | | Load 0x2,-0x3 0786 840a | | Call 0x2,0xa 0787 c404 | | Store 0x2,0x4 0788 e404 | | Load 0x2,0x4 0789 7006 |p | Jump_Nonzero 0x790 078a 00ea | | Load_Encached Null_String_Cache 078b e404 | | Load 0x2,0x4 078c e5fd | | Load 0x2,-0x3 078d 82a3 | | Call 0x1,0xa3 078e c5fb | | Store 0x2,-0x5 078f 7807 |x | Jump 0x797 0790 e5fd | | Load 0x2,-0x3 0791 e29e | | Load 0x1,0x9e 0792 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0793 e404 | | Load 0x2,0x4 0794 e5fd | | Load 0x2,-0x3 0795 82a3 | | Call 0x1,0xa3 0796 c5fb | | Store 0x2,-0x5 0797 e2a0 | | Load 0x1,0xa0 0798 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0799 180f | | Execute Package,Field_Execute,Field_Number 0xf 079a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 079b TRAP_0738: 079b e013 | | Load 0x0,0x13 079c 010f | | Execute Exception,Equal 079d 6808 |h | Jump_Zero 0x7a6 079e e2a0 | | Load 0x1,0xa0 079f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 07a0 180f | | Execute Package,Field_Execute,Field_Number 0xf 07a1 e5fd | | Load 0x2,-0x3 07a2 0217 | | Execute Heap_Access,All_Reference 07a3 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 07a4 c5fb | | Store 0x2,-0x5 07a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 07a6 0100 | | Execute Exception,Raise 07a7 0000 | | .XXX[0x1] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07c8 | | .CONST 0x07c8 ; Address of begin 07a9 080b | | .CONST 0x080b ; Address of exception handler 07aa 000a | | .CONST 0x000a ; Number of locals 07ab INIT_07a8: 07ab 0092 1e2a | *| Action Push_String_Extended,0x1e2a ; "file_existence" 07ad 4804 |H | Short_Literal 0x4 07ae e5fe | | Load 0x2,-0x2 07af 82a2 | | Call 0x1,0xa2 07b0 e243 | C | Load 0x1,0x43 07b1 02c7 | | Declare_Variable Any 07b2 00d8 | | Load_Top At_Offset_0 07b3 1c00 | | Execute_Immediate Run_Utility,0x0 07b4 e29d | | Load 0x1,0x9d 07b5 0007 | | Action Break_Optional 07b6 4800 |H | Short_Literal 0x0 07b7 4803 |H | Short_Literal 0x3 07b8 029f 1123 | #| Declare_Subprogram INIT_1120,For_Call 07ba 03fd | | Declare_Type Discrete,Defined 07bb 4800 |H | Short_Literal 0x0 07bc 4808 |H | Short_Literal 0x8 07bd 029f 114b | K| Declare_Subprogram INIT_1148,For_Call 07bf 03fd | | Declare_Type Discrete,Defined 07c0 029f 1173 | s| Declare_Subprogram INIT_1170,For_Call 07c2 029f 118b | | Declare_Subprogram INIT_1188,For_Call 07c4 029f 11a3 | | Declare_Subprogram INIT_11a0,For_Call 07c6 029f 11fb | | Declare_Subprogram INIT_11f8,For_Call 07c8 BODY_07a8: 07c8 4800 |H | Short_Literal 0x0 07c9 a5fd | | Store_Unchecked 0x2,-0x3 07ca e5fe | | Load 0x2,-0x2 07cb e20f | | Load 0x1,0xf 07cc 021f | | Execute Heap_Access,Equal 07cd 6803 |h | Jump_Zero 0x7d1 07ce 82a4 | | Call 0x1,0xa4 07cf c5fc | | Store 0x2,-0x4 07d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07d1 e402 | | Load 0x2,0x2 07d2 01db | | Execute Vector,Length 07d3 0c01 | | Execute_Immediate Greater_Equal,0x1 07d4 6806 |h | Jump_Zero 0x7db 07d5 e402 | | Load 0x2,0x2 07d6 480b |H | Short_Literal 0xb 07d7 e5fe | | Load 0x2,-0x2 07d8 82a3 | | Call 0x1,0xa3 07d9 c5fc | | Store 0x2,-0x4 07da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07db e5fe | | Load 0x2,-0x2 07dc 0217 | | Execute Heap_Access,All_Reference 07dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 07de 6803 |h | Jump_Zero 0x7e2 07df 82a5 | | Call 0x1,0xa5 07e0 c5fc | | Store 0x2,-0x4 07e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07e2 e5ff | | Load 0x2,-0x1 07e3 e2a0 | | Load 0x1,0xa0 07e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 07e5 180d | | Execute Package,Field_Execute,Field_Number 0xd 07e6 e403 | | Load 0x2,0x3 07e7 e001 | | Load 0x0,0x1 07e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07e9 c403 | | Store 0x2,0x3 07ea e403 | | Load 0x2,0x3 07eb c5fc | | Store 0x2,-0x4 07ec e404 | | Load 0x2,0x4 07ed 4804 |H | Short_Literal 0x4 07ee e5fe | | Load 0x2,-0x2 07ef 8409 | | Call 0x2,0x9 07f0 c404 | | Store 0x2,0x4 07f1 e404 | | Load 0x2,0x4 07f2 7005 |p | Jump_Nonzero 0x7f8 07f3 e29d | | Load 0x1,0x9d 07f4 4804 |H | Short_Literal 0x4 07f5 e5fe | | Load 0x2,-0x2 07f6 840a | | Call 0x2,0xa 07f7 c404 | | Store 0x2,0x4 07f8 e404 | | Load 0x2,0x4 07f9 7006 |p | Jump_Nonzero 0x800 07fa 00ea | | Load_Encached Null_String_Cache 07fb e404 | | Load 0x2,0x4 07fc e5fe | | Load 0x2,-0x2 07fd 82a3 | | Call 0x1,0xa3 07fe c5fc | | Store 0x2,-0x4 07ff 7807 |x | Jump 0x807 0800 e5fe | | Load 0x2,-0x2 0801 e29e | | Load 0x1,0x9e 0802 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0803 e404 | | Load 0x2,0x4 0804 e5fe | | Load 0x2,-0x2 0805 82a3 | | Call 0x1,0xa3 0806 c5fc | | Store 0x2,-0x4 0807 e2a0 | | Load 0x1,0xa0 0808 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0809 180f | | Execute Package,Field_Execute,Field_Number 0xf 080a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 080b TRAP_07a8: 080b e013 | | Load 0x0,0x13 080c 010f | | Execute Exception,Equal 080d 6808 |h | Jump_Zero 0x816 080e e2a0 | | Load 0x1,0xa0 080f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0810 180f | | Execute Package,Field_Execute,Field_Number 0xf 0811 e5fe | | Load 0x2,-0x2 0812 0217 | | Execute Heap_Access,All_Reference 0813 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0814 c5fc | | Store 0x2,-0x4 0815 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0816 0100 | | Execute Exception,Raise 0817 0000 | | .XXX[0x1] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 0838 | 8 | .CONST 0x0838 ; Address of begin 0819 087b | { | .CONST 0x087b ; Address of exception handler 081a 000a | | .CONST 0x000a ; Number of locals 081b INIT_0818: 081b 0092 1e2b | +| Action Push_String_Extended,0x1e2b ; "copy" 081d 4805 |H | Short_Literal 0x5 081e e5fb | | Load 0x2,-0x5 081f 82a2 | | Call 0x1,0xa2 0820 e243 | C | Load 0x1,0x43 0821 02c7 | | Declare_Variable Any 0822 00d8 | | Load_Top At_Offset_0 0823 1c00 | | Execute_Immediate Run_Utility,0x0 0824 e29d | | Load 0x1,0x9d 0825 0007 | | Action Break_Optional 0826 4800 |H | Short_Literal 0x0 0827 4805 |H | Short_Literal 0x5 0828 029f 124b | K| Declare_Subprogram INIT_1248,For_Call 082a 03fd | | Declare_Type Discrete,Defined 082b 4800 |H | Short_Literal 0x0 082c 480a |H | Short_Literal 0xa 082d 029f 1273 | s| Declare_Subprogram INIT_1270,For_Call 082f 03fd | | Declare_Type Discrete,Defined 0830 029f 129b | | Declare_Subprogram INIT_1298,For_Call 0832 029f 12b3 | | Declare_Subprogram INIT_12b0,For_Call 0834 029f 12cb | | Declare_Subprogram INIT_12c8,For_Call 0836 029f 133b | ;| Declare_Subprogram INIT_1338,For_Call 0838 BODY_0818: 0838 e5fb | | Load 0x2,-0x5 0839 e20f | | Load 0x1,0xf 083a 021f | | Execute Heap_Access,Equal 083b 6803 |h | Jump_Zero 0x83f 083c 82a4 | | Call 0x1,0xa4 083d c5fa | | Store 0x2,-0x6 083e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 083f e402 | | Load 0x2,0x2 0840 01db | | Execute Vector,Length 0841 0c01 | | Execute_Immediate Greater_Equal,0x1 0842 6806 |h | Jump_Zero 0x849 0843 e402 | | Load 0x2,0x2 0844 480b |H | Short_Literal 0xb 0845 e5fb | | Load 0x2,-0x5 0846 82a3 | | Call 0x1,0xa3 0847 c5fa | | Store 0x2,-0x6 0848 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0849 e5fb | | Load 0x2,-0x5 084a 0217 | | Execute Heap_Access,All_Reference 084b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 084c 6803 |h | Jump_Zero 0x850 084d 82a5 | | Call 0x1,0xa5 084e c5fa | | Store 0x2,-0x6 084f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0850 e5fd | | Load 0x2,-0x3 0851 e5fe | | Load 0x2,-0x2 0852 e5ff | | Load 0x2,-0x1 0853 e2a0 | | Load 0x1,0xa0 0854 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0855 180d | | Execute Package,Field_Execute,Field_Number 0xd 0856 e403 | | Load 0x2,0x3 0857 e001 | | Load 0x0,0x1 0858 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0859 c403 | | Store 0x2,0x3 085a e403 | | Load 0x2,0x3 085b c5fa | | Store 0x2,-0x6 085c e404 | | Load 0x2,0x4 085d 4805 |H | Short_Literal 0x5 085e e5fb | | Load 0x2,-0x5 085f 8409 | | Call 0x2,0x9 0860 c404 | | Store 0x2,0x4 0861 e404 | | Load 0x2,0x4 0862 7005 |p | Jump_Nonzero 0x868 0863 e29d | | Load 0x1,0x9d 0864 4805 |H | Short_Literal 0x5 0865 e5fb | | Load 0x2,-0x5 0866 840a | | Call 0x2,0xa 0867 c404 | | Store 0x2,0x4 0868 e404 | | Load 0x2,0x4 0869 7006 |p | Jump_Nonzero 0x870 086a 00ea | | Load_Encached Null_String_Cache 086b e404 | | Load 0x2,0x4 086c e5fb | | Load 0x2,-0x5 086d 82a3 | | Call 0x1,0xa3 086e c5fa | | Store 0x2,-0x6 086f 7807 |x | Jump 0x877 0870 e5fb | | Load 0x2,-0x5 0871 e29e | | Load 0x1,0x9e 0872 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0873 e404 | | Load 0x2,0x4 0874 e5fb | | Load 0x2,-0x5 0875 82a3 | | Call 0x1,0xa3 0876 c5fa | | Store 0x2,-0x6 0877 e2a0 | | Load 0x1,0xa0 0878 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0879 180e | | Execute Package,Field_Execute,Field_Number 0xe 087a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 087b TRAP_0818: 087b e013 | | Load 0x0,0x13 087c 010f | | Execute Exception,Equal 087d 6808 |h | Jump_Zero 0x886 087e e2a0 | | Load 0x1,0xa0 087f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0880 180e | | Execute Package,Field_Execute,Field_Number 0xe 0881 e5fb | | Load 0x2,-0x5 0882 0217 | | Execute Heap_Access,All_Reference 0883 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0884 c5fa | | Store 0x2,-0x6 0885 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0886 0100 | | Execute Exception,Raise 0887 0000 | | .XXX[0x1] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 08a8 | | .CONST 0x08a8 ; Address of begin 0889 08e9 | | .CONST 0x08e9 ; Address of exception handler 088a 000a | | .CONST 0x000a ; Number of locals 088b INIT_0888: 088b 0092 1e2c | ,| Action Push_String_Extended,0x1e2c ; "delete" 088d 4806 |H | Short_Literal 0x6 088e e5fc | | Load 0x2,-0x4 088f 82a2 | | Call 0x1,0xa2 0890 e243 | C | Load 0x1,0x43 0891 02c7 | | Declare_Variable Any 0892 00d8 | | Load_Top At_Offset_0 0893 1c00 | | Execute_Immediate Run_Utility,0x0 0894 e29d | | Load 0x1,0x9d 0895 0007 | | Action Break_Optional 0896 4800 |H | Short_Literal 0x0 0897 4805 |H | Short_Literal 0x5 0898 029f 1373 | s| Declare_Subprogram INIT_1370,For_Call 089a 03fd | | Declare_Type Discrete,Defined 089b 4800 |H | Short_Literal 0x0 089c 4809 |H | Short_Literal 0x9 089d 029f 139b | | Declare_Subprogram INIT_1398,For_Call 089f 03fd | | Declare_Type Discrete,Defined 08a0 029f 13c3 | | Declare_Subprogram INIT_13c0,For_Call 08a2 029f 13db | | Declare_Subprogram INIT_13d8,For_Call 08a4 029f 13f3 | | Declare_Subprogram INIT_13f0,For_Call 08a6 029f 145b | [| Declare_Subprogram INIT_1458,For_Call 08a8 BODY_0888: 08a8 e5fc | | Load 0x2,-0x4 08a9 e20f | | Load 0x1,0xf 08aa 021f | | Execute Heap_Access,Equal 08ab 6803 |h | Jump_Zero 0x8af 08ac 82a4 | | Call 0x1,0xa4 08ad c5fb | | Store 0x2,-0x5 08ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08af e402 | | Load 0x2,0x2 08b0 01db | | Execute Vector,Length 08b1 0c01 | | Execute_Immediate Greater_Equal,0x1 08b2 6806 |h | Jump_Zero 0x8b9 08b3 e402 | | Load 0x2,0x2 08b4 480b |H | Short_Literal 0xb 08b5 e5fc | | Load 0x2,-0x4 08b6 82a3 | | Call 0x1,0xa3 08b7 c5fb | | Store 0x2,-0x5 08b8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08b9 e5fc | | Load 0x2,-0x4 08ba 0217 | | Execute Heap_Access,All_Reference 08bb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08bc 6803 |h | Jump_Zero 0x8c0 08bd 82a5 | | Call 0x1,0xa5 08be c5fb | | Store 0x2,-0x5 08bf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08c0 e5ff | | Load 0x2,-0x1 08c1 e2a0 | | Load 0x1,0xa0 08c2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 08c3 180d | | Execute Package,Field_Execute,Field_Number 0xd 08c4 e403 | | Load 0x2,0x3 08c5 e001 | | Load 0x0,0x1 08c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08c7 c403 | | Store 0x2,0x3 08c8 e403 | | Load 0x2,0x3 08c9 c5fb | | Store 0x2,-0x5 08ca e404 | | Load 0x2,0x4 08cb 4806 |H | Short_Literal 0x6 08cc e5fc | | Load 0x2,-0x4 08cd 8409 | | Call 0x2,0x9 08ce c404 | | Store 0x2,0x4 08cf e404 | | Load 0x2,0x4 08d0 7005 |p | Jump_Nonzero 0x8d6 08d1 e29d | | Load 0x1,0x9d 08d2 4806 |H | Short_Literal 0x6 08d3 e5fc | | Load 0x2,-0x4 08d4 840a | | Call 0x2,0xa 08d5 c404 | | Store 0x2,0x4 08d6 e404 | | Load 0x2,0x4 08d7 7006 |p | Jump_Nonzero 0x8de 08d8 00ea | | Load_Encached Null_String_Cache 08d9 e404 | | Load 0x2,0x4 08da e5fc | | Load 0x2,-0x4 08db 82a3 | | Call 0x1,0xa3 08dc c5fb | | Store 0x2,-0x5 08dd 7807 |x | Jump 0x8e5 08de e5fc | | Load 0x2,-0x4 08df e29e | | Load 0x1,0x9e 08e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 08e1 e404 | | Load 0x2,0x4 08e2 e5fc | | Load 0x2,-0x4 08e3 82a3 | | Call 0x1,0xa3 08e4 c5fb | | Store 0x2,-0x5 08e5 e2a0 | | Load 0x1,0xa0 08e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 08e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 08e8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08e9 TRAP_0888: 08e9 e013 | | Load 0x0,0x13 08ea 010f | | Execute Exception,Equal 08eb 6808 |h | Jump_Zero 0x8f4 08ec e2a0 | | Load 0x1,0xa0 08ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13 08ee 180e | | Execute Package,Field_Execute,Field_Number 0xe 08ef e5fc | | Load 0x2,-0x4 08f0 0217 | | Execute Heap_Access,All_Reference 08f1 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 08f2 c5fb | | Store 0x2,-0x5 08f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08f4 0100 | | Execute Exception,Raise 08f5 0000 0000 | | .XXX[0x3] 08f7 0000 | | 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 0918 | | .CONST 0x0918 ; Address of begin 08f9 095a | Z | .CONST 0x095a ; Address of exception handler 08fa 000a | | .CONST 0x000a ; Number of locals 08fb INIT_08f8: 08fb 0092 1e2d | -| Action Push_String_Extended,0x1e2d ; "move" 08fd 4807 |H | Short_Literal 0x7 08fe e5fc | | Load 0x2,-0x4 08ff 82a2 | | Call 0x1,0xa2 0900 e243 | C | Load 0x1,0x43 0901 02c7 | | Declare_Variable Any 0902 00d8 | | Load_Top At_Offset_0 0903 1c00 | | Execute_Immediate Run_Utility,0x0 0904 e29d | | Load 0x1,0x9d 0905 0007 | | Action Break_Optional 0906 4800 |H | Short_Literal 0x0 0907 4804 |H | Short_Literal 0x4 0908 029f 1493 | | Declare_Subprogram INIT_1490,For_Call 090a 03fd | | Declare_Type Discrete,Defined 090b 4800 |H | Short_Literal 0x0 090c 4807 |H | Short_Literal 0x7 090d 029f 14bb | | Declare_Subprogram INIT_14b8,For_Call 090f 03fd | | Declare_Type Discrete,Defined 0910 029f 14e3 | | Declare_Subprogram INIT_14e0,For_Call 0912 029f 14fb | | Declare_Subprogram INIT_14f8,For_Call 0914 029f 1513 | | Declare_Subprogram INIT_1510,For_Call 0916 029f 157b | {| Declare_Subprogram INIT_1578,For_Call 0918 BODY_08f8: 0918 e5fc | | Load 0x2,-0x4 0919 e20f | | Load 0x1,0xf 091a 021f | | Execute Heap_Access,Equal 091b 6803 |h | Jump_Zero 0x91f 091c 82a4 | | Call 0x1,0xa4 091d c5fb | | Store 0x2,-0x5 091e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 091f e402 | | Load 0x2,0x2 0920 01db | | Execute Vector,Length 0921 0c01 | | Execute_Immediate Greater_Equal,0x1 0922 6806 |h | Jump_Zero 0x929 0923 e402 | | Load 0x2,0x2 0924 480b |H | Short_Literal 0xb 0925 e5fc | | Load 0x2,-0x4 0926 82a3 | | Call 0x1,0xa3 0927 c5fb | | Store 0x2,-0x5 0928 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0929 e5fc | | Load 0x2,-0x4 092a 0217 | | Execute Heap_Access,All_Reference 092b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 092c 6803 |h | Jump_Zero 0x930 092d 82a5 | | Call 0x1,0xa5 092e c5fb | | Store 0x2,-0x5 092f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0930 e5fe | | Load 0x2,-0x2 0931 e5ff | | Load 0x2,-0x1 0932 e2a0 | | Load 0x1,0xa0 0933 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0934 180d | | Execute Package,Field_Execute,Field_Number 0xd 0935 e403 | | Load 0x2,0x3 0936 e001 | | Load 0x0,0x1 0937 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0938 c403 | | Store 0x2,0x3 0939 e403 | | Load 0x2,0x3 093a c5fb | | Store 0x2,-0x5 093b e404 | | Load 0x2,0x4 093c 4807 |H | Short_Literal 0x7 093d e5fc | | Load 0x2,-0x4 093e 8409 | | Call 0x2,0x9 093f c404 | | Store 0x2,0x4 0940 e404 | | Load 0x2,0x4 0941 7005 |p | Jump_Nonzero 0x947 0942 e29d | | Load 0x1,0x9d 0943 4807 |H | Short_Literal 0x7 0944 e5fc | | Load 0x2,-0x4 0945 840a | | Call 0x2,0xa 0946 c404 | | Store 0x2,0x4 0947 e404 | | Load 0x2,0x4 0948 7006 |p | Jump_Nonzero 0x94f 0949 00ea | | Load_Encached Null_String_Cache 094a e404 | | Load 0x2,0x4 094b e5fc | | Load 0x2,-0x4 094c 82a3 | | Call 0x1,0xa3 094d c5fb | | Store 0x2,-0x5 094e 7807 |x | Jump 0x956 094f e5fc | | Load 0x2,-0x4 0950 e29e | | Load 0x1,0x9e 0951 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0952 e404 | | Load 0x2,0x4 0953 e5fc | | Load 0x2,-0x4 0954 82a3 | | Call 0x1,0xa3 0955 c5fb | | Store 0x2,-0x5 0956 e2a0 | | Load 0x1,0xa0 0957 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0958 180e | | Execute Package,Field_Execute,Field_Number 0xe 0959 4505 |E | Exit_Suprogram New_Top_Offset 0x5 095a TRAP_08f8: 095a e013 | | Load 0x0,0x13 095b 010f | | Execute Exception,Equal 095c 6808 |h | Jump_Zero 0x965 095d e2a0 | | Load 0x1,0xa0 095e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 095f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0960 e5fc | | Load 0x2,-0x4 0961 0217 | | Execute Heap_Access,All_Reference 0962 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0963 c5fb | | Store 0x2,-0x5 0964 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0965 0100 | | Execute Exception,Raise 0966 0000 0000 | | .XXX[0x2] 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 0988 | | .CONST 0x0988 ; Address of begin 0969 09c9 | | .CONST 0x09c9 ; Address of exception handler 096a 000a | | .CONST 0x000a ; Number of locals 096b INIT_0968: 096b 0092 1e2e | .| Action Push_String_Extended,0x1e2e ; "expunge" 096d 480b |H | Short_Literal 0xb 096e e5fd | | Load 0x2,-0x3 096f 82a2 | | Call 0x1,0xa2 0970 e243 | C | Load 0x1,0x43 0971 02c7 | | Declare_Variable Any 0972 00d8 | | Load_Top At_Offset_0 0973 1c00 | | Execute_Immediate Run_Utility,0x0 0974 e29d | | Load 0x1,0x9d 0975 0007 | | Action Break_Optional 0976 4800 |H | Short_Literal 0x0 0977 4803 |H | Short_Literal 0x3 0978 029f 15b3 | | Declare_Subprogram INIT_15b0,For_Call 097a 03fd | | Declare_Type Discrete,Defined 097b 4800 |H | Short_Literal 0x0 097c 4808 |H | Short_Literal 0x8 097d 029f 15db | | Declare_Subprogram INIT_15d8,For_Call 097f 03fd | | Declare_Type Discrete,Defined 0980 029f 1603 | | Declare_Subprogram INIT_1600,For_Call 0982 029f 161b | | Declare_Subprogram INIT_1618,For_Call 0984 029f 1633 | 3| Declare_Subprogram INIT_1630,For_Call 0986 029f 1693 | | Declare_Subprogram INIT_1690,For_Call 0988 BODY_0968: 0988 e5fd | | Load 0x2,-0x3 0989 e20f | | Load 0x1,0xf 098a 021f | | Execute Heap_Access,Equal 098b 6803 |h | Jump_Zero 0x98f 098c 82a4 | | Call 0x1,0xa4 098d c5fc | | Store 0x2,-0x4 098e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 098f e402 | | Load 0x2,0x2 0990 01db | | Execute Vector,Length 0991 0c01 | | Execute_Immediate Greater_Equal,0x1 0992 6806 |h | Jump_Zero 0x999 0993 e402 | | Load 0x2,0x2 0994 480b |H | Short_Literal 0xb 0995 e5fd | | Load 0x2,-0x3 0996 82a3 | | Call 0x1,0xa3 0997 c5fc | | Store 0x2,-0x4 0998 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0999 e5fd | | Load 0x2,-0x3 099a 0217 | | Execute Heap_Access,All_Reference 099b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 099c 6803 |h | Jump_Zero 0x9a0 099d 82a5 | | Call 0x1,0xa5 099e c5fc | | Store 0x2,-0x4 099f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09a0 e5ff | | Load 0x2,-0x1 09a1 e2a0 | | Load 0x1,0xa0 09a2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 09a3 180d | | Execute Package,Field_Execute,Field_Number 0xd 09a4 e403 | | Load 0x2,0x3 09a5 e001 | | Load 0x0,0x1 09a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09a7 c403 | | Store 0x2,0x3 09a8 e403 | | Load 0x2,0x3 09a9 c5fc | | Store 0x2,-0x4 09aa e404 | | Load 0x2,0x4 09ab 480b |H | Short_Literal 0xb 09ac e5fd | | Load 0x2,-0x3 09ad 8409 | | Call 0x2,0x9 09ae c404 | | Store 0x2,0x4 09af e404 | | Load 0x2,0x4 09b0 7005 |p | Jump_Nonzero 0x9b6 09b1 e29d | | Load 0x1,0x9d 09b2 480b |H | Short_Literal 0xb 09b3 e5fd | | Load 0x2,-0x3 09b4 840a | | Call 0x2,0xa 09b5 c404 | | Store 0x2,0x4 09b6 e404 | | Load 0x2,0x4 09b7 7006 |p | Jump_Nonzero 0x9be 09b8 00ea | | Load_Encached Null_String_Cache 09b9 e404 | | Load 0x2,0x4 09ba e5fd | | Load 0x2,-0x3 09bb 82a3 | | Call 0x1,0xa3 09bc c5fc | | Store 0x2,-0x4 09bd 7807 |x | Jump 0x9c5 09be e5fd | | Load 0x2,-0x3 09bf e29e | | Load 0x1,0x9e 09c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 09c1 e404 | | Load 0x2,0x4 09c2 e5fd | | Load 0x2,-0x3 09c3 82a3 | | Call 0x1,0xa3 09c4 c5fc | | Store 0x2,-0x4 09c5 e2a0 | | Load 0x1,0xa0 09c6 1b18 | | Execute Package,Field_Read,Field_Number 0x18 09c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 09c8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09c9 TRAP_0968: 09c9 e013 | | Load 0x0,0x13 09ca 010f | | Execute Exception,Equal 09cb 6808 |h | Jump_Zero 0x9d4 09cc e2a0 | | Load 0x1,0xa0 09cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18 09ce 180e | | Execute Package,Field_Execute,Field_Number 0xe 09cf e5fd | | Load 0x2,-0x3 09d0 0217 | | Execute Heap_Access,All_Reference 09d1 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 09d2 c5fc | | Store 0x2,-0x4 09d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09d4 0100 | | Execute Exception,Raise 09d5 0000 0000 | | .XXX[0x3] 09d7 0000 | | 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09e5 | | .CONST 0x09e5 ; Address of begin 09d9 0a25 | % | .CONST 0x0a25 ; Address of exception handler 09da 0003 | | .CONST 0x0003 ; Number of locals 09db INIT_09d8: 09db 0092 1e2f | /| Action Push_String_Extended,0x1e2f ; "ls" 09dd 4808 |H | Short_Literal 0x8 09de e5fb | | Load 0x2,-0x5 09df 82a2 | | Call 0x1,0xa2 09e0 e01b | | Load 0x0,0x1b 09e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e2 02c7 | | Declare_Variable Any 09e3 00d8 | | Load_Top At_Offset_0 09e4 1c00 | | Execute_Immediate Run_Utility,0x0 09e5 BODY_09d8: 09e5 e5fb | | Load 0x2,-0x5 09e6 e20f | | Load 0x1,0xf 09e7 021f | | Execute Heap_Access,Equal 09e8 6803 |h | Jump_Zero 0x9ec 09e9 82a4 | | Call 0x1,0xa4 09ea c5fa | | Store 0x2,-0x6 09eb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 09ec 00d9 | | Load_Top At_Offset_1 09ed 01db | | Execute Vector,Length 09ee 0c01 | | Execute_Immediate Greater_Equal,0x1 09ef 6806 |h | Jump_Zero 0x9f6 09f0 00d9 | | Load_Top At_Offset_1 09f1 480b |H | Short_Literal 0xb 09f2 e5fb | | Load 0x2,-0x5 09f3 82a3 | | Call 0x1,0xa3 09f4 c5fa | | Store 0x2,-0x6 09f5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 09f6 e5fb | | Load 0x2,-0x5 09f7 0217 | | Execute Heap_Access,All_Reference 09f8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09f9 6803 |h | Jump_Zero 0x9fd 09fa 82a5 | | Call 0x1,0xa5 09fb c5fa | | Store 0x2,-0x6 09fc 4506 |E | Exit_Suprogram New_Top_Offset 0x6 09fd e5fc | | Load 0x2,-0x4 09fe 680b |h | Jump_Zero 0xa0a 09ff 00d8 | | Load_Top At_Offset_0 0a00 e01c | | Load 0x0,0x1c 0a01 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a02 e01d | | Load 0x0,0x1d 0a03 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a04 00ea | | Load_Encached Null_String_Cache 0a05 e5fd | | Load 0x2,-0x3 0a06 e01b | | Load 0x0,0x1b 0a07 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0a08 c403 | | Store 0x2,0x3 0a09 780d |x | Jump 0xa17 0a0a 00d8 | | Load_Top At_Offset_0 0a0b e01c | | Load 0x0,0x1c 0a0c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a0d e01d | | Load 0x0,0x1d 0a0e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0a0f e01d | | Load 0x0,0x1d 0a10 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a11 00ea | | Load_Encached Null_String_Cache 0a12 e5fd | | Load 0x2,-0x3 0a13 4801 |H | Short_Literal 0x1 0a14 e01b | | Load 0x0,0x1b 0a15 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a16 c403 | | Store 0x2,0x3 0a17 e5fa | | Load 0x2,-0x6 0a18 0120 | | Execute Any,Is_Value 0a19 6802 |h | Jump_Zero 0xa1c 0a1a e243 | C | Load 0x1,0x43 0a1b 7801 |x | Jump 0xa1d 0a1c e5fa | | Load 0x2,-0x6 0a1d e5fb | | Load 0x2,-0x5 0a1e 4800 |H | Short_Literal 0x0 0a1f 00db | | Load_Top At_Offset_3 0a20 e5fe | | Load 0x2,-0x2 0a21 e5ff | | Load 0x2,-0x1 0a22 82a9 | | Call 0x1,0xa9 0a23 c5fa | | Store 0x2,-0x6 0a24 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a25 TRAP_09d8: 0a25 0007 | | Action Break_Optional 0a26 0092 1e25 | %| Action Push_String_Extended,0x1e25 ; "Unable to open " 0a28 e5fd | | Load 0x2,-0x3 0a29 01cc | | Execute Vector,Catenate 0a2a 0092 1e28 | (| Action Push_String_Extended,0x1e28 ; " for output" 0a2c 01cc | | Execute Vector,Catenate 0a2d 4807 |H | Short_Literal 0x7 0a2e e5fb | | Load 0x2,-0x5 0a2f 82a3 | | Call 0x1,0xa3 0a30 c5fa | | Store 0x2,-0x6 0a31 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a32 0000 0000 | | .BLANK 0000[0x6] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a40 | @ | .CONST 0x0a40 ; Address of begin 0a39 0004 | | .CONST 0x0004 ; Address of exception handler 0a3a 0002 | | .CONST 0x0002 ; Number of locals 0a3b INIT_0a38: 0a3b 0092 1e2f | /| Action Push_String_Extended,0x1e2f ; "ls" 0a3d 4808 |H | Short_Literal 0x8 0a3e e5fc | | Load 0x2,-0x4 0a3f 82a2 | | Call 0x1,0xa2 0a40 BODY_0a38: 0a40 e5fc | | Load 0x2,-0x4 0a41 e20f | | Load 0x1,0xf 0a42 021f | | Execute Heap_Access,Equal 0a43 6803 |h | Jump_Zero 0xa47 0a44 82a4 | | Call 0x1,0xa4 0a45 c5fb | | Store 0x2,-0x5 0a46 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a47 00d8 | | Load_Top At_Offset_0 0a48 01db | | Execute Vector,Length 0a49 0c01 | | Execute_Immediate Greater_Equal,0x1 0a4a 6806 |h | Jump_Zero 0xa51 0a4b 00d8 | | Load_Top At_Offset_0 0a4c 480b |H | Short_Literal 0xb 0a4d e5fc | | Load 0x2,-0x4 0a4e 82a3 | | Call 0x1,0xa3 0a4f c5fb | | Store 0x2,-0x5 0a50 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a51 e5fb | | Load 0x2,-0x5 0a52 0120 | | Execute Any,Is_Value 0a53 6802 |h | Jump_Zero 0xa56 0a54 e243 | C | Load 0x1,0x43 0a55 7801 |x | Jump 0xa57 0a56 e5fb | | Load 0x2,-0x5 0a57 e5fc | | Load 0x2,-0x4 0a58 4801 |H | Short_Literal 0x1 0a59 e5fd | | Load 0x2,-0x3 0a5a e5fe | | Load 0x2,-0x2 0a5b e5ff | | Load 0x2,-0x1 0a5c 82a9 | | Call 0x1,0xa9 0a5d c5fb | | Store 0x2,-0x5 0a5e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a5f 0000 | | .XXX[0x1] 0a60 ; -------------------------------------------------------------------------------------- 0a60 ; SUBPROGRAM 0a60 ; -------------------------------------------------------------------------------------- 0a60 0a63 | c | .CONST 0x0a63 ; Address of begin 0a61 0004 | | .CONST 0x0004 ; Address of exception handler 0a62 0001 | | .CONST 0x0001 ; Number of locals 0a63 BODY_0a60: 0a63 INIT_0a60: 0a63 4607 |F | Jump_Case 0x8 0a64 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0a65 7806 |x | Jump 0xa6c ; case 0x1 0a66 7809 |x | Jump 0xa70 ; case 0x2 0a67 780d |x | Jump 0xa75 ; case 0x3 0a68 7810 |x | Jump 0xa79 ; case 0x4 0a69 7811 |x | Jump 0xa7b ; case 0x5 0a6a 7812 |x | Jump 0xa7d ; case 0x6 0a6b 7815 |x | Jump 0xa81 ; case 0x7 0a6c 00da | | Load_Top At_Offset_2 0a6d 0091 1d36 | 6| Action Push_String_Extended_Indexed,0x1d36 ; "NIL" 0a6f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0a70 00db | | Load_Top At_Offset_3 0a71 00db | | Load_Top At_Offset_3 0a72 00e0 | | Load_Encached Standard_Cache 0a73 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0a74 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0a75 00da | | Load_Top At_Offset_2 0a76 00e0 | | Load_Encached Standard_Cache 0a77 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a78 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0a79 00db | | Load_Top At_Offset_3 0a7a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0a7b 00db | | Load_Top At_Offset_3 0a7c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0a7d e22a | * | Load 0x1,0x2a 0a7e 00dc | | Load_Top At_Offset_4 0a7f 0267 | g | Execute Discrete,Predecessor 0a80 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0a81 e22a | * | Load 0x1,0x2a 0a82 00dc | | Load_Top At_Offset_4 0a83 0268 | h | Execute Discrete,Successor 0a84 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0a85 0000 0000 | | .XXX[0x3] 0a87 0000 | | 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; SUBPROGRAM 0a88 ; -------------------------------------------------------------------------------------- 0a88 0aa8 | | .CONST 0x0aa8 ; Address of begin 0a89 0ae5 | | .CONST 0x0ae5 ; Address of exception handler 0a8a 000a | | .CONST 0x000a ; Number of locals 0a8b INIT_0a88: 0a8b 0092 1e30 | 0| Action Push_String_Extended,0x1e30 ; "input_to_shell" 0a8d 4809 |H | Short_Literal 0x9 0a8e e5f8 | | Load 0x2,-0x8 0a8f 82a2 | | Call 0x1,0xa2 0a90 e243 | C | Load 0x1,0x43 0a91 02c7 | | Declare_Variable Any 0a92 00d8 | | Load_Top At_Offset_0 0a93 1c00 | | Execute_Immediate Run_Utility,0x0 0a94 e29d | | Load 0x1,0x9d 0a95 0007 | | Action Break_Optional 0a96 4800 |H | Short_Literal 0x0 0a97 4807 |H | Short_Literal 0x7 0a98 029f 16cb | | Declare_Subprogram INIT_16c8,For_Call 0a9a 03fd | | Declare_Type Discrete,Defined 0a9b 4800 |H | Short_Literal 0x0 0a9c 480b |H | Short_Literal 0xb 0a9d 029f 16f3 | | Declare_Subprogram INIT_16f0,For_Call 0a9f 03fd | | Declare_Type Discrete,Defined 0aa0 029f 171b | | Declare_Subprogram INIT_1718,For_Call 0aa2 029f 1733 | 3| Declare_Subprogram INIT_1730,For_Call 0aa4 029f 174b | K| Declare_Subprogram INIT_1748,For_Call 0aa6 029f 17ab | | Declare_Subprogram INIT_17a8,For_Call 0aa8 BODY_0a88: 0aa8 e5f8 | | Load 0x2,-0x8 0aa9 e20f | | Load 0x1,0xf 0aaa 021f | | Execute Heap_Access,Equal 0aab 6803 |h | Jump_Zero 0xaaf 0aac 82a4 | | Call 0x1,0xa4 0aad c5f6 | | Store 0x2,-0xa 0aae 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0aaf e402 | | Load 0x2,0x2 0ab0 01db | | Execute Vector,Length 0ab1 0c01 | | Execute_Immediate Greater_Equal,0x1 0ab2 6806 |h | Jump_Zero 0xab9 0ab3 e402 | | Load 0x2,0x2 0ab4 480b |H | Short_Literal 0xb 0ab5 e5f8 | | Load 0x2,-0x8 0ab6 82a3 | | Call 0x1,0xa3 0ab7 c5f6 | | Store 0x2,-0xa 0ab8 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0ab9 e5f8 | | Load 0x2,-0x8 0aba 0217 | | Execute Heap_Access,All_Reference 0abb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0abc 6803 |h | Jump_Zero 0xac0 0abd 82a5 | | Call 0x1,0xa5 0abe c5f6 | | Store 0x2,-0xa 0abf 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0ac0 e403 | | Load 0x2,0x3 0ac1 e001 | | Load 0x0,0x1 0ac2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ac3 c403 | | Store 0x2,0x3 0ac4 e403 | | Load 0x2,0x3 0ac5 c5f6 | | Store 0x2,-0xa 0ac6 e404 | | Load 0x2,0x4 0ac7 4809 |H | Short_Literal 0x9 0ac8 e5f8 | | Load 0x2,-0x8 0ac9 8409 | | Call 0x2,0x9 0aca c404 | | Store 0x2,0x4 0acb e404 | | Load 0x2,0x4 0acc 7005 |p | Jump_Nonzero 0xad2 0acd e29d | | Load 0x1,0x9d 0ace 4809 |H | Short_Literal 0x9 0acf e5f8 | | Load 0x2,-0x8 0ad0 840a | | Call 0x2,0xa 0ad1 c404 | | Store 0x2,0x4 0ad2 e404 | | Load 0x2,0x4 0ad3 7006 |p | Jump_Nonzero 0xada 0ad4 00ea | | Load_Encached Null_String_Cache 0ad5 e404 | | Load 0x2,0x4 0ad6 e5f8 | | Load 0x2,-0x8 0ad7 82a3 | | Call 0x1,0xa3 0ad8 c5f6 | | Store 0x2,-0xa 0ad9 7807 |x | Jump 0xae1 0ada e5f8 | | Load 0x2,-0x8 0adb e29e | | Load 0x1,0x9e 0adc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0add e404 | | Load 0x2,0x4 0ade e5f8 | | Load 0x2,-0x8 0adf 82a3 | | Call 0x1,0xa3 0ae0 c5f6 | | Store 0x2,-0xa 0ae1 e2a0 | | Load 0x1,0xa0 0ae2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0ae3 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ae4 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0ae5 TRAP_0a88: 0ae5 e013 | | Load 0x0,0x13 0ae6 010f | | Execute Exception,Equal 0ae7 6808 |h | Jump_Zero 0xaf0 0ae8 e2a0 | | Load 0x1,0xa0 0ae9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0aea 180e | | Execute Package,Field_Execute,Field_Number 0xe 0aeb e5f8 | | Load 0x2,-0x8 0aec 0217 | | Execute Heap_Access,All_Reference 0aed 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0aee c5f6 | | Store 0x2,-0xa 0aef 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0af0 0100 | | Execute Exception,Raise 0af1 0000 0000 | | .BLANK 0000[0x7] 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0b18 | | .CONST 0x0b18 ; Address of begin 0af9 0b59 | Y | .CONST 0x0b59 ; Address of exception handler 0afa 000a | | .CONST 0x000a ; Number of locals 0afb INIT_0af8: 0afb 0092 1e31 | 1| Action Push_String_Extended,0x1e31 ; "signal_to_shell" 0afd 480a |H | Short_Literal 0xa 0afe e5fe | | Load 0x2,-0x2 0aff 82a2 | | Call 0x1,0xa2 0b00 e243 | C | Load 0x1,0x43 0b01 02c7 | | Declare_Variable Any 0b02 00d8 | | Load_Top At_Offset_0 0b03 1c00 | | Execute_Immediate Run_Utility,0x0 0b04 e29d | | Load 0x1,0x9d 0b05 0007 | | Action Break_Optional 0b06 4800 |H | Short_Literal 0x0 0b07 4802 |H | Short_Literal 0x2 0b08 029f 1873 | s| Declare_Subprogram INIT_1870,For_Call 0b0a 03fd | | Declare_Type Discrete,Defined 0b0b 4800 |H | Short_Literal 0x0 0b0c 4804 |H | Short_Literal 0x4 0b0d 029f 189b | | Declare_Subprogram INIT_1898,For_Call 0b0f 03fd | | Declare_Type Discrete,Defined 0b10 029f 18c3 | | Declare_Subprogram INIT_18c0,For_Call 0b12 029f 18db | | Declare_Subprogram INIT_18d8,For_Call 0b14 029f 18f3 | | Declare_Subprogram INIT_18f0,For_Call 0b16 029f 194b | K| Declare_Subprogram INIT_1948,For_Call 0b18 BODY_0af8: 0b18 e5fe | | Load 0x2,-0x2 0b19 e20f | | Load 0x1,0xf 0b1a 021f | | Execute Heap_Access,Equal 0b1b 6803 |h | Jump_Zero 0xb1f 0b1c 82a4 | | Call 0x1,0xa4 0b1d c5fd | | Store 0x2,-0x3 0b1e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b1f e402 | | Load 0x2,0x2 0b20 01db | | Execute Vector,Length 0b21 0c01 | | Execute_Immediate Greater_Equal,0x1 0b22 6806 |h | Jump_Zero 0xb29 0b23 e402 | | Load 0x2,0x2 0b24 480b |H | Short_Literal 0xb 0b25 e5fe | | Load 0x2,-0x2 0b26 82a3 | | Call 0x1,0xa3 0b27 c5fd | | Store 0x2,-0x3 0b28 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b29 e5fe | | Load 0x2,-0x2 0b2a 0217 | | Execute Heap_Access,All_Reference 0b2b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b2c 6803 |h | Jump_Zero 0xb30 0b2d 82a5 | | Call 0x1,0xa5 0b2e c5fd | | Store 0x2,-0x3 0b2f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b30 e5ff | | Load 0x2,-0x1 0b31 e2a0 | | Load 0x1,0xa0 0b32 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b33 180d | | Execute Package,Field_Execute,Field_Number 0xd 0b34 e403 | | Load 0x2,0x3 0b35 e001 | | Load 0x0,0x1 0b36 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b37 c403 | | Store 0x2,0x3 0b38 e403 | | Load 0x2,0x3 0b39 c5fd | | Store 0x2,-0x3 0b3a e404 | | Load 0x2,0x4 0b3b 480a |H | Short_Literal 0xa 0b3c e5fe | | Load 0x2,-0x2 0b3d 8409 | | Call 0x2,0x9 0b3e c404 | | Store 0x2,0x4 0b3f e404 | | Load 0x2,0x4 0b40 7005 |p | Jump_Nonzero 0xb46 0b41 e29d | | Load 0x1,0x9d 0b42 480a |H | Short_Literal 0xa 0b43 e5fe | | Load 0x2,-0x2 0b44 840a | | Call 0x2,0xa 0b45 c404 | | Store 0x2,0x4 0b46 e404 | | Load 0x2,0x4 0b47 7006 |p | Jump_Nonzero 0xb4e 0b48 00ea | | Load_Encached Null_String_Cache 0b49 e404 | | Load 0x2,0x4 0b4a e5fe | | Load 0x2,-0x2 0b4b 82a3 | | Call 0x1,0xa3 0b4c c5fd | | Store 0x2,-0x3 0b4d 7807 |x | Jump 0xb55 0b4e e5fe | | Load 0x2,-0x2 0b4f e29e | | Load 0x1,0x9e 0b50 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0b51 e404 | | Load 0x2,0x4 0b52 e5fe | | Load 0x2,-0x2 0b53 82a3 | | Call 0x1,0xa3 0b54 c5fd | | Store 0x2,-0x3 0b55 e2a0 | | Load 0x1,0xa0 0b56 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b57 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b58 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b59 TRAP_0af8: 0b59 e013 | | Load 0x0,0x13 0b5a 010f | | Execute Exception,Equal 0b5b 6808 |h | Jump_Zero 0xb64 0b5c e2a0 | | Load 0x1,0xa0 0b5d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0b5e 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b5f e5fe | | Load 0x2,-0x2 0b60 0217 | | Execute Heap_Access,All_Reference 0b61 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0b62 c5fd | | Store 0x2,-0x3 0b63 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b64 0100 | | Execute Exception,Raise 0b65 0000 0000 | | .XXX[0x3] 0b67 0000 | | 0b68 ; -------------------------------------------------------------------------------------- 0b68 ; SUBPROGRAM 0b68 ; SUBPROGRAM 0b68 ; -------------------------------------------------------------------------------------- 0b68 0b6b | k | .CONST 0x0b6b ; Address of begin 0b69 0004 | | .CONST 0x0004 ; Address of exception handler 0b6a 0001 | | .CONST 0x0001 ; Number of locals 0b6b BODY_0b68: 0b6b BODY_0b68: 0b6b INIT_0b68: 0b6b INIT_0b68: 0b6b 4608 |F | Jump_Case 0x9 0b6c 7808 |x | Jump 0xb75 ; case 0x0 0b6d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0b6e 7855 |xU | Jump 0xbc4 ; case 0x2 0b6f 7854 |xT | Jump 0xbc4 ; case 0x3 0b70 7853 |xS | Jump 0xbc4 ; case 0x4 0b71 7852 |xR | Jump 0xbc4 ; case 0x5 0b72 7851 |xQ | Jump 0xbc4 ; case 0x6 0b73 783b |x; | Jump 0xbaf ; case 0x7 0b74 7844 |xD | Jump 0xbb9 ; case 0x8 0b75 4800 |H | Short_Literal 0x0 0b76 00db | | Load_Top At_Offset_3 0b77 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0b78 4800 |H | Short_Literal 0x0 0b79 00db | | Load_Top At_Offset_3 0b7a 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0b7b e28e | | Load 0x1,0x8e 0b7c 00db | | Load_Top At_Offset_3 0b7d 00d9 | | Load_Top At_Offset_1 0b7e 00d9 | | Load_Top At_Offset_1 0b7f 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 0b80 0119 | | Execute Any,Check_In_Formal_Type 0b81 00d1 | | Pop_Control Pop_Count_1 0b82 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0b83 e272 | r | Load 0x1,0x72 0b84 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 0b85 0337 | 7 | Declare_Variable Array 0b86 4800 |H | Short_Literal 0x0 0b87 4801 |H | Short_Literal 0x1 0b88 00da | | Load_Top At_Offset_2 0b89 01d6 | | Execute Vector,Field_Write 0b8a 4800 |H | Short_Literal 0x0 0b8b 4802 |H | Short_Literal 0x2 0b8c 00da | | Load_Top At_Offset_2 0b8d 01d6 | | Execute Vector,Field_Write 0b8e 00db | | Load_Top At_Offset_3 0b8f 00d9 | | Load_Top At_Offset_1 0b90 00d9 | | Load_Top At_Offset_1 0b91 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 0b92 0119 | | Execute Any,Check_In_Formal_Type 0b93 00d1 | | Pop_Control Pop_Count_1 0b94 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0b95 00da | | Load_Top At_Offset_2 0b96 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 0b97 e005 | | Load 0x0,0x5 0b98 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b99 00db | | Load_Top At_Offset_3 0b9a 00d9 | | Load_Top At_Offset_1 0b9b 00d9 | | Load_Top At_Offset_1 0b9c 2307 |# | Execute Variant_Record,Field_Type,Field_Number 0x7 0b9d 0119 | | Execute Any,Check_In_Formal_Type 0b9e 00d1 | | Pop_Control Pop_Count_1 0b9f 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0ba0 00da | | Load_Top At_Offset_2 0ba1 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8 0ba2 00da | | Load_Top At_Offset_2 0ba3 2408 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x8 0ba4 1c00 | | Execute_Immediate Run_Utility,0x0 0ba5 4801 |H | Short_Literal 0x1 0ba6 00db | | Load_Top At_Offset_3 0ba7 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9 0ba8 4801 |H | Short_Literal 0x1 0ba9 00db | | Load_Top At_Offset_3 0baa 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb 0bab 4800 |H | Short_Literal 0x0 0bac 00db | | Load_Top At_Offset_3 0bad 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc 0bae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0baf 00db | | Load_Top At_Offset_3 0bb0 4801 |H | Short_Literal 0x1 0bb1 e5fe | | Load 0x2,-0x2 0bb2 e004 | | Load 0x0,0x4 0bb3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0bb4 035b | [ | Declare_Type Array,Constrained 0bb5 4801 |H | Short_Literal 0x1 0bb6 e5ff | | Load 0x2,-0x1 0bb7 031b | | Declare_Type Variant_Record,Constrained 0bb8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0bb9 00db | | Load_Top At_Offset_3 0bba 00db | | Load_Top At_Offset_3 0bbb 02fc | | Declare_Variable Variant_Record,With_Constraint 0bbc 4801 |H | Short_Literal 0x1 0bbd e5fe | | Load 0x2,-0x2 0bbe e004 | | Load 0x0,0x4 0bbf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0bc0 0334 | 4 | Declare_Variable Array,With_Constraint 0bc1 2d0d |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0xd 0bc2 016a | j | QQ_execute Variant_Record,XXX 0bc3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0bc4 0869 | i | Execute_Immediate Raise,0x69 0bc5 0000 0000 | | .XXX[0x3] 0bc7 0000 | | 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bcb | | .CONST 0x0bcb ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0001 | | .CONST 0x0001 ; Number of locals 0bcb BODY_0bc8: 0bcb INIT_0bc8: 0bcb 4607 |F | Jump_Case 0x8 0bcc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0bcd 7806 |x | Jump 0xbd4 ; case 0x1 0bce 7809 |x | Jump 0xbd8 ; case 0x2 0bcf 780d |x | Jump 0xbdd ; case 0x3 0bd0 7810 |x | Jump 0xbe1 ; case 0x4 0bd1 7811 |x | Jump 0xbe3 ; case 0x5 0bd2 7812 |x | Jump 0xbe5 ; case 0x6 0bd3 7815 |x | Jump 0xbe9 ; case 0x7 0bd4 00da | | Load_Top At_Offset_2 0bd5 0091 1d39 | 9| Action Push_String_Extended_Indexed,0x1d39 ; "NIL_PLATFORM" 0bd7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0bd8 00db | | Load_Top At_Offset_3 0bd9 00db | | Load_Top At_Offset_3 0bda 00e0 | | Load_Encached Standard_Cache 0bdb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0bdc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0bdd 00da | | Load_Top At_Offset_2 0bde 00e0 | | Load_Encached Standard_Cache 0bdf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0be0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0be1 00db | | Load_Top At_Offset_3 0be2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0be3 00db | | Load_Top At_Offset_3 0be4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0be5 e296 | | Load 0x1,0x96 0be6 00dc | | Load_Top At_Offset_4 0be7 0267 | g | Execute Discrete,Predecessor 0be8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0be9 e296 | | Load 0x1,0x96 0bea 00dc | | Load_Top At_Offset_4 0beb 0268 | h | Execute Discrete,Successor 0bec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0bed 0000 0000 | | .XXX[0x3] 0bef 0000 | | 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 ; SUBPROGRAM 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 0bf3 | | .CONST 0x0bf3 ; Address of begin 0bf1 0004 | | .CONST 0x0004 ; Address of exception handler 0bf2 0001 | | .CONST 0x0001 ; Number of locals 0bf3 BODY_0bf0: 0bf3 INIT_0bf0: 0bf3 4607 |F | Jump_Case 0x8 0bf4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0bf5 7806 |x | Jump 0xbfc ; case 0x1 0bf6 7809 |x | Jump 0xc00 ; case 0x2 0bf7 780d |x | Jump 0xc05 ; case 0x3 0bf8 7810 |x | Jump 0xc09 ; case 0x4 0bf9 7811 |x | Jump 0xc0b ; case 0x5 0bfa 7812 |x | Jump 0xc0d ; case 0x6 0bfb 7815 |x | Jump 0xc11 ; case 0x7 0bfc 00da | | Load_Top At_Offset_2 0bfd 0091 1d41 | A| Action Push_String_Extended_Indexed,0x1d41 ; "CREATE_R" 0bff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0c00 00db | | Load_Top At_Offset_3 0c01 00db | | Load_Top At_Offset_3 0c02 00e0 | | Load_Encached Standard_Cache 0c03 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c04 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c05 00da | | Load_Top At_Offset_2 0c06 00e0 | | Load_Encached Standard_Cache 0c07 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0c08 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0c09 00db | | Load_Top At_Offset_3 0c0a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c0b 00db | | Load_Top At_Offset_3 0c0c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c0d e299 | | Load 0x1,0x99 0c0e 00dc | | Load_Top At_Offset_4 0c0f 0267 | g | Execute Discrete,Predecessor 0c10 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c11 e299 | | Load 0x1,0x99 0c12 00dc | | Load_Top At_Offset_4 0c13 0268 | h | Execute Discrete,Successor 0c14 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c15 0000 0000 | | .XXX[0x3] 0c17 0000 | | 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c1b | | .CONST 0x0c1b ; Address of begin 0c19 0004 | | .CONST 0x0004 ; Address of exception handler 0c1a 0001 | | .CONST 0x0001 ; Number of locals 0c1b BODY_0c18: 0c1b INIT_0c18: 0c1b 4607 |F | Jump_Case 0x8 0c1c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0c1d 7806 |x | Jump 0xc24 ; case 0x1 0c1e 7809 |x | Jump 0xc28 ; case 0x2 0c1f 780d |x | Jump 0xc2d ; case 0x3 0c20 7810 |x | Jump 0xc31 ; case 0x4 0c21 7811 |x | Jump 0xc33 ; case 0x5 0c22 7812 |x | Jump 0xc35 ; case 0x6 0c23 7815 |x | Jump 0xc39 ; case 0x7 0c24 00da | | Load_Top At_Offset_2 0c25 0091 1d4d | M| Action Push_String_Extended_Indexed,0x1d4d ; "DISCONNECT_F" 0c27 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0c28 00db | | Load_Top At_Offset_3 0c29 00db | | Load_Top At_Offset_3 0c2a 00e0 | | Load_Encached Standard_Cache 0c2b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c2c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c2d 00da | | Load_Top At_Offset_2 0c2e 00e0 | | Load_Encached Standard_Cache 0c2f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0c30 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0c31 00db | | Load_Top At_Offset_3 0c32 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c33 00db | | Load_Top At_Offset_3 0c34 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c35 e29c | | Load 0x1,0x9c 0c36 00dc | | Load_Top At_Offset_4 0c37 0267 | g | Execute Discrete,Predecessor 0c38 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c39 e29c | | Load 0x1,0x9c 0c3a 00dc | | Load_Top At_Offset_4 0c3b 0268 | h | Execute Discrete,Successor 0c3c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c3d 0000 0000 | | .XXX[0x3] 0c3f 0000 | | 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c43 | C | .CONST 0x0c43 ; Address of begin 0c41 0c5d | ] | .CONST 0x0c5d ; Address of exception handler 0c42 0001 | | .CONST 0x0001 ; Number of locals 0c43 BODY_0c40: 0c43 INIT_0c40: 0c43 e28d | | Load 0x1,0x8d 0c44 0337 | 7 | Declare_Variable Array 0c45 00db | | Load_Top At_Offset_3 0c46 09f8 | | Execute_Immediate Binary_Scale,-0x8 0c47 00d8 | | Load_Top At_Offset_0 0c48 e28c | | Load 0x1,0x8c 0c49 0260 | ` | Execute Discrete,In_Type 0c4a 7001 |p | Jump_Nonzero 0xc4c 0c4b 0801 | | Execute_Immediate Raise,0x1 0c4c 4801 |H | Short_Literal 0x1 0c4d 00da | | Load_Top At_Offset_2 0c4e 01d6 | | Execute Vector,Field_Write 0c4f 00db | | Load_Top At_Offset_3 0c50 48ff |H | Short_Literal 0xff 0c51 0279 | y | Execute Discrete,And 0c52 00d8 | | Load_Top At_Offset_0 0c53 e28c | | Load 0x1,0x8c 0c54 0260 | ` | Execute Discrete,In_Type 0c55 7001 |p | Jump_Nonzero 0xc57 0c56 0801 | | Execute_Immediate Raise,0x1 0c57 4802 |H | Short_Literal 0x2 0c58 00da | | Load_Top At_Offset_2 0c59 01d6 | | Execute Vector,Field_Write 0c5a e28d | | Load 0x1,0x8d 0c5b 01c3 | | Execute Vector,Check_In_Type 0c5c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c5d TRAP_0c40: 0c5d 010e | | Execute Exception,Is_Constraint_Error 0c5e 6802 |h | Jump_Zero 0xc61 0c5f e28e | | Load 0x1,0x8e 0c60 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c61 0100 | | Execute Exception,Raise 0c62 0000 0000 | | .BLANK 0000[0x6] 0c68 ; -------------------------------------------------------------------------------------- 0c68 ; SUBPROGRAM 0c68 ; -------------------------------------------------------------------------------------- 0c68 0c6b | k | .CONST 0x0c6b ; Address of begin 0c69 0004 | | .CONST 0x0004 ; Address of exception handler 0c6a 0001 | | .CONST 0x0001 ; Number of locals 0c6b BODY_0c68: 0c6b INIT_0c68: 0c6b 00da | | Load_Top At_Offset_2 0c6c 0217 | | Execute Heap_Access,All_Reference 0c6d 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0c6e e5fe | | Load 0x2,-0x2 0c6f e29b | | Load 0x1,0x9b 0c70 01d5 | | Execute Vector,Field_Reference 0c71 01c1 | | Execute Vector,Less 0c72 6827 |h' | Jump_Zero 0xc9a 0c73 0092 1e32 | 2| Action Push_String_Extended,0x1e32 ; "Remote operation " 0c75 e5fd | | Load 0x2,-0x3 0c76 e014 | | Load 0x0,0x14 0c77 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0c78 01cc | | Execute Vector,Catenate 0c79 0092 1e33 | 3| Action Push_String_Extended,0x1e33 ; " is not supported by " 0c7b 01cc | | Execute Vector,Catenate 0c7c 00db | | Load_Top At_Offset_3 0c7d 8278 | x | Call 0x1,0x78 0c7e 01cc | | Execute Vector,Catenate 0c7f 0092 1e34 | 4| Action Push_String_Extended,0x1e34 ; " server version " 0c81 01cc | | Execute Vector,Catenate 0c82 00db | | Load_Top At_Offset_3 0c83 0217 | | Execute Heap_Access,All_Reference 0c84 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 0c85 828f | | Call 0x1,0x8f 0c86 01cc | | Execute Vector,Catenate 0c87 0092 1e35 | 5| Action Push_String_Extended,0x1e35 ; " on host \x22" 0c89 01cc | | Execute Vector,Catenate 0c8a 00db | | Load_Top At_Offset_3 0c8b 0217 | | Execute Heap_Access,All_Reference 0c8c 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0c8d 0217 | | Execute Heap_Access,All_Reference 0c8e e003 | | Load 0x0,0x3 0c8f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0c90 01cc | | Execute Vector,Catenate 0c91 0092 1e36 | 6| Action Push_String_Extended,0x1e36 ; "\x22. This operation requires at least server version " 0c93 01cc | | Execute Vector,Catenate 0c94 e5fe | | Load 0x2,-0x2 0c95 e29b | | Load 0x1,0x9b 0c96 01d5 | | Execute Vector,Field_Reference 0c97 828f | | Call 0x1,0x8f 0c98 01cc | | Execute Vector,Catenate 0c99 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0c9a 00ea | | Load_Encached Null_String_Cache 0c9b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0c9c 0000 0000 | | .BLANK 0000[0x4] 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 ; SUBPROGRAM 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 0ca7 | | .CONST 0x0ca7 ; Address of begin 0ca1 0004 | | .CONST 0x0004 ; Address of exception handler 0ca2 0002 | | .CONST 0x0002 ; Number of locals 0ca3 INIT_0ca0: 0ca3 e243 | C | Load 0x1,0x43 0ca4 02c7 | | Declare_Variable Any 0ca5 00d8 | | Load_Top At_Offset_0 0ca6 1c00 | | Execute_Immediate Run_Utility,0x0 0ca7 BODY_0ca0: 0ca7 00d8 | | Load_Top At_Offset_0 0ca8 e001 | | Load 0x0,0x1 0ca9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0caa c402 | | Store 0x2,0x2 0cab e5fe | | Load 0x2,-0x2 0cac 0b00 | | Execute_Immediate Case_Compare,0x0 0cad 700e |p | Jump_Nonzero 0xcbc 0cae 0f01 | | Execute_Immediate Equal,0x1 0caf 700f |p | Jump_Nonzero 0xcbf 0cb0 00d8 | | Load_Top At_Offset_0 0cb1 4802 |H | Short_Literal 0x2 0cb2 e5fd | | Load 0x2,-0x3 0cb3 e5fe | | Load 0x2,-0x2 0cb4 e26c | l | Load 0x1,0x6c 0cb5 011c | | Execute Any,Convert_Unchecked 0cb6 1c01 | | Execute_Immediate Run_Utility,0x1 0cb7 e001 | | Load 0x0,0x1 0cb8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0cb9 c402 | | Store 0x2,0x2 0cba 00d8 | | Load_Top At_Offset_0 0cbb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0cbc 00d1 | | Pop_Control Pop_Count_1 0cbd 00d8 | | Load_Top At_Offset_0 0cbe 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0cbf 00db | | Load_Top At_Offset_3 0cc0 0217 | | Execute Heap_Access,All_Reference 0cc1 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0cc2 00d8 | | Load_Top At_Offset_0 0cc3 0120 | | Execute Any,Is_Value 0cc4 7002 |p | Jump_Nonzero 0xcc7 0cc5 00d8 | | Load_Top At_Offset_0 0cc6 011e | | Execute Any,Convert 0cc7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 ; SUBPROGRAM 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 0ccf | | .CONST 0x0ccf ; Address of begin 0cc9 0004 | | .CONST 0x0004 ; Address of exception handler 0cca 0002 | | .CONST 0x0002 ; Number of locals 0ccb INIT_0cc8: 0ccb e243 | C | Load 0x1,0x43 0ccc 02c7 | | Declare_Variable Any 0ccd 00d8 | | Load_Top At_Offset_0 0cce 1c00 | | Execute_Immediate Run_Utility,0x0 0ccf BODY_0cc8: 0ccf 00d8 | | Load_Top At_Offset_0 0cd0 4802 |H | Short_Literal 0x2 0cd1 0092 1e18 | | Action Push_String_Extended,0x1e18 ; "Null Connection" 0cd3 0092 1d26 | &| Action Push_String_Extended,0x1d26 ; "CONNECTION_ERROR" 0cd5 e001 | | Load 0x0,0x1 0cd6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0cd7 c402 | | Store 0x2,0x2 0cd8 00d8 | | Load_Top At_Offset_0 0cd9 00ca | | Action Exit_Nullary_Function 0cda 0000 0000 | | .BLANK 0000[0x6] 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0ce8 | | .CONST 0x0ce8 ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0002 | | .CONST 0x0002 ; Number of locals 0ce3 INIT_0ce0: 0ce3 e001 | | Load 0x0,0x1 0ce4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ce5 02c7 | | Declare_Variable Any 0ce6 00d8 | | Load_Top At_Offset_0 0ce7 1c00 | | Execute_Immediate Run_Utility,0x0 0ce8 BODY_0ce0: 0ce8 00d8 | | Load_Top At_Offset_0 0ce9 4802 |H | Short_Literal 0x2 0cea 0092 1e37 | 7| Action Push_String_Extended,0x1e37 ; "Not Implemented on R1000" 0cec 0092 1d31 | 1| Action Push_String_Extended,0x1d31 ; "USE_ERROR" 0cee e001 | | Load 0x0,0x1 0cef 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0cf0 c402 | | Store 0x2,0x2 0cf1 00d8 | | Load_Top At_Offset_0 0cf2 00ca | | Action Exit_Nullary_Function 0cf3 0000 0000 | | .BLANK 0000[0x5] 0cf8 ; -------------------------------------------------------------------------------------- 0cf8 ; SUBPROGRAM 0cf8 ; -------------------------------------------------------------------------------------- 0cf8 0cfb | | .CONST 0x0cfb ; Address of begin 0cf9 0004 | | .CONST 0x0004 ; Address of exception handler 0cfa 0001 | | .CONST 0x0001 ; Number of locals 0cfb BODY_0cf8: 0cfb INIT_0cf8: 0cfb 00da | | Load_Top At_Offset_2 0cfc e20f | | Load 0x1,0xf 0cfd 021f | | Execute Heap_Access,Equal 0cfe 6802 |h | Jump_Zero 0xd01 0cff 4800 |H | Short_Literal 0x0 0d00 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d01 00da | | Load_Top At_Offset_2 0d02 0217 | | Execute Heap_Access,All_Reference 0d03 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0d04 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d05 0000 0000 | | .XXX[0x3] 0d07 0000 | | 0d08 ; -------------------------------------------------------------------------------------- 0d08 ; SUBPROGRAM 0d08 ; -------------------------------------------------------------------------------------- 0d08 0d30 | 0 | .CONST 0x0d30 ; Address of begin 0d09 0d87 | | .CONST 0x0d87 ; Address of exception handler 0d0a 000c | | .CONST 0x000c ; Number of locals 0d0b INIT_0d08: 0d0b 0092 1e24 | $| Action Push_String_Extended,0x1e24 ; "put" 0d0d 4801 |H | Short_Literal 0x1 0d0e e5fa | | Load 0x2,-0x6 0d0f 82a2 | | Call 0x1,0xa2 0d10 e2a0 | | Load 0x1,0xa0 0d11 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d12 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d13 0322 | " | Declare_Variable Record 0d14 00d8 | | Load_Top At_Offset_0 0d15 1c00 | | Execute_Immediate Run_Utility,0x0 0d16 e243 | C | Load 0x1,0x43 0d17 02c7 | | Declare_Variable Any 0d18 00d8 | | Load_Top At_Offset_0 0d19 1c00 | | Execute_Immediate Run_Utility,0x0 0d1a e29d | | Load 0x1,0x9d 0d1b 0007 | | Action Break_Optional 0d1c 00e3 | | Load_Encached Natural_Cache 0d1d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d1e 4800 |H | Short_Literal 0x0 0d1f 4805 |H | Short_Literal 0x5 0d20 029f 1983 | | Declare_Subprogram INIT_1980,For_Call 0d22 03fd | | Declare_Type Discrete,Defined 0d23 4800 |H | Short_Literal 0x0 0d24 4809 |H | Short_Literal 0x9 0d25 029f 19ab | | Declare_Subprogram INIT_19a8,For_Call 0d27 03fd | | Declare_Type Discrete,Defined 0d28 029f 19d3 | | Declare_Subprogram INIT_19d0,For_Call 0d2a 029f 19eb | | Declare_Subprogram INIT_19e8,For_Call 0d2c 029f 1a03 | | Declare_Subprogram INIT_1a00,For_Call 0d2e 029f 1a93 | | Declare_Subprogram INIT_1a90,For_Call 0d30 BODY_0d08: 0d30 e404 | | Load 0x2,0x4 0d31 e001 | | Load 0x0,0x1 0d32 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d33 c404 | | Store 0x2,0x4 0d34 e404 | | Load 0x2,0x4 0d35 c5f9 | | Store 0x2,-0x7 0d36 e5fa | | Load 0x2,-0x6 0d37 e20f | | Load 0x1,0xf 0d38 021f | | Execute Heap_Access,Equal 0d39 6803 |h | Jump_Zero 0xd3d 0d3a 82a4 | | Call 0x1,0xa4 0d3b c5f9 | | Store 0x2,-0x7 0d3c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d3d e402 | | Load 0x2,0x2 0d3e 01db | | Execute Vector,Length 0d3f 0c01 | | Execute_Immediate Greater_Equal,0x1 0d40 6806 |h | Jump_Zero 0xd47 0d41 e402 | | Load 0x2,0x2 0d42 480b |H | Short_Literal 0xb 0d43 e5fa | | Load 0x2,-0x6 0d44 82a3 | | Call 0x1,0xa3 0d45 c5f9 | | Store 0x2,-0x7 0d46 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d47 e5fa | | Load 0x2,-0x6 0d48 0217 | | Execute Heap_Access,All_Reference 0d49 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0d4a 6803 |h | Jump_Zero 0xd4e 0d4b 82a5 | | Call 0x1,0xa5 0d4c c5f9 | | Store 0x2,-0x7 0d4d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d4e e403 | | Load 0x2,0x3 0d4f e5fd | | Load 0x2,-0x3 0d50 e5fe | | Load 0x2,-0x2 0d51 e5ff | | Load 0x2,-0x1 0d52 e2a0 | | Load 0x1,0xa0 0d53 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d54 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d55 00d1 | | Pop_Control Pop_Count_1 0d56 e405 | | Load 0x2,0x5 0d57 4801 |H | Short_Literal 0x1 0d58 e5fa | | Load 0x2,-0x6 0d59 840b | | Call 0x2,0xb 0d5a c405 | | Store 0x2,0x5 0d5b e5fa | | Load 0x2,-0x6 0d5c 0217 | | Execute Heap_Access,All_Reference 0d5d 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb 0d5e e5fa | | Load 0x2,-0x6 0d5f 0217 | | Execute Heap_Access,All_Reference 0d60 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa 0d61 01dd | | Execute Vector,First 0d62 027f | | Execute Discrete,Equal 0d63 6805 |h | Jump_Zero 0xd69 0d64 e5fa | | Load 0x2,-0x6 0d65 0217 | | Execute Heap_Access,All_Reference 0d66 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc 0d67 0f00 | | Execute_Immediate Equal,0x0 0d68 7801 |x | Jump 0xd6a 0d69 4800 |H | Short_Literal 0x0 0d6a 7001 |p | Jump_Nonzero 0xd6c 0d6b 0887 | | Execute_Immediate Raise,0x87 0d6c e405 | | Load 0x2,0x5 0d6d 7005 |p | Jump_Nonzero 0xd73 0d6e e29d | | Load 0x1,0x9d 0d6f 4801 |H | Short_Literal 0x1 0d70 e5fa | | Load 0x2,-0x6 0d71 840c | | Call 0x2,0xc 0d72 c405 | | Store 0x2,0x5 0d73 e405 | | Load 0x2,0x5 0d74 7006 |p | Jump_Nonzero 0xd7b 0d75 00ea | | Load_Encached Null_String_Cache 0d76 e405 | | Load 0x2,0x5 0d77 e5fa | | Load 0x2,-0x6 0d78 82a3 | | Call 0x1,0xa3 0d79 c5f9 | | Store 0x2,-0x7 0d7a 7807 |x | Jump 0xd82 0d7b e5fa | | Load 0x2,-0x6 0d7c e29e | | Load 0x1,0x9e 0d7d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d7e e405 | | Load 0x2,0x5 0d7f e5fa | | Load 0x2,-0x6 0d80 82a3 | | Call 0x1,0xa3 0d81 c5f9 | | Store 0x2,-0x7 0d82 e403 | | Load 0x2,0x3 0d83 e2a0 | | Load 0x1,0xa0 0d84 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d85 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0d86 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d87 TRAP_0d08: 0d87 e013 | | Load 0x0,0x13 0d88 010f | | Execute Exception,Equal 0d89 6809 |h | Jump_Zero 0xd93 0d8a e403 | | Load 0x2,0x3 0d8b e2a0 | | Load 0x1,0xa0 0d8c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d8d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0d8e e5fa | | Load 0x2,-0x6 0d8f 0217 | | Execute Heap_Access,All_Reference 0d90 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0d91 c5f9 | | Store 0x2,-0x7 0d92 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0d93 0100 | | Execute Exception,Raise 0d94 0000 0000 | | .BLANK 0000[0x4] 0d98 ; -------------------------------------------------------------------------------------- 0d98 ; SUBPROGRAM 0d98 ; -------------------------------------------------------------------------------------- 0d98 0dc0 | | .CONST 0x0dc0 ; Address of begin 0d99 0e06 | | .CONST 0x0e06 ; Address of exception handler 0d9a 000c | | .CONST 0x000c ; Number of locals 0d9b INIT_0d98: 0d9b 0092 1e27 | '| Action Push_String_Extended,0x1e27 ; "get" 0d9d 4802 |H | Short_Literal 0x2 0d9e e5fb | | Load 0x2,-0x5 0d9f 82a2 | | Call 0x1,0xa2 0da0 e2a0 | | Load 0x1,0xa0 0da1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0da2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0da3 0322 | " | Declare_Variable Record 0da4 00d8 | | Load_Top At_Offset_0 0da5 1c00 | | Execute_Immediate Run_Utility,0x0 0da6 e243 | C | Load 0x1,0x43 0da7 02c7 | | Declare_Variable Any 0da8 00d8 | | Load_Top At_Offset_0 0da9 1c00 | | Execute_Immediate Run_Utility,0x0 0daa e29d | | Load 0x1,0x9d 0dab 0007 | | Action Break_Optional 0dac 00e3 | | Load_Encached Natural_Cache 0dad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0dae 4800 |H | Short_Literal 0x0 0daf 4804 |H | Short_Literal 0x4 0db0 029f 1acb | | Declare_Subprogram INIT_1ac8,For_Call 0db2 03fd | | Declare_Type Discrete,Defined 0db3 4800 |H | Short_Literal 0x0 0db4 4809 |H | Short_Literal 0x9 0db5 029f 1af3 | | Declare_Subprogram INIT_1af0,For_Call 0db7 03fd | | Declare_Type Discrete,Defined 0db8 029f 1b1b | | Declare_Subprogram INIT_1b18,For_Call 0dba 029f 1b33 | 3| Declare_Subprogram INIT_1b30,For_Call 0dbc 029f 1b4b | K| Declare_Subprogram INIT_1b48,For_Call 0dbe 029f 1bab | | Declare_Subprogram INIT_1ba8,For_Call 0dc0 BODY_0d98: 0dc0 e404 | | Load 0x2,0x4 0dc1 e001 | | Load 0x0,0x1 0dc2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc3 c404 | | Store 0x2,0x4 0dc4 e404 | | Load 0x2,0x4 0dc5 c5fa | | Store 0x2,-0x6 0dc6 e5fb | | Load 0x2,-0x5 0dc7 e20f | | Load 0x1,0xf 0dc8 021f | | Execute Heap_Access,Equal 0dc9 6803 |h | Jump_Zero 0xdcd 0dca 82a4 | | Call 0x1,0xa4 0dcb c5fa | | Store 0x2,-0x6 0dcc 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0dcd e402 | | Load 0x2,0x2 0dce 01db | | Execute Vector,Length 0dcf 0c01 | | Execute_Immediate Greater_Equal,0x1 0dd0 6806 |h | Jump_Zero 0xdd7 0dd1 e402 | | Load 0x2,0x2 0dd2 480b |H | Short_Literal 0xb 0dd3 e5fb | | Load 0x2,-0x5 0dd4 82a3 | | Call 0x1,0xa3 0dd5 c5fa | | Store 0x2,-0x6 0dd6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0dd7 e5fb | | Load 0x2,-0x5 0dd8 0217 | | Execute Heap_Access,All_Reference 0dd9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0dda 6803 |h | Jump_Zero 0xdde 0ddb 82a5 | | Call 0x1,0xa5 0ddc c5fa | | Store 0x2,-0x6 0ddd 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0dde e403 | | Load 0x2,0x3 0ddf e5fc | | Load 0x2,-0x4 0de0 e5fd | | Load 0x2,-0x3 0de1 e5ff | | Load 0x2,-0x1 0de2 e2a0 | | Load 0x1,0xa0 0de3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0de4 180e | | Execute Package,Field_Execute,Field_Number 0xe 0de5 00d1 | | Pop_Control Pop_Count_1 0de6 e405 | | Load 0x2,0x5 0de7 4802 |H | Short_Literal 0x2 0de8 e5fb | | Load 0x2,-0x5 0de9 840b | | Call 0x2,0xb 0dea c405 | | Store 0x2,0x5 0deb e405 | | Load 0x2,0x5 0dec 7005 |p | Jump_Nonzero 0xdf2 0ded e29d | | Load 0x1,0x9d 0dee 4802 |H | Short_Literal 0x2 0def e5fb | | Load 0x2,-0x5 0df0 840c | | Call 0x2,0xc 0df1 c405 | | Store 0x2,0x5 0df2 e405 | | Load 0x2,0x5 0df3 7006 |p | Jump_Nonzero 0xdfa 0df4 00ea | | Load_Encached Null_String_Cache 0df5 e405 | | Load 0x2,0x5 0df6 e5fb | | Load 0x2,-0x5 0df7 82a3 | | Call 0x1,0xa3 0df8 c5fa | | Store 0x2,-0x6 0df9 7807 |x | Jump 0xe01 0dfa e5fb | | Load 0x2,-0x5 0dfb e29e | | Load 0x1,0x9e 0dfc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0dfd e405 | | Load 0x2,0x5 0dfe e5fb | | Load 0x2,-0x5 0dff 82a3 | | Call 0x1,0xa3 0e00 c5fa | | Store 0x2,-0x6 0e01 e403 | | Load 0x2,0x3 0e02 e2a0 | | Load 0x1,0xa0 0e03 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e04 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e05 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e06 TRAP_0d98: 0e06 e013 | | Load 0x0,0x13 0e07 010f | | Execute Exception,Equal 0e08 6809 |h | Jump_Zero 0xe12 0e09 e403 | | Load 0x2,0x3 0e0a e2a0 | | Load 0x1,0xa0 0e0b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e0c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e0d e5fb | | Load 0x2,-0x5 0e0e 0217 | | Execute Heap_Access,All_Reference 0e0f 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0e10 c5fa | | Store 0x2,-0x6 0e11 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e12 0100 | | Execute Exception,Raise 0e13 0000 0000 | | .BLANK 0000[0x5] 0e18 ; -------------------------------------------------------------------------------------- 0e18 ; SUBPROGRAM 0e18 ; -------------------------------------------------------------------------------------- 0e18 0e40 | @ | .CONST 0x0e40 ; Address of begin 0e19 0e87 | | .CONST 0x0e87 ; Address of exception handler 0e1a 000c | | .CONST 0x000c ; Number of locals 0e1b INIT_0e18: 0e1b 0092 1e2f | /| Action Push_String_Extended,0x1e2f ; "ls" 0e1d 4808 |H | Short_Literal 0x8 0e1e e5fb | | Load 0x2,-0x5 0e1f 82a2 | | Call 0x1,0xa2 0e20 e2a0 | | Load 0x1,0xa0 0e21 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0e22 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e23 0322 | " | Declare_Variable Record 0e24 00d8 | | Load_Top At_Offset_0 0e25 1c00 | | Execute_Immediate Run_Utility,0x0 0e26 e243 | C | Load 0x1,0x43 0e27 02c7 | | Declare_Variable Any 0e28 00d8 | | Load_Top At_Offset_0 0e29 1c00 | | Execute_Immediate Run_Utility,0x0 0e2a e29d | | Load 0x1,0x9d 0e2b 0007 | | Action Break_Optional 0e2c 00e3 | | Load_Encached Natural_Cache 0e2d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e2e 4800 |H | Short_Literal 0x0 0e2f 4804 |H | Short_Literal 0x4 0e30 029f 1c03 | | Declare_Subprogram INIT_1c00,For_Call 0e32 03fd | | Declare_Type Discrete,Defined 0e33 4800 |H | Short_Literal 0x0 0e34 4803 |H | Short_Literal 0x3 0e35 029f 1c2b | +| Declare_Subprogram INIT_1c28,For_Call 0e37 03fd | | Declare_Type Discrete,Defined 0e38 029f 1c53 | S| Declare_Subprogram INIT_1c50,For_Call 0e3a 029f 1c6b | k| Declare_Subprogram INIT_1c68,For_Call 0e3c 029f 1c83 | | Declare_Subprogram INIT_1c80,For_Call 0e3e 029f 1cd3 | | Declare_Subprogram INIT_1cd0,For_Call 0e40 BODY_0e18: 0e40 e5fb | | Load 0x2,-0x5 0e41 e20f | | Load 0x1,0xf 0e42 021f | | Execute Heap_Access,Equal 0e43 6803 |h | Jump_Zero 0xe47 0e44 82a4 | | Call 0x1,0xa4 0e45 c5fa | | Store 0x2,-0x6 0e46 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e47 e402 | | Load 0x2,0x2 0e48 01db | | Execute Vector,Length 0e49 0c01 | | Execute_Immediate Greater_Equal,0x1 0e4a 6806 |h | Jump_Zero 0xe51 0e4b e402 | | Load 0x2,0x2 0e4c 480b |H | Short_Literal 0xb 0e4d e5fb | | Load 0x2,-0x5 0e4e 82a3 | | Call 0x1,0xa3 0e4f c5fa | | Store 0x2,-0x6 0e50 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e51 e5fb | | Load 0x2,-0x5 0e52 0217 | | Execute Heap_Access,All_Reference 0e53 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0e54 6803 |h | Jump_Zero 0xe58 0e55 82a5 | | Call 0x1,0xa5 0e56 c5fa | | Store 0x2,-0x6 0e57 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e58 e403 | | Load 0x2,0x3 0e59 e5fc | | Load 0x2,-0x4 0e5a e5fd | | Load 0x2,-0x3 0e5b e5fe | | Load 0x2,-0x2 0e5c e5ff | | Load 0x2,-0x1 0e5d e2a0 | | Load 0x1,0xa0 0e5e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0e5f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e60 00d1 | | Pop_Control Pop_Count_1 0e61 e404 | | Load 0x2,0x4 0e62 e001 | | Load 0x0,0x1 0e63 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e64 c404 | | Store 0x2,0x4 0e65 e404 | | Load 0x2,0x4 0e66 c5fa | | Store 0x2,-0x6 0e67 e405 | | Load 0x2,0x5 0e68 4808 |H | Short_Literal 0x8 0e69 e5fb | | Load 0x2,-0x5 0e6a 840b | | Call 0x2,0xb 0e6b c405 | | Store 0x2,0x5 0e6c e405 | | Load 0x2,0x5 0e6d 7005 |p | Jump_Nonzero 0xe73 0e6e e29d | | Load 0x1,0x9d 0e6f 4808 |H | Short_Literal 0x8 0e70 e5fb | | Load 0x2,-0x5 0e71 840c | | Call 0x2,0xc 0e72 c405 | | Store 0x2,0x5 0e73 e405 | | Load 0x2,0x5 0e74 7006 |p | Jump_Nonzero 0xe7b 0e75 00ea | | Load_Encached Null_String_Cache 0e76 e405 | | Load 0x2,0x5 0e77 e5fb | | Load 0x2,-0x5 0e78 82a3 | | Call 0x1,0xa3 0e79 c5fa | | Store 0x2,-0x6 0e7a 7807 |x | Jump 0xe82 0e7b e5fb | | Load 0x2,-0x5 0e7c e29e | | Load 0x1,0x9e 0e7d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e7e e405 | | Load 0x2,0x5 0e7f e5fb | | Load 0x2,-0x5 0e80 82a3 | | Call 0x1,0xa3 0e81 c5fa | | Store 0x2,-0x6 0e82 e403 | | Load 0x2,0x3 0e83 e2a0 | | Load 0x1,0xa0 0e84 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0e85 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e86 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e87 TRAP_0e18: 0e87 e013 | | Load 0x0,0x13 0e88 010f | | Execute Exception,Equal 0e89 6809 |h | Jump_Zero 0xe93 0e8a e403 | | Load 0x2,0x3 0e8b e2a0 | | Load 0x1,0xa0 0e8c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0e8d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e8e e5fb | | Load 0x2,-0x5 0e8f 0217 | | Execute Heap_Access,All_Reference 0e90 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0e91 c5fa | | Store 0x2,-0x6 0e92 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0e93 0100 | | Execute Exception,Raise 0e94 0000 0000 | | .BLANK 0000[0x4] 0e98 ; -------------------------------------------------------------------------------------- 0e98 ; SUBPROGRAM 0e98 ; -------------------------------------------------------------------------------------- 0e98 0e9c | | .CONST 0x0e9c ; Address of begin 0e99 0eaa | | .CONST 0x0eaa ; Address of exception handler 0e9a 0002 | | .CONST 0x0002 ; Number of locals 0e9b INIT_0e98: 0e9b 00e3 | | Load_Encached Natural_Cache 0e9c BODY_0e98: 0e9c e5fe | | Load 0x2,-0x2 0e9d e29e | | Load 0x1,0x9e 0e9e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0e9f 0059 | Y | Store_Top Discrete,At_Offset_1 0ea0 00d8 | | Load_Top At_Offset_0 0ea1 00d8 | | Load_Top At_Offset_0 0ea2 e296 | | Load 0x1,0x96 0ea3 0260 | ` | Execute Discrete,In_Type 0ea4 7001 |p | Jump_Nonzero 0xea6 0ea5 0801 | | Execute_Immediate Raise,0x1 0ea6 e5fe | | Load 0x2,-0x2 0ea7 0217 | | Execute Heap_Access,All_Reference 0ea8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0ea9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0eaa TRAP_0e98: 0eaa 010e | | Execute Exception,Is_Constraint_Error 0eab 6805 |h | Jump_Zero 0xeb1 0eac 4800 |H | Short_Literal 0x0 0ead e5fe | | Load 0x2,-0x2 0eae 0217 | | Execute Heap_Access,All_Reference 0eaf 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0eb0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0eb1 0100 | | Execute Exception,Raise 0eb2 0000 0000 | | .BLANK 0000[0x6] 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 ; SUBPROGRAM 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 0ebb | | .CONST 0x0ebb ; Address of begin 0eb9 0ec0 | | .CONST 0x0ec0 ; Address of exception handler 0eba 0001 | | .CONST 0x0001 ; Number of locals 0ebb BODY_0eb8: 0ebb INIT_0eb8: 0ebb 4800 |H | Short_Literal 0x0 0ebc e5ff | | Load 0x2,-0x1 0ebd e29e | | Load 0x1,0x9e 0ebe 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ebf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ec0 TRAP_0eb8: 0ec0 0007 | | Action Break_Optional 0ec1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ec2 0000 0000 | | .BLANK 0000[0x6] 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 ; SUBPROGRAM 0ec8 ; -------------------------------------------------------------------------------------- 0ec8 0ecb | | .CONST 0x0ecb ; Address of begin 0ec9 0004 | | .CONST 0x0004 ; Address of exception handler 0eca 0001 | | .CONST 0x0001 ; Number of locals 0ecb BODY_0ec8: 0ecb INIT_0ec8: 0ecb 4607 |F | Jump_Case 0x8 0ecc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0ecd 7806 |x | Jump 0xed4 ; case 0x1 0ece 7809 |x | Jump 0xed8 ; case 0x2 0ecf 780d |x | Jump 0xedd ; case 0x3 0ed0 7810 |x | Jump 0xee1 ; case 0x4 0ed1 7811 |x | Jump 0xee3 ; case 0x5 0ed2 7812 |x | Jump 0xee5 ; case 0x6 0ed3 7815 |x | Jump 0xee9 ; case 0x7 0ed4 00da | | Load_Top At_Offset_2 0ed5 0091 1d6a | j| Action Push_String_Extended_Indexed,0x1d6a ; "SENTINEL" 0ed7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0ed8 00db | | Load_Top At_Offset_3 0ed9 00db | | Load_Top At_Offset_3 0eda 00e0 | | Load_Encached Standard_Cache 0edb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0edc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0edd 00da | | Load_Top At_Offset_2 0ede 00e0 | | Load_Encached Standard_Cache 0edf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ee0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0ee1 00db | | Load_Top At_Offset_3 0ee2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0ee3 00db | | Load_Top At_Offset_3 0ee4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0ee5 e405 | | Load 0x2,0x5 0ee6 00dc | | Load_Top At_Offset_4 0ee7 0267 | g | Execute Discrete,Predecessor 0ee8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0ee9 e405 | | Load 0x2,0x5 0eea 00dc | | Load_Top At_Offset_4 0eeb 0268 | h | Execute Discrete,Successor 0eec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0eed 0000 0000 | | .XXX[0x3] 0eef 0000 | | 0ef0 ; -------------------------------------------------------------------------------------- 0ef0 ; SUBPROGRAM 0ef0 ; -------------------------------------------------------------------------------------- 0ef0 0ef3 | | .CONST 0x0ef3 ; Address of begin 0ef1 0004 | | .CONST 0x0004 ; Address of exception handler 0ef2 0001 | | .CONST 0x0001 ; Number of locals 0ef3 BODY_0ef0: 0ef3 INIT_0ef0: 0ef3 4607 |F | Jump_Case 0x8 0ef4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0ef5 7806 |x | Jump 0xefc ; case 0x1 0ef6 7809 |x | Jump 0xf00 ; case 0x2 0ef7 780d |x | Jump 0xf05 ; case 0x3 0ef8 7810 |x | Jump 0xf09 ; case 0x4 0ef9 7811 |x | Jump 0xf0b ; case 0x5 0efa 7812 |x | Jump 0xf0d ; case 0x6 0efb 7815 |x | Jump 0xf11 ; case 0x7 0efc 00da | | Load_Top At_Offset_2 0efd 0091 1d70 | p| Action Push_String_Extended_Indexed,0x1d70 ; "NO_ERROR" 0eff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0f00 00db | | Load_Top At_Offset_3 0f01 00db | | Load_Top At_Offset_3 0f02 00e0 | | Load_Encached Standard_Cache 0f03 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0f04 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f05 00da | | Load_Top At_Offset_2 0f06 00e0 | | Load_Encached Standard_Cache 0f07 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0f08 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0f09 00db | | Load_Top At_Offset_3 0f0a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f0b 00db | | Load_Top At_Offset_3 0f0c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f0d e406 | | Load 0x2,0x6 0f0e 00dc | | Load_Top At_Offset_4 0f0f 0267 | g | Execute Discrete,Predecessor 0f10 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f11 e406 | | Load 0x2,0x6 0f12 00dc | | Load_Top At_Offset_4 0f13 0268 | h | Execute Discrete,Successor 0f14 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f15 0000 0000 | | .XXX[0x3] 0f17 0000 | | 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f1d | | .CONST 0x0f1d ; Address of begin 0f19 0f26 | & | .CONST 0x0f26 ; Address of exception handler 0f1a 0002 | | .CONST 0x0002 ; Number of locals 0f1b INIT_0f18: 0f1b e405 | | Load 0x2,0x5 0f1c 0007 | | Action Break_Optional 0f1d BODY_0f18: 0f1d 00db | | Load_Top At_Offset_3 0f1e e29c | | Load 0x1,0x9c 0f1f 011c | | Execute Any,Convert_Unchecked 0f20 1c01 | | Execute_Immediate Run_Utility,0x1 0f21 e405 | | Load 0x2,0x5 0f22 1c02 | | Execute_Immediate Run_Utility,0x2 0f23 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0f24 00db | | Load_Top At_Offset_3 0f25 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f26 TRAP_0f18: 0f26 0007 | | Action Break_Optional 0f27 e01e | | Load 0x0,0x1e 0f28 0257 | W | Execute Discrete,Raise 0f29 0000 0000 | | .BLANK 0000[0x7] 0f30 ; -------------------------------------------------------------------------------------- 0f30 ; SUBPROGRAM 0f30 ; -------------------------------------------------------------------------------------- 0f30 0f35 | 5 | .CONST 0x0f35 ; Address of begin 0f31 0f3e | > | .CONST 0x0f3e ; Address of exception handler 0f32 0002 | | .CONST 0x0002 ; Number of locals 0f33 INIT_0f30: 0f33 e406 | | Load 0x2,0x6 0f34 0007 | | Action Break_Optional 0f35 BODY_0f30: 0f35 00db | | Load_Top At_Offset_3 0f36 e26c | l | Load 0x1,0x6c 0f37 011c | | Execute Any,Convert_Unchecked 0f38 1c01 | | Execute_Immediate Run_Utility,0x1 0f39 e406 | | Load 0x2,0x6 0f3a 1c02 | | Execute_Immediate Run_Utility,0x2 0f3b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0f3c 00db | | Load_Top At_Offset_3 0f3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f3e TRAP_0f30: 0f3e 0007 | | Action Break_Optional 0f3f 4802 |H | Short_Literal 0x2 0f40 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f41 0000 0000 | | .BLANK 0000[0x7] 0f48 ; -------------------------------------------------------------------------------------- 0f48 ; SUBPROGRAM 0f48 ; -------------------------------------------------------------------------------------- 0f48 0f4e | N | .CONST 0x0f4e ; Address of begin 0f49 0fa7 | | .CONST 0x0fa7 ; Address of exception handler 0f4a 0002 | | .CONST 0x0002 ; Number of locals 0f4b INIT_0f48: 0f4b 00db | | Load_Top At_Offset_3 0f4c 00e3 | | Load_Encached Natural_Cache 0f4d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0f4e BODY_0f48: 0f4e 4800 |H | Short_Literal 0x0 0f4f e5fb | | Load 0x2,-0x5 0f50 e29e | | Load 0x1,0x9e 0f51 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f52 e2a0 | | Load 0x1,0xa0 0f53 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f54 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f55 8408 | | Call 0x2,0x8 0f56 a7fd | | Store_Unchecked 0x3,-0x3 0f57 e7fd | | Load 0x3,-0x3 0f58 6809 |h | Jump_Zero 0xf62 0f59 4801 |H | Short_Literal 0x1 0f5a e5fb | | Load 0x2,-0x5 0f5b e29e | | Load 0x1,0x9e 0f5c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f5d 4802 |H | Short_Literal 0x2 0f5e e7ff | | Load 0x3,-0x1 0f5f e29e | | Load 0x1,0x9e 0f60 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f61 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f62 4801 |H | Short_Literal 0x1 0f63 e7ff | | Load 0x3,-0x1 0f64 e29e | | Load 0x1,0x9e 0f65 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f66 00d8 | | Load_Top At_Offset_0 0f67 e7ff | | Load 0x3,-0x1 0f68 e29e | | Load 0x1,0x9e 0f69 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f6a 4803 |H | Short_Literal 0x3 0f6b e7ff | | Load 0x3,-0x1 0f6c e29e | | Load 0x1,0x9e 0f6d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f6e e5fd | | Load 0x2,-0x3 0f6f e7ff | | Load 0x3,-0x1 0f70 e29e | | Load 0x1,0x9e 0f71 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f72 4819 |H | Short_Literal 0x19 0f73 e7ff | | Load 0x3,-0x1 0f74 e29e | | Load 0x1,0x9e 0f75 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f76 e5fc | | Load 0x2,-0x4 0f77 e7ff | | Load 0x3,-0x1 0f78 e29e | | Load 0x1,0x9e 0f79 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f7a 4804 |H | Short_Literal 0x4 0f7b e7ff | | Load 0x3,-0x1 0f7c e29e | | Load 0x1,0x9e 0f7d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f7e e5ff | | Load 0x2,-0x1 0f7f e7ff | | Load 0x3,-0x1 0f80 e29e | | Load 0x1,0x9e 0f81 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0f82 481c |H | Short_Literal 0x1c 0f83 e7ff | | Load 0x3,-0x1 0f84 e29e | | Load 0x1,0x9e 0f85 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f86 e5fe | | Load 0x2,-0x2 0f87 e7ff | | Load 0x3,-0x1 0f88 e29e | | Load 0x1,0x9e 0f89 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0f8a e2a0 | | Load 0x1,0xa0 0f8b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f8c 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f8d 8408 | | Call 0x2,0x8 0f8e a7fd | | Store_Unchecked 0x3,-0x3 0f8f e7fd | | Load 0x3,-0x3 0f90 6809 |h | Jump_Zero 0xf9a 0f91 4801 |H | Short_Literal 0x1 0f92 e5fb | | Load 0x2,-0x5 0f93 e29e | | Load 0x1,0x9e 0f94 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0f95 4802 |H | Short_Literal 0x2 0f96 e7ff | | Load 0x3,-0x1 0f97 e29e | | Load 0x1,0x9e 0f98 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f99 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f9a 4801 |H | Short_Literal 0x1 0f9b e7ff | | Load 0x3,-0x1 0f9c e29e | | Load 0x1,0x9e 0f9d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0f9e 4801 |H | Short_Literal 0x1 0f9f e5fb | | Load 0x2,-0x5 0fa0 e29e | | Load 0x1,0x9e 0fa1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0fa2 00d8 | | Load_Top At_Offset_0 0fa3 e7ff | | Load 0x3,-0x1 0fa4 e29e | | Load 0x1,0x9e 0fa5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0fa6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fa7 TRAP_0f48: 0fa7 e01e | | Load 0x0,0x1e 0fa8 010f | | Execute Exception,Equal 0fa9 6803 |h | Jump_Zero 0xfad 0faa 4802 |H | Short_Literal 0x2 0fab a7fd | | Store_Unchecked 0x3,-0x3 0fac 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fad e013 | | Load 0x0,0x13 0fae 010f | | Execute Exception,Equal 0faf 6803 |h | Jump_Zero 0xfb3 0fb0 4801 |H | Short_Literal 0x1 0fb1 a7fd | | Store_Unchecked 0x3,-0x3 0fb2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fb3 0100 | | Execute Exception,Raise 0fb4 0000 0000 | | .BLANK 0000[0x4] 0fb8 ; -------------------------------------------------------------------------------------- 0fb8 ; SUBPROGRAM 0fb8 ; -------------------------------------------------------------------------------------- 0fb8 0fc0 | | .CONST 0x0fc0 ; Address of begin 0fb9 0fd8 | | .CONST 0x0fd8 ; Address of exception handler 0fba 0003 | | .CONST 0x0003 ; Number of locals 0fbb INIT_0fb8: 0fbb 00db | | Load_Top At_Offset_3 0fbc 00e3 | | Load_Encached Natural_Cache 0fbd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0fbe e29c | | Load 0x1,0x9c 0fbf 0007 | | Action Break_Optional 0fc0 BODY_0fb8: 0fc0 e7ff | | Load 0x3,-0x1 0fc1 e29e | | Load 0x1,0x9e 0fc2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0fc3 8407 | | Call 0x2,0x7 0fc4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0fc5 00d8 | | Load_Top At_Offset_0 0fc6 0f01 | | Execute_Immediate Equal,0x1 0fc7 7002 |p | Jump_Nonzero 0xfca 0fc8 e01e | | Load 0x0,0x1e 0fc9 0257 | W | Execute Discrete,Raise 0fca e7ff | | Load 0x3,-0x1 0fcb e29e | | Load 0x1,0x9e 0fcc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0fcd 00da | | Load_Top At_Offset_2 0fce 027f | | Execute Discrete,Equal 0fcf 7002 |p | Jump_Nonzero 0xfd2 0fd0 e01e | | Load 0x0,0x1e 0fd1 0257 | W | Execute Discrete,Raise 0fd2 e2a0 | | Load 0x1,0xa0 0fd3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fd4 180f | | Execute Package,Field_Execute,Field_Number 0xf 0fd5 8408 | | Call 0x2,0x8 0fd6 a7fd | | Store_Unchecked 0x3,-0x3 0fd7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fd8 TRAP_0fb8: 0fd8 e011 | | Load 0x0,0x11 0fd9 010f | | Execute Exception,Equal 0fda 6806 |h | Jump_Zero 0xfe1 0fdb e7ff | | Load 0x3,-0x1 0fdc e29e | | Load 0x1,0x9e 0fdd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0fde 8408 | | Call 0x2,0x8 0fdf a7fd | | Store_Unchecked 0x3,-0x3 0fe0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fe1 e013 | | Load 0x0,0x13 0fe2 010f | | Execute Exception,Equal 0fe3 6803 |h | Jump_Zero 0xfe7 0fe4 4801 |H | Short_Literal 0x1 0fe5 a7fd | | Store_Unchecked 0x3,-0x3 0fe6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fe7 e01e | | Load 0x0,0x1e 0fe8 010f | | Execute Exception,Equal 0fe9 6803 |h | Jump_Zero 0xfed 0fea 4802 |H | Short_Literal 0x2 0feb a7fd | | Store_Unchecked 0x3,-0x3 0fec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fed 0100 | | Execute Exception,Raise 0fee 0000 0000 | | .XXX[0x2] 0ff0 ; -------------------------------------------------------------------------------------- 0ff0 ; SUBPROGRAM 0ff0 ; -------------------------------------------------------------------------------------- 0ff0 0ff3 | | .CONST 0x0ff3 ; Address of begin 0ff1 0004 | | .CONST 0x0004 ; Address of exception handler 0ff2 0001 | | .CONST 0x0001 ; Number of locals 0ff3 BODY_0ff0: 0ff3 INIT_0ff0: 0ff3 4607 |F | Jump_Case 0x8 0ff4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0ff5 7806 |x | Jump 0xffc ; case 0x1 0ff6 7809 |x | Jump 0x1000 ; case 0x2 0ff7 780d |x | Jump 0x1005 ; case 0x3 0ff8 7810 |x | Jump 0x1009 ; case 0x4 0ff9 7811 |x | Jump 0x100b ; case 0x5 0ffa 7812 |x | Jump 0x100d ; case 0x6 0ffb 7815 |x | Jump 0x1011 ; case 0x7 0ffc 00da | | Load_Top At_Offset_2 0ffd 0091 1d79 | y| Action Push_String_Extended_Indexed,0x1d79 ; "SENTINEL" 0fff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1000 00db | | Load_Top At_Offset_3 1001 00db | | Load_Top At_Offset_3 1002 00e0 | | Load_Encached Standard_Cache 1003 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1004 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1005 00da | | Load_Top At_Offset_2 1006 00e0 | | Load_Encached Standard_Cache 1007 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1008 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1009 00db | | Load_Top At_Offset_3 100a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 100b 00db | | Load_Top At_Offset_3 100c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 100d e405 | | Load 0x2,0x5 100e 00dc | | Load_Top At_Offset_4 100f 0267 | g | Execute Discrete,Predecessor 1010 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1011 e405 | | Load 0x2,0x5 1012 00dc | | Load_Top At_Offset_4 1013 0268 | h | Execute Discrete,Successor 1014 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1015 0000 0000 | | .XXX[0x3] 1017 0000 | | 1018 ; -------------------------------------------------------------------------------------- 1018 ; SUBPROGRAM 1018 ; -------------------------------------------------------------------------------------- 1018 101b | | .CONST 0x101b ; Address of begin 1019 0004 | | .CONST 0x0004 ; Address of exception handler 101a 0001 | | .CONST 0x0001 ; Number of locals 101b BODY_1018: 101b INIT_1018: 101b 4607 |F | Jump_Case 0x8 101c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 101d 7806 |x | Jump 0x1024 ; case 0x1 101e 7809 |x | Jump 0x1028 ; case 0x2 101f 780d |x | Jump 0x102d ; case 0x3 1020 7810 |x | Jump 0x1031 ; case 0x4 1021 7811 |x | Jump 0x1033 ; case 0x5 1022 7812 |x | Jump 0x1035 ; case 0x6 1023 7815 |x | Jump 0x1039 ; case 0x7 1024 00da | | Load_Top At_Offset_2 1025 0091 1d7f | | Action Push_String_Extended_Indexed,0x1d7f ; "NO_ERROR" 1027 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1028 00db | | Load_Top At_Offset_3 1029 00db | | Load_Top At_Offset_3 102a 00e0 | | Load_Encached Standard_Cache 102b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 102c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 102d 00da | | Load_Top At_Offset_2 102e 00e0 | | Load_Encached Standard_Cache 102f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1031 00db | | Load_Top At_Offset_3 1032 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1033 00db | | Load_Top At_Offset_3 1034 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1035 e406 | | Load 0x2,0x6 1036 00dc | | Load_Top At_Offset_4 1037 0267 | g | Execute Discrete,Predecessor 1038 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1039 e406 | | Load 0x2,0x6 103a 00dc | | Load_Top At_Offset_4 103b 0268 | h | Execute Discrete,Successor 103c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 103d 0000 0000 | | .XXX[0x3] 103f 0000 | | 1040 ; -------------------------------------------------------------------------------------- 1040 ; SUBPROGRAM 1040 ; -------------------------------------------------------------------------------------- 1040 1045 | E | .CONST 0x1045 ; Address of begin 1041 104e | N | .CONST 0x104e ; Address of exception handler 1042 0002 | | .CONST 0x0002 ; Number of locals 1043 INIT_1040: 1043 e405 | | Load 0x2,0x5 1044 0007 | | Action Break_Optional 1045 BODY_1040: 1045 00db | | Load_Top At_Offset_3 1046 e29c | | Load 0x1,0x9c 1047 011c | | Execute Any,Convert_Unchecked 1048 1c01 | | Execute_Immediate Run_Utility,0x1 1049 e405 | | Load 0x2,0x5 104a 1c02 | | Execute_Immediate Run_Utility,0x2 104b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 104c 00db | | Load_Top At_Offset_3 104d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 104e TRAP_1040: 104e 0007 | | Action Break_Optional 104f e01f | | Load 0x0,0x1f 1050 0257 | W | Execute Discrete,Raise 1051 0000 0000 | | .BLANK 0000[0x7] 1058 ; -------------------------------------------------------------------------------------- 1058 ; SUBPROGRAM 1058 ; -------------------------------------------------------------------------------------- 1058 105d | ] | .CONST 0x105d ; Address of begin 1059 1066 | f | .CONST 0x1066 ; Address of exception handler 105a 0002 | | .CONST 0x0002 ; Number of locals 105b INIT_1058: 105b e406 | | Load 0x2,0x6 105c 0007 | | Action Break_Optional 105d BODY_1058: 105d 00db | | Load_Top At_Offset_3 105e e26c | l | Load 0x1,0x6c 105f 011c | | Execute Any,Convert_Unchecked 1060 1c01 | | Execute_Immediate Run_Utility,0x1 1061 e406 | | Load 0x2,0x6 1062 1c02 | | Execute_Immediate Run_Utility,0x2 1063 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1064 00db | | Load_Top At_Offset_3 1065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1066 TRAP_1058: 1066 0007 | | Action Break_Optional 1067 4802 |H | Short_Literal 0x2 1068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1069 0000 0000 | | .BLANK 0000[0x7] 1070 ; -------------------------------------------------------------------------------------- 1070 ; SUBPROGRAM 1070 ; -------------------------------------------------------------------------------------- 1070 1076 | v | .CONST 0x1076 ; Address of begin 1071 10bf | | .CONST 0x10bf ; Address of exception handler 1072 0002 | | .CONST 0x0002 ; Number of locals 1073 INIT_1070: 1073 00db | | Load_Top At_Offset_3 1074 00e3 | | Load_Encached Natural_Cache 1075 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1076 BODY_1070: 1076 4800 |H | Short_Literal 0x0 1077 e5fd | | Load 0x2,-0x3 1078 e29e | | Load 0x1,0x9e 1079 1810 | | Execute Package,Field_Execute,Field_Number 0x10 107a e2a0 | | Load 0x1,0xa0 107b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 107c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 107d 8408 | | Call 0x2,0x8 107e a7fd | | Store_Unchecked 0x3,-0x3 107f e7fd | | Load 0x3,-0x3 1080 6809 |h | Jump_Zero 0x108a 1081 4801 |H | Short_Literal 0x1 1082 e5fd | | Load 0x2,-0x3 1083 e29e | | Load 0x1,0x9e 1084 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1085 4802 |H | Short_Literal 0x2 1086 e7ff | | Load 0x3,-0x1 1087 e29e | | Load 0x1,0x9e 1088 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1089 4503 |E | Exit_Suprogram New_Top_Offset 0x3 108a 4801 |H | Short_Literal 0x1 108b e7ff | | Load 0x3,-0x1 108c e29e | | Load 0x1,0x9e 108d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 108e 00d8 | | Load_Top At_Offset_0 108f e7ff | | Load 0x3,-0x1 1090 e29e | | Load 0x1,0x9e 1091 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1092 480b |H | Short_Literal 0xb 1093 e7ff | | Load 0x3,-0x1 1094 e29e | | Load 0x1,0x9e 1095 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1096 e5ff | | Load 0x2,-0x1 1097 e7ff | | Load 0x3,-0x1 1098 e29e | | Load 0x1,0x9e 1099 1816 | | Execute Package,Field_Execute,Field_Number 0x16 109a 481c |H | Short_Literal 0x1c 109b e7ff | | Load 0x3,-0x1 109c e29e | | Load 0x1,0x9e 109d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 109e e5fe | | Load 0x2,-0x2 109f e7ff | | Load 0x3,-0x1 10a0 e29e | | Load 0x1,0x9e 10a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 10a2 e2a0 | | Load 0x1,0xa0 10a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 10a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10a5 8408 | | Call 0x2,0x8 10a6 a7fd | | Store_Unchecked 0x3,-0x3 10a7 e7fd | | Load 0x3,-0x3 10a8 6809 |h | Jump_Zero 0x10b2 10a9 4801 |H | Short_Literal 0x1 10aa e5fd | | Load 0x2,-0x3 10ab e29e | | Load 0x1,0x9e 10ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10ad 4802 |H | Short_Literal 0x2 10ae e7ff | | Load 0x3,-0x1 10af e29e | | Load 0x1,0x9e 10b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 10b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 10b2 4801 |H | Short_Literal 0x1 10b3 e7ff | | Load 0x3,-0x1 10b4 e29e | | Load 0x1,0x9e 10b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 10b6 4801 |H | Short_Literal 0x1 10b7 e5fd | | Load 0x2,-0x3 10b8 e29e | | Load 0x1,0x9e 10b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10ba 00d8 | | Load_Top At_Offset_0 10bb e7ff | | Load 0x3,-0x1 10bc e29e | | Load 0x1,0x9e 10bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 10be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 10bf TRAP_1070: 10bf e01f | | Load 0x0,0x1f 10c0 010f | | Execute Exception,Equal 10c1 6803 |h | Jump_Zero 0x10c5 10c2 4802 |H | Short_Literal 0x2 10c3 a7fd | | Store_Unchecked 0x3,-0x3 10c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 10c5 e013 | | Load 0x0,0x13 10c6 010f | | Execute Exception,Equal 10c7 6803 |h | Jump_Zero 0x10cb 10c8 4801 |H | Short_Literal 0x1 10c9 a7fd | | Store_Unchecked 0x3,-0x3 10ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 10cb 0100 | | Execute Exception,Raise 10cc 0000 0000 | | .BLANK 0000[0x4] 10d0 ; -------------------------------------------------------------------------------------- 10d0 ; SUBPROGRAM 10d0 ; -------------------------------------------------------------------------------------- 10d0 10d9 | | .CONST 0x10d9 ; Address of begin 10d1 1107 | | .CONST 0x1107 ; Address of exception handler 10d2 0004 | | .CONST 0x0004 ; Number of locals 10d3 INIT_10d0: 10d3 00db | | Load_Top At_Offset_3 10d4 00e3 | | Load_Encached Natural_Cache 10d5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 10d6 e29c | | Load 0x1,0x9c 10d7 0007 | | Action Break_Optional 10d8 00e2 | | Load_Encached Integer_Cache 10d9 BODY_10d0: 10d9 4800 |H | Short_Literal 0x0 10da a5fc | | Store_Unchecked 0x2,-0x4 10db e7ff | | Load 0x3,-0x1 10dc e29e | | Load 0x1,0x9e 10dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 10de 8407 | | Call 0x2,0x7 10df 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 10e0 00d9 | | Load_Top At_Offset_1 10e1 0f08 | | Execute_Immediate Equal,0x8 10e2 7002 |p | Jump_Nonzero 0x10e5 10e3 e01f | | Load 0x0,0x1f 10e4 0257 | W | Execute Discrete,Raise 10e5 e7ff | | Load 0x3,-0x1 10e6 e29e | | Load 0x1,0x9e 10e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 10e8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 10e9 00d8 | | Load_Top At_Offset_0 10ea e2a0 | | Load 0x1,0xa0 10eb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 10ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 10ed 00d8 | | Load_Top At_Offset_0 10ee a5fc | | Store_Unchecked 0x2,-0x4 10ef e7ff | | Load 0x3,-0x1 10f0 e29e | | Load 0x1,0x9e 10f1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 10f2 8407 | | Call 0x2,0x7 10f3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 10f4 00d9 | | Load_Top At_Offset_1 10f5 0f01 | | Execute_Immediate Equal,0x1 10f6 7002 |p | Jump_Nonzero 0x10f9 10f7 e01f | | Load 0x0,0x1f 10f8 0257 | W | Execute Discrete,Raise 10f9 e7ff | | Load 0x3,-0x1 10fa e29e | | Load 0x1,0x9e 10fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 10fc 00db | | Load_Top At_Offset_3 10fd 027f | | Execute Discrete,Equal 10fe 7002 |p | Jump_Nonzero 0x1101 10ff e01f | | Load 0x0,0x1f 1100 0257 | W | Execute Discrete,Raise 1101 e2a0 | | Load 0x1,0xa0 1102 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1103 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1104 8408 | | Call 0x2,0x8 1105 a7fd | | Store_Unchecked 0x3,-0x3 1106 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1107 TRAP_10d0: 1107 e011 | | Load 0x0,0x11 1108 010f | | Execute Exception,Equal 1109 6806 |h | Jump_Zero 0x1110 110a e7ff | | Load 0x3,-0x1 110b e29e | | Load 0x1,0x9e 110c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 110d 8408 | | Call 0x2,0x8 110e a7fd | | Store_Unchecked 0x3,-0x3 110f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1110 e013 | | Load 0x0,0x13 1111 010f | | Execute Exception,Equal 1112 6803 |h | Jump_Zero 0x1116 1113 4801 |H | Short_Literal 0x1 1114 a7fd | | Store_Unchecked 0x3,-0x3 1115 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1116 e01f | | Load 0x0,0x1f 1117 010f | | Execute Exception,Equal 1118 6803 |h | Jump_Zero 0x111c 1119 4802 |H | Short_Literal 0x2 111a a7fd | | Store_Unchecked 0x3,-0x3 111b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 111c 0100 | | Execute Exception,Raise 111d 0000 0000 | | .XXX[0x3] 111f 0000 | | 1120 ; -------------------------------------------------------------------------------------- 1120 ; SUBPROGRAM 1120 ; -------------------------------------------------------------------------------------- 1120 1123 | # | .CONST 0x1123 ; Address of begin 1121 0004 | | .CONST 0x0004 ; Address of exception handler 1122 0001 | | .CONST 0x0001 ; Number of locals 1123 BODY_1120: 1123 INIT_1120: 1123 4607 |F | Jump_Case 0x8 1124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1125 7806 |x | Jump 0x112c ; case 0x1 1126 7809 |x | Jump 0x1130 ; case 0x2 1127 780d |x | Jump 0x1135 ; case 0x3 1128 7810 |x | Jump 0x1139 ; case 0x4 1129 7811 |x | Jump 0x113b ; case 0x5 112a 7812 |x | Jump 0x113d ; case 0x6 112b 7815 |x | Jump 0x1141 ; case 0x7 112c 00da | | Load_Top At_Offset_2 112d 0091 1d88 | | Action Push_String_Extended_Indexed,0x1d88 ; "SENTINEL" 112f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1130 00db | | Load_Top At_Offset_3 1131 00db | | Load_Top At_Offset_3 1132 00e0 | | Load_Encached Standard_Cache 1133 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1135 00da | | Load_Top At_Offset_2 1136 00e0 | | Load_Encached Standard_Cache 1137 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1139 00db | | Load_Top At_Offset_3 113a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 113b 00db | | Load_Top At_Offset_3 113c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 113d e405 | | Load 0x2,0x5 113e 00dc | | Load_Top At_Offset_4 113f 0267 | g | Execute Discrete,Predecessor 1140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1141 e405 | | Load 0x2,0x5 1142 00dc | | Load_Top At_Offset_4 1143 0268 | h | Execute Discrete,Successor 1144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1145 0000 0000 | | .XXX[0x3] 1147 0000 | | 1148 ; -------------------------------------------------------------------------------------- 1148 ; SUBPROGRAM 1148 ; -------------------------------------------------------------------------------------- 1148 114b | K | .CONST 0x114b ; Address of begin 1149 0004 | | .CONST 0x0004 ; Address of exception handler 114a 0001 | | .CONST 0x0001 ; Number of locals 114b BODY_1148: 114b INIT_1148: 114b 4607 |F | Jump_Case 0x8 114c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 114d 7806 |x | Jump 0x1154 ; case 0x1 114e 7809 |x | Jump 0x1158 ; case 0x2 114f 780d |x | Jump 0x115d ; case 0x3 1150 7810 |x | Jump 0x1161 ; case 0x4 1151 7811 |x | Jump 0x1163 ; case 0x5 1152 7812 |x | Jump 0x1165 ; case 0x6 1153 7815 |x | Jump 0x1169 ; case 0x7 1154 00da | | Load_Top At_Offset_2 1155 0091 1d8c | | Action Push_String_Extended_Indexed,0x1d8c ; "NO_ERROR" 1157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1158 00db | | Load_Top At_Offset_3 1159 00db | | Load_Top At_Offset_3 115a 00e0 | | Load_Encached Standard_Cache 115b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 115c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 115d 00da | | Load_Top At_Offset_2 115e 00e0 | | Load_Encached Standard_Cache 115f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1161 00db | | Load_Top At_Offset_3 1162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1163 00db | | Load_Top At_Offset_3 1164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1165 e406 | | Load 0x2,0x6 1166 00dc | | Load_Top At_Offset_4 1167 0267 | g | Execute Discrete,Predecessor 1168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1169 e406 | | Load 0x2,0x6 116a 00dc | | Load_Top At_Offset_4 116b 0268 | h | Execute Discrete,Successor 116c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 116d 0000 0000 | | .XXX[0x3] 116f 0000 | | 1170 ; -------------------------------------------------------------------------------------- 1170 ; SUBPROGRAM 1170 ; -------------------------------------------------------------------------------------- 1170 1175 | u | .CONST 0x1175 ; Address of begin 1171 117e | ~ | .CONST 0x117e ; Address of exception handler 1172 0002 | | .CONST 0x0002 ; Number of locals 1173 INIT_1170: 1173 e405 | | Load 0x2,0x5 1174 0007 | | Action Break_Optional 1175 BODY_1170: 1175 00db | | Load_Top At_Offset_3 1176 e29c | | Load 0x1,0x9c 1177 011c | | Execute Any,Convert_Unchecked 1178 1c01 | | Execute_Immediate Run_Utility,0x1 1179 e405 | | Load 0x2,0x5 117a 1c02 | | Execute_Immediate Run_Utility,0x2 117b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 117c 00db | | Load_Top At_Offset_3 117d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 117e TRAP_1170: 117e 0007 | | Action Break_Optional 117f e020 | | Load 0x0,0x20 1180 0257 | W | Execute Discrete,Raise 1181 0000 0000 | | .BLANK 0000[0x7] 1188 ; -------------------------------------------------------------------------------------- 1188 ; SUBPROGRAM 1188 ; -------------------------------------------------------------------------------------- 1188 118d | | .CONST 0x118d ; Address of begin 1189 1196 | | .CONST 0x1196 ; Address of exception handler 118a 0002 | | .CONST 0x0002 ; Number of locals 118b INIT_1188: 118b e406 | | Load 0x2,0x6 118c 0007 | | Action Break_Optional 118d BODY_1188: 118d 00db | | Load_Top At_Offset_3 118e e26c | l | Load 0x1,0x6c 118f 011c | | Execute Any,Convert_Unchecked 1190 1c01 | | Execute_Immediate Run_Utility,0x1 1191 e406 | | Load 0x2,0x6 1192 1c02 | | Execute_Immediate Run_Utility,0x2 1193 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1194 00db | | Load_Top At_Offset_3 1195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1196 TRAP_1188: 1196 0007 | | Action Break_Optional 1197 4802 |H | Short_Literal 0x2 1198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1199 0000 0000 | | .BLANK 0000[0x7] 11a0 ; -------------------------------------------------------------------------------------- 11a0 ; SUBPROGRAM 11a0 ; -------------------------------------------------------------------------------------- 11a0 11a6 | | .CONST 0x11a6 ; Address of begin 11a1 11e7 | | .CONST 0x11e7 ; Address of exception handler 11a2 0002 | | .CONST 0x0002 ; Number of locals 11a3 INIT_11a0: 11a3 00db | | Load_Top At_Offset_3 11a4 00e3 | | Load_Encached Natural_Cache 11a5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 11a6 BODY_11a0: 11a6 4800 |H | Short_Literal 0x0 11a7 e5fe | | Load 0x2,-0x2 11a8 e29e | | Load 0x1,0x9e 11a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11aa e2a0 | | Load 0x1,0xa0 11ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11 11ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11ad 8408 | | Call 0x2,0x8 11ae a7fd | | Store_Unchecked 0x3,-0x3 11af e7fd | | Load 0x3,-0x3 11b0 6809 |h | Jump_Zero 0x11ba 11b1 4801 |H | Short_Literal 0x1 11b2 e5fe | | Load 0x2,-0x2 11b3 e29e | | Load 0x1,0x9e 11b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11b5 4802 |H | Short_Literal 0x2 11b6 e7ff | | Load 0x3,-0x1 11b7 e29e | | Load 0x1,0x9e 11b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11ba 4801 |H | Short_Literal 0x1 11bb e7ff | | Load 0x3,-0x1 11bc e29e | | Load 0x1,0x9e 11bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11be 00d8 | | Load_Top At_Offset_0 11bf e7ff | | Load 0x3,-0x1 11c0 e29e | | Load 0x1,0x9e 11c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 11c2 480b |H | Short_Literal 0xb 11c3 e7ff | | Load 0x3,-0x1 11c4 e29e | | Load 0x1,0x9e 11c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11c6 e5ff | | Load 0x2,-0x1 11c7 e7ff | | Load 0x3,-0x1 11c8 e29e | | Load 0x1,0x9e 11c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 11ca e2a0 | | Load 0x1,0xa0 11cb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 11cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11cd 8408 | | Call 0x2,0x8 11ce a7fd | | Store_Unchecked 0x3,-0x3 11cf e7fd | | Load 0x3,-0x3 11d0 6809 |h | Jump_Zero 0x11da 11d1 4801 |H | Short_Literal 0x1 11d2 e5fe | | Load 0x2,-0x2 11d3 e29e | | Load 0x1,0x9e 11d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11d5 4802 |H | Short_Literal 0x2 11d6 e7ff | | Load 0x3,-0x1 11d7 e29e | | Load 0x1,0x9e 11d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11da 4801 |H | Short_Literal 0x1 11db e7ff | | Load 0x3,-0x1 11dc e29e | | Load 0x1,0x9e 11dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11de 4801 |H | Short_Literal 0x1 11df e5fe | | Load 0x2,-0x2 11e0 e29e | | Load 0x1,0x9e 11e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11e2 00d8 | | Load_Top At_Offset_0 11e3 e7ff | | Load 0x3,-0x1 11e4 e29e | | Load 0x1,0x9e 11e5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 11e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11e7 TRAP_11a0: 11e7 e020 | | Load 0x0,0x20 11e8 010f | | Execute Exception,Equal 11e9 6803 |h | Jump_Zero 0x11ed 11ea 4802 |H | Short_Literal 0x2 11eb a7fd | | Store_Unchecked 0x3,-0x3 11ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11ed e013 | | Load 0x0,0x13 11ee 010f | | Execute Exception,Equal 11ef 6803 |h | Jump_Zero 0x11f3 11f0 4801 |H | Short_Literal 0x1 11f1 a7fd | | Store_Unchecked 0x3,-0x3 11f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 11f3 0100 | | Execute Exception,Raise 11f4 0000 0000 | | .BLANK 0000[0x4] 11f8 ; -------------------------------------------------------------------------------------- 11f8 ; SUBPROGRAM 11f8 ; -------------------------------------------------------------------------------------- 11f8 1201 | | .CONST 0x1201 ; Address of begin 11f9 122f | / | .CONST 0x122f ; Address of exception handler 11fa 0004 | | .CONST 0x0004 ; Number of locals 11fb INIT_11f8: 11fb 00db | | Load_Top At_Offset_3 11fc 00e3 | | Load_Encached Natural_Cache 11fd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 11fe e29c | | Load 0x1,0x9c 11ff 0007 | | Action Break_Optional 1200 00e1 | | Load_Encached Boolean_Cache 1201 BODY_11f8: 1201 4800 |H | Short_Literal 0x0 1202 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1203 e7ff | | Load 0x3,-0x1 1204 e29e | | Load 0x1,0x9e 1205 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1206 8407 | | Call 0x2,0x7 1207 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 1208 00d9 | | Load_Top At_Offset_1 1209 0f09 | | Execute_Immediate Equal,0x9 120a 7002 |p | Jump_Nonzero 0x120d 120b e020 | | Load 0x0,0x20 120c 0257 | W | Execute Discrete,Raise 120d e7ff | | Load 0x3,-0x1 120e e29e | | Load 0x1,0x9e 120f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1210 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1211 00d8 | | Load_Top At_Offset_0 1212 e2a0 | | Load 0x1,0xa0 1213 1b11 | | Execute Package,Field_Read,Field_Number 0x11 1214 180e | | Execute Package,Field_Execute,Field_Number 0xe 1215 00d8 | | Load_Top At_Offset_0 1216 a5fd | | Store_Unchecked 0x2,-0x3 1217 e7ff | | Load 0x3,-0x1 1218 e29e | | Load 0x1,0x9e 1219 1818 | | Execute Package,Field_Execute,Field_Number 0x18 121a 8407 | | Call 0x2,0x7 121b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 121c 00d9 | | Load_Top At_Offset_1 121d 0f01 | | Execute_Immediate Equal,0x1 121e 7002 |p | Jump_Nonzero 0x1221 121f e020 | | Load 0x0,0x20 1220 0257 | W | Execute Discrete,Raise 1221 e7ff | | Load 0x3,-0x1 1222 e29e | | Load 0x1,0x9e 1223 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1224 00db | | Load_Top At_Offset_3 1225 027f | | Execute Discrete,Equal 1226 7002 |p | Jump_Nonzero 0x1229 1227 e020 | | Load 0x0,0x20 1228 0257 | W | Execute Discrete,Raise 1229 e2a0 | | Load 0x1,0xa0 122a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 122b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 122c 8408 | | Call 0x2,0x8 122d a7fd | | Store_Unchecked 0x3,-0x3 122e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 122f TRAP_11f8: 122f e011 | | Load 0x0,0x11 1230 010f | | Execute Exception,Equal 1231 6806 |h | Jump_Zero 0x1238 1232 e7ff | | Load 0x3,-0x1 1233 e29e | | Load 0x1,0x9e 1234 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1235 8408 | | Call 0x2,0x8 1236 a7fd | | Store_Unchecked 0x3,-0x3 1237 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1238 e013 | | Load 0x0,0x13 1239 010f | | Execute Exception,Equal 123a 6803 |h | Jump_Zero 0x123e 123b 4801 |H | Short_Literal 0x1 123c a7fd | | Store_Unchecked 0x3,-0x3 123d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 123e e020 | | Load 0x0,0x20 123f 010f | | Execute Exception,Equal 1240 6803 |h | Jump_Zero 0x1244 1241 4802 |H | Short_Literal 0x2 1242 a7fd | | Store_Unchecked 0x3,-0x3 1243 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1244 0100 | | Execute Exception,Raise 1245 0000 0000 | | .XXX[0x3] 1247 0000 | | 1248 ; -------------------------------------------------------------------------------------- 1248 ; SUBPROGRAM 1248 ; -------------------------------------------------------------------------------------- 1248 124b | K | .CONST 0x124b ; Address of begin 1249 0004 | | .CONST 0x0004 ; Address of exception handler 124a 0001 | | .CONST 0x0001 ; Number of locals 124b BODY_1248: 124b INIT_1248: 124b 4607 |F | Jump_Case 0x8 124c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 124d 7806 |x | Jump 0x1254 ; case 0x1 124e 7809 |x | Jump 0x1258 ; case 0x2 124f 780d |x | Jump 0x125d ; case 0x3 1250 7810 |x | Jump 0x1261 ; case 0x4 1251 7811 |x | Jump 0x1263 ; case 0x5 1252 7812 |x | Jump 0x1265 ; case 0x6 1253 7815 |x | Jump 0x1269 ; case 0x7 1254 00da | | Load_Top At_Offset_2 1255 0091 1d95 | | Action Push_String_Extended_Indexed,0x1d95 ; "SENTINEL" 1257 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1258 00db | | Load_Top At_Offset_3 1259 00db | | Load_Top At_Offset_3 125a 00e0 | | Load_Encached Standard_Cache 125b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 125c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 125d 00da | | Load_Top At_Offset_2 125e 00e0 | | Load_Encached Standard_Cache 125f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1260 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1261 00db | | Load_Top At_Offset_3 1262 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1263 00db | | Load_Top At_Offset_3 1264 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1265 e405 | | Load 0x2,0x5 1266 00dc | | Load_Top At_Offset_4 1267 0267 | g | Execute Discrete,Predecessor 1268 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1269 e405 | | Load 0x2,0x5 126a 00dc | | Load_Top At_Offset_4 126b 0268 | h | Execute Discrete,Successor 126c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 126d 0000 0000 | | .XXX[0x3] 126f 0000 | | 1270 ; -------------------------------------------------------------------------------------- 1270 ; SUBPROGRAM 1270 ; -------------------------------------------------------------------------------------- 1270 1273 | s | .CONST 0x1273 ; Address of begin 1271 0004 | | .CONST 0x0004 ; Address of exception handler 1272 0001 | | .CONST 0x0001 ; Number of locals 1273 BODY_1270: 1273 INIT_1270: 1273 4607 |F | Jump_Case 0x8 1274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1275 7806 |x | Jump 0x127c ; case 0x1 1276 7809 |x | Jump 0x1280 ; case 0x2 1277 780d |x | Jump 0x1285 ; case 0x3 1278 7810 |x | Jump 0x1289 ; case 0x4 1279 7811 |x | Jump 0x128b ; case 0x5 127a 7812 |x | Jump 0x128d ; case 0x6 127b 7815 |x | Jump 0x1291 ; case 0x7 127c 00da | | Load_Top At_Offset_2 127d 0091 1d9b | | Action Push_String_Extended_Indexed,0x1d9b ; "NO_ERROR" 127f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1280 00db | | Load_Top At_Offset_3 1281 00db | | Load_Top At_Offset_3 1282 00e0 | | Load_Encached Standard_Cache 1283 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1284 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1285 00da | | Load_Top At_Offset_2 1286 00e0 | | Load_Encached Standard_Cache 1287 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1288 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1289 00db | | Load_Top At_Offset_3 128a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 128b 00db | | Load_Top At_Offset_3 128c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 128d e406 | | Load 0x2,0x6 128e 00dc | | Load_Top At_Offset_4 128f 0267 | g | Execute Discrete,Predecessor 1290 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1291 e406 | | Load 0x2,0x6 1292 00dc | | Load_Top At_Offset_4 1293 0268 | h | Execute Discrete,Successor 1294 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1295 0000 0000 | | .XXX[0x3] 1297 0000 | | 1298 ; -------------------------------------------------------------------------------------- 1298 ; SUBPROGRAM 1298 ; -------------------------------------------------------------------------------------- 1298 129d | | .CONST 0x129d ; Address of begin 1299 12a6 | | .CONST 0x12a6 ; Address of exception handler 129a 0002 | | .CONST 0x0002 ; Number of locals 129b INIT_1298: 129b e405 | | Load 0x2,0x5 129c 0007 | | Action Break_Optional 129d BODY_1298: 129d 00db | | Load_Top At_Offset_3 129e e29c | | Load 0x1,0x9c 129f 011c | | Execute Any,Convert_Unchecked 12a0 1c01 | | Execute_Immediate Run_Utility,0x1 12a1 e405 | | Load 0x2,0x5 12a2 1c02 | | Execute_Immediate Run_Utility,0x2 12a3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 12a4 00db | | Load_Top At_Offset_3 12a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12a6 TRAP_1298: 12a6 0007 | | Action Break_Optional 12a7 e021 | ! | Load 0x0,0x21 12a8 0257 | W | Execute Discrete,Raise 12a9 0000 0000 | | .BLANK 0000[0x7] 12b0 ; -------------------------------------------------------------------------------------- 12b0 ; SUBPROGRAM 12b0 ; -------------------------------------------------------------------------------------- 12b0 12b5 | | .CONST 0x12b5 ; Address of begin 12b1 12be | | .CONST 0x12be ; Address of exception handler 12b2 0002 | | .CONST 0x0002 ; Number of locals 12b3 INIT_12b0: 12b3 e406 | | Load 0x2,0x6 12b4 0007 | | Action Break_Optional 12b5 BODY_12b0: 12b5 00db | | Load_Top At_Offset_3 12b6 e26c | l | Load 0x1,0x6c 12b7 011c | | Execute Any,Convert_Unchecked 12b8 1c01 | | Execute_Immediate Run_Utility,0x1 12b9 e406 | | Load 0x2,0x6 12ba 1c02 | | Execute_Immediate Run_Utility,0x2 12bb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 12bc 00db | | Load_Top At_Offset_3 12bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12be TRAP_12b0: 12be 0007 | | Action Break_Optional 12bf 4802 |H | Short_Literal 0x2 12c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12c1 0000 0000 | | .BLANK 0000[0x7] 12c8 ; -------------------------------------------------------------------------------------- 12c8 ; SUBPROGRAM 12c8 ; -------------------------------------------------------------------------------------- 12c8 12ce | | .CONST 0x12ce ; Address of begin 12c9 1327 | ' | .CONST 0x1327 ; Address of exception handler 12ca 0002 | | .CONST 0x0002 ; Number of locals 12cb INIT_12c8: 12cb 00db | | Load_Top At_Offset_3 12cc 00e3 | | Load_Encached Natural_Cache 12cd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 12ce BODY_12c8: 12ce 4800 |H | Short_Literal 0x0 12cf e5fb | | Load 0x2,-0x5 12d0 e29e | | Load 0x1,0x9e 12d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12d2 e2a0 | | Load 0x1,0xa0 12d3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 12d4 180f | | Execute Package,Field_Execute,Field_Number 0xf 12d5 8408 | | Call 0x2,0x8 12d6 a7fd | | Store_Unchecked 0x3,-0x3 12d7 e7fd | | Load 0x3,-0x3 12d8 6809 |h | Jump_Zero 0x12e2 12d9 4801 |H | Short_Literal 0x1 12da e5fb | | Load 0x2,-0x5 12db e29e | | Load 0x1,0x9e 12dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12dd 4802 |H | Short_Literal 0x2 12de e7ff | | Load 0x3,-0x1 12df e29e | | Load 0x1,0x9e 12e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 12e2 4801 |H | Short_Literal 0x1 12e3 e7ff | | Load 0x3,-0x1 12e4 e29e | | Load 0x1,0x9e 12e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12e6 00d8 | | Load_Top At_Offset_0 12e7 e7ff | | Load 0x3,-0x1 12e8 e29e | | Load 0x1,0x9e 12e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 12ea 480c |H | Short_Literal 0xc 12eb e7ff | | Load 0x3,-0x1 12ec e29e | | Load 0x1,0x9e 12ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12ee e5fd | | Load 0x2,-0x3 12ef e7ff | | Load 0x3,-0x1 12f0 e29e | | Load 0x1,0x9e 12f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 12f2 4807 |H | Short_Literal 0x7 12f3 e7ff | | Load 0x3,-0x1 12f4 e29e | | Load 0x1,0x9e 12f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12f6 e5ff | | Load 0x2,-0x1 12f7 e7ff | | Load 0x3,-0x1 12f8 e29e | | Load 0x1,0x9e 12f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 12fa 4806 |H | Short_Literal 0x6 12fb e7ff | | Load 0x3,-0x1 12fc e29e | | Load 0x1,0x9e 12fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12fe e5fe | | Load 0x2,-0x2 12ff e7ff | | Load 0x3,-0x1 1300 e29e | | Load 0x1,0x9e 1301 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1302 481c |H | Short_Literal 0x1c 1303 e7ff | | Load 0x3,-0x1 1304 e29e | | Load 0x1,0x9e 1305 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1306 e5fc | | Load 0x2,-0x4 1307 e7ff | | Load 0x3,-0x1 1308 e29e | | Load 0x1,0x9e 1309 1816 | | Execute Package,Field_Execute,Field_Number 0x16 130a e2a0 | | Load 0x1,0xa0 130b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 130c 180f | | Execute Package,Field_Execute,Field_Number 0xf 130d 8408 | | Call 0x2,0x8 130e a7fd | | Store_Unchecked 0x3,-0x3 130f e7fd | | Load 0x3,-0x3 1310 6809 |h | Jump_Zero 0x131a 1311 4801 |H | Short_Literal 0x1 1312 e5fb | | Load 0x2,-0x5 1313 e29e | | Load 0x1,0x9e 1314 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1315 4802 |H | Short_Literal 0x2 1316 e7ff | | Load 0x3,-0x1 1317 e29e | | Load 0x1,0x9e 1318 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1319 4503 |E | Exit_Suprogram New_Top_Offset 0x3 131a 4801 |H | Short_Literal 0x1 131b e7ff | | Load 0x3,-0x1 131c e29e | | Load 0x1,0x9e 131d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 131e 4801 |H | Short_Literal 0x1 131f e5fb | | Load 0x2,-0x5 1320 e29e | | Load 0x1,0x9e 1321 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1322 00d8 | | Load_Top At_Offset_0 1323 e7ff | | Load 0x3,-0x1 1324 e29e | | Load 0x1,0x9e 1325 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1326 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1327 TRAP_12c8: 1327 e021 | ! | Load 0x0,0x21 1328 010f | | Execute Exception,Equal 1329 6803 |h | Jump_Zero 0x132d 132a 4802 |H | Short_Literal 0x2 132b a7fd | | Store_Unchecked 0x3,-0x3 132c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 132d e013 | | Load 0x0,0x13 132e 010f | | Execute Exception,Equal 132f 6803 |h | Jump_Zero 0x1333 1330 4801 |H | Short_Literal 0x1 1331 a7fd | | Store_Unchecked 0x3,-0x3 1332 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1333 0100 | | Execute Exception,Raise 1334 0000 0000 | | .BLANK 0000[0x4] 1338 ; -------------------------------------------------------------------------------------- 1338 ; SUBPROGRAM 1338 ; -------------------------------------------------------------------------------------- 1338 1340 | @ | .CONST 0x1340 ; Address of begin 1339 1358 | X | .CONST 0x1358 ; Address of exception handler 133a 0003 | | .CONST 0x0003 ; Number of locals 133b INIT_1338: 133b 00db | | Load_Top At_Offset_3 133c 00e3 | | Load_Encached Natural_Cache 133d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 133e e29c | | Load 0x1,0x9c 133f 0007 | | Action Break_Optional 1340 BODY_1338: 1340 e7ff | | Load 0x3,-0x1 1341 e29e | | Load 0x1,0x9e 1342 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1343 8407 | | Call 0x2,0x7 1344 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1345 00d8 | | Load_Top At_Offset_0 1346 0f01 | | Execute_Immediate Equal,0x1 1347 7002 |p | Jump_Nonzero 0x134a 1348 e021 | ! | Load 0x0,0x21 1349 0257 | W | Execute Discrete,Raise 134a e7ff | | Load 0x3,-0x1 134b e29e | | Load 0x1,0x9e 134c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 134d 00da | | Load_Top At_Offset_2 134e 027f | | Execute Discrete,Equal 134f 7002 |p | Jump_Nonzero 0x1352 1350 e021 | ! | Load 0x0,0x21 1351 0257 | W | Execute Discrete,Raise 1352 e2a0 | | Load 0x1,0xa0 1353 1b12 | | Execute Package,Field_Read,Field_Number 0x12 1354 180f | | Execute Package,Field_Execute,Field_Number 0xf 1355 8408 | | Call 0x2,0x8 1356 a7fd | | Store_Unchecked 0x3,-0x3 1357 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1358 TRAP_1338: 1358 e011 | | Load 0x0,0x11 1359 010f | | Execute Exception,Equal 135a 6806 |h | Jump_Zero 0x1361 135b e7ff | | Load 0x3,-0x1 135c e29e | | Load 0x1,0x9e 135d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 135e 8408 | | Call 0x2,0x8 135f a7fd | | Store_Unchecked 0x3,-0x3 1360 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1361 e013 | | Load 0x0,0x13 1362 010f | | Execute Exception,Equal 1363 6803 |h | Jump_Zero 0x1367 1364 4801 |H | Short_Literal 0x1 1365 a7fd | | Store_Unchecked 0x3,-0x3 1366 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1367 e021 | ! | Load 0x0,0x21 1368 010f | | Execute Exception,Equal 1369 6803 |h | Jump_Zero 0x136d 136a 4802 |H | Short_Literal 0x2 136b a7fd | | Store_Unchecked 0x3,-0x3 136c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 136d 0100 | | Execute Exception,Raise 136e 0000 0000 | | .XXX[0x2] 1370 ; -------------------------------------------------------------------------------------- 1370 ; SUBPROGRAM 1370 ; -------------------------------------------------------------------------------------- 1370 1373 | s | .CONST 0x1373 ; Address of begin 1371 0004 | | .CONST 0x0004 ; Address of exception handler 1372 0001 | | .CONST 0x0001 ; Number of locals 1373 BODY_1370: 1373 INIT_1370: 1373 4607 |F | Jump_Case 0x8 1374 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1375 7806 |x | Jump 0x137c ; case 0x1 1376 7809 |x | Jump 0x1380 ; case 0x2 1377 780d |x | Jump 0x1385 ; case 0x3 1378 7810 |x | Jump 0x1389 ; case 0x4 1379 7811 |x | Jump 0x138b ; case 0x5 137a 7812 |x | Jump 0x138d ; case 0x6 137b 7815 |x | Jump 0x1391 ; case 0x7 137c 00da | | Load_Top At_Offset_2 137d 0091 1da6 | | Action Push_String_Extended_Indexed,0x1da6 ; "SENTINEL" 137f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1380 00db | | Load_Top At_Offset_3 1381 00db | | Load_Top At_Offset_3 1382 00e0 | | Load_Encached Standard_Cache 1383 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1384 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1385 00da | | Load_Top At_Offset_2 1386 00e0 | | Load_Encached Standard_Cache 1387 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1388 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1389 00db | | Load_Top At_Offset_3 138a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 138b 00db | | Load_Top At_Offset_3 138c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 138d e405 | | Load 0x2,0x5 138e 00dc | | Load_Top At_Offset_4 138f 0267 | g | Execute Discrete,Predecessor 1390 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1391 e405 | | Load 0x2,0x5 1392 00dc | | Load_Top At_Offset_4 1393 0268 | h | Execute Discrete,Successor 1394 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1395 0000 0000 | | .XXX[0x3] 1397 0000 | | 1398 ; -------------------------------------------------------------------------------------- 1398 ; SUBPROGRAM 1398 ; -------------------------------------------------------------------------------------- 1398 139b | | .CONST 0x139b ; Address of begin 1399 0004 | | .CONST 0x0004 ; Address of exception handler 139a 0001 | | .CONST 0x0001 ; Number of locals 139b BODY_1398: 139b INIT_1398: 139b 4607 |F | Jump_Case 0x8 139c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 139d 7806 |x | Jump 0x13a4 ; case 0x1 139e 7809 |x | Jump 0x13a8 ; case 0x2 139f 780d |x | Jump 0x13ad ; case 0x3 13a0 7810 |x | Jump 0x13b1 ; case 0x4 13a1 7811 |x | Jump 0x13b3 ; case 0x5 13a2 7812 |x | Jump 0x13b5 ; case 0x6 13a3 7815 |x | Jump 0x13b9 ; case 0x7 13a4 00da | | Load_Top At_Offset_2 13a5 0091 1dac | | Action Push_String_Extended_Indexed,0x1dac ; "NO_ERROR" 13a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 13a8 00db | | Load_Top At_Offset_3 13a9 00db | | Load_Top At_Offset_3 13aa 00e0 | | Load_Encached Standard_Cache 13ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 13ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 13ad 00da | | Load_Top At_Offset_2 13ae 00e0 | | Load_Encached Standard_Cache 13af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 13b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 13b1 00db | | Load_Top At_Offset_3 13b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 13b3 00db | | Load_Top At_Offset_3 13b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 13b5 e406 | | Load 0x2,0x6 13b6 00dc | | Load_Top At_Offset_4 13b7 0267 | g | Execute Discrete,Predecessor 13b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 13b9 e406 | | Load 0x2,0x6 13ba 00dc | | Load_Top At_Offset_4 13bb 0268 | h | Execute Discrete,Successor 13bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 13bd 0000 0000 | | .XXX[0x3] 13bf 0000 | | 13c0 ; -------------------------------------------------------------------------------------- 13c0 ; SUBPROGRAM 13c0 ; -------------------------------------------------------------------------------------- 13c0 13c5 | | .CONST 0x13c5 ; Address of begin 13c1 13ce | | .CONST 0x13ce ; Address of exception handler 13c2 0002 | | .CONST 0x0002 ; Number of locals 13c3 INIT_13c0: 13c3 e405 | | Load 0x2,0x5 13c4 0007 | | Action Break_Optional 13c5 BODY_13c0: 13c5 00db | | Load_Top At_Offset_3 13c6 e29c | | Load 0x1,0x9c 13c7 011c | | Execute Any,Convert_Unchecked 13c8 1c01 | | Execute_Immediate Run_Utility,0x1 13c9 e405 | | Load 0x2,0x5 13ca 1c02 | | Execute_Immediate Run_Utility,0x2 13cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 13cc 00db | | Load_Top At_Offset_3 13cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13ce TRAP_13c0: 13ce 0007 | | Action Break_Optional 13cf e022 | " | Load 0x0,0x22 13d0 0257 | W | Execute Discrete,Raise 13d1 0000 0000 | | .BLANK 0000[0x7] 13d8 ; -------------------------------------------------------------------------------------- 13d8 ; SUBPROGRAM 13d8 ; -------------------------------------------------------------------------------------- 13d8 13dd | | .CONST 0x13dd ; Address of begin 13d9 13e6 | | .CONST 0x13e6 ; Address of exception handler 13da 0002 | | .CONST 0x0002 ; Number of locals 13db INIT_13d8: 13db e406 | | Load 0x2,0x6 13dc 0007 | | Action Break_Optional 13dd BODY_13d8: 13dd 00db | | Load_Top At_Offset_3 13de e26c | l | Load 0x1,0x6c 13df 011c | | Execute Any,Convert_Unchecked 13e0 1c01 | | Execute_Immediate Run_Utility,0x1 13e1 e406 | | Load 0x2,0x6 13e2 1c02 | | Execute_Immediate Run_Utility,0x2 13e3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 13e4 00db | | Load_Top At_Offset_3 13e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13e6 TRAP_13d8: 13e6 0007 | | Action Break_Optional 13e7 4802 |H | Short_Literal 0x2 13e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 13e9 0000 0000 | | .BLANK 0000[0x7] 13f0 ; -------------------------------------------------------------------------------------- 13f0 ; SUBPROGRAM 13f0 ; -------------------------------------------------------------------------------------- 13f0 13f6 | | .CONST 0x13f6 ; Address of begin 13f1 1447 | G | .CONST 0x1447 ; Address of exception handler 13f2 0002 | | .CONST 0x0002 ; Number of locals 13f3 INIT_13f0: 13f3 00db | | Load_Top At_Offset_3 13f4 00e3 | | Load_Encached Natural_Cache 13f5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 13f6 BODY_13f0: 13f6 4800 |H | Short_Literal 0x0 13f7 e5fc | | Load 0x2,-0x4 13f8 e29e | | Load 0x1,0x9e 13f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13fa e2a0 | | Load 0x1,0xa0 13fb 1b13 | | Execute Package,Field_Read,Field_Number 0x13 13fc 180f | | Execute Package,Field_Execute,Field_Number 0xf 13fd 8408 | | Call 0x2,0x8 13fe a7fd | | Store_Unchecked 0x3,-0x3 13ff e7fd | | Load 0x3,-0x3 1400 6809 |h | Jump_Zero 0x140a 1401 4801 |H | Short_Literal 0x1 1402 e5fc | | Load 0x2,-0x4 1403 e29e | | Load 0x1,0x9e 1404 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1405 4802 |H | Short_Literal 0x2 1406 e7ff | | Load 0x3,-0x1 1407 e29e | | Load 0x1,0x9e 1408 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1409 4503 |E | Exit_Suprogram New_Top_Offset 0x3 140a 4801 |H | Short_Literal 0x1 140b e7ff | | Load 0x3,-0x1 140c e29e | | Load 0x1,0x9e 140d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 140e 00d8 | | Load_Top At_Offset_0 140f e7ff | | Load 0x3,-0x1 1410 e29e | | Load 0x1,0x9e 1411 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1412 481a |H | Short_Literal 0x1a 1413 e7ff | | Load 0x3,-0x1 1414 e29e | | Load 0x1,0x9e 1415 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1416 e5fe | | Load 0x2,-0x2 1417 e7ff | | Load 0x3,-0x1 1418 e29e | | Load 0x1,0x9e 1419 1813 | | Execute Package,Field_Execute,Field_Number 0x13 141a 4804 |H | Short_Literal 0x4 141b e7ff | | Load 0x3,-0x1 141c e29e | | Load 0x1,0x9e 141d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 141e e5ff | | Load 0x2,-0x1 141f e7ff | | Load 0x3,-0x1 1420 e29e | | Load 0x1,0x9e 1421 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1422 481c |H | Short_Literal 0x1c 1423 e7ff | | Load 0x3,-0x1 1424 e29e | | Load 0x1,0x9e 1425 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1426 e5fd | | Load 0x2,-0x3 1427 e7ff | | Load 0x3,-0x1 1428 e29e | | Load 0x1,0x9e 1429 1816 | | Execute Package,Field_Execute,Field_Number 0x16 142a e2a0 | | Load 0x1,0xa0 142b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 142c 180f | | Execute Package,Field_Execute,Field_Number 0xf 142d 8408 | | Call 0x2,0x8 142e a7fd | | Store_Unchecked 0x3,-0x3 142f e7fd | | Load 0x3,-0x3 1430 6809 |h | Jump_Zero 0x143a 1431 4801 |H | Short_Literal 0x1 1432 e5fc | | Load 0x2,-0x4 1433 e29e | | Load 0x1,0x9e 1434 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1435 4802 |H | Short_Literal 0x2 1436 e7ff | | Load 0x3,-0x1 1437 e29e | | Load 0x1,0x9e 1438 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1439 4503 |E | Exit_Suprogram New_Top_Offset 0x3 143a 4801 |H | Short_Literal 0x1 143b e7ff | | Load 0x3,-0x1 143c e29e | | Load 0x1,0x9e 143d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 143e 4801 |H | Short_Literal 0x1 143f e5fc | | Load 0x2,-0x4 1440 e29e | | Load 0x1,0x9e 1441 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1442 00d8 | | Load_Top At_Offset_0 1443 e7ff | | Load 0x3,-0x1 1444 e29e | | Load 0x1,0x9e 1445 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1446 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1447 TRAP_13f0: 1447 e022 | " | Load 0x0,0x22 1448 010f | | Execute Exception,Equal 1449 6803 |h | Jump_Zero 0x144d 144a 4802 |H | Short_Literal 0x2 144b a7fd | | Store_Unchecked 0x3,-0x3 144c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 144d e013 | | Load 0x0,0x13 144e 010f | | Execute Exception,Equal 144f 6803 |h | Jump_Zero 0x1453 1450 4801 |H | Short_Literal 0x1 1451 a7fd | | Store_Unchecked 0x3,-0x3 1452 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1453 0100 | | Execute Exception,Raise 1454 0000 0000 | | .BLANK 0000[0x4] 1458 ; -------------------------------------------------------------------------------------- 1458 ; SUBPROGRAM 1458 ; -------------------------------------------------------------------------------------- 1458 1460 | ` | .CONST 0x1460 ; Address of begin 1459 1478 | x | .CONST 0x1478 ; Address of exception handler 145a 0003 | | .CONST 0x0003 ; Number of locals 145b INIT_1458: 145b 00db | | Load_Top At_Offset_3 145c 00e3 | | Load_Encached Natural_Cache 145d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 145e e29c | | Load 0x1,0x9c 145f 0007 | | Action Break_Optional 1460 BODY_1458: 1460 e7ff | | Load 0x3,-0x1 1461 e29e | | Load 0x1,0x9e 1462 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1463 8407 | | Call 0x2,0x7 1464 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1465 00d8 | | Load_Top At_Offset_0 1466 0f01 | | Execute_Immediate Equal,0x1 1467 7002 |p | Jump_Nonzero 0x146a 1468 e022 | " | Load 0x0,0x22 1469 0257 | W | Execute Discrete,Raise 146a e7ff | | Load 0x3,-0x1 146b e29e | | Load 0x1,0x9e 146c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 146d 00da | | Load_Top At_Offset_2 146e 027f | | Execute Discrete,Equal 146f 7002 |p | Jump_Nonzero 0x1472 1470 e022 | " | Load 0x0,0x22 1471 0257 | W | Execute Discrete,Raise 1472 e2a0 | | Load 0x1,0xa0 1473 1b13 | | Execute Package,Field_Read,Field_Number 0x13 1474 180f | | Execute Package,Field_Execute,Field_Number 0xf 1475 8408 | | Call 0x2,0x8 1476 a7fd | | Store_Unchecked 0x3,-0x3 1477 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1478 TRAP_1458: 1478 e011 | | Load 0x0,0x11 1479 010f | | Execute Exception,Equal 147a 6806 |h | Jump_Zero 0x1481 147b e7ff | | Load 0x3,-0x1 147c e29e | | Load 0x1,0x9e 147d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 147e 8408 | | Call 0x2,0x8 147f a7fd | | Store_Unchecked 0x3,-0x3 1480 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1481 e013 | | Load 0x0,0x13 1482 010f | | Execute Exception,Equal 1483 6803 |h | Jump_Zero 0x1487 1484 4801 |H | Short_Literal 0x1 1485 a7fd | | Store_Unchecked 0x3,-0x3 1486 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1487 e022 | " | Load 0x0,0x22 1488 010f | | Execute Exception,Equal 1489 6803 |h | Jump_Zero 0x148d 148a 4802 |H | Short_Literal 0x2 148b a7fd | | Store_Unchecked 0x3,-0x3 148c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 148d 0100 | | Execute Exception,Raise 148e 0000 0000 | | .XXX[0x2] 1490 ; -------------------------------------------------------------------------------------- 1490 ; SUBPROGRAM 1490 ; -------------------------------------------------------------------------------------- 1490 1493 | | .CONST 0x1493 ; Address of begin 1491 0004 | | .CONST 0x0004 ; Address of exception handler 1492 0001 | | .CONST 0x0001 ; Number of locals 1493 BODY_1490: 1493 INIT_1490: 1493 4607 |F | Jump_Case 0x8 1494 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1495 7806 |x | Jump 0x149c ; case 0x1 1496 7809 |x | Jump 0x14a0 ; case 0x2 1497 780d |x | Jump 0x14a5 ; case 0x3 1498 7810 |x | Jump 0x14a9 ; case 0x4 1499 7811 |x | Jump 0x14ab ; case 0x5 149a 7812 |x | Jump 0x14ad ; case 0x6 149b 7815 |x | Jump 0x14b1 ; case 0x7 149c 00da | | Load_Top At_Offset_2 149d 0091 1db6 | | Action Push_String_Extended_Indexed,0x1db6 ; "SENTINEL" 149f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 14a0 00db | | Load_Top At_Offset_3 14a1 00db | | Load_Top At_Offset_3 14a2 00e0 | | Load_Encached Standard_Cache 14a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 14a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14a5 00da | | Load_Top At_Offset_2 14a6 00e0 | | Load_Encached Standard_Cache 14a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 14a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 14a9 00db | | Load_Top At_Offset_3 14aa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14ab 00db | | Load_Top At_Offset_3 14ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14ad e405 | | Load 0x2,0x5 14ae 00dc | | Load_Top At_Offset_4 14af 0267 | g | Execute Discrete,Predecessor 14b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14b1 e405 | | Load 0x2,0x5 14b2 00dc | | Load_Top At_Offset_4 14b3 0268 | h | Execute Discrete,Successor 14b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14b5 0000 0000 | | .XXX[0x3] 14b7 0000 | | 14b8 ; -------------------------------------------------------------------------------------- 14b8 ; SUBPROGRAM 14b8 ; -------------------------------------------------------------------------------------- 14b8 14bb | | .CONST 0x14bb ; Address of begin 14b9 0004 | | .CONST 0x0004 ; Address of exception handler 14ba 0001 | | .CONST 0x0001 ; Number of locals 14bb BODY_14b8: 14bb INIT_14b8: 14bb 4607 |F | Jump_Case 0x8 14bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 14bd 7806 |x | Jump 0x14c4 ; case 0x1 14be 7809 |x | Jump 0x14c8 ; case 0x2 14bf 780d |x | Jump 0x14cd ; case 0x3 14c0 7810 |x | Jump 0x14d1 ; case 0x4 14c1 7811 |x | Jump 0x14d3 ; case 0x5 14c2 7812 |x | Jump 0x14d5 ; case 0x6 14c3 7815 |x | Jump 0x14d9 ; case 0x7 14c4 00da | | Load_Top At_Offset_2 14c5 0091 1dbb | | Action Push_String_Extended_Indexed,0x1dbb ; "NO_ERROR" 14c7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 14c8 00db | | Load_Top At_Offset_3 14c9 00db | | Load_Top At_Offset_3 14ca 00e0 | | Load_Encached Standard_Cache 14cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 14cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14cd 00da | | Load_Top At_Offset_2 14ce 00e0 | | Load_Encached Standard_Cache 14cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 14d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 14d1 00db | | Load_Top At_Offset_3 14d2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14d3 00db | | Load_Top At_Offset_3 14d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14d5 e406 | | Load 0x2,0x6 14d6 00dc | | Load_Top At_Offset_4 14d7 0267 | g | Execute Discrete,Predecessor 14d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14d9 e406 | | Load 0x2,0x6 14da 00dc | | Load_Top At_Offset_4 14db 0268 | h | Execute Discrete,Successor 14dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14dd 0000 0000 | | .XXX[0x3] 14df 0000 | | 14e0 ; -------------------------------------------------------------------------------------- 14e0 ; SUBPROGRAM 14e0 ; -------------------------------------------------------------------------------------- 14e0 14e5 | | .CONST 0x14e5 ; Address of begin 14e1 14ee | | .CONST 0x14ee ; Address of exception handler 14e2 0002 | | .CONST 0x0002 ; Number of locals 14e3 INIT_14e0: 14e3 e405 | | Load 0x2,0x5 14e4 0007 | | Action Break_Optional 14e5 BODY_14e0: 14e5 00db | | Load_Top At_Offset_3 14e6 e29c | | Load 0x1,0x9c 14e7 011c | | Execute Any,Convert_Unchecked 14e8 1c01 | | Execute_Immediate Run_Utility,0x1 14e9 e405 | | Load 0x2,0x5 14ea 1c02 | | Execute_Immediate Run_Utility,0x2 14eb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 14ec 00db | | Load_Top At_Offset_3 14ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 14ee TRAP_14e0: 14ee 0007 | | Action Break_Optional 14ef e023 | # | Load 0x0,0x23 14f0 0257 | W | Execute Discrete,Raise 14f1 0000 0000 | | .BLANK 0000[0x7] 14f8 ; -------------------------------------------------------------------------------------- 14f8 ; SUBPROGRAM 14f8 ; -------------------------------------------------------------------------------------- 14f8 14fd | | .CONST 0x14fd ; Address of begin 14f9 1506 | | .CONST 0x1506 ; Address of exception handler 14fa 0002 | | .CONST 0x0002 ; Number of locals 14fb INIT_14f8: 14fb e406 | | Load 0x2,0x6 14fc 0007 | | Action Break_Optional 14fd BODY_14f8: 14fd 00db | | Load_Top At_Offset_3 14fe e26c | l | Load 0x1,0x6c 14ff 011c | | Execute Any,Convert_Unchecked 1500 1c01 | | Execute_Immediate Run_Utility,0x1 1501 e406 | | Load 0x2,0x6 1502 1c02 | | Execute_Immediate Run_Utility,0x2 1503 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1504 00db | | Load_Top At_Offset_3 1505 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1506 TRAP_14f8: 1506 0007 | | Action Break_Optional 1507 4802 |H | Short_Literal 0x2 1508 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1509 0000 0000 | | .BLANK 0000[0x7] 1510 ; -------------------------------------------------------------------------------------- 1510 ; SUBPROGRAM 1510 ; -------------------------------------------------------------------------------------- 1510 1516 | | .CONST 0x1516 ; Address of begin 1511 1567 | g | .CONST 0x1567 ; Address of exception handler 1512 0002 | | .CONST 0x0002 ; Number of locals 1513 INIT_1510: 1513 00db | | Load_Top At_Offset_3 1514 00e3 | | Load_Encached Natural_Cache 1515 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1516 BODY_1510: 1516 4800 |H | Short_Literal 0x0 1517 e5fc | | Load 0x2,-0x4 1518 e29e | | Load 0x1,0x9e 1519 1810 | | Execute Package,Field_Execute,Field_Number 0x10 151a e2a0 | | Load 0x1,0xa0 151b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 151c 180f | | Execute Package,Field_Execute,Field_Number 0xf 151d 8408 | | Call 0x2,0x8 151e a7fd | | Store_Unchecked 0x3,-0x3 151f e7fd | | Load 0x3,-0x3 1520 6809 |h | Jump_Zero 0x152a 1521 4801 |H | Short_Literal 0x1 1522 e5fc | | Load 0x2,-0x4 1523 e29e | | Load 0x1,0x9e 1524 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1525 4802 |H | Short_Literal 0x2 1526 e7ff | | Load 0x3,-0x1 1527 e29e | | Load 0x1,0x9e 1528 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1529 4503 |E | Exit_Suprogram New_Top_Offset 0x3 152a 4801 |H | Short_Literal 0x1 152b e7ff | | Load 0x3,-0x1 152c e29e | | Load 0x1,0x9e 152d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 152e 00d8 | | Load_Top At_Offset_0 152f e7ff | | Load 0x3,-0x1 1530 e29e | | Load 0x1,0x9e 1531 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1532 4807 |H | Short_Literal 0x7 1533 e7ff | | Load 0x3,-0x1 1534 e29e | | Load 0x1,0x9e 1535 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1536 e5ff | | Load 0x2,-0x1 1537 e7ff | | Load 0x3,-0x1 1538 e29e | | Load 0x1,0x9e 1539 1816 | | Execute Package,Field_Execute,Field_Number 0x16 153a 4806 |H | Short_Literal 0x6 153b e7ff | | Load 0x3,-0x1 153c e29e | | Load 0x1,0x9e 153d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 153e e5fe | | Load 0x2,-0x2 153f e7ff | | Load 0x3,-0x1 1540 e29e | | Load 0x1,0x9e 1541 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1542 481c |H | Short_Literal 0x1c 1543 e7ff | | Load 0x3,-0x1 1544 e29e | | Load 0x1,0x9e 1545 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1546 e5fd | | Load 0x2,-0x3 1547 e7ff | | Load 0x3,-0x1 1548 e29e | | Load 0x1,0x9e 1549 1816 | | Execute Package,Field_Execute,Field_Number 0x16 154a e2a0 | | Load 0x1,0xa0 154b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 154c 180f | | Execute Package,Field_Execute,Field_Number 0xf 154d 8408 | | Call 0x2,0x8 154e a7fd | | Store_Unchecked 0x3,-0x3 154f e7fd | | Load 0x3,-0x3 1550 6809 |h | Jump_Zero 0x155a 1551 4801 |H | Short_Literal 0x1 1552 e5fc | | Load 0x2,-0x4 1553 e29e | | Load 0x1,0x9e 1554 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1555 4802 |H | Short_Literal 0x2 1556 e7ff | | Load 0x3,-0x1 1557 e29e | | Load 0x1,0x9e 1558 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1559 4503 |E | Exit_Suprogram New_Top_Offset 0x3 155a 4801 |H | Short_Literal 0x1 155b e7ff | | Load 0x3,-0x1 155c e29e | | Load 0x1,0x9e 155d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 155e 4801 |H | Short_Literal 0x1 155f e5fc | | Load 0x2,-0x4 1560 e29e | | Load 0x1,0x9e 1561 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1562 00d8 | | Load_Top At_Offset_0 1563 e7ff | | Load 0x3,-0x1 1564 e29e | | Load 0x1,0x9e 1565 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1566 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1567 TRAP_1510: 1567 e023 | # | Load 0x0,0x23 1568 010f | | Execute Exception,Equal 1569 6803 |h | Jump_Zero 0x156d 156a 4802 |H | Short_Literal 0x2 156b a7fd | | Store_Unchecked 0x3,-0x3 156c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 156d e013 | | Load 0x0,0x13 156e 010f | | Execute Exception,Equal 156f 6803 |h | Jump_Zero 0x1573 1570 4801 |H | Short_Literal 0x1 1571 a7fd | | Store_Unchecked 0x3,-0x3 1572 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1573 0100 | | Execute Exception,Raise 1574 0000 0000 | | .BLANK 0000[0x4] 1578 ; -------------------------------------------------------------------------------------- 1578 ; SUBPROGRAM 1578 ; -------------------------------------------------------------------------------------- 1578 1580 | | .CONST 0x1580 ; Address of begin 1579 1598 | | .CONST 0x1598 ; Address of exception handler 157a 0003 | | .CONST 0x0003 ; Number of locals 157b INIT_1578: 157b 00db | | Load_Top At_Offset_3 157c 00e3 | | Load_Encached Natural_Cache 157d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 157e e29c | | Load 0x1,0x9c 157f 0007 | | Action Break_Optional 1580 BODY_1578: 1580 e7ff | | Load 0x3,-0x1 1581 e29e | | Load 0x1,0x9e 1582 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1583 8407 | | Call 0x2,0x7 1584 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1585 00d8 | | Load_Top At_Offset_0 1586 0f01 | | Execute_Immediate Equal,0x1 1587 7002 |p | Jump_Nonzero 0x158a 1588 e023 | # | Load 0x0,0x23 1589 0257 | W | Execute Discrete,Raise 158a e7ff | | Load 0x3,-0x1 158b e29e | | Load 0x1,0x9e 158c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 158d 00da | | Load_Top At_Offset_2 158e 027f | | Execute Discrete,Equal 158f 7002 |p | Jump_Nonzero 0x1592 1590 e023 | # | Load 0x0,0x23 1591 0257 | W | Execute Discrete,Raise 1592 e2a0 | | Load 0x1,0xa0 1593 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1594 180f | | Execute Package,Field_Execute,Field_Number 0xf 1595 8408 | | Call 0x2,0x8 1596 a7fd | | Store_Unchecked 0x3,-0x3 1597 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1598 TRAP_1578: 1598 e011 | | Load 0x0,0x11 1599 010f | | Execute Exception,Equal 159a 6806 |h | Jump_Zero 0x15a1 159b e7ff | | Load 0x3,-0x1 159c e29e | | Load 0x1,0x9e 159d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 159e 8408 | | Call 0x2,0x8 159f a7fd | | Store_Unchecked 0x3,-0x3 15a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15a1 e013 | | Load 0x0,0x13 15a2 010f | | Execute Exception,Equal 15a3 6803 |h | Jump_Zero 0x15a7 15a4 4801 |H | Short_Literal 0x1 15a5 a7fd | | Store_Unchecked 0x3,-0x3 15a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15a7 e023 | # | Load 0x0,0x23 15a8 010f | | Execute Exception,Equal 15a9 6803 |h | Jump_Zero 0x15ad 15aa 4802 |H | Short_Literal 0x2 15ab a7fd | | Store_Unchecked 0x3,-0x3 15ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15ad 0100 | | Execute Exception,Raise 15ae 0000 0000 | | .XXX[0x2] 15b0 ; -------------------------------------------------------------------------------------- 15b0 ; SUBPROGRAM 15b0 ; -------------------------------------------------------------------------------------- 15b0 15b3 | | .CONST 0x15b3 ; Address of begin 15b1 0004 | | .CONST 0x0004 ; Address of exception handler 15b2 0001 | | .CONST 0x0001 ; Number of locals 15b3 BODY_15b0: 15b3 INIT_15b0: 15b3 4607 |F | Jump_Case 0x8 15b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 15b5 7806 |x | Jump 0x15bc ; case 0x1 15b6 7809 |x | Jump 0x15c0 ; case 0x2 15b7 780d |x | Jump 0x15c5 ; case 0x3 15b8 7810 |x | Jump 0x15c9 ; case 0x4 15b9 7811 |x | Jump 0x15cb ; case 0x5 15ba 7812 |x | Jump 0x15cd ; case 0x6 15bb 7815 |x | Jump 0x15d1 ; case 0x7 15bc 00da | | Load_Top At_Offset_2 15bd 0091 1dc3 | | Action Push_String_Extended_Indexed,0x1dc3 ; "SENTINEL" 15bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 15c0 00db | | Load_Top At_Offset_3 15c1 00db | | Load_Top At_Offset_3 15c2 00e0 | | Load_Encached Standard_Cache 15c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 15c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15c5 00da | | Load_Top At_Offset_2 15c6 00e0 | | Load_Encached Standard_Cache 15c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 15c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 15c9 00db | | Load_Top At_Offset_3 15ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15cb 00db | | Load_Top At_Offset_3 15cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15cd e405 | | Load 0x2,0x5 15ce 00dc | | Load_Top At_Offset_4 15cf 0267 | g | Execute Discrete,Predecessor 15d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15d1 e405 | | Load 0x2,0x5 15d2 00dc | | Load_Top At_Offset_4 15d3 0268 | h | Execute Discrete,Successor 15d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15d5 0000 0000 | | .XXX[0x3] 15d7 0000 | | 15d8 ; -------------------------------------------------------------------------------------- 15d8 ; SUBPROGRAM 15d8 ; -------------------------------------------------------------------------------------- 15d8 15db | | .CONST 0x15db ; Address of begin 15d9 0004 | | .CONST 0x0004 ; Address of exception handler 15da 0001 | | .CONST 0x0001 ; Number of locals 15db BODY_15d8: 15db INIT_15d8: 15db 4607 |F | Jump_Case 0x8 15dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 15dd 7806 |x | Jump 0x15e4 ; case 0x1 15de 7809 |x | Jump 0x15e8 ; case 0x2 15df 780d |x | Jump 0x15ed ; case 0x3 15e0 7810 |x | Jump 0x15f1 ; case 0x4 15e1 7811 |x | Jump 0x15f3 ; case 0x5 15e2 7812 |x | Jump 0x15f5 ; case 0x6 15e3 7815 |x | Jump 0x15f9 ; case 0x7 15e4 00da | | Load_Top At_Offset_2 15e5 0091 1dc7 | | Action Push_String_Extended_Indexed,0x1dc7 ; "NO_ERROR" 15e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 15e8 00db | | Load_Top At_Offset_3 15e9 00db | | Load_Top At_Offset_3 15ea 00e0 | | Load_Encached Standard_Cache 15eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 15ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15ed 00da | | Load_Top At_Offset_2 15ee 00e0 | | Load_Encached Standard_Cache 15ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 15f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 15f1 00db | | Load_Top At_Offset_3 15f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15f3 00db | | Load_Top At_Offset_3 15f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15f5 e406 | | Load 0x2,0x6 15f6 00dc | | Load_Top At_Offset_4 15f7 0267 | g | Execute Discrete,Predecessor 15f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15f9 e406 | | Load 0x2,0x6 15fa 00dc | | Load_Top At_Offset_4 15fb 0268 | h | Execute Discrete,Successor 15fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 15fd 0000 0000 | | .XXX[0x3] 15ff 0000 | | 1600 ; -------------------------------------------------------------------------------------- 1600 ; SUBPROGRAM 1600 ; -------------------------------------------------------------------------------------- 1600 1605 | | .CONST 0x1605 ; Address of begin 1601 160e | | .CONST 0x160e ; Address of exception handler 1602 0002 | | .CONST 0x0002 ; Number of locals 1603 INIT_1600: 1603 e405 | | Load 0x2,0x5 1604 0007 | | Action Break_Optional 1605 BODY_1600: 1605 00db | | Load_Top At_Offset_3 1606 e29c | | Load 0x1,0x9c 1607 011c | | Execute Any,Convert_Unchecked 1608 1c01 | | Execute_Immediate Run_Utility,0x1 1609 e405 | | Load 0x2,0x5 160a 1c02 | | Execute_Immediate Run_Utility,0x2 160b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 160c 00db | | Load_Top At_Offset_3 160d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 160e TRAP_1600: 160e 0007 | | Action Break_Optional 160f e024 | $ | Load 0x0,0x24 1610 0257 | W | Execute Discrete,Raise 1611 0000 0000 | | .BLANK 0000[0x7] 1618 ; -------------------------------------------------------------------------------------- 1618 ; SUBPROGRAM 1618 ; -------------------------------------------------------------------------------------- 1618 161d | | .CONST 0x161d ; Address of begin 1619 1626 | & | .CONST 0x1626 ; Address of exception handler 161a 0002 | | .CONST 0x0002 ; Number of locals 161b INIT_1618: 161b e406 | | Load 0x2,0x6 161c 0007 | | Action Break_Optional 161d BODY_1618: 161d 00db | | Load_Top At_Offset_3 161e e26c | l | Load 0x1,0x6c 161f 011c | | Execute Any,Convert_Unchecked 1620 1c01 | | Execute_Immediate Run_Utility,0x1 1621 e406 | | Load 0x2,0x6 1622 1c02 | | Execute_Immediate Run_Utility,0x2 1623 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1624 00db | | Load_Top At_Offset_3 1625 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1626 TRAP_1618: 1626 0007 | | Action Break_Optional 1627 4802 |H | Short_Literal 0x2 1628 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1629 0000 0000 | | .BLANK 0000[0x7] 1630 ; -------------------------------------------------------------------------------------- 1630 ; SUBPROGRAM 1630 ; -------------------------------------------------------------------------------------- 1630 1636 | 6 | .CONST 0x1636 ; Address of begin 1631 167f | | .CONST 0x167f ; Address of exception handler 1632 0002 | | .CONST 0x0002 ; Number of locals 1633 INIT_1630: 1633 00db | | Load_Top At_Offset_3 1634 00e3 | | Load_Encached Natural_Cache 1635 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1636 BODY_1630: 1636 4800 |H | Short_Literal 0x0 1637 e5fd | | Load 0x2,-0x3 1638 e29e | | Load 0x1,0x9e 1639 1810 | | Execute Package,Field_Execute,Field_Number 0x10 163a e2a0 | | Load 0x1,0xa0 163b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 163c 180f | | Execute Package,Field_Execute,Field_Number 0xf 163d 8408 | | Call 0x2,0x8 163e a7fd | | Store_Unchecked 0x3,-0x3 163f e7fd | | Load 0x3,-0x3 1640 6809 |h | Jump_Zero 0x164a 1641 4801 |H | Short_Literal 0x1 1642 e5fd | | Load 0x2,-0x3 1643 e29e | | Load 0x1,0x9e 1644 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1645 4802 |H | Short_Literal 0x2 1646 e7ff | | Load 0x3,-0x1 1647 e29e | | Load 0x1,0x9e 1648 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1649 4503 |E | Exit_Suprogram New_Top_Offset 0x3 164a 4801 |H | Short_Literal 0x1 164b e7ff | | Load 0x3,-0x1 164c e29e | | Load 0x1,0x9e 164d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 164e 00d8 | | Load_Top At_Offset_0 164f e7ff | | Load 0x3,-0x1 1650 e29e | | Load 0x1,0x9e 1651 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1652 481b |H | Short_Literal 0x1b 1653 e7ff | | Load 0x3,-0x1 1654 e29e | | Load 0x1,0x9e 1655 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1656 e5ff | | Load 0x2,-0x1 1657 e7ff | | Load 0x3,-0x1 1658 e29e | | Load 0x1,0x9e 1659 1816 | | Execute Package,Field_Execute,Field_Number 0x16 165a 481c |H | Short_Literal 0x1c 165b e7ff | | Load 0x3,-0x1 165c e29e | | Load 0x1,0x9e 165d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 165e e5fe | | Load 0x2,-0x2 165f e7ff | | Load 0x3,-0x1 1660 e29e | | Load 0x1,0x9e 1661 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1662 e2a0 | | Load 0x1,0xa0 1663 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1664 180f | | Execute Package,Field_Execute,Field_Number 0xf 1665 8408 | | Call 0x2,0x8 1666 a7fd | | Store_Unchecked 0x3,-0x3 1667 e7fd | | Load 0x3,-0x3 1668 6809 |h | Jump_Zero 0x1672 1669 4801 |H | Short_Literal 0x1 166a e5fd | | Load 0x2,-0x3 166b e29e | | Load 0x1,0x9e 166c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 166d 4802 |H | Short_Literal 0x2 166e e7ff | | Load 0x3,-0x1 166f e29e | | Load 0x1,0x9e 1670 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1671 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1672 4801 |H | Short_Literal 0x1 1673 e7ff | | Load 0x3,-0x1 1674 e29e | | Load 0x1,0x9e 1675 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1676 4801 |H | Short_Literal 0x1 1677 e5fd | | Load 0x2,-0x3 1678 e29e | | Load 0x1,0x9e 1679 1810 | | Execute Package,Field_Execute,Field_Number 0x10 167a 00d8 | | Load_Top At_Offset_0 167b e7ff | | Load 0x3,-0x1 167c e29e | | Load 0x1,0x9e 167d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 167e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 167f TRAP_1630: 167f e024 | $ | Load 0x0,0x24 1680 010f | | Execute Exception,Equal 1681 6803 |h | Jump_Zero 0x1685 1682 4802 |H | Short_Literal 0x2 1683 a7fd | | Store_Unchecked 0x3,-0x3 1684 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1685 e013 | | Load 0x0,0x13 1686 010f | | Execute Exception,Equal 1687 6803 |h | Jump_Zero 0x168b 1688 4801 |H | Short_Literal 0x1 1689 a7fd | | Store_Unchecked 0x3,-0x3 168a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 168b 0100 | | Execute Exception,Raise 168c 0000 0000 | | .BLANK 0000[0x4] 1690 ; -------------------------------------------------------------------------------------- 1690 ; SUBPROGRAM 1690 ; -------------------------------------------------------------------------------------- 1690 1698 | | .CONST 0x1698 ; Address of begin 1691 16b0 | | .CONST 0x16b0 ; Address of exception handler 1692 0003 | | .CONST 0x0003 ; Number of locals 1693 INIT_1690: 1693 00db | | Load_Top At_Offset_3 1694 00e3 | | Load_Encached Natural_Cache 1695 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1696 e29c | | Load 0x1,0x9c 1697 0007 | | Action Break_Optional 1698 BODY_1690: 1698 e7ff | | Load 0x3,-0x1 1699 e29e | | Load 0x1,0x9e 169a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 169b 8407 | | Call 0x2,0x7 169c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 169d 00d8 | | Load_Top At_Offset_0 169e 0f01 | | Execute_Immediate Equal,0x1 169f 7002 |p | Jump_Nonzero 0x16a2 16a0 e024 | $ | Load 0x0,0x24 16a1 0257 | W | Execute Discrete,Raise 16a2 e7ff | | Load 0x3,-0x1 16a3 e29e | | Load 0x1,0x9e 16a4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 16a5 00da | | Load_Top At_Offset_2 16a6 027f | | Execute Discrete,Equal 16a7 7002 |p | Jump_Nonzero 0x16aa 16a8 e024 | $ | Load 0x0,0x24 16a9 0257 | W | Execute Discrete,Raise 16aa e2a0 | | Load 0x1,0xa0 16ab 1b18 | | Execute Package,Field_Read,Field_Number 0x18 16ac 180f | | Execute Package,Field_Execute,Field_Number 0xf 16ad 8408 | | Call 0x2,0x8 16ae a7fd | | Store_Unchecked 0x3,-0x3 16af 4503 |E | Exit_Suprogram New_Top_Offset 0x3 16b0 TRAP_1690: 16b0 e011 | | Load 0x0,0x11 16b1 010f | | Execute Exception,Equal 16b2 6806 |h | Jump_Zero 0x16b9 16b3 e7ff | | Load 0x3,-0x1 16b4 e29e | | Load 0x1,0x9e 16b5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 16b6 8408 | | Call 0x2,0x8 16b7 a7fd | | Store_Unchecked 0x3,-0x3 16b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 16b9 e013 | | Load 0x0,0x13 16ba 010f | | Execute Exception,Equal 16bb 6803 |h | Jump_Zero 0x16bf 16bc 4801 |H | Short_Literal 0x1 16bd a7fd | | Store_Unchecked 0x3,-0x3 16be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 16bf e024 | $ | Load 0x0,0x24 16c0 010f | | Execute Exception,Equal 16c1 6803 |h | Jump_Zero 0x16c5 16c2 4802 |H | Short_Literal 0x2 16c3 a7fd | | Store_Unchecked 0x3,-0x3 16c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 16c5 0100 | | Execute Exception,Raise 16c6 0000 0000 | | .XXX[0x2] 16c8 ; -------------------------------------------------------------------------------------- 16c8 ; SUBPROGRAM 16c8 ; -------------------------------------------------------------------------------------- 16c8 16cb | | .CONST 0x16cb ; Address of begin 16c9 0004 | | .CONST 0x0004 ; Address of exception handler 16ca 0001 | | .CONST 0x0001 ; Number of locals 16cb BODY_16c8: 16cb INIT_16c8: 16cb 4607 |F | Jump_Case 0x8 16cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 16cd 7806 |x | Jump 0x16d4 ; case 0x1 16ce 7809 |x | Jump 0x16d8 ; case 0x2 16cf 780d |x | Jump 0x16dd ; case 0x3 16d0 7810 |x | Jump 0x16e1 ; case 0x4 16d1 7811 |x | Jump 0x16e3 ; case 0x5 16d2 7812 |x | Jump 0x16e5 ; case 0x6 16d3 7815 |x | Jump 0x16e9 ; case 0x7 16d4 00da | | Load_Top At_Offset_2 16d5 0091 1dd0 | | Action Push_String_Extended_Indexed,0x1dd0 ; "SENTINEL" 16d7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 16d8 00db | | Load_Top At_Offset_3 16d9 00db | | Load_Top At_Offset_3 16da 00e0 | | Load_Encached Standard_Cache 16db 181b | | Execute Package,Field_Execute,Field_Number 0x1b 16dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16dd 00da | | Load_Top At_Offset_2 16de 00e0 | | Load_Encached Standard_Cache 16df 181c | | Execute Package,Field_Execute,Field_Number 0x1c 16e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 16e1 00db | | Load_Top At_Offset_3 16e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16e3 00db | | Load_Top At_Offset_3 16e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16e5 e405 | | Load 0x2,0x5 16e6 00dc | | Load_Top At_Offset_4 16e7 0267 | g | Execute Discrete,Predecessor 16e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16e9 e405 | | Load 0x2,0x5 16ea 00dc | | Load_Top At_Offset_4 16eb 0268 | h | Execute Discrete,Successor 16ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 16ed 0000 0000 | | .XXX[0x3] 16ef 0000 | | 16f0 ; -------------------------------------------------------------------------------------- 16f0 ; SUBPROGRAM 16f0 ; -------------------------------------------------------------------------------------- 16f0 16f3 | | .CONST 0x16f3 ; Address of begin 16f1 0004 | | .CONST 0x0004 ; Address of exception handler 16f2 0001 | | .CONST 0x0001 ; Number of locals 16f3 BODY_16f0: 16f3 INIT_16f0: 16f3 4607 |F | Jump_Case 0x8 16f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 16f5 7806 |x | Jump 0x16fc ; case 0x1 16f6 7809 |x | Jump 0x1700 ; case 0x2 16f7 780d |x | Jump 0x1705 ; case 0x3 16f8 7810 |x | Jump 0x1709 ; case 0x4 16f9 7811 |x | Jump 0x170b ; case 0x5 16fa 7812 |x | Jump 0x170d ; case 0x6 16fb 7815 |x | Jump 0x1711 ; case 0x7 16fc 00da | | Load_Top At_Offset_2 16fd 0091 1dd8 | | Action Push_String_Extended_Indexed,0x1dd8 ; "NO_ERROR" 16ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1700 00db | | Load_Top At_Offset_3 1701 00db | | Load_Top At_Offset_3 1702 00e0 | | Load_Encached Standard_Cache 1703 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1704 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1705 00da | | Load_Top At_Offset_2 1706 00e0 | | Load_Encached Standard_Cache 1707 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1708 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1709 00db | | Load_Top At_Offset_3 170a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 170b 00db | | Load_Top At_Offset_3 170c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 170d e406 | | Load 0x2,0x6 170e 00dc | | Load_Top At_Offset_4 170f 0267 | g | Execute Discrete,Predecessor 1710 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1711 e406 | | Load 0x2,0x6 1712 00dc | | Load_Top At_Offset_4 1713 0268 | h | Execute Discrete,Successor 1714 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1715 0000 0000 | | .XXX[0x3] 1717 0000 | | 1718 ; -------------------------------------------------------------------------------------- 1718 ; SUBPROGRAM 1718 ; -------------------------------------------------------------------------------------- 1718 171d | | .CONST 0x171d ; Address of begin 1719 1726 | & | .CONST 0x1726 ; Address of exception handler 171a 0002 | | .CONST 0x0002 ; Number of locals 171b INIT_1718: 171b e405 | | Load 0x2,0x5 171c 0007 | | Action Break_Optional 171d BODY_1718: 171d 00db | | Load_Top At_Offset_3 171e e29c | | Load 0x1,0x9c 171f 011c | | Execute Any,Convert_Unchecked 1720 1c01 | | Execute_Immediate Run_Utility,0x1 1721 e405 | | Load 0x2,0x5 1722 1c02 | | Execute_Immediate Run_Utility,0x2 1723 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1724 00db | | Load_Top At_Offset_3 1725 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1726 TRAP_1718: 1726 0007 | | Action Break_Optional 1727 e025 | % | Load 0x0,0x25 1728 0257 | W | Execute Discrete,Raise 1729 0000 0000 | | .BLANK 0000[0x7] 1730 ; -------------------------------------------------------------------------------------- 1730 ; SUBPROGRAM 1730 ; -------------------------------------------------------------------------------------- 1730 1735 | 5 | .CONST 0x1735 ; Address of begin 1731 173e | > | .CONST 0x173e ; Address of exception handler 1732 0002 | | .CONST 0x0002 ; Number of locals 1733 INIT_1730: 1733 e406 | | Load 0x2,0x6 1734 0007 | | Action Break_Optional 1735 BODY_1730: 1735 00db | | Load_Top At_Offset_3 1736 e26c | l | Load 0x1,0x6c 1737 011c | | Execute Any,Convert_Unchecked 1738 1c01 | | Execute_Immediate Run_Utility,0x1 1739 e406 | | Load 0x2,0x6 173a 1c02 | | Execute_Immediate Run_Utility,0x2 173b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 173c 00db | | Load_Top At_Offset_3 173d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 173e TRAP_1730: 173e 0007 | | Action Break_Optional 173f 4802 |H | Short_Literal 0x2 1740 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1741 0000 0000 | | .BLANK 0000[0x7] 1748 ; -------------------------------------------------------------------------------------- 1748 ; SUBPROGRAM 1748 ; -------------------------------------------------------------------------------------- 1748 174e | N | .CONST 0x174e ; Address of begin 1749 1797 | | .CONST 0x1797 ; Address of exception handler 174a 0002 | | .CONST 0x0002 ; Number of locals 174b INIT_1748: 174b 00db | | Load_Top At_Offset_3 174c 00e3 | | Load_Encached Natural_Cache 174d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 174e BODY_1748: 174e 4800 |H | Short_Literal 0x0 174f e5f8 | | Load 0x2,-0x8 1750 e29e | | Load 0x1,0x9e 1751 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1752 e2a0 | | Load 0x1,0xa0 1753 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1754 180f | | Execute Package,Field_Execute,Field_Number 0xf 1755 8408 | | Call 0x2,0x8 1756 a7fd | | Store_Unchecked 0x3,-0x3 1757 e7fd | | Load 0x3,-0x3 1758 6809 |h | Jump_Zero 0x1762 1759 4801 |H | Short_Literal 0x1 175a e5f8 | | Load 0x2,-0x8 175b e29e | | Load 0x1,0x9e 175c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 175d 4802 |H | Short_Literal 0x2 175e e7ff | | Load 0x3,-0x1 175f e29e | | Load 0x1,0x9e 1760 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1761 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1762 4801 |H | Short_Literal 0x1 1763 e7ff | | Load 0x3,-0x1 1764 e29e | | Load 0x1,0x9e 1765 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1766 00d8 | | Load_Top At_Offset_0 1767 e7ff | | Load 0x3,-0x1 1768 e29e | | Load 0x1,0x9e 1769 1815 | | Execute Package,Field_Execute,Field_Number 0x15 176a 4811 |H | Short_Literal 0x11 176b e7ff | | Load 0x3,-0x1 176c e29e | | Load 0x1,0x9e 176d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 176e e5fa | | Load 0x2,-0x6 176f e7ff | | Load 0x3,-0x1 1770 e29e | | Load 0x1,0x9e 1771 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1772 4817 |H | Short_Literal 0x17 1773 e7ff | | Load 0x3,-0x1 1774 e29e | | Load 0x1,0x9e 1775 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1776 e5f9 | | Load 0x2,-0x7 1777 e7ff | | Load 0x3,-0x1 1778 e29e | | Load 0x1,0x9e 1779 1815 | | Execute Package,Field_Execute,Field_Number 0x15 177a e2a0 | | Load 0x1,0xa0 177b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 177c 180f | | Execute Package,Field_Execute,Field_Number 0xf 177d 8408 | | Call 0x2,0x8 177e a7fd | | Store_Unchecked 0x3,-0x3 177f e7fd | | Load 0x3,-0x3 1780 6809 |h | Jump_Zero 0x178a 1781 4801 |H | Short_Literal 0x1 1782 e5f8 | | Load 0x2,-0x8 1783 e29e | | Load 0x1,0x9e 1784 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1785 4802 |H | Short_Literal 0x2 1786 e7ff | | Load 0x3,-0x1 1787 e29e | | Load 0x1,0x9e 1788 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1789 4503 |E | Exit_Suprogram New_Top_Offset 0x3 178a 4801 |H | Short_Literal 0x1 178b e7ff | | Load 0x3,-0x1 178c e29e | | Load 0x1,0x9e 178d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 178e 4801 |H | Short_Literal 0x1 178f e5f8 | | Load 0x2,-0x8 1790 e29e | | Load 0x1,0x9e 1791 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1792 00d8 | | Load_Top At_Offset_0 1793 e7ff | | Load 0x3,-0x1 1794 e29e | | Load 0x1,0x9e 1795 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1796 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1797 TRAP_1748: 1797 e025 | % | Load 0x0,0x25 1798 010f | | Execute Exception,Equal 1799 6803 |h | Jump_Zero 0x179d 179a 4802 |H | Short_Literal 0x2 179b a7fd | | Store_Unchecked 0x3,-0x3 179c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 179d e013 | | Load 0x0,0x13 179e 010f | | Execute Exception,Equal 179f 6803 |h | Jump_Zero 0x17a3 17a0 4801 |H | Short_Literal 0x1 17a1 a7fd | | Store_Unchecked 0x3,-0x3 17a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 17a3 0100 | | Execute Exception,Raise 17a4 0000 0000 | | .BLANK 0000[0x4] 17a8 ; -------------------------------------------------------------------------------------- 17a8 ; SUBPROGRAM 17a8 ; -------------------------------------------------------------------------------------- 17a8 17b8 | | .CONST 0x17b8 ; Address of begin 17a9 185a | Z | .CONST 0x185a ; Address of exception handler 17aa 0006 | | .CONST 0x0006 ; Number of locals 17ab INIT_17a8: 17ab 00db | | Load_Top At_Offset_3 17ac 00e3 | | Load_Encached Natural_Cache 17ad 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 17ae e29c | | Load 0x1,0x9c 17af 0007 | | Action Break_Optional 17b0 e22a | * | Load 0x1,0x2a 17b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 17b2 4801 |H | Short_Literal 0x1 17b3 4864 |Hd | Short_Literal 0x64 17b4 00e9 | | Load_Encached String_Cache 17b5 035b | [ | Declare_Type Array,Constrained 17b6 0337 | 7 | Declare_Variable Array 17b7 00e3 | | Load_Encached Natural_Cache 17b8 BODY_17a8: 17b8 e7ff | | Load 0x3,-0x1 17b9 e29e | | Load 0x1,0x9e 17ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 17bb 8407 | | Call 0x2,0x7 17bc a603 | | Store_Unchecked 0x3,0x3 17bd 00cf | | Action Mark_Auxiliary 17be e603 | | Load 0x3,0x3 17bf 461c |F | Jump_Case 0x1d 17c0 7885 |x | Jump 0x1846 ; case 0x0 17c1 7884 |x | Jump 0x1846 ; case 0x1 17c2 7883 |x | Jump 0x1846 ; case 0x2 17c3 7882 |x | Jump 0x1846 ; case 0x3 17c4 7881 |x | Jump 0x1846 ; case 0x4 17c5 7880 |x | Jump 0x1846 ; case 0x5 17c6 787f |x | Jump 0x1846 ; case 0x6 17c7 787e |x~ | Jump 0x1846 ; case 0x7 17c8 787d |x} | Jump 0x1846 ; case 0x8 17c9 787c |x| | Jump 0x1846 ; case 0x9 17ca 787b |x{ | Jump 0x1846 ; case 0xa 17cb 787a |xz | Jump 0x1846 ; case 0xb 17cc 7879 |xy | Jump 0x1846 ; case 0xc 17cd 7878 |xx | Jump 0x1846 ; case 0xd 17ce 7877 |xw | Jump 0x1846 ; case 0xe 17cf 7876 |xv | Jump 0x1846 ; case 0xf 17d0 7875 |xu | Jump 0x1846 ; case 0x10 17d1 7874 |xt | Jump 0x1846 ; case 0x11 17d2 7873 |xs | Jump 0x1846 ; case 0x12 17d3 7809 |x | Jump 0x17dd ; case 0x13 17d4 781a |x | Jump 0x17ef ; case 0x14 17d5 7870 |xp | Jump 0x1846 ; case 0x15 17d6 786f |xo | Jump 0x1846 ; case 0x16 17d7 7829 |x) | Jump 0x1801 ; case 0x17 17d8 786d |xm | Jump 0x1846 ; case 0x18 17d9 786c |xl | Jump 0x1846 ; case 0x19 17da 786b |xk | Jump 0x1846 ; case 0x1a 17db 786a |xj | Jump 0x1846 ; case 0x1b 17dc 7869 |xi | Jump 0x1846 ; case 0x1c 17dd 00db | | Load_Top At_Offset_3 17de e5f7 | | Load 0x2,-0x9 17df 00d8 | | Load_Top At_Offset_0 17e0 0120 | | Execute Any,Is_Value 17e1 6803 |h | Jump_Zero 0x17e5 17e2 e5fb | | Load 0x2,-0x5 17e3 011e | | Execute Any,Convert 17e4 7802 |x | Jump 0x17e7 17e5 e5fb | | Load 0x2,-0x5 17e6 0119 | | Execute Any,Check_In_Formal_Type 17e7 4802 |H | Short_Literal 0x2 17e8 e7ff | | Load 0x3,-0x1 17e9 e29e | | Load 0x1,0x9e 17ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d 17eb 85fc | | Call 0x2,-0x4 17ec c5f7 | | Store 0x2,-0x9 17ed c604 | | Store 0x3,0x4 17ee 781f |x | Jump 0x180e 17ef 00db | | Load_Top At_Offset_3 17f0 e5f7 | | Load 0x2,-0x9 17f1 00d8 | | Load_Top At_Offset_0 17f2 0120 | | Execute Any,Is_Value 17f3 6803 |h | Jump_Zero 0x17f7 17f4 e5fb | | Load 0x2,-0x5 17f5 011e | | Execute Any,Convert 17f6 7802 |x | Jump 0x17f9 17f7 e5fb | | Load 0x2,-0x5 17f8 0119 | | Execute Any,Check_In_Formal_Type 17f9 4807 |H | Short_Literal 0x7 17fa e7ff | | Load 0x3,-0x1 17fb e29e | | Load 0x1,0x9e 17fc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 17fd 85fc | | Call 0x2,-0x4 17fe c5f7 | | Store 0x2,-0x9 17ff c604 | | Store 0x3,0x4 1800 780d |x | Jump 0x180e 1801 00db | | Load_Top At_Offset_3 1802 e5f7 | | Load 0x2,-0x9 1803 00d8 | | Load_Top At_Offset_0 1804 0120 | | Execute Any,Is_Value 1805 6803 |h | Jump_Zero 0x1809 1806 e5fb | | Load 0x2,-0x5 1807 011e | | Execute Any,Convert 1808 7802 |x | Jump 0x180b 1809 e5fb | | Load 0x2,-0x5 180a 0119 | | Execute Any,Check_In_Formal_Type 180b 85fe | | Call 0x2,-0x2 180c c5f7 | | Store 0x2,-0x9 180d c604 | | Store 0x3,0x4 180e 00cf | | Action Mark_Auxiliary 180f 781d |x | Jump 0x182d 1810 4811 |H | Short_Literal 0x11 1811 e7ff | | Load 0x3,-0x1 1812 e29e | | Load 0x1,0x9e 1813 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1814 e604 | | Load 0x3,0x4 1815 00e3 | | Load_Encached Natural_Cache 1816 e605 | | Load 0x3,0x5 1817 e5f7 | | Load 0x2,-0x9 1818 00d8 | | Load_Top At_Offset_0 1819 0120 | | Execute Any,Is_Value 181a 6803 |h | Jump_Zero 0x181e 181b e5fb | | Load 0x2,-0x5 181c 011e | | Execute Any,Convert 181d 7802 |x | Jump 0x1820 181e e5fb | | Load 0x2,-0x5 181f 0119 | | Execute Any,Check_In_Formal_Type 1820 85fd | | Call 0x2,-0x3 1821 c5f7 | | Store 0x2,-0x9 1822 00d1 | | Pop_Control Pop_Count_1 1823 c606 | | Store 0x3,0x6 1824 c604 | | Store 0x3,0x4 1825 4801 |H | Short_Literal 0x1 1826 00db | | Load_Top At_Offset_3 1827 e605 | | Load 0x3,0x5 1828 01cf | | Execute Vector,Slice_Read 1829 e7ff | | Load 0x3,-0x1 182a e29e | | Load 0x1,0x9e 182b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 182c 00c9 | | Action Pop_Auxiliary_Loop 182d e604 | | Load 0x3,0x4 182e 0f01 | | Execute_Immediate Equal,0x1 182f 77e0 |w | Jump_Nonzero 0x1810 1830 00ce | | Action Pop_Auxiliary 1831 00db | | Load_Top At_Offset_3 1832 4602 |F | Jump_Case 0x3 1833 7807 |x | Jump 0x183b ; case 0x0 1834 780a |x | Jump 0x183f ; case 0x1 1835 7800 |x | Jump 0x1836 ; case 0x2 1836 4815 |H | Short_Literal 0x15 1837 e7ff | | Load 0x3,-0x1 1838 e29e | | Load 0x1,0x9e 1839 1811 | | Execute Package,Field_Execute,Field_Number 0x11 183a 7804 |x | Jump 0x183f 183b 4816 |H | Short_Literal 0x16 183c e7ff | | Load 0x3,-0x1 183d e29e | | Load 0x1,0x9e 183e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 183f e7ff | | Load 0x3,-0x1 1840 e29e | | Load 0x1,0x9e 1841 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1842 8407 | | Call 0x2,0x7 1843 a603 | | Store_Unchecked 0x3,0x3 1844 00c9 | | Action Pop_Auxiliary_Loop 1845 7f78 | x | Jump 0x17be 1846 00ce | | Action Pop_Auxiliary 1847 00db | | Load_Top At_Offset_3 1848 0f01 | | Execute_Immediate Equal,0x1 1849 7002 |p | Jump_Nonzero 0x184c 184a e025 | % | Load 0x0,0x25 184b 0257 | W | Execute Discrete,Raise 184c e7ff | | Load 0x3,-0x1 184d e29e | | Load 0x1,0x9e 184e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 184f e602 | | Load 0x3,0x2 1850 027f | | Execute Discrete,Equal 1851 7002 |p | Jump_Nonzero 0x1854 1852 e025 | % | Load 0x0,0x25 1853 0257 | W | Execute Discrete,Raise 1854 e2a0 | | Load 0x1,0xa0 1855 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1856 180f | | Execute Package,Field_Execute,Field_Number 0xf 1857 8408 | | Call 0x2,0x8 1858 a7fd | | Store_Unchecked 0x3,-0x3 1859 4503 |E | Exit_Suprogram New_Top_Offset 0x3 185a TRAP_17a8: 185a e011 | | Load 0x0,0x11 185b 010f | | Execute Exception,Equal 185c 6806 |h | Jump_Zero 0x1863 185d e7ff | | Load 0x3,-0x1 185e e29e | | Load 0x1,0x9e 185f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1860 8408 | | Call 0x2,0x8 1861 a7fd | | Store_Unchecked 0x3,-0x3 1862 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1863 e013 | | Load 0x0,0x13 1864 010f | | Execute Exception,Equal 1865 6803 |h | Jump_Zero 0x1869 1866 4801 |H | Short_Literal 0x1 1867 a7fd | | Store_Unchecked 0x3,-0x3 1868 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1869 e025 | % | Load 0x0,0x25 186a 010f | | Execute Exception,Equal 186b 6803 |h | Jump_Zero 0x186f 186c 4802 |H | Short_Literal 0x2 186d a7fd | | Store_Unchecked 0x3,-0x3 186e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 186f 0100 | | Execute Exception,Raise 1870 ; -------------------------------------------------------------------------------------- 1870 ; SUBPROGRAM 1870 ; -------------------------------------------------------------------------------------- 1870 1873 | s | .CONST 0x1873 ; Address of begin 1871 0004 | | .CONST 0x0004 ; Address of exception handler 1872 0001 | | .CONST 0x0001 ; Number of locals 1873 BODY_1870: 1873 INIT_1870: 1873 4607 |F | Jump_Case 0x8 1874 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1875 7806 |x | Jump 0x187c ; case 0x1 1876 7809 |x | Jump 0x1880 ; case 0x2 1877 780d |x | Jump 0x1885 ; case 0x3 1878 7810 |x | Jump 0x1889 ; case 0x4 1879 7811 |x | Jump 0x188b ; case 0x5 187a 7812 |x | Jump 0x188d ; case 0x6 187b 7815 |x | Jump 0x1891 ; case 0x7 187c 00da | | Load_Top At_Offset_2 187d 0091 1de4 | | Action Push_String_Extended_Indexed,0x1de4 ; "SENTINEL" 187f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1880 00db | | Load_Top At_Offset_3 1881 00db | | Load_Top At_Offset_3 1882 00e0 | | Load_Encached Standard_Cache 1883 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1884 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1885 00da | | Load_Top At_Offset_2 1886 00e0 | | Load_Encached Standard_Cache 1887 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1888 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1889 00db | | Load_Top At_Offset_3 188a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 188b 00db | | Load_Top At_Offset_3 188c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 188d e405 | | Load 0x2,0x5 188e 00dc | | Load_Top At_Offset_4 188f 0267 | g | Execute Discrete,Predecessor 1890 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1891 e405 | | Load 0x2,0x5 1892 00dc | | Load_Top At_Offset_4 1893 0268 | h | Execute Discrete,Successor 1894 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1895 0000 0000 | | .XXX[0x3] 1897 0000 | | 1898 ; -------------------------------------------------------------------------------------- 1898 ; SUBPROGRAM 1898 ; -------------------------------------------------------------------------------------- 1898 189b | | .CONST 0x189b ; Address of begin 1899 0004 | | .CONST 0x0004 ; Address of exception handler 189a 0001 | | .CONST 0x0001 ; Number of locals 189b BODY_1898: 189b INIT_1898: 189b 4607 |F | Jump_Case 0x8 189c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 189d 7806 |x | Jump 0x18a4 ; case 0x1 189e 7809 |x | Jump 0x18a8 ; case 0x2 189f 780d |x | Jump 0x18ad ; case 0x3 18a0 7810 |x | Jump 0x18b1 ; case 0x4 18a1 7811 |x | Jump 0x18b3 ; case 0x5 18a2 7812 |x | Jump 0x18b5 ; case 0x6 18a3 7815 |x | Jump 0x18b9 ; case 0x7 18a4 00da | | Load_Top At_Offset_2 18a5 0091 1de7 | | Action Push_String_Extended_Indexed,0x1de7 ; "NO_ERROR" 18a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 18a8 00db | | Load_Top At_Offset_3 18a9 00db | | Load_Top At_Offset_3 18aa 00e0 | | Load_Encached Standard_Cache 18ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 18ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 18ad 00da | | Load_Top At_Offset_2 18ae 00e0 | | Load_Encached Standard_Cache 18af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 18b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 18b1 00db | | Load_Top At_Offset_3 18b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 18b3 00db | | Load_Top At_Offset_3 18b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 18b5 e406 | | Load 0x2,0x6 18b6 00dc | | Load_Top At_Offset_4 18b7 0267 | g | Execute Discrete,Predecessor 18b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 18b9 e406 | | Load 0x2,0x6 18ba 00dc | | Load_Top At_Offset_4 18bb 0268 | h | Execute Discrete,Successor 18bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 18bd 0000 0000 | | .XXX[0x3] 18bf 0000 | | 18c0 ; -------------------------------------------------------------------------------------- 18c0 ; SUBPROGRAM 18c0 ; -------------------------------------------------------------------------------------- 18c0 18c5 | | .CONST 0x18c5 ; Address of begin 18c1 18ce | | .CONST 0x18ce ; Address of exception handler 18c2 0002 | | .CONST 0x0002 ; Number of locals 18c3 INIT_18c0: 18c3 e405 | | Load 0x2,0x5 18c4 0007 | | Action Break_Optional 18c5 BODY_18c0: 18c5 00db | | Load_Top At_Offset_3 18c6 e29c | | Load 0x1,0x9c 18c7 011c | | Execute Any,Convert_Unchecked 18c8 1c01 | | Execute_Immediate Run_Utility,0x1 18c9 e405 | | Load 0x2,0x5 18ca 1c02 | | Execute_Immediate Run_Utility,0x2 18cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 18cc 00db | | Load_Top At_Offset_3 18cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 18ce TRAP_18c0: 18ce 0007 | | Action Break_Optional 18cf e026 | & | Load 0x0,0x26 18d0 0257 | W | Execute Discrete,Raise 18d1 0000 0000 | | .BLANK 0000[0x7] 18d8 ; -------------------------------------------------------------------------------------- 18d8 ; SUBPROGRAM 18d8 ; -------------------------------------------------------------------------------------- 18d8 18dd | | .CONST 0x18dd ; Address of begin 18d9 18e6 | | .CONST 0x18e6 ; Address of exception handler 18da 0002 | | .CONST 0x0002 ; Number of locals 18db INIT_18d8: 18db e406 | | Load 0x2,0x6 18dc 0007 | | Action Break_Optional 18dd BODY_18d8: 18dd 00db | | Load_Top At_Offset_3 18de e26c | l | Load 0x1,0x6c 18df 011c | | Execute Any,Convert_Unchecked 18e0 1c01 | | Execute_Immediate Run_Utility,0x1 18e1 e406 | | Load 0x2,0x6 18e2 1c02 | | Execute_Immediate Run_Utility,0x2 18e3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 18e4 00db | | Load_Top At_Offset_3 18e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 18e6 TRAP_18d8: 18e6 0007 | | Action Break_Optional 18e7 4802 |H | Short_Literal 0x2 18e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 18e9 0000 0000 | | .BLANK 0000[0x7] 18f0 ; -------------------------------------------------------------------------------------- 18f0 ; SUBPROGRAM 18f0 ; -------------------------------------------------------------------------------------- 18f0 18f6 | | .CONST 0x18f6 ; Address of begin 18f1 1937 | 7 | .CONST 0x1937 ; Address of exception handler 18f2 0002 | | .CONST 0x0002 ; Number of locals 18f3 INIT_18f0: 18f3 00db | | Load_Top At_Offset_3 18f4 00e3 | | Load_Encached Natural_Cache 18f5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 18f6 BODY_18f0: 18f6 4800 |H | Short_Literal 0x0 18f7 e5fe | | Load 0x2,-0x2 18f8 e29e | | Load 0x1,0x9e 18f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 18fa e2a0 | | Load 0x1,0xa0 18fb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 18fc 180f | | Execute Package,Field_Execute,Field_Number 0xf 18fd 8408 | | Call 0x2,0x8 18fe a7fd | | Store_Unchecked 0x3,-0x3 18ff e7fd | | Load 0x3,-0x3 1900 6809 |h | Jump_Zero 0x190a 1901 4801 |H | Short_Literal 0x1 1902 e5fe | | Load 0x2,-0x2 1903 e29e | | Load 0x1,0x9e 1904 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1905 4802 |H | Short_Literal 0x2 1906 e7ff | | Load 0x3,-0x1 1907 e29e | | Load 0x1,0x9e 1908 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1909 4503 |E | Exit_Suprogram New_Top_Offset 0x3 190a 4801 |H | Short_Literal 0x1 190b e7ff | | Load 0x3,-0x1 190c e29e | | Load 0x1,0x9e 190d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 190e 00d8 | | Load_Top At_Offset_0 190f e7ff | | Load 0x3,-0x1 1910 e29e | | Load 0x1,0x9e 1911 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1912 4812 |H | Short_Literal 0x12 1913 e7ff | | Load 0x3,-0x1 1914 e29e | | Load 0x1,0x9e 1915 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1916 e5ff | | Load 0x2,-0x1 1917 e7ff | | Load 0x3,-0x1 1918 e29e | | Load 0x1,0x9e 1919 1815 | | Execute Package,Field_Execute,Field_Number 0x15 191a e2a0 | | Load 0x1,0xa0 191b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 191c 180f | | Execute Package,Field_Execute,Field_Number 0xf 191d 8408 | | Call 0x2,0x8 191e a7fd | | Store_Unchecked 0x3,-0x3 191f e7fd | | Load 0x3,-0x3 1920 6809 |h | Jump_Zero 0x192a 1921 4801 |H | Short_Literal 0x1 1922 e5fe | | Load 0x2,-0x2 1923 e29e | | Load 0x1,0x9e 1924 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1925 4802 |H | Short_Literal 0x2 1926 e7ff | | Load 0x3,-0x1 1927 e29e | | Load 0x1,0x9e 1928 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1929 4503 |E | Exit_Suprogram New_Top_Offset 0x3 192a 4801 |H | Short_Literal 0x1 192b e7ff | | Load 0x3,-0x1 192c e29e | | Load 0x1,0x9e 192d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 192e 4801 |H | Short_Literal 0x1 192f e5fe | | Load 0x2,-0x2 1930 e29e | | Load 0x1,0x9e 1931 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1932 00d8 | | Load_Top At_Offset_0 1933 e7ff | | Load 0x3,-0x1 1934 e29e | | Load 0x1,0x9e 1935 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1936 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1937 TRAP_18f0: 1937 e026 | & | Load 0x0,0x26 1938 010f | | Execute Exception,Equal 1939 6803 |h | Jump_Zero 0x193d 193a 4802 |H | Short_Literal 0x2 193b a7fd | | Store_Unchecked 0x3,-0x3 193c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 193d e013 | | Load 0x0,0x13 193e 010f | | Execute Exception,Equal 193f 6803 |h | Jump_Zero 0x1943 1940 4801 |H | Short_Literal 0x1 1941 a7fd | | Store_Unchecked 0x3,-0x3 1942 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1943 0100 | | Execute Exception,Raise 1944 0000 0000 | | .BLANK 0000[0x4] 1948 ; -------------------------------------------------------------------------------------- 1948 ; SUBPROGRAM 1948 ; -------------------------------------------------------------------------------------- 1948 1950 | P | .CONST 0x1950 ; Address of begin 1949 1968 | h | .CONST 0x1968 ; Address of exception handler 194a 0003 | | .CONST 0x0003 ; Number of locals 194b INIT_1948: 194b 00db | | Load_Top At_Offset_3 194c 00e3 | | Load_Encached Natural_Cache 194d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 194e e29c | | Load 0x1,0x9c 194f 0007 | | Action Break_Optional 1950 BODY_1948: 1950 e7ff | | Load 0x3,-0x1 1951 e29e | | Load 0x1,0x9e 1952 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1953 8407 | | Call 0x2,0x7 1954 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1955 00d8 | | Load_Top At_Offset_0 1956 0f01 | | Execute_Immediate Equal,0x1 1957 7002 |p | Jump_Nonzero 0x195a 1958 e026 | & | Load 0x0,0x26 1959 0257 | W | Execute Discrete,Raise 195a e7ff | | Load 0x3,-0x1 195b e29e | | Load 0x1,0x9e 195c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 195d 00da | | Load_Top At_Offset_2 195e 027f | | Execute Discrete,Equal 195f 7002 |p | Jump_Nonzero 0x1962 1960 e026 | & | Load 0x0,0x26 1961 0257 | W | Execute Discrete,Raise 1962 e2a0 | | Load 0x1,0xa0 1963 1b17 | | Execute Package,Field_Read,Field_Number 0x17 1964 180f | | Execute Package,Field_Execute,Field_Number 0xf 1965 8408 | | Call 0x2,0x8 1966 a7fd | | Store_Unchecked 0x3,-0x3 1967 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1968 TRAP_1948: 1968 e011 | | Load 0x0,0x11 1969 010f | | Execute Exception,Equal 196a 6806 |h | Jump_Zero 0x1971 196b e7ff | | Load 0x3,-0x1 196c e29e | | Load 0x1,0x9e 196d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 196e 8408 | | Call 0x2,0x8 196f a7fd | | Store_Unchecked 0x3,-0x3 1970 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1971 e013 | | Load 0x0,0x13 1972 010f | | Execute Exception,Equal 1973 6803 |h | Jump_Zero 0x1977 1974 4801 |H | Short_Literal 0x1 1975 a7fd | | Store_Unchecked 0x3,-0x3 1976 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1977 e026 | & | Load 0x0,0x26 1978 010f | | Execute Exception,Equal 1979 6803 |h | Jump_Zero 0x197d 197a 4802 |H | Short_Literal 0x2 197b a7fd | | Store_Unchecked 0x3,-0x3 197c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 197d 0100 | | Execute Exception,Raise 197e 0000 0000 | | .XXX[0x2] 1980 ; -------------------------------------------------------------------------------------- 1980 ; SUBPROGRAM 1980 ; -------------------------------------------------------------------------------------- 1980 1983 | | .CONST 0x1983 ; Address of begin 1981 0004 | | .CONST 0x0004 ; Address of exception handler 1982 0001 | | .CONST 0x0001 ; Number of locals 1983 BODY_1980: 1983 INIT_1980: 1983 4607 |F | Jump_Case 0x8 1984 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1985 7806 |x | Jump 0x198c ; case 0x1 1986 7809 |x | Jump 0x1990 ; case 0x2 1987 780d |x | Jump 0x1995 ; case 0x3 1988 7810 |x | Jump 0x1999 ; case 0x4 1989 7811 |x | Jump 0x199b ; case 0x5 198a 7812 |x | Jump 0x199d ; case 0x6 198b 7815 |x | Jump 0x19a1 ; case 0x7 198c 00da | | Load_Top At_Offset_2 198d 0091 1dec | | Action Push_String_Extended_Indexed,0x1dec ; "SENTINEL" 198f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1990 00db | | Load_Top At_Offset_3 1991 00db | | Load_Top At_Offset_3 1992 00e0 | | Load_Encached Standard_Cache 1993 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1994 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1995 00da | | Load_Top At_Offset_2 1996 00e0 | | Load_Encached Standard_Cache 1997 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1998 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1999 00db | | Load_Top At_Offset_3 199a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 199b 00db | | Load_Top At_Offset_3 199c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 199d e407 | | Load 0x2,0x7 199e 00dc | | Load_Top At_Offset_4 199f 0267 | g | Execute Discrete,Predecessor 19a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19a1 e407 | | Load 0x2,0x7 19a2 00dc | | Load_Top At_Offset_4 19a3 0268 | h | Execute Discrete,Successor 19a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19a5 0000 0000 | | .XXX[0x3] 19a7 0000 | | 19a8 ; -------------------------------------------------------------------------------------- 19a8 ; SUBPROGRAM 19a8 ; -------------------------------------------------------------------------------------- 19a8 19ab | | .CONST 0x19ab ; Address of begin 19a9 0004 | | .CONST 0x0004 ; Address of exception handler 19aa 0001 | | .CONST 0x0001 ; Number of locals 19ab BODY_19a8: 19ab INIT_19a8: 19ab 4607 |F | Jump_Case 0x8 19ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 19ad 7806 |x | Jump 0x19b4 ; case 0x1 19ae 7809 |x | Jump 0x19b8 ; case 0x2 19af 780d |x | Jump 0x19bd ; case 0x3 19b0 7810 |x | Jump 0x19c1 ; case 0x4 19b1 7811 |x | Jump 0x19c3 ; case 0x5 19b2 7812 |x | Jump 0x19c5 ; case 0x6 19b3 7815 |x | Jump 0x19c9 ; case 0x7 19b4 00da | | Load_Top At_Offset_2 19b5 0091 1df2 | | Action Push_String_Extended_Indexed,0x1df2 ; "NO_ERROR" 19b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 19b8 00db | | Load_Top At_Offset_3 19b9 00db | | Load_Top At_Offset_3 19ba 00e0 | | Load_Encached Standard_Cache 19bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 19bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19bd 00da | | Load_Top At_Offset_2 19be 00e0 | | Load_Encached Standard_Cache 19bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 19c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 19c1 00db | | Load_Top At_Offset_3 19c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19c3 00db | | Load_Top At_Offset_3 19c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19c5 e408 | | Load 0x2,0x8 19c6 00dc | | Load_Top At_Offset_4 19c7 0267 | g | Execute Discrete,Predecessor 19c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19c9 e408 | | Load 0x2,0x8 19ca 00dc | | Load_Top At_Offset_4 19cb 0268 | h | Execute Discrete,Successor 19cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 19cd 0000 0000 | | .XXX[0x3] 19cf 0000 | | 19d0 ; -------------------------------------------------------------------------------------- 19d0 ; SUBPROGRAM 19d0 ; -------------------------------------------------------------------------------------- 19d0 19d5 | | .CONST 0x19d5 ; Address of begin 19d1 19de | | .CONST 0x19de ; Address of exception handler 19d2 0002 | | .CONST 0x0002 ; Number of locals 19d3 INIT_19d0: 19d3 e407 | | Load 0x2,0x7 19d4 0007 | | Action Break_Optional 19d5 BODY_19d0: 19d5 00db | | Load_Top At_Offset_3 19d6 e29c | | Load 0x1,0x9c 19d7 011c | | Execute Any,Convert_Unchecked 19d8 1c01 | | Execute_Immediate Run_Utility,0x1 19d9 e407 | | Load 0x2,0x7 19da 1c02 | | Execute_Immediate Run_Utility,0x2 19db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 19dc 00db | | Load_Top At_Offset_3 19dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 19de TRAP_19d0: 19de 0007 | | Action Break_Optional 19df e027 | ' | Load 0x0,0x27 19e0 0257 | W | Execute Discrete,Raise 19e1 0000 0000 | | .BLANK 0000[0x7] 19e8 ; -------------------------------------------------------------------------------------- 19e8 ; SUBPROGRAM 19e8 ; -------------------------------------------------------------------------------------- 19e8 19ed | | .CONST 0x19ed ; Address of begin 19e9 19f6 | | .CONST 0x19f6 ; Address of exception handler 19ea 0002 | | .CONST 0x0002 ; Number of locals 19eb INIT_19e8: 19eb e408 | | Load 0x2,0x8 19ec 0007 | | Action Break_Optional 19ed BODY_19e8: 19ed 00db | | Load_Top At_Offset_3 19ee e26c | l | Load 0x1,0x6c 19ef 011c | | Execute Any,Convert_Unchecked 19f0 1c01 | | Execute_Immediate Run_Utility,0x1 19f1 e408 | | Load 0x2,0x8 19f2 1c02 | | Execute_Immediate Run_Utility,0x2 19f3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 19f4 00db | | Load_Top At_Offset_3 19f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 19f6 TRAP_19e8: 19f6 0007 | | Action Break_Optional 19f7 4802 |H | Short_Literal 0x2 19f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 19f9 0000 0000 | | .BLANK 0000[0x7] 1a00 ; -------------------------------------------------------------------------------------- 1a00 ; SUBPROGRAM 1a00 ; -------------------------------------------------------------------------------------- 1a00 1a06 | | .CONST 0x1a06 ; Address of begin 1a01 1a7e | ~ | .CONST 0x1a7e ; Address of exception handler 1a02 0002 | | .CONST 0x0002 ; Number of locals 1a03 INIT_1a00: 1a03 00db | | Load_Top At_Offset_3 1a04 00e3 | | Load_Encached Natural_Cache 1a05 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1a06 BODY_1a00: 1a06 4800 |H | Short_Literal 0x0 1a07 e5fa | | Load 0x2,-0x6 1a08 e29e | | Load 0x1,0x9e 1a09 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1a0a e403 | | Load 0x2,0x3 1a0b e2a0 | | Load 0x1,0xa0 1a0c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a0d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1a0e 840a | | Call 0x2,0xa 1a0f a7fd | | Store_Unchecked 0x3,-0x3 1a10 e7fd | | Load 0x3,-0x3 1a11 6809 |h | Jump_Zero 0x1a1b 1a12 4801 |H | Short_Literal 0x1 1a13 e5fa | | Load 0x2,-0x6 1a14 e29e | | Load 0x1,0x9e 1a15 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1a16 4802 |H | Short_Literal 0x2 1a17 e7ff | | Load 0x3,-0x1 1a18 e29e | | Load 0x1,0x9e 1a19 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a1a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1a1b 4801 |H | Short_Literal 0x1 1a1c e7ff | | Load 0x3,-0x1 1a1d e29e | | Load 0x1,0x9e 1a1e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a1f 00d8 | | Load_Top At_Offset_0 1a20 e7ff | | Load 0x3,-0x1 1a21 e29e | | Load 0x1,0x9e 1a22 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1a23 4818 |H | Short_Literal 0x18 1a24 e7ff | | Load 0x3,-0x1 1a25 e29e | | Load 0x1,0x9e 1a26 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a27 e5fc | | Load 0x2,-0x4 1a28 e7ff | | Load 0x3,-0x1 1a29 e29e | | Load 0x1,0x9e 1a2a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1a2b 4806 |H | Short_Literal 0x6 1a2c e7ff | | Load 0x3,-0x1 1a2d e29e | | Load 0x1,0x9e 1a2e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a2f e5fd | | Load 0x2,-0x3 1a30 e7ff | | Load 0x3,-0x1 1a31 e29e | | Load 0x1,0x9e 1a32 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1a33 481c |H | Short_Literal 0x1c 1a34 e7ff | | Load 0x3,-0x1 1a35 e29e | | Load 0x1,0x9e 1a36 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a37 e5fb | | Load 0x2,-0x5 1a38 e7ff | | Load 0x3,-0x1 1a39 e29e | | Load 0x1,0x9e 1a3a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1a3b 4801 |H | Short_Literal 0x1 1a3c a406 | | Store_Unchecked 0x2,0x6 1a3d 00cf | | Action Mark_Auxiliary 1a3e 7815 |x | Jump 0x1a54 1a3f 4805 |H | Short_Literal 0x5 1a40 e7ff | | Load 0x3,-0x1 1a41 e29e | | Load 0x1,0x9e 1a42 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a43 e406 | | Load 0x2,0x6 1a44 00d8 | | Load_Top At_Offset_0 1a45 00e4 | | Load_Encached Positive_Cache 1a46 0260 | ` | Execute Discrete,In_Type 1a47 7001 |p | Jump_Nonzero 0x1a49 1a48 0801 | | Execute_Immediate Raise,0x1 1a49 e403 | | Load 0x2,0x3 1a4a e2a0 | | Load 0x1,0xa0 1a4b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a4c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1a4d e7ff | | Load 0x3,-0x1 1a4e e29e | | Load 0x1,0x9e 1a4f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1a50 e406 | | Load 0x2,0x6 1a51 0a01 | | Execute_Immediate Plus,0x1 1a52 c406 | | Store 0x2,0x6 1a53 00c9 | | Action Pop_Auxiliary_Loop 1a54 e406 | | Load 0x2,0x6 1a55 00d8 | | Load_Top At_Offset_0 1a56 00e4 | | Load_Encached Positive_Cache 1a57 0260 | ` | Execute Discrete,In_Type 1a58 7001 |p | Jump_Nonzero 0x1a5a 1a59 0801 | | Execute_Immediate Raise,0x1 1a5a e403 | | Load 0x2,0x3 1a5b e2a0 | | Load 0x1,0xa0 1a5c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a5d 180f | | Execute Package,Field_Execute,Field_Number 0xf 1a5e 6fe0 |o | Jump_Zero 0x1a3f 1a5f 00ce | | Action Pop_Auxiliary 1a60 e403 | | Load 0x2,0x3 1a61 e2a0 | | Load 0x1,0xa0 1a62 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1a63 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1a64 840a | | Call 0x2,0xa 1a65 a7fd | | Store_Unchecked 0x3,-0x3 1a66 e7fd | | Load 0x3,-0x3 1a67 6809 |h | Jump_Zero 0x1a71 1a68 4801 |H | Short_Literal 0x1 1a69 e5fa | | Load 0x2,-0x6 1a6a e29e | | Load 0x1,0x9e 1a6b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1a6c 4802 |H | Short_Literal 0x2 1a6d e7ff | | Load 0x3,-0x1 1a6e e29e | | Load 0x1,0x9e 1a6f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a70 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1a71 4801 |H | Short_Literal 0x1 1a72 e7ff | | Load 0x3,-0x1 1a73 e29e | | Load 0x1,0x9e 1a74 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a75 4801 |H | Short_Literal 0x1 1a76 e5fa | | Load 0x2,-0x6 1a77 e29e | | Load 0x1,0x9e 1a78 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1a79 00d8 | | Load_Top At_Offset_0 1a7a e7ff | | Load 0x3,-0x1 1a7b e29e | | Load 0x1,0x9e 1a7c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1a7d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1a7e TRAP_1a00: 1a7e e027 | ' | Load 0x0,0x27 1a7f 010f | | Execute Exception,Equal 1a80 6803 |h | Jump_Zero 0x1a84 1a81 4802 |H | Short_Literal 0x2 1a82 a7fd | | Store_Unchecked 0x3,-0x3 1a83 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1a84 e013 | | Load 0x0,0x13 1a85 010f | | Execute Exception,Equal 1a86 6803 |h | Jump_Zero 0x1a8a 1a87 4801 |H | Short_Literal 0x1 1a88 a7fd | | Store_Unchecked 0x3,-0x3 1a89 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1a8a 0100 | | Execute Exception,Raise 1a8b 0000 0000 | | .BLANK 0000[0x5] 1a90 ; -------------------------------------------------------------------------------------- 1a90 ; SUBPROGRAM 1a90 ; -------------------------------------------------------------------------------------- 1a90 1a98 | | .CONST 0x1a98 ; Address of begin 1a91 1ab1 | | .CONST 0x1ab1 ; Address of exception handler 1a92 0003 | | .CONST 0x0003 ; Number of locals 1a93 INIT_1a90: 1a93 00db | | Load_Top At_Offset_3 1a94 00e3 | | Load_Encached Natural_Cache 1a95 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1a96 e29c | | Load 0x1,0x9c 1a97 0007 | | Action Break_Optional 1a98 BODY_1a90: 1a98 e7ff | | Load 0x3,-0x1 1a99 e29e | | Load 0x1,0x9e 1a9a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1a9b 8409 | | Call 0x2,0x9 1a9c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1a9d 00d8 | | Load_Top At_Offset_0 1a9e 0f01 | | Execute_Immediate Equal,0x1 1a9f 7002 |p | Jump_Nonzero 0x1aa2 1aa0 e027 | ' | Load 0x0,0x27 1aa1 0257 | W | Execute Discrete,Raise 1aa2 e7ff | | Load 0x3,-0x1 1aa3 e29e | | Load 0x1,0x9e 1aa4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1aa5 00da | | Load_Top At_Offset_2 1aa6 027f | | Execute Discrete,Equal 1aa7 7002 |p | Jump_Nonzero 0x1aaa 1aa8 e027 | ' | Load 0x0,0x27 1aa9 0257 | W | Execute Discrete,Raise 1aaa e403 | | Load 0x2,0x3 1aab e2a0 | | Load 0x1,0xa0 1aac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1aad 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1aae 840a | | Call 0x2,0xa 1aaf a7fd | | Store_Unchecked 0x3,-0x3 1ab0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1ab1 TRAP_1a90: 1ab1 e011 | | Load 0x0,0x11 1ab2 010f | | Execute Exception,Equal 1ab3 6806 |h | Jump_Zero 0x1aba 1ab4 e7ff | | Load 0x3,-0x1 1ab5 e29e | | Load 0x1,0x9e 1ab6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1ab7 840a | | Call 0x2,0xa 1ab8 a7fd | | Store_Unchecked 0x3,-0x3 1ab9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1aba e013 | | Load 0x0,0x13 1abb 010f | | Execute Exception,Equal 1abc 6803 |h | Jump_Zero 0x1ac0 1abd 4801 |H | Short_Literal 0x1 1abe a7fd | | Store_Unchecked 0x3,-0x3 1abf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1ac0 e027 | ' | Load 0x0,0x27 1ac1 010f | | Execute Exception,Equal 1ac2 6803 |h | Jump_Zero 0x1ac6 1ac3 4802 |H | Short_Literal 0x2 1ac4 a7fd | | Store_Unchecked 0x3,-0x3 1ac5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1ac6 0100 | | Execute Exception,Raise 1ac7 0000 | | .XXX[0x1] 1ac8 ; -------------------------------------------------------------------------------------- 1ac8 ; SUBPROGRAM 1ac8 ; -------------------------------------------------------------------------------------- 1ac8 1acb | | .CONST 0x1acb ; Address of begin 1ac9 0004 | | .CONST 0x0004 ; Address of exception handler 1aca 0001 | | .CONST 0x0001 ; Number of locals 1acb BODY_1ac8: 1acb INIT_1ac8: 1acb 4607 |F | Jump_Case 0x8 1acc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1acd 7806 |x | Jump 0x1ad4 ; case 0x1 1ace 7809 |x | Jump 0x1ad8 ; case 0x2 1acf 780d |x | Jump 0x1add ; case 0x3 1ad0 7810 |x | Jump 0x1ae1 ; case 0x4 1ad1 7811 |x | Jump 0x1ae3 ; case 0x5 1ad2 7812 |x | Jump 0x1ae5 ; case 0x6 1ad3 7815 |x | Jump 0x1ae9 ; case 0x7 1ad4 00da | | Load_Top At_Offset_2 1ad5 0091 1dfc | | Action Push_String_Extended_Indexed,0x1dfc ; "SENTINEL" 1ad7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1ad8 00db | | Load_Top At_Offset_3 1ad9 00db | | Load_Top At_Offset_3 1ada 00e0 | | Load_Encached Standard_Cache 1adb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1adc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1add 00da | | Load_Top At_Offset_2 1ade 00e0 | | Load_Encached Standard_Cache 1adf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1ae0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1ae1 00db | | Load_Top At_Offset_3 1ae2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1ae3 00db | | Load_Top At_Offset_3 1ae4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1ae5 e407 | | Load 0x2,0x7 1ae6 00dc | | Load_Top At_Offset_4 1ae7 0267 | g | Execute Discrete,Predecessor 1ae8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1ae9 e407 | | Load 0x2,0x7 1aea 00dc | | Load_Top At_Offset_4 1aeb 0268 | h | Execute Discrete,Successor 1aec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1aed 0000 0000 | | .XXX[0x3] 1aef 0000 | | 1af0 ; -------------------------------------------------------------------------------------- 1af0 ; SUBPROGRAM 1af0 ; -------------------------------------------------------------------------------------- 1af0 1af3 | | .CONST 0x1af3 ; Address of begin 1af1 0004 | | .CONST 0x0004 ; Address of exception handler 1af2 0001 | | .CONST 0x0001 ; Number of locals 1af3 BODY_1af0: 1af3 INIT_1af0: 1af3 4607 |F | Jump_Case 0x8 1af4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1af5 7806 |x | Jump 0x1afc ; case 0x1 1af6 7809 |x | Jump 0x1b00 ; case 0x2 1af7 780d |x | Jump 0x1b05 ; case 0x3 1af8 7810 |x | Jump 0x1b09 ; case 0x4 1af9 7811 |x | Jump 0x1b0b ; case 0x5 1afa 7812 |x | Jump 0x1b0d ; case 0x6 1afb 7815 |x | Jump 0x1b11 ; case 0x7 1afc 00da | | Load_Top At_Offset_2 1afd 0091 1e01 | | Action Push_String_Extended_Indexed,0x1e01 ; "NO_ERROR" 1aff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1b00 00db | | Load_Top At_Offset_3 1b01 00db | | Load_Top At_Offset_3 1b02 00e0 | | Load_Encached Standard_Cache 1b03 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1b04 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1b05 00da | | Load_Top At_Offset_2 1b06 00e0 | | Load_Encached Standard_Cache 1b07 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1b08 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1b09 00db | | Load_Top At_Offset_3 1b0a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1b0b 00db | | Load_Top At_Offset_3 1b0c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1b0d e408 | | Load 0x2,0x8 1b0e 00dc | | Load_Top At_Offset_4 1b0f 0267 | g | Execute Discrete,Predecessor 1b10 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1b11 e408 | | Load 0x2,0x8 1b12 00dc | | Load_Top At_Offset_4 1b13 0268 | h | Execute Discrete,Successor 1b14 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1b15 0000 0000 | | .XXX[0x3] 1b17 0000 | | 1b18 ; -------------------------------------------------------------------------------------- 1b18 ; SUBPROGRAM 1b18 ; -------------------------------------------------------------------------------------- 1b18 1b1d | | .CONST 0x1b1d ; Address of begin 1b19 1b26 | & | .CONST 0x1b26 ; Address of exception handler 1b1a 0002 | | .CONST 0x0002 ; Number of locals 1b1b INIT_1b18: 1b1b e407 | | Load 0x2,0x7 1b1c 0007 | | Action Break_Optional 1b1d BODY_1b18: 1b1d 00db | | Load_Top At_Offset_3 1b1e e29c | | Load 0x1,0x9c 1b1f 011c | | Execute Any,Convert_Unchecked 1b20 1c01 | | Execute_Immediate Run_Utility,0x1 1b21 e407 | | Load 0x2,0x7 1b22 1c02 | | Execute_Immediate Run_Utility,0x2 1b23 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1b24 00db | | Load_Top At_Offset_3 1b25 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1b26 TRAP_1b18: 1b26 0007 | | Action Break_Optional 1b27 e028 | ( | Load 0x0,0x28 1b28 0257 | W | Execute Discrete,Raise 1b29 0000 0000 | | .BLANK 0000[0x7] 1b30 ; -------------------------------------------------------------------------------------- 1b30 ; SUBPROGRAM 1b30 ; -------------------------------------------------------------------------------------- 1b30 1b35 | 5 | .CONST 0x1b35 ; Address of begin 1b31 1b3e | > | .CONST 0x1b3e ; Address of exception handler 1b32 0002 | | .CONST 0x0002 ; Number of locals 1b33 INIT_1b30: 1b33 e408 | | Load 0x2,0x8 1b34 0007 | | Action Break_Optional 1b35 BODY_1b30: 1b35 00db | | Load_Top At_Offset_3 1b36 e26c | l | Load 0x1,0x6c 1b37 011c | | Execute Any,Convert_Unchecked 1b38 1c01 | | Execute_Immediate Run_Utility,0x1 1b39 e408 | | Load 0x2,0x8 1b3a 1c02 | | Execute_Immediate Run_Utility,0x2 1b3b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1b3c 00db | | Load_Top At_Offset_3 1b3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1b3e TRAP_1b30: 1b3e 0007 | | Action Break_Optional 1b3f 4802 |H | Short_Literal 0x2 1b40 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1b41 0000 0000 | | .BLANK 0000[0x7] 1b48 ; -------------------------------------------------------------------------------------- 1b48 ; SUBPROGRAM 1b48 ; -------------------------------------------------------------------------------------- 1b48 1b4e | N | .CONST 0x1b4e ; Address of begin 1b49 1b99 | | .CONST 0x1b99 ; Address of exception handler 1b4a 0002 | | .CONST 0x0002 ; Number of locals 1b4b INIT_1b48: 1b4b 00db | | Load_Top At_Offset_3 1b4c 00e3 | | Load_Encached Natural_Cache 1b4d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1b4e BODY_1b48: 1b4e 4800 |H | Short_Literal 0x0 1b4f e5fb | | Load 0x2,-0x5 1b50 e29e | | Load 0x1,0x9e 1b51 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1b52 e403 | | Load 0x2,0x3 1b53 e2a0 | | Load 0x1,0xa0 1b54 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1b55 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b56 840a | | Call 0x2,0xa 1b57 a7fd | | Store_Unchecked 0x3,-0x3 1b58 e7fd | | Load 0x3,-0x3 1b59 6809 |h | Jump_Zero 0x1b63 1b5a 4801 |H | Short_Literal 0x1 1b5b e5fb | | Load 0x2,-0x5 1b5c e29e | | Load 0x1,0x9e 1b5d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1b5e 4802 |H | Short_Literal 0x2 1b5f e7ff | | Load 0x3,-0x1 1b60 e29e | | Load 0x1,0x9e 1b61 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b62 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1b63 4801 |H | Short_Literal 0x1 1b64 e7ff | | Load 0x3,-0x1 1b65 e29e | | Load 0x1,0x9e 1b66 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b67 00d8 | | Load_Top At_Offset_0 1b68 e7ff | | Load 0x3,-0x1 1b69 e29e | | Load 0x1,0x9e 1b6a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1b6b 4807 |H | Short_Literal 0x7 1b6c e7ff | | Load 0x3,-0x1 1b6d e29e | | Load 0x1,0x9e 1b6e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b6f e5ff | | Load 0x2,-0x1 1b70 e7ff | | Load 0x3,-0x1 1b71 e29e | | Load 0x1,0x9e 1b72 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1b73 481c |H | Short_Literal 0x1c 1b74 e7ff | | Load 0x3,-0x1 1b75 e29e | | Load 0x1,0x9e 1b76 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b77 e5fe | | Load 0x2,-0x2 1b78 e7ff | | Load 0x3,-0x1 1b79 e29e | | Load 0x1,0x9e 1b7a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1b7b e403 | | Load 0x2,0x3 1b7c e2a0 | | Load 0x1,0xa0 1b7d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1b7e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b7f 840a | | Call 0x2,0xa 1b80 a7fd | | Store_Unchecked 0x3,-0x3 1b81 e7fd | | Load 0x3,-0x3 1b82 6809 |h | Jump_Zero 0x1b8c 1b83 4801 |H | Short_Literal 0x1 1b84 e5fb | | Load 0x2,-0x5 1b85 e29e | | Load 0x1,0x9e 1b86 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1b87 4802 |H | Short_Literal 0x2 1b88 e7ff | | Load 0x3,-0x1 1b89 e29e | | Load 0x1,0x9e 1b8a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b8b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1b8c 4801 |H | Short_Literal 0x1 1b8d e7ff | | Load 0x3,-0x1 1b8e e29e | | Load 0x1,0x9e 1b8f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1b90 4801 |H | Short_Literal 0x1 1b91 e5fb | | Load 0x2,-0x5 1b92 e29e | | Load 0x1,0x9e 1b93 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1b94 00d8 | | Load_Top At_Offset_0 1b95 e7ff | | Load 0x3,-0x1 1b96 e29e | | Load 0x1,0x9e 1b97 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1b98 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1b99 TRAP_1b48: 1b99 e028 | ( | Load 0x0,0x28 1b9a 010f | | Execute Exception,Equal 1b9b 6803 |h | Jump_Zero 0x1b9f 1b9c 4802 |H | Short_Literal 0x2 1b9d a7fd | | Store_Unchecked 0x3,-0x3 1b9e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1b9f e013 | | Load 0x0,0x13 1ba0 010f | | Execute Exception,Equal 1ba1 6803 |h | Jump_Zero 0x1ba5 1ba2 4801 |H | Short_Literal 0x1 1ba3 a7fd | | Store_Unchecked 0x3,-0x3 1ba4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1ba5 0100 | | Execute Exception,Raise 1ba6 0000 0000 | | .XXX[0x2] 1ba8 ; -------------------------------------------------------------------------------------- 1ba8 ; SUBPROGRAM 1ba8 ; -------------------------------------------------------------------------------------- 1ba8 1bb0 | | .CONST 0x1bb0 ; Address of begin 1ba9 1be7 | | .CONST 0x1be7 ; Address of exception handler 1baa 0003 | | .CONST 0x0003 ; Number of locals 1bab INIT_1ba8: 1bab 00db | | Load_Top At_Offset_3 1bac 00e3 | | Load_Encached Natural_Cache 1bad 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1bae e29c | | Load 0x1,0x9c 1baf 0007 | | Action Break_Optional 1bb0 BODY_1ba8: 1bb0 e7ff | | Load 0x3,-0x1 1bb1 e29e | | Load 0x1,0x9e 1bb2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1bb3 8409 | | Call 0x2,0x9 1bb4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1bb5 4801 |H | Short_Literal 0x1 1bb6 a406 | | Store_Unchecked 0x2,0x6 1bb7 00cf | | Action Mark_Auxiliary 1bb8 7816 |x | Jump 0x1bcf 1bb9 e7ff | | Load 0x3,-0x1 1bba e29e | | Load 0x1,0x9e 1bbb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1bbc e406 | | Load 0x2,0x6 1bbd 00d8 | | Load_Top At_Offset_0 1bbe 00e4 | | Load_Encached Positive_Cache 1bbf 0260 | ` | Execute Discrete,In_Type 1bc0 7001 |p | Jump_Nonzero 0x1bc2 1bc1 0801 | | Execute_Immediate Raise,0x1 1bc2 e403 | | Load 0x2,0x3 1bc3 e2a0 | | Load 0x1,0xa0 1bc4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1bc5 180f | | Execute Package,Field_Execute,Field_Number 0xf 1bc6 e7ff | | Load 0x3,-0x1 1bc7 e29e | | Load 0x1,0x9e 1bc8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1bc9 8409 | | Call 0x2,0x9 1bca 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 1bcb e406 | | Load 0x2,0x6 1bcc 0a01 | | Execute_Immediate Plus,0x1 1bcd c406 | | Store 0x2,0x6 1bce 00c9 | | Action Pop_Auxiliary_Loop 1bcf 00d9 | | Load_Top At_Offset_1 1bd0 0f05 | | Execute_Immediate Equal,0x5 1bd1 77e7 |w | Jump_Nonzero 0x1bb9 1bd2 00ce | | Action Pop_Auxiliary 1bd3 00d8 | | Load_Top At_Offset_0 1bd4 0f01 | | Execute_Immediate Equal,0x1 1bd5 7002 |p | Jump_Nonzero 0x1bd8 1bd6 e028 | ( | Load 0x0,0x28 1bd7 0257 | W | Execute Discrete,Raise 1bd8 e7ff | | Load 0x3,-0x1 1bd9 e29e | | Load 0x1,0x9e 1bda 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1bdb 00da | | Load_Top At_Offset_2 1bdc 027f | | Execute Discrete,Equal 1bdd 7002 |p | Jump_Nonzero 0x1be0 1bde e028 | ( | Load 0x0,0x28 1bdf 0257 | W | Execute Discrete,Raise 1be0 e403 | | Load 0x2,0x3 1be1 e2a0 | | Load 0x1,0xa0 1be2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1be3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1be4 840a | | Call 0x2,0xa 1be5 a7fd | | Store_Unchecked 0x3,-0x3 1be6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1be7 TRAP_1ba8: 1be7 e011 | | Load 0x0,0x11 1be8 010f | | Execute Exception,Equal 1be9 6806 |h | Jump_Zero 0x1bf0 1bea e7ff | | Load 0x3,-0x1 1beb e29e | | Load 0x1,0x9e 1bec 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1bed 840a | | Call 0x2,0xa 1bee a7fd | | Store_Unchecked 0x3,-0x3 1bef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1bf0 e013 | | Load 0x0,0x13 1bf1 010f | | Execute Exception,Equal 1bf2 6803 |h | Jump_Zero 0x1bf6 1bf3 4801 |H | Short_Literal 0x1 1bf4 a7fd | | Store_Unchecked 0x3,-0x3 1bf5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1bf6 e028 | ( | Load 0x0,0x28 1bf7 010f | | Execute Exception,Equal 1bf8 6803 |h | Jump_Zero 0x1bfc 1bf9 4802 |H | Short_Literal 0x2 1bfa a7fd | | Store_Unchecked 0x3,-0x3 1bfb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1bfc 0100 | | Execute Exception,Raise 1bfd 0000 0000 | | .XXX[0x3] 1bff 0000 | | 1c00 ; -------------------------------------------------------------------------------------- 1c00 ; SUBPROGRAM 1c00 ; -------------------------------------------------------------------------------------- 1c00 1c03 | | .CONST 0x1c03 ; Address of begin 1c01 0004 | | .CONST 0x0004 ; Address of exception handler 1c02 0001 | | .CONST 0x0001 ; Number of locals 1c03 BODY_1c00: 1c03 INIT_1c00: 1c03 4607 |F | Jump_Case 0x8 1c04 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1c05 7806 |x | Jump 0x1c0c ; case 0x1 1c06 7809 |x | Jump 0x1c10 ; case 0x2 1c07 780d |x | Jump 0x1c15 ; case 0x3 1c08 7810 |x | Jump 0x1c19 ; case 0x4 1c09 7811 |x | Jump 0x1c1b ; case 0x5 1c0a 7812 |x | Jump 0x1c1d ; case 0x6 1c0b 7815 |x | Jump 0x1c21 ; case 0x7 1c0c 00da | | Load_Top At_Offset_2 1c0d 0091 1e0b | | Action Push_String_Extended_Indexed,0x1e0b ; "SENTINEL" 1c0f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1c10 00db | | Load_Top At_Offset_3 1c11 00db | | Load_Top At_Offset_3 1c12 00e0 | | Load_Encached Standard_Cache 1c13 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1c14 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c15 00da | | Load_Top At_Offset_2 1c16 00e0 | | Load_Encached Standard_Cache 1c17 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1c18 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1c19 00db | | Load_Top At_Offset_3 1c1a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c1b 00db | | Load_Top At_Offset_3 1c1c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c1d e407 | | Load 0x2,0x7 1c1e 00dc | | Load_Top At_Offset_4 1c1f 0267 | g | Execute Discrete,Predecessor 1c20 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c21 e407 | | Load 0x2,0x7 1c22 00dc | | Load_Top At_Offset_4 1c23 0268 | h | Execute Discrete,Successor 1c24 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c25 0000 0000 | | .XXX[0x3] 1c27 0000 | | 1c28 ; -------------------------------------------------------------------------------------- 1c28 ; SUBPROGRAM 1c28 ; -------------------------------------------------------------------------------------- 1c28 1c2b | + | .CONST 0x1c2b ; Address of begin 1c29 0004 | | .CONST 0x0004 ; Address of exception handler 1c2a 0001 | | .CONST 0x0001 ; Number of locals 1c2b BODY_1c28: 1c2b INIT_1c28: 1c2b 4607 |F | Jump_Case 0x8 1c2c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 1c2d 7806 |x | Jump 0x1c34 ; case 0x1 1c2e 7809 |x | Jump 0x1c38 ; case 0x2 1c2f 780d |x | Jump 0x1c3d ; case 0x3 1c30 7810 |x | Jump 0x1c41 ; case 0x4 1c31 7811 |x | Jump 0x1c43 ; case 0x5 1c32 7812 |x | Jump 0x1c45 ; case 0x6 1c33 7815 |x | Jump 0x1c49 ; case 0x7 1c34 00da | | Load_Top At_Offset_2 1c35 0091 1e10 | | Action Push_String_Extended_Indexed,0x1e10 ; "NO_ERROR" 1c37 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1c38 00db | | Load_Top At_Offset_3 1c39 00db | | Load_Top At_Offset_3 1c3a 00e0 | | Load_Encached Standard_Cache 1c3b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1c3c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c3d 00da | | Load_Top At_Offset_2 1c3e 00e0 | | Load_Encached Standard_Cache 1c3f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1c40 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 1c41 00db | | Load_Top At_Offset_3 1c42 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c43 00db | | Load_Top At_Offset_3 1c44 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c45 e408 | | Load 0x2,0x8 1c46 00dc | | Load_Top At_Offset_4 1c47 0267 | g | Execute Discrete,Predecessor 1c48 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c49 e408 | | Load 0x2,0x8 1c4a 00dc | | Load_Top At_Offset_4 1c4b 0268 | h | Execute Discrete,Successor 1c4c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1c4d 0000 0000 | | .XXX[0x3] 1c4f 0000 | | 1c50 ; -------------------------------------------------------------------------------------- 1c50 ; SUBPROGRAM 1c50 ; -------------------------------------------------------------------------------------- 1c50 1c55 | U | .CONST 0x1c55 ; Address of begin 1c51 1c5e | ^ | .CONST 0x1c5e ; Address of exception handler 1c52 0002 | | .CONST 0x0002 ; Number of locals 1c53 INIT_1c50: 1c53 e407 | | Load 0x2,0x7 1c54 0007 | | Action Break_Optional 1c55 BODY_1c50: 1c55 00db | | Load_Top At_Offset_3 1c56 e29c | | Load 0x1,0x9c 1c57 011c | | Execute Any,Convert_Unchecked 1c58 1c01 | | Execute_Immediate Run_Utility,0x1 1c59 e407 | | Load 0x2,0x7 1c5a 1c02 | | Execute_Immediate Run_Utility,0x2 1c5b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1c5c 00db | | Load_Top At_Offset_3 1c5d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1c5e TRAP_1c50: 1c5e 0007 | | Action Break_Optional 1c5f e029 | ) | Load 0x0,0x29 1c60 0257 | W | Execute Discrete,Raise 1c61 0000 0000 | | .BLANK 0000[0x7] 1c68 ; -------------------------------------------------------------------------------------- 1c68 ; SUBPROGRAM 1c68 ; -------------------------------------------------------------------------------------- 1c68 1c6d | m | .CONST 0x1c6d ; Address of begin 1c69 1c76 | v | .CONST 0x1c76 ; Address of exception handler 1c6a 0002 | | .CONST 0x0002 ; Number of locals 1c6b INIT_1c68: 1c6b e408 | | Load 0x2,0x8 1c6c 0007 | | Action Break_Optional 1c6d BODY_1c68: 1c6d 00db | | Load_Top At_Offset_3 1c6e e26c | l | Load 0x1,0x6c 1c6f 011c | | Execute Any,Convert_Unchecked 1c70 1c01 | | Execute_Immediate Run_Utility,0x1 1c71 e408 | | Load 0x2,0x8 1c72 1c02 | | Execute_Immediate Run_Utility,0x2 1c73 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1c74 00db | | Load_Top At_Offset_3 1c75 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1c76 TRAP_1c68: 1c76 0007 | | Action Break_Optional 1c77 4802 |H | Short_Literal 0x2 1c78 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1c79 0000 0000 | | .BLANK 0000[0x7] 1c80 ; -------------------------------------------------------------------------------------- 1c80 ; SUBPROGRAM 1c80 ; -------------------------------------------------------------------------------------- 1c80 1c86 | | .CONST 0x1c86 ; Address of begin 1c81 1cc1 | | .CONST 0x1cc1 ; Address of exception handler 1c82 0002 | | .CONST 0x0002 ; Number of locals 1c83 INIT_1c80: 1c83 00db | | Load_Top At_Offset_3 1c84 00e3 | | Load_Encached Natural_Cache 1c85 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1c86 BODY_1c80: 1c86 e403 | | Load 0x2,0x3 1c87 e2a0 | | Load 0x1,0xa0 1c88 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1c89 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1c8a 840a | | Call 0x2,0xa 1c8b a7fd | | Store_Unchecked 0x3,-0x3 1c8c e7fd | | Load 0x3,-0x3 1c8d 6805 |h | Jump_Zero 0x1c93 1c8e 4802 |H | Short_Literal 0x2 1c8f e7ff | | Load 0x3,-0x1 1c90 e29e | | Load 0x1,0x9e 1c91 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1c92 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1c93 4801 |H | Short_Literal 0x1 1c94 e7ff | | Load 0x3,-0x1 1c95 e29e | | Load 0x1,0x9e 1c96 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1c97 00d8 | | Load_Top At_Offset_0 1c98 e7ff | | Load 0x3,-0x1 1c99 e29e | | Load 0x1,0x9e 1c9a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1c9b 480f |H | Short_Literal 0xf 1c9c e7ff | | Load 0x3,-0x1 1c9d e29e | | Load 0x1,0x9e 1c9e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1c9f e5ff | | Load 0x2,-0x1 1ca0 e7ff | | Load 0x3,-0x1 1ca1 e29e | | Load 0x1,0x9e 1ca2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1ca3 4810 |H | Short_Literal 0x10 1ca4 e7ff | | Load 0x3,-0x1 1ca5 e29e | | Load 0x1,0x9e 1ca6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1ca7 e5fe | | Load 0x2,-0x2 1ca8 e7ff | | Load 0x3,-0x1 1ca9 e29e | | Load 0x1,0x9e 1caa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1cab e403 | | Load 0x2,0x3 1cac e2a0 | | Load 0x1,0xa0 1cad 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1cae 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1caf 840a | | Call 0x2,0xa 1cb0 a7fd | | Store_Unchecked 0x3,-0x3 1cb1 e7fd | | Load 0x3,-0x3 1cb2 6805 |h | Jump_Zero 0x1cb8 1cb3 4802 |H | Short_Literal 0x2 1cb4 e7ff | | Load 0x3,-0x1 1cb5 e29e | | Load 0x1,0x9e 1cb6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1cb7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1cb8 4801 |H | Short_Literal 0x1 1cb9 e7ff | | Load 0x3,-0x1 1cba e29e | | Load 0x1,0x9e 1cbb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1cbc 00d8 | | Load_Top At_Offset_0 1cbd e7ff | | Load 0x3,-0x1 1cbe e29e | | Load 0x1,0x9e 1cbf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1cc0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1cc1 TRAP_1c80: 1cc1 e029 | ) | Load 0x0,0x29 1cc2 010f | | Execute Exception,Equal 1cc3 6803 |h | Jump_Zero 0x1cc7 1cc4 4802 |H | Short_Literal 0x2 1cc5 a7fd | | Store_Unchecked 0x3,-0x3 1cc6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1cc7 e013 | | Load 0x0,0x13 1cc8 010f | | Execute Exception,Equal 1cc9 6803 |h | Jump_Zero 0x1ccd 1cca 4801 |H | Short_Literal 0x1 1ccb a7fd | | Store_Unchecked 0x3,-0x3 1ccc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1ccd 0100 | | Execute Exception,Raise 1cce 0000 0000 | | .XXX[0x2] 1cd0 ; -------------------------------------------------------------------------------------- 1cd0 ; SUBPROGRAM 1cd0 ; -------------------------------------------------------------------------------------- 1cd0 1cd8 | | .CONST 0x1cd8 ; Address of begin 1cd1 1d0f | | .CONST 0x1d0f ; Address of exception handler 1cd2 0003 | | .CONST 0x0003 ; Number of locals 1cd3 INIT_1cd0: 1cd3 00db | | Load_Top At_Offset_3 1cd4 00e3 | | Load_Encached Natural_Cache 1cd5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 1cd6 e29c | | Load 0x1,0x9c 1cd7 0007 | | Action Break_Optional 1cd8 BODY_1cd0: 1cd8 e7ff | | Load 0x3,-0x1 1cd9 e29e | | Load 0x1,0x9e 1cda 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1cdb 8409 | | Call 0x2,0x9 1cdc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 1cdd 4801 |H | Short_Literal 0x1 1cde a406 | | Store_Unchecked 0x2,0x6 1cdf 00cf | | Action Mark_Auxiliary 1ce0 7816 |x | Jump 0x1cf7 1ce1 e7ff | | Load 0x3,-0x1 1ce2 e29e | | Load 0x1,0x9e 1ce3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1ce4 e406 | | Load 0x2,0x6 1ce5 00d8 | | Load_Top At_Offset_0 1ce6 00e4 | | Load_Encached Positive_Cache 1ce7 0260 | ` | Execute Discrete,In_Type 1ce8 7001 |p | Jump_Nonzero 0x1cea 1ce9 0801 | | Execute_Immediate Raise,0x1 1cea e403 | | Load 0x2,0x3 1ceb e2a0 | | Load 0x1,0xa0 1cec 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1ced 180f | | Execute Package,Field_Execute,Field_Number 0xf 1cee e7ff | | Load 0x3,-0x1 1cef e29e | | Load 0x1,0x9e 1cf0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1cf1 8409 | | Call 0x2,0x9 1cf2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 1cf3 e406 | | Load 0x2,0x6 1cf4 0a01 | | Execute_Immediate Plus,0x1 1cf5 c406 | | Store 0x2,0x6 1cf6 00c9 | | Action Pop_Auxiliary_Loop 1cf7 00d9 | | Load_Top At_Offset_1 1cf8 0f0e | | Execute_Immediate Equal,0xe 1cf9 77e7 |w | Jump_Nonzero 0x1ce1 1cfa 00ce | | Action Pop_Auxiliary 1cfb 00d8 | | Load_Top At_Offset_0 1cfc 0f01 | | Execute_Immediate Equal,0x1 1cfd 7002 |p | Jump_Nonzero 0x1d00 1cfe e029 | ) | Load 0x0,0x29 1cff 0257 | W | Execute Discrete,Raise 1d00 e7ff | | Load 0x3,-0x1 1d01 e29e | | Load 0x1,0x9e 1d02 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1d03 00da | | Load_Top At_Offset_2 1d04 027f | | Execute Discrete,Equal 1d05 7002 |p | Jump_Nonzero 0x1d08 1d06 e029 | ) | Load 0x0,0x29 1d07 0257 | W | Execute Discrete,Raise 1d08 e403 | | Load 0x2,0x3 1d09 e2a0 | | Load 0x1,0xa0 1d0a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1d0b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1d0c 840a | | Call 0x2,0xa 1d0d a7fd | | Store_Unchecked 0x3,-0x3 1d0e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1d0f TRAP_1cd0: 1d0f e011 | | Load 0x0,0x11 1d10 010f | | Execute Exception,Equal 1d11 6806 |h | Jump_Zero 0x1d18 1d12 e7ff | | Load 0x3,-0x1 1d13 e29e | | Load 0x1,0x9e 1d14 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1d15 840a | | Call 0x2,0xa 1d16 a7fd | | Store_Unchecked 0x3,-0x3 1d17 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1d18 e013 | | Load 0x0,0x13 1d19 010f | | Execute Exception,Equal 1d1a 6803 |h | Jump_Zero 0x1d1e 1d1b 4801 |H | Short_Literal 0x1 1d1c a7fd | | Store_Unchecked 0x3,-0x3 1d1d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1d1e e029 | ) | Load 0x0,0x29 1d1f 010f | | Execute Exception,Equal 1d20 6803 |h | Jump_Zero 0x1d24 1d21 4802 |H | Short_Literal 0x2 1d22 a7fd | | Store_Unchecked 0x3,-0x3 1d23 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1d24 0100 | | Execute Exception,Raise 1d25 ; -------------------------------------------------------------------------------------- 1d25 ; STRING TABLE 1d25 ; -------------------------------------------------------------------------------------- 1d25 0228 | ( | .STRTAB 0x0228->0x1e39 ; "NO_ERROR" 1d26 022e | . | .STRTAB 0x022e->0x1e3d ; "CONNECTION_ERROR" 1d27 023c | < | .STRTAB 0x023c->0x1e45 ; "INTERNAL_ERROR" 1d28 0248 | H | .STRTAB 0x0248->0x1e4c ; "BAD_USER" 1d29 024e | N | .STRTAB 0x024e->0x1e50 ; "ACCESS_ERROR" 1d2a 0258 | X | .STRTAB 0x0258->0x1e56 ; "DEVICE_ERROR" 1d2b 0262 | b | .STRTAB 0x0262->0x1e5c ; "LOCK_ERROR" 1d2c 026a | j | .STRTAB 0x026a->0x1e61 ; "NAME_ERROR" 1d2d 0272 | r | .STRTAB 0x0272->0x1e66 ; "POLICY_ERROR" 1d2e 027c | | | .STRTAB 0x027c->0x1e6c ; "STATUS_ERROR" 1d2f 0286 | | .STRTAB 0x0286->0x1e72 ; "STORAGE_ERROR" 1d30 0291 | | .STRTAB 0x0291->0x1e78 ; "UNSUPPORTED" 1d31 029a | | .STRTAB 0x029a->0x1e7e ; "USE_ERROR" 1d32 02a1 | | .STRTAB 0x02a1->0x1e82 ; "COMMAND_ERROR" 1d33 02ac | | .STRTAB 0x02ac->0x1e89 ; "COMMAND_TERMINATED" 1d34 02bc | | .STRTAB 0x02bc->0x1e92 ; "COMMAND_TIMED_OUT" 1d35 02cb | | .STRTAB 0x02cb->0x1e9a ; "RESOURCE_LIMIT" 1d36 02d7 | | .STRTAB 0x02d7->0x1ea1 ; "NIL" 1d37 02d8 | | .STRTAB 0x02d8->0x1ea3 ; "READ_INPUT" 1d38 02e0 | | .STRTAB 0x02e0->0x1ea8 ; "ABORT_COMMAND" 1d39 02eb | | .STRTAB 0x02eb->0x1eae ; "NIL_PLATFORM" 1d3a 02f5 | | .STRTAB 0x02f5->0x1eb4 ; "SUN_PLATFORM" 1d3b 02ff | | .STRTAB 0x02ff->0x1eba ; "APOLLO_PLATFORM" 1d3c 030c | | .STRTAB 0x030c->0x1ec2 ; "IBM_PLATFORM" 1d3d 0316 | | .STRTAB 0x0316->0x1ec8 ; "HP_PLATFORM" 1d3e 031f | | .STRTAB 0x031f->0x1ecd ; "VAX_PLATFORM" 1d3f 0329 | ) | .STRTAB 0x0329->0x1ed3 ; "VAX_ULTRIX_PLATFORM" 1d40 033a | : | .STRTAB 0x033a->0x1edd ; "IBM_OS2_PLATFORM" 1d41 0348 | H | .STRTAB 0x0348->0x1ee5 ; "CREATE_R" 1d42 034e | N | .STRTAB 0x034e->0x1ee9 ; "PUT_R" 1d43 0351 | Q | .STRTAB 0x0351->0x1eeb ; "GET_R" 1d44 0354 | T | .STRTAB 0x0354->0x1eee ; "LAST_UPDATE_R" 1d45 035f | _ | .STRTAB 0x035f->0x1ef4 ; "FILE_EXISTENCE_R" 1d46 036d | m | .STRTAB 0x036d->0x1efc ; "COPY_R" 1d47 0371 | q | .STRTAB 0x0371->0x1eff ; "DELETE_R" 1d48 0377 | w | .STRTAB 0x0377->0x1f03 ; "MOVE_R" 1d49 037b | { | .STRTAB 0x037b->0x1f06 ; "LS_R" 1d4a 037d | } | .STRTAB 0x037d->0x1f08 ; "INPUT_TO_SHELL_R" 1d4b 038b | | .STRTAB 0x038b->0x1f10 ; "SIGNAL_TO_SHELL_R" 1d4c 039a | | .STRTAB 0x039a->0x1f19 ; "EXPUNGE_R" 1d4d 03a1 | | .STRTAB 0x03a1->0x1f1d ; "DISCONNECT_F" 1d4e 03ab | | .STRTAB 0x03ab->0x1f23 ; "SENTINEL" 1d4f 03b1 | | .STRTAB 0x03b1->0x1f27 ; "ERR" 1d50 03b2 | | .STRTAB 0x03b2->0x1f29 ; "IS_DIRECTORY_F" 1d51 03be | | .STRTAB 0x03be->0x1f30 ; "REMOTE_FILE_F" 1d52 03c9 | | .STRTAB 0x03c9->0x1f36 ; "CONTENT_F" 1d53 03d0 | | .STRTAB 0x03d0->0x1f3b ; "TO_REMOTE_FILE_F" 1d54 03de | | .STRTAB 0x03de->0x1f43 ; "FROM_REMOTE_FILE_F" 1d55 03ee | | .STRTAB 0x03ee->0x1f4c ; "IN_SECONDS_F" 1d56 03f8 | | .STRTAB 0x03f8->0x1f52 ; "EXISTS_F" 1d57 03fe | | .STRTAB 0x03fe->0x1f56 ; "TIME_F" 1d58 0402 | | .STRTAB 0x0402->0x1f59 ; "OF_REMOTE_FILE_F" 1d59 0410 | | .STRTAB 0x0410->0x1f61 ; "LINK_F" 1d5a 0414 | | .STRTAB 0x0414->0x1f64 ; "EXPUNGE_F" 1d5b 041b | | .STRTAB 0x041b->0x1f68 ; "A_LINE_F" 1d5c 0421 | ! | .STRTAB 0x0421->0x1f6c ; "FROM_REMOTE_DIRECTORY_F" 1d5d 0436 | 6 | .STRTAB 0x0436->0x1f78 ; "LEVEL_F" 1d5e 043b | ; | .STRTAB 0x043b->0x1f7b ; "INPUT_F" 1d5f 0440 | @ | .STRTAB 0x0440->0x1f7f ; "SIGNAL_F" 1d60 0446 | F | .STRTAB 0x0446->0x1f83 ; "STD_OUTPUT_F" 1d61 0450 | P | .STRTAB 0x0450->0x1f89 ; "STD_ERROR_F" 1d62 0459 | Y | .STRTAB 0x0459->0x1f8e ; "ABORT_F" 1d63 045e | ^ | .STRTAB 0x045e->0x1f92 ; "CONTINUE_F" 1d64 0466 | f | .STRTAB 0x0466->0x1f97 ; "TIMEOUT_F" 1d65 046d | m | .STRTAB 0x046d->0x1f9b ; "APPEND_F" 1d66 0473 | s | .STRTAB 0x0473->0x1f9f ; "CREATE_DIR_F" 1d67 047d | } | .STRTAB 0x047d->0x1fa5 ; "RECURSIVE_F" 1d68 0486 | | .STRTAB 0x0486->0x1fab ; "OBJECT_F" 1d69 048c | | .STRTAB 0x048c->0x1faf ; "OPTIONS_F" 1d6a 0493 | | .STRTAB 0x0493->0x1fb3 ; "SENTINEL" 1d6b 0499 | | .STRTAB 0x0499->0x1fb7 ; "ERROR" 1d6c 049c | | .STRTAB 0x049c->0x1fba ; "IS_DIRECTORY_F" 1d6d 04a8 | | .STRTAB 0x04a8->0x1fc1 ; "REMOTE_F" 1d6e 04ae | | .STRTAB 0x04ae->0x1fc5 ; "OPTIONS_F" 1d6f 04b5 | | .STRTAB 0x04b5->0x1fc9 ; "CREATE_DIR_F" 1d70 04bf | | .STRTAB 0x04bf->0x1fcf ; "NO_ERROR" 1d71 04c5 | | .STRTAB 0x04c5->0x1fd3 ; "CONNECTION_ERROR" 1d72 04d3 | | .STRTAB 0x04d3->0x1fdb ; "INTERNAL_ERROR" 1d73 04df | | .STRTAB 0x04df->0x1fe2 ; "POLICY_ERROR" 1d74 04e9 | | .STRTAB 0x04e9->0x1fe8 ; "STATUS_ERROR" 1d75 04f3 | | .STRTAB 0x04f3->0x1fee ; "USE_ERROR" 1d76 04fa | | .STRTAB 0x04fa->0x1ff3 ; "DEVICE_ERROR" 1d77 0504 | | .STRTAB 0x0504->0x1ff9 ; "NAME_ERROR" 1d78 050c | | .STRTAB 0x050c->0x1ffe ; "UNSUPPORTED" 1d79 0515 | | .STRTAB 0x0515->0x2003 ; "SENTINEL" 1d7a 051b | | .STRTAB 0x051b->0x2007 ; "ERROR" 1d7b 051e | | .STRTAB 0x051e->0x200a ; "OF_REMOTE_FILE_F" 1d7c 052c | , | .STRTAB 0x052c->0x2012 ; "IN_SECONDS_F" 1d7d 0536 | 6 | .STRTAB 0x0536->0x2018 ; "TIME_F" 1d7e 053a | : | .STRTAB 0x053a->0x201b ; "OPTIONS_F" 1d7f 0541 | A | .STRTAB 0x0541->0x201f ; "NO_ERROR" 1d80 0547 | G | .STRTAB 0x0547->0x2023 ; "CONNECTION_ERROR" 1d81 0555 | U | .STRTAB 0x0555->0x202b ; "INTERNAL_ERROR" 1d82 0561 | a | .STRTAB 0x0561->0x2032 ; "POLICY_ERROR" 1d83 056b | k | .STRTAB 0x056b->0x2038 ; "STATUS_ERROR" 1d84 0575 | u | .STRTAB 0x0575->0x203e ; "DEVICE_ERROR" 1d85 057f | | .STRTAB 0x057f->0x2044 ; "NAME_ERROR" 1d86 0587 | | .STRTAB 0x0587->0x2049 ; "USE_ERROR" 1d87 058e | | .STRTAB 0x058e->0x204e ; "UNSUPPORTED" 1d88 0597 | | .STRTAB 0x0597->0x2053 ; "SENTINEL" 1d89 059d | | .STRTAB 0x059d->0x2057 ; "ERROR" 1d8a 05a0 | | .STRTAB 0x05a0->0x205a ; "OF_REMOTE_FILE_F" 1d8b 05ae | | .STRTAB 0x05ae->0x2062 ; "EXISTS_F" 1d8c 05b4 | | .STRTAB 0x05b4->0x2066 ; "NO_ERROR" 1d8d 05ba | | .STRTAB 0x05ba->0x206a ; "CONNECTION_ERROR" 1d8e 05c8 | | .STRTAB 0x05c8->0x2072 ; "INTERNAL_ERROR" 1d8f 05d4 | | .STRTAB 0x05d4->0x2079 ; "POLICY_ERROR" 1d90 05de | | .STRTAB 0x05de->0x207f ; "STATUS_ERROR" 1d91 05e8 | | .STRTAB 0x05e8->0x2085 ; "DEVICE_ERROR" 1d92 05f2 | | .STRTAB 0x05f2->0x208b ; "NAME_ERROR" 1d93 05fa | | .STRTAB 0x05fa->0x2090 ; "USE_ERROR" 1d94 0601 | | .STRTAB 0x0601->0x2094 ; "UNSUPPORTED" 1d95 060a | | .STRTAB 0x060a->0x209a ; "SENTINEL" 1d96 0610 | | .STRTAB 0x0610->0x209e ; "ERROR" 1d97 0613 | | .STRTAB 0x0613->0x20a0 ; "LINK_F" 1d98 0617 | | .STRTAB 0x0617->0x20a3 ; "FROM_REMOTE_FILE_F" 1d99 0627 | ' | .STRTAB 0x0627->0x20ac ; "TO_REMOTE_FILE_F" 1d9a 0635 | 5 | .STRTAB 0x0635->0x20b4 ; "OPTIONS_F" 1d9b 063c | < | .STRTAB 0x063c->0x20b9 ; "NO_ERROR" 1d9c 0642 | B | .STRTAB 0x0642->0x20bd ; "CONNECTION_ERROR" 1d9d 0650 | P | .STRTAB 0x0650->0x20c5 ; "INTERNAL_ERROR" 1d9e 065c | \ | .STRTAB 0x065c->0x20cc ; "ACCESS_ERROR" 1d9f 0666 | f | .STRTAB 0x0666->0x20d2 ; "POLICY_ERROR" 1da0 0670 | p | .STRTAB 0x0670->0x20d8 ; "RESOURCE_LIMIT" 1da1 067c | | | .STRTAB 0x067c->0x20df ; "STATUS_ERROR" 1da2 0686 | | .STRTAB 0x0686->0x20e5 ; "DEVICE_ERROR" 1da3 0690 | | .STRTAB 0x0690->0x20eb ; "USE_ERROR" 1da4 0697 | | .STRTAB 0x0697->0x20ef ; "NAME_ERROR" 1da5 069f | | .STRTAB 0x069f->0x20f4 ; "UNSUPPORTED" 1da6 06a8 | | .STRTAB 0x06a8->0x20fa ; "SENTINEL" 1da7 06ae | | .STRTAB 0x06ae->0x20fe ; "ERROR" 1da8 06b1 | | .STRTAB 0x06b1->0x2100 ; "EXPUNGE_F" 1da9 06b8 | | .STRTAB 0x06b8->0x2105 ; "REMOTE_FILE_F" 1daa 06c3 | | .STRTAB 0x06c3->0x210b ; "OPTIONS_F" 1dab 06ca | | .STRTAB 0x06ca->0x2110 ; "RECURSIVE_F" 1dac 06d3 | | .STRTAB 0x06d3->0x2115 ; "NO_ERROR" 1dad 06d9 | | .STRTAB 0x06d9->0x2119 ; "CONNECTION_ERROR" 1dae 06e7 | | .STRTAB 0x06e7->0x2121 ; "INTERNAL_ERROR" 1daf 06f3 | | .STRTAB 0x06f3->0x2128 ; "ACCESS_ERROR" 1db0 06fd | | .STRTAB 0x06fd->0x212e ; "POLICY_ERROR" 1db1 0707 | | .STRTAB 0x0707->0x2134 ; "STATUS_ERROR" 1db2 0711 | | .STRTAB 0x0711->0x213a ; "DEVICE_ERROR" 1db3 071b | | .STRTAB 0x071b->0x2140 ; "NAME_ERROR" 1db4 0723 | # | .STRTAB 0x0723->0x2145 ; "USE_ERROR" 1db5 072a | * | .STRTAB 0x072a->0x214a ; "UNSUPPORTED" 1db6 0733 | 3 | .STRTAB 0x0733->0x214f ; "SENTINEL" 1db7 0739 | 9 | .STRTAB 0x0739->0x2153 ; "ERROR" 1db8 073c | < | .STRTAB 0x073c->0x2156 ; "FROM_REMOTE_FILE_F" 1db9 074c | L | .STRTAB 0x074c->0x215f ; "TO_REMOTE_FILE_F" 1dba 075a | Z | .STRTAB 0x075a->0x2167 ; "OPTIONS_F" 1dbb 0761 | a | .STRTAB 0x0761->0x216b ; "NO_ERROR" 1dbc 0767 | g | .STRTAB 0x0767->0x216f ; "CONNECTION_ERROR" 1dbd 0775 | u | .STRTAB 0x0775->0x2177 ; "INTERNAL_ERROR" 1dbe 0781 | | .STRTAB 0x0781->0x217e ; "POLICY_ERROR" 1dbf 078b | | .STRTAB 0x078b->0x2184 ; "DEVICE_ERROR" 1dc0 0795 | | .STRTAB 0x0795->0x218a ; "NAME_ERROR" 1dc1 079d | | .STRTAB 0x079d->0x218f ; "USE_ERROR" 1dc2 07a4 | | .STRTAB 0x07a4->0x2194 ; "UNSUPPORTED" 1dc3 07ad | | .STRTAB 0x07ad->0x2199 ; "SENTINEL" 1dc4 07b3 | | .STRTAB 0x07b3->0x219d ; "ERROR" 1dc5 07b6 | | .STRTAB 0x07b6->0x21a0 ; "OBJECT_F" 1dc6 07bc | | .STRTAB 0x07bc->0x21a4 ; "OPTIONS_F" 1dc7 07c3 | | .STRTAB 0x07c3->0x21a8 ; "NO_ERROR" 1dc8 07c9 | | .STRTAB 0x07c9->0x21ac ; "CONNECTION_ERROR" 1dc9 07d7 | | .STRTAB 0x07d7->0x21b4 ; "INTERNAL_ERROR" 1dca 07e3 | | .STRTAB 0x07e3->0x21bb ; "POLICY_ERROR" 1dcb 07ed | | .STRTAB 0x07ed->0x21c1 ; "STATUS_ERROR" 1dcc 07f7 | | .STRTAB 0x07f7->0x21c7 ; "USE_ERROR" 1dcd 07fe | | .STRTAB 0x07fe->0x21cc ; "DEVICE_ERROR" 1dce 0808 | | .STRTAB 0x0808->0x21d2 ; "NAME_ERROR" 1dcf 0810 | | .STRTAB 0x0810->0x21d7 ; "UNSUPPORTED" 1dd0 0819 | | .STRTAB 0x0819->0x21dc ; "SENTINEL" 1dd1 081f | | .STRTAB 0x081f->0x21e0 ; "ERROR" 1dd2 0822 | " | .STRTAB 0x0822->0x21e3 ; "INPUT_F" 1dd3 0827 | ' | .STRTAB 0x0827->0x21e6 ; "STD_OUTPUT_F" 1dd4 0831 | 1 | .STRTAB 0x0831->0x21ec ; "STD_ERROR_F" 1dd5 083a | : | .STRTAB 0x083a->0x21f2 ; "ABORT_F" 1dd6 083f | ? | .STRTAB 0x083f->0x21f5 ; "CONTINUE_F" 1dd7 0847 | G | .STRTAB 0x0847->0x21fa ; "TIMEOUT_F" 1dd8 084e | N | .STRTAB 0x084e->0x21ff ; "NO_ERROR" 1dd9 0854 | T | .STRTAB 0x0854->0x2203 ; "CONNECTION_ERROR" 1dda 0862 | b | .STRTAB 0x0862->0x220b ; "INTERNAL_ERROR" 1ddb 086e | n | .STRTAB 0x086e->0x2212 ; "ACCESS_ERROR" 1ddc 0878 | x | .STRTAB 0x0878->0x2218 ; "RESOURCE_LIMIT" 1ddd 0884 | | .STRTAB 0x0884->0x221f ; "STATUS_ERROR" 1dde 088e | | .STRTAB 0x088e->0x2225 ; "DEVICE_ERROR" 1ddf 0898 | | .STRTAB 0x0898->0x222b ; "USE_ERROR" 1de0 089f | | .STRTAB 0x089f->0x222f ; "COMMAND_ERROR" 1de1 08aa | | .STRTAB 0x08aa->0x2236 ; "COMMAND_TERMINATED" 1de2 08ba | | .STRTAB 0x08ba->0x223f ; "COMMAND_TIMED_OUT" 1de3 08c9 | | .STRTAB 0x08c9->0x2247 ; "UNSUPPORTED" 1de4 08d2 | | .STRTAB 0x08d2->0x224d ; "SENTINEL" 1de5 08d8 | | .STRTAB 0x08d8->0x2251 ; "ERROR" 1de6 08db | | .STRTAB 0x08db->0x2253 ; "SIGNAL_F" 1de7 08e1 | | .STRTAB 0x08e1->0x2257 ; "NO_ERROR" 1de8 08e7 | | .STRTAB 0x08e7->0x225b ; "CONNECTION_ERROR" 1de9 08f5 | | .STRTAB 0x08f5->0x2263 ; "INTERNAL_ERROR" 1dea 0901 | | .STRTAB 0x0901->0x226a ; "COMMAND_TERMINATED" 1deb 0911 | | .STRTAB 0x0911->0x2273 ; "UNSUPPORTED" 1dec 091a | | .STRTAB 0x091a->0x2279 ; "SENTINEL" 1ded 0920 | | .STRTAB 0x0920->0x227d ; "ERROR" 1dee 0923 | # | .STRTAB 0x0923->0x227f ; "TO_REMOTE_FILE_F" 1def 0931 | 1 | .STRTAB 0x0931->0x2287 ; "CONTENT_F" 1df0 0938 | 8 | .STRTAB 0x0938->0x228c ; "APPEND_F" 1df1 093e | > | .STRTAB 0x093e->0x2290 ; "OPTIONS_F" 1df2 0945 | E | .STRTAB 0x0945->0x2294 ; "NO_ERROR" 1df3 094b | K | .STRTAB 0x094b->0x2298 ; "CONNECTION_ERROR" 1df4 0959 | Y | .STRTAB 0x0959->0x22a0 ; "INTERNAL_ERROR" 1df5 0965 | e | .STRTAB 0x0965->0x22a7 ; "POLICY_ERROR" 1df6 096f | o | .STRTAB 0x096f->0x22ad ; "RESOURCE_LIMIT" 1df7 097b | { | .STRTAB 0x097b->0x22b4 ; "STATUS_ERROR" 1df8 0985 | | .STRTAB 0x0985->0x22ba ; "USE_ERROR" 1df9 098c | | .STRTAB 0x098c->0x22bf ; "DEVICE_ERROR" 1dfa 0996 | | .STRTAB 0x0996->0x22c5 ; "NAME_ERROR" 1dfb 099e | | .STRTAB 0x099e->0x22ca ; "UNSUPPORTED" 1dfc 09a7 | | .STRTAB 0x09a7->0x22cf ; "SENTINEL" 1dfd 09ad | | .STRTAB 0x09ad->0x22d3 ; "ERROR" 1dfe 09b0 | | .STRTAB 0x09b0->0x22d6 ; "FROM_REMOTE_FILE_F" 1dff 09c0 | | .STRTAB 0x09c0->0x22df ; "CONTENT_F" 1e00 09c7 | | .STRTAB 0x09c7->0x22e3 ; "OPTIONS_F" 1e01 09ce | | .STRTAB 0x09ce->0x22e8 ; "NO_ERROR" 1e02 09d4 | | .STRTAB 0x09d4->0x22ec ; "CONNECTION_ERROR" 1e03 09e2 | | .STRTAB 0x09e2->0x22f4 ; "INTERNAL_ERROR" 1e04 09ee | | .STRTAB 0x09ee->0x22fb ; "POLICY_ERROR" 1e05 09f8 | | .STRTAB 0x09f8->0x2301 ; "RESOURCE_LIMIT" 1e06 0a04 | | .STRTAB 0x0a04->0x2308 ; "STATUS_ERROR" 1e07 0a0e | | .STRTAB 0x0a0e->0x230e ; "DEVICE_ERROR" 1e08 0a18 | | .STRTAB 0x0a18->0x2314 ; "USE_ERROR" 1e09 0a1f | | .STRTAB 0x0a1f->0x2318 ; "NAME_ERROR" 1e0a 0a27 | ' | .STRTAB 0x0a27->0x231d ; "UNSUPPORTED" 1e0b 0a30 | 0 | .STRTAB 0x0a30->0x2323 ; "SENTINEL" 1e0c 0a36 | 6 | .STRTAB 0x0a36->0x2327 ; "ERROR" 1e0d 0a39 | 9 | .STRTAB 0x0a39->0x2329 ; "FROM_REMOTE_DIRECTORY_F" 1e0e 0a4e | N | .STRTAB 0x0a4e->0x2335 ; "LEVEL_F" 1e0f 0a53 | S | .STRTAB 0x0a53->0x2338 ; "A_LINE_F" 1e10 0a59 | Y | .STRTAB 0x0a59->0x233c ; "NO_ERROR" 1e11 0a5f | _ | .STRTAB 0x0a5f->0x2340 ; "CONNECTION_ERROR" 1e12 0a6d | m | .STRTAB 0x0a6d->0x2348 ; "INTERNAL_ERROR" 1e13 0a79 | y | .STRTAB 0x0a79->0x234f ; "UNSUPPORTED" 1e14 0a82 | | .STRTAB 0x0a82->0x2355 ; "localhost" 1e15 0a89 | | .STRTAB 0x0a89->0x2359 ; "Unable to login as user \x22" 1e16 0aa0 | | .STRTAB 0x0aa0->0x2366 ; "\x22 on host \x22" 1e17 0aa9 | | .STRTAB 0x0aa9->0x236b ; "Not Connected" 1e18 0ab4 | | .STRTAB 0x0ab4->0x2372 ; "Null Connection" 1e19 0ac1 | | .STRTAB 0x0ac1->0x2379 ; "/" 1e1a 0ac0 | | .STRTAB 0x0ac0->0x237a ; "???" 1e1b 0ac1 | | .STRTAB 0x0ac1->0x237b ; "Ibm_Os2" 1e1c 0ac6 | | .STRTAB 0x0ac6->0x237f ; "Unknown" 1e1d 0acb | | .STRTAB 0x0acb->0x2382 ; "Sun" 1e1e 0acc | | .STRTAB 0x0acc->0x2384 ; "Apollo" 1e1f 0ad0 | | .STRTAB 0x0ad0->0x2387 ; "Ibm" 1e20 0ad1 | | .STRTAB 0x0ad1->0x2388 ; "Hp" 1e21 0ad1 | | .STRTAB 0x0ad1->0x2389 ; "Vax" 1e22 0ad2 | | .STRTAB 0x0ad2->0x238b ; "Vax_Ultrix" 1e23 0ada | | .STRTAB 0x0ada->0x2390 ; "create" 1e24 0ade | | .STRTAB 0x0ade->0x2393 ; "put" 1e25 0adf | | .STRTAB 0x0adf->0x2394 ; "Unable to open " 1e26 0aec | | .STRTAB 0x0aec->0x239c ; " for input" 1e27 0af4 | | .STRTAB 0x0af4->0x23a1 ; "get" 1e28 0af5 | | .STRTAB 0x0af5->0x23a2 ; " for output" 1e29 0afe | | .STRTAB 0x0afe->0x23a8 ; "last_update" 1e2a 0b07 | | .STRTAB 0x0b07->0x23ad ; "file_existence" 1e2b 0b13 | | .STRTAB 0x0b13->0x23b4 ; "copy" 1e2c 0b15 | | .STRTAB 0x0b15->0x23b6 ; "delete" 1e2d 0b19 | | .STRTAB 0x0b19->0x23b9 ; "move" 1e2e 0b1b | | .STRTAB 0x0b1b->0x23bb ; "expunge" 1e2f 0b20 | | .STRTAB 0x0b20->0x23bf ; "ls" 1e30 0b20 | | .STRTAB 0x0b20->0x23c0 ; "input_to_shell" 1e31 0b2c | , | .STRTAB 0x0b2c->0x23c7 ; "signal_to_shell" 1e32 0b39 | 9 | .STRTAB 0x0b39->0x23ce ; "Remote operation " 1e33 0b48 | H | .STRTAB 0x0b48->0x23d7 ; " is not supported by " 1e34 0b5b | [ | .STRTAB 0x0b5b->0x23e1 ; " server version " 1e35 0b69 | i | .STRTAB 0x0b69->0x23e9 ; " on host \x22" 1e36 0b71 | q | .STRTAB 0x0b71->0x23ee ; "\x22. This operation requires at least server version " 1e37 0ba3 | | .STRTAB 0x0ba3->0x2408 ; "Not Implemented on R1000" 1e38 0bb9 | | .STREND 0x0bb9->0x2414 1e39 4e4f 5f45 |NO_E| .STRTAB_STRINGS 2415 0000 0000 | | .XXX[0x3] 2417 0000 | | 2418 ; -------------------------------------------------------------------------------------- 2418 ; Debug Table 2418 ; -------------------------------------------------------------------------------------- 2418 0004 000e | | .DEBUG4 0x0004,0x000e,0xf462,0x0000,0x0001,0x0000 241e d21d 1c00 | | .XXX[0x4] 2420 0000 a000 | | 2422 0000 0000 | | .BLANK 0000[0x4] 2426 7f76 8580 | v | .XXX[0x21] 2428 0000 4000 | @ | 242a 7f7a 8580 | z | 242c 0000 4000 | @ | 242e 0203 0802 | | 2430 2091 8000 | | 2432 0000 0000 | | 2434 1fde a160 | `| 2436 0000 1008 | | 2438 1978 5d39 | x]9| 243a 5ce0 0000 |\ | 243c 5000 0000 |P | 243e 9000 05f7 | | 2440 a000 0000 | | 2442 2000 0000 | | 2444 4001 80c6 |@ | 2446 0088 | | 2447 0000 0000 | | .BLANK 0000[0x7] 244e 0206 5e17 | ^ | .XXX[0x25] 2450 4e57 3800 |NW8 | 2452 0014 0000 | | 2454 0024 0001 | $ | 2456 7de8 0000 |} | 2458 0008 0000 | | 245a 0010 0000 | | 245c 0018 0002 | | 245e 8c20 036b | k| 2460 09f0 0000 | | 2462 0000 036b | k| 2464 55ec 01b5 |U | 2466 9a44 0000 | D | 2468 8579 2036 | y 6| 246a 5568 6000 |Uh` | 246c 0000 0150 | P| 246e 1b2a b430 | * 0| 2470 0000 0000 | | 2472 a000 | | 2473 0000 0000 | | .BLANK 0000[0x4] 2477 9d14 8580 | | .XXX[0x9] 2479 0000 4000 | @ | 247b 9d16 8580 | | 247d 0000 4000 | @ | 247f 2600 |& | 2480 0000 0000 | | .BLANK 0000[0x5] 2485 2745 a160 |'E `| .XXX[0x9] 2487 0000 1008 | | 2489 0d95 5a18 | Z | 248b 0000 0000 | | 248d 5000 |P | 248e 0000 0000 | | .BLANK 0000[0x5] 2493 2000 0000 | | .XXX[0x4] 2495 0009 8000 | | 2497 0000 0000 | | .BLANK 0000[0x8] 249f 0206 5e2f | ^/| .XXX[0x5] 24a1 6227 6000 |b'` | 24a3 0014 | | 24a4 0000 0000 | | .BLANK 0000[0x5] 24a9 0008 0000 | | .XXX[0x9] 24ab 0000 0000 | | 24ad 0018 0002 | | 24af aba8 036b | k| 24b1 3270 |2p | 24b2 0000 0000 | | .BLANK 0000[0x4] 24b6 01b5 ae84 | | .XXX[0xd] 24b8 0000 2384 | # | 24ba 1fcf 23f4 | # | 24bc 0000 0000 | | 24be 0410 2b8d | + | 24c0 1d1b 4760 | G`| 24c2 0002 | | 24c3 0000 0000 | | .BLANK 0000[0x5] 24c8 3ec2 8500 |> | .XXX[0x9] 24ca 0000 4000 | @ | 24cc 3ec4 8500 |> | 24ce 0000 4000 | @ | 24d0 2600 |& | 24d1 0000 0000 | | .BLANK 0000[0x5] 24d6 0fb1 2140 | !@| .XXX[0x8] 24d8 0000 1007 | | 24da f3c8 fd00 | | 24dc 0000 0001 | | 24de 0000 0000 | | .BLANK 0000[0x6] 24e4 2000 0000 | | .XXX[0x4] 24e6 0009 8000 | | 24e8 0000 0000 | | .BLANK 0000[0x8] 24f0 0205 7195 | q | .XXX[0x5] 24f2 3449 b000 |4I | 24f4 0040 | @ | 24f5 0000 0000 | | .BLANK 0000[0x5] 24fa 0008 0000 | | .XXX[0x9] 24fc 0000 0000 | | 24fe 0018 0002 | | 2500 2d90 036b |- k| 2502 5af0 |Z | 2503 0000 0000 | | .BLANK 0000[0x4] 2507 01b5 c2c4 | | .XXX[0xd] 2509 0000 3114 | 1 | 250b 2057 1a0d | W | 250d 248c 0000 |$ | 250f 0410 2b8d | + | 2511 069a 4800 | H | 2513 0002 | | 2514 0000 0000 | | .BLANK 0000[0x5] 2519 540a 8500 |T | .XXX[0xa] 251b 0000 4000 | @ | 251d 540e 8500 |T | 251f 0000 4000 | @ | 2521 0600 9800 | | 2523 0000 0000 | | .BLANK 0000[0x4] 2527 1503 a140 | @| .XXX[0x11] 2529 0000 1008 | | 252b 15c6 834d | M| 252d 2400 0001 |$ | 252f 0000 0000 | | 2531 9000 0576 | v| 2533 c000 0000 | | 2535 2000 0000 | | 2537 4000 |@ | 2538 0000 0000 | | .BLANK 0000[0xa] 2542 041c 2000 | | .XXX[0x2] 2544 0000 0000 | | .BLANK 0000[0x7] 254b 0008 0000 | | .XXX[0x1b] 254d 0000 0000 | | 254f 0018 0002 | | 2551 4d18 036b |M k| 2553 8370 036b | p k| 2555 7e68 036b |~h k| 2557 cf68 01b5 | h | 2559 d704 0000 | | 255b b00d 2065 | e| 255d e174 de32 | t 2| 255f 8000 0150 | P| 2561 32f0 d21d |2 | 2563 1500 0000 | | 2565 a000 | | 2566 0000 0000 | | .BLANK 0000[0xc] 2572 0203 0802 | | .XXX[0x19] 2574 2091 8000 | | 2576 0000 0000 | | 2578 1fde 2160 | !`| 257a 0000 1008 | | 257c 1978 5d37 | x]7| 257e f9c0 0000 | | 2580 5000 0000 |P | 2582 9000 05f7 | | 2584 a000 0000 | | 2586 2000 0000 | | 2588 2001 80c6 | | 258a 0088 | | 258b 0000 0000 | | .BLANK 0000[0x7] 2592 0206 5e17 | ^ | .XXX[0x25] 2594 4dfe 7000 |M p | 2596 0014 0000 | | 2598 0024 0001 | $ | 259a 7de8 0000 |} | 259c 0008 0000 | | 259e 0008 0000 | | 25a0 0018 0002 | | 25a2 8c28 036b | ( k| 25a4 abf0 0000 | | 25a6 0000 036b | k| 25a8 f7ec 01b5 | | 25aa eb44 0000 | D | 25ac c37f a034 | 4| 25ae 5cc1 0000 |\ | 25b0 0000 0150 | P| 25b2 1a2e 6080 | .` | 25b4 0000 0000 | | 25b6 a000 | | 25b7 0000 0000 | | .BLANK 0000[0x4] 25bb 9d28 8580 | ( | .XXX[0x9] 25bd 0000 4000 | @ | 25bf 9d2c 8580 | , | 25c1 0000 4000 | @ | 25c3 2600 |& | 25c4 0000 0000 | | .BLANK 0000[0x5] 25c9 274b 2160 |'K!`| .XXX[0x12] 25cb 0000 1008 | | 25cd 0d17 3040 | 0@| 25cf 0000 0000 | | 25d1 5000 0000 |P | 25d3 9000 0650 | P| 25d5 e000 0000 | | 25d7 2000 0000 | | 25d9 4009 8000 |@ | 25db 0000 0000 | | .BLANK 0000[0x8] 25e3 0206 5e2f | ^/| .XXX[0x13] 25e5 6721 0c00 |g! | 25e7 0014 0000 | | 25e9 0024 0001 | $ | 25eb 9438 0000 | 8 | 25ed 0008 0000 | | 25ef 0010 0000 | | 25f1 0018 0002 | | 25f3 abb0 036b | k| 25f5 d470 | p | 25f6 0000 0000 | | .BLANK 0000[0x4] 25fa 01b5 ff84 | | .XXX[0x6] 25fc 0000 0518 | | 25fe 1eeb 195f | _|