|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0bd0 | | .CONST 0x0bd0 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0104 | | .CONST 0x0104 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 004a | J | .CONST 0x004a ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 190d | | Execute Package,Field_Reference,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 000f 190e | | Execute Package,Field_Reference,Field_Number 0xe 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0013 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0015 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0017 e001 | | Load 0x0,0x1 0018 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0019 0129 | ) | Execute Any,Make_Visible 001a e001 | | Load 0x0,0x1 001b 1913 | | Execute Package,Field_Reference,Field_Number 0x13 001c 0129 | ) | Execute Any,Make_Visible 001d e001 | | Load 0x0,0x1 001e 1914 | | Execute Package,Field_Reference,Field_Number 0x14 001f 0129 | ) | Execute Any,Make_Visible 0020 e001 | | Load 0x0,0x1 0021 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0022 0129 | ) | Execute Any,Make_Visible 0023 e001 | | Load 0x0,0x1 0024 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0025 0129 | ) | Execute Any,Make_Visible 0026 e001 | | Load 0x0,0x1 0027 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0028 0129 | ) | Execute Any,Make_Visible 0029 e001 | | Load 0x0,0x1 002a 1918 | | Execute Package,Field_Reference,Field_Number 0x18 002b 0129 | ) | Execute Any,Make_Visible 002c e001 | | Load 0x0,0x1 002d 1919 | | Execute Package,Field_Reference,Field_Number 0x19 002e 0129 | ) | Execute Any,Make_Visible 002f e001 | | Load 0x0,0x1 0030 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0031 0129 | ) | Execute Any,Make_Visible 0032 e001 | | Load 0x0,0x1 0033 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0034 0129 | ) | Execute Any,Make_Visible 0035 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0037 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0039 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 003b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 003d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 003f e001 | | Load 0x0,0x1 0040 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 0041 0129 | ) | Execute Any,Make_Visible 0042 e001 | | Load 0x0,0x1 0043 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 0044 0129 | ) | Execute Any,Make_Visible 0045 4800 |H | Short_Literal 0x0 0046 4802 |H | Short_Literal 0x2 0047 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 0049 03fe | | Declare_Type Discrete,Defined,Visible 004a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 004c e001 | | Load 0x0,0x1 004d 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 004e 0129 | ) | Execute Any,Make_Visible 004f 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0051 e001 | | Load 0x0,0x1 0052 1929 | ) | Execute Package,Field_Reference,Field_Number 0x29 0053 0129 | ) | Execute Any,Make_Visible 0054 e001 | | Load 0x0,0x1 0055 192a | * | Execute Package,Field_Reference,Field_Number 0x2a 0056 0129 | ) | Execute Any,Make_Visible 0057 e001 | | Load 0x0,0x1 0058 192b | + | Execute Package,Field_Reference,Field_Number 0x2b 0059 0129 | ) | Execute Any,Make_Visible 005a e001 | | Load 0x0,0x1 005b 192c | , | Execute Package,Field_Reference,Field_Number 0x2c 005c 0129 | ) | Execute Any,Make_Visible 005d e001 | | Load 0x0,0x1 005e 192d | - | Execute Package,Field_Reference,Field_Number 0x2d 005f 0129 | ) | Execute Any,Make_Visible 0060 e001 | | Load 0x0,0x1 0061 192e | . | Execute Package,Field_Reference,Field_Number 0x2e 0062 0129 | ) | Execute Any,Make_Visible 0063 e001 | | Load 0x0,0x1 0064 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 0065 0129 | ) | Execute Any,Make_Visible 0066 e001 | | Load 0x0,0x1 0067 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30 0068 0129 | ) | Execute Any,Make_Visible 0069 e001 | | Load 0x0,0x1 006a 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 006b 0129 | ) | Execute Any,Make_Visible 006c e001 | | Load 0x0,0x1 006d 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 006e 0129 | ) | Execute Any,Make_Visible 006f e001 | | Load 0x0,0x1 0070 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33 0071 0129 | ) | Execute Any,Make_Visible 0072 e001 | | Load 0x0,0x1 0073 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0074 0129 | ) | Execute Any,Make_Visible 0075 e001 | | Load 0x0,0x1 0076 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 0077 0129 | ) | Execute Any,Make_Visible 0078 e001 | | Load 0x0,0x1 0079 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 007a 0129 | ) | Execute Any,Make_Visible 007b e001 | | Load 0x0,0x1 007c 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38 007d 0129 | ) | Execute Any,Make_Visible 007e e001 | | Load 0x0,0x1 007f 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 0080 0129 | ) | Execute Any,Make_Visible 0081 e001 | | Load 0x0,0x1 0082 193a | : | Execute Package,Field_Reference,Field_Number 0x3a 0083 0129 | ) | Execute Any,Make_Visible 0084 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0085 0129 | ) | Execute Any,Make_Visible 0086 00bf | | Action Accept_Activation 0087 0092 0aa2 | | Action Push_String_Extended,0xaa2 ; "Rcf_Cmvc." 0089 0092 0aa3 | | Action Push_String_Extended,0xaa3 ; "<error>" 008b 4800 |H | Short_Literal 0x0 008c e002 | | Load 0x0,0x2 008d 02a0 | | Declare_Subprogram Null_Subprogram 008e 038e | | Declare_Type Package,Defined 008f 0387 | | Declare_Variable Package 0090 4800 |H | Short_Literal 0x0 0091 e003 | | Load 0x0,0x3 0092 02a0 | | Declare_Subprogram Null_Subprogram 0093 038e | | Declare_Type Package,Defined 0094 0387 | | Declare_Variable Package 0095 4800 |H | Short_Literal 0x0 0096 e004 | | Load 0x0,0x4 0097 02a0 | | Declare_Subprogram Null_Subprogram 0098 038e | | Declare_Type Package,Defined 0099 0387 | | Declare_Variable Package 009a 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 009c 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call 009e 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 00a0 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 00a2 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 00a4 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 00a6 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 00a8 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 00aa 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 00ac 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00bd 00c7 | | Action Elaborate_Subprogram 00be 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 00c0 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00c1 00c7 | | Action Elaborate_Subprogram 00c2 029d 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call 00c4 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 00c6 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 00c8 e005 | | Load 0x0,0x5 00c9 e006 | | Load 0x0,0x6 00ca e007 | | Load 0x0,0x7 00cb e008 | | Load 0x0,0x8 00cc e009 | | Load 0x0,0x9 00cd e00a | | Load 0x0,0xa 00ce e00b | | Load 0x0,0xb 00cf e00c | | Load 0x0,0xc 00d0 e00d | | Load 0x0,0xd 00d1 e00e | | Load 0x0,0xe 00d2 e001 | | Load 0x0,0x1 00d3 480b |H | Short_Literal 0xb 00d4 e23b | ; | Load 0x1,0x3b 00d5 020e | | Execute Module,Augment_Imports 00d6 e23b | ; | Load 0x1,0x3b 00d7 020f | | Execute Module,Activate 00d8 e006 | | Load 0x0,0x6 00d9 e005 | | Load 0x0,0x5 00da e008 | | Load 0x0,0x8 00db e001 | | Load 0x0,0x1 00dc e009 | | Load 0x0,0x9 00dd e007 | | Load 0x0,0x7 00de e00c | | Load 0x0,0xc 00df e00a | | Load 0x0,0xa 00e0 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 00e1 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 00e2 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 00e3 e00f | | Load 0x0,0xf 00e4 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00e5 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 00e6 e010 | | Load 0x0,0x10 00e7 e011 | | Load 0x0,0x11 00e8 e012 | | Load 0x0,0x12 00e9 e013 | | Load 0x0,0x13 00ea e014 | | Load 0x0,0x14 00eb e015 | | Load 0x0,0x15 00ec e00e | | Load 0x0,0xe 00ed e016 | | Load 0x0,0x16 00ee 4816 |H | Short_Literal 0x16 00ef e23c | < | Load 0x1,0x3c 00f0 020e | | Execute Module,Augment_Imports 00f1 e23c | < | Load 0x1,0x3c 00f2 020f | | Execute Module,Activate 00f3 e006 | | Load 0x0,0x6 00f4 e005 | | Load 0x0,0x5 00f5 e008 | | Load 0x0,0x8 00f6 e009 | | Load 0x0,0x9 00f7 e00c | | Load 0x0,0xc 00f8 e017 | | Load 0x0,0x17 00f9 e007 | | Load 0x0,0x7 00fa e00a | | Load 0x0,0xa 00fb e001 | | Load 0x0,0x1 00fc e00f | | Load 0x0,0xf 00fd e013 | | Load 0x0,0x13 00fe e018 | | Load 0x0,0x18 00ff 480c |H | Short_Literal 0xc 0100 e23d | = | Load 0x1,0x3d 0101 020e | | Execute Module,Augment_Imports 0102 e23d | = | Load 0x1,0x3d 0103 020f | | Execute Module,Activate 0104 BODY_0008: 0104 00bc | | Action Signal_Activated 0105 00bb | | Action Signal_Completion 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e5f8 | | Load 0x2,-0x8 010c e5f9 | | Load 0x2,-0x7 010d e5fa | | Load 0x2,-0x6 010e e5fb | | Load 0x2,-0x5 010f e5fc | | Load 0x2,-0x4 0110 e5fd | | Load 0x2,-0x3 0111 e5fe | | Load 0x2,-0x2 0112 e5ff | | Load 0x2,-0x1 0113 e23b | ; | Load 0x1,0x3b 0114 180d | | Execute Package,Field_Execute,Field_Number 0xd 0115 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e5f9 | | Load 0x2,-0x7 011c e5fa | | Load 0x2,-0x6 011d e5fb | | Load 0x2,-0x5 011e e5fc | | Load 0x2,-0x4 011f e5fd | | Load 0x2,-0x3 0120 e5fe | | Load 0x2,-0x2 0121 e5ff | | Load 0x2,-0x1 0122 e23b | ; | Load 0x1,0x3b 0123 180e | | Execute Package,Field_Execute,Field_Number 0xe 0124 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e5f7 | | Load 0x2,-0x9 012c e5f8 | | Load 0x2,-0x8 012d e5f9 | | Load 0x2,-0x7 012e e5fa | | Load 0x2,-0x6 012f e5fb | | Load 0x2,-0x5 0130 e5fc | | Load 0x2,-0x4 0131 e5fd | | Load 0x2,-0x3 0132 e5fe | | Load 0x2,-0x2 0133 e5ff | | Load 0x2,-0x1 0134 e23b | ; | Load 0x1,0x3b 0135 180f | | Execute Package,Field_Execute,Field_Number 0xf 0136 450a |E | Exit_Suprogram New_Top_Offset 0xa 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 014e | N | .CONST 0x014e ; Address of begin 0139 01c2 | | .CONST 0x01c2 ; Address of exception handler 013a 0008 | | .CONST 0x0008 ; Number of locals 013b INIT_0138: 013b 0092 0aa4 | | Action Push_String_Extended,0xaa4 ; "Release" 013d e006 | | Load 0x0,0x6 013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0140 e005 | | Load 0x0,0x5 0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0142 02c7 | | Declare_Variable Any 0143 e5f4 | | Load 0x2,-0xc 0144 e005 | | Load 0x0,0x5 0145 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0146 a404 | | Store_Unchecked 0x2,0x4 0147 00ea | | Load_Encached Null_String_Cache 0148 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call 014a 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call 014c 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 014e BODY_0138: 014e e404 | | Load 0x2,0x4 014f e239 | 9 | Load 0x1,0x39 0150 0092 0aa5 | | Action Push_String_Extended,0xaa5 ; "From_Working_View" 0152 e5ff | | Load 0x2,-0x1 0153 e008 | | Load 0x0,0x8 0154 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0155 01cc | | Execute Vector,Catenate 0156 0092 0aa6 | | Action Push_String_Extended,0xaa6 ; "Release_Name" 0158 01cc | | Execute Vector,Catenate 0159 e5fe | | Load 0x2,-0x2 015a e008 | | Load 0x0,0x8 015b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 015c 01cc | | Execute Vector,Catenate 015d 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Remote_Directory" 015f 01cc | | Execute Vector,Catenate 0160 e5fd | | Load 0x2,-0x3 0161 e008 | | Load 0x0,0x8 0162 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0163 01cc | | Execute Vector,Catenate 0164 0092 0aa8 | | Action Push_String_Extended,0xaa8 ; "Level =>" 0166 01cc | | Execute Vector,Catenate 0167 e5fc | | Load 0x2,-0x4 0168 00e0 | | Load_Encached Standard_Cache 0169 1818 | | Execute Package,Field_Execute,Field_Number 0x18 016a 01cc | | Execute Vector,Catenate 016b 0092 0aa9 | | Action Push_String_Extended,0xaa9 ; ", Views_To_Import" 016d 01cc | | Execute Vector,Catenate 016e e5fb | | Load 0x2,-0x5 016f e008 | | Load 0x0,0x8 0170 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0171 01cc | | Execute Vector,Catenate 0172 0092 0aaa | | Action Push_String_Extended,0xaaa ; "Create_Configuration_Only => " 0174 01cc | | Execute Vector,Catenate 0175 e5fa | | Load 0x2,-0x6 0176 00e1 | | Load_Encached Boolean_Cache 0177 011c | | Execute Any,Convert_Unchecked 0178 1c01 | | Execute_Immediate Run_Utility,0x1 0179 01cc | | Execute Vector,Catenate 017a 0092 0aab | | Action Push_String_Extended,0xaab ; ", Compile_The_View => " 017c 01cc | | Execute Vector,Catenate 017d e5f9 | | Load 0x2,-0x7 017e 00e1 | | Load_Encached Boolean_Cache 017f 011c | | Execute Any,Convert_Unchecked 0180 1c01 | | Execute_Immediate Run_Utility,0x1 0181 01cc | | Execute Vector,Catenate 0182 0092 0aac | | Action Push_String_Extended,0xaac ; ", Goal => " 0184 01cc | | Execute Vector,Catenate 0185 e5f8 | | Load 0x2,-0x8 0186 e009 | | Load 0x0,0x9 0187 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0188 011c | | Execute Any,Convert_Unchecked 0189 1c01 | | Execute_Immediate Run_Utility,0x1 018a 01cc | | Execute Vector,Catenate 018b 0092 0aad | | Action Push_String_Extended,0xaad ; ", Comments" 018d 01cc | | Execute Vector,Catenate 018e e5f7 | | Load 0x2,-0x9 018f e008 | | Load 0x0,0x8 0190 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0191 01cc | | Execute Vector,Catenate 0192 0092 0aae | | Action Push_String_Extended,0xaae ; "Work_Order" 0194 01cc | | Execute Vector,Catenate 0195 e5f6 | | Load 0x2,-0xa 0196 e008 | | Load 0x0,0x8 0197 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0198 01cc | | Execute Vector,Catenate 0199 0092 0aaf | | Action Push_String_Extended,0xaaf ; "Volume =>" 019b 01cc | | Execute Vector,Catenate 019c e5f5 | | Load 0x2,-0xb 019d 00e0 | | Load_Encached Standard_Cache 019e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 019f 01cc | | Execute Vector,Catenate 01a0 0092 0ab0 | | Action Push_String_Extended,0xab0 ; ", Response" 01a2 01cc | | Execute Vector,Catenate 01a3 e5f4 | | Load 0x2,-0xc 01a4 e008 | | Load 0x0,0x8 01a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a6 01cc | | Execute Vector,Catenate 01a7 e402 | | Load 0x2,0x2 01a8 e008 | | Load 0x0,0x8 01a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01aa 8406 | | Call 0x2,0x6 01ab e403 | | Load 0x2,0x3 01ac e404 | | Load 0x2,0x4 01ad e5f5 | | Load 0x2,-0xb 01ae e5f6 | | Load 0x2,-0xa 01af e5f7 | | Load 0x2,-0x9 01b0 e5f8 | | Load 0x2,-0x8 01b1 e5f9 | | Load 0x2,-0x7 01b2 e5fa | | Load 0x2,-0x6 01b3 e5fb | | Load 0x2,-0x5 01b4 e5fc | | Load 0x2,-0x4 01b5 e405 | | Load 0x2,0x5 01b6 e5fd | | Load 0x2,-0x3 01b7 e5fe | | Load 0x2,-0x2 01b8 e5ff | | Load 0x2,-0x1 01b9 8408 | | Call 0x2,0x8 01ba c403 | | Store 0x2,0x3 01bb e404 | | Load 0x2,0x4 01bc e239 | 9 | Load 0x1,0x39 01bd e402 | | Load 0x2,0x2 01be e403 | | Load 0x2,0x3 01bf e008 | | Load 0x0,0x8 01c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c1 450d |E | Exit_Suprogram New_Top_Offset 0xd 01c2 TRAP_0138: 01c2 e006 | | Load 0x0,0x6 01c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c4 010f | | Execute Exception,Equal 01c5 6807 |h | Jump_Zero 0x1cd 01c6 e404 | | Load 0x2,0x4 01c7 e239 | 9 | Load 0x1,0x39 01c8 e402 | | Load 0x2,0x2 01c9 e403 | | Load 0x2,0x3 01ca e008 | | Load 0x0,0x8 01cb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01cc 450d |E | Exit_Suprogram New_Top_Offset 0xd 01cd 4884 |H | Short_Literal 0x84 01ce 010f | | Execute Exception,Equal 01cf 6807 |h | Jump_Zero 0x1d7 01d0 e404 | | Load 0x2,0x4 01d1 e239 | 9 | Load 0x1,0x39 01d2 e402 | | Load 0x2,0x2 01d3 e403 | | Load 0x2,0x3 01d4 e008 | | Load 0x0,0x8 01d5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01d6 450d |E | Exit_Suprogram New_Top_Offset 0xd 01d7 e404 | | Load 0x2,0x4 01d8 e239 | 9 | Load 0x1,0x39 01d9 e402 | | Load 0x2,0x2 01da e403 | | Load 0x2,0x3 01db e008 | | Load 0x0,0x8 01dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01dd 450d |E | Exit_Suprogram New_Top_Offset 0xd 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e5f1 | | Load 0x2,-0xf 01e4 e5f2 | | Load 0x2,-0xe 01e5 e5f3 | | Load 0x2,-0xd 01e6 e5f4 | | Load 0x2,-0xc 01e7 e5f5 | | Load 0x2,-0xb 01e8 e5f6 | | Load 0x2,-0xa 01e9 e5f7 | | Load 0x2,-0x9 01ea e5f8 | | Load 0x2,-0x8 01eb e5f9 | | Load 0x2,-0x7 01ec e5fa | | Load 0x2,-0x6 01ed e5fb | | Load 0x2,-0x5 01ee e5fc | | Load 0x2,-0x4 01ef e5fd | | Load 0x2,-0x3 01f0 e5fe | | Load 0x2,-0x2 01f1 e5ff | | Load 0x2,-0x1 01f2 e23c | < | Load 0x1,0x3c 01f3 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f4 4510 |E | Exit_Suprogram New_Top_Offset 0x10 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e5f4 | | Load 0x2,-0xc 01fc e5f5 | | Load 0x2,-0xb 01fd e5f6 | | Load 0x2,-0xa 01fe e5f7 | | Load 0x2,-0x9 01ff e5f8 | | Load 0x2,-0x8 0200 e5f9 | | Load 0x2,-0x7 0201 e5fa | | Load 0x2,-0x6 0202 e5fb | | Load 0x2,-0x5 0203 e5fc | | Load 0x2,-0x4 0204 e5fd | | Load 0x2,-0x3 0205 e5fe | | Load 0x2,-0x2 0206 e5ff | | Load 0x2,-0x1 0207 e23c | < | Load 0x1,0x3c 0208 180f | | Execute Package,Field_Execute,Field_Number 0xf 0209 450d |E | Exit_Suprogram New_Top_Offset 0xd 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 e5f7 | | Load 0x2,-0x9 0214 e5f8 | | Load 0x2,-0x8 0215 e5f9 | | Load 0x2,-0x7 0216 e5fa | | Load 0x2,-0x6 0217 e5fb | | Load 0x2,-0x5 0218 e5fc | | Load 0x2,-0x4 0219 e5fd | | Load 0x2,-0x3 021a e5fe | | Load 0x2,-0x2 021b e5ff | | Load 0x2,-0x1 021c e23d | = | Load 0x1,0x3d 021d 180d | | Execute Package,Field_Execute,Field_Number 0xd 021e 450a |E | Exit_Suprogram New_Top_Offset 0xa 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5fb | | Load 0x2,-0x5 0224 e5fc | | Load 0x2,-0x4 0225 e5fd | | Load 0x2,-0x3 0226 e5fe | | Load 0x2,-0x2 0227 e5ff | | Load 0x2,-0x1 0228 e23d | = | Load 0x1,0x3d 0229 180e | | Execute Package,Field_Execute,Field_Number 0xe 022a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 022b 0000 0000 | | .BLANK 0000[0x5] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 4607 |F | Jump_Case 0x8 0234 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0235 7806 |x | Jump 0x23c ; case 0x1 0236 7809 |x | Jump 0x240 ; case 0x2 0237 780d |x | Jump 0x245 ; case 0x3 0238 7810 |x | Jump 0x249 ; case 0x4 0239 7811 |x | Jump 0x24b ; case 0x5 023a 7812 |x | Jump 0x24d ; case 0x6 023b 7815 |x | Jump 0x251 ; case 0x7 023c 00da | | Load_Top At_Offset_2 023d 0091 0a9f | | Action Push_String_Extended_Indexed,0xa9f ; "SPEC_LOAD_SUBSYSTEM" 023f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0240 00db | | Load_Top At_Offset_3 0241 00db | | Load_Top At_Offset_3 0242 00e0 | | Load_Encached Standard_Cache 0243 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0244 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0245 00da | | Load_Top At_Offset_2 0246 00e0 | | Load_Encached Standard_Cache 0247 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0248 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0249 00db | | Load_Top At_Offset_3 024a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024b 00db | | Load_Top At_Offset_3 024c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024d e223 | # | Load 0x1,0x23 024e 00dc | | Load_Top At_Offset_4 024f 0267 | g | Execute Discrete,Predecessor 0250 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0251 e223 | # | Load 0x1,0x23 0252 00dc | | Load_Top At_Offset_4 0253 0268 | h | Execute Discrete,Successor 0254 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e5f5 | | Load 0x2,-0xb 025c e5f6 | | Load 0x2,-0xa 025d e5f7 | | Load 0x2,-0x9 025e e5f8 | | Load 0x2,-0x8 025f e5f9 | | Load 0x2,-0x7 0260 e5fa | | Load 0x2,-0x6 0261 e5fb | | Load 0x2,-0x5 0262 e5fc | | Load 0x2,-0x4 0263 e5fd | | Load 0x2,-0x3 0264 e5fe | | Load 0x2,-0x2 0265 e5ff | | Load 0x2,-0x1 0266 e23c | < | Load 0x1,0x3c 0267 180d | | Execute Package,Field_Execute,Field_Number 0xd 0268 450c |E | Exit_Suprogram New_Top_Offset 0xc 0269 0000 0000 | | .BLANK 0000[0x7] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 e5f9 | | Load 0x2,-0x7 0274 e5fa | | Load 0x2,-0x6 0275 e5fb | | Load 0x2,-0x5 0276 e5fc | | Load 0x2,-0x4 0277 e5fd | | Load 0x2,-0x3 0278 e5fe | | Load 0x2,-0x2 0279 e5ff | | Load 0x2,-0x1 027a e23c | < | Load 0x1,0x3c 027b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 027c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 027d 0000 0000 | | .XXX[0x3] 027f 0000 | | 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 0284 e5fe | | Load 0x2,-0x2 0285 0092 0ab1 | | Action Push_String_Extended,0xab1 ; "Working" 0287 e00b | | Load 0x0,0xb 0288 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0289 6811 |h | Jump_Zero 0x29b 028a 482e |H. | Short_Literal 0x2e 028b 6024 |`$ | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x00004000} 028c e015 | | Load 0x0,0x15 028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028e e010 | | Load 0x0,0x10 028f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0290 e007 | | Load 0x0,0x7 0291 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0292 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0293 e5ff | | Load 0x2,-0x1 0294 e007 | | Load 0x0,0x7 0295 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0296 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0297 01cb | | Execute Vector,Append 0298 e5fe | | Load 0x2,-0x2 0299 01cc | | Execute Vector,Catenate 029a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029b 482e |H. | Short_Literal 0x2e 029c 6013 |` | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x00004000} 029d e015 | | Load 0x0,0x15 029e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029f e010 | | Load 0x0,0x10 02a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02a1 e007 | | Load 0x0,0x7 02a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a4 e5ff | | Load 0x2,-0x1 02a5 e007 | | Load 0x0,0x7 02a6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02a7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02a8 01cb | | Execute Vector,Append 02a9 e5fe | | Load 0x2,-0x2 02aa 01cc | | Execute Vector,Catenate 02ab 0092 0ab2 | | Action Push_String_Extended,0xab2 ; "_Working" 02ad 01cc | | Execute Vector,Catenate 02ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02b4 0000 0000 | | .BLANK 0000[0x4] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 4801 |H | Short_Literal 0x1 02bc e5fe | | Load 0x2,-0x2 02bd 0092 0ab1 | | Action Push_String_Extended,0xab1 ; "Working" 02bf e00b | | Load 0x0,0xb 02c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02c1 6814 |h | Jump_Zero 0x2d6 02c2 482e |H. | Short_Literal 0x2e 02c3 67ec |g | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x00004000} 02c4 e015 | | Load 0x0,0x15 02c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c6 e010 | | Load 0x0,0x10 02c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c8 e007 | | Load 0x0,0x7 02c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02cb e5ff | | Load 0x2,-0x1 02cc e007 | | Load 0x0,0x7 02cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ce 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02cf e007 | | Load 0x0,0x7 02d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02d2 01cb | | Execute Vector,Append 02d3 e5fe | | Load 0x2,-0x2 02d4 01cc | | Execute Vector,Catenate 02d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d6 482e |H. | Short_Literal 0x2e 02d7 67d8 |g | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x00004000} 02d8 e015 | | Load 0x0,0x15 02d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02da e010 | | Load 0x0,0x10 02db 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02dc e007 | | Load 0x0,0x7 02dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02de 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02df e5ff | | Load 0x2,-0x1 02e0 e007 | | Load 0x0,0x7 02e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02e3 e007 | | Load 0x0,0x7 02e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02e6 01cb | | Execute Vector,Append 02e7 e5fe | | Load 0x2,-0x2 02e8 01cc | | Execute Vector,Catenate 02e9 0092 0ab2 | | Action Push_String_Extended,0xab2 ; "_Working" 02eb 01cc | | Execute Vector,Catenate 02ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 030b | | .CONST 0x030b ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0005 | | .CONST 0x0005 ; Number of locals 02f3 INIT_02f0: 02f3 e5fd | | Load 0x2,-0x3 02f4 4801 |H | Short_Literal 0x1 02f5 e5ff | | Load 0x2,-0x1 02f6 e00a | | Load 0x0,0xa 02f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02f8 00d8 | | Load_Top At_Offset_0 02f9 e007 | | Load 0x0,0x7 02fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02fb 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02fc 00d9 | | Load_Top At_Offset_1 02fd e007 | | Load 0x0,0x7 02fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ff 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0300 00d8 | | Load_Top At_Offset_0 0301 01dd | | Execute Vector,First 0302 4801 |H | Short_Literal 0x1 0303 00da | | Load_Top At_Offset_2 0304 0092 0ab3 | | Action Push_String_Extended,0xab3 ; "_" 0306 e00b | | Load 0x0,0xb 0307 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0308 00da | | Load_Top At_Offset_2 0309 01cf | | Execute Vector,Slice_Read 030a 0007 | | Action Break_Optional 030b BODY_02f0: 030b 4801 |H | Short_Literal 0x1 030c e5fe | | Load 0x2,-0x2 030d 0092 0ab1 | | Action Push_String_Extended,0xab1 ; "Working" 030f e00b | | Load 0x0,0xb 0310 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0311 6808 |h | Jump_Zero 0x31a 0312 482e |H. | Short_Literal 0x2e 0313 00db | | Load_Top At_Offset_3 0314 01cb | | Execute Vector,Append 0315 00d9 | | Load_Top At_Offset_1 0316 01cc | | Execute Vector,Catenate 0317 e5fe | | Load 0x2,-0x2 0318 01cc | | Execute Vector,Catenate 0319 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 031a 482e |H. | Short_Literal 0x2e 031b 00db | | Load_Top At_Offset_3 031c 01cb | | Execute Vector,Append 031d 00d9 | | Load_Top At_Offset_1 031e 01cc | | Execute Vector,Catenate 031f e5fe | | Load 0x2,-0x2 0320 01cc | | Execute Vector,Catenate 0321 0092 0ab2 | | Action Push_String_Extended,0xab2 ; "_Working" 0323 01cc | | Execute Vector,Catenate 0324 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032f | / | .CONST 0x032f ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0003 | | .CONST 0x0003 ; Number of locals 032b INIT_0328: 032b 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call 032d 029f 074b | K| Declare_Subprogram INIT_0748,For_Call 032f BODY_0328: 032f e5fc | | Load 0x2,-0x4 0330 7002 |p | Jump_Nonzero 0x333 0331 8402 | | Call 0x2,0x2 0332 7801 |x | Jump 0x334 0333 8403 | | Call 0x2,0x3 0334 0831 | 1 | Execute_Immediate Raise,0x31 0335 0000 0000 | | .XXX[0x3] 0337 0000 | | 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0343 | C | .CONST 0x0343 ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0002 | | .CONST 0x0002 ; Number of locals 033b INIT_0338: 033b 00db | | Load_Top At_Offset_3 033c e5fe | | Load 0x2,-0x2 033d e5ff | | Load 0x2,-0x1 033e e00a | | Load 0x0,0xa 033f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0340 e5ff | | Load 0x2,-0x1 0341 e019 | | Load 0x0,0x19 0342 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0343 BODY_0338: 0343 00d8 | | Load_Top At_Offset_0 0344 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0345 7003 |p | Jump_Nonzero 0x349 0346 00d8 | | Load_Top At_Offset_0 0347 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0348 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0349 e5fe | | Load 0x2,-0x2 034a 4801 |H | Short_Literal 0x1 034b 4802 |H | Short_Literal 0x2 034c e00f | | Load 0x0,0xf 034d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 034e 0334 | 4 | Declare_Variable Array,With_Constraint 034f e5ff | | Load 0x2,-0x1 0350 e00f | | Load 0x0,0xf 0351 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0352 e00f | | Load 0x0,0xf 0353 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0354 0119 | | Execute Any,Check_In_Formal_Type 0355 4801 |H | Short_Literal 0x1 0356 00da | | Load_Top At_Offset_2 0357 01d6 | | Execute Vector,Field_Write 0358 00da | | Load_Top At_Offset_2 0359 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 035a e006 | | Load 0x0,0x6 035b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 035c e00f | | Load 0x0,0xf 035d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035e 0119 | | Execute Any,Check_In_Formal_Type 035f 4802 |H | Short_Literal 0x2 0360 00da | | Load_Top At_Offset_2 0361 01d6 | | Execute Vector,Field_Write 0362 6005 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x00008809} 0363 e006 | | Load 0x0,0x6 0364 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0365 00ea | | Load_Encached Null_String_Cache 0366 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0367 0000 | | .XXX[0x1] 0368 0000 0000 | | .LITERAL {0x00000000, 0x00008809} 036c 0000 0000 | | .BLANK 0000[0x4] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 e014 | | Load 0x0,0x14 0375 180e | | Execute Package,Field_Execute,Field_Number 0xe 0376 6843 |hC | Jump_Zero 0x3ba 0377 00db | | Load_Top At_Offset_3 0378 682c |h, | Jump_Zero 0x3a5 0379 4801 |H | Short_Literal 0x1 037a 4801 |H | Short_Literal 0x1 037b 4800 |H | Short_Literal 0x0 037c 4801 |H | Short_Literal 0x1 037d e5fd | | Load 0x2,-0x3 037e e00a | | Load 0x0,0xa 037f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0380 e005 | | Load 0x0,0x5 0381 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0382 4800 |H | Short_Literal 0x0 0383 0092 0ab4 | | Action Push_String_Extended,0xab4 ; "<ALL_WORLDS>" 0385 4802 |H | Short_Literal 0x2 0386 e5ff | | Load 0x2,-0x1 0387 e00a | | Load 0x0,0xa 0388 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0389 e009 | | Load 0x0,0x9 038a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038b 00da | | Load_Top At_Offset_2 038c e014 | | Load 0x0,0x14 038d 180e | | Execute Package,Field_Execute,Field_Number 0xe 038e 6815 |h | Jump_Zero 0x3a4 038f e5fd | | Load 0x2,-0x3 0390 4801 |H | Short_Literal 0x1 0391 4801 |H | Short_Literal 0x1 0392 e00f | | Load 0x0,0xf 0393 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0394 0334 | 4 | Declare_Variable Array,With_Constraint 0395 e5ff | | Load 0x2,-0x1 0396 e00a | | Load 0x0,0xa 0397 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0398 e00f | | Load 0x0,0xf 0399 1b0e | | Execute Package,Field_Read,Field_Number 0xe 039a 0119 | | Execute Any,Check_In_Formal_Type 039b 4801 |H | Short_Literal 0x1 039c 00da | | Load_Top At_Offset_2 039d 01d6 | | Execute Vector,Field_Write 039e 601d |` | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00008805} 039f e006 | | Load 0x0,0x6 03a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03a1 e006 | | Load 0x0,0x6 03a2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03a3 0257 | W | Execute Discrete,Raise 03a4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03a5 e5fd | | Load 0x2,-0x3 03a6 4801 |H | Short_Literal 0x1 03a7 4801 |H | Short_Literal 0x1 03a8 e00f | | Load 0x0,0xf 03a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03aa 0334 | 4 | Declare_Variable Array,With_Constraint 03ab e5ff | | Load 0x2,-0x1 03ac e00a | | Load 0x0,0xa 03ad 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03ae e00f | | Load 0x0,0xf 03af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03b0 0119 | | Execute Any,Check_In_Formal_Type 03b1 4801 |H | Short_Literal 0x1 03b2 00da | | Load_Top At_Offset_2 03b3 01d6 | | Execute Vector,Field_Write 03b4 6007 |` | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00008805} 03b5 e006 | | Load 0x0,0x6 03b6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03b7 e006 | | Load 0x0,0x6 03b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03b9 0257 | W | Execute Discrete,Raise 03ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03bb 0000 | | .XXX[0x1] 03bc 0000 0000 | | .LITERAL {0x00000000, 0x00008805} 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 e014 | | Load 0x0,0x14 03c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c6 00db | | Load_Top At_Offset_3 03c7 e014 | | Load 0x0,0x14 03c8 180d | | Execute Package,Field_Execute,Field_Number 0xd 03c9 0278 | x | Execute Discrete,Or 03ca 682b |h+ | Jump_Zero 0x3f6 03cb 4801 |H | Short_Literal 0x1 03cc 4801 |H | Short_Literal 0x1 03cd 4800 |H | Short_Literal 0x0 03ce 4801 |H | Short_Literal 0x1 03cf e5fe | | Load 0x2,-0x2 03d0 e00a | | Load 0x0,0xa 03d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03d2 e005 | | Load 0x0,0x5 03d3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 03d4 4800 |H | Short_Literal 0x0 03d5 0092 0ab4 | | Action Push_String_Extended,0xab4 ; "<ALL_WORLDS>" 03d7 4801 |H | Short_Literal 0x1 03d8 e5ff | | Load 0x2,-0x1 03d9 e00a | | Load 0x0,0xa 03da 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03db e009 | | Load 0x0,0x9 03dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03dd 00da | | Load_Top At_Offset_2 03de e014 | | Load 0x0,0x14 03df 180d | | Execute Package,Field_Execute,Field_Number 0xd 03e0 6815 |h | Jump_Zero 0x3f6 03e1 00db | | Load_Top At_Offset_3 03e2 4801 |H | Short_Literal 0x1 03e3 4801 |H | Short_Literal 0x1 03e4 e00f | | Load 0x0,0xf 03e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e6 0334 | 4 | Declare_Variable Array,With_Constraint 03e7 e5ff | | Load 0x2,-0x1 03e8 e00a | | Load 0x0,0xa 03e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03ea e00f | | Load 0x0,0xf 03eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ec 0119 | | Execute Any,Check_In_Formal_Type 03ed 4801 |H | Short_Literal 0x1 03ee 00da | | Load_Top At_Offset_2 03ef 01d6 | | Execute Vector,Field_Write 03f0 67cb |g | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00008805} 03f1 e006 | | Load 0x0,0x6 03f2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03f3 e006 | | Load 0x0,0x6 03f4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03f5 0257 | W | Execute Discrete,Raise 03f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03f7 0000 | | .XXX[0x1] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0403 | | .CONST 0x0403 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb 00db | | Load_Top At_Offset_3 03fc e5fe | | Load 0x2,-0x2 03fd e5ff | | Load 0x2,-0x1 03fe e00a | | Load 0x0,0xa 03ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0400 e5ff | | Load 0x2,-0x1 0401 e019 | | Load 0x0,0x19 0402 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0403 BODY_03f8: 0403 00d8 | | Load_Top At_Offset_0 0404 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0405 7003 |p | Jump_Nonzero 0x409 0406 00d8 | | Load_Top At_Offset_0 0407 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0408 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0409 e5fe | | Load 0x2,-0x2 040a 4801 |H | Short_Literal 0x1 040b 4802 |H | Short_Literal 0x2 040c e00f | | Load 0x0,0xf 040d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040e 0334 | 4 | Declare_Variable Array,With_Constraint 040f e5ff | | Load 0x2,-0x1 0410 e00f | | Load 0x0,0xf 0411 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0412 e00f | | Load 0x0,0xf 0413 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0414 0119 | | Execute Any,Check_In_Formal_Type 0415 4801 |H | Short_Literal 0x1 0416 00da | | Load_Top At_Offset_2 0417 01d6 | | Execute Vector,Field_Write 0418 00da | | Load_Top At_Offset_2 0419 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 041a e006 | | Load 0x0,0x6 041b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 041c e00f | | Load 0x0,0xf 041d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041e 0119 | | Execute Any,Check_In_Formal_Type 041f 4802 |H | Short_Literal 0x2 0420 00da | | Load_Top At_Offset_2 0421 01d6 | | Execute Vector,Field_Write 0422 6005 |` | Indirect_Literal Discrete,0x428,{0x00000000, 0x00008807} 0423 e006 | | Load 0x0,0x6 0424 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0425 00ea | | Load_Encached Null_String_Cache 0426 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0427 0000 | | .XXX[0x1] 0428 0000 0000 | | .LITERAL {0x00000000, 0x00008807} 042c 0000 0000 | | .BLANK 0000[0x4] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 043b | ; | .CONST 0x043b ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0002 | | .CONST 0x0002 ; Number of locals 0433 INIT_0430: 0433 00db | | Load_Top At_Offset_3 0434 e5fe | | Load 0x2,-0x2 0435 e5ff | | Load 0x2,-0x1 0436 e00a | | Load 0x0,0xa 0437 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0438 e5ff | | Load 0x2,-0x1 0439 e019 | | Load 0x0,0x19 043a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 043b BODY_0430: 043b 00d8 | | Load_Top At_Offset_0 043c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 043d 7003 |p | Jump_Nonzero 0x441 043e 00d8 | | Load_Top At_Offset_0 043f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0440 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0441 e5fe | | Load 0x2,-0x2 0442 4801 |H | Short_Literal 0x1 0443 4802 |H | Short_Literal 0x2 0444 e00f | | Load 0x0,0xf 0445 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0446 0334 | 4 | Declare_Variable Array,With_Constraint 0447 e5ff | | Load 0x2,-0x1 0448 e00f | | Load 0x0,0xf 0449 181a | | Execute Package,Field_Execute,Field_Number 0x1a 044a e00f | | Load 0x0,0xf 044b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 044c 0119 | | Execute Any,Check_In_Formal_Type 044d 4801 |H | Short_Literal 0x1 044e 00da | | Load_Top At_Offset_2 044f 01d6 | | Execute Vector,Field_Write 0450 00da | | Load_Top At_Offset_2 0451 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0452 e006 | | Load 0x0,0x6 0453 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0454 e00f | | Load 0x0,0xf 0455 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0456 0119 | | Execute Any,Check_In_Formal_Type 0457 4802 |H | Short_Literal 0x2 0458 00da | | Load_Top At_Offset_2 0459 01d6 | | Execute Vector,Field_Write 045a 6005 |` | Indirect_Literal Discrete,0x460,{0x00000000, 0x00008808} 045b e006 | | Load 0x0,0x6 045c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 045d 00ea | | Load_Encached Null_String_Cache 045e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 045f 0000 | | .XXX[0x1] 0460 0000 0000 | | .LITERAL {0x00000000, 0x00008808} 0464 0000 0000 | | .BLANK 0000[0x4] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 047a | z | .CONST 0x047a ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0005 | | .CONST 0x0005 ; Number of locals 046b INIT_0468: 046b 00e1 | | Load_Encached Boolean_Cache 046c 4820 |H | Short_Literal 0x20 046d e5fd | | Load 0x2,-0x3 046e e00b | | Load 0x0,0xb 046f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0470 01db | | Execute Vector,Length 0471 0f00 | | Execute_Immediate Equal,0x0 0472 00e1 | | Load_Encached Boolean_Cache 0473 03f1 | | Declare_Variable Discrete,With_Value 0474 e5fa | | Load 0x2,-0x6 0475 e009 | | Load 0x0,0x9 0476 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0477 03f1 | | Declare_Variable Discrete,With_Value 0478 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call 047a BODY_0468: 047a e5f8 | | Load 0x2,-0x8 047b e5ff | | Load 0x2,-0x1 047c e00c | | Load 0x0,0xc 047d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 047e e5f8 | | Load 0x2,-0x8 047f e5ff | | Load 0x2,-0x1 0480 e00c | | Load 0x0,0xc 0481 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0482 e5fc | | Load 0x2,-0x4 0483 e5fb | | Load 0x2,-0x5 0484 e5fd | | Load 0x2,-0x3 0485 e5fe | | Load 0x2,-0x2 0486 e5ff | | Load 0x2,-0x1 0487 e00a | | Load 0x0,0xa 0488 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0489 e013 | | Load 0x0,0x13 048a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 048b a402 | | Store_Unchecked 0x2,0x2 048c 8405 | | Call 0x2,0x5 048d e5f8 | | Load 0x2,-0x8 048e 4801 |H | Short_Literal 0x1 048f 4801 |H | Short_Literal 0x1 0490 e00f | | Load 0x0,0xf 0491 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0492 0334 | 4 | Declare_Variable Array,With_Constraint 0493 e5ff | | Load 0x2,-0x1 0494 e00f | | Load 0x0,0xf 0495 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0496 e00f | | Load 0x0,0xf 0497 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0498 0119 | | Execute Any,Check_In_Formal_Type 0499 4801 |H | Short_Literal 0x1 049a 00da | | Load_Top At_Offset_2 049b 01d6 | | Execute Vector,Field_Write 049c 607b |`{ | Indirect_Literal Discrete,0x518,{0x00000000, 0x00008826} 049d e006 | | Load 0x0,0x6 049e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 049f 00db | | Load_Top At_Offset_3 04a0 680f |h | Jump_Zero 0x4b0 04a1 00da | | Load_Top At_Offset_2 04a2 6803 |h | Jump_Zero 0x4a6 04a3 4800 |H | Short_Literal 0x0 04a4 a402 | | Store_Unchecked 0x2,0x2 04a5 780a |x | Jump 0x4b0 04a6 e5fc | | Load 0x2,-0x4 04a7 e5fb | | Load 0x2,-0x5 04a8 e5fd | | Load 0x2,-0x3 04a9 e5fe | | Load 0x2,-0x2 04aa e5ff | | Load 0x2,-0x1 04ab e00a | | Load 0x0,0xa 04ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04ad e013 | | Load 0x0,0x13 04ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04af a402 | | Store_Unchecked 0x2,0x2 04b0 e5f8 | | Load 0x2,-0x8 04b1 e005 | | Load 0x0,0x5 04b2 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 04b3 e5ff | | Load 0x2,-0x1 04b4 e007 | | Load 0x0,0x7 04b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04b7 e017 | | Load 0x0,0x17 04b8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 04b9 00da | | Load_Top At_Offset_2 04ba 6819 |h | Jump_Zero 0x4d4 04bb 00d9 | | Load_Top At_Offset_1 04bc 0f03 | | Execute_Immediate Equal,0x3 04bd 6816 |h | Jump_Zero 0x4d4 04be e5f8 | | Load 0x2,-0x8 04bf 4801 |H | Short_Literal 0x1 04c0 4801 |H | Short_Literal 0x1 04c1 e00f | | Load 0x0,0xf 04c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c3 0334 | 4 | Declare_Variable Array,With_Constraint 04c4 0092 0ab5 | | Action Push_String_Extended,0xab5 ; "null remote directory" 04c6 e00f | | Load 0x0,0xf 04c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04c8 e00f | | Load 0x0,0xf 04c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04ca 0119 | | Execute Any,Check_In_Formal_Type 04cb 4801 |H | Short_Literal 0x1 04cc 00da | | Load_Top At_Offset_2 04cd 01d6 | | Execute Vector,Field_Write 04ce 6045 |`E | Indirect_Literal Discrete,0x514,{0x00000000, 0x0000881e} 04cf e006 | | Load 0x0,0x6 04d0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04d1 4802 |H | Short_Literal 0x2 04d2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 04d3 781a |x | Jump 0x4ee 04d4 00db | | Load_Top At_Offset_3 04d5 7018 |p | Jump_Nonzero 0x4ee 04d6 00d9 | | Load_Top At_Offset_1 04d7 0f03 | | Execute_Immediate Equal,0x3 04d8 6815 |h | Jump_Zero 0x4ee 04d9 e5f8 | | Load 0x2,-0x8 04da 4801 |H | Short_Literal 0x1 04db 4801 |H | Short_Literal 0x1 04dc e00f | | Load 0x0,0xf 04dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04de 0334 | 4 | Declare_Variable Array,With_Constraint 04df 0092 0ab6 | | Action Push_String_Extended,0xab6 ; "error during postprocess command" 04e1 e00f | | Load 0x0,0xf 04e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e3 e00f | | Load 0x0,0xf 04e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04e5 0119 | | Execute Any,Check_In_Formal_Type 04e6 4801 |H | Short_Literal 0x1 04e7 00da | | Load_Top At_Offset_2 04e8 01d6 | | Execute Vector,Field_Write 04e9 602a |`* | Indirect_Literal Discrete,0x514,{0x00000000, 0x0000881e} 04ea e006 | | Load 0x0,0x6 04eb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04ec 4802 |H | Short_Literal 0x2 04ed 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 04ee 00d9 | | Load_Top At_Offset_1 04ef 0c02 | | Execute_Immediate Greater_Equal,0x2 04f0 6821 |h! | Jump_Zero 0x512 04f1 e5f8 | | Load 0x2,-0x8 04f2 4800 |H | Short_Literal 0x0 04f3 e5ff | | Load 0x2,-0x1 04f4 e00a | | Load 0x0,0xa 04f5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04f6 0092 0ab7 | | Action Push_String_Extended,0xab7 ; ".??'c(Ada)" 04f8 01cc | | Execute Vector,Catenate 04f9 e00a | | Load 0x0,0xa 04fa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04fb e007 | | Load 0x0,0x7 04fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04fe 7013 |p | Jump_Nonzero 0x512 04ff 4800 |H | Short_Literal 0x0 0500 4801 |H | Short_Literal 0x1 0501 4800 |H | Short_Literal 0x0 0502 4801 |H | Short_Literal 0x1 0503 e5f8 | | Load 0x2,-0x8 0504 e00a | | Load 0x0,0xa 0505 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0506 e005 | | Load 0x0,0x5 0507 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0508 4800 |H | Short_Literal 0x0 0509 0092 0ab8 | | Action Push_String_Extended,0xab8 ; "<WORLDS>" 050b e404 | | Load 0x2,0x4 050c 4803 |H | Short_Literal 0x3 050d e5ff | | Load 0x2,-0x1 050e e00a | | Load 0x0,0xa 050f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0510 e009 | | Load 0x0,0x9 0511 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0512 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0513 0000 | | .XXX[0x1] 0514 0000 0000 | | .LITERAL {0x00000000, 0x0000881e} 0518 0000 0000 | | .LITERAL {0x00000000, 0x00008826} 051c 0000 0000 | | .BLANK 0000[0x4] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0538 | 8 | .CONST 0x0538 ; Address of begin 0521 058c | | .CONST 0x058c ; Address of exception handler 0522 0007 | | .CONST 0x0007 ; Number of locals 0523 INIT_0520: 0523 0092 0ab9 | | Action Push_String_Extended,0xab9 ; "Initialize" 0525 e006 | | Load 0x0,0x6 0526 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0527 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0528 e005 | | Load 0x0,0x5 0529 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052a 02c7 | | Declare_Variable Any 052b e5fb | | Load 0x2,-0x5 052c e005 | | Load 0x0,0x5 052d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 052e a404 | | Store_Unchecked 0x2,0x4 052f 00ea | | Load_Encached Null_String_Cache 0530 e007 | | Load 0x0,0x7 0531 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0532 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0533 02c7 | | Declare_Variable Any 0534 00d8 | | Load_Top At_Offset_0 0535 1c00 | | Execute_Immediate Run_Utility,0x0 0536 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call 0538 BODY_0520: 0538 00db | | Load_Top At_Offset_3 0539 e239 | 9 | Load 0x1,0x39 053a 0092 0aba | | Action Push_String_Extended,0xaba ; "View" 053c e5ff | | Load 0x2,-0x1 053d e008 | | Load 0x0,0x8 053e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 053f 01cc | | Execute Vector,Catenate 0540 0092 0abb | | Action Push_String_Extended,0xabb ; "Remote_Machine" 0542 01cc | | Execute Vector,Catenate 0543 e5fe | | Load 0x2,-0x2 0544 e008 | | Load 0x0,0x8 0545 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0546 01cc | | Execute Vector,Catenate 0547 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Remote_Directory" 0549 01cc | | Execute Vector,Catenate 054a e5fd | | Load 0x2,-0x3 054b e008 | | Load 0x0,0x8 054c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 054d 01cc | | Execute Vector,Catenate 054e 0092 0abc | | Action Push_String_Extended,0xabc ; "Allow_Demotion => " 0550 01cc | | Execute Vector,Catenate 0551 e5fc | | Load 0x2,-0x4 0552 00e1 | | Load_Encached Boolean_Cache 0553 011c | | Execute Any,Convert_Unchecked 0554 1c01 | | Execute_Immediate Run_Utility,0x1 0555 01cc | | Execute Vector,Catenate 0556 0092 0ab0 | | Action Push_String_Extended,0xab0 ; ", Response" 0558 01cc | | Execute Vector,Catenate 0559 e5fb | | Load 0x2,-0x5 055a e008 | | Load 0x0,0x8 055b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 055c 01cc | | Execute Vector,Catenate 055d e402 | | Load 0x2,0x2 055e e008 | | Load 0x0,0x8 055f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0560 00db | | Load_Top At_Offset_3 0561 e00c | | Load 0x0,0xc 0562 180f | | Execute Package,Field_Execute,Field_Number 0xf 0563 00db | | Load_Top At_Offset_3 0564 0092 0aba | | Action Push_String_Extended,0xaba ; "View" 0566 e5ff | | Load 0x2,-0x1 0567 e00c | | Load 0x0,0xc 0568 180e | | Execute Package,Field_Execute,Field_Number 0xe 0569 00db | | Load_Top At_Offset_3 056a 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Remote_Directory" 056c 4800 |H | Short_Literal 0x0 056d e5fd | | Load 0x2,-0x3 056e e00c | | Load 0x0,0xc 056f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0570 00db | | Load_Top At_Offset_3 0571 4801 |H | Short_Literal 0x1 0572 e5ff | | Load 0x2,-0x1 0573 e00a | | Load 0x0,0xa 0574 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0575 c406 | | Store 0x2,0x6 0576 00cf | | Action Mark_Auxiliary 0577 7807 |x | Jump 0x57f 0578 8407 | | Call 0x2,0x7 0579 00da | | Load_Top At_Offset_2 057a e007 | | Load 0x0,0x7 057b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 057c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 057d c406 | | Store 0x2,0x6 057e 00c9 | | Action Pop_Auxiliary_Loop 057f 00da | | Load_Top At_Offset_2 0580 e007 | | Load 0x0,0x7 0581 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0582 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0583 6ff4 |o | Jump_Zero 0x578 0584 00ce | | Action Pop_Auxiliary 0585 00db | | Load_Top At_Offset_3 0586 e239 | 9 | Load 0x1,0x39 0587 e402 | | Load 0x2,0x2 0588 e403 | | Load 0x2,0x3 0589 e008 | | Load 0x0,0x8 058a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 058b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 058c TRAP_0520: 058c e006 | | Load 0x0,0x6 058d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 058e 010f | | Execute Exception,Equal 058f 6807 |h | Jump_Zero 0x597 0590 e404 | | Load 0x2,0x4 0591 e239 | 9 | Load 0x1,0x39 0592 e402 | | Load 0x2,0x2 0593 e403 | | Load 0x2,0x3 0594 e008 | | Load 0x0,0x8 0595 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0596 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0597 4884 |H | Short_Literal 0x84 0598 010f | | Execute Exception,Equal 0599 6807 |h | Jump_Zero 0x5a1 059a e404 | | Load 0x2,0x4 059b e239 | 9 | Load 0x1,0x39 059c e402 | | Load 0x2,0x2 059d e403 | | Load 0x2,0x3 059e e008 | | Load 0x0,0x8 059f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05a0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05a1 e404 | | Load 0x2,0x4 05a2 e239 | 9 | Load 0x1,0x39 05a3 e402 | | Load 0x2,0x2 05a4 e403 | | Load 0x2,0x3 05a5 e008 | | Load 0x0,0x8 05a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05a7 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05bf | | .CONST 0x05bf ; Address of begin 05a9 0606 | | .CONST 0x0606 ; Address of exception handler 05aa 0006 | | .CONST 0x0006 ; Number of locals 05ab INIT_05a8: 05ab 0092 0abd | | Action Push_String_Extended,0xabd ; "Set_Remote_Machine" 05ad e006 | | Load 0x0,0x6 05ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05b0 e005 | | Load 0x0,0x5 05b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b2 02c7 | | Declare_Variable Any 05b3 e5fc | | Load 0x2,-0x4 05b4 e005 | | Load 0x0,0x5 05b5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05b6 a404 | | Store_Unchecked 0x2,0x4 05b7 e007 | | Load 0x0,0x7 05b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05b9 1b18 | | Execute Package,Field_Read,Field_Number 0x18 05ba 02c7 | | Declare_Variable Any 05bb 00d8 | | Load_Top At_Offset_0 05bc 1c00 | | Execute_Immediate Run_Utility,0x0 05bd 029f 07f3 | | Declare_Subprogram INIT_07f0,For_Call 05bf BODY_05a8: 05bf 00da | | Load_Top At_Offset_2 05c0 e239 | 9 | Load 0x1,0x39 05c1 0092 0abb | | Action Push_String_Extended,0xabb ; "Remote_Machine" 05c3 e5ff | | Load 0x2,-0x1 05c4 e008 | | Load 0x0,0x8 05c5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05c6 01cc | | Execute Vector,Catenate 05c7 0092 0aba | | Action Push_String_Extended,0xaba ; "View" 05c9 01cc | | Execute Vector,Catenate 05ca e5fe | | Load 0x2,-0x2 05cb e008 | | Load 0x0,0x8 05cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05cd 01cc | | Execute Vector,Catenate 05ce 0092 0abc | | Action Push_String_Extended,0xabc ; "Allow_Demotion => " 05d0 01cc | | Execute Vector,Catenate 05d1 e5fd | | Load 0x2,-0x3 05d2 00e1 | | Load_Encached Boolean_Cache 05d3 011c | | Execute Any,Convert_Unchecked 05d4 1c01 | | Execute_Immediate Run_Utility,0x1 05d5 01cc | | Execute Vector,Catenate 05d6 0092 0ab0 | | Action Push_String_Extended,0xab0 ; ", Response" 05d8 01cc | | Execute Vector,Catenate 05d9 e5fc | | Load 0x2,-0x4 05da e008 | | Load 0x0,0x8 05db 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05dc 01cc | | Execute Vector,Catenate 05dd e402 | | Load 0x2,0x2 05de e008 | | Load 0x0,0x8 05df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05e0 00da | | Load_Top At_Offset_2 05e1 e00c | | Load 0x0,0xc 05e2 180f | | Execute Package,Field_Execute,Field_Number 0xf 05e3 00da | | Load_Top At_Offset_2 05e4 0092 0abb | | Action Push_String_Extended,0xabb ; "Remote_Machine" 05e6 4800 |H | Short_Literal 0x0 05e7 e5ff | | Load 0x2,-0x1 05e8 e00c | | Load 0x0,0xc 05e9 180d | | Execute Package,Field_Execute,Field_Number 0xd 05ea 00da | | Load_Top At_Offset_2 05eb 4801 |H | Short_Literal 0x1 05ec e5fe | | Load 0x2,-0x2 05ed e00a | | Load 0x0,0xa 05ee 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05ef c405 | | Store 0x2,0x5 05f0 00cf | | Action Mark_Auxiliary 05f1 7807 |x | Jump 0x5f9 05f2 8406 | | Call 0x2,0x6 05f3 00da | | Load_Top At_Offset_2 05f4 e007 | | Load 0x0,0x7 05f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05f6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05f7 c405 | | Store 0x2,0x5 05f8 00c9 | | Action Pop_Auxiliary_Loop 05f9 00da | | Load_Top At_Offset_2 05fa e007 | | Load 0x0,0x7 05fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05fd 6ff4 |o | Jump_Zero 0x5f2 05fe 00ce | | Action Pop_Auxiliary 05ff 00da | | Load_Top At_Offset_2 0600 e239 | 9 | Load 0x1,0x39 0601 e402 | | Load 0x2,0x2 0602 e403 | | Load 0x2,0x3 0603 e008 | | Load 0x0,0x8 0604 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0605 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0606 TRAP_05a8: 0606 e006 | | Load 0x0,0x6 0607 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0608 010f | | Execute Exception,Equal 0609 6807 |h | Jump_Zero 0x611 060a 00db | | Load_Top At_Offset_3 060b e239 | 9 | Load 0x1,0x39 060c e402 | | Load 0x2,0x2 060d e403 | | Load 0x2,0x3 060e e008 | | Load 0x0,0x8 060f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0610 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0611 4884 |H | Short_Literal 0x84 0612 010f | | Execute Exception,Equal 0613 6807 |h | Jump_Zero 0x61b 0614 00db | | Load_Top At_Offset_3 0615 e239 | 9 | Load 0x1,0x39 0616 e402 | | Load 0x2,0x2 0617 e403 | | Load 0x2,0x3 0618 e008 | | Load 0x0,0x8 0619 1815 | | Execute Package,Field_Execute,Field_Number 0x15 061a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 061b 00db | | Load_Top At_Offset_3 061c e239 | 9 | Load 0x1,0x39 061d e402 | | Load 0x2,0x2 061e e403 | | Load 0x2,0x3 061f e008 | | Load 0x0,0x8 0620 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0621 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0622 0000 0000 | | .BLANK 0000[0x6] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 063f | ? | .CONST 0x063f ; Address of begin 0629 0686 | | .CONST 0x0686 ; Address of exception handler 062a 0006 | | .CONST 0x0006 ; Number of locals 062b INIT_0628: 062b 0092 0abe | | Action Push_String_Extended,0xabe ; "Set_Remote_Directory" 062d e006 | | Load 0x0,0x6 062e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 062f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0630 e005 | | Load 0x0,0x5 0631 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0632 02c7 | | Declare_Variable Any 0633 e5fc | | Load 0x2,-0x4 0634 e005 | | Load 0x0,0x5 0635 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0636 a404 | | Store_Unchecked 0x2,0x4 0637 e007 | | Load 0x0,0x7 0638 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0639 1b18 | | Execute Package,Field_Read,Field_Number 0x18 063a 02c7 | | Declare_Variable Any 063b 00d8 | | Load_Top At_Offset_0 063c 1c00 | | Execute_Immediate Run_Utility,0x0 063d 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call 063f BODY_0628: 063f 00da | | Load_Top At_Offset_2 0640 e239 | 9 | Load 0x1,0x39 0641 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Remote_Directory" 0643 e5ff | | Load 0x2,-0x1 0644 e008 | | Load 0x0,0x8 0645 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0646 01cc | | Execute Vector,Catenate 0647 0092 0aba | | Action Push_String_Extended,0xaba ; "View" 0649 01cc | | Execute Vector,Catenate 064a e5fe | | Load 0x2,-0x2 064b e008 | | Load 0x0,0x8 064c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 064d 01cc | | Execute Vector,Catenate 064e 0092 0abc | | Action Push_String_Extended,0xabc ; "Allow_Demotion => " 0650 01cc | | Execute Vector,Catenate 0651 e5fd | | Load 0x2,-0x3 0652 00e1 | | Load_Encached Boolean_Cache 0653 011c | | Execute Any,Convert_Unchecked 0654 1c01 | | Execute_Immediate Run_Utility,0x1 0655 01cc | | Execute Vector,Catenate 0656 0092 0ab0 | | Action Push_String_Extended,0xab0 ; ", Response" 0658 01cc | | Execute Vector,Catenate 0659 e5fc | | Load 0x2,-0x4 065a e008 | | Load 0x0,0x8 065b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 065c 01cc | | Execute Vector,Catenate 065d e402 | | Load 0x2,0x2 065e e008 | | Load 0x0,0x8 065f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0660 00da | | Load_Top At_Offset_2 0661 e00c | | Load 0x0,0xc 0662 180f | | Execute Package,Field_Execute,Field_Number 0xf 0663 00da | | Load_Top At_Offset_2 0664 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Remote_Directory" 0666 4800 |H | Short_Literal 0x0 0667 e5ff | | Load 0x2,-0x1 0668 e00c | | Load 0x0,0xc 0669 180d | | Execute Package,Field_Execute,Field_Number 0xd 066a 00da | | Load_Top At_Offset_2 066b 4801 |H | Short_Literal 0x1 066c e5fe | | Load 0x2,-0x2 066d e00a | | Load 0x0,0xa 066e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 066f c405 | | Store 0x2,0x5 0670 00cf | | Action Mark_Auxiliary 0671 7807 |x | Jump 0x679 0672 8406 | | Call 0x2,0x6 0673 00da | | Load_Top At_Offset_2 0674 e007 | | Load 0x0,0x7 0675 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0676 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0677 c405 | | Store 0x2,0x5 0678 00c9 | | Action Pop_Auxiliary_Loop 0679 00da | | Load_Top At_Offset_2 067a e007 | | Load 0x0,0x7 067b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 067c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 067d 6ff4 |o | Jump_Zero 0x672 067e 00ce | | Action Pop_Auxiliary 067f 00da | | Load_Top At_Offset_2 0680 e239 | 9 | Load 0x1,0x39 0681 e402 | | Load 0x2,0x2 0682 e403 | | Load 0x2,0x3 0683 e008 | | Load 0x0,0x8 0684 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0685 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0686 TRAP_0628: 0686 e006 | | Load 0x0,0x6 0687 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0688 010f | | Execute Exception,Equal 0689 6807 |h | Jump_Zero 0x691 068a 00db | | Load_Top At_Offset_3 068b e239 | 9 | Load 0x1,0x39 068c e402 | | Load 0x2,0x2 068d e403 | | Load 0x2,0x3 068e e008 | | Load 0x0,0x8 068f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0690 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0691 4884 |H | Short_Literal 0x84 0692 010f | | Execute Exception,Equal 0693 6807 |h | Jump_Zero 0x69b 0694 00db | | Load_Top At_Offset_3 0695 e239 | 9 | Load 0x1,0x39 0696 e402 | | Load 0x2,0x2 0697 e403 | | Load 0x2,0x3 0698 e008 | | Load 0x0,0x8 0699 1815 | | Execute Package,Field_Execute,Field_Number 0x15 069a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 069b 00db | | Load_Top At_Offset_3 069c e239 | 9 | Load 0x1,0x39 069d e402 | | Load 0x2,0x2 069e e403 | | Load 0x2,0x3 069f e008 | | Load 0x0,0x8 06a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06a2 0000 0000 | | .BLANK 0000[0x6] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06ab | | .CONST 0x06ab ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0001 | | .CONST 0x0001 ; Number of locals 06ab BODY_06a8: 06ab INIT_06a8: 06ab e404 | | Load 0x2,0x4 06ac e00c | | Load 0x0,0xc 06ad 180f | | Execute Package,Field_Execute,Field_Number 0xf 06ae e404 | | Load 0x2,0x4 06af 00d8 | | Load_Top At_Offset_0 06b0 4801 |H | Short_Literal 0x1 06b1 e5ff | | Load 0x2,-0x1 06b2 e00a | | Load 0x0,0xa 06b3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06b4 e00c | | Load 0x0,0xc 06b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06b6 e404 | | Load 0x2,0x4 06b7 0092 0aa6 | | Action Push_String_Extended,0xaa6 ; "Release_Name" 06b9 e5fe | | Load 0x2,-0x2 06ba e00c | | Load 0x0,0xc 06bb 180e | | Execute Package,Field_Execute,Field_Number 0xe 06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06bd 0000 0000 | | .XXX[0x3] 06bf 0000 | | 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c8 | | .CONST 0x06c8 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0002 | | .CONST 0x0002 ; Number of locals 06c3 INIT_06c0: 06c3 e007 | | Load 0x0,0x7 06c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06c5 02c7 | | Declare_Variable Any 06c6 00d8 | | Load_Top At_Offset_0 06c7 1c00 | | Execute_Immediate Run_Utility,0x0 06c8 BODY_06c0: 06c8 e7fb | | Load 0x3,-0x5 06c9 4801 |H | Short_Literal 0x1 06ca e7ff | | Load 0x3,-0x1 06cb e00a | | Load 0x0,0xa 06cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06cd c602 | | Store 0x3,0x2 06ce 4801 |H | Short_Literal 0x1 06cf 0092 0abf | | Action Push_String_Extended,0xabf ; "<AUTO_GENERATE>" 06d1 e7fe | | Load 0x3,-0x2 06d2 e00b | | Load 0x0,0xb 06d3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06d4 6807 |h | Jump_Zero 0x6dc 06d5 e7fb | | Load 0x3,-0x5 06d6 e7fc | | Load 0x3,-0x4 06d7 e7fd | | Load 0x3,-0x3 06d8 00db | | Load_Top At_Offset_3 06d9 e00a | | Load 0x0,0xa 06da 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 06db 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 06dc 00d8 | | Load_Top At_Offset_0 06dd e007 | | Load 0x0,0x7 06de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06df 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 06e0 e007 | | Load 0x0,0x7 06e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06e2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06e3 0092 0ac0 | | Action Push_String_Extended,0xac0 ; "." 06e5 01cc | | Execute Vector,Catenate 06e6 e7fe | | Load 0x3,-0x2 06e7 01cc | | Execute Vector,Catenate 06e8 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 06e9 0000 0000 | | .BLANK 0000[0x7] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 0715 | | .CONST 0x0715 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 000b | | .CONST 0x000b ; Number of locals 06f3 INIT_06f0: 06f3 e009 | | Load 0x0,0x9 06f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06f5 e007 | | Load 0x0,0x7 06f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 06f8 02c7 | | Declare_Variable Any 06f9 e010 | | Load 0x0,0x10 06fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06fb e007 | | Load 0x0,0x7 06fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06fe a603 | | Store_Unchecked 0x3,0x3 06ff e7f3 | | Load 0x3,-0xd 0700 4800 |H | Short_Literal 0x0 0701 e7fb | | Load 0x3,-0x5 0702 e7fe | | Load 0x3,-0x2 0703 e7ff | | Load 0x3,-0x1 0704 8407 | | Call 0x2,0x7 0705 00d8 | | Load_Top At_Offset_0 0706 e007 | | Load 0x0,0x7 0707 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0708 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0709 e007 | | Load 0x0,0x7 070a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 070b 029f 096b | k| Declare_Subprogram INIT_0968,For_Call 070d 029f 0983 | | Declare_Subprogram INIT_0980,For_Call 070f 029f 099b | | Declare_Subprogram INIT_0998,For_Call 0711 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call 0713 029f 0a6b | k| Declare_Subprogram INIT_0a68,For_Call 0715 BODY_06f0: 0715 e7f8 | | Load 0x3,-0x8 0716 7003 |p | Jump_Nonzero 0x71a 0717 4801 |H | Short_Literal 0x1 0718 a602 | | Store_Unchecked 0x3,0x2 0719 780b |x | Jump 0x725 071a 4820 |H | Short_Literal 0x20 071b e7fd | | Load 0x3,-0x3 071c e00b | | Load 0x0,0xb 071d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 071e 01db | | Execute Vector,Length 071f 7003 |p | Jump_Nonzero 0x723 0720 4802 |H | Short_Literal 0x2 0721 a602 | | Store_Unchecked 0x3,0x2 0722 7802 |x | Jump 0x725 0723 e7f7 | | Load 0x3,-0x9 0724 a602 | | Store_Unchecked 0x3,0x2 0725 8609 | | Call 0x3,0x9 0726 4820 |H | Short_Literal 0x20 0727 e7fd | | Load 0x3,-0x3 0728 e00b | | Load 0x0,0xb 0729 181c | | Execute Package,Field_Execute,Field_Number 0x1c 072a 01db | | Execute Vector,Length 072b 6801 |h | Jump_Zero 0x72d 072c 860b | | Call 0x3,0xb 072d 450e |E | Exit_Suprogram New_Top_Offset 0xe 072e 0000 0000 | | .XXX[0x2] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0739 | 9 | .CONST 0x0739 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0002 | | .CONST 0x0002 ; Number of locals 0733 INIT_0730: 0733 e5fb | | Load 0x2,-0x5 0734 e5fd | | Load 0x2,-0x3 0735 e5fe | | Load 0x2,-0x2 0736 e5ff | | Load 0x2,-0x1 0737 e012 | | Load 0x0,0x12 0738 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0739 BODY_0730: 0739 00d8 | | Load_Top At_Offset_0 073a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 073b 6803 |h | Jump_Zero 0x73f 073c e006 | | Load 0x0,0x6 073d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 073e 0257 | W | Execute Discrete,Raise 073f 00d8 | | Load_Top At_Offset_0 0740 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0741 00cb | | Action Pop_Block_With_Result 0742 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0743 0000 0000 | | .BLANK 0000[0x5] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074f | O | .CONST 0x074f ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0002 | | .CONST 0x0002 ; Number of locals 074b INIT_0748: 074b e5fb | | Load 0x2,-0x5 074c e5fe | | Load 0x2,-0x2 074d e012 | | Load 0x0,0x12 074e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 074f BODY_0748: 074f 00d8 | | Load_Top At_Offset_0 0750 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0751 6803 |h | Jump_Zero 0x755 0752 e006 | | Load 0x0,0x6 0753 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0754 0257 | W | Execute Discrete,Raise 0755 00d8 | | Load_Top At_Offset_0 0756 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0757 00cb | | Action Pop_Block_With_Result 0758 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0759 0000 0000 | | .BLANK 0000[0x7] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0781 | | .CONST 0x0781 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 e5f8 | | Load 0x2,-0x8 0764 e5fd | | Load 0x2,-0x3 0765 e5ff | | Load 0x2,-0x1 0766 e00c | | Load 0x0,0xc 0767 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0768 e006 | | Load 0x0,0x6 0769 1b0d | | Execute Package,Field_Read,Field_Number 0xd 076a e5f8 | | Load 0x2,-0x8 076b 4801 |H | Short_Literal 0x1 076c 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 076e 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0770 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0772 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0774 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0776 e5f9 | | Load 0x2,-0x7 0777 e5fb | | Load 0x2,-0x5 0778 e5fc | | Load 0x2,-0x4 0779 00ea | | Load_Encached Null_String_Cache 077a e5fd | | Load 0x2,-0x3 077b e5fe | | Load 0x2,-0x2 077c e5ff | | Load 0x2,-0x1 077d e019 | | Load 0x0,0x19 077e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 077f c5f7 | | Store 0x2,-0x9 0780 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0781 TRAP_0760: 0781 e006 | | Load 0x0,0x6 0782 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0783 010f | | Execute Exception,Equal 0784 681b |h | Jump_Zero 0x7a0 0785 4801 |H | Short_Literal 0x1 0786 a403 | | Store_Unchecked 0x2,0x3 0787 e006 | | Load 0x0,0x6 0788 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0789 e5f8 | | Load 0x2,-0x8 078a 4801 |H | Short_Literal 0x1 078b 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 078d 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 078f 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0791 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0793 0092 0ac1 | | Action Push_String_Extended,0xac1 ; "<DEFAULT>" 0795 e5f9 | | Load 0x2,-0x7 0796 e5fb | | Load 0x2,-0x5 0797 e5fc | | Load 0x2,-0x4 0798 00ea | | Load_Encached Null_String_Cache 0799 00ea | | Load_Encached Null_String_Cache 079a e5fe | | Load 0x2,-0x2 079b e5ff | | Load 0x2,-0x1 079c e019 | | Load 0x0,0x19 079d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 079e c5f7 | | Store 0x2,-0x9 079f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07a0 0100 | | Execute Exception,Raise 07a1 0000 0000 | | .BLANK 0000[0x7] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07b8 | | .CONST 0x07b8 ; Address of begin 07a9 07e5 | | .CONST 0x07e5 ; Address of exception handler 07aa 0002 | | .CONST 0x0002 ; Number of locals 07ab INIT_07a8: 07ab e007 | | Load 0x0,0x7 07ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ad 02c7 | | Declare_Variable Any 07ae e404 | | Load 0x2,0x4 07af 4801 |H | Short_Literal 0x1 07b0 e404 | | Load 0x2,0x4 07b1 4801 |H | Short_Literal 0x1 07b2 e406 | | Load 0x2,0x6 07b3 e00a | | Load 0x0,0xa 07b4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 07b5 e00a | | Load 0x0,0xa 07b6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07b7 a602 | | Store_Unchecked 0x3,0x2 07b8 BODY_07a8: 07b8 e403 | | Load 0x2,0x3 07b9 e404 | | Load 0x2,0x4 07ba 4800 |H | Short_Literal 0x0 07bb 4801 |H | Short_Literal 0x1 07bc e404 | | Load 0x2,0x4 07bd e602 | | Load 0x3,0x2 07be e00a | | Load 0x0,0xa 07bf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 07c0 e405 | | Load 0x2,0x5 07c1 e5fd | | Load 0x2,-0x3 07c2 e5fe | | Load 0x2,-0x2 07c3 e602 | | Load 0x3,0x2 07c4 8247 | G | Call 0x1,0x47 07c5 c403 | | Store 0x2,0x3 07c6 e403 | | Load 0x2,0x3 07c7 701c |p | Jump_Nonzero 0x7e4 07c8 e5fc | | Load 0x2,-0x4 07c9 681a |h | Jump_Zero 0x7e4 07ca e404 | | Load 0x2,0x4 07cb 4800 |H | Short_Literal 0x0 07cc 00da | | Load_Top At_Offset_2 07cd e00a | | Load 0x0,0xa 07ce 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07cf 0092 0ab7 | | Action Push_String_Extended,0xab7 ; ".??'c(Ada)" 07d1 01cc | | Execute Vector,Catenate 07d2 e00a | | Load 0x0,0xa 07d3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07d4 e007 | | Load 0x0,0x7 07d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 07d7 700c |p | Jump_Nonzero 0x7e4 07d8 4801 |H | Short_Literal 0x1 07d9 4801 |H | Short_Literal 0x1 07da 4800 |H | Short_Literal 0x0 07db 4801 |H | Short_Literal 0x1 07dc e404 | | Load 0x2,0x4 07dd e00a | | Load 0x0,0xa 07de 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 07df 0092 0ab4 | | Action Push_String_Extended,0xab4 ; "<ALL_WORLDS>" 07e1 00da | | Load_Top At_Offset_2 07e2 e014 | | Load 0x0,0x14 07e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 07e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07e5 TRAP_07a8: 07e5 e006 | | Load 0x0,0x6 07e6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 07e7 010f | | Execute Exception,Equal 07e8 6801 |h | Jump_Zero 0x7ea 07e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07ea 0100 | | Execute Exception,Raise 07eb 0000 0000 | | .BLANK 0000[0x5] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 0800 | | .CONST 0x0800 ; Address of begin 07f1 0894 | | .CONST 0x0894 ; Address of exception handler 07f2 0002 | | .CONST 0x0002 ; Number of locals 07f3 INIT_07f0: 07f3 e007 | | Load 0x0,0x7 07f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07f5 02c7 | | Declare_Variable Any 07f6 e404 | | Load 0x2,0x4 07f7 4801 |H | Short_Literal 0x1 07f8 e404 | | Load 0x2,0x4 07f9 4801 |H | Short_Literal 0x1 07fa e405 | | Load 0x2,0x5 07fb e00a | | Load 0x0,0xa 07fc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 07fd e00a | | Load 0x0,0xa 07fe 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07ff a602 | | Store_Unchecked 0x3,0x2 0800 BODY_07f0: 0800 e404 | | Load 0x2,0x4 0801 00d9 | | Load_Top At_Offset_1 0802 e00c | | Load 0x0,0xc 0803 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0804 4800 |H | Short_Literal 0x0 0805 e5ff | | Load 0x2,-0x1 0806 e404 | | Load 0x2,0x4 0807 00db | | Load_Top At_Offset_3 0808 8246 | F | Call 0x1,0x46 0809 e00b | | Load 0x0,0xb 080a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 080b 681d |h | Jump_Zero 0x829 080c e404 | | Load 0x2,0x4 080d 4801 |H | Short_Literal 0x1 080e 4802 |H | Short_Literal 0x2 080f e00f | | Load 0x0,0xf 0810 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0811 0334 | 4 | Declare_Variable Array,With_Constraint 0812 0092 0abb | | Action Push_String_Extended,0xabb ; "Remote_Machine" 0814 e00f | | Load 0x0,0xf 0815 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0816 e00f | | Load 0x0,0xf 0817 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0818 0119 | | Execute Any,Check_In_Formal_Type 0819 4801 |H | Short_Literal 0x1 081a 00da | | Load_Top At_Offset_2 081b 01d6 | | Execute Vector,Field_Write 081c e5ff | | Load 0x2,-0x1 081d e00f | | Load 0x0,0xf 081e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 081f e00f | | Load 0x0,0xf 0820 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0821 0119 | | Execute Any,Check_In_Formal_Type 0822 4802 |H | Short_Literal 0x2 0823 00da | | Load_Top At_Offset_2 0824 01d6 | | Execute Vector,Field_Write 0825 6082 |` | Indirect_Literal Discrete,0x8a8,{0x00000000, 0x0000884f} 0826 e006 | | Load 0x0,0x6 0827 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0828 7849 |xI | Jump 0x872 0829 e006 | | Load 0x0,0x6 082a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082b e404 | | Load 0x2,0x4 082c 00d8 | | Load_Top At_Offset_0 082d 00db | | Load_Top At_Offset_3 082e e00a | | Load 0x0,0xa 082f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0830 e5ff | | Load 0x2,-0x1 0831 e602 | | Load 0x3,0x2 0832 e019 | | Load 0x0,0x19 0833 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0834 c403 | | Store 0x2,0x3 0835 e403 | | Load 0x2,0x3 0836 701c |p | Jump_Nonzero 0x853 0837 e404 | | Load 0x2,0x4 0838 4801 |H | Short_Literal 0x1 0839 4802 |H | Short_Literal 0x2 083a e00f | | Load 0x0,0xf 083b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 083c 0334 | 4 | Declare_Variable Array,With_Constraint 083d 00da | | Load_Top At_Offset_2 083e e00f | | Load 0x0,0xf 083f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0840 e00f | | Load 0x0,0xf 0841 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0842 0119 | | Execute Any,Check_In_Formal_Type 0843 4801 |H | Short_Literal 0x1 0844 00da | | Load_Top At_Offset_2 0845 01d6 | | Execute Vector,Field_Write 0846 e5ff | | Load 0x2,-0x1 0847 e00f | | Load 0x0,0xf 0848 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0849 e00f | | Load 0x0,0xf 084a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 084b 0119 | | Execute Any,Check_In_Formal_Type 084c 4802 |H | Short_Literal 0x2 084d 00da | | Load_Top At_Offset_2 084e 01d6 | | Execute Vector,Field_Write 084f 6054 |`T | Indirect_Literal Discrete,0x8a4,{0x00000000, 0x0000883b} 0850 e006 | | Load 0x0,0x6 0851 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0852 781f |x | Jump 0x872 0853 e404 | | Load 0x2,0x4 0854 4801 |H | Short_Literal 0x1 0855 4802 |H | Short_Literal 0x2 0856 e00f | | Load 0x0,0xf 0857 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0858 0334 | 4 | Declare_Variable Array,With_Constraint 0859 00da | | Load_Top At_Offset_2 085a e00f | | Load 0x0,0xf 085b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 085c e00f | | Load 0x0,0xf 085d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 085e 0119 | | Execute Any,Check_In_Formal_Type 085f 4801 |H | Short_Literal 0x1 0860 00da | | Load_Top At_Offset_2 0861 01d6 | | Execute Vector,Field_Write 0862 e403 | | Load 0x2,0x3 0863 e006 | | Load 0x0,0x6 0864 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0865 e00f | | Load 0x0,0xf 0866 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0867 e00f | | Load 0x0,0xf 0868 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0869 0119 | | Execute Any,Check_In_Formal_Type 086a 4802 |H | Short_Literal 0x2 086b 00da | | Load_Top At_Offset_2 086c 01d6 | | Execute Vector,Field_Write 086d 6032 |`2 | Indirect_Literal Discrete,0x8a0,{0x00000000, 0x0000881a} 086e e006 | | Load 0x0,0x6 086f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0870 00cc | | Action Pop_Block 0871 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0872 e5fd | | Load 0x2,-0x3 0873 680d |h | Jump_Zero 0x881 0874 4801 |H | Short_Literal 0x1 0875 4801 |H | Short_Literal 0x1 0876 4800 |H | Short_Literal 0x0 0877 4801 |H | Short_Literal 0x1 0878 e404 | | Load 0x2,0x4 0879 e00a | | Load 0x0,0xa 087a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 087b 0092 0ab4 | | Action Push_String_Extended,0xab4 ; "<ALL_WORLDS>" 087d 00da | | Load_Top At_Offset_2 087e e014 | | Load 0x0,0x14 087f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0880 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0881 e404 | | Load 0x2,0x4 0882 4801 |H | Short_Literal 0x1 0883 4801 |H | Short_Literal 0x1 0884 e00f | | Load 0x0,0xf 0885 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0886 0334 | 4 | Declare_Variable Array,With_Constraint 0887 00da | | Load_Top At_Offset_2 0888 e00f | | Load 0x0,0xf 0889 181a | | Execute Package,Field_Execute,Field_Number 0x1a 088a e00f | | Load 0x0,0xf 088b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 088c 0119 | | Execute Any,Check_In_Formal_Type 088d 4801 |H | Short_Literal 0x1 088e 00da | | Load_Top At_Offset_2 088f 01d6 | | Execute Vector,Field_Write 0890 600b |` | Indirect_Literal Discrete,0x89c,{0x00000000, 0x00008872} 0891 e006 | | Load 0x0,0x6 0892 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0893 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0894 TRAP_07f0: 0894 e006 | | Load 0x0,0x6 0895 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0896 010f | | Execute Exception,Equal 0897 6801 |h | Jump_Zero 0x899 0898 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0899 0100 | | Execute Exception,Raise 089a 0000 0000 | | .XXX[0x2] 089c 0000 0000 | | .LITERAL {0x00000000, 0x00008872} 08a0 0000 0000 | | .LITERAL {0x00000000, 0x0000881a} 08a4 0000 0000 | | .LITERAL {0x00000000, 0x0000883b} 08a8 0000 0000 | | .LITERAL {0x00000000, 0x0000884f} 08ac 0000 0000 | | .BLANK 0000[0x4] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08c0 | | .CONST 0x08c0 ; Address of begin 08b1 0959 | Y | .CONST 0x0959 ; Address of exception handler 08b2 0002 | | .CONST 0x0002 ; Number of locals 08b3 INIT_08b0: 08b3 e007 | | Load 0x0,0x7 08b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08b5 02c7 | | Declare_Variable Any 08b6 e404 | | Load 0x2,0x4 08b7 4801 |H | Short_Literal 0x1 08b8 e404 | | Load 0x2,0x4 08b9 4801 |H | Short_Literal 0x1 08ba e405 | | Load 0x2,0x5 08bb e00a | | Load 0x0,0xa 08bc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 08bd e00a | | Load 0x0,0xa 08be 181c | | Execute Package,Field_Execute,Field_Number 0x1c 08bf a602 | | Store_Unchecked 0x3,0x2 08c0 BODY_08b0: 08c0 e404 | | Load 0x2,0x4 08c1 00d9 | | Load_Top At_Offset_1 08c2 e00c | | Load 0x0,0xc 08c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08c4 4800 |H | Short_Literal 0x0 08c5 e5ff | | Load 0x2,-0x1 08c6 e404 | | Load 0x2,0x4 08c7 00db | | Load_Top At_Offset_3 08c8 8245 | E | Call 0x1,0x45 08c9 e00b | | Load 0x0,0xb 08ca 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 08cb 681d |h | Jump_Zero 0x8e9 08cc e404 | | Load 0x2,0x4 08cd 4801 |H | Short_Literal 0x1 08ce 4802 |H | Short_Literal 0x2 08cf e00f | | Load 0x0,0xf 08d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08d1 0334 | 4 | Declare_Variable Array,With_Constraint 08d2 0092 0aa7 | | Action Push_String_Extended,0xaa7 ; "Remote_Directory" 08d4 e00f | | Load 0x0,0xf 08d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08d6 e00f | | Load 0x0,0xf 08d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08d8 0119 | | Execute Any,Check_In_Formal_Type 08d9 4801 |H | Short_Literal 0x1 08da 00da | | Load_Top At_Offset_2 08db 01d6 | | Execute Vector,Field_Write 08dc e5ff | | Load 0x2,-0x1 08dd e00f | | Load 0x0,0xf 08de 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08df e00f | | Load 0x0,0xf 08e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08e1 0119 | | Execute Any,Check_In_Formal_Type 08e2 4802 |H | Short_Literal 0x2 08e3 00da | | Load_Top At_Offset_2 08e4 01d6 | | Execute Vector,Field_Write 08e5 67c2 |g | Indirect_Literal Discrete,0x8a8,{0x00000000, 0x0000884f} 08e6 e006 | | Load 0x0,0x6 08e7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 08e8 784e |xN | Jump 0x937 08e9 e404 | | Load 0x2,0x4 08ea e5ff | | Load 0x2,-0x1 08eb 00da | | Load_Top At_Offset_2 08ec e00c | | Load 0x0,0xc 08ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08ee e006 | | Load 0x0,0x6 08ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08f0 e404 | | Load 0x2,0x4 08f1 00d8 | | Load_Top At_Offset_0 08f2 00db | | Load_Top At_Offset_3 08f3 e00a | | Load 0x0,0xa 08f4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08f5 e5ff | | Load 0x2,-0x1 08f6 e602 | | Load 0x3,0x2 08f7 e019 | | Load 0x0,0x19 08f8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 08f9 c403 | | Store 0x2,0x3 08fa e403 | | Load 0x2,0x3 08fb 701c |p | Jump_Nonzero 0x918 08fc e404 | | Load 0x2,0x4 08fd 4801 |H | Short_Literal 0x1 08fe 4802 |H | Short_Literal 0x2 08ff e00f | | Load 0x0,0xf 0900 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0901 0334 | 4 | Declare_Variable Array,With_Constraint 0902 00da | | Load_Top At_Offset_2 0903 e00f | | Load 0x0,0xf 0904 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0905 e00f | | Load 0x0,0xf 0906 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0907 0119 | | Execute Any,Check_In_Formal_Type 0908 4801 |H | Short_Literal 0x1 0909 00da | | Load_Top At_Offset_2 090a 01d6 | | Execute Vector,Field_Write 090b e5ff | | Load 0x2,-0x1 090c e00f | | Load 0x0,0xf 090d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 090e e00f | | Load 0x0,0xf 090f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0910 0119 | | Execute Any,Check_In_Formal_Type 0911 4802 |H | Short_Literal 0x2 0912 00da | | Load_Top At_Offset_2 0913 01d6 | | Execute Vector,Field_Write 0914 604f |`O | Indirect_Literal Discrete,0x964,{0x00000000, 0x0000883a} 0915 e006 | | Load 0x0,0x6 0916 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0917 781f |x | Jump 0x937 0918 e404 | | Load 0x2,0x4 0919 4801 |H | Short_Literal 0x1 091a 4802 |H | Short_Literal 0x2 091b e00f | | Load 0x0,0xf 091c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 091d 0334 | 4 | Declare_Variable Array,With_Constraint 091e 00da | | Load_Top At_Offset_2 091f e00f | | Load 0x0,0xf 0920 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0921 e00f | | Load 0x0,0xf 0922 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0923 0119 | | Execute Any,Check_In_Formal_Type 0924 4801 |H | Short_Literal 0x1 0925 00da | | Load_Top At_Offset_2 0926 01d6 | | Execute Vector,Field_Write 0927 e403 | | Load 0x2,0x3 0928 e006 | | Load 0x0,0x6 0929 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 092a e00f | | Load 0x0,0xf 092b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 092c e00f | | Load 0x0,0xf 092d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 092e 0119 | | Execute Any,Check_In_Formal_Type 092f 4802 |H | Short_Literal 0x2 0930 00da | | Load_Top At_Offset_2 0931 01d6 | | Execute Vector,Field_Write 0932 602d |`- | Indirect_Literal Discrete,0x960,{0x00000000, 0x00008819} 0933 e006 | | Load 0x0,0x6 0934 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0935 00cc | | Action Pop_Block 0936 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0937 e5fd | | Load 0x2,-0x3 0938 680d |h | Jump_Zero 0x946 0939 4801 |H | Short_Literal 0x1 093a 4801 |H | Short_Literal 0x1 093b 4800 |H | Short_Literal 0x0 093c 4801 |H | Short_Literal 0x1 093d e404 | | Load 0x2,0x4 093e e00a | | Load 0x0,0xa 093f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0940 0092 0ab4 | | Action Push_String_Extended,0xab4 ; "<ALL_WORLDS>" 0942 00da | | Load_Top At_Offset_2 0943 e014 | | Load 0x0,0x14 0944 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0945 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0946 e404 | | Load 0x2,0x4 0947 4801 |H | Short_Literal 0x1 0948 4801 |H | Short_Literal 0x1 0949 e00f | | Load 0x0,0xf 094a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 094b 0334 | 4 | Declare_Variable Array,With_Constraint 094c 00da | | Load_Top At_Offset_2 094d e00f | | Load 0x0,0xf 094e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 094f e00f | | Load 0x0,0xf 0950 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0951 0119 | | Execute Any,Check_In_Formal_Type 0952 4801 |H | Short_Literal 0x1 0953 00da | | Load_Top At_Offset_2 0954 01d6 | | Execute Vector,Field_Write 0955 6746 |gF | Indirect_Literal Discrete,0x89c,{0x00000000, 0x00008872} 0956 e006 | | Load 0x0,0x6 0957 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0958 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0959 TRAP_08b0: 0959 e006 | | Load 0x0,0x6 095a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 095b 010f | | Execute Exception,Equal 095c 6801 |h | Jump_Zero 0x95e 095d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 095e 0100 | | Execute Exception,Raise 095f 0000 | | .XXX[0x1] 0960 0000 0000 | | .LITERAL {0x00000000, 0x00008819} 0964 0000 0000 | | .LITERAL {0x00000000, 0x0000883a} 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 096b | k | .CONST 0x096b ; Address of begin 0969 0004 | | .CONST 0x0004 ; Address of exception handler 096a 0001 | | .CONST 0x0001 ; Number of locals 096b BODY_0968: 096b INIT_0968: 096b 4800 |H | Short_Literal 0x0 096c 4800 |H | Short_Literal 0x0 096d 4800 |H | Short_Literal 0x0 096e 4801 |H | Short_Literal 0x1 096f e7f3 | | Load 0x3,-0xd 0970 e005 | | Load 0x0,0x5 0971 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0972 e00a | | Load 0x0,0xa 0973 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0974 4801 |H | Short_Literal 0x1 0975 e604 | | Load 0x3,0x4 0976 e00e | | Load 0x0,0xe 0977 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0978 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0979 0000 0000 | | .BLANK 0000[0x7] 0980 ; -------------------------------------------------------------------------------------- 0980 ; SUBPROGRAM 0980 ; -------------------------------------------------------------------------------------- 0980 0983 | | .CONST 0x0983 ; Address of begin 0981 0004 | | .CONST 0x0004 ; Address of exception handler 0982 0001 | | .CONST 0x0001 ; Number of locals 0983 BODY_0980: 0983 INIT_0980: 0983 4800 |H | Short_Literal 0x0 0984 4800 |H | Short_Literal 0x0 0985 4800 |H | Short_Literal 0x0 0986 4801 |H | Short_Literal 0x1 0987 e7f3 | | Load 0x3,-0xd 0988 e005 | | Load 0x0,0x5 0989 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 098a e00a | | Load 0x0,0xa 098b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 098c 4801 |H | Short_Literal 0x1 098d e604 | | Load 0x3,0x4 098e e00e | | Load 0x0,0xe 098f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0990 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0991 0000 0000 | | .BLANK 0000[0x7] 0998 ; -------------------------------------------------------------------------------------- 0998 ; SUBPROGRAM 0998 ; -------------------------------------------------------------------------------------- 0998 099b | | .CONST 0x099b ; Address of begin 0999 09f5 | | .CONST 0x09f5 ; Address of exception handler 099a 0001 | | .CONST 0x0001 ; Number of locals 099b BODY_0998: 099b INIT_0998: 099b e7f3 | | Load 0x3,-0xd 099c 4801 |H | Short_Literal 0x1 099d 4801 |H | Short_Literal 0x1 099e e00f | | Load 0x0,0xf 099f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09a0 0334 | 4 | Declare_Variable Array,With_Constraint 09a1 0092 0ac2 | | Action Push_String_Extended,0xac2 ; "New Path is " 09a3 e604 | | Load 0x3,0x4 09a4 01cc | | Execute Vector,Catenate 09a5 e00f | | Load 0x0,0xf 09a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09a7 e00f | | Load 0x0,0xf 09a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09a9 0119 | | Execute Any,Check_In_Formal_Type 09aa 4801 |H | Short_Literal 0x1 09ab 00da | | Load_Top At_Offset_2 09ac 01d6 | | Execute Vector,Field_Write 09ad 606e |`n | Indirect_Literal Discrete,0xa1c,{0x00000000, 0x00008876} 09ae e006 | | Load 0x0,0x6 09af 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09b0 e006 | | Load 0x0,0x6 09b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09b2 e404 | | Load 0x2,0x4 09b3 e7ff | | Load 0x3,-0x1 09b4 0092 0ac3 | | Action Push_String_Extended,0xac3 ; ".units" 09b6 01cc | | Execute Vector,Catenate 09b7 e012 | | Load 0x0,0x12 09b8 1882 | | Execute Package,Field_Execute,Field_Number 0x82 09b9 c7f2 | | Store 0x3,-0xe 09ba e7f2 | | Load 0x3,-0xe 09bb 6803 |h | Jump_Zero 0x9bf 09bc e006 | | Load 0x0,0x6 09bd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09be 0257 | W | Execute Discrete,Raise 09bf 4801 |H | Short_Literal 0x1 09c0 4801 |H | Short_Literal 0x1 09c1 4800 |H | Short_Literal 0x0 09c2 4801 |H | Short_Literal 0x1 09c3 e7f3 | | Load 0x3,-0xd 09c4 e005 | | Load 0x0,0x5 09c5 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 09c6 e00a | | Load 0x0,0xa 09c7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 09c8 e7f4 | | Load 0x3,-0xc 09c9 e7f5 | | Load 0x3,-0xb 09ca e7f6 | | Load 0x3,-0xa 09cb 4801 |H | Short_Literal 0x1 09cc e7f8 | | Load 0x3,-0x8 09cd e7f9 | | Load 0x3,-0x7 09ce e7fa | | Load 0x3,-0x6 09cf e7fb | | Load 0x3,-0x5 09d0 e605 | | Load 0x3,0x5 09d1 e7ff | | Load 0x3,-0x1 09d2 e001 | | Load 0x0,0x1 09d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09d4 8608 | | Call 0x3,0x8 09d5 e006 | | Load 0x0,0x6 09d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09d7 e404 | | Load 0x2,0x4 09d8 e604 | | Load 0x3,0x4 09d9 0092 0ac3 | | Action Push_String_Extended,0xac3 ; ".units" 09db 01cc | | Execute Vector,Catenate 09dc e012 | | Load 0x0,0x12 09dd 1883 | | Execute Package,Field_Execute,Field_Number 0x83 09de c7f2 | | Store 0x3,-0xe 09df 8607 | | Call 0x3,0x7 09e0 e7f2 | | Load 0x3,-0xe 09e1 6803 |h | Jump_Zero 0x9e5 09e2 e006 | | Load 0x0,0x6 09e3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09e4 0257 | W | Execute Discrete,Raise 09e5 e006 | | Load 0x0,0x6 09e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e7 e404 | | Load 0x2,0x4 09e8 e7ff | | Load 0x3,-0x1 09e9 0092 0ac3 | | Action Push_String_Extended,0xac3 ; ".units" 09eb 01cc | | Execute Vector,Catenate 09ec e012 | | Load 0x0,0x12 09ed 1884 | | Execute Package,Field_Execute,Field_Number 0x84 09ee c7f2 | | Store 0x3,-0xe 09ef e7f2 | | Load 0x3,-0xe 09f0 6803 |h | Jump_Zero 0x9f4 09f1 e006 | | Load 0x0,0x6 09f2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09f3 0257 | W | Execute Discrete,Raise 09f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09f5 TRAP_0998: 09f5 0007 | | Action Break_Optional 09f6 e7f3 | | Load 0x3,-0xd 09f7 4801 |H | Short_Literal 0x1 09f8 4801 |H | Short_Literal 0x1 09f9 e00f | | Load 0x0,0xf 09fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09fb 0334 | 4 | Declare_Variable Array,With_Constraint 09fc 0092 0ac4 | | Action Push_String_Extended,0xac4 ; "Cmvc.Release" 09fe e00f | | Load 0x0,0xf 09ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a00 e00f | | Load 0x0,0xf 0a01 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a02 0119 | | Execute Any,Check_In_Formal_Type 0a03 4801 |H | Short_Literal 0x1 0a04 00da | | Load_Top At_Offset_2 0a05 01d6 | | Execute Vector,Field_Write 0a06 6011 |` | Indirect_Literal Discrete,0xa18,{0x00000000, 0x0000881f} 0a07 e006 | | Load 0x0,0x6 0a08 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a09 e006 | | Load 0x0,0x6 0a0a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a0b e404 | | Load 0x2,0x4 0a0c e7ff | | Load 0x3,-0x1 0a0d 0092 0ac3 | | Action Push_String_Extended,0xac3 ; ".units" 0a0f 01cc | | Execute Vector,Catenate 0a10 e012 | | Load 0x0,0x12 0a11 1884 | | Execute Package,Field_Execute,Field_Number 0x84 0a12 c7f2 | | Store 0x3,-0xe 0a13 e006 | | Load 0x0,0x6 0a14 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a15 0257 | W | Execute Discrete,Raise 0a16 0000 0000 | | .XXX[0x2] 0a18 0000 0000 | | .LITERAL {0x00000000, 0x0000881f} 0a1c 0000 0000 | | .LITERAL {0x00000000, 0x00008876} 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a23 | # | .CONST 0x0a23 ; Address of begin 0a21 0a4b | K | .CONST 0x0a4b ; Address of exception handler 0a22 0001 | | .CONST 0x0001 ; Number of locals 0a23 BODY_0a20: 0a23 INIT_0a20: 0a23 4800 |H | Short_Literal 0x0 0a24 4800 |H | Short_Literal 0x0 0a25 4800 |H | Short_Literal 0x0 0a26 4801 |H | Short_Literal 0x1 0a27 e7f3 | | Load 0x3,-0xd 0a28 e005 | | Load 0x0,0x5 0a29 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0a2a e00a | | Load 0x0,0xa 0a2b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0a2c 4801 |H | Short_Literal 0x1 0a2d e604 | | Load 0x3,0x4 0a2e 0092 0ac5 | | Action Push_String_Extended,0xac5 ; ".state.tool_state.alib_list" 0a30 01cc | | Execute Vector,Catenate 0a31 e00e | | Load 0x0,0xe 0a32 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0a33 4800 |H | Short_Literal 0x0 0a34 4800 |H | Short_Literal 0x0 0a35 4800 |H | Short_Literal 0x0 0a36 4801 |H | Short_Literal 0x1 0a37 e7f3 | | Load 0x3,-0xd 0a38 e005 | | Load 0x0,0x5 0a39 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0a3a e00a | | Load 0x0,0xa 0a3b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0a3c 4801 |H | Short_Literal 0x1 0a3d e7f3 | | Load 0x3,-0xd 0a3e e604 | | Load 0x3,0x4 0a3f e00a | | Load 0x0,0xa 0a40 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0a41 e7f3 | | Load 0x3,-0xd 0a42 4801 |H | Short_Literal 0x1 0a43 e604 | | Load 0x3,0x4 0a44 e00a | | Load 0x0,0xa 0a45 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a46 e00a | | Load 0x0,0xa 0a47 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0a48 e00e | | Load 0x0,0xe 0a49 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0a4a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a4b TRAP_0a20: 0a4b 0007 | | Action Break_Optional 0a4c e7f3 | | Load 0x3,-0xd 0a4d 4801 |H | Short_Literal 0x1 0a4e 4801 |H | Short_Literal 0x1 0a4f e00f | | Load 0x0,0xf 0a50 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a51 0334 | 4 | Declare_Variable Array,With_Constraint 0a52 0092 0ac6 | | Action Push_String_Extended,0xac6 ; "Library.Unfreeze" 0a54 e00f | | Load 0x0,0xf 0a55 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a56 e00f | | Load 0x0,0xf 0a57 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a58 0119 | | Execute Any,Check_In_Formal_Type 0a59 4801 |H | Short_Literal 0x1 0a5a 00da | | Load_Top At_Offset_2 0a5b 01d6 | | Execute Vector,Field_Write 0a5c 67bb |g | Indirect_Literal Discrete,0xa18,{0x00000000, 0x0000881f} 0a5d e006 | | Load 0x0,0x6 0a5e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a5f e006 | | Load 0x0,0x6 0a60 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0a61 0257 | W | Execute Discrete,Raise 0a62 0000 0000 | | .BLANK 0000[0x6] 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; SUBPROGRAM 0a68 ; -------------------------------------------------------------------------------------- 0a68 0a86 | | .CONST 0x0a86 ; Address of begin 0a69 0004 | | .CONST 0x0004 ; Address of exception handler 0a6a 0004 | | .CONST 0x0004 ; Number of locals 0a6b INIT_0a68: 0a6b e007 | | Load 0x0,0x7 0a6c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a6d 02c7 | | Declare_Variable Any 0a6e e7f3 | | Load 0x3,-0xd 0a6f 4801 |H | Short_Literal 0x1 0a70 e604 | | Load 0x3,0x4 0a71 e00a | | Load 0x0,0xa 0a72 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a73 a802 | | Store_Unchecked 0x4,0x2 0a74 e007 | | Load 0x0,0x7 0a75 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a76 02c7 | | Declare_Variable Any 0a77 e7f3 | | Load 0x3,-0xd 0a78 4801 |H | Short_Literal 0x1 0a79 e7ff | | Load 0x3,-0x1 0a7a e00a | | Load 0x0,0xa 0a7b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a7c a803 | | Store_Unchecked 0x4,0x3 0a7d e007 | | Load 0x0,0x7 0a7e 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0a7f 0322 | " | Declare_Variable Record 0a80 e7f3 | | Load 0x3,-0xd 0a81 00db | | Load_Top At_Offset_3 0a82 e00a | | Load 0x0,0xa 0a83 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0a84 00d9 | | Load_Top At_Offset_1 0a85 017d | } | Execute Record,Structure_Write 0a86 BODY_0a68: 0a86 8608 | | Call 0x3,0x8 0a87 e7f2 | | Load 0x3,-0xe 0a88 e7f3 | | Load 0x3,-0xd 0a89 4800 |H | Short_Literal 0x0 0a8a e602 | | Load 0x3,0x2 0a8b e804 | | Load 0x4,0x4 0a8c e7fc | | Load 0x3,-0x4 0a8d e7fd | | Load 0x3,-0x3 0a8e e7f3 | | Load 0x3,-0xd 0a8f e803 | | Load 0x4,0x3 0a90 8246 | F | Call 0x1,0x46 0a91 e802 | | Load 0x4,0x2 0a92 8247 | G | Call 0x1,0x47 0a93 c7f2 | | Store 0x3,-0xe 0a94 e007 | | Load 0x0,0x7 0a95 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a96 e010 | | Load 0x0,0x10 0a97 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a98 e603 | | Load 0x3,0x3 0a99 e007 | | Load 0x0,0x7 0a9a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a9b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a9c c606 | | Store 0x3,0x6 0a9d 8607 | | Call 0x3,0x7 0a9e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a9f ; -------------------------------------------------------------------------------------- 0a9f ; STRING TABLE 0a9f ; -------------------------------------------------------------------------------------- 0a9f 0052 | R | .STRTAB 0x0052->0x0ac8 ; "SPEC_LOAD_SUBSYSTEM" 0aa0 0063 | c | .STRTAB 0x0063->0x0ad1 ; "COMBINED_SUBSYSTEM" 0aa1 0073 | s | .STRTAB 0x0073->0x0ada ; "SYSTEM" 0aa2 0077 | w | .STRTAB 0x0077->0x0add ; "Rcf_Cmvc." 0aa3 007e | ~ | .STRTAB 0x007e->0x0ae2 ; "<error>" 0aa4 0083 | | .STRTAB 0x0083->0x0ae5 ; "Release" 0aa5 0088 | | .STRTAB 0x0088->0x0ae9 ; "From_Working_View" 0aa6 0097 | | .STRTAB 0x0097->0x0af1 ; "Release_Name" 0aa7 00a1 | | .STRTAB 0x00a1->0x0af7 ; "Remote_Directory" 0aa8 00af | | .STRTAB 0x00af->0x0aff ; "Level =>" 0aa9 00b5 | | .STRTAB 0x00b5->0x0b03 ; ", Views_To_Import" 0aaa 00c4 | | .STRTAB 0x00c4->0x0b0c ; "Create_Configuration_Only => " 0aab 00df | | .STRTAB 0x00df->0x0b1a ; ", Compile_The_View => " 0aac 00f3 | | .STRTAB 0x00f3->0x0b25 ; ", Goal => " 0aad 00fb | | .STRTAB 0x00fb->0x0b2a ; ", Comments" 0aae 0103 | | .STRTAB 0x0103->0x0b2f ; "Work_Order" 0aaf 010b | | .STRTAB 0x010b->0x0b34 ; "Volume =>" 0ab0 0112 | | .STRTAB 0x0112->0x0b39 ; ", Response" 0ab1 011a | | .STRTAB 0x011a->0x0b3e ; "Working" 0ab2 011f | | .STRTAB 0x011f->0x0b41 ; "_Working" 0ab3 0125 | % | .STRTAB 0x0125->0x0b45 ; "_" 0ab4 0124 | $ | .STRTAB 0x0124->0x0b46 ; "<ALL_WORLDS>" 0ab5 012e | . | .STRTAB 0x012e->0x0b4c ; "null remote directory" 0ab6 0141 | A | .STRTAB 0x0141->0x0b56 ; "error during postprocess command" 0ab7 015f | _ | .STRTAB 0x015f->0x0b66 ; ".??'c(Ada)" 0ab8 0167 | g | .STRTAB 0x0167->0x0b6b ; "<WORLDS>" 0ab9 016d | m | .STRTAB 0x016d->0x0b6f ; "Initialize" 0aba 0175 | u | .STRTAB 0x0175->0x0b74 ; "View" 0abb 0177 | w | .STRTAB 0x0177->0x0b76 ; "Remote_Machine" 0abc 0183 | | .STRTAB 0x0183->0x0b7d ; "Allow_Demotion => " 0abd 0193 | | .STRTAB 0x0193->0x0b86 ; "Set_Remote_Machine" 0abe 01a3 | | .STRTAB 0x01a3->0x0b8f ; "Set_Remote_Directory" 0abf 01b5 | | .STRTAB 0x01b5->0x0b99 ; "<AUTO_GENERATE>" 0ac0 01c2 | | .STRTAB 0x01c2->0x0ba1 ; "." 0ac1 01c1 | | .STRTAB 0x01c1->0x0ba1 ; "<DEFAULT>" 0ac2 01c8 | | .STRTAB 0x01c8->0x0ba6 ; "New Path is " 0ac3 01d2 | | .STRTAB 0x01d2->0x0bac ; ".units" 0ac4 01d6 | | .STRTAB 0x01d6->0x0baf ; "Cmvc.Release" 0ac5 01e0 | | .STRTAB 0x01e0->0x0bb5 ; ".state.tool_state.alib_list" 0ac6 01f9 | | .STRTAB 0x01f9->0x0bc2 ; "Library.Unfreeze" 0ac7 0207 | | .STREND 0x0207->0x0bca 0ac8 5350 4543 |SPEC| .STRTAB_STRINGS 0bcb 0000 0000 | | .BLANK 0000[0x5] 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 ; Debug Table 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 0004 000c | | .DEBUG4 0x0004,0x000c,0x169a,0x0000,0x0001,0x0000 0bd6 0000 0000 | | .BLANK 0000[0x2a]