|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 00bf | | Action Accept_Activation 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0019 00c7 | | Action Elaborate_Subprogram 001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 482e |H. | Short_Literal 0x2e 002c 00db | | Load_Top At_Offset_3 002d 01cb | | Execute Vector,Append 002e e5fe | | Load 0x2,-0x2 002f 01cc | | Execute Vector,Catenate 0030 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0031 0000 0000 | | .BLANK 0000[0x7] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 005d | ] | .CONST 0x005d ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0007 | | .CONST 0x0007 ; Number of locals 003b INIT_0038: 003b e002 | | Load 0x0,0x2 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 02c7 | | Declare_Variable Any 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 e003 | | Load 0x0,0x3 0041 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0042 e003 | | Load 0x0,0x3 0043 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0044 e003 | | Load 0x0,0x3 0045 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0046 0092 0131 | 1| Action Push_String_Extended,0x131 ; "." 0048 01cc | | Execute Vector,Catenate 0049 e003 | | Load 0x0,0x3 004a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 004b e003 | | Load 0x0,0x3 004c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004d 01cc | | Execute Vector,Catenate 004e 0092 0132 | 2| Action Push_String_Extended,0x132 ; "_Environment." 0050 01cc | | Execute Vector,Catenate 0051 e5ff | | Load 0x2,-0x1 0052 8004 | | Call 0x0,0x4 0053 01cc | | Execute Vector,Catenate 0054 0007 | | Action Break_Optional 0055 e005 | | Load 0x0,0x5 0056 0007 | | Action Break_Optional 0057 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0059 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 005b 029f 010b | | Declare_Subprogram INIT_0108,For_Call 005d BODY_0038: 005d 00be | | Action Activate_Tasks 005e 8406 | | Call 0x2,0x6 005f 8407 | | Call 0x2,0x7 0060 0831 | 1 | Execute_Immediate Raise,0x31 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b e003 | | Load 0x0,0x3 006c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 006d e003 | | Load 0x0,0x3 006e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 006f e003 | | Load 0x0,0x3 0070 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0071 8006 | | Call 0x0,0x6 0072 00ca | | Action Exit_Nullary_Function 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0084 | | .CONST 0x0084 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 4801 |H | Short_Literal 0x1 007c 4806 |H | Short_Literal 0x6 007d 00e9 | | Load_Encached String_Cache 007e 0334 | 4 | Declare_Variable Array,With_Constraint 007f 500c |P | Indirect_Literal Any,0x8c,{0x5443502f, 0x49502020} 0080 e007 | | Load 0x0,0x7 0081 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0082 8006 | | Call 0x0,0x6 0083 00ca | | Action Exit_Nullary_Function 0084 TRAP_0078: 0084 0007 | | Action Break_Optional 0085 4800 |H | Short_Literal 0x0 0086 00e5 | | Load_Encached Long_Integer_Cache 0087 00d9 | | Load_Top At_Offset_1 0088 0267 | g | Execute Discrete,Predecessor 0089 e008 | | Load 0x0,0x8 008a 0334 | 4 | Declare_Variable Array,With_Constraint 008b 00ca | | Action Exit_Nullary_Function 008c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0097 | | .CONST 0x0097 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e009 | | Load 0x0,0x9 0094 0007 | | Action Break_Optional 0095 e009 | | Load 0x0,0x9 0096 0007 | | Action Break_Optional 0097 BODY_0090: 0097 e5ff | | Load 0x2,-0x1 0098 01dd | | Execute Vector,First 0099 005a | Z | Store_Top Discrete,At_Offset_2 009a e5ff | | Load 0x2,-0x1 009b 01dc | | Execute Vector,Last 009c 0059 | Y | Store_Top Discrete,At_Offset_1 009d 00cf | | Action Mark_Auxiliary 009e e5ff | | Load 0x2,-0x1 009f 01da | | Execute Vector,Bounds 00a0 0264 | d | Execute Discrete,Below_Bound 00a1 7015 |p | Jump_Nonzero 0xb7 00a2 00d8 | | Load_Top At_Offset_0 00a3 e5ff | | Load 0x2,-0x1 00a4 01d7 | | Execute Vector,Field_Read 00a5 0f27 | ' | Execute_Immediate Equal,0x27 00a6 6804 |h | Jump_Zero 0xab 00a7 00d8 | | Load_Top At_Offset_0 00a8 0aff | | Execute_Immediate Plus,-0x1 00a9 c403 | | Store 0x2,0x3 00aa 780a |x | Jump 0xb5 00ab 00d8 | | Load_Top At_Offset_0 00ac e5ff | | Load 0x2,-0x1 00ad 01d7 | | Execute Vector,Field_Read 00ae 0f2e | . | Execute_Immediate Equal,0x2e 00af 6805 |h | Jump_Zero 0xb5 00b0 00d8 | | Load_Top At_Offset_0 00b1 0a01 | | Execute_Immediate Plus,0x1 00b2 c402 | | Store 0x2,0x2 00b3 00d2 | | Pop_Control Pop_Count_2 00b4 7802 |x | Jump 0xb7 00b5 00c8 | | Action Pop_Auxiliary_Range 00b6 37eb |7 | Loop_Decreasing 0xa2 00b7 00ce | | Action Pop_Auxiliary 00b8 00d9 | | Load_Top At_Offset_1 00b9 00d9 | | Load_Top At_Offset_1 00ba e5ff | | Load 0x2,-0x1 00bb 01cf | | Execute Vector,Slice_Read 00bc 8004 | | Call 0x0,0x4 00bd e00a | | Load 0x0,0xa 00be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00bf 8006 | | Call 0x0,0x6 00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d1 | | .CONST 0x00d1 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb 4801 |H | Short_Literal 0x1 00cc 6023 |`# | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400} 00cd 00e9 | | Load_Encached String_Cache 00ce 035b | [ | Declare_Type Array,Constrained 00cf 0337 | 7 | Declare_Variable Array 00d0 00e3 | | Load_Encached Natural_Cache 00d1 BODY_00c8: 00d1 00e3 | | Load_Encached Natural_Cache 00d2 00da | | Load_Top At_Offset_2 00d3 e402 | | Load 0x2,0x2 00d4 e002 | | Load 0x0,0x2 00d5 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00d6 00d1 | | Pop_Control Pop_Count_1 00d7 0059 | Y | Store_Top Discrete,At_Offset_1 00d8 00d8 | | Load_Top At_Offset_0 00d9 6016 |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400} 00da 027f | | Execute Discrete,Equal 00db 680c |h | Jump_Zero 0xe8 00dc e402 | | Load 0x2,0x2 00dd e002 | | Load 0x0,0x2 00de 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00df 0c02 | | Execute_Immediate Greater_Equal,0x2 00e0 6807 |h | Jump_Zero 0xe8 00e1 00d9 | | Load_Top At_Offset_1 00e2 8006 | | Call 0x0,0x6 00e3 8405 | | Call 0x2,0x5 00e4 01cc | | Execute Vector,Catenate 00e5 e008 | | Load 0x0,0x8 00e6 01c6 | | Execute Vector,Convert_To_Formal 00e7 00ca | | Action Exit_Nullary_Function 00e8 4801 |H | Short_Literal 0x1 00e9 00d9 | | Load_Top At_Offset_1 00ea 00db | | Load_Top At_Offset_3 00eb 01cf | | Execute Vector,Slice_Read 00ec 8006 | | Call 0x0,0x6 00ed e008 | | Load 0x0,0x8 00ee 01c6 | | Execute Vector,Convert_To_Formal 00ef 00ca | | Action Exit_Nullary_Function 00f0 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0103 | | .CONST 0x0103 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e402 | | Load 0x2,0x2 00fc 00ea | | Load_Encached Null_String_Cache 00fd e403 | | Load 0x2,0x3 00fe 4800 |H | Short_Literal 0x0 00ff e002 | | Load 0x0,0x2 0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0101 c402 | | Store 0x2,0x2 0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0103 TRAP_00f8: 0103 0007 | | Action Break_Optional 0104 e005 | | Load 0x0,0x5 0105 00cb | | Action Pop_Block_With_Result 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010d | | .CONST 0x010d ; Address of begin 0109 0118 | | .CONST 0x0118 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 010d BODY_0108: 010d 8405 | | Call 0x2,0x5 010e e005 | | Load 0x0,0x5 010f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0110 a404 | | Store_Unchecked 0x2,0x4 0111 e402 | | Load 0x2,0x2 0112 e002 | | Load 0x0,0x2 0113 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0114 c402 | | Store 0x2,0x2 0115 e404 | | Load 0x2,0x4 0116 00cb | | Action Pop_Block_With_Result 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 TRAP_0108: 0118 0007 | | Action Break_Optional 0119 8602 | | Call 0x3,0x2 011a e005 | | Load 0x0,0x5 011b 00cb | | Action Pop_Block_With_Result 011c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 012e | . | .CONST 0x012e ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e404 | | Load 0x2,0x4 0124 e00b | | Load 0x0,0xb 0125 e00c | | Load 0x0,0xc 0126 a00d | | Store_Unchecked 0x0,0xd 0127 800e | | Call 0x0,0xe 0128 c404 | | Store 0x2,0x4 0129 e402 | | Load 0x2,0x2 012a e002 | | Load 0x0,0x2 012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012c c402 | | Store 0x2,0x2 012d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012e TRAP_0120: 012e 0007 | | Action Break_Optional 012f 0008 | | Action Idle 0130 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0131 ; -------------------------------------------------------------------------------------- 0131 ; STRING TABLE 0131 ; -------------------------------------------------------------------------------------- 0131 0006 | | .STRTAB 0x0006->0x0134 ; "." 0132 0005 | | .STRTAB 0x0005->0x0134 ; "_Environment." 0133 0010 | | .STREND 0x0010->0x013b 0134 2e5f 456e |._En| .STRTAB_STRINGS 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0000 | | .DEBUG4 0x0004,0x0000,0x679a,0x0000,0x0001,0x000b 0146 000b 0172 | r| .DBG4T 0x000b,0x0172,0x8000,0x0000 014a 0016 0179 | y| .DBG4T 0x0016,0x0179,0x8000,0x0000 014e 002b 0180 | + | .DBG4T 0x002b,0x0180,0x0002,0x0000 0152 003b 0183 | ; | .DBG4T 0x003b,0x0183,0x0002,0x0000 0156 006b 018b | k | .DBG4T 0x006b,0x018b,0x0002,0x0000 015a 007b 018e | { | .DBG4T 0x007b,0x018e,0x0002,0x0000 015e 0093 0192 | | .DBG4T 0x0093,0x0192,0x0002,0x0000 0162 00cb 019f | | .DBG4T 0x00cb,0x019f,0x0002,0x0000 0166 00fb 01a7 | | .DBG4T 0x00fb,0x01a7,0x0004,0x0000 016a 010b 01ab | | .DBG4T 0x010b,0x01ab,0x0004,0x0000 016e 0123 01b2 | # | .DBG4T 0x0123,0x01b2,0x0004,0x0000 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0005 0000 | | .DBGLEN 0x0005,0x0000 0174 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0005 0000 | | .DBGLEN 0x0005,0x0000 017b 0016 0018 | | .DBGLNO 0x0016,0x0018,0x001a,0x001c,0x001e 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug chain 0180 ; -------------------------------------------------------------------------------------- 0180 0000 0001 | | .DBGLEN 0x0000,0x0001 0182 002b | + | .DBGLNO 0x002b 0183 ; -------------------------------------------------------------------------------------- 0183 ; Debug chain 0183 ; -------------------------------------------------------------------------------------- 0183 0004 0002 | | .DBGLEN 0x0004,0x0002 0185 003b 0040 | ; @| .DBGLNO 0x003b,0x0040,0x0055,0x0057,0x005e,0x005f 018b ; -------------------------------------------------------------------------------------- 018b ; Debug chain 018b ; -------------------------------------------------------------------------------------- 018b 0000 0001 | | .DBGLEN 0x0000,0x0001 018d 006b | k | .DBGLNO 0x006b 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 0000 0002 | | .DBGLEN 0x0000,0x0002 0190 007b 0085 | { | .DBGLNO 0x007b,0x0085 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug chain 0192 ; -------------------------------------------------------------------------------------- 0192 0002 0009 | | .DBGLEN 0x0002,0x0009 0194 0093 0095 | | .DBGLNO 0x0093,0x0095,0x0097,0x009a,0x009e,0x00a2,0x00a7,0x00ab,0x00b0,0x00b3,0x00b8 019f ; -------------------------------------------------------------------------------------- 019f ; Debug chain 019f ; -------------------------------------------------------------------------------------- 019f 0002 0004 | | .DBGLEN 0x0002,0x0004 01a1 00cb 00d0 | | .DBGLNO 0x00cb,0x00d0,0x00d1,0x00d8,0x00e1,0x00e8 01a7 ; -------------------------------------------------------------------------------------- 01a7 ; Debug chain 01a7 ; -------------------------------------------------------------------------------------- 01a7 0000 0002 | | .DBGLEN 0x0000,0x0002 01a9 00fb 0104 | | .DBGLNO 0x00fb,0x0104 01ab ; -------------------------------------------------------------------------------------- 01ab ; Debug chain 01ab ; -------------------------------------------------------------------------------------- 01ab 0000 0005 | | .DBGLEN 0x0000,0x0005 01ad 010d 0111 | | .DBGLNO 0x010d,0x0111,0x0115,0x0119,0x011a 01b2 ; -------------------------------------------------------------------------------------- 01b2 ; Debug chain 01b2 ; -------------------------------------------------------------------------------------- 01b2 0000 0003 | | .DBGLEN 0x0000,0x0003 01b4 0123 0129 | # )| .DBGLNO 0x0123,0x0129,0x012f 01b7 0000 0000 | | .BLANK 0000[0x49]