|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0418 | | .CONST 0x0418 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x109, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x110, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 006d | m | .CONST 0x006d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
000d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 e002 | | Load 0x0,0x2
0012 0129 | ) | Execute Any,Make_Visible
0013 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 4800 |H | Short_Literal 0x0
0019 0093 03b3 | | push_full_address INIT_03b0
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 038e | | Declare_Type Package,Defined
001d e001 | | Load 0x0,0x1
001e e003 | | Load 0x0,0x3
001f e004 | | Load 0x0,0x4
0020 e005 | | Load 0x0,0x5
0021 4804 |H | Short_Literal 0x4
0022 e212 | | Load 0x1,0x12
0023 020e | | Execute Module,Augment_Imports
0024 0387 | | Declare_Variable Package
0025 4800 |H | Short_Literal 0x0
0026 0093 0373 | s| push_full_address INIT_0370
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 038e | | Declare_Type Package,Defined
002a 0387 | | Declare_Variable Package
002b 00e1 | | Load_Encached Boolean_Cache
002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002d 4801 |H | Short_Literal 0x1
002e 604d |`M | Indirect_Literal Discrete,0x7c,{0x00000000, 0x00002000}
002f 00e1 | | Load_Encached Boolean_Cache
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4801 |H | Short_Literal 0x1
0032 035d | ] | Declare_Type Array,Defined
0033 e006 | | Load 0x0,0x6
0034 1951 | Q | Execute Package,Field_Reference,Field_Number 0x51
0035 00c6 | | Action Check_Subprogram_Elaborated
0036 00d8 | | Load_Top At_Offset_0
0037 e007 | | Load 0x0,0x7
0038 e008 | | Load 0x0,0x8
0039 4800 |H | Short_Literal 0x0
003a 0007 | | Action Break_Optional
003b e006 | | Load 0x0,0x6
003c 1951 | Q | Execute Package,Field_Reference,Field_Number 0x51
003d 00c6 | | Action Check_Subprogram_Elaborated
003e e212 | | Load 0x1,0x12
003f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0040 e009 | | Load 0x0,0x9
0041 e00a | | Load 0x0,0xa
0042 4800 |H | Short_Literal 0x0
0043 0007 | | Action Break_Optional
0044 4800 |H | Short_Literal 0x0
0045 0093 00db | | push_full_address INIT_00d8
0047 00f5 | | Load_Encached Unused21
0048 037d | } | Declare_Type Task,Defined
0049 036f | o | Declare_Variable Task
004a e006 | | Load 0x0,0x6
004b e00b | | Load 0x0,0xb
004c e003 | | Load 0x0,0x3
004d e00c | | Load 0x0,0xc
004e e21a | | Load 0x1,0x1a
004f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0050 e001 | | Load 0x0,0x1
0051 e00d | | Load 0x0,0xd
0052 e212 | | Load 0x1,0x12
0053 e213 | | Load 0x1,0x13
0054 e00e | | Load 0x0,0xe
0055 e005 | | Load 0x0,0x5
0056 e00f | | Load 0x0,0xf
0057 e010 | | Load 0x0,0x10
0058 00b6 | | Action Make_Scope
0059 e216 | | Load 0x1,0x16
005a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005b 4811 |H | Short_Literal 0x11
005c e21e | | Load 0x1,0x1e
005d 020e | | Execute Module,Augment_Imports
005e 0007 | | Action Break_Optional
005f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0060 00c7 | | Action Elaborate_Subprogram
0061 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0062 00c7 | | Action Elaborate_Subprogram
0063 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0064 00c7 | | Action Elaborate_Subprogram
0065 e001 | | Load 0x0,0x1
0066 4801 |H | Short_Literal 0x1
0067 e213 | | Load 0x1,0x13
0068 020e | | Execute Module,Augment_Imports
0069 e213 | | Load 0x1,0x13
006a 020f | | Execute Module,Activate
006b e212 | | Load 0x1,0x12
006c 020f | | Execute Module,Activate
006d BODY_0008:
006d BODY_0008:
006d BODY_0008:
006d 00be | | Action Activate_Tasks
006e 00bc | | Action Signal_Activated
006f 00bb | | Action Signal_Completion
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0074 | t | .CONST 0x0074 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 00e1 | | Load_Encached Boolean_Cache
0074 BODY_0070:
0074 00e1 | | Load_Encached Boolean_Cache
0075 e5ff | | Load 0x2,-0x1
0076 4802 |H | Short_Literal 0x2
0077 e21e | | Load 0x1,0x1e
0078 1710 | | Execute Task,Entry_Call,Field_Number 0x10
0079 0059 | Y | Store_Top Discrete,At_Offset_1
007a 00d8 | | Load_Top At_Offset_0
007b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007c 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0087 | | .CONST 0x0087 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0003 | | .CONST 0x0003 ; Number of locals
0083 INIT_0080:
0083 e215 | | Load 0x1,0x15
0084 0337 | 7 | Declare_Variable Array
0085 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0087 BODY_0080:
0087 e214 | | Load 0x1,0x14
0088 7005 |p | Jump_Nonzero 0x8e
0089 4800 |H | Short_Literal 0x0
008a e21e | | Load 0x1,0x1e
008b 170d | | Execute Task,Entry_Call,Field_Number 0xd
008c 4801 |H | Short_Literal 0x1
008d a214 | | Store_Unchecked 0x1,0x14
008e 00d9 | | Load_Top At_Offset_1
008f e5fd | | Load 0x2,-0x3
0090 4802 |H | Short_Literal 0x2
0091 e21e | | Load 0x1,0x1e
0092 170e | | Execute Task,Entry_Call,Field_Number 0xe
0093 00d1 | | Pop_Control Pop_Count_1
0094 8403 | | Call 0x2,0x3
0095 0831 | 1 | Execute_Immediate Raise,0x31
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ad | | .CONST 0x00ad ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0007 | | .CONST 0x0007 ; Number of locals
009b INIT_0098:
009b e215 | | Load 0x1,0x15
009c 0337 | 7 | Declare_Variable Array
009d e006 | | Load 0x0,0x6
009e 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
009f 00c6 | | Action Check_Subprogram_Elaborated
00a0 e5fe | | Load 0x2,-0x2
00a1 e011 | | Load 0x0,0x11
00a2 e012 | | Load 0x0,0x12
00a3 4806 |H | Short_Literal 0x6
00a4 0007 | | Action Break_Optional
00a5 e402 | | Load 0x2,0x2
00a6 012d | - | Execute Any,Address
00a7 e403 | | Load 0x2,0x3
00a8 4804 |H | Short_Literal 0x4
00a9 4802 |H | Short_Literal 0x2
00aa 0099 | | Action Reference_Dynamic
00ab e006 | | Load 0x0,0x6
00ac 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00ad BODY_0098:
00ad e214 | | Load 0x1,0x14
00ae 7005 |p | Jump_Nonzero 0xb4
00af 4800 |H | Short_Literal 0x0
00b0 e21e | | Load 0x1,0x1e
00b1 170d | | Execute Task,Entry_Call,Field_Number 0xd
00b2 4801 |H | Short_Literal 0x1
00b3 a214 | | Store_Unchecked 0x1,0x14
00b4 e5fc | | Load 0x2,-0x4
00b5 c407 | | Store 0x2,0x7
00b6 e402 | | Load 0x2,0x2
00b7 e5fd | | Load 0x2,-0x3
00b8 4802 |H | Short_Literal 0x2
00b9 e21e | | Load 0x1,0x1e
00ba 170f | | Execute Task,Entry_Call,Field_Number 0xf
00bb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d3 | | .CONST 0x00d3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0006 | | .CONST 0x0006 ; Number of locals
00c3 INIT_00c0:
00c3 e006 | | Load 0x0,0x6
00c4 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
00c5 00c6 | | Action Check_Subprogram_Elaborated
00c6 e5fe | | Load 0x2,-0x2
00c7 e013 | | Load 0x0,0x13
00c8 e014 | | Load 0x0,0x14
00c9 4805 |H | Short_Literal 0x5
00ca 0007 | | Action Break_Optional
00cb e402 | | Load 0x2,0x2
00cc 012d | - | Execute Any,Address
00cd e602 | | Load 0x3,0x2
00ce 4803 |H | Short_Literal 0x3
00cf 4803 |H | Short_Literal 0x3
00d0 0099 | | Action Reference_Dynamic
00d1 e006 | | Load 0x0,0x6
00d2 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00d3 BODY_00c0:
00d3 00d8 | | Load_Top At_Offset_0
00d4 e5fe | | Load 0x2,-0x2
00d5 0119 | | Execute Any,Check_In_Formal_Type
00d6 00cb | | Action Pop_Block_With_Result
00d7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 011c | | .CONST 0x011c ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0022 | " | .CONST 0x0022 ; Number of locals
00db INIT_00d8:
00db 4800 |H | Short_Literal 0x0
00dc 02cb | | Declare_Variable Entry
00dd 4802 |H | Short_Literal 0x2
00de 02cb | | Declare_Variable Entry
00df 4802 |H | Short_Literal 0x2
00e0 02cb | | Declare_Variable Entry
00e1 4802 |H | Short_Literal 0x2
00e2 02cb | | Declare_Variable Entry
00e3 00bf | | Action Accept_Activation
00e4 e001 | | Load 0x0,0x1
00e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e6 0322 | " | Declare_Variable Record
00e7 4802 |H | Short_Literal 0x2
00e8 e002 | | Load 0x0,0x2
00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ea 1c08 | | Execute_Immediate Run_Utility,0x8
00eb 00d8 | | Load_Top At_Offset_0
00ec 1c00 | | Execute_Immediate Run_Utility,0x0
00ed 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
00ef 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
00f1 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
00f3 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
00f5 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
00f7 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
00f9 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
00fb 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
00fd 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
00ff 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0101 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
0103 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
0105 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0107 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
0109 480d 4854 |H HT| Declare_Variable Select 0x000, 0x001,
010b 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
010d 4800 4801 |H H | [0x00d]: 0x054 = 0x02a0
010f 02cf | |
0110 4810 4855 |H HU| Declare_Variable Select 0x000, 0x003,
0112 480f 4856 |H HV| [0x000]: 0x001 = 0x0008,
0114 480e 4858 |H HX| [0x00e]: 0x058 = 0x02c0,
0116 4800 4801 |H H | [0x00f]: 0x056 = 0x02b0,
0118 4800 4803 |H H | [0x010]: 0x055 = 0x02a8
011a 02cf | |
011b 00bc | | Action Signal_Activated
011c BODY_00d8:
011c 8214 | | Call 0x1,0x14
011d e003 | | Load 0x0,0x3
011e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
011f 4801 |H | Short_Literal 0x1
0120 4801 |H | Short_Literal 0x1
0121 4801 |H | Short_Literal 0x1
0122 4802 |H | Short_Literal 0x2
0123 4801 |H | Short_Literal 0x1
0124 e004 | | Load 0x0,0x4
0125 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0126 00d9 | | Load_Top At_Offset_1
0127 013f | ? | Execute Select,Rendezvous
0128 00d1 | | Pop_Control Pop_Count_1
0129 8220 | | Call 0x1,0x20
012a 00cf | | Action Mark_Auxiliary
012b 00d9 | | Load_Top At_Offset_1
012c 013f | ? | Execute Select,Rendezvous
012d 00d1 | | Pop_Control Pop_Count_1
012e 00c9 | | Action Pop_Auxiliary_Loop
012f 7ffb | | Jump 0x12b
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 e212 | | Load 0x1,0x12
0135 4801 |H | Short_Literal 0x1
0136 e002 | | Load 0x0,0x2
0137 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0139 0000 0000 | | .BLANK 0000[0x7]
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 e212 | | Load 0x1,0x12
0144 4801 |H | Short_Literal 0x1
0145 e002 | | Load 0x0,0x2
0146 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0147 00d1 | | Pop_Control Pop_Count_1
0148 e211 | | Load 0x1,0x11
0149 8213 | | Call 0x1,0x13
014a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e212 | | Load 0x1,0x12
0154 4801 |H | Short_Literal 0x1
0155 e5ff | | Load 0x2,-0x1
0156 e002 | | Load 0x0,0x2
0157 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e211 | | Load 0x1,0x11
0164 e005 | | Load 0x0,0x5
0165 a006 | | Store_Unchecked 0x0,0x6
0166 e001 | | Load 0x0,0x1
0167 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0168 BODY_0160:
0168 00d8 | | Load_Top At_Offset_0
0169 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
016a 00ca | | Action Exit_Nullary_Function
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0180 | | .CONST 0x0180 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0006 | | .CONST 0x0006 ; Number of locals
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3
0174 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0175 0007 | | Action Break_Optional
0176 00d8 | | Load_Top At_Offset_0
0177 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0178 0007 | | Action Break_Optional
0179 00d9 | | Load_Top At_Offset_1
017a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017b 0007 | | Action Break_Optional
017c 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
017e 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0180 BODY_0170:
0180 e5fd | | Load 0x2,-0x3
0181 7015 |p | Jump_Nonzero 0x197
0182 e5ff | | Load 0x2,-0x1
0183 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0184 7012 |p | Jump_Nonzero 0x197
0185 e5ff | | Load 0x2,-0x1
0186 e007 | | Load 0x0,0x7
0187 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0188 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0189 0322 | " | Declare_Variable Record
018a 4800 |H | Short_Literal 0x0
018b 00d9 | | Load_Top At_Offset_1
018c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
018d 4800 |H | Short_Literal 0x0
018e 00d9 | | Load_Top At_Offset_1
018f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0190 4800 |H | Short_Literal 0x0
0191 00d9 | | Load_Top At_Offset_1
0192 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0193 017f | | Execute Record,Equal
0194 7002 |p | Jump_Nonzero 0x197
0195 4801 |H | Short_Literal 0x1
0196 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0197 e5ff | | Load 0x2,-0x1
0198 e403 | | Load 0x2,0x3
0199 8405 | | Call 0x2,0x5
019a 00db | | Load_Top At_Offset_3
019b e5ff | | Load 0x2,-0x1
019c 8406 | | Call 0x2,0x6
019d 0279 | y | Execute Discrete,And
019e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a9 | | .CONST 0x01a9 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e008 | | Load 0x0,0x8
01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a6 e009 | | Load 0x0,0x9
01a7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01a8 0322 | " | Declare_Variable Record
01a9 BODY_01a0:
01a9 4801 |H | Short_Literal 0x1
01aa 8216 | | Call 0x1,0x16
01ab e5ff | | Load 0x2,-0x1
01ac 8217 | | Call 0x1,0x17
01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c7 | | .CONST 0x01c7 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0005 | | .CONST 0x0005 ; Number of locals
01b3 INIT_01b0:
01b3 e008 | | Load 0x0,0x8
01b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01b6 8216 | | Call 0x1,0x16
01b7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01b8 e00a | | Load 0x0,0xa
01b9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ba 00d8 | | Load_Top At_Offset_0
01bb e5ff | | Load 0x2,-0x1
01bc e00b | | Load 0x0,0xb
01bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
01be e00c | | Load 0x0,0xc
01bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c0 0322 | " | Declare_Variable Record
01c1 00db | | Load_Top At_Offset_3
01c2 00d9 | | Load_Top At_Offset_1
01c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c4 00d9 | | Load_Top At_Offset_1
01c5 00d9 | | Load_Top At_Offset_1
01c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c7 BODY_01b0:
01c7 00d8 | | Load_Top At_Offset_0
01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01df | | .CONST 0x01df ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0004 | | .CONST 0x0004 ; Number of locals
01d3 INIT_01d0:
01d3 e008 | | Load 0x0,0x8
01d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01d6 8216 | | Call 0x1,0x16
01d7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01d8 e00a | | Load 0x0,0xa
01d9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01da 00d8 | | Load_Top At_Offset_0
01db e5ff | | Load 0x2,-0x1
01dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01dd e00b | | Load 0x0,0xb
01de 180d | | Execute Package,Field_Execute,Field_Number 0xd
01df BODY_01d0:
01df 00d8 | | Load_Top At_Offset_0
01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef | | .CONST 0x01ef ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb 00e1 | | Load_Encached Boolean_Cache
01ec e001 | | Load 0x0,0x1
01ed 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
01ee 0322 | " | Declare_Variable Record
01ef BODY_01e8:
01ef 00cf | | Action Mark_Auxiliary
01f0 00d9 | | Load_Top At_Offset_1
01f1 e5ff | | Load 0x2,-0x1
01f2 e00d | | Load 0x0,0xd
01f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f4 00d1 | | Pop_Control Pop_Count_1
01f5 00d9 | | Load_Top At_Offset_1
01f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f7 460a |F | Jump_Case 0xb
01f8 780f |x | Jump 0x208 ; case 0x0
01f9 780a |x | Jump 0x204 ; case 0x1
01fa 7808 |x | Jump 0x203 ; case 0x2
01fb 7807 |x | Jump 0x203 ; case 0x3
01fc 7806 |x | Jump 0x203 ; case 0x4
01fd 7805 |x | Jump 0x203 ; case 0x5
01fe 7804 |x | Jump 0x203 ; case 0x6
01ff 7803 |x | Jump 0x203 ; case 0x7
0200 7802 |x | Jump 0x203 ; case 0x8
0201 7801 |x | Jump 0x203 ; case 0x9
0202 7800 |x | Jump 0x203 ; case 0xa
0203 0887 | | Execute_Immediate Raise,0x87
0204 600b |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x00000ccd}
0205 00ba | | Action Initiate_Delay
0206 00c9 | | Action Pop_Auxiliary_Loop
0207 7fe8 | | Jump 0x1f0
0208 00ce | | Action Pop_Auxiliary
0209 e5ff | | Load 0x2,-0x1
020a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
020b e00e | | Load 0x0,0xe
020c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
020d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020e 0000 0000 | | .XXX[0x2]
0210 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0234 | 4 | .CONST 0x0234 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e00d | | Load 0x0,0xd
021c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021d 0322 | " | Declare_Variable Record
021e 4800 |H | Short_Literal 0x0
021f 00d9 | | Load_Top At_Offset_1
0220 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0221 4800 |H | Short_Literal 0x0
0222 00d9 | | Load_Top At_Offset_1
0223 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0224 e5fe | | Load 0x2,-0x2
0225 00d9 | | Load_Top At_Offset_1
0226 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0227 00db | | Load_Top At_Offset_3
0228 8219 | | Call 0x1,0x19
0229 00d9 | | Load_Top At_Offset_1
022a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
022b 4801 |H | Short_Literal 0x1
022c 00d9 | | Load_Top At_Offset_1
022d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
022e 4800 |H | Short_Literal 0x0
022f 00d9 | | Load_Top At_Offset_1
0230 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0231 4800 |H | Short_Literal 0x0
0232 00d9 | | Load_Top At_Offset_1
0233 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0234 BODY_0218:
0234 00d8 | | Load_Top At_Offset_0
0235 821b | | Call 0x1,0x1b
0236 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 025e | ^ | .CONST 0x025e ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0004 | | .CONST 0x0004 ; Number of locals
023b INIT_0238:
023b 00e1 | | Load_Encached Boolean_Cache
023c e001 | | Load 0x0,0x1
023d 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
023e 0322 | " | Declare_Variable Record
023f e00d | | Load 0x0,0xd
0240 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0241 0322 | " | Declare_Variable Record
0242 4800 |H | Short_Literal 0x0
0243 00d9 | | Load_Top At_Offset_1
0244 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0245 4800 |H | Short_Literal 0x0
0246 00d9 | | Load_Top At_Offset_1
0247 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0248 e5ff | | Load 0x2,-0x1
0249 00d9 | | Load_Top At_Offset_1
024a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
024b 00d8 | | Load_Top At_Offset_0
024c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
024d e008 | | Load 0x0,0x8
024e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0250 00d9 | | Load_Top At_Offset_1
0251 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0252 4802 |H | Short_Literal 0x2
0253 00d0 | | Action Swap_Control
0254 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0255 4801 |H | Short_Literal 0x1
0256 00d9 | | Load_Top At_Offset_1
0257 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0258 4800 |H | Short_Literal 0x0
0259 00d9 | | Load_Top At_Offset_1
025a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
025b 4800 |H | Short_Literal 0x0
025c 00d9 | | Load_Top At_Offset_1
025d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
025e BODY_0238:
025e 00d8 | | Load_Top At_Offset_0
025f 821b | | Call 0x1,0x1b
0260 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0284 | | .CONST 0x0284 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b e00d | | Load 0x0,0xd
026c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026d 0322 | " | Declare_Variable Record
026e 4801 |H | Short_Literal 0x1
026f 00d9 | | Load_Top At_Offset_1
0270 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0271 4800 |H | Short_Literal 0x0
0272 00d9 | | Load_Top At_Offset_1
0273 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0274 e5fe | | Load 0x2,-0x2
0275 00d9 | | Load_Top At_Offset_1
0276 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0277 00db | | Load_Top At_Offset_3
0278 8219 | | Call 0x1,0x19
0279 00d9 | | Load_Top At_Offset_1
027a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
027b 4801 |H | Short_Literal 0x1
027c 00d9 | | Load_Top At_Offset_1
027d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
027e 4800 |H | Short_Literal 0x0
027f 00d9 | | Load_Top At_Offset_1
0280 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0281 4800 |H | Short_Literal 0x0
0282 00d9 | | Load_Top At_Offset_1
0283 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0284 BODY_0268:
0284 00d8 | | Load_Top At_Offset_0
0285 821b | | Call 0x1,0x1b
0286 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e00c | | Load 0x0,0xc
028c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028d 0322 | " | Declare_Variable Record
028e 00db | | Load_Top At_Offset_3
028f 00d9 | | Load_Top At_Offset_1
0290 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0291 4802 |H | Short_Literal 0x2
0292 00d9 | | Load_Top At_Offset_1
0293 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0294 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e211 | | Load 0x1,0x11
029c 821d | | Call 0x1,0x1d
029d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; See instruction 0x02cf at 0x109, index=0xd
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4100 |A | End_Rendezvous 0x0
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; See instruction 0x02cf at 0x110, index=0x10
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 8218 | | Call 0x1,0x18
02ad a5fd | | Store_Unchecked 0x2,-0x3
02ae 4101 |A | End_Rendezvous 0x1
02af 0000 | | .XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; See instruction 0x02cf at 0x110, index=0xf
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
02b5 4801 |H | Short_Literal 0x1
02b6 8216 | | Call 0x1,0x16
02b7 e5fe | | Load 0x2,-0x2
02b8 8217 | | Call 0x1,0x17
02b9 7003 |p | Jump_Nonzero 0x2bd
02ba e00f | | Load 0x0,0xf
02bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02bc 0257 | W | Execute Discrete,Raise
02bd 8402 | | Call 0x2,0x2
02be 4100 |A | End_Rendezvous 0x0
02bf 0000 | | .XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; See instruction 0x02cf at 0x110, index=0xe
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
02c5 4800 |H | Short_Literal 0x0
02c6 8216 | | Call 0x1,0x16
02c7 e5fe | | Load 0x2,-0x2
02c8 8217 | | Call 0x1,0x17
02c9 7003 |p | Jump_Nonzero 0x2cd
02ca e00f | | Load 0x0,0xf
02cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cc 0257 | W | Execute Discrete,Raise
02cd 8402 | | Call 0x2,0x2
02ce 4101 |A | End_Rendezvous 0x1
02cf 0000 | | .XXX[0x1]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d5 e7fe | | Load 0x3,-0x2
02d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d7 027c | | | Execute Discrete,Less
02d8 701e |p | Jump_Nonzero 0x2f7
02d9 00da | | Load_Top At_Offset_2
02da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02db e7fe | | Load 0x3,-0x2
02dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02dd 027f | | Execute Discrete,Equal
02de 6816 |h | Jump_Zero 0x2f5
02df 00da | | Load_Top At_Offset_2
02e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e1 e7fe | | Load 0x3,-0x2
02e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e3 027c | | | Execute Discrete,Less
02e4 700e |p | Jump_Nonzero 0x2f3
02e5 00da | | Load_Top At_Offset_2
02e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e7 e7fe | | Load 0x3,-0x2
02e8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e9 027f | | Execute Discrete,Equal
02ea 6806 |h | Jump_Zero 0x2f1
02eb 00da | | Load_Top At_Offset_2
02ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ed e7fe | | Load 0x3,-0x2
02ee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ef 027a | z | Execute Discrete,Less_Equal
02f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f1 4800 |H | Short_Literal 0x0
02f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f3 4801 |H | Short_Literal 0x1
02f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f5 4800 |H | Short_Literal 0x0
02f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f7 4801 |H | Short_Literal 0x1
02f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f9 0000 0000 | | .BLANK 0000[0x7]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0305 e7fe | | Load 0x3,-0x2
0306 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0307 027c | | | Execute Discrete,Less
0308 701e |p | Jump_Nonzero 0x327
0309 00da | | Load_Top At_Offset_2
030a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030b e7fe | | Load 0x3,-0x2
030c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030d 027f | | Execute Discrete,Equal
030e 6816 |h | Jump_Zero 0x325
030f 00da | | Load_Top At_Offset_2
0310 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0311 e7fe | | Load 0x3,-0x2
0312 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0313 027c | | | Execute Discrete,Less
0314 700e |p | Jump_Nonzero 0x323
0315 00da | | Load_Top At_Offset_2
0316 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0317 e7fe | | Load 0x3,-0x2
0318 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0319 027f | | Execute Discrete,Equal
031a 6806 |h | Jump_Zero 0x321
031b 00da | | Load_Top At_Offset_2
031c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
031d e7fe | | Load 0x3,-0x2
031e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
031f 027a | z | Execute Discrete,Less_Equal
0320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0321 4800 |H | Short_Literal 0x0
0322 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0323 4801 |H | Short_Literal 0x1
0324 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0325 4800 |H | Short_Literal 0x0
0326 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0327 4801 |H | Short_Literal 0x1
0328 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0338 | 8 | .CONST 0x0338 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 e001 | | Load 0x0,0x1
0334 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0335 0322 | " | Declare_Variable Record
0336 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
0338 BODY_0330:
0338 00d9 | | Load_Top At_Offset_1
0339 8213 | | Call 0x1,0x13
033a 00d1 | | Pop_Control Pop_Count_1
033b 8603 | | Call 0x3,0x3
033c 00d9 | | Load_Top At_Offset_1
033d 8215 | | Call 0x1,0x15
033e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0348 | H | .CONST 0x0348 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0003 | | .CONST 0x0003 ; Number of locals
0343 INIT_0340:
0343 e001 | | Load 0x0,0x1
0344 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0345 0322 | " | Declare_Variable Record
0346 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
0348 BODY_0340:
0348 00d9 | | Load_Top At_Offset_1
0349 8213 | | Call 0x1,0x13
034a 00d1 | | Pop_Control Pop_Count_1
034b 8603 | | Call 0x3,0x3
034c 00d9 | | Load_Top At_Offset_1
034d 8215 | | Call 0x1,0x15
034e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0358 | X | .CONST 0x0358 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 e602 | | Load 0x3,0x2
0354 e010 | | Load 0x0,0x10
0355 a011 | | Store_Unchecked 0x0,0x11
0356 e001 | | Load 0x0,0x1
0357 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0358 BODY_0350:
0358 e5fd | | Load 0x2,-0x3
0359 00d9 | | Load_Top At_Offset_1
035a 01d4 | | Execute Vector,Structure_Write
035b e602 | | Load 0x3,0x2
035c e5fe | | Load 0x2,-0x2
035d 821e | | Call 0x1,0x1e
035e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0368 | h | .CONST 0x0368 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0002 | | .CONST 0x0002 ; Number of locals
0363 INIT_0360:
0363 e602 | | Load 0x3,0x2
0364 e010 | | Load 0x0,0x10
0365 a011 | | Store_Unchecked 0x0,0x11
0366 e001 | | Load 0x0,0x1
0367 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0368 BODY_0360:
0368 e602 | | Load 0x3,0x2
0369 e5fe | | Load 0x2,-0x2
036a 821c | | Call 0x1,0x1c
036b 00d8 | | Load_Top At_Offset_0
036c e5fd | | Load 0x2,-0x3
036d 01d4 | | Execute Vector,Structure_Write
036e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
036f 0000 | | .XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0378 | x | .CONST 0x0378 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 000d | | .CONST 0x000d ; Number of locals
0373 INIT_0370:
0373 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0375 00bf | | Action Accept_Activation
0376 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0377 00c7 | | Action Elaborate_Subprogram
0378 BODY_0370:
0378 00bc | | Action Signal_Activated
0379 00bb | | Action Signal_Completion
037a 0000 0000 | | .BLANK 0000[0x6]
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 e001 | | Load 0x0,0x1
0384 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0385 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0386 0322 | " | Declare_Variable Record
0387 00db | | Load_Top At_Offset_3
0388 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0389 00d8 | | Load_Top At_Offset_0
038a e001 | | Load 0x0,0x1
038b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038d 0260 | ` | Execute Discrete,In_Type
038e 7001 |p | Jump_Nonzero 0x390
038f 0801 | | Execute_Immediate Raise,0x1
0390 00d9 | | Load_Top At_Offset_1
0391 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0392 00db | | Load_Top At_Offset_3
0393 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0394 00d8 | | Load_Top At_Offset_0
0395 e001 | | Load 0x0,0x1
0396 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0398 0260 | ` | Execute Discrete,In_Type
0399 7001 |p | Jump_Nonzero 0x39b
039a 0801 | | Execute_Immediate Raise,0x1
039b 00d9 | | Load_Top At_Offset_1
039c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
039d 00db | | Load_Top At_Offset_3
039e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
039f 00d8 | | Load_Top At_Offset_0
03a0 e001 | | Load 0x0,0x1
03a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a3 0260 | ` | Execute Discrete,In_Type
03a4 7001 |p | Jump_Nonzero 0x3a6
03a5 0801 | | Execute_Immediate Raise,0x1
03a6 00d9 | | Load_Top At_Offset_1
03a7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a9 0000 0000 | | .BLANK 0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 040e | | .CONST 0x040e ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0014 | | .CONST 0x0014 ; Number of locals
03b3 INIT_03b0:
03b3 e001 | | Load 0x0,0x1
03b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03b5 0129 | ) | Execute Any,Make_Visible
03b6 e001 | | Load 0x0,0x1
03b7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03b8 0129 | ) | Execute Any,Make_Visible
03b9 e001 | | Load 0x0,0x1
03ba 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03bb e002 | | Load 0x0,0x2
03bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03bd e002 | | Load 0x0,0x2
03be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03bf 02a0 | | Declare_Subprogram Null_Subprogram
03c0 4803 |H | Short_Literal 0x3
03c1 032e | . | Declare_Type Record,Defined,Visible
03c2 e001 | | Load 0x0,0x1
03c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03c4 e002 | | Load 0x0,0x2
03c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03c6 e002 | | Load 0x0,0x2
03c7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03c8 02a0 | | Declare_Subprogram Null_Subprogram
03c9 4803 |H | Short_Literal 0x3
03ca 032e | . | Declare_Type Record,Defined,Visible
03cb 00d8 | | Load_Top At_Offset_0
03cc 00d9 | | Load_Top At_Offset_1
03cd 02a0 | | Declare_Subprogram Null_Subprogram
03ce 4802 |H | Short_Literal 0x2
03cf 032e | . | Declare_Type Record,Defined,Visible
03d0 4801 |H | Short_Literal 0x1
03d1 481e |H | Short_Literal 0x1e
03d2 00e9 | | Load_Encached String_Cache
03d3 035c | \ | Declare_Type Array,Constrained,Visible
03d4 e001 | | Load 0x0,0x1
03d5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03d6 e20d | | Load 0x1,0xd
03d7 e20e | | Load 0x1,0xe
03d8 e20f | | Load 0x1,0xf
03d9 e211 | | Load 0x1,0x11
03da 00d8 | | Load_Top At_Offset_0
03db e211 | | Load 0x1,0x11
03dc 00d8 | | Load_Top At_Offset_0
03dd e211 | | Load 0x1,0x11
03de e003 | | Load 0x0,0x3
03df 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03e0 00e1 | | Load_Encached Boolean_Cache
03e1 e003 | | Load 0x0,0x3
03e2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03e3 00e1 | | Load_Encached Boolean_Cache
03e4 e212 | | Load 0x1,0x12
03e5 02a0 | | Declare_Subprogram Null_Subprogram
03e6 480e |H | Short_Literal 0xe
03e7 032e | . | Declare_Type Record,Defined,Visible
03e8 e004 | | Load 0x0,0x4
03e9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ea 012c | , | Execute Any,Size
03eb e003 | | Load 0x0,0x3
03ec 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03ed 012c | , | Execute Any,Size
03ee 0273 | s | Execute Discrete,Plus
03ef e001 | | Load 0x0,0x1
03f0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03f1 012c | , | Execute Any,Size
03f2 027f | | Execute Discrete,Equal
03f3 7001 |p | Jump_Nonzero 0x3f5
03f4 0887 | | Execute_Immediate Raise,0x87
03f5 00d8 | | Load_Top At_Offset_0
03f6 012c | , | Execute Any,Size
03f7 4829 |H) | Short_Literal 0x29
03f8 e001 | | Load 0x0,0x1
03f9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03fa 012c | , | Execute Any,Size
03fb 0271 | q | Execute Discrete,Times
03fc 027f | | Execute Discrete,Equal
03fd 7001 |p | Jump_Nonzero 0x3ff
03fe 0887 | | Execute_Immediate Raise,0x87
03ff e004 | | Load 0x0,0x4
0400 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0401 e003 | | Load 0x0,0x3
0402 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0403 00da | | Load_Top At_Offset_2
0404 02a0 | | Declare_Subprogram Null_Subprogram
0405 4803 |H | Short_Literal 0x3
0406 032e | . | Declare_Type Record,Defined,Visible
0407 00d8 | | Load_Top At_Offset_0
0408 012c | , | Execute Any,Size
0409 6006 |` | Indirect_Literal Discrete,0x410,{0x00000000, 0x00002000}
040a 027a | z | Execute Discrete,Less_Equal
040b 7001 |p | Jump_Nonzero 0x40d
040c 0887 | | Execute_Immediate Raise,0x87
040d 00bf | | Action Accept_Activation
040e BODY_03b0:
040e 00bc | | Action Signal_Activated
040f 00bb | | Action Signal_Completion
0410 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
0414 0000 0000 | | .BLANK 0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug Table
0418 ; --------------------------------------------------------------------------------------
0418 0004 0011 | | .DEBUG4 0x0004,0x0011,0x6ca5,0x0000,0x0001,0x0000
041e 81c0 0420 | | .XXX[0x54]
0420 0780 2860 | (`|
0422 5807 2d10 |X - |
0424 0403 6a08 | j |
0426 89a0 5003 | P |
0428 6980 5809 |i X |
042a fda0 0b89 | |
042c 5d10 0521 |] !|
042e cd20 8120 | |
0430 0120 2b97 | + |
0432 fc03 6003 | ` |
0434 8c09 81c0 | |
0436 0420 0780 | |
0438 2860 5807 |(`X |
043a 2d10 0403 |- |
043c a910 0400 | |
043e 0000 0000 | |
0440 0000 01ff | |
0442 ffff fc00 | |
0444 0000 0000 | |
0446 0000 000b | |
0448 8c00 1000 | |
044a 0403 6910 | i |
044c 0400 0000 | |
044e 0000 000b | |
0450 b800 1000 | |
0452 0f88 3800 | 8 |
0454 1c03 8403 | |
0456 8788 3b97 | ; |
0458 fe09 6401 | d |
045a 6c01 6403 |l d |
045c 6110 0400 |a |
045e 0000 000b | |
0460 f800 1000 | |
0462 0f88 3800 | 8 |
0464 1c03 8403 | |
0466 8788 3b97 | ; |
0468 fe09 6401 | d |
046a 6c01 6403 |l d |
046c 61a0 0803 |a |
046e 6510 0789 |e |
0470 0c09 5c00 | \ |
0472 0000 0000 | | .BLANK 0000[0x5]
0477 000c 4c00 | L | .XXX[0x6]
0479 1000 0580 | |
047b 1003 2800 | ( |
047d 0000 0000 | | .BLANK 0000[0x4]
0481 01ff ffff | | .XXX[0x5a]
0483 fc00 0000 | |
0485 0000 0000 | |
0487 000c 8c0c | |
0489 a000 0403 | |
048b 68d0 0389 |h |
048d 4060 ad10 |@` |
048f 0404 39a0 | 9 |
0491 0920 0110 | |
0493 0404 0000 | |
0495 0000 0000 | |
0497 000c cc0c | |
0499 e000 0403 | |
049b 68d0 0389 |h |
049d 5060 ad10 |P` |
049f 0404 39a0 | 9 |
04a1 0920 0110 | |
04a3 0404 0000 | |
04a5 0000 0000 | |
04a7 000d 2400 | $ |
04a9 1000 0c03 | |
04ab 6a08 ac03 |j |
04ad 8c0f c788 | |
04af 3400 1f97 |4 |
04b1 f803 6809 | h |
04b3 f5a0 0b89 | |
04b5 1009 5c03 | \ |
04b7 6797 f809 |g |
04b9 c828 0403 | ( |
04bb 6003 9009 |` |
04bd 81c0 0420 | |
04bf 0797 fcd0 | |
04c1 0389 4060 | @`|
04c3 b000 c403 | |
04c5 6110 0800 |a |
04c7 000d 9c00 | |
04c9 1000 0803 | |
04cb 6a08 ac03 |j |
04cd 8c0f c797 | |
04cf f803 6409 | d |
04d1 f5a0 0b89 | |
04d3 1009 5f97 | _ |
04d5 fb97 fcd0 | |
04d7 0389 4060 | @`|
04d9 b110 0800 | |
04db 0000 0000 | | .BLANK 0000[0x4]
04df 000d fc00 | | .XXX[0x14]
04e1 1000 0803 | |
04e3 6a08 ac03 |j |
04e5 8c0f c797 | |
04e7 f803 6409 | d |
04e9 f5a0 0b89 | |
04eb 1009 5f97 | _ |
04ed fb97 fcd0 | |
04ef 0389 4060 | @`|
04f1 b110 0800 | |
04f3 0000 0000 | | .BLANK 0000[0x4]
04f7 000e 5c00 | \ | .XXX[0x14]
04f9 1000 0803 | |
04fb 6a08 b003 |j |
04fd 8c0f c797 | |
04ff f803 6409 | d |
0501 f5a0 0b89 | |
0503 1009 5f97 | _ |
0505 fb97 fcd0 | |
0507 0389 5060 | P`|
0509 b110 0800 | |
050b 0000 0000 | | .BLANK 0000[0x4]
050f 000e c400 | | .XXX[0x4b]
0511 1000 0c03 | |
0513 6e08 ac03 |n |
0515 8c0f c403 | |
0517 6e08 7803 |n x |
0519 3c03 6920 |< i |
051b 0409 8dc0 | |
051d 2403 6c03 |$ l |
051f 6797 fa09 |g |
0521 6808 7da0 |h } |
0523 0514 0803 | |
0525 20ff dc03 | |
0527 3b97 f8f0 |; |
0529 0003 6789 | g |
052b 4060 7d14 |@`} |
052d 0800 0000 | |
052f 000f 4400 | D |
0531 1000 0c03 | |
0533 6e08 ac03 |n |
0535 8c0f c403 | |
0537 6e08 7803 |n x |
0539 3c03 6920 |< i |
053b 0409 8dc0 | |
053d 2403 6c03 |$ l |
053f 6797 fa08 |g |
0541 bc08 7da0 | } |
0543 0514 0803 | |
0545 20ff dc03 | |
0547 3b97 f8f0 |; |
0549 0003 6520 | e |
054b 0789 4060 | @`|
054d 8d14 0800 | |
054f 000f ac00 | |
0551 1000 0403 | |
0553 6cf0 0003 |l |
0555 6d20 0789 |m |
0557 4060 8d14 |@` |
0559 0800 | |
055a 0000 0000 | | .BLANK 0000[0x5]
055f 000f ec00 | | .XXX[0xb]
0561 1000 0403 | |
0563 6cf0 0003 |l |
0565 6d20 0789 |m |
0567 5060 8d14 |P` |
0569 0800 | |
056a 0000 0000 | | .BLANK 0000[0x5]
056f 0010 3c00 | < | .XXX[0x91]
0571 1000 0b89 | |
0573 440c 8803 |D |
0575 6070 0003 |`p |
0577 6f88 3c05 |o < |
0579 fda0 1003 | |
057b 6c0c 8003 |l |
057d 3510 0403 |5 |
057f 60f0 0397 |` |
0581 fcd0 0389 | |
0583 4060 5403 |@`T |
0585 4403 6110 |D a |
0587 0410 9400 | |
0589 1000 0b89 | |
058b 380c 8803 |8 |
058d 6c03 64e0 |l d |
058f 0397 f803 | |
0591 64e0 0797 |d |
0593 f403 64e0 | d |
0595 0803 6110 | a |
0597 0c10 d400 | |
0599 1000 0b80 | |
059b 300c 8803 |0 |
059d 6e09 6003 |n ` |
059f 6405 f403 |d |
05a1 6200 3510 |b 5 |
05a3 0400 0000 | |
05a5 0000 0000 | |
05a7 0011 1c00 | |
05a9 1000 0f89 | |
05ab 380c 8b80 |8 |
05ad 300c 8b97 |0 |
05af fe08 51a0 | Q |
05b1 0b88 4910 | I |
05b3 0797 fe00 | |
05b5 3803 6405 |8 d |
05b7 f403 60f0 | ` |
05b9 0403 68e0 | h |
05bb 0003 60f0 | ` |
05bd 0803 68e0 | h |
05bf 0403 60f0 | ` |
05c1 0003 68e0 | h |
05c3 0803 6510 | e |
05c5 0400 0000 | |
05c7 0011 9812 | |
05c9 4000 0c03 |@ |
05cb b389 380c | 8 |
05cd 8b97 f8f0 | |
05cf 0389 406c | @l|
05d1 4520 0389 |E |
05d3 4060 a803 |@` |
05d5 4403 3f97 |D ? |
05d7 fcd0 0389 | |
05d9 5060 ad20 |P` |
05db 0409 8dc0 | |
05dd 6403 6397 |d c |
05df fcd0 0389 | |
05e1 5060 b390 |P` |
05e3 0c05 f403 | |
05e5 6cf0 0b90 |l |
05e7 0cf0 0790 | |
05e9 0cf0 0380 | |
05eb 3c6c 4460 |<lD`|
05ed 6a90 0b97 |j |
05ef f8f0 0390 | |
05f1 0b89 4060 | @`|
05f3 7c03 4403 || D |
05f5 20ff 9d14 | |
05f7 0800 1f88 | |
05f9 3f97 f805 |? |
05fb f514 0800 | |
05fd 0000 0000 | |
05ff 0012 | |