|
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]