|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_05d8fd
└─⟦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 04a8 | | .CONST 0x04a8 ; 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 00b1 | | .CONST 0x00b1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 0092 0418 | | Action Push_String_Extended,0x418 ; "@" 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0010 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0012 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0014 00bf | | Action Accept_Activation 0015 4830 |H0 | Short_Literal 0x30 0016 4839 |H9 | Short_Literal 0x39 0017 00e8 | | Load_Encached Character_Cache 0018 03f8 | | Declare_Type Discrete,Constrained 0019 4800 |H | Short_Literal 0x0 001a 480f |H | Short_Literal 0xf 001b 00e8 | | Load_Encached Character_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4801 |H | Short_Literal 0x1 001e 035d | ] | Declare_Type Array,Defined 001f 00d8 | | Load_Top At_Offset_0 0020 0337 | 7 | Declare_Variable Array 0021 00d8 | | Load_Top At_Offset_0 0022 0335 | 5 | Declare_Variable Array,Duplicate 0023 00cd | | Action Spare6_Action 0024 4830 |H0 | Short_Literal 0x30 0025 4800 |H | Short_Literal 0x0 0026 00da | | Load_Top At_Offset_2 0027 01d6 | | Execute Vector,Field_Write 0028 4831 |H1 | Short_Literal 0x31 0029 4801 |H | Short_Literal 0x1 002a 00da | | Load_Top At_Offset_2 002b 01d6 | | Execute Vector,Field_Write 002c 4832 |H2 | Short_Literal 0x32 002d 4802 |H | Short_Literal 0x2 002e 00da | | Load_Top At_Offset_2 002f 01d6 | | Execute Vector,Field_Write 0030 4833 |H3 | Short_Literal 0x33 0031 4803 |H | Short_Literal 0x3 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 4834 |H4 | Short_Literal 0x34 0035 4804 |H | Short_Literal 0x4 0036 00da | | Load_Top At_Offset_2 0037 01d6 | | Execute Vector,Field_Write 0038 4835 |H5 | Short_Literal 0x35 0039 4805 |H | Short_Literal 0x5 003a 00da | | Load_Top At_Offset_2 003b 01d6 | | Execute Vector,Field_Write 003c 4836 |H6 | Short_Literal 0x36 003d 4806 |H | Short_Literal 0x6 003e 00da | | Load_Top At_Offset_2 003f 01d6 | | Execute Vector,Field_Write 0040 4837 |H7 | Short_Literal 0x37 0041 4807 |H | Short_Literal 0x7 0042 00da | | Load_Top At_Offset_2 0043 01d6 | | Execute Vector,Field_Write 0044 4838 |H8 | Short_Literal 0x38 0045 4808 |H | Short_Literal 0x8 0046 00da | | Load_Top At_Offset_2 0047 01d6 | | Execute Vector,Field_Write 0048 4839 |H9 | Short_Literal 0x39 0049 4809 |H | Short_Literal 0x9 004a 00da | | Load_Top At_Offset_2 004b 01d6 | | Execute Vector,Field_Write 004c 4841 |HA | Short_Literal 0x41 004d 480a |H | Short_Literal 0xa 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 4842 |HB | Short_Literal 0x42 0051 480b |H | Short_Literal 0xb 0052 00da | | Load_Top At_Offset_2 0053 01d6 | | Execute Vector,Field_Write 0054 4843 |HC | Short_Literal 0x43 0055 480c |H | Short_Literal 0xc 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 4844 |HD | Short_Literal 0x44 0059 480d |H | Short_Literal 0xd 005a 00da | | Load_Top At_Offset_2 005b 01d6 | | Execute Vector,Field_Write 005c 4845 |HE | Short_Literal 0x45 005d 480e |H | Short_Literal 0xe 005e 00da | | Load_Top At_Offset_2 005f 01d6 | | Execute Vector,Field_Write 0060 4846 |HF | Short_Literal 0x46 0061 480f |H | Short_Literal 0xf 0062 00da | | Load_Top At_Offset_2 0063 01d6 | | Execute Vector,Field_Write 0064 00d9 | | Load_Top At_Offset_1 0065 01d4 | | Execute Vector,Structure_Write 0066 4800 |H | Short_Literal 0x0 0067 4801 |H | Short_Literal 0x1 0068 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 006a 03fd | | Declare_Type Discrete,Defined 006b 00d8 | | Load_Top At_Offset_0 006c 0007 | | Action Break_Optional 006d 4800 |H | Short_Literal 0x0 006e e001 | | Load 0x0,0x1 006f 02a0 | | Declare_Subprogram Null_Subprogram 0070 038e | | Declare_Type Package,Defined 0071 0387 | | Declare_Variable Package 0072 4800 |H | Short_Literal 0x0 0073 e002 | | Load 0x0,0x2 0074 02a0 | | Declare_Subprogram Null_Subprogram 0075 038e | | Declare_Type Package,Defined 0076 0387 | | Declare_Variable Package 0077 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 0079 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 007b 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 007d 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 007f 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0081 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call 0083 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0085 e003 | | Load 0x0,0x3 0086 e004 | | Load 0x0,0x4 0087 e005 | | Load 0x0,0x5 0088 e006 | | Load 0x0,0x6 0089 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 008a e007 | | Load 0x0,0x7 008b 00b6 | | Action Make_Scope 008c e008 | | Load 0x0,0x8 008d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008e 4809 |H | Short_Literal 0x9 008f e216 | | Load 0x1,0x16 0090 020e | | Execute Module,Augment_Imports 0091 e216 | | Load 0x1,0x16 0092 020f | | Execute Module,Activate 0093 e009 | | Load 0x0,0x9 0094 e00a | | Load 0x0,0xa 0095 e00b | | Load 0x0,0xb 0096 e006 | | Load 0x0,0x6 0097 00b6 | | Action Make_Scope 0098 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0099 e00c | | Load 0x0,0xc 009a e007 | | Load 0x0,0x7 009b e00d | | Load 0x0,0xd 009c e00e | | Load 0x0,0xe 009d e00f | | Load 0x0,0xf 009e e010 | | Load 0x0,0x10 009f e011 | | Load 0x0,0x11 00a0 e012 | | Load 0x0,0x12 00a1 e008 | | Load 0x0,0x8 00a2 e003 | | Load 0x0,0x3 00a3 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a4 4811 |H | Short_Literal 0x11 00a5 e217 | | Load 0x1,0x17 00a6 020e | | Execute Module,Augment_Imports 00a7 e217 | | Load 0x1,0x17 00a8 020f | | Execute Module,Activate 00a9 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00ae 00c7 | | Action Elaborate_Subprogram 00af 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 00b1 BODY_0008: 00b1 821f | | Call 0x1,0x1f 00b2 00bc | | Action Signal_Activated 00b3 00bb | | Action Signal_Completion 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e215 | | Load 0x1,0x15 00bc 6804 |h | Jump_Zero 0xc1 00bd 00da | | Load_Top At_Offset_2 00be e217 | | Load 0x1,0x17 00bf 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c1 00da | | Load_Top At_Offset_2 00c2 e216 | | Load 0x1,0x16 00c3 180d | | Execute Package,Field_Execute,Field_Number 0xd 00c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e215 | | Load 0x1,0x15 00cc 6804 |h | Jump_Zero 0xd1 00cd 00da | | Load_Top At_Offset_2 00ce e217 | | Load 0x1,0x17 00cf 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d1 00da | | Load_Top At_Offset_2 00d2 e216 | | Load 0x1,0x16 00d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e215 | | Load 0x1,0x15 00dc 6809 |h | Jump_Zero 0xe6 00dd e5fc | | Load 0x2,-0x4 00de e5fd | | Load 0x2,-0x3 00df e5fe | | Load 0x2,-0x2 00e0 821e | | Call 0x1,0x1e 00e1 e5ff | | Load 0x2,-0x1 00e2 821d | | Call 0x1,0x1d 00e3 e217 | | Load 0x1,0x17 00e4 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00e6 e5fc | | Load 0x2,-0x4 00e7 e5fd | | Load 0x2,-0x3 00e8 e5fe | | Load 0x2,-0x2 00e9 821e | | Call 0x1,0x1e 00ea e5ff | | Load 0x2,-0x1 00eb 821d | | Call 0x1,0x1d 00ec e216 | | Load 0x1,0x16 00ed 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ee 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4607 |F | Jump_Case 0x8 00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00f5 7806 |x | Jump 0xfc ; case 0x1 00f6 7809 |x | Jump 0x100 ; case 0x2 00f7 780d |x | Jump 0x105 ; case 0x3 00f8 7810 |x | Jump 0x109 ; case 0x4 00f9 7811 |x | Jump 0x10b ; case 0x5 00fa 7812 |x | Jump 0x10d ; case 0x6 00fb 7815 |x | Jump 0x111 ; case 0x7 00fc 00da | | Load_Top At_Offset_2 00fd 0091 0416 | | Action Push_String_Extended_Indexed,0x416 ; "EXCELAN" 00ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0100 00db | | Load_Top At_Offset_3 0101 00db | | Load_Top At_Offset_3 0102 00e0 | | Load_Encached Standard_Cache 0103 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 00da | | Load_Top At_Offset_2 0106 00e0 | | Load_Encached Standard_Cache 0107 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0108 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0109 00db | | Load_Top At_Offset_3 010a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010b 00db | | Load_Top At_Offset_3 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d e214 | | Load 0x1,0x14 010e 00dc | | Load_Top At_Offset_4 010f 0267 | g | Execute Discrete,Predecessor 0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0111 e214 | | Load 0x1,0x14 0112 00dc | | Load_Top At_Offset_4 0113 0268 | h | Execute Discrete,Successor 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0169 | i | .CONST 0x0169 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 4801 |H | Short_Literal 0x1 011c 4811 |H | Short_Literal 0x11 011d 00e9 | | Load_Encached String_Cache 011e 035b | [ | Declare_Type Array,Constrained 011f 0337 | 7 | Declare_Variable Array 0120 00d8 | | Load_Top At_Offset_0 0121 0335 | 5 | Declare_Variable Array,Duplicate 0122 00cd | | Action Spare6_Action 0123 4878 |Hx | Short_Literal 0x78 0124 4801 |H | Short_Literal 0x1 0125 00da | | Load_Top At_Offset_2 0126 01d6 | | Execute Vector,Field_Write 0127 4878 |Hx | Short_Literal 0x78 0128 4802 |H | Short_Literal 0x2 0129 00da | | Load_Top At_Offset_2 012a 01d6 | | Execute Vector,Field_Write 012b 482d |H- | Short_Literal 0x2d 012c 4803 |H | Short_Literal 0x3 012d 00da | | Load_Top At_Offset_2 012e 01d6 | | Execute Vector,Field_Write 012f 4878 |Hx | Short_Literal 0x78 0130 4804 |H | Short_Literal 0x4 0131 00da | | Load_Top At_Offset_2 0132 01d6 | | Execute Vector,Field_Write 0133 4878 |Hx | Short_Literal 0x78 0134 4805 |H | Short_Literal 0x5 0135 00da | | Load_Top At_Offset_2 0136 01d6 | | Execute Vector,Field_Write 0137 482d |H- | Short_Literal 0x2d 0138 4806 |H | Short_Literal 0x6 0139 00da | | Load_Top At_Offset_2 013a 01d6 | | Execute Vector,Field_Write 013b 4878 |Hx | Short_Literal 0x78 013c 4807 |H | Short_Literal 0x7 013d 00da | | Load_Top At_Offset_2 013e 01d6 | | Execute Vector,Field_Write 013f 4878 |Hx | Short_Literal 0x78 0140 4808 |H | Short_Literal 0x8 0141 00da | | Load_Top At_Offset_2 0142 01d6 | | Execute Vector,Field_Write 0143 482d |H- | Short_Literal 0x2d 0144 4809 |H | Short_Literal 0x9 0145 00da | | Load_Top At_Offset_2 0146 01d6 | | Execute Vector,Field_Write 0147 4878 |Hx | Short_Literal 0x78 0148 480a |H | Short_Literal 0xa 0149 00da | | Load_Top At_Offset_2 014a 01d6 | | Execute Vector,Field_Write 014b 4878 |Hx | Short_Literal 0x78 014c 480b |H | Short_Literal 0xb 014d 00da | | Load_Top At_Offset_2 014e 01d6 | | Execute Vector,Field_Write 014f 482d |H- | Short_Literal 0x2d 0150 480c |H | Short_Literal 0xc 0151 00da | | Load_Top At_Offset_2 0152 01d6 | | Execute Vector,Field_Write 0153 4878 |Hx | Short_Literal 0x78 0154 480d |H | Short_Literal 0xd 0155 00da | | Load_Top At_Offset_2 0156 01d6 | | Execute Vector,Field_Write 0157 4878 |Hx | Short_Literal 0x78 0158 480e |H | Short_Literal 0xe 0159 00da | | Load_Top At_Offset_2 015a 01d6 | | Execute Vector,Field_Write 015b 482d |H- | Short_Literal 0x2d 015c 480f |H | Short_Literal 0xf 015d 00da | | Load_Top At_Offset_2 015e 01d6 | | Execute Vector,Field_Write 015f 4878 |Hx | Short_Literal 0x78 0160 4810 |H | Short_Literal 0x10 0161 00da | | Load_Top At_Offset_2 0162 01d6 | | Execute Vector,Field_Write 0163 4878 |Hx | Short_Literal 0x78 0164 4811 |H | Short_Literal 0x11 0165 00da | | Load_Top At_Offset_2 0166 01d6 | | Execute Vector,Field_Write 0167 00d9 | | Load_Top At_Offset_1 0168 01d4 | | Execute Vector,Structure_Write 0169 BODY_0118: 0169 00cf | | Action Mark_Auxiliary 016a 4805 |H | Short_Literal 0x5 016b 4800 |H | Short_Literal 0x0 016c 0007 | | Action Break_Optional 016d e5ff | | Load 0x2,-0x1 016e 01dd | | Execute Vector,First 016f 00d9 | | Load_Top At_Offset_1 0170 0273 | s | Execute Discrete,Plus 0171 e5ff | | Load 0x2,-0x1 0172 01d7 | | Execute Vector,Field_Read 0173 09fc | | Execute_Immediate Binary_Scale,-0x4 0174 e213 | | Load 0x1,0x13 0175 01d7 | | Execute Vector,Field_Read 0176 00d9 | | Load_Top At_Offset_1 0177 4803 |H | Short_Literal 0x3 0178 0271 | q | Execute Discrete,Times 0179 0a01 | | Execute_Immediate Plus,0x1 017a e402 | | Load 0x2,0x2 017b 01d6 | | Execute Vector,Field_Write 017c e5ff | | Load 0x2,-0x1 017d 01dd | | Execute Vector,First 017e 00d9 | | Load_Top At_Offset_1 017f 0273 | s | Execute Discrete,Plus 0180 e5ff | | Load 0x2,-0x1 0181 01d7 | | Execute Vector,Field_Read 0182 480f |H | Short_Literal 0xf 0183 0279 | y | Execute Discrete,And 0184 e213 | | Load 0x1,0x13 0185 01d7 | | Execute Vector,Field_Read 0186 00d9 | | Load_Top At_Offset_1 0187 4803 |H | Short_Literal 0x3 0188 0271 | q | Execute Discrete,Times 0189 0a02 | | Execute_Immediate Plus,0x2 018a e402 | | Load 0x2,0x2 018b 01d6 | | Execute Vector,Field_Write 018c 00c8 | | Action Pop_Auxiliary_Range 018d 3fdf |? | Loop_Increasing 0x16d 018e 00ce | | Action Pop_Auxiliary 018f 00d8 | | Load_Top At_Offset_0 0190 00e9 | | Load_Encached String_Cache 0191 01c6 | | Execute Vector,Convert_To_Formal 0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b 00e3 | | Load_Encached Natural_Cache 019c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 019d BODY_0198: 019d 00cf | | Action Mark_Auxiliary 019e e5ff | | Load 0x2,-0x1 019f 01d9 | | Execute Vector,Reverse_Bounds 01a0 0263 | c | Execute Discrete,Above_Bound 01a1 702e |p. | Jump_Nonzero 0x1d0 01a2 00d8 | | Load_Top At_Offset_0 01a3 e5ff | | Load 0x2,-0x1 01a4 01d7 | | Execute Vector,Field_Read 01a5 00d8 | | Load_Top At_Offset_0 01a6 0d3a | : | Execute_Immediate Less,0x3a 01a7 700e |p | Jump_Nonzero 0x1b6 01a8 00d8 | | Load_Top At_Offset_0 01a9 0c41 | A | Execute_Immediate Greater_Equal,0x41 01aa 7003 |p | Jump_Nonzero 0x1ae 01ab 00d1 | | Pop_Control Pop_Count_1 01ac 4800 |H | Short_Literal 0x0 01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ae 00d8 | | Load_Top At_Offset_0 01af 0c47 | G | Execute_Immediate Greater_Equal,0x47 01b0 680b |h | Jump_Zero 0x1bc 01b1 4861 |Ha | Short_Literal 0x61 01b2 4866 |Hf | Short_Literal 0x66 01b3 0262 | b | Execute Discrete,In_Range 01b4 7019 |p | Jump_Nonzero 0x1ce 01b5 7ff6 | | Jump 0x1ac 01b6 0b2d | - | Execute_Immediate Case_Compare,0x2d 01b7 7006 |p | Jump_Nonzero 0x1be 01b8 e211 | | Load 0x1,0x11 01b9 0260 | ` | Execute Discrete,In_Type 01ba 7013 |p | Jump_Nonzero 0x1ce 01bb 7ff0 | | Jump 0x1ac 01bc 00d1 | | Pop_Control Pop_Count_1 01bd 7810 |x | Jump 0x1ce 01be 00d1 | | Pop_Control Pop_Count_1 01bf 00d8 | | Load_Top At_Offset_0 01c0 e5ff | | Load 0x2,-0x1 01c1 01dd | | Execute Vector,First 01c2 027f | | Execute Discrete,Equal 01c3 7005 |p | Jump_Nonzero 0x1c9 01c4 00d8 | | Load_Top At_Offset_0 01c5 e5ff | | Load 0x2,-0x1 01c6 01dc | | Execute Vector,Last 01c7 027f | | Execute Discrete,Equal 01c8 6802 |h | Jump_Zero 0x1cb 01c9 4800 |H | Short_Literal 0x0 01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cb 00db | | Load_Top At_Offset_3 01cc 0a01 | | Execute_Immediate Plus,0x1 01cd c402 | | Store 0x2,0x2 01ce 00c8 | | Action Pop_Auxiliary_Range 01cf 3fd2 |? | Loop_Increasing 0x1a2 01d0 00ce | | Action Pop_Auxiliary 01d1 00d8 | | Load_Top At_Offset_0 01d2 0f05 | | Execute_Immediate Equal,0x5 01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01ed | | .CONST 0x01ed ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e003 | | Load 0x0,0x3 01dc 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 01dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01de 0337 | 7 | Declare_Variable Array 01df 00d8 | | Load_Top At_Offset_0 01e0 0335 | 5 | Declare_Variable Array,Duplicate 01e1 00cd | | Action Spare6_Action 01e2 4806 |H | Short_Literal 0x6 01e3 4801 |H | Short_Literal 0x1 01e4 4800 |H | Short_Literal 0x0 01e5 00d9 | | Load_Top At_Offset_1 01e6 e403 | | Load 0x2,0x3 01e7 01d6 | | Execute Vector,Field_Write 01e8 3ffb |? | Loop_Increasing 0x1e4 01e9 00d9 | | Load_Top At_Offset_1 01ea 01d4 | | Execute Vector,Structure_Write 01eb 00e3 | | Load_Encached Natural_Cache 01ec 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01ed BODY_01d8: 01ed 00cf | | Action Mark_Auxiliary 01ee e5ff | | Load 0x2,-0x1 01ef 01d9 | | Execute Vector,Reverse_Bounds 01f0 0263 | c | Execute Discrete,Above_Bound 01f1 705b |p[ | Jump_Nonzero 0x24d 01f2 00d8 | | Load_Top At_Offset_0 01f3 e5ff | | Load 0x2,-0x1 01f4 01d7 | | Execute Vector,Field_Read 01f5 00d8 | | Load_Top At_Offset_0 01f6 0d3a | : | Execute_Immediate Less,0x3a 01f7 700d |p | Jump_Nonzero 0x205 01f8 00d8 | | Load_Top At_Offset_0 01f9 0c41 | A | Execute_Immediate Greater_Equal,0x41 01fa 7002 |p | Jump_Nonzero 0x1fd 01fb 00d1 | | Pop_Control Pop_Count_1 01fc 08e0 | | Execute_Immediate Raise,0xe0 01fd 00d8 | | Load_Top At_Offset_0 01fe 0c47 | G | Execute_Immediate Greater_Equal,0x47 01ff 6832 |h2 | Jump_Zero 0x232 0200 4861 |Ha | Short_Literal 0x61 0201 4866 |Hf | Short_Literal 0x66 0202 0262 | b | Execute Discrete,In_Range 0203 701a |p | Jump_Nonzero 0x21e 0204 7ff7 | | Jump 0x1fc 0205 0b2d | - | Execute_Immediate Case_Compare,0x2d 0206 7040 |p@ | Jump_Nonzero 0x247 0207 e211 | | Load 0x1,0x11 0208 0260 | ` | Execute Discrete,In_Type 0209 7001 |p | Jump_Nonzero 0x20b 020a 7ff1 | | Jump 0x1fc 020b 00db | | Load_Top At_Offset_3 020c e402 | | Load 0x2,0x2 020d 01d7 | | Execute Vector,Field_Read 020e 0904 | | Execute_Immediate Binary_Scale,0x4 020f 00d9 | | Load_Top At_Offset_1 0210 e5ff | | Load 0x2,-0x1 0211 01d7 | | Execute Vector,Field_Read 0212 0ad0 | | Execute_Immediate Plus,-0x30 0213 00d8 | | Load_Top At_Offset_0 0214 e010 | | Load 0x0,0x10 0215 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0216 0260 | ` | Execute Discrete,In_Type 0217 7001 |p | Jump_Nonzero 0x219 0218 0801 | | Execute_Immediate Raise,0x1 0219 0273 | s | Execute Discrete,Plus 021a e403 | | Load 0x2,0x3 021b e402 | | Load 0x2,0x2 021c 01d6 | | Execute Vector,Field_Write 021d 782d |x- | Jump 0x24b 021e 00db | | Load_Top At_Offset_3 021f e402 | | Load 0x2,0x2 0220 01d7 | | Execute Vector,Field_Read 0221 0904 | | Execute_Immediate Binary_Scale,0x4 0222 00d9 | | Load_Top At_Offset_1 0223 e5ff | | Load 0x2,-0x1 0224 01d7 | | Execute Vector,Field_Read 0225 0a9f | | Execute_Immediate Plus,-0x61 0226 00d8 | | Load_Top At_Offset_0 0227 e010 | | Load 0x0,0x10 0228 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0229 0260 | ` | Execute Discrete,In_Type 022a 7001 |p | Jump_Nonzero 0x22c 022b 0801 | | Execute_Immediate Raise,0x1 022c 0273 | s | Execute Discrete,Plus 022d 0a0a | | Execute_Immediate Plus,0xa 022e e403 | | Load 0x2,0x3 022f e402 | | Load 0x2,0x2 0230 01d6 | | Execute Vector,Field_Write 0231 7819 |x | Jump 0x24b 0232 00d1 | | Pop_Control Pop_Count_1 0233 00db | | Load_Top At_Offset_3 0234 e402 | | Load 0x2,0x2 0235 01d7 | | Execute Vector,Field_Read 0236 0904 | | Execute_Immediate Binary_Scale,0x4 0237 00d9 | | Load_Top At_Offset_1 0238 e5ff | | Load 0x2,-0x1 0239 01d7 | | Execute Vector,Field_Read 023a 0abf | | Execute_Immediate Plus,-0x41 023b 00d8 | | Load_Top At_Offset_0 023c e010 | | Load 0x0,0x10 023d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023e 0260 | ` | Execute Discrete,In_Type 023f 7001 |p | Jump_Nonzero 0x241 0240 0801 | | Execute_Immediate Raise,0x1 0241 0273 | s | Execute Discrete,Plus 0242 0a0a | | Execute_Immediate Plus,0xa 0243 e403 | | Load 0x2,0x3 0244 e402 | | Load 0x2,0x2 0245 01d6 | | Execute Vector,Field_Write 0246 7804 |x | Jump 0x24b 0247 00d1 | | Pop_Control Pop_Count_1 0248 00db | | Load_Top At_Offset_3 0249 0a01 | | Execute_Immediate Plus,0x1 024a c403 | | Store 0x2,0x3 024b 00c8 | | Action Pop_Auxiliary_Range 024c 3fa5 |? | Loop_Increasing 0x1f2 024d 00ce | | Action Pop_Auxiliary 024e 00d9 | | Load_Top At_Offset_1 024f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0255 | U | .CONST 0x0255 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0002 | | .CONST 0x0002 ; Number of locals 0253 INIT_0250: 0253 00e3 | | Load_Encached Natural_Cache 0254 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0255 BODY_0250: 0255 00cf | | Action Mark_Auxiliary 0256 e5ff | | Load 0x2,-0x1 0257 01d9 | | Execute Vector,Reverse_Bounds 0258 0263 | c | Execute Discrete,Above_Bound 0259 701e |p | Jump_Nonzero 0x278 025a 00d8 | | Load_Top At_Offset_0 025b e5ff | | Load 0x2,-0x1 025c 01d7 | | Execute Vector,Field_Read 025d 00d8 | | Load_Top At_Offset_0 025e e211 | | Load 0x1,0x11 025f 0260 | ` | Execute Discrete,In_Type 0260 7004 |p | Jump_Nonzero 0x265 0261 0f2e | . | Execute_Immediate Equal,0x2e 0262 7004 |p | Jump_Nonzero 0x267 0263 4800 |H | Short_Literal 0x0 0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0265 00d1 | | Pop_Control Pop_Count_1 0266 780f |x | Jump 0x276 0267 00d8 | | Load_Top At_Offset_0 0268 e5ff | | Load 0x2,-0x1 0269 01dd | | Execute Vector,First 026a 027f | | Execute Discrete,Equal 026b 7005 |p | Jump_Nonzero 0x271 026c 00d8 | | Load_Top At_Offset_0 026d e5ff | | Load 0x2,-0x1 026e 01dc | | Execute Vector,Last 026f 027f | | Execute Discrete,Equal 0270 6802 |h | Jump_Zero 0x273 0271 4800 |H | Short_Literal 0x0 0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0273 00db | | Load_Top At_Offset_3 0274 0a01 | | Execute_Immediate Plus,0x1 0275 c402 | | Store 0x2,0x2 0276 00c8 | | Action Pop_Auxiliary_Range 0277 3fe2 |? | Loop_Increasing 0x25a 0278 00ce | | Action Pop_Auxiliary 0279 4801 |H | Short_Literal 0x1 027a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0297 | | .CONST 0x0297 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 4801 |H | Short_Literal 0x1 0284 4820 |H | Short_Literal 0x20 0285 e00e | | Load 0x0,0xe 0286 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0287 035b | [ | Declare_Type Array,Constrained 0288 0337 | 7 | Declare_Variable Array 0289 00d8 | | Load_Top At_Offset_0 028a 0335 | 5 | Declare_Variable Array,Duplicate 028b 00cd | | Action Spare6_Action 028c 4820 |H | Short_Literal 0x20 028d 4801 |H | Short_Literal 0x1 028e 4800 |H | Short_Literal 0x0 028f 00d9 | | Load_Top At_Offset_1 0290 e403 | | Load 0x2,0x3 0291 01d6 | | Execute Vector,Field_Write 0292 3ffb |? | Loop_Increasing 0x28e 0293 00d9 | | Load_Top At_Offset_1 0294 01d4 | | Execute Vector,Structure_Write 0295 00e3 | | Load_Encached Natural_Cache 0296 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0297 BODY_0280: 0297 00cf | | Action Mark_Auxiliary 0298 e5ff | | Load 0x2,-0x1 0299 01d9 | | Execute Vector,Reverse_Bounds 029a 0263 | c | Execute Discrete,Above_Bound 029b 7024 |p$ | Jump_Nonzero 0x2c0 029c 00d8 | | Load_Top At_Offset_0 029d e5ff | | Load 0x2,-0x1 029e 01d7 | | Execute Vector,Field_Read 029f 00d8 | | Load_Top At_Offset_0 02a0 e211 | | Load 0x1,0x11 02a1 0260 | ` | Execute Discrete,In_Type 02a2 7003 |p | Jump_Nonzero 0x2a6 02a3 0f2e | . | Execute_Immediate Equal,0x2e 02a4 7016 |p | Jump_Nonzero 0x2bb 02a5 08e0 | | Execute_Immediate Raise,0xe0 02a6 00d1 | | Pop_Control Pop_Count_1 02a7 00db | | Load_Top At_Offset_3 02a8 e402 | | Load 0x2,0x2 02a9 01d7 | | Execute Vector,Field_Read 02aa 480a |H | Short_Literal 0xa 02ab 0271 | q | Execute Discrete,Times 02ac 00d9 | | Load_Top At_Offset_1 02ad e5ff | | Load 0x2,-0x1 02ae 01d7 | | Execute Vector,Field_Read 02af 0ad0 | | Execute_Immediate Plus,-0x30 02b0 00d8 | | Load_Top At_Offset_0 02b1 e010 | | Load 0x0,0x10 02b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02b3 0260 | ` | Execute Discrete,In_Type 02b4 7001 |p | Jump_Nonzero 0x2b6 02b5 0801 | | Execute_Immediate Raise,0x1 02b6 0273 | s | Execute Discrete,Plus 02b7 e403 | | Load 0x2,0x3 02b8 e402 | | Load 0x2,0x2 02b9 01d6 | | Execute Vector,Field_Write 02ba 7803 |x | Jump 0x2be 02bb 00db | | Load_Top At_Offset_3 02bc 0a01 | | Execute_Immediate Plus,0x1 02bd c403 | | Store 0x2,0x3 02be 00c8 | | Action Pop_Auxiliary_Range 02bf 3fdc |? | Loop_Increasing 0x29c 02c0 00ce | | Action Pop_Auxiliary 02c1 4801 |H | Short_Literal 0x1 02c2 00d9 | | Load_Top At_Offset_1 02c3 00db | | Load_Top At_Offset_3 02c4 01cf | | Execute Vector,Slice_Read 02c5 e00e | | Load 0x0,0xe 02c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c7 01c6 | | Execute Vector,Convert_To_Formal 02c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d7 | | .CONST 0x02d7 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 02d5 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 02d7 BODY_02d0: 02d7 e5ff | | Load 0x2,-0x1 02d8 01db | | Execute Vector,Length 02d9 0d01 | | Execute_Immediate Less,0x1 02da 700b |p | Jump_Nonzero 0x2e6 02db e5ff | | Load 0x2,-0x1 02dc e20d | | Load 0x1,0xd 02dd 01df | | Execute Vector,Equal 02de 6801 |h | Jump_Zero 0x2e0 02df 7806 |x | Jump 0x2e6 02e0 e5ff | | Load 0x2,-0x1 02e1 821b | | Call 0x1,0x1b 02e2 6802 |h | Jump_Zero 0x2e5 02e3 8402 | | Call 0x2,0x2 02e4 7801 |x | Jump 0x2e6 02e5 8403 | | Call 0x2,0x3 02e6 e003 | | Load 0x0,0x3 02e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e8 0337 | 7 | Declare_Variable Array 02e9 4804 |H | Short_Literal 0x4 02ea 4801 |H | Short_Literal 0x1 02eb 4800 |H | Short_Literal 0x0 02ec 00d9 | | Load_Top At_Offset_1 02ed e404 | | Load 0x2,0x4 02ee 01d6 | | Execute Vector,Field_Write 02ef 3ffb |? | Loop_Increasing 0x2eb 02f0 e003 | | Load 0x0,0x3 02f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f2 01c3 | | Execute Vector,Check_In_Type 02f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02ff | | .CONST 0x02ff ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0003 | | .CONST 0x0003 ; Number of locals 02fb INIT_02f8: 02fb 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 02fd 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 02ff BODY_02f8: 02ff e5ff | | Load 0x2,-0x1 0300 01db | | Execute Vector,Length 0301 0d01 | | Execute_Immediate Less,0x1 0302 7011 |p | Jump_Nonzero 0x314 0303 e5ff | | Load 0x2,-0x1 0304 e20d | | Load 0x1,0xd 0305 01df | | Execute Vector,Equal 0306 6801 |h | Jump_Zero 0x308 0307 780c |x | Jump 0x314 0308 e5ff | | Load 0x2,-0x1 0309 8219 | | Call 0x1,0x19 030a 6803 |h | Jump_Zero 0x30e 030b e5ff | | Load 0x2,-0x1 030c 821a | | Call 0x1,0x1a 030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030e e5ff | | Load 0x2,-0x1 030f 821b | | Call 0x1,0x1b 0310 6802 |h | Jump_Zero 0x313 0311 8402 | | Call 0x2,0x2 0312 7801 |x | Jump 0x314 0313 8403 | | Call 0x2,0x3 0314 e003 | | Load 0x0,0x3 0315 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0316 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0317 0337 | 7 | Declare_Variable Array 0318 4806 |H | Short_Literal 0x6 0319 4801 |H | Short_Literal 0x1 031a 4800 |H | Short_Literal 0x0 031b 00d9 | | Load_Top At_Offset_1 031c e404 | | Load 0x2,0x4 031d 01d6 | | Execute Vector,Field_Write 031e 3ffb |? | Loop_Increasing 0x31a 031f e003 | | Load 0x0,0x3 0320 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0321 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0322 01c3 | | Execute Vector,Check_In_Type 0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0324 0000 0000 | | .BLANK 0000[0x4] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0331 | 1 | .CONST 0x0331 ; Address of begin 0329 0341 | A | .CONST 0x0341 ; Address of exception handler 032a 0002 | | .CONST 0x0002 ; Number of locals 032b INIT_0328: 032b e003 | | Load 0x0,0x3 032c 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 032d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 032e 02c7 | | Declare_Variable Any 032f 00d8 | | Load_Top At_Offset_0 0330 1c00 | | Execute_Immediate Run_Utility,0x0 0331 BODY_0328: 0331 00be | | Action Activate_Tasks 0332 00d8 | | Load_Top At_Offset_0 0333 0120 | | Execute Any,Is_Value 0334 6804 |h | Jump_Zero 0x339 0335 e003 | | Load 0x0,0x3 0336 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0337 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0338 7801 |x | Jump 0x33a 0339 00d8 | | Load_Top At_Offset_0 033a e003 | | Load 0x0,0x3 033b 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 033c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 033d c402 | | Store 0x2,0x2 033e 4800 |H | Short_Literal 0x0 033f a215 | | Store_Unchecked 0x1,0x15 0340 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0341 TRAP_0328: 0341 0007 | | Action Break_Optional 0342 4801 |H | Short_Literal 0x1 0343 a215 | | Store_Unchecked 0x1,0x15 0344 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0345 0000 0000 | | .XXX[0x3] 0347 0000 | | 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034d | M | .CONST 0x034d ; Address of begin 0349 0353 | S | .CONST 0x0353 ; Address of exception handler 034a 0002 | | .CONST 0x0002 ; Number of locals 034b INIT_0348: 034b e5ff | | Load 0x2,-0x1 034c 821c | | Call 0x1,0x1c 034d BODY_0348: 034d 00d8 | | Load_Top At_Offset_0 034e e003 | | Load 0x0,0x3 034f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0350 01c7 | | Execute Vector,Convert 0351 00cb | | Action Pop_Block_With_Result 0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0353 TRAP_0348: 0353 010e | | Execute Exception,Is_Constraint_Error 0354 680d |h | Jump_Zero 0x362 0355 e013 | | Load 0x0,0x13 0356 180e | | Execute Package,Field_Execute,Field_Number 0xe 0357 4807 |H | Short_Literal 0x7 0358 4822 |H" | Short_Literal 0x22 0359 e5ff | | Load 0x2,-0x1 035a 01ca | | Execute Vector,Prepend 035b 0092 0419 | | Action Push_String_Extended,0x419 ; "\x22 is not an Internet address." 035d 01cc | | Execute Vector,Catenate 035e e014 | | Load 0x0,0x14 035f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0360 00d8 | | Load_Top At_Offset_0 0361 0101 | | Execute Exception,Reraise 0362 0100 | | Execute Exception,Raise 0363 0000 0000 | | .BLANK 0000[0x5] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036d | m | .CONST 0x036d ; Address of begin 0369 036f | o | .CONST 0x036f ; Address of exception handler 036a 0002 | | .CONST 0x0002 ; Number of locals 036b INIT_0368: 036b 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 036d BODY_0368: 036d 8602 | | Call 0x3,0x2 036e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 036f TRAP_0368: 036f e015 | | Load 0x0,0x15 0370 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0371 010f | | Execute Exception,Equal 0372 6816 |h | Jump_Zero 0x389 0373 e013 | | Load 0x0,0x13 0374 180e | | Execute Package,Field_Execute,Field_Number 0xe 0375 4807 |H | Short_Literal 0x7 0376 4822 |H" | Short_Literal 0x22 0377 e5ff | | Load 0x2,-0x1 0378 01ca | | Execute Vector,Prepend 0379 0092 041a | | Action Push_String_Extended,0x41a ; "\x22 is neither " 037b 01cc | | Execute Vector,Catenate 037c 0092 041b | | Action Push_String_Extended,0x41b ; "an Internet address nor " 037e 01cc | | Execute Vector,Catenate 037f 0092 041c | | Action Push_String_Extended,0x41c ; "a defined host name" 0381 01cc | | Execute Vector,Catenate 0382 0092 041d | | Action Push_String_Extended,0x41d ; " (Transport_Name.Undefined)." 0384 01cc | | Execute Vector,Catenate 0385 e014 | | Load 0x0,0x14 0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0387 00d8 | | Load_Top At_Offset_0 0388 0101 | | Execute Exception,Reraise 0389 0100 | | Execute Exception,Raise 038a 0000 0000 | | .BLANK 0000[0x6] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0395 | | .CONST 0x0395 ; Address of begin 0391 039c | | .CONST 0x039c ; Address of exception handler 0392 0002 | | .CONST 0x0002 ; Number of locals 0393 INIT_0390: 0393 e5ff | | Load 0x2,-0x1 0394 821c | | Call 0x1,0x1c 0395 BODY_0390: 0395 00d8 | | Load_Top At_Offset_0 0396 e003 | | Load 0x0,0x3 0397 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0398 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0399 01c7 | | Execute Vector,Convert 039a 00cb | | Action Pop_Block_With_Result 039b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039c TRAP_0390: 039c 010e | | Execute Exception,Is_Constraint_Error 039d 680d |h | Jump_Zero 0x3ab 039e e013 | | Load 0x0,0x13 039f 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a0 4807 |H | Short_Literal 0x7 03a1 4822 |H" | Short_Literal 0x22 03a2 e5ff | | Load 0x2,-0x1 03a3 01ca | | Execute Vector,Prepend 03a4 0092 041e | | Action Push_String_Extended,0x41e ; "\x22 is not an Ethernet address." 03a6 01cc | | Execute Vector,Catenate 03a7 e014 | | Load 0x0,0x14 03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a9 00d8 | | Load_Top At_Offset_0 03aa 0101 | | Execute Exception,Reraise 03ab 0100 | | Execute Exception,Raise 03ac 0000 0000 | | .BLANK 0000[0x4] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b5 | | .CONST 0x03b5 ; Address of begin 03b1 03b7 | | .CONST 0x03b7 ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 03b5 BODY_03b0: 03b5 8602 | | Call 0x3,0x2 03b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b7 TRAP_03b0: 03b7 e015 | | Load 0x0,0x15 03b8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03b9 010f | | Execute Exception,Equal 03ba 6816 |h | Jump_Zero 0x3d1 03bb e013 | | Load 0x0,0x13 03bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 03bd 4807 |H | Short_Literal 0x7 03be 4822 |H" | Short_Literal 0x22 03bf e5ff | | Load 0x2,-0x1 03c0 01ca | | Execute Vector,Prepend 03c1 0092 041a | | Action Push_String_Extended,0x41a ; "\x22 is neither " 03c3 01cc | | Execute Vector,Catenate 03c4 0092 041f | | Action Push_String_Extended,0x41f ; "an Ethernet address nor " 03c6 01cc | | Execute Vector,Catenate 03c7 0092 041c | | Action Push_String_Extended,0x41c ; "a defined host name" 03c9 01cc | | Execute Vector,Catenate 03ca 0092 041d | | Action Push_String_Extended,0x41d ; " (Transport_Name.Undefined)." 03cc 01cc | | Execute Vector,Catenate 03cd e014 | | Load 0x0,0x14 03ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03cf 00d8 | | Load_Top At_Offset_0 03d0 0101 | | Execute Exception,Reraise 03d1 0100 | | Execute Exception,Raise 03d2 0000 0000 | | .BLANK 0000[0x6] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03de | | .CONST 0x03de ; Address of begin 03d9 03e5 | | .CONST 0x03e5 ; Address of exception handler 03da 0002 | | .CONST 0x0002 ; Number of locals 03db INIT_03d8: 03db e5ff | | Load 0x2,-0x1 03dc e015 | | Load 0x0,0x15 03dd 180e | | Execute Package,Field_Execute,Field_Number 0xe 03de BODY_03d8: 03de 00d8 | | Load_Top At_Offset_0 03df e003 | | Load 0x0,0x3 03e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e1 01c7 | | Execute Vector,Convert 03e2 00cb | | Action Pop_Block_With_Result 03e3 00cb | | Action Pop_Block_With_Result 03e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e5 TRAP_03d8: 03e5 010e | | Execute Exception,Is_Constraint_Error 03e6 680d |h | Jump_Zero 0x3f4 03e7 e013 | | Load 0x0,0x13 03e8 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e9 4807 |H | Short_Literal 0x7 03ea 4822 |H" | Short_Literal 0x22 03eb e5ff | | Load 0x2,-0x1 03ec 01ca | | Execute Vector,Prepend 03ed 0092 0420 | | Action Push_String_Extended,0x420 ; "\x22 does not resolve to an Internet address." 03ef 01cc | | Execute Vector,Catenate 03f0 e014 | | Load 0x0,0x14 03f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f2 00d8 | | Load_Top At_Offset_0 03f3 0101 | | Execute Exception,Reraise 03f4 0100 | | Execute Exception,Raise 03f5 0000 0000 | | .XXX[0x3] 03f7 0000 | | 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fe | | .CONST 0x03fe ; Address of begin 03f9 0406 | | .CONST 0x0406 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e5ff | | Load 0x2,-0x1 03fc e015 | | Load 0x0,0x15 03fd 180e | | Execute Package,Field_Execute,Field_Number 0xe 03fe BODY_03f8: 03fe 00d8 | | Load_Top At_Offset_0 03ff e003 | | Load 0x0,0x3 0400 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0401 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0402 01c7 | | Execute Vector,Convert 0403 00cb | | Action Pop_Block_With_Result 0404 00cb | | Action Pop_Block_With_Result 0405 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0406 TRAP_03f8: 0406 010e | | Execute Exception,Is_Constraint_Error 0407 680d |h | Jump_Zero 0x415 0408 e013 | | Load 0x0,0x13 0409 180e | | Execute Package,Field_Execute,Field_Number 0xe 040a 4807 |H | Short_Literal 0x7 040b 4822 |H" | Short_Literal 0x22 040c e5ff | | Load 0x2,-0x1 040d 01ca | | Execute Vector,Prepend 040e 0092 0421 | !| Action Push_String_Extended,0x421 ; "\x22 does not resolve to an Ethernet address." 0410 01cc | | Execute Vector,Catenate 0411 e014 | | Load 0x0,0x14 0412 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0413 00d8 | | Load_Top At_Offset_0 0414 0101 | | Execute Exception,Reraise 0415 0100 | | Execute Exception,Raise 0416 ; -------------------------------------------------------------------------------------- 0416 ; STRING TABLE 0416 ; -------------------------------------------------------------------------------------- 0416 001a | | .STRTAB 0x001a->0x0423 ; "EXCELAN" 0417 001f | | .STRTAB 0x001f->0x0426 ; "CMC" 0418 0020 | | .STRTAB 0x0020->0x0428 ; "@" 0419 001f | | .STRTAB 0x001f->0x0428 ; "\x22 is not an Internet address." 041a 003a | : | .STRTAB 0x003a->0x0437 ; "\x22 is neither " 041b 0045 | E | .STRTAB 0x0045->0x043d ; "an Internet address nor " 041c 005b | [ | .STRTAB 0x005b->0x0449 ; "a defined host name" 041d 006c | l | .STRTAB 0x006c->0x0453 ; " (Transport_Name.Undefined)." 041e 0086 | | .STRTAB 0x0086->0x0461 ; "\x22 is not an Ethernet address." 041f 00a1 | | .STRTAB 0x00a1->0x046f ; "an Ethernet address nor " 0420 00b7 | | .STRTAB 0x00b7->0x047b ; "\x22 does not resolve to an Internet address." 0421 00df | | .STRTAB 0x00df->0x0490 ; "\x22 does not resolve to an Ethernet address." 0422 0107 | | .STREND 0x0107->0x04a5 0423 4558 4345 |EXCE| .STRTAB_STRINGS 04a6 0000 0000 | | .XXX[0x2] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug Table 04a8 ; -------------------------------------------------------------------------------------- 04a8 0004 000c | | .DEBUG4 0x0004,0x000c,0xd188,0x0000,0x0001,0x0000 04ae 0000 0000 | | .BLANK 0000[0xd] 04bb 483f 1c60 |H? `| .XXX[0x1c] 04bd 0000 06c9 | | 04bf 0000 1000 | | 04c1 c000 5500 | U | 04c3 0000 0615 | | 04c5 4000 0200 |@ | 04c7 0000 0300 | | 04c9 2800 0000 |( | 04cb 0800 0002 | | 04cd 0000 0011 | | 04cf 0000 0000 | | 04d1 0800 0000 | | 04d3 5200 0010 |R | 04d5 1873 a800 | s | 04d7 0000 0000 | | .BLANK 0000[0x2a] 0501 0020 0500 | | .XXX[0xc] 0503 0000 0000 | | 0505 0000 4000 | @ | 0507 0002 2000 | | 0509 0000 0100 | | 050b 0000 0a00 | | 050d 0000 0000 | | .BLANK 0000[0x2d] 053a 0004 00a0 | | .XXX[0xc] 053c 0000 0000 | | 053e 0000 0800 | | 0540 0000 4400 | D | 0542 0000 0020 | | 0544 0000 0140 | @| 0546 0000 0000 | | .BLANK 0000[0x2e] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]