|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 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 0000 | | .BLANK 0000[0x182]