|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_103ce1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0288 | | .CONST 0x0288 ; 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 00a2 | | .CONST 0x00a2 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
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 0092 026d | m| Action Push_String_Extended,0x26d ; "BOXES"
0024 0129 | ) | Execute Any,Make_Visible
0025 c21b | | Store 0x1,0x1b
0026 4801 |H | Short_Literal 0x1
0027 e21b | | Load 0x1,0x1b
0028 e001 | | Load 0x0,0x1
0029 1820 | | Execute Package,Field_Execute,Field_Number 0x20
002a 0129 | ) | Execute Any,Make_Visible
002b c21c | | Store 0x1,0x1c
002c e21c | | Load 0x1,0x1c
002d e002 | | Load 0x0,0x2
002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002f 1c07 | | Execute_Immediate Run_Utility,0x7
0030 0129 | ) | Execute Any,Make_Visible
0031 c21d | | Store 0x1,0x1d
0032 4800 |H | Short_Literal 0x0
0033 4801 |H | Short_Literal 0x1
0034 029f 00ab | | Declare_Subprogram For_Call,INIT_00a8
0036 03fe | | Declare_Type Discrete,Defined,Visible
0037 c20e | | Store 0x1,0xe
0038 4800 |H | Short_Literal 0x0
0039 4801 |H | Short_Literal 0x1
003a 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
003c 03fe | | Declare_Type Discrete,Defined,Visible
003d c20f | | Store 0x1,0xf
003e 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
0040 c210 | | Store 0x1,0x10
0041 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0043 c211 | | Store 0x1,0x11
0044 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0046 c21e | | Store 0x1,0x1e
0047 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
0049 c21f | | Store 0x1,0x1f
004a 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
004c c213 | | Store 0x1,0x13
004d 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
004f c214 | | Store 0x1,0x14
0050 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
0052 c215 | | Store 0x1,0x15
0053 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
0055 c216 | | Store 0x1,0x16
0056 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0058 c217 | | Store 0x1,0x17
0059 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
005b c218 | | Store 0x1,0x18
005c 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
005e c219 | | Store 0x1,0x19
005f 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
0061 c220 | | Store 0x1,0x20
0062 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
0064 c221 | ! | Store 0x1,0x21
0065 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0067 c21a | | Store 0x1,0x1a
0068 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
006a c222 | " | Store 0x1,0x22
006b 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
006d c223 | # | Store 0x1,0x23
006e 00bf | | Action Accept_Activation
006f 00e3 | | Load_Encached Natural_Cache
0070 e20e | | Load 0x1,0xe
0071 02a0 | | Declare_Subprogram Null_Subprogram
0072 4802 |H | Short_Literal 0x2
0073 032d | - | Declare_Type Record,Defined
0074 e003 | | Load 0x0,0x3
0075 e004 | | Load 0x0,0x4
0076 00da | | Load_Top At_Offset_2
0077 e21b | | Load 0x1,0x1b
0078 4801 |H | Short_Literal 0x1
0079 4801 |H | Short_Literal 0x1
007a e002 | | Load 0x0,0x2
007b 1918 | | Execute Package,Field_Reference,Field_Number 0x18
007c e005 | | Load 0x0,0x5
007d 0387 | | Declare_Variable Package
007e 00d8 | | Load_Top At_Offset_0
007f 020f | | Execute Module,Activate
0080 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0081 00c7 | | Action Elaborate_Subprogram
0082 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0083 00c7 | | Action Elaborate_Subprogram
0084 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0085 00c7 | | Action Elaborate_Subprogram
0086 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0087 00c7 | | Action Elaborate_Subprogram
0088 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0089 00c7 | | Action Elaborate_Subprogram
008a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
008b 00c7 | | Action Elaborate_Subprogram
008c 029d 020b | | Declare_Subprogram For_Outer_Call,INIT_0208
008e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008f 00c7 | | Action Elaborate_Subprogram
0090 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0091 00c7 | | Action Elaborate_Subprogram
0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0093 00c7 | | Action Elaborate_Subprogram
0094 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0095 00c7 | | Action Elaborate_Subprogram
0096 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0097 00c7 | | Action Elaborate_Subprogram
0098 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0099 00c7 | | Action Elaborate_Subprogram
009a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
009d 00c7 | | Action Elaborate_Subprogram
009e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a1 00c7 | | Action Elaborate_Subprogram
00a2 BODY_0008:
00a2 00bc | | Action Signal_Activated
00a3 00bb | | Action Signal_Completion
00a4 0000 0000 | | .BLANK 0000[0x4]
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 0x7
00ac 4302 |C | Exit_Subprogram From_Utility,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 0269 | i| Action Push_String_Extended_Indexed,0x269 ; "IS_EMPTY"
00b7 4201 |B | Exit_Subprogram From_Utility,With_Result,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,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,0x1
00c1 00db | | Load_Top At_Offset_3
00c2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c3 00db | | Load_Top At_Offset_3
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c5 e20e | | Load 0x1,0xe
00c6 00dc | | Load_Top At_Offset_4
00c7 0267 | g | Execute Discrete,Predecessor
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c9 e20e | | Load 0x1,0xe
00ca 00dc | | Load_Top At_Offset_4
00cb 0268 | h | Execute Discrete,Successor
00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,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 0x7
00d4 4302 |C | Exit_Subprogram From_Utility,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 026b | k| Action Push_String_Extended_Indexed,0x26b ; "EMPTY_BOXES"
00df 4201 |B | Exit_Subprogram From_Utility,With_Result,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,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,0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ed e20f | | Load 0x1,0xf
00ee 00dc | | Load_Top At_Offset_4
00ef 0267 | g | Execute Discrete,Predecessor
00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f1 e20f | | Load 0x1,0xf
00f2 00dc | | Load_Top At_Offset_4
00f3 0268 | h | Execute Discrete,Successor
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,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 e225 | % | Load 0x1,0x25
00fd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ff 4401 |D | Exit_Subprogram With_Result,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 e225 | % | Load 0x1,0x25
0105 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0106 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0107 4401 |D | Exit_Subprogram With_Result,0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0117 | | .CONST 0x0117 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0006 | | .CONST 0x0006 ; Number of locals
010b INIT_0108:
010b 029f 022b | +| Declare_Subprogram For_Call,INIT_0228
010d e006 | | Load 0x0,0x6
010e 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
010f 00c6 | | Action Check_Subprogram_Elaborated
0110 4802 |H | Short_Literal 0x2
0111 4802 |H | Short_Literal 0x2
0112 0099 | | Action Reference_Dynamic
0113 e007 | | Load 0x0,0x7
0114 e008 | | Load 0x0,0x8
0115 4806 |H | Short_Literal 0x6
0116 0007 | | Action Break_Optional
0117 BODY_0108:
0117 e5ff | | Load 0x2,-0x1
0118 0f01 | | Execute_Immediate Equal,0x1
0119 700f |p | Jump_Nonzero 0x129
011a 6011 |` | Indirect_Literal Discrete,0x12c,{0x00000000, 0x7fffffff}
011b e225 | % | Load 0x1,0x25
011c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
011d 4803 |H | Short_Literal 0x3
011e 4802 |H | Short_Literal 0x2
011f 0099 | | Action Reference_Dynamic
0120 4804 |H | Short_Literal 0x4
0121 4802 |H | Short_Literal 0x2
0122 0099 | | Action Reference_Dynamic
0123 e006 | | Load 0x0,0x6
0124 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0125 e006 | | Load 0x0,0x6
0126 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0127 01c6 | | Execute Vector,Convert_To_Formal
0128 4401 |D | Exit_Subprogram With_Result,0x1
0129 e225 | % | Load 0x1,0x25
012a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012b 4401 |D | Exit_Subprogram With_Result,0x1
012c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
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 e225 | % | Load 0x1,0x25
0134 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0135 00ca | | Action Exit_Nullary_Function
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147 | G | .CONST 0x0147 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0006 | | .CONST 0x0006 ; Number of locals
013b INIT_0138:
013b 029f 023b | ;| Declare_Subprogram For_Call,INIT_0238
013d e006 | | Load 0x0,0x6
013e 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
013f 00c6 | | Action Check_Subprogram_Elaborated
0140 4802 |H | Short_Literal 0x2
0141 4802 |H | Short_Literal 0x2
0142 0099 | | Action Reference_Dynamic
0143 e009 | | Load 0x0,0x9
0144 e00a | | Load 0x0,0xa
0145 4806 |H | Short_Literal 0x6
0146 0007 | | Action Break_Optional
0147 BODY_0138:
0147 e5fe | | Load 0x2,-0x2
0148 821e | | Call 0x1,0x1e
0149 4803 |H | Short_Literal 0x3
014a 4802 |H | Short_Literal 0x2
014b 0099 | | Action Reference_Dynamic
014c 4804 |H | Short_Literal 0x4
014d 4802 |H | Short_Literal 0x2
014e 0099 | | Action Reference_Dynamic
014f e006 | | Load 0x0,0x6
0150 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0151 00e1 | | Load_Encached Boolean_Cache
0152 025e | ^ | Execute Discrete,Convert
0153 4402 |D | Exit_Subprogram With_Result,0x2
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0162 | b | .CONST 0x0162 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b e002 | | Load 0x0,0x2
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 02ff | | Declare_Variable Variant_Record
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 00e1 | | Load_Encached Boolean_Cache
0161 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0162 BODY_0158:
0162 e5fd | | Load 0x2,-0x3
0163 e5fe | | Load 0x2,-0x2
0164 e5ff | | Load 0x2,-0x1
0165 8226 | & | Call 0x1,0x26
0166 00da | | Load_Top At_Offset_2
0167 016d | m | Execute Variant_Record,Structure_Write
0168 00d9 | | Load_Top At_Offset_1
0169 e002 | | Load 0x0,0x2
016a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016b 016e | n | Execute Variant_Record,Not_Equal
016c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
016d 00d8 | | Load_Top At_Offset_0
016e 4403 |D | Exit_Subprogram With_Result,0x3
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017f | | .CONST 0x017f ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0006 | | .CONST 0x0006 ; Number of locals
0173 INIT_0170:
0173 029f 024b | K| Declare_Subprogram For_Call,INIT_0248
0175 e006 | | Load 0x0,0x6
0176 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
0177 00c6 | | Action Check_Subprogram_Elaborated
0178 4802 |H | Short_Literal 0x2
0179 4802 |H | Short_Literal 0x2
017a 0099 | | Action Reference_Dynamic
017b e00b | | Load 0x0,0xb
017c e00c | | Load 0x0,0xc
017d 4806 |H | Short_Literal 0x6
017e 0007 | | Action Break_Optional
017f BODY_0170:
017f e5fe | | Load 0x2,-0x2
0180 821e | | Call 0x1,0x1e
0181 4803 |H | Short_Literal 0x3
0182 4802 |H | Short_Literal 0x2
0183 0099 | | Action Reference_Dynamic
0184 4804 |H | Short_Literal 0x4
0185 4802 |H | Short_Literal 0x2
0186 0099 | | Action Reference_Dynamic
0187 e006 | | Load 0x0,0x6
0188 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0189 00e1 | | Load_Encached Boolean_Cache
018a 025e | ^ | Execute Discrete,Convert
018b 4402 |D | Exit_Subprogram With_Result,0x2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195 | | .CONST 0x0195 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 e224 | $ | Load 0x1,0x24
0194 0322 | " | Declare_Variable Record
0195 BODY_0190:
0195 00db | | Load_Top At_Offset_3
0196 00d9 | | Load_Top At_Offset_1
0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0198 e5fe | | Load 0x2,-0x2
0199 00d9 | | Load_Top At_Offset_1
019a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019b 00d8 | | Load_Top At_Offset_0
019c e225 | % | Load 0x1,0x25
019d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
019e e21d | | Load 0x1,0x1d
019f 0161 | a | Execute Variant_Record,Check_In_Formal_Type
01a0 4402 |D | Exit_Subprogram With_Result,0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad | | .CONST 0x01ad ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab e224 | $ | Load 0x1,0x24
01ac 0322 | " | Declare_Variable Record
01ad BODY_01a8:
01ad 00db | | Load_Top At_Offset_3
01ae e225 | % | Load 0x1,0x25
01af 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01b0 00d9 | | Load_Top At_Offset_1
01b1 017d | } | Execute Record,Structure_Write
01b2 e5fe | | Load 0x2,-0x2
01b3 00d9 | | Load_Top At_Offset_1
01b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b5 e5fd | | Load 0x2,-0x3
01b6 00d9 | | Load_Top At_Offset_1
01b7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b8 00d8 | | Load_Top At_Offset_0
01b9 e5ff | | Load 0x2,-0x1
01ba e225 | % | Load 0x1,0x25
01bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01bc 4504 |E | Exit_Subprogram 0x4
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
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 e224 | $ | Load 0x1,0x24
01c4 0322 | " | Declare_Variable Record
01c5 BODY_01c0:
01c5 00db | | Load_Top At_Offset_3
01c6 e225 | % | Load 0x1,0x25
01c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01c8 00d9 | | Load_Top At_Offset_1
01c9 017d | } | Execute Record,Structure_Write
01ca e5fe | | Load 0x2,-0x2
01cb 00d9 | | Load_Top At_Offset_1
01cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01cd 00d8 | | Load_Top At_Offset_0
01ce e5ff | | Load 0x2,-0x1
01cf e225 | % | Load 0x1,0x25
01d0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01d1 4503 |E | Exit_Subprogram 0x3
01d2 0000 0000 | | .BLANK 0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc e225 | % | Load 0x1,0x25
01dd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01de 4502 |E | Exit_Subprogram 0x2
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e225 | % | Load 0x1,0x25
01e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e6 4502 |E | Exit_Subprogram 0x2
01e7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
01ec e225 | % | Load 0x1,0x25
01ed 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ee 4502 |E | Exit_Subprogram 0x2
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e225 | % | Load 0x1,0x25
01f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f5 4501 |E | Exit_Subprogram 0x1
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 e225 | % | Load 0x1,0x25
01fc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01fd 4501 |E | Exit_Subprogram 0x1
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 e225 | % | Load 0x1,0x25
0204 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0205 4501 |E | Exit_Subprogram 0x1
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0217 | | .CONST 0x0217 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0006 | | .CONST 0x0006 ; Number of locals
020b INIT_0208:
020b 029f 025b | [| Declare_Subprogram For_Call,INIT_0258
020d e006 | | Load 0x0,0x6
020e 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36
020f 00c6 | | Action Check_Subprogram_Elaborated
0210 4802 |H | Short_Literal 0x2
0211 4802 |H | Short_Literal 0x2
0212 0099 | | Action Reference_Dynamic
0213 e00d | | Load 0x0,0xd
0214 e00e | | Load 0x0,0xe
0215 4806 |H | Short_Literal 0x6
0216 0007 | | Action Break_Optional
0217 BODY_0208:
0217 e225 | % | Load 0x1,0x25
0218 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0219 4803 |H | Short_Literal 0x3
021a 4802 |H | Short_Literal 0x2
021b 0099 | | Action Reference_Dynamic
021c 4804 |H | Short_Literal 0x4
021d 4802 |H | Short_Literal 0x2
021e 0099 | | Action Reference_Dynamic
021f e006 | | Load 0x0,0x6
0220 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0221 e002 | | Load 0x0,0x2
0222 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0223 0165 | e | Execute Variant_Record,Convert
0224 4403 |D | Exit_Subprogram With_Result,0x3
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c e225 | % | Load 0x1,0x25
022d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
022e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022f 0f00 | | Execute_Immediate Equal,0x0
0230 4401 |D | Exit_Subprogram With_Result,0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c e225 | % | Load 0x1,0x25
023d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
023e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023f e5ff | | Load 0x2,-0x1
0240 027d | } | Execute Discrete,Greater
0241 4401 |D | Exit_Subprogram With_Result,0x1
0242 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
024c e225 | % | Load 0x1,0x25
024d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
024e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024f e5ff | | Load 0x2,-0x1
0250 027f | | Execute Discrete,Equal
0251 4401 |D | Exit_Subprogram With_Result,0x1
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e225 | % | Load 0x1,0x25
025d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
025e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025f e5ff | | Load 0x2,-0x1
0260 027d | } | Execute Discrete,Greater
0261 00db | | Load_Top At_Offset_3
0262 e225 | % | Load 0x1,0x25
0263 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0265 e5fe | | Load 0x2,-0x2
0266 027c | | | Execute Discrete,Less
0267 0279 | y | Execute Discrete,And
0268 4401 |D | Exit_Subprogram With_Result,0x1
0269 ; --------------------------------------------------------------------------------------
0269 ; STRING TABLE
0269 ; --------------------------------------------------------------------------------------
0269 000c | | .STRTAB 0x000c->0x026f ; "IS_EMPTY"
026a 0012 | | .STRTAB 0x0012->0x0273 ; "IS_FULL"
026b 0017 | | .STRTAB 0x0017->0x0276 ; "EMPTY_BOXES"
026c 0020 | | .STRTAB 0x0020->0x027c ; "ALL_BOXES"
026d 0027 | ' | .STRTAB 0x0027->0x0280 ; "BOXES"
026e 002a | * | .STREND 0x002a->0x0283
026f 4953 5f45 |IS_E| .STRTAB_STRINGS
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0004 0001 | | .DEBUG4 0x0004,0x0001,0xe589,0x0000,0x0001,0x0019
028e 000b 02f2 | | .DBG4T 0x000b,0x02f2,0x8000,0x8000
0292 006f 0320 | o | .DBG4T 0x006f,0x0320,0x8000,0x0000
0296 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
029a 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000
029e 00fb 0335 | 5| .DBG4T 0x00fb,0x0335,0x0002,0x0000
02a2 0103 0338 | 8| .DBG4T 0x0103,0x0338,0x0002,0x0000
02a6 010b 033b | ;| .DBG4T 0x010b,0x033b,0x0002,0x4000
02aa 0133 0345 | 3 E| .DBG4T 0x0133,0x0345,0x0002,0x0000
02ae 013b 0348 | ; H| .DBG4T 0x013b,0x0348,0x0002,0x0000
02b2 015b 034d | [ M| .DBG4T 0x015b,0x034d,0x0002,0x0000
02b6 0173 0354 | s T| .DBG4T 0x0173,0x0354,0x0002,0x0000
02ba 0193 0359 | Y| .DBG4T 0x0193,0x0359,0x0002,0x0000
02be 01ab 035f | _| .DBG4T 0x01ab,0x035f,0x0001,0x0000
02c2 01c3 0366 | f| .DBG4T 0x01c3,0x0366,0x0001,0x0000
02c6 01db 036c | l| .DBG4T 0x01db,0x036c,0x0001,0x0000
02ca 01e3 036f | o| .DBG4T 0x01e3,0x036f,0x0001,0x0000
02ce 01eb 0372 | r| .DBG4T 0x01eb,0x0372,0x0001,0x0000
02d2 01f3 0375 | u| .DBG4T 0x01f3,0x0375,0x0001,0x0000
02d6 01fb 0378 | x| .DBG4T 0x01fb,0x0378,0x0001,0x0000
02da 0203 037b | {| .DBG4T 0x0203,0x037b,0x0001,0x0000
02de 020b 037e | ~| .DBG4T 0x020b,0x037e,0x0002,0x0000
02e2 022b 0383 | + | .DBG4T 0x022b,0x0383,0x0002,0x0000
02e6 023b 0386 | ; | .DBG4T 0x023b,0x0386,0x0002,0x0000
02ea 024b 0389 | K | .DBG4T 0x024b,0x0389,0x0002,0x0000
02ee 025b 038c | [ | .DBG4T 0x025b,0x038c,0x0002,0x0000
02f2 ; --------------------------------------------------------------------------------------
02f2 ; Debug chain
02f2 ; --------------------------------------------------------------------------------------
02f2 0016 0000 | | .DBGLEN 0x0016,0x0000
02f4 000b 0022 | "| .DBGLNO 0x000b,0x0022,0x0026,0x002c,0x0032,0x0038,0x003e,0x0041,0x0044,0x0047,0x004a,0x004d,0x0050,0x0053,0x0056,0x0059,0x005c,0x005f,0x0062,0x0065,0x0068,0x006b
030a 0001 0002 | | .XXX[0x16]
030c 0005 0006 | |
030e 0007 0008 | |
0310 000b 000c | |
0312 000d 000e | |
0314 000f 0010 | |
0316 0011 0012 | |
0318 0013 0014 | |
031a 0015 0016 | |
031c 0017 0018 | |
031e 0019 001a | |
0320 ; --------------------------------------------------------------------------------------
0320 ; Debug chain
0320 ; --------------------------------------------------------------------------------------
0320 0013 0000 | | .DBGLEN 0x0013,0x0000
0322 006f 0074 | o t| .DBGLNO 0x006f,0x0074,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0
0335 ; --------------------------------------------------------------------------------------
0335 ; Debug chain
0335 ; --------------------------------------------------------------------------------------
0335 0000 0001 | | .DBGLEN 0x0000,0x0001
0337 00fb | | .DBGLNO 0x00fb
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0000 0001 | | .DBGLEN 0x0000,0x0001
033a 0103 | | .DBGLNO 0x0103
033b ; --------------------------------------------------------------------------------------
033b ; Debug chain
033b ; --------------------------------------------------------------------------------------
033b 0002 0003 | | .DBGLEN 0x0002,0x0003
033d 010b 010d | | .DBGLNO 0x010b,0x010d,0x0117,0x011a,0x0129
0342 0001 0003 | | .XXX[0x3]
0344 0002 | |
0345 ; --------------------------------------------------------------------------------------
0345 ; Debug chain
0345 ; --------------------------------------------------------------------------------------
0345 0000 0001 | | .DBGLEN 0x0000,0x0001
0347 0133 | 3 | .DBGLNO 0x0133
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug chain
0348 ; --------------------------------------------------------------------------------------
0348 0002 0001 | | .DBGLEN 0x0002,0x0001
034a 013b 013d | ; =| .DBGLNO 0x013b,0x013d,0x0147
034d ; --------------------------------------------------------------------------------------
034d ; Debug chain
034d ; --------------------------------------------------------------------------------------
034d 0002 0003 | | .DBGLEN 0x0002,0x0003
034f 015b 0160 | [ `| .DBGLNO 0x015b,0x0160,0x0162,0x0168,0x016d
0354 ; --------------------------------------------------------------------------------------
0354 ; Debug chain
0354 ; --------------------------------------------------------------------------------------
0354 0002 0001 | | .DBGLEN 0x0002,0x0001
0356 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x017f
0359 ; --------------------------------------------------------------------------------------
0359 ; Debug chain
0359 ; --------------------------------------------------------------------------------------
0359 0001 0003 | | .DBGLEN 0x0001,0x0003
035b 0193 0195 | | .DBGLNO 0x0193,0x0195,0x0198,0x019b
035f ; --------------------------------------------------------------------------------------
035f ; Debug chain
035f ; --------------------------------------------------------------------------------------
035f 0001 0004 | | .DBGLEN 0x0001,0x0004
0361 01ab 01ad | | .DBGLNO 0x01ab,0x01ad,0x01b2,0x01b5,0x01b8
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug chain
0366 ; --------------------------------------------------------------------------------------
0366 0001 0003 | | .DBGLEN 0x0001,0x0003
0368 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01ca,0x01cd
036c ; --------------------------------------------------------------------------------------
036c ; Debug chain
036c ; --------------------------------------------------------------------------------------
036c 0000 0001 | | .DBGLEN 0x0000,0x0001
036e 01db | | .DBGLNO 0x01db
036f ; --------------------------------------------------------------------------------------
036f ; Debug chain
036f ; --------------------------------------------------------------------------------------
036f 0000 0001 | | .DBGLEN 0x0000,0x0001
0371 01e3 | | .DBGLNO 0x01e3
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug chain
0372 ; --------------------------------------------------------------------------------------
0372 0000 0001 | | .DBGLEN 0x0000,0x0001
0374 01eb | | .DBGLNO 0x01eb
0375 ; --------------------------------------------------------------------------------------
0375 ; Debug chain
0375 ; --------------------------------------------------------------------------------------
0375 0000 0001 | | .DBGLEN 0x0000,0x0001
0377 01f3 | | .DBGLNO 0x01f3
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug chain
0378 ; --------------------------------------------------------------------------------------
0378 0000 0001 | | .DBGLEN 0x0000,0x0001
037a 01fb | | .DBGLNO 0x01fb
037b ; --------------------------------------------------------------------------------------
037b ; Debug chain
037b ; --------------------------------------------------------------------------------------
037b 0000 0001 | | .DBGLEN 0x0000,0x0001
037d 0203 | | .DBGLNO 0x0203
037e ; --------------------------------------------------------------------------------------
037e ; Debug chain
037e ; --------------------------------------------------------------------------------------
037e 0002 0001 | | .DBGLEN 0x0002,0x0001
0380 020b 020d | | .DBGLNO 0x020b,0x020d,0x0217
0383 ; --------------------------------------------------------------------------------------
0383 ; Debug chain
0383 ; --------------------------------------------------------------------------------------
0383 0000 0001 | | .DBGLEN 0x0000,0x0001
0385 022b | + | .DBGLNO 0x022b
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug chain
0386 ; --------------------------------------------------------------------------------------
0386 0000 0001 | | .DBGLEN 0x0000,0x0001
0388 023b | ; | .DBGLNO 0x023b
0389 ; --------------------------------------------------------------------------------------
0389 ; Debug chain
0389 ; --------------------------------------------------------------------------------------
0389 0000 0001 | | .DBGLEN 0x0000,0x0001
038b 024b | K | .DBGLNO 0x024b
038c ; --------------------------------------------------------------------------------------
038c ; Debug chain
038c ; --------------------------------------------------------------------------------------
038c 0000 0001 | | .DBGLEN 0x0000,0x0001
038e 025b | [ | .DBGLNO 0x025b
038f 0000 0000 | | .BLANK 0000[0x71]