|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_664cf7
└─⟦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 02d0 | | .CONST 0x02d0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00de | | .CONST 0x00de ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002f | / | .CONST 0x002f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4801 |H | Short_Literal 0x1
0012 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0
0016 4801 |H | Short_Literal 0x1
0017 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 0093 0000 | | push_full_address 0x0
001c 610b |a | Indirect_Literal Discrete,0x128,{0x80000000, 0x00060000}
001d 0273 | s | Execute Discrete,Plus
001e e002 | | Load 0x0,0x2
001f 0273 | s | Execute Discrete,Plus
0020 e003 | | Load 0x0,0x3
0021 0273 | s | Execute Discrete,Plus
0022 00db | | Load_Top At_Offset_3
0023 e004 | | Load 0x0,0x4
0024 0386 | | Declare_Variable Package,Visible
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 0093 0000 | | push_full_address 0x0
0029 60fa |` | Indirect_Literal Discrete,0x124,{0x80000000, 0x00050000}
002a 0273 | s | Execute Discrete,Plus
002b e002 | | Load 0x0,0x2
002c 0273 | s | Execute Discrete,Plus
002d e005 | | Load 0x0,0x5
002e 0273 | s | Execute Discrete,Plus
002f 00db | | Load_Top At_Offset_3
0030 e004 | | Load 0x0,0x4
0031 0386 | | Declare_Variable Package,Visible
0032 00d8 | | Load_Top At_Offset_0
0033 020f | | Execute Module,Activate
0034 0093 0000 | | push_full_address 0x0
0036 60e9 |` | Indirect_Literal Discrete,0x120,{0x80000000, 0x00040000}
0037 0273 | s | Execute Discrete,Plus
0038 e002 | | Load 0x0,0x2
0039 0273 | s | Execute Discrete,Plus
003a e006 | | Load 0x0,0x6
003b 0273 | s | Execute Discrete,Plus
003c 00db | | Load_Top At_Offset_3
003d e004 | | Load 0x0,0x4
003e 0386 | | Declare_Variable Package,Visible
003f 00d8 | | Load_Top At_Offset_0
0040 020f | | Execute Module,Activate
0041 4800 |H | Short_Literal 0x0
0042 e007 | | Load 0x0,0x7
0043 e210 | | Load 0x1,0x10
0044 0096 | | Execute Package,Entry
0045 0129 | ) | Execute Any,Make_Visible
0046 4801 |H | Short_Literal 0x1
0047 e007 | | Load 0x0,0x7
0048 e210 | | Load 0x1,0x10
0049 0096 | | Execute Package,Entry
004a 0129 | ) | Execute Any,Make_Visible
004b 4802 |H | Short_Literal 0x2
004c e007 | | Load 0x0,0x7
004d e210 | | Load 0x1,0x10
004e 0096 | | Execute Package,Entry
004f 0129 | ) | Execute Any,Make_Visible
0050 4800 |H | Short_Literal 0x0
0051 e007 | | Load 0x0,0x7
0052 e211 | | Load 0x1,0x11
0053 0096 | | Execute Package,Entry
0054 0129 | ) | Execute Any,Make_Visible
0055 4801 |H | Short_Literal 0x1
0056 e007 | | Load 0x0,0x7
0057 e211 | | Load 0x1,0x11
0058 0096 | | Execute Package,Entry
0059 0129 | ) | Execute Any,Make_Visible
005a 4800 |H | Short_Literal 0x0
005b e007 | | Load 0x0,0x7
005c e212 | | Load 0x1,0x12
005d 0096 | | Execute Package,Entry
005e 0129 | ) | Execute Any,Make_Visible
005f 4801 |H | Short_Literal 0x1
0060 e007 | | Load 0x0,0x7
0061 e212 | | Load 0x1,0x12
0062 0096 | | Execute Package,Entry
0063 0129 | ) | Execute Any,Make_Visible
0064 4800 |H | Short_Literal 0x0
0065 4802 |H | Short_Literal 0x2
0066 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0068 03fe | | Declare_Type Discrete,Defined,Visible
0069 4800 |H | Short_Literal 0x0
006a 4802 |H | Short_Literal 0x2
006b 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
006d 03fe | | Declare_Type Discrete,Defined,Visible
006e 4800 |H | Short_Literal 0x0
006f 4802 |H | Short_Literal 0x2
0070 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0072 03fe | | Declare_Type Discrete,Defined,Visible
0073 0093 0000 | | push_full_address 0x0
0075 60a6 |` | Indirect_Literal Discrete,0x11c,{0x80000000, 0x00030000}
0076 0273 | s | Execute Discrete,Plus
0077 e002 | | Load 0x0,0x2
0078 0273 | s | Execute Discrete,Plus
0079 e008 | | Load 0x0,0x8
007a 0273 | s | Execute Discrete,Plus
007b 4801 |H | Short_Literal 0x1
007c 480a |H | Short_Literal 0xa
007d e21b | | Load 0x1,0x1b
007e e009 | | Load 0x0,0x9
007f 0386 | | Declare_Variable Package,Visible
0080 00d8 | | Load_Top At_Offset_0
0081 020f | | Execute Module,Activate
0082 0093 0000 | | push_full_address 0x0
0084 6093 |` | Indirect_Literal Discrete,0x118,{0x80000000, 0x00020000}
0085 0273 | s | Execute Discrete,Plus
0086 e002 | | Load 0x0,0x2
0087 0273 | s | Execute Discrete,Plus
0088 e00a | | Load 0x0,0xa
0089 0273 | s | Execute Discrete,Plus
008a 4802 |H | Short_Literal 0x2
008b 480a |H | Short_Literal 0xa
008c e21c | | Load 0x1,0x1c
008d e009 | | Load 0x0,0x9
008e 0386 | | Declare_Variable Package,Visible
008f 00d8 | | Load_Top At_Offset_0
0090 020f | | Execute Module,Activate
0091 0093 0000 | | push_full_address 0x0
0093 6080 |` | Indirect_Literal Discrete,0x114,{0x80000000, 0x00010000}
0094 0273 | s | Execute Discrete,Plus
0095 e002 | | Load 0x0,0x2
0096 0273 | s | Execute Discrete,Plus
0097 e00b | | Load 0x0,0xb
0098 0273 | s | Execute Discrete,Plus
0099 4800 |H | Short_Literal 0x0
009a 480a |H | Short_Literal 0xa
009b e21a | | Load 0x1,0x1a
009c e009 | | Load 0x0,0x9
009d 0386 | | Declare_Variable Package,Visible
009e 00d8 | | Load_Top At_Offset_0
009f 020f | | Execute Module,Activate
00a0 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
00a2 00bf | | Action Accept_Activation
00a3 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
00a5 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
00a7 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
00a9 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
00ab 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
00ad 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
00af e00c | | Load 0x0,0xc
00b0 e21d | | Load 0x1,0x1d
00b1 0095 | | Execute Package,Field_Reference_Dynamic
00b2 00c6 | | Action Check_Subprogram_Elaborated
00b3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b4 0093 0000 | | push_full_address 0x0
00b6 6059 |`Y | Indirect_Literal Discrete,0x110,{0x80000000, 0x00090000}
00b7 0273 | s | Execute Discrete,Plus
00b8 e002 | | Load 0x0,0x2
00b9 0273 | s | Execute Discrete,Plus
00ba e00d | | Load 0x0,0xd
00bb 0273 | s | Execute Discrete,Plus
00bc 4800 |H | Short_Literal 0x0
00bd 0007 | | Action Break_Optional
00be e00c | | Load 0x0,0xc
00bf e21e | | Load 0x1,0x1e
00c0 0095 | | Execute Package,Field_Reference_Dynamic
00c1 00c6 | | Action Check_Subprogram_Elaborated
00c2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c3 0093 0000 | | push_full_address 0x0
00c5 6046 |`F | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00080000}
00c6 0273 | s | Execute Discrete,Plus
00c7 e002 | | Load 0x0,0x2
00c8 0273 | s | Execute Discrete,Plus
00c9 e00e | | Load 0x0,0xe
00ca 0273 | s | Execute Discrete,Plus
00cb 4800 |H | Short_Literal 0x0
00cc 0007 | | Action Break_Optional
00cd e00c | | Load 0x0,0xc
00ce e21f | | Load 0x1,0x1f
00cf 0095 | | Execute Package,Field_Reference_Dynamic
00d0 00c6 | | Action Check_Subprogram_Elaborated
00d1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d2 0093 0000 | | push_full_address 0x0
00d4 6033 |`3 | Indirect_Literal Discrete,0x108,{0x80000000, 0x00070000}
00d5 0273 | s | Execute Discrete,Plus
00d6 e002 | | Load 0x0,0x2
00d7 0273 | s | Execute Discrete,Plus
00d8 e00f | | Load 0x0,0xf
00d9 0273 | s | Execute Discrete,Plus
00da 4800 |H | Short_Literal 0x0
00db 0007 | | Action Break_Optional
00dc 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00dd 00c7 | | Action Elaborate_Subprogram
00de BODY_0008:
00de 00bc | | Action Signal_Activated
00df 00bb | | Action Signal_Completion
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7807 |x | Jump 0xed ; case 0x1
00e6 780a |x | Jump 0xf1 ; case 0x2
00e7 780e |x | Jump 0xf6 ; case 0x3
00e8 7811 |x | Jump 0xfa ; case 0x4
00e9 7812 |x | Jump 0xfc ; case 0x5
00ea 7813 |x | Jump 0xfe ; case 0x6
00eb 7816 |x | Jump 0x102 ; case 0x7
00ec 4302 |C | .XXX[0x1]
00ed 00da | | Load_Top At_Offset_2
00ee 0091 0291 | | Action Push_String_Extended_Indexed,0x291 ; "BLUE"
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 00db | | Load_Top At_Offset_3
00f3 00e0 | | Load_Encached Standard_Cache
00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 00da | | Load_Top At_Offset_2
00f7 00e0 | | Load_Encached Standard_Cache
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fa 00db | | Load_Top At_Offset_3
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fc 00db | | Load_Top At_Offset_3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe e20d | | Load 0x1,0xd
00ff 00dc | | Load_Top At_Offset_4
0100 0267 | g | Execute Discrete,Predecessor
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0102 e20d | | Load 0x1,0xd
0103 00dc | | Load_Top At_Offset_4
0104 0268 | h | Execute Discrete,Successor
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 8000 0000 | | .LITERAL {0x80000000, 0x00070000}
010c 8000 0000 | | .LITERAL {0x80000000, 0x00080000}
0110 8000 0000 | | .LITERAL {0x80000000, 0x00090000}
0114 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0118 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
011c 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0120 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0124 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
0128 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4607 |F | Jump_Case 0x8
0134 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0135 7807 |x | Jump 0x13d ; case 0x1
0136 780a |x | Jump 0x141 ; case 0x2
0137 780e |x | Jump 0x146 ; case 0x3
0138 7811 |x | Jump 0x14a ; case 0x4
0139 7812 |x | Jump 0x14c ; case 0x5
013a 7813 |x | Jump 0x14e ; case 0x6
013b 7816 |x | Jump 0x152 ; case 0x7
013c 4302 |C | .XXX[0x1]
013d 00da | | Load_Top At_Offset_2
013e 0091 0294 | | Action Push_String_Extended_Indexed,0x294 ; "BUSY"
0140 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0141 00db | | Load_Top At_Offset_3
0142 00db | | Load_Top At_Offset_3
0143 00e0 | | Load_Encached Standard_Cache
0144 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0146 00da | | Load_Top At_Offset_2
0147 00e0 | | Load_Encached Standard_Cache
0148 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0149 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
014a 00db | | Load_Top At_Offset_3
014b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
014c 00db | | Load_Top At_Offset_3
014d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
014e e20e | | Load 0x1,0xe
014f 00dc | | Load_Top At_Offset_4
0150 0267 | g | Execute Discrete,Predecessor
0151 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0152 e20e | | Load 0x1,0xe
0153 00dc | | Load_Top At_Offset_4
0154 0268 | h | Execute Discrete,Successor
0155 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 4607 |F | Jump_Case 0x8
015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
015d 7807 |x | Jump 0x165 ; case 0x1
015e 780a |x | Jump 0x169 ; case 0x2
015f 780e |x | Jump 0x16e ; case 0x3
0160 7811 |x | Jump 0x172 ; case 0x4
0161 7812 |x | Jump 0x174 ; case 0x5
0162 7813 |x | Jump 0x176 ; case 0x6
0163 7816 |x | Jump 0x17a ; case 0x7
0164 4302 |C | .XXX[0x1]
0165 00da | | Load_Top At_Offset_2
0166 0091 0296 | | Action Push_String_Extended_Indexed,0x296 ; "ON_HEAP"
0168 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0169 00db | | Load_Top At_Offset_3
016a 00db | | Load_Top At_Offset_3
016b 00e0 | | Load_Encached Standard_Cache
016c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016e 00da | | Load_Top At_Offset_2
016f 00e0 | | Load_Encached Standard_Cache
0170 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0171 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0172 00db | | Load_Top At_Offset_3
0173 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0174 00db | | Load_Top At_Offset_3
0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0176 e20f | | Load 0x1,0xf
0177 00dc | | Load_Top At_Offset_4
0178 0267 | g | Execute Discrete,Predecessor
0179 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017a e20f | | Load 0x1,0xf
017b 00dc | | Load_Top At_Offset_4
017c 0268 | h | Execute Discrete,Successor
017d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4607 |F | Jump_Case 0x8
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0185 7807 |x | Jump 0x18d ; case 0x1
0186 780a |x | Jump 0x191 ; case 0x2
0187 780e |x | Jump 0x196 ; case 0x3
0188 7811 |x | Jump 0x19a ; case 0x4
0189 7812 |x | Jump 0x19c ; case 0x5
018a 7813 |x | Jump 0x19e ; case 0x6
018b 7816 |x | Jump 0x1a2 ; case 0x7
018c 4302 |C | .XXX[0x1]
018d 00da | | Load_Top At_Offset_2
018e 0091 0298 | | Action Push_String_Extended_Indexed,0x298 ; "COLOUR"
0190 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0191 00db | | Load_Top At_Offset_3
0192 00db | | Load_Top At_Offset_3
0193 00e0 | | Load_Encached Standard_Cache
0194 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0195 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0196 00da | | Load_Top At_Offset_2
0197 00e0 | | Load_Encached Standard_Cache
0198 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0199 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
019a 00db | | Load_Top At_Offset_3
019b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
019c 00db | | Load_Top At_Offset_3
019d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
019e e21a | | Load 0x1,0x1a
019f 00dc | | Load_Top At_Offset_4
01a0 0267 | g | Execute Discrete,Predecessor
01a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a2 e21a | | Load 0x1,0x1a
01a3 00dc | | Load_Top At_Offset_4
01a4 0268 | h | Execute Discrete,Successor
01a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a6 0000 0000 | | .XXX[0x2]
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 4607 |F | Jump_Case 0x8
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ad 7807 |x | Jump 0x1b5 ; case 0x1
01ae 780a |x | Jump 0x1b9 ; case 0x2
01af 780e |x | Jump 0x1be ; case 0x3
01b0 7811 |x | Jump 0x1c2 ; case 0x4
01b1 7812 |x | Jump 0x1c4 ; case 0x5
01b2 7813 |x | Jump 0x1c6 ; case 0x6
01b3 7816 |x | Jump 0x1ca ; case 0x7
01b4 4302 |C | .XXX[0x1]
01b5 00da | | Load_Top At_Offset_2
01b6 0091 029b | | Action Push_String_Extended_Indexed,0x29b ; "COLOUR"
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 00db | | Load_Top At_Offset_3
01bb 00e0 | | Load_Encached Standard_Cache
01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01be 00da | | Load_Top At_Offset_2
01bf 00e0 | | Load_Encached Standard_Cache
01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c2 00db | | Load_Top At_Offset_3
01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c4 00db | | Load_Top At_Offset_3
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 e21b | | Load 0x1,0x1b
01c7 00dc | | Load_Top At_Offset_4
01c8 0267 | g | Execute Discrete,Predecessor
01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ca e21b | | Load 0x1,0x1b
01cb 00dc | | Load_Top At_Offset_4
01cc 0268 | h | Execute Discrete,Successor
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4607 |F | Jump_Case 0x8
01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01d5 7807 |x | Jump 0x1dd ; case 0x1
01d6 780a |x | Jump 0x1e1 ; case 0x2
01d7 780e |x | Jump 0x1e6 ; case 0x3
01d8 7811 |x | Jump 0x1ea ; case 0x4
01d9 7812 |x | Jump 0x1ec ; case 0x5
01da 7813 |x | Jump 0x1ee ; case 0x6
01db 7816 |x | Jump 0x1f2 ; case 0x7
01dc 4302 |C | .XXX[0x1]
01dd 00da | | Load_Top At_Offset_2
01de 0091 029e | | Action Push_String_Extended_Indexed,0x29e ; "COLOUR"
01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e1 00db | | Load_Top At_Offset_3
01e2 00db | | Load_Top At_Offset_3
01e3 00e0 | | Load_Encached Standard_Cache
01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 00da | | Load_Top At_Offset_2
01e7 00e0 | | Load_Encached Standard_Cache
01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ea 00db | | Load_Top At_Offset_3
01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ec 00db | | Load_Top At_Offset_3
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee e21c | | Load 0x1,0x1c
01ef 00dc | | Load_Top At_Offset_4
01f0 0267 | g | Execute Discrete,Predecessor
01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f2 e21c | | Load 0x1,0x1c
01f3 00dc | | Load_Top At_Offset_4
01f4 0268 | h | Execute Discrete,Successor
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 8010 | | Call 0x0,0x10
01fd 4603 |F | Jump_Case 0x4
01fe 7815 |x | Jump 0x214 ; case 0x0
01ff 7804 |x | Jump 0x204 ; case 0x1
0200 780b |x | Jump 0x20c ; case 0x2
0201 7800 |x | Jump 0x202 ; case 0x3
0202 0008 | | Action Idle
0203 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0204 00db | | Load_Top At_Offset_3
0205 00db | | Load_Top At_Offset_3
0206 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0207 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0208 e00c | | Load 0x0,0xc
0209 e21d | | Load 0x1,0x1d
020a 0096 | | Execute Package,Entry
020b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020c 00db | | Load_Top At_Offset_3
020d 00db | | Load_Top At_Offset_3
020e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
020f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0210 e00c | | Load 0x0,0xc
0211 e21e | | Load 0x1,0x1e
0212 0096 | | Execute Package,Entry
0213 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0214 00db | | Load_Top At_Offset_3
0215 00db | | Load_Top At_Offset_3
0216 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0217 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0218 e00c | | Load 0x0,0xc
0219 e21f | | Load 0x1,0x1f
021a 0096 | | Execute Package,Entry
021b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 e011 | | Load 0x0,0x11
0225 e210 | | Load 0x1,0x10
0226 0096 | | Execute Package,Entry
0227 e20d | | Load 0x1,0xd
0228 011c | | Execute Any,Convert_Unchecked
0229 1c01 | | Execute_Immediate Run_Utility,0x1
022a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 e011 | | Load 0x0,0x11
0235 e211 | | Load 0x1,0x11
0236 0096 | | Execute Package,Entry
0237 e20e | | Load 0x1,0xe
0238 011c | | Execute Any,Convert_Unchecked
0239 1c01 | | Execute_Immediate Run_Utility,0x1
023a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 e011 | | Load 0x0,0x11
0245 e212 | | Load 0x1,0x12
0246 0096 | | Execute Package,Entry
0247 e20f | | Load 0x1,0xf
0248 011c | | Execute Any,Convert_Unchecked
0249 1c01 | | Execute_Immediate Run_Utility,0x1
024a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024b 0000 0000 | | .BLANK 0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 4602 |F | Jump_Case 0x3
0255 7805 |x | Jump 0x25b ; case 0x0
0256 7807 |x | Jump 0x25e ; case 0x1
0257 7800 |x | Jump 0x258 ; case 0x2
0258 00db | | Load_Top At_Offset_3
0259 8222 | " | Call 0x1,0x22
025a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025b 00db | | Load_Top At_Offset_3
025c 8221 | ! | Call 0x1,0x21
025d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025e 00db | | Load_Top At_Offset_3
025f 8012 | | Call 0x0,0x12
0260 00e0 | | Load_Encached Standard_Cache
0261 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0262 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0263 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
026c 4602 |F | Jump_Case 0x3
026d 7805 |x | Jump 0x273 ; case 0x0
026e 7807 |x | Jump 0x276 ; case 0x1
026f 7800 |x | Jump 0x270 ; case 0x2
0270 00db | | Load_Top At_Offset_3
0271 8223 | # | Call 0x1,0x23
0272 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0273 00db | | Load_Top At_Offset_3
0274 8221 | ! | Call 0x1,0x21
0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0276 00db | | Load_Top At_Offset_3
0277 8012 | | Call 0x0,0x12
0278 00e0 | | Load_Encached Standard_Cache
0279 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
027b 0000 0000 | | .BLANK 0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 4602 |F | Jump_Case 0x3
0285 7805 |x | Jump 0x28b ; case 0x0
0286 7807 |x | Jump 0x28e ; case 0x1
0287 7800 |x | Jump 0x288 ; case 0x2
0288 00db | | Load_Top At_Offset_3
0289 8013 | | Call 0x0,0x13
028a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
028b 00db | | Load_Top At_Offset_3
028c 8221 | ! | Call 0x1,0x21
028d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
028e 00db | | Load_Top At_Offset_3
028f 8222 | " | Call 0x1,0x22
0290 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0291 ; --------------------------------------------------------------------------------------
0291 ; STRING TABLE
0291 ; --------------------------------------------------------------------------------------
0291 0022 | " | .STRTAB 0x0022->0x02a2 ; "BLUE"
0292 0024 | $ | .STRTAB 0x0024->0x02a4 ; "GREEN"
0293 0027 | ' | .STRTAB 0x0027->0x02a6 ; "RED"
0294 0028 | ( | .STRTAB 0x0028->0x02a8 ; "BUSY"
0295 002a | * | .STRTAB 0x002a->0x02aa ; "FREE"
0296 002c | , | .STRTAB 0x002c->0x02ac ; "ON_HEAP"
0297 0031 | 1 | .STRTAB 0x0031->0x02af ; "IN_BOX"
0298 0035 | 5 | .STRTAB 0x0035->0x02b2 ; "COLOUR"
0299 0039 | 9 | .STRTAB 0x0039->0x02b5 ; "STATE"
029a 003c | < | .STRTAB 0x003c->0x02b8 ; "IDENTITY"
029b 0042 | B | .STRTAB 0x0042->0x02bc ; "COLOUR"
029c 0046 | F | .STRTAB 0x0046->0x02bf ; "SIZE"
029d 0048 | H | .STRTAB 0x0048->0x02c1 ; "STATE"
029e 004b | K | .STRTAB 0x004b->0x02c3 ; "COLOUR"
029f 004f | O | .STRTAB 0x004f->0x02c6 ; "SIZE"
02a0 0051 | Q | .STRTAB 0x0051->0x02c8 ; "PLACE"
02a1 0054 | T | .STREND 0x0054->0x02cb
02a2 424c 5545 |BLUE| .STRTAB_STRINGS
02cb 0000 0000 | | .BLANK 0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0004 0006 | | .DEBUG4 0x0004,0x0006,0xac7b,0x0000,0x0001,0x000f
02d6 000b 0312 | | .DBG4T 0x000b,0x0312,0x8000,0x0000
02da 00a3 0328 | (| .DBG4T 0x00a3,0x0328,0x8000,0x0000
02de 00e3 0000 | | .DBG4T 0x00e3,0x0000,0x0005,0x0000
02e2 0133 0000 | 3 | .DBG4T 0x0133,0x0000,0x0005,0x0000
02e6 015b 0000 | [ | .DBG4T 0x015b,0x0000,0x0005,0x0000
02ea 0183 0000 | | .DBG4T 0x0183,0x0000,0x0005,0x0000
02ee 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x0005,0x0000
02f2 01d3 0000 | | .DBG4T 0x01d3,0x0000,0x0005,0x0000
02f6 01fb 0334 | 4| .DBG4T 0x01fb,0x0334,0x0001,0x4000
02fa 0223 0340 | # @| .DBG4T 0x0223,0x0340,0x0002,0x0000
02fe 0233 0343 | 3 C| .DBG4T 0x0233,0x0343,0x0002,0x0000
0302 0243 0346 | C F| .DBG4T 0x0243,0x0346,0x0002,0x0000
0306 0253 0349 | S I| .DBG4T 0x0253,0x0349,0x0002,0x4000
030a 026b 0353 | k S| .DBG4T 0x026b,0x0353,0x0002,0x4000
030e 0283 035d | ]| .DBG4T 0x0283,0x035d,0x0002,0x4000
0312 ; --------------------------------------------------------------------------------------
0312 ; Debug chain
0312 ; --------------------------------------------------------------------------------------
0312 0014 0000 | | .DBGLEN 0x0014,0x0000
0314 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x0027,0x0034,0x0041,0x0046,0x004b,0x0050,0x0055,0x005a,0x005f,0x0064,0x0069,0x006e,0x0073,0x0082,0x0091,0x00a0
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug chain
0328 ; --------------------------------------------------------------------------------------
0328 000a 0000 | | .DBGLEN 0x000a,0x0000
032a 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00be,0x00cd,0x00dc
0334 ; --------------------------------------------------------------------------------------
0334 ; Debug chain
0334 ; --------------------------------------------------------------------------------------
0334 0000 0005 | | .DBGLEN 0x0000,0x0005
0336 01fb 0202 | | .DBGLNO 0x01fb,0x0202,0x0204,0x020c,0x0214
033b 0001 0005 | | .XXX[0x5]
033d 0002 0003 | |
033f 0004 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0000 0001 | | .DBGLEN 0x0000,0x0001
0342 0223 | # | .DBGLNO 0x0223
0343 ; --------------------------------------------------------------------------------------
0343 ; Debug chain
0343 ; --------------------------------------------------------------------------------------
0343 0000 0001 | | .DBGLEN 0x0000,0x0001
0345 0233 | 3 | .DBGLNO 0x0233
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug chain
0346 ; --------------------------------------------------------------------------------------
0346 0000 0001 | | .DBGLEN 0x0000,0x0001
0348 0243 | C | .DBGLNO 0x0243
0349 ; --------------------------------------------------------------------------------------
0349 ; Debug chain
0349 ; --------------------------------------------------------------------------------------
0349 0000 0004 | | .DBGLEN 0x0000,0x0004
034b 0253 0258 | S X| .DBGLNO 0x0253,0x0258,0x025b,0x025e
034f 0001 0004 | | .XXX[0x4]
0351 0002 0003 | |
0353 ; --------------------------------------------------------------------------------------
0353 ; Debug chain
0353 ; --------------------------------------------------------------------------------------
0353 0000 0004 | | .DBGLEN 0x0000,0x0004
0355 026b 0270 | k p| .DBGLNO 0x026b,0x0270,0x0273,0x0276
0359 0001 0004 | | .XXX[0x4]
035b 0002 0003 | |
035d ; --------------------------------------------------------------------------------------
035d ; Debug chain
035d ; --------------------------------------------------------------------------------------
035d 0000 0004 | | .DBGLEN 0x0000,0x0004
035f 0283 0288 | | .DBGLNO 0x0283,0x0288,0x028b,0x028e
0363 0001 0004 | | .XXX[0x4]
0365 0002 0003 | |
0367 0000 0000 | | .BLANK 0000[0x99]