|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0000 0802 | | .XXX[0x56] 0240 0059 24da | Y$ | 0242 0000 0800 | | 0244 0059 24da | Y$ | 0246 0000 0800 | | 0248 000e 1c04 | | 024a 4000 0300 |@ | 024c 0000 0000 | | 024e 0000 005f | _| 0250 0200 0000 | | 0252 0000 0025 | %| 0254 0058 50da | XP | 0256 0000 00da | | 0258 0059 24da | Y$ | 025a 0000 0880 | | 025c 0059 2cda | Y, | 025e 0000 0000 | | 0260 1b86 e000 | | 0262 0000 5d80 | ] | 0264 0000 0000 | | 0266 0000 0001 | | 0268 0000 0000 | | 026a 0000 08bf | | 026c 0000 0000 | | 026e 0000 0001 | | 0270 0000 0000 | | 0272 fc00 0001 | | 0274 0059 2cda | Y, | 0276 0000 0180 | | 0278 fecf 037e | ~| 027a 0800 0001 | | 027c 0000 0000 | | 027e 006e 0000 | n | 0280 1b86 e000 | | 0282 0000 5d90 | ] | 0284 c84f 38b2 | O8 | 0286 e350 32fe | P2 | 0288 0059 24da | Y$ | 028a 0000 0821 | !| 028c 0059 02c3 | Y | 028e 0000 0801 | | 0290 0000 0000 | | 0292 0000 0029 | )| 0294 0000 0000 | | .BLANK 0000[0x4] 0298 7044 cb57 |pD W| .XXX[0x68] 029a c5e5 8622 | "| 029c fd3c fd3d | < =| 029e 3970 fadc |9p | 02a0 f970 c622 | p "| 02a2 d093 d094 | | 02a4 234c 2350 |#L#P| 02a6 234e c9e2 |#N | 02a8 b925 3541 | %5A| 02aa 3115 3515 |1 5 | 02ac 3951 0551 |9Q Q| 02ae 253d 38b9 |%=8 | 02b0 490d 197d |I }| 02b2 0d55 4d51 | UMQ| 02b4 3d35 2569 |=5%i| 02b6 0551 253d | Q%=| 02b8 38b9 494c |8 IL| 02ba d8c0 c0c1 | | 02bc 7d05 2561 |} %a| 02be 7d25 0934 |}% 4| 02c0 b949 1558 | I X| 02c2 c57d 5d3d | }]=| 02c4 492d 2539 |I-%9| 02c6 1cb9 5539 | U9| 02c8 2551 4cb9 |%QL | 02ca 494c d8c0 |IL | 02cc c0c1 7d05 | } | 02ce 2561 7d25 |%a}%| 02d0 0934 9d09 | 4 | 02d2 3d11 649d |= d | 02d4 58a0 c4a4 |X | 02d6 2880 8085 |( | 02d8 5105 491d |Q I | 02da 1551 4cb9 | QL | 02dc 2535 4131 |%5A1| 02de 1535 1539 | 5 9| 02e0 5105 5125 |Q Q%| 02e2 3d38 b949 |=8 I| 02e4 0d19 7d0d | } | 02e6 554d 513d |UMQ=| 02e8 3525 6905 |5%i | 02ea 5125 3d38 |Q%=8| 02ec b949 4cd8 | IL | 02ee c0c0 c17d | }| 02f0 0525 617d | %a}| 02f2 2509 34b9 |% 4 | 02f4 4915 58c5 |I X | 02f6 7cc1 7cc8 || | | 02f8 b955 3925 | U9%| 02fa 514c b949 |QL I| 02fc 4cd8 c0c0 |L | 02fe c17d 0525 | } %| 0300 0000 0000 | | .BLANK 0000[0x7] 0307 0001 0059 | Y| .XXX[0x5] 0309 24da 8000 |$ | 030b 014c | L | 030c 0000 0000 | | .BLANK 0000[0x4] 0310 0059 24da | Y$ | .XXX[0xd8] 0312 8800 0480 | | 0314 8000 0000 | | 0316 0000 0000 | | 0318 0059 24da | Y$ | 031a 8800 0600 | | 031c 8000 0000 | | 031e 0000 0000 | | 0320 0059 24da | Y$ | 0322 8800 0600 | | 0324 8000 0000 | | 0326 0000 0000 | | 0328 5d3d 492d |]=I-| 032a 2539 1cb9 |%9 | 032c 5539 2551 |U9%Q| 032e 4cb9 494c |L IL| 0330 d8c0 c0c1 | | 0332 7d05 2561 |} %a| 0334 7d25 0934 |}% 4| 0336 9d09 3d11 | = | 0338 649d 58a0 |d X | 033a c4a4 2880 | ( | 033c 8085 5105 | Q | 033e 491d 1551 |I Q| 0340 4cb9 2535 |L %5| 0342 4131 1535 |A1 5| 0344 1539 5105 | 9Q | 0346 5125 3d38 |Q%=8| 0348 b949 0d19 | I | 034a 7d0d 554d |} UM| 034c 513d 3525 |Q=5%| 034e 6905 5125 |i Q%| 0350 3d38 b949 |=8 I| 0352 4cd8 c0c0 |L | 0354 c17d 0525 | } %| 0356 617d 2509 |a}% | 0358 34b9 4915 |4 I | 035a 58c5 7cc1 |X | | 035c 7cc8 b955 || U| 035e 3925 514c |9%QL| 0360 b949 4cd8 | IL | 0362 c0c0 c17d | }| 0364 0525 617d | %a}| 0366 2509 349d |% 4 | 0368 093d 1164 | = d| 036a 9d58 a0c4 | X | 036c a428 8080 | ( | 036e 8551 0549 | Q I| 0370 1d15 514c | QL| 0372 b925 3541 | %5A| 0374 3115 3515 |1 5 | 0376 3951 0551 |9Q Q| 0378 253d 38b9 |%=8 | 037a 490d 197d |I }| 037c 0d55 4d51 | UMQ| 037e 3d35 2569 |=5%i| 0380 0551 253d | Q%=| 0382 38b9 494c |8 IL| 0384 d8c0 c0c1 | | 0386 7d05 2561 |} %a| 0388 7d25 0934 |}% 4| 038a b949 1558 | I X| 038c c57d 5d3d | }]=| 038e 492d 2539 |I-%9| 0390 1cb9 5539 | U9| 0392 2551 4cb9 |%QL | 0394 494c d8c0 |IL | 0396 c0c1 7d05 | } | 0398 2561 7d25 |%a}%| 039a 0934 9d09 | 4 | 039c 3d11 649d |= d | 039e 58a0 c4a4 |X | 03a0 2880 8085 |( | 03a2 5105 491d |Q I | 03a4 1551 4cb9 | QL | 03a6 2535 4131 |%5A1| 03a8 1535 1539 | 5 9| 03aa 5105 5125 |Q Q%| 03ac 3d38 b949 |=8 I| 03ae 0d19 7d0d | } | 03b0 554d 513d |UMQ=| 03b2 3525 6905 |5%i | 03b4 5125 3d39 |Q%=9| 03b6 7d25 3951 |}%9Q| 03b8 1549 1905 | I | 03ba 0d14 b949 | I| 03bc 1558 c57c | X || 03be c17d 4d41 | }MA| 03c0 150c b955 | U| 03c2 3925 514c |9%QL| 03c4 b949 0d19 | I | 03c6 7d0d 554d |} UM| 03c8 513d 3525 |Q=5%| 03ca 6905 5125 |i Q%| 03cc 3d38 9d4d |=8 M| 03ce 4115 0c9d |A | 03d0 58a0 c4a4 |X | 03d2 2880 8085 |( | 03d4 5105 491d |Q I | 03d6 1551 4cb9 | QL | 03d8 2535 4131 |%5A1| 03da 1535 1539 | 5 9| 03dc 5105 5125 |Q Q%| 03de 3d38 b949 |=8 I| 03e0 0d19 7d0d | } | 03e2 554d 513d |UMQ=| 03e4 3525 6905 |5%i | 03e6 5125 3d39 |Q%=9| 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 0059 2cda | Y, | .XXX[0x14] 03ee 0000 0000 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0000 0000 | | 03f6 0000 0024 | $| 03f8 ff6d 003e | m >| 03fa 0800 0001 | | 03fc 0000 0000 | | 03fe 0000 000e | |