|
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_779ce4
└─⟦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 0408 | | .CONST 0x0408 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0100 | | .CONST 0x0100 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0046 | F | .CONST 0x0046 ; Number of locals
000b INIT_0008:
000b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
000d 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
000f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0011 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0013 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0015 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0017 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0019 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
001f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0021 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0023 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0025 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0027 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0029 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
002b 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
002d 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
002f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0031 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0033 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0035 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0037 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0039 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
003b 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
003d 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
003f 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0041 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0043 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0045 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0047 0093 0000 | | push_full_address 0x0
0049 60fe |` | Indirect_Literal Discrete,0x148,{0x80000000, 0x00010000}
004a 0273 | s | Execute Discrete,Plus
004b e20d | | Load 0x1,0xd
004c 60f7 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0000ffff}
004d 0279 | y | Execute Discrete,And
004e 0273 | s | Execute Discrete,Plus
004f 0129 | ) | Execute Any,Make_Visible
0050 0093 0000 | | push_full_address 0x0
0052 60ed |` | Indirect_Literal Discrete,0x140,{0x80000000, 0x00010000}
0053 0273 | s | Execute Discrete,Plus
0054 e20d | | Load 0x1,0xd
0055 60ee |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0000ffff}
0056 0279 | y | Execute Discrete,And
0057 0273 | s | Execute Discrete,Plus
0058 e002 | | Load 0x0,0x2
0059 0273 | s | Execute Discrete,Plus
005a e20e | | Load 0x1,0xe
005b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
005d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005f e003 | | Load 0x0,0x3
0060 0386 | | Declare_Variable Package,Visible
0061 00d8 | | Load_Top At_Offset_0
0062 020f | | Execute Module,Activate
0063 e004 | | Load 0x0,0x4
0064 00d9 | | Load_Top At_Offset_1
0065 0098 | | Execute Package,Field_Read_Dynamic
0066 0129 | ) | Execute Any,Make_Visible
0067 4802 |H | Short_Literal 0x2
0068 032b | + | Declare_Type Record,Incomplete,Visible
0069 00d8 | | Load_Top At_Offset_0
006a 02a0 | | Declare_Subprogram Null_Subprogram
006b 4818 |H | Short_Literal 0x18
006c 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
006d e210 | | Load 0x1,0x10
006e 00e1 | | Load_Encached Boolean_Cache
006f e005 | | Load 0x0,0x5
0070 e23a | : | Load 0x1,0x3a
0071 0098 | | Execute Package,Field_Read_Dynamic
0072 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
0074 4803 |H | Short_Literal 0x3
0075 032e | . | Declare_Type Record,Defined,Visible
0076 00bf | | Action Accept_Activation
0077 4800 |H | Short_Literal 0x0
0078 4801 |H | Short_Literal 0x1
0079 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
007b 03fd | | Declare_Type Discrete,Defined
007c e006 | | Load 0x0,0x6
007d e007 | | Load 0x0,0x7
007e 00da | | Load_Top At_Offset_2
007f 4800 |H | Short_Literal 0x0
0080 4801 |H | Short_Literal 0x1
0081 4801 |H | Short_Literal 0x1
0082 0092 03ea | | Action Push_String_Extended,0x3ea ; "others => Unspecified"
0084 00ea | | Load_Encached Null_String_Cache
0085 00ea | | Load_Encached Null_String_Cache
0086 4801 |H | Short_Literal 0x1
0087 4801 |H | Short_Literal 0x1
0088 e008 | | Load 0x0,0x8
0089 0387 | | Declare_Variable Package
008a 00d8 | | Load_Top At_Offset_0
008b 020f | | Execute Module,Activate
008c e005 | | Load 0x0,0x5
008d e23a | : | Load 0x1,0x3a
008e 0098 | | Execute Package,Field_Read_Dynamic
008f e23c | < | Load 0x1,0x3c
0090 0325 | % | Complete_Type Record,By_Renaming
0091 00db | | Load_Top At_Offset_3
0092 03c4 | | Complete_Type Access,By_Component_Completion
0093 029b 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Unelaborated
0095 029b 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Unelaborated
0097 029b 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Unelaborated
0099 029b 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Unelaborated
009b 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
009d 0093 0000 | | push_full_address 0x0
009f 609c |` | Indirect_Literal Discrete,0x13c,{0x80000000, 0x00020000}
00a0 0273 | s | Execute Discrete,Plus
00a1 e20d | | Load 0x1,0xd
00a2 60a1 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0000ffff}
00a3 0279 | y | Execute Discrete,And
00a4 0273 | s | Execute Discrete,Plus
00a5 e009 | | Load 0x0,0x9
00a6 0273 | s | Execute Discrete,Plus
00a7 e20e | | Load 0x1,0xe
00a8 e004 | | Load 0x0,0x4
00a9 e23a | : | Load 0x1,0x3a
00aa 0098 | | Execute Package,Field_Read_Dynamic
00ab 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
00ac 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
00ad 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
00ae 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00af e00a | | Load 0x0,0xa
00b0 e23a | : | Load 0x1,0x3a
00b1 0095 | | Execute Package,Field_Reference_Dynamic
00b2 e00b | | Load 0x0,0xb
00b3 e23a | : | Load 0x1,0x3a
00b4 0095 | | Execute Package,Field_Reference_Dynamic
00b5 e00c | | Load 0x0,0xc
00b6 e23a | : | Load 0x1,0x3a
00b7 0095 | | Execute Package,Field_Reference_Dynamic
00b8 e00d | | Load 0x0,0xd
00b9 0387 | | Declare_Variable Package
00ba 00d8 | | Load_Top At_Offset_0
00bb 020f | | Execute Module,Activate
00bc 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00f5 00c7 | | Action Elaborate_Subprogram
00f6 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00f9 00c7 | | Action Elaborate_Subprogram
00fa 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00fb 00c7 | | Action Elaborate_Subprogram
00fc 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
00ff 00c7 | | Action Elaborate_Subprogram
0100 BODY_0008:
0100 00bc | | Action Signal_Activated
0101 00bb | | Action Signal_Completion
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 011a | | .CONST 0x011a ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0004 | | .CONST 0x0004 ; Number of locals
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c e240 | @ | Load 0x1,0x40
010d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010e e23b | ; | Load 0x1,0x3b
010f 0322 | " | Declare_Variable Record
0110 e5fe | | Load 0x2,-0x2
0111 e00e | | Load 0x0,0xe
0112 e23a | : | Load 0x1,0x3a
0113 0096 | | Execute Package,Entry
0114 00d9 | | Load_Top At_Offset_1
0115 017d | } | Execute Record,Structure_Write
0116 e20e | | Load 0x1,0xe
0117 02c7 | | Declare_Variable Any
0118 00d8 | | Load_Top At_Offset_0
0119 1c00 | | Execute_Immediate Run_Utility,0x0
011a BODY_0108:
011a 00cf | | Action Mark_Auxiliary
011b 7816 |x | Jump 0x132
011c e5fd | | Load 0x2,-0x3
011d e5fe | | Load 0x2,-0x2
011e 00ea | | Load_Encached Null_String_Cache
011f 4800 |H | Short_Literal 0x0
0120 e402 | | Load 0x2,0x2
0121 e240 | @ | Load 0x1,0x40
0122 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0123 8212 | | Call 0x1,0x12
0124 c404 | | Store 0x2,0x4
0125 00da | | Load_Top At_Offset_2
0126 00da | | Load_Top At_Offset_2
0127 e20e | | Load 0x1,0xe
0128 0119 | | Execute Any,Check_In_Formal_Type
0129 e00f | | Load 0x0,0xf
012a e246 | F | Load 0x1,0x46
012b 0096 | | Execute Package,Entry
012c 00d1 | | Pop_Control Pop_Count_1
012d 00db | | Load_Top At_Offset_3
012e e240 | @ | Load 0x1,0x40
012f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0130 c402 | | Store 0x2,0x2
0131 00c9 | | Action Pop_Auxiliary_Loop
0132 00db | | Load_Top At_Offset_3
0133 e240 | @ | Load 0x1,0x40
0134 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0135 6fe6 |o | Jump_Zero 0x11c
0136 00ce | | Action Pop_Auxiliary
0137 00d9 | | Load_Top At_Offset_1
0138 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0139 0000 0000 | | .XXX[0x3]
013b 0000 | |
013c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0140 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0144 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0148 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
014c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0154 e00e | | Load 0x0,0xe
0155 e23a | : | Load 0x1,0x3a
0156 0096 | | Execute Package,Entry
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016d | m | .CONST 0x016d ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0004 | | .CONST 0x0004 ; Number of locals
0163 INIT_0160:
0163 e23e | > | Load 0x1,0x3e
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 00d8 | | Load_Top At_Offset_0
0168 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0169 0007 | | Action Break_Optional
016a 00d9 | | Load_Top At_Offset_1
016b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
016c 0007 | | Action Break_Optional
016d BODY_0160:
016d 00d9 | | Load_Top At_Offset_1
016e e5ff | | Load 0x2,-0x1
016f e010 | | Load 0x0,0x10
0170 e23a | : | Load 0x1,0x3a
0171 0096 | | Execute Package,Entry
0172 00d1 | | Pop_Control Pop_Count_1
0173 00d9 | | Load_Top At_Offset_1
0174 e011 | | Load 0x0,0x11
0175 e23a | : | Load 0x1,0x3a
0176 0096 | | Execute Package,Entry
0177 7006 |p | Jump_Nonzero 0x17e
0178 00d9 | | Load_Top At_Offset_1
0179 e012 | | Load 0x0,0x12
017a e23a | : | Load 0x1,0x3a
017b 0096 | | Execute Package,Entry
017c 8217 | | Call 0x1,0x17
017d c404 | | Store 0x2,0x4
017e 00da | | Load_Top At_Offset_2
017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0185 e011 | | Load 0x0,0x11
0186 e23a | : | Load 0x1,0x3a
0187 0096 | | Execute Package,Entry
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019a | | .CONST 0x019a ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0004 | | .CONST 0x0004 ; Number of locals
0193 INIT_0190:
0193 0092 03eb | | Action Push_String_Extended,0x3eb ; "L=>"
0195 00db | | Load_Top At_Offset_3
0196 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0197 0007 | | Action Break_Optional
0198 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
019a BODY_0190:
019a e5ff | | Load 0x2,-0x1
019b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019c 680f |h | Jump_Zero 0x1ac
019d e211 | | Load 0x1,0x11
019e 6808 |h | Jump_Zero 0x1a7
019f 0092 03ec | | Action Push_String_Extended,0x3ec ; "L=>("
01a1 00da | | Load_Top At_Offset_2
01a2 e210 | | Load 0x1,0x10
01a3 0119 | | Execute Any,Check_In_Formal_Type
01a4 8404 | | Call 0x2,0x4
01a5 01cc | | Execute Vector,Catenate
01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a7 00da | | Load_Top At_Offset_2
01a8 00da | | Load_Top At_Offset_2
01a9 8219 | | Call 0x1,0x19
01aa 01cc | | Execute Vector,Catenate
01ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ac 00d9 | | Load_Top At_Offset_1
01ad e210 | | Load 0x1,0x10
01ae 0119 | | Execute Any,Check_In_Formal_Type
01af 8404 | | Call 0x2,0x4
01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c1 | | .CONST 0x01c1 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01bd 0007 | | Action Break_Optional
01be 00db | | Load_Top At_Offset_3
01bf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c0 0007 | | Action Break_Optional
01c1 BODY_01b8:
01c1 e211 | | Load 0x1,0x11
01c2 6810 |h | Jump_Zero 0x1d3
01c3 00d8 | | Load_Top At_Offset_0
01c4 8218 | | Call 0x1,0x18
01c5 700d |p | Jump_Nonzero 0x1d3
01c6 00d8 | | Load_Top At_Offset_0
01c7 00d8 | | Load_Top At_Offset_0
01c8 0120 | | Execute Any,Is_Value
01c9 6803 |h | Jump_Zero 0x1cd
01ca e210 | | Load 0x1,0x10
01cb 0122 | " | Execute Any,Make_Root_Type
01cc 011e | | Execute Any,Convert
01cd 821a | | Call 0x1,0x1a
01ce c403 | | Store 0x2,0x3
01cf 4800 |H | Short_Literal 0x0
01d0 e5ff | | Load 0x2,-0x1
01d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d3 00d9 | | Load_Top At_Offset_1
01d4 e013 | | Load 0x0,0x13
01d5 e23a | : | Load 0x1,0x3a
01d6 0096 | | Execute Package,Entry
01d7 00d1 | | Pop_Control Pop_Count_1
01d8 00d9 | | Load_Top At_Offset_1
01d9 e011 | | Load 0x0,0x11
01da e23a | : | Load 0x1,0x3a
01db 0096 | | Execute Package,Entry
01dc 7009 |p | Jump_Nonzero 0x1e6
01dd 00d9 | | Load_Top At_Offset_1
01de e012 | | Load 0x0,0x12
01df e23a | : | Load 0x1,0x3a
01e0 0096 | | Execute Package,Entry
01e1 8217 | | Call 0x1,0x17
01e2 c403 | | Store 0x2,0x3
01e3 4801 |H | Short_Literal 0x1
01e4 e5ff | | Load 0x2,-0x1
01e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e5fe | | Load 0x2,-0x2
01ed 017f | | Execute Record,Equal
01ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f7 | | .CONST 0x01f7 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e005 | | Load 0x0,0x5
01f4 e23a | : | Load 0x1,0x3a
01f5 0098 | | Execute Package,Field_Read_Dynamic
01f6 0322 | " | Declare_Variable Record
01f7 BODY_01f0:
01f7 e5fd | | Load 0x2,-0x3
01f8 8243 | C | Call 0x1,0x43
01f9 00d1 | | Pop_Control Pop_Count_1
01fa e5fd | | Load 0x2,-0x3
01fb 8225 | % | Call 0x1,0x25
01fc 017f | | Execute Record,Equal
01fd 6804 |h | Jump_Zero 0x202
01fe e5fe | | Load 0x2,-0x2
01ff 821c | | Call 0x1,0x1c
0200 e5fd | | Load 0x2,-0x3
0201 017d | } | Execute Record,Structure_Write
0202 00d8 | | Load_Top At_Offset_0
0203 e5ff | | Load 0x2,-0x1
0204 e010 | | Load 0x0,0x10
0205 e23a | : | Load 0x1,0x3a
0206 0096 | | Execute Package,Entry
0207 00d1 | | Pop_Control Pop_Count_1
0208 00cf | | Action Mark_Auxiliary
0209 7811 |x | Jump 0x21b
020a e5fd | | Load 0x2,-0x3
020b 00da | | Load_Top At_Offset_2
020c e012 | | Load 0x0,0x12
020d e23a | : | Load 0x1,0x3a
020e 0096 | | Execute Package,Entry
020f e20e | | Load 0x1,0xe
0210 0119 | | Execute Any,Check_In_Formal_Type
0211 e00f | | Load 0x0,0xf
0212 e246 | F | Load 0x1,0x46
0213 0096 | | Execute Package,Entry
0214 00d1 | | Pop_Control Pop_Count_1
0215 00d9 | | Load_Top At_Offset_1
0216 e013 | | Load 0x0,0x13
0217 e23a | : | Load 0x1,0x3a
0218 0096 | | Execute Package,Entry
0219 00d1 | | Pop_Control Pop_Count_1
021a 00c9 | | Action Pop_Auxiliary_Loop
021b 00d9 | | Load_Top At_Offset_1
021c e011 | | Load 0x0,0x11
021d e23a | : | Load 0x1,0x3a
021e 0096 | | Execute Package,Entry
021f 6fea |o | Jump_Zero 0x20a
0220 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00db | | Load_Top At_Offset_3
022c 00db | | Load_Top At_Offset_3
022d e20e | | Load 0x1,0xe
022e 0119 | | Execute Any,Check_In_Formal_Type
022f e014 | | Load 0x0,0x14
0230 e23a | : | Load 0x1,0x3a
0231 0096 | | Execute Package,Entry
0232 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0233 0000 0000 | | .BLANK 0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e015 | | Load 0x0,0x15
023c e23a | : | Load 0x1,0x3a
023d 0096 | | Execute Package,Entry
023e 00ca | | Action Exit_Nullary_Function
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 e00a | | Load 0x0,0xa
0245 e23a | : | Load 0x1,0x3a
0246 0096 | | Execute Package,Entry
0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 8243 | C | Call 0x1,0x43
024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 e016 | | Load 0x0,0x16
0255 e23a | : | Load 0x1,0x3a
0256 0096 | | Execute Package,Entry
0257 e20e | | Load 0x1,0xe
0258 0119 | | Execute Any,Check_In_Formal_Type
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 e00b | | Load 0x0,0xb
0265 e23a | : | Load 0x1,0x3a
0266 0096 | | Execute Package,Entry
0267 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00db | | Load_Top At_Offset_3
026c 00db | | Load_Top At_Offset_3
026d e017 | | Load 0x0,0x17
026e e23a | : | Load 0x1,0x3a
026f 0096 | | Execute Package,Entry
0270 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3
027c e20e | | Load 0x1,0xe
027d 0119 | | Execute Any,Check_In_Formal_Type
027e 00db | | Load_Top At_Offset_3
027f e018 | | Load 0x0,0x18
0280 e23a | : | Load 0x1,0x3a
0281 0096 | | Execute Package,Entry
0282 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0283 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
028c e019 | | Load 0x0,0x19
028d e23a | : | Load 0x1,0x3a
028e 0096 | | Execute Package,Entry
028f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0295 | | .CONST 0x0295 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 e23d | = | Load 0x1,0x3d
0294 03bc | | Declare_Variable Access,By_Allocation
0295 BODY_0290:
0295 00d8 | | Load_Top At_Offset_0
0296 0229 | ) | Execute Access,All_Read
0297 00d8 | | Load_Top At_Offset_0
0298 e5ff | | Load 0x2,-0x1
0299 e010 | | Load 0x0,0x10
029a e23a | : | Load 0x1,0x3a
029b 0096 | | Execute Package,Entry
029c 00d2 | | Pop_Control Pop_Count_2
029d 00d8 | | Load_Top At_Offset_0
029e a5fe | | Store_Unchecked 0x2,-0x2
029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
02a4 0229 | ) | Execute Access,All_Read
02a5 00d8 | | Load_Top At_Offset_0
02a6 e013 | | Load 0x0,0x13
02a7 e23a | : | Load 0x1,0x3a
02a8 0096 | | Execute Package,Entry
02a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02aa 0000 0000 | | .BLANK 0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
02b4 0227 | ' | Execute Access,All_Reference
02b5 e012 | | Load 0x0,0x12
02b6 e23a | : | Load 0x1,0x3a
02b7 0096 | | Execute Package,Entry
02b8 e20e | | Load 0x1,0xe
02b9 0119 | | Execute Any,Check_In_Formal_Type
02ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bb 0000 0000 | | .BLANK 0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
02c4 0227 | ' | Execute Access,All_Reference
02c5 e011 | | Load 0x0,0x11
02c6 e23a | : | Load 0x1,0x3a
02c7 0096 | | Execute Package,Entry
02c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c9 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
02d4 00db | | Load_Top At_Offset_3
02d5 e01a | | Load 0x0,0x1a
02d6 e246 | F | Load 0x1,0x46
02d7 0096 | | Execute Package,Entry
02d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 e5fd | | Load 0x2,-0x3
02e4 e5fe | | Load 0x2,-0x2
02e5 e5ff | | Load 0x2,-0x1
02e6 e01b | | Load 0x0,0x1b
02e7 e246 | F | Load 0x1,0x46
02e8 0096 | | Execute Package,Entry
02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e5fd | | Load 0x2,-0x3
02f4 e5fe | | Load 0x2,-0x2
02f5 e5ff | | Load 0x2,-0x1
02f6 e20e | | Load 0x1,0xe
02f7 0119 | | Execute Any,Check_In_Formal_Type
02f8 e01c | | Load 0x0,0x1c
02f9 e246 | F | Load 0x1,0x46
02fa 0096 | | Execute Package,Entry
02fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fc 0000 0000 | | .BLANK 0000[0x4]
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 e5fd | | Load 0x2,-0x3
0304 e5fe | | Load 0x2,-0x2
0305 e5ff | | Load 0x2,-0x1
0306 e01d | | Load 0x0,0x1d
0307 e246 | F | Load 0x1,0x46
0308 0096 | | Execute Package,Entry
0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030a 0000 0000 | | .BLANK 0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00db | | Load_Top At_Offset_3
0314 00db | | Load_Top At_Offset_3
0315 e20e | | Load 0x1,0xe
0316 0119 | | Execute Any,Check_In_Formal_Type
0317 e00f | | Load 0x0,0xf
0318 e246 | F | Load 0x1,0x46
0319 0096 | | Execute Package,Entry
031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00db | | Load_Top At_Offset_3
0324 00db | | Load_Top At_Offset_3
0325 e01e | | Load 0x0,0x1e
0326 e246 | F | Load 0x1,0x46
0327 0096 | | Execute Package,Entry
0328 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00db | | Load_Top At_Offset_3
0334 00db | | Load_Top At_Offset_3
0335 e01f | | Load 0x0,0x1f
0336 e246 | F | Load 0x1,0x46
0337 0096 | | Execute Package,Entry
0338 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 e020 | | Load 0x0,0x20
0345 e246 | F | Load 0x1,0x46
0346 0096 | | Execute Package,Entry
0347 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4607 |F | Jump_Case 0x8
034c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
034d 7807 |x | Jump 0x355 ; case 0x1
034e 780a |x | Jump 0x359 ; case 0x2
034f 780e |x | Jump 0x35e ; case 0x3
0350 7811 |x | Jump 0x362 ; case 0x4
0351 7812 |x | Jump 0x364 ; case 0x5
0352 7813 |x | Jump 0x366 ; case 0x6
0353 7816 |x | Jump 0x36a ; case 0x7
0354 4302 |C | .XXX[0x1]
0355 00da | | Load_Top At_Offset_2
0356 0091 03e8 | | Action Push_String_Extended_Indexed,0x3e8 ; "NONE"
0358 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0359 00db | | Load_Top At_Offset_3
035a 00db | | Load_Top At_Offset_3
035b 00e0 | | Load_Encached Standard_Cache
035c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035e 00da | | Load_Top At_Offset_2
035f 00e0 | | Load_Encached Standard_Cache
0360 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0361 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0362 00db | | Load_Top At_Offset_3
0363 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0364 00db | | Load_Top At_Offset_3
0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0366 e23f | ? | Load 0x1,0x3f
0367 00dc | | Load_Top At_Offset_4
0368 0267 | g | Execute Discrete,Predecessor
0369 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
036a e23f | ? | Load 0x1,0x3f
036b 00dc | | Load_Top At_Offset_4
036c 0268 | h | Execute Discrete,Successor
036d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
036e 0000 0000 | | .XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00db | | Load_Top At_Offset_3
0374 00db | | Load_Top At_Offset_3
0375 e20e | | Load 0x1,0xe
0376 0119 | | Execute Any,Check_In_Formal_Type
0377 e014 | | Load 0x0,0x14
0378 e23a | : | Load 0x1,0x3a
0379 0096 | | Execute Package,Entry
037a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037b 0000 0000 | | .BLANK 0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038d | | .CONST 0x038d ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 e004 | | Load 0x0,0x4
0384 e23a | : | Load 0x1,0x3a
0385 0098 | | Execute Package,Field_Read_Dynamic
0386 0322 | " | Declare_Variable Record
0387 00db | | Load_Top At_Offset_3
0388 e00b | | Load 0x0,0xb
0389 e23a | : | Load 0x1,0x3a
038a 0096 | | Execute Package,Entry
038b 00d9 | | Load_Top At_Offset_1
038c 017d | } | Execute Record,Structure_Write
038d BODY_0380:
038d e5fe | | Load 0x2,-0x2
038e e5ff | | Load 0x2,-0x1
038f e017 | | Load 0x0,0x17
0390 e23a | : | Load 0x1,0x3a
0391 0096 | | Execute Package,Entry
0392 00d8 | | Load_Top At_Offset_0
0393 e5fe | | Load 0x2,-0x2
0394 017d | } | Execute Record,Structure_Write
0395 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0396 0000 0000 | | .XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039f | | .CONST 0x039f ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0002 | | .CONST 0x0002 ; Number of locals
039b INIT_0398:
039b e004 | | Load 0x0,0x4
039c e23a | : | Load 0x1,0x3a
039d 0098 | | Execute Package,Field_Read_Dynamic
039e 0322 | " | Declare_Variable Record
039f BODY_0398:
039f 00db | | Load_Top At_Offset_3
03a0 e00c | | Load 0x0,0xc
03a1 e23a | : | Load 0x1,0x3a
03a2 0096 | | Execute Package,Entry
03a3 e00e | | Load 0x0,0xe
03a4 e23a | : | Load 0x1,0x3a
03a5 0096 | | Execute Package,Entry
03a6 00d9 | | Load_Top At_Offset_1
03a7 017d | } | Execute Record,Structure_Write
03a8 00d8 | | Load_Top At_Offset_0
03a9 e5ff | | Load 0x2,-0x1
03aa 017d | } | Execute Record,Structure_Write
03ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ac 0000 0000 | | .BLANK 0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 e00e | | Load 0x0,0xe
03b5 e23a | : | Load 0x1,0x3a
03b6 0096 | | Execute Package,Entry
03b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00db | | Load_Top At_Offset_3
03bc 00db | | Load_Top At_Offset_3
03bd e20e | | Load 0x1,0xe
03be 0119 | | Execute Any,Check_In_Formal_Type
03bf 8241 | A | Call 0x1,0x41
03c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc 8218 | | Call 0x1,0x18
03cd 7003 |p | Jump_Nonzero 0x3d1
03ce 00da | | Load_Top At_Offset_2
03cf 8219 | | Call 0x1,0x19
03d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d1 0092 03ed | | Action Push_String_Extended,0x3ed ; ")"
03d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 4601 |F | Jump_Case 0x2
03dc 7801 |x | Jump 0x3de ; case 0x0
03dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03de 00da | | Load_Top At_Offset_2
03df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e0 0125 | % | Execute Any,Set_Constraint
03e1 00da | | Load_Top At_Offset_2
03e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e3 1c00 | | Execute_Immediate Run_Utility,0x0
03e4 4801 |H | Short_Literal 0x1
03e5 00db | | Load_Top At_Offset_3
03e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03e7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03e8 ; --------------------------------------------------------------------------------------
03e8 ; STRING TABLE
03e8 ; --------------------------------------------------------------------------------------
03e8 000e | | .STRTAB 0x000e->0x03ef ; "NONE"
03e9 0010 | | .STRTAB 0x0010->0x03f1 ; "NO_ELEMENTS"
03ea 0019 | | .STRTAB 0x0019->0x03f6 ; "others => Unspecified"
03eb 002c | , | .STRTAB 0x002c->0x0401 ; "L=>"
03ec 002d | - | .STRTAB 0x002d->0x0402 ; "L=>("
03ed 002f | / | .STRTAB 0x002f->0x0404 ; ")"
03ee 002e | . | .STREND 0x002e->0x0405
03ef 4e4f 4e45 |NONE| .STRTAB_STRINGS
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 000a | | .DEBUG4 0x0004,0x000a,0x4466,0x0000,0x0001,0x0000
040e 0000 0000 | | .BLANK 0000[0x1f2]