|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0500 | | .CONST 0x0500 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004d | M | .CONST 0x004d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 00e4 | | Load_Encached Positive_Cache 000c 00e3 | | Load_Encached Natural_Cache 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 4802 |H | Short_Literal 0x2 000f 032d | - | Declare_Type Record,Defined 0010 00d8 | | Load_Top At_Offset_0 0011 0322 | " | Declare_Variable Record 0012 4801 |H | Short_Literal 0x1 0013 00d9 | | Load_Top At_Offset_1 0014 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0015 4800 |H | Short_Literal 0x0 0016 00d9 | | Load_Top At_Offset_1 0017 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0018 e029 | ) | Load 0x0,0x29 0019 e02a | * | Load 0x0,0x2a 001a 49f4 |I | Short_Literal 0x1f4 001b e402 | | Load 0x2,0x2 001c 4801 |H | Short_Literal 0x1 001d e02b | + | Load 0x0,0x2b 001e 0387 | | Declare_Variable Package 001f 00d8 | | Load_Top At_Offset_0 0020 020f | | Execute Module,Activate 0021 0092 0437 | 7| Action Push_String_Extended,0x437 ; "X" 0023 4801 |H | Short_Literal 0x1 0024 4810 |H | Short_Literal 0x10 0025 00e1 | | Load_Encached Boolean_Cache 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 4801 |H | Short_Literal 0x1 0028 035d | ] | Declare_Type Array,Defined 0029 00da | | Load_Top At_Offset_2 002a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002b 00e2 | | Load_Encached Integer_Cache 002c 00e1 | | Load_Encached Boolean_Cache 002d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 002f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0031 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0033 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0035 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0037 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0039 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 003b 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 003d 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 003f 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0041 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0043 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0045 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0047 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 0049 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 004b 029f 038b | | Declare_Subprogram INIT_0388,For_Call 004d BODY_0008: 004d 8419 | | Call 0x2,0x19 004e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0055 4606 |F | Jump_Case 0x7 0056 7806 |x | Jump 0x5d ; case 0x0 0057 7805 |x | Jump 0x5d ; case 0x1 0058 7808 |x | Jump 0x61 ; case 0x2 0059 780c |x | Jump 0x66 ; case 0x3 005a 7802 |x | Jump 0x5d ; case 0x4 005b 7801 |x | Jump 0x5d ; case 0x5 005c 7800 |x | Jump 0x5d ; case 0x6 005d e027 | ' | Load 0x0,0x27 005e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 005f 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0061 00da | | Load_Top At_Offset_2 0062 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0063 e02c | , | Load 0x0,0x2c 0064 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 00da | | Load_Top At_Offset_2 0067 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0068 e024 | $ | Load 0x0,0x24 0069 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 006a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 e027 | ' | Load 0x0,0x27 0075 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0076 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0077 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0078 0f05 | | Execute_Immediate Equal,0x5 0079 7005 |p | Jump_Nonzero 0x7f 007a e027 | ' | Load 0x0,0x27 007b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 007c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 007d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007f 00da | | Load_Top At_Offset_2 0080 e027 | ' | Load 0x0,0x27 0081 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0082 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0083 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008e | | .CONST 0x008e ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b e027 | ' | Load 0x0,0x27 008c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 008d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 008e BODY_0088: 008e 00d8 | | Load_Top At_Offset_0 008f e7ff | | Load 0x3,-0x1 0090 840a | | Call 0x2,0xa 0091 482a |H* | Short_Literal 0x2a 0092 e028 | ( | Load 0x0,0x28 0093 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0094 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0095 00d8 | | Load_Top At_Offset_0 0096 e027 | ' | Load 0x0,0x27 0097 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0098 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0099 6805 |h | Jump_Zero 0x9f 009a e027 | ' | Load 0x0,0x27 009b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 009c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 009d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 00d8 | | Load_Top At_Offset_0 00a0 e027 | ' | Load 0x0,0x27 00a1 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00a2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00a3 e028 | ( | Load 0x0,0x28 00a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b2 | | .CONST 0x00b2 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e027 | ' | Load 0x0,0x27 00ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00ad 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00af 02c7 | | Declare_Variable Any 00b0 00d8 | | Load_Top At_Offset_0 00b1 1c00 | | Execute_Immediate Run_Utility,0x0 00b2 BODY_00a8: 00b2 00db | | Load_Top At_Offset_3 00b3 e027 | ' | Load 0x0,0x27 00b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00b7 4608 |F | Jump_Case 0x9 00b8 7808 |x | Jump 0xc1 ; case 0x0 00b9 7817 |x | Jump 0xd1 ; case 0x1 00ba 7806 |x | Jump 0xc1 ; case 0x2 00bb 7815 |x | Jump 0xd1 ; case 0x3 00bc 7804 |x | Jump 0xc1 ; case 0x4 00bd 780c |x | Jump 0xca ; case 0x5 00be 7802 |x | Jump 0xc1 ; case 0x6 00bf 7801 |x | Jump 0xc1 ; case 0x7 00c0 7800 |x | Jump 0xc1 ; case 0x8 00c1 00db | | Load_Top At_Offset_3 00c2 e027 | ' | Load 0x0,0x27 00c3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00c5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c6 0092 0438 | 8| Action Push_String_Extended,0x438 ; " *** Illegal State Name Syntax" 00c8 01cc | | Execute Vector,Catenate 00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ca 00db | | Load_Top At_Offset_3 00cb e027 | ' | Load 0x0,0x27 00cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00cd 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ce 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00cf c602 | | Store 0x3,0x2 00d0 7802 |x | Jump 0xd3 00d1 00db | | Load_Top At_Offset_3 00d2 c602 | | Store 0x3,0x2 00d3 4801 |H | Short_Literal 0x1 00d4 e022 | " | Load 0x0,0x22 00d5 1b89 | | Execute Package,Field_Read,Field_Number 0x89 00d6 00da | | Load_Top At_Offset_2 00d7 e027 | ' | Load 0x0,0x27 00d8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00d9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00da 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00db e025 | % | Load 0x0,0x25 00dc 180f | | Execute Package,Field_Execute,Field_Number 0xf 00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4801 |H | Short_Literal 0x1 00e4 e022 | " | Load 0x0,0x22 00e5 1b89 | | Execute Package,Field_Read,Field_Number 0x89 00e6 e7ff | | Load 0x3,-0x1 00e7 e027 | ' | Load 0x0,0x27 00e8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00e9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00eb e025 | % | Load 0x0,0x25 00ec 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0103 | | .CONST 0x0103 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 0007 | | Action Break_Optional 00f5 00d8 | | Load_Top At_Offset_0 00f6 e22c | , | Load 0x1,0x2c 00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f8 e7fe | | Load 0x3,-0x2 00f9 0272 | r | Execute Discrete,Minus 00fa 00d8 | | Load_Top At_Offset_0 00fb 00e3 | | Load_Encached Natural_Cache 00fc 0260 | ` | Execute Discrete,In_Type 00fd 7001 |p | Jump_Nonzero 0xff 00fe 0801 | | Execute_Immediate Raise,0x1 00ff 4801 |H | Short_Literal 0x1 0100 00da | | Load_Top At_Offset_2 0101 e22c | , | Load 0x1,0x2c 0102 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0103 BODY_00f0: 0103 00d9 | | Load_Top At_Offset_1 0104 e22c | , | Load 0x1,0x2c 0105 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0106 003a | : | Store_Top Access,At_Offset_2 0107 00d8 | | Load_Top At_Offset_0 0108 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011e | | .CONST 0x011e ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 e027 | ' | Load 0x0,0x27 0114 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0115 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0116 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0117 02c7 | | Declare_Variable Any 0118 00db | | Load_Top At_Offset_3 0119 a602 | | Store_Unchecked 0x3,0x2 011a e22c | , | Load 0x1,0x2c 011b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 011c 0092 0439 | 9| Action Push_String_Extended,0x439 ; ", " 011e BODY_0110: 011e e7ff | | Load 0x3,-0x1 011f e027 | ' | Load 0x0,0x27 0120 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0121 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0122 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0123 012f | / | Execute Any,Equal 0124 6802 |h | Jump_Zero 0x127 0125 00ea | | Load_Encached Null_String_Cache 0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0127 00cf | | Action Mark_Auxiliary 0128 7817 |x | Jump 0x140 0129 00da | | Load_Top At_Offset_2 012a 4801 |H | Short_Literal 0x1 012b e022 | " | Load 0x0,0x22 012c 1b89 | | Execute Package,Field_Read,Field_Number 0x89 012d e602 | | Load 0x3,0x2 012e e027 | ' | Load 0x0,0x27 012f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0130 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0131 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0132 e025 | % | Load 0x0,0x25 0133 180f | | Execute Package,Field_Execute,Field_Number 0xf 0134 00db | | Load_Top At_Offset_3 0135 01cc | | Execute Vector,Catenate 0136 e22c | , | Load 0x1,0x2c 0137 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0138 003b | ; | Store_Top Access,At_Offset_3 0139 00db | | Load_Top At_Offset_3 013a e027 | ' | Load 0x0,0x27 013b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 013c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 013d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 013e c602 | | Store 0x3,0x2 013f 00c9 | | Action Pop_Auxiliary_Loop 0140 00db | | Load_Top At_Offset_3 0141 e027 | ' | Load 0x0,0x27 0142 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0143 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0144 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0145 6fe3 |o | Jump_Zero 0x129 0146 00ce | | Action Pop_Auxiliary 0147 4802 |H | Short_Literal 0x2 0148 00da | | Load_Top At_Offset_2 0149 840f | | Call 0x2,0xf 014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014b 0000 0000 | | .BLANK 0000[0x5] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 0092 043a | :| Action Push_String_Extended,0x43a ; "." 0156 01cc | | Execute Vector,Catenate 0157 e7fe | | Load 0x3,-0x2 0158 01cc | | Execute Vector,Catenate 0159 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 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 480a |H | Short_Literal 0xa 0164 e022 | " | Load 0x0,0x22 0165 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0166 e023 | # | Load 0x0,0x23 0167 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0168 4800 |H | Short_Literal 0x0 0169 0092 043b | ;| Action Push_String_Extended,0x43b ; "The system states and modes applicable to this CSCI are listed in Table " 016b 0092 043c | <| Action Push_String_Extended,0x43c ; "CSCI Operating States Identification" 016d 820d | | Call 0x1,0xd 016e 480b |H | Short_Literal 0xb 016f e022 | " | Load 0x0,0x22 0170 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0171 e023 | # | Load 0x0,0x23 0172 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0173 5820 |X | Indirect_Literal Float,0x194,20.0 0174 4802 |H | Short_Literal 0x2 0175 0092 043d | =| Action Push_String_Extended,0x43d ; "Number" 0177 820e | | Call 0x1,0xe 0178 480b |H | Short_Literal 0xb 0179 e022 | " | Load 0x0,0x22 017a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 017b e023 | # | Load 0x0,0x23 017c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 017d 5812 |X | Indirect_Literal Float,0x190,40.0 017e 4802 |H | Short_Literal 0x2 017f 0092 043e | >| Action Push_String_Extended,0x43e ; "State Name" 0181 820e | | Call 0x1,0xe 0182 480b |H | Short_Literal 0xb 0183 e022 | " | Load 0x0,0x22 0184 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0185 e023 | # | Load 0x0,0x23 0186 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0187 5808 |X | Indirect_Literal Float,0x190,40.0 0188 4802 |H | Short_Literal 0x2 0189 0092 043f | ?| Action Push_String_Extended,0x43f ; "Mode Name" 018b 820e | | Call 0x1,0xe 018c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018d 0000 0000 | | .XXX[0x3] 018f 0000 | | 0190 4044 0000 |@D | .DBL 40.0 0192 0000 0000 | | 0194 4034 0000 |@4 | .DBL 20.0 0196 0000 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019f | | .CONST 0x019f ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b 5ff4 |_ | Indirect_Literal Float,0x190,40.0 019c e023 | # | Load 0x0,0x23 019d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019e 03df | | Declare_Variable Float,With_Value 019f BODY_0198: 019f e7fe | | Load 0x3,-0x2 01a0 e022 | " | Load 0x0,0x22 01a1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01a2 e7fe | | Load 0x3,-0x2 01a3 e022 | " | Load 0x0,0x22 01a4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01a5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01a6 0f03 | | Execute_Immediate Equal,0x3 01a7 680c |h | Jump_Zero 0x1b4 01a8 480a |H | Short_Literal 0xa 01a9 e022 | " | Load 0x0,0x22 01aa 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01ab e023 | # | Load 0x0,0x23 01ac 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01ad 4800 |H | Short_Literal 0x0 01ae 0092 0440 | @| Action Push_String_Extended,0x440 ; "The correlation of capabilities to states and modes is shown in Table " 01b0 0092 0441 | A| Action Push_String_Extended,0x441 ; "Capability/State Correlation" 01b2 820d | | Call 0x1,0xd 01b3 780b |x | Jump 0x1bf 01b4 480a |H | Short_Literal 0xa 01b5 e022 | " | Load 0x0,0x22 01b6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01b7 e023 | # | Load 0x0,0x23 01b8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01b9 4800 |H | Short_Literal 0x0 01ba 0092 0442 | B| Action Push_String_Extended,0x442 ; "The correlation of CSCs to states and modes is shown in Table " 01bc 0092 0443 | C| Action Push_String_Extended,0x443 ; "CSC/State Correlation" 01be 820d | | Call 0x1,0xd 01bf 00db | | Load_Top At_Offset_3 01c0 0aff | | Execute_Immediate Plus,-0x1 01c1 a408 | | Store_Unchecked 0x2,0x8 01c2 e408 | | Load 0x2,0x8 01c3 0d11 | | Execute_Immediate Less,0x11 01c4 682a |h* | Jump_Zero 0x1ef 01c5 584e |XN | Indirect_Literal Float,0x214,100.0 01c6 5849 |XI | Indirect_Literal Float,0x210,5.0 01c7 e408 | | Load 0x2,0x8 01c8 0237 | 7 | Execute Float,Convert_From_Discrete 01c9 e023 | # | Load 0x0,0x23 01ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01cb 0238 | 8 | Execute Float,Convert 01cc 023b | ; | Execute Float,Times 01cd 023c | < | Execute Float,Minus 01ce 0049 | I | Store_Top Float,At_Offset_1 01cf 480b |H | Short_Literal 0xb 01d0 e022 | " | Load 0x0,0x22 01d1 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01d2 e023 | # | Load 0x0,0x23 01d3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d4 00da | | Load_Top At_Offset_2 01d5 4802 |H | Short_Literal 0x2 01d6 0092 0444 | D| Action Push_String_Extended,0x444 ; "Capability" 01d8 820e | | Call 0x1,0xe 01d9 00cf | | Action Mark_Auxiliary 01da e408 | | Load 0x2,0x8 01db 4801 |H | Short_Literal 0x1 01dc 0263 | c | Execute Discrete,Above_Bound 01dd 700d |p | Jump_Nonzero 0x1eb 01de 480b |H | Short_Literal 0xb 01df e022 | " | Load 0x0,0x22 01e0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01e1 e023 | # | Load 0x0,0x23 01e2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01e3 582c |X, | Indirect_Literal Float,0x210,5.0 01e4 4802 |H | Short_Literal 0x2 01e5 e605 | | Load 0x3,0x5 01e6 00e0 | | Load_Encached Standard_Cache 01e7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e8 820e | | Call 0x1,0xe 01e9 00c8 | | Action Pop_Auxiliary_Range 01ea 3ff3 |? | Loop_Increasing 0x1de 01eb 00ce | | Action Pop_Auxiliary 01ec 4801 |H | Short_Literal 0x1 01ed a409 | | Store_Unchecked 0x2,0x9 01ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ef 480b |H | Short_Literal 0xb 01f0 e022 | " | Load 0x0,0x22 01f1 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01f2 e023 | # | Load 0x0,0x23 01f3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f4 00da | | Load_Top At_Offset_2 01f5 4802 |H | Short_Literal 0x2 01f6 0092 0444 | D| Action Push_String_Extended,0x444 ; "Capability" 01f8 820e | | Call 0x1,0xe 01f9 480b |H | Short_Literal 0xb 01fa e022 | " | Load 0x0,0x22 01fb 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01fc e023 | # | Load 0x0,0x23 01fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01fe 00da | | Load_Top At_Offset_2 01ff 4802 |H | Short_Literal 0x2 0200 0092 043e | >| Action Push_String_Extended,0x43e ; "State Name" 0202 820e | | Call 0x1,0xe 0203 480b |H | Short_Literal 0xb 0204 e022 | " | Load 0x0,0x22 0205 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0206 e023 | # | Load 0x0,0x23 0207 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0208 00da | | Load_Top At_Offset_2 0209 4802 |H | Short_Literal 0x2 020a 0092 043f | ?| Action Push_String_Extended,0x43f ; "Mode Name" 020c 820e | | Call 0x1,0xe 020d 4800 |H | Short_Literal 0x0 020e a409 | | Store_Unchecked 0x2,0x9 020f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0210 4014 0000 |@ | .DBL 5.0 0212 0000 0000 | | 0214 4059 0000 |@Y | .DBL 100.0 0216 0000 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00cf | | Action Mark_Auxiliary 021c e408 | | Load 0x2,0x8 021d 4801 |H | Short_Literal 0x1 021e 0263 | c | Execute Discrete,Above_Bound 021f 7017 |p | Jump_Nonzero 0x237 0220 00d8 | | Load_Top At_Offset_0 0221 e7ff | | Load 0x3,-0x1 0222 01d7 | | Execute Vector,Field_Read 0223 6809 |h | Jump_Zero 0x22d 0224 4801 |H | Short_Literal 0x1 0225 480d |H | Short_Literal 0xd 0226 e022 | " | Load 0x0,0x22 0227 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0228 e023 | # | Load 0x0,0x23 0229 1b16 | | Execute Package,Field_Read,Field_Number 0x16 022a e405 | | Load 0x2,0x5 022b 820f | | Call 0x1,0xf 022c 7808 |x | Jump 0x235 022d 4801 |H | Short_Literal 0x1 022e 480d |H | Short_Literal 0xd 022f e022 | " | Load 0x0,0x22 0230 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0231 e023 | # | Load 0x0,0x23 0232 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0233 00ea | | Load_Encached Null_String_Cache 0234 820f | | Call 0x1,0xf 0235 00c8 | | Action Pop_Auxiliary_Range 0236 3fe9 |? | Loop_Increasing 0x220 0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00cf | | Action Mark_Auxiliary 023c 00db | | Load_Top At_Offset_3 023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023e e7ff | | Load 0x3,-0x1 023f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0240 0263 | c | Execute Discrete,Above_Bound 0241 7006 |p | Jump_Nonzero 0x248 0242 4801 |H | Short_Literal 0x1 0243 00d9 | | Load_Top At_Offset_1 0244 e7fe | | Load 0x3,-0x2 0245 01d6 | | Execute Vector,Field_Write 0246 00c8 | | Action Pop_Auxiliary_Range 0247 3ffa |? | Loop_Increasing 0x242 0248 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0249 0000 0000 | | .BLANK 0000[0x7] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0258 | X | .CONST 0x0258 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 e407 | | Load 0x2,0x7 0255 e404 | | Load 0x2,0x4 0256 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 TRAP_0250: 0258 e404 | | Load 0x2,0x4 0259 1b20 | | Execute Package,Field_Read,Field_Number 0x20 025a 010f | | Execute Exception,Equal 025b 6802 |h | Jump_Zero 0x25e 025c e403 | | Load 0x2,0x3 025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025e 0100 | | Execute Exception,Raise 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 028d | | .CONST 0x028d ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0007 | | .CONST 0x0007 ; Number of locals 0263 INIT_0260: 0263 4807 |H | Short_Literal 0x7 0264 00db | | Load_Top At_Offset_3 0265 e022 | " | Load 0x0,0x22 0266 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0267 e027 | ' | Load 0x0,0x27 0268 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0269 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 026a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 026b 02c7 | | Declare_Variable Any 026c e7ff | | Load 0x3,-0x1 026d 840c | | Call 0x2,0xc 026e a603 | | Store_Unchecked 0x3,0x3 026f e406 | | Load 0x2,0x6 0270 0337 | 7 | Declare_Variable Array 0271 00d8 | | Load_Top At_Offset_0 0272 0335 | 5 | Declare_Variable Array,Duplicate 0273 00cd | | Action Spare6_Action 0274 4810 |H | Short_Literal 0x10 0275 4801 |H | Short_Literal 0x1 0276 4800 |H | Short_Literal 0x0 0277 00d9 | | Load_Top At_Offset_1 0278 e605 | | Load 0x3,0x5 0279 01d6 | | Execute Vector,Field_Write 027a 3ffb |? | Loop_Increasing 0x276 027b 00d9 | | Load_Top At_Offset_1 027c 01d4 | | Execute Vector,Structure_Write 027d e027 | ' | Load 0x0,0x27 027e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 027f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0280 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0281 02c7 | | Declare_Variable Any 0282 00d8 | | Load_Top At_Offset_0 0283 1c00 | | Execute_Immediate Run_Utility,0x0 0284 e027 | ' | Load 0x0,0x27 0285 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0286 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0287 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0288 02c7 | | Declare_Variable Any 0289 00d8 | | Load_Top At_Offset_0 028a 1c00 | | Execute_Immediate Run_Utility,0x0 028b e402 | | Load 0x2,0x2 028c 0322 | " | Declare_Variable Record 028d BODY_0260: 028d 4801 |H | Short_Literal 0x1 028e 480d |H | Short_Literal 0xd 028f e022 | " | Load 0x0,0x22 0290 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0291 00ea | | Load_Encached Null_String_Cache 0292 e602 | | Load 0x3,0x2 0293 e7ff | | Load 0x3,-0x1 0294 4806 |H | Short_Literal 0x6 0295 e022 | " | Load 0x0,0x22 0296 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0297 e602 | | Load 0x3,0x2 0298 820f | | Call 0x1,0xf 0299 e409 | | Load 0x2,0x9 029a 6859 |hY | Jump_Zero 0x2f4 029b e603 | | Load 0x3,0x3 029c e027 | ' | Load 0x0,0x27 029d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 029e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 029f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a0 012f | / | Execute Any,Equal 02a1 6803 |h | Jump_Zero 0x2a5 02a2 00db | | Load_Top At_Offset_3 02a3 8414 | | Call 0x2,0x14 02a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a5 00cf | | Action Mark_Auxiliary 02a6 7843 |xC | Jump 0x2ea 02a7 e603 | | Load 0x3,0x3 02a8 e027 | ' | Load 0x0,0x27 02a9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02aa 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02ab 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 02ac c605 | | Store 0x3,0x5 02ad 00db | | Load_Top At_Offset_3 02ae 840b | | Call 0x2,0xb 02af c606 | | Store 0x3,0x6 02b0 00da | | Load_Top At_Offset_2 02b1 e027 | ' | Load 0x0,0x27 02b2 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02b3 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02b4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02b5 012f | / | Execute Any,Equal 02b6 680c |h | Jump_Zero 0x2c3 02b7 00ea | | Load_Encached Null_String_Cache 02b8 e605 | | Load 0x3,0x5 02b9 840d | | Call 0x2,0xd 02ba 8411 | | Call 0x2,0x11 02bb 8416 | | Call 0x2,0x16 02bc 00da | | Load_Top At_Offset_2 02bd 017d | } | Execute Record,Structure_Write 02be e604 | | Load 0x3,0x4 02bf 00da | | Load_Top At_Offset_2 02c0 8415 | | Call 0x2,0x15 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 7820 |x | Jump 0x2e3 02c3 00cf | | Action Mark_Auxiliary 02c4 7817 |x | Jump 0x2dc 02c5 00db | | Load_Top At_Offset_3 02c6 e027 | ' | Load 0x0,0x27 02c7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02c8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02c9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 02ca 840e | | Call 0x2,0xe 02cb e605 | | Load 0x3,0x5 02cc 840d | | Call 0x2,0xd 02cd 8411 | | Call 0x2,0x11 02ce 8416 | | Call 0x2,0x16 02cf 00db | | Load_Top At_Offset_3 02d0 017d | } | Execute Record,Structure_Write 02d1 e604 | | Load 0x3,0x4 02d2 00db | | Load_Top At_Offset_3 02d3 8415 | | Call 0x2,0x15 02d4 00d1 | | Pop_Control Pop_Count_1 02d5 00db | | Load_Top At_Offset_3 02d6 e027 | ' | Load 0x0,0x27 02d7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02d8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02d9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02da c606 | | Store 0x3,0x6 02db 00c9 | | Action Pop_Auxiliary_Loop 02dc 00db | | Load_Top At_Offset_3 02dd e027 | ' | Load 0x0,0x27 02de 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02df 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02e0 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02e1 6fe3 |o | Jump_Zero 0x2c5 02e2 00ce | | Action Pop_Auxiliary 02e3 e603 | | Load 0x3,0x3 02e4 e027 | ' | Load 0x0,0x27 02e5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02e6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02e7 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02e8 c603 | | Store 0x3,0x3 02e9 00c9 | | Action Pop_Auxiliary_Loop 02ea e603 | | Load 0x3,0x3 02eb e027 | ' | Load 0x0,0x27 02ec 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02ed 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02ee 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02ef 6fb7 |o | Jump_Zero 0x2a7 02f0 00ce | | Action Pop_Auxiliary 02f1 00db | | Load_Top At_Offset_3 02f2 8414 | | Call 0x2,0x14 02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f4 e603 | | Load 0x3,0x3 02f5 e027 | ' | Load 0x0,0x27 02f6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02f7 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02f9 012f | / | Execute Any,Equal 02fa 6811 |h | Jump_Zero 0x30c 02fb 4801 |H | Short_Literal 0x1 02fc 480d |H | Short_Literal 0xd 02fd e022 | " | Load 0x0,0x22 02fe 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 02ff e023 | # | Load 0x0,0x23 0300 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0301 00ea | | Load_Encached Null_String_Cache 0302 820f | | Call 0x1,0xf 0303 4801 |H | Short_Literal 0x1 0304 480d |H | Short_Literal 0xd 0305 e022 | " | Load 0x0,0x22 0306 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0307 e023 | # | Load 0x0,0x23 0308 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0309 00ea | | Load_Encached Null_String_Cache 030a 820f | | Call 0x1,0xf 030b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 030c e603 | | Load 0x3,0x3 030d e027 | ' | Load 0x0,0x27 030e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 030f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0310 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0311 c605 | | Store 0x3,0x5 0312 00da | | Load_Top At_Offset_2 0313 840b | | Call 0x2,0xb 0314 c606 | | Store 0x3,0x6 0315 4801 |H | Short_Literal 0x1 0316 480d |H | Short_Literal 0xd 0317 e022 | " | Load 0x0,0x22 0318 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0319 e023 | # | Load 0x0,0x23 031a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 031b e605 | | Load 0x3,0x5 031c 840d | | Call 0x2,0xd 031d 820f | | Call 0x1,0xf 031e 4801 |H | Short_Literal 0x1 031f 480d |H | Short_Literal 0xd 0320 e022 | " | Load 0x0,0x22 0321 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0322 e023 | # | Load 0x0,0x23 0323 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0324 e606 | | Load 0x3,0x6 0325 8410 | | Call 0x2,0x10 0326 820f | | Call 0x1,0xf 0327 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0339 | 9 | .CONST 0x0339 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0005 | | .CONST 0x0005 ; Number of locals 032b INIT_0328: 032b e027 | ' | Load 0x0,0x27 032c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 032d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 032e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 032f 02c7 | | Declare_Variable Any 0330 00db | | Load_Top At_Offset_3 0331 840b | | Call 0x2,0xb 0332 a602 | | Store_Unchecked 0x3,0x2 0333 00e3 | | Load_Encached Natural_Cache 0334 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0335 e7ff | | Load 0x3,-0x1 0336 840d | | Call 0x2,0xd 0337 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 0339 BODY_0328: 0339 00db | | Load_Top At_Offset_3 033a e027 | ' | Load 0x0,0x27 033b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 033c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 033d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 033e 012f | / | Execute Any,Equal 033f 682b |h+ | Jump_Zero 0x36b 0340 4801 |H | Short_Literal 0x1 0341 480d |H | Short_Literal 0xd 0342 e022 | " | Load 0x0,0x22 0343 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0344 e7fe | | Load 0x3,-0x2 0345 e7fd | | Load 0x3,-0x3 0346 00e0 | | Load_Encached Standard_Cache 0347 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0348 820f | | Call 0x1,0xf 0349 4801 |H | Short_Literal 0x1 034a 480d |H | Short_Literal 0xd 034b e022 | " | Load 0x0,0x22 034c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 034d e7fe | | Load 0x3,-0x2 034e e604 | | Load 0x3,0x4 034f 820f | | Call 0x1,0xf 0350 4801 |H | Short_Literal 0x1 0351 480d |H | Short_Literal 0xd 0352 e022 | " | Load 0x0,0x22 0353 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0354 e7fe | | Load 0x3,-0x2 0355 00ea | | Load_Encached Null_String_Cache 0356 820f | | Call 0x1,0xf 0357 e407 | | Load 0x2,0x7 0358 4800 |H | Short_Literal 0x0 0359 e402 | | Load 0x2,0x2 035a 0322 | " | Declare_Variable Record 035b e7fd | | Load 0x3,-0x3 035c 00d9 | | Load_Top At_Offset_1 035d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 035e e7fd | | Load 0x3,-0x3 035f 00d9 | | Load_Top At_Offset_1 0360 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0361 00ea | | Load_Encached Null_String_Cache 0362 e604 | | Load 0x3,0x4 0363 8411 | | Call 0x2,0x11 0364 e404 | | Load 0x2,0x4 0365 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0366 c407 | | Store 0x2,0x7 0367 e7fd | | Load 0x3,-0x3 0368 0a01 | | Execute_Immediate Plus,0x1 0369 c7fd | | Store 0x3,-0x3 036a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036b 00cf | | Action Mark_Auxiliary 036c 7802 |x | Jump 0x36f 036d 8605 | | Call 0x3,0x5 036e 00c9 | | Action Pop_Auxiliary_Loop 036f e602 | | Load 0x3,0x2 0370 e027 | ' | Load 0x0,0x27 0371 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0372 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0373 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0374 6ff8 |o | Jump_Zero 0x36d 0375 00ce | | Action Pop_Auxiliary 0376 e407 | | Load 0x2,0x7 0377 4800 |H | Short_Literal 0x0 0378 e402 | | Load 0x2,0x2 0379 0322 | " | Declare_Variable Record 037a e603 | | Load 0x3,0x3 037b 00d9 | | Load_Top At_Offset_1 037c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 037d e7fd | | Load 0x3,-0x3 037e 0aff | | Execute_Immediate Plus,-0x1 037f 00d9 | | Load_Top At_Offset_1 0380 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0381 00ea | | Load_Encached Null_String_Cache 0382 e604 | | Load 0x3,0x4 0383 8411 | | Call 0x2,0x11 0384 e404 | | Load 0x2,0x4 0385 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0386 c407 | | Store 0x2,0x7 0387 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 039c | | .CONST 0x039c ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0004 | | .CONST 0x0004 ; Number of locals 038b INIT_0388: 038b 00ea | | Load_Encached Null_String_Cache 038c 4800 |H | Short_Literal 0x0 038d e022 | " | Load 0x0,0x22 038e 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 038f e022 | " | Load 0x0,0x22 0390 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0391 e027 | ' | Load 0x0,0x27 0392 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0393 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0394 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0395 02c7 | | Declare_Variable Any 0396 e022 | " | Load 0x0,0x22 0397 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0398 840c | | Call 0x2,0xc 0399 a603 | | Store_Unchecked 0x3,0x3 039a 00e4 | | Load_Encached Positive_Cache 039b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 039c BODY_0388: 039c 00d9 | | Load_Top At_Offset_1 039d e027 | ' | Load 0x0,0x27 039e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 039f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03a0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03a1 0c01 | | Execute_Immediate Greater_Equal,0x1 03a2 684c |hL | Jump_Zero 0x3ef 03a3 00d9 | | Load_Top At_Offset_1 03a4 e027 | ' | Load 0x0,0x27 03a5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03a6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03a7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 03a8 e027 | ' | Load 0x0,0x27 03a9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03aa 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03ab 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03ac 6842 |hB | Jump_Zero 0x3ef 03ad e404 | | Load 0x2,0x4 03ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03af e404 | | Load 0x2,0x4 03b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03b1 c407 | | Store 0x2,0x7 03b2 8412 | | Call 0x2,0x12 03b3 00cf | | Action Mark_Auxiliary 03b4 7810 |x | Jump 0x3c5 03b5 00d9 | | Load_Top At_Offset_1 03b6 e602 | | Load 0x3,0x2 03b7 e603 | | Load 0x3,0x3 03b8 e027 | ' | Load 0x0,0x27 03b9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03ba 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03bb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 03bc 8418 | | Call 0x2,0x18 03bd 005a | Z | Store_Top Discrete,At_Offset_2 03be 00da | | Load_Top At_Offset_2 03bf e027 | ' | Load 0x0,0x27 03c0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03c1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03c2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03c3 c603 | | Store 0x3,0x3 03c4 00c9 | | Action Pop_Auxiliary_Loop 03c5 00da | | Load_Top At_Offset_2 03c6 e027 | ' | Load 0x0,0x27 03c7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03c8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03c9 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 03ca 6fea |o | Jump_Zero 0x3b5 03cb 00ce | | Action Pop_Auxiliary 03cc e023 | # | Load 0x0,0x23 03cd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 03ce e023 | # | Load 0x0,0x23 03cf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03d0 8210 | | Call 0x1,0x10 03d1 e5ff | | Load 0x2,-0x1 03d2 e022 | " | Load 0x0,0x22 03d3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03d4 0c01 | | Execute_Immediate Greater_Equal,0x1 03d5 6819 |h | Jump_Zero 0x3ef 03d6 e5ff | | Load 0x2,-0x1 03d7 00d9 | | Load_Top At_Offset_1 03d8 8413 | | Call 0x2,0x13 03d9 00cf | | Action Mark_Auxiliary 03da e5ff | | Load 0x2,-0x1 03db e022 | " | Load 0x0,0x22 03dc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03dd e5ff | | Load 0x2,-0x1 03de e022 | " | Load 0x0,0x22 03df 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 03e0 0263 | c | Execute Discrete,Above_Bound 03e1 7007 |p | Jump_Nonzero 0x3e9 03e2 00d8 | | Load_Top At_Offset_0 03e3 e5ff | | Load 0x2,-0x1 03e4 e022 | " | Load 0x0,0x22 03e5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 03e6 8417 | | Call 0x2,0x17 03e7 00c8 | | Action Pop_Auxiliary_Range 03e8 3ff9 |? | Loop_Increasing 0x3e2 03e9 00ce | | Action Pop_Auxiliary 03ea e023 | # | Load 0x0,0x23 03eb 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 03ec e023 | # | Load 0x0,0x23 03ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03ee 8210 | | Call 0x1,0x10 03ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f9 | | .CONST 0x03f9 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0002 | | .CONST 0x0002 ; Number of locals 03f3 INIT_03f0: 03f3 e602 | | Load 0x3,0x2 03f4 e027 | ' | Load 0x0,0x27 03f5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03f6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 03f7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 03f8 840e | | Call 0x2,0xe 03f9 BODY_03f0: 03f9 4801 |H | Short_Literal 0x1 03fa 480d |H | Short_Literal 0xd 03fb e022 | " | Load 0x0,0x22 03fc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 03fd e7fe | | Load 0x3,-0x2 03fe e7fd | | Load 0x3,-0x3 03ff 00e0 | | Load_Encached Standard_Cache 0400 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0401 820f | | Call 0x1,0xf 0402 e603 | | Load 0x3,0x3 0403 700b |p | Jump_Nonzero 0x40f 0404 4801 |H | Short_Literal 0x1 0405 480d |H | Short_Literal 0xd 0406 e022 | " | Load 0x0,0x22 0407 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0408 e7fe | | Load 0x3,-0x2 0409 e7ff | | Load 0x3,-0x1 040a 840d | | Call 0x2,0xd 040b 820f | | Call 0x1,0xf 040c e7fd | | Load 0x3,-0x3 040d a603 | | Store_Unchecked 0x3,0x3 040e 7807 |x | Jump 0x416 040f 4801 |H | Short_Literal 0x1 0410 480d |H | Short_Literal 0xd 0411 e022 | " | Load 0x0,0x22 0412 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0413 e7fe | | Load 0x3,-0x2 0414 00ea | | Load_Encached Null_String_Cache 0415 820f | | Call 0x1,0xf 0416 4801 |H | Short_Literal 0x1 0417 480d |H | Short_Literal 0xd 0418 e022 | " | Load 0x0,0x22 0419 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 041a e7fe | | Load 0x3,-0x2 041b 00db | | Load_Top At_Offset_3 041c 820f | | Call 0x1,0xf 041d e407 | | Load 0x2,0x7 041e 4800 |H | Short_Literal 0x0 041f e402 | | Load 0x2,0x2 0420 0322 | " | Declare_Variable Record 0421 e7fd | | Load 0x3,-0x3 0422 00d9 | | Load_Top At_Offset_1 0423 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0424 e7fd | | Load 0x3,-0x3 0425 00d9 | | Load_Top At_Offset_1 0426 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0427 00db | | Load_Top At_Offset_3 0428 e604 | | Load 0x3,0x4 0429 8411 | | Call 0x2,0x11 042a e404 | | Load 0x2,0x4 042b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 042c c407 | | Store 0x2,0x7 042d e7fd | | Load 0x3,-0x3 042e 0a01 | | Execute_Immediate Plus,0x1 042f c7fd | | Store 0x3,-0x3 0430 e602 | | Load 0x3,0x2 0431 e027 | ' | Load 0x0,0x27 0432 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0433 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0434 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0435 c602 | | Store 0x3,0x2 0436 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0437 ; -------------------------------------------------------------------------------------- 0437 ; STRING TABLE 0437 ; -------------------------------------------------------------------------------------- 0437 001e | | .STRTAB 0x001e->0x0446 ; "X" 0438 001d | | .STRTAB 0x001d->0x0446 ; " *** Illegal State Name Syntax" 0439 0039 | 9 | .STRTAB 0x0039->0x0455 ; ", " 043a 0039 | 9 | .STRTAB 0x0039->0x0456 ; "." 043b 0038 | 8 | .STRTAB 0x0038->0x0457 ; "The system states and modes applicable to this CSCI are listed in Table " 043c 007e | ~ | .STRTAB 0x007e->0x047b ; "CSCI Operating States Identification" 043d 00a0 | | .STRTAB 0x00a0->0x048d ; "Number" 043e 00a4 | | .STRTAB 0x00a4->0x0490 ; "State Name" 043f 00ac | | .STRTAB 0x00ac->0x0495 ; "Mode Name" 0440 00b3 | | .STRTAB 0x00b3->0x0499 ; "The correlation of capabilities to states and modes is shown in Table " 0441 00f7 | | .STRTAB 0x00f7->0x04bc ; "Capability/State Correlation" 0442 0111 | | .STRTAB 0x0111->0x04ca ; "The correlation of CSCs to states and modes is shown in Table " 0443 014d | M | .STRTAB 0x014d->0x04e9 ; "CSC/State Correlation" 0444 0160 | ` | .STRTAB 0x0160->0x04f4 ; "Capability" 0445 0168 | h | .STREND 0x0168->0x04f9 0446 5820 2a2a |X **| .STRTAB_STRINGS 04f9 0000 0000 | | .BLANK 0000[0x7] 0500 ; -------------------------------------------------------------------------------------- 0500 ; Debug Table 0500 ; -------------------------------------------------------------------------------------- 0500 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc9e,0x0000,0x0001,0x0000 0506 c61a cab4 | | .XXX[0xfa] 0508 640c fa21 |d !| 050a fa6a 7f54 | j T| 050c 682b 7dcc |h+} | 050e 3360 79e6 |3`y | 0510 4188 0026 |A &| 0512 a7af 4cc7 | L | 0514 017e 1c04 | ~ | 0516 635c 5596 |c\U | 0518 3806 84a1 |8 | 051a f058 90c5 | X | 051c ce20 2b00 | + | 051e 6ab9 cfc9 |j | 0520 4649 1130 |FI 0| 0522 741b 0059 |t Y| 0524 40e4 913a |@ :| 0526 85ca 3806 | 8 | 0528 6b11 8803 |k | 052a 0ab8 be98 | | 052c d3e1 0876 | v| 052e ba38 051a | 8 | 0530 a6bf 44c7 | D | 0532 8053 176c | S l| 0534 e819 5043 | PC| 0536 bda3 1e03 | | 0538 0652 4b9c | RK | 053a 6142 4009 |aB@ | 053c 0084 0fa9 | | 053e 4460 c190 |D` | 0540 0059 2afe | Y* | 0542 1830 e13d | 0 =| 0544 17ca 4005 | @ | 0546 aca6 943c | <| 0548 cb80 da95 | | 054a 9504 1b82 | | 054c 8b89 7722 | w"| 054e 01cb 524c | RL| 0550 2064 822c | d ,| 0552 4906 d60f |I | 0554 5943 a885 |YC | 0556 9300 0345 | E| 0558 c5d1 ec85 | | 055a 3bc6 a240 |; @| 055c 04a6 a448 | H| 055e 6ccb 80cb |l | 0560 143f 8860 | ? `| 0562 bae2 4006 | @ | 0564 7aa0 606c |z `l| 0566 c880 9217 | | 0568 7104 1bf2 |q | 056a 9748 cb22 | H "| 056c 02b8 51d4 | Q | 056e 1c65 8251 | e Q| 0570 6908 840d |i | 0572 2144 0c65 |!D e| 0574 9202 7f26 | &| 0576 8e95 6cad | l | 0578 54d6 a5d1 |T | 057a ae60 ab18 | ` | 057c 40c9 8191 |@ | 057e 5440 e965 |T@ e| 0580 e6d2 993d | =| 0582 f8a9 1d24 | $| 0584 ca80 7bd4 | { | 0586 d528 1a90 | ( | 0588 303d 5f28 |0=_(| 058a 00da 6e7a | nz| 058c 1c1b 4298 | B | 058e a90c a40f | | 0590 91d4 6001 | ` | 0592 3169 4518 |1iE | 0594 6582 a1cb |e | 0596 c540 50ce | @P | 0598 1f88 012d | -| 059a 8a7d a92d | } -| 059c 9545 9206 | E | 059e 7434 ea25 |t4 %| 05a0 6ea8 e650 |n P| 05a2 cb02 8fe0 | | 05a4 3da0 4998 |= I | 05a6 01f9 8044 | D| 05a8 eeac 5434 | T4| 05aa 0148 978d | H | 05ac 4419 0293 |D | 05ae f951 2484 | Q$ | 05b0 2548 c410 |%H | 05b2 a0d1 20e8 | | 05b4 03a1 e250 | P| 05b6 0476 ad46 | v F| 05b8 3ccb 8359 |< Y| 05ba d003 e228 | (| 05bc a00e d955 | U| 05be 6a45 9703 |jE | 05c0 28ab a6c8 |( | 05c2 3140 bd54 |1@ T| 05c4 e038 9526 | 8 &| 05c6 0d6e 6caa | nl | 05c8 39e7 e03c |9 <| 05ca 20ab 736a | sj| 05cc 599f 410c |Y A | 05ce f574 1b00 | t | 05d0 92d4 706f | po| 05d2 eaf1 22c1 | " | 05d4 09fa a8c3 | | 05d6 5cca 0309 |\ | 05d8 d000 e1cc | | 05da c40d 595a | YZ| 05dc 0682 4c44 | LD| 05de 97a6 aa22 | "| 05e0 91ca 54c0 | T | 05e2 0d69 001c | i | 05e4 018c 3ccc | < | 05e6 80d5 d400 | | 05e8 03c0 c00d | | 05ea 0115 5a3e | Z>| 05ec 2e45 34a5 |.E4 | 05ee 49d4 c668 |I h| 05f0 cc74 0218 | t | 05f2 f330 010c | 0 | 05f4 5572 2088 |Ur | 05f6 1a99 2ae8 | * | 05f8 c40f 110c | | 05fa 1e00 ad27 | '| 05fc c021 3355 | !3U| 05fe 2988 1b50 |) P|