|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0040
000f 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
0011 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
0013 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
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 For_Call,INIT_0110
002e e212 | | Load 0x1,0x12
002f 0326 | & | Complete_Type Record,By_Defining
0030 029d 012b | +| Declare_Subprogram For_Outer_Call,INIT_0128
0032 029d 015b | [| Declare_Subprogram For_Outer_Call,INIT_0158
0034 029d 0173 | s| Declare_Subprogram For_Outer_Call,INIT_0170
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 For_Call,INIT_0190
004a 029f 01e3 | | Declare_Subprogram For_Call,INIT_01e0
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_Subprogram 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_Subprogram 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_Result,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_Result,0x3
00a9 00d9 | | Load_Top At_Offset_1
00aa 4403 |D | Exit_Subprogram With_Result,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_Result,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 For_Call,INIT_0228
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_Result,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 0x8
0114 7808 |x | Jump 0x11d ; case 0x0
0115 4302 |C | Exit_Subprogram From_Utility,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,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 For_Call,INIT_0238
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_Result,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_Result,0x2
014f e5ff | | Load 0x2,-0x1
0150 4402 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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"
; "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]