|
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_0fe0f5
└─⟦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 01f8 | | .CONST 0x01f8 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 4800 |H | Short_Literal 0x0 0013 481f |H | Short_Literal 0x1f 0014 00e8 | | Load_Encached Character_Cache 0015 03f8 | | Declare_Type Discrete,Constrained 0016 4800 |H | Short_Literal 0x0 0017 6034 |`4 | Indirect_Literal Discrete,0x4c,{0x00000000, 0x00000400} 0018 e001 | | Load 0x0,0x1 0019 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001a 035b | [ | Declare_Type Array,Constrained 001b e002 | | Load 0x0,0x2 001c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001e 02c7 | | Declare_Variable Any 001f 00d8 | | Load_Top At_Offset_0 0020 1c00 | | Execute_Immediate Run_Utility,0x0 0021 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0022 00c7 | | Action Elaborate_Subprogram 0023 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call 0025 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 0027 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0029 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 002b 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 002d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002e 00c7 | | Action Elaborate_Subprogram 002f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0030 00c7 | | Action Elaborate_Subprogram 0031 BODY_0008: 0031 00bc | | Action Signal_Activated 0032 00bb | | Action Signal_Completion 0033 0000 0000 | | .BLANK 0000[0x5] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0040 | @ | .CONST 0x0040 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b e002 | | Load 0x0,0x2 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 02c7 | | Declare_Variable Any 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 BODY_0038: 0040 00d8 | | Load_Top At_Offset_0 0041 00ea | | Load_Encached Null_String_Cache 0042 e5ff | | Load 0x2,-0x1 0043 4801 |H | Short_Literal 0x1 0044 e002 | | Load 0x0,0x2 0045 180f | | Execute Package,Field_Execute,Field_Number 0xf 0046 c402 | | Store 0x2,0x2 0047 00d8 | | Load_Top At_Offset_0 0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0049 0000 0000 | | .XXX[0x3] 004b 0000 | | 004c 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 005d | ] | .CONST 0x005d ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0006 | | .CONST 0x0006 ; Number of locals 0053 INIT_0050: 0053 e002 | | Load 0x0,0x2 0054 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0055 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0056 00e8 | | Load_Encached Character_Cache 0057 e211 | | Load 0x1,0x11 0058 0337 | 7 | Declare_Variable Array 0059 00e3 | | Load_Encached Natural_Cache 005a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005b 00e3 | | Load_Encached Natural_Cache 005c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005d BODY_0050: 005d e212 | | Load 0x1,0x12 005e e002 | | Load 0x0,0x2 005f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0060 180e | | Execute Package,Field_Execute,Field_Number 0xe 0061 c212 | | Store 0x1,0x12 0062 4800 |H | Short_Literal 0x0 0063 4800 |H | Short_Literal 0x0 0064 e404 | | Load 0x2,0x4 0065 01d6 | | Execute Vector,Field_Write 0066 00cf | | Action Mark_Auxiliary 0067 e002 | | Load 0x0,0x2 0068 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006a e212 | | Load 0x1,0x12 006b e002 | | Load 0x0,0x2 006c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 006d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006e c402 | | Store 0x2,0x2 006f e402 | | Load 0x2,0x2 0070 8217 | | Call 0x1,0x17 0071 a403 | | Store_Unchecked 0x2,0x3 0072 e403 | | Load 0x2,0x3 0073 6814 |h | Jump_Zero 0x88 0074 00d9 | | Load_Top At_Offset_1 0075 00db | | Load_Top At_Offset_3 0076 e404 | | Load 0x2,0x4 0077 01d7 | | Execute Vector,Field_Read 0078 00d8 | | Load_Top At_Offset_0 0079 00e8 | | Load_Encached Character_Cache 007a 0260 | ` | Execute Discrete,In_Type 007b 7001 |p | Jump_Nonzero 0x7d 007c 0801 | | Execute_Immediate Raise,0x1 007d e403 | | Load 0x2,0x3 007e e5ff | | Load 0x2,-0x1 007f 8214 | | Call 0x1,0x14 0080 005a | Z | Store_Top Discrete,At_Offset_2 0081 00da | | Load_Top At_Offset_2 0082 e404 | | Load 0x2,0x4 0083 e5fe | | Load 0x2,-0x2 0084 e403 | | Load 0x2,0x3 0085 8216 | | Call 0x1,0x16 0086 00d1 | | Pop_Control Pop_Count_1 0087 005b | [ | Store_Top Discrete,At_Offset_3 0088 00c9 | | Action Pop_Auxiliary_Loop 0089 7fdd | | Jump 0x67 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 009a | | .CONST 0x009a ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e212 | | Load 0x1,0x12 0094 4800 |H | Short_Literal 0x0 0095 e002 | | Load 0x0,0x2 0096 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0097 180f | | Execute Package,Field_Execute,Field_Number 0xf 0098 c212 | | Store 0x1,0x12 0099 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009a TRAP_0090: 009a 0007 | | Action Break_Optional 009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a8 | | .CONST 0x00a8 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 4801 |H | Short_Literal 0x1 00a4 4801 |H | Short_Literal 0x1 00a5 00e9 | | Load_Encached String_Cache 00a6 035b | [ | Declare_Type Array,Constrained 00a7 0337 | 7 | Declare_Variable Array 00a8 BODY_00a0: 00a8 00db | | Load_Top At_Offset_3 00a9 4801 |H | Short_Literal 0x1 00aa 00da | | Load_Top At_Offset_2 00ab 01d6 | | Execute Vector,Field_Write 00ac 00d8 | | Load_Top At_Offset_0 00ad 00e9 | | Load_Encached String_Cache 00ae 01c6 | | Execute Vector,Convert_To_Formal 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00db | | Load_Top At_Offset_3 00b4 e210 | | Load 0x1,0x10 00b5 0260 | ` | Execute Discrete,In_Type 00b6 686d |hm | Jump_Zero 0x124 00b7 00db | | Load_Top At_Offset_3 00b8 00d8 | | Load_Top At_Offset_0 00b9 0c16 | | Execute_Immediate Greater_Equal,0x16 00ba 7028 |p( | Jump_Nonzero 0xe3 00bb 4615 |F | Jump_Case 0x16 00bc 7827 |x' | Jump 0xe4 ; case 0x0 00bd 7826 |x& | Jump 0xe4 ; case 0x1 00be 7825 |x% | Jump 0xe4 ; case 0x2 00bf 7824 |x$ | Jump 0xe4 ; case 0x3 00c0 7823 |x# | Jump 0xe4 ; case 0x4 00c1 7822 |x" | Jump 0xe4 ; case 0x5 00c2 7821 |x! | Jump 0xe4 ; case 0x6 00c3 7820 |x | Jump 0xe4 ; case 0x7 00c4 783d |x= | Jump 0x102 ; case 0x8 00c5 781e |x | Jump 0xe4 ; case 0x9 00c6 7834 |x4 | Jump 0xfb ; case 0xa 00c7 781c |x | Jump 0xe4 ; case 0xb 00c8 781b |x | Jump 0xe4 ; case 0xc 00c9 7831 |x1 | Jump 0xfb ; case 0xd 00ca 7819 |x | Jump 0xe4 ; case 0xe 00cb 7818 |x | Jump 0xe4 ; case 0xf 00cc 7835 |x5 | Jump 0x102 ; case 0x10 00cd 7816 |x | Jump 0xe4 ; case 0x11 00ce 7815 |x | Jump 0xe4 ; case 0x12 00cf 7814 |x | Jump 0xe4 ; case 0x13 00d0 7813 |x | Jump 0xe4 ; case 0x14 00d1 7800 |x | Jump 0xd2 ; case 0x15 00d2 e5fc | | Load 0x2,-0x4 00d3 0c01 | | Execute_Immediate Greater_Equal,0x1 00d4 680b |h | Jump_Zero 0xe0 00d5 4800 |H | Short_Literal 0x0 00d6 e5fc | | Load 0x2,-0x4 00d7 0275 | u | Execute Discrete,Unary_Minus 00d8 4800 |H | Short_Literal 0x0 00d9 e5ff | | Load 0x2,-0x1 00da e002 | | Load 0x0,0x2 00db 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00dc e5fc | | Load 0x2,-0x4 00dd 00db | | Load_Top At_Offset_3 00de e002 | | Load 0x0,0x2 00df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00e0 4800 |H | Short_Literal 0x0 00e1 a5fc | | Store_Unchecked 0x2,-0x4 00e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e3 00d1 | | Pop_Control Pop_Count_1 00e4 4802 |H | Short_Literal 0x2 00e5 e002 | | Load 0x0,0x2 00e6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00e7 e5fe | | Load 0x2,-0x2 00e8 00d8 | | Load_Top At_Offset_0 00e9 e210 | | Load 0x1,0x10 00ea 0260 | ` | Execute Discrete,In_Type 00eb 7001 |p | Jump_Nonzero 0xed 00ec 0801 | | Execute_Immediate Raise,0x1 00ed 8213 | | Call 0x1,0x13 00ee e5ff | | Load 0x2,-0x1 00ef e002 | | Load 0x0,0x2 00f0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00f1 e5fc | | Load 0x2,-0x4 00f2 0a01 | | Execute_Immediate Plus,0x1 00f3 c5fc | | Store 0x2,-0x4 00f4 4800 |H | Short_Literal 0x0 00f5 4800 |H | Short_Literal 0x0 00f6 4800 |H | Short_Literal 0x0 00f7 e5ff | | Load 0x2,-0x1 00f8 e002 | | Load 0x0,0x2 00f9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00fb 4801 |H | Short_Literal 0x1 00fc 00db | | Load_Top At_Offset_3 00fd e002 | | Load 0x0,0x2 00fe 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00ff 4800 |H | Short_Literal 0x0 0100 a5fc | | Store_Unchecked 0x2,-0x4 0101 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0102 e5fd | | Load 0x2,-0x3 0103 681f |h | Jump_Zero 0x123 0104 e5fd | | Load 0x2,-0x3 0105 e210 | | Load 0x1,0x10 0106 0260 | ` | Execute Discrete,In_Type 0107 680e |h | Jump_Zero 0x116 0108 4800 |H | Short_Literal 0x0 0109 4fff |O | Short_Literal -0x1 010a 4800 |H | Short_Literal 0x0 010b e5ff | | Load 0x2,-0x1 010c e002 | | Load 0x0,0x2 010d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 010e 4801 |H | Short_Literal 0x1 010f 00db | | Load_Top At_Offset_3 0110 e002 | | Load 0x0,0x2 0111 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0112 e5fc | | Load 0x2,-0x4 0113 0aff | | Execute_Immediate Plus,-0x1 0114 c5fc | | Store 0x2,-0x4 0115 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0116 4800 |H | Short_Literal 0x0 0117 4fff |O | Short_Literal -0x1 0118 4800 |H | Short_Literal 0x0 0119 e5ff | | Load 0x2,-0x1 011a e002 | | Load 0x0,0x2 011b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 011c 4801 |H | Short_Literal 0x1 011d 00db | | Load_Top At_Offset_3 011e e002 | | Load 0x0,0x2 011f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0120 e5fc | | Load 0x2,-0x4 0121 0aff | | Execute_Immediate Plus,-0x1 0122 c5fc | | Store 0x2,-0x4 0123 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0124 4802 |H | Short_Literal 0x2 0125 e002 | | Load 0x0,0x2 0126 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0127 e5fe | | Load 0x2,-0x2 0128 e5ff | | Load 0x2,-0x1 0129 e002 | | Load 0x0,0x2 012a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 012b e5fc | | Load 0x2,-0x4 012c 0a01 | | Execute_Immediate Plus,0x1 012d c5fc | | Store 0x2,-0x4 012e 4800 |H | Short_Literal 0x0 012f 4800 |H | Short_Literal 0x0 0130 4800 |H | Short_Literal 0x0 0131 e5ff | | Load 0x2,-0x1 0132 e002 | | Load 0x0,0x2 0133 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0134 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 6803 |h | Jump_Zero 0x140 013d e003 | | Load 0x0,0x3 013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013f 0257 | W | Execute Discrete,Raise 0140 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014d | M | .CONST 0x014d ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e004 | | Load 0x0,0x4 014c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 014d BODY_0148: 014d 00db | | Load_Top At_Offset_3 014e 00d8 | | Load_Top At_Offset_0 014f 0c16 | | Execute_Immediate Greater_Equal,0x16 0150 701a |p | Jump_Nonzero 0x16b 0151 4615 |F | Jump_Case 0x16 0152 7819 |x | Jump 0x16c ; case 0x0 0153 7818 |x | Jump 0x16c ; case 0x1 0154 7817 |x | Jump 0x16c ; case 0x2 0155 7816 |x | Jump 0x16c ; case 0x3 0156 7815 |x | Jump 0x16c ; case 0x4 0157 7814 |x | Jump 0x16c ; case 0x5 0158 7813 |x | Jump 0x16c ; case 0x6 0159 7812 |x | Jump 0x16c ; case 0x7 015a 7835 |x5 | Jump 0x190 ; case 0x8 015b 7810 |x | Jump 0x16c ; case 0x9 015c 783a |x: | Jump 0x197 ; case 0xa 015d 780e |x | Jump 0x16c ; case 0xb 015e 780d |x | Jump 0x16c ; case 0xc 015f 7837 |x7 | Jump 0x197 ; case 0xd 0160 780b |x | Jump 0x16c ; case 0xe 0161 780a |x | Jump 0x16c ; case 0xf 0162 782d |x- | Jump 0x190 ; case 0x10 0163 7808 |x | Jump 0x16c ; case 0x11 0164 7807 |x | Jump 0x16c ; case 0x12 0165 7806 |x | Jump 0x16c ; case 0x13 0166 7805 |x | Jump 0x16c ; case 0x14 0167 7800 |x | Jump 0x168 ; case 0x15 0168 4800 |H | Short_Literal 0x0 0169 a5fc | | Store_Unchecked 0x2,-0x4 016a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016b 00d1 | | Pop_Control Pop_Count_1 016c e5fc | | Load 0x2,-0x4 016d 0a01 | | Execute_Immediate Plus,0x1 016e c5fc | | Store 0x2,-0x4 016f e5fc | | Load 0x2,-0x4 0170 6043 |`C | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x00000400} 0171 027f | | Execute Discrete,Equal 0172 6812 |h | Jump_Zero 0x185 0173 480a |H | Short_Literal 0xa 0174 e5fc | | Load 0x2,-0x4 0175 e5fd | | Load 0x2,-0x3 0176 01d6 | | Execute Vector,Field_Write 0177 e004 | | Load 0x0,0x4 0178 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0179 4801 |H | Short_Literal 0x1 017a e5fc | | Load 0x2,-0x4 017b e5fd | | Load 0x2,-0x3 017c 01cf | | Execute Vector,Slice_Read 017d e5fe | | Load 0x2,-0x2 017e e003 | | Load 0x0,0x3 017f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0180 0059 | Y | Store_Top Discrete,At_Offset_1 0181 00d8 | | Load_Top At_Offset_0 0182 8215 | | Call 0x1,0x15 0183 4801 |H | Short_Literal 0x1 0184 a5fc | | Store_Unchecked 0x2,-0x4 0185 00db | | Load_Top At_Offset_3 0186 00d8 | | Load_Top At_Offset_0 0187 e005 | | Load 0x0,0x5 0188 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0189 0260 | ` | Execute Discrete,In_Type 018a 7001 |p | Jump_Nonzero 0x18c 018b 0801 | | Execute_Immediate Raise,0x1 018c e5fc | | Load 0x2,-0x4 018d e5fd | | Load 0x2,-0x3 018e 01d6 | | Execute Vector,Field_Write 018f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0190 e5fc | | Load 0x2,-0x4 0191 0c01 | | Execute_Immediate Greater_Equal,0x1 0192 6803 |h | Jump_Zero 0x196 0193 e5fc | | Load 0x2,-0x4 0194 0aff | | Execute_Immediate Plus,-0x1 0195 c5fc | | Store 0x2,-0x4 0196 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0197 480a |H | Short_Literal 0xa 0198 e5fc | | Load 0x2,-0x4 0199 0a01 | | Execute_Immediate Plus,0x1 019a e5fd | | Load 0x2,-0x3 019b 01d6 | | Execute Vector,Field_Write 019c e004 | | Load 0x0,0x4 019d 1b19 | | Execute Package,Field_Read,Field_Number 0x19 019e 4801 |H | Short_Literal 0x1 019f e5fc | | Load 0x2,-0x4 01a0 0a01 | | Execute_Immediate Plus,0x1 01a1 00d8 | | Load_Top At_Offset_0 01a2 00e2 | | Load_Encached Integer_Cache 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 0801 | | Execute_Immediate Raise,0x1 01a6 e5fd | | Load 0x2,-0x3 01a7 01cf | | Execute Vector,Slice_Read 01a8 e5fe | | Load 0x2,-0x2 01a9 e003 | | Load 0x0,0x3 01aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ab 0059 | Y | Store_Top Discrete,At_Offset_1 01ac 00d8 | | Load_Top At_Offset_0 01ad 8215 | | Call 0x1,0x15 01ae 4800 |H | Short_Literal 0x0 01af a5fc | | Store_Unchecked 0x2,-0x4 01b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b1 0000 0000 | | .XXX[0x3] 01b3 0000 | | 01b4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc e002 | | Load 0x0,0x2 01bd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01be 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01bf 0260 | ` | Execute Discrete,In_Type 01c0 680d |h | Jump_Zero 0x1ce 01c1 00da | | Load_Top At_Offset_2 01c2 e002 | | Load 0x0,0x2 01c3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c5 00d9 | | Load_Top At_Offset_1 01c6 00d0 | | Action Swap_Control 01c7 0260 | ` | Execute Discrete,In_Type 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0801 | | Execute_Immediate Raise,0x1 01ca e002 | | Load 0x0,0x2 01cb 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01cc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ce 00da | | Load_Top At_Offset_2 01cf e006 | | Load 0x0,0x6 01d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d1 027f | | Execute Discrete,Equal 01d2 6802 |h | Jump_Zero 0x1d5 01d3 480d |H | Short_Literal 0xd 01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d5 00da | | Load_Top At_Offset_2 01d6 e006 | | Load 0x0,0x6 01d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d8 027f | | Execute Discrete,Equal 01d9 6802 |h | Jump_Zero 0x1dc 01da 480a |H | Short_Literal 0xa 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc 00da | | Load_Top At_Offset_2 01dd e006 | | Load 0x0,0x6 01de 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01df 027f | | Execute Discrete,Equal 01e0 6802 |h | Jump_Zero 0x1e3 01e1 4808 |H | Short_Literal 0x8 01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e3 00da | | Load_Top At_Offset_2 01e4 e006 | | Load 0x0,0x6 01e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e6 027f | | Execute Discrete,Equal 01e7 6802 |h | Jump_Zero 0x1ea 01e8 4810 |H | Short_Literal 0x10 01e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ea 00da | | Load_Top At_Offset_2 01eb e006 | | Load 0x0,0x6 01ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ed 027f | | Execute Discrete,Equal 01ee 6802 |h | Jump_Zero 0x1f1 01ef 481b |H | Short_Literal 0x1b 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 4800 |H | Short_Literal 0x0 01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; Debug Table 01f8 ; -------------------------------------------------------------------------------------- 01f8 0004 000d | | .DEBUG4 0x0004,0x000d,0xdd75,0x0000,0x0001,0x0000 01fe f911 0710 | | .XXX[0x2]