|
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 02b0 | | .CONST 0x02b0 ; 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 0042 | B | .CONST 0x0042 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; 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 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00e3 | | Load_Encached Natural_Cache
0020 e001 | | Load 0x0,0x1
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 00e9 | | Load_Encached String_Cache
0023 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0025 4800 |H | Short_Literal 0x0
0026 4801 |H | Short_Literal 0x1
0027 4801 |H | Short_Literal 0x1
0028 4800 |H | Short_Literal 0x0
0029 4801 |H | Short_Literal 0x1
002a 4801 |H | Short_Literal 0x1
002b 031e | | Declare_Type Variant_Record,Defined,Visible
002c c219 | | Store 0x1,0x19
002d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
002f c21d | | Store 0x1,0x1d
0030 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0032 c21e | | Store 0x1,0x1e
0033 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0035 c21f | | Store 0x1,0x1f
0036 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0038 c220 | | Store 0x1,0x20
0039 00bf | | Action Accept_Activation
003a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
003b 00c7 | | Action Elaborate_Subprogram
003c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
003d 00c7 | | Action Elaborate_Subprogram
003e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
003f 00c7 | | Action Elaborate_Subprogram
0040 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0041 00c7 | | Action Elaborate_Subprogram
0042 BODY_0008:
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0058 | X | .CONST 0x0058 ; Address of begin
0049 0061 | a | .CONST 0x0061 ; Address of exception handler
004a 0004 | | .CONST 0x0004 ; Number of locals
004b INIT_0048:
004b e002 | | Load 0x0,0x2
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d e001 | | Load 0x0,0x1
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0050 e003 | | Load 0x0,0x3
0051 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0052 0322 | " | Declare_Variable Record
0053 e5fe | | Load 0x2,-0x2
0054 e003 | | Load 0x0,0x3
0055 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0056 00d9 | | Load_Top At_Offset_1
0057 017d | } | Execute Record,Structure_Write
0058 BODY_0048:
0058 4800 |H | Short_Literal 0x0
0059 a5f9 | | Store_Unchecked 0x2,-0x7
005a e001 | | Load 0x0,0x1
005b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005c e5fa | | Load 0x2,-0x6
005d e002 | | Load 0x0,0x2
005e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
005f 005a | Z | Store_Top Discrete,At_Offset_2
0060 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0061 TRAP_0048:
0061 e001 | | Load 0x0,0x1
0062 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0063 010f | | Execute Exception,Equal
0064 6810 |h | Jump_Zero 0x75
0065 e001 | | Load 0x0,0x1
0066 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0067 a5f9 | | Store_Unchecked 0x2,-0x7
0068 00db | | Load_Top At_Offset_3
0069 e002 | | Load 0x0,0x2
006a 180f | | Execute Package,Field_Execute,Field_Number 0xf
006b 7008 |p | Jump_Nonzero 0x74
006c e001 | | Load 0x0,0x1
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e e402 | | Load 0x2,0x2
006f e5fa | | Load 0x2,-0x6
0070 e002 | | Load 0x0,0x2
0071 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0072 c402 | | Store 0x2,0x2
0073 005b | [ | Store_Top Discrete,At_Offset_3
0074 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0075 0092 0281 | | Action Push_String_Extended,0x281 ; "Set_Command_Names"
0077 e004 | | Load 0x0,0x4
0078 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0079 a5f9 | | Store_Unchecked 0x2,-0x7
007a 00db | | Load_Top At_Offset_3
007b e002 | | Load 0x0,0x2
007c 180f | | Execute Package,Field_Execute,Field_Number 0xf
007d 7008 |p | Jump_Nonzero 0x86
007e e001 | | Load 0x0,0x1
007f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0080 e402 | | Load 0x2,0x2
0081 e5fa | | Load 0x2,-0x6
0082 e002 | | Load 0x0,0x2
0083 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0084 c402 | | Store 0x2,0x2
0085 005b | [ | Store_Top Discrete,At_Offset_3
0086 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0087 0000 | | .XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009d | | .CONST 0x009d ; Address of begin
0089 00c5 | | .CONST 0x00c5 ; Address of exception handler
008a 0006 | | .CONST 0x0006 ; Number of locals
008b INIT_0088:
008b e002 | | Load 0x0,0x2
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d e001 | | Load 0x0,0x1
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0090 4800 |H | Short_Literal 0x0
0091 e219 | | Load 0x1,0x19
0092 1c08 | | Execute_Immediate Run_Utility,0x8
0093 e003 | | Load 0x0,0x3
0094 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0095 0322 | " | Declare_Variable Record
0096 e5fe | | Load 0x2,-0x2
0097 e003 | | Load 0x0,0x3
0098 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0099 00d9 | | Load_Top At_Offset_1
009a 017d | } | Execute Record,Structure_Write
009b 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
009d BODY_0088:
009d e5fd | | Load 0x2,-0x3
009e 0092 0282 | | Action Push_String_Extended,0x282 ; "Compiler_Command"
00a0 e004 | | Load 0x0,0x4
00a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a2 e001 | | Load 0x0,0x1
00a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a4 e002 | | Load 0x0,0x2
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 e5fd | | Load 0x2,-0x3
00a7 4801 |H | Short_Literal 0x1
00a8 4801 |H | Short_Literal 0x1
00a9 4800 |H | Short_Literal 0x0
00aa e405 | | Load 0x2,0x5
00ab e5ff | | Load 0x2,-0x1
00ac e002 | | Load 0x0,0x2
00ad 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00ae c402 | | Store 0x2,0x2
00af c403 | | Store 0x2,0x3
00b0 00db | | Load_Top At_Offset_3
00b1 700e |p | Jump_Nonzero 0xc0
00b2 e402 | | Load 0x2,0x2
00b3 e002 | | Load 0x0,0x2
00b4 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b5 6809 |h | Jump_Zero 0xbf
00b6 e005 | | Load 0x0,0x5
00b7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00b8 6037 |`7 | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00008147}
00b9 e001 | | Load 0x0,0x1
00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bb 00db | | Load_Top At_Offset_3
00bc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00bd 00da | | Load_Top At_Offset_2
00be 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00bf 8406 | | Call 0x2,0x6
00c0 00db | | Load_Top At_Offset_3
00c1 00db | | Load_Top At_Offset_3
00c2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00c3 00da | | Load_Top At_Offset_2
00c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00c5 TRAP_0088:
00c5 e001 | | Load 0x0,0x1
00c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c7 010f | | Execute Exception,Equal
00c8 6812 |h | Jump_Zero 0xdb
00c9 e001 | | Load 0x0,0x1
00ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cb e404 | | Load 0x2,0x4
00cc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cd e402 | | Load 0x2,0x2
00ce e002 | | Load 0x0,0x2
00cf 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d0 7008 |p | Jump_Nonzero 0xd9
00d1 e001 | | Load 0x0,0x1
00d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d3 e402 | | Load 0x2,0x2
00d4 e5fd | | Load 0x2,-0x3
00d5 e002 | | Load 0x0,0x2
00d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d7 c402 | | Store 0x2,0x2
00d8 c403 | | Store 0x2,0x3
00d9 00db | | Load_Top At_Offset_3
00da 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00db 0092 0282 | | Action Push_String_Extended,0x282 ; "Compiler_Command"
00dd e004 | | Load 0x0,0x4
00de 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00df e404 | | Load 0x2,0x4
00e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e1 e402 | | Load 0x2,0x2
00e2 e002 | | Load 0x0,0x2
00e3 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e4 7008 |p | Jump_Nonzero 0xed
00e5 e001 | | Load 0x0,0x1
00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e7 e402 | | Load 0x2,0x2
00e8 e5fd | | Load 0x2,-0x3
00e9 e002 | | Load 0x0,0x2
00ea 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00eb c402 | | Store 0x2,0x2
00ec c403 | | Store 0x2,0x3
00ed 00db | | Load_Top At_Offset_3
00ee 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00ef 0000 | | .XXX[0x1]
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 010d | | .CONST 0x010d ; Address of begin
00f9 0135 | 5 | .CONST 0x0135 ; Address of exception handler
00fa 0006 | | .CONST 0x0006 ; Number of locals
00fb INIT_00f8:
00fb e002 | | Load 0x0,0x2
00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fd e001 | | Load 0x0,0x1
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0100 4800 |H | Short_Literal 0x0
0101 e219 | | Load 0x1,0x19
0102 1c08 | | Execute_Immediate Run_Utility,0x8
0103 e003 | | Load 0x0,0x3
0104 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0105 0322 | " | Declare_Variable Record
0106 e5fe | | Load 0x2,-0x2
0107 e003 | | Load 0x0,0x3
0108 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0109 00d9 | | Load_Top At_Offset_1
010a 017d | } | Execute Record,Structure_Write
010b 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
010d BODY_00f8:
010d e5fd | | Load 0x2,-0x3
010e 0092 0283 | | Action Push_String_Extended,0x283 ; "Linker_Command"
0110 e004 | | Load 0x0,0x4
0111 180e | | Execute Package,Field_Execute,Field_Number 0xe
0112 e001 | | Load 0x0,0x1
0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0114 e002 | | Load 0x0,0x2
0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0116 e5fd | | Load 0x2,-0x3
0117 4801 |H | Short_Literal 0x1
0118 4801 |H | Short_Literal 0x1
0119 4800 |H | Short_Literal 0x0
011a e405 | | Load 0x2,0x5
011b e5ff | | Load 0x2,-0x1
011c e002 | | Load 0x0,0x2
011d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
011e c402 | | Store 0x2,0x2
011f c403 | | Store 0x2,0x3
0120 00db | | Load_Top At_Offset_3
0121 700e |p | Jump_Nonzero 0x130
0122 e402 | | Load 0x2,0x2
0123 e002 | | Load 0x0,0x2
0124 180f | | Execute Package,Field_Execute,Field_Number 0xf
0125 6809 |h | Jump_Zero 0x12f
0126 e005 | | Load 0x0,0x5
0127 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0128 67c7 |g | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00008147}
0129 e001 | | Load 0x0,0x1
012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012b 00db | | Load_Top At_Offset_3
012c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
012d 00da | | Load_Top At_Offset_2
012e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
012f 8406 | | Call 0x2,0x6
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0133 00da | | Load_Top At_Offset_2
0134 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0135 TRAP_00f8:
0135 e001 | | Load 0x0,0x1
0136 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0137 010f | | Execute Exception,Equal
0138 6812 |h | Jump_Zero 0x14b
0139 e001 | | Load 0x0,0x1
013a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013b e404 | | Load 0x2,0x4
013c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
013d e402 | | Load 0x2,0x2
013e e002 | | Load 0x0,0x2
013f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0140 7008 |p | Jump_Nonzero 0x149
0141 e001 | | Load 0x0,0x1
0142 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0143 e402 | | Load 0x2,0x2
0144 e5fd | | Load 0x2,-0x3
0145 e002 | | Load 0x0,0x2
0146 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0147 c402 | | Store 0x2,0x2
0148 c403 | | Store 0x2,0x3
0149 00db | | Load_Top At_Offset_3
014a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
014b 0092 0283 | | Action Push_String_Extended,0x283 ; "Linker_Command"
014d e004 | | Load 0x0,0x4
014e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014f e404 | | Load 0x2,0x4
0150 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0151 e402 | | Load 0x2,0x2
0152 e002 | | Load 0x0,0x2
0153 180f | | Execute Package,Field_Execute,Field_Number 0xf
0154 7008 |p | Jump_Nonzero 0x15d
0155 e001 | | Load 0x0,0x1
0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0157 e402 | | Load 0x2,0x2
0158 e5fd | | Load 0x2,-0x3
0159 e002 | | Load 0x0,0x2
015a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015b c402 | | Store 0x2,0x2
015c c403 | | Store 0x2,0x3
015d 00db | | Load_Top At_Offset_3
015e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0175 | u | .CONST 0x0175 ; Address of begin
0161 019d | | .CONST 0x019d ; Address of exception handler
0162 0006 | | .CONST 0x0006 ; Number of locals
0163 INIT_0160:
0163 e002 | | Load 0x0,0x2
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 e001 | | Load 0x0,0x1
0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0167 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0168 4800 |H | Short_Literal 0x0
0169 e219 | | Load 0x1,0x19
016a 1c08 | | Execute_Immediate Run_Utility,0x8
016b e003 | | Load 0x0,0x3
016c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
016d 0322 | " | Declare_Variable Record
016e e5fe | | Load 0x2,-0x2
016f e003 | | Load 0x0,0x3
0170 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0171 00d9 | | Load_Top At_Offset_1
0172 017d | } | Execute Record,Structure_Write
0173 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0175 BODY_0160:
0175 e5fd | | Load 0x2,-0x3
0176 0092 0284 | | Action Push_String_Extended,0x284 ; "Loader_Command"
0178 e004 | | Load 0x0,0x4
0179 180e | | Execute Package,Field_Execute,Field_Number 0xe
017a e001 | | Load 0x0,0x1
017b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017c e002 | | Load 0x0,0x2
017d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017e e5fd | | Load 0x2,-0x3
017f 4801 |H | Short_Literal 0x1
0180 4801 |H | Short_Literal 0x1
0181 4800 |H | Short_Literal 0x0
0182 e405 | | Load 0x2,0x5
0183 e5ff | | Load 0x2,-0x1
0184 e002 | | Load 0x0,0x2
0185 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0186 c402 | | Store 0x2,0x2
0187 c403 | | Store 0x2,0x3
0188 00db | | Load_Top At_Offset_3
0189 700e |p | Jump_Nonzero 0x198
018a e402 | | Load 0x2,0x2
018b e002 | | Load 0x0,0x2
018c 180f | | Execute Package,Field_Execute,Field_Number 0xf
018d 6809 |h | Jump_Zero 0x197
018e e005 | | Load 0x0,0x5
018f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0190 6037 |`7 | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x00008147}
0191 e001 | | Load 0x0,0x1
0192 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0193 00db | | Load_Top At_Offset_3
0194 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0195 00da | | Load_Top At_Offset_2
0196 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0197 8406 | | Call 0x2,0x6
0198 00db | | Load_Top At_Offset_3
0199 00db | | Load_Top At_Offset_3
019a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
019b 00da | | Load_Top At_Offset_2
019c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
019d TRAP_0160:
019d e001 | | Load 0x0,0x1
019e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
019f 010f | | Execute Exception,Equal
01a0 6812 |h | Jump_Zero 0x1b3
01a1 e001 | | Load 0x0,0x1
01a2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a3 e404 | | Load 0x2,0x4
01a4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a5 e402 | | Load 0x2,0x2
01a6 e002 | | Load 0x0,0x2
01a7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a8 7008 |p | Jump_Nonzero 0x1b1
01a9 e001 | | Load 0x0,0x1
01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ab e402 | | Load 0x2,0x2
01ac e5fd | | Load 0x2,-0x3
01ad e002 | | Load 0x0,0x2
01ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01af c402 | | Store 0x2,0x2
01b0 c403 | | Store 0x2,0x3
01b1 00db | | Load_Top At_Offset_3
01b2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01b3 0092 0284 | | Action Push_String_Extended,0x284 ; "Loader_Command"
01b5 e004 | | Load 0x0,0x4
01b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b7 e404 | | Load 0x2,0x4
01b8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01b9 e402 | | Load 0x2,0x2
01ba e002 | | Load 0x0,0x2
01bb 180f | | Execute Package,Field_Execute,Field_Number 0xf
01bc 7008 |p | Jump_Nonzero 0x1c5
01bd e001 | | Load 0x0,0x1
01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bf e402 | | Load 0x2,0x2
01c0 e5fd | | Load 0x2,-0x3
01c1 e002 | | Load 0x0,0x2
01c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01c3 c402 | | Store 0x2,0x2
01c4 c403 | | Store 0x2,0x3
01c5 00db | | Load_Top At_Offset_3
01c6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01c7 0000 | | .XXX[0x1]
01c8 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01dc | | .CONST 0x01dc ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 e5fd | | Load 0x2,-0x3
01d4 e402 | | Load 0x2,0x2
01d5 e006 | | Load 0x0,0x6
01d6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d8 00d8 | | Load_Top At_Offset_0
01d9 01db | | Execute Vector,Length
01da e219 | | Load 0x1,0x19
01db 1c08 | | Execute_Immediate Run_Utility,0x8
01dc BODY_01d0:
01dc e001 | | Load 0x0,0x1
01dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01de e402 | | Load 0x2,0x2
01df e5fd | | Load 0x2,-0x3
01e0 e002 | | Load 0x0,0x2
01e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01e2 c402 | | Store 0x2,0x2
01e3 c403 | | Store 0x2,0x3
01e4 00d9 | | Load_Top At_Offset_1
01e5 0092 0285 | | Action Push_String_Extended,0x285 ; "<error>"
01e7 01df | | Execute Vector,Equal
01e8 6808 |h | Jump_Zero 0x1f1
01e9 e005 | | Load 0x0,0x5
01ea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01eb 6010 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x000084e9}
01ec e001 | | Load 0x0,0x1
01ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ee 00d9 | | Load_Top At_Offset_1
01ef 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f0 7803 |x | Jump 0x1f4
01f1 4800 |H | Short_Literal 0x0
01f2 00d9 | | Load_Top At_Offset_1
01f3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f4 00d9 | | Load_Top At_Offset_1
01f5 00d9 | | Load_Top At_Offset_1
01f6 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
01f7 00d8 | | Load_Top At_Offset_0
01f8 00cb | | Action Pop_Block_With_Result
01f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01fa 0000 0000 | | .XXX[0x2]
01fc 0000 0000 | | .LITERAL {0x00000000, 0x000084e9}
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020c | | .CONST 0x020c ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 e5fd | | Load 0x2,-0x3
0204 e402 | | Load 0x2,0x2
0205 e006 | | Load 0x0,0x6
0206 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0207 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0208 00d8 | | Load_Top At_Offset_0
0209 01db | | Execute Vector,Length
020a e219 | | Load 0x1,0x19
020b 1c08 | | Execute_Immediate Run_Utility,0x8
020c BODY_0200:
020c e001 | | Load 0x0,0x1
020d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020e e402 | | Load 0x2,0x2
020f e5fd | | Load 0x2,-0x3
0210 e002 | | Load 0x0,0x2
0211 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0212 c402 | | Store 0x2,0x2
0213 c403 | | Store 0x2,0x3
0214 00d9 | | Load_Top At_Offset_1
0215 0092 0285 | | Action Push_String_Extended,0x285 ; "<error>"
0217 01df | | Execute Vector,Equal
0218 6808 |h | Jump_Zero 0x221
0219 e005 | | Load 0x0,0x5
021a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
021b 67e0 |g | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x000084e9}
021c e001 | | Load 0x0,0x1
021d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021e 00d9 | | Load_Top At_Offset_1
021f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0220 7803 |x | Jump 0x224
0221 4800 |H | Short_Literal 0x0
0222 00d9 | | Load_Top At_Offset_1
0223 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0224 00d9 | | Load_Top At_Offset_1
0225 00d9 | | Load_Top At_Offset_1
0226 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0227 00d8 | | Load_Top At_Offset_0
0228 00cb | | Action Pop_Block_With_Result
0229 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023c | < | .CONST 0x023c ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 e5fd | | Load 0x2,-0x3
0234 e402 | | Load 0x2,0x2
0235 e006 | | Load 0x0,0x6
0236 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0237 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0238 00d8 | | Load_Top At_Offset_0
0239 01db | | Execute Vector,Length
023a e219 | | Load 0x1,0x19
023b 1c08 | | Execute_Immediate Run_Utility,0x8
023c BODY_0230:
023c e001 | | Load 0x0,0x1
023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023e e402 | | Load 0x2,0x2
023f e5fd | | Load 0x2,-0x3
0240 e002 | | Load 0x0,0x2
0241 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0242 c402 | | Store 0x2,0x2
0243 c403 | | Store 0x2,0x3
0244 00d9 | | Load_Top At_Offset_1
0245 0092 0285 | | Action Push_String_Extended,0x285 ; "<error>"
0247 01df | | Execute Vector,Equal
0248 6808 |h | Jump_Zero 0x251
0249 e005 | | Load 0x0,0x5
024a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
024b 6010 |` | Indirect_Literal Discrete,0x25c,{0x00000000, 0x000084e9}
024c e001 | | Load 0x0,0x1
024d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024e 00d9 | | Load_Top At_Offset_1
024f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0250 7803 |x | Jump 0x254
0251 4800 |H | Short_Literal 0x0
0252 00d9 | | Load_Top At_Offset_1
0253 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0254 00d9 | | Load_Top At_Offset_1
0255 00d9 | | Load_Top At_Offset_1
0256 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0257 00d8 | | Load_Top At_Offset_0
0258 00cb | | Action Pop_Block_With_Result
0259 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
025a 0000 0000 | | .XXX[0x2]
025c 0000 0000 | | .LITERAL {0x00000000, 0x000084e9}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4608 |F | Jump_Case 0x9
0264 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0265 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0266 7819 |x | Jump 0x280 ; case 0x2
0267 7818 |x | Jump 0x280 ; case 0x3
0268 7817 |x | Jump 0x280 ; case 0x4
0269 7816 |x | Jump 0x280 ; case 0x5
026a 7815 |x | Jump 0x280 ; case 0x6
026b 7801 |x | Jump 0x26d ; case 0x7
026c 7809 |x | Jump 0x276 ; case 0x8
026d 00db | | Load_Top At_Offset_3
026e 4801 |H | Short_Literal 0x1
026f e5fe | | Load 0x2,-0x2
0270 00e9 | | Load_Encached String_Cache
0271 035b | [ | Declare_Type Array,Constrained
0272 4801 |H | Short_Literal 0x1
0273 e5ff | | Load 0x2,-0x1
0274 031b | | Declare_Type Variant_Record,Constrained
0275 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0276 00db | | Load_Top At_Offset_3
0277 00db | | Load_Top At_Offset_3
0278 02fc | | Declare_Variable Variant_Record,With_Constraint
0279 4801 |H | Short_Literal 0x1
027a e5fe | | Load 0x2,-0x2
027b 00e9 | | Load_Encached String_Cache
027c 0334 | 4 | Declare_Variable Array,With_Constraint
027d 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
027e 016a | j | QQ_execute Variant_Record,XXX
027f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0280 0869 | i | Execute_Immediate Raise,0x69
0281 ; --------------------------------------------------------------------------------------
0281 ; STRING TABLE
0281 ; --------------------------------------------------------------------------------------
0281 000c | | .STRTAB 0x000c->0x0287 ; "Set_Command_Names"
0282 001b | | .STRTAB 0x001b->0x028f ; "Compiler_Command"
0283 0029 | ) | .STRTAB 0x0029->0x0297 ; "Linker_Command"
0284 0035 | 5 | .STRTAB 0x0035->0x029e ; "Loader_Command"
0285 0041 | A | .STRTAB 0x0041->0x02a5 ; "<error>"
0286 0046 | F | .STREND 0x0046->0x02a9
0287 5365 745f |Set_| .STRTAB_STRINGS
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug Table
02b0 ; --------------------------------------------------------------------------------------
02b0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dd4,0x0000,0x0001,0x0000
02b6 0000 0000 | | .BLANK 0000[0x14a]