|
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 - metrics - 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 For_Call,INIT_0178
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 For_Call,INIT_01a8
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 For_Call,INIT_01c0
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 For_Call,INIT_0380
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 For_Call,INIT_01e8
003a 4801 |H | Short_Literal 0x1
003b 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
003c 0093 0000 | | PushFullAddress InMicrocode
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 For_Outer_Call,Visible,Unelaborated,INIT_0200
0043 029a 0213 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0210
0045 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
0047 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
0049 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
004b 029a 026b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0268
004d 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
004f 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
0051 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
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 0x7ff
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 0x7ff
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 0x7ff
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 For_Outer_Call,INIT_02c8
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 For_Outer_Call,INIT_0308
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 0x7
017c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0192 00db | | Load_Top At_Offset_3
0193 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0194 00db | | Load_Top At_Offset_3
0195 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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,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 0x7
01c4 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
01da 00db | | Load_Top At_Offset_3
01db 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01dc 00db | | Load_Top At_Offset_3
01dd 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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,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_Result,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_Result,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 For_Call,INIT_0328
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_Result,0x1
0242 8217 | | Call 0x1,0x17
0243 4401 |D | Exit_Subprogram With_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x7ff
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 0xb
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_Result,0x1
02e2 0092 03bf | | Action Push_String_Extended,0x3bf ; "Dummy"
02e4 4401 |D | Exit_Subprogram With_Result,0x1
02e5 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "Robot"
02e7 4401 |D | Exit_Subprogram With_Result,0x1
02e8 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Ball"
02ea 4401 |D | Exit_Subprogram With_Result,0x1
02eb 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Box"
02ed 4401 |D | Exit_Subprogram With_Result,0x1
02ee 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "Busy"
02f0 4401 |D | Exit_Subprogram With_Result,0x1
02f1 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "Free"
02f3 4401 |D | Exit_Subprogram With_Result,0x1
02f4 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "On_Heap"
02f6 4401 |D | Exit_Subprogram With_Result,0x1
02f7 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "In_Box"
02f9 4401 |D | Exit_Subprogram With_Result,0x1
02fa 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Blue"
02fc 4401 |D | Exit_Subprogram With_Result,0x1
02fd 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Green"
02ff 4401 |D | Exit_Subprogram With_Result,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_Result,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 0x7ff
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_Result,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_Result,0x2
0324 4800 |H | Short_Literal 0x0
0325 4402 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 0x9
0384 7809 |x | Jump 0x38e ; case 0x0
0385 4302 |C | Exit_Subprogram From_Utility,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,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,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,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,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,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,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,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]