|
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]