|
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_0a7cf5
└─⟦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 02e0 | | .CONST 0x02e0 ; 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 003e | > | .CONST 0x003e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0013 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0015 4802 |H | Short_Literal 0x2 0016 032a | * | Declare_Type Record,Incomplete 0017 00d8 | | Load_Top At_Offset_0 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 e20d | | Load 0x1,0xd 001a 03c7 | | Complete_Type Access,By_Defining 001b 00bf | | Action Accept_Activation 001c 0092 0275 | u| Action Push_String_Extended,0x275 ; "=>" 001e e001 | | Load 0x0,0x1 001f e002 | | Load 0x0,0x2 0020 4bfd |K | Short_Literal 0x3fd 0021 e003 | | Load 0x0,0x3 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 4801 |H | Short_Literal 0x1 0024 e004 | | Load 0x0,0x4 0025 0387 | | Declare_Variable Package 0026 00d8 | | Load_Top At_Offset_0 0027 020f | | Execute Module,Activate 0028 e003 | | Load 0x0,0x3 0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002a 00d9 | | Load_Top At_Offset_1 002b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002c 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 002e e212 | | Load 0x1,0x12 002f 0326 | & | Complete_Type Record,By_Defining 0030 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0032 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 0034 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call 0036 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0037 00c7 | | Action Elaborate_Subprogram 0038 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0039 00c7 | | Action Elaborate_Subprogram 003a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003b 00c7 | | Action Elaborate_Subprogram 003c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003d 00c7 | | Action Elaborate_Subprogram 003e BODY_0008: 003e 00bc | | Action Signal_Activated 003f 00bb | | Action Signal_Completion 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 004c | L | .CONST 0x004c ; Address of begin 0041 0076 | v | .CONST 0x0076 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 e005 | | Load 0x0,0x5 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 02c7 | | Declare_Variable Any 0046 00d8 | | Load_Top At_Offset_0 0047 1c00 | | Execute_Immediate Run_Utility,0x0 0048 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 004a 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 004c BODY_0040: 004c e5fd | | Load 0x2,-0x3 004d e006 | | Load 0x0,0x6 004e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 004f c5fd | | Store 0x2,-0x3 0050 e5fe | | Load 0x2,-0x2 0051 7006 |p | Jump_Nonzero 0x58 0052 e20d | | Load 0x1,0xd 0053 03bc | | Declare_Variable Access,By_Allocation 0054 00d8 | | Load_Top At_Offset_0 0055 0227 | ' | Execute Access,All_Reference 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 a5fe | | Store_Unchecked 0x2,-0x2 0058 4bfd |K | Short_Literal 0x3fd 0059 e003 | | Load 0x0,0x3 005a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005b e5fe | | Load 0x2,-0x2 005c 0227 | ' | Execute Access,All_Reference 005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005e e5fe | | Load 0x2,-0x2 005f 0229 | ) | Execute Access,All_Read 0060 e214 | | Load 0x1,0x14 0061 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0062 e214 | | Load 0x1,0x14 0063 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0064 00d9 | | Load_Top At_Offset_1 0065 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0066 00d1 | | Pop_Control Pop_Count_1 0067 8403 | | Call 0x2,0x3 0068 00cf | | Action Mark_Auxiliary 0069 7802 |x | Jump 0x6c 006a 8404 | | Call 0x2,0x4 006b 00c9 | | Action Pop_Auxiliary_Loop 006c 00db | | Load_Top At_Offset_3 006d e005 | | Load 0x0,0x5 006e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 006f 6ffa |o | Jump_Zero 0x6a 0070 00ce | | Action Pop_Auxiliary 0071 00da | | Load_Top At_Offset_2 0072 e005 | | Load 0x0,0x5 0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0074 c402 | | Store 0x2,0x2 0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0076 TRAP_0040: 0076 0007 | | Action Break_Optional 0077 e5fd | | Load 0x2,-0x3 0078 4829 |H) | Short_Literal 0x29 0079 0092 0276 | v| Action Push_String_Extended,0x276 ; "Unexpected exception in Acronym.Initialize (" 007b e006 | | Load 0x0,0x6 007c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007d 01cc | | Execute Vector,Catenate 007e 01cb | | Execute Vector,Append 007f e006 | | Load 0x0,0x6 0080 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0081 e006 | | Load 0x0,0x6 0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0083 c5fd | | Store 0x2,-0x3 0084 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0093 | | .CONST 0x0093 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b 00e1 | | Load_Encached Boolean_Cache 008c 00db | | Load_Top At_Offset_3 008d 8211 | | Call 0x1,0x11 008e e003 | | Load 0x0,0x3 008f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0090 02c7 | | Declare_Variable Any 0091 00d8 | | Load_Top At_Offset_0 0092 1c00 | | Execute_Immediate Run_Utility,0x0 0093 BODY_0088: 0093 00e1 | | Load_Encached Boolean_Cache 0094 00d9 | | Load_Top At_Offset_1 0095 00db | | Load_Top At_Offset_3 0096 e5fe | | Load 0x2,-0x2 0097 0227 | ' | Execute Access,All_Reference 0098 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0099 e214 | | Load 0x1,0x14 009a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009b c404 | | Store 0x2,0x4 009c 005b | [ | Store_Top Discrete,At_Offset_3 009d 00da | | Load_Top At_Offset_2 009e 6804 |h | Jump_Zero 0xa3 009f 00d8 | | Load_Top At_Offset_0 00a0 e003 | | Load 0x0,0x3 00a1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00a3 e5fd | | Load 0x2,-0x3 00a4 6804 |h | Jump_Zero 0xa9 00a5 e5fe | | Load 0x2,-0x2 00a6 00da | | Load_Top At_Offset_2 00a7 8215 | | Call 0x1,0x15 00a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00a9 00d9 | | Load_Top At_Offset_1 00aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bb | | .CONST 0x00bb ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0004 | | .CONST 0x0004 ; Number of locals 00b3 INIT_00b0: 00b3 00e1 | | Load_Encached Boolean_Cache 00b4 00db | | Load_Top At_Offset_3 00b5 8211 | | Call 0x1,0x11 00b6 e003 | | Load 0x0,0x3 00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b8 02c7 | | Declare_Variable Any 00b9 00d8 | | Load_Top At_Offset_0 00ba 1c00 | | Execute_Immediate Run_Utility,0x0 00bb BODY_00b0: 00bb 00e1 | | Load_Encached Boolean_Cache 00bc 00d9 | | Load_Top At_Offset_1 00bd 00db | | Load_Top At_Offset_3 00be e5fe | | Load 0x2,-0x2 00bf 0227 | ' | Execute Access,All_Reference 00c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c1 e214 | | Load 0x1,0x14 00c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c3 c404 | | Store 0x2,0x4 00c4 005b | [ | Store_Top Discrete,At_Offset_3 00c5 00da | | Load_Top At_Offset_2 00c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00db | | .CONST 0x00db ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0006 | | .CONST 0x0006 ; Number of locals 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 01da | | Execute Vector,Bounds 00cd 00e9 | | Load_Encached String_Cache 00ce 035b | [ | Declare_Type Array,Constrained 00cf 0337 | 7 | Declare_Variable Array 00d0 00d8 | | Load_Top At_Offset_0 00d1 01dd | | Execute Vector,First 00d2 00e3 | | Load_Encached Natural_Cache 00d3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00d4 00d8 | | Load_Top At_Offset_0 00d5 00e3 | | Load_Encached Natural_Cache 00d6 03f1 | | Declare_Variable Discrete,With_Value 00d7 00e1 | | Load_Encached Boolean_Cache 00d8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d9 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 00db BODY_00c8: 00db 00cf | | Action Mark_Auxiliary 00dc e5ff | | Load 0x2,-0x1 00dd 01d9 | | Execute Vector,Reverse_Bounds 00de 0263 | c | Execute Discrete,Above_Bound 00df 7021 |p! | Jump_Nonzero 0x101 00e0 00d8 | | Load_Top At_Offset_0 00e1 e5ff | | Load 0x2,-0x1 00e2 01d7 | | Execute Vector,Field_Read 00e3 00d8 | | Load_Top At_Offset_0 00e4 0d20 | | Execute_Immediate Less,0x20 00e5 700e |p | Jump_Nonzero 0xf4 00e6 00d8 | | Load_Top At_Offset_0 00e7 0c21 | ! | Execute_Immediate Greater_Equal,0x21 00e8 7008 |p | Jump_Nonzero 0xf1 00e9 00d1 | | Pop_Control Pop_Count_1 00ea e405 | | Load 0x2,0x5 00eb 6813 |h | Jump_Zero 0xff 00ec 4820 |H | Short_Literal 0x20 00ed 8406 | | Call 0x2,0x6 00ee 4800 |H | Short_Literal 0x0 00ef a405 | | Store_Unchecked 0x2,0x5 00f0 780e |x | Jump 0xff 00f1 0f5f | _ | Execute_Immediate Equal,0x5f 00f2 77f7 |w | Jump_Nonzero 0xea 00f3 7805 |x | Jump 0xf9 00f4 4809 |H | Short_Literal 0x9 00f5 480d |H | Short_Literal 0xd 00f6 0262 | b | Execute Discrete,In_Range 00f7 77f2 |w | Jump_Nonzero 0xea 00f8 7800 |x | Jump 0xf9 00f9 00d8 | | Load_Top At_Offset_0 00fa e5ff | | Load 0x2,-0x1 00fb 01d7 | | Execute Vector,Field_Read 00fc 8406 | | Call 0x2,0x6 00fd 4801 |H | Short_Literal 0x1 00fe a405 | | Store_Unchecked 0x2,0x5 00ff 00c8 | | Action Pop_Auxiliary_Range 0100 3fdf |? | Loop_Increasing 0xe0 0101 00ce | | Action Pop_Auxiliary 0102 00db | | Load_Top At_Offset_3 0103 00e2 | | Load_Encached Integer_Cache 0104 e404 | | Load 0x2,0x4 0105 0267 | g | Execute Discrete,Predecessor 0106 e402 | | Load 0x2,0x2 0107 01cf | | Execute Vector,Slice_Read 0108 00e9 | | Load_Encached String_Cache 0109 01c6 | | Execute Vector,Convert_To_Formal 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 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 4608 |F | Jump_Case 0x9 0114 7808 |x | Jump 0x11d ; case 0x0 0115 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0116 780d |x | Jump 0x124 ; case 0x2 0117 780c |x | Jump 0x124 ; case 0x3 0118 780b |x | Jump 0x124 ; case 0x4 0119 780a |x | Jump 0x124 ; case 0x5 011a 7809 |x | Jump 0x124 ; case 0x6 011b 7808 |x | Jump 0x124 ; case 0x7 011c 7807 |x | Jump 0x124 ; case 0x8 011d 00da | | Load_Top At_Offset_2 011e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 011f 0125 | % | Execute Any,Set_Constraint 0120 00da | | Load_Top At_Offset_2 0121 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0122 1c00 | | Execute_Immediate Run_Utility,0x0 0123 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0124 0869 | i | Execute_Immediate Raise,0x69 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0138 | 8 | .CONST 0x0138 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0005 | | .CONST 0x0005 ; Number of locals 012b INIT_0128: 012b 00e1 | | Load_Encached Boolean_Cache 012c 4800 |H | Short_Literal 0x0 012d e5ff | | Load 0x2,-0x1 012e 4820 |H | Short_Literal 0x20 012f e007 | | Load 0x0,0x7 0130 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0131 e003 | | Load 0x0,0x3 0132 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0133 02c7 | | Declare_Variable Any 0134 00d8 | | Load_Top At_Offset_0 0135 1c00 | | Execute_Immediate Run_Utility,0x0 0136 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0138 BODY_0128: 0138 e5ff | | Load 0x2,-0x1 0139 01db | | Execute Vector,Length 013a 7002 |p | Jump_Nonzero 0x13d 013b 00ea | | Load_Encached Null_String_Cache 013c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013d 00da | | Load_Top At_Offset_2 013e 7012 |p | Jump_Nonzero 0x151 013f 00e1 | | Load_Encached Boolean_Cache 0140 00da | | Load_Top At_Offset_2 0141 e5ff | | Load 0x2,-0x1 0142 e5fe | | Load 0x2,-0x2 0143 0227 | ' | Execute Access,All_Reference 0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0145 e214 | | Load 0x1,0x14 0146 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0147 c404 | | Store 0x2,0x4 0148 c402 | | Store 0x2,0x2 0149 00db | | Load_Top At_Offset_3 014a 6804 |h | Jump_Zero 0x14f 014b 00d9 | | Load_Top At_Offset_1 014c e003 | | Load 0x0,0x3 014d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014f e5ff | | Load 0x2,-0x1 0150 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0151 8405 | | Call 0x2,0x5 0152 0831 | 1 | Execute_Immediate Raise,0x31 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 4800 |H | Short_Literal 0x0 015c 00db | | Load_Top At_Offset_3 015d e213 | | Load 0x1,0x13 015e e007 | | Load 0x0,0x7 015f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0160 BODY_0158: 0160 00d8 | | Load_Top At_Offset_0 0161 7002 |p | Jump_Nonzero 0x164 0162 00db | | Load_Top At_Offset_3 0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0164 4820 |H | Short_Literal 0x20 0165 e5ff | | Load 0x2,-0x1 0166 01dd | | Execute Vector,First 0167 00e2 | | Load_Encached Integer_Cache 0168 00db | | Load_Top At_Offset_3 0169 0267 | g | Execute Discrete,Predecessor 016a e5ff | | Load 0x2,-0x1 016b 01cf | | Execute Vector,Slice_Read 016c e007 | | Load 0x0,0x7 016d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0178 | x | .CONST 0x0178 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 4800 |H | Short_Literal 0x0 0174 00db | | Load_Top At_Offset_3 0175 e213 | | Load 0x1,0x13 0176 e007 | | Load 0x0,0x7 0177 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0178 BODY_0170: 0178 00d8 | | Load_Top At_Offset_0 0179 7002 |p | Jump_Nonzero 0x17c 017a 00db | | Load_Top At_Offset_3 017b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017c 4820 |H | Short_Literal 0x20 017d 00d9 | | Load_Top At_Offset_1 017e 0a02 | | Execute_Immediate Plus,0x2 017f 00d8 | | Load_Top At_Offset_0 0180 00e2 | | Load_Encached Integer_Cache 0181 0260 | ` | Execute Discrete,In_Type 0182 7001 |p | Jump_Nonzero 0x184 0183 0801 | | Execute_Immediate Raise,0x1 0184 e5ff | | Load 0x2,-0x1 0185 01dc | | Execute Vector,Last 0186 e5ff | | Load 0x2,-0x1 0187 01cf | | Execute Vector,Slice_Read 0188 e007 | | Load 0x0,0x7 0189 181a | | Execute Package,Field_Execute,Field_Number 0x1a 018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 019b | | .CONST 0x019b ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 e402 | | Load 0x2,0x2 0194 00ea | | Load_Encached Null_String_Cache 0195 e5ff | | Load 0x2,-0x1 0196 4800 |H | Short_Literal 0x0 0197 e005 | | Load 0x0,0x5 0198 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0199 c402 | | Store 0x2,0x2 019a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019b TRAP_0190: 019b 00d8 | | Load_Top At_Offset_0 019c 0107 | | Execute Exception,Get_Name 019d 4920 |I | Short_Literal 0x120 019e 492f |I/ | Short_Literal 0x12f 019f 0262 | b | Execute Discrete,In_Range 01a0 680e |h | Jump_Zero 0x1af 01a1 e5fd | | Load 0x2,-0x3 01a2 4822 |H" | Short_Literal 0x22 01a3 0092 0277 | w| Action Push_String_Extended,0x277 ; "Unable to open Acronym file \x22" 01a5 e5ff | | Load 0x2,-0x1 01a6 01cc | | Execute Vector,Catenate 01a7 01cb | | Execute Vector,Append 01a8 e006 | | Load 0x0,0x6 01a9 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 01aa e006 | | Load 0x0,0x6 01ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ac c5fd | | Store 0x2,-0x3 01ad 00cc | | Action Pop_Block 01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01af 00d8 | | Load_Top At_Offset_0 01b0 0107 | | Execute Exception,Get_Name 01b1 4900 |I | Short_Literal 0x100 01b2 490f |I | Short_Literal 0x10f 01b3 0262 | b | Execute Discrete,In_Range 01b4 7006 |p | Jump_Nonzero 0x1bb 01b5 00d8 | | Load_Top At_Offset_0 01b6 0107 | | Execute Exception,Get_Name 01b7 4930 |I0 | Short_Literal 0x130 01b8 493f |I? | Short_Literal 0x13f 01b9 0262 | b | Execute Discrete,In_Range 01ba 680e |h | Jump_Zero 0x1c9 01bb e5fd | | Load 0x2,-0x3 01bc 4822 |H" | Short_Literal 0x22 01bd 0092 0277 | w| Action Push_String_Extended,0x277 ; "Unable to open Acronym file \x22" 01bf e5ff | | Load 0x2,-0x1 01c0 01cc | | Execute Vector,Catenate 01c1 01cb | | Execute Vector,Append 01c2 e006 | | Load 0x0,0x6 01c3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01c4 e006 | | Load 0x0,0x6 01c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c6 c5fd | | Store 0x2,-0x3 01c7 00cc | | Action Pop_Block 01c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c9 e5fd | | Load 0x2,-0x3 01ca 4829 |H) | Short_Literal 0x29 01cb 0092 0278 | x| Action Push_String_Extended,0x278 ; "Unexpected exception raised while attempting to open Acronym file \x22" 01cd e5ff | | Load 0x2,-0x1 01ce 01cc | | Execute Vector,Catenate 01cf 0092 0279 | y| Action Push_String_Extended,0x279 ; "\x22 (" 01d1 01cc | | Execute Vector,Catenate 01d2 e006 | | Load 0x0,0x6 01d3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01d4 01cc | | Execute Vector,Catenate 01d5 01cb | | Execute Vector,Append 01d6 e006 | | Load 0x0,0x6 01d7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01d8 e006 | | Load 0x0,0x6 01d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01da c5fd | | Store 0x2,-0x3 01db 00cc | | Action Pop_Block 01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ee | | .CONST 0x01ee ; Address of begin 01e1 0204 | | .CONST 0x0204 ; Address of exception handler 01e2 0004 | | .CONST 0x0004 ; Number of locals 01e3 INIT_01e0: 01e3 4820 |H | Short_Literal 0x20 01e4 e402 | | Load 0x2,0x2 01e5 e005 | | Load 0x0,0x5 01e6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01e7 e007 | | Load 0x0,0x7 01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e9 00d8 | | Load_Top At_Offset_0 01ea 8216 | | Call 0x1,0x16 01eb 8211 | | Call 0x1,0x11 01ec 00d9 | | Load_Top At_Offset_1 01ed 8217 | | Call 0x1,0x17 01ee BODY_01e0: 01ee 00da | | Load_Top At_Offset_2 01ef 01db | | Execute Vector,Length 01f0 6812 |h | Jump_Zero 0x203 01f1 e5fe | | Load 0x2,-0x2 01f2 0229 | ) | Execute Access,All_Read 01f3 00d8 | | Load_Top At_Offset_0 01f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f5 4801 |H | Short_Literal 0x1 01f6 4800 |H | Short_Literal 0x0 01f7 e5fe | | Load 0x2,-0x2 01f8 0227 | ' | Execute Access,All_Reference 01f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fa e604 | | Load 0x3,0x4 01fb e003 | | Load 0x0,0x3 01fc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01fd e603 | | Load 0x3,0x3 01fe e214 | | Load 0x1,0x14 01ff 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0200 00d9 | | Load_Top At_Offset_1 0201 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0202 00d1 | | Pop_Control Pop_Count_1 0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0204 TRAP_01e0: 0204 e214 | | Load 0x1,0x14 0205 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0206 010f | | Execute Exception,Equal 0207 681d |h | Jump_Zero 0x225 0208 4800 |H | Short_Literal 0x0 0209 4800 |H | Short_Literal 0x0 020a 4806 |H | Short_Literal 0x6 020b 0092 027a | z| Action Push_String_Extended,0x27a ; "Ignoring redefinition of Acronym Key '" 020d e603 | | Load 0x3,0x3 020e 01cc | | Execute Vector,Catenate 020f 0092 027b | {| Action Push_String_Extended,0x27b ; "' on line" 0211 01cc | | Execute Vector,Catenate 0212 00e5 | | Load_Encached Long_Integer_Cache 0213 e402 | | Load 0x2,0x2 0214 e005 | | Load 0x0,0x5 0215 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0216 0267 | g | Execute Discrete,Predecessor 0217 00e0 | | Load_Encached Standard_Cache 0218 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0219 01cc | | Execute Vector,Catenate 021a 0092 027c | || Action Push_String_Extended,0x27c ; " of " 021c 01cc | | Execute Vector,Catenate 021d e402 | | Load 0x2,0x2 021e e005 | | Load 0x0,0x5 021f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0220 01cc | | Execute Vector,Catenate 0221 00ea | | Load_Encached Null_String_Cache 0222 e006 | | Load 0x0,0x6 0223 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0224 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0225 0100 | | Execute Exception,Raise 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c e404 | | Load 0x2,0x4 022d e402 | | Load 0x2,0x2 022e 01d6 | | Execute Vector,Field_Write 022f 00e2 | | Load_Encached Integer_Cache 0230 e404 | | Load 0x2,0x4 0231 0268 | h | Execute Discrete,Successor 0232 c404 | | Store 0x2,0x4 0233 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0249 | I | .CONST 0x0249 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e5ff | | Load 0x2,-0x1 023c 01dd | | Execute Vector,First 023d 00e2 | | Load_Encached Integer_Cache 023e e403 | | Load 0x2,0x3 023f 0267 | g | Execute Discrete,Predecessor 0240 00e3 | | Load_Encached Natural_Cache 0241 03f8 | | Declare_Type Discrete,Constrained 0242 00e2 | | Load_Encached Integer_Cache 0243 e403 | | Load 0x2,0x3 0244 0268 | h | Execute Discrete,Successor 0245 e5ff | | Load 0x2,-0x1 0246 01dc | | Execute Vector,Last 0247 00e3 | | Load_Encached Natural_Cache 0248 03f8 | | Declare_Type Discrete,Constrained 0249 BODY_0238: 0249 00e1 | | Load_Encached Boolean_Cache 024a e404 | | Load 0x2,0x4 024b 00db | | Load_Top At_Offset_3 024c 0266 | f | Execute Discrete,Bounds 024d e5ff | | Load 0x2,-0x1 024e 01cf | | Execute Vector,Slice_Read 024f e5fe | | Load 0x2,-0x2 0250 0227 | ' | Execute Access,All_Reference 0251 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0252 e214 | | Load 0x1,0x14 0253 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0254 c404 | | Store 0x2,0x4 0255 c402 | | Store 0x2,0x2 0256 e402 | | Load 0x2,0x2 0257 680e |h | Jump_Zero 0x266 0258 4820 |H | Short_Literal 0x20 0259 e404 | | Load 0x2,0x4 025a e003 | | Load 0x0,0x3 025b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 025c 01cb | | Execute Vector,Append 025d e5fe | | Load 0x2,-0x2 025e 00da | | Load_Top At_Offset_2 025f 0266 | f | Execute Discrete,Bounds 0260 e5ff | | Load 0x2,-0x1 0261 01cf | | Execute Vector,Slice_Read 0262 8215 | | Call 0x1,0x15 0263 01cc | | Execute Vector,Catenate 0264 00cb | | Action Pop_Block_With_Result 0265 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0266 4820 |H | Short_Literal 0x20 0267 00da | | Load_Top At_Offset_2 0268 0266 | f | Execute Discrete,Bounds 0269 e5ff | | Load 0x2,-0x1 026a 01cf | | Execute Vector,Slice_Read 026b 01cb | | Execute Vector,Append 026c e5fe | | Load 0x2,-0x2 026d 00da | | Load_Top At_Offset_2 026e 0266 | f | Execute Discrete,Bounds 026f e5ff | | Load 0x2,-0x1 0270 01cf | | Execute Vector,Slice_Read 0271 8215 | | Call 0x1,0x15 0272 01cc | | Execute Vector,Catenate 0273 00cb | | Action Pop_Block_With_Result 0274 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0275 ; -------------------------------------------------------------------------------------- 0275 ; STRING TABLE 0275 ; -------------------------------------------------------------------------------------- 0275 0012 | | .STRTAB 0x0012->0x027e ; "=>" 0276 0012 | | .STRTAB 0x0012->0x027f ; "Unexpected exception in Acronym.Initialize (" 0277 003c | < | .STRTAB 0x003c->0x0295 ; "Unable to open Acronym file \x22" 0278 0057 | W | .STRTAB 0x0057->0x02a3 ; "Unexpected exception raised while attempting to open Acronym file \x22" 0279 0098 | | .STRTAB 0x0098->0x02c5 ; "\x22 (" 027a 0099 | | .STRTAB 0x0099->0x02c6 ; "Ignoring redefinition of Acronym Key '" 027b 00bd | | .STRTAB 0x00bd->0x02d9 ; "' on line" 027c 00c4 | | .STRTAB 0x00c4->0x02de ; " of " 027d 00c6 | | .STREND 0x00c6->0x02e0 027e 3d3e 556e |=>Un| .STRTAB_STRINGS 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug Table 02e0 ; -------------------------------------------------------------------------------------- 02e0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc56c,0x0000,0x0001,0x0000 02e6 0000 0000 | | .BLANK 0000[0xd] 02f3 0007 e900 | | .XXX[0x1d] 02f5 07e8 0000 | | 02f7 e20a d108 | | 02f9 0200 1000 | | 02fb 1600 0000 | | 02fd 00f4 e800 | | 02ff 39c0 0000 |9 | 0301 1c60 0500 | ` | 0303 0000 a200 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a40 | @| 030d 0002 05a5 | | 030f 6200 |b | 0310 0000 0000 | | .BLANK 0000[0x1d] 032d fd20 00fd | | .XXX[0x1c] 032f 0000 1c41 | A| 0331 da21 0040 | ! @| 0333 0200 02c0 | | 0335 0000 001e | | 0337 9d00 0740 | @| 0339 0000 038c | | 033b 00a0 0000 | | 033d 1440 0000 | @ | 033f 0800 0000 | | 0341 4400 0000 |D | 0343 0020 0000 | | 0345 0148 0000 | H | 0347 40b4 ac40 |@ @| 0349 0000 0000 | | .BLANK 0000[0x2b] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]