|
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: 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 For_Call,INIT_0050
002f 029f 0073 | s| Declare_Subprogram For_Call,INIT_0070
0031 029f 008b | | Declare_Subprogram For_Call,INIT_0088
0033 029f 00ab | | Declare_Subprogram For_Call,INIT_00a8
0035 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
0037 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
0039 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
003b 029f 0153 | S| Declare_Subprogram For_Call,INIT_0150
003d 029f 0163 | c| Declare_Subprogram For_Call,INIT_0160
003f 029f 019b | | Declare_Subprogram For_Call,INIT_0198
0041 029f 021b | | Declare_Subprogram For_Call,INIT_0218
0043 029f 023b | ;| Declare_Subprogram For_Call,INIT_0238
0045 029f 0253 | S| Declare_Subprogram For_Call,INIT_0250
0047 029f 0263 | c| Declare_Subprogram For_Call,INIT_0260
0049 029f 032b | +| Declare_Subprogram For_Call,INIT_0328
004b 029f 038b | | Declare_Subprogram For_Call,INIT_0388
004d BODY_0008:
004d 8419 | | Call 0x2,0x19
004e 4502 |E | Exit_Subprogram 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 0x6
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 0x8
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_03f0
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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"
; "State Name"
043f 00ac | | .STRTAB 0x00ac->0x0495 ; "Mode Name"
; "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"
; "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|