|
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 0410 | | .CONST 0x0410 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 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 0045 | E | .CONST 0x0045 ; Number of locals
000b INIT_0008:
000b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
000d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
000f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0011 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0013 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0015 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0017 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0019 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
001b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
001f 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0021 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0023 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0025 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0027 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0029 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
002b 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
002d 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
002f 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0031 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0033 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0035 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0037 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0039 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
003b 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
003d 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
003f 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0041 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0043 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0045 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0047 0093 0000 | | push_full_address 0x0
0049 60fa |` | Indirect_Literal Discrete,0x144,{0x80000000, 0x00010000}
004a 0273 | s | Execute Discrete,Plus
004b e20d | | Load 0x1,0xd
004c 60f3 |` | Indirect_Literal Discrete,0x140,{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 60e9 |` | Indirect_Literal Discrete,0x13c,{0x80000000, 0x00010000}
0053 0273 | s | Execute Discrete,Plus
0054 e20d | | Load 0x1,0xd
0055 60ea |` | Indirect_Literal Discrete,0x140,{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 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
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 e20f | | Load 0x1,0xf
006e 00e1 | | Load_Encached Boolean_Cache
006f e005 | | Load 0x0,0x5
0070 e239 | 9 | Load 0x1,0x39
0071 0098 | | Execute Package,Field_Read_Dynamic
0072 029f 03d3 | | Declare_Subprogram INIT_03d0,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 0343 | C| Declare_Subprogram INIT_0340,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 03e2 | | Action Push_String_Extended,0x3e2 ; "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 e239 | 9 | Load 0x1,0x39
008e 0098 | | Execute Package,Field_Read_Dynamic
008f e23b | ; | Load 0x1,0x3b
0090 0325 | % | Complete_Type Record,By_Renaming
0091 00db | | Load_Top At_Offset_3
0092 03c4 | | Complete_Type Access,By_Component_Completion
0093 029b 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Unelaborated
0095 029b 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Unelaborated
0097 029b 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Unelaborated
0099 029b 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Unelaborated
009b 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
009d 0093 0000 | | push_full_address 0x0
009f 6098 |` | Indirect_Literal Discrete,0x138,{0x80000000, 0x00020000}
00a0 0273 | s | Execute Discrete,Plus
00a1 e20d | | Load 0x1,0xd
00a2 609d |` | Indirect_Literal Discrete,0x140,{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 e239 | 9 | Load 0x1,0x39
00aa 0098 | | Execute Package,Field_Read_Dynamic
00ab 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
00ac 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00ad 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
00ae 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00af e00a | | Load 0x0,0xa
00b0 e239 | 9 | Load 0x1,0x39
00b1 0095 | | Execute Package,Field_Reference_Dynamic
00b2 e00b | | Load 0x0,0xb
00b3 e239 | 9 | Load 0x1,0x39
00b4 0095 | | Execute Package,Field_Reference_Dynamic
00b5 e00c | | Load 0x0,0xc
00b6 e239 | 9 | Load 0x1,0x39
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 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00f5 00c7 | | Action Elaborate_Subprogram
00f6 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
00f9 00c7 | | Action Elaborate_Subprogram
00fa 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00fb 00c7 | | Action Elaborate_Subprogram
00fc 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
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 e23f | ? | Load 0x1,0x3f
010d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010e e23a | : | Load 0x1,0x3a
010f 0322 | " | Declare_Variable Record
0110 e5fe | | Load 0x2,-0x2
0111 e00e | | Load 0x0,0xe
0112 e239 | 9 | Load 0x1,0x39
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 7815 |x | Jump 0x131
011c e5fe | | Load 0x2,-0x2
011d 00ea | | Load_Encached Null_String_Cache
011e 4800 |H | Short_Literal 0x0
011f e402 | | Load 0x2,0x2
0120 e23f | ? | Load 0x1,0x3f
0121 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0122 8211 | | Call 0x1,0x11
0123 c404 | | Store 0x2,0x4
0124 00da | | Load_Top At_Offset_2
0125 00da | | Load_Top At_Offset_2
0126 e20e | | Load 0x1,0xe
0127 0119 | | Execute Any,Check_In_Formal_Type
0128 e00f | | Load 0x0,0xf
0129 e245 | E | Load 0x1,0x45
012a 0096 | | Execute Package,Entry
012b 00d1 | | Pop_Control Pop_Count_1
012c 00db | | Load_Top At_Offset_3
012d e23f | ? | Load 0x1,0x3f
012e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
012f c402 | | Store 0x2,0x2
0130 00c9 | | Action Pop_Auxiliary_Loop
0131 00db | | Load_Top At_Offset_3
0132 e23f | ? | Load 0x1,0x3f
0133 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0134 6fe7 |o | Jump_Zero 0x11c
0135 00ce | | Action Pop_Auxiliary
0136 00d9 | | Load_Top At_Offset_1
0137 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0138 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
013c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0140 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0144 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c e00e | | Load 0x0,0xe
014d e239 | 9 | Load 0x1,0x39
014e 0096 | | Execute Package,Entry
014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0165 | e | .CONST 0x0165 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0004 | | .CONST 0x0004 ; Number of locals
015b INIT_0158:
015b e23d | = | Load 0x1,0x3d
015c 0322 | " | Declare_Variable Record
015d 00d8 | | Load_Top At_Offset_0
015e 1c00 | | Execute_Immediate Run_Utility,0x0
015f 00d8 | | Load_Top At_Offset_0
0160 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0161 0007 | | Action Break_Optional
0162 00d9 | | Load_Top At_Offset_1
0163 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0164 0007 | | Action Break_Optional
0165 BODY_0158:
0165 00d9 | | Load_Top At_Offset_1
0166 e5ff | | Load 0x2,-0x1
0167 e010 | | Load 0x0,0x10
0168 e239 | 9 | Load 0x1,0x39
0169 0096 | | Execute Package,Entry
016a 00d1 | | Pop_Control Pop_Count_1
016b 00d9 | | Load_Top At_Offset_1
016c e011 | | Load 0x0,0x11
016d e239 | 9 | Load 0x1,0x39
016e 0096 | | Execute Package,Entry
016f 7006 |p | Jump_Nonzero 0x176
0170 00d9 | | Load_Top At_Offset_1
0171 e012 | | Load 0x0,0x12
0172 e239 | 9 | Load 0x1,0x39
0173 0096 | | Execute Package,Entry
0174 8216 | | Call 0x1,0x16
0175 c404 | | Store 0x2,0x4
0176 00da | | Load_Top At_Offset_2
0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
017d e011 | | Load 0x0,0x11
017e e239 | 9 | Load 0x1,0x39
017f 0096 | | Execute Package,Entry
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0192 | | .CONST 0x0192 ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0004 | | .CONST 0x0004 ; Number of locals
018b INIT_0188:
018b 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "List_Element =>"
018d 00db | | Load_Top At_Offset_3
018e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018f 0007 | | Action Break_Optional
0190 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
0192 BODY_0188:
0192 e5ff | | Load 0x2,-0x1
0193 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0194 680f |h | Jump_Zero 0x1a4
0195 e210 | | Load 0x1,0x10
0196 6808 |h | Jump_Zero 0x19f
0197 0092 03e4 | | Action Push_String_Extended,0x3e4 ; "List_Element =>("
0199 00da | | Load_Top At_Offset_2
019a e20f | | Load 0x1,0xf
019b 0119 | | Execute Any,Check_In_Formal_Type
019c 8404 | | Call 0x2,0x4
019d 01cc | | Execute Vector,Catenate
019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019f 00da | | Load_Top At_Offset_2
01a0 00da | | Load_Top At_Offset_2
01a1 8218 | | Call 0x1,0x18
01a2 01cc | | Execute Vector,Catenate
01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a4 00d9 | | Load_Top At_Offset_1
01a5 e20f | | Load 0x1,0xf
01a6 0119 | | Execute Any,Check_In_Formal_Type
01a7 8404 | | Call 0x2,0x4
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b9 | | .CONST 0x01b9 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b5 0007 | | Action Break_Optional
01b6 00db | | Load_Top At_Offset_3
01b7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b8 0007 | | Action Break_Optional
01b9 BODY_01b0:
01b9 e210 | | Load 0x1,0x10
01ba 6810 |h | Jump_Zero 0x1cb
01bb 00d8 | | Load_Top At_Offset_0
01bc 8217 | | Call 0x1,0x17
01bd 700d |p | Jump_Nonzero 0x1cb
01be 00d8 | | Load_Top At_Offset_0
01bf 00d8 | | Load_Top At_Offset_0
01c0 0120 | | Execute Any,Is_Value
01c1 6803 |h | Jump_Zero 0x1c5
01c2 e20f | | Load 0x1,0xf
01c3 0122 | " | Execute Any,Make_Root_Type
01c4 011e | | Execute Any,Convert
01c5 8219 | | Call 0x1,0x19
01c6 c403 | | Store 0x2,0x3
01c7 4800 |H | Short_Literal 0x0
01c8 e5ff | | Load 0x2,-0x1
01c9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cb 00d9 | | Load_Top At_Offset_1
01cc e013 | | Load 0x0,0x13
01cd e239 | 9 | Load 0x1,0x39
01ce 0096 | | Execute Package,Entry
01cf 00d1 | | Pop_Control Pop_Count_1
01d0 00d9 | | Load_Top At_Offset_1
01d1 e011 | | Load 0x0,0x11
01d2 e239 | 9 | Load 0x1,0x39
01d3 0096 | | Execute Package,Entry
01d4 7009 |p | Jump_Nonzero 0x1de
01d5 00d9 | | Load_Top At_Offset_1
01d6 e012 | | Load 0x0,0x12
01d7 e239 | 9 | Load 0x1,0x39
01d8 0096 | | Execute Package,Entry
01d9 8216 | | Call 0x1,0x16
01da c403 | | Store 0x2,0x3
01db 4801 |H | Short_Literal 0x1
01dc e5ff | | Load 0x2,-0x1
01dd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e5fe | | Load 0x2,-0x2
01e5 017f | | Execute Record,Equal
01e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef | | .CONST 0x01ef ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb e005 | | Load 0x0,0x5
01ec e239 | 9 | Load 0x1,0x39
01ed 0098 | | Execute Package,Field_Read_Dynamic
01ee 0322 | " | Declare_Variable Record
01ef BODY_01e8:
01ef e5fd | | Load 0x2,-0x3
01f0 8242 | B | Call 0x1,0x42
01f1 00d1 | | Pop_Control Pop_Count_1
01f2 e5fd | | Load 0x2,-0x3
01f3 8224 | $ | Call 0x1,0x24
01f4 017f | | Execute Record,Equal
01f5 6804 |h | Jump_Zero 0x1fa
01f6 e5fe | | Load 0x2,-0x2
01f7 821b | | Call 0x1,0x1b
01f8 e5fd | | Load 0x2,-0x3
01f9 017d | } | Execute Record,Structure_Write
01fa 00d8 | | Load_Top At_Offset_0
01fb e5ff | | Load 0x2,-0x1
01fc e010 | | Load 0x0,0x10
01fd e239 | 9 | Load 0x1,0x39
01fe 0096 | | Execute Package,Entry
01ff 00d1 | | Pop_Control Pop_Count_1
0200 00cf | | Action Mark_Auxiliary
0201 7811 |x | Jump 0x213
0202 e5fd | | Load 0x2,-0x3
0203 00da | | Load_Top At_Offset_2
0204 e012 | | Load 0x0,0x12
0205 e239 | 9 | Load 0x1,0x39
0206 0096 | | Execute Package,Entry
0207 e20e | | Load 0x1,0xe
0208 0119 | | Execute Any,Check_In_Formal_Type
0209 e00f | | Load 0x0,0xf
020a e245 | E | Load 0x1,0x45
020b 0096 | | Execute Package,Entry
020c 00d1 | | Pop_Control Pop_Count_1
020d 00d9 | | Load_Top At_Offset_1
020e e013 | | Load 0x0,0x13
020f e239 | 9 | Load 0x1,0x39
0210 0096 | | Execute Package,Entry
0211 00d1 | | Pop_Control Pop_Count_1
0212 00c9 | | Action Pop_Auxiliary_Loop
0213 00d9 | | Load_Top At_Offset_1
0214 e011 | | Load 0x0,0x11
0215 e239 | 9 | Load 0x1,0x39
0216 0096 | | Execute Package,Entry
0217 6fea |o | Jump_Zero 0x202
0218 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00db | | Load_Top At_Offset_3
0224 00db | | Load_Top At_Offset_3
0225 e20e | | Load 0x1,0xe
0226 0119 | | Execute Any,Check_In_Formal_Type
0227 e014 | | Load 0x0,0x14
0228 e239 | 9 | Load 0x1,0x39
0229 0096 | | Execute Package,Entry
022a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e015 | | Load 0x0,0x15
0234 e239 | 9 | Load 0x1,0x39
0235 0096 | | Execute Package,Entry
0236 00ca | | Action Exit_Nullary_Function
0237 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
023c e00a | | Load 0x0,0xa
023d e239 | 9 | Load 0x1,0x39
023e 0096 | | Execute Package,Entry
023f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 8242 | B | Call 0x1,0x42
0245 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0246 0000 0000 | | .XXX[0x2]
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 e016 | | Load 0x0,0x16
024d e239 | 9 | Load 0x1,0x39
024e 0096 | | Execute Package,Entry
024f e20e | | Load 0x1,0xe
0250 0119 | | Execute Any,Check_In_Formal_Type
0251 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e00b | | Load 0x0,0xb
025d e239 | 9 | Load 0x1,0x39
025e 0096 | | Execute Package,Entry
025f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00db | | Load_Top At_Offset_3
0264 00db | | Load_Top At_Offset_3
0265 e017 | | Load 0x0,0x17
0266 e239 | 9 | Load 0x1,0x39
0267 0096 | | Execute Package,Entry
0268 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0269 0000 0000 | | .BLANK 0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00db | | Load_Top At_Offset_3
0274 e20e | | Load 0x1,0xe
0275 0119 | | Execute Any,Check_In_Formal_Type
0276 00db | | Load_Top At_Offset_3
0277 e018 | | Load 0x0,0x18
0278 e239 | 9 | Load 0x1,0x39
0279 0096 | | Execute Package,Entry
027a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027b 0000 0000 | | .BLANK 0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 e019 | | Load 0x0,0x19
0285 e239 | 9 | Load 0x1,0x39
0286 0096 | | Execute Package,Entry
0287 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b e23c | < | Load 0x1,0x3c
028c 03bc | | Declare_Variable Access,By_Allocation
028d BODY_0288:
028d 00d8 | | Load_Top At_Offset_0
028e 0229 | ) | Execute Access,All_Read
028f 00d8 | | Load_Top At_Offset_0
0290 e5ff | | Load 0x2,-0x1
0291 e010 | | Load 0x0,0x10
0292 e239 | 9 | Load 0x1,0x39
0293 0096 | | Execute Package,Entry
0294 00d2 | | Pop_Control Pop_Count_2
0295 00d8 | | Load_Top At_Offset_0
0296 a5fe | | Store_Unchecked 0x2,-0x2
0297 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
029c 0229 | ) | Execute Access,All_Read
029d 00d8 | | Load_Top At_Offset_0
029e e013 | | Load 0x0,0x13
029f e239 | 9 | Load 0x1,0x39
02a0 0096 | | Execute Package,Entry
02a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
02ac 0227 | ' | Execute Access,All_Reference
02ad e012 | | Load 0x0,0x12
02ae e239 | 9 | Load 0x1,0x39
02af 0096 | | Execute Package,Entry
02b0 e20e | | Load 0x1,0xe
02b1 0119 | | Execute Any,Check_In_Formal_Type
02b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 0227 | ' | Execute Access,All_Reference
02bd e011 | | Load 0x0,0x11
02be e239 | 9 | Load 0x1,0x39
02bf 0096 | | Execute Package,Entry
02c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c1 0000 0000 | | .BLANK 0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00db | | Load_Top At_Offset_3
02cc 00db | | Load_Top At_Offset_3
02cd e01a | | Load 0x0,0x1a
02ce e245 | E | Load 0x1,0x45
02cf 0096 | | Execute Package,Entry
02d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e5fd | | Load 0x2,-0x3
02dc e5fe | | Load 0x2,-0x2
02dd e5ff | | Load 0x2,-0x1
02de e01b | | Load 0x0,0x1b
02df e245 | E | Load 0x1,0x45
02e0 0096 | | Execute Package,Entry
02e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e2 0000 0000 | | .BLANK 0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb e5fd | | Load 0x2,-0x3
02ec e5fe | | Load 0x2,-0x2
02ed e5ff | | Load 0x2,-0x1
02ee e20e | | Load 0x1,0xe
02ef 0119 | | Execute Any,Check_In_Formal_Type
02f0 e01c | | Load 0x0,0x1c
02f1 e245 | E | Load 0x1,0x45
02f2 0096 | | Execute Package,Entry
02f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb e5fd | | Load 0x2,-0x3
02fc e5fe | | Load 0x2,-0x2
02fd e5ff | | Load 0x2,-0x1
02fe e01d | | Load 0x0,0x1d
02ff e245 | E | Load 0x1,0x45
0300 0096 | | Execute Package,Entry
0301 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00db | | Load_Top At_Offset_3
030c 00db | | Load_Top At_Offset_3
030d e20e | | Load 0x1,0xe
030e 0119 | | Execute Any,Check_In_Formal_Type
030f e00f | | Load 0x0,0xf
0310 e245 | E | Load 0x1,0x45
0311 0096 | | Execute Package,Entry
0312 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00db | | Load_Top At_Offset_3
031c 00db | | Load_Top At_Offset_3
031d e01e | | Load 0x0,0x1e
031e e245 | E | Load 0x1,0x45
031f 0096 | | Execute Package,Entry
0320 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00db | | Load_Top At_Offset_3
032c 00db | | Load_Top At_Offset_3
032d e01f | | Load 0x0,0x1f
032e e245 | E | Load 0x1,0x45
032f 0096 | | Execute Package,Entry
0330 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0331 0000 0000 | | .BLANK 0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c e020 | | Load 0x0,0x20
033d e245 | E | Load 0x1,0x45
033e 0096 | | Execute Package,Entry
033f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4607 |F | Jump_Case 0x8
0344 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0345 7807 |x | Jump 0x34d ; case 0x1
0346 780a |x | Jump 0x351 ; case 0x2
0347 780e |x | Jump 0x356 ; case 0x3
0348 7811 |x | Jump 0x35a ; case 0x4
0349 7812 |x | Jump 0x35c ; case 0x5
034a 7813 |x | Jump 0x35e ; case 0x6
034b 7816 |x | Jump 0x362 ; case 0x7
034c 4302 |C | .XXX[0x1]
034d 00da | | Load_Top At_Offset_2
034e 0091 03e0 | | Action Push_String_Extended_Indexed,0x3e0 ; "NONE"
0350 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0351 00db | | Load_Top At_Offset_3
0352 00db | | Load_Top At_Offset_3
0353 00e0 | | Load_Encached Standard_Cache
0354 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0355 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0356 00da | | Load_Top At_Offset_2
0357 00e0 | | Load_Encached Standard_Cache
0358 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0359 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
035a 00db | | Load_Top At_Offset_3
035b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035c 00db | | Load_Top At_Offset_3
035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035e e23e | > | Load 0x1,0x3e
035f 00dc | | Load_Top At_Offset_4
0360 0267 | g | Execute Discrete,Predecessor
0361 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0362 e23e | > | Load 0x1,0x3e
0363 00dc | | Load_Top At_Offset_4
0364 0268 | h | Execute Discrete,Successor
0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00db | | Load_Top At_Offset_3
036c 00db | | Load_Top At_Offset_3
036d e20e | | Load 0x1,0xe
036e 0119 | | Execute Any,Check_In_Formal_Type
036f e014 | | Load 0x0,0x14
0370 e239 | 9 | Load 0x1,0x39
0371 0096 | | Execute Package,Entry
0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0385 | | .CONST 0x0385 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b e004 | | Load 0x0,0x4
037c e239 | 9 | Load 0x1,0x39
037d 0098 | | Execute Package,Field_Read_Dynamic
037e 0322 | " | Declare_Variable Record
037f 00db | | Load_Top At_Offset_3
0380 e00b | | Load 0x0,0xb
0381 e239 | 9 | Load 0x1,0x39
0382 0096 | | Execute Package,Entry
0383 00d9 | | Load_Top At_Offset_1
0384 017d | } | Execute Record,Structure_Write
0385 BODY_0378:
0385 e5fe | | Load 0x2,-0x2
0386 e5ff | | Load 0x2,-0x1
0387 e017 | | Load 0x0,0x17
0388 e239 | 9 | Load 0x1,0x39
0389 0096 | | Execute Package,Entry
038a 00d8 | | Load_Top At_Offset_0
038b e5fe | | Load 0x2,-0x2
038c 017d | } | Execute Record,Structure_Write
038d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038e 0000 0000 | | .XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397 | | .CONST 0x0397 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 e004 | | Load 0x0,0x4
0394 e239 | 9 | Load 0x1,0x39
0395 0098 | | Execute Package,Field_Read_Dynamic
0396 0322 | " | Declare_Variable Record
0397 BODY_0390:
0397 00db | | Load_Top At_Offset_3
0398 e00c | | Load 0x0,0xc
0399 e239 | 9 | Load 0x1,0x39
039a 0096 | | Execute Package,Entry
039b e00e | | Load 0x0,0xe
039c e239 | 9 | Load 0x1,0x39
039d 0096 | | Execute Package,Entry
039e 00d9 | | Load_Top At_Offset_1
039f 017d | } | Execute Record,Structure_Write
03a0 00d8 | | Load_Top At_Offset_0
03a1 e5ff | | Load 0x2,-0x1
03a2 017d | } | Execute Record,Structure_Write
03a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac e00e | | Load 0x0,0xe
03ad e239 | 9 | Load 0x1,0x39
03ae 0096 | | Execute Package,Entry
03af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00db | | Load_Top At_Offset_3
03b4 00db | | Load_Top At_Offset_3
03b5 e20e | | Load 0x1,0xe
03b6 0119 | | Execute Any,Check_In_Formal_Type
03b7 8240 | @ | Call 0x1,0x40
03b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b9 0000 0000 | | .BLANK 0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 8217 | | Call 0x1,0x17
03c5 7003 |p | Jump_Nonzero 0x3c9
03c6 00da | | Load_Top At_Offset_2
03c7 8218 | | Call 0x1,0x18
03c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c9 0092 03e5 | | Action Push_String_Extended,0x3e5 ; ")"
03cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 4601 |F | Jump_Case 0x2
03d4 7801 |x | Jump 0x3d6 ; case 0x0
03d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03d6 00da | | Load_Top At_Offset_2
03d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d8 0125 | % | Execute Any,Set_Constraint
03d9 00da | | Load_Top At_Offset_2
03da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03db 1c00 | | Execute_Immediate Run_Utility,0x0
03dc 4801 |H | Short_Literal 0x1
03dd 00db | | Load_Top At_Offset_3
03de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03df 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03e0 ; --------------------------------------------------------------------------------------
03e0 ; STRING TABLE
03e0 ; --------------------------------------------------------------------------------------
03e0 000e | | .STRTAB 0x000e->0x03e7 ; "NONE"
03e1 0010 | | .STRTAB 0x0010->0x03e9 ; "NO_ELEMENTS"
03e2 0019 | | .STRTAB 0x0019->0x03ee ; "others => Unspecified"
03e3 002c | , | .STRTAB 0x002c->0x03f9 ; "List_Element =>"
03e4 0039 | 9 | .STRTAB 0x0039->0x0400 ; "List_Element =>("
03e5 0047 | G | .STRTAB 0x0047->0x0408 ; ")"
03e6 0046 | F | .STREND 0x0046->0x0409
03e7 4e4f 4e45 |NONE| .STRTAB_STRINGS
0409 0000 0000 | | .BLANK 0000[0x7]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d69,0x0000,0x0001,0x0000
0416 0000 0000 | | .BLANK 0000[0x1ea]