|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 02d0 | | .CONST 0x02d0 ; 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 006d | m | .CONST 0x006d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0015 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0017 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0019 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 001d 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 001f e002 | | Load 0x0,0x2 0020 0129 | ) | Execute Any,Make_Visible 0021 4804 |H | Short_Literal 0x4 0022 032b | + | Declare_Type Record,Incomplete,Visible 0023 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0025 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0027 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0029 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 002b e003 | | Load 0x0,0x3 002c 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 002d e001 | | Load 0x0,0x1 002e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002f 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0030 e001 | | Load 0x0,0x1 0031 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0032 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0033 e001 | | Load 0x0,0x1 0034 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0035 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0036 e001 | | Load 0x0,0x1 0037 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0038 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0039 e004 | | Load 0x0,0x4 003a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003b 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 003d 4806 |H | Short_Literal 0x6 003e 032d | - | Declare_Type Record,Defined 003f e005 | | Load 0x0,0x5 0040 e006 | | Load 0x0,0x6 0041 4840 |H@ | Short_Literal 0x40 0042 00db | | Load_Top At_Offset_3 0043 4801 |H | Short_Literal 0x1 0044 e007 | | Load 0x0,0x7 0045 0387 | | Declare_Variable Package 0046 00d8 | | Load_Top At_Offset_0 0047 020f | | Execute Module,Activate 0048 00d8 | | Load_Top At_Offset_0 0049 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 004a e218 | | Load 0x1,0x18 004b 0325 | % | Complete_Type Record,By_Renaming 004c 00bf | | Action Accept_Activation 004d 00d8 | | Load_Top At_Offset_0 004e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004f 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 0051 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0052 00c7 | | Action Elaborate_Subprogram 0053 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0054 00c7 | | Action Elaborate_Subprogram 0055 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0056 00c7 | | Action Elaborate_Subprogram 0057 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0058 00c7 | | Action Elaborate_Subprogram 0059 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005a 00c7 | | Action Elaborate_Subprogram 005b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005c 00c7 | | Action Elaborate_Subprogram 005d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005e 00c7 | | Action Elaborate_Subprogram 005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0060 00c7 | | Action Elaborate_Subprogram 0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0062 00c7 | | Action Elaborate_Subprogram 0063 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0064 00c7 | | Action Elaborate_Subprogram 0065 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0066 00c7 | | Action Elaborate_Subprogram 0067 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0068 00c7 | | Action Elaborate_Subprogram 0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006a 00c7 | | Action Elaborate_Subprogram 006b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006c 00c7 | | Action Elaborate_Subprogram 006d BODY_0008: 006d 00da | | Load_Top At_Offset_2 006e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006f 00db | | Load_Top At_Offset_3 0070 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0071 003a | : | Store_Top Access,At_Offset_2 0072 00bc | | Action Signal_Activated 0073 00bb | | Action Signal_Completion 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0082 | | .CONST 0x0082 ; Address of begin 0079 0095 | | .CONST 0x0095 ; Address of exception handler 007a 0004 | | .CONST 0x0004 ; Number of locals 007b INIT_0078: 007b e21d | | Load 0x1,0x1d 007c 0322 | " | Declare_Variable Record 007d 00d8 | | Load_Top At_Offset_0 007e 1c00 | | Execute_Immediate Run_Utility,0x0 007f 00e1 | | Load_Encached Boolean_Cache 0080 0092 026b | k| Action Push_String_Extended,0x26b ; "Initialize" 0082 BODY_0078: 0082 e5ff | | Load 0x2,-0x1 0083 e008 | | Load 0x0,0x8 0084 180d | | Execute Package,Field_Execute,Field_Number 0xd 0085 00e1 | | Load_Encached Boolean_Cache 0086 00db | | Load_Top At_Offset_3 0087 e5ff | | Load 0x2,-0x1 0088 e21f | | Load 0x1,0x1f 0089 e21e | | Load 0x1,0x1e 008a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008b 00d1 | | Pop_Control Pop_Count_1 008c 005a | Z | Store_Top Discrete,At_Offset_2 008d 00d9 | | Load_Top At_Offset_1 008e 6805 |h | Jump_Zero 0x94 008f e21f | | Load 0x1,0x1f 0090 e5ff | | Load 0x2,-0x1 0091 e21e | | Load 0x1,0x1e 0092 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0093 c21f | | Store 0x1,0x1f 0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0095 TRAP_0078: 0095 0007 | | Action Break_Optional 0096 e5fe | | Load 0x2,-0x2 0097 00da | | Load_Top At_Offset_2 0098 8220 | | Call 0x1,0x20 0099 c5fe | | Store 0x2,-0x2 009a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009b 0000 0000 | | .BLANK 0000[0x5] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a8 | | .CONST 0x00a8 ; Address of begin 00a1 00e0 | | .CONST 0x00e0 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 00e1 | | Load_Encached Boolean_Cache 00a4 e21d | | Load 0x1,0x1d 00a5 0322 | " | Declare_Variable Record 00a6 00d8 | | Load_Top At_Offset_0 00a7 1c00 | | Execute_Immediate Run_Utility,0x0 00a8 BODY_00a0: 00a8 00e1 | | Load_Encached Boolean_Cache 00a9 00d9 | | Load_Top At_Offset_1 00aa e5ff | | Load 0x2,-0x1 00ab e21f | | Load 0x1,0x1f 00ac e21e | | Load 0x1,0x1e 00ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ae 00d1 | | Pop_Control Pop_Count_1 00af 005a | Z | Store_Top Discrete,At_Offset_2 00b0 00d9 | | Load_Top At_Offset_1 00b1 680c |h | Jump_Zero 0xbe 00b2 e5f8 | | Load 0x2,-0x8 00b3 4802 |H | Short_Literal 0x2 00b4 e5ff | | Load 0x2,-0x1 00b5 0092 026c | l| Action Push_String_Extended,0x26c ; " is already registered." 00b7 01cc | | Execute Vector,Catenate 00b8 0092 026d | m| Action Push_String_Extended,0x26d ; "Register failed: " 00ba e009 | | Load 0x0,0x9 00bb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00bc c5f8 | | Store 0x2,-0x8 00bd 4508 |E | Exit_Suprogram New_Top_Offset 0x8 00be e5ff | | Load 0x2,-0x1 00bf e008 | | Load 0x0,0x8 00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c1 e5fe | | Load 0x2,-0x2 00c2 00d9 | | Load_Top At_Offset_1 00c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c4 e5fd | | Load 0x2,-0x3 00c5 00d9 | | Load_Top At_Offset_1 00c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c7 e5fc | | Load 0x2,-0x4 00c8 00d9 | | Load_Top At_Offset_1 00c9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ca e5fb | | Load 0x2,-0x5 00cb 00d9 | | Load_Top At_Offset_1 00cc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00cd e5fa | | Load 0x2,-0x6 00ce 00d9 | | Load_Top At_Offset_1 00cf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00d0 e5f9 | | Load 0x2,-0x7 00d1 00d9 | | Load_Top At_Offset_1 00d2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00d3 e21f | | Load 0x1,0x1f 00d4 4800 |H | Short_Literal 0x0 00d5 00da | | Load_Top At_Offset_2 00d6 e5ff | | Load 0x2,-0x1 00d7 e21e | | Load 0x1,0x1e 00d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d9 c21f | | Store 0x1,0x1f 00da e5f8 | | Load 0x2,-0x8 00db e5ff | | Load 0x2,-0x1 00dc e00a | | Load 0x0,0xa 00dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00de c5f8 | | Store 0x2,-0x8 00df 4508 |E | Exit_Suprogram New_Top_Offset 0x8 00e0 TRAP_00a0: 00e0 e008 | | Load 0x0,0x8 00e1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e2 010f | | Execute Exception,Equal 00e3 680c |h | Jump_Zero 0xf0 00e4 e5f8 | | Load 0x2,-0x8 00e5 4802 |H | Short_Literal 0x2 00e6 e5ff | | Load 0x2,-0x1 00e7 0092 026e | n| Action Push_String_Extended,0x26e ; " is not initialized." 00e9 01cc | | Execute Vector,Catenate 00ea 0092 026f | o| Action Push_String_Extended,0x26f ; "Register failed: " 00ec e009 | | Load 0x0,0x9 00ed 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00ee c5f8 | | Store 0x2,-0x8 00ef 4508 |E | Exit_Suprogram New_Top_Offset 0x8 00f0 e5f8 | | Load 0x2,-0x8 00f1 0092 0270 | p| Action Push_String_Extended,0x270 ; "Register" 00f3 8220 | | Call 0x1,0x20 00f4 c5f8 | | Store 0x2,-0x8 00f5 4508 |E | Exit_Suprogram New_Top_Offset 0x8 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0100 | | .CONST 0x0100 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb 00e1 | | Load_Encached Boolean_Cache 00fc e21d | | Load 0x1,0x1d 00fd 0322 | " | Declare_Variable Record 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 BODY_00f8: 0100 00e1 | | Load_Encached Boolean_Cache 0101 00d9 | | Load_Top At_Offset_1 0102 e5ff | | Load 0x2,-0x1 0103 e21f | | Load 0x1,0x1f 0104 e21e | | Load 0x1,0x1e 0105 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0106 00d1 | | Pop_Control Pop_Count_1 0107 005a | Z | Store_Top Discrete,At_Offset_2 0108 00d9 | | Load_Top At_Offset_1 0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0137 | 7 | .CONST 0x0137 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 00e1 | | Load_Encached Boolean_Cache 0114 e21d | | Load 0x1,0x1d 0115 0322 | " | Declare_Variable Record 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 BODY_0110: 0118 00e1 | | Load_Encached Boolean_Cache 0119 00d9 | | Load_Top At_Offset_1 011a e5ff | | Load 0x2,-0x1 011b e21f | | Load 0x1,0x1f 011c e21e | | Load 0x1,0x1e 011d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011e 00d1 | | Pop_Control Pop_Count_1 011f 005a | Z | Store_Top Discrete,At_Offset_2 0120 00d9 | | Load_Top At_Offset_1 0121 700c |p | Jump_Nonzero 0x12e 0122 e5fd | | Load 0x2,-0x3 0123 4802 |H | Short_Literal 0x2 0124 e5ff | | Load 0x2,-0x1 0125 0092 0271 | q| Action Push_String_Extended,0x271 ; " is not registered." 0127 01cc | | Execute Vector,Catenate 0128 0092 0272 | r| Action Push_String_Extended,0x272 ; "Unregister failed: " 012a e009 | | Load 0x0,0x9 012b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 012c c5fd | | Store 0x2,-0x3 012d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012e e21f | | Load 0x1,0x1f 012f e5ff | | Load 0x2,-0x1 0130 e21e | | Load 0x1,0x1e 0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0132 c21f | | Store 0x1,0x1f 0133 e5ff | | Load 0x2,-0x1 0134 e008 | | Load 0x0,0x8 0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0136 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0137 TRAP_0110: 0137 e008 | | Load 0x0,0x8 0138 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0139 010f | | Execute Exception,Equal 013a 680c |h | Jump_Zero 0x147 013b e5fd | | Load 0x2,-0x3 013c 4802 |H | Short_Literal 0x2 013d e5ff | | Load 0x2,-0x1 013e 0092 026e | n| Action Push_String_Extended,0x26e ; " is not initialized." 0140 01cc | | Execute Vector,Catenate 0141 0092 0272 | r| Action Push_String_Extended,0x272 ; "Unregister failed: " 0143 e009 | | Load 0x0,0x9 0144 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0145 c5fd | | Store 0x2,-0x3 0146 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0147 e5fd | | Load 0x2,-0x3 0148 0092 0273 | s| Action Push_String_Extended,0x273 ; "Unregister" 014a 8220 | | Call 0x1,0x20 014b c5fd | | Store 0x2,-0x3 014c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0158 | X | .CONST 0x0158 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e21d | | Load 0x1,0x1d 0154 0322 | " | Declare_Variable Record 0155 00d8 | | Load_Top At_Offset_0 0156 1c00 | | Execute_Immediate Run_Utility,0x0 0157 00e1 | | Load_Encached Boolean_Cache 0158 BODY_0150: 0158 00e1 | | Load_Encached Boolean_Cache 0159 00da | | Load_Top At_Offset_2 015a e5ff | | Load 0x2,-0x1 015b e00b | | Load 0x0,0xb 015c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 015d e21f | | Load 0x1,0x1f 015e e21e | | Load 0x1,0x1e 015f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0160 00d1 | | Pop_Control Pop_Count_1 0161 0059 | Y | Store_Top Discrete,At_Offset_1 0162 00d8 | | Load_Top At_Offset_0 0163 7002 |p | Jump_Nonzero 0x166 0164 e217 | | Load 0x1,0x17 0165 0257 | W | Execute Discrete,Raise 0166 00d9 | | Load_Top At_Offset_1 0167 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0178 | x | .CONST 0x0178 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e21d | | Load 0x1,0x1d 0174 0322 | " | Declare_Variable Record 0175 00d8 | | Load_Top At_Offset_0 0176 1c00 | | Execute_Immediate Run_Utility,0x0 0177 00e1 | | Load_Encached Boolean_Cache 0178 BODY_0170: 0178 00e1 | | Load_Encached Boolean_Cache 0179 00da | | Load_Top At_Offset_2 017a e5ff | | Load 0x2,-0x1 017b e00b | | Load 0x0,0xb 017c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 017d e21f | | Load 0x1,0x1f 017e e21e | | Load 0x1,0x1e 017f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0180 00d1 | | Pop_Control Pop_Count_1 0181 0059 | Y | Store_Top Discrete,At_Offset_1 0182 00d8 | | Load_Top At_Offset_0 0183 7002 |p | Jump_Nonzero 0x186 0184 e217 | | Load 0x1,0x17 0185 0257 | W | Execute Discrete,Raise 0186 00d9 | | Load_Top At_Offset_1 0187 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0198 | | .CONST 0x0198 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e21d | | Load 0x1,0x1d 0194 0322 | " | Declare_Variable Record 0195 00d8 | | Load_Top At_Offset_0 0196 1c00 | | Execute_Immediate Run_Utility,0x0 0197 00e1 | | Load_Encached Boolean_Cache 0198 BODY_0190: 0198 00e1 | | Load_Encached Boolean_Cache 0199 00da | | Load_Top At_Offset_2 019a e5ff | | Load 0x2,-0x1 019b e00b | | Load 0x0,0xb 019c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 019d e21f | | Load 0x1,0x1f 019e e21e | | Load 0x1,0x1e 019f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a0 00d1 | | Pop_Control Pop_Count_1 01a1 0059 | Y | Store_Top Discrete,At_Offset_1 01a2 00d8 | | Load_Top At_Offset_0 01a3 7002 |p | Jump_Nonzero 0x1a6 01a4 e217 | | Load 0x1,0x17 01a5 0257 | W | Execute Discrete,Raise 01a6 00d9 | | Load_Top At_Offset_1 01a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a9 0000 0000 | | .BLANK 0000[0x7] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b8 | | .CONST 0x01b8 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e21d | | Load 0x1,0x1d 01b4 0322 | " | Declare_Variable Record 01b5 00d8 | | Load_Top At_Offset_0 01b6 1c00 | | Execute_Immediate Run_Utility,0x0 01b7 00e1 | | Load_Encached Boolean_Cache 01b8 BODY_01b0: 01b8 00e1 | | Load_Encached Boolean_Cache 01b9 00da | | Load_Top At_Offset_2 01ba e5ff | | Load 0x2,-0x1 01bb e00b | | Load 0x0,0xb 01bc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01bd e21f | | Load 0x1,0x1f 01be e21e | | Load 0x1,0x1e 01bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c0 00d1 | | Pop_Control Pop_Count_1 01c1 0059 | Y | Store_Top Discrete,At_Offset_1 01c2 00d8 | | Load_Top At_Offset_0 01c3 7002 |p | Jump_Nonzero 0x1c6 01c4 e217 | | Load 0x1,0x17 01c5 0257 | W | Execute Discrete,Raise 01c6 00d9 | | Load_Top At_Offset_1 01c7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d8 | | .CONST 0x01d8 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 e21d | | Load 0x1,0x1d 01d4 0322 | " | Declare_Variable Record 01d5 00d8 | | Load_Top At_Offset_0 01d6 1c00 | | Execute_Immediate Run_Utility,0x0 01d7 00e1 | | Load_Encached Boolean_Cache 01d8 BODY_01d0: 01d8 00e1 | | Load_Encached Boolean_Cache 01d9 00da | | Load_Top At_Offset_2 01da e5ff | | Load 0x2,-0x1 01db e00b | | Load 0x0,0xb 01dc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01dd e21f | | Load 0x1,0x1f 01de e21e | | Load 0x1,0x1e 01df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e0 00d1 | | Pop_Control Pop_Count_1 01e1 0059 | Y | Store_Top Discrete,At_Offset_1 01e2 00d8 | | Load_Top At_Offset_0 01e3 7002 |p | Jump_Nonzero 0x1e6 01e4 e217 | | Load 0x1,0x17 01e5 0257 | W | Execute Discrete,Raise 01e6 00d9 | | Load_Top At_Offset_1 01e7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f8 | | .CONST 0x01f8 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 e21d | | Load 0x1,0x1d 01f4 0322 | " | Declare_Variable Record 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 00e1 | | Load_Encached Boolean_Cache 01f8 BODY_01f0: 01f8 00e1 | | Load_Encached Boolean_Cache 01f9 00da | | Load_Top At_Offset_2 01fa e5ff | | Load 0x2,-0x1 01fb e00b | | Load 0x0,0xb 01fc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01fd e21f | | Load 0x1,0x1f 01fe e21e | | Load 0x1,0x1e 01ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0200 00d1 | | Pop_Control Pop_Count_1 0201 0059 | Y | Store_Top Discrete,At_Offset_1 0202 00d8 | | Load_Top At_Offset_0 0203 7002 |p | Jump_Nonzero 0x206 0204 e217 | | Load 0x1,0x17 0205 0257 | W | Execute Discrete,Raise 0206 00d9 | | Load_Top At_Offset_1 0207 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e21f | | Load 0x1,0x1f 0215 e21e | | Load 0x1,0x1e 0216 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0217 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c e21e | | Load 0x1,0x1e 021d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 021e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e21e | | Load 0x1,0x1e 0225 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c e21e | | Load 0x1,0x1e 022d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00db | | Load_Top At_Offset_3 0234 4802 |H | Short_Literal 0x2 0235 0092 0274 | t| Action Push_String_Extended,0x274 ; "with unhandled exception " 0237 4800 |H | Short_Literal 0x0 0238 4801 |H | Short_Literal 0x1 0239 e00c | | Load 0x0,0xc 023a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023b 01cc | | Execute Vector,Catenate 023c e5ff | | Load 0x2,-0x1 023d 0092 0275 | u| Action Push_String_Extended,0x275 ; " failed " 023f 01cc | | Execute Vector,Catenate 0240 e009 | | Load 0x0,0x9 0241 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0242 c5fe | | Store 0x2,-0x2 0243 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4608 |F | Jump_Case 0x9 024c 7808 |x | Jump 0x255 ; case 0x0 024d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 024e 781b |x | Jump 0x26a ; case 0x2 024f 781a |x | Jump 0x26a ; case 0x3 0250 7819 |x | Jump 0x26a ; case 0x4 0251 7818 |x | Jump 0x26a ; case 0x5 0252 7817 |x | Jump 0x26a ; case 0x6 0253 7816 |x | Jump 0x26a ; case 0x7 0254 7815 |x | Jump 0x26a ; case 0x8 0255 e001 | | Load 0x0,0x1 0256 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0257 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0258 00db | | Load_Top At_Offset_3 0259 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 025a e001 | | Load 0x0,0x1 025b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 025c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 025d 00db | | Load_Top At_Offset_3 025e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 025f e001 | | Load 0x0,0x1 0260 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0261 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0262 00db | | Load_Top At_Offset_3 0263 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0264 e001 | | Load 0x0,0x1 0265 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0266 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0267 00db | | Load_Top At_Offset_3 0268 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0269 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 026a 0869 | i | Execute_Immediate Raise,0x69 026b ; -------------------------------------------------------------------------------------- 026b ; STRING TABLE 026b ; -------------------------------------------------------------------------------------- 026b 0018 | | .STRTAB 0x0018->0x0277 ; "Initialize" 026c 0020 | | .STRTAB 0x0020->0x027c ; " is already registered." 026d 0035 | 5 | .STRTAB 0x0035->0x0287 ; "Register failed: " 026e 0045 | E | .STRTAB 0x0045->0x0290 ; " is not initialized." 026f 0057 | W | .STRTAB 0x0057->0x029a ; "Register failed: " 0270 0066 | f | .STRTAB 0x0066->0x02a3 ; "Register" 0271 006c | l | .STRTAB 0x006c->0x02a7 ; " is not registered." 0272 007d | } | .STRTAB 0x007d->0x02b0 ; "Unregister failed: " 0273 008e | | .STRTAB 0x008e->0x02ba ; "Unregister" 0274 0096 | | .STRTAB 0x0096->0x02bf ; "with unhandled exception " 0275 00ad | | .STRTAB 0x00ad->0x02cb ; " failed " 0276 00b4 | | .STREND 0x00b4->0x02d0 0277 496e 6974 |Init| .STRTAB_STRINGS 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug Table 02d0 ; -------------------------------------------------------------------------------------- 02d0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2e6a,0x0000,0x0001,0x0000 02d6 8000 0000 | | .XXX[0x2e] 02d8 8000 8601 | | 02da 8040 4061 | @@a| 02dc 9000 0000 | | 02de 1000 10c6 | | 02e0 6008 0820 |` | 02e2 7c00 aa29 || )| 02e4 8000 0000 | | 02e6 0005 39f8 | 9 | 02e8 0202 099a | | 02ea 8029 d760 | ) `| 02ec 1010 56c8 | V | 02ee 014e f800 | N | 02f0 8083 05e0 | | 02f2 0a79 a804 | y | 02f4 041b 2b00 | + | 02f6 53dc 8020 |S | 02f8 20f1 3800 | 8 | 02fa 0000 0101 | | 02fc 04cd 4000 | @ | 02fe 0000 8000 | | 0300 013a b0f4 | : | 0302 0001 d458 | X| 0304 0000 0000 | | .BLANK 0000[0x4] 0308 0415 b200 | | .XXX[0xe0] 030a 0000 0200 | | 030c 00d0 6f00 | o | 030e 8082 b65f | _| 0310 ffff ffc0 | | 0312 001a 1a40 | @| 0314 1010 60bc | ` | 0316 0000 0008 | | 0318 0003 44d4 | D | 031a 0202 0c17 | | 031c ffff fffe | | 031e 8000 68cc | h | 0320 0040 41b2 | @A | 0322 b000 0000 | | 0324 2000 12f7 | | 0326 c008 0836 | 6| 0328 57ff ffff |W | 032a f800 025f | _| 032c be01 0107 | | 032e 89c0 0000 | | 0330 0080 0000 | | 0332 0000 2020 | | 0334 f13f ffff | ? | 0336 ffd8 0000 | | 0338 0000 0404 | | 033a 10e2 0000 | | 033c 0005 0000 | | 033e ee9c 0080 | | 0340 821c 4000 | @ | 0342 0000 0000 | | 0344 1ddf e010 | | 0346 1096 3401 | 4 | 0348 599f 0000 |Y | 034a 0000 000a | | 034c a668 0404 | h | 034e 2884 0055 |( U| 0350 4280 2021 |B !| 0352 5808 02aa |X | 0354 8e01 010b | | 0356 7f40 1558 | @ X| 0358 4008 0861 |@ a| 035a f200 0000 | | 035c 0040 4288 | @B | 035e 4000 0000 |@ | 0360 2000 0000 | | 0362 0008 0851 | Q| 0364 09ff ffff | | 0366 fe00 0000 | | 0368 0001 010a | | 036a c040 0000 | @ | 036c 0080 0000 | | 036e 0000 2021 | !| 0370 580f ffff |X | 0372 fff0 0000 | | 0374 0000 0404 | | 0376 2dfd 0000 |- | 0378 0002 0001 | | 037a 3f14 0080 |? | 037c 85bf bfff | | 037e ffff a000 | | 0380 27ee e010 |' | 0382 10c3 e400 | | 0384 0000 0800 | | 0386 0000 0002 | | 0388 0218 7cff | | | 038a ffff fe00 | | 038c 0000 0000 | | 038e 4042 6310 |@Bc | 0390 0000 0040 | @| 0392 0012 56d0 | V | 0394 0808 4c62 | Lb| 0396 0000 0000 | | 0398 0002 4ba0 | K | 039a 0101 0df0 | | 039c 8015 eeb0 | | 039e 0000 0000 | | 03a0 00ad 0c80 | | 03a2 4043 ab90 |@C | 03a4 0569 5802 | iX | 03a6 021e 9b00 | | 03a8 2b52 6010 |+R` | 03aa 1100 c801 | | 03ac 5ad0 0080 |Z | 03ae 8865 c000 | e | 03b0 0000 0404 | | 03b2 3ab9 0000 |: | 03b4 0002 0001 | | 03b6 2df0 0080 |- | 03b8 8757 3fff | W? | 03ba ffff e000 | | 03bc 25ca 6010 |% ` | 03be 10f4 d800 | | 03c0 0000 0800 | | 03c2 03e5 8802 | | 03c4 021e 9b7f | | 03c6 ffff ff00 | | 03c8 007c e280 | | | 03ca 4044 0320 |@D | 03cc 0000 0020 | | 03ce 0011 c150 | P| 03d0 0808 8065 | e| 03d2 ffff fffa | | 03d4 0002 38f0 | 8 | 03d6 0101 10cb | | 03d8 8000 0000 | | 03da 8000 238c | # | 03dc 0020 2219 | " | 03de 77ff ffff |w | 03e0 e000 0474 | t| 03e2 9804 0438 | 8| 03e4 6600 0000 |f | 03e6 0400 0141 | A| 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 0016 ed0b | | .XXX[0x14] 03ee 0000 0006 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0016 ed0b | | 03f6 0000 1a70 | p| 03f8 fffe 0008 | | 03fa 0000 0001 | | 03fc 0000 0000 | | 03fe 0000 0008 | |