|
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_0a7cf5
└─⟦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 00e8 | | .CONST 0x00e8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004c | L | .CONST 0x004c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 4801 |H | Short_Literal 0x1 000e 49f4 |I | Short_Literal 0x1f4 000f 00e2 | | Load_Encached Integer_Cache 0010 03f9 | | Declare_Type Discrete,Constrained,Visible 0011 e001 | | Load 0x0,0x1 0012 0129 | ) | Execute Any,Make_Visible 0013 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0015 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0017 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0019 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001f 4803 |H | Short_Literal 0x3 0020 032a | * | Declare_Type Record,Incomplete 0021 00d8 | | Load_Top At_Offset_0 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 e20d | | Load 0x1,0xd 0024 03c7 | | Complete_Type Access,By_Defining 0025 00bf | | Action Accept_Activation 0026 e002 | | Load 0x0,0x2 0027 e003 | | Load 0x0,0x3 0028 49f4 |I | Short_Literal 0x1f4 0029 00e2 | | Load_Encached Integer_Cache 002a 4801 |H | Short_Literal 0x1 002b e004 | | Load 0x0,0x4 002c 0387 | | Declare_Variable Package 002d 00d8 | | Load_Top At_Offset_0 002e 020f | | Execute Module,Activate 002f 00e9 | | Load_Encached String_Cache 0030 02a0 | | Declare_Subprogram Null_Subprogram 0031 4818 |H | Short_Literal 0x18 0032 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0033 4801 |H | Short_Literal 0x1 0034 49f4 |I | Short_Literal 0x1f4 0035 00da | | Load_Top At_Offset_2 0036 02a0 | | Declare_Subprogram Null_Subprogram 0037 4801 |H | Short_Literal 0x1 0038 035d | ] | Declare_Type Array,Defined 0039 00da | | Load_Top At_Offset_2 003a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 003b 00d9 | | Load_Top At_Offset_1 003c e20e | | Load 0x1,0xe 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e e216 | | Load 0x1,0x16 003f 0326 | & | Complete_Type Record,By_Defining 0040 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0041 00c7 | | Action Elaborate_Subprogram 0042 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0043 00c7 | | Action Elaborate_Subprogram 0044 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0045 00c7 | | Action Elaborate_Subprogram 0046 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0047 00c7 | | Action Elaborate_Subprogram 0048 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0049 00c7 | | Action Elaborate_Subprogram 004a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004b 00c7 | | Action Elaborate_Subprogram 004c BODY_0008: 004c 00bc | | Action Signal_Activated 004d 00bb | | Action Signal_Completion 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 7003 |p | Jump_Nonzero 0x58 0055 e20d | | Load 0x1,0xd 0056 03bc | | Declare_Variable Access,By_Allocation 0057 003b | ; | Store_Top Access,At_Offset_3 0058 00da | | Load_Top At_Offset_2 0059 0229 | ) | Execute Access,All_Read 005a e217 | | Load 0x1,0x17 005b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 005c e217 | | Load 0x1,0x17 005d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005e 00d9 | | Load_Top At_Offset_1 005f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0060 00d1 | | Pop_Control Pop_Count_1 0061 4801 |H | Short_Literal 0x1 0062 00db | | Load_Top At_Offset_3 0063 0227 | ' | Execute Access,All_Reference 0064 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0065 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006e | n | .CONST 0x006e ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b 00e2 | | Load_Encached Integer_Cache 006c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006d 00e1 | | Load_Encached Boolean_Cache 006e BODY_0068: 006e 00e1 | | Load_Encached Boolean_Cache 006f 00da | | Load_Top At_Offset_2 0070 e5ff | | Load 0x2,-0x1 0071 e5fe | | Load 0x2,-0x2 0072 0227 | ' | Execute Access,All_Reference 0073 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0074 e217 | | Load 0x1,0x17 0075 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0076 005b | [ | Store_Top Discrete,At_Offset_3 0077 0059 | Y | Store_Top Discrete,At_Offset_1 0078 00d8 | | Load_Top At_Offset_0 0079 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0085 | | .CONST 0x0085 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 00e2 | | Load_Encached Integer_Cache 0084 00e1 | | Load_Encached Boolean_Cache 0085 BODY_0080: 0085 00e1 | | Load_Encached Boolean_Cache 0086 00da | | Load_Top At_Offset_2 0087 e5ff | | Load 0x2,-0x1 0088 e5fe | | Load 0x2,-0x2 0089 0227 | ' | Execute Access,All_Reference 008a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 008b e217 | | Load 0x1,0x17 008c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008d 005b | [ | Store_Top Discrete,At_Offset_3 008e 0059 | Y | Store_Top Discrete,At_Offset_1 008f 00d8 | | Load_Top At_Offset_0 0090 6807 |h | Jump_Zero 0x98 0091 00d9 | | Load_Top At_Offset_1 0092 00d8 | | Load_Top At_Offset_0 0093 e20e | | Load 0x1,0xe 0094 0260 | ` | Execute Discrete,In_Type 0095 7001 |p | Jump_Nonzero 0x97 0096 0801 | | Execute_Immediate Raise,0x1 0097 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0098 e20f | | Load 0x1,0xf 0099 0257 | W | Execute Discrete,Raise 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 e5fe | | Load 0x2,-0x2 00a5 0227 | ' | Execute Access,All_Reference 00a6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00a7 01d7 | | Execute Vector,Field_Read 00a8 0227 | ' | Execute Access,All_Reference 00a9 0335 | 5 | Declare_Variable Array,Duplicate 00aa 00cd | | Action Spare6_Action 00ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ac 0000 0000 | | .BLANK 0000[0x4] 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 e5fd | | Load 0x2,-0x3 00b4 0229 | ) | Execute Access,All_Read 00b5 00d8 | | Load_Top At_Offset_0 00b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b7 4800 |H | Short_Literal 0x0 00b8 e5fd | | Load 0x2,-0x3 00b9 0227 | ' | Execute Access,All_Reference 00ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00bb e5ff | | Load 0x2,-0x1 00bc e217 | | Load 0x1,0x17 00bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00be 00d9 | | Load_Top At_Offset_1 00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c0 00d1 | | Pop_Control Pop_Count_1 00c1 00db | | Load_Top At_Offset_3 00c2 e218 | | Load 0x1,0x18 00c3 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00c4 e5fd | | Load 0x2,-0x3 00c5 0227 | ' | Execute Access,All_Reference 00c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c7 e5fd | | Load 0x2,-0x3 00c8 0227 | ' | Execute Access,All_Reference 00c9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00ca 01d6 | | Execute Vector,Field_Write 00cb e5fd | | Load 0x2,-0x3 00cc 0227 | ' | Execute Access,All_Reference 00cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ce 0a01 | | Execute_Immediate Plus,0x1 00cf e5fd | | Load 0x2,-0x3 00d0 0227 | ' | Execute Access,All_Reference 00d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 0227 | ' | Execute Access,All_Reference 00dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00de 0aff | | Execute_Immediate Plus,-0x1 00df 00d8 | | Load_Top At_Offset_0 00e0 00e3 | | Load_Encached Natural_Cache 00e1 0260 | ` | Execute Discrete,In_Type 00e2 7001 |p | Jump_Nonzero 0xe4 00e3 0801 | | Execute_Immediate Raise,0x1 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc78c,0x0000,0x0001,0x0000 00ee 0000 0000 | | .XXX[0x3] 00f0 0000 | | 00f1 0018 0005 | | .XXX[0x22] 00f3 992a 1709 | * | 00f5 702e 0000 |p. | 00f7 66de d132 |f 2| 00f9 0200 2000 | | 00fb 13a0 0000 | | 00fd 109c e000 | | 00ff 00c0 0000 | | 0101 2ae0 0500 |* | 0103 0000 a200 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a40 | @| 010d 0006 03ad | | 010f 4140 0004 |A@ | 0111 00f8 7d00 | } | 0113 0000 0000 | | .BLANK 0000[0x17] 012a 0003 0000 | | .XXX[0x22] 012c b325 42e1 | %B | 012e 2e05 c000 |. | 0130 0cdb da26 | &| 0132 4040 0400 |@@ | 0134 0274 0000 | t | 0136 0213 9c00 | | 0138 0018 0000 | | 013a 055c 00a0 | \ | 013c 0000 1440 | @| 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0148 | H| 0146 0000 c075 | u| 0148 a828 0000 | ( | 014a 801f 0fa0 | | 014c 0000 0000 | | .BLANK 0000[0x18] 0164 6000 1664 |` d| .XXX[0x21] 0166 a85c 25c0 | \% | 0168 b800 019b | | 016a 7b44 c808 |{D | 016c 0080 004e | N| 016e 8000 0042 | B| 0170 7380 0003 |s | 0172 0000 00ab | | 0174 8014 0000 | | 0176 0288 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 180e b505 | | 0182 0000 1003 | | 0184 e1f4 | | 0185 0000 0000 | | .BLANK 0000[0x18] 019d 0c00 02cc | | .XXX[0x22] 019f 950b 84b8 | | 01a1 1700 0033 | 3| 01a3 6f68 9901 |oh | 01a5 0010 0009 | | 01a7 d000 0008 | | 01a9 4e70 0000 |Np | 01ab 6000 0015 |` | 01ad 7002 8000 |p | 01af 0051 0000 | Q | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 0301 d6a0 | | 01bb a000 0200 | | 01bd 7c3e 8000 ||> | 01bf 0000 0000 | | .BLANK 0000[0x17] 01d6 0180 0059 | Y| .XXX[0x3] 01d8 9280 | | 01d9 0000 0000 | | .BLANK 0000[0x27]