|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0640 | @ | .CONST 0x0640 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007b | { | .CONST 0x007b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0011 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0015 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0017 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0019 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
001b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
001d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001f 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0021 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0023 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0025 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0027 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0029 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002b 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
002d 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
002f 00bf | | Action Accept_Activation
0030 0092 05db | | Action Push_String_Extended,0x5db ; "DTIA"
0032 0092 05dc | | Action Push_String_Extended,0x5dc ; "RATIONAL"
0034 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call
0036 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call
0038 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
003a 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
003c 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
003e 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
0040 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
0042 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
0044 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0045 00c7 | | Action Elaborate_Subprogram
0046 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0049 00c7 | | Action Elaborate_Subprogram
004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004b 00c7 | | Action Elaborate_Subprogram
004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004d 00c7 | | Action Elaborate_Subprogram
004e 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
0050 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
0052 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call
0054 e001 | | Load 0x0,0x1
0055 e002 | | Load 0x0,0x2
0056 e003 | | Load 0x0,0x3
0057 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0058 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0059 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
005a e004 | | Load 0x0,0x4
005b 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
005c 0387 | | Declare_Variable Package
005d 00d8 | | Load_Top At_Offset_0
005e 020f | | Execute Module,Activate
005f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0060 00c7 | | Action Elaborate_Subprogram
0061 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0062 00c7 | | Action Elaborate_Subprogram
0063 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0064 00c7 | | Action Elaborate_Subprogram
0065 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0066 00c7 | | Action Elaborate_Subprogram
0067 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0068 00c7 | | Action Elaborate_Subprogram
0069 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006a 00c7 | | Action Elaborate_Subprogram
006b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006c 00c7 | | Action Elaborate_Subprogram
006d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006e 00c7 | | Action Elaborate_Subprogram
006f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0078 00c7 | | Action Elaborate_Subprogram
0079 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007a 00c7 | | Action Elaborate_Subprogram
007b BODY_0008:
007b 00bc | | Action Signal_Activated
007c 00bb | | Action Signal_Completion
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 8228 | ( | Call 0x1,0x28
0085 00db | | Load_Top At_Offset_3
0086 8227 | ' | Call 0x1,0x27
0087 e5fe | | Load 0x2,-0x2
0088 e5ff | | Load 0x2,-0x1
0089 8226 | & | Call 0x1,0x26
008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095 | | .CONST 0x0095 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e005 | | Load 0x0,0x5
0094 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0095 BODY_0090:
0095 00db | | Load_Top At_Offset_3
0096 0219 | | Execute Heap_Access,All_Read
0097 00d8 | | Load_Top At_Offset_0
0098 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0099 e006 | | Load 0x0,0x6
009a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009b 00d9 | | Load_Top At_Offset_1
009c 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
009d 00d1 | | Pop_Control Pop_Count_1
009e 00db | | Load_Top At_Offset_3
009f e5ff | | Load 0x2,-0x1
00a0 0217 | | Execute Heap_Access,All_Reference
00a1 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
00a2 0217 | | Execute Heap_Access,All_Reference
00a3 e007 | | Load 0x0,0x7
00a4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00a5 8229 | ) | Call 0x1,0x29
00a6 c5ff | | Store 0x2,-0x1
00a7 00db | | Load_Top At_Offset_3
00a8 0217 | | Execute Heap_Access,All_Reference
00a9 250d |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xd
00aa e005 | | Load 0x0,0x5
00ab 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ac 01df | | Execute Vector,Equal
00ad 6818 |h | Jump_Zero 0xc6
00ae 00db | | Load_Top At_Offset_3
00af 0219 | | Execute Heap_Access,All_Read
00b0 00d8 | | Load_Top At_Offset_0
00b1 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
00b2 4802 |H | Short_Literal 0x2
00b3 4822 |H" | Short_Literal 0x22
00b4 0092 05dd | | Action Push_String_Extended,0x5dd ; "Unable to resolve hostname \x22"
00b6 e5ff | | Load 0x2,-0x1
00b7 0217 | | Execute Heap_Access,All_Reference
00b8 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
00b9 0217 | | Execute Heap_Access,All_Reference
00ba e007 | | Load 0x0,0x7
00bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00bc 01cc | | Execute Vector,Catenate
00bd 01cb | | Execute Vector,Append
00be 0092 05de | | Action Push_String_Extended,0x5de ; "UNKNOWN_HOST"
00c0 e006 | | Load 0x0,0x6
00c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c2 00d9 | | Load_Top At_Offset_1
00c3 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
00c4 00d1 | | Pop_Control Pop_Count_1
00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c6 00db | | Load_Top At_Offset_3
00c7 0219 | | Execute Heap_Access,All_Read
00c8 e005 | | Load 0x0,0x5
00c9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00ca 00d9 | | Load_Top At_Offset_1
00cb 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
00cc 0120 | | Execute Any,Is_Value
00cd 6803 |h | Jump_Zero 0xd1
00ce e008 | | Load 0x0,0x8
00cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d0 7802 |x | Jump 0xd3
00d1 00d9 | | Load_Top At_Offset_1
00d2 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
00d3 e005 | | Load 0x0,0x5
00d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d5 e009 | | Load 0x0,0x9
00d6 e008 | | Load 0x0,0x8
00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d8 00da | | Load_Top At_Offset_2
00d9 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
00da 005a | Z | Store_Top Discrete,At_Offset_2
00db 00d1 | | Pop_Control Pop_Count_1
00dc 00d8 | | Load_Top At_Offset_0
00dd e5ff | | Load 0x2,-0x1
00de 8225 | % | Call 0x1,0x25
00df e005 | | Load 0x0,0x5
00e0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e1 601a |` | Indirect_Literal Discrete,0xfc,{0x00007fff, 0xffffffff}
00e2 e5ff | | Load 0x2,-0x1
00e3 0217 | | Execute Heap_Access,All_Reference
00e4 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
00e5 e5ff | | Load 0x2,-0x1
00e6 0217 | | Execute Heap_Access,All_Reference
00e7 250d |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0xd
00e8 e5ff | | Load 0x2,-0x1
00e9 0217 | | Execute Heap_Access,All_Reference
00ea 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
00eb e008 | | Load 0x0,0x8
00ec 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ed 0059 | Y | Store_Top Discrete,At_Offset_1
00ee 00d8 | | Load_Top At_Offset_0
00ef e5ff | | Load 0x2,-0x1
00f0 8225 | % | Call 0x1,0x25
00f1 e00a | | Load 0x0,0xa
00f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f3 e5ff | | Load 0x2,-0x1
00f4 0217 | | Execute Heap_Access,All_Reference
00f5 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
00f6 e008 | | Load 0x0,0x8
00f7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f9 0000 0000 | | .XXX[0x3]
00fb 0000 | |
00fc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 0217 | | Execute Heap_Access,All_Reference
0105 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0106 700a |p | Jump_Nonzero 0x111
0107 00da | | Load_Top At_Offset_2
0108 0217 | | Execute Heap_Access,All_Reference
0109 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
010a e008 | | Load 0x0,0x8
010b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010c 00da | | Load_Top At_Offset_2
010d 0217 | | Execute Heap_Access,All_Reference
010e 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
010f e008 | | Load 0x0,0x8
0110 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0111 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00db | | Load_Top At_Offset_3
011c 00db | | Load_Top At_Offset_3
011d 0217 | | Execute Heap_Access,All_Reference
011e 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
011f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0127 | ' | .CONST 0x0127 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 00db | | Load_Top At_Offset_3
0124 e004 | | Load 0x0,0x4
0125 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0126 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0127 BODY_0120:
0127 00d8 | | Load_Top At_Offset_0
0128 e5ff | | Load 0x2,-0x1
0129 e22d | - | Load 0x1,0x2d
012a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137 | 7 | .CONST 0x0137 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 e004 | | Load 0x0,0x4
0135 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0136 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0137 BODY_0130:
0137 00d8 | | Load_Top At_Offset_0
0138 e5ff | | Load 0x2,-0x1
0139 e22d | - | Load 0x1,0x2d
013a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0146 | F | .CONST 0x0146 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 00e1 | | Load_Encached Boolean_Cache
0145 03f1 | | Declare_Variable Discrete,With_Value
0146 BODY_0140:
0146 00d8 | | Load_Top At_Offset_0
0147 e5ff | | Load 0x2,-0x1
0148 e22d | - | Load 0x1,0x2d
0149 1820 | | Execute Package,Field_Execute,Field_Number 0x20
014a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00db | | Load_Top At_Offset_3
0154 00db | | Load_Top At_Offset_3
0155 e22d | - | Load 0x1,0x2d
0156 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0157 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015f | _ | .CONST 0x015f ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c e004 | | Load 0x0,0x4
015d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
015f BODY_0158:
015f 00d8 | | Load_Top At_Offset_0
0160 e5ff | | Load 0x2,-0x1
0161 e22d | - | Load 0x1,0x2d
0162 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0163 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0181 | | .CONST 0x0181 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0003 | | .CONST 0x0003 ; Number of locals
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 01db | | Execute Vector,Length
016d 00e3 | | Load_Encached Natural_Cache
016e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
016f e5fe | | Load 0x2,-0x2
0170 01dd | | Execute Vector,First
0171 e5fe | | Load 0x2,-0x2
0172 01dc | | Execute Vector,Last
0173 e5fe | | Load 0x2,-0x2
0174 01db | | Execute Vector,Length
0175 4801 |H | Short_Literal 0x1
0176 0279 | y | Execute Discrete,And
0177 0273 | s | Execute Discrete,Plus
0178 00d8 | | Load_Top At_Offset_0
0179 00e2 | | Load_Encached Integer_Cache
017a 0260 | ` | Execute Discrete,In_Type
017b 7001 |p | Jump_Nonzero 0x17d
017c 0801 | | Execute_Immediate Raise,0x1
017d e00b | | Load 0x0,0xb
017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017f 035b | [ | Declare_Type Array,Constrained
0180 0337 | 7 | Declare_Variable Array
0181 BODY_0168:
0181 00cf | | Action Mark_Auxiliary
0182 e5fe | | Load 0x2,-0x2
0183 01d9 | | Execute Vector,Reverse_Bounds
0184 0263 | c | Execute Discrete,Above_Bound
0185 7008 |p | Jump_Nonzero 0x18e
0186 00d8 | | Load_Top At_Offset_0
0187 e5fe | | Load 0x2,-0x2
0188 01d7 | | Execute Vector,Field_Read
0189 00d9 | | Load_Top At_Offset_1
018a e403 | | Load 0x2,0x3
018b 01d6 | | Execute Vector,Field_Write
018c 00c8 | | Action Pop_Auxiliary_Range
018d 3ff8 |? | Loop_Increasing 0x186
018e 00ce | | Action Pop_Auxiliary
018f 00d9 | | Load_Top At_Offset_1
0190 4801 |H | Short_Literal 0x1
0191 0279 | y | Execute Discrete,And
0192 0f01 | | Execute_Immediate Equal,0x1
0193 6805 |h | Jump_Zero 0x199
0194 4800 |H | Short_Literal 0x0
0195 00d9 | | Load_Top At_Offset_1
0196 01dc | | Execute Vector,Last
0197 00da | | Load_Top At_Offset_2
0198 01d6 | | Execute Vector,Field_Write
0199 00d9 | | Load_Top At_Offset_1
019a e5ff | | Load 0x2,-0x1
019b 8215 | | Call 0x1,0x15
019c 00d9 | | Load_Top At_Offset_1
019d 0c01 | | Execute_Immediate Greater_Equal,0x1
019e 6803 |h | Jump_Zero 0x1a2
019f 00d8 | | Load_Top At_Offset_0
01a0 e5ff | | Load 0x2,-0x1
01a1 822b | + | Call 0x1,0x2b
01a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01be | | .CONST 0x01be ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab 00db | | Load_Top At_Offset_3
01ac 01db | | Execute Vector,Length
01ad 00e3 | | Load_Encached Natural_Cache
01ae 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01af 4801 |H | Short_Literal 0x1
01b0 4801 |H | Short_Literal 0x1
01b1 e00b | | Load 0x0,0xb
01b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b3 035b | [ | Declare_Type Array,Constrained
01b4 0337 | 7 | Declare_Variable Array
01b5 00d8 | | Load_Top At_Offset_0
01b6 0335 | 5 | Declare_Variable Array,Duplicate
01b7 00cd | | Action Spare6_Action
01b8 4800 |H | Short_Literal 0x0
01b9 4801 |H | Short_Literal 0x1
01ba 00da | | Load_Top At_Offset_2
01bb 01d6 | | Execute Vector,Field_Write
01bc 00d9 | | Load_Top At_Offset_1
01bd 01d4 | | Execute Vector,Structure_Write
01be BODY_01a8:
01be 00d9 | | Load_Top At_Offset_1
01bf e5ff | | Load 0x2,-0x1
01c0 8215 | | Call 0x1,0x15
01c1 00d9 | | Load_Top At_Offset_1
01c2 0c01 | | Execute_Immediate Greater_Equal,0x1
01c3 680b |h | Jump_Zero 0x1cf
01c4 e5fe | | Load 0x2,-0x2
01c5 e5ff | | Load 0x2,-0x1
01c6 822b | + | Call 0x1,0x2b
01c7 00d9 | | Load_Top At_Offset_1
01c8 4801 |H | Short_Literal 0x1
01c9 0279 | y | Execute Discrete,And
01ca 0f01 | | Execute_Immediate Equal,0x1
01cb 6803 |h | Jump_Zero 0x1cf
01cc 00d8 | | Load_Top At_Offset_0
01cd e5ff | | Load 0x2,-0x1
01ce 822b | + | Call 0x1,0x2b
01cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d7 | | .CONST 0x01d7 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 e004 | | Load 0x0,0x4
01d4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01d5 e00c | | Load 0x0,0xc
01d6 0007 | | Action Break_Optional
01d7 BODY_01d0:
01d7 e004 | | Load 0x0,0x4
01d8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01d9 e5ff | | Load 0x2,-0x1
01da e22d | - | Load 0x1,0x2d
01db 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01dc 005a | Z | Store_Top Discrete,At_Offset_2
01dd 00d9 | | Load_Top At_Offset_1
01de 00d8 | | Load_Top At_Offset_0
01df e00c | | Load 0x0,0xc
01e0 0260 | ` | Execute Discrete,In_Type
01e1 7001 |p | Jump_Nonzero 0x1e3
01e2 0801 | | Execute_Immediate Raise,0x1
01e3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01e4 00d8 | | Load_Top At_Offset_0
01e5 0f02 | | Execute_Immediate Equal,0x2
01e6 6802 |h | Jump_Zero 0x1e9
01e7 e00d | | Load 0x0,0xd
01e8 0257 | W | Execute Discrete,Raise
01e9 00d8 | | Load_Top At_Offset_0
01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e004 | | Load 0x0,0x4
01f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01f5 BODY_01f0:
01f5 e004 | | Load 0x0,0x4
01f6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01f7 e5ff | | Load 0x2,-0x1
01f8 e22d | - | Load 0x1,0x2d
01f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01fa 0059 | Y | Store_Top Discrete,At_Offset_1
01fb 00d8 | | Load_Top At_Offset_0
01fc 00d8 | | Load_Top At_Offset_0
01fd e003 | | Load 0x0,0x3
01fe 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
01ff 0260 | ` | Execute Discrete,In_Type
0200 7001 |p | Jump_Nonzero 0x202
0201 0801 | | Execute_Immediate Raise,0x1
0202 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020c | | .CONST 0x020c ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 00e1 | | Load_Encached Boolean_Cache
020c BODY_0208:
020c 00e1 | | Load_Encached Boolean_Cache
020d e5ff | | Load 0x2,-0x1
020e e22d | - | Load 0x1,0x2d
020f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0210 0059 | Y | Store_Top Discrete,At_Offset_1
0211 00d8 | | Load_Top At_Offset_0
0212 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d | | .CONST 0x021d ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e00b | | Load 0x0,0xb
021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021d BODY_0218:
021d e004 | | Load 0x0,0x4
021e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021f e5ff | | Load 0x2,-0x1
0220 e22d | - | Load 0x1,0x2d
0221 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0222 0059 | Y | Store_Top Discrete,At_Offset_1
0223 00d8 | | Load_Top At_Offset_0
0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d | - | .CONST 0x022d ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e004 | | Load 0x0,0x4
022c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
022d BODY_0228:
022d e004 | | Load 0x0,0x4
022e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
022f e5ff | | Load 0x2,-0x1
0230 e22d | - | Load 0x1,0x2d
0231 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0232 0059 | Y | Store_Top Discrete,At_Offset_1
0233 00d8 | | Load_Top At_Offset_0
0234 00d8 | | Load_Top At_Offset_0
0235 00e2 | | Load_Encached Integer_Cache
0236 0260 | ` | Execute Discrete,In_Type
0237 7001 |p | Jump_Nonzero 0x239
0238 0801 | | Execute_Immediate Raise,0x1
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 0000 0000 | | .BLANK 0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 025b | [ | .CONST 0x025b ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0004 | | .CONST 0x0004 ; Number of locals
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 821c | | Call 0x1,0x1c
0245 00e3 | | Load_Encached Natural_Cache
0246 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0247 4801 |H | Short_Literal 0x1
0248 00d9 | | Load_Top At_Offset_1
0249 00da | | Load_Top At_Offset_2
024a 4801 |H | Short_Literal 0x1
024b 0279 | y | Execute Discrete,And
024c 0273 | s | Execute Discrete,Plus
024d 00d8 | | Load_Top At_Offset_0
024e 00e2 | | Load_Encached Integer_Cache
024f 0260 | ` | Execute Discrete,In_Type
0250 7001 |p | Jump_Nonzero 0x252
0251 0801 | | Execute_Immediate Raise,0x1
0252 e00b | | Load 0x0,0xb
0253 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0254 035b | [ | Declare_Type Array,Constrained
0255 0337 | 7 | Declare_Variable Array
0256 4801 |H | Short_Literal 0x1
0257 00da | | Load_Top At_Offset_2
0258 00e9 | | Load_Encached String_Cache
0259 035b | [ | Declare_Type Array,Constrained
025a 0337 | 7 | Declare_Variable Array
025b BODY_0240:
025b 00da | | Load_Top At_Offset_2
025c 7002 |p | Jump_Nonzero 0x25f
025d 00ea | | Load_Encached Null_String_Cache
025e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025f 00d9 | | Load_Top At_Offset_1
0260 e5ff | | Load 0x2,-0x1
0261 822c | , | Call 0x1,0x2c
0262 00d1 | | Pop_Control Pop_Count_1
0263 00cf | | Action Mark_Auxiliary
0264 00d9 | | Load_Top At_Offset_1
0265 01d9 | | Execute Vector,Reverse_Bounds
0266 0263 | c | Execute Discrete,Above_Bound
0267 700d |p | Jump_Nonzero 0x275
0268 00d8 | | Load_Top At_Offset_0
0269 e403 | | Load 0x2,0x3
026a 01d7 | | Execute Vector,Field_Read
026b 00d8 | | Load_Top At_Offset_0
026c 00e8 | | Load_Encached Character_Cache
026d 0260 | ` | Execute Discrete,In_Type
026e 7001 |p | Jump_Nonzero 0x270
026f 0801 | | Execute_Immediate Raise,0x1
0270 00d9 | | Load_Top At_Offset_1
0271 e404 | | Load 0x2,0x4
0272 01d6 | | Execute Vector,Field_Write
0273 00c8 | | Action Pop_Auxiliary_Range
0274 3ff3 |? | Loop_Increasing 0x268
0275 00ce | | Action Pop_Auxiliary
0276 00d8 | | Load_Top At_Offset_0
0277 00e9 | | Load_Encached String_Cache
0278 01c6 | | Execute Vector,Convert_To_Formal
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0293 | | .CONST 0x0293 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0004 | | .CONST 0x0004 ; Number of locals
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 821c | | Call 0x1,0x1c
0285 00e3 | | Load_Encached Natural_Cache
0286 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0287 4801 |H | Short_Literal 0x1
0288 00d9 | | Load_Top At_Offset_1
0289 e00b | | Load 0x0,0xb
028a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028b 035b | [ | Declare_Type Array,Constrained
028c 0337 | 7 | Declare_Variable Array
028d 4801 |H | Short_Literal 0x1
028e 4801 |H | Short_Literal 0x1
028f e00b | | Load 0x0,0xb
0290 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0291 035b | [ | Declare_Type Array,Constrained
0292 0337 | 7 | Declare_Variable Array
0293 BODY_0280:
0293 00da | | Load_Top At_Offset_2
0294 7008 |p | Jump_Nonzero 0x29d
0295 4800 |H | Short_Literal 0x0
0296 4801 |H | Short_Literal 0x1
0297 00da | | Load_Top At_Offset_2
0298 01cf | | Execute Vector,Slice_Read
0299 e00e | | Load 0x0,0xe
029a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
029b 01c6 | | Execute Vector,Convert_To_Formal
029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029d 00d9 | | Load_Top At_Offset_1
029e e5ff | | Load 0x2,-0x1
029f 822c | , | Call 0x1,0x2c
02a0 00d1 | | Pop_Control Pop_Count_1
02a1 00da | | Load_Top At_Offset_2
02a2 4801 |H | Short_Literal 0x1
02a3 0279 | y | Execute Discrete,And
02a4 0f01 | | Execute_Immediate Equal,0x1
02a5 6804 |h | Jump_Zero 0x2aa
02a6 00d8 | | Load_Top At_Offset_0
02a7 e5ff | | Load 0x2,-0x1
02a8 822c | , | Call 0x1,0x2c
02a9 00d1 | | Pop_Control Pop_Count_1
02aa 00d9 | | Load_Top At_Offset_1
02ab e00e | | Load 0x0,0xe
02ac 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02ad 01c6 | | Execute Vector,Convert_To_Formal
02ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02af 0000 | | .XXX[0x1]
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 0217 | | Execute Heap_Access,All_Reference
02b5 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
02b6 01dd | | Execute Vector,First
02b7 00db | | Load_Top At_Offset_3
02b8 0217 | | Execute Heap_Access,All_Reference
02b9 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
02ba 4800 |H | Short_Literal 0x0
02bb 00db | | Load_Top At_Offset_3
02bc 0217 | | Execute Heap_Access,All_Reference
02bd 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
02be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bf 0000 | | .XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c9 | | .CONST 0x02c9 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 0217 | | Execute Heap_Access,All_Reference
02c5 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
02c6 01dd | | Execute Vector,First
02c7 00e3 | | Load_Encached Natural_Cache
02c8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02c9 BODY_02c0:
02c9 00db | | Load_Top At_Offset_3
02ca 0217 | | Execute Heap_Access,All_Reference
02cb 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
02cc e5ff | | Load 0x2,-0x1
02cd 0217 | | Execute Heap_Access,All_Reference
02ce 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
02cf 01dd | | Execute Vector,First
02d0 027e | ~ | Execute Discrete,Not_Equal
02d1 682a |h* | Jump_Zero 0x2fc
02d2 00cf | | Action Mark_Auxiliary
02d3 e5ff | | Load 0x2,-0x1
02d4 0217 | | Execute Heap_Access,All_Reference
02d5 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
02d6 e5ff | | Load 0x2,-0x1
02d7 0217 | | Execute Heap_Access,All_Reference
02d8 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
02d9 0273 | s | Execute Discrete,Plus
02da 0aff | | Execute_Immediate Plus,-0x1
02db 00d8 | | Load_Top At_Offset_0
02dc 00e2 | | Load_Encached Integer_Cache
02dd 0260 | ` | Execute Discrete,In_Type
02de 7001 |p | Jump_Nonzero 0x2e0
02df 0801 | | Execute_Immediate Raise,0x1
02e0 e5ff | | Load 0x2,-0x1
02e1 0217 | | Execute Heap_Access,All_Reference
02e2 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
02e3 0263 | c | Execute Discrete,Above_Bound
02e4 700f |p | Jump_Nonzero 0x2f4
02e5 00d8 | | Load_Top At_Offset_0
02e6 e5ff | | Load 0x2,-0x1
02e7 0217 | | Execute Heap_Access,All_Reference
02e8 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
02e9 01d7 | | Execute Vector,Field_Read
02ea e402 | | Load 0x2,0x2
02eb e5ff | | Load 0x2,-0x1
02ec 0217 | | Execute Heap_Access,All_Reference
02ed 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
02ee 01d6 | | Execute Vector,Field_Write
02ef 00db | | Load_Top At_Offset_3
02f0 0a01 | | Execute_Immediate Plus,0x1
02f1 c402 | | Store 0x2,0x2
02f2 00c8 | | Action Pop_Auxiliary_Range
02f3 3ff1 |? | Loop_Increasing 0x2e5
02f4 00ce | | Action Pop_Auxiliary
02f5 00db | | Load_Top At_Offset_3
02f6 0217 | | Execute Heap_Access,All_Reference
02f7 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
02f8 01dd | | Execute Vector,First
02f9 e5ff | | Load 0x2,-0x1
02fa 0217 | | Execute Heap_Access,All_Reference
02fb 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
02fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0307 | | .CONST 0x0307 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 00db | | Load_Top At_Offset_3
0304 01db | | Execute Vector,Length
0305 00e3 | | Load_Encached Natural_Cache
0306 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0307 BODY_0300:
0307 00d8 | | Load_Top At_Offset_0
0308 6037 |`7 | Indirect_Literal Discrete,0x340,{0x00000000, 0x00000fa0}
0309 e5ff | | Load 0x2,-0x1
030a 0217 | | Execute Heap_Access,All_Reference
030b 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
030c 0272 | r | Execute Discrete,Minus
030d 027a | z | Execute Discrete,Less_Equal
030e 682b |h+ | Jump_Zero 0x33a
030f e5fe | | Load 0x2,-0x2
0310 e5ff | | Load 0x2,-0x1
0311 0217 | | Execute Heap_Access,All_Reference
0312 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0313 e5ff | | Load 0x2,-0x1
0314 0217 | | Execute Heap_Access,All_Reference
0315 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0316 0273 | s | Execute Discrete,Plus
0317 00d8 | | Load_Top At_Offset_0
0318 00e2 | | Load_Encached Integer_Cache
0319 0260 | ` | Execute Discrete,In_Type
031a 7001 |p | Jump_Nonzero 0x31c
031b 0801 | | Execute_Immediate Raise,0x1
031c e5ff | | Load 0x2,-0x1
031d 0217 | | Execute Heap_Access,All_Reference
031e 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
031f e5ff | | Load 0x2,-0x1
0320 0217 | | Execute Heap_Access,All_Reference
0321 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0322 0273 | s | Execute Discrete,Plus
0323 00db | | Load_Top At_Offset_3
0324 0273 | s | Execute Discrete,Plus
0325 0aff | | Execute_Immediate Plus,-0x1
0326 00d8 | | Load_Top At_Offset_0
0327 00e2 | | Load_Encached Integer_Cache
0328 0260 | ` | Execute Discrete,In_Type
0329 7001 |p | Jump_Nonzero 0x32b
032a 0801 | | Execute_Immediate Raise,0x1
032b e5ff | | Load 0x2,-0x1
032c 0219 | | Execute Heap_Access,All_Read
032d 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
032e 01ce | | Execute Vector,Slice_Write
032f 00db | | Load_Top At_Offset_3
0330 0217 | | Execute Heap_Access,All_Reference
0331 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0332 00d9 | | Load_Top At_Offset_1
0333 0273 | s | Execute Discrete,Plus
0334 e5ff | | Load 0x2,-0x1
0335 0217 | | Execute Heap_Access,All_Reference
0336 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0337 4801 |H | Short_Literal 0x1
0338 a5fd | | Store_Unchecked 0x2,-0x3
0339 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033a 4800 |H | Short_Literal 0x0
033b a5fd | | Store_Unchecked 0x2,-0x3
033c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 0000 0000 | | .LITERAL {0x00000000, 0x00000fa0}
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034f | O | .CONST 0x034f ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b 00db | | Load_Top At_Offset_3
034c 01db | | Execute Vector,Length
034d 00e3 | | Load_Encached Natural_Cache
034e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
034f BODY_0348:
034f 4801 |H | Short_Literal 0x1
0350 a5fd | | Store_Unchecked 0x2,-0x3
0351 00d8 | | Load_Top At_Offset_0
0352 e5ff | | Load 0x2,-0x1
0353 0217 | | Execute Heap_Access,All_Reference
0354 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0355 027a | z | Execute Discrete,Less_Equal
0356 682b |h+ | Jump_Zero 0x382
0357 00db | | Load_Top At_Offset_3
0358 0217 | | Execute Heap_Access,All_Reference
0359 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
035a e5ff | | Load 0x2,-0x1
035b 0217 | | Execute Heap_Access,All_Reference
035c 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
035d 00da | | Load_Top At_Offset_2
035e 0273 | s | Execute Discrete,Plus
035f 0aff | | Execute_Immediate Plus,-0x1
0360 00d8 | | Load_Top At_Offset_0
0361 00e2 | | Load_Encached Integer_Cache
0362 0260 | ` | Execute Discrete,In_Type
0363 7001 |p | Jump_Nonzero 0x365
0364 0801 | | Execute_Immediate Raise,0x1
0365 e5ff | | Load 0x2,-0x1
0366 0217 | | Execute Heap_Access,All_Reference
0367 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0368 01cf | | Execute Vector,Slice_Read
0369 e5fe | | Load 0x2,-0x2
036a 01d4 | | Execute Vector,Structure_Write
036b 00db | | Load_Top At_Offset_3
036c 0217 | | Execute Heap_Access,All_Reference
036d 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
036e 00d9 | | Load_Top At_Offset_1
036f 0273 | s | Execute Discrete,Plus
0370 e5ff | | Load 0x2,-0x1
0371 0217 | | Execute Heap_Access,All_Reference
0372 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0373 00db | | Load_Top At_Offset_3
0374 0217 | | Execute Heap_Access,All_Reference
0375 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0376 00d9 | | Load_Top At_Offset_1
0377 0272 | r | Execute Discrete,Minus
0378 e5ff | | Load 0x2,-0x1
0379 0217 | | Execute Heap_Access,All_Reference
037a 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
037b 00db | | Load_Top At_Offset_3
037c 0217 | | Execute Heap_Access,All_Reference
037d 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
037e 7002 |p | Jump_Nonzero 0x381
037f 00db | | Load_Top At_Offset_3
0380 8221 | ! | Call 0x1,0x21
0381 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0382 e5fe | | Load 0x2,-0x2
0383 00d8 | | Load_Top At_Offset_0
0384 0335 | 5 | Declare_Variable Array,Duplicate
0385 00cd | | Action Spare6_Action
0386 00d9 | | Load_Top At_Offset_1
0387 01d9 | | Execute Vector,Reverse_Bounds
0388 0263 | c | Execute Discrete,Above_Bound
0389 7005 |p | Jump_Nonzero 0x38f
038a 4800 |H | Short_Literal 0x0
038b 00d9 | | Load_Top At_Offset_1
038c e404 | | Load 0x2,0x4
038d 01d6 | | Execute Vector,Field_Write
038e 3ffb |? | Loop_Increasing 0x38a
038f 00cd | | Action Spare6_Action
0390 e5fe | | Load 0x2,-0x2
0391 01d4 | | Execute Vector,Structure_Write
0392 4800 |H | Short_Literal 0x0
0393 a5fd | | Store_Unchecked 0x2,-0x3
0394 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00db | | Load_Top At_Offset_3
039c 6811 |h | Jump_Zero 0x3ae
039d 00da | | Load_Top At_Offset_2
039e 0219 | | Execute Heap_Access,All_Read
039f 00d8 | | Load_Top At_Offset_0
03a0 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
03a1 4803 |H | Short_Literal 0x3
03a2 e5fe | | Load 0x2,-0x2
03a3 e005 | | Load 0x0,0x5
03a4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03a5 0092 05df | | Action Push_String_Extended,0x5df ; "CONNECTION_ERROR"
03a7 e006 | | Load 0x0,0x6
03a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03a9 00d9 | | Load_Top At_Offset_1
03aa 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
03ab 00d1 | | Pop_Control Pop_Count_1
03ac e00f | | Load 0x0,0xf
03ad 0257 | W | Execute Discrete,Raise
03ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03af 0000 | | .XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b9 | | .CONST 0x03b9 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 e5fd | | Load 0x2,-0x3
03b4 01db | | Execute Vector,Length
03b5 e010 | | Load 0x0,0x10
03b6 1c08 | | Execute_Immediate Run_Utility,0x8
03b7 00d8 | | Load_Top At_Offset_0
03b8 1c00 | | Execute_Immediate Run_Utility,0x0
03b9 BODY_03b0:
03b9 00d8 | | Load_Top At_Offset_0
03ba 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
03bb e006 | | Load 0x0,0x6
03bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03bd 00d9 | | Load_Top At_Offset_1
03be 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
03bf e5fd | | Load 0x2,-0x3
03c0 00d9 | | Load_Top At_Offset_1
03c1 290d |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0xd
03c2 e5fe | | Load 0x2,-0x2
03c3 e5ff | | Load 0x2,-0x1
03c4 e011 | | Load 0x0,0x11
03c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c6 00d9 | | Load_Top At_Offset_1
03c7 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
03c8 4801 |H | Short_Literal 0x1
03c9 e220 | | Load 0x1,0x20
03ca e5fc | | Load 0x2,-0x4
03cb e012 | | Load 0x0,0x12
03cc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03cd 00d9 | | Load_Top At_Offset_1
03ce 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03cf e5fe | | Load 0x2,-0x2
03d0 00d9 | | Load_Top At_Offset_1
03d1 e013 | | Load 0x0,0x13
03d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03dd | | .CONST 0x03dd ; Address of begin
03d9 03df | | .CONST 0x03df ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
03dd BODY_03d8:
03dd 8402 | | Call 0x2,0x2
03de 0831 | 1 | Execute_Immediate Raise,0x31
03df TRAP_03d8:
03df e014 | | Load 0x0,0x14
03e0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03e1 010f | | Execute Exception,Equal
03e2 6803 |h | Jump_Zero 0x3e6
03e3 e005 | | Load 0x0,0x5
03e4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e6 0100 | | Execute Exception,Raise
03e7 0000 | | .XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ed | | .CONST 0x03ed ; Address of begin
03e9 03ef | | .CONST 0x03ef ; Address of exception handler
03ea 0002 | | .CONST 0x0002 ; Number of locals
03eb INIT_03e8:
03eb 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call
03ed BODY_03e8:
03ed 8402 | | Call 0x2,0x2
03ee 0831 | 1 | Execute_Immediate Raise,0x31
03ef TRAP_03e8:
03ef e014 | | Load 0x0,0x14
03f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03f1 010f | | Execute Exception,Equal
03f2 6803 |h | Jump_Zero 0x3f6
03f3 0092 05e0 | | Action Push_String_Extended,0x5e0 ; "Unknown"
03f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f6 0100 | | Execute Exception,Raise
03f7 0000 | | .XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 040b | | .CONST 0x040b ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc e21f | | Load 0x1,0x1f
03fd e015 | | Load 0x0,0x15
03fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
03ff e5fe | | Load 0x2,-0x2
0400 0217 | | Execute Heap_Access,All_Reference
0401 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0402 00db | | Load_Top At_Offset_3
0403 0219 | | Execute Heap_Access,All_Read
0404 00d8 | | Load_Top At_Offset_0
0405 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0406 e006 | | Load 0x0,0x6
0407 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0408 00d9 | | Load_Top At_Offset_1
0409 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
040a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040b TRAP_03f8:
040b e015 | | Load 0x0,0x15
040c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
040d 010f | | Execute Exception,Equal
040e 6819 |h | Jump_Zero 0x428
040f e5fe | | Load 0x2,-0x2
0410 0219 | | Execute Heap_Access,All_Read
0411 00d8 | | Load_Top At_Offset_0
0412 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0413 4802 |H | Short_Literal 0x2
0414 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "Unable to obtain socket assignment of service DTIA for host \x22"
0416 e5ff | | Load 0x2,-0x1
0417 01cc | | Execute Vector,Catenate
0418 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "\x22; check the "
041a 01cc | | Execute Vector,Catenate
041b e015 | | Load 0x0,0x15
041c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041d 01cc | | Execute Vector,Catenate
041e 0092 05e3 | | Action Push_String_Extended,0x5e3 ; " file of this machine"
0420 01cc | | Execute Vector,Catenate
0421 0092 05df | | Action Push_String_Extended,0x5df ; "CONNECTION_ERROR"
0423 e006 | | Load 0x0,0x6
0424 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0425 00d9 | | Load_Top At_Offset_1
0426 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0427 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0428 0100 | | Execute Exception,Raise
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 043d | = | .CONST 0x043d ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0005 | | .CONST 0x0005 ; Number of locals
0433 INIT_0430:
0433 00e3 | | Load_Encached Natural_Cache
0434 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0435 e5fe | | Load 0x2,-0x2
0436 01dd | | Execute Vector,First
0437 00e3 | | Load_Encached Natural_Cache
0438 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0439 00e3 | | Load_Encached Natural_Cache
043a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
043b e005 | | Load 0x0,0x5
043c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
043d BODY_0430:
043d 00cf | | Action Mark_Auxiliary
043e 7824 |x$ | Jump 0x463
043f 00e3 | | Load_Encached Natural_Cache
0440 e005 | | Load 0x0,0x5
0441 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0442 e5fd | | Load 0x2,-0x3
0443 602c |`, | Indirect_Literal Discrete,0x470,{0x00007fff, 0xffffffff}
0444 e403 | | Load 0x2,0x3
0445 00d8 | | Load_Top At_Offset_0
0446 e5fe | | Load 0x2,-0x2
0447 01db | | Execute Vector,Length
0448 0273 | s | Execute Discrete,Plus
0449 e402 | | Load 0x2,0x2
044a 0272 | r | Execute Discrete,Minus
044b 0aff | | Execute_Immediate Plus,-0x1
044c 00d8 | | Load_Top At_Offset_0
044d 00e2 | | Load_Encached Integer_Cache
044e 0260 | ` | Execute Discrete,In_Type
044f 7001 |p | Jump_Nonzero 0x451
0450 0801 | | Execute_Immediate Raise,0x1
0451 e5fe | | Load 0x2,-0x2
0452 01cf | | Execute Vector,Slice_Read
0453 e5ff | | Load 0x2,-0x1
0454 e008 | | Load 0x0,0x8
0455 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0456 005b | [ | Store_Top Discrete,At_Offset_3
0457 005b | [ | Store_Top Discrete,At_Offset_3
0458 00db | | Load_Top At_Offset_3
0459 00db | | Load_Top At_Offset_3
045a 0273 | s | Execute Discrete,Plus
045b c403 | | Store 0x2,0x3
045c e402 | | Load 0x2,0x2
045d 00db | | Load_Top At_Offset_3
045e 0273 | s | Execute Discrete,Plus
045f c402 | | Store 0x2,0x2
0460 00d9 | | Load_Top At_Offset_1
0461 7006 |p | Jump_Nonzero 0x468
0462 00c9 | | Action Pop_Auxiliary_Loop
0463 e402 | | Load 0x2,0x2
0464 e5fe | | Load 0x2,-0x2
0465 01db | | Execute Vector,Length
0466 027c | | | Execute Discrete,Less
0467 77d7 |w | Jump_Nonzero 0x43f
0468 00ce | | Action Pop_Auxiliary
0469 00d8 | | Load_Top At_Offset_0
046a a5fc | | Store_Unchecked 0x2,-0x4
046b 00db | | Load_Top At_Offset_3
046c a5fb | | Store_Unchecked 0x2,-0x5
046d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
046e 0000 0000 | | .XXX[0x2]
0470 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0474 0000 0000 | | .BLANK 0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0482 | | .CONST 0x0482 ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0004 | | .CONST 0x0004 ; Number of locals
047b INIT_0478:
047b 00db | | Load_Top At_Offset_3
047c 01db | | Execute Vector,Length
047d 00e3 | | Load_Encached Natural_Cache
047e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
047f 00e1 | | Load_Encached Boolean_Cache
0480 e005 | | Load 0x0,0x5
0481 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0482 BODY_0478:
0482 00e1 | | Load_Encached Boolean_Cache
0483 e5fe | | Load 0x2,-0x2
0484 e5ff | | Load 0x2,-0x1
0485 8223 | # | Call 0x1,0x23
0486 005a | Z | Store_Top Discrete,At_Offset_2
0487 00d9 | | Load_Top At_Offset_1
0488 7038 |p8 | Jump_Nonzero 0x4c1
0489 00e3 | | Load_Encached Natural_Cache
048a e005 | | Load 0x0,0x5
048b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
048c e5ff | | Load 0x2,-0x1
048d 0217 | | Execute Heap_Access,All_Reference
048e 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
048f 0f00 | | Execute_Immediate Equal,0x0
0490 e5ff | | Load 0x2,-0x1
0491 0217 | | Execute Heap_Access,All_Reference
0492 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0493 e5ff | | Load 0x2,-0x1
0494 0217 | | Execute Heap_Access,All_Reference
0495 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0496 e5ff | | Load 0x2,-0x1
0497 0217 | | Execute Heap_Access,All_Reference
0498 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0499 0273 | s | Execute Discrete,Plus
049a 0aff | | Execute_Immediate Plus,-0x1
049b 00d8 | | Load_Top At_Offset_0
049c 00e2 | | Load_Encached Integer_Cache
049d 0260 | ` | Execute Discrete,In_Type
049e 7001 |p | Jump_Nonzero 0x4a0
049f 0801 | | Execute_Immediate Raise,0x1
04a0 e5ff | | Load 0x2,-0x1
04a1 0217 | | Execute Heap_Access,All_Reference
04a2 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
04a3 01cf | | Execute Vector,Slice_Read
04a4 e5ff | | Load 0x2,-0x1
04a5 0217 | | Execute Heap_Access,All_Reference
04a6 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
04a7 822a | * | Call 0x1,0x2a
04a8 005a | Z | Store_Top Discrete,At_Offset_2
04a9 005b | [ | Store_Top Discrete,At_Offset_3
04aa 00d8 | | Load_Top At_Offset_0
04ab e5ff | | Load 0x2,-0x1
04ac 8225 | % | Call 0x1,0x25
04ad e5ff | | Load 0x2,-0x1
04ae 8221 | ! | Call 0x1,0x21
04af 00e3 | | Load_Encached Natural_Cache
04b0 e005 | | Load 0x0,0x5
04b1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04b2 e5ff | | Load 0x2,-0x1
04b3 0217 | | Execute Heap_Access,All_Reference
04b4 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
04b5 0f00 | | Execute_Immediate Equal,0x0
04b6 e5fe | | Load 0x2,-0x2
04b7 e5ff | | Load 0x2,-0x1
04b8 0217 | | Execute Heap_Access,All_Reference
04b9 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
04ba 822a | * | Call 0x1,0x2a
04bb 005a | Z | Store_Top Discrete,At_Offset_2
04bc 005b | [ | Store_Top Discrete,At_Offset_3
04bd 00d8 | | Load_Top At_Offset_0
04be e5ff | | Load 0x2,-0x1
04bf 8225 | % | Call 0x1,0x25
04c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04c1 e5ff | | Load 0x2,-0x1
04c2 0217 | | Execute Heap_Access,All_Reference
04c3 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
04c4 e5ff | | Load 0x2,-0x1
04c5 0217 | | Execute Heap_Access,All_Reference
04c6 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
04c7 0c01 | | Execute_Immediate Greater_Equal,0x1
04c8 0279 | y | Execute Discrete,And
04c9 6826 |h& | Jump_Zero 0x4f0
04ca 00e3 | | Load_Encached Natural_Cache
04cb e005 | | Load 0x0,0x5
04cc 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04cd e5ff | | Load 0x2,-0x1
04ce 0217 | | Execute Heap_Access,All_Reference
04cf 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
04d0 0f00 | | Execute_Immediate Equal,0x0
04d1 e5ff | | Load 0x2,-0x1
04d2 0217 | | Execute Heap_Access,All_Reference
04d3 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
04d4 e5ff | | Load 0x2,-0x1
04d5 0217 | | Execute Heap_Access,All_Reference
04d6 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
04d7 e5ff | | Load 0x2,-0x1
04d8 0217 | | Execute Heap_Access,All_Reference
04d9 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
04da 0273 | s | Execute Discrete,Plus
04db 0aff | | Execute_Immediate Plus,-0x1
04dc 00d8 | | Load_Top At_Offset_0
04dd 00e2 | | Load_Encached Integer_Cache
04de 0260 | ` | Execute Discrete,In_Type
04df 7001 |p | Jump_Nonzero 0x4e1
04e0 0801 | | Execute_Immediate Raise,0x1
04e1 e5ff | | Load 0x2,-0x1
04e2 0217 | | Execute Heap_Access,All_Reference
04e3 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
04e4 01cf | | Execute Vector,Slice_Read
04e5 e5ff | | Load 0x2,-0x1
04e6 0217 | | Execute Heap_Access,All_Reference
04e7 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
04e8 822a | * | Call 0x1,0x2a
04e9 005a | Z | Store_Top Discrete,At_Offset_2
04ea 005b | [ | Store_Top Discrete,At_Offset_3
04eb 00d8 | | Load_Top At_Offset_0
04ec e5ff | | Load 0x2,-0x1
04ed 8225 | % | Call 0x1,0x25
04ee e5ff | | Load 0x2,-0x1
04ef 8221 | ! | Call 0x1,0x21
04f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04f1 0000 0000 | | .BLANK 0000[0x7]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0500 | | .CONST 0x0500 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0005 | | .CONST 0x0005 ; Number of locals
04fb INIT_04f8:
04fb 00e3 | | Load_Encached Natural_Cache
04fc 03e9 | | Declare_Variable Discrete,Duplicate
04fd 00e1 | | Load_Encached Boolean_Cache
04fe e005 | | Load 0x0,0x5
04ff 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0500 BODY_04f8:
0500 00e1 | | Load_Encached Boolean_Cache
0501 e5fe | | Load 0x2,-0x2
0502 e5ff | | Load 0x2,-0x1
0503 8224 | $ | Call 0x1,0x24
0504 00d1 | | Pop_Control Pop_Count_1
0505 005a | Z | Store_Top Discrete,At_Offset_2
0506 00d9 | | Load_Top At_Offset_1
0507 70b0 |p | Jump_Nonzero 0x5b8
0508 e5ff | | Load 0x2,-0x1
0509 8222 | " | Call 0x1,0x22
050a e5ff | | Load 0x2,-0x1
050b 0219 | | Execute Heap_Access,All_Read
050c 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
050d e5ff | | Load 0x2,-0x1
050e 0217 | | Execute Heap_Access,All_Reference
050f 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0510 e5ff | | Load 0x2,-0x1
0511 0217 | | Execute Heap_Access,All_Reference
0512 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0513 0273 | s | Execute Discrete,Plus
0514 00d8 | | Load_Top At_Offset_0
0515 00e2 | | Load_Encached Integer_Cache
0516 0260 | ` | Execute Discrete,In_Type
0517 7001 |p | Jump_Nonzero 0x519
0518 0801 | | Execute_Immediate Raise,0x1
0519 e5ff | | Load 0x2,-0x1
051a 0217 | | Execute Heap_Access,All_Reference
051b 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
051c 01dc | | Execute Vector,Last
051d 00da | | Load_Top At_Offset_2
051e 035b | [ | Declare_Type Array,Constrained
051f 00d0 | | Action Swap_Control
0520 01cd | | Execute Vector,Slice_Reference
0521 00e3 | | Load_Encached Natural_Cache
0522 00d9 | | Load_Top At_Offset_1
0523 e005 | | Load 0x0,0x5
0524 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0525 6096 |` | Indirect_Literal Discrete,0x5bc,{0x00007fff, 0xffffffff}
0526 e5ff | | Load 0x2,-0x1
0527 0217 | | Execute Heap_Access,All_Reference
0528 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
0529 e008 | | Load 0x0,0x8
052a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
052b c405 | | Store 0x2,0x5
052c 00d1 | | Pop_Control Pop_Count_1
052d c402 | | Store 0x2,0x2
052e 00d1 | | Pop_Control Pop_Count_1
052f e5ff | | Load 0x2,-0x1
0530 0217 | | Execute Heap_Access,All_Reference
0531 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0532 e402 | | Load 0x2,0x2
0533 0273 | s | Execute Discrete,Plus
0534 e5ff | | Load 0x2,-0x1
0535 0217 | | Execute Heap_Access,All_Reference
0536 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0537 00d8 | | Load_Top At_Offset_0
0538 e5ff | | Load 0x2,-0x1
0539 8225 | % | Call 0x1,0x25
053a 00e1 | | Load_Encached Boolean_Cache
053b e5fe | | Load 0x2,-0x2
053c e5ff | | Load 0x2,-0x1
053d 8224 | $ | Call 0x1,0x24
053e 00d1 | | Pop_Control Pop_Count_1
053f 005a | Z | Store_Top Discrete,At_Offset_2
0540 00d9 | | Load_Top At_Offset_1
0541 7076 |pv | Jump_Nonzero 0x5b8
0542 4800 |H | Short_Literal 0x0
0543 a402 | | Store_Unchecked 0x2,0x2
0544 e5fe | | Load 0x2,-0x2
0545 01dd | | Execute Vector,First
0546 005b | [ | Store_Top Discrete,At_Offset_3
0547 00cf | | Action Mark_Auxiliary
0548 7869 |xi | Jump 0x5b2
0549 e5ff | | Load 0x2,-0x1
054a 0217 | | Execute Heap_Access,All_Reference
054b 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
054c 701f |p | Jump_Nonzero 0x56c
054d e5ff | | Load 0x2,-0x1
054e 0219 | | Execute Heap_Access,All_Read
054f 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
0550 00e3 | | Load_Encached Natural_Cache
0551 00d9 | | Load_Top At_Offset_1
0552 e005 | | Load 0x0,0x5
0553 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0554 6067 |`g | Indirect_Literal Discrete,0x5bc,{0x00007fff, 0xffffffff}
0555 e5ff | | Load 0x2,-0x1
0556 0217 | | Execute Heap_Access,All_Reference
0557 2c07 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
0558 e008 | | Load 0x0,0x8
0559 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
055a c405 | | Store 0x2,0x5
055b 00d1 | | Pop_Control Pop_Count_1
055c c402 | | Store 0x2,0x2
055d 00d1 | | Pop_Control Pop_Count_1
055e e5ff | | Load 0x2,-0x1
055f 0217 | | Execute Heap_Access,All_Reference
0560 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0561 01dd | | Execute Vector,First
0562 e5ff | | Load 0x2,-0x1
0563 0217 | | Execute Heap_Access,All_Reference
0564 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0565 e402 | | Load 0x2,0x2
0566 e5ff | | Load 0x2,-0x1
0567 0217 | | Execute Heap_Access,All_Reference
0568 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0569 00d9 | | Load_Top At_Offset_1
056a e5ff | | Load 0x2,-0x1
056b 8225 | % | Call 0x1,0x25
056c e5fe | | Load 0x2,-0x2
056d e403 | | Load 0x2,0x3
056e e5fe | | Load 0x2,-0x2
056f 01dc | | Execute Vector,Last
0570 00da | | Load_Top At_Offset_2
0571 035b | [ | Declare_Type Array,Constrained
0572 00d0 | | Action Swap_Control
0573 01cd | | Execute Vector,Slice_Reference
0574 00e1 | | Load_Encached Boolean_Cache
0575 00d9 | | Load_Top At_Offset_1
0576 e5ff | | Load 0x2,-0x1
0577 8224 | $ | Call 0x1,0x24
0578 00d1 | | Pop_Control Pop_Count_1
0579 c404 | | Store 0x2,0x4
057a 00d1 | | Pop_Control Pop_Count_1
057b 00da | | Load_Top At_Offset_2
057c 6804 |h | Jump_Zero 0x581
057d e5fe | | Load 0x2,-0x2
057e 01db | | Execute Vector,Length
057f c402 | | Store 0x2,0x2
0580 7830 |x0 | Jump 0x5b1
0581 e5ff | | Load 0x2,-0x1
0582 0217 | | Execute Heap_Access,All_Reference
0583 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0584 e5ff | | Load 0x2,-0x1
0585 0217 | | Execute Heap_Access,All_Reference
0586 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0587 e5ff | | Load 0x2,-0x1
0588 0217 | | Execute Heap_Access,All_Reference
0589 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
058a 0273 | s | Execute Discrete,Plus
058b 0aff | | Execute_Immediate Plus,-0x1
058c 00d8 | | Load_Top At_Offset_0
058d 00e2 | | Load_Encached Integer_Cache
058e 0260 | ` | Execute Discrete,In_Type
058f 7001 |p | Jump_Nonzero 0x591
0590 0801 | | Execute_Immediate Raise,0x1
0591 e5ff | | Load 0x2,-0x1
0592 0217 | | Execute Heap_Access,All_Reference
0593 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0594 01cf | | Execute Vector,Slice_Read
0595 e403 | | Load 0x2,0x3
0596 00d8 | | Load_Top At_Offset_0
0597 e5ff | | Load 0x2,-0x1
0598 0217 | | Execute Heap_Access,All_Reference
0599 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
059a 0273 | s | Execute Discrete,Plus
059b 0aff | | Execute_Immediate Plus,-0x1
059c 00d8 | | Load_Top At_Offset_0
059d 00e2 | | Load_Encached Integer_Cache
059e 0260 | ` | Execute Discrete,In_Type
059f 7001 |p | Jump_Nonzero 0x5a1
05a0 0801 | | Execute_Immediate Raise,0x1
05a1 e5fe | | Load 0x2,-0x2
05a2 01ce | | Execute Vector,Slice_Write
05a3 e402 | | Load 0x2,0x2
05a4 e5ff | | Load 0x2,-0x1
05a5 0217 | | Execute Heap_Access,All_Reference
05a6 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
05a7 0273 | s | Execute Discrete,Plus
05a8 c402 | | Store 0x2,0x2
05a9 00db | | Load_Top At_Offset_3
05aa e5ff | | Load 0x2,-0x1
05ab 0217 | | Execute Heap_Access,All_Reference
05ac 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
05ad 0273 | s | Execute Discrete,Plus
05ae c403 | | Store 0x2,0x3
05af e5ff | | Load 0x2,-0x1
05b0 8221 | ! | Call 0x1,0x21
05b1 00c9 | | Action Pop_Auxiliary_Loop
05b2 e402 | | Load 0x2,0x2
05b3 e5fe | | Load 0x2,-0x2
05b4 01db | | Execute Vector,Length
05b5 027c | | | Execute Discrete,Less
05b6 7792 |w | Jump_Nonzero 0x549
05b7 00ce | | Action Pop_Auxiliary
05b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b9 0000 0000 | | .XXX[0x3]
05bb 0000 | |
05bc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c8 | | .CONST 0x05c8 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0002 | | .CONST 0x0002 ; Number of locals
05c3 INIT_05c0:
05c3 e5ff | | Load 0x2,-0x1
05c4 e007 | | Load 0x0,0x7
05c5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05c6 e014 | | Load 0x0,0x14
05c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
05c8 BODY_05c0:
05c8 00d8 | | Load_Top At_Offset_0
05c9 00cb | | Action Pop_Block_With_Result
05ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05cb 0000 0000 | | .BLANK 0000[0x5]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d8 | | .CONST 0x05d8 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0002 | | .CONST 0x0002 ; Number of locals
05d3 INIT_05d0:
05d3 e5ff | | Load 0x2,-0x1
05d4 e007 | | Load 0x0,0x7
05d5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05d6 e014 | | Load 0x0,0x14
05d7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05d8 BODY_05d0:
05d8 00d8 | | Load_Top At_Offset_0
05d9 00cb | | Action Pop_Block_With_Result
05da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05db ; --------------------------------------------------------------------------------------
05db ; STRING TABLE
05db ; --------------------------------------------------------------------------------------
05db 0014 | | .STRTAB 0x0014->0x05e5 ; "DTIA"
05dc 0016 | | .STRTAB 0x0016->0x05e7 ; "RATIONAL"
05dd 001c | | .STRTAB 0x001c->0x05eb ; "Unable to resolve hostname \x22"
05de 0036 | 6 | .STRTAB 0x0036->0x05f9 ; "UNKNOWN_HOST"
05df 0040 | @ | .STRTAB 0x0040->0x05ff ; "CONNECTION_ERROR"
05e0 004e | N | .STRTAB 0x004e->0x0607 ; "Unknown"
05e1 0053 | S | .STRTAB 0x0053->0x060a ; "Unable to obtain socket assignment of service DTIA for host \x22"
05e2 008e | | .STRTAB 0x008e->0x0629 ; "\x22; check the "
05e3 0099 | | .STRTAB 0x0099->0x062f ; " file of this machine"
05e4 00ac | | .STREND 0x00ac->0x063a
05e5 4454 4941 |DTIA| .STRTAB_STRINGS
063a 0000 0000 | | .BLANK 0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug Table
0640 ; --------------------------------------------------------------------------------------
0640 0004 000e | | .DEBUG4 0x0004,0x000e,0xf469,0x0000,0x0001,0x0000
0646 0000 0000 | | .XXX[0x1e]
0648 0012 07b4 | |
064a d400 0022 | "|
064c 8240 0004 | @ |
064e 0030 0026 | 0 &|
0650 4000 0001 |@ |
0652 55a0 0000 |U |
0654 8000 0000 | |
0656 c00a 0000 | |
0658 0002 0000 | |
065a 0080 0000 | |
065c 0440 0000 | @ |
065e 0002 0000 | |
0660 0014 8000 | |
0662 0405 8796 | |
0664 0000 0000 | | .BLANK 0000[0x1d]
0681 0002 40f6 | @ | .XXX[0x1d]
0683 9b00 0004 | |
0685 5048 0000 |PH |
0687 8006 0004 | |
0689 c800 0000 | |
068b 2e36 0000 |.6 |
068d 1000 0000 | |
068f 1801 4000 | @ |
0691 0000 4000 | @ |
0693 0010 0000 | |
0695 0088 0000 | |
0697 0000 4000 | @ |
0699 0002 9000 | |
069b 0080 b4ef | |
069d 4000 |@ |
069e 0000 0000 | | .BLANK 0000[0x1d]
06bb 481e d370 |H p| .XXX[0x1c]
06bd 0000 a229 | )|
06bf 0000 1000 | |
06c1 c000 9900 | |
06c3 0000 07c0 | |
06c5 c000 0400 | |
06c7 0000 0700 | |
06c9 2800 0000 |( |
06cb 0800 0002 | |
06cd 0000 0011 | |
06cf 0000 0000 | |
06d1 0800 0000 | |
06d3 5200 0020 |R |
06d5 0462 e000 | b |
06d7 0000 0000 | | .BLANK 0000[0x8]
06df 0200 0010 | | .XXX[0x4]
06e1 108e c800 | |
06e3 0000 0000 | | .BLANK 0000[0x5]
06e8 0200 0018 | | .XXX[0x4]
06ea 0a52 2000 | R |
06ec 0000 0000 | | .BLANK 0000[0x8]
06f4 0903 da6e | n| .XXX[0x1c]
06f6 0000 1445 | E|
06f8 2000 0200 | |
06fa 1800 1320 | |
06fc 0000 00f8 | |
06fe 1800 0080 | |
0700 0000 00e0 | |
0702 0500 0000 | |
0704 0100 0000 | |
0706 4000 0002 |@ |
0708 2000 0000 | |
070a 0100 0000 | |
070c 0a40 0004 | @ |
070e 008c 5c00 | \ |
0710 0000 0000 | | .BLANK 0000[0x8]
0718 0040 0002 | @ | .XXX[0x4]
071a 0211 d900 | |
071c 0000 0000 | | .BLANK 0000[0x5]
0721 0040 0003 | @ | .XXX[0x4]
0723 014a 4400 | JD |
0725 0000 0000 | | .BLANK 0000[0x8]
072d 0120 7b4d | {M| .XXX[0x19]
072f c000 0243 | C|
0731 a400 0040 | @|
0733 0300 0264 | d|
0735 0000 001f | |
0737 0300 0008 | |
0739 0000 000c | |
073b 00a0 0000 | |
073d 0020 0000 | |
073f 0800 0000 | |
0741 4400 0000 |D |
0743 0020 0000 | |
0745 0140 | @ |
0746 0000 0000 | | .BLANK 0000[0xb]
0751 0008 0000 | | .XXX[0x4]
0753 4042 3b20 |@B; |
0755 0000 0000 | | .BLANK 0000[0x1f]
0774 8014 0000 | | .XXX[0xb]
0776 0000 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0028 | ( |
077f 0000 0000 | | .BLANK 0000[0x2e]
07ad 1002 8000 | | .XXX[0xb]
07af 0000 0000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 | |
07b8 0000 0000 | | .BLANK 0000[0x48]