|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0510 | | .CONST 0x0510 ; 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 0136 | 6 | .CONST 0x0136 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002e | . | .CONST 0x002e ; Number of locals 000b INIT_0008: 000b 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 000d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 000f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0011 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0013 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0015 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0017 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0019 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 001b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 001d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 001f 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0021 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0023 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0025 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0027 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0029 e002 | | Load 0x0,0x2 002a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 002b e003 | | Load 0x0,0x3 002c e004 | | Load 0x0,0x4 002d 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 002f 4803 |H | Short_Literal 0x3 0030 032e | . | Declare_Type Record,Defined,Visible 0031 4800 |H | Short_Literal 0x0 0032 4802 |H | Short_Literal 0x2 0033 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 0035 03fe | | Declare_Type Discrete,Defined,Visible 0036 00d9 | | Load_Top At_Offset_1 0037 00e1 | | Load_Encached Boolean_Cache 0038 00da | | Load_Top At_Offset_2 0039 00e1 | | Load_Encached Boolean_Cache 003a e005 | | Load 0x0,0x5 003b 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 003d 4805 |H | Short_Literal 0x5 003e 032e | . | Declare_Type Record,Defined,Visible 003f 00bf | | Action Accept_Activation 0040 e006 | | Load 0x0,0x6 0041 e007 | | Load 0x0,0x7 0042 00db | | Load_Top At_Offset_3 0043 4800 |H | Short_Literal 0x0 0044 4801 |H | Short_Literal 0x1 0045 4802 |H | Short_Literal 0x2 0046 0092 047e | ~| Action Push_String_Extended,0x47e ; "others => Unspecified" 0048 00ea | | Load_Encached Null_String_Cache 0049 00ea | | Load_Encached Null_String_Cache 004a 4801 |H | Short_Literal 0x1 004b 4802 |H | Short_Literal 0x2 004c e008 | | Load 0x0,0x8 004d 0387 | | Declare_Variable Package 004e 00d8 | | Load_Top At_Offset_0 004f 020f | | Execute Module,Activate 0050 e009 | | Load 0x0,0x9 0051 0266 | f | Execute Discrete,Bounds 0052 e009 | | Load 0x0,0x9 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 4801 |H | Short_Literal 0x1 0055 035d | ] | Declare_Type Array,Defined 0056 00d8 | | Load_Top At_Offset_0 0057 0337 | 7 | Declare_Variable Array 0058 00d8 | | Load_Top At_Offset_0 0059 0335 | 5 | Declare_Variable Array,Duplicate 005a 00cd | | Action Spare6_Action 005b 4800 |H | Short_Literal 0x0 005c 4800 |H | Short_Literal 0x0 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 4801 |H | Short_Literal 0x1 0060 4801 |H | Short_Literal 0x1 0061 00da | | Load_Top At_Offset_2 0062 01d6 | | Execute Vector,Field_Write 0063 4802 |H | Short_Literal 0x2 0064 4802 |H | Short_Literal 0x2 0065 00da | | Load_Top At_Offset_2 0066 01d6 | | Execute Vector,Field_Write 0067 4803 |H | Short_Literal 0x3 0068 4803 |H | Short_Literal 0x3 0069 00da | | Load_Top At_Offset_2 006a 01d6 | | Execute Vector,Field_Write 006b 4804 |H | Short_Literal 0x4 006c 4804 |H | Short_Literal 0x4 006d 00da | | Load_Top At_Offset_2 006e 01d6 | | Execute Vector,Field_Write 006f 4805 |H | Short_Literal 0x5 0070 4805 |H | Short_Literal 0x5 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 4806 |H | Short_Literal 0x6 0074 4806 |H | Short_Literal 0x6 0075 00da | | Load_Top At_Offset_2 0076 01d6 | | Execute Vector,Field_Write 0077 4807 |H | Short_Literal 0x7 0078 4807 |H | Short_Literal 0x7 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b 4808 |H | Short_Literal 0x8 007c 4808 |H | Short_Literal 0x8 007d 00da | | Load_Top At_Offset_2 007e 01d6 | | Execute Vector,Field_Write 007f 4809 |H | Short_Literal 0x9 0080 4809 |H | Short_Literal 0x9 0081 00da | | Load_Top At_Offset_2 0082 01d6 | | Execute Vector,Field_Write 0083 480a |H | Short_Literal 0xa 0084 480a |H | Short_Literal 0xa 0085 00da | | Load_Top At_Offset_2 0086 01d6 | | Execute Vector,Field_Write 0087 480b |H | Short_Literal 0xb 0088 480b |H | Short_Literal 0xb 0089 00da | | Load_Top At_Offset_2 008a 01d6 | | Execute Vector,Field_Write 008b 480c |H | Short_Literal 0xc 008c 480c |H | Short_Literal 0xc 008d 00da | | Load_Top At_Offset_2 008e 01d6 | | Execute Vector,Field_Write 008f 480d |H | Short_Literal 0xd 0090 480d |H | Short_Literal 0xd 0091 00da | | Load_Top At_Offset_2 0092 01d6 | | Execute Vector,Field_Write 0093 480e |H | Short_Literal 0xe 0094 480e |H | Short_Literal 0xe 0095 00da | | Load_Top At_Offset_2 0096 01d6 | | Execute Vector,Field_Write 0097 00d9 | | Load_Top At_Offset_1 0098 01d4 | | Execute Vector,Structure_Write 0099 4800 |H | Short_Literal 0x0 009a 4804 |H | Short_Literal 0x4 009b 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 009d 03fd | | Declare_Type Discrete,Defined 009e 00d8 | | Load_Top At_Offset_0 009f 0266 | f | Execute Discrete,Bounds 00a0 e009 | | Load 0x0,0x9 00a1 02a0 | | Declare_Subprogram Null_Subprogram 00a2 4801 |H | Short_Literal 0x1 00a3 035d | ] | Declare_Type Array,Defined 00a4 00d8 | | Load_Top At_Offset_0 00a5 0337 | 7 | Declare_Variable Array 00a6 00d8 | | Load_Top At_Offset_0 00a7 0335 | 5 | Declare_Variable Array,Duplicate 00a8 00cd | | Action Spare6_Action 00a9 4802 |H | Short_Literal 0x2 00aa 4800 |H | Short_Literal 0x0 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad 480c |H | Short_Literal 0xc 00ae 4801 |H | Short_Literal 0x1 00af 00da | | Load_Top At_Offset_2 00b0 01d6 | | Execute Vector,Field_Write 00b1 480d |H | Short_Literal 0xd 00b2 4802 |H | Short_Literal 0x2 00b3 00da | | Load_Top At_Offset_2 00b4 01d6 | | Execute Vector,Field_Write 00b5 480e |H | Short_Literal 0xe 00b6 4803 |H | Short_Literal 0x3 00b7 00da | | Load_Top At_Offset_2 00b8 01d6 | | Execute Vector,Field_Write 00b9 4805 |H | Short_Literal 0x5 00ba 4804 |H | Short_Literal 0x4 00bb 00da | | Load_Top At_Offset_2 00bc 01d6 | | Execute Vector,Field_Write 00bd 00d9 | | Load_Top At_Offset_1 00be 01d4 | | Execute Vector,Structure_Write 00bf e009 | | Load 0x0,0x9 00c0 0266 | f | Execute Discrete,Bounds 00c1 e009 | | Load 0x0,0x9 00c2 02a0 | | Declare_Subprogram Null_Subprogram 00c3 4801 |H | Short_Literal 0x1 00c4 035d | ] | Declare_Type Array,Defined 00c5 00d8 | | Load_Top At_Offset_0 00c6 0337 | 7 | Declare_Variable Array 00c7 00d8 | | Load_Top At_Offset_0 00c8 0335 | 5 | Declare_Variable Array,Duplicate 00c9 00cd | | Action Spare6_Action 00ca 4804 |H | Short_Literal 0x4 00cb 4802 |H | Short_Literal 0x2 00cc 00da | | Load_Top At_Offset_2 00cd 01d6 | | Execute Vector,Field_Write 00ce 4804 |H | Short_Literal 0x4 00cf 4801 |H | Short_Literal 0x1 00d0 00da | | Load_Top At_Offset_2 00d1 01d6 | | Execute Vector,Field_Write 00d2 480c |H | Short_Literal 0xc 00d3 480c |H | Short_Literal 0xc 00d4 00da | | Load_Top At_Offset_2 00d5 01d6 | | Execute Vector,Field_Write 00d6 480d |H | Short_Literal 0xd 00d7 480d |H | Short_Literal 0xd 00d8 00da | | Load_Top At_Offset_2 00d9 01d6 | | Execute Vector,Field_Write 00da 480e |H | Short_Literal 0xe 00db 480e |H | Short_Literal 0xe 00dc 00da | | Load_Top At_Offset_2 00dd 01d6 | | Execute Vector,Field_Write 00de 4805 |H | Short_Literal 0x5 00df 4805 |H | Short_Literal 0x5 00e0 00da | | Load_Top At_Offset_2 00e1 01d6 | | Execute Vector,Field_Write 00e2 4800 |H | Short_Literal 0x0 00e3 4800 |H | Short_Literal 0x0 00e4 00da | | Load_Top At_Offset_2 00e5 01d6 | | Execute Vector,Field_Write 00e6 4800 |H | Short_Literal 0x0 00e7 4803 |H | Short_Literal 0x3 00e8 00da | | Load_Top At_Offset_2 00e9 01d6 | | Execute Vector,Field_Write 00ea 4800 |H | Short_Literal 0x0 00eb 4806 |H | Short_Literal 0x6 00ec 00da | | Load_Top At_Offset_2 00ed 01d6 | | Execute Vector,Field_Write 00ee 4800 |H | Short_Literal 0x0 00ef 4807 |H | Short_Literal 0x7 00f0 00da | | Load_Top At_Offset_2 00f1 01d6 | | Execute Vector,Field_Write 00f2 4800 |H | Short_Literal 0x0 00f3 4808 |H | Short_Literal 0x8 00f4 00da | | Load_Top At_Offset_2 00f5 01d6 | | Execute Vector,Field_Write 00f6 4800 |H | Short_Literal 0x0 00f7 4809 |H | Short_Literal 0x9 00f8 00da | | Load_Top At_Offset_2 00f9 01d6 | | Execute Vector,Field_Write 00fa 4800 |H | Short_Literal 0x0 00fb 480a |H | Short_Literal 0xa 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe 4800 |H | Short_Literal 0x0 00ff 480b |H | Short_Literal 0xb 0100 00da | | Load_Top At_Offset_2 0101 01d6 | | Execute Vector,Field_Write 0102 4800 |H | Short_Literal 0x0 0103 4804 |H | Short_Literal 0x4 0104 00da | | Load_Top At_Offset_2 0105 01d6 | | Execute Vector,Field_Write 0106 00d9 | | Load_Top At_Offset_1 0107 01d4 | | Execute Vector,Structure_Write 0108 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0109 00c7 | | Action Elaborate_Subprogram 010a 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 010c 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 010e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 010f 00c7 | | Action Elaborate_Subprogram 0110 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0111 00c7 | | Action Elaborate_Subprogram 0112 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0113 00c7 | | Action Elaborate_Subprogram 0114 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0115 00c7 | | Action Elaborate_Subprogram 0116 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0117 00c7 | | Action Elaborate_Subprogram 0118 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0119 00c7 | | Action Elaborate_Subprogram 011a 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 011c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 011d 00c7 | | Action Elaborate_Subprogram 011e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 011f 00c7 | | Action Elaborate_Subprogram 0120 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0122 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0124 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 0126 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0128 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0129 00c7 | | Action Elaborate_Subprogram 012a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 012b 00c7 | | Action Elaborate_Subprogram 012c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 012d 00c7 | | Action Elaborate_Subprogram 012e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 012f 00c7 | | Action Elaborate_Subprogram 0130 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0131 00c7 | | Action Elaborate_Subprogram 0132 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 0134 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0135 00c7 | | Action Elaborate_Subprogram 0136 BODY_0008: 0136 00bc | | Action Signal_Activated 0137 00bb | | Action Signal_Completion 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013f | ? | .CONST 0x013f ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e21c | | Load 0x1,0x1c 013c 0322 | " | Declare_Variable Record 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f BODY_0138: 013f 00db | | Load_Top At_Offset_3 0140 00d9 | | Load_Top At_Offset_1 0141 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0142 00d8 | | Load_Top At_Offset_0 0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0151 | Q | .CONST 0x0151 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e21c | | Load 0x1,0x1c 014c 0322 | " | Declare_Variable Record 014d 00d8 | | Load_Top At_Offset_0 014e 1c00 | | Execute_Immediate Run_Utility,0x0 014f 00db | | Load_Top At_Offset_3 0150 800a | | Call 0x0,0xa 0151 BODY_0148: 0151 e5fe | | Load 0x2,-0x2 0152 820d | | Call 0x1,0xd 0153 00da | | Load_Top At_Offset_2 0154 017d | } | Execute Record,Structure_Write 0155 00d9 | | Load_Top At_Offset_1 0156 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0157 e5fe | | Load 0x2,-0x2 0158 e5ff | | Load 0x2,-0x1 0159 8227 | ' | Call 0x1,0x27 015a 00d1 | | Pop_Control Pop_Count_1 015b e5fe | | Load 0x2,-0x2 015c 00d9 | | Load_Top At_Offset_1 015d 8228 | ( | Call 0x1,0x28 015e e5ff | | Load 0x2,-0x1 015f 800b | | Call 0x0,0xb 0160 800c | | Call 0x0,0xc 0161 800d | | Call 0x0,0xd 0162 800e | | Call 0x0,0xe 0163 00da | | Load_Top At_Offset_2 0164 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0165 00d9 | | Load_Top At_Offset_1 0166 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0172 | r | .CONST 0x0172 ; Address of begin 0169 0191 | | .CONST 0x0191 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c e21f | | Load 0x1,0x1f 016d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 016e e21c | | Load 0x1,0x1c 016f 0322 | " | Declare_Variable Record 0170 00d8 | | Load_Top At_Offset_0 0171 1c00 | | Execute_Immediate Run_Utility,0x0 0172 BODY_0168: 0172 00d9 | | Load_Top At_Offset_1 0173 e21f | | Load 0x1,0x1f 0174 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0175 7002 |p | Jump_Nonzero 0x178 0176 e00f | | Load 0x0,0xf 0177 0257 | W | Execute Discrete,Raise 0178 e5fe | | Load 0x2,-0x2 0179 820d | | Call 0x1,0xd 017a 00d9 | | Load_Top At_Offset_1 017b 017d | } | Execute Record,Structure_Write 017c e5fe | | Load 0x2,-0x2 017d 00ea | | Load_Encached Null_String_Cache 017e 00ea | | Load_Encached Null_String_Cache 017f 4801 |H | Short_Literal 0x1 0180 e402 | | Load 0x2,0x2 0181 e21f | | Load 0x1,0x1f 0182 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0183 800e | | Call 0x0,0xe 0184 00d9 | | Load_Top At_Offset_1 0185 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0186 e5fe | | Load 0x2,-0x2 0187 00ea | | Load_Encached Null_String_Cache 0188 4802 |H | Short_Literal 0x2 0189 e402 | | Load 0x2,0x2 018a e21f | | Load 0x1,0x1f 018b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 018c 8010 | | Call 0x0,0x10 018d 00d9 | | Load_Top At_Offset_1 018e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018f 00d8 | | Load_Top At_Offset_0 0190 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0191 TRAP_0168: 0191 0007 | | Action Break_Optional 0192 00d9 | | Load_Top At_Offset_1 0193 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00db | | Load_Top At_Offset_3 01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a5 00db | | Load_Top At_Offset_3 01a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a7 8011 | | Call 0x0,0x11 01a8 6806 |h | Jump_Zero 0x1af 01a9 00db | | Load_Top At_Offset_3 01aa 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01ab 00db | | Load_Top At_Offset_3 01ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01ad 8012 | | Call 0x0,0x12 01ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01af 4800 |H | Short_Literal 0x0 01b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01bd 8013 | | Call 0x0,0x13 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c5 8014 | | Call 0x0,0x14 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01cd 0320 | | Declare_Variable Record,Duplicate 01ce 00cd | | Action Spare6_Action 01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e5fd | | Load 0x2,-0x3 01d4 8210 | | Call 0x1,0x10 01d5 00d1 | | Pop_Control Pop_Count_1 01d6 00db | | Load_Top At_Offset_3 01d7 820d | | Call 0x1,0xd 01d8 e5fd | | Load 0x2,-0x3 01d9 017d | } | Execute Record,Structure_Write 01da 00da | | Load_Top At_Offset_2 01db 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01dc e5fd | | Load 0x2,-0x3 01dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01de 00da | | Load_Top At_Offset_2 01df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e0 e5fd | | Load 0x2,-0x3 01e1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f6 | | .CONST 0x01f6 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0004 | | .CONST 0x0004 ; Number of locals 01eb INIT_01e8: 01eb e015 | | Load 0x0,0x15 01ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ed e016 | | Load 0x0,0x16 01ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ef 4802 |H | Short_Literal 0x2 01f0 e5ff | | Load 0x2,-0x1 01f1 8212 | | Call 0x1,0x12 01f2 8017 | | Call 0x0,0x17 01f3 00d8 | | Load_Top At_Offset_0 01f4 8228 | ( | Call 0x1,0x28 01f5 00e1 | | Load_Encached Boolean_Cache 01f6 BODY_01e8: 01f6 00d9 | | Load_Top At_Offset_1 01f7 e5ff | | Load 0x2,-0x1 01f8 8213 | | Call 0x1,0x13 01f9 01df | | Execute Vector,Equal 01fa 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01fb 00d8 | | Load_Top At_Offset_0 01fc 0f00 | | Execute_Immediate Equal,0x0 01fd e5fe | | Load 0x2,-0x2 01fe 0279 | y | Execute Discrete,And 01ff 6824 |h$ | Jump_Zero 0x224 0200 00d9 | | Load_Top At_Offset_1 0201 01db | | Execute Vector,Length 0202 700d |p | Jump_Nonzero 0x210 0203 e018 | | Load 0x0,0x18 0204 180e | | Execute Package,Field_Execute,Field_Number 0xe 0205 4806 |H | Short_Literal 0x6 0206 0092 047f | | Action Push_String_Extended,0x47f ; "Test Case " 0208 e402 | | Load 0x2,0x2 0209 01cc | | Execute Vector,Catenate 020a 0092 0480 | | Action Push_String_Extended,0x480 ; " is not accessible." 020c 01cc | | Execute Vector,Catenate 020d e019 | | Load 0x0,0x19 020e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 020f 7814 |x | Jump 0x224 0210 e018 | | Load 0x0,0x18 0211 180e | | Execute Package,Field_Execute,Field_Number 0xe 0212 4806 |H | Short_Literal 0x6 0213 0092 047f | | Action Push_String_Extended,0x47f ; "Test Case " 0215 e402 | | Load 0x2,0x2 0216 01cc | | Execute Vector,Catenate 0217 0092 0481 | | Action Push_String_Extended,0x481 ; " is not consistent. Time stamp in Test Set: " 0219 01cc | | Execute Vector,Catenate 021a e5ff | | Load 0x2,-0x1 021b 8213 | | Call 0x1,0x13 021c 01cc | | Execute Vector,Catenate 021d 0092 0482 | | Action Push_String_Extended,0x482 ; " does not equal " 021f 01cc | | Execute Vector,Catenate 0220 e403 | | Load 0x2,0x3 0221 01cc | | Execute Vector,Catenate 0222 e019 | | Load 0x0,0x19 0223 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0224 00d8 | | Load_Top At_Offset_0 0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022d | - | .CONST 0x022d ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 022d BODY_0228: 022d e5fe | | Load 0x2,-0x2 022e e5ff | | Load 0x2,-0x1 022f 8216 | | Call 0x1,0x16 0230 6802 |h | Jump_Zero 0x233 0231 4801 |H | Short_Literal 0x1 0232 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0233 8402 | | Call 0x2,0x2 0234 0831 | 1 | Execute_Immediate Raise,0x31 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023f | ? | .CONST 0x023f ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e21e | | Load 0x1,0x1e 023c 0322 | " | Declare_Variable Record 023d 00d8 | | Load_Top At_Offset_0 023e 1c00 | | Execute_Immediate Run_Utility,0x0 023f BODY_0238: 023f 00db | | Load_Top At_Offset_3 0240 00d9 | | Load_Top At_Offset_1 0241 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0242 4801 |H | Short_Literal 0x1 0243 00d9 | | Load_Top At_Offset_1 0244 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0245 00d8 | | Load_Top At_Offset_0 0246 00d9 | | Load_Top At_Offset_1 0247 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0248 822a | * | Call 0x1,0x2a 0249 00d1 | | Pop_Control Pop_Count_1 024a 00d8 | | Load_Top At_Offset_0 024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025d | ] | .CONST 0x025d ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b 029f 0413 | | Declare_Subprogram INIT_0410,For_Call 025d BODY_0258: 025d 00db | | Load_Top At_Offset_3 025e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 025f 0f02 | | Execute_Immediate Equal,0x2 0260 6802 |h | Jump_Zero 0x263 0261 8402 | | Call 0x2,0x2 0262 7816 |x | Jump 0x279 0263 00db | | Load_Top At_Offset_3 0264 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0265 680e |h | Jump_Zero 0x274 0266 00db | | Load_Top At_Offset_3 0267 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0268 e21d | | Load 0x1,0x1d 0269 011c | | Execute Any,Convert_Unchecked 026a 1c01 | | Execute_Immediate Run_Utility,0x1 026b 0092 0483 | | Action Push_String_Extended,0x483 ; "=>" 026d 01cc | | Execute Vector,Catenate 026e e5ff | | Load 0x2,-0x1 026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0270 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0271 801a | | Call 0x0,0x1a 0272 01cc | | Execute Vector,Catenate 0273 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0274 00db | | Load_Top At_Offset_3 0275 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0276 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0277 801a | | Call 0x0,0x1a 0278 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0279 0831 | 1 | Execute_Immediate Raise,0x31 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0285 7022 |p" | Jump_Nonzero 0x2a8 0286 00da | | Load_Top At_Offset_2 0287 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0288 0f02 | | Execute_Immediate Equal,0x2 0289 680b |h | Jump_Zero 0x295 028a 00da | | Load_Top At_Offset_2 028b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 028c 00db | | Load_Top At_Offset_3 028d 822c | , | Call 0x1,0x2c 028e 7006 |p | Jump_Nonzero 0x295 028f 00da | | Load_Top At_Offset_2 0290 00db | | Load_Top At_Offset_3 0291 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0292 822b | + | Call 0x1,0x2b 0293 00d1 | | Pop_Control Pop_Count_1 0294 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0295 00da | | Load_Top At_Offset_2 0296 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0297 0f02 | | Execute_Immediate Equal,0x2 0298 6804 |h | Jump_Zero 0x29d 0299 4801 |H | Short_Literal 0x1 029a 00db | | Load_Top At_Offset_3 029b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 029c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029d e21d | | Load 0x1,0x1d 029e 00db | | Load_Top At_Offset_3 029f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a0 0268 | h | Execute Discrete,Successor 02a1 00db | | Load_Top At_Offset_3 02a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02a3 00da | | Load_Top At_Offset_2 02a4 00db | | Load_Top At_Offset_3 02a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a6 822a | * | Call 0x1,0x2a 02a7 00d1 | | Pop_Control Pop_Count_1 02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 4607 |F | Jump_Case 0x8 02b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02b5 7807 |x | Jump 0x2bd ; case 0x1 02b6 780a |x | Jump 0x2c1 ; case 0x2 02b7 780e |x | Jump 0x2c6 ; case 0x3 02b8 7811 |x | Jump 0x2ca ; case 0x4 02b9 7812 |x | Jump 0x2cc ; case 0x5 02ba 7813 |x | Jump 0x2ce ; case 0x6 02bb 7816 |x | Jump 0x2d2 ; case 0x7 02bc 4302 |C | .XXX[0x1] 02bd 00da | | Load_Top At_Offset_2 02be 0091 0476 | v| Action Push_String_Extended_Indexed,0x476 ; "NONE" 02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c1 00db | | Load_Top At_Offset_3 02c2 00db | | Load_Top At_Offset_3 02c3 00e0 | | Load_Encached Standard_Cache 02c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c6 00da | | Load_Top At_Offset_2 02c7 00e0 | | Load_Encached Standard_Cache 02c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02ca 00db | | Load_Top At_Offset_3 02cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02cc 00db | | Load_Top At_Offset_3 02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ce e21d | | Load 0x1,0x1d 02cf 00dc | | Load_Top At_Offset_4 02d0 0267 | g | Execute Discrete,Predecessor 02d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d2 e21d | | Load 0x1,0x1d 02d3 00dc | | Load_Top At_Offset_4 02d4 0268 | h | Execute Discrete,Successor 02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4607 |F | Jump_Case 0x8 02dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02dd 7807 |x | Jump 0x2e5 ; case 0x1 02de 780a |x | Jump 0x2e9 ; case 0x2 02df 780e |x | Jump 0x2ee ; case 0x3 02e0 7811 |x | Jump 0x2f2 ; case 0x4 02e1 7812 |x | Jump 0x2f4 ; case 0x5 02e2 7813 |x | Jump 0x2f6 ; case 0x6 02e3 7816 |x | Jump 0x2fa ; case 0x7 02e4 4302 |C | .XXX[0x1] 02e5 00da | | Load_Top At_Offset_2 02e6 0091 0479 | y| Action Push_String_Extended_Indexed,0x479 ; "DC_DRIVER" 02e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02e9 00db | | Load_Top At_Offset_3 02ea 00db | | Load_Top At_Offset_3 02eb 00e0 | | Load_Encached Standard_Cache 02ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ee 00da | | Load_Top At_Offset_2 02ef 00e0 | | Load_Encached Standard_Cache 02f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02f2 00db | | Load_Top At_Offset_3 02f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f4 00db | | Load_Top At_Offset_3 02f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f6 e222 | " | Load 0x1,0x22 02f7 00dc | | Load_Top At_Offset_4 02f8 0267 | g | Execute Discrete,Predecessor 02f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fa e222 | " | Load 0x1,0x22 02fb 00dc | | Load_Top At_Offset_4 02fc 0268 | h | Execute Discrete,Successor 02fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0309 | | .CONST 0x0309 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0002 | | .CONST 0x0002 ; Number of locals 0303 INIT_0300: 0303 e004 | | Load 0x0,0x4 0304 0322 | " | Declare_Variable Record 0305 00db | | Load_Top At_Offset_3 0306 800b | | Call 0x0,0xb 0307 00d9 | | Load_Top At_Offset_1 0308 017d | } | Execute Record,Structure_Write 0309 BODY_0300: 0309 e5fe | | Load 0x2,-0x2 030a 801b | | Call 0x0,0x1b 030b e5fd | | Load 0x2,-0x3 030c 017d | } | Execute Record,Structure_Write 030d e5fd | | Load 0x2,-0x3 030e e5fe | | Load 0x2,-0x2 030f 00da | | Load_Top At_Offset_2 0310 801c | | Call 0x0,0x1c 0311 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0312 0000 0000 | | .BLANK 0000[0x6] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 4801 |H | Short_Literal 0x1 031c 00db | | Load_Top At_Offset_3 031d 801d | | Call 0x0,0x1d 031e 801e | | Call 0x0,0x1e 031f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0325 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c 4800 |H | Short_Literal 0x0 032d 4801 |H | Short_Literal 0x1 032e 0262 | b | Execute Discrete,In_Range 032f 7006 |p | Jump_Nonzero 0x336 0330 00db | | Load_Top At_Offset_3 0331 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0332 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0333 801f | | Call 0x0,0x1f 0334 e5fe | | Load 0x2,-0x2 0335 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0336 4801 |H | Short_Literal 0x1 0337 e5fe | | Load 0x2,-0x2 0338 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 4800 |H | Short_Literal 0x0 0345 4801 |H | Short_Literal 0x1 0346 0262 | b | Execute Discrete,In_Range 0347 7004 |p | Jump_Nonzero 0x34c 0348 00db | | Load_Top At_Offset_3 0349 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 034a 8020 | | Call 0x0,0x20 034b 00d1 | | Pop_Control Pop_Count_1 034c 4800 |H | Short_Literal 0x0 034d e5fe | | Load 0x2,-0x2 034e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 034f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00db | | Load_Top At_Offset_3 0354 4800 |H | Short_Literal 0x0 0355 4801 |H | Short_Literal 0x1 0356 0262 | b | Execute Discrete,In_Range 0357 7004 |p | Jump_Nonzero 0x35c 0358 00da | | Load_Top At_Offset_2 0359 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 035a 8021 | ! | Call 0x0,0x21 035b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 035c 4801 |H | Short_Literal 0x1 035d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 035e 0000 0000 | | .XXX[0x2] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00db | | Load_Top At_Offset_3 0364 00db | | Load_Top At_Offset_3 0365 822c | , | Call 0x1,0x2c 0366 6803 |h | Jump_Zero 0x36a 0367 0092 0484 | | Action Push_String_Extended,0x484 ; ")" 0369 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036a 00db | | Load_Top At_Offset_3 036b 4800 |H | Short_Literal 0x0 036c 4801 |H | Short_Literal 0x1 036d 0262 | b | Execute Discrete,In_Range 036e 7005 |p | Jump_Nonzero 0x374 036f 4804 |H | Short_Literal 0x4 0370 00db | | Load_Top At_Offset_3 0371 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0372 8022 | " | Call 0x0,0x22 0373 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0374 00ea | | Load_Encached Null_String_Cache 0375 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0376 0000 0000 | | .XXX[0x2] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0388 | | .CONST 0x0388 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0004 | | .CONST 0x0004 ; Number of locals 037b INIT_0378: 037b 4800 |H | Short_Literal 0x0 037c 4800 |H | Short_Literal 0x0 037d e5ff | | Load 0x2,-0x1 037e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 037f e5fd | | Load 0x2,-0x3 0380 8023 | # | Call 0x0,0x23 0381 800d | | Call 0x0,0xd 0382 e5fe | | Load 0x2,-0x2 0383 e5fd | | Load 0x2,-0x3 0384 8024 | $ | Call 0x0,0x24 0385 800d | | Call 0x0,0xd 0386 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call 0388 BODY_0378: 0388 00da | | Load_Top At_Offset_2 0389 00da | | Load_Top At_Offset_2 038a 01de | | Execute Vector,Not_Equal 038b 6802 |h | Jump_Zero 0x38e 038c 4800 |H | Short_Literal 0x0 038d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 038e 00da | | Load_Top At_Offset_2 038f 01db | | Execute Vector,Length 0390 700a |p | Jump_Nonzero 0x39b 0391 e5fd | | Load 0x2,-0x3 0392 0f02 | | Execute_Immediate Equal,0x2 0393 6805 |h | Jump_Zero 0x399 0394 4801 |H | Short_Literal 0x1 0395 e5fe | | Load 0x2,-0x2 0396 e5ff | | Load 0x2,-0x1 0397 822e | . | Call 0x1,0x2e 0398 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0399 4801 |H | Short_Literal 0x1 039a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 039b 8404 | | Call 0x2,0x4 039c 0831 | 1 | Execute_Immediate Raise,0x31 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03bf | | .CONST 0x03bf ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0006 | | .CONST 0x0006 ; Number of locals 03a3 INIT_03a0: 03a3 e015 | | Load 0x0,0x15 03a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a5 e016 | | Load 0x0,0x16 03a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a7 4802 |H | Short_Literal 0x2 03a8 e5ff | | Load 0x2,-0x1 03a9 8212 | | Call 0x1,0x12 03aa 8017 | | Call 0x0,0x17 03ab e003 | | Load 0x0,0x3 03ac e015 | | Load 0x0,0x15 03ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03ae e016 | | Load 0x0,0x16 03af 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b0 00da | | Load_Top At_Offset_2 03b1 8025 | % | Call 0x0,0x25 03b2 0031 | 1 | Store_Top Heap_Access,At_Offset_1 03b3 e015 | | Load 0x0,0x15 03b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b5 e016 | | Load 0x0,0x16 03b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b7 8026 | & | Call 0x0,0x26 03b8 e027 | ' | Load 0x0,0x27 03b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ba 02c7 | | Declare_Variable Any 03bb 00d8 | | Load_Top At_Offset_0 03bc 1c00 | | Execute_Immediate Run_Utility,0x0 03bd 00e1 | | Load_Encached Boolean_Cache 03be 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03bf BODY_03a0: 03bf 00da | | Load_Top At_Offset_2 03c0 e603 | | Load 0x3,0x3 03c1 4800 |H | Short_Literal 0x0 03c2 8028 | ( | Call 0x0,0x28 03c3 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03c4 00d9 | | Load_Top At_Offset_1 03c5 00db | | Load_Top At_Offset_3 03c6 8029 | ) | Call 0x0,0x29 03c7 c605 | | Store 0x3,0x5 03c8 4802 |H | Short_Literal 0x2 03c9 e603 | | Load 0x3,0x3 03ca 00db | | Load_Top At_Offset_3 03cb 802a | * | Call 0x0,0x2a 03cc e5ff | | Load 0x2,-0x1 03cd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 03ce 802b | + | Call 0x0,0x2b 03cf 00db | | Load_Top At_Offset_3 03d0 802c | , | Call 0x0,0x2c 03d1 027f | | Execute Discrete,Equal 03d2 7003 |p | Jump_Nonzero 0x3d6 03d3 4800 |H | Short_Literal 0x0 03d4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03d5 7819 |x | Jump 0x3ef 03d6 00cf | | Action Mark_Auxiliary 03d7 4804 |H | Short_Literal 0x4 03d8 4800 |H | Short_Literal 0x0 03d9 0007 | | Action Break_Optional 03da 00d8 | | Load_Top At_Offset_0 03db 7005 |p | Jump_Nonzero 0x3e1 03dc e5ff | | Load 0x2,-0x1 03dd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 03de 802b | + | Call 0x0,0x2b 03df 6801 |h | Jump_Zero 0x3e1 03e0 780b |x | Jump 0x3ec 03e1 00d8 | | Load_Top At_Offset_0 03e2 e224 | $ | Load 0x1,0x24 03e3 01d7 | | Execute Vector,Field_Read 03e4 e604 | | Load 0x3,0x4 03e5 e5ff | | Load 0x2,-0x1 03e6 822e | . | Call 0x1,0x2e 03e7 a606 | | Store_Unchecked 0x3,0x6 03e8 00db | | Load_Top At_Offset_3 03e9 7002 |p | Jump_Nonzero 0x3ec 03ea 00d2 | | Pop_Control Pop_Count_2 03eb 7802 |x | Jump 0x3ee 03ec 00c8 | | Action Pop_Auxiliary_Range 03ed 3fec |? | Loop_Increasing 0x3da 03ee 00ce | | Action Pop_Auxiliary 03ef 00da | | Load_Top At_Offset_2 03f0 4800 |H | Short_Literal 0x0 03f1 802d | - | Call 0x0,0x2d 03f2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03f3 00d8 | | Load_Top At_Offset_0 03f4 6803 |h | Jump_Zero 0x3f8 03f5 4801 |H | Short_Literal 0x1 03f6 00cb | | Action Pop_Block_With_Result 03f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f8 e5fe | | Load 0x2,-0x2 03f9 680f |h | Jump_Zero 0x409 03fa e018 | | Load 0x0,0x18 03fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 03fc 4806 |H | Short_Literal 0x6 03fd 0092 047f | | Action Push_String_Extended,0x47f ; "Test Case " 03ff e602 | | Load 0x3,0x2 0400 01cc | | Execute Vector,Catenate 0401 0092 0485 | | Action Push_String_Extended,0x485 ; " is not compatibile with " 0403 01cc | | Execute Vector,Catenate 0404 0092 0486 | | Action Push_String_Extended,0x486 ; "this Test_Set version - Scripts must be regenerated" 0406 01cc | | Execute Vector,Catenate 0407 e019 | | Load 0x0,0x19 0408 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0409 4800 |H | Short_Literal 0x0 040a 00cb | | Action Pop_Block_With_Result 040b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 040c 0000 0000 | | .BLANK 0000[0x4] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0417 | | .CONST 0x0417 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0002 | | .CONST 0x0002 ; Number of locals 0413 INIT_0410: 0413 e5ff | | Load 0x2,-0x1 0414 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0415 e5ff | | Load 0x2,-0x1 0416 822d | - | Call 0x1,0x2d 0417 BODY_0410: 0417 e5ff | | Load 0x2,-0x1 0418 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0419 680c |h | Jump_Zero 0x426 041a e5ff | | Load 0x2,-0x1 041b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 041c e21d | | Load 0x1,0x1d 041d 011c | | Execute Any,Convert_Unchecked 041e 1c01 | | Execute_Immediate Run_Utility,0x1 041f 0092 0487 | | Action Push_String_Extended,0x487 ; "=>(" 0421 01cc | | Execute Vector,Catenate 0422 00d9 | | Load_Top At_Offset_1 0423 01cc | | Execute Vector,Catenate 0424 00cb | | Action Pop_Block_With_Result 0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0426 00d8 | | Load_Top At_Offset_0 0427 00cb | | Action Pop_Block_With_Result 0428 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0429 0000 0000 | | .BLANK 0000[0x7] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0441 | A | .CONST 0x0441 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0004 | | .CONST 0x0004 ; Number of locals 0433 INIT_0430: 0433 e5fd | | Load 0x2,-0x3 0434 e226 | & | Load 0x1,0x26 0435 01d7 | | Execute Vector,Field_Read 0436 e009 | | Load 0x0,0x9 0437 03f1 | | Declare_Variable Discrete,With_Value 0438 e5ff | | Load 0x2,-0x1 0439 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 043a 00d9 | | Load_Top At_Offset_1 043b 802e | . | Call 0x0,0x2e 043c 801a | | Call 0x0,0x1a 043d e5fe | | Load 0x2,-0x2 043e 00da | | Load_Top At_Offset_2 043f 802f | / | Call 0x0,0x2f 0440 801a | | Call 0x0,0x1a 0441 BODY_0430: 0441 00d9 | | Load_Top At_Offset_1 0442 8030 | 0 | Call 0x0,0x30 0443 00d9 | | Load_Top At_Offset_1 0444 8030 | 0 | Call 0x0,0x30 0445 027f | | Execute Discrete,Equal 0446 6803 |h | Jump_Zero 0x44a 0447 4801 |H | Short_Literal 0x1 0448 00cb | | Action Pop_Block_With_Result 0449 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 044a 4800 |H | Short_Literal 0x0 044b 00cb | | Action Pop_Block_With_Result 044c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 044d 0000 0000 | | .XXX[0x3] 044f 0000 | | 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 4601 |F | Jump_Case 0x2 0454 7801 |x | Jump 0x456 ; case 0x0 0455 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0456 00da | | Load_Top At_Offset_2 0457 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0458 1c00 | | Execute_Immediate Run_Utility,0x0 0459 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 045a 0000 0000 | | .BLANK 0000[0x6] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 4601 |F | Jump_Case 0x2 0464 7801 |x | Jump 0x466 ; case 0x0 0465 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0466 00da | | Load_Top At_Offset_2 0467 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0468 1c00 | | Execute_Immediate Run_Utility,0x0 0469 4800 |H | Short_Literal 0x0 046a 00db | | Load_Top At_Offset_3 046b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 046c 4800 |H | Short_Literal 0x0 046d 00db | | Load_Top At_Offset_3 046e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 046f 4801 |H | Short_Literal 0x1 0470 00db | | Load_Top At_Offset_3 0471 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0472 00da | | Load_Top At_Offset_2 0473 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0474 1c00 | | Execute_Immediate Run_Utility,0x0 0475 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0476 ; -------------------------------------------------------------------------------------- 0476 ; STRING TABLE 0476 ; -------------------------------------------------------------------------------------- 0476 0026 | & | .STRTAB 0x0026->0x0489 ; "NONE" 0477 0028 | ( | .STRTAB 0x0028->0x048b ; "HANDLE" 0478 002c | , | .STRTAB 0x002c->0x048e ; "DATA" 0479 002e | . | .STRTAB 0x002e->0x0490 ; "DC_DRIVER" 047a 0035 | 5 | .STRTAB 0x0035->0x0494 ; "DC_PRECONDITION" 047b 0042 | B | .STRTAB 0x0042->0x049c ; "DC_PROLOG" 047c 0049 | I | .STRTAB 0x0049->0x04a0 ; "DC_EPILOG" 047d 0050 | P | .STRTAB 0x0050->0x04a5 ; "DC_EVAL" 047e 0055 | U | .STRTAB 0x0055->0x04a8 ; "others => Unspecified" 047f 0068 | h | .STRTAB 0x0068->0x04b3 ; "Test Case " 0480 0070 | p | .STRTAB 0x0070->0x04b8 ; " is not accessible." 0481 0081 | | .STRTAB 0x0081->0x04c1 ; " is not consistent. Time stamp in Test Set: " 0482 00ab | | .STRTAB 0x00ab->0x04d7 ; " does not equal " 0483 00b9 | | .STRTAB 0x00b9->0x04df ; "=>" 0484 00b9 | | .STRTAB 0x00b9->0x04e0 ; ")" 0485 00b8 | | .STRTAB 0x00b8->0x04e1 ; " is not compatibile with " 0486 00cf | | .STRTAB 0x00cf->0x04ed ; "this Test_Set version - Scripts must be regenerated" 0487 0100 | | .STRTAB 0x0100->0x0507 ; "=>(" 0488 0101 | | .STREND 0x0101->0x0508 0489 4e4f 4e45 |NONE| .STRTAB_STRINGS 0509 0000 0000 | | .BLANK 0000[0x7] 0510 ; -------------------------------------------------------------------------------------- 0510 ; Debug Table 0510 ; -------------------------------------------------------------------------------------- 0510 0004 000a | | .DEBUG4 0x0004,0x000a,0x233b,0x0000,0x0001,0x0000 0516 0000 0000 | | .BLANK 0000[0xea]