|
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 0000 0000 | | .BLANK 0000[0xaa]