|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 04e0 | | .CONST 0x04e0 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 4800 |H | Short_Literal 0x0
0018 4805 |H | Short_Literal 0x5
0019 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
001b 03fe | | Declare_Type Discrete,Defined,Visible
001c c212 | | Store 0x1,0x12
001d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001f c217 | | Store 0x1,0x17
0020 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0022 c218 | | Store 0x1,0x18
0023 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0025 c215 | | Store 0x1,0x15
0026 00bf | | Action Accept_Activation
0027 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
0029 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
002b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
002c 00c7 | | Action Elaborate_Subprogram
002d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
002e 00c7 | | Action Elaborate_Subprogram
002f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0030 00c7 | | Action Elaborate_Subprogram
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4607 |F | Jump_Case 0x8
003c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
003d 7806 |x | Jump 0x44 ; case 0x1
003e 7809 |x | Jump 0x48 ; case 0x2
003f 780d |x | Jump 0x4d ; case 0x3
0040 7810 |x | Jump 0x51 ; case 0x4
0041 7811 |x | Jump 0x53 ; case 0x5
0042 7812 |x | Jump 0x55 ; case 0x6
0043 7815 |x | Jump 0x59 ; case 0x7
0044 00da | | Load_Top At_Offset_2
0045 0091 0467 | g| Action Push_String_Extended_Indexed,0x467 ; "IS_CONSISTENT"
0047 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0048 00db | | Load_Top At_Offset_3
0049 00db | | Load_Top At_Offset_3
004a 00e0 | | Load_Encached Standard_Cache
004b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004d 00da | | Load_Top At_Offset_2
004e 00e0 | | Load_Encached Standard_Cache
004f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0050 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0051 00db | | Load_Top At_Offset_3
0052 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0053 00db | | Load_Top At_Offset_3
0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0055 e212 | | Load 0x1,0x12
0056 00dc | | Load_Top At_Offset_4
0057 0267 | g | Execute Discrete,Predecessor
0058 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0059 e212 | | Load 0x1,0x12
005a 00dc | | Load_Top At_Offset_4
005b 0268 | h | Execute Discrete,Successor
005c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0090 | | .CONST 0x0090 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 000a | | .CONST 0x000a ; Number of locals
0063 INIT_0060:
0063 00e1 | | Load_Encached Boolean_Cache
0064 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0065 e001 | | Load 0x0,0x1
0066 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0067 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0068 e002 | | Load 0x0,0x2
0069 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006a 02c7 | | Declare_Variable Any
006b 00d8 | | Load_Top At_Offset_0
006c 1c00 | | Execute_Immediate Run_Utility,0x0
006d e002 | | Load 0x0,0x2
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f 02c7 | | Declare_Variable Any
0070 e5f8 | | Load 0x2,-0x8
0071 4801 |H | Short_Literal 0x1
0072 e5ff | | Load 0x2,-0x1
0073 e003 | | Load 0x0,0x3
0074 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0075 a405 | | Store_Unchecked 0x2,0x5
0076 e5f8 | | Load 0x2,-0x8
0077 e5fb | | Load 0x2,-0x5
0078 e5fd | | Load 0x2,-0x3
0079 e5fe | | Load 0x2,-0x2
007a e004 | | Load 0x0,0x4
007b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
007c e5fd | | Load 0x2,-0x3
007d e005 | | Load 0x0,0x5
007e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
007f e005 | | Load 0x0,0x5
0080 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0081 e005 | | Load 0x0,0x5
0082 1bc9 | | Execute Package,Field_Read,Field_Number 0xc9
0083 03f1 | | Declare_Variable Discrete,With_Value
0084 e006 | | Load 0x0,0x6
0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0086 02c7 | | Declare_Variable Any
0087 00d8 | | Load_Top At_Offset_0
0088 1c00 | | Execute_Immediate Run_Utility,0x0
0089 e006 | | Load 0x0,0x6
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 02c7 | | Declare_Variable Any
008c 00d8 | | Load_Top At_Offset_0
008d 1c00 | | Execute_Immediate Run_Utility,0x0
008e 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
0090 BODY_0060:
0090 e5f8 | | Load 0x2,-0x8
0091 e5fe | | Load 0x2,-0x2
0092 e003 | | Load 0x0,0x3
0093 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0094 682b |h+ | Jump_Zero 0xc0
0095 e5f8 | | Load 0x2,-0x8
0096 4801 |H | Short_Literal 0x1
0097 4803 |H | Short_Literal 0x3
0098 e007 | | Load 0x0,0x7
0099 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009a 035b | [ | Declare_Type Array,Constrained
009b 0337 | 7 | Declare_Variable Array
009c e5ff | | Load 0x2,-0x1
009d e003 | | Load 0x0,0x3
009e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009f e007 | | Load 0x0,0x7
00a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a1 e007 | | Load 0x0,0x7
00a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a3 0119 | | Execute Any,Check_In_Formal_Type
00a4 4801 |H | Short_Literal 0x1
00a5 00da | | Load_Top At_Offset_2
00a6 01d6 | | Execute Vector,Field_Write
00a7 e5fb | | Load 0x2,-0x5
00a8 e007 | | Load 0x0,0x7
00a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00aa e007 | | Load 0x0,0x7
00ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ac 0119 | | Execute Any,Check_In_Formal_Type
00ad 4802 |H | Short_Literal 0x2
00ae 00da | | Load_Top At_Offset_2
00af 01d6 | | Execute Vector,Field_Write
00b0 0092 046d | m| Action Push_String_Extended,0x46d ; "Remote unit is inaccessible when Host_Only = True"
00b2 e007 | | Load 0x0,0x7
00b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b4 e007 | | Load 0x0,0x7
00b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b6 0119 | | Execute Any,Check_In_Formal_Type
00b7 4803 |H | Short_Literal 0x3
00b8 00da | | Load_Top At_Offset_2
00b9 01d6 | | Execute Vector,Field_Write
00ba 4806 |H | Short_Literal 0x6
00bb 60b0 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00008815}
00bc e001 | | Load 0x0,0x1
00bd 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
00be 4804 |H | Short_Literal 0x4
00bf 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
00c0 00db | | Load_Top At_Offset_3
00c1 0f00 | | Execute_Immediate Equal,0x0
00c2 e5fa | | Load 0x2,-0x6
00c3 0278 | x | Execute Discrete,Or
00c4 681b |h | Jump_Zero 0xe0
00c5 e5f9 | | Load 0x2,-0x7
00c6 6817 |h | Jump_Zero 0xde
00c7 e001 | | Load 0x0,0x1
00c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c9 e404 | | Load 0x2,0x4
00ca 0120 | | Execute Any,Is_Value
00cb 6803 |h | Jump_Zero 0xcf
00cc e002 | | Load 0x0,0x2
00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ce 7801 |x | Jump 0xd0
00cf e404 | | Load 0x2,0x4
00d0 e5f8 | | Load 0x2,-0x8
00d1 e5ff | | Load 0x2,-0x1
00d2 e004 | | Load 0x0,0x4
00d3 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
00d4 c404 | | Store 0x2,0x4
00d5 c403 | | Store 0x2,0x3
00d6 4800 |H | Short_Literal 0x0
00d7 e403 | | Load 0x2,0x3
00d8 e001 | | Load 0x0,0x1
00d9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00da 7003 |p | Jump_Nonzero 0xde
00db e001 | | Load 0x0,0x1
00dc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00dd 0257 | W | Execute Discrete,Raise
00de 840a | | Call 0x2,0xa
00df 7887 |x | Jump 0x167
00e0 e5f9 | | Load 0x2,-0x7
00e1 6810 |h | Jump_Zero 0xf2
00e2 e001 | | Load 0x0,0x1
00e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e4 00db | | Load_Top At_Offset_3
00e5 0120 | | Execute Any,Is_Value
00e6 6803 |h | Jump_Zero 0xea
00e7 e006 | | Load 0x0,0x6
00e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e9 7801 |x | Jump 0xeb
00ea 00db | | Load_Top At_Offset_3
00eb e5f8 | | Load 0x2,-0x8
00ec e5ff | | Load 0x2,-0x1
00ed e004 | | Load 0x0,0x4
00ee 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
00ef c408 | | Store 0x2,0x8
00f0 c403 | | Store 0x2,0x3
00f1 7811 |x | Jump 0x103
00f2 e001 | | Load 0x0,0x1
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 00db | | Load_Top At_Offset_3
00f5 0120 | | Execute Any,Is_Value
00f6 6803 |h | Jump_Zero 0xfa
00f7 e006 | | Load 0x0,0x6
00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f9 7801 |x | Jump 0xfb
00fa 00db | | Load_Top At_Offset_3
00fb e5f8 | | Load 0x2,-0x8
00fc e5fd | | Load 0x2,-0x3
00fd e5ff | | Load 0x2,-0x1
00fe e5fe | | Load 0x2,-0x2
00ff e004 | | Load 0x0,0x4
0100 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0101 c408 | | Store 0x2,0x8
0102 c403 | | Store 0x2,0x3
0103 4800 |H | Short_Literal 0x0
0104 e403 | | Load 0x2,0x3
0105 e001 | | Load 0x0,0x1
0106 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0107 7018 |p | Jump_Nonzero 0x120
0108 e5f8 | | Load 0x2,-0x8
0109 4801 |H | Short_Literal 0x1
010a 4801 |H | Short_Literal 0x1
010b e007 | | Load 0x0,0x7
010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010d 035b | [ | Declare_Type Array,Constrained
010e 0337 | 7 | Declare_Variable Array
010f e5ff | | Load 0x2,-0x1
0110 e003 | | Load 0x0,0x3
0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0112 e007 | | Load 0x0,0x7
0113 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0114 e007 | | Load 0x0,0x7
0115 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0116 0119 | | Execute Any,Check_In_Formal_Type
0117 4801 |H | Short_Literal 0x1
0118 00da | | Load_Top At_Offset_2
0119 01d6 | | Execute Vector,Field_Write
011a 604d |`M | Indirect_Literal Discrete,0x168,{0x00000000, 0x0000880e}
011b e001 | | Load 0x0,0x1
011c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
011d e001 | | Load 0x0,0x1
011e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
011f 0257 | W | Execute Discrete,Raise
0120 00d9 | | Load_Top At_Offset_1
0121 0120 | | Execute Any,Is_Value
0122 6803 |h | Jump_Zero 0x126
0123 e006 | | Load 0x0,0x6
0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0125 7801 |x | Jump 0x127
0126 00d9 | | Load_Top At_Offset_1
0127 e001 | | Load 0x0,0x1
0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0129 4800 |H | Short_Literal 0x0
012a e5fc | | Load 0x2,-0x4
012b e406 | | Load 0x2,0x6
012c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012d e008 | | Load 0x0,0x8
012e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
012f c403 | | Store 0x2,0x3
0130 c409 | | Store 0x2,0x9
0131 4800 |H | Short_Literal 0x0
0132 e403 | | Load 0x2,0x3
0133 e001 | | Load 0x0,0x1
0134 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0135 7029 |p) | Jump_Nonzero 0x15f
0136 e5f8 | | Load 0x2,-0x8
0137 4801 |H | Short_Literal 0x1
0138 4803 |H | Short_Literal 0x3
0139 e007 | | Load 0x0,0x7
013a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013b 035b | [ | Declare_Type Array,Constrained
013c 0337 | 7 | Declare_Variable Array
013d e5ff | | Load 0x2,-0x1
013e e003 | | Load 0x0,0x3
013f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0140 e007 | | Load 0x0,0x7
0141 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0142 e007 | | Load 0x0,0x7
0143 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0144 0119 | | Execute Any,Check_In_Formal_Type
0145 4801 |H | Short_Literal 0x1
0146 00da | | Load_Top At_Offset_2
0147 01d6 | | Execute Vector,Field_Write
0148 e5fb | | Load 0x2,-0x5
0149 e007 | | Load 0x0,0x7
014a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014b e007 | | Load 0x0,0x7
014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014d 0119 | | Execute Any,Check_In_Formal_Type
014e 4802 |H | Short_Literal 0x2
014f 00da | | Load_Top At_Offset_2
0150 01d6 | | Execute Vector,Field_Write
0151 e403 | | Load 0x2,0x3
0152 e001 | | Load 0x0,0x1
0153 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0154 e007 | | Load 0x0,0x7
0155 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0156 0119 | | Execute Any,Check_In_Formal_Type
0157 4803 |H | Short_Literal 0x3
0158 00da | | Load_Top At_Offset_2
0159 01d6 | | Execute Vector,Field_Write
015a 6011 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00008815}
015b e001 | | Load 0x0,0x1
015c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
015d 4804 |H | Short_Literal 0x4
015e 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
015f 00da | | Load_Top At_Offset_2
0160 00da | | Load_Top At_Offset_2
0161 012f | / | Execute Any,Equal
0162 6802 |h | Jump_Zero 0x165
0163 4800 |H | Short_Literal 0x0
0164 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0165 4801 |H | Short_Literal 0x1
0166 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0167 0831 | 1 | Execute_Immediate Raise,0x31
0168 0000 0000 | | .LITERAL {0x00000000, 0x0000880e}
016c 0000 0000 | | .LITERAL {0x00000000, 0x00008815}
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017f | | .CONST 0x017f ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 e002 | | Load 0x0,0x2
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 00e1 | | Load_Encached Boolean_Cache
0179 e5f6 | | Load 0x2,-0xa
017a e5fe | | Load 0x2,-0x2
017b e5f9 | | Load 0x2,-0x7
017c e5fc | | Load 0x2,-0x4
017d e004 | | Load 0x0,0x4
017e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
017f BODY_0170:
017f e5fd | | Load 0x2,-0x3
0180 7003 |p | Jump_Nonzero 0x184
0181 e5fa | | Load 0x2,-0x6
0182 01db | | Execute Vector,Length
0183 706d |pm | Jump_Nonzero 0x1f1
0184 4800 |H | Short_Literal 0x0
0185 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0186 e001 | | Load 0x0,0x1
0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0188 00db | | Load_Top At_Offset_3
0189 0120 | | Execute Any,Is_Value
018a 6803 |h | Jump_Zero 0x18e
018b e002 | | Load 0x0,0x2
018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018d 7801 |x | Jump 0x18f
018e 00db | | Load_Top At_Offset_3
018f e5f6 | | Load 0x2,-0xa
0190 e5f8 | | Load 0x2,-0x8
0191 e5fe | | Load 0x2,-0x2
0192 e5f9 | | Load 0x2,-0x7
0193 e5fb | | Load 0x2,-0x5
0194 e5fc | | Load 0x2,-0x4
0195 e004 | | Load 0x0,0x4
0196 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0197 c402 | | Store 0x2,0x2
0198 c5f5 | | Store 0x2,-0xb
0199 4800 |H | Short_Literal 0x0
019a e5f5 | | Load 0x2,-0xb
019b e001 | | Load 0x0,0x1
019c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
019d 7003 |p | Jump_Nonzero 0x1a1
019e e001 | | Load 0x0,0x1
019f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01a0 0257 | W | Execute Discrete,Raise
01a1 e5ff | | Load 0x2,-0x1
01a2 e002 | | Load 0x0,0x2
01a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a4 6801 |h | Jump_Zero 0x1a6
01a5 7883 |x | Jump 0x229
01a6 e5ff | | Load 0x2,-0x1
01a7 00db | | Load_Top At_Offset_3
01a8 012f | / | Execute Any,Equal
01a9 7025 |p% | Jump_Nonzero 0x1cf
01aa e5f6 | | Load 0x2,-0xa
01ab 4801 |H | Short_Literal 0x1
01ac 4802 |H | Short_Literal 0x2
01ad e007 | | Load 0x0,0x7
01ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01af 035b | [ | Declare_Type Array,Constrained
01b0 0337 | 7 | Declare_Variable Array
01b1 e402 | | Load 0x2,0x2
01b2 e007 | | Load 0x0,0x7
01b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b4 e007 | | Load 0x0,0x7
01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b6 0119 | | Execute Any,Check_In_Formal_Type
01b7 4801 |H | Short_Literal 0x1
01b8 00da | | Load_Top At_Offset_2
01b9 01d6 | | Execute Vector,Field_Write
01ba e5ff | | Load 0x2,-0x1
01bb e003 | | Load 0x0,0x3
01bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01bd e007 | | Load 0x0,0x7
01be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01bf e007 | | Load 0x0,0x7
01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c1 0119 | | Execute Any,Check_In_Formal_Type
01c2 4802 |H | Short_Literal 0x2
01c3 00da | | Load_Top At_Offset_2
01c4 01d6 | | Execute Vector,Field_Write
01c5 6082 |` | Indirect_Literal Discrete,0x248,{0x00000000, 0x00008873}
01c6 e001 | | Load 0x0,0x1
01c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01c8 e007 | | Load 0x0,0x7
01c9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01ca 607d |`} | Indirect_Literal Discrete,0x248,{0x00000000, 0x00008873}
01cb e001 | | Load 0x0,0x1
01cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cd a5f5 | | Store_Unchecked 0x2,-0xb
01ce 450b |E | Exit_Suprogram New_Top_Offset 0xb
01cf e5f6 | | Load 0x2,-0xa
01d0 e5fc | | Load 0x2,-0x4
01d1 e003 | | Load 0x0,0x3
01d2 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
01d3 7055 |pU | Jump_Nonzero 0x229
01d4 e5f6 | | Load 0x2,-0xa
01d5 4801 |H | Short_Literal 0x1
01d6 4802 |H | Short_Literal 0x2
01d7 e007 | | Load 0x0,0x7
01d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d9 035b | [ | Declare_Type Array,Constrained
01da 0337 | 7 | Declare_Variable Array
01db e5fe | | Load 0x2,-0x2
01dc e007 | | Load 0x0,0x7
01dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01de e007 | | Load 0x0,0x7
01df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e0 0119 | | Execute Any,Check_In_Formal_Type
01e1 4801 |H | Short_Literal 0x1
01e2 00da | | Load_Top At_Offset_2
01e3 01d6 | | Execute Vector,Field_Write
01e4 e402 | | Load 0x2,0x2
01e5 e007 | | Load 0x0,0x7
01e6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e7 e007 | | Load 0x0,0x7
01e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e9 0119 | | Execute Any,Check_In_Formal_Type
01ea 4802 |H | Short_Literal 0x2
01eb 00da | | Load_Top At_Offset_2
01ec 01d6 | | Execute Vector,Field_Write
01ed 6056 |`V | Indirect_Literal Discrete,0x244,{0x00000000, 0x00008855}
01ee e001 | | Load 0x0,0x1
01ef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01f0 7838 |x8 | Jump 0x229
01f1 4801 |H | Short_Literal 0x1
01f2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01f3 e001 | | Load 0x0,0x1
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 e5f6 | | Load 0x2,-0xa
01f6 4801 |H | Short_Literal 0x1
01f7 e5f8 | | Load 0x2,-0x8
01f8 e5fa | | Load 0x2,-0x6
01f9 e5fe | | Load 0x2,-0x2
01fa e5f9 | | Load 0x2,-0x7
01fb e5fb | | Load 0x2,-0x5
01fc e5fc | | Load 0x2,-0x4
01fd e004 | | Load 0x0,0x4
01fe 188a | | Execute Package,Field_Execute,Field_Number 0x8a
01ff c5f5 | | Store 0x2,-0xb
0200 4800 |H | Short_Literal 0x0
0201 e5f5 | | Load 0x2,-0xb
0202 e001 | | Load 0x0,0x1
0203 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0204 7003 |p | Jump_Nonzero 0x208
0205 e001 | | Load 0x0,0x1
0206 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0207 0257 | W | Execute Discrete,Raise
0208 e5f6 | | Load 0x2,-0xa
0209 e5fc | | Load 0x2,-0x4
020a e003 | | Load 0x0,0x3
020b 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
020c 701c |p | Jump_Nonzero 0x229
020d e5f6 | | Load 0x2,-0xa
020e 4801 |H | Short_Literal 0x1
020f 4802 |H | Short_Literal 0x2
0210 e007 | | Load 0x0,0x7
0211 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0212 035b | [ | Declare_Type Array,Constrained
0213 0337 | 7 | Declare_Variable Array
0214 e5fe | | Load 0x2,-0x2
0215 e007 | | Load 0x0,0x7
0216 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0217 e007 | | Load 0x0,0x7
0218 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0219 0119 | | Execute Any,Check_In_Formal_Type
021a 4801 |H | Short_Literal 0x1
021b 00da | | Load_Top At_Offset_2
021c 01d6 | | Execute Vector,Field_Write
021d e5fa | | Load 0x2,-0x6
021e e007 | | Load 0x0,0x7
021f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0220 e007 | | Load 0x0,0x7
0221 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0222 0119 | | Execute Any,Check_In_Formal_Type
0223 4802 |H | Short_Literal 0x2
0224 00da | | Load_Top At_Offset_2
0225 01d6 | | Execute Vector,Field_Write
0226 6019 |` | Indirect_Literal Discrete,0x240,{0x00000000, 0x00008838}
0227 e001 | | Load 0x0,0x1
0228 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0229 e5f7 | | Load 0x2,-0x9
022a 6813 |h | Jump_Zero 0x23e
022b e001 | | Load 0x0,0x1
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 00da | | Load_Top At_Offset_2
022e e5f8 | | Load 0x2,-0x8
022f e5f9 | | Load 0x2,-0x7
0230 e404 | | Load 0x2,0x4
0231 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0232 e5fc | | Load 0x2,-0x4
0233 e5ff | | Load 0x2,-0x1
0234 821a | | Call 0x1,0x1a
0235 c5f5 | | Store 0x2,-0xb
0236 4800 |H | Short_Literal 0x0
0237 e5f5 | | Load 0x2,-0xb
0238 e001 | | Load 0x0,0x1
0239 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
023a 7003 |p | Jump_Nonzero 0x23e
023b e001 | | Load 0x0,0x1
023c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
023d 0257 | W | Execute Discrete,Raise
023e 450b |E | Exit_Suprogram New_Top_Offset 0xb
023f 0000 | | .XXX[0x1]
0240 0000 0000 | | .LITERAL {0x00000000, 0x00008838}
0244 0000 0000 | | .LITERAL {0x00000000, 0x00008855}
0248 0000 0000 | | .LITERAL {0x00000000, 0x00008873}
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025f | _ | .CONST 0x025f ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 e5fa | | Load 0x2,-0x6
0254 00db | | Load_Top At_Offset_3
0255 e5fd | | Load 0x2,-0x3
0256 e5fe | | Load 0x2,-0x2
0257 e004 | | Load 0x0,0x4
0258 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0259 e5fa | | Load 0x2,-0x6
025a e5fd | | Load 0x2,-0x3
025b e5ff | | Load 0x2,-0x1
025c e5fe | | Load 0x2,-0x2
025d e004 | | Load 0x0,0x4
025e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
025f BODY_0250:
025f 4800 |H | Short_Literal 0x0
0260 00da | | Load_Top At_Offset_2
0261 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0262 e001 | | Load 0x0,0x1
0263 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0264 7019 |p | Jump_Nonzero 0x27e
0265 e5fa | | Load 0x2,-0x6
0266 4801 |H | Short_Literal 0x1
0267 4801 |H | Short_Literal 0x1
0268 e007 | | Load 0x0,0x7
0269 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026a 035b | [ | Declare_Type Array,Constrained
026b 0337 | 7 | Declare_Variable Array
026c e5ff | | Load 0x2,-0x1
026d e003 | | Load 0x0,0x3
026e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026f e007 | | Load 0x0,0x7
0270 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0271 e007 | | Load 0x0,0x7
0272 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0273 0119 | | Execute Any,Check_In_Formal_Type
0274 4801 |H | Short_Literal 0x1
0275 00da | | Load_Top At_Offset_2
0276 01d6 | | Execute Vector,Field_Write
0277 60d4 |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x0000880a}
0278 e001 | | Load 0x0,0x1
0279 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
027a 00d9 | | Load_Top At_Offset_1
027b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027c a5f9 | | Store_Unchecked 0x2,-0x7
027d 4507 |E | Exit_Suprogram New_Top_Offset 0x7
027e 4800 |H | Short_Literal 0x0
027f 00d9 | | Load_Top At_Offset_1
0280 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0281 e001 | | Load 0x0,0x1
0282 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0283 7019 |p | Jump_Nonzero 0x29d
0284 e5fa | | Load 0x2,-0x6
0285 4801 |H | Short_Literal 0x1
0286 4801 |H | Short_Literal 0x1
0287 e007 | | Load 0x0,0x7
0288 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0289 035b | [ | Declare_Type Array,Constrained
028a 0337 | 7 | Declare_Variable Array
028b e5ff | | Load 0x2,-0x1
028c e003 | | Load 0x0,0x3
028d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028e e007 | | Load 0x0,0x7
028f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0290 e007 | | Load 0x0,0x7
0291 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0292 0119 | | Execute Any,Check_In_Formal_Type
0293 4801 |H | Short_Literal 0x1
0294 00da | | Load_Top At_Offset_2
0295 01d6 | | Execute Vector,Field_Write
0296 60b5 |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0x0000880a}
0297 e001 | | Load 0x0,0x1
0298 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0299 00d8 | | Load_Top At_Offset_0
029a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
029b a5f9 | | Store_Unchecked 0x2,-0x7
029c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
029d e5fa | | Load 0x2,-0x6
029e e5fe | | Load 0x2,-0x2
029f e003 | | Load 0x0,0x3
02a0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02a1 682e |h. | Jump_Zero 0x2d0
02a2 e5fa | | Load 0x2,-0x6
02a3 4801 |H | Short_Literal 0x1
02a4 4803 |H | Short_Literal 0x3
02a5 e007 | | Load 0x0,0x7
02a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a7 035b | [ | Declare_Type Array,Constrained
02a8 0337 | 7 | Declare_Variable Array
02a9 e5ff | | Load 0x2,-0x1
02aa e003 | | Load 0x0,0x3
02ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02ac e007 | | Load 0x0,0x7
02ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ae e007 | | Load 0x0,0x7
02af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b0 0119 | | Execute Any,Check_In_Formal_Type
02b1 4801 |H | Short_Literal 0x1
02b2 00da | | Load_Top At_Offset_2
02b3 01d6 | | Execute Vector,Field_Write
02b4 00da | | Load_Top At_Offset_2
02b5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02b6 e007 | | Load 0x0,0x7
02b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b8 e007 | | Load 0x0,0x7
02b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ba 0119 | | Execute Any,Check_In_Formal_Type
02bb 4802 |H | Short_Literal 0x2
02bc 00da | | Load_Top At_Offset_2
02bd 01d6 | | Execute Vector,Field_Write
02be 0092 046e | n| Action Push_String_Extended,0x46e ; "Remote machine is inaccessible when Host_Only = True"
02c0 e007 | | Load 0x0,0x7
02c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02c2 e007 | | Load 0x0,0x7
02c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c4 0119 | | Execute Any,Check_In_Formal_Type
02c5 4803 |H | Short_Literal 0x3
02c6 00da | | Load_Top At_Offset_2
02c7 01d6 | | Execute Vector,Field_Write
02c8 4806 |H | Short_Literal 0x6
02c9 607e |`~ | Indirect_Literal Discrete,0x348,{0x00000000, 0x00008854}
02ca e001 | | Load 0x0,0x1
02cb 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02cc 00d8 | | Load_Top At_Offset_0
02cd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ce a5f9 | | Store_Unchecked 0x2,-0x7
02cf 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02d0 e001 | | Load 0x0,0x1
02d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d2 e009 | | Load 0x0,0x9
02d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d4 e009 | | Load 0x0,0x9
02d5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
02d6 e009 | | Load 0x0,0x9
02d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d8 e009 | | Load 0x0,0x9
02d9 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02da 484d |HM | Short_Literal 0x4d
02db e009 | | Load 0x0,0x9
02dc 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
02dd e009 | | Load 0x0,0x9
02de 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
02df 4800 |H | Short_Literal 0x0
02e0 e009 | | Load 0x0,0x9
02e1 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
02e2 e5fe | | Load 0x2,-0x2
02e3 e003 | | Load 0x0,0x3
02e4 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
02e5 4800 |H | Short_Literal 0x0
02e6 e5fc | | Load 0x2,-0x4
02e7 e402 | | Load 0x2,0x2
02e8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e9 e5ff | | Load 0x2,-0x1
02ea e003 | | Load 0x0,0x3
02eb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02ec e008 | | Load 0x0,0x8
02ed 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02ee c5f9 | | Store 0x2,-0x7
02ef 4800 |H | Short_Literal 0x0
02f0 e5f9 | | Load 0x2,-0x7
02f1 e001 | | Load 0x0,0x1
02f2 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02f3 702b |p+ | Jump_Nonzero 0x31f
02f4 e5fa | | Load 0x2,-0x6
02f5 4801 |H | Short_Literal 0x1
02f6 4803 |H | Short_Literal 0x3
02f7 e007 | | Load 0x0,0x7
02f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f9 035b | [ | Declare_Type Array,Constrained
02fa 0337 | 7 | Declare_Variable Array
02fb e5ff | | Load 0x2,-0x1
02fc e003 | | Load 0x0,0x3
02fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02fe e007 | | Load 0x0,0x7
02ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0300 e007 | | Load 0x0,0x7
0301 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0302 0119 | | Execute Any,Check_In_Formal_Type
0303 4801 |H | Short_Literal 0x1
0304 00da | | Load_Top At_Offset_2
0305 01d6 | | Execute Vector,Field_Write
0306 00da | | Load_Top At_Offset_2
0307 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0308 e007 | | Load 0x0,0x7
0309 1810 | | Execute Package,Field_Execute,Field_Number 0x10
030a e007 | | Load 0x0,0x7
030b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030c 0119 | | Execute Any,Check_In_Formal_Type
030d 4802 |H | Short_Literal 0x2
030e 00da | | Load_Top At_Offset_2
030f 01d6 | | Execute Vector,Field_Write
0310 e5f9 | | Load 0x2,-0x7
0311 e001 | | Load 0x0,0x1
0312 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0313 e007 | | Load 0x0,0x7
0314 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0315 e007 | | Load 0x0,0x7
0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0317 0119 | | Execute Any,Check_In_Formal_Type
0318 4803 |H | Short_Literal 0x3
0319 00da | | Load_Top At_Offset_2
031a 01d6 | | Execute Vector,Field_Write
031b 602c |`, | Indirect_Literal Discrete,0x348,{0x00000000, 0x00008854}
031c e001 | | Load 0x0,0x1
031d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
031e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
031f e5fb | | Load 0x2,-0x5
0320 6822 |h" | Jump_Zero 0x343
0321 e001 | | Load 0x0,0x1
0322 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0323 e5fa | | Load 0x2,-0x6
0324 e5fc | | Load 0x2,-0x4
0325 e5fd | | Load 0x2,-0x3
0326 e5ff | | Load 0x2,-0x1
0327 e5fe | | Load 0x2,-0x2
0328 e004 | | Load 0x0,0x4
0329 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
032a c5f9 | | Store 0x2,-0x7
032b 4800 |H | Short_Literal 0x0
032c e5f9 | | Load 0x2,-0x7
032d e001 | | Load 0x0,0x1
032e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
032f 7013 |p | Jump_Nonzero 0x343
0330 e5fa | | Load 0x2,-0x6
0331 4801 |H | Short_Literal 0x1
0332 4801 |H | Short_Literal 0x1
0333 e007 | | Load 0x0,0x7
0334 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0335 035b | [ | Declare_Type Array,Constrained
0336 0337 | 7 | Declare_Variable Array
0337 e5ff | | Load 0x2,-0x1
0338 e007 | | Load 0x0,0x7
0339 181a | | Execute Package,Field_Execute,Field_Number 0x1a
033a e007 | | Load 0x0,0x7
033b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033c 0119 | | Execute Any,Check_In_Formal_Type
033d 4801 |H | Short_Literal 0x1
033e 00da | | Load_Top At_Offset_2
033f 01d6 | | Execute Vector,Field_Write
0340 6003 |` | Indirect_Literal Discrete,0x344,{0x00000000, 0x00008892}
0341 e001 | | Load 0x0,0x1
0342 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0343 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0344 0000 0000 | | .LITERAL {0x00000000, 0x00008892}
0348 0000 0000 | | .LITERAL {0x00000000, 0x00008854}
034c 0000 0000 | | .LITERAL {0x00000000, 0x0000880a}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e5fc | | Load 0x2,-0x4
0354 700e |p | Jump_Nonzero 0x363
0355 00da | | Load_Top At_Offset_2
0356 e003 | | Load 0x0,0x3
0357 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0358 0092 046f | o| Action Push_String_Extended,0x46f ; ".units."
035a 01cc | | Execute Vector,Catenate
035b e5fe | | Load 0x2,-0x2
035c e003 | | Load 0x0,0x3
035d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
035e 01cc | | Execute Vector,Catenate
035f 0092 0470 | p| Action Push_String_Extended,0x470 ; "_tmp"
0361 01cc | | Execute Vector,Catenate
0362 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0363 e5fd | | Load 0x2,-0x3
0364 e003 | | Load 0x0,0x3
0365 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0366 0092 0470 | p| Action Push_String_Extended,0x470 ; "_tmp"
0368 01cc | | Execute Vector,Catenate
0369 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037b | { | .CONST 0x037b ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0003 | | .CONST 0x0003 ; Number of locals
0373 INIT_0370:
0373 e006 | | Load 0x0,0x6
0374 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0375 02c7 | | Declare_Variable Any
0376 00d8 | | Load_Top At_Offset_0
0377 1c00 | | Execute_Immediate Run_Utility,0x0
0378 e001 | | Load 0x0,0x1
0379 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
037b BODY_0370:
037b 00d9 | | Load_Top At_Offset_1
037c 0120 | | Execute Any,Is_Value
037d 6803 |h | Jump_Zero 0x381
037e e006 | | Load 0x0,0x6
037f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0380 7801 |x | Jump 0x382
0381 00d9 | | Load_Top At_Offset_1
0382 e001 | | Load 0x0,0x1
0383 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0384 e009 | | Load 0x0,0x9
0385 180e | | Execute Package,Field_Execute,Field_Number 0xe
0386 e009 | | Load 0x0,0x9
0387 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0388 e009 | | Load 0x0,0x9
0389 180e | | Execute Package,Field_Execute,Field_Number 0xe
038a e009 | | Load 0x0,0x9
038b 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
038c 484d |HM | Short_Literal 0x4d
038d e009 | | Load 0x0,0x9
038e 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
038f e009 | | Load 0x0,0x9
0390 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0391 4800 |H | Short_Literal 0x0
0392 e009 | | Load 0x0,0x9
0393 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0394 e5fe | | Load 0x2,-0x2
0395 e003 | | Load 0x0,0x3
0396 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0397 e5fb | | Load 0x2,-0x5
0398 e5fd | | Load 0x2,-0x3
0399 e008 | | Load 0x0,0x8
039a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
039b 005a | Z | Store_Top Discrete,At_Offset_2
039c c402 | | Store 0x2,0x2
039d 4800 |H | Short_Literal 0x0
039e 00d9 | | Load_Top At_Offset_1
039f e001 | | Load 0x0,0x1
03a0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03a1 7003 |p | Jump_Nonzero 0x3a5
03a2 e001 | | Load 0x0,0x1
03a3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03a4 0257 | W | Execute Discrete,Raise
03a5 e5fa | | Load 0x2,-0x6
03a6 6818 |h | Jump_Zero 0x3bf
03a7 e001 | | Load 0x0,0x1
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 e009 | | Load 0x0,0x9
03aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ab e009 | | Load 0x0,0x9
03ac 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03ad e009 | | Load 0x0,0x9
03ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
03af e009 | | Load 0x0,0x9
03b0 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03b1 484d |HM | Short_Literal 0x4d
03b2 e009 | | Load 0x0,0x9
03b3 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
03b4 e009 | | Load 0x0,0x9
03b5 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03b6 4800 |H | Short_Literal 0x0
03b7 e009 | | Load 0x0,0x9
03b8 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03b9 00db | | Load_Top At_Offset_3
03ba e5ff | | Load 0x2,-0x1
03bb e004 | | Load 0x0,0x4
03bc 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
03bd 0059 | Y | Store_Top Discrete,At_Offset_1
03be 7819 |x | Jump 0x3d8
03bf e001 | | Load 0x0,0x1
03c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c1 e009 | | Load 0x0,0x9
03c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c3 e009 | | Load 0x0,0x9
03c4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03c5 e009 | | Load 0x0,0x9
03c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c7 e009 | | Load 0x0,0x9
03c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03c9 484d |HM | Short_Literal 0x4d
03ca e009 | | Load 0x0,0x9
03cb 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
03cc e009 | | Load 0x0,0x9
03cd 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03ce 4800 |H | Short_Literal 0x0
03cf e009 | | Load 0x0,0x9
03d0 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03d1 e5fc | | Load 0x2,-0x4
03d2 e402 | | Load 0x2,0x2
03d3 e5ff | | Load 0x2,-0x1
03d4 e5fe | | Load 0x2,-0x2
03d5 e004 | | Load 0x0,0x4
03d6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03d7 0059 | Y | Store_Top Discrete,At_Offset_1
03d8 4800 |H | Short_Literal 0x0
03d9 00d9 | | Load_Top At_Offset_1
03da e001 | | Load 0x0,0x1
03db 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03dc 7025 |p% | Jump_Nonzero 0x402
03dd e009 | | Load 0x0,0x9
03de 180e | | Execute Package,Field_Execute,Field_Number 0xe
03df e009 | | Load 0x0,0x9
03e0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03e1 e009 | | Load 0x0,0x9
03e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e3 e009 | | Load 0x0,0x9
03e4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03e5 484d |HM | Short_Literal 0x4d
03e6 e009 | | Load 0x0,0x9
03e7 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
03e8 e009 | | Load 0x0,0x9
03e9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03ea 4800 |H | Short_Literal 0x0
03eb e009 | | Load 0x0,0x9
03ec 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
03ed 4801 |H | Short_Literal 0x1
03ee 4801 |H | Short_Literal 0x1
03ef e007 | | Load 0x0,0x7
03f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f1 035b | [ | Declare_Type Array,Constrained
03f2 0337 | 7 | Declare_Variable Array
03f3 e5ff | | Load 0x2,-0x1
03f4 e007 | | Load 0x0,0x7
03f5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03f6 e007 | | Load 0x0,0x7
03f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f8 0119 | | Execute Any,Check_In_Formal_Type
03f9 4801 |H | Short_Literal 0x1
03fa 00da | | Load_Top At_Offset_2
03fb 01d6 | | Execute Vector,Field_Write
03fc 600b |` | Indirect_Literal Discrete,0x408,{0x00000000, 0x00008892}
03fd e001 | | Load 0x0,0x1
03fe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03ff e001 | | Load 0x0,0x1
0400 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0401 0257 | W | Execute Discrete,Raise
0402 00d8 | | Load_Top At_Offset_0
0403 a5f9 | | Store_Unchecked 0x2,-0x7
0404 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 0000 0000 | | .LITERAL {0x00000000, 0x00008892}
040c 0000 0000 | | .BLANK 0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0426 | & | .CONST 0x0426 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0005 | | .CONST 0x0005 ; Number of locals
0413 INIT_0410:
0413 0092 0470 | p| Action Push_String_Extended,0x470 ; "_tmp"
0415 e5f9 | | Load 0x2,-0x7
0416 e404 | | Load 0x2,0x4
0417 e5ff | | Load 0x2,-0x1
0418 e5fe | | Load 0x2,-0x2
0419 8219 | | Call 0x1,0x19
041a e212 | | Load 0x1,0x12
041b 0007 | | Action Break_Optional
041c e00a | | Load 0x0,0xa
041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041e 02c7 | | Declare_Variable Any
041f 00d8 | | Load_Top At_Offset_0
0420 1c00 | | Execute_Immediate Run_Utility,0x0
0421 e002 | | Load 0x0,0x2
0422 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0423 02c7 | | Declare_Variable Any
0424 00d8 | | Load_Top At_Offset_0
0425 1c00 | | Execute_Immediate Run_Utility,0x0
0426 BODY_0410:
0426 e001 | | Load 0x0,0x1
0427 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0428 e5f8 | | Load 0x2,-0x8
0429 4800 |H | Short_Literal 0x0
042a e5fc | | Load 0x2,-0x4
042b e602 | | Load 0x3,0x2
042c e5fb | | Load 0x2,-0x5
042d e5fd | | Load 0x2,-0x3
042e e405 | | Load 0x2,0x5
042f e5fe | | Load 0x2,-0x2
0430 e004 | | Load 0x0,0x4
0431 188a | | Execute Package,Field_Execute,Field_Number 0x8a
0432 c403 | | Store 0x2,0x3
0433 4800 |H | Short_Literal 0x0
0434 e403 | | Load 0x2,0x3
0435 e001 | | Load 0x0,0x1
0436 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0437 7005 |p | Jump_Nonzero 0x43d
0438 4804 |H | Short_Literal 0x4
0439 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
043a 00da | | Load_Top At_Offset_2
043b 00cb | | Action Pop_Block_With_Result
043c 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
043d e5f9 | | Load 0x2,-0x7
043e 6803 |h | Jump_Zero 0x442
043f e404 | | Load 0x2,0x4
0440 c605 | | Store 0x3,0x5
0441 7802 |x | Jump 0x444
0442 e5ff | | Load 0x2,-0x1
0443 c605 | | Store 0x3,0x5
0444 00ea | | Load_Encached Null_String_Cache
0445 4800 |H | Short_Literal 0x0
0446 4800 |H | Short_Literal 0x0
0447 00db | | Load_Top At_Offset_3
0448 e003 | | Load 0x0,0x3
0449 1817 | | Execute Package,Field_Execute,Field_Number 0x17
044a e602 | | Load 0x3,0x2
044b e00b | | Load 0x0,0xb
044c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044d 6803 |h | Jump_Zero 0x451
044e 4800 |H | Short_Literal 0x0
044f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0450 780b |x | Jump 0x45c
0451 4801 |H | Short_Literal 0x1
0452 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0453 4800 |H | Short_Literal 0x0
0454 4801 |H | Short_Literal 0x1
0455 00ea | | Load_Encached Null_String_Cache
0456 00db | | Load_Top At_Offset_3
0457 e003 | | Load 0x0,0x3
0458 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0459 e602 | | Load 0x3,0x2
045a e00b | | Load 0x0,0xb
045b 180f | | Execute Package,Field_Execute,Field_Number 0xf
045c 0092 0471 | q| Action Push_String_Extended,0x471 ; "<QUIET>"
045e e00c | | Load 0x0,0xc
045f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0460 4801 |H | Short_Literal 0x1
0461 e602 | | Load 0x3,0x2
0462 e00c | | Load 0x0,0xc
0463 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0464 00da | | Load_Top At_Offset_2
0465 00cb | | Action Pop_Block_With_Result
0466 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0467 ; --------------------------------------------------------------------------------------
0467 ; STRING TABLE
0467 ; --------------------------------------------------------------------------------------
0467 0018 | | .STRTAB 0x0018->0x0473 ; "IS_CONSISTENT"
0468 0023 | # | .STRTAB 0x0023->0x0479 ; "CHANGED_ON_REMOTE"
0469 0032 | 2 | .STRTAB 0x0032->0x0482 ; "CHANGED_ON_HOST"
046a 003f | ? | .STRTAB 0x003f->0x0489 ; "CHANGED_ON_BOTH"
046b 004c | L | .STRTAB 0x004c->0x0491 ; "NOT_ON_REMOTE"
046c 0057 | W | .STRTAB 0x0057->0x0497 ; "ERROR_OCCURRED"
046d 0063 | c | .STRTAB 0x0063->0x049e ; "Remote unit is inaccessible when Host_Only = True"
046e 0092 | | .STRTAB 0x0092->0x04b7 ; "Remote machine is inaccessible when Host_Only = True"
046f 00c4 | | .STRTAB 0x00c4->0x04d1 ; ".units."
0470 00c9 | | .STRTAB 0x00c9->0x04d4 ; "_tmp"
0471 00cb | | .STRTAB 0x00cb->0x04d6 ; "<QUIET>"
0472 00d0 | | .STREND 0x00d0->0x04da
0473 4953 5f43 |IS_C| .STRTAB_STRINGS
04da 0000 0000 | | .BLANK 0000[0x6]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug Table
04e0 ; --------------------------------------------------------------------------------------
04e0 0004 000e | | .DEBUG4 0x0004,0x000e,0xcc9a,0x0000,0x0001,0x0000
04e6 0000 0000 | | .XXX[0x6]
04e8 0200 0010 | |
04ea 3de1 f000 |= |
04ec 0000 0000 | | .BLANK 0000[0x8]
04f4 cb00 07d8 | | .XXX[0x19]
04f6 0001 4695 | F |
04f8 2800 0200 |( |
04fa 2800 1660 |( `|
04fc 0000 1969 | i|
04fe 4000 0040 |@ @|
0500 0000 0060 | `|
0502 0500 0000 | |
0504 0100 0000 | |
0506 4000 0002 |@ |
0508 2000 0000 | |
050a 0100 0000 | |
050c 0a00 | |
050d 0000 0000 | | .BLANK 0000[0xb]
0518 0040 0002 | @ | .XXX[0x4]
051a 07bb d700 | |
051c 0000 0000 | | .BLANK 0000[0x11]
052d 1960 00fb | ` | .XXX[0x1c]
052f 4000 28d2 |@ ( |
0531 a500 0040 | @|
0533 0500 02cc | |
0535 0000 032c | ,|
0537 ae00 0008 | |
0539 0000 003c | <|
053b 00a0 0000 | |
053d 1440 0000 | @ |
053f 0800 0000 | |
0541 4400 0000 |D |
0543 0020 0000 | |
0545 0148 0000 | H |
0547 40f7 3ac0 |@ : |
0549 0000 0000 | | .BLANK 0000[0x2b]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]