|
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, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0158 | X | .CONST 0x0158 ; 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 0033 | 3 | .CONST 0x0033 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0192,0x8000,0x0000,0x0034,0x8444,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x3 = 0x11,0xfffc 0012 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0013 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x4 = 0x13,0xfffb 0014 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9 0019 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x19,0xfff8 001a 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x1a,0xfff7 001b 00bf | | Action Accept_Activation ; Debug Table 0x0.0x9 = 0x1b,0xfff6 001c 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001c,0x01a8,0x8000,0x0000,0x0034,0xa9e4,0x0000,0x0011 ; Debug Table 0x1.0x0 = 0x1c,0xffff 001d 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001e 0092 00d5 | | Action Push_String_Extended,0xd5 ; "Design_Facility" ; Debug Table 0x1.0x2 = 0x1e,0xfffd 0020 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x3 = 0x20,0xfffc 0021 e001 | | Load 0x0,0x1 0022 180e | | Execute Package,Field_Execute,Field_Number 0xe 0023 e001 | | Load 0x0,0x1 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 03f1 | | Declare_Variable Discrete,With_Value 0026 0092 00d6 | | Action Push_String_Extended,0xd6 ; "Lrm_Interface" ; Debug Table 0x1.0x4 = 0x26,0xfffb 0028 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x28,0xfffa 0029 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x6 = 0x29,0xfff9 002a 00c7 | | Action Elaborate_Subprogram 002b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x7 = 0x2b,0xfff8 002c 00c7 | | Action Elaborate_Subprogram 002d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x8 = 0x2d,0xfff7 002e 00c7 | | Action Elaborate_Subprogram 002f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x9 = 0x2f,0xfff6 0030 00c7 | | Action Elaborate_Subprogram 0031 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xa = 0x31,0xfff5 0032 00c7 | | Action Elaborate_Subprogram 0033 BODY_0008: 0033 0092 00d7 | | Action Push_String_Extended,0xd7 ; "<QUIET>" ; Debug Table 0x1.0xb = 0x33,0x1 0035 820d | | Call 0x1,0xd 0036 00bc | | Action Signal_Activated 0037 00bb | | Action Signal_Completion 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0040 | @ | .CONST 0x0040 ; Address of begin 0039 009a | | .CONST 0x009a ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x003b,0x01c2,0x0001,0x0000,0x0034,0x8444,0x0000,0x0008 ; Debug Table 0x2.0x0 = 0x3b,0xffff 003c 180e | | Execute Package,Field_Execute,Field_Number 0xe 003d e002 | | Load 0x0,0x2 003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003f 011e | | Execute Any,Convert 0040 BODY_0038: 0040 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x40,0x1 0041 e002 | | Load 0x0,0x2 0042 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0043 e002 | | Load 0x0,0x2 0044 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0045 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x45,0x2 0046 180e | | Execute Package,Field_Execute,Field_Number 0xe 0047 4800 |H | Short_Literal 0x0 0048 0092 00d8 | | Action Push_String_Extended,0xd8 ; "[Refresh (Response => \x22" 004a e5ff | | Load 0x2,-0x1 004b 01cc | | Execute Vector,Catenate 004c 0092 00d9 | | Action Push_String_Extended,0xd9 ; "\x22);]" 004e 01cc | | Execute Vector,Catenate 004f e003 | | Load 0x0,0x3 0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0051 e214 | | Load 0x1,0x14 ; Debug Table 0x2.0x3 = 0x51,0x3 0052 e004 | | Load 0x0,0x4 0053 180e | | Execute Package,Field_Execute,Field_Number 0xe 0054 a210 | | Store_Unchecked 0x1,0x10 0055 e216 | | Load 0x1,0x16 ; Debug Table 0x2.0x4 = 0x55,0x4 0056 e004 | | Load 0x0,0x4 0057 180e | | Execute Package,Field_Execute,Field_Number 0xe 0058 a211 | | Store_Unchecked 0x1,0x11 0059 e210 | | Load 0x1,0x10 ; Debug Table 0x2.0x5 = 0x59,0x5 005a 680d |h | Jump_Zero 0x68 005b e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x6 = 0x5b,0x6 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d 4803 |H | Short_Literal 0x3 005e 0092 00da | | Action Push_String_Extended,0xda ; "The " 0060 e214 | | Load 0x1,0x14 0061 01cc | | Execute Vector,Catenate 0062 0092 00db | | Action Push_String_Extended,0xdb ; " product is authorized on this machine." 0064 01cc | | Execute Vector,Catenate 0065 e003 | | Load 0x0,0x3 0066 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0067 780c |x | Jump 0x74 0068 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x7 = 0x68,0x7 0069 180e | | Execute Package,Field_Execute,Field_Number 0xe 006a 4805 |H | Short_Literal 0x5 006b 0092 00da | | Action Push_String_Extended,0xda ; "The " 006d e214 | | Load 0x1,0x14 006e 01cc | | Execute Vector,Catenate 006f 0092 00dc | | Action Push_String_Extended,0xdc ; " product is not authorized on this machine." 0071 01cc | | Execute Vector,Catenate 0072 e003 | | Load 0x0,0x3 0073 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0074 e211 | | Load 0x1,0x11 ; Debug Table 0x2.0x8 = 0x74,0x8 0075 680d |h | Jump_Zero 0x83 0076 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x9 = 0x76,0x9 0077 180e | | Execute Package,Field_Execute,Field_Number 0xe 0078 4803 |H | Short_Literal 0x3 0079 0092 00da | | Action Push_String_Extended,0xda ; "The " 007b e216 | | Load 0x1,0x16 007c 01cc | | Execute Vector,Catenate 007d 0092 00db | | Action Push_String_Extended,0xdb ; " product is authorized on this machine." 007f 01cc | | Execute Vector,Catenate 0080 e003 | | Load 0x0,0x3 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 780c |x | Jump 0x8f 0083 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0xa = 0x83,0xa 0084 180e | | Execute Package,Field_Execute,Field_Number 0xe 0085 4805 |H | Short_Literal 0x5 0086 0092 00da | | Action Push_String_Extended,0xda ; "The " 0088 e216 | | Load 0x1,0x16 0089 01cc | | Execute Vector,Catenate 008a 0092 00dc | | Action Push_String_Extended,0xdc ; " product is not authorized on this machine." 008c 01cc | | Execute Vector,Catenate 008d e003 | | Load 0x0,0x3 008e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008f e002 | | Load 0x0,0x2 ; Debug Table 0x2.0xb = 0x8f,0xb 0090 180e | | Execute Package,Field_Execute,Field_Number 0xe 0091 4800 |H | Short_Literal 0x0 0092 0092 00dd | | Action Push_String_Extended,0xdd ; "[Refresh has completed]" 0094 e003 | | Load 0x0,0x3 0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0096 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xc = 0x96,0xc 0097 e002 | | Load 0x0,0x2 0098 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0099 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009a TRAP_0038: 009a 0007 | | Action Break_Optional 009b 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xd = 0x9b,0xd 009c 4800 |H | Short_Literal 0x0 009d 4808 |H | Short_Literal 0x8 009e 0092 00de | | Action Push_String_Extended,0xde ; "Unexpected exception in Refresh" 00a0 00ea | | Load_Encached Null_String_Cache 00a1 e005 | | Load 0x0,0x5 00a2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a3 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0xe = 0xa3,0xe 00a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a5 4800 |H | Short_Literal 0x0 00a6 0092 00df | | Action Push_String_Extended,0xdf ; "[Refresh has completed with errors]" 00a8 e003 | | Load 0x0,0x3 00a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00aa 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xf = 0xaa,0xf 00ab e002 | | Load 0x0,0x2 00ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e214 | | Load 0x1,0x14 ; Debug Table 0x3 = .DEBUG 0x00b3,0x01e4,0x0002,0x0000,0x0034,0x8444,0x0000,0x0011 ; Debug Table 0x3.0x0 = 0xb3,0x1 00b4 00ca | | Action Exit_Nullary_Function 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e216 | | Load 0x1,0x16 ; Debug Table 0x4 = .DEBUG 0x00bb,0x01e8,0x0002,0x0000,0x0034,0x8444,0x0000,0x0016 ; Debug Table 0x4.0x0 = 0xbb,0x1 00bc 00ca | | Action Exit_Nullary_Function 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00c3,0x01ec,0x0002,0x0000,0x0034,0x8444,0x0000,0x0027 ; Debug Table 0x5.0x0 = 0xc3,0x1 00c4 e5fe | | Load 0x2,-0x2 00c5 e215 | | Load 0x1,0x15 00c6 e001 | | Load 0x0,0x1 00c7 180f | | Execute Package,Field_Execute,Field_Number 0xf 00c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4801 |H | Short_Literal 0x1 ; Debug Table 0x6 = .DEBUG 0x00d3,0x01f0,0x0002,0x0000,0x0034,0x8444,0x0000,0x003a ; Debug Table 0x6.0x0 = 0xd3,0x1 00d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d5 ; -------------------------------------------------------------------------------------- 00d5 ; STRING TABLE 00d5 ; -------------------------------------------------------------------------------------- 00d5 0018 | | .STRTAB 0x0018->0x00e1 ; "Design_Facility" 00d6 0025 | % | .STRTAB 0x0025->0x00e8 ; "Lrm_Interface" 00d7 0030 | 0 | .STRTAB 0x0030->0x00ef ; "<QUIET>" 00d8 0035 | 5 | .STRTAB 0x0035->0x00f2 ; "[Refresh (Response => \x22" 00d9 004a | J | .STRTAB 0x004a->0x00fe ; "\x22);]" 00da 004c | L | .STRTAB 0x004c->0x0100 ; "The " 00db 004e | N | .STRTAB 0x004e->0x0102 ; " product is authorized on this machine." 00dc 0073 | s | .STRTAB 0x0073->0x0115 ; " product is not authorized on this machine." 00dd 009c | | .STRTAB 0x009c->0x012b ; "[Refresh has completed]" 00de 00b1 | | .STRTAB 0x00b1->0x0136 ; "Unexpected exception in Refresh" 00df 00ce | | .STRTAB 0x00ce->0x0146 ; "[Refresh has completed with errors]" 00e0 00ef | | .STREND 0x00ef->0x0157 00e1 4465 7369 |Desi| .STRTAB_STRINGS 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0003 0007 | | .CONST 0x0003,0x0007 015a 000b 0192 | | .DEBUG 0x000b,0x0192,0x8000,0x0000,0x0034,0x8444,0x0000,0x0007 0162 001c 01a8 | | .DEBUG 0x001c,0x01a8,0x8000,0x0000,0x0034,0xa9e4,0x0000,0x0011 016a 003b 01c2 | ; | .DEBUG 0x003b,0x01c2,0x0001,0x0000,0x0034,0x8444,0x0000,0x0008 0172 00b3 01e4 | | .DEBUG 0x00b3,0x01e4,0x0002,0x0000,0x0034,0x8444,0x0000,0x0011 017a 00bb 01e8 | | .DEBUG 0x00bb,0x01e8,0x0002,0x0000,0x0034,0x8444,0x0000,0x0016 0182 00c3 01ec | | .DEBUG 0x00c3,0x01ec,0x0002,0x0000,0x0034,0x8444,0x0000,0x0027 018a 00d3 01f0 | | .DEBUG 0x00d3,0x01f0,0x0002,0x0000,0x0034,0x8444,0x0000,0x003a 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug3 Subtable 0x0 0192 ; -------------------------------------------------------------------------------------- 0192 000a 0000 | | .DBG3TAB 0x000a,0x0000 0194 000b ffff | | .CONST 0x000b,0xffff 0196 000d fffe | | .CONST 0x000d,0xfffe 0198 000f fffd | | .CONST 0x000f,0xfffd 019a 0011 fffc | | .CONST 0x0011,0xfffc 019c 0013 fffb | | .CONST 0x0013,0xfffb 019e 0015 fffa | | .CONST 0x0015,0xfffa 01a0 0017 fff9 | | .CONST 0x0017,0xfff9 01a2 0019 fff8 | | .CONST 0x0019,0xfff8 01a4 001a fff7 | | .CONST 0x001a,0xfff7 01a6 001b fff6 | | .CONST 0x001b,0xfff6 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug3 Subtable 0x1 01a8 ; -------------------------------------------------------------------------------------- 01a8 000b 0001 | | .DBG3TAB 0x000b,0x0001 01aa 001c ffff | | .CONST 0x001c,0xffff 01ac 001d fffe | | .CONST 0x001d,0xfffe 01ae 001e fffd | | .CONST 0x001e,0xfffd 01b0 0020 fffc | | .CONST 0x0020,0xfffc 01b2 0026 fffb | & | .CONST 0x0026,0xfffb 01b4 0028 fffa | ( | .CONST 0x0028,0xfffa 01b6 0029 fff9 | ) | .CONST 0x0029,0xfff9 01b8 002b fff8 | + | .CONST 0x002b,0xfff8 01ba 002d fff7 | - | .CONST 0x002d,0xfff7 01bc 002f fff6 | / | .CONST 0x002f,0xfff6 01be 0031 fff5 | 1 | .CONST 0x0031,0xfff5 01c0 0033 0001 | 3 | .CONST 0x0033,0x0001 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; Debug3 Subtable 0x2 01c2 ; -------------------------------------------------------------------------------------- 01c2 0001 000f | | .DBG3TAB 0x0001,0x000f 01c4 003b ffff | ; | .CONST 0x003b,0xffff 01c6 0040 0001 | @ | .CONST 0x0040,0x0001 01c8 0045 0002 | E | .CONST 0x0045,0x0002 01ca 0051 0003 | Q | .CONST 0x0051,0x0003 01cc 0055 0004 | U | .CONST 0x0055,0x0004 01ce 0059 0005 | Y | .CONST 0x0059,0x0005 01d0 005b 0006 | [ | .CONST 0x005b,0x0006 01d2 0068 0007 | h | .CONST 0x0068,0x0007 01d4 0074 0008 | t | .CONST 0x0074,0x0008 01d6 0076 0009 | v | .CONST 0x0076,0x0009 01d8 0083 000a | | .CONST 0x0083,0x000a 01da 008f 000b | | .CONST 0x008f,0x000b 01dc 0096 000c | | .CONST 0x0096,0x000c 01de 009b 000d | | .CONST 0x009b,0x000d 01e0 00a3 000e | | .CONST 0x00a3,0x000e 01e2 00aa 000f | | .CONST 0x00aa,0x000f 01e4 ; -------------------------------------------------------------------------------------- 01e4 ; Debug3 Subtable 0x3 01e4 ; -------------------------------------------------------------------------------------- 01e4 0000 0001 | | .DBG3TAB 0x0000,0x0001 01e6 00b3 0001 | | .CONST 0x00b3,0x0001 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug3 Subtable 0x4 01e8 ; -------------------------------------------------------------------------------------- 01e8 0000 0001 | | .DBG3TAB 0x0000,0x0001 01ea 00bb 0001 | | .CONST 0x00bb,0x0001 01ec ; -------------------------------------------------------------------------------------- 01ec ; Debug3 Subtable 0x5 01ec ; -------------------------------------------------------------------------------------- 01ec 0000 0001 | | .DBG3TAB 0x0000,0x0001 01ee 00c3 0001 | | .CONST 0x00c3,0x0001 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug3 Subtable 0x6 01f0 ; -------------------------------------------------------------------------------------- 01f0 0000 0001 | | .DBG3TAB 0x0000,0x0001 01f2 00d3 0001 | | .CONST 0x00d3,0x0001 01f4 0000 0000 | | .BLANK 0000[0xc]