|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d40ac
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02b8 | | .CONST 0x02b8 ; 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 007d | } | .CONST 0x007d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 4800 |H | Short_Literal 0x0
000f 4804 |H | Short_Literal 0x4
0010 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0012 03fe | | Declare_Type Discrete,Defined,Visible
0013 4800 |H | Short_Literal 0x0
0014 4801 |H | Short_Literal 0x1
0015 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0017 03fe | | Declare_Type Discrete,Defined,Visible
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 4800 |H | Short_Literal 0x0
002f 4806 |H | Short_Literal 0x6
0030 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0032 03fe | | Declare_Type Discrete,Defined,Visible
0033 c221 | ! | Store 0x1,0x21
0034 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0036 c21b | | Store 0x1,0x1b
0037 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0039 c212 | | Store 0x1,0x12
003a 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
003c c224 | $ | Store 0x1,0x24
003d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
003f c225 | % | Store 0x1,0x25
0040 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0042 c222 | " | Store 0x1,0x22
0043 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0045 c21c | | Store 0x1,0x1c
0046 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0048 c21e | | Store 0x1,0x1e
0049 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
004b c218 | | Store 0x1,0x18
004c 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
004e c219 | | Store 0x1,0x19
004f 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0051 c21a | | Store 0x1,0x1a
0052 00bf | | Action Accept_Activation
0053 e20e | | Load 0x1,0xe
0054 e20f | | Load 0x1,0xf
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 4802 |H | Short_Literal 0x2
0057 032d | - | Declare_Type Record,Defined
0058 e002 | | Load 0x0,0x2
0059 e003 | | Load 0x0,0x3
005a 00da | | Load_Top At_Offset_2
005b 0092 0267 | g| Action Push_String_Extended,0x267 ; "STICKERS "
005d e001 | | Load 0x0,0x1
005e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005f 01c7 | | Execute Vector,Convert
0060 48c8 |H | Short_Literal 0xc8
0061 e001 | | Load 0x0,0x1
0062 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0063 190f | | Execute Package,Field_Reference,Field_Number 0xf
0064 e001 | | Load 0x0,0x1
0065 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0066 0387 | | Declare_Variable Package
0067 00d8 | | Load_Top At_Offset_0
0068 020f | | Execute Module,Activate
0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006a 00c7 | | Action Elaborate_Subprogram
006b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
006c 00c7 | | Action Elaborate_Subprogram
006d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
006e 00c7 | | Action Elaborate_Subprogram
006f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0070 00c7 | | Action Elaborate_Subprogram
0071 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0076 00c7 | | Action Elaborate_Subprogram
0077 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0078 00c7 | | Action Elaborate_Subprogram
0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007c 00c7 | | Action Elaborate_Subprogram
007d BODY_0008:
007d 00bc | | Action Signal_Activated
007e 00bb | | Action Signal_Completion
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7806 |x | Jump 0x8c ; case 0x1
0086 7809 |x | Jump 0x90 ; case 0x2
0087 780d |x | Jump 0x95 ; case 0x3
0088 7810 |x | Jump 0x99 ; case 0x4
0089 7811 |x | Jump 0x9b ; case 0x5
008a 7812 |x | Jump 0x9d ; case 0x6
008b 7815 |x | Jump 0xa1 ; case 0x7
008c 00da | | Load_Top At_Offset_2
008d 0091 0259 | Y| Action Push_String_Extended_Indexed,0x259 ; "WHITE"
008f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0090 00db | | Load_Top At_Offset_3
0091 00db | | Load_Top At_Offset_3
0092 00e0 | | Load_Encached Standard_Cache
0093 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0095 00da | | Load_Top At_Offset_2
0096 00e0 | | Load_Encached Standard_Cache
0097 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009b 00db | | Load_Top At_Offset_3
009c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009d e20e | | Load 0x1,0xe
009e 00dc | | Load_Top At_Offset_4
009f 0267 | g | Execute Discrete,Predecessor
00a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a1 e20e | | Load 0x1,0xe
00a2 00dc | | Load_Top At_Offset_4
00a3 0268 | h | Execute Discrete,Successor
00a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x8
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7806 |x | Jump 0xb4 ; case 0x1
00ae 7809 |x | Jump 0xb8 ; case 0x2
00af 780d |x | Jump 0xbd ; case 0x3
00b0 7810 |x | Jump 0xc1 ; case 0x4
00b1 7811 |x | Jump 0xc3 ; case 0x5
00b2 7812 |x | Jump 0xc5 ; case 0x6
00b3 7815 |x | Jump 0xc9 ; case 0x7
00b4 00da | | Load_Top At_Offset_2
00b5 0091 025e | ^| Action Push_String_Extended_Indexed,0x25e ; "IS_UNUSED"
00b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b8 00db | | Load_Top At_Offset_3
00b9 00db | | Load_Top At_Offset_3
00ba 00e0 | | Load_Encached Standard_Cache
00bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd 00da | | Load_Top At_Offset_2
00be 00e0 | | Load_Encached Standard_Cache
00bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c3 00db | | Load_Top At_Offset_3
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 e20f | | Load 0x1,0xf
00c6 00dc | | Load_Top At_Offset_4
00c7 0267 | g | Execute Discrete,Predecessor
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 e20f | | Load 0x1,0xf
00ca 00dc | | Load_Top At_Offset_4
00cb 0268 | h | Execute Discrete,Successor
00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x8
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7806 |x | Jump 0xdc ; case 0x1
00d6 7809 |x | Jump 0xe0 ; case 0x2
00d7 780d |x | Jump 0xe5 ; case 0x3
00d8 7810 |x | Jump 0xe9 ; case 0x4
00d9 7811 |x | Jump 0xeb ; case 0x5
00da 7812 |x | Jump 0xed ; case 0x6
00db 7815 |x | Jump 0xf1 ; case 0x7
00dc 00da | | Load_Top At_Offset_2
00dd 0091 0260 | `| Action Push_String_Extended_Indexed,0x260 ; "UNUSED_STICKERS"
00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e0 00db | | Load_Top At_Offset_3
00e1 00db | | Load_Top At_Offset_3
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 00da | | Load_Top At_Offset_2
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed e221 | ! | Load 0x1,0x21
00ee 00dc | | Load_Top At_Offset_4
00ef 0267 | g | Execute Discrete,Predecessor
00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f1 e221 | ! | Load 0x1,0x21
00f2 00dc | | Load_Top At_Offset_4
00f3 0268 | h | Execute Discrete,Successor
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc e227 | ' | Load 0x1,0x27
00fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 e227 | ' | Load 0x1,0x27
0105 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0106 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0118 | | .CONST 0x0118 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0006 | | .CONST 0x0006 ; Number of locals
010b INIT_0108:
010b 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
010d e001 | | Load 0x0,0x1
010e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
010f 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0110 00c6 | | Action Check_Subprogram_Elaborated
0111 4802 |H | Short_Literal 0x2
0112 4802 |H | Short_Literal 0x2
0113 0099 | | Action Reference_Dynamic
0114 e004 | | Load 0x0,0x4
0115 e005 | | Load 0x0,0x5
0116 4806 |H | Short_Literal 0x6
0117 0007 | | Action Break_Optional
0118 BODY_0108:
0118 e5fe | | Load 0x2,-0x2
0119 8222 | " | Call 0x1,0x22
011a 4803 |H | Short_Literal 0x3
011b 4802 |H | Short_Literal 0x2
011c 0099 | | Action Reference_Dynamic
011d 4804 |H | Short_Literal 0x4
011e 4802 |H | Short_Literal 0x2
011f 0099 | | Action Reference_Dynamic
0120 e001 | | Load 0x0,0x1
0121 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0122 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0123 00e1 | | Load_Encached Boolean_Cache
0124 025e | ^ | Execute Discrete,Convert
0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0138 | 8 | .CONST 0x0138 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0006 | | .CONST 0x0006 ; Number of locals
012b INIT_0128:
012b 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
012d e001 | | Load 0x0,0x1
012e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
012f 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0130 00c6 | | Action Check_Subprogram_Elaborated
0131 4802 |H | Short_Literal 0x2
0132 4802 |H | Short_Literal 0x2
0133 0099 | | Action Reference_Dynamic
0134 e006 | | Load 0x0,0x6
0135 e007 | | Load 0x0,0x7
0136 4806 |H | Short_Literal 0x6
0137 0007 | | Action Break_Optional
0138 BODY_0128:
0138 e5fe | | Load 0x2,-0x2
0139 8222 | " | Call 0x1,0x22
013a 4803 |H | Short_Literal 0x3
013b 4802 |H | Short_Literal 0x2
013c 0099 | | Action Reference_Dynamic
013d 4804 |H | Short_Literal 0x4
013e 4802 |H | Short_Literal 0x2
013f 0099 | | Action Reference_Dynamic
0140 e001 | | Load 0x0,0x1
0141 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0142 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0143 00e1 | | Load_Encached Boolean_Cache
0144 025e | ^ | Execute Discrete,Convert
0145 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0178 | x | .CONST 0x0178 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0011 | | .CONST 0x0011 ; Number of locals
014b INIT_0148:
014b e001 | | Load 0x0,0x1
014c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014e 02ff | | Declare_Variable Variant_Record
014f 00d8 | | Load_Top At_Offset_0
0150 1c00 | | Execute_Immediate Run_Utility,0x0
0151 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0153 e001 | | Load 0x0,0x1
0154 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0155 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0156 00c6 | | Action Check_Subprogram_Elaborated
0157 4803 |H | Short_Literal 0x3
0158 4802 |H | Short_Literal 0x2
0159 0099 | | Action Reference_Dynamic
015a e008 | | Load 0x0,0x8
015b e009 | | Load 0x0,0x9
015c 4807 |H | Short_Literal 0x7
015d 0007 | | Action Break_Optional
015e 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0160 e001 | | Load 0x0,0x1
0161 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0162 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0163 00c6 | | Action Check_Subprogram_Elaborated
0164 4808 |H | Short_Literal 0x8
0165 4802 |H | Short_Literal 0x2
0166 0099 | | Action Reference_Dynamic
0167 e00a | | Load 0x0,0xa
0168 e00b | | Load 0x0,0xb
0169 480c |H | Short_Literal 0xc
016a 0007 | | Action Break_Optional
016b 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
016d e001 | | Load 0x0,0x1
016e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
016f 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0170 00c6 | | Action Check_Subprogram_Elaborated
0171 480d |H | Short_Literal 0xd
0172 4802 |H | Short_Literal 0x2
0173 0099 | | Action Reference_Dynamic
0174 e00c | | Load 0x0,0xc
0175 e00d | | Load 0x0,0xd
0176 4811 |H | Short_Literal 0x11
0177 0007 | | Action Break_Optional
0178 BODY_0148:
0178 e5ff | | Load 0x2,-0x1
0179 4606 |F | Jump_Case 0x7
017a 780c |x | Jump 0x187 ; case 0x0
017b 7808 |x | Jump 0x184 ; case 0x1
017c 781b |x | Jump 0x198 ; case 0x2
017d 782b |x+ | Jump 0x1a9 ; case 0x3
017e 7802 |x | Jump 0x181 ; case 0x4
017f 7801 |x | Jump 0x181 ; case 0x5
0180 7800 |x | Jump 0x181 ; case 0x6
0181 e227 | ' | Load 0x1,0x27
0182 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0183 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0184 e227 | ' | Load 0x1,0x27
0185 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0187 4800 |H | Short_Literal 0x0
0188 e227 | ' | Load 0x1,0x27
0189 181b | | Execute Package,Field_Execute,Field_Number 0x1b
018a 480e |H | Short_Literal 0xe
018b 4802 |H | Short_Literal 0x2
018c 0099 | | Action Reference_Dynamic
018d 480f |H | Short_Literal 0xf
018e 4802 |H | Short_Literal 0x2
018f 0099 | | Action Reference_Dynamic
0190 e001 | | Load 0x0,0x1
0191 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0192 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0193 e001 | | Load 0x0,0x1
0194 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0196 0165 | e | Execute Variant_Record,Convert
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 4800 |H | Short_Literal 0x0
0199 e227 | ' | Load 0x1,0x27
019a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
019b 4804 |H | Short_Literal 0x4
019c 4802 |H | Short_Literal 0x2
019d 0099 | | Action Reference_Dynamic
019e 4805 |H | Short_Literal 0x5
019f 4802 |H | Short_Literal 0x2
01a0 0099 | | Action Reference_Dynamic
01a1 e001 | | Load 0x0,0x1
01a2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a4 e001 | | Load 0x0,0x1
01a5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a7 0165 | e | Execute Variant_Record,Convert
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 4800 |H | Short_Literal 0x0
01aa e227 | ' | Load 0x1,0x27
01ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ac 4809 |H | Short_Literal 0x9
01ad 4802 |H | Short_Literal 0x2
01ae 0099 | | Action Reference_Dynamic
01af 480a |H | Short_Literal 0xa
01b0 4802 |H | Short_Literal 0x2
01b1 0099 | | Action Reference_Dynamic
01b2 e001 | | Load 0x0,0x1
01b3 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b5 e001 | | Load 0x0,0x1
01b6 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b8 0165 | e | Execute Variant_Record,Convert
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e226 | & | Load 0x1,0x26
01c4 0322 | " | Declare_Variable Record
01c5 BODY_01c0:
01c5 00db | | Load_Top At_Offset_3
01c6 00d9 | | Load_Top At_Offset_1
01c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c8 e5fe | | Load 0x2,-0x2
01c9 00d9 | | Load_Top At_Offset_1
01ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01cb 00d8 | | Load_Top At_Offset_0
01cc e227 | ' | Load 0x1,0x27
01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e226 | & | Load 0x1,0x26
01d4 0322 | " | Declare_Variable Record
01d5 BODY_01d0:
01d5 00db | | Load_Top At_Offset_3
01d6 e227 | ' | Load 0x1,0x27
01d7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01d8 00d9 | | Load_Top At_Offset_1
01d9 017d | } | Execute Record,Structure_Write
01da e5fe | | Load 0x2,-0x2
01db 00d9 | | Load_Top At_Offset_1
01dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01dd e5fd | | Load 0x2,-0x3
01de 00d9 | | Load_Top At_Offset_1
01df 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e0 00d8 | | Load_Top At_Offset_0
01e1 e5ff | | Load 0x2,-0x1
01e2 e227 | ' | Load 0x1,0x27
01e3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed | | .CONST 0x01ed ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb e226 | & | Load 0x1,0x26
01ec 0322 | " | Declare_Variable Record
01ed BODY_01e8:
01ed 00db | | Load_Top At_Offset_3
01ee e227 | ' | Load 0x1,0x27
01ef 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01f0 00d9 | | Load_Top At_Offset_1
01f1 017d | } | Execute Record,Structure_Write
01f2 e5fe | | Load 0x2,-0x2
01f3 00d9 | | Load_Top At_Offset_1
01f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f5 00d8 | | Load_Top At_Offset_0
01f6 e5ff | | Load 0x2,-0x1
01f7 e227 | ' | Load 0x1,0x27
01f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fa 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
0204 e227 | ' | Load 0x1,0x27
0205 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0206 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e227 | ' | Load 0x1,0x27
020c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
020d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020e 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
0214 e227 | ' | Load 0x1,0x27
0215 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0216 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0217 e20e | | Load 0x1,0xe
0218 011c | | Execute Any,Convert_Unchecked
0219 1c01 | | Execute_Immediate Run_Utility,0x1
021a e5ff | | Load 0x2,-0x1
021b 01df | | Execute Vector,Equal
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
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 e227 | ' | Load 0x1,0x27
0225 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0226 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0227 e5ff | | Load 0x2,-0x1
0228 027f | | Execute Discrete,Equal
0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022a 0000 0000 | | .BLANK 0000[0x6]
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 e227 | ' | Load 0x1,0x27
0235 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0236 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0237 0f00 | | Execute_Immediate Equal,0x0
0238 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0239 0000 0000 | | .BLANK 0000[0x7]
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 e227 | ' | Load 0x1,0x27
0245 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0246 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0247 0f01 | | Execute_Immediate Equal,0x1
0248 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0249 0000 0000 | | .BLANK 0000[0x7]
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 e227 | ' | Load 0x1,0x27
0255 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0256 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0257 0f00 | | Execute_Immediate Equal,0x0
0258 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0259 ; --------------------------------------------------------------------------------------
0259 ; STRING TABLE
0259 ; --------------------------------------------------------------------------------------
0259 0020 | | .STRTAB 0x0020->0x0269 ; "WHITE"
025a 0023 | # | .STRTAB 0x0023->0x026b ; "RED"
025b 0024 | $ | .STRTAB 0x0024->0x026d ; "YELLOW"
025c 0028 | ( | .STRTAB 0x0028->0x0270 ; "GREEN"
025d 002b | + | .STRTAB 0x002b->0x0272 ; "BLUE"
025e 002d | - | .STRTAB 0x002d->0x0274 ; "IS_UNUSED"
025f 0034 | 4 | .STRTAB 0x0034->0x0279 ; "IS_USED"
0260 0039 | 9 | .STRTAB 0x0039->0x027c ; "UNUSED_STICKERS"
0261 0046 | F | .STRTAB 0x0046->0x0284 ; "ALL_STICKERS"
0262 0050 | P | .STRTAB 0x0050->0x028a ; "WHITE_STICKERS"
0263 005c | \ | .STRTAB 0x005c->0x0291 ; "RED_STICKERS"
0264 0066 | f | .STRTAB 0x0066->0x0297 ; "YELLOW_STICKERS"
0265 0073 | s | .STRTAB 0x0073->0x029e ; "GREEN_STICKERS"
0266 007f | | .STRTAB 0x007f->0x02a5 ; "BLUE_STICKERS"
0267 008a | | .STRTAB 0x008a->0x02ac ; "STICKERS "
0268 0092 | | .STREND 0x0092->0x02b1
0269 5748 4954 |WHIT| .STRTAB_STRINGS
02b1 0000 0000 | | .BLANK 0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x88d9,0x0000,0x0001,0x0014
02be 000b 030e | | .DBG4T 0x000b,0x030e,0x8000,0x8000
02c2 0053 032c | S ,| .DBG4T 0x0053,0x032c,0x8000,0x0000
02c6 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000
02ca 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
02ce 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000
02d2 00fb 033a | :| .DBG4T 0x00fb,0x033a,0x0002,0x0000
02d6 0103 033d | =| .DBG4T 0x0103,0x033d,0x0002,0x0000
02da 010b 0340 | @| .DBG4T 0x010b,0x0340,0x0002,0x0000
02de 012b 0345 | + E| .DBG4T 0x012b,0x0345,0x0002,0x0000
02e2 014b 034a | K J| .DBG4T 0x014b,0x034a,0x0002,0x4000
02e6 01c3 035f | _| .DBG4T 0x01c3,0x035f,0x0002,0x0000
02ea 01d3 0365 | e| .DBG4T 0x01d3,0x0365,0x0001,0x0000
02ee 01eb 036c | l| .DBG4T 0x01eb,0x036c,0x0001,0x0000
02f2 0203 0372 | r| .DBG4T 0x0203,0x0372,0x0001,0x0000
02f6 020b 0375 | u| .DBG4T 0x020b,0x0375,0x0001,0x0000
02fa 0213 0378 | x| .DBG4T 0x0213,0x0378,0x0002,0x0000
02fe 0223 037b | # {| .DBG4T 0x0223,0x037b,0x0002,0x0000
0302 0233 037e | 3 ~| .DBG4T 0x0233,0x037e,0x0002,0x0000
0306 0243 0381 | C | .DBG4T 0x0243,0x0381,0x0002,0x0000
030a 0253 0384 | S | .DBG4T 0x0253,0x0384,0x0002,0x0000
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 000e 0000 | | .DBGLEN 0x000e,0x0000
0310 000b 000e | | .DBGLNO 0x000b,0x000e,0x0013,0x002e,0x0034,0x0037,0x003a,0x003d,0x0040,0x0043,0x0046,0x0049,0x004c,0x004f
031e 0001 0002 | | .XXX[0xe]
0320 0003 0004 | |
0322 0007 0008 | |
0324 0009 000a | |
0326 000b 000c | |
0328 000d 000e | |
032a 000f 0010 | |
032c ; --------------------------------------------------------------------------------------
032c ; Debug chain
032c ; --------------------------------------------------------------------------------------
032c 000c 0000 | | .DBGLEN 0x000c,0x0000
032e 0053 0058 | S X| .DBGLNO 0x0053,0x0058,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b
033a ; --------------------------------------------------------------------------------------
033a ; Debug chain
033a ; --------------------------------------------------------------------------------------
033a 0000 0001 | | .DBGLEN 0x0000,0x0001
033c 00fb | | .DBGLNO 0x00fb
033d ; --------------------------------------------------------------------------------------
033d ; Debug chain
033d ; --------------------------------------------------------------------------------------
033d 0000 0001 | | .DBGLEN 0x0000,0x0001
033f 0103 | | .DBGLNO 0x0103
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0002 0001 | | .DBGLEN 0x0002,0x0001
0342 010b 010d | | .DBGLNO 0x010b,0x010d,0x0118
0345 ; --------------------------------------------------------------------------------------
0345 ; Debug chain
0345 ; --------------------------------------------------------------------------------------
0345 0002 0001 | | .DBGLEN 0x0002,0x0001
0347 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0138
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 0007 0006 | | .DBGLEN 0x0007,0x0006
034c 014b 0151 | K Q| .DBGLNO 0x014b,0x0151,0x0153,0x015e,0x0160,0x016b,0x016d,0x0178,0x0181,0x0184,0x0187,0x0198,0x01a9
0359 0001 0006 | | .XXX[0x6]
035b 0002 0003 | |
035d 0004 0005 | |
035f ; --------------------------------------------------------------------------------------
035f ; Debug chain
035f ; --------------------------------------------------------------------------------------
035f 0001 0003 | | .DBGLEN 0x0001,0x0003
0361 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01c8,0x01cb
0365 ; --------------------------------------------------------------------------------------
0365 ; Debug chain
0365 ; --------------------------------------------------------------------------------------
0365 0001 0004 | | .DBGLEN 0x0001,0x0004
0367 01d3 01d5 | | .DBGLNO 0x01d3,0x01d5,0x01da,0x01dd,0x01e0
036c ; --------------------------------------------------------------------------------------
036c ; Debug chain
036c ; --------------------------------------------------------------------------------------
036c 0001 0003 | | .DBGLEN 0x0001,0x0003
036e 01eb 01ed | | .DBGLNO 0x01eb,0x01ed,0x01f2,0x01f5
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug chain
0372 ; --------------------------------------------------------------------------------------
0372 0000 0001 | | .DBGLEN 0x0000,0x0001
0374 0203 | | .DBGLNO 0x0203
0375 ; --------------------------------------------------------------------------------------
0375 ; Debug chain
0375 ; --------------------------------------------------------------------------------------
0375 0000 0001 | | .DBGLEN 0x0000,0x0001
0377 020b | | .DBGLNO 0x020b
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug chain
0378 ; --------------------------------------------------------------------------------------
0378 0000 0001 | | .DBGLEN 0x0000,0x0001
037a 0213 | | .DBGLNO 0x0213
037b ; --------------------------------------------------------------------------------------
037b ; Debug chain
037b ; --------------------------------------------------------------------------------------
037b 0000 0001 | | .DBGLEN 0x0000,0x0001
037d 0223 | # | .DBGLNO 0x0223
037e ; --------------------------------------------------------------------------------------
037e ; Debug chain
037e ; --------------------------------------------------------------------------------------
037e 0000 0001 | | .DBGLEN 0x0000,0x0001
0380 0233 | 3 | .DBGLNO 0x0233
0381 ; --------------------------------------------------------------------------------------
0381 ; Debug chain
0381 ; --------------------------------------------------------------------------------------
0381 0000 0001 | | .DBGLEN 0x0000,0x0001
0383 0243 | C | .DBGLNO 0x0243
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug chain
0384 ; --------------------------------------------------------------------------------------
0384 0000 0001 | | .DBGLEN 0x0000,0x0001
0386 0253 | S | .DBGLNO 0x0253
0387 0000 0000 | | .BLANK 0000[0x79]