|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03f8e1
└─⟦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 0408 | | .CONST 0x0408 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00c4 | | .CONST 0x00c4 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002c | , | .CONST 0x002c ; 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 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 0092 03a9 | | Action Push_String_Extended,0x3a9 ; "BALLS" 002b 0129 | ) | Execute Any,Make_Visible 002c c221 | ! | Store 0x1,0x21 002d 4801 |H | Short_Literal 0x1 002e e221 | ! | Load 0x1,0x21 002f e001 | | Load 0x0,0x1 0030 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0031 0129 | ) | Execute Any,Make_Visible 0032 c226 | & | Store 0x1,0x26 0033 e226 | & | Load 0x1,0x26 0034 e002 | | Load 0x0,0x2 0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0036 1c07 | | Execute_Immediate Run_Utility,0x7 0037 0129 | ) | Execute Any,Make_Visible 0038 c223 | # | Store 0x1,0x23 0039 4800 |H | Short_Literal 0x0 003a 4804 |H | Short_Literal 0x4 003b 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 003d 03fe | | Declare_Type Discrete,Defined,Visible 003e c20e | | Store 0x1,0xe 003f 4800 |H | Short_Literal 0x0 0040 4801 |H | Short_Literal 0x1 0041 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0043 03fe | | Declare_Type Discrete,Defined,Visible 0044 c20f | | Store 0x1,0xf 0045 4800 |H | Short_Literal 0x0 0046 4808 |H | Short_Literal 0x8 0047 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0049 03fe | | Declare_Type Discrete,Defined,Visible 004a c210 | | Store 0x1,0x10 004b 4800 |H | Short_Literal 0x0 004c 4803 |H | Short_Literal 0x3 004d 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 004f 03fe | | Declare_Type Discrete,Defined,Visible 0050 c211 | | Store 0x1,0x11 0051 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0053 c212 | | Store 0x1,0x12 0054 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0056 c213 | | Store 0x1,0x13 0057 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0059 c214 | | Store 0x1,0x14 005a 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 005c c215 | | Store 0x1,0x15 005d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 005f c220 | | Store 0x1,0x20 0060 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0062 c216 | | Store 0x1,0x16 0063 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0065 c217 | | Store 0x1,0x17 0066 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0068 c218 | | Store 0x1,0x18 0069 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 006b c219 | | Store 0x1,0x19 006c 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 006e c21a | | Store 0x1,0x1a 006f 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0071 c21b | | Store 0x1,0x1b 0072 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0074 c21c | | Store 0x1,0x1c 0075 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0077 c21d | | Store 0x1,0x1d 0078 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 007a c227 | ' | Store 0x1,0x27 007b 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 007d c228 | ( | Store 0x1,0x28 007e 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0080 c21e | | Store 0x1,0x1e 0081 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0083 c21f | | Store 0x1,0x1f 0084 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0086 c229 | ) | Store 0x1,0x29 0087 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0089 c22a | * | Store 0x1,0x2a 008a 00bf | | Action Accept_Activation 008b 00e3 | | Load_Encached Natural_Cache 008c e20e | | Load 0x1,0xe 008d e20f | | Load 0x1,0xf 008e 00e3 | | Load_Encached Natural_Cache 008f 02a0 | | Declare_Subprogram Null_Subprogram 0090 4804 |H | Short_Literal 0x4 0091 032d | - | Declare_Type Record,Defined 0092 e003 | | Load 0x0,0x3 0093 e004 | | Load 0x0,0x4 0094 00da | | Load_Top At_Offset_2 0095 e221 | ! | Load 0x1,0x21 0096 4801 |H | Short_Literal 0x1 0097 4801 |H | Short_Literal 0x1 0098 e002 | | Load 0x0,0x2 0099 1918 | | Execute Package,Field_Reference,Field_Number 0x18 009a e005 | | Load 0x0,0x5 009b 0387 | | Declare_Variable Package 009c 00d8 | | Load_Top At_Offset_0 009d 020f | | Execute Module,Activate 009e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00c3 00c7 | | Action Elaborate_Subprogram 00c4 BODY_0008: 00c4 00bc | | Action Signal_Activated 00c5 00bb | | Action Signal_Completion 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4607 |F | Jump_Case 0x8 00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00cd 7806 |x | Jump 0xd4 ; case 0x1 00ce 7809 |x | Jump 0xd8 ; case 0x2 00cf 780d |x | Jump 0xdd ; case 0x3 00d0 7810 |x | Jump 0xe1 ; case 0x4 00d1 7811 |x | Jump 0xe3 ; case 0x5 00d2 7812 |x | Jump 0xe5 ; case 0x6 00d3 7815 |x | Jump 0xe9 ; case 0x7 00d4 00da | | Load_Top At_Offset_2 00d5 0091 0395 | | Action Push_String_Extended_Indexed,0x395 ; "WHITE" 00d7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d8 00db | | Load_Top At_Offset_3 00d9 00db | | Load_Top At_Offset_3 00da 00e0 | | Load_Encached Standard_Cache 00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dd 00da | | Load_Top At_Offset_2 00de 00e0 | | Load_Encached Standard_Cache 00df 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e1 00db | | Load_Top At_Offset_3 00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e3 00db | | Load_Top At_Offset_3 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 e20e | | Load 0x1,0xe 00e6 00dc | | Load_Top At_Offset_4 00e7 0267 | g | Execute Discrete,Predecessor 00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e9 e20e | | Load 0x1,0xe 00ea 00dc | | Load_Top At_Offset_4 00eb 0268 | h | Execute Discrete,Successor 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4607 |F | Jump_Case 0x8 00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00f5 7806 |x | Jump 0xfc ; case 0x1 00f6 7809 |x | Jump 0x100 ; case 0x2 00f7 780d |x | Jump 0x105 ; case 0x3 00f8 7810 |x | Jump 0x109 ; case 0x4 00f9 7811 |x | Jump 0x10b ; case 0x5 00fa 7812 |x | Jump 0x10d ; case 0x6 00fb 7815 |x | Jump 0x111 ; case 0x7 00fc 00da | | Load_Top At_Offset_2 00fd 0091 039a | | Action Push_String_Extended_Indexed,0x39a ; "IS_ON_HEAP" 00ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0100 00db | | Load_Top At_Offset_3 0101 00db | | Load_Top At_Offset_3 0102 00e0 | | Load_Encached Standard_Cache 0103 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 00da | | Load_Top At_Offset_2 0106 00e0 | | Load_Encached Standard_Cache 0107 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0108 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0109 00db | | Load_Top At_Offset_3 010a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010b 00db | | Load_Top At_Offset_3 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d e20f | | Load 0x1,0xf 010e 00dc | | Load_Top At_Offset_4 010f 0267 | g | Execute Discrete,Predecessor 0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0111 e20f | | Load 0x1,0xf 0112 00dc | | Load_Top At_Offset_4 0113 0268 | h | Execute Discrete,Successor 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7806 |x | Jump 0x124 ; case 0x1 011e 7809 |x | Jump 0x128 ; case 0x2 011f 780d |x | Jump 0x12d ; case 0x3 0120 7810 |x | Jump 0x131 ; case 0x4 0121 7811 |x | Jump 0x133 ; case 0x5 0122 7812 |x | Jump 0x135 ; case 0x6 0123 7815 |x | Jump 0x139 ; case 0x7 0124 00da | | Load_Top At_Offset_2 0125 0091 039c | | Action Push_String_Extended_Indexed,0x39c ; "BALLS_ON_HEAP" 0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0128 00db | | Load_Top At_Offset_3 0129 00db | | Load_Top At_Offset_3 012a 00e0 | | Load_Encached Standard_Cache 012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d 00da | | Load_Top At_Offset_2 012e 00e0 | | Load_Encached Standard_Cache 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0133 00db | | Load_Top At_Offset_3 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 e210 | | Load 0x1,0x10 0136 00dc | | Load_Top At_Offset_4 0137 0267 | g | Execute Discrete,Predecessor 0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0139 e210 | | Load 0x1,0x10 013a 00dc | | Load_Top At_Offset_4 013b 0268 | h | Execute Discrete,Successor 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4607 |F | Jump_Case 0x8 0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0145 7806 |x | Jump 0x14c ; case 0x1 0146 7809 |x | Jump 0x150 ; case 0x2 0147 780d |x | Jump 0x155 ; case 0x3 0148 7810 |x | Jump 0x159 ; case 0x4 0149 7811 |x | Jump 0x15b ; case 0x5 014a 7812 |x | Jump 0x15d ; case 0x6 014b 7815 |x | Jump 0x161 ; case 0x7 014c 00da | | Load_Top At_Offset_2 014d 0091 03a5 | | Action Push_String_Extended_Indexed,0x3a5 ; "IS_SIZE" 014f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0150 00db | | Load_Top At_Offset_3 0151 00db | | Load_Top At_Offset_3 0152 00e0 | | Load_Encached Standard_Cache 0153 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0155 00da | | Load_Top At_Offset_2 0156 00e0 | | Load_Encached Standard_Cache 0157 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0158 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0159 00db | | Load_Top At_Offset_3 015a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015b 00db | | Load_Top At_Offset_3 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d e211 | | Load 0x1,0x11 015e 00dc | | Load_Top At_Offset_4 015f 0267 | g | Execute Discrete,Predecessor 0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0161 e211 | | Load 0x1,0x11 0162 00dc | | Load_Top At_Offset_4 0163 0268 | h | Execute Discrete,Successor 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c e22c | , | Load 0x1,0x2c 016d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 016e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 e22c | , | Load 0x1,0x2c 0175 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0176 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e22c | , | Load 0x1,0x2c 017d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 017e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0184 e22c | , | Load 0x1,0x2c 0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0186 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e22c | , | Load 0x1,0x2c 018c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 018d 00ca | | Action Exit_Nullary_Function 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01b7 | | .CONST 0x01b7 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0010 | | .CONST 0x0010 ; Number of locals 0193 INIT_0190: 0193 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 0195 e006 | | Load 0x0,0x6 0196 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 0197 00c6 | | Action Check_Subprogram_Elaborated 0198 4802 |H | Short_Literal 0x2 0199 4802 |H | Short_Literal 0x2 019a 0099 | | Action Reference_Dynamic 019b e007 | | Load 0x0,0x7 019c e008 | | Load 0x0,0x8 019d 4806 |H | Short_Literal 0x6 019e 0007 | | Action Break_Optional 019f 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 01a1 e006 | | Load 0x0,0x6 01a2 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 01a3 00c6 | | Action Check_Subprogram_Elaborated 01a4 4807 |H | Short_Literal 0x7 01a5 4802 |H | Short_Literal 0x2 01a6 0099 | | Action Reference_Dynamic 01a7 e009 | | Load 0x0,0x9 01a8 e00a | | Load 0x0,0xa 01a9 480b |H | Short_Literal 0xb 01aa 0007 | | Action Break_Optional 01ab 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 01ad e006 | | Load 0x0,0x6 01ae 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 01af 00c6 | | Action Check_Subprogram_Elaborated 01b0 480c |H | Short_Literal 0xc 01b1 4802 |H | Short_Literal 0x2 01b2 0099 | | Action Reference_Dynamic 01b3 e00b | | Load 0x0,0xb 01b4 e00c | | Load 0x0,0xc 01b5 4810 |H | Short_Literal 0x10 01b6 0007 | | Action Break_Optional 01b7 BODY_0190: 01b7 e5ff | | Load 0x2,-0x1 01b8 4608 |F | Jump_Case 0x9 01b9 7829 |x) | Jump 0x1e3 ; case 0x0 01ba 7837 |x7 | Jump 0x1f2 ; case 0x1 01bb 7809 |x | Jump 0x1c5 ; case 0x2 01bc 7817 |x | Jump 0x1d4 ; case 0x3 01bd 7834 |x4 | Jump 0x1f2 ; case 0x4 01be 7833 |x3 | Jump 0x1f2 ; case 0x5 01bf 7832 |x2 | Jump 0x1f2 ; case 0x6 01c0 7831 |x1 | Jump 0x1f2 ; case 0x7 01c1 7800 |x | Jump 0x1c2 ; case 0x8 01c2 e22c | , | Load 0x1,0x2c 01c3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c5 6032 |`2 | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x7fffffff} 01c6 e22c | , | Load 0x1,0x2c 01c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c8 4803 |H | Short_Literal 0x3 01c9 4802 |H | Short_Literal 0x2 01ca 0099 | | Action Reference_Dynamic 01cb 4804 |H | Short_Literal 0x4 01cc 4802 |H | Short_Literal 0x2 01cd 0099 | | Action Reference_Dynamic 01ce e006 | | Load 0x0,0x6 01cf 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01d0 e006 | | Load 0x0,0x6 01d1 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01d2 01c6 | | Execute Vector,Convert_To_Formal 01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d4 6023 |`# | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x7fffffff} 01d5 e22c | , | Load 0x1,0x2c 01d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d7 4808 |H | Short_Literal 0x8 01d8 4802 |H | Short_Literal 0x2 01d9 0099 | | Action Reference_Dynamic 01da 4809 |H | Short_Literal 0x9 01db 4802 |H | Short_Literal 0x2 01dc 0099 | | Action Reference_Dynamic 01dd e006 | | Load 0x0,0x6 01de 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01df e006 | | Load 0x0,0x6 01e0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01e1 01c6 | | Execute Vector,Convert_To_Formal 01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e3 6014 |` | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x7fffffff} 01e4 e22c | , | Load 0x1,0x2c 01e5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e6 480d |H | Short_Literal 0xd 01e7 4802 |H | Short_Literal 0x2 01e8 0099 | | Action Reference_Dynamic 01e9 480e |H | Short_Literal 0xe 01ea 4802 |H | Short_Literal 0x2 01eb 0099 | | Action Reference_Dynamic 01ec e006 | | Load 0x0,0x6 01ed 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01ee e006 | | Load 0x0,0x6 01ef 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01f0 01c6 | | Execute Vector,Convert_To_Formal 01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f2 e22c | , | Load 0x1,0x2c 01f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020f | | .CONST 0x020f ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0006 | | .CONST 0x0006 ; Number of locals 0203 INIT_0200: 0203 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call 0205 e006 | | Load 0x0,0x6 0206 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 0207 00c6 | | Action Check_Subprogram_Elaborated 0208 4802 |H | Short_Literal 0x2 0209 4802 |H | Short_Literal 0x2 020a 0099 | | Action Reference_Dynamic 020b e00d | | Load 0x0,0xd 020c e00e | | Load 0x0,0xe 020d 4806 |H | Short_Literal 0x6 020e 0007 | | Action Break_Optional 020f BODY_0200: 020f e5fd | | Load 0x2,-0x3 0210 8216 | | Call 0x1,0x16 0211 4803 |H | Short_Literal 0x3 0212 4802 |H | Short_Literal 0x2 0213 0099 | | Action Reference_Dynamic 0214 4804 |H | Short_Literal 0x4 0215 4802 |H | Short_Literal 0x2 0216 0099 | | Action Reference_Dynamic 0217 e006 | | Load 0x0,0x6 0218 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0219 00e1 | | Load_Encached Boolean_Cache 021a 025e | ^ | Execute Discrete,Convert 021b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022f | / | .CONST 0x022f ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0006 | | .CONST 0x0006 ; Number of locals 0223 INIT_0220: 0223 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call 0225 e006 | | Load 0x0,0x6 0226 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 0227 00c6 | | Action Check_Subprogram_Elaborated 0228 4802 |H | Short_Literal 0x2 0229 4802 |H | Short_Literal 0x2 022a 0099 | | Action Reference_Dynamic 022b e00f | | Load 0x0,0xf 022c e010 | | Load 0x0,0x10 022d 4806 |H | Short_Literal 0x6 022e 0007 | | Action Break_Optional 022f BODY_0220: 022f e5fc | | Load 0x2,-0x4 0230 8216 | | Call 0x1,0x16 0231 4803 |H | Short_Literal 0x3 0232 4802 |H | Short_Literal 0x2 0233 0099 | | Action Reference_Dynamic 0234 4804 |H | Short_Literal 0x4 0235 4802 |H | Short_Literal 0x2 0236 0099 | | Action Reference_Dynamic 0237 e006 | | Load 0x0,0x6 0238 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0239 00e1 | | Load_Encached Boolean_Cache 023a 025e | ^ | Execute Discrete,Convert 023b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024f | O | .CONST 0x024f ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0006 | | .CONST 0x0006 ; Number of locals 0243 INIT_0240: 0243 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 0245 e006 | | Load 0x0,0x6 0246 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 0247 00c6 | | Action Check_Subprogram_Elaborated 0248 4802 |H | Short_Literal 0x2 0249 4802 |H | Short_Literal 0x2 024a 0099 | | Action Reference_Dynamic 024b e011 | | Load 0x0,0x11 024c e012 | | Load 0x0,0x12 024d 4806 |H | Short_Literal 0x6 024e 0007 | | Action Break_Optional 024f BODY_0240: 024f e5fe | | Load 0x2,-0x2 0250 8216 | | Call 0x1,0x16 0251 4803 |H | Short_Literal 0x3 0252 4802 |H | Short_Literal 0x2 0253 0099 | | Action Reference_Dynamic 0254 4804 |H | Short_Literal 0x4 0255 4802 |H | Short_Literal 0x2 0256 0099 | | Action Reference_Dynamic 0257 e006 | | Load 0x0,0x6 0258 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0259 00e1 | | Load_Encached Boolean_Cache 025a 025e | ^ | Execute Discrete,Convert 025b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 026f | o | .CONST 0x026f ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0006 | | .CONST 0x0006 ; Number of locals 0263 INIT_0260: 0263 029f 038b | | Declare_Subprogram INIT_0388,For_Call 0265 e006 | | Load 0x0,0x6 0266 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 0267 00c6 | | Action Check_Subprogram_Elaborated 0268 4802 |H | Short_Literal 0x2 0269 4802 |H | Short_Literal 0x2 026a 0099 | | Action Reference_Dynamic 026b e013 | | Load 0x0,0x13 026c e014 | | Load 0x0,0x14 026d 4806 |H | Short_Literal 0x6 026e 0007 | | Action Break_Optional 026f BODY_0260: 026f e5fe | | Load 0x2,-0x2 0270 8216 | | Call 0x1,0x16 0271 4803 |H | Short_Literal 0x3 0272 4802 |H | Short_Literal 0x2 0273 0099 | | Action Reference_Dynamic 0274 4804 |H | Short_Literal 0x4 0275 4802 |H | Short_Literal 0x2 0276 0099 | | Action Reference_Dynamic 0277 e006 | | Load 0x0,0x6 0278 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0279 00e1 | | Load_Encached Boolean_Cache 027a 025e | ^ | Execute Discrete,Convert 027b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0285 | | .CONST 0x0285 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 e22b | + | Load 0x1,0x2b 0284 0322 | " | Declare_Variable Record 0285 BODY_0280: 0285 00db | | Load_Top At_Offset_3 0286 00d9 | | Load_Top At_Offset_1 0287 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0288 e5fe | | Load 0x2,-0x2 0289 00d9 | | Load_Top At_Offset_1 028a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 028b e5fd | | Load 0x2,-0x3 028c 00d9 | | Load_Top At_Offset_1 028d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 028e e5fc | | Load 0x2,-0x4 028f 00d9 | | Load_Top At_Offset_1 0290 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0291 00d8 | | Load_Top At_Offset_0 0292 e22c | , | Load 0x1,0x2c 0293 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0294 e223 | # | Load 0x1,0x23 0295 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0296 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029d | | .CONST 0x029d ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e22b | + | Load 0x1,0x2b 029c 0322 | " | Declare_Variable Record 029d BODY_0298: 029d 00db | | Load_Top At_Offset_3 029e e22c | , | Load 0x1,0x2c 029f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02a0 00d9 | | Load_Top At_Offset_1 02a1 017d | } | Execute Record,Structure_Write 02a2 e5fe | | Load 0x2,-0x2 02a3 00d9 | | Load_Top At_Offset_1 02a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a5 e5fd | | Load 0x2,-0x3 02a6 00d9 | | Load_Top At_Offset_1 02a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a8 e5fc | | Load 0x2,-0x4 02a9 00d9 | | Load_Top At_Offset_1 02aa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02ab e5fb | | Load 0x2,-0x5 02ac 00d9 | | Load_Top At_Offset_1 02ad 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02ae 00d8 | | Load_Top At_Offset_0 02af e5ff | | Load 0x2,-0x1 02b0 e22c | , | Load 0x1,0x2c 02b1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02b2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bd | | .CONST 0x02bd ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb e22b | + | Load 0x1,0x2b 02bc 0322 | " | Declare_Variable Record 02bd BODY_02b8: 02bd 00db | | Load_Top At_Offset_3 02be e22c | , | Load 0x1,0x2c 02bf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02c0 00d9 | | Load_Top At_Offset_1 02c1 017d | } | Execute Record,Structure_Write 02c2 e5fe | | Load 0x2,-0x2 02c3 00d9 | | Load_Top At_Offset_1 02c4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02c5 00d8 | | Load_Top At_Offset_0 02c6 e5ff | | Load 0x2,-0x1 02c7 e22c | , | Load 0x1,0x2c 02c8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ca 0000 0000 | | .BLANK 0000[0x6] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 e22c | , | Load 0x1,0x2c 02d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d7 0000 | | .XXX[0x1] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 00da | | Load_Top At_Offset_2 02dc e22c | , | Load 0x1,0x2c 02dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02df 0000 | | .XXX[0x1] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 e22c | , | Load 0x1,0x2c 02e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e7 0000 | | .XXX[0x1] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e22c | , | Load 0x1,0x2c 02ec 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ee 0000 0000 | | .XXX[0x2] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 e22c | , | Load 0x1,0x2c 02f4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e22c | , | Load 0x1,0x2c 02fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 e22c | , | Load 0x1,0x2c 0305 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0306 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0307 0f00 | | Execute_Immediate Equal,0x0 0308 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0309 0000 0000 | | .BLANK 0000[0x7] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 e22c | , | Load 0x1,0x2c 0315 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0316 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0317 0f01 | | Execute_Immediate Equal,0x1 0318 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0319 0000 0000 | | .BLANK 0000[0x7] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 e22c | , | Load 0x1,0x2c 0325 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0326 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0327 0f00 | | Execute_Immediate Equal,0x0 0328 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0329 0000 0000 | | .BLANK 0000[0x7] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 e5ff | | Load 0x2,-0x1 0334 4603 |F | Jump_Case 0x4 0335 7805 |x | Jump 0x33b ; case 0x0 0336 780b |x | Jump 0x342 ; case 0x1 0337 7801 |x | Jump 0x339 ; case 0x2 0338 7800 |x | Jump 0x339 ; case 0x3 0339 4800 |H | Short_Literal 0x0 033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033b 00da | | Load_Top At_Offset_2 033c e22c | , | Load 0x1,0x2c 033d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 033e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 033f e5fe | | Load 0x2,-0x2 0340 027d | } | Execute Discrete,Greater 0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0342 00da | | Load_Top At_Offset_2 0343 e22c | , | Load 0x1,0x2c 0344 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0345 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0346 e5fe | | Load 0x2,-0x2 0347 027d | } | Execute Discrete,Greater 0348 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0349 0000 0000 | | .BLANK 0000[0x7] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e5ff | | Load 0x2,-0x1 0354 4603 |F | Jump_Case 0x4 0355 7805 |x | Jump 0x35b ; case 0x0 0356 7812 |x | Jump 0x369 ; case 0x1 0357 7801 |x | Jump 0x359 ; case 0x2 0358 7800 |x | Jump 0x359 ; case 0x3 0359 4800 |H | Short_Literal 0x0 035a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035b 00da | | Load_Top At_Offset_2 035c e22c | , | Load 0x1,0x2c 035d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 035e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 035f e5fe | | Load 0x2,-0x2 0360 027b | { | Execute Discrete,Greater_Equal 0361 00db | | Load_Top At_Offset_3 0362 e22c | , | Load 0x1,0x2c 0363 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0364 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0365 e5fd | | Load 0x2,-0x3 0366 027a | z | Execute Discrete,Less_Equal 0367 0279 | y | Execute Discrete,And 0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0369 00da | | Load_Top At_Offset_2 036a e22c | , | Load 0x1,0x2c 036b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 036c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 036d e5fe | | Load 0x2,-0x2 036e 027b | { | Execute Discrete,Greater_Equal 036f 00db | | Load_Top At_Offset_3 0370 e22c | , | Load 0x1,0x2c 0371 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0372 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0373 e5fd | | Load 0x2,-0x3 0374 027a | z | Execute Discrete,Less_Equal 0375 0279 | y | Execute Discrete,And 0376 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0377 0000 | | .XXX[0x1] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c e22c | , | Load 0x1,0x2c 037d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 037e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 037f e5ff | | Load 0x2,-0x1 0380 027f | | Execute Discrete,Equal 0381 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0382 0000 0000 | | .BLANK 0000[0x6] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c e22c | , | Load 0x1,0x2c 038d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 038e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 038f e20e | | Load 0x1,0xe 0390 011c | | Execute Any,Convert_Unchecked 0391 1c01 | | Execute_Immediate Run_Utility,0x1 0392 e5ff | | Load 0x2,-0x1 0393 01df | | Execute Vector,Equal 0394 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0395 ; -------------------------------------------------------------------------------------- 0395 ; STRING TABLE 0395 ; -------------------------------------------------------------------------------------- 0395 002c | , | .STRTAB 0x002c->0x03ab ; "WHITE" 0396 002f | / | .STRTAB 0x002f->0x03ad ; "RED" 0397 0030 | 0 | .STRTAB 0x0030->0x03af ; "YELLOW" 0398 0034 | 4 | .STRTAB 0x0034->0x03b2 ; "GREEN" 0399 0037 | 7 | .STRTAB 0x0037->0x03b4 ; "BLUE" 039a 0039 | 9 | .STRTAB 0x0039->0x03b6 ; "IS_ON_HEAP" 039b 0041 | A | .STRTAB 0x0041->0x03bb ; "IS_IN_BOX" 039c 0048 | H | .STRTAB 0x0048->0x03c0 ; "BALLS_ON_HEAP" 039d 0053 | S | .STRTAB 0x0053->0x03c6 ; "BALLS_IN_BOX" 039e 005d | ] | .STRTAB 0x005d->0x03cc ; "WHITE_BALLS" 039f 0066 | f | .STRTAB 0x0066->0x03d2 ; "RED_BALLS" 03a0 006d | m | .STRTAB 0x006d->0x03d6 ; "YELLOW_BALLS" 03a1 0077 | w | .STRTAB 0x0077->0x03dc ; "GREEN_BALLS" 03a2 0080 | | .STRTAB 0x0080->0x03e2 ; "BLUE_BALLS" 03a3 0088 | | .STRTAB 0x0088->0x03e7 ; "BIG_BALLS" 03a4 008f | | .STRTAB 0x008f->0x03eb ; "ALL_BALLS" 03a5 0096 | | .STRTAB 0x0096->0x03f0 ; "IS_SIZE" 03a6 009b | | .STRTAB 0x009b->0x03f3 ; "IS_WEIGHT" 03a7 00a2 | | .STRTAB 0x00a2->0x03f8 ; "IS_COLOR" 03a8 00a8 | | .STRTAB 0x00a8->0x03fc ; "IS_PLACE" 03a9 00ae | | .STRTAB 0x00ae->0x0400 ; "BALLS" 03aa 00b1 | | .STREND 0x00b1->0x0402 03ab 5748 4954 |WHIT| .STRTAB_STRINGS 0403 0000 0000 | | .BLANK 0000[0x5] 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug Table 0408 ; -------------------------------------------------------------------------------------- 0408 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdc85,0x0000,0x0001,0x0020 040e 000b 048e | | .DBG4T 0x000b,0x048e,0x8000,0x8000 0412 008b 04c4 | | .DBG4T 0x008b,0x04c4,0x8000,0x0000 0416 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x0005,0x0000 041a 00f3 0000 | | .DBG4T 0x00f3,0x0000,0x0005,0x0000 041e 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000 0422 0143 0000 | C | .DBG4T 0x0143,0x0000,0x0005,0x0000 0426 016b 04db | k | .DBG4T 0x016b,0x04db,0x0002,0x0000 042a 0173 04de | s | .DBG4T 0x0173,0x04de,0x0002,0x0000 042e 017b 04e1 | { | .DBG4T 0x017b,0x04e1,0x0002,0x0000 0432 0183 04e4 | | .DBG4T 0x0183,0x04e4,0x0002,0x0000 0436 018b 04e7 | | .DBG4T 0x018b,0x04e7,0x0002,0x0000 043a 0193 04ea | | .DBG4T 0x0193,0x04ea,0x0002,0x0000 043e 0203 04f8 | | .DBG4T 0x0203,0x04f8,0x0002,0x0000 0442 0223 04fd | # | .DBG4T 0x0223,0x04fd,0x0002,0x0000 0446 0243 0502 | C | .DBG4T 0x0243,0x0502,0x0002,0x0000 044a 0263 0507 | c | .DBG4T 0x0263,0x0507,0x0002,0x0000 044e 0283 050c | | .DBG4T 0x0283,0x050c,0x0002,0x0000 0452 029b 0514 | | .DBG4T 0x029b,0x0514,0x0001,0x0000 0456 02bb 051d | | .DBG4T 0x02bb,0x051d,0x0001,0x0000 045a 02d3 0523 | #| .DBG4T 0x02d3,0x0523,0x0001,0x0000 045e 02db 0526 | &| .DBG4T 0x02db,0x0526,0x0001,0x0000 0462 02e3 0529 | )| .DBG4T 0x02e3,0x0529,0x0001,0x0000 0466 02eb 052c | ,| .DBG4T 0x02eb,0x052c,0x0001,0x0000 046a 02f3 052f | /| .DBG4T 0x02f3,0x052f,0x0001,0x0000 046e 02fb 0532 | 2| .DBG4T 0x02fb,0x0532,0x0001,0x0000 0472 0303 0535 | 5| .DBG4T 0x0303,0x0535,0x0002,0x0000 0476 0313 0538 | 8| .DBG4T 0x0313,0x0538,0x0002,0x0000 047a 0323 053b | # ;| .DBG4T 0x0323,0x053b,0x0002,0x0000 047e 0333 053e | 3 >| .DBG4T 0x0333,0x053e,0x0002,0x4000 0482 0353 0548 | S H| .DBG4T 0x0353,0x0548,0x0002,0x4000 0486 037b 0552 | { R| .DBG4T 0x037b,0x0552,0x0002,0x0000 048a 038b 0555 | U| .DBG4T 0x038b,0x0555,0x0002,0x0000 048e ; -------------------------------------------------------------------------------------- 048e ; Debug chain 048e ; -------------------------------------------------------------------------------------- 048e 001a 0000 | | .DBGLEN 0x001a,0x0000 0490 0029 002d | ) -| .DBGLNO 0x0029,0x002d,0x0033,0x0039,0x003f,0x0045,0x004b,0x0051,0x0054,0x0057,0x005a,0x005d,0x0060,0x0063,0x0066,0x0069,0x006c,0x006f,0x0072,0x0075,0x0078,0x007b,0x007e,0x0081,0x0084,0x0087 04aa 0001 0004 | | .XXX[0x1a] 04ac 0005 0006 | | 04ae 0007 0008 | | 04b0 0009 000e | | 04b2 000f 0010 | | 04b4 0011 0012 | | 04b6 0013 0014 | | 04b8 0015 0016 | | 04ba 0017 0018 | | 04bc 0019 001a | | 04be 001b 001c | | 04c0 001d 001e | | 04c2 001f 0020 | | 04c4 ; -------------------------------------------------------------------------------------- 04c4 ; Debug chain 04c4 ; -------------------------------------------------------------------------------------- 04c4 0015 0000 | | .DBGLEN 0x0015,0x0000 04c6 008b 0092 | | .DBGLNO 0x008b,0x0092,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2 04db ; -------------------------------------------------------------------------------------- 04db ; Debug chain 04db ; -------------------------------------------------------------------------------------- 04db 0000 0001 | | .DBGLEN 0x0000,0x0001 04dd 016b | k | .DBGLNO 0x016b 04de ; -------------------------------------------------------------------------------------- 04de ; Debug chain 04de ; -------------------------------------------------------------------------------------- 04de 0000 0001 | | .DBGLEN 0x0000,0x0001 04e0 0173 | s | .DBGLNO 0x0173 04e1 ; -------------------------------------------------------------------------------------- 04e1 ; Debug chain 04e1 ; -------------------------------------------------------------------------------------- 04e1 0000 0001 | | .DBGLEN 0x0000,0x0001 04e3 017b | { | .DBGLNO 0x017b 04e4 ; -------------------------------------------------------------------------------------- 04e4 ; Debug chain 04e4 ; -------------------------------------------------------------------------------------- 04e4 0000 0001 | | .DBGLEN 0x0000,0x0001 04e6 0183 | | .DBGLNO 0x0183 04e7 ; -------------------------------------------------------------------------------------- 04e7 ; Debug chain 04e7 ; -------------------------------------------------------------------------------------- 04e7 0000 0001 | | .DBGLEN 0x0000,0x0001 04e9 018b | | .DBGLNO 0x018b 04ea ; -------------------------------------------------------------------------------------- 04ea ; Debug chain 04ea ; -------------------------------------------------------------------------------------- 04ea 0006 0006 | | .DBGLEN 0x0006,0x0006 04ec 0193 0195 | | .DBGLNO 0x0193,0x0195,0x019f,0x01a1,0x01ab,0x01ad,0x01b7,0x01c2,0x01c5,0x01d4,0x01e3,0x01f2 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; Debug chain 04f8 ; -------------------------------------------------------------------------------------- 04f8 0002 0001 | | .DBGLEN 0x0002,0x0001 04fa 0203 0205 | | .DBGLNO 0x0203,0x0205,0x020f 04fd ; -------------------------------------------------------------------------------------- 04fd ; Debug chain 04fd ; -------------------------------------------------------------------------------------- 04fd 0002 0001 | | .DBGLEN 0x0002,0x0001 04ff 0223 0225 | # %| .DBGLNO 0x0223,0x0225,0x022f 0502 ; -------------------------------------------------------------------------------------- 0502 ; Debug chain 0502 ; -------------------------------------------------------------------------------------- 0502 0002 0001 | | .DBGLEN 0x0002,0x0001 0504 0243 0245 | C E| .DBGLNO 0x0243,0x0245,0x024f 0507 ; -------------------------------------------------------------------------------------- 0507 ; Debug chain 0507 ; -------------------------------------------------------------------------------------- 0507 0002 0001 | | .DBGLEN 0x0002,0x0001 0509 0263 0265 | c e| .DBGLNO 0x0263,0x0265,0x026f 050c ; -------------------------------------------------------------------------------------- 050c ; Debug chain 050c ; -------------------------------------------------------------------------------------- 050c 0001 0005 | | .DBGLEN 0x0001,0x0005 050e 0283 0285 | | .DBGLNO 0x0283,0x0285,0x0288,0x028b,0x028e,0x0291 0514 ; -------------------------------------------------------------------------------------- 0514 ; Debug chain 0514 ; -------------------------------------------------------------------------------------- 0514 0001 0006 | | .DBGLEN 0x0001,0x0006 0516 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a2,0x02a5,0x02a8,0x02ab,0x02ae 051d ; -------------------------------------------------------------------------------------- 051d ; Debug chain 051d ; -------------------------------------------------------------------------------------- 051d 0001 0003 | | .DBGLEN 0x0001,0x0003 051f 02bb 02bd | | .DBGLNO 0x02bb,0x02bd,0x02c2,0x02c5 0523 ; -------------------------------------------------------------------------------------- 0523 ; Debug chain 0523 ; -------------------------------------------------------------------------------------- 0523 0000 0001 | | .DBGLEN 0x0000,0x0001 0525 02d3 | | .DBGLNO 0x02d3 0526 ; -------------------------------------------------------------------------------------- 0526 ; Debug chain 0526 ; -------------------------------------------------------------------------------------- 0526 0000 0001 | | .DBGLEN 0x0000,0x0001 0528 02db | | .DBGLNO 0x02db 0529 ; -------------------------------------------------------------------------------------- 0529 ; Debug chain 0529 ; -------------------------------------------------------------------------------------- 0529 0000 0001 | | .DBGLEN 0x0000,0x0001 052b 02e3 | | .DBGLNO 0x02e3 052c ; -------------------------------------------------------------------------------------- 052c ; Debug chain 052c ; -------------------------------------------------------------------------------------- 052c 0000 0001 | | .DBGLEN 0x0000,0x0001 052e 02eb | | .DBGLNO 0x02eb 052f ; -------------------------------------------------------------------------------------- 052f ; Debug chain 052f ; -------------------------------------------------------------------------------------- 052f 0000 0001 | | .DBGLEN 0x0000,0x0001 0531 02f3 | | .DBGLNO 0x02f3 0532 ; -------------------------------------------------------------------------------------- 0532 ; Debug chain 0532 ; -------------------------------------------------------------------------------------- 0532 0000 0001 | | .DBGLEN 0x0000,0x0001 0534 02fb | | .DBGLNO 0x02fb 0535 ; -------------------------------------------------------------------------------------- 0535 ; Debug chain 0535 ; -------------------------------------------------------------------------------------- 0535 0000 0001 | | .DBGLEN 0x0000,0x0001 0537 0303 | | .DBGLNO 0x0303 0538 ; -------------------------------------------------------------------------------------- 0538 ; Debug chain 0538 ; -------------------------------------------------------------------------------------- 0538 0000 0001 | | .DBGLEN 0x0000,0x0001 053a 0313 | | .DBGLNO 0x0313 053b ; -------------------------------------------------------------------------------------- 053b ; Debug chain 053b ; -------------------------------------------------------------------------------------- 053b 0000 0001 | | .DBGLEN 0x0000,0x0001 053d 0323 | # | .DBGLNO 0x0323 053e ; -------------------------------------------------------------------------------------- 053e ; Debug chain 053e ; -------------------------------------------------------------------------------------- 053e 0000 0004 | | .DBGLEN 0x0000,0x0004 0540 0333 0339 | 3 9| .DBGLNO 0x0333,0x0339,0x033b,0x0342 0544 0001 0004 | | .XXX[0x4] 0546 0002 0003 | | 0548 ; -------------------------------------------------------------------------------------- 0548 ; Debug chain 0548 ; -------------------------------------------------------------------------------------- 0548 0000 0004 | | .DBGLEN 0x0000,0x0004 054a 0353 0359 | S Y| .DBGLNO 0x0353,0x0359,0x035b,0x0369 054e 0001 0004 | | .XXX[0x4] 0550 0002 0003 | | 0552 ; -------------------------------------------------------------------------------------- 0552 ; Debug chain 0552 ; -------------------------------------------------------------------------------------- 0552 0000 0001 | | .DBGLEN 0x0000,0x0001 0554 037b | { | .DBGLNO 0x037b 0555 ; -------------------------------------------------------------------------------------- 0555 ; Debug chain 0555 ; -------------------------------------------------------------------------------------- 0555 0000 0001 | | .DBGLEN 0x0000,0x0001 0557 038b | | .DBGLNO 0x038b 0558 0000 0000 | | .BLANK 0000[0xa8]