|
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 1384 4800 | H | .XXX[0x10]
04b0 456c 4000 |El@ |
04b2 0000 0455 | U|
04b4 6600 8bcc |f |
04b6 20c7 2005 | |
04b8 6bb8 0000 |k |
04ba 0001 1574 | t|
04bc 0045 2620 | E& |
04be 0000 0000 | | .BLANK 0000[0x7]
04c5 08b1 9800 | | .XXX[0x13]
04c7 0115 0980 | |
04c9 0000 13b1 | |
04cb 7008 b468 |p h|
04cd 0000 0000 | |
04cf 5000 0000 |P |
04d1 0022 ccc0 | " |
04d3 117a 5800 | zX |
04d5 0000 0116 | |
04d7 5180 |Q |
04d8 0000 0000 | | .BLANK 0000[0x7]
04df 0009 6980 | i | .XXX[0x1e]
04e1 045d a200 | ] |
04e3 0000 004c | L|
04e5 0000 45a3 | E |
04e7 4000 0000 |@ |
04e9 0558 0000 | X |
04eb 0001 16fe | |
04ed 4224 0022 |B$ "|
04ef f4b0 0000 | |
04f1 0002 2e9c | . |
04f3 0046 6330 | Fc0|
04f5 6390 02b5 |c |
04f7 dc00 0000 | |
04f9 008b b440 | @|
04fb 22d1 a000 |" |
04fd 0000 0000 | | .BLANK 0000[0x6]
0503 0004 609e | ` | .XXX[0x13]
0505 0000 8b7f | |
0507 0000 0009 | |
0509 d8b8 0462 | b|
050b 0600 0000 | |
050d 0028 0000 | ( |
050f 0000 1166 | f|
0511 6008 ccd0 |` |
0513 0000 0000 | |
0515 8c23 | # |
0516 0000 0000 | | .BLANK 0000[0x8]
051e 04b4 c002 | | .XXX[0x1d]
0520 32ba 0000 |2 |
0522 0000 4b00 | K |
0524 0023 1030 | # 0|
0526 0000 0002 | |
0528 b400 0000 | |
052a 008c 7961 | ya|
052c 1200 1199 | |
052e a000 0000 | |
0530 0119 4280 | B |
0532 2370 2831 |#p(1|
0534 c801 5aee | Z |
0536 0000 0000 | |
0538 4657 4011 |FW@ |
053a 8818 | |
053b 0000 0000 | | .BLANK 0000[0x7]
0542 0234 3800 | 48 | .XXX[0x13]
0544 0046 3ca0 | F< |
0546 0000 04ec | |
0548 5c02 34ec |\ 4 |
054a 0000 0000 | |
054c 1400 0000 | |
054e 0008 b330 | 0|
0550 046e 3a00 | n: |
0552 0000 0046 | F|
0554 8ea0 | |
0555 0000 0000 | | .BLANK 0000[0x7]
055c 0002 5a60 | Z`| .XXX[0x38]
055e 011b 5180 | Q |
0560 0000 0025 | %|
0562 c000 11a7 | |
0564 6000 0000 |` |
0566 015e 0000 | ^ |
0568 0000 46b9 | F |
056a d089 0008 | |
056c dc74 0000 | t |
056e 0000 8d9b | |
0570 8011 d75c | \|
0572 18e4 00ad | |
0574 7700 0000 |w |
0576 0023 6a30 | #j0|
0578 08d3 b000 | |
057a 0000 0000 | |
057c 0000 a887 | |
057e 0000 0000 | |
0580 0001 1c10 | |
0582 8000 235c | #\|
0584 e000 0002 | |
0586 762e 011c |v. |
0588 6a80 0000 |j |
058a 000a 0000 | |
058c 0000 0459 | Y|
058e 9802 3b06 | ; |
0590 0000 0000 | |
0592 2385 e000 |# |
0594 0000 0000 | | .BLANK 0000[0x7]
059b 012d 3000 | -0 | .XXX[0x1d]
059d 8ea3 0000 | |
059f 0000 1300 | |
05a1 0008 e354 | T|
05a3 0000 0000 | |
05a5 b100 0000 | |
05a7 0023 9b78 | # x|
05a9 4480 0476 |D v|
05ab 0c00 0000 | |
05ad 0047 4ae0 | GJ |
05af 08fb 520c | R |
05b1 7200 56bb |r V |
05b3 8000 0000 | |
05b5 11d4 6004 | ` |
05b7 71aa |q |
05b8 0000 0000 | | .BLANK 0000[0x7]
05bf 008f 0280 | | .XXX[0x13]
05c1 0011 cdb8 | |
05c3 0000 013b | ;|
05c5 1700 8f2f | /|
05c7 8000 0000 | |
05c9 0500 0000 | |
05cb 0002 2ccc | , |
05cd 011f 7780 | w |
05cf 0000 0011 | |
05d1 e238 | 8 |
05d2 0000 0000 | | .BLANK 0000[0x8]
05da 9698 0047 | G| .XXX[0x1d]
05dc cea0 0000 | |
05de 0003 4000 | @ |
05e0 0479 7c00 | y| |
05e2 0000 0059 | Y|
05e4 8000 0000 | |
05e6 11ed 0422 | "|
05e8 4002 3eef |@ > |
05ea 0000 0000 | |
05ec 23e4 0004 |# |
05ee 857b 0639 | { 9|
05f0 002b 5dc0 | +] |
05f2 0000 0008 | |
05f4 f9d4 023c | <|
05f6 be00 | |
05f7 0000 0000 | | .BLANK 0000[0x7]
05fe 47fe 6000 |G ` | .XXX[0x2]