|
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_103ce1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0410 | | .CONST 0x0410 ; 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 00c7 | | .CONST 0x00c7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002f | / | .CONST 0x002f ; 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 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "BALLS"
002e 0129 | ) | Execute Any,Make_Visible
002f c225 | % | Store 0x1,0x25
0030 4801 |H | Short_Literal 0x1
0031 e225 | % | Load 0x1,0x25
0032 e001 | | Load 0x0,0x1
0033 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0034 0129 | ) | Execute Any,Make_Visible
0035 c226 | & | Store 0x1,0x26
0036 e226 | & | Load 0x1,0x26
0037 e002 | | Load 0x0,0x2
0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0039 1c07 | | Execute_Immediate Run_Utility,0x7
003a 0129 | ) | Execute Any,Make_Visible
003b c227 | ' | Store 0x1,0x27
003c 4800 |H | Short_Literal 0x0
003d 4804 |H | Short_Literal 0x4
003e 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0040 03fe | | Declare_Type Discrete,Defined,Visible
0041 c20e | | Store 0x1,0xe
0042 4800 |H | Short_Literal 0x0
0043 4801 |H | Short_Literal 0x1
0044 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0046 03fe | | Declare_Type Discrete,Defined,Visible
0047 c20f | | Store 0x1,0xf
0048 4800 |H | Short_Literal 0x0
0049 4808 |H | Short_Literal 0x8
004a 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
004c 03fe | | Declare_Type Discrete,Defined,Visible
004d c210 | | Store 0x1,0x10
004e 4800 |H | Short_Literal 0x0
004f 4803 |H | Short_Literal 0x3
0050 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0052 03fe | | Declare_Type Discrete,Defined,Visible
0053 c21e | | Store 0x1,0x1e
0054 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0056 c211 | | Store 0x1,0x11
0057 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0059 c21f | | Store 0x1,0x1f
005a 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
005c c212 | | Store 0x1,0x12
005d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
005f c213 | | Store 0x1,0x13
0060 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0062 c228 | ( | Store 0x1,0x28
0063 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0065 c229 | ) | Store 0x1,0x29
0066 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0068 c220 | | Store 0x1,0x20
0069 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
006b c224 | $ | Store 0x1,0x24
006c 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
006e c217 | | Store 0x1,0x17
006f 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0071 c218 | | Store 0x1,0x18
0072 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0074 c222 | " | Store 0x1,0x22
0075 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0077 c223 | # | Store 0x1,0x23
0078 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
007a c21b | | Store 0x1,0x1b
007b 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
007d c22a | * | Store 0x1,0x2a
007e 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0080 c22b | + | Store 0x1,0x2b
0081 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0083 c21c | | Store 0x1,0x1c
0084 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0086 c21d | | Store 0x1,0x1d
0087 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0089 c22c | , | Store 0x1,0x2c
008a 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
008c c22d | - | Store 0x1,0x2d
008d 00bf | | Action Accept_Activation
008e 00e3 | | Load_Encached Natural_Cache
008f e20e | | Load 0x1,0xe
0090 e20f | | Load 0x1,0xf
0091 00e3 | | Load_Encached Natural_Cache
0092 02a0 | | Declare_Subprogram Null_Subprogram
0093 4804 |H | Short_Literal 0x4
0094 032d | - | Declare_Type Record,Defined
0095 e003 | | Load 0x0,0x3
0096 e004 | | Load 0x0,0x4
0097 00da | | Load_Top At_Offset_2
0098 e225 | % | Load 0x1,0x25
0099 4801 |H | Short_Literal 0x1
009a 4801 |H | Short_Literal 0x1
009b e002 | | Load 0x0,0x2
009c 1918 | | Execute Package,Field_Reference,Field_Number 0x18
009d e005 | | Load 0x0,0x5
009e 0387 | | Declare_Variable Package
009f 00d8 | | Load_Top At_Offset_0
00a0 020f | | Execute Module,Activate
00a1 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00c6 00c7 | | Action Elaborate_Subprogram
00c7 BODY_0008:
00c7 00bc | | Action Signal_Activated
00c8 00bb | | Action Signal_Completion
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4607 |F | Jump_Case 0x8
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7806 |x | Jump 0xdc ; case 0x1
00d6 7809 |x | Jump 0xe0 ; case 0x2
00d7 780d |x | Jump 0xe5 ; case 0x3
00d8 7810 |x | Jump 0xe9 ; case 0x4
00d9 7811 |x | Jump 0xeb ; case 0x5
00da 7812 |x | Jump 0xed ; case 0x6
00db 7815 |x | Jump 0xf1 ; case 0x7
00dc 00da | | Load_Top At_Offset_2
00dd 0091 039d | | Action Push_String_Extended_Indexed,0x39d ; "WHITE"
00df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e0 00db | | Load_Top At_Offset_3
00e1 00db | | Load_Top At_Offset_3
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e5 00da | | Load_Top At_Offset_2
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00eb 00db | | Load_Top At_Offset_3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed e20e | | Load 0x1,0xe
00ee 00dc | | Load_Top At_Offset_4
00ef 0267 | g | Execute Discrete,Predecessor
00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f1 e20e | | Load 0x1,0xe
00f2 00dc | | Load_Top At_Offset_4
00f3 0268 | h | Execute Discrete,Successor
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4607 |F | Jump_Case 0x8
00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00fd 7806 |x | Jump 0x104 ; case 0x1
00fe 7809 |x | Jump 0x108 ; case 0x2
00ff 780d |x | Jump 0x10d ; case 0x3
0100 7810 |x | Jump 0x111 ; case 0x4
0101 7811 |x | Jump 0x113 ; case 0x5
0102 7812 |x | Jump 0x115 ; case 0x6
0103 7815 |x | Jump 0x119 ; case 0x7
0104 00da | | Load_Top At_Offset_2
0105 0091 03a2 | | Action Push_String_Extended_Indexed,0x3a2 ; "IS_ON_HEAP"
0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0108 00db | | Load_Top At_Offset_3
0109 00db | | Load_Top At_Offset_3
010a 00e0 | | Load_Encached Standard_Cache
010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d 00da | | Load_Top At_Offset_2
010e 00e0 | | Load_Encached Standard_Cache
010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0113 00db | | Load_Top At_Offset_3
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 e20f | | Load 0x1,0xf
0116 00dc | | Load_Top At_Offset_4
0117 0267 | g | Execute Discrete,Predecessor
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 e20f | | Load 0x1,0xf
011a 00dc | | Load_Top At_Offset_4
011b 0268 | h | Execute Discrete,Successor
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7806 |x | Jump 0x12c ; case 0x1
0126 7809 |x | Jump 0x130 ; case 0x2
0127 780d |x | Jump 0x135 ; case 0x3
0128 7810 |x | Jump 0x139 ; case 0x4
0129 7811 |x | Jump 0x13b ; case 0x5
012a 7812 |x | Jump 0x13d ; case 0x6
012b 7815 |x | Jump 0x141 ; case 0x7
012c 00da | | Load_Top At_Offset_2
012d 0091 03a4 | | Action Push_String_Extended_Indexed,0x3a4 ; "BALLS_ON_HEAP"
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 00e0 | | Load_Encached Standard_Cache
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 00da | | Load_Top At_Offset_2
0136 00e0 | | Load_Encached Standard_Cache
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d e210 | | Load 0x1,0x10
013e 00dc | | Load_Top At_Offset_4
013f 0267 | g | Execute Discrete,Predecessor
0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0141 e210 | | Load 0x1,0x10
0142 00dc | | Load_Top At_Offset_4
0143 0268 | h | Execute Discrete,Successor
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4607 |F | Jump_Case 0x8
014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
014d 7806 |x | Jump 0x154 ; case 0x1
014e 7809 |x | Jump 0x158 ; case 0x2
014f 780d |x | Jump 0x15d ; case 0x3
0150 7810 |x | Jump 0x161 ; case 0x4
0151 7811 |x | Jump 0x163 ; case 0x5
0152 7812 |x | Jump 0x165 ; case 0x6
0153 7815 |x | Jump 0x169 ; case 0x7
0154 00da | | Load_Top At_Offset_2
0155 0091 03ad | | Action Push_String_Extended_Indexed,0x3ad ; "IS_SIZE"
0157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0158 00db | | Load_Top At_Offset_3
0159 00db | | Load_Top At_Offset_3
015a 00e0 | | Load_Encached Standard_Cache
015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015d 00da | | Load_Top At_Offset_2
015e 00e0 | | Load_Encached Standard_Cache
015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0165 e21e | | Load 0x1,0x1e
0166 00dc | | Load_Top At_Offset_4
0167 0267 | g | Execute Discrete,Predecessor
0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0169 e21e | | Load 0x1,0x1e
016a 00dc | | Load_Top At_Offset_4
016b 0268 | h | Execute Discrete,Successor
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
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 e22f | / | Load 0x1,0x2f
0175 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0176 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
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 e22f | / | Load 0x1,0x2f
017d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
017e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
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 e22f | / | Load 0x1,0x2f
0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0186 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
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 00da | | Load_Top At_Offset_2
018c e22f | / | Load 0x1,0x2f
018d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
018e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e22f | / | Load 0x1,0x2f
0194 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0195 00ca | | Action Exit_Nullary_Function
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01bf | | .CONST 0x01bf ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0010 | | .CONST 0x0010 ; Number of locals
019b INIT_0198:
019b 029f 030b | | Declare_Subprogram INIT_0308,For_Call
019d e006 | | Load 0x0,0x6
019e 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
019f 00c6 | | Action Check_Subprogram_Elaborated
01a0 4802 |H | Short_Literal 0x2
01a1 4802 |H | Short_Literal 0x2
01a2 0099 | | Action Reference_Dynamic
01a3 e007 | | Load 0x0,0x7
01a4 e008 | | Load 0x0,0x8
01a5 4806 |H | Short_Literal 0x6
01a6 0007 | | Action Break_Optional
01a7 029f 031b | | Declare_Subprogram INIT_0318,For_Call
01a9 e006 | | Load 0x0,0x6
01aa 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
01ab 00c6 | | Action Check_Subprogram_Elaborated
01ac 4807 |H | Short_Literal 0x7
01ad 4802 |H | Short_Literal 0x2
01ae 0099 | | Action Reference_Dynamic
01af e009 | | Load 0x0,0x9
01b0 e00a | | Load 0x0,0xa
01b1 480b |H | Short_Literal 0xb
01b2 0007 | | Action Break_Optional
01b3 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
01b5 e006 | | Load 0x0,0x6
01b6 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
01b7 00c6 | | Action Check_Subprogram_Elaborated
01b8 480c |H | Short_Literal 0xc
01b9 4802 |H | Short_Literal 0x2
01ba 0099 | | Action Reference_Dynamic
01bb e00b | | Load 0x0,0xb
01bc e00c | | Load 0x0,0xc
01bd 4810 |H | Short_Literal 0x10
01be 0007 | | Action Break_Optional
01bf BODY_0198:
01bf e5ff | | Load 0x2,-0x1
01c0 4608 |F | Jump_Case 0x9
01c1 7829 |x) | Jump 0x1eb ; case 0x0
01c2 7837 |x7 | Jump 0x1fa ; case 0x1
01c3 7809 |x | Jump 0x1cd ; case 0x2
01c4 7817 |x | Jump 0x1dc ; case 0x3
01c5 7834 |x4 | Jump 0x1fa ; case 0x4
01c6 7833 |x3 | Jump 0x1fa ; case 0x5
01c7 7832 |x2 | Jump 0x1fa ; case 0x6
01c8 7831 |x1 | Jump 0x1fa ; case 0x7
01c9 7800 |x | Jump 0x1ca ; case 0x8
01ca e22f | / | Load 0x1,0x2f
01cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cd 6032 |`2 | Indirect_Literal Discrete,0x200,{0x00000000, 0x7fffffff}
01ce e22f | / | Load 0x1,0x2f
01cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d0 4803 |H | Short_Literal 0x3
01d1 4802 |H | Short_Literal 0x2
01d2 0099 | | Action Reference_Dynamic
01d3 4804 |H | Short_Literal 0x4
01d4 4802 |H | Short_Literal 0x2
01d5 0099 | | Action Reference_Dynamic
01d6 e006 | | Load 0x0,0x6
01d7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01d8 e006 | | Load 0x0,0x6
01d9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
01da 01c6 | | Execute Vector,Convert_To_Formal
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 6023 |`# | Indirect_Literal Discrete,0x200,{0x00000000, 0x7fffffff}
01dd e22f | / | Load 0x1,0x2f
01de 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01df 4808 |H | Short_Literal 0x8
01e0 4802 |H | Short_Literal 0x2
01e1 0099 | | Action Reference_Dynamic
01e2 4809 |H | Short_Literal 0x9
01e3 4802 |H | Short_Literal 0x2
01e4 0099 | | Action Reference_Dynamic
01e5 e006 | | Load 0x0,0x6
01e6 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01e7 e006 | | Load 0x0,0x6
01e8 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
01e9 01c6 | | Execute Vector,Convert_To_Formal
01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01eb 6014 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x7fffffff}
01ec e22f | / | Load 0x1,0x2f
01ed 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ee 480d |H | Short_Literal 0xd
01ef 4802 |H | Short_Literal 0x2
01f0 0099 | | Action Reference_Dynamic
01f1 480e |H | Short_Literal 0xe
01f2 4802 |H | Short_Literal 0x2
01f3 0099 | | Action Reference_Dynamic
01f4 e006 | | Load 0x0,0x6
01f5 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01f6 e006 | | Load 0x0,0x6
01f7 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
01f8 01c6 | | Execute Vector,Convert_To_Formal
01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fa e22f | / | Load 0x1,0x2f
01fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0217 | | .CONST 0x0217 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0006 | | .CONST 0x0006 ; Number of locals
020b INIT_0208:
020b 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
020d e006 | | Load 0x0,0x6
020e 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
020f 00c6 | | Action Check_Subprogram_Elaborated
0210 4802 |H | Short_Literal 0x2
0211 4802 |H | Short_Literal 0x2
0212 0099 | | Action Reference_Dynamic
0213 e00d | | Load 0x0,0xd
0214 e00e | | Load 0x0,0xe
0215 4806 |H | Short_Literal 0x6
0216 0007 | | Action Break_Optional
0217 BODY_0208:
0217 e5fd | | Load 0x2,-0x3
0218 8229 | ) | Call 0x1,0x29
0219 4803 |H | Short_Literal 0x3
021a 4802 |H | Short_Literal 0x2
021b 0099 | | Action Reference_Dynamic
021c 4804 |H | Short_Literal 0x4
021d 4802 |H | Short_Literal 0x2
021e 0099 | | Action Reference_Dynamic
021f e006 | | Load 0x0,0x6
0220 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0221 00e1 | | Load_Encached Boolean_Cache
0222 025e | ^ | Execute Discrete,Convert
0223 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0237 | 7 | .CONST 0x0237 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0006 | | .CONST 0x0006 ; Number of locals
022b INIT_0228:
022b 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
022d e006 | | Load 0x0,0x6
022e 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
022f 00c6 | | Action Check_Subprogram_Elaborated
0230 4802 |H | Short_Literal 0x2
0231 4802 |H | Short_Literal 0x2
0232 0099 | | Action Reference_Dynamic
0233 e00f | | Load 0x0,0xf
0234 e010 | | Load 0x0,0x10
0235 4806 |H | Short_Literal 0x6
0236 0007 | | Action Break_Optional
0237 BODY_0228:
0237 e5fc | | Load 0x2,-0x4
0238 8229 | ) | Call 0x1,0x29
0239 4803 |H | Short_Literal 0x3
023a 4802 |H | Short_Literal 0x2
023b 0099 | | Action Reference_Dynamic
023c 4804 |H | Short_Literal 0x4
023d 4802 |H | Short_Literal 0x2
023e 0099 | | Action Reference_Dynamic
023f e006 | | Load 0x0,0x6
0240 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0241 00e1 | | Load_Encached Boolean_Cache
0242 025e | ^ | Execute Discrete,Convert
0243 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0257 | W | .CONST 0x0257 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0006 | | .CONST 0x0006 ; Number of locals
024b INIT_0248:
024b 029f 0383 | | Declare_Subprogram INIT_0380,For_Call
024d e006 | | Load 0x0,0x6
024e 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
024f 00c6 | | Action Check_Subprogram_Elaborated
0250 4802 |H | Short_Literal 0x2
0251 4802 |H | Short_Literal 0x2
0252 0099 | | Action Reference_Dynamic
0253 e011 | | Load 0x0,0x11
0254 e012 | | Load 0x0,0x12
0255 4806 |H | Short_Literal 0x6
0256 0007 | | Action Break_Optional
0257 BODY_0248:
0257 e5fe | | Load 0x2,-0x2
0258 8229 | ) | Call 0x1,0x29
0259 4803 |H | Short_Literal 0x3
025a 4802 |H | Short_Literal 0x2
025b 0099 | | Action Reference_Dynamic
025c 4804 |H | Short_Literal 0x4
025d 4802 |H | Short_Literal 0x2
025e 0099 | | Action Reference_Dynamic
025f e006 | | Load 0x0,0x6
0260 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0261 00e1 | | Load_Encached Boolean_Cache
0262 025e | ^ | Execute Discrete,Convert
0263 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0277 | w | .CONST 0x0277 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0006 | | .CONST 0x0006 ; Number of locals
026b INIT_0268:
026b 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
026d e006 | | Load 0x0,0x6
026e 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
026f 00c6 | | Action Check_Subprogram_Elaborated
0270 4802 |H | Short_Literal 0x2
0271 4802 |H | Short_Literal 0x2
0272 0099 | | Action Reference_Dynamic
0273 e013 | | Load 0x0,0x13
0274 e014 | | Load 0x0,0x14
0275 4806 |H | Short_Literal 0x6
0276 0007 | | Action Break_Optional
0277 BODY_0268:
0277 e5fe | | Load 0x2,-0x2
0278 8229 | ) | Call 0x1,0x29
0279 4803 |H | Short_Literal 0x3
027a 4802 |H | Short_Literal 0x2
027b 0099 | | Action Reference_Dynamic
027c 4804 |H | Short_Literal 0x4
027d 4802 |H | Short_Literal 0x2
027e 0099 | | Action Reference_Dynamic
027f e006 | | Load 0x0,0x6
0280 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0281 00e1 | | Load_Encached Boolean_Cache
0282 025e | ^ | Execute Discrete,Convert
0283 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b e22e | . | Load 0x1,0x2e
028c 0322 | " | Declare_Variable Record
028d BODY_0288:
028d 00db | | Load_Top At_Offset_3
028e 00d9 | | Load_Top At_Offset_1
028f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0290 e5fe | | Load 0x2,-0x2
0291 00d9 | | Load_Top At_Offset_1
0292 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0293 e5fd | | Load 0x2,-0x3
0294 00d9 | | Load_Top At_Offset_1
0295 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0296 e5fc | | Load 0x2,-0x4
0297 00d9 | | Load_Top At_Offset_1
0298 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0299 00d8 | | Load_Top At_Offset_0
029a e22f | / | Load 0x1,0x2f
029b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
029c e227 | ' | Load 0x1,0x27
029d 0161 | a | Execute Variant_Record,Check_In_Formal_Type
029e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5 | | .CONST 0x02a5 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e22e | . | Load 0x1,0x2e
02a4 0322 | " | Declare_Variable Record
02a5 BODY_02a0:
02a5 00db | | Load_Top At_Offset_3
02a6 e22f | / | Load 0x1,0x2f
02a7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02a8 00d9 | | Load_Top At_Offset_1
02a9 017d | } | Execute Record,Structure_Write
02aa e5fe | | Load 0x2,-0x2
02ab 00d9 | | Load_Top At_Offset_1
02ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02ad e5fd | | Load 0x2,-0x3
02ae 00d9 | | Load_Top At_Offset_1
02af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b0 e5fc | | Load 0x2,-0x4
02b1 00d9 | | Load_Top At_Offset_1
02b2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b3 e5fb | | Load 0x2,-0x5
02b4 00d9 | | Load_Top At_Offset_1
02b5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02b6 00d8 | | Load_Top At_Offset_0
02b7 e5ff | | Load 0x2,-0x1
02b8 e22f | / | Load 0x1,0x2f
02b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02bb 0000 0000 | | .BLANK 0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c5 | | .CONST 0x02c5 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 e22e | . | Load 0x1,0x2e
02c4 0322 | " | Declare_Variable Record
02c5 BODY_02c0:
02c5 00db | | Load_Top At_Offset_3
02c6 e22f | / | Load 0x1,0x2f
02c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02c8 00d9 | | Load_Top At_Offset_1
02c9 017d | } | Execute Record,Structure_Write
02ca e5fe | | Load 0x2,-0x2
02cb 00d9 | | Load_Top At_Offset_1
02cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02cd 00d8 | | Load_Top At_Offset_0
02ce e5ff | | Load 0x2,-0x1
02cf e22f | / | Load 0x1,0x2f
02d0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d2 0000 0000 | | .BLANK 0000[0x6]
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 e22f | / | Load 0x1,0x2f
02dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
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 e22f | / | Load 0x1,0x2f
02e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
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 00da | | Load_Top At_Offset_2
02ec e22f | / | Load 0x1,0x2f
02ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ef 0000 | | .XXX[0x1]
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 e22f | / | Load 0x1,0x2f
02f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
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 e22f | / | Load 0x1,0x2f
02fc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
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 e22f | / | Load 0x1,0x2f
0304 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0305 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c e22f | / | Load 0x1,0x2f
030d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
030e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030f 0f00 | | Execute_Immediate Equal,0x0
0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c e22f | / | Load 0x1,0x2f
031d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
031e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031f 0f01 | | Execute_Immediate Equal,0x1
0320 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c e22f | / | Load 0x1,0x2f
032d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
032e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
032f 0f00 | | Execute_Immediate Equal,0x0
0330 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0331 0000 0000 | | .BLANK 0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e5ff | | Load 0x2,-0x1
033c 4603 |F | Jump_Case 0x4
033d 7805 |x | Jump 0x343 ; case 0x0
033e 780b |x | Jump 0x34a ; case 0x1
033f 7801 |x | Jump 0x341 ; case 0x2
0340 7800 |x | Jump 0x341 ; case 0x3
0341 4800 |H | Short_Literal 0x0
0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0343 00da | | Load_Top At_Offset_2
0344 e22f | / | Load 0x1,0x2f
0345 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0346 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0347 e5fe | | Load 0x2,-0x2
0348 027d | } | Execute Discrete,Greater
0349 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034a 00da | | Load_Top At_Offset_2
034b e22f | / | Load 0x1,0x2f
034c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
034d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
034e e5fe | | Load 0x2,-0x2
034f 027d | } | Execute Discrete,Greater
0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b e5ff | | Load 0x2,-0x1
035c 4603 |F | Jump_Case 0x4
035d 7805 |x | Jump 0x363 ; case 0x0
035e 7812 |x | Jump 0x371 ; case 0x1
035f 7801 |x | Jump 0x361 ; case 0x2
0360 7800 |x | Jump 0x361 ; case 0x3
0361 4800 |H | Short_Literal 0x0
0362 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0363 00da | | Load_Top At_Offset_2
0364 e22f | / | Load 0x1,0x2f
0365 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0366 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0367 e5fe | | Load 0x2,-0x2
0368 027b | { | Execute Discrete,Greater_Equal
0369 00db | | Load_Top At_Offset_3
036a e22f | / | Load 0x1,0x2f
036b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
036c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036d e5fd | | Load 0x2,-0x3
036e 027a | z | Execute Discrete,Less_Equal
036f 0279 | y | Execute Discrete,And
0370 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0371 00da | | Load_Top At_Offset_2
0372 e22f | / | Load 0x1,0x2f
0373 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0374 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0375 e5fe | | Load 0x2,-0x2
0376 027b | { | Execute Discrete,Greater_Equal
0377 00db | | Load_Top At_Offset_3
0378 e22f | / | Load 0x1,0x2f
0379 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
037a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
037b e5fd | | Load 0x2,-0x3
037c 027a | z | Execute Discrete,Less_Equal
037d 0279 | y | Execute Discrete,And
037e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 e22f | / | Load 0x1,0x2f
0385 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0386 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0387 e5ff | | Load 0x2,-0x1
0388 027f | | Execute Discrete,Equal
0389 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 e22f | / | Load 0x1,0x2f
0395 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0396 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0397 e20e | | Load 0x1,0xe
0398 011c | | Execute Any,Convert_Unchecked
0399 1c01 | | Execute_Immediate Run_Utility,0x1
039a e5ff | | Load 0x2,-0x1
039b 01df | | Execute Vector,Equal
039c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039d ; --------------------------------------------------------------------------------------
039d ; STRING TABLE
039d ; --------------------------------------------------------------------------------------
039d 002c | , | .STRTAB 0x002c->0x03b3 ; "WHITE"
039e 002f | / | .STRTAB 0x002f->0x03b5 ; "RED"
039f 0030 | 0 | .STRTAB 0x0030->0x03b7 ; "YELLOW"
03a0 0034 | 4 | .STRTAB 0x0034->0x03ba ; "GREEN"
03a1 0037 | 7 | .STRTAB 0x0037->0x03bc ; "BLUE"
03a2 0039 | 9 | .STRTAB 0x0039->0x03be ; "IS_ON_HEAP"
03a3 0041 | A | .STRTAB 0x0041->0x03c3 ; "IS_IN_BOX"
03a4 0048 | H | .STRTAB 0x0048->0x03c8 ; "BALLS_ON_HEAP"
03a5 0053 | S | .STRTAB 0x0053->0x03ce ; "BALLS_IN_BOX"
03a6 005d | ] | .STRTAB 0x005d->0x03d4 ; "WHITE_BALLS"
03a7 0066 | f | .STRTAB 0x0066->0x03da ; "RED_BALLS"
03a8 006d | m | .STRTAB 0x006d->0x03de ; "YELLOW_BALLS"
03a9 0077 | w | .STRTAB 0x0077->0x03e4 ; "GREEN_BALLS"
03aa 0080 | | .STRTAB 0x0080->0x03ea ; "BLUE_BALLS"
03ab 0088 | | .STRTAB 0x0088->0x03ef ; "BIG_BALLS"
03ac 008f | | .STRTAB 0x008f->0x03f3 ; "ALL_BALLS"
03ad 0096 | | .STRTAB 0x0096->0x03f8 ; "IS_SIZE"
03ae 009b | | .STRTAB 0x009b->0x03fb ; "IS_WEIGHT"
03af 00a2 | | .STRTAB 0x00a2->0x0400 ; "IS_COLOR"
03b0 00a8 | | .STRTAB 0x00a8->0x0404 ; "IS_PLACE"
03b1 00ae | | .STRTAB 0x00ae->0x0408 ; "BALLS"
03b2 00b1 | | .STREND 0x00b1->0x040a
03b3 5748 4954 |WHIT| .STRTAB_STRINGS
040b 0000 0000 | | .BLANK 0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 0001 | | .DEBUG4 0x0004,0x0001,0xe586,0x0000,0x0001,0x0020
0416 000b 0496 | | .DBG4T 0x000b,0x0496,0x8000,0x8000
041a 008e 04cc | | .DBG4T 0x008e,0x04cc,0x8000,0x0000
041e 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000
0422 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x0005,0x0000
0426 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000
042a 014b 0000 | K | .DBG4T 0x014b,0x0000,0x0005,0x0000
042e 0173 04e3 | s | .DBG4T 0x0173,0x04e3,0x0002,0x0000
0432 017b 04e6 | { | .DBG4T 0x017b,0x04e6,0x0002,0x0000
0436 0183 04e9 | | .DBG4T 0x0183,0x04e9,0x0002,0x0000
043a 018b 04ec | | .DBG4T 0x018b,0x04ec,0x0002,0x0000
043e 0193 04ef | | .DBG4T 0x0193,0x04ef,0x0002,0x0000
0442 019b 04f2 | | .DBG4T 0x019b,0x04f2,0x0002,0x0000
0446 020b 0500 | | .DBG4T 0x020b,0x0500,0x0002,0x0000
044a 022b 0505 | + | .DBG4T 0x022b,0x0505,0x0002,0x0000
044e 024b 050a | K | .DBG4T 0x024b,0x050a,0x0002,0x0000
0452 026b 050f | k | .DBG4T 0x026b,0x050f,0x0002,0x0000
0456 028b 0514 | | .DBG4T 0x028b,0x0514,0x0002,0x0000
045a 02a3 051c | | .DBG4T 0x02a3,0x051c,0x0001,0x0000
045e 02c3 0525 | %| .DBG4T 0x02c3,0x0525,0x0001,0x0000
0462 02db 052b | +| .DBG4T 0x02db,0x052b,0x0001,0x0000
0466 02e3 052e | .| .DBG4T 0x02e3,0x052e,0x0001,0x0000
046a 02eb 0531 | 1| .DBG4T 0x02eb,0x0531,0x0001,0x0000
046e 02f3 0534 | 4| .DBG4T 0x02f3,0x0534,0x0001,0x0000
0472 02fb 0537 | 7| .DBG4T 0x02fb,0x0537,0x0001,0x0000
0476 0303 053a | :| .DBG4T 0x0303,0x053a,0x0001,0x0000
047a 030b 053d | =| .DBG4T 0x030b,0x053d,0x0002,0x0000
047e 031b 0540 | @| .DBG4T 0x031b,0x0540,0x0002,0x0000
0482 032b 0543 | + C| .DBG4T 0x032b,0x0543,0x0002,0x0000
0486 033b 0546 | ; F| .DBG4T 0x033b,0x0546,0x0002,0x4000
048a 035b 0550 | [ P| .DBG4T 0x035b,0x0550,0x0002,0x4000
048e 0383 055a | Z| .DBG4T 0x0383,0x055a,0x0002,0x0000
0492 0393 055d | ]| .DBG4T 0x0393,0x055d,0x0002,0x0000
0496 ; --------------------------------------------------------------------------------------
0496 ; Debug chain
0496 ; --------------------------------------------------------------------------------------
0496 001a 0000 | | .DBGLEN 0x001a,0x0000
0498 002c 0030 | , 0| .DBGLNO 0x002c,0x0030,0x0036,0x003c,0x0042,0x0048,0x004e,0x0054,0x0057,0x005a,0x005d,0x0060,0x0063,0x0066,0x0069,0x006c,0x006f,0x0072,0x0075,0x0078,0x007b,0x007e,0x0081,0x0084,0x0087,0x008a
04b2 0001 0004 | | .XXX[0x1a]
04b4 0005 0006 | |
04b6 0007 0008 | |
04b8 0009 000e | |
04ba 000f 0010 | |
04bc 0011 0012 | |
04be 0013 0014 | |
04c0 0015 0016 | |
04c2 0017 0018 | |
04c4 0019 001a | |
04c6 001b 001c | |
04c8 001d 001e | |
04ca 001f 0020 | |
04cc ; --------------------------------------------------------------------------------------
04cc ; Debug chain
04cc ; --------------------------------------------------------------------------------------
04cc 0015 0000 | | .DBGLEN 0x0015,0x0000
04ce 008e 0095 | | .DBGLNO 0x008e,0x0095,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5
04e3 ; --------------------------------------------------------------------------------------
04e3 ; Debug chain
04e3 ; --------------------------------------------------------------------------------------
04e3 0000 0001 | | .DBGLEN 0x0000,0x0001
04e5 0173 | s | .DBGLNO 0x0173
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug chain
04e6 ; --------------------------------------------------------------------------------------
04e6 0000 0001 | | .DBGLEN 0x0000,0x0001
04e8 017b | { | .DBGLNO 0x017b
04e9 ; --------------------------------------------------------------------------------------
04e9 ; Debug chain
04e9 ; --------------------------------------------------------------------------------------
04e9 0000 0001 | | .DBGLEN 0x0000,0x0001
04eb 0183 | | .DBGLNO 0x0183
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug chain
04ec ; --------------------------------------------------------------------------------------
04ec 0000 0001 | | .DBGLEN 0x0000,0x0001
04ee 018b | | .DBGLNO 0x018b
04ef ; --------------------------------------------------------------------------------------
04ef ; Debug chain
04ef ; --------------------------------------------------------------------------------------
04ef 0000 0001 | | .DBGLEN 0x0000,0x0001
04f1 0193 | | .DBGLNO 0x0193
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug chain
04f2 ; --------------------------------------------------------------------------------------
04f2 0006 0006 | | .DBGLEN 0x0006,0x0006
04f4 019b 019d | | .DBGLNO 0x019b,0x019d,0x01a7,0x01a9,0x01b3,0x01b5,0x01bf,0x01ca,0x01cd,0x01dc,0x01eb,0x01fa
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug chain
0500 ; --------------------------------------------------------------------------------------
0500 0002 0001 | | .DBGLEN 0x0002,0x0001
0502 020b 020d | | .DBGLNO 0x020b,0x020d,0x0217
0505 ; --------------------------------------------------------------------------------------
0505 ; Debug chain
0505 ; --------------------------------------------------------------------------------------
0505 0002 0001 | | .DBGLEN 0x0002,0x0001
0507 022b 022d | + -| .DBGLNO 0x022b,0x022d,0x0237
050a ; --------------------------------------------------------------------------------------
050a ; Debug chain
050a ; --------------------------------------------------------------------------------------
050a 0002 0001 | | .DBGLEN 0x0002,0x0001
050c 024b 024d | K M| .DBGLNO 0x024b,0x024d,0x0257
050f ; --------------------------------------------------------------------------------------
050f ; Debug chain
050f ; --------------------------------------------------------------------------------------
050f 0002 0001 | | .DBGLEN 0x0002,0x0001
0511 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0277
0514 ; --------------------------------------------------------------------------------------
0514 ; Debug chain
0514 ; --------------------------------------------------------------------------------------
0514 0001 0005 | | .DBGLEN 0x0001,0x0005
0516 028b 028d | | .DBGLNO 0x028b,0x028d,0x0290,0x0293,0x0296,0x0299
051c ; --------------------------------------------------------------------------------------
051c ; Debug chain
051c ; --------------------------------------------------------------------------------------
051c 0001 0006 | | .DBGLEN 0x0001,0x0006
051e 02a3 02a5 | | .DBGLNO 0x02a3,0x02a5,0x02aa,0x02ad,0x02b0,0x02b3,0x02b6
0525 ; --------------------------------------------------------------------------------------
0525 ; Debug chain
0525 ; --------------------------------------------------------------------------------------
0525 0001 0003 | | .DBGLEN 0x0001,0x0003
0527 02c3 02c5 | | .DBGLNO 0x02c3,0x02c5,0x02ca,0x02cd
052b ; --------------------------------------------------------------------------------------
052b ; Debug chain
052b ; --------------------------------------------------------------------------------------
052b 0000 0001 | | .DBGLEN 0x0000,0x0001
052d 02db | | .DBGLNO 0x02db
052e ; --------------------------------------------------------------------------------------
052e ; Debug chain
052e ; --------------------------------------------------------------------------------------
052e 0000 0001 | | .DBGLEN 0x0000,0x0001
0530 02e3 | | .DBGLNO 0x02e3
0531 ; --------------------------------------------------------------------------------------
0531 ; Debug chain
0531 ; --------------------------------------------------------------------------------------
0531 0000 0001 | | .DBGLEN 0x0000,0x0001
0533 02eb | | .DBGLNO 0x02eb
0534 ; --------------------------------------------------------------------------------------
0534 ; Debug chain
0534 ; --------------------------------------------------------------------------------------
0534 0000 0001 | | .DBGLEN 0x0000,0x0001
0536 02f3 | | .DBGLNO 0x02f3
0537 ; --------------------------------------------------------------------------------------
0537 ; Debug chain
0537 ; --------------------------------------------------------------------------------------
0537 0000 0001 | | .DBGLEN 0x0000,0x0001
0539 02fb | | .DBGLNO 0x02fb
053a ; --------------------------------------------------------------------------------------
053a ; Debug chain
053a ; --------------------------------------------------------------------------------------
053a 0000 0001 | | .DBGLEN 0x0000,0x0001
053c 0303 | | .DBGLNO 0x0303
053d ; --------------------------------------------------------------------------------------
053d ; Debug chain
053d ; --------------------------------------------------------------------------------------
053d 0000 0001 | | .DBGLEN 0x0000,0x0001
053f 030b | | .DBGLNO 0x030b
0540 ; --------------------------------------------------------------------------------------
0540 ; Debug chain
0540 ; --------------------------------------------------------------------------------------
0540 0000 0001 | | .DBGLEN 0x0000,0x0001
0542 031b | | .DBGLNO 0x031b
0543 ; --------------------------------------------------------------------------------------
0543 ; Debug chain
0543 ; --------------------------------------------------------------------------------------
0543 0000 0001 | | .DBGLEN 0x0000,0x0001
0545 032b | + | .DBGLNO 0x032b
0546 ; --------------------------------------------------------------------------------------
0546 ; Debug chain
0546 ; --------------------------------------------------------------------------------------
0546 0000 0004 | | .DBGLEN 0x0000,0x0004
0548 033b 0341 | ; A| .DBGLNO 0x033b,0x0341,0x0343,0x034a
054c 0001 0004 | | .XXX[0x4]
054e 0002 0003 | |
0550 ; --------------------------------------------------------------------------------------
0550 ; Debug chain
0550 ; --------------------------------------------------------------------------------------
0550 0000 0004 | | .DBGLEN 0x0000,0x0004
0552 035b 0361 | [ a| .DBGLNO 0x035b,0x0361,0x0363,0x0371
0556 0001 0004 | | .XXX[0x4]
0558 0002 0003 | |
055a ; --------------------------------------------------------------------------------------
055a ; Debug chain
055a ; --------------------------------------------------------------------------------------
055a 0000 0001 | | .DBGLEN 0x0000,0x0001
055c 0383 | | .DBGLNO 0x0383
055d ; --------------------------------------------------------------------------------------
055d ; Debug chain
055d ; --------------------------------------------------------------------------------------
055d 0000 0001 | | .DBGLEN 0x0000,0x0001
055f 0393 | | .DBGLNO 0x0393
0560 0000 0000 | | .BLANK 0000[0xa0]