|
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_ccb0b3
└─⟦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 8115 b9d9 | | .XXX[0x51] 0240 a5c9 bdb9 | | 0242 b595 b9d0 | | 0244 2935 154d |)5 M| 0246 4d05 1d14 |M | 0248 e880 8080 | | 024a 8081 117c | || 024c c4c9 7cd9 | | | 024e 7cd4 810d || | 0250 bdc1 e5c9 | | 0252 a59d a1d0 | | 0254 80c4 e4e4 | | 0256 c8b0 8189 | | 0258 e481 4985 | I | 025a d1a5 bdb9 | | 025c 85b0 b828 | (| 025e 2915 e195 |) | 0260 8dd5 d1a5 | | 0262 b99c 818d | | 0264 bdb5 b585 | | 0266 b990 81c1 | | 0268 c9bd 8d95 | | 026a 91d5 c994 | | 026c 2935 154d |)5 M| 026e 4d05 1d14 |M | 0270 e881 99c9 | | 0272 bdb4 814d | M| 0274 e5cd d195 | | 0276 b4e8 80c4 | | 0278 e8d0 cce8 | | 027a c0c4 8141 | A| 027c 34ec 8081 |4 | 027e 4db9 85c1 |M | 0280 cda1 bdd0 | | 0282 81dd a5b1 | | 0284 b081 cdd1 | | 0286 85c9 d081 | | 0288 a5b8 80c8 | | 028a c081 cd95 | | 028c 8dbd b991 | | 028e cc28 | ( | 028f a8a8 a8a8 | | .BLANK a8a8[0x5] 0294 8109 1515 | | .XXX[0x3] 0296 4080 |@ | 0297 a8a8 a8a8 | | .BLANK a8a8[0x5] 029c a828 2935 | ()5| .XXX[0x1f] 029e 154d 4d05 | MM | 02a0 1d14 e881 | | 02a2 99c9 bdb4 | | 02a4 814d e5cd | M | 02a6 d195 b4e8 | | 02a8 80c4 e8d0 | | 02aa d0e8 c0c4 | | 02ac 8141 34ec | A4 | 02ae 8081 4db9 | M | 02b0 85c1 cda1 | | 02b2 bdd0 81a1 | | 02b4 85cc 818d | | 02b6 bdb5 c1b1 | | 02b8 95d1 9590 | | 02ba 28a8 |( | 02bb a8a8 a8a8 | | .BLANK a8a8[0x4] 02bf a881 0915 | | .XXX[0x4] 02c1 1540 80a8 | @ | 02c3 a8a8 a8a8 | | .BLANK a8a8[0x5] 02c8 2828 |(( | .XXX[0x1] 02c9 a8a8 a8a8 | | .BLANK a8a8[0x5] 02ce 8109 1515 | | .XXX[0x3] 02d0 4080 |@ | 02d1 a8a8 a8a8 | | .BLANK a8a8[0x5] 02d6 a828 2829 | (()| .XXX[0x64] 02d8 15e1 958d | | 02da d5d1 a5b9 | | 02dc 9c81 0591 | | 02de 84b9 15b9 | | 02e0 8db1 bdcd | | 02e2 a5b9 9c29 | )| 02e4 3515 4d4d |5 MM| 02e6 051d 14e8 | | 02e8 8151 a1a5 | Q | 02ea cc81 a5b5 | | 02ec 859d 9481 | | 02ee a5cc 81c9 | | 02f0 9585 90b5 | | 02f2 bdb9 b1e4 | | 02f4 2829 15e1 |() | 02f6 958d d5d1 | | 02f8 a5b9 9c81 | | 02fa 0591 84b9 | | 02fc 1591 a5d0 | | 02fe 2935 154d |)5 M| 0300 4d05 1d14 |M | 0302 e881 1d15 | | 0304 4d51 253d |MQ%=| 0306 397d 0d05 |9} | 0308 4905 0d51 |I Q| 030a 1549 149d | I | 030c 09bd 91e4 | | 030e 818d a185 | | 0310 b99d 9590 | | 0312 81d1 bc81 | | 0314 4d3d 5549 |M=UI| 0316 0d14 2935 | )5| 0318 154d 4d05 | MM | 031a 1d14 e881 | | 031c 99c9 bdb4 | | 031e 814d e5cd | M | 0320 d195 b4e8 | | 0322 80c8 e8c4 | | 0324 cce8 c0c4 | | 0326 8141 34ec | A4 | 0328 8081 4db9 | M | 032a 85c1 cda1 | | 032c bdd0 81dd | | 032e a5b1 b081 | | 0330 cdd1 85c9 | | 0332 d081 a5b8 | | 0334 80c8 c081 | | 0336 cd95 8dbd | | 0338 b991 cc28 | (| 033a a8a8 a8a8 | | .BLANK a8a8[0x5] 033f 8109 1515 | | .XXX[0x3] 0341 4080 |@ | 0342 a8a8 a8a8 | | .BLANK a8a8[0x5] 0347 a828 2935 | ()5| .XXX[0x1f] 0349 154d 4d05 | MM | 034b 1d14 e881 | | 034d 99c9 bdb4 | | 034f 814d e5cd | M | 0351 d195 b4e8 | | 0353 80c8 e8c4 | | 0355 d4e8 c4e4 | | 0357 8141 34ec | A4 | 0359 8081 4db9 | M | 035b 85c1 cda1 | | 035d bdd0 81a1 | | 035f 85cc 818d | | 0361 bdb5 c1b1 | | 0363 95d1 9590 | | 0365 28a8 |( | 0366 a8a8 a8a8 | | .BLANK a8a8[0x4] 036a a881 0915 | | .XXX[0x4] 036c 1540 80a8 | @ | 036e a8a8 a8a8 | | .BLANK a8a8[0x5] 0373 2828 2915 |(() | .XXX[0x8d] 0375 e195 8dd5 | | 0377 d1a5 b99c | | 0379 8105 9184 | | 037b b94d 95b5 | M | 037d 85b9 d1a5 | | 037f 8da5 e994 | | 0381 2935 154d |)5 M| 0383 4d05 1d14 |M | 0385 e881 39bc | 9 | 0387 81cd 95b5 | | 0389 85b9 d1a5 | | 038b 8c81 95c9 | | 038d c9bd c9cc | | 038f 2829 15e1 |() | 0391 958d d5d1 | | 0393 a5b9 9c81 | | 0395 0591 84b9 | | 0397 4d95 b585 |M | 0399 b9d1 a58d | | 039b a5e9 9429 | )| 039d 3515 4d4d |5 MM| 039f 051d 14e8 | | 03a1 8139 bc81 | 9 | 03a3 cd95 b585 | | 03a5 b9d1 a58c | | 03a7 8195 c9c9 | | 03a9 bdc9 cc28 | (| 03ab 2915 e195 |) | 03ad 8dd5 d1a5 | | 03af b99c 8105 | | 03b1 9184 b941 | A| 03b3 c9bd b5bd | | 03b5 d194 2935 | )5| 03b7 154d 4d05 | MM | 03b9 1d14 e881 | | 03bb 1d15 4d51 | MQ| 03bd 253d 397d |%=9}| 03bf 0d05 4905 | I | 03c1 0d51 1549 | Q I| 03c3 149d 09bd | | 03c5 91e4 818d | | 03c7 a185 b99d | | 03c9 9590 81d1 | | 03cb bc81 2539 | %9| 03cd 4d51 0531 |MQ 1| 03cf 3115 1028 |1 (| 03d1 2915 e195 |) | 03d3 8dd5 d1a5 | | 03d5 b99c 8105 | | 03d7 9184 b941 | A| 03d9 c9bd b5bd | | 03db d194 2935 | )5| 03dd 154d 4d05 | MM | 03df 1d14 e881 | | 03e1 1d15 4d51 | MQ| 03e3 253d 397d |%=9}| 03e5 0d05 4905 | I | 03e7 0d51 1549 | Q I| 03e9 149d 09bd | | 03eb 91e4 818d | | 03ed a185 b99d | | 03ef 9590 81d1 | | 03f1 bc81 0d3d | =| 03f3 1115 1029 | )| 03f5 3515 4d4d |5 MM| 03f7 051d 14e8 | | 03f9 8028 2915 | () | 03fb e195 8dd5 | | 03fd d1a5 b99c | | 03ff 8105 | |