|
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_0ea8df
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0182,0x8000,0x0000,0x0059,0xeec5,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xe,0xfffe 0010 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd 0012 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x12,0xfffc 0014 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x14,0xfffb 0016 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x16,0xfffa 0018 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x18,0xfff9 001a 00bf | | Action Accept_Activation 001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x001b,0x0192,0x8000,0x0000,0x0059,0xf6b5,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x1b,0xffff 001c 00c7 | | Action Elaborate_Subprogram 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001e 00c7 | | Action Elaborate_Subprogram 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x1f,0xfffd 0020 00c7 | | Action Elaborate_Subprogram 0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x3 = 0x21,0xfffc 0022 00c7 | | Action Elaborate_Subprogram 0023 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x4 = 0x23,0xfffb 0024 00c7 | | Action Elaborate_Subprogram 0025 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x5 = 0x25,0xfffa 0026 00c7 | | Action Elaborate_Subprogram 0027 BODY_0008: 0027 00bc | | Action Signal_Activated 0028 00bb | | Action Signal_Completion 0029 0000 0000 | | .BLANK 0000[0x7] 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 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0033,0x01a0,0x0001,0x0000,0x0059,0xeec5,0x0000,0x0010 ; Debug Table 0x2.0x0 = 0x33,0x1 0034 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0035 e003 | | Load 0x0,0x3 0036 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0037 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x37,0x2 0038 4800 |H | Short_Literal 0x0 0039 e5ff | | Load 0x2,-0x1 003a e004 | | Load 0x0,0x4 003b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0043,0x01a6,0x0001,0x0000,0x0059,0xeec5,0x0000,0x001e ; Debug Table 0x3.0x0 = 0x43,0x1 0044 4800 |H | Short_Literal 0x0 0045 0092 00e3 | | Action Push_String_Extended,0xe3 ; "[End of " 0047 e5ff | | Load 0x2,-0x1 0048 01cc | | Execute Vector,Catenate 0049 0092 00e4 | | Action Push_String_Extended,0xe4 ; " command -- No errors detected]" 004b 01cc | | Execute Vector,Catenate 004c e004 | | Load 0x0,0x4 004d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004e e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x4e,0x2 004f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0050 e003 | | Load 0x0,0x3 0051 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0052 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x005b,0x01ac,0x0001,0x0000,0x0059,0xeec5,0x0000,0x002c ; Debug Table 0x4.0x0 = 0x5b,0x1 005c 4800 |H | Short_Literal 0x0 005d 0092 00e5 | | Action Push_String_Extended,0xe5 ; "[" 005f e5ff | | Load 0x2,-0x1 0060 01cc | | Execute Vector,Catenate 0061 0092 00e6 | | Action Push_String_Extended,0xe6 ; " terminated]" 0063 01cc | | Execute Vector,Catenate 0064 e004 | | Load 0x0,0x4 0065 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0066 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0x66,0x2 0067 e005 | | Load 0x0,0x5 0068 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0069 6803 |h | Jump_Zero 0x6d 006a e005 | | Load 0x0,0x5 ; Debug Table 0x4.0x2 = 0x6a,0x3 006b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 006c 0257 | W | Execute Discrete,Raise 006d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 006e 0000 0000 | | .XXX[0x2] 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 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x0073,0x01b4,0x0001,0x0000,0x0059,0xeec5,0x0000,0x003a ; Debug Table 0x5.0x0 = 0x73,0x1 0074 4808 |H | Short_Literal 0x8 0075 0092 00e5 | | Action Push_String_Extended,0xe5 ; "[" 0077 e5ff | | Load 0x2,-0x1 0078 01cc | | Execute Vector,Catenate 0079 0092 00e7 | | Action Push_String_Extended,0xe7 ; " terminated due to unexpected exception " 007b 01cc | | Execute Vector,Catenate 007c e5fd | | Load 0x2,-0x3 007d 01cc | | Execute Vector,Catenate 007e 0092 00e8 | | Action Push_String_Extended,0xe8 ; "]" 0080 01cc | | Execute Vector,Catenate 0081 e004 | | Load 0x0,0x4 0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0083 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0x83,0x2 0084 e005 | | Load 0x0,0x5 0085 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0086 6803 |h | Jump_Zero 0x8a 0087 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x2 = 0x87,0x3 0088 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0089 0257 | W | Execute Discrete,Raise 008a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0093,0x01bc,0x0001,0x0000,0x0059,0xeec5,0x0000,0x004f ; Debug Table 0x6.0x0 = 0x93,0x1 0094 e001 | | Load 0x0,0x1 0095 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0096 6806 |h | Jump_Zero 0x9d 0097 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x1 = 0x97,0x2 0098 4803 |H | Short_Literal 0x3 0099 e5fe | | Load 0x2,-0x2 009a e004 | | Load 0x0,0x4 009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 009d 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x9d,0x3 009e e001 | | Load 0x0,0x1 009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a0 6810 |h | Jump_Zero 0xb1 00a1 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x3 = 0xa1,0x4 00a2 4806 |H | Short_Literal 0x6 00a3 0092 00e9 | | Action Push_String_Extended,0xe9 ; "Warning reported while " 00a5 e5fe | | Load 0x2,-0x2 00a6 01cc | | Execute Vector,Catenate 00a7 0092 00ea | | Action Push_String_Extended,0xea ; ": " 00a9 01cc | | Execute Vector,Catenate 00aa e5ff | | Load 0x2,-0x1 00ab e001 | | Load 0x0,0x1 00ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ad 01cc | | Execute Vector,Catenate 00ae e004 | | Load 0x0,0x4 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b1 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x4 = 0xb1,0x5 00b2 e001 | | Load 0x0,0x1 00b3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b4 680e |h | Jump_Zero 0xc3 00b5 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x5 = 0xb5,0x6 00b6 0092 00eb | | Action Push_String_Extended,0xeb ; "Error reported while " 00b8 e5fe | | Load 0x2,-0x2 00b9 01cc | | Execute Vector,Catenate 00ba 0092 00ea | | Action Push_String_Extended,0xea ; ": " 00bc 01cc | | Execute Vector,Catenate 00bd e5ff | | Load 0x2,-0x1 00be e001 | | Load 0x0,0x1 00bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c0 01cc | | Execute Vector,Catenate 00c1 8213 | | Call 0x1,0x13 00c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x6 = 0xc3,0x7 00c4 0092 00ec | | Action Push_String_Extended,0xec ; "Confusion reported while " 00c6 e5fe | | Load 0x2,-0x2 00c7 01cc | | Execute Vector,Catenate 00c8 0092 00ea | | Action Push_String_Extended,0xea ; ": " 00ca 01cc | | Execute Vector,Catenate 00cb e5ff | | Load 0x2,-0x1 00cc e001 | | Load 0x0,0x1 00cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ce 01cc | | Execute Vector,Catenate 00cf 8213 | | Call 0x1,0x13 00d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x00db,0x01cc,0x0001,0x0000,0x0059,0xeec5,0x0000,0x0061 ; Debug Table 0x7.0x0 = 0xdb,0x1 00dc 4805 |H | Short_Literal 0x5 00dd e5ff | | Load 0x2,-0x1 00de e004 | | Load 0x0,0x4 00df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e0 e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x1 = 0xe0,0x2 00e1 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 00e2 0257 | W | Execute Discrete,Raise 00e3 ; -------------------------------------------------------------------------------------- 00e3 ; STRING TABLE 00e3 ; -------------------------------------------------------------------------------------- 00e3 0016 | | .STRTAB 0x0016->0x00ee ; "[End of " 00e4 001c | | .STRTAB 0x001c->0x00f2 ; " command -- No errors detected]" 00e5 0039 | 9 | .STRTAB 0x0039->0x0101 ; "[" 00e6 0038 | 8 | .STRTAB 0x0038->0x0102 ; " terminated]" 00e7 0042 | B | .STRTAB 0x0042->0x0108 ; " terminated due to unexpected exception " 00e8 0068 | h | .STRTAB 0x0068->0x011c ; "]" 00e9 0067 | g | .STRTAB 0x0067->0x011c ; "Warning reported while " 00ea 007c | | | .STRTAB 0x007c->0x0128 ; ": " 00eb 007c | | | .STRTAB 0x007c->0x0129 ; "Error reported while " 00ec 008f | | .STRTAB 0x008f->0x0133 ; "Confusion reported while " 00ed 00a6 | | .STREND 0x00a6->0x0140 00ee 5b45 6e64 |[End| .STRTAB_STRINGS 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0003 0008 | | .CONST 0x0003,0x0008 0142 000b 0182 | | .DEBUG 0x000b,0x0182,0x8000,0x0000,0x0059,0xeec5,0x0000,0x0009 014a 001b 0192 | | .DEBUG 0x001b,0x0192,0x8000,0x0000,0x0059,0xf6b5,0x0000,0x000d 0152 0033 01a0 | 3 | .DEBUG 0x0033,0x01a0,0x0001,0x0000,0x0059,0xeec5,0x0000,0x0010 015a 0043 01a6 | C | .DEBUG 0x0043,0x01a6,0x0001,0x0000,0x0059,0xeec5,0x0000,0x001e 0162 005b 01ac | [ | .DEBUG 0x005b,0x01ac,0x0001,0x0000,0x0059,0xeec5,0x0000,0x002c 016a 0073 01b4 | s | .DEBUG 0x0073,0x01b4,0x0001,0x0000,0x0059,0xeec5,0x0000,0x003a 0172 0093 01bc | | .DEBUG 0x0093,0x01bc,0x0001,0x0000,0x0059,0xeec5,0x0000,0x004f 017a 00db 01cc | | .DEBUG 0x00db,0x01cc,0x0001,0x0000,0x0059,0xeec5,0x0000,0x0061 0182 ; -------------------------------------------------------------------------------------- 0182 ; Debug3 Subtable 0x0 0182 ; -------------------------------------------------------------------------------------- 0182 0007 0000 | | .DBG3TAB 0x0007,0x0000 0184 000b ffff | | .CONST 0x000b,0xffff 0186 000e fffe | | .CONST 0x000e,0xfffe 0188 0010 fffd | | .CONST 0x0010,0xfffd 018a 0012 fffc | | .CONST 0x0012,0xfffc 018c 0014 fffb | | .CONST 0x0014,0xfffb 018e 0016 fffa | | .CONST 0x0016,0xfffa 0190 0018 fff9 | | .CONST 0x0018,0xfff9 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug3 Subtable 0x1 0192 ; -------------------------------------------------------------------------------------- 0192 0006 0000 | | .DBG3TAB 0x0006,0x0000 0194 001b ffff | | .CONST 0x001b,0xffff 0196 001d fffe | | .CONST 0x001d,0xfffe 0198 001f fffd | | .CONST 0x001f,0xfffd 019a 0021 fffc | ! | .CONST 0x0021,0xfffc 019c 0023 fffb | # | .CONST 0x0023,0xfffb 019e 0025 fffa | % | .CONST 0x0025,0xfffa 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug3 Subtable 0x2 01a0 ; -------------------------------------------------------------------------------------- 01a0 0000 0002 | | .DBG3TAB 0x0000,0x0002 01a2 0033 0001 | 3 | .CONST 0x0033,0x0001 01a4 0037 0002 | 7 | .CONST 0x0037,0x0002 01a6 ; -------------------------------------------------------------------------------------- 01a6 ; Debug3 Subtable 0x3 01a6 ; -------------------------------------------------------------------------------------- 01a6 0000 0002 | | .DBG3TAB 0x0000,0x0002 01a8 0043 0001 | C | .CONST 0x0043,0x0001 01aa 004e 0002 | N | .CONST 0x004e,0x0002 01ac ; -------------------------------------------------------------------------------------- 01ac ; Debug3 Subtable 0x4 01ac ; -------------------------------------------------------------------------------------- 01ac 0000 0003 | | .DBG3TAB 0x0000,0x0003 01ae 005b 0001 | [ | .CONST 0x005b,0x0001 01b0 0066 0002 | f | .CONST 0x0066,0x0002 01b2 006a 0003 | j | .CONST 0x006a,0x0003 01b4 ; -------------------------------------------------------------------------------------- 01b4 ; Debug3 Subtable 0x5 01b4 ; -------------------------------------------------------------------------------------- 01b4 0000 0003 | | .DBG3TAB 0x0000,0x0003 01b6 0073 0001 | s | .CONST 0x0073,0x0001 01b8 0083 0002 | | .CONST 0x0083,0x0002 01ba 0087 0003 | | .CONST 0x0087,0x0003 01bc ; -------------------------------------------------------------------------------------- 01bc ; Debug3 Subtable 0x6 01bc ; -------------------------------------------------------------------------------------- 01bc 0000 0007 | | .DBG3TAB 0x0000,0x0007 01be 0093 0001 | | .CONST 0x0093,0x0001 01c0 0097 0002 | | .CONST 0x0097,0x0002 01c2 009d 0003 | | .CONST 0x009d,0x0003 01c4 00a1 0004 | | .CONST 0x00a1,0x0004 01c6 00b1 0005 | | .CONST 0x00b1,0x0005 01c8 00b5 0006 | | .CONST 0x00b5,0x0006 01ca 00c3 0007 | | .CONST 0x00c3,0x0007 01cc ; -------------------------------------------------------------------------------------- 01cc ; Debug3 Subtable 0x7 01cc ; -------------------------------------------------------------------------------------- 01cc 0000 0002 | | .DBG3TAB 0x0000,0x0002 01ce 00db 0001 | | .CONST 0x00db,0x0001 01d0 00e0 0002 | | .CONST 0x00e0,0x0002 01d2 0000 0000 | | .BLANK 0000[0x2e]