|
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]