|
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_0698fd
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0015 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 001c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001d 00c7 | | Action Elaborate_Subprogram 001e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 001f 00c7 | | Action Elaborate_Subprogram 0020 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0021 00c7 | | Action Elaborate_Subprogram 0022 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0023 00c7 | | Action Elaborate_Subprogram 0024 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0025 00c7 | | Action Elaborate_Subprogram 0026 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0027 00c7 | | Action Elaborate_Subprogram 0028 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 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 0092 0128 | (| Action Push_String_Extended,0x128 ; "Version.First => " 0035 00db | | Load_Top At_Offset_3 0036 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0037 00e0 | | Load_Encached Standard_Cache 0038 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0039 01cc | | Execute Vector,Catenate 003a e5fe | | Load 0x2,-0x2 003b 8218 | | Call 0x1,0x18 003c 0092 0129 | )| Action Push_String_Extended,0x129 ; "Version.Last => " 003e 00db | | Load_Top At_Offset_3 003f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0040 00e0 | | Load_Encached Standard_Cache 0041 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0042 01cc | | Execute Vector,Catenate 0043 e5fe | | Load 0x2,-0x2 0044 8218 | | Call 0x1,0x18 0045 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 0092 012a | *| Action Push_String_Extended,0x12a ; "Authentication_Flavor => " 004d 00db | | Load_Top At_Offset_3 004e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 004f e001 | | Load 0x0,0x1 0050 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0051 011c | | Execute Any,Convert_Unchecked 0052 1c01 | | Execute_Immediate Run_Utility,0x1 0053 01cc | | Execute Vector,Catenate 0054 e5fe | | Load 0x2,-0x2 0055 8218 | | Call 0x1,0x18 0056 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0057 0000 | | .XXX[0x1] 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 005c 0092 012b | +| Action Push_String_Extended,0x12b ; "Verifier." 005e 01cc | | Execute Vector,Catenate 005f 00db | | Load_Top At_Offset_3 0060 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0061 8212 | | Call 0x1,0x12 0062 0092 012c | ,| Action Push_String_Extended,0x12c ; "Accept_Status => " 0064 00db | | Load_Top At_Offset_3 0065 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0066 e001 | | Load 0x0,0x1 0067 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0068 011c | | Execute Any,Convert_Unchecked 0069 1c01 | | Execute_Immediate Run_Utility,0x1 006a 01cc | | Execute Vector,Catenate 006b e5fe | | Load 0x2,-0x2 006c 8218 | | Call 0x1,0x18 006d 00da | | Load_Top At_Offset_2 006e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 006f 0f02 | | Execute_Immediate Equal,0x2 0070 7001 |p | Jump_Nonzero 0x72 0071 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0072 00db | | Load_Top At_Offset_3 0073 0092 012d | -| Action Push_String_Extended,0x12d ; "Legal Range." 0075 01cc | | Execute Vector,Catenate 0076 00db | | Load_Top At_Offset_3 0077 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0078 8211 | | Call 0x1,0x11 0079 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 0092 012e | .| Action Push_String_Extended,0x12e ; "Reject_Status => " 0085 00db | | Load_Top At_Offset_3 0086 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0087 e001 | | Load 0x0,0x1 0088 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0089 011c | | Execute Any,Convert_Unchecked 008a 1c01 | | Execute_Immediate Run_Utility,0x1 008b 01cc | | Execute Vector,Catenate 008c 820f | | Call 0x1,0xf 008d 00da | | Load_Top At_Offset_2 008e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 008f 680b |h | Jump_Zero 0x9b 0090 0092 012f | /| Action Push_String_Extended,0x12f ; "Authentication_Status => " 0092 00db | | Load_Top At_Offset_3 0093 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0094 e001 | | Load 0x0,0x1 0095 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0096 011c | | Execute Any,Convert_Unchecked 0097 1c01 | | Execute_Immediate Run_Utility,0x1 0098 01cc | | Execute Vector,Catenate 0099 820f | | Call 0x1,0xf 009a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009b 00db | | Load_Top At_Offset_3 009c 0092 012d | -| Action Push_String_Extended,0x12d ; "Legal Range." 009e 01cc | | Execute Vector,Catenate 009f 00db | | Load_Top At_Offset_3 00a0 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 00a1 8211 | | Call 0x1,0x11 00a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a3 0000 0000 | | .BLANK 0000[0x5] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 0092 0130 | 0| Action Push_String_Extended,0x130 ; " RPC Version_Number =>" 00ad 00db | | Load_Top At_Offset_3 00ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00af 00e0 | | Load_Encached Standard_Cache 00b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b1 01cc | | Execute Vector,Catenate 00b2 e5fe | | Load 0x2,-0x2 00b3 8218 | | Call 0x1,0x18 00b4 0092 0131 | 1| Action Push_String_Extended,0x131 ; "Proc Program_Number =>" 00b6 00db | | Load_Top At_Offset_3 00b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b8 00e0 | | Load_Encached Standard_Cache 00b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ba 01cc | | Execute Vector,Catenate 00bb e5fe | | Load 0x2,-0x2 00bc 8218 | | Call 0x1,0x18 00bd 0092 0132 | 2| Action Push_String_Extended,0x132 ; "Proc Version_Number =>" 00bf 00db | | Load_Top At_Offset_3 00c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c1 00e0 | | Load_Encached Standard_Cache 00c2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c3 01cc | | Execute Vector,Catenate 00c4 e5fe | | Load 0x2,-0x2 00c5 8218 | | Call 0x1,0x18 00c6 0092 0133 | 3| Action Push_String_Extended,0x133 ; " Procedure_Number =>" 00c8 00db | | Load_Top At_Offset_3 00c9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00ca 00e0 | | Load_Encached Standard_Cache 00cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00cc 01cc | | Execute Vector,Catenate 00cd e5fe | | Load 0x2,-0x2 00ce 8218 | | Call 0x1,0x18 00cf 00db | | Load_Top At_Offset_3 00d0 0092 0134 | 4| Action Push_String_Extended,0x134 ; "Credentials." 00d2 01cc | | Execute Vector,Catenate 00d3 00db | | Load_Top At_Offset_3 00d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 00d5 8212 | | Call 0x1,0x12 00d6 00db | | Load_Top At_Offset_3 00d7 0092 0135 | 5| Action Push_String_Extended,0x135 ; " Verifier." 00d9 01cc | | Execute Vector,Catenate 00da 00db | | Load_Top At_Offset_3 00db 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 00dc 8212 | | Call 0x1,0x12 00dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 0092 0136 | 6| Action Push_String_Extended,0x136 ; "Reply_Status => " 00e5 00db | | Load_Top At_Offset_3 00e6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00e7 e001 | | Load 0x0,0x1 00e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e9 011c | | Execute Any,Convert_Unchecked 00ea 1c01 | | Execute_Immediate Run_Utility,0x1 00eb 01cc | | Execute Vector,Catenate 00ec e5fe | | Load 0x2,-0x2 00ed 8218 | | Call 0x1,0x18 00ee 00da | | Load_Top At_Offset_2 00ef 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00f0 6805 |h | Jump_Zero 0xf6 00f1 00db | | Load_Top At_Offset_3 00f2 00db | | Load_Top At_Offset_3 00f3 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 00f4 8214 | | Call 0x1,0x14 00f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f6 00db | | Load_Top At_Offset_3 00f7 00db | | Load_Top At_Offset_3 00f8 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 00f9 8213 | | Call 0x1,0x13 00fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 0092 0137 | 7| Action Push_String_Extended,0x137 ; "Transaction =>" 0105 00db | | Load_Top At_Offset_3 0106 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0107 00e0 | | Load_Encached Standard_Cache 0108 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0109 01cc | | Execute Vector,Catenate 010a e5fe | | Load 0x2,-0x2 010b 8218 | | Call 0x1,0x18 010c 00da | | Load_Top At_Offset_2 010d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 010e 6805 |h | Jump_Zero 0x114 010f 00db | | Load_Top At_Offset_3 0110 00db | | Load_Top At_Offset_3 0111 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0112 8216 | | Call 0x1,0x16 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 00db | | Load_Top At_Offset_3 0115 00db | | Load_Top At_Offset_3 0116 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0117 8215 | | Call 0x1,0x15 0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e5fe | | Load 0x2,-0x2 0125 01cc | | Execute Vector,Catenate 0126 8210 | | Call 0x1,0x10 0127 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0128 ; -------------------------------------------------------------------------------------- 0128 ; STRING TABLE 0128 ; -------------------------------------------------------------------------------------- 0128 0022 | " | .STRTAB 0x0022->0x0139 ; "Version.First => " 0129 0031 | 1 | .STRTAB 0x0031->0x0141 ; "Version.Last => " 012a 0040 | @ | .STRTAB 0x0040->0x014a ; "Authentication_Flavor => " 012b 0057 | W | .STRTAB 0x0057->0x0156 ; "Verifier." 012c 005e | ^ | .STRTAB 0x005e->0x015b ; "Accept_Status => " 012d 006d | m | .STRTAB 0x006d->0x0163 ; "Legal Range." 012e 0077 | w | .STRTAB 0x0077->0x0169 ; "Reject_Status => " 012f 0086 | | .STRTAB 0x0086->0x0172 ; "Authentication_Status => " 0130 009d | | .STRTAB 0x009d->0x017e ; " RPC Version_Number =>" 0131 00b1 | | .STRTAB 0x00b1->0x0189 ; "Proc Program_Number =>" 0132 00c5 | | .STRTAB 0x00c5->0x0194 ; "Proc Version_Number =>" 0133 00d9 | | .STRTAB 0x00d9->0x019f ; " Procedure_Number =>" 0134 00ed | | .STRTAB 0x00ed->0x01aa ; "Credentials." 0135 00f7 | | .STRTAB 0x00f7->0x01b0 ; " Verifier." 0136 0101 | | .STRTAB 0x0101->0x01b6 ; "Reply_Status => " 0137 010f | | .STRTAB 0x010f->0x01be ; "Transaction =>" 0138 011b | | .STREND 0x011b->0x01c5 0139 5665 7273 |Vers| .STRTAB_STRINGS 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc892,0x0000,0x0001,0x0000 01ce 0000 0000 | | .BLANK 0000[0x32]