|
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: 2048 (0x800) 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 0288 | | .CONST 0x0288 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x24e, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 009b | | .CONST 0x009b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0015 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001f 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0021 0093 0000 | | push_full_address 0x0 0023 60c8 |` | Indirect_Literal Discrete,0xec,{0x80000000, 0x00010000} 0024 0273 | s | Execute Discrete,Plus 0025 0129 | ) | Execute Any,Make_Visible 0026 00bf | | Action Accept_Activation 0027 e002 | | Load 0x0,0x2 0028 00e2 | | Load_Encached Integer_Cache 0029 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 002b 4802 |H | Short_Literal 0x2 002c 032d | - | Declare_Type Record,Defined 002d 00d8 | | Load_Top At_Offset_0 002e 02a0 | | Declare_Subprogram Null_Subprogram 002f 03ad | | Declare_Type Heap_Access,Defined 0030 029b 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Unelaborated 0032 0093 0000 | | push_full_address 0x0 0034 60b3 |` | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00030000} 0035 0273 | s | Execute Discrete,Plus 0036 e003 | | Load 0x0,0x3 0037 0273 | s | Execute Discrete,Plus 0038 e004 | | Load 0x0,0x4 0039 0273 | s | Execute Discrete,Plus 003a 60a9 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00010000} 003b e005 | | Load 0x0,0x5 003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003d e21a | | Load 0x1,0x1a 003e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 003f e006 | | Load 0x0,0x6 0040 0387 | | Declare_Variable Package 0041 00d8 | | Load_Top At_Offset_0 0042 020f | | Execute Module,Activate 0043 e007 | | Load 0x0,0x7 0044 00d9 | | Load_Top At_Offset_1 0045 0098 | | Execute Package,Field_Read_Dynamic 0046 0007 | | Action Break_Optional 0047 00db | | Load_Top At_Offset_3 0048 e005 | | Load 0x0,0x5 0049 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b 4802 |H | Short_Literal 0x2 004c 032d | - | Declare_Type Record,Defined 004d 00d8 | | Load_Top At_Offset_0 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 03ad | | Declare_Type Heap_Access,Defined 0050 e008 | | Load 0x0,0x8 0051 e009 | | Load 0x0,0x9 0052 00da | | Load_Top At_Offset_2 0053 e00a | | Load 0x0,0xa 0054 0387 | | Declare_Variable Package 0055 00d8 | | Load_Top At_Offset_0 0056 020f | | Execute Module,Activate 0057 00d8 | | Load_Top At_Offset_0 0058 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0059 029b 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Unelaborated 005b 0093 0000 | | push_full_address 0x0 005d 6082 |` | Indirect_Literal Discrete,0xe0,{0x80000000, 0x00010000} 005e 0273 | s | Execute Discrete,Plus 005f e003 | | Load 0x0,0x3 0060 0273 | s | Execute Discrete,Plus 0061 e00b | | Load 0x0,0xb 0062 0273 | s | Execute Discrete,Plus 0063 4900 |I | Short_Literal 0x100 0064 e00c | | Load 0x0,0xc 0065 e220 | | Load 0x1,0x20 0066 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0067 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0068 e006 | | Load 0x0,0x6 0069 0387 | | Declare_Variable Package 006a 00d8 | | Load_Top At_Offset_0 006b 020f | | Execute Module,Activate 006c e007 | | Load 0x0,0x7 006d 00d9 | | Load_Top At_Offset_1 006e 0098 | | Execute Package,Field_Read_Dynamic 006f 0007 | | Action Break_Optional 0070 e00c | | Load 0x0,0xc 0071 0007 | | Action Break_Optional 0072 e220 | | Load 0x1,0x20 0073 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0074 4800 |H | Short_Literal 0x0 0075 0093 024b | K| push_full_address INIT_0248 0077 00f5 | | Load_Encached Unused21 0078 037d | } | Declare_Type Task,Defined 0079 036f | o | Declare_Variable Task 007a a00d | | Store_Unchecked 0x0,0xd 007b 4801 |H | Short_Literal 0x1 007c 00da | | Load_Top At_Offset_2 007d 020e | | Execute Module,Augment_Imports 007e 0007 | | Action Break_Optional 007f 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0080 00c7 | | Action Elaborate_Subprogram 0081 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0082 00c7 | | Action Elaborate_Subprogram 0083 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0084 00c7 | | Action Elaborate_Subprogram 0085 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0086 00c7 | | Action Elaborate_Subprogram 0087 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0088 00c7 | | Action Elaborate_Subprogram 0089 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 008a 00c7 | | Action Elaborate_Subprogram 008b 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 008d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 008e 00c7 | | Action Elaborate_Subprogram 008f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0090 00c7 | | Action Elaborate_Subprogram 0091 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0092 00c7 | | Action Elaborate_Subprogram 0093 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0094 00c7 | | Action Elaborate_Subprogram 0095 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0096 00c7 | | Action Elaborate_Subprogram 0097 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0098 00c7 | | Action Elaborate_Subprogram 0099 1d17 | | Execute_Immediate Reference_Lex_1,0x17 009a 00c7 | | Action Elaborate_Subprogram 009b BODY_0008: 009b BODY_0008: 009b 00be | | Action Activate_Tasks 009c e007 | | Load 0x0,0x7 009d e21c | | Load 0x1,0x1c 009e 0098 | | Execute Package,Field_Read_Dynamic 009f 6044 |`D | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00010000} 00a0 e00e | | Load 0x0,0xe 00a1 e21c | | Load 0x1,0x1c 00a2 0096 | | Execute Package,Entry 00a3 c21d | | Store 0x1,0x1d 00a4 e007 | | Load 0x0,0x7 00a5 e223 | # | Load 0x1,0x23 00a6 0098 | | Execute Package,Field_Read_Dynamic 00a7 4900 |I | Short_Literal 0x100 00a8 e00e | | Load 0x0,0xe 00a9 e223 | # | Load 0x1,0x23 00aa 0096 | | Execute Package,Entry 00ab c224 | $ | Store 0x1,0x24 00ac 00bc | | Action Signal_Activated 00ad 00bb | | Action Signal_Completion 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b7 | | .CONST 0x00b7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e21a | | Load 0x1,0x1a 00b4 0007 | | Action Break_Optional 00b5 e21f | | Load 0x1,0x1f 00b6 0007 | | Action Break_Optional 00b7 BODY_00b0: 00b7 e21a | | Load 0x1,0x1a 00b8 e00f | | Load 0x0,0xf 00b9 039c | | Declare_Variable Heap_Access,By_Allocation 00ba 00d8 | | Load_Top At_Offset_0 00bb 0217 | | Execute Heap_Access,All_Reference 00bc 1c00 | | Execute_Immediate Run_Utility,0x0 00bd 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00be e21f | | Load 0x1,0x1f 00bf e00f | | Load 0x0,0xf 00c0 039c | | Declare_Variable Heap_Access,By_Allocation 00c1 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c2 e5fe | | Load 0x2,-0x2 00c3 00da | | Load_Top At_Offset_2 00c4 0217 | | Execute Heap_Access,All_Reference 00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c6 e5fd | | Load 0x2,-0x3 00c7 00da | | Load_Top At_Offset_2 00c8 0217 | | Execute Heap_Access,All_Reference 00c9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ca e21d | | Load 0x1,0x1d 00cb 4800 |H | Short_Literal 0x0 00cc 00db | | Load_Top At_Offset_3 00cd e5ff | | Load 0x2,-0x1 00ce e010 | | Load 0x0,0x10 00cf e21c | | Load 0x1,0x1c 00d0 0096 | | Execute Package,Entry 00d1 c21d | | Store 0x1,0x1d 00d2 00d9 | | Load_Top At_Offset_1 00d3 00d9 | | Load_Top At_Offset_1 00d4 0217 | | Execute Heap_Access,All_Reference 00d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d6 e5ff | | Load 0x2,-0x1 00d7 00d9 | | Load_Top At_Offset_1 00d8 0217 | | Execute Heap_Access,All_Reference 00d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00da e226 | & | Load 0x1,0x26 00db 00d9 | | Load_Top At_Offset_1 00dc e220 | | Load 0x1,0x20 00dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00de a226 | & | Store_Unchecked 0x1,0x26 00df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00e4 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00ec 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f8 | | .CONST 0x00f8 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 e21a | | Load 0x1,0x1a 00f4 0007 | | Action Break_Optional 00f5 00e1 | | Load_Encached Boolean_Cache 00f6 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 00f8 BODY_00f0: 00f8 00e1 | | Load_Encached Boolean_Cache 00f9 00db | | Load_Top At_Offset_3 00fa e5ff | | Load 0x2,-0x1 00fb e21d | | Load 0x1,0x1d 00fc e011 | | Load 0x0,0x11 00fd e21c | | Load 0x1,0x1c 00fe 0096 | | Execute Package,Entry 00ff c402 | | Store 0x2,0x2 0100 005a | Z | Store_Top Discrete,At_Offset_2 0101 e21d | | Load 0x1,0x1d 0102 e5ff | | Load 0x2,-0x1 0103 e012 | | Load 0x0,0x12 0104 e21c | | Load 0x1,0x1c 0105 0096 | | Execute Package,Entry 0106 c21d | | Store 0x1,0x1d 0107 00d9 | | Load_Top At_Offset_1 0108 6801 |h | Jump_Zero 0x10a 0109 8404 | | Call 0x2,0x4 010a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0116 | | .CONST 0x0116 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e21a | | Load 0x1,0x1a 0114 0007 | | Action Break_Optional 0115 00e1 | | Load_Encached Boolean_Cache 0116 BODY_0110: 0116 00e1 | | Load_Encached Boolean_Cache 0117 00da | | Load_Top At_Offset_2 0118 e5ff | | Load 0x2,-0x1 0119 e21d | | Load 0x1,0x1d 011a e011 | | Load 0x0,0x11 011b e21c | | Load 0x1,0x1c 011c 0096 | | Execute Package,Entry 011d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 011e 0059 | Y | Store_Top Discrete,At_Offset_1 011f 00d8 | | Load_Top At_Offset_0 0120 680b |h | Jump_Zero 0x12c 0121 e5fe | | Load 0x2,-0x2 0122 e5ff | | Load 0x2,-0x1 0123 00db | | Load_Top At_Offset_3 0124 0217 | | Execute Heap_Access,All_Reference 0125 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0126 e402 | | Load 0x2,0x2 0127 0217 | | Execute Heap_Access,All_Reference 0128 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0129 4804 |H | Short_Literal 0x4 012a e227 | ' | Load 0x1,0x27 012b 170d | | Execute Task,Entry_Call,Field_Number 0xd 012c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5fc | | Load 0x2,-0x4 0134 00db | | Load_Top At_Offset_3 0135 e5fd | | Load 0x2,-0x3 0136 e5fe | | Load 0x2,-0x2 0137 4804 |H | Short_Literal 0x4 0138 e227 | ' | Load 0x1,0x27 0139 170d | | Execute Task,Entry_Call,Field_Number 0xd 013a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 6803 |h | Jump_Zero 0x148 0145 e221 | ! | Load 0x1,0x21 0146 8228 | ( | Call 0x1,0x28 0147 7805 |x | Jump 0x14d 0148 e21d | | Load 0x1,0x1d 0149 e013 | | Load 0x0,0x13 014a e21c | | Load 0x1,0x1c 014b 0096 | | Execute Package,Entry 014c c21d | | Store 0x1,0x1d 014d e220 | | Load 0x1,0x20 014e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 014f a221 | ! | Store_Unchecked 0x1,0x21 0150 e014 | | Load 0x0,0x14 0151 a225 | % | Store_Unchecked 0x1,0x25 0152 e220 | | Load 0x1,0x20 0153 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0154 a226 | & | Store_Unchecked 0x1,0x26 0155 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0164 a225 | % | Store_Unchecked 0x1,0x25 0165 e220 | | Load 0x1,0x20 0166 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0167 a226 | & | Store_Unchecked 0x1,0x26 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e224 | $ | Load 0x1,0x24 0174 4800 |H | Short_Literal 0x0 0175 e226 | & | Load 0x1,0x26 0176 e225 | % | Load 0x1,0x25 0177 e010 | | Load 0x0,0x10 0178 e223 | # | Load 0x1,0x23 0179 0096 | | Execute Package,Entry 017a c224 | $ | Store 0x1,0x24 017b e220 | | Load 0x1,0x20 017c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017d a226 | & | Store_Unchecked 0x1,0x26 017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0186 | | .CONST 0x0186 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 e220 | | Load 0x1,0x20 0184 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0185 00e1 | | Load_Encached Boolean_Cache 0186 BODY_0180: 0186 00e1 | | Load_Encached Boolean_Cache 0187 00da | | Load_Top At_Offset_2 0188 e5ff | | Load 0x2,-0x1 0189 e224 | $ | Load 0x1,0x24 018a e011 | | Load 0x0,0x11 018b e223 | # | Load 0x1,0x23 018c 0096 | | Execute Package,Entry 018d 003b | ; | Store_Top Access,At_Offset_3 018e 0059 | Y | Store_Top Discrete,At_Offset_1 018f 00d8 | | Load_Top At_Offset_0 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a0 | | .CONST 0x01a0 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0004 | | .CONST 0x0004 ; Number of locals 019b INIT_0198: 019b e220 | | Load 0x1,0x20 019c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 019d 00e1 | | Load_Encached Boolean_Cache 019e e220 | | Load 0x1,0x20 019f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01a0 BODY_0198: 01a0 00e1 | | Load_Encached Boolean_Cache 01a1 00db | | Load_Top At_Offset_3 01a2 e5ff | | Load 0x2,-0x1 01a3 e224 | $ | Load 0x1,0x24 01a4 e011 | | Load 0x0,0x11 01a5 e223 | # | Load 0x1,0x23 01a6 0096 | | Execute Package,Entry 01a7 c402 | | Store 0x2,0x2 01a8 005a | Z | Store_Top Discrete,At_Offset_2 01a9 00d9 | | Load_Top At_Offset_1 01aa 6803 |h | Jump_Zero 0x1ae 01ab 00da | | Load_Top At_Offset_2 01ac 8228 | ( | Call 0x1,0x28 01ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ae e218 | | Load 0x1,0x18 01af 0257 | W | Execute Discrete,Raise 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4800 |H | Short_Literal 0x0 01b4 0092 0269 | i| Action Push_String_Extended,0x269 ; "Breakpoint Map Statistics" 01b6 e21d | | Load 0x1,0x1d 01b7 e015 | | Load 0x0,0x15 01b8 e21c | | Load 0x1,0x1c 01b9 0096 | | Execute Package,Entry 01ba 4800 |H | Short_Literal 0x0 01bb 0092 026a | j| Action Push_String_Extended,0x26a ; "Unit Map Statistics" 01bd e224 | $ | Load 0x1,0x24 01be e015 | | Load 0x0,0x15 01bf e223 | # | Load 0x1,0x23 01c0 0096 | | Execute Package,Entry 01c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c2 0000 0000 | | .BLANK 0000[0x6] 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 4601 |F | Jump_Case 0x2 01cc 7801 |x | Jump 0x1ce ; case 0x0 01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ce 4800 |H | Short_Literal 0x0 01cf 00db | | Load_Top At_Offset_3 01d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc e016 | | Load 0x0,0x16 01dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01de 09fd | | Execute_Immediate Binary_Scale,-0x3 01df 6008 |` | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x0000ffff} 01e0 0279 | y | Execute Discrete,And 01e1 00d8 | | Load_Top At_Offset_0 01e2 00e2 | | Load_Encached Integer_Cache 01e3 0260 | ` | Execute Discrete,In_Type 01e4 7001 |p | Jump_Nonzero 0x1e6 01e5 0801 | | Execute_Immediate Raise,0x1 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 0000 | | .XXX[0x1] 01e8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 8017 | | Call 0x0,0x17 01f5 09fd | | Execute_Immediate Binary_Scale,-0x3 01f6 48ff |H | Short_Literal 0xff 01f7 0279 | y | Execute Discrete,And 01f8 00d8 | | Load_Top At_Offset_0 01f9 00e2 | | Load_Encached Integer_Cache 01fa 0260 | ` | Execute Discrete,In_Type 01fb 7001 |p | Jump_Nonzero 0x1fd 01fc 0801 | | Execute_Immediate Raise,0x1 01fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0207 | | .CONST 0x0207 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 e220 | | Load 0x1,0x20 0204 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0205 e21f | | Load 0x1,0x1f 0206 0007 | | Action Break_Optional 0207 BODY_0200: 0207 e220 | | Load 0x1,0x20 0208 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0209 e5ff | | Load 0x2,-0x1 020a e220 | | Load 0x1,0x20 020b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020c 003a | : | Store_Top Access,At_Offset_2 020d 00cf | | Action Mark_Auxiliary 020e 7817 |x | Jump 0x226 020f 00da | | Load_Top At_Offset_2 0210 e220 | | Load 0x1,0x20 0211 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0212 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0213 00d9 | | Load_Top At_Offset_1 0214 0217 | | Execute Heap_Access,All_Reference 0215 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0216 0217 | | Execute Heap_Access,All_Reference 0217 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0218 00da | | Load_Top At_Offset_2 0219 0217 | | Execute Heap_Access,All_Reference 021a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021b 0217 | | Execute Heap_Access,All_Reference 021c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021d 00db | | Load_Top At_Offset_3 021e 0217 | | Execute Heap_Access,All_Reference 021f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0220 820d | | Call 0x1,0xd 0221 00da | | Load_Top At_Offset_2 0222 e220 | | Load 0x1,0x20 0223 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0224 003b | ; | Store_Top Access,At_Offset_3 0225 00c9 | | Action Pop_Auxiliary_Loop 0226 00da | | Load_Top At_Offset_2 0227 e220 | | Load 0x1,0x20 0228 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0229 6fe5 |o | Jump_Zero 0x20f 022a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022b 0000 0000 | | .BLANK 0000[0x5] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0236 | 6 | .CONST 0x0236 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 e21f | | Load 0x1,0x1f 0234 e00f | | Load 0x0,0xf 0235 039c | | Declare_Variable Heap_Access,By_Allocation 0236 BODY_0230: 0236 e402 | | Load 0x2,0x2 0237 00d9 | | Load_Top At_Offset_1 0238 0217 | | Execute Heap_Access,All_Reference 0239 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 023a e5ff | | Load 0x2,-0x1 023b 00d9 | | Load_Top At_Offset_1 023c 0217 | | Execute Heap_Access,All_Reference 023d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 023e e221 | ! | Load 0x1,0x21 023f 00d9 | | Load_Top At_Offset_1 0240 e220 | | Load 0x1,0x20 0241 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0242 a221 | ! | Store_Unchecked 0x1,0x21 0243 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0256 | V | .CONST 0x0256 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 000e | | .CONST 0x000e ; Number of locals 024b INIT_0248: 024b 4804 |H | Short_Literal 0x4 024c 02cb | | Declare_Variable Entry 024d 00bf | | Action Accept_Activation 024e 480d 484c |H HL| Declare_Variable Select 0x000, 0x001, 0250 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 0252 4800 4801 |H H | [0x00d]: 0x04c = 0x0260 0254 02cf | | 0255 00bc | | Action Signal_Activated 0256 BODY_0248: 0256 00cf | | Action Mark_Auxiliary 0257 00d9 | | Load_Top At_Offset_1 0258 013f | ? | Execute Select,Rendezvous 0259 00d1 | | Pop_Control Pop_Count_1 025a 00c9 | | Action Pop_Auxiliary_Loop 025b 7ffb | | Jump 0x257 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; See instruction 0x02cf at 0x24e, index=0xd 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 e5fb | | Load 0x2,-0x5 0264 e5fc | | Load 0x2,-0x4 0265 e5fd | | Load 0x2,-0x3 0266 e5fe | | Load 0x2,-0x2 0267 8001 | | Call 0x0,0x1 0268 4100 |A | End_Rendezvous 0x0 0269 ; -------------------------------------------------------------------------------------- 0269 ; STRING TABLE 0269 ; -------------------------------------------------------------------------------------- 0269 0006 | | .STRTAB 0x0006->0x026c ; "Breakpoint Map Statistics" 026a 001d | | .STRTAB 0x001d->0x0278 ; "Unit Map Statistics" 026b 002e | . | .STREND 0x002e->0x0282 026c 4272 6561 |Brea| .STRTAB_STRINGS 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug Table 0288 ; -------------------------------------------------------------------------------------- 0288 0004 000a | | .DEBUG4 0x0004,0x000a,0xa786,0x0000,0x0001,0x0000 028e 0000 0000 | | .BLANK 0000[0x172]