|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0060 | ` | .CONST 0x0060 ; 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 001f | | .CONST 0x001f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 4805 |H | Short_Literal 0x5 ; Debug Table 0x0 = .DEBUG 0x000b,0x0082,0x0000,0x0000,0x0058,0x7755,0x0000,0x00fe 000c 00b8 | | Action Set_Priority 000d 4801 |H | Short_Literal 0x1 000e 02cb | | Declare_Variable Entry 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0010,0x0084,0x0000,0x0000,0x0058,0x79c5,0x0000,0x000a ; Debug Table 0x1.0x0 = 0x10,0xffff 0011 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0012 0322 | " | Declare_Variable Record 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1 = 0x15,0xfffe 0016 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x2 = 0x16,0xfffd 0017 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x3 = 0x17,0xfffc 0018 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0019 480d |H | Short_Literal 0xd 001a 0299 0033 | 3| Declare_Subprogram INIT_0030,For_Accept 001c 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 001e 00bc | | Action Signal_Activated 001f BODY_0008: 001f 0092 0055 | U| Action Push_String_Extended,0x55 ; "ce:MACRO" ; Debug Table 0x1.0x4 = 0x1f,0x1 0021 e003 | | Load 0x0,0x3 0022 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0023 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x23,0x2 0024 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0025 0137 | 7 | Execute Entry,Rendezvous 0026 00cf | | Action Mark_Auxiliary 0027 8213 | | Call 0x1,0x13 ; Debug Table 0x1.0x6 = 0x27,0x3 ; Debug Table 0x1.0x7 = 0x27,0x4 0028 00c9 | | Action Pop_Auxiliary_Loop 0029 7ffd | | Jump 0x27 002a 0000 0000 | | .BLANK 0000[0x6] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e004 | | Load 0x0,0x4 ; Debug Table 0x2 = .DEBUG 0x0033,0x0096,0x0003,0x0000,0x0058,0x79c5,0x0000,0x0036 ; Debug Table 0x2.0x0 = 0x33,0x1 0034 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0035 a5fe | | Store_Unchecked 0x2,-0x2 0036 4101 |A | End_Rendezvous 0x1 0037 0000 | | .XXX[0x1] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0053 | S | .CONST 0x0053 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3 = .DEBUG 0x003b,0x009a,0x0004,0x0000,0x0058,0x79c5,0x0000,0x005e ; Debug Table 0x3.0x0 = 0x3b,0x1 003c e20e | | Load 0x1,0xe 003d e005 | | Load 0x0,0x5 003e e006 | | Load 0x0,0x6 003f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0040 00d1 | | Pop_Control Pop_Count_1 0041 c20f | | Store 0x1,0xf 0042 e20f | | Load 0x1,0xf ; Debug Table 0x3.0x1 = 0x42,0x2 0043 6808 |h | Jump_Zero 0x4c 0044 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x2 = 0x44,0x3 0045 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0046 e007 | | Load 0x0,0x7 0047 4802 |H | Short_Literal 0x2 0048 e008 | | Load 0x0,0x8 0049 1719 | | Execute Task,Entry_Call,Field_Number 0x19 004a c211 | | Store 0x1,0x11 004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004c 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0x4c,0x4 004d 4801 |H | Short_Literal 0x1 004e e20e | | Load 0x1,0xe 004f 4803 |H | Short_Literal 0x3 0050 e008 | | Load 0x0,0x8 0051 171b | | Execute Task,Entry_Call,Field_Number 0x1b 0052 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0053 TRAP_0038: 0053 0007 | | Action Break_Optional 0054 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x3.0x4 = 0x54,0x5 0055 ; -------------------------------------------------------------------------------------- 0055 ; STRING TABLE 0055 ; -------------------------------------------------------------------------------------- 0055 0004 | | .STRTAB 0x0004->0x0057 ; "ce:MACRO" 0056 000a | | .STREND 0x000a->0x005b 0057 6365 3a4d |ce:M| .STRTAB_STRINGS 005b 0000 0000 | | .BLANK 0000[0x5] 0060 ; -------------------------------------------------------------------------------------- 0060 ; Debug Table 0060 ; -------------------------------------------------------------------------------------- 0060 0003 0004 | | .CONST 0x0003,0x0004 0062 000b 0082 | | .DEBUG 0x000b,0x0082,0x0000,0x0000,0x0058,0x7755,0x0000,0x00fe 006a 0010 0084 | | .DEBUG 0x0010,0x0084,0x0000,0x0000,0x0058,0x79c5,0x0000,0x000a 0072 0033 0096 | 3 | .DEBUG 0x0033,0x0096,0x0003,0x0000,0x0058,0x79c5,0x0000,0x0036 007a 003b 009a | ; | .DEBUG 0x003b,0x009a,0x0004,0x0000,0x0058,0x79c5,0x0000,0x005e 0082 ; -------------------------------------------------------------------------------------- 0082 ; Debug3 Subtable 0x0 0082 ; -------------------------------------------------------------------------------------- 0082 0000 0000 | | .DBG3TAB 0x0000,0x0000 0084 ; -------------------------------------------------------------------------------------- 0084 ; Debug3 Subtable 0x1 0084 ; -------------------------------------------------------------------------------------- 0084 0004 0004 | | .DBG3TAB 0x0004,0x0004 0086 0010 ffff | | .CONST 0x0010,0xffff 0088 0015 fffe | | .CONST 0x0015,0xfffe 008a 0016 fffd | | .CONST 0x0016,0xfffd 008c 0017 fffc | | .CONST 0x0017,0xfffc 008e 001f 0001 | | .CONST 0x001f,0x0001 0090 0023 0002 | # | .CONST 0x0023,0x0002 0092 0027 0003 | ' | .CONST 0x0027,0x0003 0094 0027 0004 | ' | .CONST 0x0027,0x0004 0096 ; -------------------------------------------------------------------------------------- 0096 ; Debug3 Subtable 0x2 0096 ; -------------------------------------------------------------------------------------- 0096 0000 0001 | | .DBG3TAB 0x0000,0x0001 0098 0033 0001 | 3 | .CONST 0x0033,0x0001 009a ; -------------------------------------------------------------------------------------- 009a ; Debug3 Subtable 0x3 009a ; -------------------------------------------------------------------------------------- 009a 0000 0005 | | .DBG3TAB 0x0000,0x0005 009c 003b 0001 | ; | .CONST 0x003b,0x0001 009e 0042 0002 | B | .CONST 0x0042,0x0002 00a0 0044 0003 | D | .CONST 0x0044,0x0003 00a2 004c 0004 | L | .CONST 0x004c,0x0004 00a4 0054 0005 | T | .CONST 0x0054,0x0005 00a6 0000 0000 | | .BLANK 0000[0x15a]