|
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_6a18da
└─⟦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 0238 | 8 | .CONST 0x0238 ; 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 0x1d3, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 0062 | b | .CONST 0x0062 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 00c4 | | Action Make_Default 000e 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0010 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0012 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0014 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0016 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0018 e001 | | Load 0x0,0x1 0019 1b18 | | Execute Package,Field_Read,Field_Number 0x18 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b e20d | | Load 0x1,0xd 001c 03c7 | | Complete_Type Access,By_Defining 001d e20d | | Load 0x1,0xd 001e 0129 | ) | Execute Any,Make_Visible 001f c20e | | Store 0x1,0xe 0020 00bf | | Action Accept_Activation 0021 4802 |H | Short_Literal 0x2 0022 032a | * | Declare_Type Record,Incomplete 0023 00d8 | | Load_Top At_Offset_0 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 4818 |H | Short_Literal 0x18 0026 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0027 e20d | | Load 0x1,0xd 0028 00d9 | | Load_Top At_Offset_1 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a e214 | | Load 0x1,0x14 002b 0326 | & | Complete_Type Record,By_Defining 002c 4800 |H | Short_Literal 0x0 002d e001 | | Load 0x0,0x1 002e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002f 0aff | | Execute_Immediate Plus,-0x1 0030 00e3 | | Load_Encached Natural_Cache 0031 03f8 | | Declare_Type Discrete,Constrained 0032 4800 |H | Short_Literal 0x0 0033 00d9 | | Load_Top At_Offset_1 0034 0269 | i | Execute Discrete,Last 0035 00db | | Load_Top At_Offset_3 0036 02a0 | | Declare_Subprogram Null_Subprogram 0037 4801 |H | Short_Literal 0x1 0038 035d | ] | Declare_Type Array,Defined 0039 00d8 | | Load_Top At_Offset_0 003a 0337 | 7 | Declare_Variable Array 003b 00d8 | | Load_Top At_Offset_0 003c 0335 | 5 | Declare_Variable Array,Duplicate 003d 00cd | | Action Spare6_Action 003e 00d9 | | Load_Top At_Offset_1 003f 01d9 | | Execute Vector,Reverse_Bounds 0040 0263 | c | Execute Discrete,Above_Bound 0041 7005 |p | Jump_Nonzero 0x47 0042 e215 | | Load 0x1,0x15 0043 00d9 | | Load_Top At_Offset_1 0044 e219 | | Load 0x1,0x19 0045 01d6 | | Execute Vector,Field_Write 0046 3ffb |? | Loop_Increasing 0x42 0047 00d9 | | Load_Top At_Offset_1 0048 01d4 | | Execute Vector,Structure_Write 0049 4800 |H | Short_Literal 0x0 004a 0093 0113 | | push_full_address INIT_0110 004c 00f5 | | Load_Encached Unused21 004d 037d | } | Declare_Type Task,Defined 004e 036f | o | Declare_Variable Task 004f 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 0051 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0052 00c7 | | Action Elaborate_Subprogram 0053 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0054 00c7 | | Action Elaborate_Subprogram 0055 e215 | | Load 0x1,0x15 0056 e214 | | Load 0x1,0x14 0057 00b6 | | Action Make_Scope 0058 4803 |H | Short_Literal 0x3 0059 e219 | | Load 0x1,0x19 005a 020e | | Execute Module,Augment_Imports 005b 0007 | | Action Break_Optional 005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005d 00c7 | | Action Elaborate_Subprogram 005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005f 00c7 | | Action Elaborate_Subprogram 0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0061 00c7 | | Action Elaborate_Subprogram 0062 BODY_0008: 0062 BODY_0008: 0062 00be | | Action Activate_Tasks 0063 00bc | | Action Signal_Activated 0064 00bb | | Action Signal_Completion 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0072 | r | .CONST 0x0072 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 821a | | Call 0x1,0x1a 006d e218 | | Load 0x1,0x18 006e 01d5 | | Execute Vector,Field_Reference 006f 0007 | | Action Break_Optional 0070 00d8 | | Load_Top At_Offset_0 0071 0007 | | Action Break_Optional 0072 BODY_0068: 0072 00d9 | | Load_Top At_Offset_1 0073 7011 |p | Jump_Nonzero 0x85 0074 e214 | | Load 0x1,0x14 0075 0322 | " | Declare_Variable Record 0076 e5ff | | Load 0x2,-0x1 0077 e20d | | Load 0x1,0xd 0078 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0079 00d9 | | Load_Top At_Offset_1 007a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007b e215 | | Load 0x1,0x15 007c 00d9 | | Load_Top At_Offset_1 007d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007e e215 | | Load 0x1,0x15 007f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0080 a402 | | Store_Unchecked 0x2,0x2 0081 00d9 | | Load_Top At_Offset_1 0082 0227 | ' | Execute Access,All_Reference 0083 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0085 00cf | | Action Mark_Auxiliary 0086 7818 |x | Jump 0x9f 0087 00d9 | | Load_Top At_Offset_1 0088 0227 | ' | Execute Access,All_Reference 0089 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008a 700f |p | Jump_Nonzero 0x9a 008b e214 | | Load 0x1,0x14 008c 0322 | " | Declare_Variable Record 008d e5ff | | Load 0x2,-0x1 008e e20d | | Load 0x1,0xd 008f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0090 00d9 | | Load_Top At_Offset_1 0091 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0092 e215 | | Load 0x1,0x15 0093 00d9 | | Load_Top At_Offset_1 0094 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0095 e215 | | Load 0x1,0x15 0096 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0097 00da | | Load_Top At_Offset_2 0098 0227 | ' | Execute Access,All_Reference 0099 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009a 00d9 | | Load_Top At_Offset_1 009b 0227 | ' | Execute Access,All_Reference 009c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 009d 003a | : | Store_Top Access,At_Offset_2 009e 00c9 | | Action Pop_Auxiliary_Loop 009f e5ff | | Load 0x2,-0x1 00a0 00da | | Load_Top At_Offset_2 00a1 0227 | ' | Execute Access,All_Reference 00a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a3 0227 | ' | Execute Access,All_Reference 00a4 01df | | Execute Vector,Equal 00a5 6fe1 |o | Jump_Zero 0x87 00a6 00ce | | Action Pop_Auxiliary 00a7 00d8 | | Load_Top At_Offset_0 00a8 0227 | ' | Execute Access,All_Reference 00a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 0227 | ' | Execute Access,All_Reference 00b5 0335 | 5 | Declare_Variable Array,Duplicate 00b6 00cd | | Action Spare6_Action 00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e20d | | Load 0x1,0xd 00bc 0007 | | Action Break_Optional 00bd BODY_00b8: 00bd e20d | | Load 0x1,0xd 00be e5ff | | Load 0x2,-0x1 00bf 4802 |H | Short_Literal 0x2 00c0 e219 | | Load 0x1,0x19 00c1 170d | | Execute Task,Entry_Call,Field_Number 0xd 00c2 0039 | 9 | Store_Top Access,At_Offset_1 00c3 00d8 | | Load_Top At_Offset_0 00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 4801 |H | Short_Literal 0x1 00cd e219 | | Load 0x1,0x19 00ce 170e | | Execute Task,Entry_Call,Field_Number 0xe 00cf 003b | ; | Store_Top Access,At_Offset_3 00d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 4801 |H | Short_Literal 0x1 00dd e219 | | Load 0x1,0x19 00de 170f | | Execute Task,Entry_Call,Field_Number 0xf 00df 003b | ; | Store_Top Access,At_Offset_3 00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ef | | .CONST 0x00ef ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 01db | | Execute Vector,Length 00ed 00e3 | | Load_Encached Natural_Cache 00ee 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00ef BODY_00e8: 00ef 00d8 | | Load_Top At_Offset_0 00f0 7007 |p | Jump_Nonzero 0xf8 00f1 00d8 | | Load_Top At_Offset_0 00f2 00d8 | | Load_Top At_Offset_0 00f3 e216 | | Load 0x1,0x16 00f4 0260 | ` | Execute Discrete,In_Type 00f5 7001 |p | Jump_Nonzero 0xf7 00f6 0801 | | Execute_Immediate Raise,0x1 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f8 00db | | Load_Top At_Offset_3 00f9 01dd | | Execute Vector,First 00fa e5ff | | Load 0x2,-0x1 00fb 01d7 | | Execute Vector,Field_Read 00fc e5ff | | Load 0x2,-0x1 00fd 01dc | | Execute Vector,Last 00fe e5ff | | Load 0x2,-0x1 00ff 01d7 | | Execute Vector,Field_Read 0100 0273 | s | Execute Discrete,Plus 0101 00d9 | | Load_Top At_Offset_1 0102 0273 | s | Execute Discrete,Plus 0103 e001 | | Load 0x0,0x1 0104 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0105 026e | n | Execute Discrete,Modulo 0106 00d8 | | Load_Top At_Offset_0 0107 e216 | | Load 0x1,0x16 0108 0260 | ` | Execute Discrete,In_Type 0109 7001 |p | Jump_Nonzero 0x10b 010a 0801 | | Execute_Immediate Raise,0x1 010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0125 | % | .CONST 0x0125 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0014 | | .CONST 0x0014 ; Number of locals 0113 INIT_0110: 0113 4802 |H | Short_Literal 0x2 0114 02cb | | Declare_Variable Entry 0115 4801 |H | Short_Literal 0x1 0116 02cb | | Declare_Variable Entry 0117 4801 |H | Short_Literal 0x1 0118 02cb | | Declare_Variable Entry 0119 00bf | | Action Accept_Activation 011a e001 | | Load 0x0,0x1 011b 0007 | | Action Break_Optional 011c 00d8 | | Load_Top At_Offset_0 011d 0007 | | Action Break_Optional 011e 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 0120 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 0122 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0124 00bc | | Action Signal_Activated 0125 BODY_0110: 0125 00cf | | Action Mark_Auxiliary 0126 8214 | | Call 0x1,0x14 0127 00c9 | | Action Pop_Auxiliary_Loop 0128 7ffd | | Jump 0x126 0129 0000 0000 | | .BLANK 0000[0x7] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0136 | 6 | .CONST 0x0136 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 e211 | | Load 0x1,0x11 0134 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0136 BODY_0130: 0136 00d9 | | Load_Top At_Offset_1 0137 6832 |h2 | Jump_Zero 0x16a 0138 00d9 | | Load_Top At_Offset_1 0139 0227 | ' | Execute Access,All_Reference 013a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013b 0227 | ' | Execute Access,All_Reference 013c 01db | | Execute Vector,Length 013d e5ff | | Load 0x2,-0x1 013e 01db | | Execute Vector,Length 013f 027f | | Execute Discrete,Equal 0140 6805 |h | Jump_Zero 0x146 0141 00d9 | | Load_Top At_Offset_1 0142 0227 | ' | Execute Access,All_Reference 0143 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0144 a211 | | Store_Unchecked 0x1,0x11 0145 7824 |x$ | Jump 0x16a 0146 00cf | | Action Mark_Auxiliary 0147 7812 |x | Jump 0x15a 0148 00da | | Load_Top At_Offset_2 0149 0227 | ' | Execute Access,All_Reference 014a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014b 0227 | ' | Execute Access,All_Reference 014c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014d 0227 | ' | Execute Access,All_Reference 014e 01db | | Execute Vector,Length 014f e5ff | | Load 0x2,-0x1 0150 01db | | Execute Vector,Length 0151 027f | | Execute Discrete,Equal 0152 6802 |h | Jump_Zero 0x155 0153 8403 | | Call 0x2,0x3 0154 7809 |x | Jump 0x15e 0155 00da | | Load_Top At_Offset_2 0156 0227 | ' | Execute Access,All_Reference 0157 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0158 003b | ; | Store_Top Access,At_Offset_3 0159 00c9 | | Action Pop_Auxiliary_Loop 015a 00da | | Load_Top At_Offset_2 015b 0227 | ' | Execute Access,All_Reference 015c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015d 77ea |w | Jump_Nonzero 0x148 015e 00ce | | Action Pop_Auxiliary 015f 00d9 | | Load_Top At_Offset_1 0160 0227 | ' | Execute Access,All_Reference 0161 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0162 0227 | ' | Execute Access,All_Reference 0163 01db | | Execute Vector,Length 0164 e5ff | | Load 0x2,-0x1 0165 01db | | Execute Vector,Length 0166 027e | ~ | Execute Discrete,Not_Equal 0167 6802 |h | Jump_Zero 0x16a 0168 e001 | | Load 0x0,0x1 0169 003a | : | Store_Top Access,At_Offset_2 016a 00d9 | | Load_Top At_Offset_1 016b 700f |p | Jump_Nonzero 0x17b 016c e002 | | Load 0x0,0x2 016d 0322 | " | Declare_Variable Record 016e e5ff | | Load 0x2,-0x1 016f e003 | | Load 0x0,0x3 0170 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0171 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0172 00d9 | | Load_Top At_Offset_1 0173 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0174 e001 | | Load 0x0,0x1 0175 00d9 | | Load_Top At_Offset_1 0176 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0177 e001 | | Load 0x0,0x1 0178 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0179 003a | : | Store_Top Access,At_Offset_2 017a 7805 |x | Jump 0x180 017b e5ff | | Load 0x2,-0x1 017c 00da | | Load_Top At_Offset_2 017d 0229 | ) | Execute Access,All_Read 017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017f 0228 | ( | Execute Access,All_Write 0180 e210 | | Load 0x1,0x10 0181 00da | | Load_Top At_Offset_2 0182 0227 | ' | Execute Access,All_Reference 0183 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0184 00d9 | | Load_Top At_Offset_1 0185 a210 | | Store_Unchecked 0x1,0x10 0186 00d9 | | Load_Top At_Offset_1 0187 0227 | ' | Execute Access,All_Reference 0188 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0189 a5fe | | Store_Unchecked 0x2,-0x2 018a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0196 | | .CONST 0x0196 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e210 | | Load 0x1,0x10 0194 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0196 BODY_0190: 0196 00d9 | | Load_Top At_Offset_1 0197 6831 |h1 | Jump_Zero 0x1c9 0198 00d9 | | Load_Top At_Offset_1 0199 0227 | ' | Execute Access,All_Reference 019a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019b e5ff | | Load 0x2,-0x1 019c 022f | / | Execute Access,Equal 019d 6805 |h | Jump_Zero 0x1a3 019e 00d9 | | Load_Top At_Offset_1 019f 0227 | ' | Execute Access,All_Reference 01a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a1 a210 | | Store_Unchecked 0x1,0x10 01a2 781e |x | Jump 0x1c1 01a3 00cf | | Action Mark_Auxiliary 01a4 780f |x | Jump 0x1b4 01a5 00da | | Load_Top At_Offset_2 01a6 0227 | ' | Execute Access,All_Reference 01a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a8 0227 | ' | Execute Access,All_Reference 01a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01aa e5ff | | Load 0x2,-0x1 01ab 022f | / | Execute Access,Equal 01ac 6802 |h | Jump_Zero 0x1af 01ad 8403 | | Call 0x2,0x3 01ae 7809 |x | Jump 0x1b8 01af 00da | | Load_Top At_Offset_2 01b0 0227 | ' | Execute Access,All_Reference 01b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b2 003b | ; | Store_Top Access,At_Offset_3 01b3 00c9 | | Action Pop_Auxiliary_Loop 01b4 00da | | Load_Top At_Offset_2 01b5 0227 | ' | Execute Access,All_Reference 01b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b7 77ed |w | Jump_Nonzero 0x1a5 01b8 00ce | | Action Pop_Auxiliary 01b9 00d9 | | Load_Top At_Offset_1 01ba 0227 | ' | Execute Access,All_Reference 01bb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bc e5ff | | Load 0x2,-0x1 01bd 022e | . | Execute Access,Not_Equal 01be 6802 |h | Jump_Zero 0x1c1 01bf e001 | | Load 0x0,0x1 01c0 003a | : | Store_Top Access,At_Offset_2 01c1 00d9 | | Load_Top At_Offset_1 01c2 6806 |h | Jump_Zero 0x1c9 01c3 e211 | | Load 0x1,0x11 01c4 00da | | Load_Top At_Offset_2 01c5 0227 | ' | Execute Access,All_Reference 01c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c7 00d9 | | Load_Top At_Offset_1 01c8 a211 | | Store_Unchecked 0x1,0x11 01c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01de | | .CONST 0x01de ; Address of begin 01d1 01e4 | | .CONST 0x01e4 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 480f 4841 |H HA| Declare_Variable Select 0x000, 0x003, 01d5 480e 4843 |H HC| [0x000]: 0x001 = 0x0008, 01d7 480d 4845 |H HE| [0x00d]: 0x045 = 0x0228, 01d9 4800 4801 |H H | [0x00e]: 0x043 = 0x0218, 01db 4800 4803 |H H | [0x00f]: 0x041 = 0x0208 01dd 02cf | | 01de BODY_01d0: 01de 00cf | | Action Mark_Auxiliary 01df 00d9 | | Load_Top At_Offset_1 01e0 013f | ? | Execute Select,Rendezvous 01e1 00d1 | | Pop_Control Pop_Count_1 01e2 00c9 | | Action Pop_Auxiliary_Loop 01e3 7ffb | | Jump 0x1df 01e4 TRAP_01d0: 01e4 0007 | | Action Break_Optional 01e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ef | | .CONST 0x01ef ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e402 | | Load 0x2,0x2 01ec 0227 | ' | Execute Access,All_Reference 01ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ee 0007 | | Action Break_Optional 01ef BODY_01e8: 01ef 00d8 | | Load_Top At_Offset_0 01f0 0227 | ' | Execute Access,All_Reference 01f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f2 e402 | | Load 0x2,0x2 01f3 0227 | ' | Execute Access,All_Reference 01f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f5 00d8 | | Load_Top At_Offset_0 01f6 a402 | | Store_Unchecked 0x2,0x2 01f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e402 | | Load 0x2,0x2 01fc 0227 | ' | Execute Access,All_Reference 01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01fe 0007 | | Action Break_Optional 01ff BODY_01f8: 01ff 00d8 | | Load_Top At_Offset_0 0200 0227 | ' | Execute Access,All_Reference 0201 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0202 e402 | | Load 0x2,0x2 0203 0227 | ' | Execute Access,All_Reference 0204 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0205 00d8 | | Load_Top At_Offset_0 0206 a402 | | Store_Unchecked 0x2,0x2 0207 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; See instruction 0x02cf at 0x1d3, index=0xf 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 020c 8213 | | Call 0x1,0x13 020d e003 | | Load 0x0,0x3 020e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020f a7fe | | Store_Unchecked 0x3,-0x2 0210 4101 |A | End_Rendezvous 0x1 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; See instruction 0x02cf at 0x1d3, index=0xe 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00db | | Load_Top At_Offset_3 021c 8213 | | Call 0x1,0x13 021d 00db | | Load_Top At_Offset_3 021e 0227 | ' | Execute Access,All_Reference 021f e003 | | Load 0x0,0x3 0220 180f | | Execute Package,Field_Execute,Field_Number 0xf 0221 a7fe | | Store_Unchecked 0x3,-0x2 0222 4101 |A | End_Rendezvous 0x1 0223 0000 0000 | | .BLANK 0000[0x5] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; See instruction 0x02cf at 0x1d3, index=0xd 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e003 | | Load 0x0,0x3 022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022d e7fe | | Load 0x3,-0x2 022e 8212 | | Call 0x1,0x12 022f c7fd | | Store 0x3,-0x3 0230 4101 |A | End_Rendezvous 0x1 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e4a,0x0000,0x0001,0x0000 023e 8052 3890 | R8 | .XXX[0x2] 0240 0000 0000 | | .BLANK 0000[0x8] 0248 0012 0d5c | \| .XXX[0x1c] 024a 7000 00b9 |p | 024c f240 0004 | @ | 024e 0030 0027 | 0 '| 0250 4000 0001 |@ | 0252 5d30 0016 |]0 | 0254 4000 0001 |@ | 0256 400a 0000 |@ | 0258 0002 0000 | | 025a 0080 0000 | | 025c 0440 0000 | @ | 025e 0002 0000 | | 0260 0014 8000 | | 0262 b20a d0b6 | | 0264 0000 0000 | | .BLANK 0000[0x12] 0276 8000 b00a | | .XXX[0x3] 0278 4712 |G | 0279 0000 0000 | | .BLANK 0000[0x8] 0281 0002 41ab | A | .XXX[0x1d] 0283 8e00 0017 | | 0285 4848 0000 |HH | 0287 8006 0004 | | 0289 e800 0000 | | 028b 2ba6 0002 |+ | 028d d000 0000 | | 028f 2801 4000 |( @ | 0291 0000 4000 | @ | 0293 0010 0000 | | 0295 0088 0000 | | 0297 0000 4000 | @ | 0299 0002 9000 | | 029b 1641 5a16 | AZ | 029d c000 | | 029e 0000 0000 | | .BLANK 0000[0x11] 02af 1000 1680 | | .XXX[0x3] 02b1 3590 |5 | 02b2 0000 0000 | | .BLANK 0000[0x9] 02bb 4835 71c0 |H5q | .XXX[0x1c] 02bd 0002 e929 | )| 02bf 0000 1000 | | 02c1 c000 9d00 | | 02c3 0000 0574 | t| 02c5 c000 5b00 | [ | 02c7 0000 0500 | | 02c9 2800 0000 |( | 02cb 0800 0002 | | 02cd 0000 0011 | | 02cf 0000 0000 | | 02d1 0800 0000 | | 02d3 5200 02c8 |R | 02d5 2b42 d800 |+B | 02d7 0000 0000 | | .BLANK 0000[0x11] 02e8 0200 02d8 | | .XXX[0x4] 02ea 0763 d000 | c | 02ec 0000 0000 | | .BLANK 0000[0x8] 02f4 0906 ae38 | 8| .XXX[0x1c] 02f6 0000 5d2d | ]-| 02f8 2000 0200 | | 02fa 1800 13a0 | | 02fc 0000 00ae | | 02fe 9800 0b80 | | 0300 0000 00a0 | | 0302 0500 0000 | | 0304 0100 0000 | | 0306 4000 0002 |@ | 0308 2000 0000 | | 030a 0100 0000 | | 030c 0a40 005c | @ \| 030e 010d e800 | | 0310 0000 0000 | | .BLANK 0000[0x11] 0321 0040 005c | @ \| .XXX[0x4] 0323 010d e600 | | 0325 0000 0000 | | .BLANK 0000[0x8] 032d 0120 d5c8 | | .XXX[0x1c] 032f 8000 09ce | | 0331 a400 0040 | @| 0333 0300 0274 | t| 0335 0000 0016 | | 0337 ac00 0008 | | 0339 0000 000c | | 033b 00a0 0000 | | 033d 0020 0000 | | 033f 0800 0000 | | 0341 4400 0000 |D | 0343 0020 0000 | | 0345 0148 0000 | H | 0347 408e 9a80 |@ | 0349 0000 0000 | | .BLANK 0000[0x1d] 0366 0024 1ab9 | $ | .XXX[0x1c] 0368 2800 0139 |( 9| 036a d480 0008 | | 036c 0060 004e | ` N| 036e 8000 0002 | | 0370 c440 0001 | @ | 0372 0000 0002 | | 0374 8014 0000 | | 0376 0004 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0029 0000 | ) | 0380 0811 b918 | | 0382 0000 0000 | | .BLANK 0000[0x8] 038a 0001 0000 | | .XXX[0x4] 038c 0811 d4f0 | | 038e 0000 0000 | | .BLANK 0000[0x1f] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]