|
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
└─ ⟦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 0378 | x | .CONST 0x0378 ; 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 0067 | g | .CONST 0x0067 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b e004 | | Load 0x0,0x4
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e e004 | | Load 0x0,0x4
000f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0010 a402 | | Store_Unchecked 0x2,0x2
0011 00e3 | | Load_Encached Natural_Cache
0012 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0013 03e9 | | Declare_Variable Discrete,Duplicate
0014 e008 | | Load 0x0,0x8
0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0016 02c7 | | Declare_Variable Any
0017 00d8 | | Load_Top At_Offset_0
0018 1c00 | | Execute_Immediate Run_Utility,0x0
0019 e002 | | Load 0x0,0x2
001a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
001c 02c7 | | Declare_Variable Any
001d 4801 |H | Short_Literal 0x1
001e e002 | | Load 0x0,0x2
001f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0020 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0021 485b |H[ | Short_Literal 0x5b
0022 e5fe | | Load 0x2,-0x2
0023 01ca | | Execute Vector,Prepend
0024 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ".??,~"
0026 01cc | | Execute Vector,Catenate
0027 e5fe | | Load 0x2,-0x2
0028 01cc | | Execute Vector,Catenate
0029 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "]"
002b 01cc | | Execute Vector,Catenate
002c e002 | | Load 0x0,0x2
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
002f a406 | | Store_Unchecked 0x2,0x6
0030 e5ff | | Load 0x2,-0x1
0031 e002 | | Load 0x0,0x2
0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0033 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0034 e5fe | | Load 0x2,-0x2
0035 e002 | | Load 0x0,0x2
0036 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0037 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0038 e002 | | Load 0x0,0x2
0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003b 02c7 | | Declare_Variable Any
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e e5fe | | Load 0x2,-0x2
003f e002 | | Load 0x0,0x2
0040 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0041 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0042 e5fe | | Load 0x2,-0x2
0043 e00a | | Load 0x0,0xa
0044 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0045 00d8 | | Load_Top At_Offset_0
0046 01db | | Execute Vector,Length
0047 0e00 | | Execute_Immediate Not_Equal,0x0
0048 0007 | | Action Break_Optional
0049 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "SWITCH"
004b e002 | | Load 0x0,0x2
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
004e e002 | | Load 0x0,0x2
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0051 011e | | Execute Any,Convert
0052 e002 | | Load 0x0,0x2
0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0054 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0055 02c7 | | Declare_Variable Any
0056 00d8 | | Load_Top At_Offset_0
0057 1c00 | | Execute_Immediate Run_Utility,0x0
0058 0093 0000 | | push_full_address 0x0
005a 6095 |` | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00010000}
005b 0273 | s | Execute Discrete,Plus
005c 0007 | | Action Break_Optional
005d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
005f 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0061 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0063 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0065 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0067 BODY_0008:
0067 e405 | | Load 0x2,0x5
0068 e5fd | | Load 0x2,-0x3
0069 e004 | | Load 0x0,0x4
006a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
006b c405 | | Store 0x2,0x5
006c 4801 |H | Short_Literal 0x1
006d e405 | | Load 0x2,0x5
006e e008 | | Load 0x0,0x8
006f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0070 6809 |h | Jump_Zero 0x7a
0071 e004 | | Load 0x0,0x4
0072 180e | | Execute Package,Field_Execute,Field_Number 0xe
0073 4802 |H | Short_Literal 0x2
0074 e405 | | Load 0x2,0x5
0075 e008 | | Load 0x0,0x8
0076 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0077 e006 | | Load 0x0,0x6
0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0079 7869 |xi | Jump 0xe3
007a e004 | | Load 0x0,0x4
007b 180e | | Execute Package,Field_Execute,Field_Number 0xe
007c 4800 |H | Short_Literal 0x0
007d 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "[Initialize (Library_Name => \x22"
007f e5ff | | Load 0x2,-0x1
0080 01cc | | Execute Vector,Catenate
0081 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "\x22, Using_Model => \x22"
0083 01cc | | Execute Vector,Catenate
0084 e5fe | | Load 0x2,-0x2
0085 01cc | | Execute Vector,Catenate
0086 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "\x22, Response => \x22"
0088 01cc | | Execute Vector,Catenate
0089 e5fd | | Load 0x2,-0x3
008a 01cc | | Execute Vector,Catenate
008b 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "\x22);]"
008d 01cc | | Execute Vector,Catenate
008e e006 | | Load 0x0,0x6
008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0090 4801 |H | Short_Literal 0x1
0091 e002 | | Load 0x0,0x2
0092 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0094 e5ff | | Load 0x2,-0x1
0095 e002 | | Load 0x0,0x2
0096 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0097 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0098 c409 | | Store 0x2,0x9
0099 e409 | | Load 0x2,0x9
009a e002 | | Load 0x0,0x2
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
009d 7010 |p | Jump_Nonzero 0xae
009e e004 | | Load 0x0,0x4
009f 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a0 4807 |H | Short_Literal 0x7
00a1 0092 02ba | | Action Push_String_Extended,0x2ba ; "Cannot resolve LIBRARY name \x22"
00a3 e5ff | | Load 0x2,-0x1
00a4 01cc | | Execute Vector,Catenate
00a5 0092 02bb | | Action Push_String_Extended,0x2bb ; "\x22"
00a7 01cc | | Execute Vector,Catenate
00a8 e006 | | Load 0x0,0x6
00a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00aa e404 | | Load 0x2,0x4
00ab 0a01 | | Execute_Immediate Plus,0x1
00ac c404 | | Store 0x2,0x4
00ad 7820 |x | Jump 0xce
00ae e409 | | Load 0x2,0x9
00af e002 | | Load 0x0,0x2
00b0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b2 700d |p | Jump_Nonzero 0xc0
00b3 e004 | | Load 0x0,0x4
00b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b5 4807 |H | Short_Literal 0x7
00b6 e407 | | Load 0x2,0x7
00b7 0092 02bc | | Action Push_String_Extended,0x2bc ; " is not a library object"
00b9 01cc | | Execute Vector,Catenate
00ba e006 | | Load 0x0,0x6
00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bc e404 | | Load 0x2,0x4
00bd 0a01 | | Execute_Immediate Plus,0x1
00be c404 | | Store 0x2,0x4
00bf 780e |x | Jump 0xce
00c0 e40e | | Load 0x2,0xe
00c1 0120 | | Execute Any,Is_Value
00c2 6804 |h | Jump_Zero 0xc7
00c3 e002 | | Load 0x0,0x2
00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
00c6 7801 |x | Jump 0xc8
00c7 e40e | | Load 0x2,0xe
00c8 e409 | | Load 0x2,0x9
00c9 e002 | | Load 0x0,0x2
00ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cc c40e | | Store 0x2,0xe
00cd 8414 | | Call 0x2,0x14
00ce e404 | | Load 0x2,0x4
00cf 0c01 | | Execute_Immediate Greater_Equal,0x1
00d0 6808 |h | Jump_Zero 0xd9
00d1 e004 | | Load 0x0,0x4
00d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d3 4805 |H | Short_Literal 0x5
00d4 0092 02bd | | Action Push_String_Extended,0x2bd ; "Errors generated"
00d6 e006 | | Load 0x0,0x6
00d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d8 780a |x | Jump 0xe3
00d9 e403 | | Load 0x2,0x3
00da 0c01 | | Execute_Immediate Greater_Equal,0x1
00db 6807 |h | Jump_Zero 0xe3
00dc e004 | | Load 0x0,0x4
00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00de 4806 |H | Short_Literal 0x6
00df 0092 02be | | Action Push_String_Extended,0x2be ; "Warnings generated"
00e1 e006 | | Load 0x0,0x6
00e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e3 e004 | | Load 0x0,0x4
00e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e5 4800 |H | Short_Literal 0x0
00e6 0092 02bf | | Action Push_String_Extended,0x2bf ; "Initialize: Done"
00e8 e006 | | Load 0x0,0x6
00e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ea e402 | | Load 0x2,0x2
00eb e004 | | Load 0x0,0x4
00ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ee 0000 0000 | | .XXX[0x2]
00f0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0103 | | .CONST 0x0103 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb 4820 |H | Short_Literal 0x20
00fc 00db | | Load_Top At_Offset_3
00fd e005 | | Load 0x0,0x5
00fe 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ff 4820 |H | Short_Literal 0x20
0100 e7fe | | Load 0x3,-0x2
0101 e005 | | Load 0x0,0x5
0102 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0103 BODY_00f8:
0103 4801 |H | Short_Literal 0x1
0104 00da | | Load_Top At_Offset_2
0105 00da | | Load_Top At_Offset_2
0106 e005 | | Load 0x0,0x5
0107 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0108 6810 |h | Jump_Zero 0x119
0109 00d9 | | Load_Top At_Offset_1
010a 01dd | | Execute Vector,First
010b 00d9 | | Load_Top At_Offset_1
010c 01db | | Execute Vector,Length
010d 0273 | s | Execute Discrete,Plus
010e 0a01 | | Execute_Immediate Plus,0x1
010f 00d8 | | Load_Top At_Offset_0
0110 00e2 | | Load_Encached Integer_Cache
0111 0260 | ` | Execute Discrete,In_Type
0112 7001 |p | Jump_Nonzero 0x114
0113 0801 | | Execute_Immediate Raise,0x1
0114 00da | | Load_Top At_Offset_2
0115 01dc | | Execute Vector,Last
0116 00db | | Load_Top At_Offset_3
0117 01cf | | Execute Vector,Slice_Read
0118 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0119 00d9 | | Load_Top At_Offset_1
011a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4801 |H | Short_Literal 0x1
0124 e002 | | Load 0x0,0x2
0125 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0127 e7ff | | Load 0x3,-0x1
0128 e002 | | Load 0x0,0x2
0129 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
012b e002 | | Load 0x0,0x2
012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 01db | | Execute Vector,Length
0135 6829 |h) | Jump_Zero 0x15f
0136 00db | | Load_Top At_Offset_3
0137 e002 | | Load 0x0,0x2
0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0139 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
013a 00cf | | Action Mark_Auxiliary
013b 781d |x | Jump 0x159
013c e7fe | | Load 0x3,-0x2
013d e002 | | Load 0x0,0x2
013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0140 c409 | | Store 0x2,0x9
0141 e409 | | Load 0x2,0x9
0142 e002 | | Load 0x0,0x2
0143 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0144 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0145 680d |h | Jump_Zero 0x153
0146 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "<ERRORS>"
0148 e40a | | Load 0x2,0xa
0149 e409 | | Load 0x2,0x9
014a e002 | | Load 0x0,0x2
014b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
014d 8410 | | Call 0x2,0x10
014e e40a | | Load 0x2,0xa
014f e7ff | | Load 0x3,-0x1
0150 8410 | | Call 0x2,0x10
0151 e00a | | Load 0x0,0xa
0152 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0153 e7fe | | Load 0x3,-0x2
0154 e002 | | Load 0x0,0x2
0155 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0156 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0157 c7fe | | Store 0x3,-0x2
0158 00c9 | | Action Pop_Auxiliary_Loop
0159 e7fe | | Load 0x3,-0x2
015a e002 | | Load 0x0,0x2
015b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
015d 6fde |o | Jump_Zero 0x13c
015e 00ce | | Action Pop_Auxiliary
015f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0174 | t | .CONST 0x0174 ; Address of begin
0161 01b8 | | .CONST 0x01b8 ; Address of exception handler
0162 0005 | | .CONST 0x0005 ; Number of locals
0163 INIT_0160:
0163 e01e | | Load 0x0,0x1e
0164 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0165 02c7 | | Declare_Variable Any
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 e01e | | Load 0x0,0x1e
0169 1b14 | | Execute Package,Field_Read,Field_Number 0x14
016a 02c7 | | Declare_Variable Any
016b 00d8 | | Load_Top At_Offset_0
016c 1c00 | | Execute_Immediate Run_Utility,0x0
016d e01f | | Load 0x0,0x1f
016e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
016f 02c7 | | Declare_Variable Any
0170 00d8 | | Load_Top At_Offset_0
0171 1c00 | | Execute_Immediate Run_Utility,0x0
0172 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0174 BODY_0160:
0174 00be | | Action Activate_Tasks
0175 e004 | | Load 0x0,0x4
0176 180e | | Execute Package,Field_Execute,Field_Number 0xe
0177 4802 |H | Short_Literal 0x2
0178 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "Merging TestMate switch settings from "
017a e7ff | | Load 0x3,-0x1
017b 01cc | | Execute Vector,Catenate
017c 0092 02c2 | | Action Push_String_Extended,0x2c2 ; " to "
017e 01cc | | Execute Vector,Catenate
017f e7fe | | Load 0x3,-0x2
0180 01cc | | Execute Vector,Catenate
0181 e006 | | Load 0x0,0x6
0182 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0183 00db | | Load_Top At_Offset_3
0184 e7ff | | Load 0x3,-0x1
0185 8605 | | Call 0x3,0x5
0186 c602 | | Store 0x3,0x2
0187 00da | | Load_Top At_Offset_2
0188 e7fe | | Load 0x3,-0x2
0189 8605 | | Call 0x3,0x5
018a c603 | | Store 0x3,0x3
018b 00d9 | | Load_Top At_Offset_1
018c 0120 | | Execute Any,Is_Value
018d 6803 |h | Jump_Zero 0x191
018e e01f | | Load 0x0,0x1f
018f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0190 7801 |x | Jump 0x192
0191 00d9 | | Load_Top At_Offset_1
0192 602d |`- | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x00004000}
0193 e020 | | Load 0x0,0x20
0194 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0195 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "TestMate.@"
0197 e602 | | Load 0x3,0x2
0198 e01f | | Load 0x0,0x1f
0199 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
019a c604 | | Store 0x3,0x4
019b 00cf | | Action Mark_Auxiliary
019c 7811 |x | Jump 0x1ae
019d 6022 |`" | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x00004000}
019e e020 | | Load 0x0,0x20
019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a0 e604 | | Load 0x3,0x4
01a1 e01f | | Load 0x0,0x1f
01a2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01a3 e604 | | Load 0x3,0x4
01a4 e01f | | Load 0x0,0x1f
01a5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01a6 e603 | | Load 0x3,0x3
01a7 e01f | | Load 0x0,0x1f
01a8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01a9 00da | | Load_Top At_Offset_2
01aa e01f | | Load 0x0,0x1f
01ab 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01ac c604 | | Store 0x3,0x4
01ad 00c9 | | Action Pop_Auxiliary_Loop
01ae 00da | | Load_Top At_Offset_2
01af e01f | | Load 0x0,0x1f
01b0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01b1 6feb |o | Jump_Zero 0x19d
01b2 00ce | | Action Pop_Auxiliary
01b3 00d9 | | Load_Top At_Offset_1
01b4 e01f | | Load 0x0,0x1f
01b5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01b6 c604 | | Store 0x3,0x4
01b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b8 TRAP_0160:
01b8 e40f | | Load 0x2,0xf
01b9 010f | | Execute Exception,Equal
01ba 6804 |h | Jump_Zero 0x1bf
01bb e404 | | Load 0x2,0x4
01bc 0a01 | | Execute_Immediate Plus,0x1
01bd c404 | | Store 0x2,0x4
01be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bf 0100 | | Execute Exception,Raise
01c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d9 | | .CONST 0x01d9 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb 4801 |H | Short_Literal 0x1
01cc e002 | | Load 0x0,0x2
01cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cf e5ff | | Load 0x2,-0x1
01d0 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "$$"
01d2 01cc | | Execute Vector,Catenate
01d3 e002 | | Load 0x0,0x2
01d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01d6 8219 | | Call 0x1,0x19
01d7 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
01d9 BODY_01c8:
01d9 00cf | | Action Mark_Auxiliary
01da 780c |x | Jump 0x1e7
01db e406 | | Load 0x2,0x6
01dc e002 | | Load 0x0,0x2
01dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01de 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01df c409 | | Store 0x2,0x9
01e0 8603 | | Call 0x3,0x3
01e1 e406 | | Load 0x2,0x6
01e2 e002 | | Load 0x0,0x2
01e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01e5 c406 | | Store 0x2,0x6
01e6 00c9 | | Action Pop_Auxiliary_Loop
01e7 e406 | | Load 0x2,0x6
01e8 e002 | | Load 0x0,0x2
01e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01eb 6fef |o | Jump_Zero 0x1db
01ec 00ce | | Action Pop_Auxiliary
01ed 00d9 | | Load_Top At_Offset_1
01ee 7022 |p" | Jump_Nonzero 0x211
01ef e406 | | Load 0x2,0x6
01f0 e002 | | Load 0x0,0x2
01f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01f3 e407 | | Load 0x2,0x7
01f4 e00a | | Load 0x0,0xa
01f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f6 01db | | Execute Vector,Length
01f7 700b |p | Jump_Nonzero 0x203
01f8 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "<ERRORS>"
01fa e407 | | Load 0x2,0x7
01fb e40a | | Load 0x2,0xa
01fc e408 | | Load 0x2,0x8
01fd e00a | | Load 0x0,0xa
01fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ff 8410 | | Call 0x2,0x10
0200 e00a | | Load 0x0,0xa
0201 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0202 7807 |x | Jump 0x20a
0203 e407 | | Load 0x2,0x7
0204 e00a | | Load 0x0,0xa
0205 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0206 e408 | | Load 0x2,0x8
0207 e00a | | Load 0x0,0xa
0208 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0209 8413 | | Call 0x2,0x13
020a e406 | | Load 0x2,0x6
020b e407 | | Load 0x2,0x7
020c e00a | | Load 0x0,0xa
020d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020e 8412 | | Call 0x2,0x12
020f c406 | | Store 0x2,0x6
0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0211 e5ff | | Load 0x2,-0x1
0212 e00a | | Load 0x0,0xa
0213 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0214 e5fe | | Load 0x2,-0x2
0215 e00a | | Load 0x0,0xa
0216 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0217 8413 | | Call 0x2,0x13
0218 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0226 | & | .CONST 0x0226 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e01e | | Load 0x0,0x1e
0224 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0225 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0226 BODY_0220:
0226 e01e | | Load 0x0,0x1e
0227 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0228 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0229 e9fe | | Load 0x4,-0x2
022a 0120 | | Execute Any,Is_Value
022b 6803 |h | Jump_Zero 0x22f
022c e01e | | Load 0x0,0x1e
022d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
022e 7801 |x | Jump 0x230
022f e9fe | | Load 0x4,-0x2
0230 601f |` | Indirect_Literal Discrete,0x250,{0x00000000, 0x00004000}
0231 e020 | | Load 0x0,0x20
0232 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0233 4800 |H | Short_Literal 0x0
0234 e021 | ! | Load 0x0,0x21
0235 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0236 e01e | | Load 0x0,0x1e
0237 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0238 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0239 e9ff | | Load 0x4,-0x1
023a e01e | | Load 0x0,0x1e
023b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
023c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
023d c9fe | | Store 0x4,-0x2
023e 0059 | Y | Store_Top Discrete,At_Offset_1
023f 00d8 | | Load_Top At_Offset_0
0240 680c |h | Jump_Zero 0x24d
0241 e004 | | Load 0x0,0x4
0242 180e | | Execute Package,Field_Execute,Field_Number 0xe
0243 4807 |H | Short_Literal 0x7
0244 e9ff | | Load 0x4,-0x1
0245 00db | | Load_Top At_Offset_3
0246 e01e | | Load 0x0,0x1e
0247 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0248 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0249 e006 | | Load 0x0,0x6
024a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024b e40f | | Load 0x2,0xf
024c 0257 | W | Execute Discrete,Raise
024d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024e 0000 0000 | | .XXX[0x2]
0250 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0261 | a | .CONST 0x0261 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e40a | | Load 0x2,0xa
025c e409 | | Load 0x2,0x9
025d e002 | | Load 0x0,0x2
025e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0260 8410 | | Call 0x2,0x10
0261 BODY_0258:
0261 e409 | | Load 0x2,0x9
0262 e002 | | Load 0x0,0x2
0263 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0264 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0265 6809 |h | Jump_Zero 0x26f
0266 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "<ERRORS>"
0268 00ea | | Load_Encached Null_String_Cache
0269 4800 |H | Short_Literal 0x0
026a 4801 |H | Short_Literal 0x1
026b e802 | | Load 0x4,0x2
026c e022 | " | Load 0x0,0x22
026d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
026e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026f e409 | | Load 0x2,0x9
0270 e002 | | Load 0x0,0x2
0271 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0272 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0273 6829 |h) | Jump_Zero 0x29d
0274 e602 | | Load 0x3,0x2
0275 681b |h | Jump_Zero 0x291
0276 e004 | | Load 0x0,0x4
0277 180e | | Execute Package,Field_Execute,Field_Number 0xe
0278 4806 |H | Short_Literal 0x6
0279 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Model library "
027b e409 | | Load 0x2,0x9
027c e002 | | Load 0x0,0x2
027d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
027e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
027f 01cc | | Execute Vector,Catenate
0280 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " is a world; it will be created as a directory inside the view being initialized"
0282 01cc | | Execute Vector,Catenate
0283 e006 | | Load 0x0,0x6
0284 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0285 e403 | | Load 0x2,0x3
0286 0a01 | | Execute_Immediate Plus,0x1
0287 c403 | | Store 0x2,0x3
0288 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "<ERRORS>"
028a 00ea | | Load_Encached Null_String_Cache
028b 4800 |H | Short_Literal 0x0
028c 4801 |H | Short_Literal 0x1
028d e802 | | Load 0x4,0x2
028e e022 | " | Load 0x0,0x22
028f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0290 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0291 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "<PROFILE>"
0293 e409 | | Load 0x2,0x9
0294 e002 | | Load 0x0,0x2
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0297 4800 |H | Short_Literal 0x0
0298 4800 |H | Short_Literal 0x0
0299 e802 | | Load 0x4,0x2
029a e022 | " | Load 0x0,0x22
029b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
029c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029d e602 | | Load 0x3,0x2
029e 6807 |h | Jump_Zero 0x2a6
029f e409 | | Load 0x2,0x9
02a0 e002 | | Load 0x0,0x2
02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02a3 e40d | | Load 0x2,0xd
02a4 012e | . | Execute Any,Not_Equal
02a5 680c |h | Jump_Zero 0x2b2
02a6 00ea | | Load_Encached Null_String_Cache
02a7 4801 |H | Short_Literal 0x1
02a8 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "<ERRORS>"
02aa 4801 |H | Short_Literal 0x1
02ab e802 | | Load 0x4,0x2
02ac e409 | | Load 0x2,0x9
02ad e002 | | Load 0x0,0x2
02ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02af 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02b0 e022 | " | Load 0x0,0x22
02b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b3 ; --------------------------------------------------------------------------------------
02b3 ; STRING TABLE
02b3 ; --------------------------------------------------------------------------------------
02b3 002c | , | .STRTAB 0x002c->0x02c9 ; ".??,~"
02b4 002f | / | .STRTAB 0x002f->0x02cb ; "]"
02b5 002e | . | .STRTAB 0x002e->0x02cc ; "SWITCH"
02b6 0032 | 2 | .STRTAB 0x0032->0x02cf ; "[Initialize (Library_Name => \x22"
02b7 004e | N | .STRTAB 0x004e->0x02de ; "\x22, Using_Model => \x22"
02b8 005f | _ | .STRTAB 0x005f->0x02e7 ; "\x22, Response => \x22"
02b9 006d | m | .STRTAB 0x006d->0x02ef ; "\x22);]"
02ba 006f | o | .STRTAB 0x006f->0x02f1 ; "Cannot resolve LIBRARY name \x22"
02bb 008a | | .STRTAB 0x008a->0x0300 ; "\x22"
02bc 0089 | | .STRTAB 0x0089->0x0300 ; " is not a library object"
02bd 009f | | .STRTAB 0x009f->0x030c ; "Errors generated"
02be 00ad | | .STRTAB 0x00ad->0x0314 ; "Warnings generated"
02bf 00bd | | .STRTAB 0x00bd->0x031d ; "Initialize: Done"
02c0 00cb | | .STRTAB 0x00cb->0x0325 ; "<ERRORS>"
02c1 00d1 | | .STRTAB 0x00d1->0x0329 ; "Merging TestMate switch settings from "
02c2 00f5 | | .STRTAB 0x00f5->0x033c ; " to "
02c3 00f7 | | .STRTAB 0x00f7->0x033e ; "TestMate.@"
02c4 00ff | | .STRTAB 0x00ff->0x0343 ; "$$"
02c5 00ff | | .STRTAB 0x00ff->0x0344 ; "Model library "
02c6 010b | | .STRTAB 0x010b->0x034b ; " is a world; it will be created as a directory inside the view being initialized"
02c7 0159 | Y | .STRTAB 0x0159->0x0373 ; "<PROFILE>"
02c8 0160 | ` | .STREND 0x0160->0x0378
02c9 2e3f 3f2c |.??,| .STRTAB_STRINGS
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug Table
0378 ; --------------------------------------------------------------------------------------
0378 0004 000a | | .DEBUG4 0x0004,0x000a,0x936c,0x0000,0x0001,0x0000
037e 0000 0000 | | .BLANK 0000[0x82]