|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03c8 | | .CONST 0x03c8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a0 | | .CONST 0x00a0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4801 |H | Short_Literal 0x1
0012 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0
0016 4804 |H | Short_Literal 0x4
0017 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 4800 |H | Short_Literal 0x0
001b 4801 |H | Short_Literal 0x1
001c 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
001e 03fe | | Declare_Type Discrete,Defined,Visible
001f 4800 |H | Short_Literal 0x0
0020 4802 |H | Short_Literal 0x2
0021 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0023 03fe | | Declare_Type Discrete,Defined,Visible
0024 4800 |H | Short_Literal 0x0
0025 4805 |H | Short_Literal 0x5
0026 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0028 03fe | | Declare_Type Discrete,Defined,Visible
0029 4800 |H | Short_Literal 0x0
002a 4802 |H | Short_Literal 0x2
002b 029f 019b | | Declare_Subprogram INIT_0198,For_Call
002d 03fe | | Declare_Type Discrete,Defined,Visible
002e e001 | | Load 0x0,0x1
002f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0030 0129 | ) | Execute Any,Make_Visible
0031 e001 | | Load 0x0,0x1
0032 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0033 0129 | ) | Execute Any,Make_Visible
0034 e001 | | Load 0x0,0x1
0035 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0036 0129 | ) | Execute Any,Make_Visible
0037 e001 | | Load 0x0,0x1
0038 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0039 0129 | ) | Execute Any,Make_Visible
003a e001 | | Load 0x0,0x1
003b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003c 0129 | ) | Execute Any,Make_Visible
003d 00da | | Load_Top At_Offset_2
003e 00db | | Load_Top At_Offset_3
003f 02a0 | | Declare_Subprogram Null_Subprogram
0040 4802 |H | Short_Literal 0x2
0041 032e | . | Declare_Type Record,Defined,Visible
0042 e211 | | Load 0x1,0x11
0043 e001 | | Load 0x0,0x1
0044 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0045 4801 |H | Short_Literal 0x1
0046 4990 |I | Short_Literal 0x190
0047 e001 | | Load 0x0,0x1
0048 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0049 035c | \ | Declare_Type Array,Constrained,Visible
004a 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
004c 4803 |H | Short_Literal 0x3
004d 032e | . | Declare_Type Record,Defined,Visible
004e e20f | | Load 0x1,0xf
004f 00d9 | | Load_Top At_Offset_1
0050 4801 |H | Short_Literal 0x1
0051 e219 | | Load 0x1,0x19
0052 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0054 4801 |H | Short_Literal 0x1
0055 4801 |H | Short_Literal 0x1
0056 4801 |H | Short_Literal 0x1
0057 4800 |H | Short_Literal 0x0
0058 4801 |H | Short_Literal 0x1
0059 031e | | Declare_Type Variant_Record,Defined,Visible
005a e210 | | Load 0x1,0x10
005b 4801 |H | Short_Literal 0x1
005c e219 | | Load 0x1,0x19
005d 4801 |H | Short_Literal 0x1
005e e212 | | Load 0x1,0x12
005f 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0061 4802 |H | Short_Literal 0x2
0062 4800 |H | Short_Literal 0x0
0063 4802 |H | Short_Literal 0x2
0064 4800 |H | Short_Literal 0x0
0065 4801 |H | Short_Literal 0x1
0066 031e | | Declare_Type Variant_Record,Defined,Visible
0067 e216 | | Load 0x1,0x16
0068 e215 | | Load 0x1,0x15
0069 e216 | | Load 0x1,0x16
006a e217 | | Load 0x1,0x17
006b e21a | | Load 0x1,0x1a
006c 00d8 | | Load_Top At_Offset_0
006d 029f 029b | | Declare_Subprogram INIT_0298,For_Call
006f 4806 |H | Short_Literal 0x6
0070 032e | . | Declare_Type Record,Defined,Visible
0071 e20e | | Load 0x1,0xe
0072 4801 |H | Short_Literal 0x1
0073 e21b | | Load 0x1,0x1b
0074 4801 |H | Short_Literal 0x1
0075 e21c | | Load 0x1,0x1c
0076 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
0078 4802 |H | Short_Literal 0x2
0079 4800 |H | Short_Literal 0x0
007a 4802 |H | Short_Literal 0x2
007b 4800 |H | Short_Literal 0x0
007c 4801 |H | Short_Literal 0x1
007d 031e | | Declare_Type Variant_Record,Defined,Visible
007e e20d | | Load 0x1,0xd
007f e218 | | Load 0x1,0x18
0080 4801 |H | Short_Literal 0x1
0081 e21d | | Load 0x1,0x1d
0082 4801 |H | Short_Literal 0x1
0083 e21e | | Load 0x1,0x1e
0084 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
0086 4802 |H | Short_Literal 0x2
0087 4801 |H | Short_Literal 0x1
0088 4802 |H | Short_Literal 0x2
0089 4800 |H | Short_Literal 0x0
008a 4801 |H | Short_Literal 0x1
008b 031e | | Declare_Type Variant_Record,Defined,Visible
008c 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
008e 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0090 e219 | | Load 0x1,0x19
0091 0322 | " | Declare_Variable Record
0092 4802 |H | Short_Literal 0x2
0093 00d9 | | Load_Top At_Offset_1
0094 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0095 4802 |H | Short_Literal 0x2
0096 00d9 | | Load_Top At_Offset_1
0097 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0098 0129 | ) | Execute Any,Make_Visible
0099 00bf | | Action Accept_Activation
009a 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
009c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
009d 00c7 | | Action Elaborate_Subprogram
009e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009f 00c7 | | Action Elaborate_Subprogram
00a0 BODY_0008:
00a0 00bc | | Action Signal_Activated
00a1 00bb | | Action Signal_Completion
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x8
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7806 |x | Jump 0xb4 ; case 0x1
00ae 7809 |x | Jump 0xb8 ; case 0x2
00af 780d |x | Jump 0xbd ; case 0x3
00b0 7810 |x | Jump 0xc1 ; case 0x4
00b1 7811 |x | Jump 0xc3 ; case 0x5
00b2 7812 |x | Jump 0xc5 ; case 0x6
00b3 7815 |x | Jump 0xc9 ; case 0x7
00b4 00da | | Load_Top At_Offset_2
00b5 0091 032b | +| Action Push_String_Extended_Indexed,0x32b ; "CALL"
00b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b8 00db | | Load_Top At_Offset_3
00b9 00db | | Load_Top At_Offset_3
00ba 00e0 | | Load_Encached Standard_Cache
00bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd 00da | | Load_Top At_Offset_2
00be 00e0 | | Load_Encached Standard_Cache
00bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c3 00db | | Load_Top At_Offset_3
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 e20d | | Load 0x1,0xd
00c6 00dc | | Load_Top At_Offset_4
00c7 0267 | g | Execute Discrete,Predecessor
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 e20d | | Load 0x1,0xd
00ca 00dc | | Load_Top At_Offset_4
00cb 0268 | h | Execute Discrete,Successor
00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x8
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7806 |x | Jump 0xdc ; case 0x1
00d6 7809 |x | Jump 0xe0 ; case 0x2
00d7 780d |x | Jump 0xe5 ; case 0x3
00d8 7810 |x | Jump 0xe9 ; case 0x4
00d9 7811 |x | Jump 0xeb ; case 0x5
00da 7812 |x | Jump 0xed ; case 0x6
00db 7815 |x | Jump 0xf1 ; case 0x7
00dc 00da | | Load_Top At_Offset_2
00dd 0091 032d | -| Action Push_String_Extended_Indexed,0x32d ; "MESSAGE_ACCEPTED"
00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e0 00db | | Load_Top At_Offset_3
00e1 00db | | Load_Top At_Offset_3
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 00da | | Load_Top At_Offset_2
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed e20e | | Load 0x1,0xe
00ee 00dc | | Load_Top At_Offset_4
00ef 0267 | g | Execute Discrete,Predecessor
00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f1 e20e | | Load 0x1,0xe
00f2 00dc | | Load_Top At_Offset_4
00f3 0268 | h | Execute Discrete,Successor
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4607 |F | Jump_Case 0x8
00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00fd 7806 |x | Jump 0x104 ; case 0x1
00fe 7809 |x | Jump 0x108 ; case 0x2
00ff 780d |x | Jump 0x10d ; case 0x3
0100 7810 |x | Jump 0x111 ; case 0x4
0101 7811 |x | Jump 0x113 ; case 0x5
0102 7812 |x | Jump 0x115 ; case 0x6
0103 7815 |x | Jump 0x119 ; case 0x7
0104 00da | | Load_Top At_Offset_2
0105 0091 032f | /| Action Push_String_Extended_Indexed,0x32f ; "SUCCESS"
0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0108 00db | | Load_Top At_Offset_3
0109 00db | | Load_Top At_Offset_3
010a 00e0 | | Load_Encached Standard_Cache
010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d 00da | | Load_Top At_Offset_2
010e 00e0 | | Load_Encached Standard_Cache
010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0113 00db | | Load_Top At_Offset_3
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 e20f | | Load 0x1,0xf
0116 00dc | | Load_Top At_Offset_4
0117 0267 | g | Execute Discrete,Predecessor
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 e20f | | Load 0x1,0xf
011a 00dc | | Load_Top At_Offset_4
011b 0268 | h | Execute Discrete,Successor
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7806 |x | Jump 0x12c ; case 0x1
0126 7809 |x | Jump 0x130 ; case 0x2
0127 780d |x | Jump 0x135 ; case 0x3
0128 7810 |x | Jump 0x139 ; case 0x4
0129 7811 |x | Jump 0x13b ; case 0x5
012a 7812 |x | Jump 0x13d ; case 0x6
012b 7815 |x | Jump 0x141 ; case 0x7
012c 00da | | Load_Top At_Offset_2
012d 0091 0334 | 4| Action Push_String_Extended_Indexed,0x334 ; "RPC_MISMATCH"
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 00e0 | | Load_Encached Standard_Cache
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 00da | | Load_Top At_Offset_2
0136 00e0 | | Load_Encached Standard_Cache
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d e210 | | Load 0x1,0x10
013e 00dc | | Load_Top At_Offset_4
013f 0267 | g | Execute Discrete,Predecessor
0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0141 e210 | | Load 0x1,0x10
0142 00dc | | Load_Top At_Offset_4
0143 0268 | h | Execute Discrete,Successor
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4607 |F | Jump_Case 0x8
014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
014d 7806 |x | Jump 0x154 ; case 0x1
014e 7809 |x | Jump 0x158 ; case 0x2
014f 780d |x | Jump 0x15d ; case 0x3
0150 7810 |x | Jump 0x161 ; case 0x4
0151 7811 |x | Jump 0x163 ; case 0x5
0152 7812 |x | Jump 0x165 ; case 0x6
0153 7815 |x | Jump 0x169 ; case 0x7
0154 00da | | Load_Top At_Offset_2
0155 0091 0336 | 6| Action Push_String_Extended_Indexed,0x336 ; "NUL"
0157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0158 00db | | Load_Top At_Offset_3
0159 00db | | Load_Top At_Offset_3
015a 00e0 | | Load_Encached Standard_Cache
015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015d 00da | | Load_Top At_Offset_2
015e 00e0 | | Load_Encached Standard_Cache
015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0165 e211 | | Load 0x1,0x11
0166 00dc | | Load_Top At_Offset_4
0167 0267 | g | Execute Discrete,Predecessor
0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0169 e211 | | Load 0x1,0x11
016a 00dc | | Load_Top At_Offset_4
016b 0268 | h | Execute Discrete,Successor
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4607 |F | Jump_Case 0x8
0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0175 7806 |x | Jump 0x17c ; case 0x1
0176 7809 |x | Jump 0x180 ; case 0x2
0177 780d |x | Jump 0x185 ; case 0x3
0178 7810 |x | Jump 0x189 ; case 0x4
0179 7811 |x | Jump 0x18b ; case 0x5
017a 7812 |x | Jump 0x18d ; case 0x6
017b 7815 |x | Jump 0x191 ; case 0x7
017c 00da | | Load_Top At_Offset_2
017d 0091 0339 | 9| Action Push_String_Extended_Indexed,0x339 ; "NUL"
017f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0180 00db | | Load_Top At_Offset_3
0181 00db | | Load_Top At_Offset_3
0182 00e0 | | Load_Encached Standard_Cache
0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0185 00da | | Load_Top At_Offset_2
0186 00e0 | | Load_Encached Standard_Cache
0187 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0188 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0189 00db | | Load_Top At_Offset_3
018a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018b 00db | | Load_Top At_Offset_3
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d e212 | | Load 0x1,0x12
018e 00dc | | Load_Top At_Offset_4
018f 0267 | g | Execute Discrete,Predecessor
0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0191 e212 | | Load 0x1,0x12
0192 00dc | | Load_Top At_Offset_4
0193 0268 | h | Execute Discrete,Successor
0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4607 |F | Jump_Case 0x8
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
019d 7806 |x | Jump 0x1a4 ; case 0x1
019e 7809 |x | Jump 0x1a8 ; case 0x2
019f 780d |x | Jump 0x1ad ; case 0x3
01a0 7810 |x | Jump 0x1b1 ; case 0x4
01a1 7811 |x | Jump 0x1b3 ; case 0x5
01a2 7812 |x | Jump 0x1b5 ; case 0x6
01a3 7815 |x | Jump 0x1b9 ; case 0x7
01a4 00da | | Load_Top At_Offset_2
01a5 0091 033f | ?| Action Push_String_Extended_Indexed,0x33f ; "UDP_IP"
01a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a8 00db | | Load_Top At_Offset_3
01a9 00db | | Load_Top At_Offset_3
01aa 00e0 | | Load_Encached Standard_Cache
01ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ad 00da | | Load_Top At_Offset_2
01ae 00e0 | | Load_Encached Standard_Cache
01af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b1 00db | | Load_Top At_Offset_3
01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b3 00db | | Load_Top At_Offset_3
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 e213 | | Load 0x1,0x13
01b6 00dc | | Load_Top At_Offset_4
01b7 0267 | g | Execute Discrete,Predecessor
01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b9 e213 | | Load 0x1,0x13
01ba 00dc | | Load_Top At_Offset_4
01bb 0268 | h | Execute Discrete,Successor
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 8223 | # | Call 0x1,0x23
01c5 6813 |h | Jump_Zero 0x1d9
01c6 00db | | Load_Top At_Offset_3
01c7 8223 | # | Call 0x1,0x23
01c8 680e |h | Jump_Zero 0x1d7
01c9 00da | | Load_Top At_Offset_2
01ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cb e5fe | | Load 0x2,-0x2
01cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01cd 027a | z | Execute Discrete,Less_Equal
01ce 6806 |h | Jump_Zero 0x1d5
01cf 00db | | Load_Top At_Offset_3
01d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d1 00db | | Load_Top At_Offset_3
01d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d3 027a | z | Execute Discrete,Less_Equal
01d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d5 4800 |H | Short_Literal 0x0
01d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d7 4800 |H | Short_Literal 0x0
01d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d9 4800 |H | Short_Literal 0x0
01da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e5 e5fe | | Load 0x2,-0x2
01e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e7 027d | } | Execute Discrete,Greater
01e8 6803 |h | Jump_Zero 0x1ec
01e9 00db | | Load_Top At_Offset_3
01ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ec 00da | | Load_Top At_Offset_2
01ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f5 00db | | Load_Top At_Offset_3
01f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f7 027a | z | Execute Discrete,Less_Equal
01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 4608 |F | Jump_Case 0x9
0204 7808 |x | Jump 0x20d ; case 0x0
0205 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0206 780d |x | Jump 0x214 ; case 0x2
0207 780c |x | Jump 0x214 ; case 0x3
0208 780b |x | Jump 0x214 ; case 0x4
0209 780a |x | Jump 0x214 ; case 0x5
020a 7809 |x | Jump 0x214 ; case 0x6
020b 7808 |x | Jump 0x214 ; case 0x7
020c 7807 |x | Jump 0x214 ; case 0x8
020d 4800 |H | Short_Literal 0x0
020e 00db | | Load_Top At_Offset_3
020f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0210 4800 |H | Short_Literal 0x0
0211 00db | | Load_Top At_Offset_3
0212 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0213 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0214 0869 | i | Execute_Immediate Raise,0x69
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4608 |F | Jump_Case 0x9
021c 7808 |x | Jump 0x225 ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e 783c |x< | Jump 0x25b ; case 0x2
021f 783b |x; | Jump 0x25b ; case 0x3
0220 783a |x: | Jump 0x25b ; case 0x4
0221 7839 |x9 | Jump 0x25b ; case 0x5
0222 7819 |x | Jump 0x23c ; case 0x6
0223 7820 |x | Jump 0x244 ; case 0x7
0224 782f |x/ | Jump 0x254 ; case 0x8
0225 00da | | Load_Top At_Offset_2
0226 016c | l | Execute Variant_Record,Is_Constrained
0227 7009 |p | Jump_Nonzero 0x231
0228 00cf | | Action Mark_Auxiliary
0229 4800 |H | Short_Literal 0x0
022a e5ff | | Load 0x2,-0x1
022b 1c08 | | Execute_Immediate Run_Utility,0x8
022c 00d8 | | Load_Top At_Offset_0
022d 1c00 | | Execute_Immediate Run_Utility,0x0
022e c5ff | | Store 0x2,-0x1
022f 00ce | | Action Pop_Auxiliary
0230 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0231 00da | | Load_Top At_Offset_2
0232 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0233 1c00 | | Execute_Immediate Run_Utility,0x0
0234 00da | | Load_Top At_Offset_2
0235 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0236 4604 |F | Jump_Case 0x5
0237 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0238 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0239 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
023a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
023b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
023c 00db | | Load_Top At_Offset_3
023d 0f02 | | Execute_Immediate Equal,0x2
023e 7001 |p | Jump_Nonzero 0x240
023f 7802 |x | Jump 0x242
0240 4801 |H | Short_Literal 0x1
0241 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0242 48ff |H | Short_Literal 0xff
0243 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0244 00db | | Load_Top At_Offset_3
0245 e5fe | | Load 0x2,-0x2
0246 4604 |F | Jump_Case 0x5
0247 7806 |x | Jump 0x24e ; case 0x0
0248 7803 |x | Jump 0x24c ; case 0x1
0249 7806 |x | Jump 0x250 ; case 0x2
024a 7801 |x | Jump 0x24c ; case 0x3
024b 7800 |x | Jump 0x24c ; case 0x4
024c 48ff |H | Short_Literal 0xff
024d 7803 |x | Jump 0x251
024e 48ff |H | Short_Literal 0xff
024f 7801 |x | Jump 0x251
0250 4801 |H | Short_Literal 0x1
0251 e5ff | | Load 0x2,-0x1
0252 031b | | Declare_Type Variant_Record,Constrained
0253 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0254 00db | | Load_Top At_Offset_3
0255 e5fe | | Load 0x2,-0x2
0256 e5ff | | Load 0x2,-0x1
0257 1c06 | | Execute_Immediate Run_Utility,0x6
0258 e5ff | | Load 0x2,-0x1
0259 02fc | | Declare_Variable Variant_Record,With_Constraint
025a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025b 0869 | i | Execute_Immediate Raise,0x69
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4608 |F | Jump_Case 0x9
0264 7808 |x | Jump 0x26d ; case 0x0
0265 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0266 782c |x, | Jump 0x293 ; case 0x2
0267 782b |x+ | Jump 0x293 ; case 0x3
0268 782a |x* | Jump 0x293 ; case 0x4
0269 7829 |x) | Jump 0x293 ; case 0x5
026a 7812 |x | Jump 0x27d ; case 0x6
026b 7817 |x | Jump 0x283 ; case 0x7
026c 781f |x | Jump 0x28c ; case 0x8
026d 00da | | Load_Top At_Offset_2
026e 016c | l | Execute Variant_Record,Is_Constrained
026f 7009 |p | Jump_Nonzero 0x279
0270 00cf | | Action Mark_Auxiliary
0271 4800 |H | Short_Literal 0x0
0272 e5ff | | Load 0x2,-0x1
0273 1c08 | | Execute_Immediate Run_Utility,0x8
0274 00d8 | | Load_Top At_Offset_0
0275 1c00 | | Execute_Immediate Run_Utility,0x0
0276 c5ff | | Store 0x2,-0x1
0277 00ce | | Action Pop_Auxiliary
0278 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0279 00da | | Load_Top At_Offset_2
027a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
027b 6800 |h | Jump_Zero 0x27c
027c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
027d 00db | | Load_Top At_Offset_3
027e 6802 |h | Jump_Zero 0x281
027f 4802 |H | Short_Literal 0x2
0280 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0281 4801 |H | Short_Literal 0x1
0282 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0283 00db | | Load_Top At_Offset_3
0284 e5fe | | Load 0x2,-0x2
0285 6802 |h | Jump_Zero 0x288
0286 4802 |H | Short_Literal 0x2
0287 7801 |x | Jump 0x289
0288 4801 |H | Short_Literal 0x1
0289 e5ff | | Load 0x2,-0x1
028a 031b | | Declare_Type Variant_Record,Constrained
028b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028c 00db | | Load_Top At_Offset_3
028d e5fe | | Load 0x2,-0x2
028e e5ff | | Load 0x2,-0x1
028f 1c06 | | Execute_Immediate Run_Utility,0x6
0290 e5ff | | Load 0x2,-0x1
0291 02fc | | Declare_Variable Variant_Record,With_Constraint
0292 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0293 0869 | i | Execute_Immediate Raise,0x69
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 4608 |F | Jump_Case 0x9
029c 7808 |x | Jump 0x2a5 ; case 0x0
029d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
029e 780d |x | Jump 0x2ac ; case 0x2
029f 780c |x | Jump 0x2ac ; case 0x3
02a0 780b |x | Jump 0x2ac ; case 0x4
02a1 780a |x | Jump 0x2ac ; case 0x5
02a2 7809 |x | Jump 0x2ac ; case 0x6
02a3 7808 |x | Jump 0x2ac ; case 0x7
02a4 7807 |x | Jump 0x2ac ; case 0x8
02a5 00da | | Load_Top At_Offset_2
02a6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
02a7 1c00 | | Execute_Immediate Run_Utility,0x0
02a8 00da | | Load_Top At_Offset_2
02a9 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
02aa 1c00 | | Execute_Immediate Run_Utility,0x0
02ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02ac 0869 | i | Execute_Immediate Raise,0x69
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
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 4608 |F | Jump_Case 0x9
02b4 7808 |x | Jump 0x2bd ; case 0x0
02b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02b6 7833 |x3 | Jump 0x2ea ; case 0x2
02b7 7832 |x2 | Jump 0x2ea ; case 0x3
02b8 7831 |x1 | Jump 0x2ea ; case 0x4
02b9 7830 |x0 | Jump 0x2ea ; case 0x5
02ba 7819 |x | Jump 0x2d4 ; case 0x6
02bb 781e |x | Jump 0x2da ; case 0x7
02bc 7826 |x& | Jump 0x2e3 ; case 0x8
02bd 00da | | Load_Top At_Offset_2
02be 016c | l | Execute Variant_Record,Is_Constrained
02bf 7009 |p | Jump_Nonzero 0x2c9
02c0 00cf | | Action Mark_Auxiliary
02c1 4800 |H | Short_Literal 0x0
02c2 e5ff | | Load 0x2,-0x1
02c3 1c08 | | Execute_Immediate Run_Utility,0x8
02c4 00d8 | | Load_Top At_Offset_0
02c5 1c00 | | Execute_Immediate Run_Utility,0x0
02c6 c5ff | | Store 0x2,-0x1
02c7 00ce | | Action Pop_Auxiliary
02c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02c9 00da | | Load_Top At_Offset_2
02ca 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02cb 6804 |h | Jump_Zero 0x2d0
02cc 00da | | Load_Top At_Offset_2
02cd 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
02ce 1c00 | | Execute_Immediate Run_Utility,0x0
02cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02d0 00da | | Load_Top At_Offset_2
02d1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
02d2 1c00 | | Execute_Immediate Run_Utility,0x0
02d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02d4 00db | | Load_Top At_Offset_3
02d5 6802 |h | Jump_Zero 0x2d8
02d6 4802 |H | Short_Literal 0x2
02d7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02d8 4801 |H | Short_Literal 0x1
02d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02da 00db | | Load_Top At_Offset_3
02db e5fe | | Load 0x2,-0x2
02dc 6802 |h | Jump_Zero 0x2df
02dd 4802 |H | Short_Literal 0x2
02de 7801 |x | Jump 0x2e0
02df 4801 |H | Short_Literal 0x1
02e0 e5ff | | Load 0x2,-0x1
02e1 031b | | Declare_Type Variant_Record,Constrained
02e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e3 00db | | Load_Top At_Offset_3
02e4 e5fe | | Load 0x2,-0x2
02e5 e5ff | | Load 0x2,-0x1
02e6 1c06 | | Execute_Immediate Run_Utility,0x6
02e7 e5ff | | Load 0x2,-0x1
02e8 02fc | | Declare_Variable Variant_Record,With_Constraint
02e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ea 0869 | i | Execute_Immediate Raise,0x69
02eb 0000 0000 | | .BLANK 0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4608 |F | Jump_Case 0x9
02f4 7808 |x | Jump 0x2fd ; case 0x0
02f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02f6 7833 |x3 | Jump 0x32a ; case 0x2
02f7 7832 |x2 | Jump 0x32a ; case 0x3
02f8 7831 |x1 | Jump 0x32a ; case 0x4
02f9 7830 |x0 | Jump 0x32a ; case 0x5
02fa 7819 |x | Jump 0x314 ; case 0x6
02fb 781e |x | Jump 0x31a ; case 0x7
02fc 7826 |x& | Jump 0x323 ; case 0x8
02fd 00da | | Load_Top At_Offset_2
02fe 016c | l | Execute Variant_Record,Is_Constrained
02ff 7009 |p | Jump_Nonzero 0x309
0300 00cf | | Action Mark_Auxiliary
0301 4800 |H | Short_Literal 0x0
0302 e5ff | | Load 0x2,-0x1
0303 1c08 | | Execute_Immediate Run_Utility,0x8
0304 00d8 | | Load_Top At_Offset_0
0305 1c00 | | Execute_Immediate Run_Utility,0x0
0306 c5ff | | Store 0x2,-0x1
0307 00ce | | Action Pop_Auxiliary
0308 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0309 00da | | Load_Top At_Offset_2
030a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
030b 6804 |h | Jump_Zero 0x310
030c 00da | | Load_Top At_Offset_2
030d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
030e 1c00 | | Execute_Immediate Run_Utility,0x0
030f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0310 00da | | Load_Top At_Offset_2
0311 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0312 1c00 | | Execute_Immediate Run_Utility,0x0
0313 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0314 00db | | Load_Top At_Offset_3
0315 6802 |h | Jump_Zero 0x318
0316 4802 |H | Short_Literal 0x2
0317 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0318 4801 |H | Short_Literal 0x1
0319 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031a 00db | | Load_Top At_Offset_3
031b e5fe | | Load 0x2,-0x2
031c 6802 |h | Jump_Zero 0x31f
031d 4802 |H | Short_Literal 0x2
031e 7801 |x | Jump 0x320
031f 4801 |H | Short_Literal 0x1
0320 e5ff | | Load 0x2,-0x1
0321 031b | | Declare_Type Variant_Record,Constrained
0322 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0323 00db | | Load_Top At_Offset_3
0324 e5fe | | Load 0x2,-0x2
0325 e5ff | | Load 0x2,-0x1
0326 1c06 | | Execute_Immediate Run_Utility,0x6
0327 e5ff | | Load 0x2,-0x1
0328 02fc | | Declare_Variable Variant_Record,With_Constraint
0329 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032a 0869 | i | Execute_Immediate Raise,0x69
032b ; --------------------------------------------------------------------------------------
032b ; STRING TABLE
032b ; --------------------------------------------------------------------------------------
032b 0030 | 0 | .STRTAB 0x0030->0x0343 ; "CALL"
032c 0032 | 2 | .STRTAB 0x0032->0x0345 ; "REPLY"
032d 0035 | 5 | .STRTAB 0x0035->0x0347 ; "MESSAGE_ACCEPTED"
032e 0043 | C | .STRTAB 0x0043->0x034f ; "MESSAGE_DENIED"
032f 004f | O | .STRTAB 0x004f->0x0356 ; "SUCCESS"
0330 0054 | T | .STRTAB 0x0054->0x035a ; "PROGRAM_UNAVAILABLE"
0331 0065 | e | .STRTAB 0x0065->0x0363 ; "PROGRAM_MISMATCH"
0332 0073 | s | .STRTAB 0x0073->0x036b ; "PROCEDURE_UNAVAILABLE"
0333 0086 | | .STRTAB 0x0086->0x0376 ; "GARBAGE_ARGUMENTS"
0334 0095 | | .STRTAB 0x0095->0x037e ; "RPC_MISMATCH"
0335 009f | | .STRTAB 0x009f->0x0384 ; "AUTHENTICATION_ERROR"
0336 00b1 | | .STRTAB 0x00b1->0x038e ; "NUL"
0337 00b2 | | .STRTAB 0x00b2->0x0390 ; "UNIX"
0338 00b4 | | .STRTAB 0x00b4->0x0392 ; "SHORT"
0339 00b7 | | .STRTAB 0x00b7->0x0394 ; "NUL"
033a 00b8 | | .STRTAB 0x00b8->0x0396 ; "BAD_CREDENTIALS"
033b 00c5 | | .STRTAB 0x00c5->0x039d ; "REJECTED_CREDENTIALS"
033c 00d7 | | .STRTAB 0x00d7->0x03a7 ; "BAD_VERIFIER"
033d 00e1 | | .STRTAB 0x00e1->0x03ad ; "REJECTED_VERIFIER"
033e 00f0 | | .STRTAB 0x00f0->0x03b6 ; "TOO_WEAK"
033f 00f6 | | .STRTAB 0x00f6->0x03ba ; "UDP_IP"
0340 00fa | | .STRTAB 0x00fa->0x03bd ; "TCP_IP"
0341 00fe | | .STRTAB 0x00fe->0x03c0 ; "UNKNOWN"
0342 0103 | | .STREND 0x0103->0x03c3
0343 4341 4c4c |CALL| .STRTAB_STRINGS
03c4 0000 0000 | | .BLANK 0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug Table
03c8 ; --------------------------------------------------------------------------------------
03c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc88f,0x0000,0x0001,0x0000
03ce 0007 027c | || .XXX[0x6]
03d0 0007 4402 | D |
03d2 4831 0257 |H1 W|
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 01db 0004 | | .XXX[0xc]
03da 0001 e5ff | |
03dc 0007 e5fe | |
03de 0007 027b | {|
03e0 0007 4402 | D |
03e2 4831 0257 |H1 W|
03e4 0000 0000 | | .BLANK 0000[0x8]
03ec 0027 3404 | '4 | .XXX[0x8]
03ee 0000 0000 | |
03f0 0007 4402 | D |
03f2 4831 0257 |H1 W|
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 01fb 0004 | | .XXX[0x8]
03fa 0001 e20e | |
03fc 0007 0322 | "|
03fe e5ff 0007 | |