|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 0448 | H | .CONST 0x0448 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d e001 | | Load 0x0,0x1 000e 0129 | ) | Execute Any,Make_Visible 000f e002 | | Load 0x0,0x2 0010 0129 | ) | Execute Any,Make_Visible 0011 00bf | | Action Accept_Activation 0012 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 005c | \ | .CONST 0x005c ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000a | | .CONST 0x000a ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4804 |H | Short_Literal 0x4 001d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 4801 |H | Short_Literal 0x1 0021 e5ff | | Load 0x2,-0x1 0022 01db | | Execute Vector,Length 0023 00d8 | | Load_Top At_Offset_0 0024 00e2 | | Load_Encached Integer_Cache 0025 0260 | ` | Execute Discrete,In_Type 0026 7001 |p | Jump_Nonzero 0x28 0027 0801 | | Execute_Immediate Raise,0x1 0028 00e4 | | Load_Encached Positive_Cache 0029 025d | ] | Execute Discrete,Bounds_Check 002a e20f | | Load 0x1,0xf 002b 029f 009b | | Declare_Subprogram INIT_0098,For_Call 002d 4801 |H | Short_Literal 0x1 002e 035d | ] | Declare_Type Array,Defined 002f 00d9 | | Load_Top At_Offset_1 0030 00e1 | | Load_Encached Boolean_Cache 0031 00e1 | | Load_Encached Boolean_Cache 0032 4801 |H | Short_Literal 0x1 0033 e20f | | Load 0x1,0xf 0034 4802 |H | Short_Literal 0x2 0035 00e3 | | Load_Encached Natural_Cache 0036 e403 | | Load 0x2,0x3 0037 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0039 4803 |H | Short_Literal 0x3 003a 4802 |H | Short_Literal 0x2 003b 4802 |H | Short_Literal 0x2 003c 4800 |H | Short_Literal 0x0 003d 4801 |H | Short_Literal 0x1 003e 031d | | Declare_Type Variant_Record,Defined 003f 00e4 | | Load_Encached Positive_Cache 0040 0266 | f | Execute Discrete,Bounds 0041 00da | | Load_Top At_Offset_2 0042 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0044 4801 |H | Short_Literal 0x1 0045 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0046 4801 |H | Short_Literal 0x1 0047 e5ff | | Load 0x2,-0x1 0048 01db | | Execute Vector,Length 0049 0a01 | | Execute_Immediate Plus,0x1 004a 00d8 | | Load_Top At_Offset_0 004b 00e2 | | Load_Encached Integer_Cache 004c 0260 | ` | Execute Discrete,In_Type 004d 7001 |p | Jump_Nonzero 0x4f 004e 0801 | | Execute_Immediate Raise,0x1 004f 00da | | Load_Top At_Offset_2 0050 035b | [ | Declare_Type Array,Constrained 0051 0337 | 7 | Declare_Variable Array 0052 00d8 | | Load_Top At_Offset_0 0053 1c00 | | Execute_Immediate Run_Utility,0x0 0054 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0056 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 0058 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 005a 029f 039b | | Declare_Subprogram INIT_0398,For_Call 005c BODY_0018: 005c e406 | | Load 0x2,0x6 005d e5ff | | Load 0x2,-0x1 005e 8407 | | Call 0x2,0x7 005f 00d1 | | Pop_Control Pop_Count_1 0060 00cf | | Action Mark_Auxiliary 0061 e5fe | | Load 0x2,-0x2 0062 01d9 | | Execute Vector,Reverse_Bounds 0063 0263 | c | Execute Discrete,Above_Bound 0064 7003 |p | Jump_Nonzero 0x68 0065 840a | | Call 0x2,0xa 0066 00c8 | | Action Pop_Auxiliary_Range 0067 3ffd |? | Loop_Increasing 0x65 0068 00ce | | Action Pop_Auxiliary 0069 e21b | | Load 0x1,0x1b 006a 0257 | W | Execute Discrete,Raise 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7806 |x | Jump 0x7c ; case 0x1 0076 7809 |x | Jump 0x80 ; case 0x2 0077 780d |x | Jump 0x85 ; case 0x3 0078 7810 |x | Jump 0x89 ; case 0x4 0079 7811 |x | Jump 0x8b ; case 0x5 007a 7812 |x | Jump 0x8d ; case 0x6 007b 7815 |x | Jump 0x91 ; case 0x7 007c 00da | | Load_Top At_Offset_2 007d 0091 0409 | | Action Push_String_Extended_Indexed,0x409 ; "LITERAL" 007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0080 00db | | Load_Top At_Offset_3 0081 00db | | Load_Top At_Offset_3 0082 00e0 | | Load_Encached Standard_Cache 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 00da | | Load_Top At_Offset_2 0086 00e0 | | Load_Encached Standard_Cache 0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0089 00db | | Load_Top At_Offset_3 008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008b 00db | | Load_Top At_Offset_3 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d e402 | | Load 0x2,0x2 008e 00dc | | Load_Top At_Offset_4 008f 0267 | g | Execute Discrete,Predecessor 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 e402 | | Load 0x2,0x2 0092 00dc | | Load_Top At_Offset_4 0093 0268 | h | Execute Discrete,Successor 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00d1 | | Pop_Control Pop_Count_1 009c 00da | | Load_Top At_Offset_2 009d 01dc | | Execute Vector,Last 009e 00db | | Load_Top At_Offset_3 009f 01dd | | Execute Vector,First 00a0 0263 | c | Execute Discrete,Above_Bound 00a1 700a |p | Jump_Nonzero 0xac 00a2 00d8 | | Load_Top At_Offset_0 00a3 e7ff | | Load 0x3,-0x1 00a4 01d5 | | Execute Vector,Field_Reference 00a5 0125 | % | Execute Any,Set_Constraint 00a6 00d8 | | Load_Top At_Offset_0 00a7 e7ff | | Load 0x3,-0x1 00a8 01d5 | | Execute Vector,Field_Reference 00a9 1c00 | | Execute_Immediate Run_Utility,0x0 00aa 0a01 | | Execute_Immediate Plus,0x1 00ab 7ff4 | | Jump 0xa0 00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 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 4608 |F | Jump_Case 0x9 00b4 7808 |x | Jump 0xbd ; case 0x0 00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00b6 7851 |xQ | Jump 0x108 ; case 0x2 00b7 7850 |xP | Jump 0x108 ; case 0x3 00b8 784f |xO | Jump 0x108 ; case 0x4 00b9 784e |xN | Jump 0x108 ; case 0x5 00ba 7829 |x) | Jump 0xe4 ; case 0x6 00bb 7835 |x5 | Jump 0xf1 ; case 0x7 00bc 7844 |xD | Jump 0x101 ; case 0x8 00bd 00da | | Load_Top At_Offset_2 00be 016c | l | Execute Variant_Record,Is_Constrained 00bf 7009 |p | Jump_Nonzero 0xc9 00c0 00cf | | Action Mark_Auxiliary 00c1 4804 |H | Short_Literal 0x4 00c2 e7ff | | Load 0x3,-0x1 00c3 1c08 | | Execute_Immediate Run_Utility,0x8 00c4 00d8 | | Load_Top At_Offset_0 00c5 1c00 | | Execute_Immediate Run_Utility,0x0 00c6 c7ff | | Store 0x3,-0x1 00c7 00ce | | Action Pop_Auxiliary 00c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c9 4801 |H | Short_Literal 0x1 00ca 00db | | Load_Top At_Offset_3 00cb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00cc 4800 |H | Short_Literal 0x0 00cd 00db | | Load_Top At_Offset_3 00ce 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00cf 00da | | Load_Top At_Offset_2 00d0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00d1 4604 |F | Jump_Case 0x5 00d2 7804 |x | Jump 0xd7 ; case 0x0 00d3 7809 |x | Jump 0xdd ; case 0x1 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00d7 00da | | Load_Top At_Offset_2 00d8 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4 00d9 00da | | Load_Top At_Offset_2 00da 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 00db 1c00 | | Execute_Immediate Run_Utility,0x0 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00dd 4800 |H | Short_Literal 0x0 00de 00db | | Load_Top At_Offset_3 00df 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 00e0 00da | | Load_Top At_Offset_2 00e1 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 00e2 1c00 | | Execute_Immediate Run_Utility,0x0 00e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00e4 00db | | Load_Top At_Offset_3 00e5 4604 |F | Jump_Case 0x5 00e6 7806 |x | Jump 0xed ; case 0x0 00e7 7807 |x | Jump 0xef ; case 0x1 00e8 7802 |x | Jump 0xeb ; case 0x2 00e9 7801 |x | Jump 0xeb ; case 0x3 00ea 7800 |x | Jump 0xeb ; case 0x4 00eb 48ff |H | Short_Literal 0xff 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed 4801 |H | Short_Literal 0x1 00ee 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ef 4802 |H | Short_Literal 0x2 00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f1 00db | | Load_Top At_Offset_3 00f2 e7fe | | Load 0x3,-0x2 00f3 4604 |F | Jump_Case 0x5 00f4 7806 |x | Jump 0xfb ; case 0x0 00f5 7807 |x | Jump 0xfd ; case 0x1 00f6 7802 |x | Jump 0xf9 ; case 0x2 00f7 7801 |x | Jump 0xf9 ; case 0x3 00f8 7800 |x | Jump 0xf9 ; case 0x4 00f9 48ff |H | Short_Literal 0xff 00fa 7803 |x | Jump 0xfe 00fb 4801 |H | Short_Literal 0x1 00fc 7801 |x | Jump 0xfe 00fd 4802 |H | Short_Literal 0x2 00fe e7ff | | Load 0x3,-0x1 00ff 031b | | Declare_Type Variant_Record,Constrained 0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0101 00db | | Load_Top At_Offset_3 0102 e7fe | | Load 0x3,-0x2 0103 e7ff | | Load 0x3,-0x1 0104 1c06 | | Execute_Immediate Run_Utility,0x6 0105 e7ff | | Load 0x3,-0x1 0106 02fc | | Declare_Variable Variant_Record,With_Constraint 0107 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0108 0869 | i | Execute_Immediate Raise,0x69 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00d1 | | Pop_Control Pop_Count_1 0114 00da | | Load_Top At_Offset_2 0115 01dc | | Execute Vector,Last 0116 00db | | Load_Top At_Offset_3 0117 01dd | | Execute Vector,First 0118 0263 | c | Execute Discrete,Above_Bound 0119 7006 |p | Jump_Nonzero 0x120 011a 00d8 | | Load_Top At_Offset_0 011b e7ff | | Load 0x3,-0x1 011c 01d5 | | Execute Vector,Field_Reference 011d 1c00 | | Execute_Immediate Run_Utility,0x0 011e 0a01 | | Execute_Immediate Plus,0x1 011f 7ff8 | | Jump 0x118 0120 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 013c | < | .CONST 0x013c ; Address of begin 0129 02d7 | | .CONST 0x02d7 ; Address of exception handler 012a 0006 | | .CONST 0x0006 ; Number of locals 012b INIT_0128: 012b 4800 |H | Short_Literal 0x0 012c 4803 |H | Short_Literal 0x3 012d 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 012f 03fd | | Declare_Type Discrete,Defined 0130 00d8 | | Load_Top At_Offset_0 0131 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0132 e7ff | | Load 0x3,-0x1 0133 01dd | | Execute Vector,First 0134 e210 | | Load 0x1,0x10 0135 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0136 e7fe | | Load 0x3,-0x2 0137 01dd | | Execute Vector,First 0138 00e4 | | Load_Encached Positive_Cache 0139 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 013a 00e3 | | Load_Encached Natural_Cache 013b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 013c BODY_0128: 013c 00cf | | Action Mark_Auxiliary 013d e603 | | Load 0x3,0x3 013e 4603 |F | Jump_Case 0x4 013f 7822 |x" | Jump 0x162 ; case 0x0 0140 78e3 |x | Jump 0x224 ; case 0x1 0141 7951 |yQ | Jump 0x293 ; case 0x2 0142 7800 |x | Jump 0x143 ; case 0x3 0143 00d9 | | Load_Top At_Offset_1 0144 e7fe | | Load 0x3,-0x2 0145 01d5 | | Execute Vector,Field_Reference 0146 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0147 0a01 | | Execute_Immediate Plus,0x1 0148 00da | | Load_Top At_Offset_2 0149 e7fe | | Load 0x3,-0x2 014a 01d5 | | Execute Vector,Field_Reference 014b 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 014c 00d9 | | Load_Top At_Offset_1 014d e7fe | | Load 0x3,-0x2 014e 01d5 | | Execute Vector,Field_Reference 014f 00d8 | | Load_Top At_Offset_0 0150 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0151 00d8 | | Load_Top At_Offset_0 0152 e606 | | Load 0x3,0x6 0153 e7fe | | Load 0x3,-0x2 0154 01d5 | | Execute Vector,Field_Reference 0155 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0156 e604 | | Load 0x3,0x4 0157 e7ff | | Load 0x3,-0x1 0158 01d7 | | Execute Vector,Field_Read 0159 00d9 | | Load_Top At_Offset_1 015a 00db | | Load_Top At_Offset_3 015b 01d6 | | Execute Vector,Field_Write 015c 00d2 | | Pop_Control Pop_Count_2 015d 00d0 | | Action Swap_Control 015e 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 015f 4801 |H | Short_Literal 0x1 0160 a603 | | Store_Unchecked 0x3,0x3 0161 794f |yO | Jump 0x2b1 0162 e212 | | Load 0x1,0x12 0163 e20f | | Load 0x1,0xf 0164 0119 | | Execute Any,Check_In_Formal_Type 0165 e604 | | Load 0x3,0x4 0166 e7ff | | Load 0x3,-0x1 0167 01d7 | | Execute Vector,Field_Read 0168 e20f | | Load 0x1,0xf 0169 0119 | | Execute Any,Check_In_Formal_Type 016a 8218 | | Call 0x1,0x18 016b 681c |h | Jump_Zero 0x188 016c 00da | | Load_Top At_Offset_2 016d e7fe | | Load 0x3,-0x2 016e 01d5 | | Execute Vector,Field_Reference 016f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0170 6815 |h | Jump_Zero 0x186 0171 4802 |H | Short_Literal 0x2 0172 e404 | | Load 0x2,0x4 0173 1c08 | | Execute_Immediate Run_Utility,0x8 0174 00db | | Load_Top At_Offset_3 0175 e7fe | | Load 0x3,-0x2 0176 01d5 | | Execute Vector,Field_Reference 0177 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0178 00d9 | | Load_Top At_Offset_1 0179 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 017a 4800 |H | Short_Literal 0x0 017b 00d9 | | Load_Top At_Offset_1 017c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 017d 00db | | Load_Top At_Offset_3 017e e7fe | | Load 0x3,-0x2 017f 01d6 | | Execute Vector,Field_Write 0180 00da | | Load_Top At_Offset_2 0181 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0182 00da | | Load_Top At_Offset_2 0183 0a01 | | Execute_Immediate Plus,0x1 0184 005b | [ | Store_Top Discrete,At_Offset_3 0185 792b |y+ | Jump 0x2b1 0186 e21a | | Load 0x1,0x1a 0187 0257 | W | Execute Discrete,Raise 0188 e213 | | Load 0x1,0x13 0189 e20f | | Load 0x1,0xf 018a 0119 | | Execute Any,Check_In_Formal_Type 018b e604 | | Load 0x3,0x4 018c e7ff | | Load 0x3,-0x1 018d 01d7 | | Execute Vector,Field_Read 018e e20f | | Load 0x1,0xf 018f 0119 | | Execute Any,Check_In_Formal_Type 0190 8218 | | Call 0x1,0x18 0191 6803 |h | Jump_Zero 0x195 0192 4802 |H | Short_Literal 0x2 0193 a603 | | Store_Unchecked 0x3,0x3 0194 791c |y | Jump 0x2b1 0195 e214 | | Load 0x1,0x14 0196 e20f | | Load 0x1,0xf 0197 0119 | | Execute Any,Check_In_Formal_Type 0198 e604 | | Load 0x3,0x4 0199 e7ff | | Load 0x3,-0x1 019a 01d7 | | Execute Vector,Field_Read 019b e20f | | Load 0x1,0xf 019c 0119 | | Execute Any,Check_In_Formal_Type 019d 8218 | | Call 0x1,0x18 019e 680d |h | Jump_Zero 0x1ac 019f 00da | | Load_Top At_Offset_2 01a0 e7fe | | Load 0x3,-0x2 01a1 01d5 | | Execute Vector,Field_Reference 01a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a3 6806 |h | Jump_Zero 0x1aa 01a4 4800 |H | Short_Literal 0x0 01a5 00db | | Load_Top At_Offset_3 01a6 e7fe | | Load 0x3,-0x2 01a7 01d5 | | Execute Vector,Field_Reference 01a8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a9 7907 |y | Jump 0x2b1 01aa e21a | | Load 0x1,0x1a 01ab 0257 | W | Execute Discrete,Raise 01ac e215 | | Load 0x1,0x15 01ad e20f | | Load 0x1,0xf 01ae 0119 | | Execute Any,Check_In_Formal_Type 01af e604 | | Load 0x3,0x4 01b0 e7ff | | Load 0x3,-0x1 01b1 01d7 | | Execute Vector,Field_Read 01b2 e20f | | Load 0x1,0xf 01b3 0119 | | Execute Any,Check_In_Formal_Type 01b4 8218 | | Call 0x1,0x18 01b5 680d |h | Jump_Zero 0x1c3 01b6 00d9 | | Load_Top At_Offset_1 01b7 e7fe | | Load 0x3,-0x2 01b8 01d5 | | Execute Vector,Field_Reference 01b9 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 01ba 7006 |p | Jump_Nonzero 0x1c1 01bb 4801 |H | Short_Literal 0x1 01bc 00da | | Load_Top At_Offset_2 01bd e7fe | | Load 0x3,-0x2 01be 01d5 | | Execute Vector,Field_Reference 01bf 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01c0 78f0 |x | Jump 0x2b1 01c1 e21a | | Load 0x1,0x1a 01c2 0257 | W | Execute Discrete,Raise 01c3 e216 | | Load 0x1,0x16 01c4 e20f | | Load 0x1,0xf 01c5 0119 | | Execute Any,Check_In_Formal_Type 01c6 e604 | | Load 0x3,0x4 01c7 e7ff | | Load 0x3,-0x1 01c8 01d7 | | Execute Vector,Field_Read 01c9 e20f | | Load 0x1,0xf 01ca 0119 | | Execute Any,Check_In_Formal_Type 01cb 8218 | | Call 0x1,0x18 01cc 682e |h. | Jump_Zero 0x1fb 01cd 4801 |H | Short_Literal 0x1 01ce e404 | | Load 0x2,0x4 01cf 1c08 | | Execute_Immediate Run_Utility,0x8 01d0 00db | | Load_Top At_Offset_3 01d1 e7fe | | Load 0x3,-0x2 01d2 01d5 | | Execute Vector,Field_Reference 01d3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01d4 00d9 | | Load_Top At_Offset_1 01d5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01d6 4800 |H | Short_Literal 0x0 01d7 00d9 | | Load_Top At_Offset_1 01d8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01d9 4800 |H | Short_Literal 0x0 01da 00d9 | | Load_Top At_Offset_1 01db 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 01dc e404 | | Load 0x2,0x4 01dd 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 01de 0337 | 7 | Declare_Variable Array 01df e404 | | Load 0x2,0x4 01e0 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 01e1 01d9 | | Execute Vector,Reverse_Bounds 01e2 0263 | c | Execute Discrete,Above_Bound 01e3 7007 |p | Jump_Nonzero 0x1eb 01e4 e212 | | Load 0x1,0x12 01e5 e20f | | Load 0x1,0xf 01e6 0119 | | Execute Any,Check_In_Formal_Type 01e7 00d9 | | Load_Top At_Offset_1 01e8 e609 | | Load 0x3,0x9 01e9 01d6 | | Execute Vector,Field_Write 01ea 3ff9 |? | Loop_Increasing 0x1e4 01eb e404 | | Load 0x2,0x4 01ec 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 01ed 0119 | | Execute Any,Check_In_Formal_Type 01ee 00d9 | | Load_Top At_Offset_1 01ef 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 01f0 00db | | Load_Top At_Offset_3 01f1 e7fe | | Load 0x3,-0x2 01f2 01d6 | | Execute Vector,Field_Write 01f3 00da | | Load_Top At_Offset_2 01f4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01f5 00da | | Load_Top At_Offset_2 01f6 0a01 | | Execute_Immediate Plus,0x1 01f7 005b | [ | Store_Top Discrete,At_Offset_3 01f8 4801 |H | Short_Literal 0x1 01f9 a603 | | Store_Unchecked 0x3,0x3 01fa 78b6 |x | Jump 0x2b1 01fb e217 | | Load 0x1,0x17 01fc e20f | | Load 0x1,0xf 01fd 0119 | | Execute Any,Check_In_Formal_Type 01fe e604 | | Load 0x3,0x4 01ff e7ff | | Load 0x3,-0x1 0200 01d7 | | Execute Vector,Field_Read 0201 e20f | | Load 0x1,0xf 0202 0119 | | Execute Any,Check_In_Formal_Type 0203 8218 | | Call 0x1,0x18 0204 6802 |h | Jump_Zero 0x207 0205 e21a | | Load 0x1,0x1a 0206 0257 | W | Execute Discrete,Raise 0207 4800 |H | Short_Literal 0x0 0208 e404 | | Load 0x2,0x4 0209 1c08 | | Execute_Immediate Run_Utility,0x8 020a 00db | | Load_Top At_Offset_3 020b e7fe | | Load 0x3,-0x2 020c 01d5 | | Execute Vector,Field_Reference 020d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 020e 00d9 | | Load_Top At_Offset_1 020f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0210 4800 |H | Short_Literal 0x0 0211 00d9 | | Load_Top At_Offset_1 0212 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0213 e604 | | Load 0x3,0x4 0214 e7ff | | Load 0x3,-0x1 0215 01d7 | | Execute Vector,Field_Read 0216 e404 | | Load 0x2,0x4 0217 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 0218 0119 | | Execute Any,Check_In_Formal_Type 0219 00d9 | | Load_Top At_Offset_1 021a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 021b 00db | | Load_Top At_Offset_3 021c e7fe | | Load 0x3,-0x2 021d 01d6 | | Execute Vector,Field_Write 021e 00da | | Load_Top At_Offset_2 021f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0220 00da | | Load_Top At_Offset_2 0221 0a01 | | Execute_Immediate Plus,0x1 0222 005b | [ | Store_Top Discrete,At_Offset_3 0223 788d |x | Jump 0x2b1 0224 e212 | | Load 0x1,0x12 0225 e20f | | Load 0x1,0xf 0226 0119 | | Execute Any,Check_In_Formal_Type 0227 e604 | | Load 0x3,0x4 0228 e7ff | | Load 0x3,-0x1 0229 01d7 | | Execute Vector,Field_Read 022a e20f | | Load 0x1,0xf 022b 0119 | | Execute Any,Check_In_Formal_Type 022c 8218 | | Call 0x1,0x18 022d 6802 |h | Jump_Zero 0x230 022e e21a | | Load 0x1,0x1a 022f 0257 | W | Execute Discrete,Raise 0230 e213 | | Load 0x1,0x13 0231 e20f | | Load 0x1,0xf 0232 0119 | | Execute Any,Check_In_Formal_Type 0233 e604 | | Load 0x3,0x4 0234 e7ff | | Load 0x3,-0x1 0235 01d7 | | Execute Vector,Field_Read 0236 e20f | | Load 0x1,0xf 0237 0119 | | Execute Any,Check_In_Formal_Type 0238 8218 | | Call 0x1,0x18 0239 6803 |h | Jump_Zero 0x23d 023a 4803 |H | Short_Literal 0x3 023b a603 | | Store_Unchecked 0x3,0x3 023c 7874 |xt | Jump 0x2b1 023d e214 | | Load 0x1,0x14 023e e20f | | Load 0x1,0xf 023f 0119 | | Execute Any,Check_In_Formal_Type 0240 e604 | | Load 0x3,0x4 0241 e7ff | | Load 0x3,-0x1 0242 01d7 | | Execute Vector,Field_Read 0243 e20f | | Load 0x1,0xf 0244 0119 | | Execute Any,Check_In_Formal_Type 0245 8218 | | Call 0x1,0x18 0246 6802 |h | Jump_Zero 0x249 0247 e21a | | Load 0x1,0x1a 0248 0257 | W | Execute Discrete,Raise 0249 e215 | | Load 0x1,0x15 024a e20f | | Load 0x1,0xf 024b 0119 | | Execute Any,Check_In_Formal_Type 024c e604 | | Load 0x3,0x4 024d e7ff | | Load 0x3,-0x1 024e 01d7 | | Execute Vector,Field_Read 024f e20f | | Load 0x1,0xf 0250 0119 | | Execute Any,Check_In_Formal_Type 0251 8218 | | Call 0x1,0x18 0252 6802 |h | Jump_Zero 0x255 0253 e21a | | Load 0x1,0x1a 0254 0257 | W | Execute Discrete,Raise 0255 e216 | | Load 0x1,0x16 0256 e20f | | Load 0x1,0xf 0257 0119 | | Execute Any,Check_In_Formal_Type 0258 e604 | | Load 0x3,0x4 0259 e7ff | | Load 0x3,-0x1 025a 01d7 | | Execute Vector,Field_Read 025b e20f | | Load 0x1,0xf 025c 0119 | | Execute Any,Check_In_Formal_Type 025d 8218 | | Call 0x1,0x18 025e 6802 |h | Jump_Zero 0x261 025f e21a | | Load 0x1,0x1a 0260 0257 | W | Execute Discrete,Raise 0261 e217 | | Load 0x1,0x17 0262 e20f | | Load 0x1,0xf 0263 0119 | | Execute Any,Check_In_Formal_Type 0264 e604 | | Load 0x3,0x4 0265 e7ff | | Load 0x3,-0x1 0266 01d7 | | Execute Vector,Field_Read 0267 e20f | | Load 0x1,0xf 0268 0119 | | Execute Any,Check_In_Formal_Type 0269 8218 | | Call 0x1,0x18 026a 680b |h | Jump_Zero 0x276 026b 00d9 | | Load_Top At_Offset_1 026c e7fe | | Load 0x3,-0x2 026d 01d5 | | Execute Vector,Field_Reference 026e 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 026f 0c01 | | Execute_Immediate Greater_Equal,0x1 0270 6803 |h | Jump_Zero 0x274 0271 4800 |H | Short_Literal 0x0 0272 a603 | | Store_Unchecked 0x3,0x3 0273 783d |x= | Jump 0x2b1 0274 e21a | | Load 0x1,0x1a 0275 0257 | W | Execute Discrete,Raise 0276 00d9 | | Load_Top At_Offset_1 0277 e7fe | | Load 0x3,-0x2 0278 01d5 | | Execute Vector,Field_Reference 0279 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 027a 0a01 | | Execute_Immediate Plus,0x1 027b 00da | | Load_Top At_Offset_2 027c e7fe | | Load 0x3,-0x2 027d 01d5 | | Execute Vector,Field_Reference 027e 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 027f 00d9 | | Load_Top At_Offset_1 0280 e7fe | | Load 0x3,-0x2 0281 01d5 | | Execute Vector,Field_Reference 0282 00d8 | | Load_Top At_Offset_0 0283 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0284 00d8 | | Load_Top At_Offset_0 0285 e606 | | Load 0x3,0x6 0286 e7fe | | Load 0x3,-0x2 0287 01d5 | | Execute Vector,Field_Reference 0288 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0289 e604 | | Load 0x3,0x4 028a e7ff | | Load 0x3,-0x1 028b 01d7 | | Execute Vector,Field_Read 028c 00d9 | | Load_Top At_Offset_1 028d 00db | | Load_Top At_Offset_3 028e 01d6 | | Execute Vector,Field_Write 028f 00d2 | | Pop_Control Pop_Count_2 0290 00d0 | | Action Swap_Control 0291 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0292 781e |x | Jump 0x2b1 0293 4800 |H | Short_Literal 0x0 0294 e404 | | Load 0x2,0x4 0295 1c08 | | Execute_Immediate Run_Utility,0x8 0296 00db | | Load_Top At_Offset_3 0297 e7fe | | Load 0x3,-0x2 0298 01d5 | | Execute Vector,Field_Reference 0299 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 029a 00d9 | | Load_Top At_Offset_1 029b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 029c 4800 |H | Short_Literal 0x0 029d 00d9 | | Load_Top At_Offset_1 029e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 029f e604 | | Load 0x3,0x4 02a0 e7ff | | Load 0x3,-0x1 02a1 01d7 | | Execute Vector,Field_Read 02a2 e404 | | Load 0x2,0x4 02a3 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 02a4 0119 | | Execute Any,Check_In_Formal_Type 02a5 00d9 | | Load_Top At_Offset_1 02a6 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 02a7 00db | | Load_Top At_Offset_3 02a8 e7fe | | Load 0x3,-0x2 02a9 01d6 | | Execute Vector,Field_Write 02aa 00da | | Load_Top At_Offset_2 02ab 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02ac 00da | | Load_Top At_Offset_2 02ad 0a01 | | Execute_Immediate Plus,0x1 02ae 005b | [ | Store_Top Discrete,At_Offset_3 02af 4800 |H | Short_Literal 0x0 02b0 a603 | | Store_Unchecked 0x3,0x3 02b1 00db | | Load_Top At_Offset_3 02b2 e7ff | | Load 0x3,-0x1 02b3 01dc | | Execute Vector,Last 02b4 027f | | Execute Discrete,Equal 02b5 681a |h | Jump_Zero 0x2d0 02b6 e603 | | Load 0x3,0x3 02b7 0f00 | | Execute_Immediate Equal,0x0 02b8 00db | | Load_Top At_Offset_3 02b9 e7fe | | Load 0x3,-0x2 02ba 01d5 | | Execute Vector,Field_Reference 02bb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02bc 0279 | y | Execute Discrete,And 02bd 6810 |h | Jump_Zero 0x2ce 02be 4803 |H | Short_Literal 0x3 02bf e404 | | Load 0x2,0x4 02c0 1c08 | | Execute_Immediate Run_Utility,0x8 02c1 00db | | Load_Top At_Offset_3 02c2 e7fe | | Load 0x3,-0x2 02c3 01d5 | | Execute Vector,Field_Reference 02c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02c5 00d9 | | Load_Top At_Offset_1 02c6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 02c7 4800 |H | Short_Literal 0x0 02c8 00d9 | | Load_Top At_Offset_1 02c9 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 02ca 00db | | Load_Top At_Offset_3 02cb e7fe | | Load 0x3,-0x2 02cc 01d6 | | Execute Vector,Field_Write 02cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ce e21a | | Load 0x1,0x1a 02cf 0257 | W | Execute Discrete,Raise 02d0 e210 | | Load 0x1,0x10 02d1 0122 | " | Execute Any,Make_Root_Type 02d2 e604 | | Load 0x3,0x4 02d3 0268 | h | Execute Discrete,Successor 02d4 c604 | | Store 0x3,0x4 02d5 00c9 | | Action Pop_Auxiliary_Loop 02d6 7e66 |~f | Jump 0x13d 02d7 TRAP_0128: 02d7 010e | | Execute Exception,Is_Constraint_Error 02d8 6802 |h | Jump_Zero 0x2db 02d9 e21a | | Load 0x1,0x1a 02da 0257 | W | Execute Discrete,Raise 02db 0100 | | Execute Exception,Raise 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02e5 4604 |F | Jump_Case 0x5 02e6 7806 |x | Jump 0x2ed ; case 0x0 02e7 781b |x | Jump 0x303 ; case 0x1 02e8 784d |xM | Jump 0x336 ; case 0x2 02e9 7801 |x | Jump 0x2eb ; case 0x3 02ea 7800 |x | Jump 0x2eb ; case 0x4 02eb e21a | | Load 0x1,0x1a 02ec 0257 | W | Execute Discrete,Raise 02ed 00da | | Load_Top At_Offset_2 02ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02ef 6809 |h | Jump_Zero 0x2f9 02f0 00db | | Load_Top At_Offset_3 02f1 e20f | | Load 0x1,0xf 02f2 0119 | | Execute Any,Check_In_Formal_Type 02f3 00db | | Load_Top At_Offset_3 02f4 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02f5 e20f | | Load 0x1,0xf 02f6 0119 | | Execute Any,Check_In_Formal_Type 02f7 8218 | | Call 0x1,0x18 02f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f9 00db | | Load_Top At_Offset_3 02fa e20f | | Load 0x1,0xf 02fb 0119 | | Execute Any,Check_In_Formal_Type 02fc 00db | | Load_Top At_Offset_3 02fd 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02fe e20f | | Load 0x1,0xf 02ff 0119 | | Execute Any,Check_In_Formal_Type 0300 8218 | | Call 0x1,0x18 0301 0f00 | | Execute_Immediate Equal,0x0 0302 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0303 00da | | Load_Top At_Offset_2 0304 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0305 6818 |h | Jump_Zero 0x31e 0306 00cf | | Action Mark_Auxiliary 0307 00db | | Load_Top At_Offset_3 0308 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0309 4801 |H | Short_Literal 0x1 030a 0263 | c | Execute Discrete,Above_Bound 030b 700f |p | Jump_Nonzero 0x31b 030c e7fe | | Load 0x3,-0x2 030d e20f | | Load 0x1,0xf 030e 0119 | | Execute Any,Check_In_Formal_Type 030f 00d9 | | Load_Top At_Offset_1 0310 e7ff | | Load 0x3,-0x1 0311 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0312 01d7 | | Execute Vector,Field_Read 0313 e20f | | Load 0x1,0xf 0314 0119 | | Execute Any,Check_In_Formal_Type 0315 8218 | | Call 0x1,0x18 0316 6802 |h | Jump_Zero 0x319 0317 4801 |H | Short_Literal 0x1 0318 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0319 00c8 | | Action Pop_Auxiliary_Range 031a 3ff1 |? | Loop_Increasing 0x30c 031b 00ce | | Action Pop_Auxiliary 031c 4800 |H | Short_Literal 0x0 031d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 031e 00cf | | Action Mark_Auxiliary 031f 00db | | Load_Top At_Offset_3 0320 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0321 4801 |H | Short_Literal 0x1 0322 0263 | c | Execute Discrete,Above_Bound 0323 700f |p | Jump_Nonzero 0x333 0324 e7fe | | Load 0x3,-0x2 0325 e20f | | Load 0x1,0xf 0326 0119 | | Execute Any,Check_In_Formal_Type 0327 00d9 | | Load_Top At_Offset_1 0328 e7ff | | Load 0x3,-0x1 0329 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 032a 01d7 | | Execute Vector,Field_Read 032b e20f | | Load 0x1,0xf 032c 0119 | | Execute Any,Check_In_Formal_Type 032d 8218 | | Call 0x1,0x18 032e 6802 |h | Jump_Zero 0x331 032f 4800 |H | Short_Literal 0x0 0330 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0331 00c8 | | Action Pop_Auxiliary_Range 0332 3ff1 |? | Loop_Increasing 0x324 0333 00ce | | Action Pop_Auxiliary 0334 4801 |H | Short_Literal 0x1 0335 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0336 4801 |H | Short_Literal 0x1 0337 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0345 | E | .CONST 0x0345 ; Address of begin 0339 0393 | | .CONST 0x0393 ; Address of exception handler 033a 0006 | | .CONST 0x0006 ; Number of locals 033b INIT_0338: 033b e7fd | | Load 0x3,-0x3 033c e210 | | Load 0x1,0x10 033d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 033e 00e3 | | Load_Encached Natural_Cache 033f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0340 e210 | | Load 0x1,0x10 0341 0007 | | Action Break_Optional 0342 00d8 | | Load_Top At_Offset_0 0343 029f 03db | | Declare_Subprogram INIT_03d8,For_Call 0345 BODY_0338: 0345 00cf | | Action Mark_Auxiliary 0346 e7ff | | Load 0x3,-0x1 0347 01d9 | | Execute Vector,Reverse_Bounds 0348 0263 | c | Execute Discrete,Above_Bound 0349 7047 |pG | Jump_Nonzero 0x391 034a 00d8 | | Load_Top At_Offset_0 034b e7ff | | Load 0x3,-0x1 034c 01d5 | | Execute Vector,Field_Reference 034d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 034e 0f03 | | Execute_Immediate Equal,0x3 034f 6807 |h | Jump_Zero 0x357 0350 e7fd | | Load 0x3,-0x3 0351 00d8 | | Load_Top At_Offset_0 0352 e210 | | Load 0x1,0x10 0353 0260 | ` | Execute Discrete,In_Type 0354 7001 |p | Jump_Nonzero 0x356 0355 0801 | | Execute_Immediate Raise,0x1 0356 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0357 00d8 | | Load_Top At_Offset_0 0358 e7ff | | Load 0x3,-0x1 0359 01d5 | | Execute Vector,Field_Reference 035a 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 035b 6821 |h! | Jump_Zero 0x37d 035c 00cf | | Action Mark_Auxiliary 035d e7fe | | Load 0x3,-0x2 035e 01dc | | Execute Vector,Last 035f e602 | | Load 0x3,0x2 0360 0263 | c | Execute Discrete,Above_Bound 0361 7012 |p | Jump_Nonzero 0x374 0362 00d8 | | Load_Top At_Offset_0 0363 e7fe | | Load 0x3,-0x2 0364 01d7 | | Execute Vector,Field_Read 0365 e20f | | Load 0x1,0xf 0366 0119 | | Execute Any,Check_In_Formal_Type 0367 e609 | | Load 0x3,0x9 0368 e7ff | | Load 0x3,-0x1 0369 01d5 | | Execute Vector,Field_Reference 036a 8408 | | Call 0x2,0x8 036b 6804 |h | Jump_Zero 0x370 036c e603 | | Load 0x3,0x3 036d 0a01 | | Execute_Immediate Plus,0x1 036e c603 | | Store 0x3,0x3 036f 7802 |x | Jump 0x372 0370 00d2 | | Pop_Control Pop_Count_2 0371 7802 |x | Jump 0x374 0372 00c8 | | Action Pop_Auxiliary_Range 0373 3fee |? | Loop_Increasing 0x362 0374 00c9 | | Action Pop_Auxiliary_Loop 0375 7802 |x | Jump 0x378 0376 8606 | | Call 0x3,0x6 0377 00c9 | | Action Pop_Auxiliary_Loop 0378 e603 | | Load 0x3,0x3 0379 0c01 | | Execute_Immediate Greater_Equal,0x1 037a 77fb |w | Jump_Nonzero 0x376 037b 00ce | | Action Pop_Auxiliary 037c 7812 |x | Jump 0x38f 037d e602 | | Load 0x3,0x2 037e e7fe | | Load 0x3,-0x2 037f 01d7 | | Execute Vector,Field_Read 0380 e20f | | Load 0x1,0xf 0381 0119 | | Execute Any,Check_In_Formal_Type 0382 00d9 | | Load_Top At_Offset_1 0383 e7ff | | Load 0x3,-0x1 0384 01d5 | | Execute Vector,Field_Reference 0385 8408 | | Call 0x2,0x8 0386 6806 |h | Jump_Zero 0x38d 0387 e210 | | Load 0x1,0x10 0388 0122 | " | Execute Any,Make_Root_Type 0389 e602 | | Load 0x3,0x2 038a 0268 | h | Execute Discrete,Successor 038b c602 | | Store 0x3,0x2 038c 7802 |x | Jump 0x38f 038d e21b | | Load 0x1,0x1b 038e 0257 | W | Execute Discrete,Raise 038f 00c8 | | Action Pop_Auxiliary_Range 0390 3fb9 |? | Loop_Increasing 0x34a 0391 00ce | | Action Pop_Auxiliary 0392 0831 | 1 | Execute_Immediate Raise,0x31 0393 TRAP_0338: 0393 010e | | Execute Exception,Is_Constraint_Error 0394 6802 |h | Jump_Zero 0x397 0395 e21b | | Load 0x1,0x1b 0396 0257 | W | Execute Discrete,Raise 0397 0100 | | Execute Exception,Raise 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 03a8 | | .CONST 0x03a8 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b e40d | | Load 0x2,0xd 039c 00d8 | | Load_Top At_Offset_0 039d e210 | | Load 0x1,0x10 039e 0260 | ` | Execute Discrete,In_Type 039f 7001 |p | Jump_Nonzero 0x3a1 03a0 0801 | | Execute_Immediate Raise,0x1 03a1 e5fe | | Load 0x2,-0x2 03a2 e406 | | Load 0x2,0x6 03a3 8409 | | Call 0x2,0x9 03a4 e210 | | Load 0x1,0x10 03a5 025e | ^ | Execute Discrete,Convert 03a6 00cb | | Action Pop_Block_With_Result 03a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a8 TRAP_0398: 03a8 e21b | | Load 0x1,0x1b 03a9 010f | | Execute Exception,Equal 03aa 6801 |h | Jump_Zero 0x3ac 03ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ac 0100 | | Execute Exception,Raise 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 4607 |F | Jump_Case 0x8 03b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03b5 7806 |x | Jump 0x3bc ; case 0x1 03b6 7809 |x | Jump 0x3c0 ; case 0x2 03b7 780d |x | Jump 0x3c5 ; case 0x3 03b8 7810 |x | Jump 0x3c9 ; case 0x4 03b9 7811 |x | Jump 0x3cb ; case 0x5 03ba 7812 |x | Jump 0x3cd ; case 0x6 03bb 7815 |x | Jump 0x3d1 ; case 0x7 03bc 00da | | Load_Top At_Offset_2 03bd 0091 040e | | Action Push_String_Extended_Indexed,0x40e ; "BUILDING_PATTERN" 03bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03c0 00db | | Load_Top At_Offset_3 03c1 00db | | Load_Top At_Offset_3 03c2 00e0 | | Load_Encached Standard_Cache 03c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03c5 00da | | Load_Top At_Offset_2 03c6 00e0 | | Load_Encached Standard_Cache 03c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03c9 00db | | Load_Top At_Offset_3 03ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03cb 00db | | Load_Top At_Offset_3 03cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03cd e602 | | Load 0x3,0x2 03ce 00dc | | Load_Top At_Offset_4 03cf 0267 | g | Execute Discrete,Predecessor 03d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03d1 e602 | | Load 0x3,0x2 03d2 00dc | | Load_Top At_Offset_4 03d3 0268 | h | Execute Discrete,Successor 03d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03d5 0000 0000 | | .XXX[0x3] 03d7 0000 | | 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0401 | | .CONST 0x0401 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db e602 | | Load 0x3,0x2 03dc e603 | | Load 0x3,0x3 03dd 0273 | s | Execute Discrete,Plus 03de 00d8 | | Load_Top At_Offset_0 03df e210 | | Load 0x1,0x10 03e0 0122 | " | Execute Any,Make_Root_Type 03e1 0260 | ` | Execute Discrete,In_Type 03e2 7001 |p | Jump_Nonzero 0x3e4 03e3 0801 | | Execute_Immediate Raise,0x1 03e4 c605 | | Store 0x3,0x5 03e5 e605 | | Load 0x3,0x5 03e6 00d8 | | Load_Top At_Offset_0 03e7 e210 | | Load 0x1,0x10 03e8 0260 | ` | Execute Discrete,In_Type 03e9 7001 |p | Jump_Nonzero 0x3eb 03ea 0801 | | Execute_Immediate Raise,0x1 03eb e605 | | Load 0x3,0x5 03ec e7fe | | Load 0x3,-0x2 03ed 01dc | | Execute Vector,Last 03ee e7fe | | Load 0x3,-0x2 03ef 01cf | | Execute Vector,Slice_Read 03f0 e609 | | Load 0x3,0x9 03f1 0a01 | | Execute_Immediate Plus,0x1 03f2 00d8 | | Load_Top At_Offset_0 03f3 00e2 | | Load_Encached Integer_Cache 03f4 0260 | ` | Execute Discrete,In_Type 03f5 7001 |p | Jump_Nonzero 0x3f7 03f6 0801 | | Execute_Immediate Raise,0x1 03f7 e7ff | | Load 0x3,-0x1 03f8 01dc | | Execute Vector,Last 03f9 e7ff | | Load 0x3,-0x1 03fa 01cf | | Execute Vector,Slice_Read 03fb 8409 | | Call 0x2,0x9 03fc c604 | | Store 0x3,0x4 03fd e605 | | Load 0x3,0x5 03fe c602 | | Store 0x3,0x2 03ff 00cc | | Action Pop_Block 0400 7f7a | z | Jump 0x37b 0401 TRAP_03d8: 0401 e21b | | Load 0x1,0x1b 0402 010f | | Execute Exception,Equal 0403 6804 |h | Jump_Zero 0x408 0404 e603 | | Load 0x3,0x3 0405 0aff | | Execute_Immediate Plus,-0x1 0406 c603 | | Store 0x3,0x3 0407 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0408 0100 | | Execute Exception,Raise 0409 ; -------------------------------------------------------------------------------------- 0409 ; STRING TABLE 0409 ; -------------------------------------------------------------------------------------- 0409 0014 | | .STRTAB 0x0014->0x0413 ; "LITERAL" 040a 0019 | | .STRTAB 0x0019->0x0416 ; "CLASS" 040b 001c | | .STRTAB 0x001c->0x0419 ; "ANY" 040c 001d | | .STRTAB 0x001d->0x041a ; "STOP" 040d 001f | | .STRTAB 0x001f->0x041c ; "UNKNOWN" 040e 0024 | $ | .STRTAB 0x0024->0x0420 ; "BUILDING_PATTERN" 040f 0032 | 2 | .STRTAB 0x0032->0x0428 ; "BUILDING_CLASS" 0410 003e | > | .STRTAB 0x003e->0x042f ; "BUILDING_ESCAPE_PATTERN" 0411 0053 | S | .STRTAB 0x0053->0x043a ; "BUILDING_ESCAPE_CLASS" 0412 0066 | f | .STREND 0x0066->0x0445 0413 4c49 5445 |LITE| .STRTAB_STRINGS 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug Table 0448 ; -------------------------------------------------------------------------------------- 0448 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7133,0x0000,0x0001,0x000d 044e 000b 0482 | | .DBG4T 0x000b,0x0482,0xc000,0x0000 0452 0012 0487 | | .DBG4T 0x0012,0x0487,0xc000,0x0000 0456 001b 048a | | .DBG4T 0x001b,0x048a,0x1002,0x0000 045a 0073 0000 | s | .DBG4T 0x0073,0x0000,0x1005,0x0000 045e 009b 0000 | | .DBG4T 0x009b,0x0000,0x1005,0x0000 0462 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x1005,0x0000 0466 0113 0000 | | .DBG4T 0x0113,0x0000,0x1005,0x0000 046a 012b 0498 | + | .DBG4T 0x012b,0x0498,0x1001,0x4000 046e 02e3 0511 | | .DBG4T 0x02e3,0x0511,0x1002,0x4000 0472 033b 0531 | ; 1| .DBG4T 0x033b,0x0531,0x1002,0x4000 0476 039b 0553 | S| .DBG4T 0x039b,0x0553,0x1004,0x0000 047a 03b3 0000 | | .DBG4T 0x03b3,0x0000,0x1005,0x0000 047e 03db 0557 | W| .DBG4T 0x03db,0x0557,0x1004,0x0000 0482 ; -------------------------------------------------------------------------------------- 0482 ; Debug chain 0482 ; -------------------------------------------------------------------------------------- 0482 0003 0000 | | .DBGLEN 0x0003,0x0000 0484 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 0487 ; -------------------------------------------------------------------------------------- 0487 ; Debug chain 0487 ; -------------------------------------------------------------------------------------- 0487 0001 0000 | | .DBGLEN 0x0001,0x0000 0489 0012 | | .DBGLNO 0x0012 048a ; -------------------------------------------------------------------------------------- 048a ; Debug chain 048a ; -------------------------------------------------------------------------------------- 048a 0008 0004 | | .DBGLEN 0x0008,0x0004 048c 001b 0020 | | .DBGLNO 0x001b,0x0020,0x002f,0x003f,0x0046,0x0054,0x0056,0x0058,0x005c,0x0061,0x0065,0x0069 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug chain 0498 ; -------------------------------------------------------------------------------------- 0498 0005 0039 | 9| .DBGLEN 0x0005,0x0039 049a 012b 0130 | + 0| .DBGLNO 0x012b,0x0130,0x0132,0x0136,0x013a,0x013d,0x0143,0x014c,0x015f,0x0162,0x016c,0x0171,0x0180,0x0182,0x0186,0x0188,0x0192,0x0195,0x019f,0x01a4,0x01aa,0x01ac,0x01b6,0x01bb,0x01c1,0x01c3,0x01cd,0x01f3,0x01f5,0x01f8,0x01fb,0x0205,0x0207,0x021e,0x0220,0x0224,0x022e,0x0230,0x023a,0x023d,0x0247,0x0249,0x0253,0x0255,0x025f,0x0261,0x026b,0x0271,0x0274,0x0276,0x027f,0x0293,0x02aa,0x02ac,0x02af,0x02b1,0x02b6,0x02be,0x02cd,0x02ce,0x02d0,0x02d9 04d8 0002 0031 | 1| .XXX[0x39] 04da 0032 0033 | 2 3| 04dc 0003 0004 | | 04de 0005 0006 | | 04e0 0007 0008 | | 04e2 0009 000a | | 04e4 000b 000c | | 04e6 000d 000e | | 04e8 000f 0010 | | 04ea 0011 0012 | | 04ec 0013 0014 | | 04ee 0015 0016 | | 04f0 0017 0018 | | 04f2 0019 001a | | 04f4 001b 001c | | 04f6 001d 001e | | 04f8 001f 0020 | | 04fa 0021 0022 | ! "| 04fc 0023 0024 | # $| 04fe 0025 0026 | % &| 0500 0027 0028 | ' (| 0502 0029 002a | ) *| 0504 002b 002c | + ,| 0506 002d 002e | - .| 0508 002f 0030 | / 0| 050a 0034 0035 | 4 5| 050c 0036 0037 | 6 7| 050e 0038 0039 | 8 9| 0510 003a | : | 0511 ; -------------------------------------------------------------------------------------- 0511 ; Debug chain 0511 ; -------------------------------------------------------------------------------------- 0511 0000 000f | | .DBGLEN 0x0000,0x000f 0513 02e3 02eb | | .DBGLNO 0x02e3,0x02eb,0x02ed,0x02f0,0x02f9,0x0303,0x0307,0x030c,0x0317,0x031c,0x031f,0x0324,0x032f,0x0334,0x0336 0522 0001 000f | | .XXX[0xf] 0524 0002 0003 | | 0526 0004 0005 | | 0528 0006 0007 | | 052a 0008 0009 | | 052c 000a 000b | | 052e 000c 000d | | 0530 000e | | 0531 ; -------------------------------------------------------------------------------------- 0531 ; Debug chain 0531 ; -------------------------------------------------------------------------------------- 0531 0004 000e | | .DBGLEN 0x0004,0x000e 0533 033b 033e | ; >| .DBGLNO 0x033b,0x033e,0x0340,0x0342,0x0346,0x034a,0x0350,0x0357,0x035d,0x0362,0x036c,0x0370,0x0376,0x0378,0x037d,0x0387,0x038d,0x0395 0545 0001 0002 | | .XXX[0xe] 0547 0003 0004 | | 0549 0005 0006 | | 054b 0007 0008 | | 054d 000a 0009 | | 054f 000b 000c | | 0551 000d 000e | | 0553 ; -------------------------------------------------------------------------------------- 0553 ; Debug chain 0553 ; -------------------------------------------------------------------------------------- 0553 0000 0002 | | .DBGLEN 0x0000,0x0002 0555 039b 03ab | | .DBGLNO 0x039b,0x03ab 0557 ; -------------------------------------------------------------------------------------- 0557 ; Debug chain 0557 ; -------------------------------------------------------------------------------------- 0557 0000 0005 | | .DBGLEN 0x0000,0x0005 0559 03db 03e5 | | .DBGLNO 0x03db,0x03e5,0x03fd,0x03ff,0x0404 055e 0000 0000 | | .BLANK 0000[0xa2]