|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 0260 | ` | .CONST 0x0260 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 e001 | | Load 0x0,0x1 0013 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0014 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 0016 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call 0018 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 001a 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0021 00c7 | | Action Elaborate_Subprogram 0022 BODY_0008: 0022 00bc | | Action Signal_Activated 0023 00bb | | Action Signal_Completion 0024 0000 0000 | | .BLANK 0000[0x4] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0038 | 8 | .CONST 0x0038 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0004 | | .CONST 0x0004 ; Number of locals 002b INIT_0028: 002b e002 | | Load 0x0,0x2 002c e003 | | Load 0x0,0x3 002d 4803 |H | Short_Literal 0x3 002e 0092 0230 | 0| Action Push_String_Extended,0x230 ; "+" 0030 e004 | | Load 0x0,0x4 0031 0387 | | Declare_Variable Package 0032 00d8 | | Load_Top At_Offset_0 0033 020f | | Execute Module,Activate 0034 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 0036 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0038 BODY_0028: 0038 4800 |H | Short_Literal 0x0 0039 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Internet" 003b e402 | | Load 0x2,0x2 003c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 003d 4800 |H | Short_Literal 0x0 003e 0092 0232 | 2| Action Push_String_Extended,0x232 ; "Ethernet" 0040 e402 | | Load 0x2,0x2 0041 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0042 4800 |H | Short_Literal 0x0 0043 0092 0233 | 3| Action Push_String_Extended,0x233 ; "flags" 0045 e402 | | Load 0x2,0x2 0046 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0047 e5ff | | Load 0x2,-0x1 0048 e005 | | Load 0x0,0x5 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a 01df | | Execute Vector,Equal 004b 6802 |h | Jump_Zero 0x4e 004c 8404 | | Call 0x2,0x4 004d 7807 |x | Jump 0x55 004e e5ff | | Load 0x2,-0x1 004f 8006 | | Call 0x0,0x6 0050 e007 | | Load 0x0,0x7 0051 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0052 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0053 01c7 | | Execute Vector,Convert 0054 8403 | | Call 0x2,0x3 0055 4801 |H | Short_Literal 0x1 0056 00db | | Load_Top At_Offset_3 0057 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0058 4801 |H | Short_Literal 0x1 0059 e008 | | Load 0x0,0x8 005a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 005b e008 | | Load 0x0,0x8 005c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 005d 00db | | Load_Top At_Offset_3 005e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 005f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0065 | e | .CONST 0x0065 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0065 BODY_0060: 0065 00db | | Load_Top At_Offset_3 0066 e005 | | Load 0x0,0x5 0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0068 01df | | Execute Vector,Equal 0069 6802 |h | Jump_Zero 0x6c 006a 8402 | | Call 0x2,0x2 006b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006c 00db | | Load_Top At_Offset_3 006d 8006 | | Call 0x0,0x6 006e e007 | | Load 0x0,0x7 006f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0070 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0071 01c7 | | Execute Vector,Convert 0072 e007 | | Load 0x0,0x7 0073 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0074 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0075 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0076 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0077 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007d | } | .CONST 0x007d ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b 00e3 | | Load_Encached Natural_Cache 007c 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 007d BODY_0078: 007d e5fd | | Load 0x2,-0x3 007e 6803 |h | Jump_Zero 0x82 007f 00d8 | | Load_Top At_Offset_0 0080 0a08 | | Execute_Immediate Plus,0x8 0081 0059 | Y | Store_Top Discrete,At_Offset_1 0082 e5fc | | Load 0x2,-0x4 0083 6803 |h | Jump_Zero 0x87 0084 00d8 | | Load_Top At_Offset_0 0085 0a04 | | Execute_Immediate Plus,0x4 0086 0059 | Y | Store_Top Discrete,At_Offset_1 0087 e007 | | Load 0x0,0x7 0088 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0089 1b18 | | Execute Package,Field_Read,Field_Number 0x18 008a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008c 0322 | " | Declare_Variable Record 008d e5fe | | Load 0x2,-0x2 008e e007 | | Load 0x0,0x7 008f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0090 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0091 01c7 | | Execute Vector,Convert 0092 e007 | | Load 0x0,0x7 0093 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0094 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0095 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0097 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0098 0119 | | Execute Any,Check_In_Formal_Type 0099 00d9 | | Load_Top At_Offset_1 009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009b 00d9 | | Load_Top At_Offset_1 009c 00d9 | | Load_Top At_Offset_1 009d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009e e5ff | | Load 0x2,-0x1 009f e007 | | Load 0x0,0x7 00a0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a2 01c7 | | Execute Vector,Convert 00a3 e007 | | Load 0x0,0x7 00a4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a7 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bc | | .CONST 0x00bc ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0004 | | .CONST 0x0004 ; Number of locals 00b3 INIT_00b0: 00b3 e009 | | Load 0x0,0x9 00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e00a | | Load 0x0,0xa 00b9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00ba 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00bc BODY_00b0: 00bc e00a | | Load 0x0,0xa 00bd 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00be 00db | | Load_Top At_Offset_3 00bf 0120 | | Execute Any,Is_Value 00c0 6803 |h | Jump_Zero 0xc4 00c1 e009 | | Load 0x0,0x9 00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c3 7801 |x | Jump 0xc5 00c4 00db | | Load_Top At_Offset_3 00c5 e00a | | Load 0x0,0xa 00c6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c7 4801 |H | Short_Literal 0x1 00c8 4806 |H | Short_Literal 0x6 00c9 00e9 | | Load_Encached String_Cache 00ca 0334 | 4 | Declare_Variable Array,With_Constraint 00cb 5034 |P4 | Indirect_Literal Any,0x100,{0x5544502f, 0x49502020} 00cc e009 | | Load 0x0,0x9 00cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00ce c402 | | Store 0x2,0x2 00cf 005a | Z | Store_Top Discrete,At_Offset_2 00d0 00d9 | | Load_Top At_Offset_1 00d1 701e |p | Jump_Nonzero 0xf0 00d2 e00a | | Load 0x0,0xa 00d3 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00d4 6027 |`' | Indirect_Literal Discrete,0xfc,{0x00007fff, 0xffffffff} 00d5 e00b | | Load 0x0,0xb 00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d7 4800 |H | Short_Literal 0x0 00d8 4803 |H | Short_Literal 0x3 00d9 e00c | | Load 0x0,0xc 00da 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00db 0334 | 4 | Declare_Variable Array,With_Constraint 00dc 487f |H | Short_Literal 0x7f 00dd 4800 |H | Short_Literal 0x0 00de 00da | | Load_Top At_Offset_2 00df 01d6 | | Execute Vector,Field_Write 00e0 4800 |H | Short_Literal 0x0 00e1 4801 |H | Short_Literal 0x1 00e2 00da | | Load_Top At_Offset_2 00e3 01d6 | | Execute Vector,Field_Write 00e4 4800 |H | Short_Literal 0x0 00e5 4802 |H | Short_Literal 0x2 00e6 00da | | Load_Top At_Offset_2 00e7 01d6 | | Execute Vector,Field_Write 00e8 4801 |H | Short_Literal 0x1 00e9 4803 |H | Short_Literal 0x3 00ea 00da | | Load_Top At_Offset_2 00eb 01d6 | | Execute Vector,Field_Write 00ec e402 | | Load 0x2,0x2 00ed e009 | | Load 0x0,0x9 00ee 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ef 005a | Z | Store_Top Discrete,At_Offset_2 00f0 00d9 | | Load_Top At_Offset_1 00f1 7002 |p | Jump_Nonzero 0xf4 00f2 8404 | | Call 0x2,0x4 00f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f4 e001 | | Load 0x0,0x1 00f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00f6 e5ff | | Load 0x2,-0x1 00f7 017d | } | Execute Record,Structure_Write 00f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f9 0000 0000 | | .XXX[0x3] 00fb 0000 | | 00fc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0100 5544 502f |UDP/| .LITERAL {0x5544502f, 0x49502020} 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0113 | | .CONST 0x0113 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e210 | | Load 0x1,0x10 010c 0322 | " | Declare_Variable Record 010d e00d | | Load 0x0,0xd 010e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 010f e001 | | Load 0x0,0x1 0110 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0111 00d9 | | Load_Top At_Offset_1 0112 017d | } | Execute Record,Structure_Write 0113 BODY_0108: 0113 00d8 | | Load_Top At_Offset_0 0114 8211 | | Call 0x1,0x11 0115 00d1 | | Pop_Control Pop_Count_1 0116 00d8 | | Load_Top At_Offset_0 0117 e5ff | | Load 0x2,-0x1 0118 017d | } | Execute Record,Structure_Write 0119 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e001 | | Load 0x0,0x1 0125 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0126 e00d | | Load 0x0,0xd 0127 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0128 e00e | | Load 0x0,0xe 0129 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 012a 0f00 | | Execute_Immediate Equal,0x0 012b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0143 | C | .CONST 0x0143 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0004 | | .CONST 0x0004 ; Number of locals 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 e001 | | Load 0x0,0x1 0135 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0136 00d8 | | Load_Top At_Offset_0 0137 01dd | | Execute Vector,First 0138 e00d | | Load 0x0,0xd 0139 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 013a 01db | | Execute Vector,Length 013b 0273 | s | Execute Discrete,Plus 013c 0a02 | | Execute_Immediate Plus,0x2 013d 00e2 | | Load_Encached Integer_Cache 013e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 013f e007 | | Load 0x0,0x7 0140 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0141 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0142 0337 | 7 | Declare_Variable Array 0143 BODY_0130: 0143 00cf | | Action Mark_Auxiliary 0144 00d9 | | Load_Top At_Offset_1 0145 01d9 | | Execute Vector,Reverse_Bounds 0146 0007 | | Action Break_Optional 0147 e403 | | Load 0x2,0x3 0148 e402 | | Load 0x2,0x2 0149 01d7 | | Execute Vector,Field_Read 014a 00d8 | | Load_Top At_Offset_0 014b e00c | | Load 0x0,0xc 014c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014d 0260 | ` | Execute Discrete,In_Type 014e 7001 |p | Jump_Nonzero 0x150 014f 0801 | | Execute_Immediate Raise,0x1 0150 00d9 | | Load_Top At_Offset_1 0151 e404 | | Load 0x2,0x4 0152 01d6 | | Execute Vector,Field_Write 0153 e403 | | Load 0x2,0x3 0154 0a01 | | Execute_Immediate Plus,0x1 0155 c403 | | Store 0x2,0x3 0156 00c8 | | Action Pop_Auxiliary_Range 0157 3fef |? | Loop_Increasing 0x147 0158 00ce | | Action Pop_Auxiliary 0159 00d8 | | Load_Top At_Offset_0 015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016d | m | .CONST 0x016d ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 e007 | | Load 0x0,0x7 0165 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0166 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0167 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0168 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0169 00d8 | | Load_Top At_Offset_0 016a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016b 00e3 | | Load_Encached Natural_Cache 016c 03f1 | | Declare_Variable Discrete,With_Value 016d BODY_0160: 016d e7ff | | Load 0x3,-0x1 016e e00f | | Load 0x0,0xf 016f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0170 e402 | | Load 0x2,0x2 0171 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0172 00d9 | | Load_Top At_Offset_1 0173 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0174 e010 | | Load 0x0,0x10 0175 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0176 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0177 01c7 | | Execute Vector,Convert 0178 8011 | | Call 0x0,0x11 0179 e402 | | Load 0x2,0x2 017a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017b 00d8 | | Load_Top At_Offset_0 017c 7004 |p | Jump_Nonzero 0x181 017d 00ea | | Load_Encached Null_String_Cache 017e e402 | | Load 0x2,0x2 017f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0180 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0181 00d8 | | Load_Top At_Offset_0 0182 09ff | | Execute_Immediate Binary_Scale,-0x1 0183 4801 |H | Short_Literal 0x1 0184 0279 | y | Execute Discrete,And 0185 7005 |p | Jump_Nonzero 0x18b 0186 0092 0234 | 4| Action Push_String_Extended,0x234 ; "incomplete" 0188 e402 | | Load 0x2,0x2 0189 1814 | | Execute Package,Field_Execute,Field_Number 0x14 018a 7803 |x | Jump 0x18e 018b 00d8 | | Load_Top At_Offset_0 018c 0afe | | Execute_Immediate Plus,-0x2 018d 0059 | Y | Store_Top Discrete,At_Offset_1 018e 00d8 | | Load_Top At_Offset_0 018f 09fe | | Execute_Immediate Binary_Scale,-0x2 0190 4801 |H | Short_Literal 0x1 0191 0279 | y | Execute Discrete,And 0192 6807 |h | Jump_Zero 0x19a 0193 0092 0235 | 5| Action Push_String_Extended,0x235 ; "permanent" 0195 e402 | | Load 0x2,0x2 0196 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0197 00d8 | | Load_Top At_Offset_0 0198 0afc | | Execute_Immediate Plus,-0x4 0199 0059 | Y | Store_Top Discrete,At_Offset_1 019a 00d8 | | Load_Top At_Offset_0 019b 09fd | | Execute_Immediate Binary_Scale,-0x3 019c 4801 |H | Short_Literal 0x1 019d 0279 | y | Execute Discrete,And 019e 6807 |h | Jump_Zero 0x1a6 019f 0092 0236 | 6| Action Push_String_Extended,0x236 ; "published" 01a1 e402 | | Load 0x2,0x2 01a2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a3 00d8 | | Load_Top At_Offset_0 01a4 0af8 | | Execute_Immediate Plus,-0x8 01a5 0059 | Y | Store_Top Discrete,At_Offset_1 01a6 00d8 | | Load_Top At_Offset_0 01a7 09fc | | Execute_Immediate Binary_Scale,-0x4 01a8 4801 |H | Short_Literal 0x1 01a9 0279 | y | Execute Discrete,And 01aa 6807 |h | Jump_Zero 0x1b2 01ab 0092 0237 | 7| Action Push_String_Extended,0x237 ; "useTrailers" 01ad e402 | | Load 0x2,0x2 01ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01af 00d8 | | Load_Top At_Offset_0 01b0 0af0 | | Execute_Immediate Plus,-0x10 01b1 0059 | Y | Store_Top Discrete,At_Offset_1 01b2 00d8 | | Load_Top At_Offset_0 01b3 4800 |H | Short_Literal 0x0 01b4 4801 |H | Short_Literal 0x1 01b5 0262 | b | Execute Discrete,In_Range 01b6 7005 |p | Jump_Nonzero 0x1bc 01b7 00d8 | | Load_Top At_Offset_0 01b8 00e0 | | Load_Encached Standard_Cache 01b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ba e402 | | Load 0x2,0x2 01bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01bc e402 | | Load 0x2,0x2 01bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e210 | | Load 0x1,0x10 01c4 0322 | " | Declare_Variable Record 01c5 BODY_01c0: 01c5 00d8 | | Load_Top At_Offset_0 01c6 8212 | | Call 0x1,0x12 01c7 00d1 | | Pop_Control Pop_Count_1 01c8 00cf | | Action Mark_Auxiliary 01c9 7807 |x | Jump 0x1d1 01ca 00d9 | | Load_Top At_Offset_1 01cb 8214 | | Call 0x1,0x14 01cc 8403 | | Call 0x2,0x3 01cd 00d9 | | Load_Top At_Offset_1 01ce 8211 | | Call 0x1,0x11 01cf 00d1 | | Pop_Control Pop_Count_1 01d0 00c9 | | Action Pop_Auxiliary_Loop 01d1 00d9 | | Load_Top At_Offset_1 01d2 8213 | | Call 0x1,0x13 01d3 6ff6 |o | Jump_Zero 0x1ca 01d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01dd | | .CONST 0x01dd ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e210 | | Load 0x1,0x10 01dc 0322 | " | Declare_Variable Record 01dd BODY_01d8: 01dd 00d8 | | Load_Top At_Offset_0 01de 8212 | | Call 0x1,0x12 01df 00d1 | | Pop_Control Pop_Count_1 01e0 00cf | | Action Mark_Auxiliary 01e1 780b |x | Jump 0x1ed 01e2 00d9 | | Load_Top At_Offset_1 01e3 8214 | | Call 0x1,0x14 01e4 e007 | | Load 0x0,0x7 01e5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01e6 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01e7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e9 00d9 | | Load_Top At_Offset_1 01ea 8211 | | Call 0x1,0x11 01eb 00d1 | | Pop_Control Pop_Count_1 01ec 00c9 | | Action Pop_Auxiliary_Loop 01ed 00d9 | | Load_Top At_Offset_1 01ee 8213 | | Call 0x1,0x13 01ef 6ff2 |o | Jump_Zero 0x1e2 01f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0216 | | .CONST 0x0216 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb 6030 |`0 | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00028000} 01fc 602b |`+ | Indirect_Literal Discrete,0x228,{0x00000000, 0x00000800} 01fd 0092 0238 | 8| Action Push_String_Extended,0x238 ; "public" 01ff e001 | | Load 0x0,0x1 0200 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0201 e402 | | Load 0x2,0x2 0202 4801 |H | Short_Literal 0x1 0203 4801 |H | Short_Literal 0x1 0204 e001 | | Load 0x0,0x1 0205 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0206 0334 | 4 | Declare_Variable Array,With_Constraint 0207 e001 | | Load 0x0,0x1 0208 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0209 0322 | " | Declare_Variable Record 020a e5ff | | Load 0x2,-0x1 020b 00d9 | | Load_Top At_Offset_1 020c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020d e001 | | Load 0x0,0x1 020e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 020f 00d9 | | Load_Top At_Offset_1 0210 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0211 4801 |H | Short_Literal 0x1 0212 00da | | Load_Top At_Offset_2 0213 01d6 | | Execute Vector,Field_Write 0214 e00b | | Load 0x0,0xb 0215 180e | | Execute Package,Field_Execute,Field_Number 0xe 0216 BODY_01f8: 0216 00d8 | | Load_Top At_Offset_0 0217 01db | | Execute Vector,Length 0218 0f01 | | Execute_Immediate Equal,0x1 0219 6808 |h | Jump_Zero 0x222 021a 00d8 | | Load_Top At_Offset_0 021b 01dd | | Execute Vector,First 021c 00d9 | | Load_Top At_Offset_1 021d 01d5 | | Execute Vector,Field_Reference 021e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021f e5ff | | Load 0x2,-0x1 0220 017d | } | Execute Record,Structure_Write 0221 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0222 e001 | | Load 0x0,0x1 0223 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0224 e5ff | | Load 0x2,-0x1 0225 017d | } | Execute Record,Structure_Write 0226 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0227 0000 | | .XXX[0x1] 0228 0000 0000 | | .LITERAL {0x00000000, 0x00000800} 022c 0000 0000 | | .LITERAL {0x00000000, 0x00028000} 0230 ; -------------------------------------------------------------------------------------- 0230 ; STRING TABLE 0230 ; -------------------------------------------------------------------------------------- 0230 0014 | | .STRTAB 0x0014->0x023a ; "+" 0231 0013 | | .STRTAB 0x0013->0x023a ; "Internet" 0232 0019 | | .STRTAB 0x0019->0x023e ; "Ethernet" 0233 001f | | .STRTAB 0x001f->0x0242 ; "flags" 0234 0022 | " | .STRTAB 0x0022->0x0245 ; "incomplete" 0235 002a | * | .STRTAB 0x002a->0x024a ; "permanent" 0236 0031 | 1 | .STRTAB 0x0031->0x024e ; "published" 0237 0038 | 8 | .STRTAB 0x0038->0x0253 ; "useTrailers" 0238 0041 | A | .STRTAB 0x0041->0x0258 ; "public" 0239 0045 | E | .STREND 0x0045->0x025b 023a 2b49 6e74 |+Int| .STRTAB_STRINGS 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 000c | | .DEBUG4 0x0004,0x000c,0xd189,0x0000,0x0001,0x0000 0266 d919 1918 | | .XXX[0x19a] 0268 e0dc d029 | )| 026a 4ccc c4c5 |L | 026c 14c0 c0c4 | | 026e c0d1 0ce0 | | 0270 d0c9 0515 | | 0272 1919 18d0 | | 0274 d8c0 c0c0 | | 0276 c0c4 d504 | | 0278 c8c0 d914 | | 027a c0c0 c0e0 | | 027c c110 294c | )L| 027e ccc4 c514 | | 0280 c0c0 c4c0 | | 0282 d110 d0d1 | | 0284 0504 e0c0 | | 0286 c0c5 04d8 | | 0288 d8d4 c8c8 | | 028a c0c9 1519 | | 028c 1918 e0d4 | | 028e e0e0 c0d4 | | 0290 d029 4ccc | )L | 0292 c4c5 14c0 | | 0294 c0c4 c0d1 | | 0296 14c0 c918 | | 0298 c0c0 c8c0 | | 029a d915 1919 | | 029c 190c c918 | | 029e c8e0 c0c0 | | 02a0 c0e0 c918 | | 02a2 c8e1 0908 | | 02a4 294c ccc4 |)L | 02a6 c514 c0c0 | | 02a8 c4c0 d115 | | 02aa 0cc0 c0c0 | | 02ac d0d1 1508 | | 02ae e514 c0c0 | | 02b0 c4c1 1108 | | 02b2 c0d1 1915 | | 02b4 18c0 c0c1 | | 02b6 0cc9 0429 | )| 02b8 4ccc c4c5 |L | 02ba 14c0 c0c4 | | 02bc c0d1 18e0 | | 02be dcc9 1919 | | 02c0 08c0 e0c4 | | 02c2 d8d8 d114 | | 02c4 c8c0 d914 | | 02c6 c0c0 c0e0 | | 02c8 dcc8 c0c9 | | 02ca 08c4 294c | )L| 02cc ccc4 c514 | | 02ce c0c0 c4c0 | | 02d0 d4c0 d0c8 | | 02d2 c4d0 c4c0 | | 02d4 c0c5 04c8 | | 02d6 c0d9 14c0 | | 02d8 c0c0 e0dc | | 02da c8c0 d4c8 | | 02dc c4d0 c4c4 | | 02de e429 4ccc | )L | 02e0 c4c5 14c0 | | 02e2 c0c4 c0d4 | | 02e4 c4c0 c0c0 | | 02e6 c8d8 c8c0 | | 02e8 d914 c0c0 | | 02ea c0e0 c8c0 | | 02ec c915 1919 | | 02ee 18d0 d4c8 | | 02f0 e0c0 c8e4 | | 02f2 294c ccc4 |)L | 02f4 c514 c0c0 | | 02f6 c4c0 d4c5 | | 02f8 0cc8 c4d0 | | 02fa c0c0 c0c9 | | 02fc 04c9 18c9 | | 02fe 14c0 c0c4 | | 0300 c0c9 18c9 | | 0302 14c0 c0c0 | | 0304 e0e1 1829 | )| 0306 4ccc c4c5 |L | 0308 14c0 c0c4 | | 030a c0d4 c8e0 | | 030c d8c0 c0c0 | | 030e c0c4 d4c0 | | 0310 c8c0 c915 | | 0312 1919 18e0 | | 0314 d4e0 e0c0 | | 0316 c918 c0c1 | | 0318 14cc 294c | )L| 031a ccc4 c514 | | 031c c0c0 c4c0 | | 031e d4cc d0c8 | | 0320 c0c9 1519 | | 0322 1919 0cd4 | | 0324 e0e0 c0c9 | | 0326 18c0 c0d1 | | 0328 1508 e514 | | 032a c0c0 c4e5 | | 032c 0c29 4ccc | )L | 032e c4c5 14c0 | | 0330 c0c4 c0d4 | | 0332 d0c0 c109 | | 0334 18d0 d4c0 | | 0336 d118 dcc9 | | 0338 1919 08c0 | | 033a e0c4 d8dc | | 033c c0c0 c0c1 | | 033e 04d8 dd08 | | 0340 294c ccc4 |)L | 0342 c514 c0c0 | | 0344 c4c0 d4d1 | | 0346 0cd0 e0d9 | | 0348 1519 1914 | | 034a c0c8 c0c9 | | 034c 1519 1918 | | 034e e0d4 e0e0 | | 0350 c0c9 18c0 | | 0352 c111 0829 | )| 0354 4ccc c4c5 |L | 0356 14c0 c0c4 | | 0358 c0d4 d4e0 | | 035a d115 08e5 | | 035c 14c0 c0c4 | | 035e c108 d0c0 | | 0360 d4c0 d118 | | 0362 d104 e0c0 | | 0364 d8d8 c0c1 | | 0366 0514 294c | )L| 0368 ccc4 c514 | | 036a c0c0 c4c0 | | 036c d4d8 d0c0 | | 036e c0e1 0cc0 | | 0370 e0c9 14c0 | | 0372 c0c0 c119 | | 0374 1914 ccd8 | | 0376 dcc0 c0c0 | | 0378 c0e0 c8c4 | | 037a dc29 4ccc | )L | 037c c4c5 14c0 | | 037e c0c4 c0d4 | | 0380 dcc0 c8c0 | | 0382 d914 c0c0 | | 0384 c0e0 d105 | | 0386 04e0 c0c0 | | 0388 c504 d8d8 | | 038a c8d0 c8c0 | | 038c d915 1114 | | 038e 294c ccc4 |)L | 0390 c514 c0c0 | | 0392 c4c0 d4dd | | 0394 0d19 1918 | | 0396 c0c9 18c8 | | 0398 e0c0 c0c4 | | 039a d8c9 18c9 | | 039c 1519 1915 | | 039e 0cc9 18c9 | | 03a0 14e1 0829 | )| 03a2 4ccc c4c5 |L | 03a4 14c0 c0c4 | | 03a6 c0d4 e0e1 | | 03a8 1919 14e0 | | 03aa c918 c915 | | 03ac 1919 14d0 | | 03ae d0c9 04dc | | 03b0 c8c0 d8e0 | | 03b2 c0c0 c0d9 | | 03b4 14c8 294c | )L| 03b6 ccc4 c514 | | 03b8 c0c0 c4c0 | | 03ba d4e4 d0d1 | | 03bc 14e4 c0d1 | | 03be 1915 18c0 | | 03c0 c0c4 d0d1 | | 03c2 04e0 c0d8 | | 03c4 d8d4 c8c8 | | 03c6 c0d9 14cc | | 03c8 d029 4ccc | )L | 03ca c4c5 14c0 | | 03cc c0c4 c0d5 | | 03ce 04c1 1919 | | 03d0 18e0 c8c8 | | 03d2 d915 1919 | | 03d4 18c0 c4c4 | | 03d6 d8e4 c0c0 | | 03d8 c0d0 c0c0 | | 03da c10c d8e0 | | 03dc 294c ccc4 |)L | 03de c514 c0c0 | | 03e0 c4c0 d505 | | 03e2 0cd0 e0d9 | | 03e4 1519 1914 | | 03e6 c0c9 18c9 | | 03e8 1519 1918 | | 03ea e0d1 1508 | | 03ec e514 c0c0 | | 03ee c4e1 0829 | )| 03f0 4ccc c4c5 |L | 03f2 14c0 c0c4 | | 03f4 c0d5 08e0 | | 03f6 c0d8 e0d8 | | 03f8 d4c0 d118 | | 03fa dcc9 1919 | | 03fc 08c0 e0c4 | | 03fe d8d8 d4e0 | |