|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00d8 | | .CONST 0x00d8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0016 | | .CONST 0x0016 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 BODY_0008: 0016 00bc | | Action Signal_Activated 0017 00bb | | Action Signal_Completion 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 0092 0097 | | Action Push_String_Extended,0x97 ; "<PROFILE>" 001d 0092 0098 | | Action Push_String_Extended,0x98 ; "Name => (Print Queue Server)" 001f 4800 |H | Short_Literal 0x0 0020 0092 0099 | | Action Push_String_Extended,0x99 ; "$" 0022 4800 |H | Short_Literal 0x0 0023 0092 009a | | Action Push_String_Extended,0x9a ; "!machine.release.current.activity" 0025 0092 009b | | Action Push_String_Extended,0x9b ; "(\x22" 0027 e5ff | | Load 0x2,-0x1 0028 01cc | | Execute Vector,Catenate 0029 0092 009c | | Action Push_String_Extended,0x9c ; "\x22)" 002b 01cc | | Execute Vector,Catenate 002c 0092 009d | | Action Push_String_Extended,0x9d ; "Queue_Service.Serve" 002e 0092 009e | | Action Push_String_Extended,0x9e ; "!Tools.Rpc_Servers" 0030 e001 | | Load 0x0,0x1 0031 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0032 e001 | | Load 0x0,0x1 0033 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0034 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0060 | ` | .CONST 0x0060 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0010 | | .CONST 0x0010 ; Number of locals 003b INIT_0038: 003b 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 003d e002 | | Load 0x0,0x2 003e 1910 | | Execute Package,Field_Reference,Field_Number 0x10 003f 00c6 | | Action Check_Subprogram_Elaborated 0040 4909 |I | Short_Literal 0x109 0041 e003 | | Load 0x0,0x3 0042 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0043 0320 | | Declare_Variable Record,Duplicate 0044 00d0 | | Action Swap_Control 0045 00d1 | | Pop_Control Pop_Count_1 0046 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0047 e004 | | Load 0x0,0x4 0048 e005 | | Load 0x0,0x5 0049 4808 |H | Short_Literal 0x8 004a 0007 | | Action Break_Optional 004b 029f 008b | | Declare_Subprogram INIT_0088,For_Call 004d e006 | | Load 0x0,0x6 004e 190d | | Execute Package,Field_Reference,Field_Number 0xd 004f 00c6 | | Action Check_Subprogram_Elaborated 0050 e5ff | | Load 0x2,-0x1 0051 0335 | 5 | Declare_Variable Array,Duplicate 0052 00d0 | | Action Swap_Control 0053 00d1 | | Pop_Control Pop_Count_1 0054 e007 | | Load 0x0,0x7 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 4802 |H | Short_Literal 0x2 0057 4802 |H | Short_Literal 0x2 0058 0099 | | Action Reference_Dynamic 0059 4809 |H | Short_Literal 0x9 005a 4802 |H | Short_Literal 0x2 005b 0099 | | Action Reference_Dynamic 005c e008 | | Load 0x0,0x8 005d e009 | | Load 0x0,0x9 005e 4810 |H | Short_Literal 0x10 005f 0007 | | Action Break_Optional 0060 BODY_0038: 0060 e40a | | Load 0x2,0xa 0061 e40b | | Load 0x2,0xb 0062 480c |H | Short_Literal 0xc 0063 4802 |H | Short_Literal 0x2 0064 0099 | | Action Reference_Dynamic 0065 480d |H | Short_Literal 0xd 0066 4802 |H | Short_Literal 0x2 0067 0099 | | Action Reference_Dynamic 0068 480e |H | Short_Literal 0xe 0069 4802 |H | Short_Literal 0x2 006a 0099 | | Action Reference_Dynamic 006b e006 | | Load 0x0,0x6 006c 180d | | Execute Package,Field_Execute,Field_Number 0xd 006d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 e5fc | | Load 0x2,-0x4 0074 e5fd | | Load 0x2,-0x3 0075 e5fe | | Load 0x2,-0x2 0076 e5ff | | Load 0x2,-0x1 0077 e003 | | Load 0x0,0x3 0078 180e | | Execute Package,Field_Execute,Field_Number 0xe 0079 4507 |E | Exit_Suprogram New_Top_Offset 0x7 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e5ff | | Load 0x2,-0x1 0084 820d | | Call 0x1,0xd 0085 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b e7ff | | Load 0x3,-0x1 008c e403 | | Load 0x2,0x3 008d e404 | | Load 0x2,0x4 008e 4805 |H | Short_Literal 0x5 008f 4802 |H | Short_Literal 0x2 0090 0099 | | Action Reference_Dynamic 0091 4806 |H | Short_Literal 0x6 0092 4802 |H | Short_Literal 0x2 0093 0099 | | Action Reference_Dynamic 0094 e002 | | Load 0x0,0x2 0095 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0096 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0097 ; -------------------------------------------------------------------------------------- 0097 ; STRING TABLE 0097 ; -------------------------------------------------------------------------------------- 0097 0012 | | .STRTAB 0x0012->0x00a0 ; "<PROFILE>" 0098 0019 | | .STRTAB 0x0019->0x00a4 ; "Name => (Print Queue Server)" 0099 0033 | 3 | .STRTAB 0x0033->0x00b2 ; "$" 009a 0032 | 2 | .STRTAB 0x0032->0x00b3 ; "!machine.release.current.activity" 009b 0051 | Q | .STRTAB 0x0051->0x00c3 ; "(\x22" 009c 0051 | Q | .STRTAB 0x0051->0x00c4 ; "\x22)" 009d 0051 | Q | .STRTAB 0x0051->0x00c5 ; "Queue_Service.Serve" 009e 0062 | b | .STRTAB 0x0062->0x00cf ; "!Tools.Rpc_Servers" 009f 0072 | r | .STREND 0x0072->0x00d8 00a0 3c50 524f |<PRO| .STRTAB_STRINGS 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x8250,0x0000,0x0001,0x0000 00de 1945 e009 | E | .XXX[0x46] 00e0 1949 e00a | I | 00e2 1919 e009 | | 00e4 1957 1d18 | W | 00e6 1d19 e00b | | 00e8 190d e00b | | 00ea 190e e00b | | 00ec 190f e009 | | 00ee 193b e009 | ; | 00f0 193c e009 | < | 00f2 193d e009 | = | 00f4 193e e009 | > | 00f6 1941 e00c | A | 00f8 190e e00d | | 00fa 0387 00d8 | | 00fc 020f 1d0d | | 00fe 00c7 1d0e | | 0100 00c7 1d11 | | 0102 00c7 1d10 | | 0104 00c7 00bc | | 0106 00bb 0000 | | 0108 010b 0119 | | 010a 0001 e5f8 | | 010c e5f9 00e3 | | 010e e5fb e5fc | | 0110 e5fd e5fe | | 0112 e5ff e21c | | 0114 1871 c5fa | q | 0116 00d1 c5f8 | | 0118 4506 e00e |E | 011a 1b17 010f | | 011c 6806 0092 |h | 011e 0341 e00f | A | 0120 1811 c5f8 | | 0122 4506 0100 |E | 0124 0000 0000 | | .BLANK 0000[0x4] 0128 012b 0142 | + B| .XXX[0x41] 012a 0001 e5fb | | 012c e5fc 0120 | | 012e 6803 e21c |h | 0130 1b1b 7801 | x | 0132 e5fc e5fd | | 0134 0120 6802 | h | 0136 00ec 7801 | x | 0138 e5fd 00e2 | | 013a e5ff e21c | | 013c 1872 c5fe | r | 013e c5fd c5fc | | 0140 c5fb 4502 | E | 0142 e00e 1b17 | | 0144 010f 6806 | h | 0146 0092 0342 | B| 0148 e00f 1811 | | 014a c5fb 4502 | E | 014c 0100 0000 | | 014e 0000 0000 | | 0150 0153 015e | S ^| 0152 0001 e5fc | | 0154 00e3 e21c | | 0156 1b29 e5ff | ) | 0158 e21c 1873 | s| 015a c5fe c5fd | | 015c c5fc 4502 | E | 015e e00e 1b17 | | 0160 010f 6806 | h | 0162 0092 0342 | B| 0164 e00f 1811 | | 0166 c5fc 4502 | E | 0168 0100 | | 0169 0000 0000 | | .BLANK 0000[0x7] 0170 0173 0199 | s | .XXX[0x34] 0172 0001 e5f9 | | 0174 e5fa 0120 | | 0176 6803 e21c |h | 0178 1b1b 7801 | x | 017a e5fa e5fb | | 017c 0120 6803 | h | 017e e21c 1b1d | | 0180 7801 e5fb |x | 0182 e5fc 0120 | | 0184 6802 00ec |h | 0186 7801 e5fc |x | 0188 e5fd 0120 | | 018a 6802 00ec |h | 018c 7801 e5fd |x | 018e 00e2 e5ff | | 0190 e21c 1874 | t| 0192 c5fe c5fd | | 0194 c5fc c5fb | | 0196 c5fa c5f9 | | 0198 4502 e00e |E | 019a 1b17 010f | | 019c 6806 0092 |h | 019e 0342 e00f | B | 01a0 1811 c5f9 | | 01a2 4502 0100 |E | 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 01ac 0004 | | .XXX[0x58] 01aa 0002 00e2 | | 01ac e5fe 7007 | p | 01ae e5fc 0092 | | 01b0 0343 e00f | C | 01b2 1815 c5fc | | 01b4 4503 e5fe |E | 01b6 0d00 681f | h | 01b8 e5fc 00e2 | | 01ba e5ff e010 | | 01bc 1812 c402 | | 01be c5fc 4802 | H | 01c0 e5fc e00f | | 01c2 1810 6801 | h | 01c4 4503 00d8 |E | 01c6 e5fe 0273 | s| 01c8 0d00 6806 | h | 01ca 0092 0344 | D| 01cc e00f 1811 | | 01ce c5fc 4503 | E | 01d0 00d8 e5fe | | 01d2 0273 0248 | s H| 01d4 0a01 c5fd | | 01d6 4503 e5fe |E | 01d8 c5fd e00f | | 01da 1819 c5fc | | 01dc 4503 0000 |E | 01de 0000 0000 | | 01e0 01ef 0004 | | 01e2 0005 e5ff | | 01e4 e006 1857 | W| 01e6 00e1 03f1 | | 01e8 00e1 e010 | | 01ea 1b0f 0322 | "| 01ec 00d8 1c00 | | 01ee 00e3 0092 | | 01f0 0345 e5ff | E | 01f2 e005 182c | ,| 01f4 0f00 e011 | | 01f6 180e e004 | | 01f8 1b13 c5fd | | 01fa e004 1b14 | | 01fc c5fc e004 | | 01fe 1b15 c5fb | |