|
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 0450 | P | .CONST 0x0450 ; 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 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x3b0, index=0x0 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x3e3, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 006b | k | .CONST 0x006b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b INIT_0008: 000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0011 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 8002 | | Call 0x0,0x2 0015 00e1 | | Load_Encached Boolean_Cache 0016 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0017 029b 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Unelaborated 0019 4800 |H | Short_Literal 0x0 001a 0093 03d3 | | push_full_address INIT_03d0 001c 00f5 | | Load_Encached Unused21 001d 037d | } | Declare_Type Task,Defined 001e 036f | o | Declare_Variable Task 001f e003 | | Load 0x0,0x3 0020 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0021 4802 |H | Short_Literal 0x2 0022 00db | | Load_Top At_Offset_3 0023 020e | | Execute Module,Augment_Imports 0024 0007 | | Action Break_Optional 0025 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0027 e004 | | Load 0x0,0x4 0028 e005 | | Load 0x0,0x5 0029 1d15 | | Execute_Immediate Reference_Lex_1,0x15 002a e006 | | Load 0x0,0x6 002b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002c 0387 | | Declare_Variable Package 002d 00d8 | | Load_Top At_Offset_0 002e 020f | | Execute Module,Activate 002f 4800 |H | Short_Literal 0x0 0030 0093 03ab | | push_full_address INIT_03a8 0032 00f5 | | Load_Encached Unused21 0033 037d | } | Declare_Type Task,Defined 0034 036f | o | Declare_Variable Task 0035 a007 | | Store_Unchecked 0x0,0x7 0036 4801 |H | Short_Literal 0x1 0037 00da | | Load_Top At_Offset_2 0038 020e | | Execute Module,Augment_Imports 0039 0007 | | Action Break_Optional 003a 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 003c 0093 0000 | | push_full_address 0x0 003e 6051 |`Q | Indirect_Literal Discrete,0x90,{0x80000000, 0x00010000} 003f 0273 | s | Execute Discrete,Plus 0040 e008 | | Load 0x0,0x8 0041 0273 | s | Execute Discrete,Plus 0042 e009 | | Load 0x0,0x9 0043 0273 | s | Execute Discrete,Plus 0044 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0045 e00a | | Load 0x0,0xa 0046 0387 | | Declare_Variable Package 0047 00d8 | | Load_Top At_Offset_0 0048 020f | | Execute Module,Activate 0049 4800 |H | Short_Literal 0x0 004a 0093 02fb | | push_full_address INIT_02f8 004c 02a0 | | Declare_Subprogram Null_Subprogram 004d 038e | | Declare_Type Package,Defined 004e e003 | | Load 0x0,0x3 004f 4801 |H | Short_Literal 0x1 0050 00da | | Load_Top At_Offset_2 0051 020e | | Execute Module,Augment_Imports 0052 0387 | | Declare_Variable Package 0053 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 0055 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0057 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 0059 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 005b 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 005d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005e 00c7 | | Action Elaborate_Subprogram 005f 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0060 00c7 | | Action Elaborate_Subprogram 0061 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0062 00c7 | | Action Elaborate_Subprogram 0063 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 0065 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0066 00c7 | | Action Elaborate_Subprogram 0067 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0068 00c7 | | Action Elaborate_Subprogram 0069 e21a | | Load 0x1,0x1a 006a 020f | | Execute Module,Activate 006b BODY_0008: 006b BODY_0008: 006b BODY_0008: 006b 00be | | Action Activate_Tasks 006c 00bc | | Action Signal_Activated 006d 00bb | | Action Signal_Completion 006e 0000 0000 | | .XXX[0x2] 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 0092 03fd | | Action Push_String_Extended,0x3fd ; "Program_Harness.Enable_Debugging" 0075 821b | | Call 0x1,0x1b 0076 e00b | | Load 0x0,0xb 0077 e219 | | Load 0x1,0x19 0078 0096 | | Execute Package,Entry 0079 4800 |H | Short_Literal 0x0 007a e00c | | Load 0x0,0xc 007b e219 | | Load 0x1,0x19 007c 0096 | | Execute Package,Entry 007d e00d | | Load 0x0,0xd 007e e219 | | Load 0x1,0x19 007f 0096 | | Execute Package,Entry 0080 4800 |H | Short_Literal 0x0 0081 e00c | | Load 0x0,0xc 0082 e219 | | Load 0x1,0x19 0083 0096 | | Execute Package,Entry 0084 e00e | | Load 0x0,0xe 0085 e219 | | Load 0x1,0x19 0086 0096 | | Execute Package,Entry 0087 e216 | | Load 0x1,0x16 0088 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0089 e00f | | Load 0x0,0xf 008a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008b e006 | | Load 0x0,0x6 008c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 008d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 0090 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e00c | | Load 0x0,0xc 009c e219 | | Load 0x1,0x19 009d 0096 | | Execute Package,Entry 009e 00ca | | Action Exit_Nullary_Function 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 0092 03fe | | Action Push_String_Extended,0x3fe ; "Program_Harness.Start" 00a5 821b | | Call 0x1,0x1b 00a6 4801 |H | Short_Literal 0x1 00a7 8220 | | Call 0x1,0x20 00a8 e212 | | Load 0x1,0x12 00a9 6805 |h | Jump_Zero 0xaf 00aa e010 | | Load 0x0,0x10 00ab e219 | | Load 0x1,0x19 00ac 0096 | | Execute Package,Entry 00ad 4800 |H | Short_Literal 0x0 00ae a212 | | Store_Unchecked 0x1,0x12 00af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b5 | | .CONST 0x00b5 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 00b5 BODY_00b0: 00b5 0092 03ff | | Action Push_String_Extended,0x3ff ; "Program_Harness.Done" 00b7 821b | | Call 0x1,0x1b 00b8 e011 | | Load 0x0,0x11 00b9 6803 |h | Jump_Zero 0xbd 00ba e012 | | Load 0x0,0x12 00bb 6801 |h | Jump_Zero 0xbd 00bc 8402 | | Call 0x2,0x2 00bd 4800 |H | Short_Literal 0x0 00be 8220 | | Call 0x1,0x20 00bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00ce | | .CONST 0x00ce ; Address of begin 00c1 0104 | | .CONST 0x0104 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 e011 | | Load 0x0,0x11 00c4 0f00 | | Execute_Immediate Equal,0x0 00c5 0f00 | | Execute_Immediate Equal,0x0 00c6 0007 | | Action Break_Optional 00c7 00e1 | | Load_Encached Boolean_Cache 00c8 e003 | | Load 0x0,0x3 00c9 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00ca 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 00cc 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call 00ce BODY_00c0: 00ce e402 | | Load 0x2,0x2 00cf 680b |h | Jump_Zero 0xdb 00d0 e5fd | | Load 0x2,-0x3 00d1 0f05 | | Execute_Immediate Equal,0x5 00d2 7008 |p | Jump_Nonzero 0xdb 00d3 e007 | | Load 0x0,0x7 00d4 6802 |h | Jump_Zero 0xd7 00d5 e5ff | | Load 0x2,-0x1 00d6 821e | | Call 0x1,0x1e 00d7 e012 | | Load 0x0,0x12 00d8 6802 |h | Jump_Zero 0xdb 00d9 e5ff | | Load 0x2,-0x1 00da 821f | | Call 0x1,0x1f 00db e5fd | | Load 0x2,-0x3 00dc 4607 |F | Jump_Case 0x8 00dd 780c |x | Jump 0xea ; case 0x0 00de 7811 |x | Jump 0xf0 ; case 0x1 00df 780c |x | Jump 0xec ; case 0x2 00e0 780f |x | Jump 0xf0 ; case 0x3 00e1 7803 |x | Jump 0xe5 ; case 0x4 00e2 7802 |x | Jump 0xe5 ; case 0x5 00e3 7801 |x | Jump 0xe5 ; case 0x6 00e4 7800 |x | Jump 0xe5 ; case 0x7 00e5 4800 |H | Short_Literal 0x0 00e6 a403 | | Store_Unchecked 0x2,0x3 00e7 4800 |H | Short_Literal 0x0 00e8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00e9 7815 |x | Jump 0xff 00ea 8405 | | Call 0x2,0x5 00eb 7813 |x | Jump 0xff 00ec 8406 | | Call 0x2,0x6 00ed 4801 |H | Short_Literal 0x1 00ee a403 | | Store_Unchecked 0x2,0x3 00ef 780f |x | Jump 0xff 00f0 e402 | | Load 0x2,0x2 00f1 6809 |h | Jump_Zero 0xfb 00f2 e5ff | | Load 0x2,-0x1 00f3 821d | | Call 0x1,0x1d 00f4 6806 |h | Jump_Zero 0xfb 00f5 4801 |H | Short_Literal 0x1 00f6 a403 | | Store_Unchecked 0x2,0x3 00f7 e21a | | Load 0x1,0x1a 00f8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00f9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00fa 7804 |x | Jump 0xff 00fb 4800 |H | Short_Literal 0x0 00fc a403 | | Store_Unchecked 0x2,0x3 00fd 4800 |H | Short_Literal 0x0 00fe 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00ff 00db | | Load_Top At_Offset_3 0100 a5fc | | Store_Unchecked 0x2,-0x4 0101 00da | | Load_Top At_Offset_2 0102 a5fb | | Store_Unchecked 0x2,-0x5 0103 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0104 TRAP_00c0: 0104 0007 | | Action Break_Optional 0105 4801 |H | Short_Literal 0x1 0106 a5fc | | Store_Unchecked 0x2,-0x4 0107 e21a | | Load 0x1,0x1a 0108 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0109 a5fb | | Store_Unchecked 0x2,-0x5 010a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 e003 | | Load 0x0,0x3 0114 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0115 00e1 | | Load_Encached Boolean_Cache 0116 e5fd | | Load 0x2,-0x3 0117 e5fe | | Load 0x2,-0x2 0118 e003 | | Load 0x0,0x3 0119 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011a 00d9 | | Load_Top At_Offset_1 011b 00d0 | | Action Swap_Control 011c 0260 | ` | Execute Discrete,In_Type 011d 7001 |p | Jump_Nonzero 0x11f 011e 0801 | | Execute_Immediate Raise,0x1 011f e5ff | | Load 0x2,-0x1 0120 e013 | | Load 0x0,0x13 0121 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0122 00d9 | | Load_Top At_Offset_1 0123 00d0 | | Action Swap_Control 0124 0260 | ` | Execute Discrete,In_Type 0125 7001 |p | Jump_Nonzero 0x127 0126 0801 | | Execute_Immediate Raise,0x1 0127 4805 |H | Short_Literal 0x5 0128 e214 | | Load 0x1,0x14 0129 170d | | Execute Task,Entry_Call,Field_Number 0xd 012a c5fc | | Store 0x2,-0x4 012b c5fb | | Store 0x2,-0x5 012c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e003 | | Load 0x0,0x3 0134 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0135 00e1 | | Load_Encached Boolean_Cache 0136 e5fd | | Load 0x2,-0x3 0137 e5fe | | Load 0x2,-0x2 0138 e003 | | Load 0x0,0x3 0139 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013a 00d9 | | Load_Top At_Offset_1 013b 00d0 | | Action Swap_Control 013c 0260 | ` | Execute Discrete,In_Type 013d 7001 |p | Jump_Nonzero 0x13f 013e 0801 | | Execute_Immediate Raise,0x1 013f e5ff | | Load 0x2,-0x1 0140 e013 | | Load 0x0,0x13 0141 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0142 00d9 | | Load_Top At_Offset_1 0143 00d0 | | Action Swap_Control 0144 0260 | ` | Execute Discrete,In_Type 0145 7001 |p | Jump_Nonzero 0x147 0146 0801 | | Execute_Immediate Raise,0x1 0147 4805 |H | Short_Literal 0x5 0148 e214 | | Load 0x1,0x14 0149 170d | | Execute Task,Entry_Call,Field_Number 0xd 014a c5fc | | Store 0x2,-0x4 014b c5fb | | Store 0x2,-0x5 014c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 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 e211 | | Load 0x1,0x11 0154 6805 |h | Jump_Zero 0x15a 0155 00da | | Load_Top At_Offset_2 0156 e014 | | Load 0x0,0x14 0157 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0158 e014 | | Load 0x0,0x14 0159 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 015a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015b 0000 0000 | | .BLANK 0000[0x5] 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 0092 0400 | | Action Push_String_Extended,0x400 ; " break_mask = " 0165 00db | | Load_Top At_Offset_3 0166 e003 | | Load 0x0,0x3 0167 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0168 00e0 | | Load_Encached Standard_Cache 0169 1818 | | Execute Package,Field_Execute,Field_Number 0x18 016a 01cc | | Execute Vector,Catenate 016b 821b | | Call 0x1,0x1b 016c 00cf | | Action Mark_Auxiliary 016d 480f |H | Short_Literal 0xf 016e 4800 |H | Short_Literal 0x0 016f 0007 | | Action Break_Optional 0170 0092 0401 | | Action Push_String_Extended,0x401 ; " " 0172 00d9 | | Load_Top At_Offset_1 0173 e003 | | Load 0x0,0x3 0174 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0175 011c | | Execute Any,Convert_Unchecked 0176 1c01 | | Execute_Immediate Run_Utility,0x1 0177 01cc | | Execute Vector,Catenate 0178 0092 0402 | | Action Push_String_Extended,0x402 ; " => " 017a 01cc | | Execute Vector,Catenate 017b 00d9 | | Load_Top At_Offset_1 017c e5ff | | Load 0x2,-0x1 017d 01d7 | | Execute Vector,Field_Read 017e 00e1 | | Load_Encached Boolean_Cache 017f 011c | | Execute Any,Convert_Unchecked 0180 1c01 | | Execute_Immediate Run_Utility,0x1 0181 01cc | | Execute Vector,Catenate 0182 821b | | Call 0x1,0x1b 0183 00c8 | | Action Pop_Auxiliary_Range 0184 3feb |? | Loop_Increasing 0x170 0185 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0193 | | .CONST 0x0193 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b e015 | | Load 0x0,0x15 018c 00db | | Load_Top At_Offset_3 018d 8016 | | Call 0x0,0x16 018e e017 | | Load 0x0,0x17 018f 03f1 | | Declare_Variable Discrete,With_Value 0190 00e1 | | Load_Encached Boolean_Cache 0191 e018 | | Load 0x0,0x18 0192 0007 | | Action Break_Optional 0193 BODY_0188: 0193 00e1 | | Load_Encached Boolean_Cache 0194 00d9 | | Load_Top At_Offset_1 0195 e402 | | Load 0x2,0x2 0196 e019 | | Load 0x0,0x19 0197 801a | | Call 0x0,0x1a 0198 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0199 005a | Z | Store_Top Discrete,At_Offset_2 019a 00d9 | | Load_Top At_Offset_1 019b 680a |h | Jump_Zero 0x1a6 019c 00d8 | | Load_Top At_Offset_0 019d 801b | | Call 0x0,0x1b 019e 7007 |p | Jump_Nonzero 0x1a6 019f 00d8 | | Load_Top At_Offset_0 01a0 801c | | Call 0x0,0x1c 01a1 4800 |H | Short_Literal 0x0 01a2 e217 | | Load 0x1,0x17 01a3 170d | | Execute Task,Entry_Call,Field_Number 0xd 01a4 4801 |H | Short_Literal 0x1 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 4800 |H | Short_Literal 0x0 01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b6 | | .CONST 0x01b6 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0006 | | .CONST 0x0006 ; Number of locals 01ab INIT_01a8: 01ab e015 | | Load 0x0,0x15 01ac 00db | | Load_Top At_Offset_3 01ad 8016 | | Call 0x0,0x16 01ae e017 | | Load 0x0,0x17 01af 03f1 | | Declare_Variable Discrete,With_Value 01b0 00e1 | | Load_Encached Boolean_Cache 01b1 e018 | | Load 0x0,0x18 01b2 0007 | | Action Break_Optional 01b3 00e3 | | Load_Encached Natural_Cache 01b4 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 01b6 BODY_01a8: 01b6 00e1 | | Load_Encached Boolean_Cache 01b7 00db | | Load_Top At_Offset_3 01b8 e402 | | Load 0x2,0x2 01b9 e019 | | Load 0x0,0x19 01ba 801a | | Call 0x0,0x1a 01bb c404 | | Store 0x2,0x4 01bc c403 | | Store 0x2,0x3 01bd 00db | | Load_Top At_Offset_3 01be 680f |h | Jump_Zero 0x1ce 01bf 00da | | Load_Top At_Offset_2 01c0 801d | | Call 0x0,0x1d 01c1 680c |h | Jump_Zero 0x1ce 01c2 e5ff | | Load 0x2,-0x1 01c3 e003 | | Load 0x0,0x3 01c4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01c5 e003 | | Load 0x0,0x3 01c6 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 01c7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01c8 8406 | | Call 0x2,0x6 01c9 00da | | Load_Top At_Offset_2 01ca 801e | | Call 0x0,0x1e 01cb 4800 |H | Short_Literal 0x0 01cc e217 | | Load 0x1,0x17 01cd 170e | | Execute Task,Entry_Call,Field_Number 0xe 01ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01e4 | | .CONST 0x01e4 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0009 | | .CONST 0x0009 ; Number of locals 01d3 INIT_01d0: 01d3 e015 | | Load 0x0,0x15 01d4 00db | | Load_Top At_Offset_3 01d5 8016 | | Call 0x0,0x16 01d6 e017 | | Load 0x0,0x17 01d7 03f1 | | Declare_Variable Discrete,With_Value 01d8 00e1 | | Load_Encached Boolean_Cache 01d9 e018 | | Load 0x0,0x18 01da 0007 | | Action Break_Optional 01db 00e3 | | Load_Encached Natural_Cache 01dc e01f | | Load 0x0,0x1f 01dd 0007 | | Action Break_Optional 01de e020 | | Load 0x0,0x20 01df 0007 | | Action Break_Optional 01e0 00d8 | | Load_Top At_Offset_0 01e1 0007 | | Action Break_Optional 01e2 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 01e4 BODY_01d0: 01e4 00e1 | | Load_Encached Boolean_Cache 01e5 e404 | | Load 0x2,0x4 01e6 e402 | | Load 0x2,0x2 01e7 e019 | | Load 0x0,0x19 01e8 801a | | Call 0x0,0x1a 01e9 c404 | | Store 0x2,0x4 01ea c403 | | Store 0x2,0x3 01eb e403 | | Load 0x2,0x3 01ec 6845 |hE | Jump_Zero 0x232 01ed e404 | | Load 0x2,0x4 01ee 8021 | ! | Call 0x0,0x21 01ef 0c01 | | Execute_Immediate Greater_Equal,0x1 01f0 6841 |hA | Jump_Zero 0x232 01f1 e5ff | | Load 0x2,-0x1 01f2 e003 | | Load 0x0,0x3 01f3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01f4 e003 | | Load 0x0,0x3 01f5 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 01f6 a405 | | Store_Unchecked 0x2,0x5 01f7 e405 | | Load 0x2,0x5 01f8 e404 | | Load 0x2,0x4 01f9 8022 | " | Call 0x0,0x22 01fa 027c | | | Execute Discrete,Less 01fb 6833 |h3 | Jump_Zero 0x22f 01fc e404 | | Load 0x2,0x4 01fd 8023 | # | Call 0x0,0x23 01fe a406 | | Store_Unchecked 0x2,0x6 01ff 00db | | Load_Top At_Offset_3 0200 8024 | $ | Call 0x0,0x24 0201 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0202 00cf | | Action Mark_Auxiliary 0203 7825 |x% | Jump 0x229 0204 00db | | Load_Top At_Offset_3 0205 8025 | % | Call 0x0,0x25 0206 7003 |p | Jump_Nonzero 0x20a 0207 00db | | Load_Top At_Offset_3 0208 8409 | | Call 0x2,0x9 0209 7806 |x | Jump 0x210 020a e402 | | Load 0x2,0x2 020b e406 | | Load 0x2,0x6 020c 8026 | & | Call 0x0,0x26 020d e407 | | Load 0x2,0x7 020e 4800 |H | Short_Literal 0x0 020f 8027 | ' | Call 0x0,0x27 0210 e404 | | Load 0x2,0x4 0211 801b | | Call 0x0,0x1b 0212 701b |p | Jump_Nonzero 0x22e 0213 e404 | | Load 0x2,0x4 0214 8023 | # | Call 0x0,0x23 0215 a406 | | Store_Unchecked 0x2,0x6 0216 e406 | | Load 0x2,0x6 0217 8024 | $ | Call 0x0,0x24 0218 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0219 00da | | Load_Top At_Offset_2 021a e407 | | Load 0x2,0x7 021b 021f | | Execute Heap_Access,Equal 021c 6809 |h | Jump_Zero 0x226 021d 00db | | Load_Top At_Offset_3 021e 8409 | | Call 0x2,0x9 021f e404 | | Load 0x2,0x4 0220 8023 | # | Call 0x0,0x23 0221 a406 | | Store_Unchecked 0x2,0x6 0222 e406 | | Load 0x2,0x6 0223 8024 | $ | Call 0x0,0x24 0224 a407 | | Store_Unchecked 0x2,0x7 0225 7802 |x | Jump 0x228 0226 00da | | Load_Top At_Offset_2 0227 a407 | | Store_Unchecked 0x2,0x7 0228 00c9 | | Action Pop_Auxiliary_Loop 0229 e406 | | Load 0x2,0x6 022a 8028 | ( | Call 0x0,0x28 022b e405 | | Load 0x2,0x5 022c 027d | } | Execute Discrete,Greater 022d 77d6 |w | Jump_Nonzero 0x204 022e 00ce | | Action Pop_Auxiliary 022f e405 | | Load 0x2,0x5 0230 e404 | | Load 0x2,0x4 0231 8029 | ) | Call 0x0,0x29 0232 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0233 0000 0000 | | .BLANK 0000[0x5] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023d | = | .CONST 0x023d ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e003 | | Load 0x0,0x3 023c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 023d BODY_0238: 023d 00db | | Load_Top At_Offset_3 023e 6804 |h | Jump_Zero 0x243 023f e21a | | Load 0x1,0x1a 0240 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0241 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0242 7803 |x | Jump 0x246 0243 e21a | | Load 0x1,0x1a 0244 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0245 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0246 e211 | | Load 0x1,0x11 0247 6807 |h | Jump_Zero 0x24f 0248 0092 0403 | | Action Push_String_Extended,0x403 ; " Task " 024a 820e | | Call 0x1,0xe 024b e003 | | Load 0x0,0x3 024c 180d | | Execute Package,Field_Execute,Field_Number 0xd 024d 01cc | | Execute Vector,Catenate 024e 821b | | Call 0x1,0x1b 024f 00d8 | | Load_Top At_Offset_0 0250 820e | | Call 0x1,0xe 0251 e00d | | Load 0x0,0xd 0252 e219 | | Load 0x1,0x19 0253 0096 | | Execute Package,Entry 0254 e211 | | Load 0x1,0x11 0255 6803 |h | Jump_Zero 0x259 0256 0092 0404 | | Action Push_String_Extended,0x404 ; "RETURN FROM Ph_Low_Level.Set_Break_Mask" 0258 821b | | Call 0x1,0x1b 0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025a 0000 0000 | | .BLANK 0000[0x6] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0265 | e | .CONST 0x0265 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e02a | * | Load 0x0,0x2a 0264 0322 | " | Declare_Variable Record 0265 BODY_0260: 0265 00d8 | | Load_Top At_Offset_0 0266 e019 | | Load 0x0,0x19 0267 802b | + | Call 0x0,0x2b 0268 00d1 | | Pop_Control Pop_Count_1 0269 00cf | | Action Mark_Auxiliary 026a 7808 |x | Jump 0x273 026b 00d9 | | Load_Top At_Offset_1 026c 802c | , | Call 0x0,0x2c 026d 802d | - | Call 0x0,0x2d 026e 821f | | Call 0x1,0x1f 026f 00d9 | | Load_Top At_Offset_1 0270 802e | . | Call 0x0,0x2e 0271 00d1 | | Pop_Control Pop_Count_1 0272 00c9 | | Action Pop_Auxiliary_Loop 0273 00d9 | | Load_Top At_Offset_1 0274 802f | / | Call 0x0,0x2f 0275 0f00 | | Execute_Immediate Equal,0x0 0276 e012 | | Load 0x0,0x12 0277 0e00 | | Execute_Immediate Not_Equal,0x0 0278 0279 | y | Execute Discrete,And 0279 77f1 |w | Jump_Nonzero 0x26b 027a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0289 | | .CONST 0x0289 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 e5fe | | Load 0x2,-0x2 0284 e003 | | Load 0x0,0x3 0285 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0286 e003 | | Load 0x0,0x3 0287 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0288 03f1 | | Declare_Variable Discrete,With_Value 0289 BODY_0280: 0289 00d8 | | Load_Top At_Offset_0 028a 8030 | 0 | Call 0x0,0x30 028b 6810 |h | Jump_Zero 0x29c 028c 4801 |H | Short_Literal 0x1 028d a403 | | Store_Unchecked 0x2,0x3 028e e21a | | Load 0x1,0x1a 028f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0290 a404 | | Store_Unchecked 0x2,0x4 0291 4801 |H | Short_Literal 0x1 0292 e5ff | | Load 0x2,-0x1 0293 e00e | | Load 0x0,0xe 0294 e219 | | Load 0x1,0x19 0295 0096 | | Execute Package,Entry 0296 e015 | | Load 0x0,0x15 0297 e5ff | | Load 0x2,-0x1 0298 8016 | | Call 0x0,0x16 0299 e5fe | | Load 0x2,-0x2 029a 8031 | 1 | Call 0x0,0x31 029b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029c 4801 |H | Short_Literal 0x1 029d a403 | | Store_Unchecked 0x2,0x3 029e e21a | | Load 0x1,0x1a 029f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a0 a404 | | Store_Unchecked 0x2,0x4 02a1 4800 |H | Short_Literal 0x0 02a2 e5ff | | Load 0x2,-0x1 02a3 e00e | | Load 0x0,0xe 02a4 e219 | | Load 0x1,0x19 02a5 0096 | | Execute Package,Entry 02a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a7 0000 | | .XXX[0x1] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b1 | | .CONST 0x02b1 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab e5fe | | Load 0x2,-0x2 02ac e003 | | Load 0x0,0x3 02ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02ae e003 | | Load 0x0,0x3 02af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b0 03f1 | | Declare_Variable Discrete,With_Value 02b1 BODY_02a8: 02b1 00d8 | | Load_Top At_Offset_0 02b2 8030 | 0 | Call 0x0,0x30 02b3 6809 |h | Jump_Zero 0x2bd 02b4 4801 |H | Short_Literal 0x1 02b5 e5ff | | Load 0x2,-0x1 02b6 e00e | | Load 0x0,0xe 02b7 e219 | | Load 0x1,0x19 02b8 0096 | | Execute Package,Entry 02b9 e21a | | Load 0x1,0x1a 02ba 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02bb a404 | | Store_Unchecked 0x2,0x4 02bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02bd 4800 |H | Short_Literal 0x0 02be e5ff | | Load 0x2,-0x1 02bf e00e | | Load 0x0,0xe 02c0 e219 | | Load 0x1,0x19 02c1 0096 | | Execute Package,Entry 02c2 e21a | | Load 0x1,0x1a 02c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c4 a404 | | Store_Unchecked 0x2,0x4 02c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cc | | .CONST 0x02cc ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e01f | | Load 0x0,0x1f 02cc BODY_02c8: 02cc 00cf | | Action Mark_Auxiliary 02cd 7814 |x | Jump 0x2e2 02ce e404 | | Load 0x2,0x4 02cf 8023 | # | Call 0x0,0x23 02d0 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02d1 00d9 | | Load_Top At_Offset_1 02d2 8028 | ( | Call 0x0,0x28 02d3 e405 | | Load 0x2,0x5 02d4 027b | { | Execute Discrete,Greater_Equal 02d5 680a |h | Jump_Zero 0x2e0 02d6 e404 | | Load 0x2,0x4 02d7 8032 | 2 | Call 0x0,0x32 02d8 00d9 | | Load_Top At_Offset_1 02d9 8024 | $ | Call 0x0,0x24 02da 8025 | % | Call 0x0,0x25 02db 6805 |h | Jump_Zero 0x2e1 02dc 4801 |H | Short_Literal 0x1 02dd e404 | | Load 0x2,0x4 02de 8033 | 3 | Call 0x0,0x33 02df 7801 |x | Jump 0x2e1 02e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e1 00c9 | | Action Pop_Auxiliary_Loop 02e2 e404 | | Load 0x2,0x4 02e3 801b | | Call 0x0,0x1b 02e4 6fe9 |o | Jump_Zero 0x2ce 02e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e404 | | Load 0x2,0x4 02ec 8032 | 2 | Call 0x0,0x32 02ed 00da | | Load_Top At_Offset_2 02ee 8025 | % | Call 0x0,0x25 02ef 6803 |h | Jump_Zero 0x2f3 02f0 4801 |H | Short_Literal 0x1 02f1 e404 | | Load 0x2,0x4 02f2 8033 | 3 | Call 0x0,0x33 02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 03a1 | | .CONST 0x03a1 ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0016 | | .CONST 0x0016 ; Number of locals 02fb INIT_02f8: 02fb e001 | | Load 0x0,0x1 02fc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 02fd 0337 | 7 | Declare_Variable Array 02fe 4801 |H | Short_Literal 0x1 02ff 4801 |H | Short_Literal 0x1 0300 00da | | Load_Top At_Offset_2 0301 01d6 | | Execute Vector,Field_Write 0302 4801 |H | Short_Literal 0x1 0303 4802 |H | Short_Literal 0x2 0304 00da | | Load_Top At_Offset_2 0305 01d6 | | Execute Vector,Field_Write 0306 4801 |H | Short_Literal 0x1 0307 4803 |H | Short_Literal 0x3 0308 00da | | Load_Top At_Offset_2 0309 01d6 | | Execute Vector,Field_Write 030a 4801 |H | Short_Literal 0x1 030b 4809 |H | Short_Literal 0x9 030c 00da | | Load_Top At_Offset_2 030d 01d6 | | Execute Vector,Field_Write 030e 4801 |H | Short_Literal 0x1 030f 4804 |H | Short_Literal 0x4 0310 00da | | Load_Top At_Offset_2 0311 01d6 | | Execute Vector,Field_Write 0312 4801 |H | Short_Literal 0x1 0313 4805 |H | Short_Literal 0x5 0314 00da | | Load_Top At_Offset_2 0315 01d6 | | Execute Vector,Field_Write 0316 4801 |H | Short_Literal 0x1 0317 4806 |H | Short_Literal 0x6 0318 00da | | Load_Top At_Offset_2 0319 01d6 | | Execute Vector,Field_Write 031a 4801 |H | Short_Literal 0x1 031b 4807 |H | Short_Literal 0x7 031c 00da | | Load_Top At_Offset_2 031d 01d6 | | Execute Vector,Field_Write 031e 4800 |H | Short_Literal 0x0 031f 4800 |H | Short_Literal 0x0 0320 00da | | Load_Top At_Offset_2 0321 01d6 | | Execute Vector,Field_Write 0322 4800 |H | Short_Literal 0x0 0323 4808 |H | Short_Literal 0x8 0324 00da | | Load_Top At_Offset_2 0325 01d6 | | Execute Vector,Field_Write 0326 480f |H | Short_Literal 0xf 0327 480a |H | Short_Literal 0xa 0328 4800 |H | Short_Literal 0x0 0329 00d9 | | Load_Top At_Offset_1 032a e20d | | Load 0x1,0xd 032b 01d6 | | Execute Vector,Field_Write 032c 3ffb |? | Loop_Increasing 0x328 032d e001 | | Load 0x0,0x1 032e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 032f 01c3 | | Execute Vector,Check_In_Type 0330 0129 | ) | Execute Any,Make_Visible 0331 e001 | | Load 0x0,0x1 0332 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0333 0337 | 7 | Declare_Variable Array 0334 4801 |H | Short_Literal 0x1 0335 4803 |H | Short_Literal 0x3 0336 00da | | Load_Top At_Offset_2 0337 01d6 | | Execute Vector,Field_Write 0338 4801 |H | Short_Literal 0x1 0339 4809 |H | Short_Literal 0x9 033a 00da | | Load_Top At_Offset_2 033b 01d6 | | Execute Vector,Field_Write 033c 4802 |H | Short_Literal 0x2 033d 4800 |H | Short_Literal 0x0 033e 4800 |H | Short_Literal 0x0 033f 00d9 | | Load_Top At_Offset_1 0340 e20e | | Load 0x1,0xe 0341 01d6 | | Execute Vector,Field_Write 0342 3ffb |? | Loop_Increasing 0x33e 0343 4808 |H | Short_Literal 0x8 0344 4804 |H | Short_Literal 0x4 0345 4800 |H | Short_Literal 0x0 0346 00d9 | | Load_Top At_Offset_1 0347 e20e | | Load 0x1,0xe 0348 01d6 | | Execute Vector,Field_Write 0349 3ffb |? | Loop_Increasing 0x345 034a 480f |H | Short_Literal 0xf 034b 480a |H | Short_Literal 0xa 034c 4800 |H | Short_Literal 0x0 034d 00d9 | | Load_Top At_Offset_1 034e e20e | | Load 0x1,0xe 034f 01d6 | | Execute Vector,Field_Write 0350 3ffb |? | Loop_Increasing 0x34c 0351 e001 | | Load 0x0,0x1 0352 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0353 01c3 | | Execute Vector,Check_In_Type 0354 0129 | ) | Execute Any,Make_Visible 0355 e001 | | Load 0x0,0x1 0356 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0357 0337 | 7 | Declare_Variable Array 0358 4801 |H | Short_Literal 0x1 0359 480d |H | Short_Literal 0xd 035a 00da | | Load_Top At_Offset_2 035b 01d6 | | Execute Vector,Field_Write 035c 4801 |H | Short_Literal 0x1 035d 480e |H | Short_Literal 0xe 035e 00da | | Load_Top At_Offset_2 035f 01d6 | | Execute Vector,Field_Write 0360 480c |H | Short_Literal 0xc 0361 4800 |H | Short_Literal 0x0 0362 4800 |H | Short_Literal 0x0 0363 00d9 | | Load_Top At_Offset_1 0364 e20f | | Load 0x1,0xf 0365 01d6 | | Execute Vector,Field_Write 0366 3ffb |? | Loop_Increasing 0x362 0367 4800 |H | Short_Literal 0x0 0368 480f |H | Short_Literal 0xf 0369 00da | | Load_Top At_Offset_2 036a 01d6 | | Execute Vector,Field_Write 036b e001 | | Load 0x0,0x1 036c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 036d 01c3 | | Execute Vector,Check_In_Type 036e 0129 | ) | Execute Any,Make_Visible 036f e001 | | Load 0x0,0x1 0370 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0371 0336 | 6 | Declare_Variable Array,Visible 0372 00da | | Load_Top At_Offset_2 0373 00da | | Load_Top At_Offset_2 0374 01d2 | | Execute Vector,Or 0375 e001 | | Load 0x0,0x1 0376 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0377 01d2 | | Execute Vector,Or 0378 00d9 | | Load_Top At_Offset_1 0379 01d4 | | Execute Vector,Structure_Write 037a 00d8 | | Load_Top At_Offset_0 037b e001 | | Load 0x0,0x1 037c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 037d 0129 | ) | Execute Any,Make_Visible 037e e001 | | Load 0x0,0x1 037f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0380 0337 | 7 | Declare_Variable Array 0381 480f |H | Short_Literal 0xf 0382 4800 |H | Short_Literal 0x0 0383 4800 |H | Short_Literal 0x0 0384 00d9 | | Load_Top At_Offset_1 0385 e212 | | Load 0x1,0x12 0386 01d6 | | Execute Vector,Field_Write 0387 3ffb |? | Loop_Increasing 0x383 0388 e001 | | Load 0x0,0x1 0389 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 038a 01c3 | | Execute Vector,Check_In_Type 038b 0129 | ) | Execute Any,Make_Visible 038c 00d8 | | Load_Top At_Offset_0 038d e001 | | Load 0x0,0x1 038e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 038f 0129 | ) | Execute Any,Make_Visible 0390 e001 | | Load 0x0,0x1 0391 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0392 0336 | 6 | Declare_Variable Array,Visible 0393 e210 | | Load 0x1,0x10 0394 e20d | | Load 0x1,0xd 0395 01d2 | | Execute Vector,Or 0396 00d9 | | Load_Top At_Offset_1 0397 01d4 | | Execute Vector,Structure_Write 0398 00d8 | | Load_Top At_Offset_0 0399 e001 | | Load 0x0,0x1 039a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 039b 0129 | ) | Execute Any,Make_Visible 039c 00d9 | | Load_Top At_Offset_1 039d e001 | | Load 0x0,0x1 039e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 039f 0129 | ) | Execute Any,Make_Visible 03a0 00bf | | Action Accept_Activation 03a1 BODY_02f8: 03a1 00bc | | Action Signal_Activated 03a2 00bb | | Action Signal_Completion 03a3 0000 0000 | | .BLANK 0000[0x5] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ba | | .CONST 0x03ba ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 000f | | .CONST 0x000f ; Number of locals 03ab INIT_03a8: 03ab 4800 |H | Short_Literal 0x0 03ac 02cb | | Declare_Variable Entry 03ad 4800 |H | Short_Literal 0x0 03ae 02cb | | Declare_Variable Entry 03af 00bf | | Action Accept_Activation 03b0 480e 4878 |H Hx| Declare_Variable Select 0x000, 0x002, 03b2 480d 4879 |H Hy| [0x000]: 0x001 = 0x0008, 03b4 4800 4801 |H H | [0x00d]: 0x079 = 0x03c8, 03b6 4800 4802 |H H | [0x00e]: 0x078 = 0x03c0 03b8 02cf | | 03b9 00bc | | Action Signal_Activated 03ba BODY_03a8: 03ba 00cf | | Action Mark_Auxiliary 03bb 00d9 | | Load_Top At_Offset_1 03bc 013f | ? | Execute Select,Rendezvous 03bd 00d1 | | Pop_Control Pop_Count_1 03be 00c9 | | Action Pop_Auxiliary_Loop 03bf 7ffb | | Jump 0x3bb 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; See instruction 0x02cf at 0x3b0, index=0xe 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 e001 | | Load 0x0,0x1 03c4 0aff | | Execute_Immediate Plus,-0x1 03c5 c001 | | Store 0x0,0x1 03c6 4100 |A | End_Rendezvous 0x0 03c7 0000 | | .XXX[0x1] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; See instruction 0x02cf at 0x3b0, index=0xd 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb e001 | | Load 0x0,0x1 03cc 0a01 | | Execute_Immediate Plus,0x1 03cd c001 | | Store 0x0,0x1 03ce 4100 |A | End_Rendezvous 0x0 03cf 0000 | | .XXX[0x1] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d9 | | .CONST 0x03d9 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 000e | | .CONST 0x000e ; Number of locals 03d3 INIT_03d0: 03d3 4805 |H | Short_Literal 0x5 03d4 02cb | | Declare_Variable Entry 03d5 00bf | | Action Accept_Activation 03d6 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 03d8 00bc | | Action Signal_Activated 03d9 BODY_03d0: 03d9 00cf | | Action Mark_Auxiliary 03da 820e | | Call 0x1,0xe 03db 00c9 | | Action Pop_Auxiliary_Loop 03dc 7ffd | | Jump 0x3da 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03ea | | .CONST 0x03ea ; Address of begin 03e1 03ed | | .CONST 0x03ed ; Address of exception handler 03e2 0002 | | .CONST 0x0002 ; Number of locals 03e3 INIT_03e0: 03e3 480d 487e |H H~| Declare_Variable Select 0x000, 0x001, 03e5 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 03e7 4800 4801 |H H | [0x00d]: 0x07e = 0x03f0 03e9 02cf | | 03ea BODY_03e0: 03ea 00d8 | | Load_Top At_Offset_0 03eb 013f | ? | Execute Select,Rendezvous 03ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ed TRAP_03e0: 03ed 0007 | | Action Break_Optional 03ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; See instruction 0x02cf at 0x3e3, index=0xd 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 e001 | | Load 0x0,0x1 03f4 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 03f5 00e1 | | Load_Encached Boolean_Cache 03f6 e7fc | | Load 0x3,-0x4 03f7 e7fd | | Load 0x3,-0x3 03f8 e7fe | | Load 0x3,-0x2 03f9 8002 | | Call 0x0,0x2 03fa c7fb | | Store 0x3,-0x5 03fb c7fa | | Store 0x3,-0x6 03fc 4102 |A | End_Rendezvous 0x2 03fd ; -------------------------------------------------------------------------------------- 03fd ; STRING TABLE 03fd ; -------------------------------------------------------------------------------------- 03fd 0012 | | .STRTAB 0x0012->0x0406 ; "Program_Harness.Enable_Debugging" 03fe 0030 | 0 | .STRTAB 0x0030->0x0416 ; "Program_Harness.Start" 03ff 0043 | C | .STRTAB 0x0043->0x0420 ; "Program_Harness.Done" 0400 0055 | U | .STRTAB 0x0055->0x042a ; " break_mask = " 0401 0062 | b | .STRTAB 0x0062->0x0432 ; " " 0402 0064 | d | .STRTAB 0x0064->0x0434 ; " => " 0403 0066 | f | .STRTAB 0x0066->0x0436 ; " Task " 0404 006b | k | .STRTAB 0x006b->0x0439 ; "RETURN FROM Ph_Low_Level.Set_Break_Mask" 0405 0090 | | .STREND 0x0090->0x044d 0406 5072 6f67 |Prog| .STRTAB_STRINGS 044d 0000 0000 | | .XXX[0x3] 044f 0000 | | 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug Table 0450 ; -------------------------------------------------------------------------------------- 0450 0004 000a | | .DEBUG4 0x0004,0x000a,0xa6df,0x0000,0x0001,0x0000 0456 0000 0000 | | .BLANK 0000[0x1aa]