|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0220 | | .CONST 0x0220 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00a1 | | .CONST 0x00a1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0010 0129 | ) | Execute Any,Make_Visible 0011 e002 | | Load 0x0,0x2 0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0013 0129 | ) | Execute Any,Make_Visible 0014 e003 | | Load 0x0,0x3 0015 e004 | | Load 0x0,0x4 0016 00db | | Load_Top At_Offset_3 0017 e002 | | Load 0x0,0x2 0018 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0019 e002 | | Load 0x0,0x2 001a 191a | | Execute Package,Field_Reference,Field_Number 0x1a 001b e005 | | Load 0x0,0x5 001c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 001d 0386 | | Declare_Variable Package,Visible 001e 00d8 | | Load_Top At_Offset_0 001f 020f | | Execute Module,Activate 0020 4800 |H | Short_Literal 0x0 0021 e006 | | Load 0x0,0x6 0022 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0023 1c07 | | Execute_Immediate Run_Utility,0x7 0024 0129 | ) | Execute Any,Make_Visible 0025 4801 |H | Short_Literal 0x1 0026 e006 | | Load 0x0,0x6 0027 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0028 1c07 | | Execute_Immediate Run_Utility,0x7 0029 0129 | ) | Execute Any,Make_Visible 002a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0037 c21c | | Store 0x1,0x1c 0038 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 003a c215 | | Store 0x1,0x15 003b e002 | | Load 0x0,0x2 003c 1911 | | Execute Package,Field_Reference,Field_Number 0x11 003d 0129 | ) | Execute Any,Make_Visible 003e c216 | | Store 0x1,0x16 003f e002 | | Load 0x0,0x2 0040 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0041 0129 | ) | Execute Any,Make_Visible 0042 c217 | | Store 0x1,0x17 0043 e002 | | Load 0x0,0x2 0044 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0045 0129 | ) | Execute Any,Make_Visible 0046 c218 | | Store 0x1,0x18 0047 e002 | | Load 0x0,0x2 0048 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0049 0129 | ) | Execute Any,Make_Visible 004a c219 | | Store 0x1,0x19 004b 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 004d c21a | | Store 0x1,0x1a 004e e002 | | Load 0x0,0x2 004f 1918 | | Execute Package,Field_Reference,Field_Number 0x18 0050 0129 | ) | Execute Any,Make_Visible 0051 c21b | | Store 0x1,0x1b 0052 00bf | | Action Accept_Activation 0053 e210 | | Load 0x1,0x10 0054 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0055 0007 | | Action Break_Optional 0056 e210 | | Load 0x1,0x10 0057 192a | * | Execute Package,Field_Reference,Field_Number 0x2a 0058 0007 | | Action Break_Optional 0059 e007 | | Load 0x0,0x7 005a e008 | | Load 0x0,0x8 005b e006 | | Load 0x0,0x6 005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005d e210 | | Load 0x1,0x10 005e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 005f 0387 | | Declare_Variable Package 0060 00d8 | | Load_Top At_Offset_0 0061 020f | | Execute Module,Activate 0062 e009 | | Load 0x0,0x9 0063 e00a | | Load 0x0,0xa 0064 e006 | | Load 0x0,0x6 0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0066 e210 | | Load 0x1,0x10 0067 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0068 0387 | | Declare_Variable Package 0069 00d8 | | Load_Top At_Offset_0 006a 020f | | Execute Module,Activate 006b e00b | | Load 0x0,0xb 006c e00c | | Load 0x0,0xc 006d e006 | | Load 0x0,0x6 006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006f e210 | | Load 0x1,0x10 0070 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0071 0387 | | Declare_Variable Package 0072 00d8 | | Load_Top At_Offset_0 0073 020f | | Execute Module,Activate 0074 e00d | | Load 0x0,0xd 0075 e00e | | Load 0x0,0xe 0076 e006 | | Load 0x0,0x6 0077 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0078 e210 | | Load 0x1,0x10 0079 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 007a 0387 | | Declare_Variable Package 007b 00d8 | | Load_Top At_Offset_0 007c 020f | | Execute Module,Activate 007d e00f | | Load 0x0,0xf 007e e010 | | Load 0x0,0x10 007f e006 | | Load 0x0,0x6 0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0081 e210 | | Load 0x1,0x10 0082 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0083 0387 | | Declare_Variable Package 0084 00d8 | | Load_Top At_Offset_0 0085 020f | | Execute Module,Activate 0086 e011 | | Load 0x0,0x11 0087 e012 | | Load 0x0,0x12 0088 e006 | | Load 0x0,0x6 0089 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008a e210 | | Load 0x1,0x10 008b 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 008c 0387 | | Declare_Variable Package 008d 00d8 | | Load_Top At_Offset_0 008e 020f | | Execute Module,Activate 008f 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 0091 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0093 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0095 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0097 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0099 1d13 | | Execute_Immediate Reference_Lex_1,0x13 009a 00c7 | | Action Elaborate_Subprogram 009b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 009c 00c7 | | Action Elaborate_Subprogram 009d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 009e 00c7 | | Action Elaborate_Subprogram 009f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a0 00c7 | | Action Elaborate_Subprogram 00a1 BODY_0008: 00a1 00bc | | Action Signal_Activated 00a2 00bb | | Action Signal_Completion 00a3 0000 0000 | | .BLANK 0000[0x5] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00db | | Load_Top At_Offset_3 00ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ad 00db | | Load_Top At_Offset_3 00ae 821d | | Call 0x1,0x1d 00af 00db | | Load_Top At_Offset_3 00b0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00b1 00db | | Load_Top At_Offset_3 00b2 e21f | | Load 0x1,0x1f 00b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b4 00db | | Load_Top At_Offset_3 00b5 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b7 00db | | Load_Top At_Offset_3 00b8 821d | | Call 0x1,0x1d 00b9 00db | | Load_Top At_Offset_3 00ba 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00bc 00db | | Load_Top At_Offset_3 00bd 821d | | Call 0x1,0x1d 00be 00db | | Load_Top At_Offset_3 00bf 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c1 00db | | Load_Top At_Offset_3 00c2 821d | | Call 0x1,0x1d 00c3 00db | | Load_Top At_Offset_3 00c4 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c6 00db | | Load_Top At_Offset_3 00c7 821d | | Call 0x1,0x1d 00c8 00db | | Load_Top At_Offset_3 00c9 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00ca 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 00cb 00db | | Load_Top At_Offset_3 00cc 8225 | % | Call 0x1,0x25 00cd 00db | | Load_Top At_Offset_3 00ce 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00cf 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 00d0 00db | | Load_Top At_Offset_3 00d1 8225 | % | Call 0x1,0x25 00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e1 | | .CONST 0x00e1 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0004 | | .CONST 0x0004 ; Number of locals 00db INIT_00d8: 00db e006 | | Load 0x0,0x6 00dc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00dd e006 | | Load 0x0,0x6 00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00df e006 | | Load 0x0,0x6 00e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e1 BODY_00d8: 00e1 e005 | | Load 0x0,0x5 00e2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e3 e5fe | | Load 0x2,-0x2 00e4 e5ff | | Load 0x2,-0x1 00e5 821e | | Call 0x1,0x1e 00e6 005b | [ | Store_Top Discrete,At_Offset_3 00e7 e21f | | Load 0x1,0x1f 00e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e9 e5fe | | Load 0x2,-0x2 00ea e5ff | | Load 0x2,-0x1 00eb e21f | | Load 0x1,0x1f 00ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ed 005a | Z | Store_Top Discrete,At_Offset_2 00ee 00d9 | | Load_Top At_Offset_1 00ef 0f01 | | Execute_Immediate Equal,0x1 00f0 7003 |p | Jump_Nonzero 0xf4 00f1 e005 | | Load 0x0,0x5 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 0257 | W | Execute Discrete,Raise 00f4 e220 | | Load 0x1,0x20 00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f6 e5fe | | Load 0x2,-0x2 00f7 e5ff | | Load 0x2,-0x1 00f8 e220 | | Load 0x1,0x20 00f9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fa 0059 | Y | Store_Top Discrete,At_Offset_1 00fb 00d8 | | Load_Top At_Offset_0 00fc 6815 |h | Jump_Zero 0x112 00fd 4801 |H | Short_Literal 0x1 00fe e006 | | Load 0x0,0x6 00ff 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0100 1c08 | | Execute_Immediate Run_Utility,0x8 0101 00db | | Load_Top At_Offset_3 0102 00d9 | | Load_Top At_Offset_1 0103 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0104 4801 |H | Short_Literal 0x1 0105 e006 | | Load 0x0,0x6 0106 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0107 1c08 | | Execute_Immediate Run_Utility,0x8 0108 e5fe | | Load 0x2,-0x2 0109 e5ff | | Load 0x2,-0x1 010a 8229 | ) | Call 0x1,0x29 010b 00d9 | | Load_Top At_Offset_1 010c 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 010d 00d9 | | Load_Top At_Offset_1 010e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 010f e212 | | Load 0x1,0x12 0110 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0111 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0112 4801 |H | Short_Literal 0x1 0113 e006 | | Load 0x0,0x6 0114 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0115 1c08 | | Execute_Immediate Run_Utility,0x8 0116 00db | | Load_Top At_Offset_3 0117 00d9 | | Load_Top At_Offset_1 0118 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0119 4800 |H | Short_Literal 0x0 011a e006 | | Load 0x0,0x6 011b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 011c 1c08 | | Execute_Immediate Run_Utility,0x8 011d e5fe | | Load 0x2,-0x2 011e e5ff | | Load 0x2,-0x1 011f 8228 | ( | Call 0x1,0x28 0120 00d9 | | Load_Top At_Offset_1 0121 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0122 00d9 | | Load_Top At_Offset_1 0123 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0124 e212 | | Load 0x1,0x12 0125 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0126 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012d | - | .CONST 0x012d ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e002 | | Load 0x0,0x2 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d BODY_0128: 012d e5fd | | Load 0x2,-0x3 012e 4602 |F | Jump_Case 0x3 012f 7803 |x | Jump 0x133 ; case 0x0 0130 7805 |x | Jump 0x136 ; case 0x1 0131 7800 |x | Jump 0x132 ; case 0x2 0132 08e2 | | Execute_Immediate Raise,0xe2 0133 4801 |H | Short_Literal 0x1 0134 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0135 7802 |x | Jump 0x138 0136 4800 |H | Short_Literal 0x0 0137 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0138 00e1 | | Load_Encached Boolean_Cache 0139 e002 | | Load 0x0,0x2 013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013b e5fc | | Load 0x2,-0x4 013c 00db | | Load_Top At_Offset_3 013d e5fe | | Load 0x2,-0x2 013e e5ff | | Load 0x2,-0x1 013f e002 | | Load 0x0,0x2 0140 180f | | Execute Package,Field_Execute,Field_Number 0xf 0141 c5fb | | Store 0x2,-0x5 0142 c5fa | | Store 0x2,-0x6 0143 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0154 | T | .CONST 0x0154 ; 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 e002 | | Load 0x0,0x2 014d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 014e 0f01 | | Execute_Immediate Equal,0x1 014f 7002 |p | Jump_Nonzero 0x152 0150 4801 |H | Short_Literal 0x1 0151 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0152 4800 |H | Short_Literal 0x0 0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0154 TRAP_0148: 0154 0007 | | Action Break_Optional 0155 4802 |H | Short_Literal 0x2 0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0157 0000 | | .XXX[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 00db | | Load_Top At_Offset_3 015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015d 00db | | Load_Top At_Offset_3 015e e223 | # | Load 0x1,0x23 015f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0160 00db | | Load_Top At_Offset_3 0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0162 00db | | Load_Top At_Offset_3 0163 e210 | | Load 0x1,0x10 0164 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0165 4801 |H | Short_Literal 0x1 0166 e5fe | | Load 0x2,-0x2 0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0168 00d8 | | Load_Top At_Offset_0 0169 00e3 | | Load_Encached Natural_Cache 016a 0260 | ` | Execute Discrete,In_Type 016b 7001 |p | Jump_Nonzero 0x16d 016c 0801 | | Execute_Immediate Raise,0x1 016d e5fe | | Load 0x2,-0x2 016e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 016f 01cf | | Execute Vector,Slice_Read 0170 00db | | Load_Top At_Offset_3 0171 e210 | | Load 0x1,0x10 0172 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0173 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0174 0000 0000 | | .BLANK 0000[0x4] 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 e223 | # | Load 0x1,0x23 017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017d 4801 |H | Short_Literal 0x1 017e e5ff | | Load 0x2,-0x1 017f e223 | # | Load 0x1,0x23 0180 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0181 e5fd | | Load 0x2,-0x3 0182 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0183 e005 | | Load 0x0,0x5 0184 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0185 e5fe | | Load 0x2,-0x2 0186 e5ff | | Load 0x2,-0x1 0187 e210 | | Load 0x1,0x10 0188 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0189 e5fd | | Load 0x2,-0x3 018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018b e5fd | | Load 0x2,-0x3 018c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018d 4801 |H | Short_Literal 0x1 018e e5fd | | Load 0x2,-0x3 018f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0190 00d8 | | Load_Top At_Offset_0 0191 00e3 | | Load_Encached Natural_Cache 0192 0260 | ` | Execute Discrete,In_Type 0193 7001 |p | Jump_Nonzero 0x195 0194 0801 | | Execute_Immediate Raise,0x1 0195 00da | | Load_Top At_Offset_2 0196 035b | [ | Declare_Type Array,Constrained 0197 00d0 | | Action Swap_Control 0198 01cd | | Execute Vector,Slice_Reference 0199 00d8 | | Load_Top At_Offset_0 019a e5fe | | Load 0x2,-0x2 019b e5ff | | Load 0x2,-0x1 019c e210 | | Load 0x1,0x10 019d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 019e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a6 | | .CONST 0x01a6 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e006 | | Load 0x0,0x6 01a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01a5 0322 | " | Declare_Variable Record 01a6 BODY_01a0: 01a6 e005 | | Load 0x0,0x5 01a7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01a8 e5fe | | Load 0x2,-0x2 01a9 e5ff | | Load 0x2,-0x1 01aa 821e | | Call 0x1,0x1e 01ab 00d9 | | Load_Top At_Offset_1 01ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ad e005 | | Load 0x0,0x5 01ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01af e5fe | | Load 0x2,-0x2 01b0 e5ff | | Load 0x2,-0x1 01b1 821e | | Call 0x1,0x1e 01b2 00d9 | | Load_Top At_Offset_1 01b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b4 00d8 | | Load_Top At_Offset_0 01b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b6 0000 0000 | | .XXX[0x2] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c4 | | .CONST 0x01c4 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb e006 | | Load 0x0,0x6 01bc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01bd 0322 | " | Declare_Variable Record 01be 00d8 | | Load_Top At_Offset_0 01bf 1c00 | | Execute_Immediate Run_Utility,0x0 01c0 e006 | | Load 0x0,0x6 01c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c2 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 01c4 BODY_01b8: 01c4 00da | | Load_Top At_Offset_2 01c5 e5fe | | Load 0x2,-0x2 01c6 e5ff | | Load 0x2,-0x1 01c7 8226 | & | Call 0x1,0x26 01c8 00d1 | | Pop_Control Pop_Count_1 01c9 e221 | ! | Load 0x1,0x21 01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cb e5fe | | Load 0x2,-0x2 01cc e5ff | | Load 0x2,-0x1 01cd e221 | ! | Load 0x1,0x21 01ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01cf 005a | Z | Store_Top Discrete,At_Offset_2 01d0 8404 | | Call 0x2,0x4 01d1 0831 | 1 | Execute_Immediate Raise,0x31 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01df | | .CONST 0x01df ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e006 | | Load 0x0,0x6 01dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01dd 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 01df BODY_01d8: 01df e222 | " | Load 0x1,0x22 01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e1 e5fe | | Load 0x2,-0x2 01e2 e5ff | | Load 0x2,-0x1 01e3 e222 | " | Load 0x1,0x22 01e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e5 005a | Z | Store_Top Discrete,At_Offset_2 01e6 8403 | | Call 0x2,0x3 01e7 0831 | 1 | Execute_Immediate Raise,0x31 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f1 | | .CONST 0x01f1 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e403 | | Load 0x2,0x3 01ec e006 | | Load 0x0,0x6 01ed 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 01ee 1c08 | | Execute_Immediate Run_Utility,0x8 01ef 00d8 | | Load_Top At_Offset_0 01f0 1c00 | | Execute_Immediate Run_Utility,0x0 01f1 BODY_01e8: 01f1 e402 | | Load 0x2,0x2 01f2 00d9 | | Load_Top At_Offset_1 01f3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01f4 e403 | | Load 0x2,0x3 01f5 0f02 | | Execute_Immediate Equal,0x2 01f6 7001 |p | Jump_Nonzero 0x1f8 01f7 7805 |x | Jump 0x1fd 01f8 e5fe | | Load 0x2,-0x2 01f9 e5ff | | Load 0x2,-0x1 01fa 8227 | ' | Call 0x1,0x27 01fb 00d9 | | Load_Top At_Offset_1 01fc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 01fd 00d8 | | Load_Top At_Offset_0 01fe 00cb | | Action Pop_Block_With_Result 01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0207 | | .CONST 0x0207 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 e402 | | Load 0x2,0x2 0204 e006 | | Load 0x0,0x6 0205 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0206 1c08 | | Execute_Immediate Run_Utility,0x8 0207 BODY_0200: 0207 e402 | | Load 0x2,0x2 0208 680c |h | Jump_Zero 0x215 0209 e224 | $ | Load 0x1,0x24 020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020b 00d9 | | Load_Top At_Offset_1 020c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 020d 00d1 | | Pop_Control Pop_Count_1 020e e5fe | | Load 0x2,-0x2 020f e5ff | | Load 0x2,-0x1 0210 e224 | $ | Load 0x1,0x24 0211 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0212 00d9 | | Load_Top At_Offset_1 0213 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0214 7805 |x | Jump 0x21a 0215 e5fe | | Load 0x2,-0x2 0216 e5ff | | Load 0x2,-0x1 0217 8227 | ' | Call 0x1,0x27 0218 00d9 | | Load_Top At_Offset_1 0219 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 021a 00d8 | | Load_Top At_Offset_0 021b 00cb | | Action Pop_Block_With_Result 021c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc883,0x0000,0x0001,0x0000 0226 0001 3ab0 | : | .XXX[0xbc] 0228 0001 4290 | B | 022a 0001 4a70 | Jp| 022c 0001 5250 | RP| 022e 0001 5a30 | Z0| 0230 0001 6210 | b | 0232 0001 69f0 | i | 0234 0001 71d0 | q | 0236 0001 79b0 | y | 0238 0001 8190 | | 023a 0001 8970 | p| 023c 0001 9150 | P| 023e 0001 9930 | 0| 0240 0001 a110 | | 0242 0001 a8f0 | | 0244 0001 b0d0 | | 0246 0001 b8b0 | | 0248 0001 c090 | | 024a 0001 c870 | p| 024c 0001 d050 | P| 024e 0001 d830 | 0| 0250 0001 e010 | | 0252 0001 e7f0 | | 0254 0001 efd0 | | 0256 0001 f7b0 | | 0258 0001 ff90 | | 025a 0002 0770 | p| 025c 0002 0f50 | P| 025e 0002 1730 | 0| 0260 0002 1f10 | | 0262 0002 26f0 | & | 0264 0002 2ed0 | . | 0266 0002 36b0 | 6 | 0268 0002 3e90 | > | 026a 0002 4670 | Fp| 026c 0002 4e50 | NP| 026e 0002 5630 | V0| 0270 0002 5e10 | ^ | 0272 0002 65f0 | e | 0274 0002 6dd0 | m | 0276 0002 75b0 | u | 0278 0002 7d90 | } | 027a 0002 8570 | p| 027c 0002 8d50 | P| 027e 0002 9530 | 0| 0280 0002 9d10 | | 0282 0002 a4f0 | | 0284 0002 acd0 | | 0286 0002 b4b0 | | 0288 0002 bc90 | | 028a 0002 c470 | p| 028c 0002 cc50 | P| 028e 0002 d430 | 0| 0290 0002 dc10 | | 0292 0002 e3f0 | | 0294 0002 ebd0 | | 0296 0002 f3b0 | | 0298 0002 fb90 | | 029a 0003 0370 | p| 029c 0003 0b50 | P| 029e 0003 1330 | 0| 02a0 0003 1b10 | | 02a2 0003 22f0 | " | 02a4 0003 2ad0 | * | 02a6 0003 32b0 | 2 | 02a8 0003 3a90 | : | 02aa 0003 4270 | Bp| 02ac 0003 4a50 | JP| 02ae 0003 5230 | R0| 02b0 0003 5a10 | Z | 02b2 0003 61f0 | a | 02b4 0003 69d0 | i | 02b6 0003 71b0 | q | 02b8 0003 7990 | y | 02ba 0003 8170 | p| 02bc 0003 8950 | P| 02be 0003 9130 | 0| 02c0 0003 9910 | | 02c2 0003 a0f0 | | 02c4 0003 a8d0 | | 02c6 0003 b0b0 | | 02c8 0003 b890 | | 02ca 0003 c070 | p| 02cc 0003 c850 | P| 02ce 0003 d030 | 0| 02d0 0003 d810 | | 02d2 0003 dff0 | | 02d4 0000 0000 | | 02d6 0003 e7d0 | | 02d8 0003 efb0 | | 02da 0003 f790 | | 02dc 0003 ff70 | p| 02de 0004 0750 | P| 02e0 0004 0f30 | 0| 02e2 0000 0000 | | .BLANK 0000[0x33] 0315 0020 | | .XXX[0x1] 0316 0000 0000 | | .BLANK 0000[0x5] 031b 1bc0 0000 | | .XXX[0xe5] 031d 0100 0000 | | 031f 0100 0100 | | 0321 0000 0000 | | 0323 0d00 0000 | | 0325 0600 0000 | | 0327 0400 0400 | | 0329 0000 0000 | | 032b 3800 0000 |8 | 032d 2000 0000 | | 032f 1000 1000 | | 0331 0000 0000 | | 0333 f000 0000 | | 0335 c000 0000 | | 0337 4000 4000 |@ @ | 0339 0000 0004 | | 033b 0000 0003 | | 033d 8000 0001 | | 033f 0001 0000 | | 0341 0000 0011 | | 0343 0000 0010 | | 0345 0000 0004 | | 0347 0004 0000 | | 0349 0000 0048 | H| 034b 0000 0048 | H| 034d 0000 0010 | | 034f 0010 0000 | | 0351 0000 0130 | 0| 0353 0000 0140 | @| 0355 0000 0040 | @| 0357 0040 0000 | @ | 0359 0000 0500 | | 035b 0000 0580 | | 035d 0000 0100 | | 035f 0100 0000 | | 0361 0000 1500 | | 0363 0000 1800 | | 0365 0000 0400 | | 0367 0400 0000 | | 0369 0000 5800 | X | 036b 0000 6800 | h | 036d 0000 1000 | | 036f 1000 0000 | | 0371 0001 7000 | p | 0373 0001 c000 | | 0375 0000 4000 | @ | 0377 4000 0000 |@ | 0379 0006 0000 | | 037b 0007 8000 | | 037d 0001 0001 | | 037f 0000 0000 | | 0381 0019 0000 | | 0383 0020 0000 | | 0385 0004 0004 | | 0387 0000 0000 | | 0389 0068 0000 | h | 038b 0088 0000 | | 038d 0010 0010 | | 038f 0000 0000 | | 0391 01b0 0000 | | 0393 0240 0000 | @ | 0395 0040 0040 | @ @| 0397 0000 0000 | | 0399 0700 0000 | | 039b 0980 0000 | | 039d 0100 0100 | | 039f 0000 0000 | | 03a1 1d00 0000 | | 03a3 2800 0000 |( | 03a5 0400 0400 | | 03a7 0000 0000 | | 03a9 7800 0000 |x | 03ab a800 0000 | | 03ad 1000 1000 | | 03af 0000 0001 | | 03b1 f000 0002 | | 03b3 c000 0000 | | 03b5 4000 4000 |@ @ | 03b7 0000 0008 | | 03b9 0000 000b | | 03bb 8000 0001 | | 03bd 0001 0000 | | 03bf 0000 0021 | !| 03c1 0000 0030 | 0| 03c3 0000 0004 | | 03c5 0004 0000 | | 03c7 0000 0088 | | 03c9 0000 00c8 | | 03cb 0000 0010 | | 03cd 0010 0000 | | 03cf 0000 0230 | 0| 03d1 0000 0340 | @| 03d3 0000 0040 | @| 03d5 0040 0000 | @ | 03d7 0000 0900 | | 03d9 0000 0d80 | | 03db 0000 0100 | | 03dd 0100 0000 | | 03df 0000 2500 | % | 03e1 0000 3800 | 8 | 03e3 0000 0400 | | 03e5 0400 0000 | | 03e7 0000 9800 | | 03e9 0000 e800 | | 03eb 0000 1000 | | 03ed 1000 0000 | | 03ef 0002 7000 | p | 03f1 0003 c000 | | 03f3 0000 4000 | @ | 03f5 4000 0000 |@ | 03f7 000a 0000 | | 03f9 000f 8000 | | 03fb 0001 0001 | | 03fd 0000 0000 | | 03ff 0029 | ) |