|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 02f8 | | .CONST 0x02f8 ; 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 INIT_0040,For_Outer_Call,Visible,Unelaborated
001f c21d | | Store 0x1,0x1d
0020 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0022 c214 | | Store 0x1,0x14
0023 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0025 c215 | | Store 0x1,0x15
0026 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0028 c216 | | Store 0x1,0x16
0029 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
002b c21e | | Store 0x1,0x1e
002c 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
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 00af | | .CONST 0x00af ; 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 00da | | Load_Top At_Offset_2
0053 6801 |h | Jump_Zero 0x55
0054 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0055 e5ff | | Load 0x2,-0x1
0056 0227 | ' | Execute Access,All_Reference
0057 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0058 e002 | | Load 0x0,0x2
0059 1816 | | Execute Package,Field_Execute,Field_Number 0x16
005a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
005b 00d9 | | Load_Top At_Offset_1
005c 0217 | | Execute Heap_Access,All_Reference
005d 00d9 | | Load_Top At_Offset_1
005e 017d | } | Execute Record,Structure_Write
005f 4801 |H | Short_Literal 0x1
0060 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "<DEFAULT>"
0062 e5fe | | Load 0x2,-0x2
0063 e005 | | Load 0x0,0x5
0064 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0065 7010 |p | Jump_Nonzero 0x76
0066 e5fe | | Load 0x2,-0x2
0067 4801 |H | Short_Literal 0x1
0068 e5fe | | Load 0x2,-0x2
0069 01db | | Execute Vector,Length
006a 00d8 | | Load_Top At_Offset_0
006b 00e2 | | Load_Encached Integer_Cache
006c 0260 | ` | Execute Discrete,In_Type
006d 7001 |p | Jump_Nonzero 0x6f
006e 0801 | | Execute_Immediate Raise,0x1
006f 00db | | Load_Top At_Offset_3
0070 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0071 01ce | | Execute Vector,Slice_Write
0072 e5fe | | Load 0x2,-0x2
0073 01db | | Execute Vector,Length
0074 00d9 | | Load_Top At_Offset_1
0075 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0076 4801 |H | Short_Literal 0x1
0077 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "<DEFAULT>"
0079 e5fd | | Load 0x2,-0x3
007a e005 | | Load 0x0,0x5
007b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
007c 7010 |p | Jump_Nonzero 0x8d
007d e5fd | | Load 0x2,-0x3
007e 4801 |H | Short_Literal 0x1
007f e5fd | | Load 0x2,-0x3
0080 01db | | Execute Vector,Length
0081 00d8 | | Load_Top At_Offset_0
0082 00e2 | | Load_Encached Integer_Cache
0083 0260 | ` | Execute Discrete,In_Type
0084 7001 |p | Jump_Nonzero 0x86
0085 0801 | | Execute_Immediate Raise,0x1
0086 00db | | Load_Top At_Offset_3
0087 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0088 01ce | | Execute Vector,Slice_Write
0089 e5fd | | Load 0x2,-0x3
008a 01db | | Execute Vector,Length
008b 00d9 | | Load_Top At_Offset_1
008c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
008d 4801 |H | Short_Literal 0x1
008e 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "<DEFAULT>"
0090 e5fc | | Load 0x2,-0x4
0091 e005 | | Load 0x0,0x5
0092 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0093 7010 |p | Jump_Nonzero 0xa4
0094 e5fc | | Load 0x2,-0x4
0095 4801 |H | Short_Literal 0x1
0096 e5fc | | Load 0x2,-0x4
0097 01db | | Execute Vector,Length
0098 00d8 | | Load_Top At_Offset_0
0099 00e2 | | Load_Encached Integer_Cache
009a 0260 | ` | Execute Discrete,In_Type
009b 7001 |p | Jump_Nonzero 0x9d
009c 0801 | | Execute_Immediate Raise,0x1
009d 00db | | Load_Top At_Offset_3
009e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
009f 01ce | | Execute Vector,Slice_Write
00a0 e5fc | | Load 0x2,-0x4
00a1 01db | | Execute Vector,Length
00a2 00d9 | | Load_Top At_Offset_1
00a3 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00a4 00da | | Load_Top At_Offset_2
00a5 00d9 | | Load_Top At_Offset_1
00a6 e5ff | | Load 0x2,-0x1
00a7 0227 | ' | Execute Access,All_Reference
00a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a9 e002 | | Load 0x0,0x2
00aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ab 005b | [ | Store_Top Discrete,At_Offset_3
00ac 00da | | Load_Top At_Offset_2
00ad a5fa | | Store_Unchecked 0x2,-0x6
00ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00af TRAP_0040:
00af e001 | | Load 0x0,0x1
00b0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b1 010f | | Execute Exception,Equal
00b2 6804 |h | Jump_Zero 0xb7
00b3 e001 | | Load 0x0,0x1
00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b5 a5fa | | Store_Unchecked 0x2,-0x6
00b6 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00b7 e5fb | | Load 0x2,-0x5
00b8 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Set_Command_Names"
00ba e006 | | Load 0x0,0x6
00bb 180f | | Execute Package,Field_Execute,Field_Number 0xf
00bc 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c8 | | .CONST 0x00c8 ; Address of begin
00c1 00e4 | | .CONST 0x00e4 ; 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 00d8 | | Load_Top At_Offset_0
00cf 6803 |h | Jump_Zero 0xd3
00d0 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
00d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d3 e5ff | | Load 0x2,-0x1
00d4 0227 | ' | Execute Access,All_Reference
00d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d6 e002 | | Load 0x0,0x2
00d7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00d9 4801 |H | Short_Literal 0x1
00da 00da | | Load_Top At_Offset_2
00db 0217 | | Execute Heap_Access,All_Reference
00dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00dd 00db | | Load_Top At_Offset_3
00de 0217 | | Execute Heap_Access,All_Reference
00df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e0 01cf | | Execute Vector,Slice_Read
00e1 0335 | 5 | Declare_Variable Array,Duplicate
00e2 00cd | | Action Spare6_Action
00e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e4 TRAP_00c0:
00e4 e001 | | Load 0x0,0x1
00e5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00e6 010f | | Execute Exception,Equal
00e7 6818 |h | Jump_Zero 0x100
00e8 e5fe | | Load 0x2,-0x2
00e9 4801 |H | Short_Literal 0x1
00ea 4801 |H | Short_Literal 0x1
00eb e007 | | Load 0x0,0x7
00ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ed 0334 | 4 | Declare_Variable Array,With_Constraint
00ee e5ff | | Load 0x2,-0x1
00ef 0227 | ' | Execute Access,All_Reference
00f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f1 e008 | | Load 0x0,0x8
00f2 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
00f3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f4 e007 | | Load 0x0,0x7
00f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f6 0119 | | Execute Any,Check_In_Formal_Type
00f7 4801 |H | Short_Literal 0x1
00f8 00da | | Load_Top At_Offset_2
00f9 01d6 | | Execute Vector,Field_Write
00fa 600d |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00008109}
00fb e001 | | Load 0x0,0x1
00fc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00fd 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
00ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0100 e5fe | | Load 0x2,-0x2
0101 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Compiler_Command"
0103 e006 | | Load 0x0,0x6
0104 180f | | Execute Package,Field_Execute,Field_Number 0xf
0105 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "<error>;"
0107 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0108 0000 0000 | | .LITERAL {0x00000000, 0x00008109}
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0134 | 4 | .CONST 0x0134 ; 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 00d8 | | Load_Top At_Offset_0
011f 6803 |h | Jump_Zero 0x123
0120 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
0122 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0123 e5ff | | Load 0x2,-0x1
0124 0227 | ' | Execute Access,All_Reference
0125 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0126 e002 | | Load 0x0,0x2
0127 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0128 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0129 4801 |H | Short_Literal 0x1
012a 00da | | Load_Top At_Offset_2
012b 0217 | | Execute Heap_Access,All_Reference
012c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
012d 00db | | Load_Top At_Offset_3
012e 0217 | | Execute Heap_Access,All_Reference
012f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0130 01cf | | Execute Vector,Slice_Read
0131 0335 | 5 | Declare_Variable Array,Duplicate
0132 00cd | | Action Spare6_Action
0133 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0134 TRAP_0110:
0134 e001 | | Load 0x0,0x1
0135 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0136 010f | | Execute Exception,Equal
0137 6818 |h | Jump_Zero 0x150
0138 e5fe | | Load 0x2,-0x2
0139 4801 |H | Short_Literal 0x1
013a 4801 |H | Short_Literal 0x1
013b e007 | | Load 0x0,0x7
013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013d 0334 | 4 | Declare_Variable Array,With_Constraint
013e e5ff | | Load 0x2,-0x1
013f 0227 | ' | Execute Access,All_Reference
0140 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0141 e008 | | Load 0x0,0x8
0142 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0143 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0144 e007 | | Load 0x0,0x7
0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0146 0119 | | Execute Any,Check_In_Formal_Type
0147 4801 |H | Short_Literal 0x1
0148 00da | | Load_Top At_Offset_2
0149 01d6 | | Execute Vector,Field_Write
014a 600d |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x0000810a}
014b e001 | | Load 0x0,0x1
014c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
014d 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
014f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0150 e5fe | | Load 0x2,-0x2
0151 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Linker_Command"
0153 e006 | | Load 0x0,0x6
0154 180f | | Execute Package,Field_Execute,Field_Number 0xf
0155 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "<error>;"
0157 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0158 0000 0000 | | .LITERAL {0x00000000, 0x0000810a}
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0184 | | .CONST 0x0184 ; 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 00d8 | | Load_Top At_Offset_0
016f 6803 |h | Jump_Zero 0x173
0170 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
0172 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0173 e5ff | | Load 0x2,-0x1
0174 0227 | ' | Execute Access,All_Reference
0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0176 e002 | | Load 0x0,0x2
0177 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0178 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0179 4801 |H | Short_Literal 0x1
017a 00da | | Load_Top At_Offset_2
017b 0217 | | Execute Heap_Access,All_Reference
017c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
017d 00db | | Load_Top At_Offset_3
017e 0217 | | Execute Heap_Access,All_Reference
017f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0180 01cf | | Execute Vector,Slice_Read
0181 0335 | 5 | Declare_Variable Array,Duplicate
0182 00cd | | Action Spare6_Action
0183 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0184 TRAP_0160:
0184 e001 | | Load 0x0,0x1
0185 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0186 010f | | Execute Exception,Equal
0187 6818 |h | Jump_Zero 0x1a0
0188 e5fe | | Load 0x2,-0x2
0189 4801 |H | Short_Literal 0x1
018a 4801 |H | Short_Literal 0x1
018b e007 | | Load 0x0,0x7
018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018d 0334 | 4 | Declare_Variable Array,With_Constraint
018e e5ff | | Load 0x2,-0x1
018f 0227 | ' | Execute Access,All_Reference
0190 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0191 e008 | | Load 0x0,0x8
0192 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0193 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0194 e007 | | Load 0x0,0x7
0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0196 0119 | | Execute Any,Check_In_Formal_Type
0197 4801 |H | Short_Literal 0x1
0198 00da | | Load_Top At_Offset_2
0199 01d6 | | Execute Vector,Field_Write
019a 600d |` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0000810b}
019b e001 | | Load 0x0,0x1
019c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
019d 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
019f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a0 e5fe | | Load 0x2,-0x2
01a1 0092 02ba | | Action Push_String_Extended,0x2ba ; "Loader_Command"
01a3 e006 | | Load 0x0,0x6
01a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a5 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "<error>;"
01a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a8 0000 0000 | | .LITERAL {0x00000000, 0x0000810b}
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bc | | .CONST 0x01bc ; Address of begin
01b1 0212 | | .CONST 0x0212 ; 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 00d8 | | Load_Top At_Offset_0
01c3 6813 |h | Jump_Zero 0x1d7
01c4 4801 |H | Short_Literal 0x1
01c5 4801 |H | Short_Literal 0x1
01c6 e007 | | Load 0x0,0x7
01c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c8 0334 | 4 | Declare_Variable Array,With_Constraint
01c9 e5fe | | Load 0x2,-0x2
01ca e007 | | Load 0x0,0x7
01cb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01cc e007 | | Load 0x0,0x7
01cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ce 0119 | | Execute Any,Check_In_Formal_Type
01cf 4801 |H | Short_Literal 0x1
01d0 00da | | Load_Top At_Offset_2
01d1 01d6 | | Execute Vector,Field_Write
01d2 6075 |`u | Indirect_Literal Discrete,0x248,{0x00000000, 0x00008125}
01d3 e001 | | Load 0x0,0x1
01d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d5 a5fb | | Store_Unchecked 0x2,-0x5
01d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01d7 e5ff | | Load 0x2,-0x1
01d8 0227 | ' | Execute Access,All_Reference
01d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01da e5fe | | Load 0x2,-0x2
01db e009 | | Load 0x0,0x9
01dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01dd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01de e008 | | Load 0x0,0x8
01df 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
01e0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01e1 c402 | | Store 0x2,0x2
01e2 00d9 | | Load_Top At_Offset_1
01e3 e008 | | Load 0x0,0x8
01e4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e6 6825 |h% | Jump_Zero 0x20c
01e7 e5fd | | Load 0x2,-0x3
01e8 4801 |H | Short_Literal 0x1
01e9 4801 |H | Short_Literal 0x1
01ea e007 | | Load 0x0,0x7
01eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ec 0334 | 4 | Declare_Variable Array,With_Constraint
01ed e5fe | | Load 0x2,-0x2
01ee e007 | | Load 0x0,0x7
01ef 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f0 e007 | | Load 0x0,0x7
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 0119 | | Execute Any,Check_In_Formal_Type
01f3 4801 |H | Short_Literal 0x1
01f4 00da | | Load_Top At_Offset_2
01f5 01d6 | | Execute Vector,Field_Write
01f6 604d |`M | Indirect_Literal Discrete,0x244,{0x00000000, 0x0000816f}
01f7 e001 | | Load 0x0,0x1
01f8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01f9 4801 |H | Short_Literal 0x1
01fa 4801 |H | Short_Literal 0x1
01fb e007 | | Load 0x0,0x7
01fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fd 0334 | 4 | Declare_Variable Array,With_Constraint
01fe e5fe | | Load 0x2,-0x2
01ff e007 | | Load 0x0,0x7
0200 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0201 e007 | | Load 0x0,0x7
0202 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0203 0119 | | Execute Any,Check_In_Formal_Type
0204 4801 |H | Short_Literal 0x1
0205 00da | | Load_Top At_Offset_2
0206 01d6 | | Execute Vector,Field_Write
0207 6040 |`@ | Indirect_Literal Discrete,0x248,{0x00000000, 0x00008125}
0208 e001 | | Load 0x0,0x1
0209 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020a a5fb | | Store_Unchecked 0x2,-0x5
020b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
020c e5fc | | Load 0x2,-0x4
020d 00da | | Load_Top At_Offset_2
020e 800a | | Call 0x0,0xa
020f 00d8 | | Load_Top At_Offset_0
0210 a5fb | | Store_Unchecked 0x2,-0x5
0211 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0212 TRAP_01b0:
0212 e001 | | Load 0x0,0x1
0213 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0214 010f | | Execute Exception,Equal
0215 6816 |h | Jump_Zero 0x22c
0216 e5fd | | Load 0x2,-0x3
0217 4801 |H | Short_Literal 0x1
0218 4801 |H | Short_Literal 0x1
0219 e007 | | Load 0x0,0x7
021a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021b 0334 | 4 | Declare_Variable Array,With_Constraint
021c e5fe | | Load 0x2,-0x2
021d e007 | | Load 0x0,0x7
021e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
021f e007 | | Load 0x0,0x7
0220 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0221 0119 | | Execute Any,Check_In_Formal_Type
0222 4801 |H | Short_Literal 0x1
0223 00da | | Load_Top At_Offset_2
0224 01d6 | | Execute Vector,Field_Write
0225 6022 |`" | Indirect_Literal Discrete,0x248,{0x00000000, 0x00008125}
0226 e001 | | Load 0x0,0x1
0227 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0228 e001 | | Load 0x0,0x1
0229 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022a a5fb | | Store_Unchecked 0x2,-0x5
022b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
022c e5fd | | Load 0x2,-0x3
022d 0092 02bb | | Action Push_String_Extended,0x2bb ; "Set_Unit_Options"
022f e006 | | Load 0x0,0x6
0230 180f | | Execute Package,Field_Execute,Field_Number 0xf
0231 4801 |H | Short_Literal 0x1
0232 4801 |H | Short_Literal 0x1
0233 e007 | | Load 0x0,0x7
0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0235 0334 | 4 | Declare_Variable Array,With_Constraint
0236 e5fe | | Load 0x2,-0x2
0237 e007 | | Load 0x0,0x7
0238 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0239 e007 | | Load 0x0,0x7
023a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023b 0119 | | Execute Any,Check_In_Formal_Type
023c 4801 |H | Short_Literal 0x1
023d 00da | | Load_Top At_Offset_2
023e 01d6 | | Execute Vector,Field_Write
023f 6008 |` | Indirect_Literal Discrete,0x248,{0x00000000, 0x00008125}
0240 e001 | | Load 0x0,0x1
0241 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0242 a5fb | | Store_Unchecked 0x2,-0x5
0243 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0244 0000 0000 | | .LITERAL {0x00000000, 0x0000816f}
0248 0000 0000 | | .LITERAL {0x00000000, 0x00008125}
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025c | \ | .CONST 0x025c ; Address of begin
0251 028f | | .CONST 0x028f ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 e008 | | Load 0x0,0x8
0254 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0255 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0256 02c7 | | Declare_Variable Any
0257 00d8 | | Load_Top At_Offset_0
0258 1c00 | | Execute_Immediate Run_Utility,0x0
0259 e001 | | Load 0x0,0x1
025a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
025c BODY_0250:
025c e001 | | Load 0x0,0x1
025d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025e e5fd | | Load 0x2,-0x3
025f e5ff | | Load 0x2,-0x1
0260 8004 | | Call 0x0,0x4
0261 0059 | Y | Store_Top Discrete,At_Offset_1
0262 00d8 | | Load_Top At_Offset_0
0263 6803 |h | Jump_Zero 0x267
0264 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
0266 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0267 e5ff | | Load 0x2,-0x1
0268 0227 | ' | Execute Access,All_Reference
0269 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026a e5fe | | Load 0x2,-0x2
026b e009 | | Load 0x0,0x9
026c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
026e e008 | | Load 0x0,0x8
026f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0270 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0271 c402 | | Store 0x2,0x2
0272 00d9 | | Load_Top At_Offset_1
0273 e008 | | Load 0x0,0x8
0274 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0275 180f | | Execute Package,Field_Execute,Field_Number 0xf
0276 6815 |h | Jump_Zero 0x28c
0277 e5fd | | Load 0x2,-0x3
0278 4801 |H | Short_Literal 0x1
0279 4801 |H | Short_Literal 0x1
027a e007 | | Load 0x0,0x7
027b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
027c 0334 | 4 | Declare_Variable Array,With_Constraint
027d e5fe | | Load 0x2,-0x2
027e e007 | | Load 0x0,0x7
027f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0280 e007 | | Load 0x0,0x7
0281 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0282 0119 | | Execute Any,Check_In_Formal_Type
0283 4801 |H | Short_Literal 0x1
0284 00da | | Load_Top At_Offset_2
0285 01d6 | | Execute Vector,Field_Write
0286 67bd |g | Indirect_Literal Discrete,0x244,{0x00000000, 0x0000816f}
0287 e001 | | Load 0x0,0x1
0288 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0289 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
028b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
028c 00d9 | | Load_Top At_Offset_1
028d 800b | | Call 0x0,0xb
028e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
028f TRAP_0250:
028f e001 | | Load 0x0,0x1
0290 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0291 010f | | Execute Exception,Equal
0292 6815 |h | Jump_Zero 0x2a8
0293 e5fd | | Load 0x2,-0x3
0294 4801 |H | Short_Literal 0x1
0295 4801 |H | Short_Literal 0x1
0296 e007 | | Load 0x0,0x7
0297 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0298 0334 | 4 | Declare_Variable Array,With_Constraint
0299 e5fe | | Load 0x2,-0x2
029a e007 | | Load 0x0,0x7
029b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
029c e007 | | Load 0x0,0x7
029d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029e 0119 | | Execute Any,Check_In_Formal_Type
029f 4801 |H | Short_Literal 0x1
02a0 00da | | Load_Top At_Offset_2
02a1 01d6 | | Execute Vector,Field_Write
02a2 600d |` | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x00008114}
02a3 e001 | | Load 0x0,0x1
02a4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02a5 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "<error>"
02a7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02a8 e5fd | | Load 0x2,-0x3
02a9 0092 02bc | | Action Push_String_Extended,0x2bc ; "Unit_Options"
02ab e006 | | Load 0x0,0x6
02ac 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ad 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "<error>;"
02af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b0 0000 0000 | | .LITERAL {0x00000000, 0x00008114}
02b4 ; --------------------------------------------------------------------------------------
02b4 ; STRING TABLE
02b4 ; --------------------------------------------------------------------------------------
02b4 0014 | | .STRTAB 0x0014->0x02be ; "<DEFAULT>"
02b5 001b | | .STRTAB 0x001b->0x02c2 ; "Set_Command_Names"
02b6 002a | * | .STRTAB 0x002a->0x02cb ; "<error>"
02b7 002f | / | .STRTAB 0x002f->0x02ce ; "Compiler_Command"
02b8 003d | = | .STRTAB 0x003d->0x02d6 ; "<error>;"
02b9 0043 | C | .STRTAB 0x0043->0x02da ; "Linker_Command"
02ba 004f | O | .STRTAB 0x004f->0x02e1 ; "Loader_Command"
02bb 005b | [ | .STRTAB 0x005b->0x02e8 ; "Set_Unit_Options"
02bc 0069 | i | .STRTAB 0x0069->0x02f0 ; "Unit_Options"
02bd 0073 | s | .STREND 0x0073->0x02f6
02be 3c44 4546 |<DEF| .STRTAB_STRINGS
02f7 0000 | | .XXX[0x1]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dfd,0x0000,0x0001,0x0000
02fe 0000 0000 | | .BLANK 0000[0x102]