|
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, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0068 | h | .CONST 0x0068 ; 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 001b | | .CONST 0x001b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x008a,0x8000,0x0000,0x004c,0x2ff6,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 00bf | | Action Accept_Activation 0010 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0010,0x0090,0x8000,0x0000,0x004c,0x3226,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x10,0xffff 0011 0092 005d | ]| Action Push_String_Extended,0x5d ; " Unread Message" ; Debug Table 0x1.0x1 = 0x11,0xfffe 0013 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x13,0xfffd 0014 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x14,0xfffc 0015 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0x4 = 0x15,0xfffb 0016 0618 | | Execute_Immediate Set_Value_Unchecked,0x18 0017 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x5 = 0x17,0xfffa 0018 00c7 | | Action Elaborate_Subprogram 0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x19,0xfff9 001a 00c7 | | Action Elaborate_Subprogram 001b BODY_0008: 001b 00bc | | Action Signal_Activated 001c 00bb | | Action Signal_Completion 001d 0000 0000 | | .XXX[0x3] 001f 0000 | | 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0037 | 7 | .CONST 0x0037 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 4801 |H | Short_Literal 0x1 ; Debug Table 0x2 = .DEBUG 0x0023,0x00a0,0x0001,0x0000,0x004c,0x2ff6,0x0000,0x0004 ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 e210 | | Load 0x1,0x10 0025 00e9 | | Load_Encached String_Cache 0026 0334 | 4 | Declare_Variable Array,With_Constraint 0027 00d8 | | Load_Top At_Offset_0 0028 01da | | Execute Vector,Bounds 0029 00e9 | | Load_Encached String_Cache 002a 035b | [ | Declare_Type Array,Constrained 002b 0337 | 7 | Declare_Variable Array 002c 00d8 | | Load_Top At_Offset_0 002d 01d9 | | Execute Vector,Reverse_Bounds 002e 0263 | c | Execute Discrete,Above_Bound 002f 7005 |p | Jump_Nonzero 0x35 0030 4820 |H | Short_Literal 0x20 0031 00d9 | | Load_Top At_Offset_1 0032 e403 | | Load 0x2,0x3 0033 01d6 | | Execute Vector,Field_Write 0034 3ffb |? | Loop_Increasing 0x30 0035 00d9 | | Load_Top At_Offset_1 0036 01d4 | | Execute Vector,Structure_Write 0037 BODY_0020: 0037 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x37,0x1 0038 e5ff | | Load 0x2,-0x1 0039 e001 | | Load 0x0,0x1 003a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0044 | D | .CONST 0x0044 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 00e8 | | Load_Encached Character_Cache ; Debug Table 0x3 = .DEBUG 0x0043,0x00a6,0x0001,0x0000,0x004c,0x2ff6,0x0000,0x000c ; Debug Table 0x3.0x0 = 0x43,0xffff 0044 BODY_0040: 0044 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0x44,0x1 0045 7001 |p | Jump_Nonzero 0x47 0046 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0x2 = 0x46,0x2 0047 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x3 = 0x47,0x3 0048 0c02 | | Execute_Immediate Greater_Equal,0x2 0049 6803 |h | Jump_Zero 0x4d 004a 4873 |Hs | Short_Literal 0x73 ; Debug Table 0x3.0x4 = 0x4a,0x4 004b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 004c 7802 |x | Jump 0x4f 004d 4820 |H | Short_Literal 0x20 ; Debug Table 0x3.0x5 = 0x4d,0x5 004e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 004f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x4f,0x6 0050 4820 |H | Short_Literal 0x20 0051 4808 |H | Short_Literal 0x8 0052 480a |H | Short_Literal 0xa 0053 e5fe | | Load 0x2,-0x2 0054 e002 | | Load 0x0,0x2 0055 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0056 e20f | | Load 0x1,0xf 0057 01cc | | Execute Vector,Catenate 0058 01cb | | Execute Vector,Append 0059 e5ff | | Load 0x2,-0x1 005a e001 | | Load 0x0,0x1 005b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005d ; -------------------------------------------------------------------------------------- 005d ; STRING TABLE 005d ; -------------------------------------------------------------------------------------- 005d 0004 | | .STRTAB 0x0004->0x005f ; " Unread Message" 005e 0011 | | .STREND 0x0011->0x0066 005f 2055 6e72 | Unr| .STRTAB_STRINGS 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0003 0004 | | .CONST 0x0003,0x0004 006a 000b 008a | | .DEBUG 0x000b,0x008a,0x8000,0x0000,0x004c,0x2ff6,0x0000,0x0003 0072 0010 0090 | | .DEBUG 0x0010,0x0090,0x8000,0x0000,0x004c,0x3226,0x0000,0x0007 007a 0023 00a0 | # | .DEBUG 0x0023,0x00a0,0x0001,0x0000,0x004c,0x2ff6,0x0000,0x0004 0082 0043 00a6 | C | .DEBUG 0x0043,0x00a6,0x0001,0x0000,0x004c,0x2ff6,0x0000,0x000c 008a ; -------------------------------------------------------------------------------------- 008a ; Debug3 Subtable 0x0 008a ; -------------------------------------------------------------------------------------- 008a 0002 0000 | | .DBG3TAB 0x0002,0x0000 008c 000b ffff | | .CONST 0x000b,0xffff 008e 000d fffe | | .CONST 0x000d,0xfffe 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug3 Subtable 0x1 0090 ; -------------------------------------------------------------------------------------- 0090 0007 0000 | | .DBG3TAB 0x0007,0x0000 0092 0010 ffff | | .CONST 0x0010,0xffff 0094 0011 fffe | | .CONST 0x0011,0xfffe 0096 0013 fffd | | .CONST 0x0013,0xfffd 0098 0014 fffc | | .CONST 0x0014,0xfffc 009a 0015 fffb | | .CONST 0x0015,0xfffb 009c 0017 fffa | | .CONST 0x0017,0xfffa 009e 0019 fff9 | | .CONST 0x0019,0xfff9 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; Debug3 Subtable 0x2 00a0 ; -------------------------------------------------------------------------------------- 00a0 0001 0001 | | .DBG3TAB 0x0001,0x0001 00a2 0023 ffff | # | .CONST 0x0023,0xffff 00a4 0037 0001 | 7 | .CONST 0x0037,0x0001 00a6 ; -------------------------------------------------------------------------------------- 00a6 ; Debug3 Subtable 0x3 00a6 ; -------------------------------------------------------------------------------------- 00a6 0001 0006 | | .DBG3TAB 0x0001,0x0006 00a8 0043 ffff | C | .CONST 0x0043,0xffff 00aa 0044 0001 | D | .CONST 0x0044,0x0001 00ac 0046 0002 | F | .CONST 0x0046,0x0002 00ae 0047 0003 | G | .CONST 0x0047,0x0003 00b0 004a 0004 | J | .CONST 0x004a,0x0004 00b2 004d 0005 | M | .CONST 0x004d,0x0005 00b4 004f 0006 | O | .CONST 0x004f,0x0006 00b6 0000 0000 | | .BLANK 0000[0x14a]