|
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_f4d031
└─⟦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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0015 c211 | | Store 0x1,0x11 0016 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0018 c212 | | Store 0x1,0x12 0019 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001b c213 | | Store 0x1,0x13 001c 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001e c214 | | Store 0x1,0x14 001f 00bf | | Action Accept_Activation 0020 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0021 00c7 | | Action Elaborate_Subprogram 0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0023 00c7 | | Action Elaborate_Subprogram 0024 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0025 00c7 | | Action Elaborate_Subprogram 0026 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0027 00c7 | | Action Elaborate_Subprogram 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a 0000 0000 | | .BLANK 0000[0x6] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0034 | 4 | .CONST 0x0034 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0002 | | .CONST 0x0002 ; Number of locals 0033 INIT_0030: 0033 00e1 | | Load_Encached Boolean_Cache 0034 BODY_0030: 0034 4802 |H | Short_Literal 0x2 0035 e5ff | | Load 0x2,-0x1 0036 e001 | | Load 0x0,0x1 0037 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0038 e002 | | Load 0x0,0x2 0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003a 016f | o | Execute Variant_Record,Equal 003b 6824 |h$ | Jump_Zero 0x60 003c 4803 |H | Short_Literal 0x3 003d e5fe | | Load 0x2,-0x2 003e e003 | | Load 0x0,0x3 003f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0040 e004 | | Load 0x0,0x4 0041 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0042 016f | o | Execute Variant_Record,Equal 0043 681a |h | Jump_Zero 0x5e 0044 4802 |H | Short_Literal 0x2 0045 e5fe | | Load 0x2,-0x2 0046 e003 | | Load 0x0,0x3 0047 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0048 4800 |H | Short_Literal 0x0 0049 e005 | | Load 0x0,0x5 004a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004c 016f | o | Execute Variant_Record,Equal 004d 680e |h | Jump_Zero 0x5c 004e 4800 |H | Short_Literal 0x0 004f e5ff | | Load 0x2,-0x1 0050 e001 | | Load 0x0,0x1 0051 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0052 4800 |H | Short_Literal 0x0 0053 4800 |H | Short_Literal 0x0 0054 e002 | | Load 0x0,0x2 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 4802 |H | Short_Literal 0x2 0057 4802 |H | Short_Literal 0x2 0058 e001 | | Load 0x0,0x1 0059 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 005a 0f00 | | Execute_Immediate Equal,0x0 005b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 005c 4800 |H | Short_Literal 0x0 005d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 005e 4800 |H | Short_Literal 0x0 005f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0060 4800 |H | Short_Literal 0x0 0061 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0062 0000 0000 | | .BLANK 0000[0x6] 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 4802 |H | Short_Literal 0x2 006c e5fe | | Load 0x2,-0x2 006d e003 | | Load 0x0,0x3 006e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 006f 4800 |H | Short_Literal 0x0 0070 e005 | | Load 0x0,0x5 0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0073 016f | o | Execute Variant_Record,Equal 0074 6812 |h | Jump_Zero 0x87 0075 4803 |H | Short_Literal 0x3 0076 e5fe | | Load 0x2,-0x2 0077 e003 | | Load 0x0,0x3 0078 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0079 e004 | | Load 0x0,0x4 007a 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 007b 016f | o | Execute Variant_Record,Equal 007c 6808 |h | Jump_Zero 0x85 007d 4802 |H | Short_Literal 0x2 007e 00db | | Load_Top At_Offset_3 007f e001 | | Load 0x0,0x1 0080 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0081 e002 | | Load 0x0,0x2 0082 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0083 016f | o | Execute Variant_Record,Equal 0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0085 4800 |H | Short_Literal 0x0 0086 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0087 4800 |H | Short_Literal 0x0 0088 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4802 |H | Short_Literal 0x2 0094 e5fe | | Load 0x2,-0x2 0095 e003 | | Load 0x0,0x3 0096 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0097 4801 |H | Short_Literal 0x1 0098 e005 | | Load 0x0,0x5 0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009b 016f | o | Execute Variant_Record,Equal 009c 681a |h | Jump_Zero 0xb7 009d 4802 |H | Short_Literal 0x2 009e 00db | | Load_Top At_Offset_3 009f e001 | | Load 0x0,0x1 00a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a1 e002 | | Load 0x0,0x2 00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a3 016f | o | Execute Variant_Record,Equal 00a4 6810 |h | Jump_Zero 0xb5 00a5 4801 |H | Short_Literal 0x1 00a6 e005 | | Load 0x0,0x5 00a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a9 4802 |H | Short_Literal 0x2 00aa 4802 |H | Short_Literal 0x2 00ab 4804 |H | Short_Literal 0x4 00ac e5fe | | Load 0x2,-0x2 00ad e003 | | Load 0x0,0x3 00ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00af 4801 |H | Short_Literal 0x1 00b0 4804 |H | Short_Literal 0x4 00b1 e003 | | Load 0x0,0x3 00b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00b3 0f00 | | Execute_Immediate Equal,0x0 00b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b5 4800 |H | Short_Literal 0x0 00b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b7 4800 |H | Short_Literal 0x0 00b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b9 0000 0000 | | .BLANK 0000[0x7] 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 4802 |H | Short_Literal 0x2 00c4 e5fe | | Load 0x2,-0x2 00c5 e003 | | Load 0x0,0x3 00c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c7 4800 |H | Short_Literal 0x0 00c8 e005 | | Load 0x0,0x5 00c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cb 016f | o | Execute Variant_Record,Equal 00cc 6813 |h | Jump_Zero 0xe0 00cd 4803 |H | Short_Literal 0x3 00ce e5fe | | Load 0x2,-0x2 00cf e003 | | Load 0x0,0x3 00d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d1 e004 | | Load 0x0,0x4 00d2 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 00d3 016f | o | Execute Variant_Record,Equal 00d4 6809 |h | Jump_Zero 0xde 00d5 4802 |H | Short_Literal 0x2 00d6 00db | | Load_Top At_Offset_3 00d7 e001 | | Load 0x0,0x1 00d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d9 e002 | | Load 0x0,0x2 00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00db 016f | o | Execute Variant_Record,Equal 00dc 0f00 | | Execute_Immediate Equal,0x0 00dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00de 4800 |H | Short_Literal 0x0 00df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e0 4800 |H | Short_Literal 0x0 00e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf2b,0x0000,0x0001,0x0006 00ee 000b 0106 | | .DBG4T 0x000b,0x0106,0x8000,0x0000 00f2 0020 010c | | .DBG4T 0x0020,0x010c,0x8000,0x0000 00f6 0033 0112 | 3 | .DBG4T 0x0033,0x0112,0x0002,0x0000 00fa 006b 0116 | k | .DBG4T 0x006b,0x0116,0x0002,0x0000 00fe 0093 0119 | | .DBG4T 0x0093,0x0119,0x0002,0x0000 0102 00c3 011c | | .DBG4T 0x00c3,0x011c,0x0002,0x0000 0106 ; -------------------------------------------------------------------------------------- 0106 ; Debug chain 0106 ; -------------------------------------------------------------------------------------- 0106 0004 0000 | | .DBGLEN 0x0004,0x0000 0108 0013 0016 | | .DBGLNO 0x0013,0x0016,0x0019,0x001c 010c ; -------------------------------------------------------------------------------------- 010c ; Debug chain 010c ; -------------------------------------------------------------------------------------- 010c 0004 0000 | | .DBGLEN 0x0004,0x0000 010e 0020 0022 | "| .DBGLNO 0x0020,0x0022,0x0024,0x0026 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug chain 0112 ; -------------------------------------------------------------------------------------- 0112 0001 0001 | | .DBGLEN 0x0001,0x0001 0114 0033 0034 | 3 4| .DBGLNO 0x0033,0x0034 0116 ; -------------------------------------------------------------------------------------- 0116 ; Debug chain 0116 ; -------------------------------------------------------------------------------------- 0116 0000 0001 | | .DBGLEN 0x0000,0x0001 0118 006b | k | .DBGLNO 0x006b 0119 ; -------------------------------------------------------------------------------------- 0119 ; Debug chain 0119 ; -------------------------------------------------------------------------------------- 0119 0000 0001 | | .DBGLEN 0x0000,0x0001 011b 0093 | | .DBGLNO 0x0093 011c ; -------------------------------------------------------------------------------------- 011c ; Debug chain 011c ; -------------------------------------------------------------------------------------- 011c 0000 0001 | | .DBGLEN 0x0000,0x0001 011e 00c3 | | .DBGLNO 0x00c3 011f 0000 0000 | | .BLANK 0000[0xe1]