|
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_779ce4
└─⟦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 03d0 | | .CONST 0x03d0 ; 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 0074 | t | .CONST 0x0074 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0014 | | .CONST 0x0014 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e002 | | Load 0x0,0x2 001f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0020 a402 | | Store_Unchecked 0x2,0x2 0021 00e3 | | Load_Encached Natural_Cache 0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0023 03e9 | | Declare_Variable Discrete,Duplicate 0024 e003 | | Load 0x0,0x3 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0027 02c7 | | Declare_Variable Any 0028 4801 |H | Short_Literal 0x1 0029 e003 | | Load 0x0,0x3 002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002c 485b |H[ | Short_Literal 0x5b 002d e5fe | | Load 0x2,-0x2 002e 01ca | | Execute Vector,Prepend 002f 0092 02eb | | Action Push_String_Extended,0x2eb ; ".??,~" 0031 01cc | | Execute Vector,Catenate 0032 e5fe | | Load 0x2,-0x2 0033 01cc | | Execute Vector,Catenate 0034 0092 02ec | | Action Push_String_Extended,0x2ec ; "]" 0036 01cc | | Execute Vector,Catenate 0037 e003 | | Load 0x0,0x3 0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0039 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 003a a405 | | Store_Unchecked 0x2,0x5 003b e5ff | | Load 0x2,-0x1 003c e003 | | Load 0x0,0x3 003d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 003f e5fe | | Load 0x2,-0x2 0040 e003 | | Load 0x0,0x3 0041 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0042 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0043 e003 | | Load 0x0,0x3 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 02c7 | | Declare_Variable Any 0047 00d8 | | Load_Top At_Offset_0 0048 1c00 | | Execute_Immediate Run_Utility,0x0 0049 e5fe | | Load 0x2,-0x2 004a e003 | | Load 0x0,0x3 004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 004d e5fe | | Load 0x2,-0x2 004e e004 | | Load 0x0,0x4 004f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0050 00d8 | | Load_Top At_Offset_0 0051 01db | | Execute Vector,Length 0052 0e00 | | Execute_Immediate Not_Equal,0x0 0053 0007 | | Action Break_Optional 0054 0092 02ed | | Action Push_String_Extended,0x2ed ; "SWITCH" 0056 e003 | | Load 0x0,0x3 0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0058 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0059 e003 | | Load 0x0,0x3 005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 005c 011e | | Execute Any,Convert 005d e003 | | Load 0x0,0x3 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0060 02c7 | | Declare_Variable Any 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 0093 0000 | | push_full_address 0x0 0065 608a |` | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00010000} 0066 0273 | s | Execute Discrete,Plus 0067 0007 | | Action Break_Optional 0068 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 006a 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 006c 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 006e 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0070 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0072 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0074 BODY_0018: 0074 e5fd | | Load 0x2,-0x3 0075 e002 | | Load 0x0,0x2 0076 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0077 e002 | | Load 0x0,0x2 0078 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0079 e002 | | Load 0x0,0x2 007a 180e | | Execute Package,Field_Execute,Field_Number 0xe 007b 4800 |H | Short_Literal 0x0 007c 0092 02ee | | Action Push_String_Extended,0x2ee ; "[Initialize (Library_Name => \x22" 007e e5ff | | Load 0x2,-0x1 007f 01cc | | Execute Vector,Catenate 0080 0092 02ef | | Action Push_String_Extended,0x2ef ; "\x22, Using_Model => \x22" 0082 01cc | | Execute Vector,Catenate 0083 e5fe | | Load 0x2,-0x2 0084 01cc | | Execute Vector,Catenate 0085 0092 02f0 | | Action Push_String_Extended,0x2f0 ; "\x22, Response => \x22" 0087 01cc | | Execute Vector,Catenate 0088 e5fd | | Load 0x2,-0x3 0089 01cc | | Execute Vector,Catenate 008a 0092 02f1 | | Action Push_String_Extended,0x2f1 ; "\x22);]" 008c 01cc | | Execute Vector,Catenate 008d e005 | | Load 0x0,0x5 008e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008f 4801 |H | Short_Literal 0x1 0090 e003 | | Load 0x0,0x3 0091 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0092 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0093 e5ff | | Load 0x2,-0x1 0094 e003 | | Load 0x0,0x3 0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0096 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0097 c408 | | Store 0x2,0x8 0098 e408 | | Load 0x2,0x8 0099 e003 | | Load 0x0,0x3 009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009b 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 009c 7010 |p | Jump_Nonzero 0xad 009d e002 | | Load 0x0,0x2 009e 180e | | Execute Package,Field_Execute,Field_Number 0xe 009f 4807 |H | Short_Literal 0x7 00a0 0092 02f2 | | Action Push_String_Extended,0x2f2 ; "Cannot resolve LIBRARY name \x22" 00a2 e5ff | | Load 0x2,-0x1 00a3 01cc | | Execute Vector,Catenate 00a4 0092 02f3 | | Action Push_String_Extended,0x2f3 ; "\x22" 00a6 01cc | | Execute Vector,Catenate 00a7 e005 | | Load 0x0,0x5 00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a9 e404 | | Load 0x2,0x4 00aa 0a01 | | Execute_Immediate Plus,0x1 00ab c404 | | Store 0x2,0x4 00ac 7820 |x | Jump 0xcd 00ad e408 | | Load 0x2,0x8 00ae e003 | | Load 0x0,0x3 00af 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b1 700d |p | Jump_Nonzero 0xbf 00b2 e002 | | Load 0x0,0x2 00b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b4 4807 |H | Short_Literal 0x7 00b5 e406 | | Load 0x2,0x6 00b6 0092 02f4 | | Action Push_String_Extended,0x2f4 ; " is not a library object" 00b8 01cc | | Execute Vector,Catenate 00b9 e005 | | Load 0x0,0x5 00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bb e404 | | Load 0x2,0x4 00bc 0a01 | | Execute_Immediate Plus,0x1 00bd c404 | | Store 0x2,0x4 00be 780e |x | Jump 0xcd 00bf e40d | | Load 0x2,0xd 00c0 0120 | | Execute Any,Is_Value 00c1 6804 |h | Jump_Zero 0xc6 00c2 e003 | | Load 0x0,0x3 00c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c4 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 00c5 7801 |x | Jump 0xc7 00c6 e40d | | Load 0x2,0xd 00c7 e408 | | Load 0x2,0x8 00c8 e003 | | Load 0x0,0x3 00c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cb c40d | | Store 0x2,0xd 00cc 8414 | | Call 0x2,0x14 00cd e404 | | Load 0x2,0x4 00ce 0c01 | | Execute_Immediate Greater_Equal,0x1 00cf 6808 |h | Jump_Zero 0xd8 00d0 e002 | | Load 0x0,0x2 00d1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d2 4805 |H | Short_Literal 0x5 00d3 0092 02f5 | | Action Push_String_Extended,0x2f5 ; "Errors generated" 00d5 e005 | | Load 0x0,0x5 00d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d7 780a |x | Jump 0xe2 00d8 e403 | | Load 0x2,0x3 00d9 0c01 | | Execute_Immediate Greater_Equal,0x1 00da 6807 |h | Jump_Zero 0xe2 00db e002 | | Load 0x0,0x2 00dc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dd 4806 |H | Short_Literal 0x6 00de 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "Warnings generated" 00e0 e005 | | Load 0x0,0x5 00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e2 e002 | | Load 0x0,0x2 00e3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e4 4800 |H | Short_Literal 0x0 00e5 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "Initialize: Done" 00e7 e005 | | Load 0x0,0x5 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 e402 | | Load 0x2,0x2 00ea e002 | | Load 0x0,0x2 00eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0127 | ' | .CONST 0x0127 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0006 | | .CONST 0x0006 ; Number of locals 00fb INIT_00f8: 00fb 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "SPEC_VIEW" 00fd e003 | | Load 0x0,0x3 00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ff 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0100 e003 | | Load 0x0,0x3 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0103 011e | | Execute Any,Convert 0104 0092 02f9 | | Action Push_String_Extended,0x2f9 ; "LOAD_VIEW" 0106 e003 | | Load 0x0,0x3 0107 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0108 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0109 e003 | | Load 0x0,0x3 010a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 010c 011e | | Execute Any,Convert 010d 0092 02fa | | Action Push_String_Extended,0x2fa ; "COMBINED_VIEW" 010f e003 | | Load 0x0,0x3 0110 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0111 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0112 e003 | | Load 0x0,0x3 0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0114 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0115 011e | | Execute Any,Convert 0116 0092 02fb | | Action Push_String_Extended,0x2fb ; "SYSTEM_VIEW" 0118 e003 | | Load 0x0,0x3 0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 011b e003 | | Load 0x0,0x3 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 011e 011e | | Execute Any,Convert 011f e7ff | | Load 0x3,-0x1 0120 e003 | | Load 0x0,0x3 0121 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0122 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0123 e003 | | Load 0x0,0x3 0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0125 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0126 011e | | Execute Any,Convert 0127 BODY_00f8: 0127 00d8 | | Load_Top At_Offset_0 0128 e602 | | Load 0x3,0x2 0129 012f | / | Execute Any,Equal 012a 00d9 | | Load_Top At_Offset_1 012b e603 | | Load 0x3,0x3 012c 012f | / | Execute Any,Equal 012d 0278 | x | Execute Discrete,Or 012e 00d9 | | Load_Top At_Offset_1 012f e604 | | Load 0x3,0x4 0130 012f | / | Execute Any,Equal 0131 0278 | x | Execute Discrete,Or 0132 00d9 | | Load_Top At_Offset_1 0133 00db | | Load_Top At_Offset_3 0134 012f | / | Execute Any,Equal 0135 0278 | x | Execute Discrete,Or 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0143 | C | .CONST 0x0143 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b 4820 |H | Short_Literal 0x20 013c 00db | | Load_Top At_Offset_3 013d e006 | | Load 0x0,0x6 013e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 013f 4820 |H | Short_Literal 0x20 0140 e7fe | | Load 0x3,-0x2 0141 e006 | | Load 0x0,0x6 0142 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0143 BODY_0138: 0143 4801 |H | Short_Literal 0x1 0144 00da | | Load_Top At_Offset_2 0145 00da | | Load_Top At_Offset_2 0146 e006 | | Load 0x0,0x6 0147 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0148 6810 |h | Jump_Zero 0x159 0149 00d9 | | Load_Top At_Offset_1 014a 01dd | | Execute Vector,First 014b 00d9 | | Load_Top At_Offset_1 014c 01db | | Execute Vector,Length 014d 0273 | s | Execute Discrete,Plus 014e 0a01 | | Execute_Immediate Plus,0x1 014f 00d8 | | Load_Top At_Offset_0 0150 00e2 | | Load_Encached Integer_Cache 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 00da | | Load_Top At_Offset_2 0155 01dc | | Execute Vector,Last 0156 00db | | Load_Top At_Offset_3 0157 01cf | | Execute Vector,Slice_Read 0158 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0159 00d9 | | Load_Top At_Offset_1 015a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 4801 |H | Short_Literal 0x1 0164 e003 | | Load 0x0,0x3 0165 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0166 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0167 e7ff | | Load 0x3,-0x1 0168 e003 | | Load 0x0,0x3 0169 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 016b e003 | | Load 0x0,0x3 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 01db | | Execute Vector,Length 0175 6829 |h) | Jump_Zero 0x19f 0176 00db | | Load_Top At_Offset_3 0177 e003 | | Load 0x0,0x3 0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0179 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 017a 00cf | | Action Mark_Auxiliary 017b 781d |x | Jump 0x199 017c e7fe | | Load 0x3,-0x2 017d e003 | | Load 0x0,0x3 017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0180 c408 | | Store 0x2,0x8 0181 e408 | | Load 0x2,0x8 0182 e003 | | Load 0x0,0x3 0183 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0184 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0185 680d |h | Jump_Zero 0x193 0186 0092 02fc | | Action Push_String_Extended,0x2fc ; "<ERRORS>" 0188 e409 | | Load 0x2,0x9 0189 e408 | | Load 0x2,0x8 018a e003 | | Load 0x0,0x3 018b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 018d 8410 | | Call 0x2,0x10 018e e409 | | Load 0x2,0x9 018f e7ff | | Load 0x3,-0x1 0190 8410 | | Call 0x2,0x10 0191 e004 | | Load 0x0,0x4 0192 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0193 e7fe | | Load 0x3,-0x2 0194 e003 | | Load 0x0,0x3 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0197 c7fe | | Store 0x3,-0x2 0198 00c9 | | Action Pop_Auxiliary_Loop 0199 e7fe | | Load 0x3,-0x2 019a e003 | | Load 0x0,0x3 019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 019d 6fde |o | Jump_Zero 0x17c 019e 00ce | | Action Pop_Auxiliary 019f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01b3 | | .CONST 0x01b3 ; Address of begin 01a1 01f7 | | .CONST 0x01f7 ; Address of exception handler 01a2 0005 | | .CONST 0x0005 ; Number of locals 01a3 INIT_01a0: 01a3 e007 | | Load 0x0,0x7 01a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01a5 02ff | | Declare_Variable Variant_Record 01a6 00d8 | | Load_Top At_Offset_0 01a7 1c00 | | Execute_Immediate Run_Utility,0x0 01a8 00d8 | | Load_Top At_Offset_0 01a9 02ff | | Declare_Variable Variant_Record 01aa 00d8 | | Load_Top At_Offset_0 01ab 1c00 | | Execute_Immediate Run_Utility,0x0 01ac e008 | | Load 0x0,0x8 01ad 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ae 02c7 | | Declare_Variable Any 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 01b3 BODY_01a0: 01b3 00be | | Action Activate_Tasks 01b4 e002 | | Load 0x0,0x2 01b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b6 4802 |H | Short_Literal 0x2 01b7 0092 02fd | | Action Push_String_Extended,0x2fd ; "Merging TestMate switch settings from " 01b9 e7ff | | Load 0x3,-0x1 01ba 01cc | | Execute Vector,Catenate 01bb 0092 02fe | | Action Push_String_Extended,0x2fe ; " to " 01bd 01cc | | Execute Vector,Catenate 01be e7fe | | Load 0x3,-0x2 01bf 01cc | | Execute Vector,Catenate 01c0 e005 | | Load 0x0,0x5 01c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c2 00db | | Load_Top At_Offset_3 01c3 e7ff | | Load 0x3,-0x1 01c4 8605 | | Call 0x3,0x5 01c5 00d1 | | Pop_Control Pop_Count_1 01c6 00da | | Load_Top At_Offset_2 01c7 e7fe | | Load 0x3,-0x2 01c8 8605 | | Call 0x3,0x5 01c9 00d1 | | Pop_Control Pop_Count_1 01ca 00d9 | | Load_Top At_Offset_1 01cb 0120 | | Execute Any,Is_Value 01cc 6803 |h | Jump_Zero 0x1d0 01cd e008 | | Load 0x0,0x8 01ce 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01cf 7801 |x | Jump 0x1d1 01d0 00d9 | | Load_Top At_Offset_1 01d1 602e |`. | Indirect_Literal Discrete,0x200,{0x00000000, 0x00004000} 01d2 e009 | | Load 0x0,0x9 01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d4 0092 02ff | | Action Push_String_Extended,0x2ff ; "TestMate.@" 01d6 e602 | | Load 0x3,0x2 01d7 e008 | | Load 0x0,0x8 01d8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01d9 c604 | | Store 0x3,0x4 01da 00cf | | Action Mark_Auxiliary 01db 7811 |x | Jump 0x1ed 01dc 6023 |`# | Indirect_Literal Discrete,0x200,{0x00000000, 0x00004000} 01dd e009 | | Load 0x0,0x9 01de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01df e604 | | Load 0x3,0x4 01e0 e008 | | Load 0x0,0x8 01e1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01e2 e604 | | Load 0x3,0x4 01e3 e008 | | Load 0x0,0x8 01e4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01e5 e603 | | Load 0x3,0x3 01e6 e008 | | Load 0x0,0x8 01e7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01e8 00da | | Load_Top At_Offset_2 01e9 e008 | | Load 0x0,0x8 01ea 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01eb c604 | | Store 0x3,0x4 01ec 00c9 | | Action Pop_Auxiliary_Loop 01ed 00da | | Load_Top At_Offset_2 01ee e008 | | Load 0x0,0x8 01ef 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01f0 6feb |o | Jump_Zero 0x1dc 01f1 00ce | | Action Pop_Auxiliary 01f2 00d9 | | Load_Top At_Offset_1 01f3 e008 | | Load 0x0,0x8 01f4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01f5 c604 | | Store 0x3,0x4 01f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f7 TRAP_01a0: 01f7 e40e | | Load 0x2,0xe 01f8 010f | | Execute Exception,Equal 01f9 6804 |h | Jump_Zero 0x1fe 01fa e404 | | Load 0x2,0x4 01fb 0a01 | | Execute_Immediate Plus,0x1 01fc c404 | | Store 0x2,0x4 01fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fe 0100 | | Execute Exception,Raise 01ff 0000 | | .XXX[0x1] 0200 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0219 | | .CONST 0x0219 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b 4801 |H | Short_Literal 0x1 020c e003 | | Load 0x0,0x3 020d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 020f e5ff | | Load 0x2,-0x1 0210 0092 0300 | | Action Push_String_Extended,0x300 ; "$$" 0212 01cc | | Execute Vector,Catenate 0213 e003 | | Load 0x0,0x3 0214 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0215 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0216 840f | | Call 0x2,0xf 0217 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 0219 BODY_0208: 0219 00cf | | Action Mark_Auxiliary 021a 780c |x | Jump 0x227 021b e405 | | Load 0x2,0x5 021c e003 | | Load 0x0,0x3 021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 021f c408 | | Store 0x2,0x8 0220 8603 | | Call 0x3,0x3 0221 e405 | | Load 0x2,0x5 0222 e003 | | Load 0x0,0x3 0223 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0224 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0225 c405 | | Store 0x2,0x5 0226 00c9 | | Action Pop_Auxiliary_Loop 0227 e405 | | Load 0x2,0x5 0228 e003 | | Load 0x0,0x3 0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 022b 6fef |o | Jump_Zero 0x21b 022c 00ce | | Action Pop_Auxiliary 022d 00d9 | | Load_Top At_Offset_1 022e 7022 |p" | Jump_Nonzero 0x251 022f e405 | | Load 0x2,0x5 0230 e003 | | Load 0x0,0x3 0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0232 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0233 e406 | | Load 0x2,0x6 0234 e004 | | Load 0x0,0x4 0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0236 01db | | Execute Vector,Length 0237 700b |p | Jump_Nonzero 0x243 0238 0092 02fc | | Action Push_String_Extended,0x2fc ; "<ERRORS>" 023a e406 | | Load 0x2,0x6 023b e409 | | Load 0x2,0x9 023c e407 | | Load 0x2,0x7 023d e004 | | Load 0x0,0x4 023e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023f 8410 | | Call 0x2,0x10 0240 e004 | | Load 0x0,0x4 0241 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0242 7807 |x | Jump 0x24a 0243 e406 | | Load 0x2,0x6 0244 e004 | | Load 0x0,0x4 0245 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0246 e407 | | Load 0x2,0x7 0247 e004 | | Load 0x0,0x4 0248 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0249 8413 | | Call 0x2,0x13 024a e405 | | Load 0x2,0x5 024b e406 | | Load 0x2,0x6 024c e004 | | Load 0x0,0x4 024d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024e 8412 | | Call 0x2,0x12 024f c405 | | Store 0x2,0x5 0250 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0251 e5ff | | Load 0x2,-0x1 0252 e004 | | Load 0x0,0x4 0253 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0254 e5fe | | Load 0x2,-0x2 0255 e004 | | Load 0x0,0x4 0256 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0257 8413 | | Call 0x2,0x13 0258 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0266 | f | .CONST 0x0266 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e007 | | Load 0x0,0x7 0264 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0265 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0266 BODY_0260: 0266 e007 | | Load 0x0,0x7 0267 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0269 e9fe | | Load 0x4,-0x2 026a 601d |` | Indirect_Literal Discrete,0x288,{0x00000000, 0x00004000} 026b e009 | | Load 0x0,0x9 026c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026d 4800 |H | Short_Literal 0x0 026e e00a | | Load 0x0,0xa 026f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0270 e007 | | Load 0x0,0x7 0271 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0272 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0273 e9ff | | Load 0x4,-0x1 0274 e007 | | Load 0x0,0x7 0275 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0276 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0277 00d1 | | Pop_Control Pop_Count_1 0278 0059 | Y | Store_Top Discrete,At_Offset_1 0279 00d8 | | Load_Top At_Offset_0 027a 680c |h | Jump_Zero 0x287 027b e002 | | Load 0x0,0x2 027c 180e | | Execute Package,Field_Execute,Field_Number 0xe 027d 4807 |H | Short_Literal 0x7 027e e9ff | | Load 0x4,-0x1 027f 00db | | Load_Top At_Offset_3 0280 e007 | | Load 0x0,0x7 0281 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0282 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0283 e005 | | Load 0x0,0x5 0284 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0285 e40e | | Load 0x2,0xe 0286 0257 | W | Execute Discrete,Raise 0287 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0288 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0299 | | .CONST 0x0299 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 e409 | | Load 0x2,0x9 0294 e408 | | Load 0x2,0x8 0295 e003 | | Load 0x0,0x3 0296 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0297 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0298 8410 | | Call 0x2,0x10 0299 BODY_0290: 0299 e408 | | Load 0x2,0x8 029a e003 | | Load 0x0,0x3 029b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 029c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 029d 6809 |h | Jump_Zero 0x2a7 029e 0092 02fc | | Action Push_String_Extended,0x2fc ; "<ERRORS>" 02a0 00ea | | Load_Encached Null_String_Cache 02a1 4800 |H | Short_Literal 0x0 02a2 4801 |H | Short_Literal 0x1 02a3 e802 | | Load 0x4,0x2 02a4 e00b | | Load 0x0,0xb 02a5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a7 e408 | | Load 0x2,0x8 02a8 e003 | | Load 0x0,0x3 02a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02ab 6829 |h) | Jump_Zero 0x2d5 02ac e602 | | Load 0x3,0x2 02ad 681b |h | Jump_Zero 0x2c9 02ae e002 | | Load 0x0,0x2 02af 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b0 4806 |H | Short_Literal 0x6 02b1 0092 0301 | | Action Push_String_Extended,0x301 ; "Model library " 02b3 e408 | | Load 0x2,0x8 02b4 e003 | | Load 0x0,0x3 02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02b7 01cc | | Execute Vector,Catenate 02b8 0092 0302 | | Action Push_String_Extended,0x302 ; " is a world; it will be created as a directory inside the view being initialized" 02ba 01cc | | Execute Vector,Catenate 02bb e005 | | Load 0x0,0x5 02bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02bd e403 | | Load 0x2,0x3 02be 0a01 | | Execute_Immediate Plus,0x1 02bf c403 | | Store 0x2,0x3 02c0 0092 02fc | | Action Push_String_Extended,0x2fc ; "<ERRORS>" 02c2 00ea | | Load_Encached Null_String_Cache 02c3 4800 |H | Short_Literal 0x0 02c4 4801 |H | Short_Literal 0x1 02c5 e802 | | Load 0x4,0x2 02c6 e00b | | Load 0x0,0xb 02c7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c9 0092 0303 | | Action Push_String_Extended,0x303 ; "<PROFILE>" 02cb e408 | | Load 0x2,0x8 02cc e003 | | Load 0x0,0x3 02cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ce 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02cf 4800 |H | Short_Literal 0x0 02d0 4800 |H | Short_Literal 0x0 02d1 e802 | | Load 0x4,0x2 02d2 e00b | | Load 0x0,0xb 02d3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d5 e602 | | Load 0x3,0x2 02d6 6807 |h | Jump_Zero 0x2de 02d7 e408 | | Load 0x2,0x8 02d8 e003 | | Load 0x0,0x3 02d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02da 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02db e40c | | Load 0x2,0xc 02dc 012e | . | Execute Any,Not_Equal 02dd 680c |h | Jump_Zero 0x2ea 02de 00ea | | Load_Encached Null_String_Cache 02df 4801 |H | Short_Literal 0x1 02e0 0092 02fc | | Action Push_String_Extended,0x2fc ; "<ERRORS>" 02e2 4801 |H | Short_Literal 0x1 02e3 e802 | | Load 0x4,0x2 02e4 e408 | | Load 0x2,0x8 02e5 e003 | | Load 0x0,0x3 02e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02e8 e00b | | Load 0x0,0xb 02e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02eb ; -------------------------------------------------------------------------------------- 02eb ; STRING TABLE 02eb ; -------------------------------------------------------------------------------------- 02eb 0034 | 4 | .STRTAB 0x0034->0x0305 ; ".??,~" 02ec 0037 | 7 | .STRTAB 0x0037->0x0307 ; "]" 02ed 0036 | 6 | .STRTAB 0x0036->0x0308 ; "SWITCH" 02ee 003a | : | .STRTAB 0x003a->0x030b ; "[Initialize (Library_Name => \x22" 02ef 0056 | V | .STRTAB 0x0056->0x031a ; "\x22, Using_Model => \x22" 02f0 0067 | g | .STRTAB 0x0067->0x0323 ; "\x22, Response => \x22" 02f1 0075 | u | .STRTAB 0x0075->0x032b ; "\x22);]" 02f2 0077 | w | .STRTAB 0x0077->0x032d ; "Cannot resolve LIBRARY name \x22" 02f3 0092 | | .STRTAB 0x0092->0x033c ; "\x22" 02f4 0091 | | .STRTAB 0x0091->0x033c ; " is not a library object" 02f5 00a7 | | .STRTAB 0x00a7->0x0348 ; "Errors generated" 02f6 00b5 | | .STRTAB 0x00b5->0x0350 ; "Warnings generated" 02f7 00c5 | | .STRTAB 0x00c5->0x0359 ; "Initialize: Done" 02f8 00d3 | | .STRTAB 0x00d3->0x0361 ; "SPEC_VIEW" 02f9 00da | | .STRTAB 0x00da->0x0366 ; "LOAD_VIEW" 02fa 00e1 | | .STRTAB 0x00e1->0x036a ; "COMBINED_VIEW" 02fb 00ec | | .STRTAB 0x00ec->0x0371 ; "SYSTEM_VIEW" 02fc 00f5 | | .STRTAB 0x00f5->0x0376 ; "<ERRORS>" 02fd 00fb | | .STRTAB 0x00fb->0x037a ; "Merging TestMate switch settings from " 02fe 011f | | .STRTAB 0x011f->0x038d ; " to " 02ff 0121 | ! | .STRTAB 0x0121->0x038f ; "TestMate.@" 0300 0129 | ) | .STRTAB 0x0129->0x0394 ; "$$" 0301 0129 | ) | .STRTAB 0x0129->0x0395 ; "Model library " 0302 0135 | 5 | .STRTAB 0x0135->0x039c ; " is a world; it will be created as a directory inside the view being initialized" 0303 0183 | | .STRTAB 0x0183->0x03c4 ; "<PROFILE>" 0304 018a | | .STREND 0x018a->0x03c9 0305 2e3f 3f2c |.??,| .STRTAB_STRINGS 03c9 0000 0000 | | .BLANK 0000[0x7] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug Table 03d0 ; -------------------------------------------------------------------------------------- 03d0 0004 000a | | .DEBUG4 0x0004,0x000a,0x17cd,0x0000,0x0001,0x0000 03d6 0000 0000 | | .BLANK 0000[0x2a]