|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_29d0d7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0488 | | .CONST 0x0488 ; 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 003c | < | .CONST 0x003c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 0092 0308 | | Action Push_String_Extended,0x308 ; ".M200_UCODE"
0010 4800 |H | Short_Literal 0x0
0011 4803 |H | Short_Literal 0x3
0012 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0014 03fd | | Declare_Type Discrete,Defined
0015 0092 0309 | | Action Push_String_Extended,0x309 ; "STANDARD.M200_CONFIG"
0017 0092 030a | | Action Push_String_Extended,0x30a ; "LOCAL_STANDARD.M200_CONFIG"
0019 0092 030b | | Action Push_String_Extended,0x30b ; "REMOTE_STANDARD.M200_CONFIG"
001b 0092 030c | | Action Push_String_Extended,0x30c ; "!machine.temporary.dfs_config_update_temp"
001d e20f | | Load 0x1,0xf
001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001f 0093 0000 | | push_full_address 0x0
0021 60ca |` | Indirect_Literal Discrete,0xec,{0x80000000, 0x00010000}
0022 0273 | s | Execute Discrete,Plus
0023 0007 | | Action Break_Optional
0024 0093 0000 | | push_full_address 0x0
0026 60c1 |` | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00020000}
0027 0273 | s | Execute Discrete,Plus
0028 0007 | | Action Break_Optional
0029 0093 0000 | | push_full_address 0x0
002b 60b8 |` | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00030000}
002c 0273 | s | Execute Discrete,Plus
002d 0007 | | Action Break_Optional
002e 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
0030 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
0032 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0034 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0036 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0038 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
003a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003b 00c7 | | Action Elaborate_Subprogram
003c BODY_0008:
003c 00bc | | Action Signal_Activated
003d 00bb | | Action Signal_Completion
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0053 | S | .CONST 0x0053 ; Address of begin
0041 0095 | | .CONST 0x0095 ; Address of exception handler
0042 0008 | | .CONST 0x0008 ; Number of locals
0043 INIT_0040:
0043 e002 | | Load 0x0,0x2
0044 0337 | 7 | Declare_Variable Array
0045 e003 | | Load 0x0,0x3
0046 02c7 | | Declare_Variable Any
0047 00d8 | | Load_Top At_Offset_0
0048 1c00 | | Execute_Immediate Run_Utility,0x0
0049 e004 | | Load 0x0,0x4
004a 0007 | | Action Break_Optional
004b 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
004d 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
004f 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0051 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0053 BODY_0040:
0053 e005 | | Load 0x0,0x5
0054 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0055 6837 |h7 | Jump_Zero 0x8d
0056 8006 | | Call 0x0,0x6
0057 0f02 | | Execute_Immediate Equal,0x2
0058 682c |h, | Jump_Zero 0x85
0059 e5ff | | Load 0x2,-0x1
005a 821c | | Call 0x1,0x1c
005b 681a |h | Jump_Zero 0x76
005c e5ff | | Load 0x2,-0x1
005d 821d | | Call 0x1,0x1d
005e 6803 |h | Jump_Zero 0x62
005f e5ff | | Load 0x2,-0x1
0060 8408 | | Call 0x2,0x8
0061 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0062 e007 | | Load 0x0,0x7
0063 180e | | Execute Package,Field_Execute,Field_Number 0xe
0064 4805 |H | Short_Literal 0x5
0065 0092 030d | | Action Push_String_Extended,0x30d ; "Could not find ucode file "
0067 e5ff | | Load 0x2,-0x1
0068 01cc | | Execute Vector,Catenate
0069 0092 030e | | Action Push_String_Extended,0x30e ; " in DFS."
006b 01cc | | Execute Vector,Catenate
006c e008 | | Load 0x0,0x8
006d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006e e007 | | Load 0x0,0x7
006f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0070 4805 |H | Short_Literal 0x5
0071 0092 030f | | Action Push_String_Extended,0x30f ; "File must exist before updating configuration"
0073 e008 | | Load 0x0,0x8
0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0076 e007 | | Load 0x0,0x7
0077 180e | | Execute Package,Field_Execute,Field_Number 0xe
0078 4805 |H | Short_Literal 0x5
0079 0092 0310 | | Action Push_String_Extended,0x310 ; "Illegal ucode name. Should be of the form:"
007b e008 | | Load 0x0,0x8
007c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007d e007 | | Load 0x0,0x7
007e 180e | | Execute Package,Field_Execute,Field_Number 0xe
007f 4805 |H | Short_Literal 0x5
0080 0092 0311 | | Action Push_String_Extended,0x311 ; "M207_<version> (ie. M207_41) "
0082 e008 | | Load 0x0,0x8
0083 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0084 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0085 e007 | | Load 0x0,0x7
0086 180e | | Execute Package,Field_Execute,Field_Number 0xe
0087 4805 |H | Short_Literal 0x5
0088 0092 0312 | | Action Push_String_Extended,0x312 ; "This procedure is not enabled for series 100 systems"
008a e008 | | Load 0x0,0x8
008b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008d e007 | | Load 0x0,0x7
008e 180e | | Execute Package,Field_Execute,Field_Number 0xe
008f 4805 |H | Short_Literal 0x5
0090 0092 0313 | | Action Push_String_Extended,0x313 ; "Operator Privileges required to run this procedure."
0092 e008 | | Load 0x0,0x8
0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0095 TRAP_0040:
0095 e215 | | Load 0x1,0x15
0096 010f | | Execute Exception,Equal
0097 680f |h | Jump_Zero 0xa7
0098 e007 | | Load 0x0,0x7
0099 180e | | Execute Package,Field_Execute,Field_Number 0xe
009a 4805 |H | Short_Literal 0x5
009b 0092 0314 | | Action Push_String_Extended,0x314 ; "Problem encountered attempting to open configuration file."
009d e008 | | Load 0x0,0x8
009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009f e007 | | Load 0x0,0x7
00a0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a1 4805 |H | Short_Literal 0x5
00a2 e214 | | Load 0x1,0x14
00a3 8218 | | Call 0x1,0x18
00a4 e008 | | Load 0x0,0x8
00a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a7 e216 | | Load 0x1,0x16
00a8 010f | | Execute Exception,Equal
00a9 680f |h | Jump_Zero 0xb9
00aa e007 | | Load 0x0,0x7
00ab 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ac 4802 |H | Short_Literal 0x2
00ad 0092 0315 | | Action Push_String_Extended,0x315 ; "Problem encountered attempting to read configuration file."
00af e008 | | Load 0x0,0x8
00b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b1 e007 | | Load 0x0,0x7
00b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b3 4805 |H | Short_Literal 0x5
00b4 e214 | | Load 0x1,0x14
00b5 8218 | | Call 0x1,0x18
00b6 e008 | | Load 0x0,0x8
00b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b9 e217 | | Load 0x1,0x17
00ba 010f | | Execute Exception,Equal
00bb 6816 |h | Jump_Zero 0xd2
00bc e007 | | Load 0x0,0x7
00bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00be 4805 |H | Short_Literal 0x5
00bf 0092 0316 | | Action Push_String_Extended,0x316 ; "Problem encountered updating configuration file."
00c1 e008 | | Load 0x0,0x8
00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c3 e007 | | Load 0x0,0x7
00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c5 4805 |H | Short_Literal 0x5
00c6 e214 | | Load 0x1,0x14
00c7 8218 | | Call 0x1,0x18
00c8 e008 | | Load 0x0,0x8
00c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ca e007 | | Load 0x0,0x7
00cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cc 4805 |H | Short_Literal 0x5
00cd 0092 0317 | | Action Push_String_Extended,0x317 ; "Configuration may be inconsistent."
00cf e008 | | Load 0x0,0x8
00d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d2 e007 | | Load 0x0,0x7
00d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d4 4805 |H | Short_Literal 0x5
00d5 0092 0318 | | Action Push_String_Extended,0x318 ; "Problems encountered"
00d7 e008 | | Load 0x0,0x8
00d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d9 e007 | | Load 0x0,0x7
00da 180e | | Execute Package,Field_Execute,Field_Number 0xe
00db 4805 |H | Short_Literal 0x5
00dc 4800 |H | Short_Literal 0x0
00dd 4800 |H | Short_Literal 0x0
00de e009 | | Load 0x0,0x9
00df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e0 e008 | | Load 0x0,0x8
00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e3 0000 | | .XXX[0x1]
00e4 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00e8 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00ec 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4607 |F | Jump_Case 0x8
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00f5 7807 |x | Jump 0xfd ; case 0x1
00f6 780a |x | Jump 0x101 ; case 0x2
00f7 780e |x | Jump 0x106 ; case 0x3
00f8 7811 |x | Jump 0x10a ; case 0x4
00f9 7812 |x | Jump 0x10c ; case 0x5
00fa 7813 |x | Jump 0x10e ; case 0x6
00fb 7816 |x | Jump 0x112 ; case 0x7
00fc 4302 |C | .XXX[0x1]
00fd 00da | | Load_Top At_Offset_2
00fe 0091 0304 | | Action Push_String_Extended_Indexed,0x304 ; "NONE"
0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0101 00db | | Load_Top At_Offset_3
0102 00db | | Load_Top At_Offset_3
0103 00e0 | | Load_Encached Standard_Cache
0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 00da | | Load_Top At_Offset_2
0107 00e0 | | Load_Encached Standard_Cache
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
010a 00db | | Load_Top At_Offset_3
010b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010c 00db | | Load_Top At_Offset_3
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010e e20f | | Load 0x1,0xf
010f 00dc | | Load_Top At_Offset_4
0110 0267 | g | Execute Discrete,Predecessor
0111 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0112 e20f | | Load 0x1,0xf
0113 00dc | | Load_Top At_Offset_4
0114 0268 | h | Execute Discrete,Successor
0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 4603 |F | Jump_Case 0x4
011d 7805 |x | Jump 0x123 ; case 0x0
011e 7807 |x | Jump 0x126 ; case 0x1
011f 7808 |x | Jump 0x128 ; case 0x2
0120 7800 |x | Jump 0x121 ; case 0x3
0121 e211 | | Load 0x1,0x11
0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0123 0092 0319 | | Action Push_String_Extended,0x319 ; "<<unknown>>"
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 e210 | | Load 0x1,0x10
0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0128 e212 | | Load 0x1,0x12
0129 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013f | ? | .CONST 0x013f ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 01dd | | Execute Vector,First
0135 00db | | Load_Top At_Offset_3
0136 01dc | | Execute Vector,Last
0137 e00a | | Load 0x0,0xa
0138 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0139 035b | [ | Declare_Type Array,Constrained
013a 0337 | 7 | Declare_Variable Array
013b 00db | | Load_Top At_Offset_3
013c 01dd | | Execute Vector,First
013d 00e3 | | Load_Encached Natural_Cache
013e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
013f BODY_0130:
013f 00cf | | Action Mark_Auxiliary
0140 00d9 | | Load_Top At_Offset_1
0141 e5ff | | Load 0x2,-0x1
0142 01dc | | Execute Vector,Last
0143 027b | { | Execute Discrete,Greater_Equal
0144 7013 |p | Jump_Nonzero 0x158
0145 00d9 | | Load_Top At_Offset_1
0146 0a01 | | Execute_Immediate Plus,0x1
0147 e5ff | | Load 0x2,-0x1
0148 01d7 | | Execute Vector,Field_Read
0149 00da | | Load_Top At_Offset_2
014a e402 | | Load 0x2,0x2
014b 01d6 | | Execute Vector,Field_Write
014c 00d9 | | Load_Top At_Offset_1
014d e5ff | | Load 0x2,-0x1
014e 01d7 | | Execute Vector,Field_Read
014f 00da | | Load_Top At_Offset_2
0150 0a01 | | Execute_Immediate Plus,0x1
0151 e402 | | Load 0x2,0x2
0152 01d6 | | Execute Vector,Field_Write
0153 00d9 | | Load_Top At_Offset_1
0154 0a02 | | Execute_Immediate Plus,0x2
0155 005a | Z | Store_Top Discrete,At_Offset_2
0156 00c9 | | Action Pop_Auxiliary_Loop
0157 7fe8 | | Jump 0x140
0158 00ce | | Action Pop_Auxiliary
0159 00d9 | | Load_Top At_Offset_1
015a e00a | | Load 0x0,0xa
015b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
015c 01c6 | | Execute Vector,Convert_To_Formal
015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 017f | | .CONST 0x017f ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 4801 |H | Short_Literal 0x1
0164 00db | | Load_Top At_Offset_3
0165 01db | | Execute Vector,Length
0166 00d8 | | Load_Top At_Offset_0
0167 00e2 | | Load_Encached Integer_Cache
0168 0260 | ` | Execute Discrete,In_Type
0169 7001 |p | Jump_Nonzero 0x16b
016a 0801 | | Execute_Immediate Raise,0x1
016b 00e9 | | Load_Encached String_Cache
016c 035b | [ | Declare_Type Array,Constrained
016d 0337 | 7 | Declare_Variable Array
016e 00db | | Load_Top At_Offset_3
016f e00b | | Load 0x0,0xb
0170 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0171 00d9 | | Load_Top At_Offset_1
0172 01d4 | | Execute Vector,Structure_Write
0173 4801 |H | Short_Literal 0x1
0174 e5ff | | Load 0x2,-0x1
0175 01db | | Execute Vector,Length
0176 00d8 | | Load_Top At_Offset_0
0177 00e2 | | Load_Encached Integer_Cache
0178 0260 | ` | Execute Discrete,In_Type
0179 7001 |p | Jump_Nonzero 0x17b
017a 0801 | | Execute_Immediate Raise,0x1
017b e00a | | Load 0x0,0xa
017c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
017d 035b | [ | Declare_Type Array,Constrained
017e 0337 | 7 | Declare_Variable Array
017f BODY_0160:
017f 00cf | | Action Mark_Auxiliary
0180 e5ff | | Load 0x2,-0x1
0181 01db | | Execute Vector,Length
0182 00d8 | | Load_Top At_Offset_0
0183 00e2 | | Load_Encached Integer_Cache
0184 0260 | ` | Execute Discrete,In_Type
0185 7001 |p | Jump_Nonzero 0x187
0186 0801 | | Execute_Immediate Raise,0x1
0187 4801 |H | Short_Literal 0x1
0188 0263 | c | Execute Discrete,Above_Bound
0189 7008 |p | Jump_Nonzero 0x192
018a 00d8 | | Load_Top At_Offset_0
018b e402 | | Load 0x2,0x2
018c 01d7 | | Execute Vector,Field_Read
018d 00d9 | | Load_Top At_Offset_1
018e e403 | | Load 0x2,0x3
018f 01d6 | | Execute Vector,Field_Write
0190 00c8 | | Action Pop_Auxiliary_Range
0191 3ff8 |? | Loop_Increasing 0x18a
0192 00ce | | Action Pop_Auxiliary
0193 00d8 | | Load_Top At_Offset_0
0194 e00a | | Load 0x0,0xa
0195 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0196 01c6 | | Execute Vector,Convert_To_Formal
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e20e | | Load 0x1,0xe
019d 01cc | | Execute Vector,Catenate
019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a4 | | .CONST 0x01a4 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 00e3 | | Load_Encached Natural_Cache
01a4 BODY_01a0:
01a4 4801 |H | Short_Literal 0x1
01a5 e5ff | | Load 0x2,-0x1
01a6 0092 031a | | Action Push_String_Extended,0x31a ; "M207_"
01a8 e00b | | Load 0x0,0xb
01a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01aa 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01ab 00d8 | | Load_Top At_Offset_0
01ac e5ff | | Load 0x2,-0x1
01ad 01dd | | Execute Vector,First
01ae 027f | | Execute Discrete,Equal
01af 6817 |h | Jump_Zero 0x1c7
01b0 4801 |H | Short_Literal 0x1
01b1 e5ff | | Load 0x2,-0x1
01b2 482e |H. | Short_Literal 0x2e
01b3 e00b | | Load 0x0,0xb
01b4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01b5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01b6 00d8 | | Load_Top At_Offset_0
01b7 6802 |h | Jump_Zero 0x1ba
01b8 4800 |H | Short_Literal 0x0
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba 4801 |H | Short_Literal 0x1
01bb e5ff | | Load 0x2,-0x1
01bc 0092 031b | | Action Push_String_Extended,0x31b ; "M200_UCODE"
01be e00b | | Load 0x0,0xb
01bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01c1 00d8 | | Load_Top At_Offset_0
01c2 6802 |h | Jump_Zero 0x1c5
01c3 4800 |H | Short_Literal 0x0
01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c5 4801 |H | Short_Literal 0x1
01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c7 4800 |H | Short_Literal 0x0
01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01db | | .CONST 0x01db ; Address of begin
01d1 01f2 | | .CONST 0x01f2 ; Address of exception handler
01d2 0004 | | .CONST 0x0004 ; Number of locals
01d3 INIT_01d0:
01d3 e004 | | Load 0x0,0x4
01d4 0007 | | Action Break_Optional
01d5 e003 | | Load 0x0,0x3
01d6 02c7 | | Declare_Variable Any
01d7 00d8 | | Load_Top At_Offset_0
01d8 1c00 | | Execute_Immediate Run_Utility,0x0
01d9 e5ff | | Load 0x2,-0x1
01da 821b | | Call 0x1,0x1b
01db BODY_01d0:
01db 00da | | Load_Top At_Offset_2
01dc 00da | | Load_Top At_Offset_2
01dd 4801 |H | Short_Literal 0x1
01de 4800 |H | Short_Literal 0x0
01df 4800 |H | Short_Literal 0x0
01e0 e404 | | Load 0x2,0x4
01e1 800c | | Call 0x0,0xc
01e2 c403 | | Store 0x2,0x3
01e3 005b | [ | Store_Top Discrete,At_Offset_3
01e4 00da | | Load_Top At_Offset_2
01e5 700a |p | Jump_Nonzero 0x1f0
01e6 00d9 | | Load_Top At_Offset_1
01e7 00db | | Load_Top At_Offset_3
01e8 00ea | | Load_Encached Null_String_Cache
01e9 4800 |H | Short_Literal 0x0
01ea 4800 |H | Short_Literal 0x0
01eb 800d | | Call 0x0,0xd
01ec c402 | | Store 0x2,0x2
01ed c403 | | Store 0x2,0x3
01ee 4801 |H | Short_Literal 0x1
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 4800 |H | Short_Literal 0x0
01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f2 TRAP_01d0:
01f2 0007 | | Action Break_Optional
01f3 4800 |H | Short_Literal 0x0
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e404 | | Load 0x2,0x4
01fc e403 | | Load 0x2,0x3
01fd 4801 |H | Short_Literal 0x1
01fe 4800 |H | Short_Literal 0x0
01ff 4800 |H | Short_Literal 0x0
0200 e7ff | | Load 0x3,-0x1
0201 800c | | Call 0x0,0xc
0202 c403 | | Store 0x2,0x3
0203 c404 | | Store 0x2,0x4
0204 e404 | | Load 0x2,0x4
0205 7015 |p | Jump_Nonzero 0x21b
0206 e404 | | Load 0x2,0x4
0207 e402 | | Load 0x2,0x2
0208 e403 | | Load 0x2,0x3
0209 4801 |H | Short_Literal 0x1
020a 800e | | Call 0x0,0xe
020b c403 | | Store 0x2,0x3
020c 00d1 | | Pop_Control Pop_Count_1
020d c404 | | Store 0x2,0x4
020e e404 | | Load 0x2,0x4
020f 7009 |p | Jump_Nonzero 0x219
0210 e403 | | Load 0x2,0x3
0211 e404 | | Load 0x2,0x4
0212 00ea | | Load_Encached Null_String_Cache
0213 4800 |H | Short_Literal 0x0
0214 4800 |H | Short_Literal 0x0
0215 800d | | Call 0x0,0xd
0216 c404 | | Store 0x2,0x4
0217 c403 | | Store 0x2,0x3
0218 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0219 e216 | | Load 0x1,0x16
021a 0257 | W | Execute Discrete,Raise
021b e215 | | Load 0x1,0x15
021c 0257 | W | Execute Discrete,Raise
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0235 | 5 | .CONST 0x0235 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0006 | | .CONST 0x0006 ; Number of locals
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 821a | | Call 0x1,0x1a
0225 4801 |H | Short_Literal 0x1
0226 4820 |H | Short_Literal 0x20
0227 e00a | | Load 0x0,0xa
0228 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0229 035b | [ | Declare_Type Array,Constrained
022a 0337 | 7 | Declare_Variable Array
022b 00d9 | | Load_Top At_Offset_1
022c 01dd | | Execute Vector,First
022d 00e2 | | Load_Encached Integer_Cache
022e 03f1 | | Declare_Variable Discrete,With_Value
022f 00da | | Load_Top At_Offset_2
0230 01dc | | Execute Vector,Last
0231 00e2 | | Load_Encached Integer_Cache
0232 03f1 | | Declare_Variable Discrete,With_Value
0233 00d9 | | Load_Top At_Offset_1
0234 0007 | | Action Break_Optional
0235 BODY_0220:
0235 4830 |H0 | Short_Literal 0x30
0236 484f |HO | Short_Literal 0x4f
0237 e402 | | Load 0x2,0x2
0238 01cf | | Execute Vector,Slice_Read
0239 00d8 | | Load_Top At_Offset_0
023a 01da | | Execute Vector,Bounds
023b e00a | | Load 0x0,0xa
023c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
023d 0334 | 4 | Declare_Variable Array,With_Constraint
023e 00d0 | | Action Swap_Control
023f 00d8 | | Load_Top At_Offset_0
0240 01dd | | Execute Vector,First
0241 00da | | Load_Top At_Offset_2
0242 01dd | | Execute Vector,First
0243 0272 | r | Execute Discrete,Minus
0244 00da | | Load_Top At_Offset_2
0245 01d9 | | Execute Vector,Reverse_Bounds
0246 0263 | c | Execute Discrete,Above_Bound
0247 700a |p | Jump_Nonzero 0x252
0248 00d8 | | Load_Top At_Offset_0
0249 00db | | Load_Top At_Offset_3
024a 0273 | s | Execute Discrete,Plus
024b e608 | | Load 0x3,0x8
024c 01d7 | | Execute Vector,Field_Read
024d 00d9 | | Load_Top At_Offset_1
024e e607 | | Load 0x3,0x7
024f 01d5 | | Execute Vector,Field_Reference
0250 0118 | | Execute Any,Write_Unchecked
0251 3ff6 |? | Loop_Increasing 0x248
0252 00d2 | | Pop_Control Pop_Count_2
0253 e603 | | Load 0x3,0x3
0254 01d4 | | Execute Vector,Structure_Write
0255 00db | | Load_Top At_Offset_3
0256 8219 | | Call 0x1,0x19
0257 e603 | | Load 0x3,0x3
0258 01d4 | | Execute Vector,Structure_Write
0259 00cf | | Action Mark_Auxiliary
025a 481f |H | Short_Literal 0x1f
025b 4804 |H | Short_Literal 0x4
025c 0007 | | Action Break_Optional
025d 00db | | Load_Top At_Offset_3
025e e605 | | Load 0x3,0x5
025f 027a | z | Execute Discrete,Less_Equal
0260 6807 |h | Jump_Zero 0x268
0261 00db | | Load_Top At_Offset_3
0262 e602 | | Load 0x3,0x2
0263 01d7 | | Execute Vector,Field_Read
0264 00d9 | | Load_Top At_Offset_1
0265 e603 | | Load 0x3,0x3
0266 01d6 | | Execute Vector,Field_Write
0267 7804 |x | Jump 0x26c
0268 4800 |H | Short_Literal 0x0
0269 00d9 | | Load_Top At_Offset_1
026a e603 | | Load 0x3,0x3
026b 01d6 | | Execute Vector,Field_Write
026c 00db | | Load_Top At_Offset_3
026d 0a01 | | Execute_Immediate Plus,0x1
026e c606 | | Store 0x3,0x6
026f 00c8 | | Action Pop_Auxiliary_Range
0270 3fec |? | Loop_Increasing 0x25d
0271 00ce | | Action Pop_Auxiliary
0272 00db | | Load_Top At_Offset_3
0273 8219 | | Call 0x1,0x19
0274 e603 | | Load 0x3,0x3
0275 01d4 | | Execute Vector,Structure_Write
0276 00cf | | Action Mark_Auxiliary
0277 4820 |H | Short_Literal 0x20
0278 4801 |H | Short_Literal 0x1
0279 0007 | | Action Break_Optional
027a 00d8 | | Load_Top At_Offset_0
027b e603 | | Load 0x3,0x3
027c 01d7 | | Execute Vector,Field_Read
027d 00d9 | | Load_Top At_Offset_1
027e 0a2f | / | Execute_Immediate Plus,0x2f
027f e402 | | Load 0x2,0x2
0280 01d6 | | Execute Vector,Field_Write
0281 00c8 | | Action Pop_Auxiliary_Range
0282 3ff7 |? | Loop_Increasing 0x27a
0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0292 | | .CONST 0x0292 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b e00f | | Load 0x0,0xf
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d 02c7 | | Declare_Variable Any
028e 00d8 | | Load_Top At_Offset_0
028f 1c00 | | Execute_Immediate Run_Utility,0x0
0290 e010 | | Load 0x0,0x10
0291 0007 | | Action Break_Optional
0292 BODY_0288:
0292 00d9 | | Load_Top At_Offset_1
0293 e011 | | Load 0x0,0x11
0294 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0295 e012 | | Load 0x0,0x12
0296 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0297 e012 | | Load 0x0,0x12
0298 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0299 00ea | | Load_Encached Null_String_Cache
029a e213 | | Load 0x1,0x13
029b 4801 |H | Short_Literal 0x1
029c e00f | | Load 0x0,0xf
029d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029e c602 | | Store 0x3,0x2
029f e402 | | Load 0x2,0x2
02a0 00d8 | | Load_Top At_Offset_0
02a1 01da | | Execute Vector,Bounds
02a2 e00a | | Load 0x0,0xa
02a3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a4 0334 | 4 | Declare_Variable Array,With_Constraint
02a5 00d0 | | Action Swap_Control
02a6 00d8 | | Load_Top At_Offset_0
02a7 01dd | | Execute Vector,First
02a8 00da | | Load_Top At_Offset_2
02a9 01dd | | Execute Vector,First
02aa 0272 | r | Execute Discrete,Minus
02ab 00da | | Load_Top At_Offset_2
02ac 01d9 | | Execute Vector,Reverse_Bounds
02ad 0263 | c | Execute Discrete,Above_Bound
02ae 700a |p | Jump_Nonzero 0x2b9
02af 00d8 | | Load_Top At_Offset_0
02b0 00db | | Load_Top At_Offset_3
02b1 0273 | s | Execute Discrete,Plus
02b2 e605 | | Load 0x3,0x5
02b3 01d7 | | Execute Vector,Field_Read
02b4 00d9 | | Load_Top At_Offset_1
02b5 e604 | | Load 0x3,0x4
02b6 01d5 | | Execute Vector,Field_Reference
02b7 0118 | | Execute Any,Write_Unchecked
02b8 3ff6 |? | Loop_Increasing 0x2af
02b9 00d2 | | Pop_Control Pop_Count_2
02ba 00da | | Load_Top At_Offset_2
02bb e00f | | Load 0x0,0xf
02bc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02bd 00d9 | | Load_Top At_Offset_1
02be e00f | | Load 0x0,0xf
02bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02c0 c602 | | Store 0x3,0x2
02c1 4800 |H | Short_Literal 0x0
02c2 0092 031c | | Action Push_String_Extended,0x31c ; "<ERRORS>"
02c4 e7ff | | Load 0x3,-0x1
02c5 8013 | | Call 0x0,0x13
02c6 00d8 | | Load_Top At_Offset_0
02c7 e213 | | Load 0x1,0x13
02c8 e7ff | | Load 0x3,-0x1
02c9 8014 | | Call 0x0,0x14
02ca 0059 | Y | Store_Top Discrete,At_Offset_1
02cb 00d8 | | Load_Top At_Offset_0
02cc 0f00 | | Execute_Immediate Equal,0x0
02cd 00d9 | | Load_Top At_Offset_1
02ce 0f11 | | Execute_Immediate Equal,0x11
02cf 0278 | x | Execute Discrete,Or
02d0 6808 |h | Jump_Zero 0x2d9
02d1 e007 | | Load 0x0,0x7
02d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d3 4802 |H | Short_Literal 0x2
02d4 0092 031d | | Action Push_String_Extended,0x31d ; "Boot Configuration has been updated"
02d6 e008 | | Load 0x0,0x8
02d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d9 e007 | | Load 0x0,0x7
02da 180e | | Execute Package,Field_Execute,Field_Number 0xe
02db 4802 |H | Short_Literal 0x2
02dc 0092 031e | | Action Push_String_Extended,0x31e ; "Bad status from update - "
02de 00db | | Load_Top At_Offset_3
02df e010 | | Load 0x0,0x10
02e0 011c | | Execute Any,Convert_Unchecked
02e1 1c01 | | Execute_Immediate Run_Utility,0x1
02e2 01cc | | Execute Vector,Catenate
02e3 e008 | | Load 0x0,0x8
02e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e5 e217 | | Load 0x1,0x17
02e6 0257 | W | Execute Discrete,Raise
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4802 |H | Short_Literal 0x2
02ec a214 | | Store_Unchecked 0x1,0x14
02ed e212 | | Load 0x1,0x12
02ee 8405 | | Call 0x2,0x5
02ef 00da | | Load_Top At_Offset_2
02f0 8406 | | Call 0x2,0x6
02f1 e212 | | Load 0x1,0x12
02f2 8407 | | Call 0x2,0x7
02f3 4803 |H | Short_Literal 0x3
02f4 a214 | | Store_Unchecked 0x1,0x14
02f5 e211 | | Load 0x1,0x11
02f6 8405 | | Call 0x2,0x5
02f7 00da | | Load_Top At_Offset_2
02f8 8406 | | Call 0x2,0x6
02f9 e211 | | Load 0x1,0x11
02fa 8407 | | Call 0x2,0x7
02fb 4801 |H | Short_Literal 0x1
02fc a214 | | Store_Unchecked 0x1,0x14
02fd e210 | | Load 0x1,0x10
02fe 8405 | | Call 0x2,0x5
02ff 00da | | Load_Top At_Offset_2
0300 8406 | | Call 0x2,0x6
0301 e210 | | Load 0x1,0x10
0302 8407 | | Call 0x2,0x7
0303 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0304 ; --------------------------------------------------------------------------------------
0304 ; STRING TABLE
0304 ; --------------------------------------------------------------------------------------
0304 0038 | 8 | .STRTAB 0x0038->0x0320 ; "NONE"
0305 003a | : | .STRTAB 0x003a->0x0322 ; "STANDARD"
0306 0040 | @ | .STRTAB 0x0040->0x0326 ; "REMOTE"
0307 0044 | D | .STRTAB 0x0044->0x0329 ; "LOCAL"
0308 0047 | G | .STRTAB 0x0047->0x032b ; ".M200_UCODE"
0309 0050 | P | .STRTAB 0x0050->0x0331 ; "STANDARD.M200_CONFIG"
030a 0062 | b | .STRTAB 0x0062->0x033b ; "LOCAL_STANDARD.M200_CONFIG"
030b 007a | z | .STRTAB 0x007a->0x0348 ; "REMOTE_STANDARD.M200_CONFIG"
030c 0093 | | .STRTAB 0x0093->0x0355 ; "!machine.temporary.dfs_config_update_temp"
030d 00ba | | .STRTAB 0x00ba->0x036a ; "Could not find ucode file "
030e 00d2 | | .STRTAB 0x00d2->0x0377 ; " in DFS."
030f 00d8 | | .STRTAB 0x00d8->0x037b ; "File must exist before updating configuration"
0310 0103 | | .STRTAB 0x0103->0x0391 ; "Illegal ucode name. Should be of the form:"
0311 012c | , | .STRTAB 0x012c->0x03a7 ; "M207_<version> (ie. M207_41) "
0312 0147 | G | .STRTAB 0x0147->0x03b5 ; "This procedure is not enabled for series 100 systems"
0313 0179 | y | .STRTAB 0x0179->0x03cf ; "Operator Privileges required to run this procedure."
0314 01aa | | .STRTAB 0x01aa->0x03e9 ; "Problem encountered attempting to open configuration file."
0315 01e2 | | .STRTAB 0x01e2->0x0406 ; "Problem encountered attempting to read configuration file."
0316 021a | | .STRTAB 0x021a->0x0423 ; "Problem encountered updating configuration file."
0317 0248 | H | .STRTAB 0x0248->0x043b ; "Configuration may be inconsistent."
0318 0268 | h | .STRTAB 0x0268->0x044c ; "Problems encountered"
0319 027a | z | .STRTAB 0x027a->0x0456 ; "<<unknown>>"
031a 0283 | | .STRTAB 0x0283->0x045b ; "M207_"
031b 0286 | | .STRTAB 0x0286->0x045e ; "M200_UCODE"
031c 028e | | .STRTAB 0x028e->0x0463 ; "<ERRORS>"
031d 0294 | | .STRTAB 0x0294->0x0467 ; "Boot Configuration has been updated"
031e 02b5 | | .STRTAB 0x02b5->0x0478 ; "Bad status from update - "
031f 02cc | | .STREND 0x02cc->0x0485
0320 4e4f 4e45 |NONE| .STRTAB_STRINGS
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug Table
0488 ; --------------------------------------------------------------------------------------
0488 0004 0002 | | .DEBUG4 0x0004,0x0002,0xb1de,0x0000,0x0001,0x0000
048e 0000 0000 | | .BLANK 0000[0x172]