|
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 0078 | x | .CONST 0x0078 ; 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 0017 | | .CONST 0x0017 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x009a,0x8000,0x0000,0x0054,0xf505,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe 000e 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd 0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x10,0xfffc 0011 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x11,0xfffb 0012 00bf | | Action Accept_Activation ; Debug Table 0x0.0x5 = 0x12,0xfffa 0013 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0013,0x00a8,0x8000,0x0000,0x0057,0x96f5,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x13,0xffff 0014 00c7 | | Action Elaborate_Subprogram 0015 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x15,0xfffe 0016 00c7 | | Action Elaborate_Subprogram 0017 BODY_0008: 0017 00bc | | Action Signal_Activated 0018 00bb | | Action Signal_Completion 0019 0000 0000 | | .BLANK 0000[0x7] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0024 | $ | .CONST 0x0024 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2 = .DEBUG 0x0023,0x00ae,0x0001,0x0000,0x0054,0xf505,0x0000,0x0008 ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 BODY_0020: 0024 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1 = 0x24,0x1 0025 e5fe | | Load 0x2,-0x2 0026 e5ff | | Load 0x2,-0x1 0027 e001 | | Load 0x0,0x1 0028 180e | | Execute Package,Field_Execute,Field_Number 0xe 0029 0059 | Y | Store_Top Discrete,At_Offset_1 002a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x2a,0x2 002b 7009 |p | Jump_Nonzero 0x35 002c 0092 0048 | H| Action Push_String_Extended,0x48 ; "Unable to send message to '" ; Debug Table 0x2.0x3 = 0x2c,0x3 002e e5ff | | Load 0x2,-0x1 002f 01cc | | Execute Vector,Catenate 0030 0092 0049 | I| Action Push_String_Extended,0x49 ; "'." 0032 01cc | | Execute Vector,Catenate 0033 e002 | | Load 0x0,0x2 0034 180d | | Execute Package,Field_Execute,Field_Number 0xd 0035 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0036 0000 0000 | | .XXX[0x2] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003c | < | .CONST 0x003c ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3 = .DEBUG 0x003b,0x00b8,0x0001,0x0000,0x0054,0xf505,0x0000,0x0016 ; Debug Table 0x3.0x0 = 0x3b,0xffff 003c BODY_0038: 003c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x3c,0x1 003d e5ff | | Load 0x2,-0x1 003e e001 | | Load 0x0,0x1 003f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0040 0059 | Y | Store_Top Discrete,At_Offset_1 0041 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x41,0x2 0042 7004 |p | Jump_Nonzero 0x47 0043 0092 004a | J| Action Push_String_Extended,0x4a ; "Unable to send message due to internal error." ; Debug Table 0x3.0x3 = 0x43,0x3 0045 e002 | | Load 0x0,0x2 0046 180d | | Execute Package,Field_Execute,Field_Number 0xd 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0048 ; -------------------------------------------------------------------------------------- 0048 ; STRING TABLE 0048 ; -------------------------------------------------------------------------------------- 0048 0008 | | .STRTAB 0x0008->0x004c ; "Unable to send message to '" 0049 0021 | ! | .STRTAB 0x0021->0x0059 ; "'." 004a 0021 | ! | .STRTAB 0x0021->0x005a ; "Unable to send message due to internal error." 004b 004c | L | .STREND 0x004c->0x0071 004c 556e 6162 |Unab| .STRTAB_STRINGS 0071 0000 0000 | | .BLANK 0000[0x7] 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0003 0004 | | .CONST 0x0003,0x0004 007a 000b 009a | | .DEBUG 0x000b,0x009a,0x8000,0x0000,0x0054,0xf505,0x0000,0x0003 0082 0013 00a8 | | .DEBUG 0x0013,0x00a8,0x8000,0x0000,0x0057,0x96f5,0x0000,0x0007 008a 0023 00ae | # | .DEBUG 0x0023,0x00ae,0x0001,0x0000,0x0054,0xf505,0x0000,0x0008 0092 003b 00b8 | ; | .DEBUG 0x003b,0x00b8,0x0001,0x0000,0x0054,0xf505,0x0000,0x0016 009a ; -------------------------------------------------------------------------------------- 009a ; Debug3 Subtable 0x0 009a ; -------------------------------------------------------------------------------------- 009a 0006 0000 | | .DBG3TAB 0x0006,0x0000 009c 000b ffff | | .CONST 0x000b,0xffff 009e 000c fffe | | .CONST 0x000c,0xfffe 00a0 000e fffd | | .CONST 0x000e,0xfffd 00a2 0010 fffc | | .CONST 0x0010,0xfffc 00a4 0011 fffb | | .CONST 0x0011,0xfffb 00a6 0012 fffa | | .CONST 0x0012,0xfffa 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug3 Subtable 0x1 00a8 ; -------------------------------------------------------------------------------------- 00a8 0002 0000 | | .DBG3TAB 0x0002,0x0000 00aa 0013 ffff | | .CONST 0x0013,0xffff 00ac 0015 fffe | | .CONST 0x0015,0xfffe 00ae ; -------------------------------------------------------------------------------------- 00ae ; Debug3 Subtable 0x2 00ae ; -------------------------------------------------------------------------------------- 00ae 0001 0003 | | .DBG3TAB 0x0001,0x0003 00b0 0023 ffff | # | .CONST 0x0023,0xffff 00b2 0024 0001 | $ | .CONST 0x0024,0x0001 00b4 002a 0002 | * | .CONST 0x002a,0x0002 00b6 002c 0003 | , | .CONST 0x002c,0x0003 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; Debug3 Subtable 0x3 00b8 ; -------------------------------------------------------------------------------------- 00b8 0001 0003 | | .DBG3TAB 0x0001,0x0003 00ba 003b ffff | ; | .CONST 0x003b,0xffff 00bc 003c 0001 | < | .CONST 0x003c,0x0001 00be 0041 0002 | A | .CONST 0x0041,0x0002 00c0 0043 0003 | C | .CONST 0x0043,0x0003 00c2 0000 0000 | | .BLANK 0000[0x13e]