|
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 3914 0803 |9 | .XXX[0x1e2]
0420 3c02 9c15 |< |
0422 e920 0390 | |
0424 0b81 d060 | `|
0426 8802 9815 | |
0428 b120 0120 | |
042a 0390 0b81 | |
042c d060 bc02 | ` |
042e 9815 d790 | |
0430 0b81 d060 | `|
0432 a1e1 1002 | |
0434 9c15 d402 | |
0436 9c11 8802 | |
0438 9c11 c402 | |
043a 9c12 0002 | |
043c 9c12 3c02 | < |
043e 9c12 7802 | x |
0440 9c14 4802 | H |
0442 9c15 5402 | T |
0444 9c15 9402 | |
0446 9c12 cc02 | |
0448 9c14 3402 | 4 |
044a 9c14 7002 | p |
044c 9c14 dc02 | |
044e 9c15 0402 | |
0450 9c15 1802 | |
0452 9c15 2c02 | , |
0454 9c15 6802 | h |
0456 9c14 f002 | |
0458 9c15 4002 | @ |
045a 9c14 5c02 | \ |
045c 9c14 8402 | |
045e 9c14 c802 | |
0460 9c12 b402 | |
0462 9c12 e402 | |
0464 9c12 fc02 | |
0466 9c13 1402 | |
0468 9c13 5002 | P |
046a 9c14 0402 | |
046c 9c14 1c02 | |
046e 9c13 dc02 | |
0470 9c13 f002 | |
0472 9c14 9802 | |
0474 9c14 ac02 | |
0476 9c15 7d1a | } |
0478 29fe e9e3 |) |
047a 45e3 b1e4 |E |
047c 29e4 69e4 |) i |
047e 81e4 b5e4 | |
0480 cde4 e1e4 | |
0482 fde5 31e5 | 1 |
0484 49e5 0de5 |I |
0486 79e5 91e5 |y |
0488 d9e5 ede7 | |
048a 51e7 dde7 |Q |
048c f1e8 3de8 | = |
048e a9eb b9ec | |
0490 79ec 89ec |y |
0492 99ec d5ed | |
0494 19ed 29ed | ) |
0496 41ed b9ee |A |
0498 09ee 35fe | 5 |
049a 6dfe 71fe |m q |
049c 75fe 79fe |u y |
049e 7dfe 81fe |} |
04a0 85fe 89e2 | |
04a2 05e2 1de2 | |
04a4 35e2 4de2 |5 M |
04a6 61e2 79e4 |a y |
04a8 d5e5 25e5 | % |
04aa 39e5 7de5 |9 } |
04ac f1e6 4de6 | M |
04ae d9e7 8de7 | |
04b0 d9e7 fdeb | |
04b2 61eb 75eb |a u |
04b4 89eb 9dec | |
04b6 61ec 75ed |a u |
04b8 4ded f1ee |M |
04ba 1dee 6dfe | m |
04bc 25fe 29fe |% ) |
04be 2dfe 31fe |- 1 |
04c0 35fe 39fe |5 9 |
04c2 3dfe 41e5 |= A |
04c4 a9e6 95e7 | |
04c6 45e7 91e7 |E |
04c8 eded c9fe | |
04ca 2dfe 31e2 |- 1 |
04cc 89e2 9de2 | |
04ce b1e2 c5e3 | |
04d0 55e7 95ea |U |
04d2 c9fe 19fe | |
04d4 1dfe 21e1 | ! |
04d6 f1e2 09e2 | |
04d8 21e4 dde4 |! |
04da f1e5 05e5 | |
04dc 19e5 5de5 | ] |
04de 71e5 9de5 |q |
04e0 b1e5 c5e5 | |
04e2 d9e6 35e6 | 5 |
04e4 49e6 5de6 |I ] |
04e6 9de6 e9e7 | |
04e8 59ea e5ea |Y |
04ea f9eb 49eb | I |
04ec 59ec 01ec |Y |
04ee 15ec 29ec | ) |
04f0 3dec bdfd |= |
04f2 b5fd b9fd | |
04f4 bdfd c1fd | |
04f6 c5fd c9fd | |
04f8 cdfd d1fd | |
04fa d5fd d9fd | |
04fc ddfd e1e7 | |
04fe 2de7 b9e8 |- |
0500 45e8 d1e9 |E |
0502 5de0 0120 |] |
0504 0781 d407 | |
0506 5c02 4816 |\ H |
0508 7609 5920 |v Y |
050a 0b81 d407 | |
050c 5c02 4816 |\ H |
050e 7a09 5920 |z Y |
0510 0f81 d407 | |
0512 5c02 4816 |\ H |
0514 7e09 5920 |~ Y |
0516 1381 d407 | |
0518 5c02 4816 |\ H |
051a 8209 5920 | Y |
051c 1781 d407 | |
051e 5c02 4816 |\ H |
0520 8609 5802 | X |
0522 9c15 d781 | |
0524 60f0 0002 |` |
0526 4816 8a09 |H |
0528 6002 9c15 |` |
052a d780 f0f0 | |
052c 0002 4816 | H |
052e 8e09 6002 | ` |
0530 9c15 d781 | |
0532 40f0 0002 |@ |
0534 4816 9209 |H |
0536 6002 9c15 |` |
0538 d780 6402 | d |
053a 4816 9609 |H |
053c 6002 9c15 |` |
053e d780 5cf0 | \ |
0540 0002 4816 | H |
0542 9a09 6002 | ` |
0544 9c15 d781 | |
0546 2802 4816 |( H |
0548 9e09 6002 | ` |
054a 9c15 d780 | |
054c 5cf0 0402 |\ |
054e 4816 a209 |H |
0550 7402 9c15 |t |
0552 d780 5cf0 | \ |
0554 0802 4816 | H |
0556 a609 5802 | X |
0558 9c15 d780 | |
055a 5cf0 0c02 |\ |
055c 4816 aa09 |H |
055e 5802 9c15 |X |
0560 d780 5cf0 | \ |
0562 1002 4816 | H |
0564 ae09 5802 | X |
0566 9c15 d780 | |
0568 5cf0 1402 |\ |
056a 4816 b209 |H |
056c 7402 9c15 |t |
056e d780 e802 | |
0570 4816 b609 |H |
0572 7c02 9c15 || |
0574 d780 c802 | |
0576 4816 ba09 |H |
0578 7c02 9c15 || |
057a d780 6002 | ` |
057c 4816 be09 |H |
057e 7c02 9c15 || |
0580 d780 e402 | |
0582 4816 c209 |H |
0584 7c02 9c15 || |
0586 d780 446c | Dl|
0588 9402 4816 | H |
058a c609 7780 | w |
058c 446c 9802 |Dl |
058e 4816 ca09 |H |
0590 7780 446c |w Dl|
0592 9c02 4816 | H |
0594 ce09 7802 | x |
0596 9c15 d780 | |
0598 446c 9402 |Dl |
059a 4816 c609 |H |
059c 7402 9c15 |t |
059e d780 446c | Dl|
05a0 9802 4816 | H |
05a2 ca09 7402 | t |
05a4 9c15 d780 | |
05a6 446c 9c02 |Dl |
05a8 4816 ce09 |H |
05aa 7802 9c15 |x |
05ac d780 f4f0 | |
05ae 0402 4816 | H |
05b0 d209 7402 | t |
05b2 9c15 d781 | |
05b4 2002 4816 | H |
05b6 d609 7402 | t |
05b8 9c15 d780 | |
05ba 546c 6c3c |Tll<|
05bc 0802 4816 | H |
05be da09 7402 | t |
05c0 9c15 d780 | |
05c2 5cf0 1802 |\ |
05c4 4816 de09 |H |
05c6 7402 9c15 |t |
05c8 d780 5cf0 | \ |
05ca 1c02 4816 | H |
05cc e209 7802 | x |
05ce 9c15 d780 | |
05d0 5cf0 2002 |\ |
05d2 4816 e609 |H |
05d4 7402 9c15 |t |
05d6 d780 5cf0 | \ |
05d8 2402 4816 |$ H |
05da ea09 7402 | t |
05dc 9c15 d780 | |
05de 5cf0 2802 |\ ( |
05e0 4816 ee09 |H |
05e2 6002 9c15 |` |
05e4 d780 5cf0 | \ |
05e6 2c02 4816 |, H |
05e8 f209 7402 | t |
05ea 9c15 d780 | |
05ec 5cf0 3002 |\ 0 |
05ee 4816 f609 |H |
05f0 7402 9c15 |t |
05f2 d781 64f0 | d |
05f4 0002 4816 | H |
05f6 fa09 61ed | a |
05f8 df80 e8f0 | |
05fa 0002 4816 | H |
05fc fe09 61ed | a |
05fe c780 5cf0 | \ |