|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 0030 | 0 | .CONST 0x0030 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b 00da | | Load_Top At_Offset_2
001c 0335 | 5 | Declare_Variable Array,Duplicate
001d 00cd | | Action Spare6_Action
001e 0092 022d | -| Action Push_String_Extended,0x22d ; "R1000_Cg.Retain_Delta1_Compatibility"
0020 e001 | | Load 0x0,0x1
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0023 02c7 | | Declare_Variable Any
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e001 | | Load 0x0,0x1
0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 02c7 | | Declare_Variable Any
002a 00d8 | | Load_Top At_Offset_0
002b 1c00 | | Execute_Immediate Run_Utility,0x0
002c 029f 0093 | | Declare_Subprogram For_Call,INIT_0090
002e 029f 00b3 | | Declare_Subprogram For_Call,INIT_00b0
0030 BODY_0018:
0030 e002 | | Load 0x0,0x2
0031 180e | | Execute Package,Field_Execute,Field_Number 0xe
0032 4800 |H | Short_Literal 0x0
0033 0092 022e | .| Action Push_String_Extended,0x22e ; "[Preserve_Delta1_Switches (Files => "
0035 e5ff | | Load 0x2,-0x1
0036 01cc | | Execute Vector,Catenate
0037 0092 022f | /| Action Push_String_Extended,0x22f ; ");]"
0039 01cc | | Execute Vector,Catenate
003a e003 | | Load 0x0,0x3
003b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003c 4801 |H | Short_Literal 0x1
003d e004 | | Load 0x0,0x4
003e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
003f e004 | | Load 0x0,0x4
0040 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0041 7007 |p | Jump_Nonzero 0x49
0042 e002 | | Load 0x0,0x2
0043 180e | | Execute Package,Field_Execute,Field_Number 0xe
0044 4806 |H | Short_Literal 0x6
0045 0092 0230 | 0| Action Push_String_Extended,0x230 ; "Use of Preserve_Delta1_Switches without privileges may result in some ACL failures. If the remainder of the Preserve_Delta1_Switches log below does not contain any errors or warnings, then feel free to ignore this message."
0047 e003 | | Load 0x0,0x3
0048 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0049 4801 |H | Short_Literal 0x1
004a e001 | | Load 0x0,0x1
004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
004d e402 | | Load 0x2,0x2
004e e001 | | Load 0x0,0x1
004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0050 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0051 c404 | | Store 0x2,0x4
0052 00db | | Load_Top At_Offset_3
0053 e001 | | Load 0x0,0x1
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0056 6815 |h | Jump_Zero 0x6c
0057 e002 | | Load 0x0,0x2
0058 180e | | Execute Package,Field_Execute,Field_Number 0xe
0059 4806 |H | Short_Literal 0x6
005a 0092 0231 | 1| Action Push_String_Extended,0x231 ; "No switch files found? ("
005c e402 | | Load 0x2,0x2
005d 01cc | | Execute Vector,Catenate
005e 0092 0232 | 2| Action Push_String_Extended,0x232 ; ") ["
0060 01cc | | Execute Vector,Catenate
0061 e404 | | Load 0x2,0x4
0062 e001 | | Load 0x0,0x1
0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0064 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0065 01cc | | Execute Vector,Catenate
0066 0092 0233 | 3| Action Push_String_Extended,0x233 ; "]"
0068 01cc | | Execute Vector,Catenate
0069 e003 | | Load 0x0,0x3
006a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006b 4502 |E | Exit_Subprogram 0x2
006c 00cf | | Action Mark_Auxiliary
006d 780d |x | Jump 0x7b
006e e404 | | Load 0x2,0x4
006f e001 | | Load 0x0,0x1
0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0071 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0072 c405 | | Store 0x2,0x5
0073 00db | | Load_Top At_Offset_3
0074 8407 | | Call 0x2,0x7
0075 e404 | | Load 0x2,0x4
0076 e001 | | Load 0x0,0x1
0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0078 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0079 c404 | | Store 0x2,0x4
007a 00c9 | | Action Pop_Auxiliary_Loop
007b e404 | | Load 0x2,0x4
007c e001 | | Load 0x0,0x1
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
007f 6fee |o | Jump_Zero 0x6e
0080 00ce | | Action Pop_Auxiliary
0081 e002 | | Load 0x0,0x2
0082 180e | | Execute Package,Field_Execute,Field_Number 0xe
0083 4800 |H | Short_Literal 0x0
0084 0092 0234 | 4| Action Push_String_Extended,0x234 ; "[Done, Preserve_Delta1_Switches]"
0086 e003 | | Load 0x0,0x3
0087 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0088 4502 |E | Exit_Subprogram 0x2
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 6816 |h | Jump_Zero 0xab
0095 e002 | | Load 0x0,0x2
0096 180e | | Execute Package,Field_Execute,Field_Number 0xe
0097 4807 |H | Short_Literal 0x7
0098 e7fe | | Load 0x3,-0x2
0099 e7fd | | Load 0x3,-0x3
009a 01cc | | Execute Vector,Catenate
009b 0092 0235 | 5| Action Push_String_Extended,0x235 ; " ["
009d 01cc | | Execute Vector,Catenate
009e e7ff | | Load 0x3,-0x1
009f e005 | | Load 0x0,0x5
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 011c | | Execute Any,Convert_Unchecked
00a2 1c01 | | Execute_Immediate Run_Utility,0x1
00a3 01cc | | Execute Vector,Catenate
00a4 0092 0233 | 3| Action Push_String_Extended,0x233 ; "]"
00a6 01cc | | Execute Vector,Catenate
00a7 e003 | | Load 0x0,0x3
00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a9 e006 | | Load 0x0,0x6
00aa 0257 | W | Execute Discrete,Raise
00ab 4504 |E | Exit_Subprogram 0x4
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00d3 | | .CONST 0x00d3 ; Address of begin
00b1 01a2 | | .CONST 0x01a2 ; Address of exception handler
00b2 000a | | .CONST 0x000a ; Number of locals
00b3 INIT_00b0:
00b3 e007 | | Load 0x0,0x7
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 02c7 | | Declare_Variable Any
00b6 e007 | | Load 0x0,0x7
00b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b8 a602 | | Store_Unchecked 0x3,0x2
00b9 e005 | | Load 0x0,0x5
00ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bb 02c7 | | Declare_Variable Any
00bc 00d8 | | Load_Top At_Offset_0
00bd 1c00 | | Execute_Immediate Run_Utility,0x0
00be 00e1 | | Load_Encached Boolean_Cache
00bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c0 e7ff | | Load 0x3,-0x1
00c1 e001 | | Load 0x0,0x1
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00c4 e7ff | | Load 0x3,-0x1
00c5 e001 | | Load 0x0,0x1
00c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00c7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c8 e008 | | Load 0x0,0x8
00c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ca 02c7 | | Declare_Variable Any
00cb 00d8 | | Load_Top At_Offset_0
00cc 1c00 | | Execute_Immediate Run_Utility,0x0
00cd e005 | | Load 0x0,0x5
00ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cf 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
00d1 029f 0223 | #| Declare_Subprogram For_Call,INIT_0220
00d3 BODY_00b0:
00d3 00be | | Action Activate_Tasks
00d4 e005 | | Load 0x0,0x5
00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d6 e603 | | Load 0x3,0x3
00d7 0120 | | Execute Any,Is_Value
00d8 6803 |h | Jump_Zero 0xdc
00d9 e005 | | Load 0x0,0x5
00da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00db 7801 |x | Jump 0xdd
00dc e603 | | Load 0x3,0x3
00dd e7ff | | Load 0x3,-0x1
00de e001 | | Load 0x0,0x1
00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
00e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e2 c603 | | Store 0x3,0x3
00e3 005b | [ | Store_Top Discrete,At_Offset_3
00e4 e605 | | Load 0x3,0x5
00e5 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Could not get Directory.Object for file: "
00e7 e608 | | Load 0x3,0x8
00e8 8406 | | Call 0x2,0x6
00e9 e009 | | Load 0x0,0x9
00ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00eb e007 | | Load 0x0,0x7
00ec 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ed c602 | | Store 0x3,0x2
00ee e005 | | Load 0x0,0x5
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 00e1 | | Load_Encached Boolean_Cache
00f1 60f2 |` | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00004000}
00f2 e602 | | Load 0x3,0x2
00f3 e603 | | Load 0x3,0x3
00f4 e005 | | Load 0x0,0x5
00f5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00f6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00f7 c604 | | Store 0x3,0x4
00f8 005b | [ | Store_Top Discrete,At_Offset_3
00f9 e605 | | Load 0x3,0x5
00fa 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Could not get controlled status of file: "
00fc e608 | | Load 0x3,0x8
00fd 8406 | | Call 0x2,0x6
00fe e604 | | Load 0x3,0x4
00ff 680e |h | Jump_Zero 0x10e
0100 0092 0238 | 8| Action Push_String_Extended,0x238 ; "<ERRORS>"
0102 0092 0239 | 9| Action Push_String_Extended,0x239 ; "<DEFAULT>"
0104 0092 023a | :| Action Push_String_Extended,0x23a ; "<TOMORROW>"
0106 4803 |H | Short_Literal 0x3
0107 4801 |H | Short_Literal 0x1
0108 4800 |H | Short_Literal 0x0
0109 4801 |H | Short_Literal 0x1
010a 00ea | | Load_Encached Null_String_Cache
010b e605 | | Load 0x3,0x5
010c e00a | | Load 0x0,0xa
010d 180d | | Execute Package,Field_Execute,Field_Number 0xd
010e e606 | | Load 0x3,0x6
010f 6817 |h | Jump_Zero 0x127
0110 e005 | | Load 0x0,0x5
0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0112 60d1 |` | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00004000}
0113 e602 | | Load 0x3,0x2
0114 e603 | | Load 0x3,0x3
0115 e005 | | Load 0x0,0x5
0116 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0117 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0118 005b | [ | Store_Top Discrete,At_Offset_3
0119 e605 | | Load 0x3,0x5
011a 0092 023b | ;| Action Push_String_Extended,0x23b ; "Could not thaw file: "
011c e608 | | Load 0x3,0x8
011d 8406 | | Call 0x2,0x6
011e 7808 |x | Jump 0x127
011f 023c e605 | < | .XXX[0x8]
0121 01cc 0092 | |
0123 023d 01cc | = |
0125 e003 1813 | |
0127 e00b | | Load 0x0,0xb
0128 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0129 e607 | | Load 0x3,0x7
012a 4800 |H | Short_Literal 0x0
012b 60b8 |` | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00004000}
012c e602 | | Load 0x3,0x2
012d e00c | | Load 0x0,0xc
012e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012f e00b | | Load 0x0,0xb
0130 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0131 4800 |H | Short_Literal 0x0
0132 e605 | | Load 0x3,0x5
0133 4802 |H | Short_Literal 0x2
0134 e00b | | Load 0x0,0xb
0135 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0136 c607 | | Store 0x3,0x7
0137 005b | [ | Store_Top Discrete,At_Offset_3
0138 e605 | | Load 0x3,0x5
0139 0092 023e | >| Action Push_String_Extended,0x23e ; "Could not open switch file: "
013b e608 | | Load 0x3,0x8
013c 8406 | | Call 0x2,0x6
013d 780c |x | Jump 0x14a
013e 023f 01cc | ? | .XXX[0xc]
0140 e403 e607 | |
0142 e008 183d | =|
0144 00e1 011c | |
0146 1c01 01cc | |
0148 e003 1813 | |
014a 00db | | Load_Top At_Offset_3
014b e008 | | Load 0x0,0x8
014c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
014d 0e4c | L | Execute_Immediate Not_Equal,0x4c
014e 700e |p | Jump_Nonzero 0x15d
014f e403 | | Load 0x2,0x3
0150 e607 | | Load 0x3,0x7
0151 e008 | | Load 0x0,0x8
0152 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0153 6817 |h | Jump_Zero 0x16b
0154 7808 |x | Jump 0x15d
0155 0240 e605 | @ | .XXX[0x8]
0157 01cc 0092 | |
0159 0241 01cc | A |
015b e003 1813 | |
015d e00b | | Load 0x0,0xb
015e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
015f e607 | | Load 0x3,0x7
0160 e00b | | Load 0x0,0xb
0161 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0162 c607 | | Store 0x3,0x7
0163 005b | [ | Store_Top Discrete,At_Offset_3
0164 e605 | | Load 0x3,0x5
0165 0092 0242 | B| Action Push_String_Extended,0x242 ; "Could close unmodified switch file: "
0167 e608 | | Load 0x3,0x8
0168 8406 | | Call 0x2,0x6
0169 e006 | | Load 0x0,0x6
016a 0257 | W | Execute Discrete,Raise
016b 8609 | | Call 0x3,0x9
016c 7808 |x | Jump 0x175
016d 0243 e605 | C | .XXX[0x8]
016f 01cc 0092 | |
0171 023d 01cc | = |
0173 e003 1813 | |
0175 e00b | | Load 0x0,0xb
0176 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0177 e607 | | Load 0x3,0x7
0178 e00b | | Load 0x0,0xb
0179 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
017a c607 | | Store 0x3,0x7
017b 005b | [ | Store_Top Discrete,At_Offset_3
017c e605 | | Load 0x3,0x5
017d 0092 0244 | D| Action Push_String_Extended,0x244 ; "Could close modified switch file: "
017f e608 | | Load 0x3,0x8
0180 8406 | | Call 0x2,0x6
0181 e606 | | Load 0x3,0x6
0182 680e |h | Jump_Zero 0x191
0183 e005 | | Load 0x0,0x5
0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0185 605e |`^ | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x00004000}
0186 e602 | | Load 0x3,0x2
0187 e603 | | Load 0x3,0x3
0188 e005 | | Load 0x0,0x5
0189 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
018a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
018b 005b | [ | Store_Top Discrete,At_Offset_3
018c e605 | | Load 0x3,0x5
018d 0092 0245 | E| Action Push_String_Extended,0x245 ; "Could not refreeze file: "
018f e608 | | Load 0x3,0x8
0190 8406 | | Call 0x2,0x6
0191 e604 | | Load 0x3,0x4
0192 6808 |h | Jump_Zero 0x19b
0193 0092 0238 | 8| Action Push_String_Extended,0x238 ; "<ERRORS>"
0195 0092 0239 | 9| Action Push_String_Extended,0x239 ; "<DEFAULT>"
0197 00ea | | Load_Encached Null_String_Cache
0198 e605 | | Load 0x3,0x5
0199 e00a | | Load 0x0,0xa
019a 180e | | Execute Package,Field_Execute,Field_Number 0xe
019b e602 | | Load 0x3,0x2
019c 4801 |H | Short_Literal 0x1
019d 4801 |H | Short_Literal 0x1
019e e007 | | Load 0x0,0x7
019f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a0 c602 | | Store 0x3,0x2
01a1 4502 |E | Exit_Subprogram 0x2
01a2 TRAP_00b0:
01a2 e006 | | Load 0x0,0x6
01a3 010f | | Execute Exception,Equal
01a4 6816 |h | Jump_Zero 0x1bb
01a5 e602 | | Load 0x3,0x2
01a6 e007 | | Load 0x0,0x7
01a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a8 012f | / | Execute Any,Equal
01a9 7006 |p | Jump_Nonzero 0x1b0
01aa e602 | | Load 0x3,0x2
01ab 4801 |H | Short_Literal 0x1
01ac 4800 |H | Short_Literal 0x0
01ad e007 | | Load 0x0,0x7
01ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01af c602 | | Store 0x3,0x2
01b0 e604 | | Load 0x3,0x4
01b1 6808 |h | Jump_Zero 0x1ba
01b2 0092 0238 | 8| Action Push_String_Extended,0x238 ; "<ERRORS>"
01b4 0092 0239 | 9| Action Push_String_Extended,0x239 ; "<DEFAULT>"
01b6 00ea | | Load_Encached Null_String_Cache
01b7 e605 | | Load 0x3,0x5
01b8 e00a | | Load 0x0,0xa
01b9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ba 4502 |E | Exit_Subprogram 0x2
01bb e002 | | Load 0x0,0x2
01bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bd 4808 |H | Short_Literal 0x8
01be 0092 0246 | F| Action Push_String_Extended,0x246 ; "Unexpected exception: "
01c0 4801 |H | Short_Literal 0x1
01c1 4801 |H | Short_Literal 0x1
01c2 e00d | | Load 0x0,0xd
01c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c4 01cc | | Execute Vector,Catenate
01c5 0092 0247 | G| Action Push_String_Extended,0x247 ; "; processing switch file: "
01c7 01cc | | Execute Vector,Catenate
01c8 e605 | | Load 0x3,0x5
01c9 01cc | | Execute Vector,Catenate
01ca e003 | | Load 0x0,0x3
01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cc 860a | | Call 0x3,0xa
01cd e602 | | Load 0x3,0x2
01ce e007 | | Load 0x0,0x7
01cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d0 012f | / | Execute Any,Equal
01d1 7006 |p | Jump_Nonzero 0x1d8
01d2 e602 | | Load 0x3,0x2
01d3 4801 |H | Short_Literal 0x1
01d4 4800 |H | Short_Literal 0x0
01d5 e007 | | Load 0x0,0x7
01d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d7 c602 | | Store 0x3,0x2
01d8 e604 | | Load 0x3,0x4
01d9 6808 |h | Jump_Zero 0x1e2
01da 0092 0238 | 8| Action Push_String_Extended,0x238 ; "<ERRORS>"
01dc 0092 0239 | 9| Action Push_String_Extended,0x239 ; "<DEFAULT>"
01de 00ea | | Load_Encached Null_String_Cache
01df e605 | | Load 0x3,0x5
01e0 e00a | | Load 0x0,0xa
01e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e2 4502 |E | Exit_Subprogram 0x2
01e3 0000 | | .XXX[0x1]
01e4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef | | .CONST 0x01ef ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb e403 | | Load 0x2,0x3
01ec e607 | | Load 0x3,0x7
01ed e008 | | Load 0x0,0x8
01ee 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
01ef BODY_01e8:
01ef e002 | | Load 0x0,0x2
01f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f1 4802 |H | Short_Literal 0x2
01f2 0092 0248 | H| Action Push_String_Extended,0x248 ; "Delta1 => "
01f4 00db | | Load_Top At_Offset_3
01f5 01cc | | Execute Vector,Catenate
01f6 0092 0249 | I| Action Push_String_Extended,0x249 ; ": "
01f8 01cc | | Execute Vector,Catenate
01f9 e605 | | Load 0x3,0x5
01fa 01cc | | Execute Vector,Catenate
01fb e003 | | Load 0x0,0x3
01fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fd 780d |x | Jump 0x20b
01fe 024a e605 | J | .XXX[0xd]
0200 01cc 0092 | |
0202 024b 01cc | K |
0204 00db 01cc | |
0206 0092 023d | =|
0208 01cc e003 | |
020a 1813 | |
020b 0092 024c | L| Action Push_String_Extended,0x24c ; "FALSE"
020d e403 | | Load 0x2,0x3
020e e607 | | Load 0x3,0x7
020f e008 | | Load 0x0,0x8
0210 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0211 0092 024d | M| Action Push_String_Extended,0x24d ; "TRUE"
0213 e403 | | Load 0x2,0x3
0214 e607 | | Load 0x3,0x7
0215 e008 | | Load 0x0,0x8
0216 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0217 00d8 | | Load_Top At_Offset_0
0218 e403 | | Load 0x2,0x3
0219 e607 | | Load 0x3,0x7
021a e008 | | Load 0x0,0x8
021b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
021c 4501 |E | Exit_Subprogram 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 022b | + | .CONST 0x022b ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e00b | | Load 0x0,0xb
0224 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0225 e607 | | Load 0x3,0x7
0226 e00b | | Load 0x0,0xb
0227 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0228 c607 | | Store 0x3,0x7
0229 c608 | | Store 0x3,0x8
022a 4501 |E | Exit_Subprogram 0x1
022b TRAP_0220:
022b 0007 | | Action Break_Optional
022c 4501 |E | Exit_Subprogram 0x1
022d ; --------------------------------------------------------------------------------------
022d ; STRING TABLE
022d ; --------------------------------------------------------------------------------------
022d 0044 | D | .STRTAB 0x0044->0x024f ; "R1000_Cg.Retain_Delta1_Compatibility"
022e 0066 | f | .STRTAB 0x0066->0x0261 ; "[Preserve_Delta1_Switches (Files => "
022f 0088 | | .STRTAB 0x0088->0x0273 ; ");]"
0230 0089 | | .STRTAB 0x0089->0x0274 ; "Use of Preserve_Delta1_Switches without privileges may result in some ACL failures. If the remainder of the Preserve_Delta1_Switches log below does not contain any errors or warnings, then feel free to ignore this message."
0231 0166 | f | .STRTAB 0x0166->0x02e4 ; "No switch files found? ("
0232 017c | | | .STRTAB 0x017c->0x02f0 ; ") ["
0233 017d | } | .STRTAB 0x017d->0x02f1 ; "]"
; "]"
0234 017c | | | .STRTAB 0x017c->0x02f2 ; "[Done, Preserve_Delta1_Switches]"
0235 019a | | .STRTAB 0x019a->0x0302 ; " ["
0236 019a | | .STRTAB 0x019a->0x0303 ; "Could not get Directory.Object for file: "
0237 01c1 | | .STRTAB 0x01c1->0x0317 ; "Could not get controlled status of file: "
0238 01e8 | | .STRTAB 0x01e8->0x032c ; "<ERRORS>"
; "<ERRORS>"
; "<ERRORS>"
; "<ERRORS>"
0239 01ee | | .STRTAB 0x01ee->0x0330 ; "<DEFAULT>"
; "<DEFAULT>"
; "<DEFAULT>"
; "<DEFAULT>"
023a 01f5 | | .STRTAB 0x01f5->0x0334 ; "<TOMORROW>"
023b 01fd | | .STRTAB 0x01fd->0x0339 ; "Could not thaw file: "
023c 0210 | | .STRTAB 0x0210->0x0344 ; "Polymorphic_Io.Open("
023d 0222 | " | .STRTAB 0x0222->0x034e ; ");"
023e 0222 | " | .STRTAB 0x0222->0x034f ; "Could not open switch file: "
023f 023c | < | .STRTAB 0x023c->0x035d ; " Has => "
0240 0242 | B | .STRTAB 0x0242->0x0361 ; "not Has("
0241 0248 | H | .STRTAB 0x0248->0x0365 ; ",Delta1);"
0242 024f | O | .STRTAB 0x024f->0x0369 ; "Could close unmodified switch file: "
0243 0271 | q | .STRTAB 0x0271->0x037b ; "Polymorphic_Io.Close("
0244 0284 | | .STRTAB 0x0284->0x0386 ; "Could close modified switch file: "
0245 02a4 | | .STRTAB 0x02a4->0x0397 ; "Could not refreeze file: "
0246 02bb | | .STRTAB 0x02bb->0x03a3 ; "Unexpected exception: "
0247 02cf | | .STRTAB 0x02cf->0x03ae ; "; processing switch file: "
0248 02e7 | | .STRTAB 0x02e7->0x03bb ; "Delta1 => "
0249 02ef | | .STRTAB 0x02ef->0x03c0 ; ": "
024a 02ef | | .STRTAB 0x02ef->0x03c1 ; "Has("
024b 02f1 | | .STRTAB 0x02f1->0x03c3 ; ",Delta1 => "
024c 02fa | | .STRTAB 0x02fa->0x03c9 ; "FALSE"
024d 02fd | | .STRTAB 0x02fd->0x03cb ; "TRUE"
024e 02ff | | .STREND 0x02ff->0x03cd
024f 5231 3030 |R100| .STRTAB_STRINGS
03ce 0000 0000 | | .XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug Table
03d0 ; --------------------------------------------------------------------------------------
03d0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x391b,0x0000,0x0001,0x0000
03d6 0000 0000 | | .BLANK 0000[0x2a]