|
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_191cd7
└─⟦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 0270 | p | .CONST 0x0270 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 4f81 |O | Short_Literal -0x7f 000c 487f |H | Short_Literal 0x7f 000d e002 | | Load 0x0,0x2 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0013 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0017 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0019 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001b 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 001f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0021 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0023 00bf | | Action Accept_Activation 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 00c7 | | Action Elaborate_Subprogram 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0027 00c7 | | Action Elaborate_Subprogram 0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0029 00c7 | | Action Elaborate_Subprogram 002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0031 00c7 | | Action Elaborate_Subprogram 0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0033 00c7 | | Action Elaborate_Subprogram 0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0035 00c7 | | Action Elaborate_Subprogram 0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0037 00c7 | | Action Elaborate_Subprogram 0038 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 004c | L | .CONST 0x004c ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0045 e003 | | Load 0x0,0x3 0046 03f1 | | Declare_Variable Discrete,With_Value 0047 4fff |O | Short_Literal -0x1 0048 e20d | | Load 0x1,0xd 0049 03f1 | | Declare_Variable Discrete,With_Value 004a e002 | | Load 0x0,0x2 004b 0007 | | Action Break_Optional 004c BODY_0040: 004c 00da | | Load_Top At_Offset_2 004d e5fe | | Load 0x2,-0x2 004e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 004f 027d | } | Execute Discrete,Greater 0050 6805 |h | Jump_Zero 0x56 0051 e5fe | | Load 0x2,-0x2 0052 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0053 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0054 4801 |H | Short_Literal 0x1 0055 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0056 00cf | | Action Mark_Auxiliary 0057 00db | | Load_Top At_Offset_3 0058 4801 |H | Short_Literal 0x1 0059 0263 | c | Execute Discrete,Above_Bound 005a 7015 |p | Jump_Nonzero 0x70 005b 00d8 | | Load_Top At_Offset_0 005c e5ff | | Load 0x2,-0x1 005d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 005e 01d7 | | Execute Vector,Field_Read 005f 00d9 | | Load_Top At_Offset_1 0060 e5fe | | Load 0x2,-0x2 0061 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0062 01d7 | | Execute Vector,Field_Read 0063 0272 | r | Execute Discrete,Minus 0064 c404 | | Store 0x2,0x4 0065 00db | | Load_Top At_Offset_3 0066 6807 |h | Jump_Zero 0x6e 0067 00db | | Load_Top At_Offset_3 0068 00d8 | | Load_Top At_Offset_0 0069 e20d | | Load 0x1,0xd 006a 0260 | ` | Execute Discrete,In_Type 006b 7001 |p | Jump_Nonzero 0x6d 006c 0801 | | Execute_Immediate Raise,0x1 006d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006e 00c8 | | Action Pop_Auxiliary_Range 006f 3feb |? | Loop_Increasing 0x5b 0070 00ce | | Action Pop_Auxiliary 0071 e5ff | | Load 0x2,-0x1 0072 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0073 e5fe | | Load 0x2,-0x2 0074 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0075 027f | | Execute Discrete,Equal 0076 6802 |h | Jump_Zero 0x79 0077 4800 |H | Short_Literal 0x0 0078 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0079 00d9 | | Load_Top At_Offset_1 007a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008c | | .CONST 0x008c ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0085 e003 | | Load 0x0,0x3 0086 03f1 | | Declare_Variable Discrete,With_Value 0087 4fff |O | Short_Literal -0x1 0088 e20d | | Load 0x1,0xd 0089 03f1 | | Declare_Variable Discrete,With_Value 008a e002 | | Load 0x0,0x2 008b 0007 | | Action Break_Optional 008c BODY_0080: 008c 00da | | Load_Top At_Offset_2 008d e5fe | | Load 0x2,-0x2 008e 0227 | ' | Execute Access,All_Reference 008f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0090 027d | } | Execute Discrete,Greater 0091 6806 |h | Jump_Zero 0x98 0092 e5fe | | Load 0x2,-0x2 0093 0227 | ' | Execute Access,All_Reference 0094 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0095 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0096 4801 |H | Short_Literal 0x1 0097 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0098 00cf | | Action Mark_Auxiliary 0099 00db | | Load_Top At_Offset_3 009a 4801 |H | Short_Literal 0x1 009b 0263 | c | Execute Discrete,Above_Bound 009c 7016 |p | Jump_Nonzero 0xb3 009d 00d8 | | Load_Top At_Offset_0 009e e5ff | | Load 0x2,-0x1 009f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00a0 01d7 | | Execute Vector,Field_Read 00a1 00d9 | | Load_Top At_Offset_1 00a2 e5fe | | Load 0x2,-0x2 00a3 0227 | ' | Execute Access,All_Reference 00a4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00a5 01d7 | | Execute Vector,Field_Read 00a6 0272 | r | Execute Discrete,Minus 00a7 c404 | | Store 0x2,0x4 00a8 00db | | Load_Top At_Offset_3 00a9 6807 |h | Jump_Zero 0xb1 00aa 00db | | Load_Top At_Offset_3 00ab 00d8 | | Load_Top At_Offset_0 00ac e20d | | Load 0x1,0xd 00ad 0260 | ` | Execute Discrete,In_Type 00ae 7001 |p | Jump_Nonzero 0xb0 00af 0801 | | Execute_Immediate Raise,0x1 00b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b1 00c8 | | Action Pop_Auxiliary_Range 00b2 3fea |? | Loop_Increasing 0x9d 00b3 00ce | | Action Pop_Auxiliary 00b4 e5ff | | Load 0x2,-0x1 00b5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00b6 e5fe | | Load 0x2,-0x2 00b7 0227 | ' | Execute Access,All_Reference 00b8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00b9 027f | | Execute Discrete,Equal 00ba 6802 |h | Jump_Zero 0xbd 00bb 4800 |H | Short_Literal 0x0 00bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00bd 00d9 | | Load_Top At_Offset_1 00be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cd | | .CONST 0x00cd ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0004 | | .CONST 0x0004 ; Number of locals 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 0227 | ' | Execute Access,All_Reference 00c5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00c6 e003 | | Load 0x0,0x3 00c7 03f1 | | Declare_Variable Discrete,With_Value 00c8 4fff |O | Short_Literal -0x1 00c9 e20d | | Load 0x1,0xd 00ca 03f1 | | Declare_Variable Discrete,With_Value 00cb e002 | | Load 0x0,0x2 00cc 0007 | | Action Break_Optional 00cd BODY_00c0: 00cd 00da | | Load_Top At_Offset_2 00ce e5fe | | Load 0x2,-0x2 00cf 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d0 027d | } | Execute Discrete,Greater 00d1 6805 |h | Jump_Zero 0xd7 00d2 e5fe | | Load 0x2,-0x2 00d3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00d5 4801 |H | Short_Literal 0x1 00d6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00d7 00cf | | Action Mark_Auxiliary 00d8 00db | | Load_Top At_Offset_3 00d9 4801 |H | Short_Literal 0x1 00da 0263 | c | Execute Discrete,Above_Bound 00db 7016 |p | Jump_Nonzero 0xf2 00dc 00d8 | | Load_Top At_Offset_0 00dd e5ff | | Load 0x2,-0x1 00de 0227 | ' | Execute Access,All_Reference 00df 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00e0 01d7 | | Execute Vector,Field_Read 00e1 00d9 | | Load_Top At_Offset_1 00e2 e5fe | | Load 0x2,-0x2 00e3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00e4 01d7 | | Execute Vector,Field_Read 00e5 0272 | r | Execute Discrete,Minus 00e6 c404 | | Store 0x2,0x4 00e7 00db | | Load_Top At_Offset_3 00e8 6807 |h | Jump_Zero 0xf0 00e9 00db | | Load_Top At_Offset_3 00ea 00d8 | | Load_Top At_Offset_0 00eb e20d | | Load 0x1,0xd 00ec 0260 | ` | Execute Discrete,In_Type 00ed 7001 |p | Jump_Nonzero 0xef 00ee 0801 | | Execute_Immediate Raise,0x1 00ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f0 00c8 | | Action Pop_Auxiliary_Range 00f1 3fea |? | Loop_Increasing 0xdc 00f2 00ce | | Action Pop_Auxiliary 00f3 e5ff | | Load 0x2,-0x1 00f4 0227 | ' | Execute Access,All_Reference 00f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00f6 e5fe | | Load 0x2,-0x2 00f7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00f8 027f | | Execute Discrete,Equal 00f9 6802 |h | Jump_Zero 0xfc 00fa 4800 |H | Short_Literal 0x0 00fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fc 00d9 | | Load_Top At_Offset_1 00fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 010d | | .CONST 0x010d ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0004 | | .CONST 0x0004 ; Number of locals 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 0227 | ' | Execute Access,All_Reference 0105 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0106 e003 | | Load 0x0,0x3 0107 03f1 | | Declare_Variable Discrete,With_Value 0108 4fff |O | Short_Literal -0x1 0109 e20d | | Load 0x1,0xd 010a 03f1 | | Declare_Variable Discrete,With_Value 010b e002 | | Load 0x0,0x2 010c 0007 | | Action Break_Optional 010d BODY_0100: 010d 00da | | Load_Top At_Offset_2 010e e5fe | | Load 0x2,-0x2 010f 0227 | ' | Execute Access,All_Reference 0110 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0111 027d | } | Execute Discrete,Greater 0112 6806 |h | Jump_Zero 0x119 0113 e5fe | | Load 0x2,-0x2 0114 0227 | ' | Execute Access,All_Reference 0115 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0116 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0117 4801 |H | Short_Literal 0x1 0118 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0119 00cf | | Action Mark_Auxiliary 011a 00db | | Load_Top At_Offset_3 011b 4801 |H | Short_Literal 0x1 011c 0263 | c | Execute Discrete,Above_Bound 011d 7017 |p | Jump_Nonzero 0x135 011e 00d8 | | Load_Top At_Offset_0 011f e5ff | | Load 0x2,-0x1 0120 0227 | ' | Execute Access,All_Reference 0121 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0122 01d7 | | Execute Vector,Field_Read 0123 00d9 | | Load_Top At_Offset_1 0124 e5fe | | Load 0x2,-0x2 0125 0227 | ' | Execute Access,All_Reference 0126 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0127 01d7 | | Execute Vector,Field_Read 0128 0272 | r | Execute Discrete,Minus 0129 c404 | | Store 0x2,0x4 012a 00db | | Load_Top At_Offset_3 012b 6807 |h | Jump_Zero 0x133 012c 00db | | Load_Top At_Offset_3 012d 00d8 | | Load_Top At_Offset_0 012e e20d | | Load 0x1,0xd 012f 0260 | ` | Execute Discrete,In_Type 0130 7001 |p | Jump_Nonzero 0x132 0131 0801 | | Execute_Immediate Raise,0x1 0132 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0133 00c8 | | Action Pop_Auxiliary_Range 0134 3fe9 |? | Loop_Increasing 0x11e 0135 00ce | | Action Pop_Auxiliary 0136 e5ff | | Load 0x2,-0x1 0137 0227 | ' | Execute Access,All_Reference 0138 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0139 e5fe | | Load 0x2,-0x2 013a 0227 | ' | Execute Access,All_Reference 013b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 013c 027f | | Execute Discrete,Equal 013d 6802 |h | Jump_Zero 0x140 013e 4800 |H | Short_Literal 0x0 013f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0140 00d9 | | Load_Top At_Offset_1 0141 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0153 | S | .CONST 0x0153 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0004 | | .CONST 0x0004 ; Number of locals 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 014c 01db | | Execute Vector,Length 014d e003 | | Load 0x0,0x3 014e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 014f e20d | | Load 0x1,0xd 0150 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0151 e002 | | Load 0x0,0x2 0152 0007 | | Action Break_Optional 0153 BODY_0148: 0153 00da | | Load_Top At_Offset_2 0154 e5ff | | Load 0x2,-0x1 0155 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0156 027d | } | Execute Discrete,Greater 0157 6805 |h | Jump_Zero 0x15d 0158 e5ff | | Load 0x2,-0x1 0159 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 015a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 015b 4fff |O | Short_Literal -0x1 015c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 015d 00cf | | Action Mark_Auxiliary 015e 00db | | Load_Top At_Offset_3 015f 0aff | | Execute_Immediate Plus,-0x1 0160 4800 |H | Short_Literal 0x0 0161 0263 | c | Execute Discrete,Above_Bound 0162 7018 |p | Jump_Nonzero 0x17b 0163 00d8 | | Load_Top At_Offset_0 0164 0a01 | | Execute_Immediate Plus,0x1 0165 e5ff | | Load 0x2,-0x1 0166 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0167 01d7 | | Execute Vector,Field_Read 0168 00d9 | | Load_Top At_Offset_1 0169 e5fe | | Load 0x2,-0x2 016a 01dd | | Execute Vector,First 016b 0273 | s | Execute Discrete,Plus 016c e5fe | | Load 0x2,-0x2 016d 01d7 | | Execute Vector,Field_Read 016e 0272 | r | Execute Discrete,Minus 016f c404 | | Store 0x2,0x4 0170 00db | | Load_Top At_Offset_3 0171 6807 |h | Jump_Zero 0x179 0172 00db | | Load_Top At_Offset_3 0173 00d8 | | Load_Top At_Offset_0 0174 e20d | | Load 0x1,0xd 0175 0260 | ` | Execute Discrete,In_Type 0176 7001 |p | Jump_Nonzero 0x178 0177 0801 | | Execute_Immediate Raise,0x1 0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0179 00c8 | | Action Pop_Auxiliary_Range 017a 3fe8 |? | Loop_Increasing 0x163 017b 00ce | | Action Pop_Auxiliary 017c e5ff | | Load 0x2,-0x1 017d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 017e e5fe | | Load 0x2,-0x2 017f 01db | | Execute Vector,Length 0180 027f | | Execute Discrete,Equal 0181 6802 |h | Jump_Zero 0x184 0182 4800 |H | Short_Literal 0x0 0183 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0184 00d9 | | Load_Top At_Offset_1 0185 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 018d 7002 |p | Jump_Nonzero 0x190 018e 4fff |O | Short_Literal -0x1 018f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0190 4801 |H | Short_Literal 0x1 0191 00db | | Load_Top At_Offset_3 0192 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0193 01d7 | | Execute Vector,Field_Read 0194 e5fe | | Load 0x2,-0x2 0195 0272 | r | Execute Discrete,Minus 0196 00d8 | | Load_Top At_Offset_0 0197 e20d | | Load 0x1,0xd 0198 0260 | ` | Execute Discrete,In_Type 0199 7001 |p | Jump_Nonzero 0x19b 019a 0801 | | Execute_Immediate Raise,0x1 019b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ac | | .CONST 0x01ac ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0004 | | .CONST 0x0004 ; Number of locals 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a5 e003 | | Load 0x0,0x3 01a6 03f1 | | Declare_Variable Discrete,With_Value 01a7 4fff |O | Short_Literal -0x1 01a8 e20d | | Load 0x1,0xd 01a9 03f1 | | Declare_Variable Discrete,With_Value 01aa e002 | | Load 0x0,0x2 01ab 0007 | | Action Break_Optional 01ac BODY_01a0: 01ac 00da | | Load_Top At_Offset_2 01ad e5fd | | Load 0x2,-0x3 01ae 027d | } | Execute Discrete,Greater 01af 6804 |h | Jump_Zero 0x1b4 01b0 e5fd | | Load 0x2,-0x3 01b1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01b2 4801 |H | Short_Literal 0x1 01b3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01b4 00cf | | Action Mark_Auxiliary 01b5 00db | | Load_Top At_Offset_3 01b6 4801 |H | Short_Literal 0x1 01b7 0263 | c | Execute Discrete,Above_Bound 01b8 7012 |p | Jump_Nonzero 0x1cb 01b9 00d8 | | Load_Top At_Offset_0 01ba e5ff | | Load 0x2,-0x1 01bb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01bc 01d7 | | Execute Vector,Field_Read 01bd e5fe | | Load 0x2,-0x2 01be 0272 | r | Execute Discrete,Minus 01bf c404 | | Store 0x2,0x4 01c0 00db | | Load_Top At_Offset_3 01c1 6807 |h | Jump_Zero 0x1c9 01c2 00db | | Load_Top At_Offset_3 01c3 00d8 | | Load_Top At_Offset_0 01c4 e20d | | Load 0x1,0xd 01c5 0260 | ` | Execute Discrete,In_Type 01c6 7001 |p | Jump_Nonzero 0x1c8 01c7 0801 | | Execute_Immediate Raise,0x1 01c8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c9 00c8 | | Action Pop_Auxiliary_Range 01ca 3fee |? | Loop_Increasing 0x1b9 01cb 00ce | | Action Pop_Auxiliary 01cc e5ff | | Load 0x2,-0x1 01cd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01ce e5fd | | Load 0x2,-0x3 01cf 027f | | Execute Discrete,Equal 01d0 6802 |h | Jump_Zero 0x1d3 01d1 4800 |H | Short_Literal 0x0 01d2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01d3 00d9 | | Load_Top At_Offset_1 01d4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e3 | | .CONST 0x01e3 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0004 | | .CONST 0x0004 ; Number of locals 01db INIT_01d8: 01db 00db | | Load_Top At_Offset_3 01dc 01db | | Execute Vector,Length 01dd e003 | | Load 0x0,0x3 01de 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01df e20d | | Load 0x1,0xd 01e0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01e1 e002 | | Load 0x0,0x2 01e2 0007 | | Action Break_Optional 01e3 BODY_01d8: 01e3 00da | | Load_Top At_Offset_2 01e4 e5ff | | Load 0x2,-0x1 01e5 0227 | ' | Execute Access,All_Reference 01e6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01e7 027d | } | Execute Discrete,Greater 01e8 6806 |h | Jump_Zero 0x1ef 01e9 e5ff | | Load 0x2,-0x1 01ea 0227 | ' | Execute Access,All_Reference 01eb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01ec 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01ed 4fff |O | Short_Literal -0x1 01ee 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ef 00cf | | Action Mark_Auxiliary 01f0 00db | | Load_Top At_Offset_3 01f1 0aff | | Execute_Immediate Plus,-0x1 01f2 4800 |H | Short_Literal 0x0 01f3 0263 | c | Execute Discrete,Above_Bound 01f4 7019 |p | Jump_Nonzero 0x20e 01f5 00d8 | | Load_Top At_Offset_0 01f6 0a01 | | Execute_Immediate Plus,0x1 01f7 e5ff | | Load 0x2,-0x1 01f8 0227 | ' | Execute Access,All_Reference 01f9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01fa 01d7 | | Execute Vector,Field_Read 01fb 00d9 | | Load_Top At_Offset_1 01fc e5fe | | Load 0x2,-0x2 01fd 01dd | | Execute Vector,First 01fe 0273 | s | Execute Discrete,Plus 01ff e5fe | | Load 0x2,-0x2 0200 01d7 | | Execute Vector,Field_Read 0201 0272 | r | Execute Discrete,Minus 0202 c404 | | Store 0x2,0x4 0203 00db | | Load_Top At_Offset_3 0204 6807 |h | Jump_Zero 0x20c 0205 00db | | Load_Top At_Offset_3 0206 00d8 | | Load_Top At_Offset_0 0207 e20d | | Load 0x1,0xd 0208 0260 | ` | Execute Discrete,In_Type 0209 7001 |p | Jump_Nonzero 0x20b 020a 0801 | | Execute_Immediate Raise,0x1 020b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020c 00c8 | | Action Pop_Auxiliary_Range 020d 3fe7 |? | Loop_Increasing 0x1f5 020e 00ce | | Action Pop_Auxiliary 020f e5ff | | Load 0x2,-0x1 0210 0227 | ' | Execute Access,All_Reference 0211 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0212 e5fe | | Load 0x2,-0x2 0213 01db | | Execute Vector,Length 0214 027f | | Execute Discrete,Equal 0215 6802 |h | Jump_Zero 0x218 0216 4800 |H | Short_Literal 0x0 0217 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0218 00d9 | | Load_Top At_Offset_1 0219 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 0227 | ' | Execute Access,All_Reference 0225 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0226 7002 |p | Jump_Nonzero 0x229 0227 4fff |O | Short_Literal -0x1 0228 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0229 4801 |H | Short_Literal 0x1 022a 00db | | Load_Top At_Offset_3 022b 0227 | ' | Execute Access,All_Reference 022c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 022d 01d7 | | Execute Vector,Field_Read 022e e5fe | | Load 0x2,-0x2 022f 0272 | r | Execute Discrete,Minus 0230 00d8 | | Load_Top At_Offset_0 0231 e20d | | Load 0x1,0xd 0232 0260 | ` | Execute Discrete,In_Type 0233 7001 |p | Jump_Nonzero 0x235 0234 0801 | | Execute_Immediate Raise,0x1 0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0245 | E | .CONST 0x0245 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0004 | | .CONST 0x0004 ; Number of locals 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 0227 | ' | Execute Access,All_Reference 023d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 023e e003 | | Load 0x0,0x3 023f 03f1 | | Declare_Variable Discrete,With_Value 0240 4fff |O | Short_Literal -0x1 0241 e20d | | Load 0x1,0xd 0242 03f1 | | Declare_Variable Discrete,With_Value 0243 e002 | | Load 0x0,0x2 0244 0007 | | Action Break_Optional 0245 BODY_0238: 0245 00da | | Load_Top At_Offset_2 0246 e5fd | | Load 0x2,-0x3 0247 027d | } | Execute Discrete,Greater 0248 6804 |h | Jump_Zero 0x24d 0249 e5fd | | Load 0x2,-0x3 024a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 024b 4801 |H | Short_Literal 0x1 024c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 024d 00cf | | Action Mark_Auxiliary 024e 00db | | Load_Top At_Offset_3 024f 4801 |H | Short_Literal 0x1 0250 0263 | c | Execute Discrete,Above_Bound 0251 7013 |p | Jump_Nonzero 0x265 0252 00d8 | | Load_Top At_Offset_0 0253 e5ff | | Load 0x2,-0x1 0254 0227 | ' | Execute Access,All_Reference 0255 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0256 01d7 | | Execute Vector,Field_Read 0257 e5fe | | Load 0x2,-0x2 0258 0272 | r | Execute Discrete,Minus 0259 c404 | | Store 0x2,0x4 025a 00db | | Load_Top At_Offset_3 025b 6807 |h | Jump_Zero 0x263 025c 00db | | Load_Top At_Offset_3 025d 00d8 | | Load_Top At_Offset_0 025e e20d | | Load 0x1,0xd 025f 0260 | ` | Execute Discrete,In_Type 0260 7001 |p | Jump_Nonzero 0x262 0261 0801 | | Execute_Immediate Raise,0x1 0262 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0263 00c8 | | Action Pop_Auxiliary_Range 0264 3fed |? | Loop_Increasing 0x252 0265 00ce | | Action Pop_Auxiliary 0266 e5ff | | Load 0x2,-0x1 0267 0227 | ' | Execute Access,All_Reference 0268 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0269 e5fd | | Load 0x2,-0x3 026a 027f | | Execute Discrete,Equal 026b 6802 |h | Jump_Zero 0x26e 026c 4800 |H | Short_Literal 0x0 026d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 026e 00d9 | | Load_Top At_Offset_1 026f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4d4e,0x0000,0x0001,0x000c 0276 000b 02a6 | | .DBG4T 0x000b,0x02a6,0x8000,0x0000 027a 0024 02b3 | $ | .DBG4T 0x0024,0x02b3,0x8000,0x0000 027e 0043 02bf | C | .DBG4T 0x0043,0x02bf,0x0002,0x0000 0282 0083 02ce | | .DBG4T 0x0083,0x02ce,0x0002,0x0000 0286 00c3 02dd | | .DBG4T 0x00c3,0x02dd,0x0002,0x0000 028a 0103 02ec | | .DBG4T 0x0103,0x02ec,0x0002,0x0000 028e 014b 02fb | K | .DBG4T 0x014b,0x02fb,0x0002,0x0000 0292 018b 030a | | .DBG4T 0x018b,0x030a,0x0002,0x0000 0296 01a3 030f | | .DBG4T 0x01a3,0x030f,0x0002,0x0000 029a 01db 031e | | .DBG4T 0x01db,0x031e,0x0002,0x0000 029e 0223 032d | # -| .DBG4T 0x0223,0x032d,0x0002,0x0000 02a2 023b 0332 | ; 2| .DBG4T 0x023b,0x0332,0x0002,0x0000 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 000b 0000 | | .DBGLEN 0x000b,0x0000 02a8 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 000a 0000 | | .DBGLEN 0x000a,0x0000 02b5 0024 0026 | $ &| .DBGLNO 0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036 02bf ; -------------------------------------------------------------------------------------- 02bf ; Debug chain 02bf ; -------------------------------------------------------------------------------------- 02bf 0003 000a | | .DBGLEN 0x0003,0x000a 02c1 0043 0047 | C G| .DBGLNO 0x0043,0x0047,0x004a,0x004c,0x0051,0x0054,0x0057,0x005b,0x0065,0x0067,0x0071,0x0077,0x0079 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0003 000a | | .DBGLEN 0x0003,0x000a 02d0 0083 0087 | | .DBGLNO 0x0083,0x0087,0x008a,0x008c,0x0092,0x0096,0x0099,0x009d,0x00a8,0x00aa,0x00b4,0x00bb,0x00bd 02dd ; -------------------------------------------------------------------------------------- 02dd ; Debug chain 02dd ; -------------------------------------------------------------------------------------- 02dd 0003 000a | | .DBGLEN 0x0003,0x000a 02df 00c3 00c8 | | .DBGLNO 0x00c3,0x00c8,0x00cb,0x00cd,0x00d2,0x00d5,0x00d8,0x00dc,0x00e7,0x00e9,0x00f3,0x00fa,0x00fc 02ec ; -------------------------------------------------------------------------------------- 02ec ; Debug chain 02ec ; -------------------------------------------------------------------------------------- 02ec 0003 000a | | .DBGLEN 0x0003,0x000a 02ee 0103 0108 | | .DBGLNO 0x0103,0x0108,0x010b,0x010d,0x0113,0x0117,0x011a,0x011e,0x012a,0x012c,0x0136,0x013e,0x0140 02fb ; -------------------------------------------------------------------------------------- 02fb ; Debug chain 02fb ; -------------------------------------------------------------------------------------- 02fb 0003 000a | | .DBGLEN 0x0003,0x000a 02fd 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0151,0x0153,0x0158,0x015b,0x015e,0x0163,0x0170,0x0172,0x017c,0x0182,0x0184 030a ; -------------------------------------------------------------------------------------- 030a ; Debug chain 030a ; -------------------------------------------------------------------------------------- 030a 0000 0003 | | .DBGLEN 0x0000,0x0003 030c 018b 018e | | .DBGLNO 0x018b,0x018e,0x0190 030f ; -------------------------------------------------------------------------------------- 030f ; Debug chain 030f ; -------------------------------------------------------------------------------------- 030f 0003 000a | | .DBGLEN 0x0003,0x000a 0311 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01aa,0x01ac,0x01b0,0x01b2,0x01b5,0x01b9,0x01c0,0x01c2,0x01cc,0x01d1,0x01d3 031e ; -------------------------------------------------------------------------------------- 031e ; Debug chain 031e ; -------------------------------------------------------------------------------------- 031e 0003 000a | | .DBGLEN 0x0003,0x000a 0320 01db 01df | | .DBGLNO 0x01db,0x01df,0x01e1,0x01e3,0x01e9,0x01ed,0x01f0,0x01f5,0x0203,0x0205,0x020f,0x0216,0x0218 032d ; -------------------------------------------------------------------------------------- 032d ; Debug chain 032d ; -------------------------------------------------------------------------------------- 032d 0000 0003 | | .DBGLEN 0x0000,0x0003 032f 0223 0227 | # '| .DBGLNO 0x0223,0x0227,0x0229 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug chain 0332 ; -------------------------------------------------------------------------------------- 0332 0003 000a | | .DBGLEN 0x0003,0x000a 0334 023b 0240 | ; @| .DBGLNO 0x023b,0x0240,0x0243,0x0245,0x0249,0x024b,0x024e,0x0252,0x025a,0x025c,0x0266,0x026c,0x026e 0341 0000 0000 | | .BLANK 0000[0xbf]