|
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_03c0fe
└─⟦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 0428 | ( | .CONST 0x0428 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 005b | [ | .CONST 0x005b ; Address of begin 0019 00e3 | | .CONST 0x00e3 ; Address of exception handler 001a 0011 | | .CONST 0x0011 ; Number of locals 001b INIT_0018: 001b 0093 0000 | | push_full_address 0x0 001d 60ee |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00010000} 001e 0273 | s | Execute Discrete,Plus 001f 0007 | | Action Break_Optional 0020 e002 | | Load 0x0,0x2 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 02c7 | | Declare_Variable Any 0023 e002 | | Load 0x0,0x2 0024 180e | | Execute Package,Field_Execute,Field_Number 0xe 0025 a403 | | Store_Unchecked 0x2,0x3 0026 e003 | | Load 0x0,0x3 0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0028 02c7 | | Declare_Variable Any 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b e004 | | Load 0x0,0x4 002c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 002d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002e 02c7 | | Declare_Variable Any 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 e004 | | Load 0x0,0x4 0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0033 02c7 | | Declare_Variable Any 0034 00d8 | | Load_Top At_Offset_0 0035 1c00 | | Execute_Immediate Run_Utility,0x0 0036 e004 | | Load 0x0,0x4 0037 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0038 02c7 | | Declare_Variable Any 0039 00d8 | | Load_Top At_Offset_0 003a 1c00 | | Execute_Immediate Run_Utility,0x0 003b 00ec | | Load_Encached Diana_Tree_Cache 003c e004 | | Load 0x0,0x4 003d 1b52 | R | Execute Package,Field_Read,Field_Number 0x52 003e 02c7 | | Declare_Variable Any 003f 00d8 | | Load_Top At_Offset_0 0040 1c00 | | Execute_Immediate Run_Utility,0x0 0041 e003 | | Load 0x0,0x3 0042 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0043 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0044 e005 | | Load 0x0,0x5 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 02c7 | | Declare_Variable Any 0047 e006 | | Load 0x0,0x6 0048 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0049 4801 |H | Short_Literal 0x1 004a e005 | | Load 0x0,0x5 004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004c e005 | | Load 0x0,0x5 004d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 004e a40b | | Store_Unchecked 0x2,0xb 004f 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0051 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0053 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0055 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0057 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0059 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 005b BODY_0018: 005b e5fe | | Load 0x2,-0x2 005c e002 | | Load 0x0,0x2 005d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 005e e002 | | Load 0x0,0x2 005f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0060 e002 | | Load 0x0,0x2 0061 180e | | Execute Package,Field_Execute,Field_Number 0xe 0062 4800 |H | Short_Literal 0x0 0063 0092 030a | | Action Push_String_Extended,0x30a ; "[Discover_Load_Proc_Unit_Names (\x22" 0065 e5ff | | Load 0x2,-0x1 0066 01cc | | Execute Vector,Catenate 0067 0092 030b | | Action Push_String_Extended,0x30b ; "\x22);]" 0069 01cc | | Execute Vector,Catenate 006a e007 | | Load 0x0,0x7 006b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006c e003 | | Load 0x0,0x3 006d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006f e404 | | Load 0x2,0x4 0070 0120 | | Execute Any,Is_Value 0071 6803 |h | Jump_Zero 0x75 0072 e003 | | Load 0x0,0x3 0073 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0074 7801 |x | Jump 0x76 0075 e404 | | Load 0x2,0x4 0076 6091 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000} 0077 e005 | | Load 0x0,0x5 0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0079 e008 | | Load 0x0,0x8 007a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007b e003 | | Load 0x0,0x3 007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 007d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 007e e5ff | | Load 0x2,-0x1 007f e003 | | Load 0x0,0x3 0080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0081 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0082 c404 | | Store 0x2,0x4 0083 c40a | | Store 0x2,0xa 0084 e40a | | Load 0x2,0xa 0085 6818 |h | Jump_Zero 0x9e 0086 e002 | | Load 0x0,0x2 0087 180e | | Execute Package,Field_Execute,Field_Number 0xe 0088 4807 |H | Short_Literal 0x7 0089 0092 030c | | Action Push_String_Extended,0x30c ; "Could not locate Load_Proc: " 008b e5ff | | Load 0x2,-0x1 008c 01cc | | Execute Vector,Catenate 008d 0092 030d | | Action Push_String_Extended,0x30d ; " (" 008f 01cc | | Execute Vector,Catenate 0090 e40a | | Load 0x2,0xa 0091 e003 | | Load 0x0,0x3 0092 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0094 011c | | Execute Any,Convert_Unchecked 0095 1c01 | | Execute_Immediate Run_Utility,0x1 0096 01cc | | Execute Vector,Catenate 0097 0092 030e | | Action Push_String_Extended,0x30e ; ")" 0099 01cc | | Execute Vector,Catenate 009a e007 | | Load 0x0,0x7 009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009c e402 | | Load 0x2,0x2 009d 0257 | W | Execute Discrete,Raise 009e 840c | | Call 0x2,0xc 009f 840d | | Call 0x2,0xd 00a0 840e | | Call 0x2,0xe 00a1 840f | | Call 0x2,0xf 00a2 8410 | | Call 0x2,0x10 00a3 e406 | | Load 0x2,0x6 00a4 e004 | | Load 0x0,0x4 00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a6 012f | / | Execute Any,Equal 00a7 7005 |p | Jump_Nonzero 0xad 00a8 e406 | | Load 0x2,0x6 00a9 e004 | | Load 0x0,0x4 00aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ab 012f | / | Execute Any,Equal 00ac 6809 |h | Jump_Zero 0xb6 00ad e002 | | Load 0x0,0x2 00ae 180e | | Execute Package,Field_Execute,Field_Number 0xe 00af 4807 |H | Short_Literal 0x7 00b0 0092 030f | | Action Push_String_Extended,0x30f ; "Could not open Program_Library for world of Load_Proc." 00b2 e007 | | Load 0x0,0x7 00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b4 e402 | | Load 0x2,0x2 00b5 0257 | W | Execute Discrete,Raise 00b6 e404 | | Load 0x2,0x4 00b7 e003 | | Load 0x0,0x3 00b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00b9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00ba e406 | | Load 0x2,0x6 00bb e004 | | Load 0x0,0x4 00bc 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00be c407 | | Store 0x2,0x7 00bf e407 | | Load 0x2,0x7 00c0 e004 | | Load 0x0,0x4 00c1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 00c2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00c3 c409 | | Store 0x2,0x9 00c4 e409 | | Load 0x2,0x9 00c5 e004 | | Load 0x0,0x4 00c6 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 00c7 012f | / | Execute Any,Equal 00c8 6808 |h | Jump_Zero 0xd1 00c9 e002 | | Load 0x0,0x2 00ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 00cb 4805 |H | Short_Literal 0x5 00cc 0092 0310 | | Action Push_String_Extended,0x310 ; "This Load_Proc has no associated code segments?" 00ce e007 | | Load 0x0,0x7 00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d0 7801 |x | Jump 0xd2 00d1 8411 | | Call 0x2,0x11 00d2 e40b | | Load 0x2,0xb 00d3 4801 |H | Short_Literal 0x1 00d4 4800 |H | Short_Literal 0x0 00d5 e005 | | Load 0x0,0x5 00d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d7 c40b | | Store 0x2,0xb 00d8 e002 | | Load 0x0,0x2 00d9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00da 4800 |H | Short_Literal 0x0 00db 0092 0311 | | Action Push_String_Extended,0x311 ; "[End Discover_Load_Proc_Unit_Names]" 00dd e007 | | Load 0x0,0x7 00de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00df e403 | | Load 0x2,0x3 00e0 e002 | | Load 0x0,0x2 00e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e3 TRAP_0018: 00e3 e402 | | Load 0x2,0x2 00e4 010f | | Execute Exception,Equal 00e5 680a |h | Jump_Zero 0xf0 00e6 e40b | | Load 0x2,0xb 00e7 4801 |H | Short_Literal 0x1 00e8 4800 |H | Short_Literal 0x0 00e9 e005 | | Load 0x0,0x5 00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00eb c40b | | Store 0x2,0xb 00ec e403 | | Load 0x2,0x3 00ed e002 | | Load 0x0,0x2 00ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f0 e002 | | Load 0x0,0x2 00f1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f2 4808 |H | Short_Literal 0x8 00f3 0092 0312 | | Action Push_String_Extended,0x312 ; "Unexpected exception: " 00f5 4801 |H | Short_Literal 0x1 00f6 4801 |H | Short_Literal 0x1 00f7 e009 | | Load 0x0,0x9 00f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f9 01cc | | Execute Vector,Catenate 00fa e007 | | Load 0x0,0x7 00fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fc e40b | | Load 0x2,0xb 00fd 4801 |H | Short_Literal 0x1 00fe 4800 |H | Short_Literal 0x0 00ff e005 | | Load 0x0,0x5 0100 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0101 c40b | | Store 0x2,0xb 0102 e403 | | Load 0x2,0x3 0103 e002 | | Load 0x0,0x2 0104 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0105 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0106 0000 0000 | | .XXX[0x2] 0108 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 010c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0118 | | .CONST 0x0118 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e404 | | Load 0x2,0x4 0114 e003 | | Load 0x0,0x3 0115 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0116 e003 | | Load 0x0,0x3 0117 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0118 BODY_0110: 0118 00d8 | | Load_Top At_Offset_0 0119 01db | | Execute Vector,Length 011a 0d06 | | Execute_Immediate Less,0x6 011b 7010 |p | Jump_Nonzero 0x12c 011c 00d8 | | Load_Top At_Offset_0 011d 01dd | | Execute Vector,First 011e e602 | | Load 0x3,0x2 011f 01dd | | Execute Vector,First 0120 0a05 | | Execute_Immediate Plus,0x5 0121 00d8 | | Load_Top At_Offset_0 0122 00e2 | | Load_Encached Integer_Cache 0123 0260 | ` | Execute Discrete,In_Type 0124 7001 |p | Jump_Nonzero 0x126 0125 0801 | | Execute_Immediate Raise,0x1 0126 e602 | | Load 0x3,0x2 0127 01cf | | Execute Vector,Slice_Read 0128 0092 0313 | | Action Push_String_Extended,0x313 ; "LOADED" 012a 01de | | Execute Vector,Not_Equal 012b 680e |h | Jump_Zero 0x13a 012c e002 | | Load 0x0,0x2 012d 180e | | Execute Package,Field_Execute,Field_Number 0xe 012e 4807 |H | Short_Literal 0x7 012f 0092 0314 | | Action Push_String_Extended,0x314 ; "Not a 'c(Load_Proc/Func): " 0131 e404 | | Load 0x2,0x4 0132 e003 | | Load 0x0,0x3 0133 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0134 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0135 01cc | | Execute Vector,Catenate 0136 e007 | | Load 0x0,0x7 0137 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0138 e402 | | Load 0x2,0x2 0139 0257 | W | Execute Discrete,Raise 013a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014b | K | .CONST 0x014b ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e003 | | Load 0x0,0x3 0144 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0145 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0146 02c7 | | Declare_Variable Any 0147 00d8 | | Load_Top At_Offset_0 0148 1c00 | | Execute_Immediate Run_Utility,0x0 0149 e003 | | Load 0x0,0x3 014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014b BODY_0140: 014b e003 | | Load 0x0,0x3 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d e602 | | Load 0x3,0x2 014e 0120 | | Execute Any,Is_Value 014f 6804 |h | Jump_Zero 0x154 0150 e003 | | Load 0x0,0x3 0151 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0152 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0153 7801 |x | Jump 0x155 0154 e602 | | Load 0x3,0x2 0155 e003 | | Load 0x0,0x3 0156 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0157 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0158 6033 |`3 | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000} 0159 4801 |H | Short_Literal 0x1 015a 4800 |H | Short_Literal 0x0 015b 4800 |H | Short_Literal 0x0 015c e008 | | Load 0x0,0x8 015d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015e e003 | | Load 0x0,0x3 015f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0160 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0161 e40b | | Load 0x2,0xb 0162 4800 |H | Short_Literal 0x0 0163 e404 | | Load 0x2,0x4 0164 e003 | | Load 0x0,0x3 0165 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0166 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0167 e003 | | Load 0x0,0x3 0168 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0169 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 016a c408 | | Store 0x2,0x8 016b c602 | | Store 0x3,0x2 016c c603 | | Store 0x3,0x3 016d 00d8 | | Load_Top At_Offset_0 016e 681a |h | Jump_Zero 0x189 016f e002 | | Load 0x0,0x2 0170 180e | | Execute Package,Field_Execute,Field_Number 0xe 0171 4807 |H | Short_Literal 0x7 0172 0092 0315 | | Action Push_String_Extended,0x315 ; "Could not get Diana tree for Load_Proc " 0174 e404 | | Load 0x2,0x4 0175 e003 | | Load 0x0,0x3 0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0177 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0178 01cc | | Execute Vector,Catenate 0179 0092 030d | | Action Push_String_Extended,0x30d ; " (" 017b 01cc | | Execute Vector,Catenate 017c e603 | | Load 0x3,0x3 017d e003 | | Load 0x0,0x3 017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017f 011c | | Execute Any,Convert_Unchecked 0180 1c01 | | Execute_Immediate Run_Utility,0x1 0181 01cc | | Execute Vector,Catenate 0182 0092 030e | | Action Push_String_Extended,0x30e ; ")" 0184 01cc | | Execute Vector,Catenate 0185 e007 | | Load 0x0,0x7 0186 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0187 e402 | | Load 0x2,0x2 0188 0257 | W | Execute Discrete,Raise 0189 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018a 0000 0000 | | .XXX[0x2] 018c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 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 e003 | | Load 0x0,0x3 0194 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 e003 | | Load 0x0,0x3 0197 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0198 BODY_0190: 0198 e003 | | Load 0x0,0x3 0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019a e003 | | Load 0x0,0x3 019b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019d 67ee |g | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000} 019e e005 | | Load 0x0,0x5 019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a0 e408 | | Load 0x2,0x8 01a1 e003 | | Load 0x0,0x3 01a2 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a4 c602 | | Store 0x3,0x2 01a5 c603 | | Store 0x3,0x3 01a6 00d8 | | Load_Top At_Offset_0 01a7 681a |h | Jump_Zero 0x1c2 01a8 e002 | | Load 0x0,0x2 01a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01aa 4807 |H | Short_Literal 0x7 01ab 0092 0316 | | Action Push_String_Extended,0x316 ; "Could not state of Diana tree for Load_Proc " 01ad e404 | | Load 0x2,0x4 01ae e003 | | Load 0x0,0x3 01af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01b1 01cc | | Execute Vector,Catenate 01b2 0092 030d | | Action Push_String_Extended,0x30d ; " (" 01b4 01cc | | Execute Vector,Catenate 01b5 e603 | | Load 0x3,0x3 01b6 e003 | | Load 0x0,0x3 01b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b8 011c | | Execute Any,Convert_Unchecked 01b9 1c01 | | Execute_Immediate Run_Utility,0x1 01ba 01cc | | Execute Vector,Catenate 01bb 0092 030e | | Action Push_String_Extended,0x30e ; ")" 01bd 01cc | | Execute Vector,Catenate 01be e007 | | Load 0x0,0x7 01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c0 e402 | | Load 0x2,0x2 01c1 0257 | W | Execute Discrete,Raise 01c2 e602 | | Load 0x3,0x2 01c3 0e04 | | Execute_Immediate Not_Equal,0x4 01c4 681a |h | Jump_Zero 0x1df 01c5 e002 | | Load 0x0,0x2 01c6 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c7 4807 |H | Short_Literal 0x7 01c8 0092 0317 | | Action Push_String_Extended,0x317 ; "Load_Proc is not coded: " 01ca e404 | | Load 0x2,0x4 01cb e003 | | Load 0x0,0x3 01cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01cd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01ce 01cc | | Execute Vector,Catenate 01cf 0092 030d | | Action Push_String_Extended,0x30d ; " (" 01d1 01cc | | Execute Vector,Catenate 01d2 e603 | | Load 0x3,0x3 01d3 e003 | | Load 0x0,0x3 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 011c | | Execute Any,Convert_Unchecked 01d6 1c01 | | Execute_Immediate Run_Utility,0x1 01d7 01cc | | Execute Vector,Catenate 01d8 0092 030e | | Action Push_String_Extended,0x30e ; ")" 01da 01cc | | Execute Vector,Catenate 01db e007 | | Load 0x0,0x7 01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01dd e402 | | Load 0x2,0x2 01de 0257 | W | Execute Discrete,Raise 01df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e8 | | .CONST 0x01e8 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e00a | | Load 0x0,0xa 01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e5 02c7 | | Declare_Variable Any 01e6 00d8 | | Load_Top At_Offset_0 01e7 1c00 | | Execute_Immediate Run_Utility,0x0 01e8 BODY_01e0: 01e8 4800 |H | Short_Literal 0x0 01e9 4800 |H | Short_Literal 0x0 01ea 4801 |H | Short_Literal 0x1 01eb e602 | | Load 0x3,0x2 01ec e40b | | Load 0x2,0xb 01ed e008 | | Load 0x0,0x8 01ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ef e00b | | Load 0x0,0xb 01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f1 e004 | | Load 0x0,0x4 01f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f4 c405 | | Store 0x2,0x5 01f5 00d8 | | Load_Top At_Offset_0 01f6 e00a | | Load 0x0,0xa 01f7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f8 7010 |p | Jump_Nonzero 0x209 01f9 e002 | | Load 0x0,0x2 01fa 180e | | Execute Package,Field_Execute,Field_Number 0xe 01fb 4807 |H | Short_Literal 0x7 01fc 0092 0318 | | Action Push_String_Extended,0x318 ; "Error initializing a Program_Library.Pl_State.State? (" 01fe e602 | | Load 0x3,0x2 01ff e00a | | Load 0x0,0xa 0200 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0201 01cc | | Execute Vector,Catenate 0202 0092 030e | | Action Push_String_Extended,0x30e ; ")" 0204 01cc | | Execute Vector,Catenate 0205 e007 | | Load 0x0,0x7 0206 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0207 e402 | | Load 0x2,0x2 0208 0257 | W | Execute Discrete,Raise 0209 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0223 | # | .CONST 0x0223 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 e406 | | Load 0x2,0x6 0214 0120 | | Execute Any,Is_Value 0215 6803 |h | Jump_Zero 0x219 0216 e004 | | Load 0x0,0x4 0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0218 7801 |x | Jump 0x21a 0219 e406 | | Load 0x2,0x6 021a 4800 |H | Short_Literal 0x0 021b 4801 |H | Short_Literal 0x1 021c e408 | | Load 0x2,0x8 021d e405 | | Load 0x2,0x5 021e e004 | | Load 0x0,0x4 021f 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0220 180e | | Execute Package,Field_Execute,Field_Number 0xe 0221 c406 | | Store 0x2,0x6 0222 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0223 TRAP_0210: 0223 4887 |H | Short_Literal 0x87 0224 010f | | Execute Exception,Equal 0225 6809 |h | Jump_Zero 0x22f 0226 e002 | | Load 0x0,0x2 0227 180e | | Execute Package,Field_Execute,Field_Number 0xe 0228 4807 |H | Short_Literal 0x7 0229 0092 030f | | Action Push_String_Extended,0x30f ; "Could not open Program_Library for world of Load_Proc." 022b e007 | | Load 0x0,0x7 022c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 022d e402 | | Load 0x2,0x2 022e 0257 | W | Execute Discrete,Raise 022f 0100 | | Execute Exception,Raise 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0245 | E | .CONST 0x0245 ; Address of begin 0231 02e8 | | .CONST 0x02e8 ; Address of exception handler 0232 0007 | | .CONST 0x0007 ; Number of locals 0233 INIT_0230: 0233 e003 | | Load 0x0,0x3 0234 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0235 02ff | | Declare_Variable Variant_Record 0236 00d8 | | Load_Top At_Offset_0 0237 1c00 | | Execute_Immediate Run_Utility,0x0 0238 e00c | | Load 0x0,0xc 0239 1b15 | | Execute Package,Field_Read,Field_Number 0x15 023a 02c7 | | Declare_Variable Any 023b 00d8 | | Load_Top At_Offset_0 023c 1c00 | | Execute_Immediate Run_Utility,0x0 023d e00d | | Load 0x0,0xd 023e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023f e00e | | Load 0x0,0xe 0240 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0241 e00e | | Load 0x0,0xe 0242 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0243 e00e | | Load 0x0,0xe 0244 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0245 BODY_0230: 0245 00be | | Action Activate_Tasks 0246 00cf | | Action Mark_Auxiliary 0247 789a |x | Jump 0x2e2 0248 e409 | | Load 0x2,0x9 0249 e004 | | Load 0x0,0x4 024a 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 024b e602 | | Load 0x3,0x2 024c 016d | m | Execute Variant_Record,Structure_Write 024d e00d | | Load 0x0,0xd 024e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024f e603 | | Load 0x3,0x3 0250 0120 | | Execute Any,Is_Value 0251 6803 |h | Jump_Zero 0x255 0252 e00c | | Load 0x0,0xc 0253 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0254 7801 |x | Jump 0x256 0255 e603 | | Load 0x3,0x3 0256 e40b | | Load 0x2,0xb 0257 4800 |H | Short_Literal 0x0 0258 e00c | | Load 0x0,0xc 0259 1b13 | | Execute Package,Field_Read,Field_Number 0x13 025a e00f | | Load 0x0,0xf 025b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025c e00c | | Load 0x0,0xc 025d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 025e 0161 | a | Execute Variant_Record,Check_In_Formal_Type 025f 4801 |H | Short_Literal 0x1 0260 e602 | | Load 0x3,0x2 0261 e00c | | Load 0x0,0xc 0262 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0263 0162 | b | Execute Variant_Record,Check_In_Type 0264 e00c | | Load 0x0,0xc 0265 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0266 c603 | | Store 0x3,0x3 0267 c604 | | Store 0x3,0x4 0268 e604 | | Load 0x3,0x4 0269 6802 |h | Jump_Zero 0x26c 026a e402 | | Load 0x2,0x2 026b 0257 | W | Execute Discrete,Raise 026c e00d | | Load 0x0,0xd 026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026e e00c | | Load 0x0,0xc 026f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0270 e603 | | Load 0x3,0x3 0271 4803 |H | Short_Literal 0x3 0272 e00c | | Load 0x0,0xc 0273 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0274 c603 | | Store 0x3,0x3 0275 c605 | | Store 0x3,0x5 0276 c604 | | Store 0x3,0x4 0277 e604 | | Load 0x3,0x4 0278 6802 |h | Jump_Zero 0x27b 0279 e402 | | Load 0x2,0x2 027a 0257 | W | Execute Discrete,Raise 027b e00d | | Load 0x0,0xd 027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027d e00c | | Load 0x0,0xc 027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 027f e603 | | Load 0x3,0x3 0280 e605 | | Load 0x3,0x5 0281 0a01 | | Execute_Immediate Plus,0x1 0282 00d8 | | Load_Top At_Offset_0 0283 e00e | | Load 0x0,0xe 0284 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0285 0260 | ` | Execute Discrete,In_Type 0286 7001 |p | Jump_Nonzero 0x288 0287 0801 | | Execute_Immediate Raise,0x1 0288 e00c | | Load 0x0,0xc 0289 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 028a c603 | | Store 0x3,0x3 028b c606 | | Store 0x3,0x6 028c c604 | | Store 0x3,0x4 028d e604 | | Load 0x3,0x4 028e 6802 |h | Jump_Zero 0x291 028f e402 | | Load 0x2,0x2 0290 0257 | W | Execute Discrete,Raise 0291 e00d | | Load 0x0,0xd 0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0293 e00c | | Load 0x0,0xc 0294 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0295 e603 | | Load 0x3,0x3 0296 e605 | | Load 0x3,0x5 0297 0a02 | | Execute_Immediate Plus,0x2 0298 00d8 | | Load_Top At_Offset_0 0299 e00e | | Load 0x0,0xe 029a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029b 0260 | ` | Execute Discrete,In_Type 029c 7001 |p | Jump_Nonzero 0x29e 029d 0801 | | Execute_Immediate Raise,0x1 029e e00c | | Load 0x0,0xc 029f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02a0 c603 | | Store 0x3,0x3 02a1 c607 | | Store 0x3,0x7 02a2 c604 | | Store 0x3,0x4 02a3 e604 | | Load 0x3,0x4 02a4 6802 |h | Jump_Zero 0x2a7 02a5 e402 | | Load 0x2,0x2 02a6 0257 | W | Execute Discrete,Raise 02a7 0092 0319 | | Action Push_String_Extended,0x319 ; "Library.Resolve (\x22<[ADA," 02a9 e010 | | Load 0x0,0x10 02aa 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02ab 480a |H | Short_Literal 0xa 02ac 4808 |H | Short_Literal 0x8 02ad e606 | | Load 0x3,0x6 02ae 0910 | | Execute_Immediate Binary_Scale,0x10 02af e607 | | Load 0x3,0x7 02b0 0273 | s | Execute Discrete,Plus 02b1 00d8 | | Load_Top At_Offset_0 02b2 00e2 | | Load_Encached Integer_Cache 02b3 0260 | ` | Execute Discrete,In_Type 02b4 7001 |p | Jump_Nonzero 0x2b6 02b5 0801 | | Execute_Immediate Raise,0x1 02b6 e010 | | Load 0x0,0x10 02b7 186c | l | Execute Package,Field_Execute,Field_Number 0x6c 02b8 0092 031a | | Action Push_String_Extended,0x31a ; ",1]>\x22);" 02ba e010 | | Load 0x0,0x10 02bb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02bc 4801 |H | Short_Literal 0x1 02bd e010 | | Load 0x0,0x10 02be 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 02bf 0092 031b | | Action Push_String_Extended,0x31b ; "<VERBOSE> ~::: ~*** ~++*" 02c1 4801 |H | Short_Literal 0x1 02c2 00ea | | Load_Encached Null_String_Cache 02c3 0092 031c | | Action Push_String_Extended,0x31c ; "<[ADA," 02c5 e606 | | Load 0x3,0x6 02c6 0910 | | Execute_Immediate Binary_Scale,0x10 02c7 e607 | | Load 0x3,0x7 02c8 0273 | s | Execute Discrete,Plus 02c9 00d8 | | Load_Top At_Offset_0 02ca 00e2 | | Load_Encached Integer_Cache 02cb 0260 | ` | Execute Discrete,In_Type 02cc 7001 |p | Jump_Nonzero 0x2ce 02cd 0801 | | Execute_Immediate Raise,0x1 02ce 00e0 | | Load_Encached Standard_Cache 02cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02d0 01cc | | Execute Vector,Catenate 02d1 0092 031d | | Action Push_String_Extended,0x31d ; ",1]>" 02d3 01cc | | Execute Vector,Catenate 02d4 e011 | | Load 0x0,0x11 02d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02d6 e00d | | Load 0x0,0xd 02d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d8 e603 | | Load 0x3,0x3 02d9 e00c | | Load 0x0,0xc 02da 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02db c603 | | Store 0x3,0x3 02dc c604 | | Store 0x3,0x4 02dd e409 | | Load 0x2,0x9 02de e004 | | Load 0x0,0x4 02df 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 02e0 c409 | | Store 0x2,0x9 02e1 00c9 | | Action Pop_Auxiliary_Loop 02e2 e409 | | Load 0x2,0x9 02e3 e004 | | Load 0x0,0x4 02e4 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 02e5 012f | / | Execute Any,Equal 02e6 6f61 |oa | Jump_Zero 0x248 02e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e8 TRAP_0230: 02e8 e402 | | Load 0x2,0x2 02e9 010f | | Execute Exception,Equal 02ea 6816 |h | Jump_Zero 0x301 02eb e002 | | Load 0x0,0x2 02ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ed 4807 |H | Short_Literal 0x7 02ee 0092 031e | | Action Push_String_Extended,0x31e ; "Got error accessing Load_Proc code segment: " 02f0 e604 | | Load 0x3,0x4 02f1 e00d | | Load 0x0,0xd 02f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f3 011c | | Execute Any,Convert_Unchecked 02f4 1c01 | | Execute_Immediate Run_Utility,0x1 02f5 01cc | | Execute Vector,Catenate 02f6 e007 | | Load 0x0,0x7 02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f8 e00d | | Load 0x0,0xd 02f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fa e603 | | Load 0x3,0x3 02fb e00c | | Load 0x0,0xc 02fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02fd c603 | | Store 0x3,0x3 02fe c604 | | Store 0x3,0x4 02ff 00d8 | | Load_Top At_Offset_0 0300 0101 | | Execute Exception,Reraise 0301 e00d | | Load 0x0,0xd 0302 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0303 e603 | | Load 0x3,0x3 0304 e00c | | Load 0x0,0xc 0305 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0306 c603 | | Store 0x3,0x3 0307 c604 | | Store 0x3,0x4 0308 00d8 | | Load_Top At_Offset_0 0309 0101 | | Execute Exception,Reraise 030a ; -------------------------------------------------------------------------------------- 030a ; STRING TABLE 030a ; -------------------------------------------------------------------------------------- 030a 002c | , | .STRTAB 0x002c->0x0320 ; "[Discover_Load_Proc_Unit_Names (\x22" 030b 004b | K | .STRTAB 0x004b->0x0330 ; "\x22);]" 030c 004d | M | .STRTAB 0x004d->0x0332 ; "Could not locate Load_Proc: " 030d 0067 | g | .STRTAB 0x0067->0x0340 ; " (" 030e 0067 | g | .STRTAB 0x0067->0x0341 ; ")" 030f 0066 | f | .STRTAB 0x0066->0x0342 ; "Could not open Program_Library for world of Load_Proc." 0310 009a | | .STRTAB 0x009a->0x035d ; "This Load_Proc has no associated code segments?" 0311 00c7 | | .STRTAB 0x00c7->0x0374 ; "[End Discover_Load_Proc_Unit_Names]" 0312 00e8 | | .STRTAB 0x00e8->0x0386 ; "Unexpected exception: " 0313 00fc | | .STRTAB 0x00fc->0x0391 ; "LOADED" 0314 0100 | | .STRTAB 0x0100->0x0394 ; "Not a 'c(Load_Proc/Func): " 0315 0118 | | .STRTAB 0x0118->0x03a1 ; "Could not get Diana tree for Load_Proc " 0316 013d | = | .STRTAB 0x013d->0x03b4 ; "Could not state of Diana tree for Load_Proc " 0317 0167 | g | .STRTAB 0x0167->0x03ca ; "Load_Proc is not coded: " 0318 017d | } | .STRTAB 0x017d->0x03d6 ; "Error initializing a Program_Library.Pl_State.State? (" 0319 01b1 | | .STRTAB 0x01b1->0x03f1 ; "Library.Resolve (\x22<[ADA," 031a 01c7 | | .STRTAB 0x01c7->0x03fd ; ",1]>\x22);" 031b 01cc | | .STRTAB 0x01cc->0x0401 ; "<VERBOSE> ~::: ~*** ~++*" 031c 01e2 | | .STRTAB 0x01e2->0x040d ; "<[ADA," 031d 01e6 | | .STRTAB 0x01e6->0x0410 ; ",1]>" 031e 01e8 | | .STRTAB 0x01e8->0x0412 ; "Got error accessing Load_Proc code segment: " 031f 0212 | | .STREND 0x0212->0x0428 0320 5b44 6973 |[Dis| .STRTAB_STRINGS 0428 ; -------------------------------------------------------------------------------------- 0428 ; Debug Table 0428 ; -------------------------------------------------------------------------------------- 0428 0004 0011 | | .DEBUG4 0x0004,0x0011,0x978e,0x0000,0x0001,0x0000 042e 0000 0000 | | .BLANK 0000[0x1d2]