|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_46c4f6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0110 | | .CONST 0x0110 ; 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 003b | ; | .CONST 0x003b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 0092 00fe | | Action Push_String_Extended,0xfe ; "JJ-HH:MM" 000d 0129 | ) | Execute Any,Make_Visible 000e 0092 00ff | | Action Push_String_Extended,0xff ; "Fin JJ-HH:MM" 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 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 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0019 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 001b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 001d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 001f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0021 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0023 e002 | | Load 0x0,0x2 0024 e003 | | Load 0x0,0x3 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 4802 |H | Short_Literal 0x2 0027 032e | . | Declare_Type Record,Defined,Visible 0028 00bf | | Action Accept_Activation 0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002a 00c7 | | Action Elaborate_Subprogram 002b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002c 00c7 | | Action Elaborate_Subprogram 002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002e 00c7 | | Action Elaborate_Subprogram 002f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0030 00c7 | | Action Elaborate_Subprogram 0031 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0032 00c7 | | Action Elaborate_Subprogram 0033 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0034 00c7 | | Action Elaborate_Subprogram 0035 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0036 00c7 | | Action Elaborate_Subprogram 0037 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0038 00c7 | | Action Elaborate_Subprogram 0039 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003a 00c7 | | Action Elaborate_Subprogram 003b BODY_0008: 003b 00bc | | Action Signal_Activated 003c 00bb | | Action Signal_Completion 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 e5fd | | Load 0x2,-0x3 0044 00db | | Load_Top At_Offset_3 0045 8211 | | Call 0x1,0x11 0046 00d1 | | Pop_Control Pop_Count_1 0047 e5fd | | Load 0x2,-0x3 0048 e5fe | | Load 0x2,-0x2 0049 8212 | | Call 0x1,0x12 004a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 004b 0000 0000 | | .BLANK 0000[0x5] 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 e5fc | | Load 0x2,-0x4 0054 00db | | Load_Top At_Offset_3 0055 8211 | | Call 0x1,0x11 0056 00d1 | | Pop_Control Pop_Count_1 0057 e5fc | | Load 0x2,-0x4 0058 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0059 e5fe | | Load 0x2,-0x2 005a 8004 | | Call 0x0,0x4 005b 00d1 | | Pop_Control Pop_Count_1 005c e5fc | | Load 0x2,-0x4 005d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 005e e5fd | | Load 0x2,-0x3 005f 8005 | | Call 0x0,0x5 0060 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 00da | | Load_Top At_Offset_2 006c e5fe | | Load 0x2,-0x2 006d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 e5fe | | Load 0x2,-0x2 0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0085 0320 | | Declare_Variable Record,Duplicate 0086 00cd | | Action Spare6_Action 0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4823 |H# | Short_Literal 0x23 008c 4823 |H# | Short_Literal 0x23 008d e20d | | Load 0x1,0xd 008e e5ff | | Load 0x2,-0x1 008f 8213 | | Call 0x1,0x13 0090 e003 | | Load 0x0,0x3 0091 011c | | Execute Any,Convert_Unchecked 0092 1c01 | | Execute_Immediate Run_Utility,0x1 0093 01cc | | Execute Vector,Catenate 0094 01cb | | Execute Vector,Append 0095 e5ff | | Load 0x2,-0x1 0096 8214 | | Call 0x1,0x14 0097 8006 | | Call 0x0,0x6 0098 01cc | | Execute Vector,Catenate 0099 01cb | | Execute Vector,Append 009a e20e | | Load 0x1,0xe 009b 01cc | | Execute Vector,Catenate 009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a6 | | .CONST 0x00a6 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e218 | | Load 0x1,0x18 00a4 0322 | " | Declare_Variable Record 00a5 00e3 | | Load_Encached Natural_Cache 00a6 BODY_00a0: 00a6 00d8 | | Load_Top At_Offset_0 00a7 00da | | Load_Top At_Offset_2 00a8 e5ff | | Load 0x2,-0x1 00a9 8217 | | Call 0x1,0x17 00aa 00d1 | | Pop_Control Pop_Count_1 00ab 0059 | Y | Store_Top Discrete,At_Offset_1 00ac 00d9 | | Load_Top At_Offset_1 00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b7 | | .CONST 0x00b7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0005 | | .CONST 0x0005 ; Number of locals 00b3 INIT_00b0: 00b3 00e3 | | Load_Encached Natural_Cache 00b4 03e9 | | Declare_Variable Discrete,Duplicate 00b5 03e9 | | Declare_Variable Discrete,Duplicate 00b6 03e9 | | Declare_Variable Discrete,Duplicate 00b7 BODY_00b0: 00b7 00db | | Load_Top At_Offset_3 00b8 e20d | | Load 0x1,0xd 00b9 e5ff | | Load 0x2,-0x1 00ba 8007 | | Call 0x0,0x7 00bb c402 | | Store 0x2,0x2 00bc 00da | | Load_Top At_Offset_2 00bd 4823 |H# | Short_Literal 0x23 00be e402 | | Load 0x2,0x2 00bf 0a01 | | Execute_Immediate Plus,0x1 00c0 00d8 | | Load_Top At_Offset_0 00c1 00e2 | | Load_Encached Integer_Cache 00c2 0260 | ` | Execute Discrete,In_Type 00c3 7001 |p | Jump_Nonzero 0xc5 00c4 0801 | | Execute_Immediate Raise,0x1 00c5 e5ff | | Load 0x2,-0x1 00c6 01dc | | Execute Vector,Last 00c7 e5ff | | Load 0x2,-0x1 00c8 01cf | | Execute Vector,Slice_Read 00c9 8008 | | Call 0x0,0x8 00ca 005b | [ | Store_Top Discrete,At_Offset_3 00cb 00d9 | | Load_Top At_Offset_1 00cc e5fe | | Load 0x2,-0x2 00cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ce e403 | | Load 0x2,0x3 00cf 0a01 | | Execute_Immediate Plus,0x1 00d0 00d8 | | Load_Top At_Offset_0 00d1 00e2 | | Load_Encached Integer_Cache 00d2 0260 | ` | Execute Discrete,In_Type 00d3 7001 |p | Jump_Nonzero 0xd5 00d4 0801 | | Execute_Immediate Raise,0x1 00d5 e5ff | | Load 0x2,-0x1 00d6 01dc | | Execute Vector,Last 00d7 e5ff | | Load 0x2,-0x1 00d8 01cf | | Execute Vector,Slice_Read 00d9 8009 | | Call 0x0,0x9 00da 00d1 | | Pop_Control Pop_Count_1 00db 005a | Z | Store_Top Discrete,At_Offset_2 00dc 00d8 | | Load_Top At_Offset_0 00dd e20e | | Load 0x1,0xe 00de 00db | | Load_Top At_Offset_3 00df 0a02 | | Execute_Immediate Plus,0x2 00e0 00d8 | | Load_Top At_Offset_0 00e1 00e2 | | Load_Encached Integer_Cache 00e2 0260 | ` | Execute Discrete,In_Type 00e3 7001 |p | Jump_Nonzero 0xe5 00e4 0801 | | Execute_Immediate Raise,0x1 00e5 e5ff | | Load 0x2,-0x1 00e6 01dc | | Execute Vector,Last 00e7 e5ff | | Load 0x2,-0x1 00e8 01cf | | Execute Vector,Slice_Read 00e9 8007 | | Call 0x0,0x7 00ea 0059 | Y | Store_Top Discrete,At_Offset_1 00eb e5fe | | Load 0x2,-0x2 00ec e402 | | Load 0x2,0x2 00ed 0a01 | | Execute_Immediate Plus,0x1 00ee 00d8 | | Load_Top At_Offset_0 00ef 00e2 | | Load_Encached Integer_Cache 00f0 0260 | ` | Execute Discrete,In_Type 00f1 7001 |p | Jump_Nonzero 0xf3 00f2 0801 | | Execute_Immediate Raise,0x1 00f3 e403 | | Load 0x2,0x3 00f4 0aff | | Execute_Immediate Plus,-0x1 00f5 e5ff | | Load 0x2,-0x1 00f6 01cf | | Execute Vector,Slice_Read 00f7 e003 | | Load 0x0,0x3 00f8 1c02 | | Execute_Immediate Run_Utility,0x2 00f9 8211 | | Call 0x1,0x11 00fa 00d1 | | Pop_Control Pop_Count_1 00fb 00d8 | | Load_Top At_Offset_0 00fc a5fd | | Store_Unchecked 0x2,-0x3 00fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fe ; -------------------------------------------------------------------------------------- 00fe ; STRING TABLE 00fe ; -------------------------------------------------------------------------------------- 00fe 0006 | | .STRTAB 0x0006->0x0101 ; "JJ-HH:MM" 00ff 000c | | .STRTAB 0x000c->0x0105 ; "Fin JJ-HH:MM" 0100 0016 | | .STREND 0x0016->0x010b 0101 4a4a 2d48 |JJ-H| .STRTAB_STRINGS 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0009 | | .DEBUG4 0x0004,0x0009,0x7361,0x0000,0x0001,0x000b 0116 000b 0142 | B| .DBG4T 0x000b,0x0142,0x8000,0x8000 011a 0029 015c | ) \| .DBG4T 0x0029,0x015c,0x8000,0x8000 011e 0043 0170 | C p| .DBG4T 0x0043,0x0170,0x0001,0x0000 0122 0053 0174 | S t| .DBG4T 0x0053,0x0174,0x0001,0x0000 0126 006b 0179 | k y| .DBG4T 0x006b,0x0179,0x0001,0x0000 012a 0073 017c | s || .DBG4T 0x0073,0x017c,0x0001,0x0000 012e 007b 017f | { | .DBG4T 0x007b,0x017f,0x0002,0x0000 0132 0083 0182 | | .DBG4T 0x0083,0x0182,0x0002,0x0000 0136 008b 0185 | | .DBG4T 0x008b,0x0185,0x0002,0x0000 013a 00a3 0188 | | .DBG4T 0x00a3,0x0188,0x0002,0x0000 013e 00b3 018e | | .DBG4T 0x00b3,0x018e,0x0001,0x0000 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug chain 0142 ; -------------------------------------------------------------------------------------- 0142 000c 0000 | | .DBGLEN 0x000c,0x0000 0144 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023 0150 0001 0002 | | .XXX[0xc] 0152 0006 0007 | | 0154 0008 0009 | | 0156 000a 000b | | 0158 000c 000d | | 015a 000e 000f | | 015c ; -------------------------------------------------------------------------------------- 015c ; Debug chain 015c ; -------------------------------------------------------------------------------------- 015c 0009 0000 | | .DBGLEN 0x0009,0x0000 015e 0029 002b | ) +| .DBGLNO 0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039 0167 0002 0003 | | .XXX[0x9] 0169 0004 0005 | | 016b 0006 0007 | | 016d 0008 0009 | | 016f 000a | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug chain 0170 ; -------------------------------------------------------------------------------------- 0170 0000 0002 | | .DBGLEN 0x0000,0x0002 0172 0043 0047 | C G| .DBGLNO 0x0043,0x0047 0174 ; -------------------------------------------------------------------------------------- 0174 ; Debug chain 0174 ; -------------------------------------------------------------------------------------- 0174 0000 0003 | | .DBGLEN 0x0000,0x0003 0176 0053 0057 | S W| .DBGLNO 0x0053,0x0057,0x005c 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0000 0001 | | .DBGLEN 0x0000,0x0001 017b 006b | k | .DBGLNO 0x006b 017c ; -------------------------------------------------------------------------------------- 017c ; Debug chain 017c ; -------------------------------------------------------------------------------------- 017c 0000 0001 | | .DBGLEN 0x0000,0x0001 017e 0073 | s | .DBGLNO 0x0073 017f ; -------------------------------------------------------------------------------------- 017f ; Debug chain 017f ; -------------------------------------------------------------------------------------- 017f 0000 0001 | | .DBGLEN 0x0000,0x0001 0181 007b | { | .DBGLNO 0x007b 0182 ; -------------------------------------------------------------------------------------- 0182 ; Debug chain 0182 ; -------------------------------------------------------------------------------------- 0182 0000 0001 | | .DBGLEN 0x0000,0x0001 0184 0083 | | .DBGLNO 0x0083 0185 ; -------------------------------------------------------------------------------------- 0185 ; Debug chain 0185 ; -------------------------------------------------------------------------------------- 0185 0000 0001 | | .DBGLEN 0x0000,0x0001 0187 008b | | .DBGLNO 0x008b 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug chain 0188 ; -------------------------------------------------------------------------------------- 0188 0002 0002 | | .DBGLEN 0x0002,0x0002 018a 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00a6,0x00ac 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 0001 0006 | | .DBGLEN 0x0001,0x0006 0190 00b3 00b7 | | .DBGLNO 0x00b3,0x00b7,0x00bc,0x00cb,0x00dc,0x00eb,0x00fb 0197 0000 0000 | | .BLANK 0000[0x69]