|
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_5850da
└─⟦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 0308 | | .CONST 0x0308 ; 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 003c | < | .CONST 0x003c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 029a 0043 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0040
001f c21d | | Store 0x1,0x1d
0020 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
0022 c214 | | Store 0x1,0x14
0023 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
0025 c215 | | Store 0x1,0x15
0026 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0028 c216 | | Store 0x1,0x16
0029 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
002b c21e | | Store 0x1,0x1e
002c 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
002e c21c | | Store 0x1,0x1c
002f 00bf | | Action Accept_Activation
0030 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0031 00c7 | | Action Elaborate_Subprogram
0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0033 00c7 | | Action Elaborate_Subprogram
0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0035 00c7 | | Action Elaborate_Subprogram
0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0037 00c7 | | Action Elaborate_Subprogram
0038 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0039 00c7 | | Action Elaborate_Subprogram
003a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
003b 00c7 | | Action Elaborate_Subprogram
003c BODY_0008:
003c 00bc | | Action Signal_Activated
003d 00bb | | Action Signal_Completion
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 004c | L | .CONST 0x004c ; Address of begin
0041 00b2 | | .CONST 0x00b2 ; Address of exception handler
0042 0004 | | .CONST 0x0004 ; Number of locals
0043 INIT_0040:
0043 e001 | | Load 0x0,0x1
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0046 e002 | | Load 0x0,0x2
0047 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0048 e003 | | Load 0x0,0x3
0049 0322 | " | Declare_Variable Record
004a 00d8 | | Load_Top At_Offset_0
004b 1c00 | | Execute_Immediate Run_Utility,0x0
004c BODY_0040:
004c e001 | | Load 0x0,0x1
004d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004e e5fb | | Load 0x2,-0x5
004f e5ff | | Load 0x2,-0x1
0050 8004 | | Call 0x0,0x4
0051 005b | [ | Store_Top Discrete,At_Offset_3
0052 4800 |H | Short_Literal 0x0
0053 00db | | Load_Top At_Offset_3
0054 e001 | | Load 0x0,0x1
0055 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0056 7001 |p | Jump_Nonzero 0x58
0057 4506 |E | Exit_Subprogram 0x6
0058 e5ff | | Load 0x2,-0x1
0059 0227 | ' | Execute Access,All_Reference
005a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
005b e002 | | Load 0x0,0x2
005c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
005d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
005e 00d9 | | Load_Top At_Offset_1
005f 0217 | | Execute Heap_Access,All_Reference
0060 00d9 | | Load_Top At_Offset_1
0061 017d | } | Execute Record,Structure_Write
0062 4801 |H | Short_Literal 0x1
0063 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "<DEFAULT>"
0065 e5fe | | Load 0x2,-0x2
0066 e005 | | Load 0x0,0x5
0067 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0068 7010 |p | Jump_Nonzero 0x79
0069 e5fe | | Load 0x2,-0x2
006a 4801 |H | Short_Literal 0x1
006b e5fe | | Load 0x2,-0x2
006c 01db | | Execute Vector,Length
006d 00d8 | | Load_Top At_Offset_0
006e 00e2 | | Load_Encached Integer_Cache
006f 0260 | ` | Execute Discrete,In_Type
0070 7001 |p | Jump_Nonzero 0x72
0071 0801 | | Execute_Immediate Raise,0x1
0072 00db | | Load_Top At_Offset_3
0073 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0074 01ce | | Execute Vector,Slice_Write
0075 e5fe | | Load 0x2,-0x2
0076 01db | | Execute Vector,Length
0077 00d9 | | Load_Top At_Offset_1
0078 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0079 4801 |H | Short_Literal 0x1
007a 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "<DEFAULT>"
007c e5fd | | Load 0x2,-0x3
007d e005 | | Load 0x0,0x5
007e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
007f 7010 |p | Jump_Nonzero 0x90
0080 e5fd | | Load 0x2,-0x3
0081 4801 |H | Short_Literal 0x1
0082 e5fd | | Load 0x2,-0x3
0083 01db | | Execute Vector,Length
0084 00d8 | | Load_Top At_Offset_0
0085 00e2 | | Load_Encached Integer_Cache
0086 0260 | ` | Execute Discrete,In_Type
0087 7001 |p | Jump_Nonzero 0x89
0088 0801 | | Execute_Immediate Raise,0x1
0089 00db | | Load_Top At_Offset_3
008a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008b 01ce | | Execute Vector,Slice_Write
008c e5fd | | Load 0x2,-0x3
008d 01db | | Execute Vector,Length
008e 00d9 | | Load_Top At_Offset_1
008f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0090 4801 |H | Short_Literal 0x1
0091 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "<DEFAULT>"
0093 e5fc | | Load 0x2,-0x4
0094 e005 | | Load 0x0,0x5
0095 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0096 7010 |p | Jump_Nonzero 0xa7
0097 e5fc | | Load 0x2,-0x4
0098 4801 |H | Short_Literal 0x1
0099 e5fc | | Load 0x2,-0x4
009a 01db | | Execute Vector,Length
009b 00d8 | | Load_Top At_Offset_0
009c 00e2 | | Load_Encached Integer_Cache
009d 0260 | ` | Execute Discrete,In_Type
009e 7001 |p | Jump_Nonzero 0xa0
009f 0801 | | Execute_Immediate Raise,0x1
00a0 00db | | Load_Top At_Offset_3
00a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00a2 01ce | | Execute Vector,Slice_Write
00a3 e5fc | | Load 0x2,-0x4
00a4 01db | | Execute Vector,Length
00a5 00d9 | | Load_Top At_Offset_1
00a6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00a7 00da | | Load_Top At_Offset_2
00a8 00d9 | | Load_Top At_Offset_1
00a9 e5ff | | Load 0x2,-0x1
00aa 0227 | ' | Execute Access,All_Reference
00ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ac e002 | | Load 0x0,0x2
00ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ae 005b | [ | Store_Top Discrete,At_Offset_3
00af 00da | | Load_Top At_Offset_2
00b0 a5fa | | Store_Unchecked 0x2,-0x6
00b1 4506 |E | Exit_Subprogram 0x6
00b2 TRAP_0040:
00b2 e001 | | Load 0x0,0x1
00b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b4 010f | | Execute Exception,Equal
00b5 6804 |h | Jump_Zero 0xba
00b6 e001 | | Load 0x0,0x1
00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b8 a5fa | | Store_Unchecked 0x2,-0x6
00b9 4506 |E | Exit_Subprogram 0x6
00ba e5fb | | Load 0x2,-0x5
00bb 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Set_Command_Names"
00bd e006 | | Load 0x0,0x6
00be 180f | | Execute Package,Field_Execute,Field_Number 0xf
00bf 4506 |E | Exit_Subprogram 0x6
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c8 | | .CONST 0x00c8 ; Address of begin
00c1 00e7 | | .CONST 0x00e7 ; Address of exception handler
00c2 0003 | | .CONST 0x0003 ; Number of locals
00c3 INIT_00c0:
00c3 e002 | | Load 0x0,0x2
00c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c5 e001 | | Load 0x0,0x1
00c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c8 BODY_00c0:
00c8 e001 | | Load 0x0,0x1
00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ca e5fe | | Load 0x2,-0x2
00cb e5ff | | Load 0x2,-0x1
00cc 8004 | | Call 0x0,0x4
00cd 0059 | Y | Store_Top Discrete,At_Offset_1
00ce 4800 |H | Short_Literal 0x0
00cf 00d9 | | Load_Top At_Offset_1
00d0 e001 | | Load 0x0,0x1
00d1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00d2 7003 |p | Jump_Nonzero 0xd6
00d3 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
00d5 4402 |D | Exit_Subprogram With_Result,0x2
00d6 e5ff | | Load 0x2,-0x1
00d7 0227 | ' | Execute Access,All_Reference
00d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d9 e002 | | Load 0x0,0x2
00da 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00db 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00dc 4801 |H | Short_Literal 0x1
00dd 00da | | Load_Top At_Offset_2
00de 0217 | | Execute Heap_Access,All_Reference
00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e0 00db | | Load_Top At_Offset_3
00e1 0217 | | Execute Heap_Access,All_Reference
00e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e3 01cf | | Execute Vector,Slice_Read
00e4 0335 | 5 | Declare_Variable Array,Duplicate
00e5 00cd | | Action Spare6_Action
00e6 4402 |D | Exit_Subprogram With_Result,0x2
00e7 TRAP_00c0:
00e7 e001 | | Load 0x0,0x1
00e8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00e9 010f | | Execute Exception,Equal
00ea 6819 |h | Jump_Zero 0x104
00eb e5fe | | Load 0x2,-0x2
00ec 4801 |H | Short_Literal 0x1
00ed 4801 |H | Short_Literal 0x1
00ee e007 | | Load 0x0,0x7
00ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f0 035b | [ | Declare_Type Array,Constrained
00f1 0337 | 7 | Declare_Variable Array
00f2 e5ff | | Load 0x2,-0x1
00f3 0227 | ' | Execute Access,All_Reference
00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f5 e008 | | Load 0x0,0x8
00f6 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
00f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f8 e007 | | Load 0x0,0x7
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 0119 | | Execute Any,Check_In_Formal_Type
00fb 4801 |H | Short_Literal 0x1
00fc 00da | | Load_Top At_Offset_2
00fd 01d6 | | Execute Vector,Field_Write
00fe 600d |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00008109}
00ff e001 | | Load 0x0,0x1
0100 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0101 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
0103 4402 |D | Exit_Subprogram With_Result,0x2
0104 e5fe | | Load 0x2,-0x2
0105 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "Compiler_Command"
0107 e006 | | Load 0x0,0x6
0108 180f | | Execute Package,Field_Execute,Field_Number 0xf
0109 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;"
010b 4402 |D | Exit_Subprogram With_Result,0x2
010c 0000 0000 | | .LITERAL {0x00000000, 0x00008109}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0137 | 7 | .CONST 0x0137 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e002 | | Load 0x0,0x2
0114 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0115 e001 | | Load 0x0,0x1
0116 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0117 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0118 BODY_0110:
0118 e001 | | Load 0x0,0x1
0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011a e5fe | | Load 0x2,-0x2
011b e5ff | | Load 0x2,-0x1
011c 8004 | | Call 0x0,0x4
011d 0059 | Y | Store_Top Discrete,At_Offset_1
011e 4800 |H | Short_Literal 0x0
011f 00d9 | | Load_Top At_Offset_1
0120 e001 | | Load 0x0,0x1
0121 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0122 7003 |p | Jump_Nonzero 0x126
0123 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
0125 4402 |D | Exit_Subprogram With_Result,0x2
0126 e5ff | | Load 0x2,-0x1
0127 0227 | ' | Execute Access,All_Reference
0128 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0129 e002 | | Load 0x0,0x2
012a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
012c 4801 |H | Short_Literal 0x1
012d 00da | | Load_Top At_Offset_2
012e 0217 | | Execute Heap_Access,All_Reference
012f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0130 00db | | Load_Top At_Offset_3
0131 0217 | | Execute Heap_Access,All_Reference
0132 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0133 01cf | | Execute Vector,Slice_Read
0134 0335 | 5 | Declare_Variable Array,Duplicate
0135 00cd | | Action Spare6_Action
0136 4402 |D | Exit_Subprogram With_Result,0x2
0137 TRAP_0110:
0137 e001 | | Load 0x0,0x1
0138 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0139 010f | | Execute Exception,Equal
013a 6819 |h | Jump_Zero 0x154
013b e5fe | | Load 0x2,-0x2
013c 4801 |H | Short_Literal 0x1
013d 4801 |H | Short_Literal 0x1
013e e007 | | Load 0x0,0x7
013f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0140 035b | [ | Declare_Type Array,Constrained
0141 0337 | 7 | Declare_Variable Array
0142 e5ff | | Load 0x2,-0x1
0143 0227 | ' | Execute Access,All_Reference
0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0145 e008 | | Load 0x0,0x8
0146 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0147 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0148 e007 | | Load 0x0,0x7
0149 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014a 0119 | | Execute Any,Check_In_Formal_Type
014b 4801 |H | Short_Literal 0x1
014c 00da | | Load_Top At_Offset_2
014d 01d6 | | Execute Vector,Field_Write
014e 600d |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x0000810a}
014f e001 | | Load 0x0,0x1
0150 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0151 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
0153 4402 |D | Exit_Subprogram With_Result,0x2
0154 e5fe | | Load 0x2,-0x2
0155 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "Linker_Command"
0157 e006 | | Load 0x0,0x6
0158 180f | | Execute Package,Field_Execute,Field_Number 0xf
0159 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;"
015b 4402 |D | Exit_Subprogram With_Result,0x2
015c 0000 0000 | | .LITERAL {0x00000000, 0x0000810a}
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0187 | | .CONST 0x0187 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 e002 | | Load 0x0,0x2
0164 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0165 e001 | | Load 0x0,0x1
0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0167 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0168 BODY_0160:
0168 e001 | | Load 0x0,0x1
0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016a e5fe | | Load 0x2,-0x2
016b e5ff | | Load 0x2,-0x1
016c 8004 | | Call 0x0,0x4
016d 0059 | Y | Store_Top Discrete,At_Offset_1
016e 4800 |H | Short_Literal 0x0
016f 00d9 | | Load_Top At_Offset_1
0170 e001 | | Load 0x0,0x1
0171 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0172 7003 |p | Jump_Nonzero 0x176
0173 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
0175 4402 |D | Exit_Subprogram With_Result,0x2
0176 e5ff | | Load 0x2,-0x1
0177 0227 | ' | Execute Access,All_Reference
0178 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0179 e002 | | Load 0x0,0x2
017a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
017c 4801 |H | Short_Literal 0x1
017d 00da | | Load_Top At_Offset_2
017e 0217 | | Execute Heap_Access,All_Reference
017f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0180 00db | | Load_Top At_Offset_3
0181 0217 | | Execute Heap_Access,All_Reference
0182 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0183 01cf | | Execute Vector,Slice_Read
0184 0335 | 5 | Declare_Variable Array,Duplicate
0185 00cd | | Action Spare6_Action
0186 4402 |D | Exit_Subprogram With_Result,0x2
0187 TRAP_0160:
0187 e001 | | Load 0x0,0x1
0188 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0189 010f | | Execute Exception,Equal
018a 6819 |h | Jump_Zero 0x1a4
018b e5fe | | Load 0x2,-0x2
018c 4801 |H | Short_Literal 0x1
018d 4801 |H | Short_Literal 0x1
018e e007 | | Load 0x0,0x7
018f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0190 035b | [ | Declare_Type Array,Constrained
0191 0337 | 7 | Declare_Variable Array
0192 e5ff | | Load 0x2,-0x1
0193 0227 | ' | Execute Access,All_Reference
0194 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0195 e008 | | Load 0x0,0x8
0196 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0197 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0198 e007 | | Load 0x0,0x7
0199 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019a 0119 | | Execute Any,Check_In_Formal_Type
019b 4801 |H | Short_Literal 0x1
019c 00da | | Load_Top At_Offset_2
019d 01d6 | | Execute Vector,Field_Write
019e 600d |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x0000810b}
019f e001 | | Load 0x0,0x1
01a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01a1 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
01a3 4402 |D | Exit_Subprogram With_Result,0x2
01a4 e5fe | | Load 0x2,-0x2
01a5 0092 02ca | | Action Push_String_Extended,0x2ca ; "Loader_Command"
01a7 e006 | | Load 0x0,0x6
01a8 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a9 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;"
01ab 4402 |D | Exit_Subprogram With_Result,0x2
01ac 0000 0000 | | .LITERAL {0x00000000, 0x0000810b}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bc | | .CONST 0x01bc ; Address of begin
01b1 0218 | | .CONST 0x0218 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e008 | | Load 0x0,0x8
01b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 02c7 | | Declare_Variable Any
01b7 00d8 | | Load_Top At_Offset_0
01b8 1c00 | | Execute_Immediate Run_Utility,0x0
01b9 e001 | | Load 0x0,0x1
01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01bc BODY_01b0:
01bc e001 | | Load 0x0,0x1
01bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01be e5fd | | Load 0x2,-0x3
01bf e5ff | | Load 0x2,-0x1
01c0 8004 | | Call 0x0,0x4
01c1 0059 | Y | Store_Top Discrete,At_Offset_1
01c2 4800 |H | Short_Literal 0x0
01c3 00d9 | | Load_Top At_Offset_1
01c4 e001 | | Load 0x0,0x1
01c5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01c6 7014 |p | Jump_Nonzero 0x1db
01c7 4801 |H | Short_Literal 0x1
01c8 4801 |H | Short_Literal 0x1
01c9 e007 | | Load 0x0,0x7
01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cb 035b | [ | Declare_Type Array,Constrained
01cc 0337 | 7 | Declare_Variable Array
01cd e5fe | | Load 0x2,-0x2
01ce e007 | | Load 0x0,0x7
01cf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01d0 e007 | | Load 0x0,0x7
01d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d2 0119 | | Execute Any,Check_In_Formal_Type
01d3 4801 |H | Short_Literal 0x1
01d4 00da | | Load_Top At_Offset_2
01d5 01d6 | | Execute Vector,Field_Write
01d6 6079 |`y | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125}
01d7 e001 | | Load 0x0,0x1
01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d9 a5fb | | Store_Unchecked 0x2,-0x5
01da 4505 |E | Exit_Subprogram 0x5
01db e5ff | | Load 0x2,-0x1
01dc 0227 | ' | Execute Access,All_Reference
01dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01de e5fe | | Load 0x2,-0x2
01df e009 | | Load 0x0,0x9
01e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01e2 e008 | | Load 0x0,0x8
01e3 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
01e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01e5 c402 | | Store 0x2,0x2
01e6 00d9 | | Load_Top At_Offset_1
01e7 e008 | | Load 0x0,0x8
01e8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01e9 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ea 6827 |h' | Jump_Zero 0x212
01eb e5fd | | Load 0x2,-0x3
01ec 4801 |H | Short_Literal 0x1
01ed 4801 |H | Short_Literal 0x1
01ee e007 | | Load 0x0,0x7
01ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f0 035b | [ | Declare_Type Array,Constrained
01f1 0337 | 7 | Declare_Variable Array
01f2 e5fe | | Load 0x2,-0x2
01f3 e007 | | Load 0x0,0x7
01f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f5 e007 | | Load 0x0,0x7
01f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f7 0119 | | Execute Any,Check_In_Formal_Type
01f8 4801 |H | Short_Literal 0x1
01f9 00da | | Load_Top At_Offset_2
01fa 01d6 | | Execute Vector,Field_Write
01fb 6050 |`P | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000816f}
01fc e001 | | Load 0x0,0x1
01fd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01fe 4801 |H | Short_Literal 0x1
01ff 4801 |H | Short_Literal 0x1
0200 e007 | | Load 0x0,0x7
0201 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0202 035b | [ | Declare_Type Array,Constrained
0203 0337 | 7 | Declare_Variable Array
0204 e5fe | | Load 0x2,-0x2
0205 e007 | | Load 0x0,0x7
0206 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0207 e007 | | Load 0x0,0x7
0208 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0209 0119 | | Execute Any,Check_In_Formal_Type
020a 4801 |H | Short_Literal 0x1
020b 00da | | Load_Top At_Offset_2
020c 01d6 | | Execute Vector,Field_Write
020d 6042 |`B | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125}
020e e001 | | Load 0x0,0x1
020f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0210 a5fb | | Store_Unchecked 0x2,-0x5
0211 4505 |E | Exit_Subprogram 0x5
0212 e5fc | | Load 0x2,-0x4
0213 00da | | Load_Top At_Offset_2
0214 800a | | Call 0x0,0xa
0215 00d8 | | Load_Top At_Offset_0
0216 a5fb | | Store_Unchecked 0x2,-0x5
0217 4505 |E | Exit_Subprogram 0x5
0218 TRAP_01b0:
0218 e001 | | Load 0x0,0x1
0219 1b17 | | Execute Package,Field_Read,Field_Number 0x17
021a 010f | | Execute Exception,Equal
021b 6817 |h | Jump_Zero 0x233
021c e5fd | | Load 0x2,-0x3
021d 4801 |H | Short_Literal 0x1
021e 4801 |H | Short_Literal 0x1
021f e007 | | Load 0x0,0x7
0220 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0221 035b | [ | Declare_Type Array,Constrained
0222 0337 | 7 | Declare_Variable Array
0223 e5fe | | Load 0x2,-0x2
0224 e007 | | Load 0x0,0x7
0225 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0226 e007 | | Load 0x0,0x7
0227 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0228 0119 | | Execute Any,Check_In_Formal_Type
0229 4801 |H | Short_Literal 0x1
022a 00da | | Load_Top At_Offset_2
022b 01d6 | | Execute Vector,Field_Write
022c 6023 |`# | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125}
022d e001 | | Load 0x0,0x1
022e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
022f e001 | | Load 0x0,0x1
0230 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0231 a5fb | | Store_Unchecked 0x2,-0x5
0232 4505 |E | Exit_Subprogram 0x5
0233 e5fd | | Load 0x2,-0x3
0234 0092 02cb | | Action Push_String_Extended,0x2cb ; "Set_Unit_Options"
0236 e006 | | Load 0x0,0x6
0237 180f | | Execute Package,Field_Execute,Field_Number 0xf
0238 4801 |H | Short_Literal 0x1
0239 4801 |H | Short_Literal 0x1
023a e007 | | Load 0x0,0x7
023b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023c 035b | [ | Declare_Type Array,Constrained
023d 0337 | 7 | Declare_Variable Array
023e e5fe | | Load 0x2,-0x2
023f e007 | | Load 0x0,0x7
0240 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0241 e007 | | Load 0x0,0x7
0242 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0243 0119 | | Execute Any,Check_In_Formal_Type
0244 4801 |H | Short_Literal 0x1
0245 00da | | Load_Top At_Offset_2
0246 01d6 | | Execute Vector,Field_Write
0247 6008 |` | Indirect_Literal Discrete,0x250,{0x00000000, 0x00008125}
0248 e001 | | Load 0x0,0x1
0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024a a5fb | | Store_Unchecked 0x2,-0x5
024b 4505 |E | Exit_Subprogram 0x5
024c 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
0250 0000 0000 | | .LITERAL {0x00000000, 0x00008125}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0264 | d | .CONST 0x0264 ; Address of begin
0259 029b | | .CONST 0x029b ; Address of exception handler
025a 0003 | | .CONST 0x0003 ; Number of locals
025b INIT_0258:
025b e008 | | Load 0x0,0x8
025c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
025d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025e 02c7 | | Declare_Variable Any
025f 00d8 | | Load_Top At_Offset_0
0260 1c00 | | Execute_Immediate Run_Utility,0x0
0261 e001 | | Load 0x0,0x1
0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0263 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0264 BODY_0258:
0264 e001 | | Load 0x0,0x1
0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0266 e5fd | | Load 0x2,-0x3
0267 e5ff | | Load 0x2,-0x1
0268 8004 | | Call 0x0,0x4
0269 0059 | Y | Store_Top Discrete,At_Offset_1
026a 4800 |H | Short_Literal 0x0
026b 00d9 | | Load_Top At_Offset_1
026c e001 | | Load 0x0,0x1
026d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
026e 7003 |p | Jump_Nonzero 0x272
026f 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
0271 4403 |D | Exit_Subprogram With_Result,0x3
0272 e5ff | | Load 0x2,-0x1
0273 0227 | ' | Execute Access,All_Reference
0274 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0275 e5fe | | Load 0x2,-0x2
0276 e009 | | Load 0x0,0x9
0277 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0278 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0279 e008 | | Load 0x0,0x8
027a 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
027b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
027c c402 | | Store 0x2,0x2
027d 00d9 | | Load_Top At_Offset_1
027e e008 | | Load 0x0,0x8
027f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0280 180f | | Execute Package,Field_Execute,Field_Number 0xf
0281 6816 |h | Jump_Zero 0x298
0282 e5fd | | Load 0x2,-0x3
0283 4801 |H | Short_Literal 0x1
0284 4801 |H | Short_Literal 0x1
0285 e007 | | Load 0x0,0x7
0286 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0287 035b | [ | Declare_Type Array,Constrained
0288 0337 | 7 | Declare_Variable Array
0289 e5fe | | Load 0x2,-0x2
028a e007 | | Load 0x0,0x7
028b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028c e007 | | Load 0x0,0x7
028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028e 0119 | | Execute Any,Check_In_Formal_Type
028f 4801 |H | Short_Literal 0x1
0290 00da | | Load_Top At_Offset_2
0291 01d6 | | Execute Vector,Field_Write
0292 67b9 |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000816f}
0293 e001 | | Load 0x0,0x1
0294 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0295 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
0297 4403 |D | Exit_Subprogram With_Result,0x3
0298 00d9 | | Load_Top At_Offset_1
0299 800b | | Call 0x0,0xb
029a 4403 |D | Exit_Subprogram With_Result,0x3
029b TRAP_0258:
029b e001 | | Load 0x0,0x1
029c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
029d 010f | | Execute Exception,Equal
029e 6816 |h | Jump_Zero 0x2b5
029f e5fd | | Load 0x2,-0x3
02a0 4801 |H | Short_Literal 0x1
02a1 4801 |H | Short_Literal 0x1
02a2 e007 | | Load 0x0,0x7
02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a4 035b | [ | Declare_Type Array,Constrained
02a5 0337 | 7 | Declare_Variable Array
02a6 e5fe | | Load 0x2,-0x2
02a7 e007 | | Load 0x0,0x7
02a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02a9 e007 | | Load 0x0,0x7
02aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ab 0119 | | Execute Any,Check_In_Formal_Type
02ac 4801 |H | Short_Literal 0x1
02ad 00da | | Load_Top At_Offset_2
02ae 01d6 | | Execute Vector,Field_Write
02af 6010 |` | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00008114}
02b0 e001 | | Load 0x0,0x1
02b1 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02b2 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "<error>"
02b4 4403 |D | Exit_Subprogram With_Result,0x3
02b5 e5fd | | Load 0x2,-0x3
02b6 0092 02cc | | Action Push_String_Extended,0x2cc ; "Unit_Options"
02b8 e006 | | Load 0x0,0x6
02b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ba 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "<error>;"
02bc 4403 |D | Exit_Subprogram With_Result,0x3
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 0000 0000 | | .LITERAL {0x00000000, 0x00008114}
02c4 ; --------------------------------------------------------------------------------------
02c4 ; STRING TABLE
02c4 ; --------------------------------------------------------------------------------------
02c4 0014 | | .STRTAB 0x0014->0x02ce ; "<DEFAULT>"
; "<DEFAULT>"
; "<DEFAULT>"
02c5 001b | | .STRTAB 0x001b->0x02d2 ; "Set_Command_Names"
02c6 002a | * | .STRTAB 0x002a->0x02db ; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
02c7 002f | / | .STRTAB 0x002f->0x02de ; "Compiler_Command"
02c8 003d | = | .STRTAB 0x003d->0x02e6 ; "<error>;"
; "<error>;"
; "<error>;"
; "<error>;"
02c9 0043 | C | .STRTAB 0x0043->0x02ea ; "Linker_Command"
02ca 004f | O | .STRTAB 0x004f->0x02f1 ; "Loader_Command"
02cb 005b | [ | .STRTAB 0x005b->0x02f8 ; "Set_Unit_Options"
02cc 0069 | i | .STRTAB 0x0069->0x0300 ; "Unit_Options"
02cd 0073 | s | .STREND 0x0073->0x0306
02ce 3c44 4546 |<DEF| .STRTAB_STRINGS
0307 0000 | | .XXX[0x1]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 000d | | .DEBUG4 0x0004,0x000d,0x4ec8,0x0000,0x0001,0x0000
030e 0000 0000 | | .BLANK 0000[0xf2]