|
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_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0278 | x | .CONST 0x0278 ; 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 00ae | | .CONST 0x00ae ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003c | < | .CONST 0x003c ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1
000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0015 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0019 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001f e20d | | Load 0x1,0xd
0020 0266 | f | Execute Discrete,Bounds
0021 00e1 | | Load_Encached Boolean_Cache
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4801 |H | Short_Literal 0x1
0024 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0025 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0027 e20e | | Load 0x1,0xe
0028 0266 | f | Execute Discrete,Bounds
0029 00e1 | | Load_Encached Boolean_Cache
002a 02a0 | | Declare_Subprogram Null_Subprogram
002b 4801 |H | Short_Literal 0x1
002c 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
002f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0031 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0033 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0035 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0037 00e5 | | Load_Encached Long_Integer_Cache
0038 0129 | ) | Execute Any,Make_Visible
0039 4809 |H | Short_Literal 0x9
003a 0093 01b3 | | push_full_address INIT_01b0
003c 02a0 | | Declare_Subprogram Null_Subprogram
003d 038f | | Declare_Type Package,Defined,Visible
003e 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0040 00bf | | Action Accept_Activation
0041 00da | | Load_Top At_Offset_2
0042 e20d | | Load 0x1,0xd
0043 e20e | | Load 0x1,0xe
0044 02a0 | | Declare_Subprogram Null_Subprogram
0045 4803 |H | Short_Literal 0x3
0046 032d | - | Declare_Type Record,Defined
0047 00d8 | | Load_Top At_Offset_0
0048 0322 | " | Declare_Variable Record
0049 4800 |H | Short_Literal 0x0
004a 00d9 | | Load_Top At_Offset_1
004b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004c 4800 |H | Short_Literal 0x0
004d 00d9 | | Load_Top At_Offset_1
004e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
004f 4800 |H | Short_Literal 0x0
0050 00d9 | | Load_Top At_Offset_1
0051 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0052 00d9 | | Load_Top At_Offset_1
0053 0322 | " | Declare_Variable Record
0054 00d9 | | Load_Top At_Offset_1
0055 00d9 | | Load_Top At_Offset_1
0056 017d | } | Execute Record,Structure_Write
0057 e21e | | Load 0x1,0x1e
0058 0007 | | Action Break_Optional
0059 4800 |H | Short_Literal 0x0
005a 0093 01c3 | | push_full_address INIT_01c0
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 038e | | Declare_Type Package,Defined
005e 0387 | | Declare_Variable Package
005f 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call
0061 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0062 00c7 | | Action Elaborate_Subprogram
0063 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0064 00c7 | | Action Elaborate_Subprogram
0065 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0066 00c7 | | Action Elaborate_Subprogram
0067 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0068 00c7 | | Action Elaborate_Subprogram
0069 1d12 | | Execute_Immediate Reference_Lex_1,0x12
006a 00c7 | | Action Elaborate_Subprogram
006b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006c 00c7 | | Action Elaborate_Subprogram
006d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006e 00c7 | | Action Elaborate_Subprogram
006f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0070 00c7 | | Action Elaborate_Subprogram
0071 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0072 00c7 | | Action Elaborate_Subprogram
0073 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0074 00c7 | | Action Elaborate_Subprogram
0075 e002 | | Load 0x0,0x2
0076 193e | > | Execute Package,Field_Reference,Field_Number 0x3e
0077 00c6 | | Action Check_Subprogram_Elaborated
0078 e20d | | Load 0x1,0xd
0079 480c |H | Short_Literal 0xc
007a e003 | | Load 0x0,0x3
007b e004 | | Load 0x0,0x4
007c 4800 |H | Short_Literal 0x0
007d 0007 | | Action Break_Optional
007e e002 | | Load 0x0,0x2
007f 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f
0080 00c6 | | Action Check_Subprogram_Elaborated
0081 e20d | | Load 0x1,0xd
0082 480c |H | Short_Literal 0xc
0083 48ff |H | Short_Literal 0xff
0084 e005 | | Load 0x0,0x5
0085 e006 | | Load 0x0,0x6
0086 4800 |H | Short_Literal 0x0
0087 0007 | | Action Break_Optional
0088 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0089 00c7 | | Action Elaborate_Subprogram
008a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008b 00c7 | | Action Elaborate_Subprogram
008c e002 | | Load 0x0,0x2
008d 193e | > | Execute Package,Field_Reference,Field_Number 0x3e
008e 00c6 | | Action Check_Subprogram_Elaborated
008f e20e | | Load 0x1,0xe
0090 480d |H | Short_Literal 0xd
0091 e007 | | Load 0x0,0x7
0092 e008 | | Load 0x0,0x8
0093 4800 |H | Short_Literal 0x0
0094 0007 | | Action Break_Optional
0095 e002 | | Load 0x0,0x2
0096 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f
0097 00c6 | | Action Check_Subprogram_Elaborated
0098 e20e | | Load 0x1,0xe
0099 480d |H | Short_Literal 0xd
009a 48ff |H | Short_Literal 0xff
009b e009 | | Load 0x0,0x9
009c e00a | | Load 0x0,0xa
009d 4800 |H | Short_Literal 0x0
009e 0007 | | Action Break_Optional
009f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00a2 00c7 | | Action Elaborate_Subprogram
00a3 e00b | | Load 0x0,0xb
00a4 e00c | | Load 0x0,0xc
00a5 00b6 | | Action Make_Scope
00a6 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a7 e00d | | Load 0x0,0xd
00a8 e00e | | Load 0x0,0xe
00a9 4806 |H | Short_Literal 0x6
00aa e225 | % | Load 0x1,0x25
00ab 020e | | Execute Module,Augment_Imports
00ac e225 | % | Load 0x1,0x25
00ad 020f | | Execute Module,Activate
00ae BODY_0008:
00ae 00bc | | Action Signal_Activated
00af 00bb | | Action Signal_Completion
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 8226 | & | Call 0x1,0x26
00b5 e00f | | Load 0x0,0xf
00b6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00b7 00d8 | | Load_Top At_Offset_0
00b8 e00f | | Load 0x0,0xf
00b9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00ba 7003 |p | Jump_Nonzero 0xbe
00bb e001 | | Load 0x0,0x1
00bc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00bd 0257 | W | Execute Discrete,Raise
00be 180f | | Execute Package,Field_Execute,Field_Number 0xf
00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 8226 | & | Call 0x1,0x26
00c5 e00f | | Load 0x0,0xf
00c6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00c7 00d8 | | Load_Top At_Offset_0
00c8 e00f | | Load 0x0,0xf
00c9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00ca 7003 |p | Jump_Nonzero 0xce
00cb e001 | | Load 0x0,0x1
00cc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00cd 0257 | W | Execute Discrete,Raise
00ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 8226 | & | Call 0x1,0x26
00d5 e00f | | Load 0x0,0xf
00d6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00d7 00d8 | | Load_Top At_Offset_0
00d8 e00f | | Load 0x0,0xf
00d9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00da 7003 |p | Jump_Nonzero 0xde
00db e001 | | Load 0x0,0x1
00dc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00dd 0257 | W | Execute Discrete,Raise
00de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 8226 | & | Call 0x1,0x26
00e5 e00f | | Load 0x0,0xf
00e6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00e7 00d8 | | Load_Top At_Offset_0
00e8 e00f | | Load 0x0,0xf
00e9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00ea 7003 |p | Jump_Nonzero 0xee
00eb e001 | | Load 0x0,0x1
00ec 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00ed 0257 | W | Execute Discrete,Raise
00ee 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 8226 | & | Call 0x1,0x26
00f5 e00f | | Load 0x0,0xf
00f6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00f7 00d8 | | Load_Top At_Offset_0
00f8 e00f | | Load 0x0,0xf
00f9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00fa 7003 |p | Jump_Nonzero 0xfe
00fb e001 | | Load 0x0,0x1
00fc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00fd 0257 | W | Execute Discrete,Raise
00fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 8226 | & | Call 0x1,0x26
0104 e00f | | Load 0x0,0xf
0105 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0106 00d8 | | Load_Top At_Offset_0
0107 e00f | | Load 0x0,0xf
0108 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0109 7003 |p | Jump_Nonzero 0x10d
010a e001 | | Load 0x0,0x1
010b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
010c 0257 | W | Execute Discrete,Raise
010d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010e 00ca | | Action Exit_Nullary_Function
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 8226 | & | Call 0x1,0x26
0114 e00f | | Load 0x0,0xf
0115 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0116 00d8 | | Load_Top At_Offset_0
0117 e00f | | Load 0x0,0xf
0118 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0119 7003 |p | Jump_Nonzero 0x11d
011a e001 | | Load 0x0,0x1
011b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
011c 0257 | W | Execute Discrete,Raise
011d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
011e 00ca | | Action Exit_Nullary_Function
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4800 |H | Short_Literal 0x0
0124 e223 | # | Load 0x1,0x23
0125 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0126 e216 | | Load 0x1,0x16
0127 035b | [ | Declare_Type Array,Constrained
0128 0337 | 7 | Declare_Variable Array
0129 00d8 | | Load_Top At_Offset_0
012a 01dc | | Execute Vector,Last
012b 4800 |H | Short_Literal 0x0
012c 0263 | c | Execute Discrete,Above_Bound
012d 7005 |p | Jump_Nonzero 0x133
012e 4801 |H | Short_Literal 0x1
012f 00d9 | | Load_Top At_Offset_1
0130 e402 | | Load 0x2,0x2
0131 01d6 | | Execute Vector,Field_Write
0132 3ffb |? | Loop_Increasing 0x12e
0133 e216 | | Load 0x1,0x16
0134 01c6 | | Execute Vector,Convert_To_Formal
0135 00ca | | Action Exit_Nullary_Function
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4800 |H | Short_Literal 0x0
013c e223 | # | Load 0x1,0x23
013d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
013e e218 | | Load 0x1,0x18
013f 035b | [ | Declare_Type Array,Constrained
0140 0337 | 7 | Declare_Variable Array
0141 00d8 | | Load_Top At_Offset_0
0142 01dc | | Execute Vector,Last
0143 4800 |H | Short_Literal 0x0
0144 0263 | c | Execute Discrete,Above_Bound
0145 7005 |p | Jump_Nonzero 0x14b
0146 4801 |H | Short_Literal 0x1
0147 00d9 | | Load_Top At_Offset_1
0148 e402 | | Load 0x2,0x2
0149 01d6 | | Execute Vector,Field_Write
014a 3ffb |? | Loop_Increasing 0x146
014b e218 | | Load 0x1,0x18
014c 01c6 | | Execute Vector,Convert_To_Formal
014d 00ca | | Action Exit_Nullary_Function
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e227 | ' | Load 0x1,0x27
0155 e228 | ( | Load 0x1,0x28
0156 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0157 e002 | | Load 0x0,0x2
0158 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 e22c | , | Load 0x1,0x2c
0165 e22d | - | Load 0x1,0x2d
0166 e22e | . | Load 0x1,0x2e
0167 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0168 e002 | | Load 0x0,0x2
0169 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 e232 | 2 | Load 0x1,0x32
0175 e233 | 3 | Load 0x1,0x33
0176 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0177 e002 | | Load 0x0,0x2
0178 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e237 | 7 | Load 0x1,0x37
0185 e238 | 8 | Load 0x1,0x38
0186 e239 | 9 | Load 0x1,0x39
0187 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0188 e002 | | Load 0x0,0x2
0189 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e221 | ! | Load 0x1,0x21
0194 0322 | " | Declare_Variable Record
0195 00db | | Load_Top At_Offset_3
0196 00d9 | | Load_Top At_Offset_1
0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0198 e5fe | | Load 0x2,-0x2
0199 00d9 | | Load_Top At_Offset_1
019a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019b e5fd | | Load 0x2,-0x3
019c 00d9 | | Load_Top At_Offset_1
019d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
019e e223 | # | Load 0x1,0x23
019f 017d | } | Execute Record,Structure_Write
01a0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e223 | # | Load 0x1,0x23
01ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ad 00ca | | Action Exit_Nullary_Function
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b6 | | .CONST 0x01b6 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0016 | | .CONST 0x0016 ; Number of locals
01b3 INIT_01b0:
01b3 029c 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible
01b5 00bf | | Action Accept_Activation
01b6 BODY_01b0:
01b6 00bc | | Action Signal_Activated
01b7 00bb | | Action Signal_Completion
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00b6 | | Action Make_Scope
01bc 020a | | Execute Module,Get_Name
01bd 00ca | | Action Exit_Nullary_Function
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01e0 | | .CONST 0x01e0 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0014 | | .CONST 0x0014 ; Number of locals
01c3 INIT_01c0:
01c3 00bf | | Action Accept_Activation
01c4 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
01c6 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
01c8 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
01ca 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call
01cc 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
01ce 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
01d0 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
01d2 e001 | | Load 0x0,0x1
01d3 e002 | | Load 0x0,0x2
01d4 1d0d | | Execute_Immediate Reference_Lex_1,0xd
01d5 1d0e | | Execute_Immediate Reference_Lex_1,0xe
01d6 1d0f | | Execute_Immediate Reference_Lex_1,0xf
01d7 1d10 | | Execute_Immediate Reference_Lex_1,0x10
01d8 1d11 | | Execute_Immediate Reference_Lex_1,0x11
01d9 1d12 | | Execute_Immediate Reference_Lex_1,0x12
01da 1d13 | | Execute_Immediate Reference_Lex_1,0x13
01db e003 | | Load 0x0,0x3
01dc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
01dd 0387 | | Declare_Variable Package
01de 00d8 | | Load_Top At_Offset_0
01df 020f | | Execute Module,Activate
01e0 BODY_01c0:
01e0 00d8 | | Load_Top At_Offset_0
01e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e2 c004 | | Store 0x0,0x4
01e3 00bc | | Action Signal_Activated
01e4 00bb | | Action Signal_Completion
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4800 |H | Short_Literal 0x0
01ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4800 |H | Short_Literal 0x0
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 0092 023e | >| Action Push_String_Extended,0x23e ; "Compiler_"
01fd 4820 |H | Short_Literal 0x20
01fe 4800 |H | Short_Literal 0x0
01ff 480a |H | Short_Literal 0xa
0200 e5ff | | Load 0x2,-0x1
0201 e005 | | Load 0x0,0x5
0202 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0203 01cc | | Execute Vector,Catenate
0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 0092 023f | ?| Action Push_String_Extended,0x23f ; "Machine_"
020d 4820 |H | Short_Literal 0x20
020e 4800 |H | Short_Literal 0x0
020f 480a |H | Short_Literal 0xa
0210 e5ff | | Load 0x2,-0x1
0211 e005 | | Load 0x0,0x5
0212 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0213 01cc | | Execute Vector,Catenate
0214 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b e006 | | Load 0x0,0x6
021c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021d 0337 | 7 | Declare_Variable Array
021e 4808 |H | Short_Literal 0x8
021f 4800 |H | Short_Literal 0x0
0220 4800 |H | Short_Literal 0x0
0221 00d9 | | Load_Top At_Offset_1
0222 e402 | | Load 0x2,0x2
0223 01d6 | | Execute Vector,Field_Write
0224 3ffb |? | Loop_Increasing 0x220
0225 e006 | | Load 0x0,0x6
0226 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0227 01c3 | | Execute Vector,Check_In_Type
0228 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 0092 0240 | @| Action Push_String_Extended,0x240 ; "!TOOLS.TARGET_BUILD_UTILITY.REV9_5_WORKING.UNITS.STATUS_FILE"
0235 00ca | | Action Exit_Nullary_Function
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 0092 0241 | A| Action Push_String_Extended,0x241 ; "Status ~@~ (~#~) ~1~ ~2~ ~3~"
023d 00ca | | Action Exit_Nullary_Function
023e ; --------------------------------------------------------------------------------------
023e ; STRING TABLE
023e ; --------------------------------------------------------------------------------------
023e 000a | | .STRTAB 0x000a->0x0243 ; "Compiler_"
023f 0011 | | .STRTAB 0x0011->0x0247 ; "Machine_"
0240 0017 | | .STRTAB 0x0017->0x024b ; "!TOOLS.TARGET_BUILD_UTILITY.REV9_5_WORKING.UNITS.STATUS_FILE"
0241 0051 | Q | .STRTAB 0x0051->0x0269 ; "Status ~@~ (~#~) ~1~ ~2~ ~3~"
0242 006b | k | .STREND 0x006b->0x0277
0243 436f 6d70 |Comp| .STRTAB_STRINGS
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug Table
0278 ; --------------------------------------------------------------------------------------
0278 0004 000d | | .DEBUG4 0x0004,0x000d,0xd915,0x0000,0x0001,0x0000
027e 0000 01b8 | | .XXX[0x48]
0280 003f f021 | ? !|
0282 9000 0183 | |
0284 2000 00bd | |
0286 f800 4885 | H |
0288 0000 0000 | |
028a 0000 0021 | !|
028c 0000 f83b | ;|
028e 0000 0000 | |
0290 0d05 0000 | |
0292 0000 0029 | )|
0294 09ad 4804 | H |
0296 0000 0000 | |
0298 f049 f3dd | I |
029a 2350 32fe |#P2 |
029c 234c 3970 |#L9p|
029e c84f e350 | O P|
02a0 e34c 234e | L#N|
02a2 3970 c84f |9p O|
02a4 38b2 32fe |8 2 |
02a6 3849 7972 |8Iyr|
02a8 0276 2e04 | v. |
02aa 26ae 8000 |& |
02ac 0000 0980 | |
02ae e006 7a84 | z |
02b0 ec5c 0849 | \ I|
02b2 e200 0000 | |
02b4 004a 01c0 | J |
02b6 42c9 09d8 |B |
02b8 b810 927c | ||
02ba 0000 0000 | |
02bc 2a03 808a |* |
02be bed0 8930 | 0|
02c0 2122 6800 |!"h |
02c2 0000 0000 | |
02c4 0023 b1a0 | # |
02c6 0000 0000 | | .BLANK 0000[0x6]
02cc 1350 b021 | P !| .XXX[0x68]
02ce 3574 0000 |5t |
02d0 0000 5a00 | Z |
02d2 0000 0000 | |
02d4 0000 0004 | |
02d6 cc48 0849 | H I|
02d8 e200 0000 | |
02da 0084 cc30 | 0|
02dc 212a 1800 |!* |
02de 0000 0000 | |
02e0 0000 0008 | |
02e2 32d8 0000 |2 |
02e4 0000 0000 | |
02e6 0109 d800 | |
02e8 4298 8810 |B |
02ea a75a 0001 | Z |
02ec 9989 0109 | |
02ee c380 0000 | |
02f0 0010 9ec8 | |
02f2 0428 7b00 | ({ |
02f4 0000 0000 | |
02f6 0998 9010 | |
02f8 9d80 0000 | |
02fa 0001 0a98 | |
02fc 0042 83f8 | B |
02fe 0000 0000 | |
0300 09ad 2c04 | , |
0302 0000 007f | |
0304 000b dc13 | |
0306 0000 5c32 | \2|
0308 09ad 2c04 | , |
030a 0000 17bf | |
030c 0009 10b4 | |
030e 0000 05b5 | |
0310 0001 0404 | |
0312 0800 0100 | |
0314 8000 0000 | |
0316 0000 0000 | |
0318 0001 0404 | |
031a 0800 0100 | |
031c 1f79 9d0b | y |
031e 0000 0080 | |
0320 09ad 4804 | H |
0322 0000 4dff | M |
0324 0001 bc13 | |
0326 0000 2cd3 | , |
0328 09ad 5404 | T |
032a 0000 17bf | |
032c 0009 b086 | |
032e 0000 0614 | |
0330 09ad 5404 | T |
0332 0800 04b8 | |
0334 0000 0000 | | .BLANK 0000[0x4]
0338 09ad 5404 | T | .XXX[0x24]
033a 0000 0144 | D|
033c 0012 1bf4 | |
033e 0007 7890 | x |
0340 09ad 5404 | T |
0342 0800 04b8 | |
0344 0012 1bf4 | |
0346 0007 83a4 | |
0348 09ad 4804 | H |
034a 0000 4dff | M |
034c 0001 bc13 | |
034e 0000 4733 | G3|
0350 09ad 5404 | T |
0352 0000 17bf | |
0354 000a 1086 | |
0356 0000 0614 | |
0358 09ad 5404 | T |
035a 0800 04b8 | |
035c 0000 0000 | | .BLANK 0000[0x4]
0360 09ad 5404 | T | .XXX[0x31]
0362 0800 0600 | |
0364 0012 1bf4 | |
0366 0007 83a4 | |
0368 09ad 5404 | T |
036a 0800 0600 | |
036c 0012 1bf4 | |
036e 0007 7890 | x |
0370 0040 0000 | @ |
0372 0114 5552 | UR|
0374 5500 0001 |U |
0376 fec0 0000 | |
0378 02d1 5112 | Q |
037a 5513 d48b |U |
037c 9455 5255 | URU|
037e 2000 0002 | |
0380 4000 0000 |@ |
0382 0000 0000 | |
0384 e000 0002 | |
0386 4000 0000 |@ |
0388 0000 0000 | |
038a e000 0002 | |
038c 4000 0000 |@ |
038e 0000 0000 | |
0390 8000 | |
0391 0000 0000 | | .BLANK 0000[0x5]
0396 c000 | | .XXX[0x1]
0397 0000 0000 | | .BLANK 0000[0x4]
039b 0001 | | .XXX[0x1]
039c 0404 0404 | | .BLANK 0404[0x46]
03e2 1000 0001 | | .XXX[0x5]
03e4 2000 0000 | |
03e6 4000 |@ |
03e7 0000 0000 | | .BLANK 0000[0x5]
03ec 1f79 9d0b | y | .XXX[0x14]
03ee 0000 0004 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 1f79 9d0b | y |
03f6 0000 1270 | p|
03f8 fedb 0023 | #|
03fa 5000 0001 |P |
03fc 0000 0000 | |
03fe 0000 0003 | |