|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0230eb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0260 | ` | .CONST 0x0260 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002e | . | .CONST 0x002e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 604f |`O | Indirect_Literal Discrete,0x5c,{0x00000000, 0x0000ffff}
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0
0010 4803 |H | Short_Literal 0x3
0011 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 0093 0000 | | push_full_address 0x0
0016 6041 |`A | Indirect_Literal Discrete,0x58,{0x80000000, 0x00010000}
0017 0273 | s | Execute Discrete,Plus
0018 0129 | ) | Execute Any,Make_Visible
0019 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
001b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001f 00bf | | Action Accept_Activation
0020 4878 |Hx | Short_Literal 0x78
0021 090f | | Execute_Immediate Binary_Scale,0xf
0022 00e7 | | Load_Encached Duration_Cache
0023 025e | ^ | Execute Discrete,Convert
0024 00e7 | | Load_Encached Duration_Cache
0025 03f1 | | Declare_Variable Discrete,With_Value
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0027 00c7 | | Action Elaborate_Subprogram
0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0029 00c7 | | Action Elaborate_Subprogram
002a 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002d 00c7 | | Action Elaborate_Subprogram
002e BODY_0008:
002e 00bc | | Action Signal_Activated
002f 00bb | | Action Signal_Completion
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4607 |F | Jump_Case 0x8
0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0035 7807 |x | Jump 0x3d ; case 0x1
0036 780a |x | Jump 0x41 ; case 0x2
0037 780e |x | Jump 0x46 ; case 0x3
0038 7811 |x | Jump 0x4a ; case 0x4
0039 7812 |x | Jump 0x4c ; case 0x5
003a 7813 |x | Jump 0x4e ; case 0x6
003b 7816 |x | Jump 0x52 ; case 0x7
003c 4302 |C | .XXX[0x1]
003d 00da | | Load_Top At_Offset_2
003e 0091 0234 | 4| Action Push_String_Extended_Indexed,0x234 ; "OK"
0040 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0041 00db | | Load_Top At_Offset_3
0042 00db | | Load_Top At_Offset_3
0043 00e0 | | Load_Encached Standard_Cache
0044 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0046 00da | | Load_Top At_Offset_2
0047 00e0 | | Load_Encached Standard_Cache
0048 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0049 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
004a 00db | | Load_Top At_Offset_3
004b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004c 00db | | Load_Top At_Offset_3
004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004e e20e | | Load 0x1,0xe
004f 00dc | | Load_Top At_Offset_4
0050 0267 | g | Execute Discrete,Predecessor
0051 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0052 e20e | | Load 0x1,0xe
0053 00dc | | Load_Top At_Offset_4
0054 0268 | h | Execute Discrete,Successor
0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0056 0000 0000 | | .XXX[0x2]
0058 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
005c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0075 | u | .CONST 0x0075 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0007 | | .CONST 0x0007 ; Number of locals
0063 INIT_0060:
0063 e002 | | Load 0x0,0x2
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 e003 | | Load 0x0,0x3
0069 1b19 | | Execute Package,Field_Read,Field_Number 0x19
006a 4801 |H | Short_Literal 0x1
006b 4806 |H | Short_Literal 0x6
006c 00e9 | | Load_Encached String_Cache
006d 0334 | 4 | Declare_Variable Array,With_Constraint
006e 5065 |Pe | Indirect_Literal Any,0xd4,{0x5443502f, 0x49502020}
006f e5fd | | Load 0x2,-0x3
0070 8004 | | Call 0x0,0x4
0071 e5fe | | Load 0x2,-0x2
0072 e005 | | Load 0x0,0x5
0073 180e | | Execute Package,Field_Execute,Field_Number 0xe
0074 00e3 | | Load_Encached Natural_Cache
0075 BODY_0060:
0075 e003 | | Load 0x0,0x3
0076 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0077 e402 | | Load 0x2,0x2
0078 0120 | | Execute Any,Is_Value
0079 6803 |h | Jump_Zero 0x7d
007a e002 | | Load 0x0,0x2
007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007c 7801 |x | Jump 0x7e
007d e402 | | Load 0x2,0x2
007e e003 | | Load 0x0,0x3
007f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0080 e404 | | Load 0x2,0x4
0081 e002 | | Load 0x0,0x2
0082 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0083 c402 | | Store 0x2,0x2
0084 c403 | | Store 0x2,0x3
0085 e402 | | Load 0x2,0x2
0086 e002 | | Load 0x0,0x2
0087 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0088 7003 |p | Jump_Nonzero 0x8c
0089 4803 |H | Short_Literal 0x3
008a a5fa | | Store_Unchecked 0x2,-0x6
008b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
008c 00cf | | Action Mark_Auxiliary
008d e5fc | | Load 0x2,-0x4
008e 4801 |H | Short_Literal 0x1
008f 0263 | c | Execute Discrete,Above_Bound
0090 701d |p | Jump_Nonzero 0xae
0091 e003 | | Load 0x0,0x3
0092 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0093 e213 | | Load 0x1,0x13
0094 e405 | | Load 0x2,0x5
0095 e406 | | Load 0x2,0x6
0096 e402 | | Load 0x2,0x2
0097 e002 | | Load 0x0,0x2
0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0099 c403 | | Store 0x2,0x3
009a e402 | | Load 0x2,0x2
009b e002 | | Load 0x0,0x2
009c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
009d 6802 |h | Jump_Zero 0xa0
009e 00d2 | | Pop_Control Pop_Count_2
009f 780e |x | Jump 0xae
00a0 00d8 | | Load_Top At_Offset_0
00a1 e5fc | | Load 0x2,-0x4
00a2 027f | | Execute Discrete,Equal
00a3 6806 |h | Jump_Zero 0xaa
00a4 4803 |H | Short_Literal 0x3
00a5 a5fa | | Store_Unchecked 0x2,-0x6
00a6 e402 | | Load 0x2,0x2
00a7 e002 | | Load 0x0,0x2
00a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00aa e5fb | | Load 0x2,-0x5
00ab 00ba | | Action Initiate_Delay
00ac 00c8 | | Action Pop_Auxiliary_Range
00ad 3fe3 |? | Loop_Increasing 0x91
00ae 00ce | | Action Pop_Auxiliary
00af 00e3 | | Load_Encached Natural_Cache
00b0 e003 | | Load 0x0,0x3
00b1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00b2 4800 |H | Short_Literal 0x0
00b3 601c |` | Indirect_Literal Discrete,0xd0,{0x00007fff, 0xffffffff}
00b4 e5ff | | Load 0x2,-0x1
00b5 8006 | | Call 0x0,0x6
00b6 e402 | | Load 0x2,0x2
00b7 e002 | | Load 0x0,0x2
00b8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00b9 c403 | | Store 0x2,0x3
00ba 0059 | Y | Store_Top Discrete,At_Offset_1
00bb e403 | | Load 0x2,0x3
00bc 6803 |h | Jump_Zero 0xc0
00bd 4803 |H | Short_Literal 0x3
00be a5fa | | Store_Unchecked 0x2,-0x6
00bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00c0 00d8 | | Load_Top At_Offset_0
00c1 e5ff | | Load 0x2,-0x1
00c2 01db | | Execute Vector,Length
00c3 027e | ~ | Execute Discrete,Not_Equal
00c4 6803 |h | Jump_Zero 0xc8
00c5 4802 |H | Short_Literal 0x2
00c6 a5fa | | Store_Unchecked 0x2,-0x6
00c7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00c8 4800 |H | Short_Literal 0x0
00c9 a5fa | | Store_Unchecked 0x2,-0x6
00ca e402 | | Load 0x2,0x2
00cb e002 | | Load 0x0,0x2
00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cd 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ce 0000 0000 | | .XXX[0x2]
00d0 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00d4 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00f1 | | .CONST 0x00f1 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0007 | | .CONST 0x0007 ; Number of locals
00db INIT_00d8:
00db e002 | | Load 0x0,0x2
00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dd 02c7 | | Declare_Variable Any
00de 00d8 | | Load_Top At_Offset_0
00df 1c00 | | Execute_Immediate Run_Utility,0x0
00e0 e003 | | Load 0x0,0x3
00e1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e2 4801 |H | Short_Literal 0x1
00e3 4806 |H | Short_Literal 0x6
00e4 00e9 | | Load_Encached String_Cache
00e5 0334 | 4 | Declare_Variable Array,With_Constraint
00e6 5055 |PU | Indirect_Literal Any,0x13c,{0x5443502f, 0x49502020}
00e7 e5ff | | Load 0x2,-0x1
00e8 0335 | 5 | Declare_Variable Array,Duplicate
00e9 00cd | | Action Spare6_Action
00ea 00e3 | | Load_Encached Natural_Cache
00eb 4801 |H | Short_Literal 0x1
00ec 604b |`K | Indirect_Literal Discrete,0x138,{0x00000000, 0x00000400}
00ed e007 | | Load 0x0,0x7
00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ef 035b | [ | Declare_Type Array,Constrained
00f0 0337 | 7 | Declare_Variable Array
00f1 BODY_00d8:
00f1 e003 | | Load 0x0,0x3
00f2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00f3 e402 | | Load 0x2,0x2
00f4 0120 | | Execute Any,Is_Value
00f5 6803 |h | Jump_Zero 0xf9
00f6 e002 | | Load 0x0,0x2
00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f8 7801 |x | Jump 0xfa
00f9 e402 | | Load 0x2,0x2
00fa e405 | | Load 0x2,0x5
00fb e404 | | Load 0x2,0x4
00fc e002 | | Load 0x0,0x2
00fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00fe c402 | | Store 0x2,0x2
00ff c403 | | Store 0x2,0x3
0100 e402 | | Load 0x2,0x2
0101 e002 | | Load 0x0,0x2
0102 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0103 7003 |p | Jump_Nonzero 0x107
0104 4803 |H | Short_Literal 0x3
0105 a5fd | | Store_Unchecked 0x2,-0x3
0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0107 00cf | | Action Mark_Auxiliary
0108 e003 | | Load 0x0,0x3
0109 1b19 | | Execute Package,Field_Read,Field_Number 0x19
010a e213 | | Load 0x1,0x13
010b e402 | | Load 0x2,0x2
010c e002 | | Load 0x0,0x2
010d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
010e c403 | | Store 0x2,0x3
010f e402 | | Load 0x2,0x2
0110 e002 | | Load 0x0,0x2
0111 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0112 6801 |h | Jump_Zero 0x114
0113 7802 |x | Jump 0x116
0114 00c9 | | Action Pop_Auxiliary_Loop
0115 7ff2 | | Jump 0x108
0116 00ce | | Action Pop_Auxiliary
0117 00e3 | | Load_Encached Natural_Cache
0118 00d9 | | Load_Top At_Offset_1
0119 e003 | | Load 0x0,0x3
011a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
011b e213 | | Load 0x1,0x13
011c e402 | | Load 0x2,0x2
011d e002 | | Load 0x0,0x2
011e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
011f c403 | | Store 0x2,0x3
0120 00d1 | | Pop_Control Pop_Count_1
0121 005a | Z | Store_Top Discrete,At_Offset_2
0122 e403 | | Load 0x2,0x3
0123 6803 |h | Jump_Zero 0x127
0124 4803 |H | Short_Literal 0x3
0125 a5fd | | Store_Unchecked 0x2,-0x3
0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0127 4800 |H | Short_Literal 0x0
0128 a5fd | | Store_Unchecked 0x2,-0x3
0129 e5fe | | Load 0x2,-0x2
012a 4801 |H | Short_Literal 0x1
012b 00db | | Load_Top At_Offset_3
012c 00db | | Load_Top At_Offset_3
012d 01cf | | Execute Vector,Slice_Read
012e 8008 | | Call 0x0,0x8
012f 8009 | | Call 0x0,0x9
0130 00d1 | | Pop_Control Pop_Count_1
0131 e402 | | Load 0x2,0x2
0132 e002 | | Load 0x0,0x2
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
013c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 016a | j | .CONST 0x016a ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 000d | | .CONST 0x000d ; Number of locals
0143 INIT_0140:
0143 e002 | | Load 0x0,0x2
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02c7 | | Declare_Variable Any
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 e003 | | Load 0x0,0x3
0149 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014a 4801 |H | Short_Literal 0x1
014b 4806 |H | Short_Literal 0x6
014c 00e9 | | Load_Encached String_Cache
014d 0334 | 4 | Declare_Variable Array,With_Constraint
014e 507d |P} | Indirect_Literal Any,0x1cc,{0x5443502f, 0x49502020}
014f 00e3 | | Load_Encached Natural_Cache
0150 00e1 | | Load_Encached Boolean_Cache
0151 00e3 | | Load_Encached Natural_Cache
0152 4800 |H | Short_Literal 0x0
0153 4801 |H | Short_Literal 0x1
0154 e003 | | Load 0x0,0x3
0155 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0156 035b | [ | Declare_Type Array,Constrained
0157 0337 | 7 | Declare_Variable Array
0158 e00a | | Load 0x0,0xa
0159 0322 | " | Declare_Variable Record
015a 00d8 | | Load_Top At_Offset_0
015b 1c00 | | Execute_Immediate Run_Utility,0x0
015c 67db |g | Indirect_Literal Discrete,0x138,{0x00000000, 0x00000400}
015d e00b | | Load 0x0,0xb
015e 1c08 | | Execute_Immediate Run_Utility,0x8
015f 00d8 | | Load_Top At_Offset_0
0160 1c00 | | Execute_Immediate Run_Utility,0x0
0161 4800 |H | Short_Literal 0x0
0162 4803 |H | Short_Literal 0x3
0163 e003 | | Load 0x0,0x3
0164 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0165 035b | [ | Declare_Type Array,Constrained
0166 0337 | 7 | Declare_Variable Array
0167 00e3 | | Load_Encached Natural_Cache
0168 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
016a BODY_0140:
016a e003 | | Load 0x0,0x3
016b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
016c e402 | | Load 0x2,0x2
016d 0120 | | Execute Any,Is_Value
016e 6803 |h | Jump_Zero 0x172
016f e002 | | Load 0x0,0x2
0170 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0171 7801 |x | Jump 0x173
0172 e402 | | Load 0x2,0x2
0173 e003 | | Load 0x0,0x3
0174 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0175 e404 | | Load 0x2,0x4
0176 e002 | | Load 0x0,0x2
0177 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0178 c402 | | Store 0x2,0x2
0179 c403 | | Store 0x2,0x3
017a e402 | | Load 0x2,0x2
017b e002 | | Load 0x0,0x2
017c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
017d 7005 |p | Jump_Nonzero 0x183
017e e402 | | Load 0x2,0x2
017f e002 | | Load 0x0,0x2
0180 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0181 e20f | | Load 0x1,0xf
0182 0257 | W | Execute Discrete,Raise
0183 e402 | | Load 0x2,0x2
0184 e002 | | Load 0x0,0x2
0185 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0186 00db | | Load_Top At_Offset_3
0187 01d4 | | Execute Vector,Structure_Write
0188 e402 | | Load 0x2,0x2
0189 e002 | | Load 0x0,0x2
018a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
018b 800c | | Call 0x0,0xc
018c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
018d 4803 |H | Short_Literal 0x3
018e 00db | | Load_Top At_Offset_3
018f 01d7 | | Execute Vector,Field_Read
0190 4802 |H | Short_Literal 0x2
0191 e40b | | Load 0x2,0xb
0192 01d7 | | Execute Vector,Field_Read
0193 4801 |H | Short_Literal 0x1
0194 e40b | | Load 0x2,0xb
0195 01d7 | | Execute Vector,Field_Read
0196 4800 |H | Short_Literal 0x0
0197 e40b | | Load 0x2,0xb
0198 01d7 | | Execute Vector,Field_Read
0199 e40c | | Load 0x2,0xc
019a 00d8 | | Load_Top At_Offset_0
019b e00d | | Load 0x0,0xd
019c 0260 | ` | Execute Discrete,In_Type
019d 7001 |p | Jump_Nonzero 0x19f
019e 0801 | | Execute_Immediate Raise,0x1
019f 4800 |H | Short_Literal 0x0
01a0 800e | | Call 0x0,0xe
01a1 e409 | | Load 0x2,0x9
01a2 017d | } | Execute Record,Structure_Write
01a3 e20e | | Load 0x1,0xe
01a4 6023 |`# | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x00000ccd}
01a5 4801 |H | Short_Literal 0x1
01a6 e5fa | | Load 0x2,-0x6
01a7 e5fb | | Load 0x2,-0x5
01a8 e409 | | Load 0x2,0x9
01a9 800f | | Call 0x0,0xf
01aa 8210 | | Call 0x1,0x10
01ab c5f9 | | Store 0x2,-0x7
01ac 00cf | | Action Mark_Auxiliary
01ad 840d | | Call 0x2,0xd
01ae 00c9 | | Action Pop_Auxiliary_Loop
01af 7ffd | | Jump 0x1ad
01b0 00ce | | Action Pop_Auxiliary
01b1 e409 | | Load 0x2,0x9
01b2 8010 | | Call 0x0,0x10
01b3 e402 | | Load 0x2,0x2
01b4 e002 | | Load 0x0,0x2
01b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01b6 85fc | | Call 0x2,-0x4
01b7 85fd | | Call 0x2,-0x3
01b8 00cf | | Action Mark_Auxiliary
01b9 e20e | | Load 0x1,0xe
01ba e40a | | Load 0x2,0xa
01bb e402 | | Load 0x2,0x2
01bc e002 | | Load 0x0,0x2
01bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01be 8211 | | Call 0x1,0x11
01bf 00d1 | | Pop_Control Pop_Count_1
01c0 c5f9 | | Store 0x2,-0x7
01c1 e40a | | Load 0x2,0xa
01c2 8011 | | Call 0x0,0x11
01c3 85fe | | Call 0x2,-0x2
01c4 00c9 | | Action Pop_Auxiliary_Loop
01c5 7ff3 | | Jump 0x1b9
01c6 0000 0000 | | .XXX[0x2]
01c8 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
01cc 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 01dc | | .CONST 0x01dc ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 8008 | | Call 0x0,0x8
01d5 BODY_01d0:
01d5 00d8 | | Load_Top At_Offset_0
01d6 8012 | | Call 0x0,0x12
01d7 e5fe | | Load 0x2,-0x2
01d8 017d | } | Execute Record,Structure_Write
01d9 4801 |H | Short_Literal 0x1
01da a5fd | | Store_Unchecked 0x2,-0x3
01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01dc TRAP_01d0:
01dc 0007 | | Action Break_Optional
01dd 4800 |H | Short_Literal 0x0
01de a5fd | | Store_Unchecked 0x2,-0x3
01df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f5 | | .CONST 0x01f5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 4801 |H | Short_Literal 0x1
01e4 604b |`K | Indirect_Literal Discrete,0x230,{0x00000000, 0x00000400}
01e5 e007 | | Load 0x0,0x7
01e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e7 035b | [ | Declare_Type Array,Constrained
01e8 0337 | 7 | Declare_Variable Array
01e9 00d8 | | Load_Top At_Offset_0
01ea 0335 | 5 | Declare_Variable Array,Duplicate
01eb 00cd | | Action Spare6_Action
01ec 6043 |`C | Indirect_Literal Discrete,0x230,{0x00000000, 0x00000400}
01ed 4801 |H | Short_Literal 0x1
01ee 4800 |H | Short_Literal 0x0
01ef 00d9 | | Load_Top At_Offset_1
01f0 e603 | | Load 0x3,0x3
01f1 01d6 | | Execute Vector,Field_Write
01f2 3ffb |? | Loop_Increasing 0x1ee
01f3 00d9 | | Load_Top At_Offset_1
01f4 01d4 | | Execute Vector,Structure_Write
01f5 BODY_01e0:
01f5 e003 | | Load 0x0,0x3
01f6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01f7 e213 | | Load 0x1,0x13
01f8 e402 | | Load 0x2,0x2
01f9 e002 | | Load 0x0,0x2
01fa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01fb c403 | | Store 0x2,0x3
01fc e402 | | Load 0x2,0x2
01fd e002 | | Load 0x0,0x2
01fe 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01ff 0f00 | | Execute_Immediate Equal,0x0
0200 e403 | | Load 0x2,0x3
0201 0f00 | | Execute_Immediate Equal,0x0
0202 0f00 | | Execute_Immediate Equal,0x0
0203 0278 | x | Execute Discrete,Or
0204 6805 |h | Jump_Zero 0x20a
0205 e402 | | Load 0x2,0x2
0206 e002 | | Load 0x0,0x2
0207 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0208 e20f | | Load 0x1,0xf
0209 0257 | W | Execute Discrete,Raise
020a 00e3 | | Load_Encached Natural_Cache
020b 00d9 | | Load_Top At_Offset_1
020c e003 | | Load 0x0,0x3
020d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
020e 601d |` | Indirect_Literal Discrete,0x22c,{0x00007fff, 0xffffffff}
020f e402 | | Load 0x2,0x2
0210 e002 | | Load 0x0,0x2
0211 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0212 c403 | | Store 0x2,0x3
0213 00d1 | | Pop_Control Pop_Count_1
0214 c405 | | Store 0x2,0x5
0215 e403 | | Load 0x2,0x3
0216 6805 |h | Jump_Zero 0x21c
0217 e402 | | Load 0x2,0x2
0218 e002 | | Load 0x0,0x2
0219 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021a e20f | | Load 0x1,0xf
021b 0257 | W | Execute Discrete,Raise
021c e402 | | Load 0x2,0x2
021d e002 | | Load 0x0,0x2
021e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
021f e406 | | Load 0x2,0x6
0220 e409 | | Load 0x2,0x9
0221 00da | | Load_Top At_Offset_2
0222 8214 | | Call 0x1,0x14
0223 00d1 | | Pop_Control Pop_Count_1
0224 c406 | | Store 0x2,0x6
0225 e406 | | Load 0x2,0x6
0226 6802 |h | Jump_Zero 0x229
0227 00cc | | Action Pop_Block
0228 7f87 | | Jump 0x1b0
0229 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022a 0000 0000 | | .XXX[0x2]
022c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0230 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0234 ; --------------------------------------------------------------------------------------
0234 ; STRING TABLE
0234 ; --------------------------------------------------------------------------------------
0234 000a | | .STRTAB 0x000a->0x0239 ; "OK"
0235 000a | | .STRTAB 0x000a->0x023a ; "NUMBER_OF_RETRY_EXCEEDED"
0236 0020 | | .STRTAB 0x0020->0x0246 ; "INCOMPLETE_TRANSMISSION"
0237 0035 | 5 | .STRTAB 0x0035->0x0251 ; "CONNECTION_FAILED"
0238 0044 | D | .STREND 0x0044->0x025a
0239 4f4b 4e55 |OKNU| .STRTAB_STRINGS
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd2e3,0x0000,0x0001,0x0000
0266 0000 0000 | | .BLANK 0000[0x19a]