|
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_ccb0b3
└─⟦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 0318 | | .CONST 0x0318 ; 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 02d8 | | Action Push_String_Extended,0x2d8 ; "<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 02d8 | | Action Push_String_Extended,0x2d8 ; "<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 02d8 | | Action Push_String_Extended,0x2d8 ; "<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 02d9 | | Action Push_String_Extended,0x2d9 ; "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 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<error>"
0103 4402 |D | Exit_Subprogram With_Result,0x2
0104 e5fe | | Load 0x2,-0x2
0105 0092 02db | | Action Push_String_Extended,0x2db ; "Compiler_Command"
0107 e006 | | Load 0x0,0x6
0108 180f | | Execute Package,Field_Execute,Field_Number 0xf
0109 0092 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<error>"
0153 4402 |D | Exit_Subprogram With_Result,0x2
0154 e5fe | | Load 0x2,-0x2
0155 0092 02dc | | Action Push_String_Extended,0x2dc ; "Linker_Command"
0157 e006 | | Load 0x0,0x6
0158 180f | | Execute Package,Field_Execute,Field_Number 0xf
0159 0092 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<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 02da | | Action Push_String_Extended,0x2da ; "<error>"
01a3 4402 |D | Exit_Subprogram With_Result,0x2
01a4 e5fe | | Load 0x2,-0x2
01a5 0092 02dd | | Action Push_String_Extended,0x2dd ; "Loader_Command"
01a7 e006 | | Load 0x0,0x6
01a8 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a9 0092 02da | | Action Push_String_Extended,0x2da ; "<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 02de | | Action Push_String_Extended,0x2de ; "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 026a | j | .CONST 0x026a ; Address of begin
0259 02b2 | | .CONST 0x02b2 ; Address of exception handler
025a 0005 | | .CONST 0x0005 ; Number of locals
025b INIT_0258:
025b e009 | | Load 0x0,0x9
025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 00e1 | | Load_Encached Boolean_Cache
0261 e008 | | Load 0x0,0x8
0262 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0263 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0264 02c7 | | Declare_Variable Any
0265 00d8 | | Load_Top At_Offset_0
0266 1c00 | | Execute_Immediate Run_Utility,0x0
0267 e001 | | Load 0x0,0x1
0268 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0269 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
026a BODY_0258:
026a e001 | | Load 0x0,0x1
026b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026c e5fd | | Load 0x2,-0x3
026d e5ff | | Load 0x2,-0x1
026e 8004 | | Call 0x0,0x4
026f 0059 | Y | Store_Top Discrete,At_Offset_1
0270 4800 |H | Short_Literal 0x0
0271 00d9 | | Load_Top At_Offset_1
0272 e001 | | Load 0x0,0x1
0273 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0274 7003 |p | Jump_Nonzero 0x278
0275 0092 02da | | Action Push_String_Extended,0x2da ; "<error>"
0277 4403 |D | Exit_Subprogram With_Result,0x3
0278 e5ff | | Load 0x2,-0x1
0279 0227 | ' | Execute Access,All_Reference
027a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027b e5fe | | Load 0x2,-0x2
027c e009 | | Load 0x0,0x9
027d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
027f e008 | | Load 0x0,0x8
0280 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0281 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0282 c404 | | Store 0x2,0x4
0283 00e1 | | Load_Encached Boolean_Cache
0284 e402 | | Load 0x2,0x2
0285 0120 | | Execute Any,Is_Value
0286 6803 |h | Jump_Zero 0x28a
0287 e009 | | Load 0x0,0x9
0288 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0289 7801 |x | Jump 0x28b
028a e402 | | Load 0x2,0x2
028b e5fd | | Load 0x2,-0x3
028c e5fe | | Load 0x2,-0x2
028d e00b | | Load 0x0,0xb
028e 1887 | | Execute Package,Field_Execute,Field_Number 0x87
028f c402 | | Store 0x2,0x2
0290 005b | [ | Store_Top Discrete,At_Offset_3
0291 00d9 | | Load_Top At_Offset_1
0292 e008 | | Load 0x0,0x8
0293 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0294 180f | | Execute Package,Field_Execute,Field_Number 0xf
0295 00db | | Load_Top At_Offset_3
0296 0f00 | | Execute_Immediate Equal,0x0
0297 0279 | y | Execute Discrete,And
0298 6816 |h | Jump_Zero 0x2af
0299 e5fd | | Load 0x2,-0x3
029a 4801 |H | Short_Literal 0x1
029b 4801 |H | Short_Literal 0x1
029c e007 | | Load 0x0,0x7
029d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029e 035b | [ | Declare_Type Array,Constrained
029f 0337 | 7 | Declare_Variable Array
02a0 e5fe | | Load 0x2,-0x2
02a1 e007 | | Load 0x0,0x7
02a2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02a3 e007 | | Load 0x0,0x7
02a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a5 0119 | | Execute Any,Check_In_Formal_Type
02a6 4801 |H | Short_Literal 0x1
02a7 00da | | Load_Top At_Offset_2
02a8 01d6 | | Execute Vector,Field_Write
02a9 67a2 |g | Indirect_Literal Discrete,0x24c,{0x00000000, 0x0000816f}
02aa e001 | | Load 0x0,0x1
02ab 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02ac 0092 02da | | Action Push_String_Extended,0x2da ; "<error>"
02ae 4403 |D | Exit_Subprogram With_Result,0x3
02af 00d9 | | Load_Top At_Offset_1
02b0 800c | | Call 0x0,0xc
02b1 4403 |D | Exit_Subprogram With_Result,0x3
02b2 TRAP_0258:
02b2 e001 | | Load 0x0,0x1
02b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02b4 010f | | Execute Exception,Equal
02b5 6816 |h | Jump_Zero 0x2cc
02b6 e5fd | | Load 0x2,-0x3
02b7 4801 |H | Short_Literal 0x1
02b8 4801 |H | Short_Literal 0x1
02b9 e007 | | Load 0x0,0x7
02ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02bb 035b | [ | Declare_Type Array,Constrained
02bc 0337 | 7 | Declare_Variable Array
02bd e5fe | | Load 0x2,-0x2
02be e007 | | Load 0x0,0x7
02bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c0 e007 | | Load 0x0,0x7
02c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c2 0119 | | Execute Any,Check_In_Formal_Type
02c3 4801 |H | Short_Literal 0x1
02c4 00da | | Load_Top At_Offset_2
02c5 01d6 | | Execute Vector,Field_Write
02c6 600d |` | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x00008114}
02c7 e001 | | Load 0x0,0x1
02c8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02c9 0092 02da | | Action Push_String_Extended,0x2da ; "<error>"
02cb 4403 |D | Exit_Subprogram With_Result,0x3
02cc e5fd | | Load 0x2,-0x3
02cd 0092 02df | | Action Push_String_Extended,0x2df ; "Unit_Options"
02cf e006 | | Load 0x0,0x6
02d0 180f | | Execute Package,Field_Execute,Field_Number 0xf
02d1 0092 02da | | Action Push_String_Extended,0x2da ; "<error>"
02d3 4403 |D | Exit_Subprogram With_Result,0x3
02d4 0000 0000 | | .LITERAL {0x00000000, 0x00008114}
02d8 ; --------------------------------------------------------------------------------------
02d8 ; STRING TABLE
02d8 ; --------------------------------------------------------------------------------------
02d8 0012 | | .STRTAB 0x0012->0x02e1 ; "<DEFAULT>"
; "<DEFAULT>"
; "<DEFAULT>"
02d9 0019 | | .STRTAB 0x0019->0x02e5 ; "Set_Command_Names"
02da 0028 | ( | .STRTAB 0x0028->0x02ee ; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
; "<error>"
02db 002d | - | .STRTAB 0x002d->0x02f1 ; "Compiler_Command"
02dc 003b | ; | .STRTAB 0x003b->0x02f9 ; "Linker_Command"
02dd 0047 | G | .STRTAB 0x0047->0x0300 ; "Loader_Command"
02de 0053 | S | .STRTAB 0x0053->0x0307 ; "Set_Unit_Options"
02df 0061 | a | .STRTAB 0x0061->0x030f ; "Unit_Options"
02e0 006b | k | .STREND 0x006b->0x0315
02e1 3c44 4546 |<DEF| .STRTAB_STRINGS
0316 0000 0000 | | .XXX[0x2]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ef2,0x0000,0x0001,0x0000
031e 0000 0000 | | .BLANK 0000[0x4]
0322 3000 189f |0 | .XXX[0xc6]
0324 0000 0000 | |
0326 0009 2860 | (`|
0328 09d4 0404 | |
032a 0800 0a80 | |
032c 8000 0000 | |
032e 0000 0000 | |
0330 09d3 ac04 | |
0332 0000 1744 | D|
0334 00b0 64fe | d |
0336 0000 2726 | '&|
0338 001d c404 | |
033a 0800 1238 | 8|
033c 30bc b50b |0 |
033e 0040 b468 | @ h|
0340 0032 5404 | 2T |
0342 0000 0144 | D|
0344 00b0 64fe | d |
0346 0009 1650 | P|
0348 00b0 64fe | d |
034a 0000 007f | |
034c 0059 c40e | Y |
034e 0000 3f22 | ?"|
0350 00b0 64fe | d |
0352 0000 18bf | |
0354 0009 6196 | a |
0356 0009 278f | ' |
0358 0032 5404 | 2T |
035a 0000 0144 | D|
035c 00b0 64fe | d |
035e 0009 1650 | P|
0360 0032 5404 | 2T |
0362 0000 007f | |
0364 0059 c40e | Y |
0366 0000 cb62 | b|
0368 0032 5404 | 2T |
036a 0000 18bf | |
036c 0009 c097 | |
036e 0009 278f | ' |
0370 0032 5404 | 2T |
0372 0000 0f4c | L|
0374 25a0 0d0a |% |
0376 0002 7f88 | |
0378 84ec 5c01 | \ |
037a 1831 0000 | 1 |
037c 0000 4381 | C |
037e c021 0f88 | ! |
0380 0000 0000 | |
0382 8bc2 c222 | "|
0384 8011 70c0 | p |
0386 0000 0001 | |
0388 17fc 9704 | |
038a 0022 e180 | " |
038c 08ca 6002 | ` |
038e 2040 01c3 | @ |
0390 57fc 0700 |W |
0392 843e 0000 | > |
0394 0008 1081 | |
0396 2000 0000 | |
0398 008c 87c0 | |
039a 11d9 9004 | |
039c 5c32 074e |\2 N|
039e 008e e700 | |
03a0 0000 0008 | |
03a2 d798 0236 | 6|
03a4 a53b 1700 | ; |
03a6 46bc c000 |F |
03a8 0000 1100 | |
03aa 7008 57ce |p W |
03ac 0000 0000 | |
03ae 2348 f088 |#H |
03b0 a004 6738 | g8|
03b2 0000 0000 | |
03b4 46af a662 |F b|
03b6 4008 ce70 |@ p|
03b8 023a 9800 | : |
03ba 8dfb 0023 | #|
03bc 8da0 2006 | |
03be ac60 0276 | ` v|
03c0 2e00 8da9 |. |
03c2 0000 0000 | |
03c4 1a00 4006 | @ |
03c6 a62c e858 | , X|
03c8 011b 5200 | R |
03ca 0000 002c | ,|
03cc 8080 0ecb | |
03ce 8010 0356 | V|
03d0 3000 0700 |0 |
03d2 857c c000 | | |
03d4 0008 1081 | |
03d6 2000 0000 | |
03d8 008e 87c0 | |
03da 0000 0004 | |
03dc 673a 0e02 |g: |
03de 0080 8a00 | |
03e0 23d1 a008 |# |
03e2 26f8 1c02 |& |
03e4 1a2f 0000 | / |
03e6 0000 003b | ;|
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 004a 280e | J( | .XXX[0x14]
03ee 0000 8006 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 004a 280e | J( |
03f6 0000 9a70 | p|
03f8 fffe 0025 | %|
03fa 5000 0001 |P |
03fc 0000 0000 | |
03fe 0000 0005 | |