|
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]