|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0658fb
└─⟦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 01d8 | | .CONST 0x01d8 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0011 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0015 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001d 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 001f 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0021 00bf | | Action Accept_Activation 0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 00c7 | | Action Elaborate_Subprogram 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0027 00c7 | | Action Elaborate_Subprogram 0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0029 00c7 | | Action Elaborate_Subprogram 002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0031 00c7 | | Action Elaborate_Subprogram 0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0033 00c7 | | Action Elaborate_Subprogram 0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0035 00c7 | | Action Elaborate_Subprogram 0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0037 00c7 | | Action Elaborate_Subprogram 0038 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0053 | S | .CONST 0x0053 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00e1 | | Load_Encached Boolean_Cache 0044 00e1 | | Load_Encached Boolean_Cache 0045 00e1 | | Load_Encached Boolean_Cache 0046 00e3 | | Load_Encached Natural_Cache 0047 e5fe | | Load 0x2,-0x2 0048 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0049 e5ff | | Load 0x2,-0x1 004a e001 | | Load 0x0,0x1 004b 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 004c 00d1 | | Pop_Control Pop_Count_1 004d e5fe | | Load 0x2,-0x2 004e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 004f c5fd | | Store 0x2,-0x3 0050 c5fc | | Store 0x2,-0x4 0051 c5fb | | Store 0x2,-0x5 0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0053 TRAP_0040: 0053 00d8 | | Load_Top At_Offset_0 0054 0107 | | Execute Exception,Get_Name 0055 4950 |IP | Short_Literal 0x150 0056 495f |I_ | Short_Literal 0x15f 0057 0262 | b | Execute Discrete,In_Range 0058 680a |h | Jump_Zero 0x63 0059 4801 |H | Short_Literal 0x1 005a a5fb | | Store_Unchecked 0x2,-0x5 005b 4801 |H | Short_Literal 0x1 005c a5fc | | Store_Unchecked 0x2,-0x4 005d 4801 |H | Short_Literal 0x1 005e a5fd | | Store_Unchecked 0x2,-0x3 005f 4800 |H | Short_Literal 0x0 0060 e5fe | | Load 0x2,-0x2 0061 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0063 0100 | | Execute Exception,Raise 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 007f | | .CONST 0x007f ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00db | | Load_Top At_Offset_3 006c 0229 | ) | Execute Access,All_Read 006d e5fe | | Load 0x2,-0x2 006e 0229 | ) | Execute Access,All_Read 006f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0070 00e1 | | Load_Encached Boolean_Cache 0071 00e1 | | Load_Encached Boolean_Cache 0072 00e1 | | Load_Encached Boolean_Cache 0073 00e3 | | Load_Encached Natural_Cache 0074 e403 | | Load 0x2,0x3 0075 e5ff | | Load 0x2,-0x1 0076 e001 | | Load 0x0,0x1 0077 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 0078 00d1 | | Pop_Control Pop_Count_1 0079 e402 | | Load 0x2,0x2 007a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 007b c5fd | | Store 0x2,-0x3 007c c5fc | | Store 0x2,-0x4 007d c5fb | | Store 0x2,-0x5 007e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007f TRAP_0068: 007f 00d8 | | Load_Top At_Offset_0 0080 0107 | | Execute Exception,Get_Name 0081 4950 |IP | Short_Literal 0x150 0082 495f |I_ | Short_Literal 0x15f 0083 0262 | b | Execute Discrete,In_Range 0084 680b |h | Jump_Zero 0x90 0085 4801 |H | Short_Literal 0x1 0086 a5fb | | Store_Unchecked 0x2,-0x5 0087 4801 |H | Short_Literal 0x1 0088 a5fc | | Store_Unchecked 0x2,-0x4 0089 4801 |H | Short_Literal 0x1 008a a5fd | | Store_Unchecked 0x2,-0x3 008b 4800 |H | Short_Literal 0x0 008c e5fe | | Load 0x2,-0x2 008d 0227 | ' | Execute Access,All_Reference 008e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 008f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0090 0100 | | Execute Exception,Raise 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009d | | .CONST 0x009d ; Address of begin 0099 00be | | .CONST 0x00be ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 009d BODY_0098: 009d 4800 |H | Short_Literal 0x0 009e e5fd | | Load 0x2,-0x3 009f 0227 | ' | Execute Access,All_Reference 00a0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00a1 e5fd | | Load 0x2,-0x3 00a2 0229 | ) | Execute Access,All_Read 00a3 e5fd | | Load 0x2,-0x3 00a4 0229 | ) | Execute Access,All_Read 00a5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00a6 00e1 | | Load_Encached Boolean_Cache 00a7 00e1 | | Load_Encached Boolean_Cache 00a8 00e1 | | Load_Encached Boolean_Cache 00a9 00e3 | | Load_Encached Natural_Cache 00aa e404 | | Load 0x2,0x4 00ab e5ff | | Load 0x2,-0x1 00ac e001 | | Load 0x0,0x1 00ad 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 00ae 00d1 | | Pop_Control Pop_Count_1 00af e403 | | Load 0x2,0x3 00b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00b1 c5fc | | Store 0x2,-0x4 00b2 c5fb | | Store 0x2,-0x5 00b3 c5fa | | Store 0x2,-0x6 00b4 00d2 | | Pop_Control Pop_Count_2 00b5 e5fc | | Load 0x2,-0x4 00b6 7004 |p | Jump_Nonzero 0xbb 00b7 e5fb | | Load 0x2,-0x5 00b8 7002 |p | Jump_Nonzero 0xbb 00b9 e5fa | | Load 0x2,-0x6 00ba 6801 |h | Jump_Zero 0xbc 00bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00bc 8402 | | Call 0x2,0x2 00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00be TRAP_0098: 00be 00d8 | | Load_Top At_Offset_0 00bf 0107 | | Execute Exception,Get_Name 00c0 4950 |IP | Short_Literal 0x150 00c1 495f |I_ | Short_Literal 0x15f 00c2 0262 | b | Execute Discrete,In_Range 00c3 6807 |h | Jump_Zero 0xcb 00c4 4801 |H | Short_Literal 0x1 00c5 a5fa | | Store_Unchecked 0x2,-0x6 00c6 4801 |H | Short_Literal 0x1 00c7 a5fb | | Store_Unchecked 0x2,-0x5 00c8 4801 |H | Short_Literal 0x1 00c9 a5fc | | Store_Unchecked 0x2,-0x4 00ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00cb 0100 | | Execute Exception,Raise 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d5 0c01 | | Execute_Immediate Greater_Equal,0x1 00d6 6808 |h | Jump_Zero 0xdf 00d7 4801 |H | Short_Literal 0x1 00d8 00db | | Load_Top At_Offset_3 00d9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00da e5ff | | Load 0x2,-0x1 00db 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00dc 01cf | | Execute Vector,Slice_Read 00dd e001 | | Load 0x0,0x1 00de 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00db | | Load_Top At_Offset_3 00e4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00e5 0c01 | | Execute_Immediate Greater_Equal,0x1 00e6 6809 |h | Jump_Zero 0xf0 00e7 4801 |H | Short_Literal 0x1 00e8 e5fe | | Load 0x2,-0x2 00e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ea e5fe | | Load 0x2,-0x2 00eb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00ec 01cf | | Execute Vector,Slice_Read 00ed 00db | | Load_Top At_Offset_3 00ee e001 | | Load 0x0,0x1 00ef 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 00f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00fd 0c01 | | Execute_Immediate Greater_Equal,0x1 00fe 6809 |h | Jump_Zero 0x108 00ff 4801 |H | Short_Literal 0x1 0100 00db | | Load_Top At_Offset_3 0101 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0102 e5ff | | Load 0x2,-0x1 0103 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0104 01cf | | Execute Vector,Slice_Read 0105 e001 | | Load 0x0,0x1 0106 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0107 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0108 4801 |H | Short_Literal 0x1 0109 e001 | | Load 0x0,0x1 010a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0115 0c01 | | Execute_Immediate Greater_Equal,0x1 0116 680a |h | Jump_Zero 0x121 0117 4801 |H | Short_Literal 0x1 0118 e5fe | | Load 0x2,-0x2 0119 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 011a e5fe | | Load 0x2,-0x2 011b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 011c 01cf | | Execute Vector,Slice_Read 011d 00db | | Load_Top At_Offset_3 011e e001 | | Load 0x0,0x1 011f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0120 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0121 4801 |H | Short_Literal 0x1 0122 00db | | Load_Top At_Offset_3 0123 e001 | | Load 0x0,0x1 0124 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0125 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c 0227 | ' | Execute Access,All_Reference 012d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 012e 0c01 | | Execute_Immediate Greater_Equal,0x1 012f 680a |h | Jump_Zero 0x13a 0130 4801 |H | Short_Literal 0x1 0131 00db | | Load_Top At_Offset_3 0132 0227 | ' | Execute Access,All_Reference 0133 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0134 e5ff | | Load 0x2,-0x1 0135 0227 | ' | Execute Access,All_Reference 0136 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0137 01cf | | Execute Vector,Slice_Read 0138 e001 | | Load 0x0,0x1 0139 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 013a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00db | | Load_Top At_Offset_3 0144 0227 | ' | Execute Access,All_Reference 0145 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0146 0c01 | | Execute_Immediate Greater_Equal,0x1 0147 680b |h | Jump_Zero 0x153 0148 4801 |H | Short_Literal 0x1 0149 e5fe | | Load 0x2,-0x2 014a 0227 | ' | Execute Access,All_Reference 014b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 014c e5fe | | Load 0x2,-0x2 014d 0227 | ' | Execute Access,All_Reference 014e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 014f 01cf | | Execute Vector,Slice_Read 0150 00db | | Load_Top At_Offset_3 0151 e001 | | Load 0x0,0x1 0152 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0153 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0154 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 015c 0227 | ' | Execute Access,All_Reference 015d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 015e 0c01 | | Execute_Immediate Greater_Equal,0x1 015f 680b |h | Jump_Zero 0x16b 0160 4801 |H | Short_Literal 0x1 0161 00db | | Load_Top At_Offset_3 0162 0227 | ' | Execute Access,All_Reference 0163 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0164 e5ff | | Load 0x2,-0x1 0165 0227 | ' | Execute Access,All_Reference 0166 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0167 01cf | | Execute Vector,Slice_Read 0168 e001 | | Load 0x0,0x1 0169 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016b 4801 |H | Short_Literal 0x1 016c e001 | | Load 0x0,0x1 016d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 016e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00db | | Load_Top At_Offset_3 0174 0227 | ' | Execute Access,All_Reference 0175 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0176 0c01 | | Execute_Immediate Greater_Equal,0x1 0177 680c |h | Jump_Zero 0x184 0178 4801 |H | Short_Literal 0x1 0179 e5fe | | Load 0x2,-0x2 017a 0227 | ' | Execute Access,All_Reference 017b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 017c e5fe | | Load 0x2,-0x2 017d 0227 | ' | Execute Access,All_Reference 017e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 017f 01cf | | Execute Vector,Slice_Read 0180 00db | | Load_Top At_Offset_3 0181 e001 | | Load 0x0,0x1 0182 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0184 4801 |H | Short_Literal 0x1 0185 00db | | Load_Top At_Offset_3 0186 e001 | | Load 0x0,0x1 0187 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0188 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0195 | | .CONST 0x0195 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 00e3 | | Load_Encached Natural_Cache 0194 00e3 | | Load_Encached Natural_Cache 0195 BODY_0190: 0195 e5fd | | Load 0x2,-0x3 0196 0227 | ' | Execute Access,All_Reference 0197 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0198 0a01 | | Execute_Immediate Plus,0x1 0199 005a | Z | Store_Top Discrete,At_Offset_2 019a 00cf | | Action Mark_Auxiliary 019b e5fd | | Load 0x2,-0x3 019c 00d8 | | Load_Top At_Offset_0 019d 0227 | ' | Execute Access,All_Reference 019e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 019f e5fe | | Load 0x2,-0x2 01a0 0273 | s | Execute Discrete,Plus 01a1 00d8 | | Load_Top At_Offset_0 01a2 00e3 | | Load_Encached Natural_Cache 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 0801 | | Execute_Immediate Raise,0x1 01a6 e002 | | Load 0x0,0x2 01a7 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a8 c5fd | | Store 0x2,-0x3 01a9 e5fd | | Load 0x2,-0x3 01aa 0229 | ) | Execute Access,All_Read 01ab 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01ac 00db | | Load_Top At_Offset_3 01ad e5fd | | Load 0x2,-0x3 01ae 0227 | ' | Execute Access,All_Reference 01af 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01b0 01dc | | Execute Vector,Last 01b1 00da | | Load_Top At_Offset_2 01b2 035b | [ | Declare_Type Array,Constrained 01b3 00d0 | | Action Swap_Control 01b4 01cd | | Execute Vector,Slice_Reference 01b5 00e1 | | Load_Encached Boolean_Cache 01b6 00e1 | | Load_Encached Boolean_Cache 01b7 00e1 | | Load_Encached Boolean_Cache 01b8 00e3 | | Load_Encached Natural_Cache 01b9 e605 | | Load 0x3,0x5 01ba e5ff | | Load 0x2,-0x1 01bb e001 | | Load 0x0,0x1 01bc 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 01bd 00d1 | | Pop_Control Pop_Count_1 01be c603 | | Store 0x3,0x3 01bf c5fc | | Store 0x2,-0x4 01c0 c5fb | | Store 0x2,-0x5 01c1 c5fa | | Store 0x2,-0x6 01c2 00d1 | | Pop_Control Pop_Count_1 01c3 00d9 | | Load_Top At_Offset_1 01c4 e5fd | | Load 0x2,-0x3 01c5 0227 | ' | Execute Access,All_Reference 01c6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01c7 e5fc | | Load 0x2,-0x4 01c8 7004 |p | Jump_Nonzero 0x1cd 01c9 e5fb | | Load 0x2,-0x5 01ca 7002 |p | Jump_Nonzero 0x1cd 01cb e5fa | | Load 0x2,-0x6 01cc 6802 |h | Jump_Zero 0x1cf 01cd 00cc | | Action Pop_Block 01ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01cf 00d9 | | Load_Top At_Offset_1 01d0 0a01 | | Execute_Immediate Plus,0x1 01d1 005b | [ | Store_Top Discrete,At_Offset_3 01d2 00c9 | | Action Pop_Auxiliary_Loop 01d3 7fc7 | | Jump 0x19b 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug Table 01d8 ; -------------------------------------------------------------------------------------- 01d8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa93e,0x0000,0x0001,0x0000 01de 0000 0000 | | .BLANK 0000[0x22]