|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0368ff
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0550 | P | .CONST 0x0550 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 010b | | .CONST 0x010b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002a | * | .CONST 0x002a ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1913 | | Execute Package,Field_Reference,Field_Number 0x13 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0010 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0012 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0014 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0016 4800 |H | Short_Literal 0x0 0017 e002 | | Load 0x0,0x2 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 038f | | Declare_Type Package,Defined,Visible 001a e003 | | Load 0x0,0x3 001b e004 | | Load 0x0,0x4 001c 4802 |H | Short_Literal 0x2 001d 00db | | Load_Top At_Offset_3 001e 020e | | Execute Module,Augment_Imports 001f 0386 | | Declare_Variable Package,Visible 0020 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0022 e005 | | Load 0x0,0x5 0023 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0024 4800 |H | Short_Literal 0x0 0025 4803 |H | Short_Literal 0x3 0026 e006 | | Load 0x0,0x6 0027 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0028 0334 | 4 | Declare_Variable Array,With_Constraint 0029 487f |H | Short_Literal 0x7f 002a 4800 |H | Short_Literal 0x0 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d 4800 |H | Short_Literal 0x0 002e 4801 |H | Short_Literal 0x1 002f 00da | | Load_Top At_Offset_2 0030 01d6 | | Execute Vector,Field_Write 0031 4800 |H | Short_Literal 0x0 0032 4802 |H | Short_Literal 0x2 0033 00da | | Load_Top At_Offset_2 0034 01d6 | | Execute Vector,Field_Write 0035 4800 |H | Short_Literal 0x0 0036 4803 |H | Short_Literal 0x3 0037 00da | | Load_Top At_Offset_2 0038 01d6 | | Execute Vector,Field_Write 0039 0129 | ) | Execute Any,Make_Visible 003a 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 003c e007 | | Load 0x0,0x7 003d 0129 | ) | Execute Any,Make_Visible 003e 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0040 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0042 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0044 4800 |H | Short_Literal 0x0 0045 e008 | | Load 0x0,0x8 0046 02a0 | | Declare_Subprogram Null_Subprogram 0047 038f | | Declare_Type Package,Defined,Visible 0048 e006 | | Load 0x0,0x6 0049 4801 |H | Short_Literal 0x1 004a 00da | | Load_Top At_Offset_2 004b 020e | | Execute Module,Augment_Imports 004c 0386 | | Declare_Variable Package,Visible 004d 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 004f e009 | | Load 0x0,0x9 0050 0129 | ) | Execute Any,Make_Visible 0051 4800 |H | Short_Literal 0x0 0052 e00a | | Load 0x0,0xa 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 038f | | Declare_Type Package,Defined,Visible 0055 0386 | | Declare_Variable Package,Visible 0056 4800 |H | Short_Literal 0x0 0057 e00b | | Load 0x0,0xb 0058 02a0 | | Declare_Subprogram Null_Subprogram 0059 038f | | Declare_Type Package,Defined,Visible 005a e006 | | Load 0x0,0x6 005b 4801 |H | Short_Literal 0x1 005c 00da | | Load_Top At_Offset_2 005d 020e | | Execute Module,Augment_Imports 005e 0386 | | Declare_Variable Package,Visible 005f 00bf | | Action Accept_Activation 0060 0092 04b7 | | Action Push_String_Extended,0x4b7 ; "Test" 0062 0092 04b8 | | Action Push_String_Extended,0x4b8 ; "Dec 14 1990 by JMK" 0064 e00c | | Load 0x0,0xc 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 e00c | | Load 0x0,0xc 0067 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0068 4800 |H | Short_Literal 0x0 0069 480f |H | Short_Literal 0xf 006a 00db | | Load_Top At_Offset_3 006b 03f8 | | Declare_Type Discrete,Constrained 006c 4800 |H | Short_Literal 0x0 006d 480f |H | Short_Literal 0xf 006e 00e8 | | Load_Encached Character_Cache 006f 02a0 | | Declare_Subprogram Null_Subprogram 0070 4801 |H | Short_Literal 0x1 0071 035d | ] | Declare_Type Array,Defined 0072 00d8 | | Load_Top At_Offset_0 0073 0337 | 7 | Declare_Variable Array 0074 00d8 | | Load_Top At_Offset_0 0075 0335 | 5 | Declare_Variable Array,Duplicate 0076 00cd | | Action Spare6_Action 0077 4830 |H0 | Short_Literal 0x30 0078 4800 |H | Short_Literal 0x0 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b 4831 |H1 | Short_Literal 0x31 007c 4801 |H | Short_Literal 0x1 007d 00da | | Load_Top At_Offset_2 007e 01d6 | | Execute Vector,Field_Write 007f 4832 |H2 | Short_Literal 0x32 0080 4802 |H | Short_Literal 0x2 0081 00da | | Load_Top At_Offset_2 0082 01d6 | | Execute Vector,Field_Write 0083 4833 |H3 | Short_Literal 0x33 0084 4803 |H | Short_Literal 0x3 0085 00da | | Load_Top At_Offset_2 0086 01d6 | | Execute Vector,Field_Write 0087 4834 |H4 | Short_Literal 0x34 0088 4804 |H | Short_Literal 0x4 0089 00da | | Load_Top At_Offset_2 008a 01d6 | | Execute Vector,Field_Write 008b 4835 |H5 | Short_Literal 0x35 008c 4805 |H | Short_Literal 0x5 008d 00da | | Load_Top At_Offset_2 008e 01d6 | | Execute Vector,Field_Write 008f 4836 |H6 | Short_Literal 0x36 0090 4806 |H | Short_Literal 0x6 0091 00da | | Load_Top At_Offset_2 0092 01d6 | | Execute Vector,Field_Write 0093 4837 |H7 | Short_Literal 0x37 0094 4807 |H | Short_Literal 0x7 0095 00da | | Load_Top At_Offset_2 0096 01d6 | | Execute Vector,Field_Write 0097 4838 |H8 | Short_Literal 0x38 0098 4808 |H | Short_Literal 0x8 0099 00da | | Load_Top At_Offset_2 009a 01d6 | | Execute Vector,Field_Write 009b 4839 |H9 | Short_Literal 0x39 009c 4809 |H | Short_Literal 0x9 009d 00da | | Load_Top At_Offset_2 009e 01d6 | | Execute Vector,Field_Write 009f 4841 |HA | Short_Literal 0x41 00a0 480a |H | Short_Literal 0xa 00a1 00da | | Load_Top At_Offset_2 00a2 01d6 | | Execute Vector,Field_Write 00a3 4842 |HB | Short_Literal 0x42 00a4 480b |H | Short_Literal 0xb 00a5 00da | | Load_Top At_Offset_2 00a6 01d6 | | Execute Vector,Field_Write 00a7 4843 |HC | Short_Literal 0x43 00a8 480c |H | Short_Literal 0xc 00a9 00da | | Load_Top At_Offset_2 00aa 01d6 | | Execute Vector,Field_Write 00ab 4844 |HD | Short_Literal 0x44 00ac 480d |H | Short_Literal 0xd 00ad 00da | | Load_Top At_Offset_2 00ae 01d6 | | Execute Vector,Field_Write 00af 4845 |HE | Short_Literal 0x45 00b0 480e |H | Short_Literal 0xe 00b1 00da | | Load_Top At_Offset_2 00b2 01d6 | | Execute Vector,Field_Write 00b3 4846 |HF | Short_Literal 0x46 00b4 480f |H | Short_Literal 0xf 00b5 00da | | Load_Top At_Offset_2 00b6 01d6 | | Execute Vector,Field_Write 00b7 00d9 | | Load_Top At_Offset_1 00b8 01d4 | | Execute Vector,Structure_Write 00b9 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00c8 00c7 | | Action Elaborate_Subprogram 00c9 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 00cb 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 00cd 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 00cf 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 00d1 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d2 00c7 | | Action Elaborate_Subprogram 00d3 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00d4 00c7 | | Action Elaborate_Subprogram 00d5 e00d | | Load 0x0,0xd 00d6 00b6 | | Action Make_Scope 00d7 e00c | | Load 0x0,0xc 00d8 e00e | | Load 0x0,0xe 00d9 e00f | | Load 0x0,0xf 00da e010 | | Load 0x0,0x10 00db e011 | | Load 0x0,0x11 00dc e012 | | Load 0x0,0x12 00dd e223 | # | Load 0x1,0x23 00de e006 | | Load 0x0,0x6 00df e224 | $ | Load 0x1,0x24 00e0 e226 | & | Load 0x1,0x26 00e1 480c |H | Short_Literal 0xc 00e2 e212 | | Load 0x1,0x12 00e3 020e | | Execute Module,Augment_Imports 00e4 e212 | | Load 0x1,0x12 00e5 020f | | Execute Module,Activate 00e6 e226 | & | Load 0x1,0x26 00e7 e013 | | Load 0x0,0x13 00e8 e014 | | Load 0x0,0x14 00e9 e00c | | Load 0x0,0xc 00ea e00d | | Load 0x0,0xd 00eb 00b6 | | Action Make_Scope 00ec e00f | | Load 0x0,0xf 00ed 4807 |H | Short_Literal 0x7 00ee e21b | | Load 0x1,0x1b 00ef 020e | | Execute Module,Augment_Imports 00f0 e21b | | Load 0x1,0x1b 00f1 020f | | Execute Module,Activate 00f2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00f3 00c7 | | Action Elaborate_Subprogram 00f4 00b6 | | Action Make_Scope 00f5 e015 | | Load 0x0,0x15 00f6 e00e | | Load 0x0,0xe 00f7 4803 |H | Short_Literal 0x3 00f8 e21e | | Load 0x1,0x1e 00f9 020e | | Execute Module,Augment_Imports 00fa e21e | | Load 0x1,0x1e 00fb 020f | | Execute Module,Activate 00fc e013 | | Load 0x0,0x13 00fd e014 | | Load 0x0,0x14 00fe e223 | # | Load 0x1,0x23 00ff 00b6 | | Action Make_Scope 0100 e016 | | Load 0x0,0x16 0101 e00d | | Load 0x0,0xd 0102 e017 | | Load 0x0,0x17 0103 e001 | | Load 0x0,0x1 0104 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0105 e00f | | Load 0x0,0xf 0106 480a |H | Short_Literal 0xa 0107 e21f | | Load 0x1,0x1f 0108 020e | | Execute Module,Augment_Imports 0109 e21f | | Load 0x1,0x1f 010a 020f | | Execute Module,Activate 010b BODY_0008: 010b 00bc | | Action Signal_Activated 010c 00bb | | Action Signal_Completion 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e018 | | Load 0x0,0x18 0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0115 02c7 | | Declare_Variable Any 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 BODY_0110: 0118 e00d | | Load 0x0,0xd 0119 180e | | Execute Package,Field_Execute,Field_Number 0xe 011a c5fd | | Store 0x2,-0x3 011b 00d8 | | Load_Top At_Offset_0 011c e5fe | | Load 0x2,-0x2 011d e00d | | Load 0x0,0xd 011e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 011f c402 | | Store 0x2,0x2 0120 4802 |H | Short_Literal 0x2 0121 00d9 | | Load_Top At_Offset_1 0122 e018 | | Load 0x0,0x18 0123 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0124 680f |h | Jump_Zero 0x134 0125 e00d | | Load 0x0,0xd 0126 180e | | Execute Package,Field_Execute,Field_Number 0xe 0127 00d9 | | Load_Top At_Offset_1 0128 e001 | | Load 0x0,0x1 0129 1812 | | Execute Package,Field_Execute,Field_Number 0x12 012a e00d | | Load 0x0,0xd 012b 180e | | Execute Package,Field_Execute,Field_Number 0xe 012c 4805 |H | Short_Literal 0x5 012d e5ff | | Load 0x2,-0x1 012e 0092 04b9 | | Action Push_String_Extended,0x4b9 ; ".Response illegible" 0130 01cc | | Execute Vector,Catenate 0131 820d | | Call 0x1,0xd 0132 e217 | | Load 0x1,0x17 0133 0257 | W | Execute Discrete,Raise 0134 e00d | | Load 0x0,0xd 0135 180e | | Execute Package,Field_Execute,Field_Number 0xe 0136 4802 |H | Short_Literal 0x2 0137 4829 |H) | Short_Literal 0x29 0138 e5ff | | Load 0x2,-0x1 0139 0092 04ba | | Action Push_String_Extended,0x4ba ; " starting (" 013b 01cc | | Execute Vector,Catenate 013c e220 | | Load 0x1,0x20 013d 01cc | | Execute Vector,Catenate 013e 0092 04bb | | Action Push_String_Extended,0x4bb ; " version " 0140 01cc | | Execute Vector,Catenate 0141 e221 | ! | Load 0x1,0x21 0142 01cc | | Execute Vector,Catenate 0143 01cb | | Execute Vector,Append 0144 820d | | Call 0x1,0xd 0145 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e00d | | Load 0x0,0xd 014c 180e | | Execute Package,Field_Execute,Field_Number 0xe 014d e5fd | | Load 0x2,-0x3 014e 4829 |H) | Short_Literal 0x29 014f e5ff | | Load 0x2,-0x1 0150 0092 04bc | | Action Push_String_Extended,0x4bc ; " finished (" 0152 01cc | | Execute Vector,Catenate 0153 e220 | | Load 0x1,0x20 0154 01cc | | Execute Vector,Catenate 0155 0092 04bb | | Action Push_String_Extended,0x4bb ; " version " 0157 01cc | | Execute Vector,Catenate 0158 e221 | ! | Load 0x1,0x21 0159 01cc | | Execute Vector,Catenate 015a 01cb | | Execute Vector,Append 015b 820d | | Call 0x1,0xd 015c 00db | | Load_Top At_Offset_3 015d e00d | | Load 0x0,0xd 015e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 015f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 017c | | | .CONST 0x017c ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e016 | | Load 0x0,0x16 0164 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0165 e016 | | Load 0x0,0x16 0166 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0167 4864 |Hd | Short_Literal 0x64 0168 0271 | q | Execute Discrete,Times 0169 00d8 | | Load_Top At_Offset_0 016a 0c00 | | Execute_Immediate Greater_Equal,0x0 016b 7002 |p | Jump_Nonzero 0x16e 016c 6027 |`' | Indirect_Literal Discrete,0x194,{0xffffffff, 0xffffc000} 016d 7801 |x | Jump 0x16f 016e 6021 |`! | Indirect_Literal Discrete,0x190,{0x00000000, 0x00004000} 016f 0273 | s | Execute Discrete,Plus 0170 09f1 | | Execute_Immediate Binary_Scale,-0xf 0171 e019 | | Load 0x0,0x19 0172 180e | | Execute Package,Field_Execute,Field_Number 0xe 0173 0271 | q | Execute Discrete,Times 0174 6017 |` | Indirect_Literal Discrete,0x18c,{0x00000000, 0x7fffffff} 0175 0279 | y | Execute Discrete,And 0176 00d8 | | Load_Top At_Offset_0 0177 00e3 | | Load_Encached Natural_Cache 0178 0260 | ` | Execute Discrete,In_Type 0179 7001 |p | Jump_Nonzero 0x17b 017a 0801 | | Execute_Immediate Raise,0x1 017b 00ca | | Action Exit_Nullary_Function 017c TRAP_0160: 017c 0007 | | Action Break_Optional 017d e00d | | Load 0x0,0xd 017e 180e | | Execute Package,Field_Execute,Field_Number 0xe 017f 4808 |H | Short_Literal 0x8 0180 0092 04bd | | Action Push_String_Extended,0x4bd ; "Test.Unique_Number propagated " 0182 4800 |H | Short_Literal 0x0 0183 4801 |H | Short_Literal 0x1 0184 e00f | | Load 0x0,0xf 0185 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0186 01cc | | Execute Vector,Catenate 0187 820d | | Call 0x1,0xd 0188 00d8 | | Load_Top At_Offset_0 0189 0101 | | Execute Exception,Reraise 018a 0000 0000 | | .XXX[0x2] 018c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0190 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0194 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a5 | | .CONST 0x01a5 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0004 | | .CONST 0x0004 ; Number of locals 019b INIT_0198: 019b 4801 |H | Short_Literal 0x1 019c 00db | | Load_Top At_Offset_3 019d e223 | # | Load 0x1,0x23 019e 035b | [ | Declare_Type Array,Constrained 019f 0337 | 7 | Declare_Variable Array 01a0 e5fe | | Load 0x2,-0x2 01a1 00e3 | | Load_Encached Natural_Cache 01a2 03f1 | | Declare_Variable Discrete,With_Value 01a3 00e4 | | Load_Encached Positive_Cache 01a4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01a5 BODY_0198: 01a5 e5ff | | Load 0x2,-0x1 01a6 0c01 | | Execute_Immediate Greater_Equal,0x1 01a7 6854 |hT | Jump_Zero 0x1fc 01a8 00d9 | | Load_Top At_Offset_1 01a9 4801 |H | Short_Literal 0x1 01aa 0279 | y | Execute Discrete,And 01ab 6812 |h | Jump_Zero 0x1be 01ac 00d9 | | Load_Top At_Offset_1 01ad 48ff |H | Short_Literal 0xff 01ae 026e | n | Execute Discrete,Modulo 01af 00d8 | | Load_Top At_Offset_0 01b0 e006 | | Load 0x0,0x6 01b1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b2 0260 | ` | Execute Discrete,In_Type 01b3 7001 |p | Jump_Nonzero 0x1b5 01b4 0801 | | Execute_Immediate Raise,0x1 01b5 00d9 | | Load_Top At_Offset_1 01b6 e402 | | Load 0x2,0x2 01b7 01d6 | | Execute Vector,Field_Write 01b8 00d9 | | Load_Top At_Offset_1 01b9 0a01 | | Execute_Immediate Plus,0x1 01ba 005a | Z | Store_Top Discrete,At_Offset_2 01bb 00d8 | | Load_Top At_Offset_0 01bc 0a01 | | Execute_Immediate Plus,0x1 01bd 0059 | Y | Store_Top Discrete,At_Offset_1 01be 00cf | | Action Mark_Auxiliary 01bf 7826 |x& | Jump 0x1e6 01c0 00da | | Load_Top At_Offset_2 01c1 09f8 | | Execute_Immediate Binary_Scale,-0x8 01c2 48ff |H | Short_Literal 0xff 01c3 0279 | y | Execute Discrete,And 01c4 00d8 | | Load_Top At_Offset_0 01c5 e006 | | Load 0x0,0x6 01c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c7 0260 | ` | Execute Discrete,In_Type 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0801 | | Execute_Immediate Raise,0x1 01ca 00da | | Load_Top At_Offset_2 01cb e402 | | Load 0x2,0x2 01cc 01d6 | | Execute Vector,Field_Write 01cd 00da | | Load_Top At_Offset_2 01ce 0a01 | | Execute_Immediate Plus,0x1 01cf 005b | [ | Store_Top Discrete,At_Offset_3 01d0 00d9 | | Load_Top At_Offset_1 01d1 0a01 | | Execute_Immediate Plus,0x1 01d2 005a | Z | Store_Top Discrete,At_Offset_2 01d3 00da | | Load_Top At_Offset_2 01d4 48ff |H | Short_Literal 0xff 01d5 026e | n | Execute Discrete,Modulo 01d6 00d8 | | Load_Top At_Offset_0 01d7 e006 | | Load 0x0,0x6 01d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01d9 0260 | ` | Execute Discrete,In_Type 01da 7001 |p | Jump_Nonzero 0x1dc 01db 0801 | | Execute_Immediate Raise,0x1 01dc 00da | | Load_Top At_Offset_2 01dd e402 | | Load 0x2,0x2 01de 01d6 | | Execute Vector,Field_Write 01df 00da | | Load_Top At_Offset_2 01e0 0a01 | | Execute_Immediate Plus,0x1 01e1 005b | [ | Store_Top Discrete,At_Offset_3 01e2 00d9 | | Load_Top At_Offset_1 01e3 0a01 | | Execute_Immediate Plus,0x1 01e4 005a | Z | Store_Top Discrete,At_Offset_2 01e5 00c9 | | Action Pop_Auxiliary_Loop 01e6 00d9 | | Load_Top At_Offset_1 01e7 e5ff | | Load 0x2,-0x1 01e8 027c | | | Execute Discrete,Less 01e9 77d6 |w | Jump_Nonzero 0x1c0 01ea 00ce | | Action Pop_Auxiliary 01eb 00d8 | | Load_Top At_Offset_0 01ec e5ff | | Load 0x2,-0x1 01ed 027f | | Execute Discrete,Equal 01ee 680d |h | Jump_Zero 0x1fc 01ef 00d9 | | Load_Top At_Offset_1 01f0 09f8 | | Execute_Immediate Binary_Scale,-0x8 01f1 48ff |H | Short_Literal 0xff 01f2 0279 | y | Execute Discrete,And 01f3 00d8 | | Load_Top At_Offset_0 01f4 e006 | | Load 0x0,0x6 01f5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f6 0260 | ` | Execute Discrete,In_Type 01f7 7001 |p | Jump_Nonzero 0x1f9 01f8 0801 | | Execute_Immediate Raise,0x1 01f9 00d9 | | Load_Top At_Offset_1 01fa e402 | | Load 0x2,0x2 01fb 01d6 | | Execute Vector,Field_Write 01fc 00da | | Load_Top At_Offset_2 01fd e006 | | Load 0x0,0x6 01fe 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01ff 01c6 | | Execute Vector,Convert_To_Formal 0200 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0212 | | .CONST 0x0212 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e013 | | Load 0x0,0x13 020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020d 02c7 | | Declare_Variable Any 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 e014 | | Load 0x0,0x14 0211 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0212 BODY_0208: 0212 e014 | | Load 0x0,0x14 0213 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0214 00da | | Load_Top At_Offset_2 0215 0120 | | Execute Any,Is_Value 0216 6803 |h | Jump_Zero 0x21a 0217 e013 | | Load 0x0,0x13 0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0219 7801 |x | Jump 0x21b 021a 00da | | Load_Top At_Offset_2 021b e014 | | Load 0x0,0x14 021c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 021d e5ff | | Load 0x2,-0x1 021e e013 | | Load 0x0,0x13 021f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0220 c402 | | Store 0x2,0x2 0221 0059 | Y | Store_Top Discrete,At_Offset_1 0222 00d9 | | Load_Top At_Offset_1 0223 e013 | | Load 0x0,0x13 0224 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0225 00d8 | | Load_Top At_Offset_0 0226 0f00 | | Execute_Immediate Equal,0x0 0227 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 700d |p | Jump_Nonzero 0x23a 022d e00d | | Load 0x0,0xd 022e 180e | | Execute Package,Field_Execute,Field_Number 0xe 022f 4801 |H | Short_Literal 0x1 0230 e5fe | | Load 0x2,-0x2 0231 0092 04be | | Action Push_String_Extended,0x4be ; ".Status = " 0233 01cc | | Execute Vector,Catenate 0234 e5ff | | Load 0x2,-0x1 0235 e014 | | Load 0x0,0x14 0236 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0237 01cc | | Execute Vector,Catenate 0238 820d | | Call 0x1,0xd 0239 4504 |E | Exit_Suprogram New_Top_Offset 0x4 023a e00d | | Load 0x0,0xd 023b 180e | | Execute Package,Field_Execute,Field_Number 0xe 023c e5fd | | Load 0x2,-0x3 023d e5fe | | Load 0x2,-0x2 023e 0092 04be | | Action Push_String_Extended,0x4be ; ".Status = " 0240 01cc | | Execute Vector,Catenate 0241 e5ff | | Load 0x2,-0x1 0242 e014 | | Load 0x0,0x14 0243 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0244 01cc | | Execute Vector,Catenate 0245 820d | | Call 0x1,0xd 0246 e217 | | Load 0x1,0x17 0247 0257 | W | Execute Discrete,Raise 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0258 | X | .CONST 0x0258 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b 4801 |H | Short_Literal 0x1 024c 00db | | Load_Top At_Offset_3 024d 01db | | Execute Vector,Length 024e 4803 |H | Short_Literal 0x3 024f 0271 | q | Execute Discrete,Times 0250 00d8 | | Load_Top At_Offset_0 0251 00e2 | | Load_Encached Integer_Cache 0252 0260 | ` | Execute Discrete,In_Type 0253 7001 |p | Jump_Nonzero 0x255 0254 0801 | | Execute_Immediate Raise,0x1 0255 00e9 | | Load_Encached String_Cache 0256 035b | [ | Declare_Type Array,Constrained 0257 0337 | 7 | Declare_Variable Array 0258 BODY_0248: 0258 00cf | | Action Mark_Auxiliary 0259 e5ff | | Load 0x2,-0x1 025a 01d9 | | Execute Vector,Reverse_Bounds 025b 0263 | c | Execute Discrete,Above_Bound 025c 704a |pJ | Jump_Nonzero 0x2a7 025d 00db | | Load_Top At_Offset_3 025e 00d9 | | Load_Top At_Offset_1 025f e5ff | | Load 0x2,-0x1 0260 01dd | | Execute Vector,First 0261 0272 | r | Execute Discrete,Minus 0262 4803 |H | Short_Literal 0x3 0263 0271 | q | Execute Discrete,Times 0264 0a01 | | Execute_Immediate Plus,0x1 0265 00d8 | | Load_Top At_Offset_0 0266 00e2 | | Load_Encached Integer_Cache 0267 0260 | ` | Execute Discrete,In_Type 0268 7001 |p | Jump_Nonzero 0x26a 0269 0801 | | Execute_Immediate Raise,0x1 026a 00da | | Load_Top At_Offset_2 026b e5ff | | Load 0x2,-0x1 026c 01dd | | Execute Vector,First 026d 0272 | r | Execute Discrete,Minus 026e 4803 |H | Short_Literal 0x3 026f 0271 | q | Execute Discrete,Times 0270 0a03 | | Execute_Immediate Plus,0x3 0271 00d8 | | Load_Top At_Offset_0 0272 00e2 | | Load_Encached Integer_Cache 0273 0260 | ` | Execute Discrete,In_Type 0274 7001 |p | Jump_Nonzero 0x276 0275 0801 | | Execute_Immediate Raise,0x1 0276 00d9 | | Load_Top At_Offset_1 0277 00d9 | | Load_Top At_Offset_1 0278 e406 | | Load 0x2,0x6 0279 035b | [ | Declare_Type Array,Constrained 027a 00db | | Load_Top At_Offset_3 027b 01cd | | Execute Vector,Slice_Reference 027c 00d8 | | Load_Top At_Offset_0 027d 01dd | | Execute Vector,First 027e 00d8 | | Load_Top At_Offset_0 027f 0a02 | | Execute_Immediate Plus,0x2 0280 00e9 | | Load_Encached String_Cache 0281 035b | [ | Declare_Type Array,Constrained 0282 0337 | 7 | Declare_Variable Array 0283 00d8 | | Load_Top At_Offset_0 0284 01dd | | Execute Vector,First 0285 4820 |H | Short_Literal 0x20 0286 00d9 | | Load_Top At_Offset_1 0287 00db | | Load_Top At_Offset_3 0288 01d6 | | Execute Vector,Field_Write 0289 0a01 | | Execute_Immediate Plus,0x1 028a e405 | | Load 0x2,0x5 028b e5ff | | Load 0x2,-0x1 028c 01d7 | | Execute Vector,Field_Read 028d 09fc | | Execute_Immediate Binary_Scale,-0x4 028e e226 | & | Load 0x1,0x26 028f 01d7 | | Execute Vector,Field_Read 0290 00d9 | | Load_Top At_Offset_1 0291 00db | | Load_Top At_Offset_3 0292 01d6 | | Execute Vector,Field_Write 0293 0a01 | | Execute_Immediate Plus,0x1 0294 e405 | | Load 0x2,0x5 0295 e5ff | | Load 0x2,-0x1 0296 01d7 | | Execute Vector,Field_Read 0297 480f |H | Short_Literal 0xf 0298 0279 | y | Execute Discrete,And 0299 e226 | & | Load 0x1,0x26 029a 01d7 | | Execute Vector,Field_Read 029b 00d9 | | Load_Top At_Offset_1 029c 00db | | Load_Top At_Offset_3 029d 01d6 | | Execute Vector,Field_Write 029e 00d1 | | Pop_Control Pop_Count_1 029f 00cd | | Action Spare6_Action 02a0 00da | | Load_Top At_Offset_2 02a1 00da | | Load_Top At_Offset_2 02a2 e406 | | Load 0x2,0x6 02a3 01ce | | Execute Vector,Slice_Write 02a4 00d3 | | Pop_Control Pop_Count_3 02a5 00c8 | | Action Pop_Auxiliary_Range 02a6 3fb6 |? | Loop_Increasing 0x25d 02a7 00ce | | Action Pop_Auxiliary 02a8 00d8 | | Load_Top At_Offset_0 02a9 00e9 | | Load_Encached String_Cache 02aa 01c6 | | Execute Vector,Convert_To_Formal 02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 e01a | | Load 0x0,0x1a 02b5 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b7 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 02bc e01a | | Load 0x0,0x1a 02bd 180f | | Execute Package,Field_Execute,Field_Number 0xf 02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 0334 | 4 | .CONST 0x0334 ; Address of begin 02c1 0405 | | .CONST 0x0405 ; Address of exception handler 02c2 0007 | | .CONST 0x0007 ; Number of locals 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 01db | | Execute Vector,Length 02c5 0f06 | | Execute_Immediate Equal,0x6 02c6 7001 |p | Jump_Nonzero 0x2c8 02c7 0887 | | Execute_Immediate Raise,0x87 02c8 e013 | | Load 0x0,0x13 02c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ca 02c7 | | Declare_Variable Any 02cb 00d8 | | Load_Top At_Offset_0 02cc 1c00 | | Execute_Immediate Run_Utility,0x0 02cd e014 | | Load 0x0,0x14 02ce 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02cf 00e3 | | Load_Encached Natural_Cache 02d0 e21b | | Load 0x1,0x1b 02d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d2 e013 | | Load 0x0,0x13 02d3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d4 00d8 | | Load_Top At_Offset_0 02d5 01db | | Execute Vector,Length 02d6 0f06 | | Execute_Immediate Equal,0x6 02d7 7001 |p | Jump_Nonzero 0x2d9 02d8 0887 | | Execute_Immediate Raise,0x87 02d9 4800 |H | Short_Literal 0x0 02da 4807 |H | Short_Literal 0x7 02db e006 | | Load 0x0,0x6 02dc 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02dd 0334 | 4 | Declare_Variable Array,With_Constraint 02de 4800 |H | Short_Literal 0x0 02df 4800 |H | Short_Literal 0x0 02e0 00da | | Load_Top At_Offset_2 02e1 01d6 | | Execute Vector,Field_Write 02e2 4801 |H | Short_Literal 0x1 02e3 4801 |H | Short_Literal 0x1 02e4 00da | | Load_Top At_Offset_2 02e5 01d6 | | Execute Vector,Field_Write 02e6 4808 |H | Short_Literal 0x8 02e7 4802 |H | Short_Literal 0x2 02e8 00da | | Load_Top At_Offset_2 02e9 01d6 | | Execute Vector,Field_Write 02ea 4800 |H | Short_Literal 0x0 02eb 4803 |H | Short_Literal 0x3 02ec 00da | | Load_Top At_Offset_2 02ed 01d6 | | Execute Vector,Field_Write 02ee 4806 |H | Short_Literal 0x6 02ef 4804 |H | Short_Literal 0x4 02f0 00da | | Load_Top At_Offset_2 02f1 01d6 | | Execute Vector,Field_Write 02f2 4804 |H | Short_Literal 0x4 02f3 4805 |H | Short_Literal 0x5 02f4 00da | | Load_Top At_Offset_2 02f5 01d6 | | Execute Vector,Field_Write 02f6 4800 |H | Short_Literal 0x0 02f7 4806 |H | Short_Literal 0x6 02f8 00da | | Load_Top At_Offset_2 02f9 01d6 | | Execute Vector,Field_Write 02fa 4803 |H | Short_Literal 0x3 02fb 4807 |H | Short_Literal 0x7 02fc 00da | | Load_Top At_Offset_2 02fd 01d6 | | Execute Vector,Field_Write 02fe 00d9 | | Load_Top At_Offset_1 02ff 01cc | | Execute Vector,Catenate 0300 4800 |H | Short_Literal 0x0 0301 4803 |H | Short_Literal 0x3 0302 e006 | | Load 0x0,0x6 0303 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0304 0334 | 4 | Declare_Variable Array,With_Constraint 0305 4800 |H | Short_Literal 0x0 0306 4800 |H | Short_Literal 0x0 0307 00da | | Load_Top At_Offset_2 0308 01d6 | | Execute Vector,Field_Write 0309 4800 |H | Short_Literal 0x0 030a 4801 |H | Short_Literal 0x1 030b 00da | | Load_Top At_Offset_2 030c 01d6 | | Execute Vector,Field_Write 030d 4800 |H | Short_Literal 0x0 030e 4802 |H | Short_Literal 0x2 030f 00da | | Load_Top At_Offset_2 0310 01d6 | | Execute Vector,Field_Write 0311 4800 |H | Short_Literal 0x0 0312 4803 |H | Short_Literal 0x3 0313 00da | | Load_Top At_Offset_2 0314 01d6 | | Execute Vector,Field_Write 0315 01cc | | Execute Vector,Catenate 0316 e5ff | | Load 0x2,-0x1 0317 01cc | | Execute Vector,Catenate 0318 4800 |H | Short_Literal 0x0 0319 4803 |H | Short_Literal 0x3 031a e006 | | Load 0x0,0x6 031b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 031c 0334 | 4 | Declare_Variable Array,With_Constraint 031d 4800 |H | Short_Literal 0x0 031e 4800 |H | Short_Literal 0x0 031f 00da | | Load_Top At_Offset_2 0320 01d6 | | Execute Vector,Field_Write 0321 4800 |H | Short_Literal 0x0 0322 4801 |H | Short_Literal 0x1 0323 00da | | Load_Top At_Offset_2 0324 01d6 | | Execute Vector,Field_Write 0325 4800 |H | Short_Literal 0x0 0326 4802 |H | Short_Literal 0x2 0327 00da | | Load_Top At_Offset_2 0328 01d6 | | Execute Vector,Field_Write 0329 4800 |H | Short_Literal 0x0 032a 4803 |H | Short_Literal 0x3 032b 00da | | Load_Top At_Offset_2 032c 01d6 | | Execute Vector,Field_Write 032d 01cc | | Execute Vector,Catenate 032e 0007 | | Action Break_Optional 032f 4801 |H | Short_Literal 0x1 0330 60df |` | Indirect_Literal Discrete,0x410,{0x00000000, 0x00000400} 0331 e223 | # | Load 0x1,0x23 0332 035b | [ | Declare_Type Array,Constrained 0333 0337 | 7 | Declare_Variable Array 0334 BODY_02c0: 0334 e014 | | Load 0x0,0x14 0335 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0336 e402 | | Load 0x2,0x2 0337 0120 | | Execute Any,Is_Value 0338 6803 |h | Jump_Zero 0x33c 0339 e013 | | Load 0x0,0x13 033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033b 7801 |x | Jump 0x33d 033c e402 | | Load 0x2,0x2 033d e5fb | | Load 0x2,-0x5 033e e21b | | Load 0x1,0x1b 033f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0340 e013 | | Load 0x0,0x13 0341 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0342 c402 | | Store 0x2,0x2 0343 c403 | | Store 0x2,0x3 0344 4807 |H | Short_Literal 0x7 0345 0092 04bf | | Action Push_String_Extended,0x4bf ; "Transport.Open(" 0347 e21b | | Load 0x1,0x1b 0348 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0349 01cc | | Execute Vector,Catenate 034a 0092 04c0 | | Action Push_String_Extended,0x4c0 ; ")" 034c 01cc | | Execute Vector,Catenate 034d e403 | | Load 0x2,0x3 034e 8216 | | Call 0x1,0x16 034f 00cf | | Action Mark_Auxiliary 0350 e5fe | | Load 0x2,-0x2 0351 4801 |H | Short_Literal 0x1 0352 0263 | c | Execute Discrete,Above_Bound 0353 70a1 |p | Jump_Nonzero 0x3f5 0354 e014 | | Load 0x0,0x14 0355 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0356 60b5 |` | Indirect_Literal Discrete,0x40c,{0x00007fff, 0xffffffff} 0357 e5fb | | Load 0x2,-0x5 0358 e5fc | | Load 0x2,-0x4 0359 e402 | | Load 0x2,0x2 035a e013 | | Load 0x0,0x13 035b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 035c c403 | | Store 0x2,0x3 035d 4807 |H | Short_Literal 0x7 035e 0092 04c1 | | Action Push_String_Extended,0x4c1 ; "Transport.Connect(" 0360 e5fc | | Load 0x2,-0x4 0361 e21b | | Load 0x1,0x1b 0362 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0363 01cc | | Execute Vector,Catenate 0364 0092 04c0 | | Action Push_String_Extended,0x4c0 ; ")" 0366 01cc | | Execute Vector,Catenate 0367 e403 | | Load 0x2,0x3 0368 8216 | | Call 0x1,0x16 0369 00e3 | | Load_Encached Natural_Cache 036a e014 | | Load 0x0,0x14 036b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 036c 4800 |H | Short_Literal 0x0 036d 609e |` | Indirect_Literal Discrete,0x40c,{0x00007fff, 0xffffffff} 036e e406 | | Load 0x2,0x6 036f e402 | | Load 0x2,0x2 0370 e013 | | Load 0x0,0x13 0371 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0372 c403 | | Store 0x2,0x3 0373 c404 | | Store 0x2,0x4 0374 4807 |H | Short_Literal 0x7 0375 0092 04c2 | | Action Push_String_Extended,0x4c2 ; "Transport.Transmit" 0377 e403 | | Load 0x2,0x3 0378 8216 | | Call 0x1,0x16 0379 00cf | | Action Mark_Auxiliary 037a 00e3 | | Load_Encached Natural_Cache 037b e407 | | Load 0x2,0x7 037c e014 | | Load 0x0,0x14 037d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 037e e40a | | Load 0x2,0xa 037f e5fd | | Load 0x2,-0x3 0380 0271 | q | Execute Discrete,Times 0381 00d8 | | Load_Top At_Offset_0 0382 00e7 | | Load_Encached Duration_Cache 0383 0260 | ` | Execute Discrete,In_Type 0384 7001 |p | Jump_Nonzero 0x386 0385 0801 | | Execute_Immediate Raise,0x1 0386 e402 | | Load 0x2,0x2 0387 e013 | | Load 0x0,0x13 0388 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0389 c403 | | Store 0x2,0x3 038a 00d1 | | Pop_Control Pop_Count_1 038b c404 | | Store 0x2,0x4 038c e403 | | Load 0x2,0x3 038d 0f07 | | Execute_Immediate Equal,0x7 038e 7063 |pc | Jump_Nonzero 0x3f2 038f 4807 |H | Short_Literal 0x7 0390 0092 04c3 | | Action Push_String_Extended,0x4c3 ; "Transport.Receive" 0392 e403 | | Load 0x2,0x3 0393 8216 | | Call 0x1,0x16 0394 e404 | | Load 0x2,0x4 0395 e406 | | Load 0x2,0x6 0396 01db | | Execute Vector,Length 0397 027b | { | Execute Discrete,Greater_Equal 0398 6842 |hB | Jump_Zero 0x3db 0399 4801 |H | Short_Literal 0x1 039a 4808 |H | Short_Literal 0x8 039b e407 | | Load 0x2,0x7 039c 01cf | | Execute Vector,Slice_Read 039d 4800 |H | Short_Literal 0x0 039e 4807 |H | Short_Literal 0x7 039f e006 | | Load 0x0,0x6 03a0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03a1 0334 | 4 | Declare_Variable Array,With_Constraint 03a2 4800 |H | Short_Literal 0x0 03a3 4800 |H | Short_Literal 0x0 03a4 00da | | Load_Top At_Offset_2 03a5 01d6 | | Execute Vector,Field_Write 03a6 4801 |H | Short_Literal 0x1 03a7 4801 |H | Short_Literal 0x1 03a8 00da | | Load_Top At_Offset_2 03a9 01d6 | | Execute Vector,Field_Write 03aa 4808 |H | Short_Literal 0x8 03ab 4802 |H | Short_Literal 0x2 03ac 00da | | Load_Top At_Offset_2 03ad 01d6 | | Execute Vector,Field_Write 03ae 4800 |H | Short_Literal 0x0 03af 4803 |H | Short_Literal 0x3 03b0 00da | | Load_Top At_Offset_2 03b1 01d6 | | Execute Vector,Field_Write 03b2 4806 |H | Short_Literal 0x6 03b3 4804 |H | Short_Literal 0x4 03b4 00da | | Load_Top At_Offset_2 03b5 01d6 | | Execute Vector,Field_Write 03b6 4804 |H | Short_Literal 0x4 03b7 4805 |H | Short_Literal 0x5 03b8 00da | | Load_Top At_Offset_2 03b9 01d6 | | Execute Vector,Field_Write 03ba 4800 |H | Short_Literal 0x0 03bb 4806 |H | Short_Literal 0x6 03bc 00da | | Load_Top At_Offset_2 03bd 01d6 | | Execute Vector,Field_Write 03be 4804 |H | Short_Literal 0x4 03bf 4807 |H | Short_Literal 0x7 03c0 00da | | Load_Top At_Offset_2 03c1 01d6 | | Execute Vector,Field_Write 03c2 01df | | Execute Vector,Equal 03c3 6817 |h | Jump_Zero 0x3db 03c4 e00d | | Load 0x0,0xd 03c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c6 4802 |H | Short_Literal 0x2 03c7 0092 04c4 | | Action Push_String_Extended,0x4c4 ; "Received a RARP response from " 03c9 e402 | | Load 0x2,0x2 03ca e013 | | Load 0x0,0x13 03cb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03cc e21b | | Load 0x1,0x1b 03cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ce 01cc | | Execute Vector,Catenate 03cf 820d | | Call 0x1,0xd 03d0 e402 | | Load 0x2,0x2 03d1 e013 | | Load 0x0,0x13 03d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03d3 4819 |H | Short_Literal 0x19 03d4 481c |H | Short_Literal 0x1c 03d5 e407 | | Load 0x2,0x7 03d6 01cf | | Execute Vector,Slice_Read 03d7 e014 | | Load 0x0,0x14 03d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03d9 01c6 | | Execute Vector,Convert_To_Formal 03da 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 03db e00d | | Load 0x0,0xd 03dc 180e | | Execute Package,Field_Execute,Field_Number 0xe 03dd 4806 |H | Short_Literal 0x6 03de 0092 04c5 | | Action Push_String_Extended,0x4c5 ; "Received a RARP frame " 03e0 4801 |H | Short_Literal 0x1 03e1 e404 | | Load 0x2,0x4 03e2 e407 | | Load 0x2,0x7 03e3 01cf | | Execute Vector,Slice_Read 03e4 8218 | | Call 0x1,0x18 03e5 01cc | | Execute Vector,Catenate 03e6 0092 04c6 | | Action Push_String_Extended,0x4c6 ; " from " 03e8 01cc | | Execute Vector,Catenate 03e9 e402 | | Load 0x2,0x2 03ea e013 | | Load 0x0,0x13 03eb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03ec e21b | | Load 0x1,0x1b 03ed 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ee 01cc | | Execute Vector,Catenate 03ef 820d | | Call 0x1,0xd 03f0 00c9 | | Action Pop_Auxiliary_Loop 03f1 7f88 | | Jump 0x37a 03f2 00ce | | Action Pop_Auxiliary 03f3 00c8 | | Action Pop_Auxiliary_Range 03f4 3f5f |?_ | Loop_Increasing 0x354 03f5 00ce | | Action Pop_Auxiliary 03f6 e00d | | Load 0x0,0xd 03f7 180e | | Execute Package,Field_Execute,Field_Number 0xe 03f8 4806 |H | Short_Literal 0x6 03f9 0092 04c7 | | Action Push_String_Extended,0x4c7 ; "No response to" 03fb e5fe | | Load 0x2,-0x2 03fc 00e0 | | Load_Encached Standard_Cache 03fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03fe 01cc | | Execute Vector,Catenate 03ff 0092 04c8 | | Action Push_String_Extended,0x4c8 ; " RARP queries" 0401 01cc | | Execute Vector,Catenate 0402 820d | | Call 0x1,0xd 0403 e21d | | Load 0x1,0x1d 0404 0257 | W | Execute Discrete,Raise 0405 TRAP_02c0: 0405 0007 | | Action Break_Optional 0406 e402 | | Load 0x2,0x2 0407 e013 | | Load 0x0,0x13 0408 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0409 00d8 | | Load_Top At_Offset_0 040a 0101 | | Execute Exception,Reraise 040b 0000 | | .XXX[0x1] 040c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0410 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0414 0000 0000 | | .BLANK 0000[0x4] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0421 | ! | .CONST 0x0421 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0002 | | .CONST 0x0002 ; Number of locals 041b INIT_0418: 041b 4801 |H | Short_Literal 0x1 041c 4804 |H | Short_Literal 0x4 041d e014 | | Load 0x0,0x14 041e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 041f 035b | [ | Declare_Type Array,Constrained 0420 0337 | 7 | Declare_Variable Array 0421 BODY_0418: 0421 00cf | | Action Mark_Auxiliary 0422 00d9 | | Load_Top At_Offset_1 0423 01d9 | | Execute Vector,Reverse_Bounds 0424 0007 | | Action Break_Optional 0425 00d8 | | Load_Top At_Offset_0 0426 0aff | | Execute_Immediate Plus,-0x1 0427 e5ff | | Load 0x2,-0x1 0428 01db | | Execute Vector,Length 0429 027c | | | Execute Discrete,Less 042a 680b |h | Jump_Zero 0x436 042b e5ff | | Load 0x2,-0x1 042c 01dd | | Execute Vector,First 042d 00d9 | | Load_Top At_Offset_1 042e 0273 | s | Execute Discrete,Plus 042f 0aff | | Execute_Immediate Plus,-0x1 0430 e5ff | | Load 0x2,-0x1 0431 01d7 | | Execute Vector,Field_Read 0432 00d9 | | Load_Top At_Offset_1 0433 e402 | | Load 0x2,0x2 0434 01d6 | | Execute Vector,Field_Write 0435 7804 |x | Jump 0x43a 0436 4800 |H | Short_Literal 0x0 0437 00d9 | | Load_Top At_Offset_1 0438 e402 | | Load 0x2,0x2 0439 01d6 | | Execute Vector,Field_Write 043a 00c8 | | Action Pop_Auxiliary_Range 043b 3fe9 |? | Loop_Increasing 0x425 043c 00ce | | Action Pop_Auxiliary 043d 00d8 | | Load_Top At_Offset_0 043e e014 | | Load 0x0,0x14 043f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0440 01c6 | | Execute Vector,Convert_To_Formal 0441 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0442 0000 0000 | | .BLANK 0000[0x6] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c 01dd | | Execute Vector,First 044d 00db | | Load_Top At_Offset_3 044e 01d7 | | Execute Vector,Field_Read 044f 00d8 | | Load_Top At_Offset_0 0450 4800 |H | Short_Literal 0x0 0451 487f |H | Short_Literal 0x7f 0452 0262 | b | Execute Discrete,In_Range 0453 700b |p | Jump_Nonzero 0x45f 0454 00d8 | | Load_Top At_Offset_0 0455 4880 |H | Short_Literal 0x80 0456 48bf |H | Short_Literal 0xbf 0457 0262 | b | Execute Discrete,In_Range 0458 7009 |p | Jump_Nonzero 0x462 0459 48c0 |H | Short_Literal 0xc0 045a 48df |H | Short_Literal 0xdf 045b 0262 | b | Execute Discrete,In_Range 045c 7008 |p | Jump_Nonzero 0x465 045d 4804 |H | Short_Literal 0x4 045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045f 00d1 | | Pop_Control Pop_Count_1 0460 4801 |H | Short_Literal 0x1 0461 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0462 00d1 | | Pop_Control Pop_Count_1 0463 4802 |H | Short_Literal 0x2 0464 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0465 4803 |H | Short_Literal 0x3 0466 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0476 | v | .CONST 0x0476 ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0003 | | .CONST 0x0003 ; Number of locals 046b INIT_0468: 046b 00da | | Load_Top At_Offset_2 046c 8227 | ' | Call 0x1,0x27 046d 00d8 | | Load_Top At_Offset_0 046e 01da | | Execute Vector,Bounds 046f e014 | | Load 0x0,0x14 0470 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0471 035b | [ | Declare_Type Array,Constrained 0472 0337 | 7 | Declare_Variable Array 0473 00d9 | | Load_Top At_Offset_1 0474 00d9 | | Load_Top At_Offset_1 0475 01d4 | | Execute Vector,Structure_Write 0476 BODY_0468: 0476 00cf | | Action Mark_Auxiliary 0477 00d9 | | Load_Top At_Offset_1 0478 01dc | | Execute Vector,Last 0479 00da | | Load_Top At_Offset_2 047a 8228 | ( | Call 0x1,0x28 047b 0a01 | | Execute_Immediate Plus,0x1 047c 00d8 | | Load_Top At_Offset_0 047d 00e2 | | Load_Encached Integer_Cache 047e 0260 | ` | Execute Discrete,In_Type 047f 7001 |p | Jump_Nonzero 0x481 0480 0801 | | Execute_Immediate Raise,0x1 0481 0263 | c | Execute Discrete,Above_Bound 0482 7006 |p | Jump_Nonzero 0x489 0483 4800 |H | Short_Literal 0x0 0484 00d9 | | Load_Top At_Offset_1 0485 e403 | | Load 0x2,0x3 0486 01d6 | | Execute Vector,Field_Write 0487 00c8 | | Action Pop_Auxiliary_Range 0488 3ffa |? | Loop_Increasing 0x483 0489 00ce | | Action Pop_Auxiliary 048a 00d8 | | Load_Top At_Offset_0 048b e014 | | Load 0x0,0x14 048c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 048d 01c6 | | Execute Vector,Convert_To_Formal 048e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 048f 0000 | | .XXX[0x1] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 049e | | .CONST 0x049e ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0003 | | .CONST 0x0003 ; Number of locals 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 8227 | ' | Call 0x1,0x27 0495 00d8 | | Load_Top At_Offset_0 0496 01da | | Execute Vector,Bounds 0497 e014 | | Load 0x0,0x14 0498 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0499 035b | [ | Declare_Type Array,Constrained 049a 0337 | 7 | Declare_Variable Array 049b 00d9 | | Load_Top At_Offset_1 049c 00d9 | | Load_Top At_Offset_1 049d 01d4 | | Execute Vector,Structure_Write 049e BODY_0490: 049e 00cf | | Action Mark_Auxiliary 049f 00d9 | | Load_Top At_Offset_1 04a0 01dc | | Execute Vector,Last 04a1 00da | | Load_Top At_Offset_2 04a2 8228 | ( | Call 0x1,0x28 04a3 0a01 | | Execute_Immediate Plus,0x1 04a4 00d8 | | Load_Top At_Offset_0 04a5 00e2 | | Load_Encached Integer_Cache 04a6 0260 | ` | Execute Discrete,In_Type 04a7 7001 |p | Jump_Nonzero 0x4a9 04a8 0801 | | Execute_Immediate Raise,0x1 04a9 0263 | c | Execute Discrete,Above_Bound 04aa 7006 |p | Jump_Nonzero 0x4b1 04ab 48ff |H | Short_Literal 0xff 04ac 00d9 | | Load_Top At_Offset_1 04ad e403 | | Load 0x2,0x3 04ae 01d6 | | Execute Vector,Field_Write 04af 00c8 | | Action Pop_Auxiliary_Range 04b0 3ffa |? | Loop_Increasing 0x4ab 04b1 00ce | | Action Pop_Auxiliary 04b2 00d8 | | Load_Top At_Offset_0 04b3 e014 | | Load 0x0,0x14 04b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04b5 01c6 | | Execute Vector,Convert_To_Formal 04b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b7 ; -------------------------------------------------------------------------------------- 04b7 ; STRING TABLE 04b7 ; -------------------------------------------------------------------------------------- 04b7 0026 | & | .STRTAB 0x0026->0x04ca ; "Test" 04b8 0028 | ( | .STRTAB 0x0028->0x04cc ; "Dec 14 1990 by JMK" 04b9 0038 | 8 | .STRTAB 0x0038->0x04d5 ; ".Response illegible" 04ba 0049 | I | .STRTAB 0x0049->0x04de ; " starting (" 04bb 0052 | R | .STRTAB 0x0052->0x04e4 ; " version " 04bc 0059 | Y | .STRTAB 0x0059->0x04e8 ; " finished (" 04bd 0062 | b | .STRTAB 0x0062->0x04ee ; "Test.Unique_Number propagated " 04be 007e | ~ | .STRTAB 0x007e->0x04fd ; ".Status = " 04bf 0086 | | .STRTAB 0x0086->0x0502 ; "Transport.Open(" 04c0 0093 | | .STRTAB 0x0093->0x0509 ; ")" 04c1 0092 | | .STRTAB 0x0092->0x050a ; "Transport.Connect(" 04c2 00a2 | | .STRTAB 0x00a2->0x0513 ; "Transport.Transmit" 04c3 00b2 | | .STRTAB 0x00b2->0x051c ; "Transport.Receive" 04c4 00c1 | | .STRTAB 0x00c1->0x0524 ; "Received a RARP response from " 04c5 00dd | | .STRTAB 0x00dd->0x0533 ; "Received a RARP frame " 04c6 00f1 | | .STRTAB 0x00f1->0x053e ; " from " 04c7 00f5 | | .STRTAB 0x00f5->0x0541 ; "No response to" 04c8 0101 | | .STRTAB 0x0101->0x0548 ; " RARP queries" 04c9 010c | | .STREND 0x010c->0x054f 04ca 5465 7374 |Test| .STRTAB_STRINGS 054f 0000 | | .XXX[0x1] 0550 ; -------------------------------------------------------------------------------------- 0550 ; Debug Table 0550 ; -------------------------------------------------------------------------------------- 0550 0004 000d | | .DEBUG4 0x0004,0x000d,0x6def,0x0000,0x0001,0x0000 0556 7016 0b41 |p A| .XXX[0x1b] 0558 7016 4801 |p H | 055a 4401 4800 |D H | 055c 4401 4800 |D H | 055e 4401 4800 |D H | 0560 4401 4800 |D H | 0562 4401 4801 |D H | 0564 4401 4801 |D H | 0566 4401 4801 |D H | 0568 4401 4801 |D H | 056a 4401 4800 |D H | 056c 4401 4801 |D H | 056e 4401 4801 |D H | 0570 4401 |D | 0571 0000 0000 | | .BLANK 0000[0x7] 0578 017f 0004 | | .XXX[0x14] 057a 0002 00ec | | 057c e5ff 8222 | "| 057e c402 e5ff | | 0580 00eb 1814 | | 0582 0b23 7006 | #p | 0584 0b24 7004 | $p | 0586 0b25 7002 | %p | 0588 4800 4401 |H D | 058a 4801 4401 |H D | 058c 0000 0000 | | .BLANK 0000[0x4] 0590 0195 0004 | | .XXX[0x70] 0592 0003 00ee | | 0594 00ec e5ff | | 0596 0092 0b20 | | 0598 e5ff 00eb | | 059a 1814 0f6e | n| 059c 824f e5ff | O | 059e 00eb 1888 | | 05a0 a402 0007 | | 05a2 e402 00eb | | 05a4 1858 6803 | Xh | 05a6 0092 0b21 | !| 05a8 4402 e402 |D | 05aa 00eb 1859 | Y| 05ac a403 e403 | | 05ae 00eb 18f0 | | 05b0 e5fe 027f | | 05b2 6806 e403 |h | 05b4 00eb 1829 | )| 05b6 00eb 182d | -| 05b8 4402 e402 |D | 05ba 00eb 185a | Z| 05bc a402 7fe4 | | 05be 0000 0000 | | 05c0 01c5 0004 | | 05c2 0003 00ee | | 05c4 00ec e5ff | | 05c6 0092 0b22 | "| 05c8 e5ff 00eb | | 05ca 1814 0f6e | n| 05cc 824f e5ff | O | 05ce 00eb 1888 | | 05d0 a402 0007 | | 05d2 e402 00eb | | 05d4 1858 6802 | Xh | 05d6 e213 0257 | W| 05d8 e402 00eb | | 05da 1859 a403 | Y | 05dc 4800 e5fe |H | 05de e403 00eb | | 05e0 1829 00eb | ) | 05e2 182d 8252 | - R| 05e4 e001 1821 | !| 05e6 6804 e403 |h | 05e8 00eb 18f0 | | 05ea 4402 e402 |D | 05ec 00eb 185a | Z| 05ee a402 7fe2 | | 05f0 01f3 0004 | | 05f2 0001 e5ff | | 05f4 00eb 18c2 | | 05f6 00eb 1888 | | 05f8 4975 00eb |Iu | 05fa 0098 1813 | | 05fc 00e3 025b | [| 05fe 4401 0000 |D |