|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d0cd6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0400 | | .CONST 0x0400 ; 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 0175 | u | .CONST 0x0175 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00e3 | | Load_Encached Natural_Cache 0011 0129 | ) | Execute Any,Make_Visible 0012 00c4 | | Action Make_Default 0013 00e4 | | Load_Encached Positive_Cache 0014 0266 | f | Execute Discrete,Bounds 0015 00db | | Load_Top At_Offset_3 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4801 |H | Short_Literal 0x1 0018 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0019 00db | | Load_Top At_Offset_3 001a 0266 | f | Execute Discrete,Bounds 001b 00e2 | | Load_Encached Integer_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4801 |H | Short_Literal 0x1 001e 035e | ^ | Declare_Type Array,Defined,Visible 001f e20d | | Load 0x1,0xd 0020 0266 | f | Execute Discrete,Bounds 0021 e002 | | Load 0x0,0x2 0022 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0024 4801 |H | Short_Literal 0x1 0025 035e | ^ | Declare_Type Array,Defined,Visible 0026 4800 |H | Short_Literal 0x0 0027 4801 |H | Short_Literal 0x1 0028 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 002a 03fe | | Declare_Type Discrete,Defined,Visible 002b 00d8 | | Load_Top At_Offset_0 002c 00da | | Load_Top At_Offset_2 002d 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 002f 4800 |H | Short_Literal 0x0 0030 4801 |H | Short_Literal 0x1 0031 4800 |H | Short_Literal 0x0 0032 4800 |H | Short_Literal 0x0 0033 4801 |H | Short_Literal 0x1 0034 031e | | Declare_Type Variant_Record,Defined,Visible 0035 00e4 | | Load_Encached Positive_Cache 0036 0266 | f | Execute Discrete,Bounds 0037 00da | | Load_Top At_Offset_2 0038 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 003a 4801 |H | Short_Literal 0x1 003b 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 003c 0093 0000 | | push_full_address 0x0 003e 6165 |ae | Indirect_Literal Discrete,0x1a4,{0x80000000, 0x00010000} 003f 0273 | s | Execute Discrete,Plus 0040 0129 | ) | Execute Any,Make_Visible 0041 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0043 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0045 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0047 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0049 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 004b 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 004d 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 004f 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0051 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0053 4800 |H | Short_Literal 0x0 0054 0129 | ) | Execute Any,Make_Visible 0055 c20f | | Store 0x1,0xf 0056 00bf | | Action Accept_Activation 0057 e20e | | Load 0x1,0xe 0058 0266 | f | Execute Discrete,Bounds 0059 e211 | | Load 0x1,0x11 005a 02a0 | | Declare_Subprogram Null_Subprogram 005b 4801 |H | Short_Literal 0x1 005c 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 005d e211 | | Load 0x1,0x11 005e 0337 | 7 | Declare_Variable Array 005f 00d8 | | Load_Top At_Offset_0 0060 0335 | 5 | Declare_Variable Array,Duplicate 0061 00cd | | Action Spare6_Action 0062 4803 |H | Short_Literal 0x3 0063 4800 |H | Short_Literal 0x0 0064 4fff |O | Short_Literal -0x1 0065 00d9 | | Load_Top At_Offset_1 0066 e222 | " | Load 0x1,0x22 0067 01d6 | | Execute Vector,Field_Write 0068 3ffb |? | Loop_Increasing 0x64 0069 00d9 | | Load_Top At_Offset_1 006a 01d4 | | Execute Vector,Structure_Write 006b 4801 |H | Short_Literal 0x1 006c 4814 |H | Short_Literal 0x14 006d 00db | | Load_Top At_Offset_3 006e 035b | [ | Declare_Type Array,Constrained 006f 0337 | 7 | Declare_Variable Array 0070 00d8 | | Load_Top At_Offset_0 0071 0335 | 5 | Declare_Variable Array,Duplicate 0072 00cd | | Action Spare6_Action 0073 e211 | | Load 0x1,0x11 0074 0337 | 7 | Declare_Variable Array 0075 4801 |H | Short_Literal 0x1 0076 4800 |H | Short_Literal 0x0 0077 00da | | Load_Top At_Offset_2 0078 01d6 | | Execute Vector,Field_Write 0079 4fff |O | Short_Literal -0x1 007a 4801 |H | Short_Literal 0x1 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 4809 |H | Short_Literal 0x9 007e 4802 |H | Short_Literal 0x2 007f 00da | | Load_Top At_Offset_2 0080 01d6 | | Execute Vector,Field_Write 0081 4805 |H | Short_Literal 0x5 0082 4803 |H | Short_Literal 0x3 0083 00da | | Load_Top At_Offset_2 0084 01d6 | | Execute Vector,Field_Write 0085 e211 | | Load 0x1,0x11 0086 01c3 | | Execute Vector,Check_In_Type 0087 e211 | | Load 0x1,0x11 0088 0119 | | Execute Any,Check_In_Formal_Type 0089 4801 |H | Short_Literal 0x1 008a 00da | | Load_Top At_Offset_2 008b 01d6 | | Execute Vector,Field_Write 008c e211 | | Load 0x1,0x11 008d 0337 | 7 | Declare_Variable Array 008e 4801 |H | Short_Literal 0x1 008f 4800 |H | Short_Literal 0x0 0090 00da | | Load_Top At_Offset_2 0091 01d6 | | Execute Vector,Field_Write 0092 4fff |O | Short_Literal -0x1 0093 4801 |H | Short_Literal 0x1 0094 00da | | Load_Top At_Offset_2 0095 01d6 | | Execute Vector,Field_Write 0096 480a |H | Short_Literal 0xa 0097 4802 |H | Short_Literal 0x2 0098 00da | | Load_Top At_Offset_2 0099 01d6 | | Execute Vector,Field_Write 009a 4804 |H | Short_Literal 0x4 009b 4803 |H | Short_Literal 0x3 009c 00da | | Load_Top At_Offset_2 009d 01d6 | | Execute Vector,Field_Write 009e e211 | | Load 0x1,0x11 009f 01c3 | | Execute Vector,Check_In_Type 00a0 e211 | | Load 0x1,0x11 00a1 0119 | | Execute Any,Check_In_Formal_Type 00a2 4802 |H | Short_Literal 0x2 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 e211 | | Load 0x1,0x11 00a6 0337 | 7 | Declare_Variable Array 00a7 4802 |H | Short_Literal 0x2 00a8 4800 |H | Short_Literal 0x0 00a9 00da | | Load_Top At_Offset_2 00aa 01d6 | | Execute Vector,Field_Write 00ab 4832 |H2 | Short_Literal 0x32 00ac 4801 |H | Short_Literal 0x1 00ad 00da | | Load_Top At_Offset_2 00ae 01d6 | | Execute Vector,Field_Write 00af 4808 |H | Short_Literal 0x8 00b0 4802 |H | Short_Literal 0x2 00b1 00da | | Load_Top At_Offset_2 00b2 01d6 | | Execute Vector,Field_Write 00b3 4806 |H | Short_Literal 0x6 00b4 4803 |H | Short_Literal 0x3 00b5 00da | | Load_Top At_Offset_2 00b6 01d6 | | Execute Vector,Field_Write 00b7 e211 | | Load 0x1,0x11 00b8 01c3 | | Execute Vector,Check_In_Type 00b9 e211 | | Load 0x1,0x11 00ba 0119 | | Execute Any,Check_In_Formal_Type 00bb 4803 |H | Short_Literal 0x3 00bc 00da | | Load_Top At_Offset_2 00bd 01d6 | | Execute Vector,Field_Write 00be e211 | | Load 0x1,0x11 00bf 0337 | 7 | Declare_Variable Array 00c0 4802 |H | Short_Literal 0x2 00c1 4800 |H | Short_Literal 0x0 00c2 00da | | Load_Top At_Offset_2 00c3 01d6 | | Execute Vector,Field_Write 00c4 484b |HK | Short_Literal 0x4b 00c5 4801 |H | Short_Literal 0x1 00c6 00da | | Load_Top At_Offset_2 00c7 01d6 | | Execute Vector,Field_Write 00c8 4809 |H | Short_Literal 0x9 00c9 4802 |H | Short_Literal 0x2 00ca 00da | | Load_Top At_Offset_2 00cb 01d6 | | Execute Vector,Field_Write 00cc 4806 |H | Short_Literal 0x6 00cd 4803 |H | Short_Literal 0x3 00ce 00da | | Load_Top At_Offset_2 00cf 01d6 | | Execute Vector,Field_Write 00d0 e211 | | Load 0x1,0x11 00d1 01c3 | | Execute Vector,Check_In_Type 00d2 e211 | | Load 0x1,0x11 00d3 0119 | | Execute Any,Check_In_Formal_Type 00d4 4804 |H | Short_Literal 0x4 00d5 00da | | Load_Top At_Offset_2 00d6 01d6 | | Execute Vector,Field_Write 00d7 e211 | | Load 0x1,0x11 00d8 0337 | 7 | Declare_Variable Array 00d9 4802 |H | Short_Literal 0x2 00da 4800 |H | Short_Literal 0x0 00db 00da | | Load_Top At_Offset_2 00dc 01d6 | | Execute Vector,Field_Write 00dd 485f |H_ | Short_Literal 0x5f 00de 4801 |H | Short_Literal 0x1 00df 00da | | Load_Top At_Offset_2 00e0 01d6 | | Execute Vector,Field_Write 00e1 480a |H | Short_Literal 0xa 00e2 4802 |H | Short_Literal 0x2 00e3 00da | | Load_Top At_Offset_2 00e4 01d6 | | Execute Vector,Field_Write 00e5 4806 |H | Short_Literal 0x6 00e6 4803 |H | Short_Literal 0x3 00e7 00da | | Load_Top At_Offset_2 00e8 01d6 | | Execute Vector,Field_Write 00e9 e211 | | Load 0x1,0x11 00ea 01c3 | | Execute Vector,Check_In_Type 00eb e211 | | Load 0x1,0x11 00ec 0119 | | Execute Any,Check_In_Formal_Type 00ed 4805 |H | Short_Literal 0x5 00ee 00da | | Load_Top At_Offset_2 00ef 01d6 | | Execute Vector,Field_Write 00f0 e211 | | Load 0x1,0x11 00f1 0337 | 7 | Declare_Variable Array 00f2 4802 |H | Short_Literal 0x2 00f3 4800 |H | Short_Literal 0x0 00f4 00da | | Load_Top At_Offset_2 00f5 01d6 | | Execute Vector,Field_Write 00f6 4864 |Hd | Short_Literal 0x64 00f7 4801 |H | Short_Literal 0x1 00f8 00da | | Load_Top At_Offset_2 00f9 01d6 | | Execute Vector,Field_Write 00fa 4808 |H | Short_Literal 0x8 00fb 4802 |H | Short_Literal 0x2 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe 4806 |H | Short_Literal 0x6 00ff 4803 |H | Short_Literal 0x3 0100 00da | | Load_Top At_Offset_2 0101 01d6 | | Execute Vector,Field_Write 0102 e211 | | Load 0x1,0x11 0103 01c3 | | Execute Vector,Check_In_Type 0104 e211 | | Load 0x1,0x11 0105 0119 | | Execute Any,Check_In_Formal_Type 0106 4806 |H | Short_Literal 0x6 0107 00da | | Load_Top At_Offset_2 0108 01d6 | | Execute Vector,Field_Write 0109 e211 | | Load 0x1,0x11 010a 0337 | 7 | Declare_Variable Array 010b 4803 |H | Short_Literal 0x3 010c 4800 |H | Short_Literal 0x0 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 4aee |J | Short_Literal 0x2ee 0110 4801 |H | Short_Literal 0x1 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 480a |H | Short_Literal 0xa 0114 4802 |H | Short_Literal 0x2 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 4805 |H | Short_Literal 0x5 0118 4803 |H | Short_Literal 0x3 0119 00da | | Load_Top At_Offset_2 011a 01d6 | | Execute Vector,Field_Write 011b e211 | | Load 0x1,0x11 011c 01c3 | | Execute Vector,Check_In_Type 011d e211 | | Load 0x1,0x11 011e 0119 | | Execute Any,Check_In_Formal_Type 011f 4807 |H | Short_Literal 0x7 0120 00da | | Load_Top At_Offset_2 0121 01d6 | | Execute Vector,Field_Write 0122 e211 | | Load 0x1,0x11 0123 0337 | 7 | Declare_Variable Array 0124 4803 |H | Short_Literal 0x3 0125 4800 |H | Short_Literal 0x0 0126 00da | | Load_Top At_Offset_2 0127 01d6 | | Execute Vector,Field_Write 0128 6077 |`w | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x00002710} 0129 4801 |H | Short_Literal 0x1 012a 00da | | Load_Top At_Offset_2 012b 01d6 | | Execute Vector,Field_Write 012c 4809 |H | Short_Literal 0x9 012d 4802 |H | Short_Literal 0x2 012e 00da | | Load_Top At_Offset_2 012f 01d6 | | Execute Vector,Field_Write 0130 4805 |H | Short_Literal 0x5 0131 4803 |H | Short_Literal 0x3 0132 00da | | Load_Top At_Offset_2 0133 01d6 | | Execute Vector,Field_Write 0134 e211 | | Load 0x1,0x11 0135 01c3 | | Execute Vector,Check_In_Type 0136 e211 | | Load 0x1,0x11 0137 0119 | | Execute Any,Check_In_Formal_Type 0138 4808 |H | Short_Literal 0x8 0139 00da | | Load_Top At_Offset_2 013a 01d6 | | Execute Vector,Field_Write 013b e211 | | Load 0x1,0x11 013c 0337 | 7 | Declare_Variable Array 013d 4803 |H | Short_Literal 0x3 013e 4800 |H | Short_Literal 0x0 013f 00da | | Load_Top At_Offset_2 0140 01d6 | | Execute Vector,Field_Write 0141 4896 |H | Short_Literal 0x96 0142 4801 |H | Short_Literal 0x1 0143 00da | | Load_Top At_Offset_2 0144 01d6 | | Execute Vector,Field_Write 0145 480a |H | Short_Literal 0xa 0146 4802 |H | Short_Literal 0x2 0147 00da | | Load_Top At_Offset_2 0148 01d6 | | Execute Vector,Field_Write 0149 4804 |H | Short_Literal 0x4 014a 4803 |H | Short_Literal 0x3 014b 00da | | Load_Top At_Offset_2 014c 01d6 | | Execute Vector,Field_Write 014d e211 | | Load 0x1,0x11 014e 01c3 | | Execute Vector,Check_In_Type 014f e211 | | Load 0x1,0x11 0150 0119 | | Execute Any,Check_In_Formal_Type 0151 4809 |H | Short_Literal 0x9 0152 00da | | Load_Top At_Offset_2 0153 01d6 | | Execute Vector,Field_Write 0154 4814 |H | Short_Literal 0x14 0155 480a |H | Short_Literal 0xa 0156 e221 | ! | Load 0x1,0x21 0157 e211 | | Load 0x1,0x11 0158 0119 | | Execute Any,Check_In_Formal_Type 0159 00d9 | | Load_Top At_Offset_1 015a e223 | # | Load 0x1,0x23 015b 01d6 | | Execute Vector,Field_Write 015c 3ff9 |? | Loop_Increasing 0x156 015d 00d9 | | Load_Top At_Offset_1 015e 01d4 | | Execute Vector,Structure_Write 015f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0160 00c7 | | Action Elaborate_Subprogram 0161 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 0163 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0164 00c7 | | Action Elaborate_Subprogram 0165 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0166 00c7 | | Action Elaborate_Subprogram 0167 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 0169 1d18 | | Execute_Immediate Reference_Lex_1,0x18 016a 00c7 | | Action Elaborate_Subprogram 016b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 016c 00c7 | | Action Elaborate_Subprogram 016d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 016e 00c7 | | Action Elaborate_Subprogram 016f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0170 00c7 | | Action Elaborate_Subprogram 0171 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0172 00c7 | | Action Elaborate_Subprogram 0173 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0174 00c7 | | Action Elaborate_Subprogram 0175 BODY_0008: 0175 00bc | | Action Signal_Activated 0176 00bb | | Action Signal_Completion 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4607 |F | Jump_Case 0x8 017c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 017d 7807 |x | Jump 0x185 ; case 0x1 017e 780a |x | Jump 0x189 ; case 0x2 017f 780e |x | Jump 0x18e ; case 0x3 0180 7811 |x | Jump 0x192 ; case 0x4 0181 7812 |x | Jump 0x194 ; case 0x5 0182 7813 |x | Jump 0x196 ; case 0x6 0183 7816 |x | Jump 0x19a ; case 0x7 0184 4302 |C | .XXX[0x1] 0185 00da | | Load_Top At_Offset_2 0186 0091 03b5 | | Action Push_String_Extended_Indexed,0x3b5 ; "CLASS" 0188 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0189 00db | | Load_Top At_Offset_3 018a 00db | | Load_Top At_Offset_3 018b 00e0 | | Load_Encached Standard_Cache 018c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018e 00da | | Load_Top At_Offset_2 018f 00e0 | | Load_Encached Standard_Cache 0190 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0191 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0192 00db | | Load_Top At_Offset_3 0193 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0194 00db | | Load_Top At_Offset_3 0195 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0196 e20d | | Load 0x1,0xd 0197 00dc | | Load_Top At_Offset_4 0198 0267 | g | Execute Discrete,Predecessor 0199 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019a e20d | | Load 0x1,0xd 019b 00dc | | Load_Top At_Offset_4 019c 0268 | h | Execute Discrete,Successor 019d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019e 0000 0000 | | .XXX[0x2] 01a0 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 01a4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00d1 | | Pop_Control Pop_Count_1 01ac 00da | | Load_Top At_Offset_2 01ad 01d8 | | Execute Vector,Element_Type 01ae 02ff | | Declare_Variable Variant_Record 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 00db | | Load_Top At_Offset_3 01b2 01dc | | Execute Vector,Last 01b3 e5ff | | Load 0x2,-0x1 01b4 01dd | | Execute Vector,First 01b5 0263 | c | Execute Discrete,Above_Bound 01b6 7006 |p | Jump_Nonzero 0x1bd 01b7 00da | | Load_Top At_Offset_2 01b8 00d9 | | Load_Top At_Offset_1 01b9 e5ff | | Load 0x2,-0x1 01ba 01d6 | | Execute Vector,Field_Write 01bb 0a01 | | Execute_Immediate Plus,0x1 01bc 7ff8 | | Jump 0x1b5 01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4607 |F | Jump_Case 0x8 01c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01c5 7807 |x | Jump 0x1cd ; case 0x1 01c6 780a |x | Jump 0x1d1 ; case 0x2 01c7 780e |x | Jump 0x1d6 ; case 0x3 01c8 7811 |x | Jump 0x1da ; case 0x4 01c9 7812 |x | Jump 0x1dc ; case 0x5 01ca 7813 |x | Jump 0x1de ; case 0x6 01cb 7816 |x | Jump 0x1e2 ; case 0x7 01cc 4302 |C | .XXX[0x1] 01cd 00da | | Load_Top At_Offset_2 01ce 0091 03b9 | | Action Push_String_Extended_Indexed,0x3b9 ; "FIND" 01d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01d1 00db | | Load_Top At_Offset_3 01d2 00db | | Load_Top At_Offset_3 01d3 00e0 | | Load_Encached Standard_Cache 01d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d6 00da | | Load_Top At_Offset_2 01d7 00e0 | | Load_Encached Standard_Cache 01d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01da 00db | | Load_Top At_Offset_3 01db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01dc 00db | | Load_Top At_Offset_3 01dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01de e213 | | Load 0x1,0x13 01df 00dc | | Load_Top At_Offset_4 01e0 0267 | g | Execute Discrete,Predecessor 01e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e2 e213 | | Load 0x1,0x13 01e3 00dc | | Load_Top At_Offset_4 01e4 0268 | h | Execute Discrete,Successor 01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00d1 | | Pop_Control Pop_Count_1 01ec 00da | | Load_Top At_Offset_2 01ed 01d8 | | Execute Vector,Element_Type 01ee 02ff | | Declare_Variable Variant_Record 01ef 00d8 | | Load_Top At_Offset_0 01f0 1c00 | | Execute_Immediate Run_Utility,0x0 01f1 00db | | Load_Top At_Offset_3 01f2 01dc | | Execute Vector,Last 01f3 e5ff | | Load 0x2,-0x1 01f4 01dd | | Execute Vector,First 01f5 0263 | c | Execute Discrete,Above_Bound 01f6 7006 |p | Jump_Nonzero 0x1fd 01f7 00da | | Load_Top At_Offset_2 01f8 00d9 | | Load_Top At_Offset_1 01f9 e5ff | | Load 0x2,-0x1 01fa 01d6 | | Execute Vector,Field_Write 01fb 0a01 | | Execute_Immediate Plus,0x1 01fc 7ff8 | | Jump 0x1f5 01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 4801 |H | Short_Literal 0x1 0204 4800 |H | Short_Literal 0x0 0205 e210 | | Load 0x1,0x10 0206 035b | [ | Declare_Type Array,Constrained 0207 0337 | 7 | Declare_Variable Array 0208 e210 | | Load 0x1,0x10 0209 01c6 | | Execute Vector,Convert_To_Formal 020a 00ca | | Action Exit_Nullary_Function 020b 0000 0000 | | .BLANK 0000[0x5] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00cf | | Action Mark_Auxiliary 0214 e222 | " | Load 0x1,0x22 0215 01d9 | | Execute Vector,Reverse_Bounds 0216 0007 | | Action Break_Optional 0217 e5ff | | Load 0x2,-0x1 0218 00d9 | | Load_Top At_Offset_1 0219 e222 | " | Load 0x1,0x22 021a 01d5 | | Execute Vector,Field_Reference 021b 8224 | $ | Call 0x1,0x24 021c 6802 |h | Jump_Zero 0x21f 021d 00d8 | | Load_Top At_Offset_0 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f 00c8 | | Action Pop_Auxiliary_Range 0220 3ff6 |? | Loop_Increasing 0x217 0221 00ce | | Action Pop_Auxiliary 0222 4800 |H | Short_Literal 0x0 0223 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0232 | 2 | .CONST 0x0232 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0003 | | .CONST 0x0003 ; Number of locals 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 01da | | Execute Vector,Bounds 022d e210 | | Load 0x1,0x10 022e 035b | [ | Declare_Type Array,Constrained 022f 0337 | 7 | Declare_Variable Array 0230 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0232 BODY_0228: 0232 e5ff | | Load 0x2,-0x1 0233 01db | | Execute Vector,Length 0234 680d |h | Jump_Zero 0x242 0235 e5ff | | Load 0x2,-0x1 0236 01dd | | Execute Vector,First 0237 00d8 | | Load_Top At_Offset_0 0238 00e4 | | Load_Encached Positive_Cache 0239 0260 | ` | Execute Discrete,In_Type 023a 7001 |p | Jump_Nonzero 0x23c 023b 0801 | | Execute_Immediate Raise,0x1 023c 8403 | | Call 0x2,0x3 023d 6804 |h | Jump_Zero 0x242 023e 00d9 | | Load_Top At_Offset_1 023f e210 | | Load 0x1,0x10 0240 01c6 | | Execute Vector,Convert_To_Formal 0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0242 8217 | | Call 0x1,0x17 0243 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00cf | | Action Mark_Auxiliary 024c e222 | " | Load 0x1,0x22 024d 01d9 | | Execute Vector,Reverse_Bounds 024e 0007 | | Action Break_Optional 024f 00d8 | | Load_Top At_Offset_0 0250 e222 | " | Load 0x1,0x22 0251 01d5 | | Execute Vector,Field_Reference 0252 e221 | ! | Load 0x1,0x21 0253 01df | | Execute Vector,Equal 0254 6805 |h | Jump_Zero 0x25a 0255 e5ff | | Load 0x2,-0x1 0256 00d9 | | Load_Top At_Offset_1 0257 e222 | " | Load 0x1,0x22 0258 01d6 | | Execute Vector,Field_Write 0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025a 00c8 | | Action Pop_Auxiliary_Range 025b 3ff3 |? | Loop_Increasing 0x24f 025c 00ce | | Action Pop_Auxiliary 025d e216 | | Load 0x1,0x16 025e 0257 | W | Execute Discrete,Raise 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 e221 | ! | Load 0x1,0x21 0264 00db | | Load_Top At_Offset_3 0265 e222 | " | Load 0x1,0x22 0266 01d6 | | Execute Vector,Field_Write 0267 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00db | | Load_Top At_Offset_3 026c 00db | | Load_Top At_Offset_3 026d e222 | " | Load 0x1,0x22 026e 01d6 | | Execute Vector,Field_Write 026f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0277 | w | .CONST 0x0277 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e222 | " | Load 0x1,0x22 0275 01d5 | | Execute Vector,Field_Reference 0276 0007 | | Action Break_Optional 0277 BODY_0270: 0277 e5fd | | Load 0x2,-0x3 0278 e5fe | | Load 0x2,-0x2 0279 00da | | Load_Top At_Offset_2 027a 01d6 | | Execute Vector,Field_Write 027b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0289 | | .CONST 0x0289 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 00e1 | | Load_Encached Boolean_Cache 0284 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0285 00db | | Load_Top At_Offset_3 0286 e222 | " | Load 0x1,0x22 0287 01d5 | | Execute Vector,Field_Reference 0288 0007 | | Action Break_Optional 0289 BODY_0280: 0289 00d8 | | Load_Top At_Offset_0 028a e221 | ! | Load 0x1,0x21 028b 01de | | Execute Vector,Not_Equal 028c 6821 |h! | Jump_Zero 0x2ae 028d 00cf | | Action Mark_Auxiliary 028e 00d9 | | Load_Top At_Offset_1 028f 01d9 | | Execute Vector,Reverse_Bounds 0290 0007 | | Action Break_Optional 0291 e402 | | Load 0x2,0x2 0292 7005 |p | Jump_Nonzero 0x298 0293 0092 03bb | | Action Push_String_Extended,0x3bb ; ", " 0295 e003 | | Load 0x0,0x3 0296 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0297 7802 |x | Jump 0x29a 0298 4800 |H | Short_Literal 0x0 0299 a402 | | Store_Unchecked 0x2,0x2 029a 00d8 | | Load_Top At_Offset_0 029b e20d | | Load 0x1,0xd 029c 011c | | Execute Any,Convert_Unchecked 029d 1c01 | | Execute_Immediate Run_Utility,0x1 029e 0092 03bc | | Action Push_String_Extended,0x3bc ; " => " 02a0 01cc | | Execute Vector,Catenate 02a1 00d9 | | Load_Top At_Offset_1 02a2 e403 | | Load 0x2,0x3 02a3 01d7 | | Execute Vector,Field_Read 02a4 8223 | # | Call 0x1,0x23 02a5 01cc | | Execute Vector,Catenate 02a6 e003 | | Load 0x0,0x3 02a7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02a8 00c8 | | Action Pop_Auxiliary_Range 02a9 3fe7 |? | Loop_Increasing 0x291 02aa 00ce | | Action Pop_Auxiliary 02ab 4801 |H | Short_Literal 0x1 02ac e003 | | Load 0x0,0x3 02ad 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 01db | | Execute Vector,Length 02b5 680d |h | Jump_Zero 0x2c3 02b6 00cf | | Action Mark_Auxiliary 02b7 00db | | Load_Top At_Offset_3 02b8 01d9 | | Execute Vector,Reverse_Bounds 02b9 0263 | c | Execute Discrete,Above_Bound 02ba 7006 |p | Jump_Nonzero 0x2c1 02bb 00d8 | | Load_Top At_Offset_0 02bc e5ff | | Load 0x2,-0x1 02bd 01d7 | | Execute Vector,Field_Read 02be 821e | | Call 0x1,0x1e 02bf 00c8 | | Action Pop_Auxiliary_Range 02c0 3ffa |? | Loop_Increasing 0x2bb 02c1 00ce | | Action Pop_Auxiliary 02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c3 0092 03bd | | Action Push_String_Extended,0x3bd ; "no match !!!" 02c5 e003 | | Load 0x0,0x3 02c6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 00d8 | | Load_Top At_Offset_0 02cd 4fff |O | Short_Literal -0x1 02ce 480a |H | Short_Literal 0xa 02cf 0262 | b | Execute Discrete,In_Range 02d0 682f |h/ | Jump_Zero 0x300 02d1 0a01 | | Execute_Immediate Plus,0x1 02d2 460b |F | Jump_Case 0xc 02d3 780e |x | Jump 0x2e2 ; case 0x0 02d4 782c |x, | Jump 0x301 ; case 0x1 02d5 780f |x | Jump 0x2e5 ; case 0x2 02d6 7811 |x | Jump 0x2e8 ; case 0x3 02d7 7813 |x | Jump 0x2eb ; case 0x4 02d8 7815 |x | Jump 0x2ee ; case 0x5 02d9 7817 |x | Jump 0x2f1 ; case 0x6 02da 7819 |x | Jump 0x2f4 ; case 0x7 02db 781b |x | Jump 0x2f7 ; case 0x8 02dc 781d |x | Jump 0x2fa ; case 0x9 02dd 781f |x | Jump 0x2fd ; case 0xa 02de 7800 |x | Jump 0x2df ; case 0xb 02df 0092 03be | | Action Push_String_Extended,0x3be ; "Red" 02e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e2 0092 03bf | | Action Push_String_Extended,0x3bf ; "Dummy" 02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e5 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "Robot" 02e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e8 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Ball" 02ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02eb 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Box" 02ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ee 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "Busy" 02f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f1 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "Free" 02f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f4 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "On_Heap" 02f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f7 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "In_Box" 02f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fa 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Blue" 02fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fd 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Green" 02ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0300 00d1 | | Pop_Control Pop_Count_1 0301 00da | | Load_Top At_Offset_2 0302 00e0 | | Load_Encached Standard_Cache 0303 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0304 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4800 |H | Short_Literal 0x0 030c 00db | | Load_Top At_Offset_3 030d 01d7 | | Execute Vector,Field_Read 030e 4fff |O | Short_Literal -0x1 030f 027e | ~ | Execute Discrete,Not_Equal 0310 6813 |h | Jump_Zero 0x324 0311 00cf | | Action Mark_Auxiliary 0312 00db | | Load_Top At_Offset_3 0313 01d9 | | Execute Vector,Reverse_Bounds 0314 0007 | | Action Break_Optional 0315 00d8 | | Load_Top At_Offset_0 0316 e5fe | | Load 0x2,-0x2 0317 01d5 | | Execute Vector,Field_Reference 0318 00d9 | | Load_Top At_Offset_1 0319 e5ff | | Load 0x2,-0x1 031a 01d7 | | Execute Vector,Field_Read 031b 8004 | | Call 0x0,0x4 031c 7002 |p | Jump_Nonzero 0x31f 031d 4800 |H | Short_Literal 0x0 031e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 031f 00c8 | | Action Pop_Auxiliary_Range 0320 3ff4 |? | Loop_Increasing 0x315 0321 00ce | | Action Pop_Auxiliary 0322 4801 |H | Short_Literal 0x1 0323 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0324 4800 |H | Short_Literal 0x0 0325 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e5ff | | Load 0x2,-0x1 032d 01dc | | Execute Vector,Last 032e 027d | } | Execute Discrete,Greater 032f 6802 |h | Jump_Zero 0x332 0330 4801 |H | Short_Literal 0x1 0331 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0332 00da | | Load_Top At_Offset_2 0333 e5ff | | Load 0x2,-0x1 0334 01d5 | | Execute Vector,Field_Reference 0335 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0336 6821 |h! | Jump_Zero 0x358 0337 00cf | | Action Mark_Auxiliary 0338 e222 | " | Load 0x1,0x22 0339 01d9 | | Execute Vector,Reverse_Bounds 033a 0007 | | Action Break_Optional 033b e7ff | | Load 0x3,-0x1 033c e5ff | | Load 0x2,-0x1 033d 01d5 | | Execute Vector,Field_Reference 033e 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 033f 00d9 | | Load_Top At_Offset_1 0340 e222 | " | Load 0x1,0x22 0341 01d5 | | Execute Vector,Field_Reference 0342 8224 | $ | Call 0x1,0x24 0343 6802 |h | Jump_Zero 0x346 0344 4800 |H | Short_Literal 0x0 0345 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0346 00c8 | | Action Pop_Auxiliary_Range 0347 3ff3 |? | Loop_Increasing 0x33b 0348 00ce | | Action Pop_Auxiliary 0349 00da | | Load_Top At_Offset_2 034a 0a01 | | Execute_Immediate Plus,0x1 034b 00d8 | | Load_Top At_Offset_0 034c 00e4 | | Load_Encached Positive_Cache 034d 0260 | ` | Execute Discrete,In_Type 034e 7001 |p | Jump_Nonzero 0x350 034f 0801 | | Execute_Immediate Raise,0x1 0350 8403 | | Call 0x2,0x3 0351 6825 |h% | Jump_Zero 0x377 0352 4800 |H | Short_Literal 0x0 0353 00db | | Load_Top At_Offset_3 0354 e402 | | Load 0x2,0x2 0355 01d6 | | Execute Vector,Field_Write 0356 4801 |H | Short_Literal 0x1 0357 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0358 00cf | | Action Mark_Auxiliary 0359 e222 | " | Load 0x1,0x22 035a 01d9 | | Execute Vector,Reverse_Bounds 035b 0007 | | Action Break_Optional 035c e7ff | | Load 0x3,-0x1 035d e5ff | | Load 0x2,-0x1 035e 01d5 | | Execute Vector,Field_Reference 035f 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0360 00d9 | | Load_Top At_Offset_1 0361 e222 | " | Load 0x1,0x22 0362 01d5 | | Execute Vector,Field_Reference 0363 8224 | $ | Call 0x1,0x24 0364 680f |h | Jump_Zero 0x374 0365 e7ff | | Load 0x3,-0x1 0366 0a01 | | Execute_Immediate Plus,0x1 0367 00d8 | | Load_Top At_Offset_0 0368 00e4 | | Load_Encached Positive_Cache 0369 0260 | ` | Execute Discrete,In_Type 036a 7001 |p | Jump_Nonzero 0x36c 036b 0801 | | Execute_Immediate Raise,0x1 036c 8403 | | Call 0x2,0x3 036d 6806 |h | Jump_Zero 0x374 036e 00d8 | | Load_Top At_Offset_0 036f e7ff | | Load 0x3,-0x1 0370 e402 | | Load 0x2,0x2 0371 01d6 | | Execute Vector,Field_Write 0372 4801 |H | Short_Literal 0x1 0373 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0374 00c8 | | Action Pop_Auxiliary_Range 0375 3fe6 |? | Loop_Increasing 0x35c 0376 00ce | | Action Pop_Auxiliary 0377 4800 |H | Short_Literal 0x0 0378 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0379 0000 0000 | | .BLANK 0000[0x7] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 4609 |F | Jump_Case 0xa 0384 7809 |x | Jump 0x38e ; case 0x0 0385 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0386 7817 |x | Jump 0x39e ; case 0x2 0387 781a |x | Jump 0x3a2 ; case 0x3 0388 782b |x+ | Jump 0x3b4 ; case 0x4 0389 782a |x* | Jump 0x3b4 ; case 0x5 038a 7829 |x) | Jump 0x3b4 ; case 0x6 038b 781c |x | Jump 0x3a8 ; case 0x7 038c 781f |x | Jump 0x3ac ; case 0x8 038d 7822 |x" | Jump 0x3b0 ; case 0x9 038e 00da | | Load_Top At_Offset_2 038f 016c | l | Execute Variant_Record,Is_Constrained 0390 7009 |p | Jump_Nonzero 0x39a 0391 00cf | | Action Mark_Auxiliary 0392 4800 |H | Short_Literal 0x0 0393 e5ff | | Load 0x2,-0x1 0394 1c08 | | Execute_Immediate Run_Utility,0x8 0395 00d8 | | Load_Top At_Offset_0 0396 1c00 | | Execute_Immediate Run_Utility,0x0 0397 c5ff | | Store 0x2,-0x1 0398 00ce | | Action Pop_Auxiliary 0399 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 039a 00da | | Load_Top At_Offset_2 039b 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 039c 1c00 | | Execute_Immediate Run_Utility,0x0 039d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 039e 4801 |H | Short_Literal 0x1 039f 4802 |H | Short_Literal 0x2 03a0 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 03a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03a2 e5fd | | Load 0x2,-0x3 03a3 00db | | Load_Top At_Offset_3 03a4 1c07 | | Execute_Immediate Run_Utility,0x7 03a5 e5fe | | Load 0x2,-0x2 03a6 0306 | | Complete_Type Variant_Record,By_Renaming 03a7 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 03a8 00db | | Load_Top At_Offset_3 03a9 e5ff | | Load 0x2,-0x1 03aa 031b | | Declare_Type Variant_Record,Constrained 03ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03ac 00db | | Load_Top At_Offset_3 03ad 00db | | Load_Top At_Offset_3 03ae 02fc | | Declare_Variable Variant_Record,With_Constraint 03af 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03b0 4800 |H | Short_Literal 0x0 03b1 00db | | Load_Top At_Offset_3 03b2 1c07 | | Execute_Immediate Run_Utility,0x7 03b3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03b4 0869 | i | Execute_Immediate Raise,0x69 03b5 ; -------------------------------------------------------------------------------------- 03b5 ; STRING TABLE 03b5 ; -------------------------------------------------------------------------------------- 03b5 002a | * | .STRTAB 0x002a->0x03ca ; "CLASS" 03b6 002d | - | .STRTAB 0x002d->0x03cc ; "SIZE" 03b7 002f | / | .STRTAB 0x002f->0x03ce ; "COLOUR" 03b8 0033 | 3 | .STRTAB 0x0033->0x03d1 ; "STATE" 03b9 0036 | 6 | .STRTAB 0x0036->0x03d4 ; "FIND" 03ba 0038 | 8 | .STRTAB 0x0038->0x03d6 ; "CHECK_NO" 03bb 003e | > | .STRTAB 0x003e->0x03da ; ", " 03bc 003e | > | .STRTAB 0x003e->0x03db ; " => " 03bd 0040 | @ | .STRTAB 0x0040->0x03dd ; "no match !!!" 03be 004a | J | .STRTAB 0x004a->0x03e3 ; "Red" 03bf 004b | K | .STRTAB 0x004b->0x03e4 ; "Dummy" 03c0 004e | N | .STRTAB 0x004e->0x03e7 ; "Robot" 03c1 0051 | Q | .STRTAB 0x0051->0x03e9 ; "Ball" 03c2 0053 | S | .STRTAB 0x0053->0x03eb ; "Box" 03c3 0054 | T | .STRTAB 0x0054->0x03ed ; "Busy" 03c4 0056 | V | .STRTAB 0x0056->0x03ef ; "Free" 03c5 0058 | X | .STRTAB 0x0058->0x03f1 ; "On_Heap" 03c6 005d | ] | .STRTAB 0x005d->0x03f4 ; "In_Box" 03c7 0061 | a | .STRTAB 0x0061->0x03f7 ; "Blue" 03c8 0063 | c | .STRTAB 0x0063->0x03f9 ; "Green" 03c9 0066 | f | .STREND 0x0066->0x03fc 03ca 434c 4153 |CLAS| .STRTAB_STRINGS 03fc 0000 0000 | | .BLANK 0000[0x4] 0400 ; -------------------------------------------------------------------------------------- 0400 ; Debug Table 0400 ; -------------------------------------------------------------------------------------- 0400 0004 0004 | | .DEBUG4 0x0004,0x0004,0x3c28,0x0000,0x0001,0x0013 0406 000b 0452 | R| .DBG4T 0x000b,0x0452,0x8000,0x8000 040a 0057 047c | W || .DBG4T 0x0057,0x047c,0x8000,0x0000 040e 017b 0000 | { | .DBG4T 0x017b,0x0000,0x0005,0x0000 0412 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x0005,0x0000 0416 01c3 0000 | | .DBG4T 0x01c3,0x0000,0x0005,0x0000 041a 01eb 0000 | | .DBG4T 0x01eb,0x0000,0x0005,0x0000 041e 0203 048c | | .DBG4T 0x0203,0x048c,0x0002,0x0000 0422 0213 048f | | .DBG4T 0x0213,0x048f,0x0002,0x0000 0426 022b 0495 | + | .DBG4T 0x022b,0x0495,0x0002,0x8000 042a 024b 049e | K | .DBG4T 0x024b,0x049e,0x0001,0x0000 042e 0263 04a5 | c | .DBG4T 0x0263,0x04a5,0x0001,0x0000 0432 026b 04a8 | k | .DBG4T 0x026b,0x04a8,0x0001,0x0000 0436 0273 04ab | s | .DBG4T 0x0273,0x04ab,0x0001,0x0000 043a 0283 04af | | .DBG4T 0x0283,0x04af,0x0001,0x0000 043e 02b3 04ba | | .DBG4T 0x02b3,0x04ba,0x0001,0x0000 0442 02cb 04c0 | | .DBG4T 0x02cb,0x04c0,0x0002,0x4000 0446 030b 04dc | | .DBG4T 0x030b,0x04dc,0x0002,0x0000 044a 032b 04e4 | + | .DBG4T 0x032b,0x04e4,0x0002,0x4000 044e 0383 0000 | | .DBG4T 0x0383,0x0000,0x0005,0x0000 0452 ; -------------------------------------------------------------------------------------- 0452 ; Debug chain 0452 ; -------------------------------------------------------------------------------------- 0452 0014 0000 | | .DBGLEN 0x0014,0x0000 0454 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0013,0x0019,0x001f,0x0026,0x002b,0x0035,0x003c,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053 0468 000c 000d | | .XXX[0x14] 046a 000e 000f | | 046c 0010 0011 | | 046e 0012 0013 | | 0470 0014 0015 | | 0472 0016 0017 | | 0474 0018 0019 | | 0476 001a 001b | | 0478 001c 001d | | 047a 001e 0020 | | 047c ; -------------------------------------------------------------------------------------- 047c ; Debug chain 047c ; -------------------------------------------------------------------------------------- 047c 000e 0000 | | .DBGLEN 0x000e,0x0000 047e 0057 005d | W ]| .DBGLNO 0x0057,0x005d,0x006b,0x015f,0x0161,0x0163,0x0165,0x0167,0x0169,0x016b,0x016d,0x016f,0x0171,0x0173 048c ; -------------------------------------------------------------------------------------- 048c ; Debug chain 048c ; -------------------------------------------------------------------------------------- 048c 0000 0001 | | .DBGLEN 0x0000,0x0001 048e 0203 | | .DBGLNO 0x0203 048f ; -------------------------------------------------------------------------------------- 048f ; Debug chain 048f ; -------------------------------------------------------------------------------------- 048f 0000 0004 | | .DBGLEN 0x0000,0x0004 0491 0214 0217 | | .DBGLNO 0x0214,0x0217,0x021d,0x0222 0495 ; -------------------------------------------------------------------------------------- 0495 ; Debug chain 0495 ; -------------------------------------------------------------------------------------- 0495 0002 0003 | | .DBGLEN 0x0002,0x0003 0497 022b 0230 | + 0| .DBGLNO 0x022b,0x0230,0x0232,0x023e,0x0242 049c 0001 0003 | | .XXX[0x2] 049e ; -------------------------------------------------------------------------------------- 049e ; Debug chain 049e ; -------------------------------------------------------------------------------------- 049e 0000 0005 | | .DBGLEN 0x0000,0x0005 04a0 024c 024f | L O| .DBGLNO 0x024c,0x024f,0x0255,0x0259,0x025d 04a5 ; -------------------------------------------------------------------------------------- 04a5 ; Debug chain 04a5 ; -------------------------------------------------------------------------------------- 04a5 0000 0001 | | .DBGLEN 0x0000,0x0001 04a7 0263 | c | .DBGLNO 0x0263 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug chain 04a8 ; -------------------------------------------------------------------------------------- 04a8 0000 0001 | | .DBGLEN 0x0000,0x0001 04aa 026b | k | .DBGLNO 0x026b 04ab ; -------------------------------------------------------------------------------------- 04ab ; Debug chain 04ab ; -------------------------------------------------------------------------------------- 04ab 0001 0001 | | .DBGLEN 0x0001,0x0001 04ad 0273 0277 | s w| .DBGLNO 0x0273,0x0277 04af ; -------------------------------------------------------------------------------------- 04af ; Debug chain 04af ; -------------------------------------------------------------------------------------- 04af 0002 0007 | | .DBGLEN 0x0002,0x0007 04b1 0283 0285 | | .DBGLNO 0x0283,0x0285,0x0289,0x028e,0x0291,0x0293,0x0298,0x029a,0x02ab 04ba ; -------------------------------------------------------------------------------------- 04ba ; Debug chain 04ba ; -------------------------------------------------------------------------------------- 04ba 0000 0004 | | .DBGLEN 0x0000,0x0004 04bc 02b3 02b7 | | .DBGLNO 0x02b3,0x02b7,0x02bb,0x02c3 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug chain 04c0 ; -------------------------------------------------------------------------------------- 04c0 0000 000d | | .DBGLEN 0x0000,0x000d 04c2 02cb 02df | | .DBGLNO 0x02cb,0x02df,0x02e2,0x02e5,0x02e8,0x02eb,0x02ee,0x02f1,0x02f4,0x02f7,0x02fa,0x02fd,0x0301 04cf 0001 000a | | .XXX[0xd] 04d1 0002 0003 | | 04d3 0004 0005 | | 04d5 0006 0007 | | 04d7 0008 0009 | | 04d9 000b 000c | | 04db 000d | | 04dc ; -------------------------------------------------------------------------------------- 04dc ; Debug chain 04dc ; -------------------------------------------------------------------------------------- 04dc 0000 0006 | | .DBGLEN 0x0000,0x0006 04de 030b 0312 | | .DBGLNO 0x030b,0x0312,0x0315,0x031d,0x0322,0x0324 04e4 ; -------------------------------------------------------------------------------------- 04e4 ; Debug chain 04e4 ; -------------------------------------------------------------------------------------- 04e4 0000 000f | | .DBGLEN 0x0000,0x000f 04e6 032b 0330 | + 0| .DBGLNO 0x032b,0x0330,0x0332,0x0338,0x033b,0x0344,0x0349,0x0352,0x0356,0x0359,0x035c,0x0365,0x036e,0x0372,0x0377 04f5 0001 0002 | | .XXX[0xf] 04f7 0003 0009 | | 04f9 000a 000b | | 04fb 000c 000d | | 04fd 000e 0004 | | 04ff 0005 0006 | | 0501 0007 0008 | | 0503 000f | | 0504 0000 0000 | | .BLANK 0000[0xfc]