|
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_0a7cf5
└─⟦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 01a0 | | .CONST 0x01a0 ; 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 0048 | H | .CONST 0x0048 ; Address of begin 0009 006d | m | .CONST 0x006d ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e008 | | Load 0x0,0x8 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 4822 |H" | Short_Literal 0x22 0011 0092 011c | | Action Push_String_Extended,0x11c ; "Document => \x22" 0013 e5ff | | Load 0x2,-0x1 0014 01cc | | Execute Vector,Catenate 0015 0092 011d | | Action Push_String_Extended,0x11d ; "\x22, In_View => \x22" 0017 01cc | | Execute Vector,Catenate 0018 e5fe | | Load 0x2,-0x2 0019 01cc | | Execute Vector,Catenate 001a 0092 011e | | Action Push_String_Extended,0x11e ; "\x22, Options => \x22" 001c 01cc | | Execute Vector,Catenate 001d e5fd | | Load 0x2,-0x3 001e 01cc | | Execute Vector,Catenate 001f 0092 011f | | Action Push_String_Extended,0x11f ; "\x22, In_Place => " 0021 01cc | | Execute Vector,Catenate 0022 e5fc | | Load 0x2,-0x4 0023 00e1 | | Load_Encached Boolean_Cache 0024 011c | | Execute Any,Convert_Unchecked 0025 1c01 | | Execute_Immediate Run_Utility,0x1 0026 01cc | | Execute Vector,Catenate 0027 0092 0120 | | Action Push_String_Extended,0x120 ; ", Response => \x22" 0029 01cc | | Execute Vector,Catenate 002a e5fb | | Load 0x2,-0x5 002b 01cc | | Execute Vector,Catenate 002c 01cb | | Execute Vector,Append 002d 0007 | | Action Break_Optional 002e e00a | | Load 0x0,0xa 002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0030 02c7 | | Declare_Variable Any 0031 00d8 | | Load_Top At_Offset_0 0032 1c00 | | Execute_Immediate Run_Utility,0x0 0033 e010 | | Load 0x0,0x10 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 02c7 | | Declare_Variable Any 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 e012 | | Load 0x0,0x12 0039 1b66 | f | Execute Package,Field_Read,Field_Number 0x66 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d e013 | | Load 0x0,0x13 003e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003f 02a0 | | Declare_Subprogram Null_Subprogram 0040 4818 |H | Short_Literal 0x18 0041 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0042 00d8 | | Load_Top At_Offset_0 0043 0007 | | Action Break_Optional 0044 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0046 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0048 BODY_0008: 0048 00be | | Action Activate_Tasks 0049 e402 | | Load 0x2,0x2 004a 0120 | | Execute Any,Is_Value 004b 6803 |h | Jump_Zero 0x4f 004c e008 | | Load 0x0,0x8 004d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004e 7801 |x | Jump 0x50 004f e402 | | Load 0x2,0x2 0050 e5fb | | Load 0x2,-0x5 0051 8250 | P | Call 0x1,0x50 0052 c402 | | Store 0x2,0x2 0053 e403 | | Load 0x2,0x3 0054 0092 0121 | !| Action Push_String_Extended,0x121 ; "Preview" 0056 8249 | I | Call 0x1,0x49 0057 e5fe | | Load 0x2,-0x2 0058 8251 | Q | Call 0x1,0x51 0059 c406 | | Store 0x2,0x6 005a e405 | | Load 0x2,0x5 005b e406 | | Load 0x2,0x6 005c e012 | | Load 0x0,0x12 005d 186b | k | Execute Package,Field_Execute,Field_Number 0x6b 005e e5fd | | Load 0x2,-0x3 005f 824d | M | Call 0x1,0x4d 0060 c405 | | Store 0x2,0x5 0061 e406 | | Load 0x2,0x6 0062 e5ff | | Load 0x2,-0x1 0063 824f | O | Call 0x1,0x4f 0064 e407 | | Load 0x2,0x7 0065 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0066 003b | ; | Store_Top Access,At_Offset_3 0067 840a | | Call 0x2,0xa 0068 e402 | | Load 0x2,0x2 0069 0092 0121 | !| Action Push_String_Extended,0x121 ; "Preview" 006b 824b | K | Call 0x1,0x4b 006c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 006d TRAP_0008: 006d e00d | | Load 0x0,0xd 006e 010f | | Execute Exception,Equal 006f 6805 |h | Jump_Zero 0x75 0070 e402 | | Load 0x2,0x2 0071 0092 0121 | !| Action Push_String_Extended,0x121 ; "Preview" 0073 824a | J | Call 0x1,0x4a 0074 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0075 e008 | | Load 0x0,0x8 0076 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0077 010f | | Execute Exception,Equal 0078 6805 |h | Jump_Zero 0x7e 0079 e402 | | Load 0x2,0x2 007a 0092 0121 | !| Action Push_String_Extended,0x121 ; "Preview" 007c 824a | J | Call 0x1,0x4a 007d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 007e 4800 |H | Short_Literal 0x0 007f 0092 0121 | !| Action Push_String_Extended,0x121 ; "Preview" 0081 824c | L | Call 0x1,0x4c 0082 e402 | | Load 0x2,0x2 0083 0092 0121 | !| Action Push_String_Extended,0x121 ; "Preview" 0085 824a | J | Call 0x1,0x4a 0086 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0097 | | .CONST 0x0097 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b e016 | | Load 0x0,0x16 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 e016 | | Load 0x0,0x16 0091 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0092 02c7 | | Declare_Variable Any 0093 e016 | | Load 0x0,0x16 0094 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0095 a603 | | Store_Unchecked 0x3,0x3 0096 00e1 | | Load_Encached Boolean_Cache 0097 BODY_0088: 0097 00cf | | Action Mark_Auxiliary 0098 7820 |x | Jump 0xb9 0099 e404 | | Load 0x2,0x4 009a e602 | | Load 0x3,0x2 009b 4804 |H | Short_Literal 0x4 009c e7ff | | Load 0x3,-0x1 009d e013 | | Load 0x0,0x13 009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009f e013 | | Load 0x0,0x13 00a0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a1 e016 | | Load 0x0,0x16 00a2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a3 c602 | | Store 0x3,0x2 00a4 c404 | | Store 0x2,0x4 00a5 4800 |H | Short_Literal 0x0 00a6 0092 0122 | "| Action Push_String_Extended,0x122 ; "Unable to resolve document pathname" 00a8 e404 | | Load 0x2,0x4 00a9 8247 | G | Call 0x1,0x47 00aa 4801 |H | Short_Literal 0x1 00ab e404 | | Load 0x2,0x4 00ac e00a | | Load 0x0,0xa 00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ae 7005 |p | Jump_Nonzero 0xb4 00af 00da | | Load_Top At_Offset_2 00b0 e602 | | Load 0x3,0x2 00b1 e016 | | Load 0x0,0x16 00b2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00b3 c603 | | Store 0x3,0x3 00b4 e7ff | | Load 0x3,-0x1 00b5 e013 | | Load 0x0,0x13 00b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b7 00d1 | | Pop_Control Pop_Count_1 00b8 00c9 | | Action Pop_Auxiliary_Loop 00b9 e7ff | | Load 0x3,-0x1 00ba e013 | | Load 0x0,0x13 00bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bc 6fdc |o | Jump_Zero 0x99 00bd 00ce | | Action Pop_Auxiliary 00be 00d9 | | Load_Top At_Offset_1 00bf e016 | | Load 0x0,0x16 00c0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00c1 c603 | | Store 0x3,0x3 00c2 00d9 | | Load_Top At_Offset_1 00c3 e016 | | Load 0x0,0x16 00c4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00c5 7009 |p | Jump_Nonzero 0xcf 00c6 00e1 | | Load_Encached Boolean_Cache 00c7 0092 0123 | #| Action Push_String_Extended,0x123 ; "Unable to display menu of documents" 00c9 4800 |H | Short_Literal 0x0 00ca e5fc | | Load 0x2,-0x4 00cb e603 | | Load 0x3,0x3 00cc e017 | | Load 0x0,0x17 00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ce 0059 | Y | Store_Top Discrete,At_Offset_1 00cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d6 | | .CONST 0x00d6 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e408 | | Load 0x2,0x8 00d4 0227 | ' | Execute Access,All_Reference 00d5 0007 | | Action Break_Optional 00d6 BODY_00d0: 00d6 e405 | | Load 0x2,0x5 00d7 e010 | | Load 0x0,0x10 00d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d9 6822 |h" | Jump_Zero 0xfc 00da 00cf | | Action Mark_Auxiliary 00db 781b |x | Jump 0xf7 00dc e404 | | Load 0x2,0x4 00dd e405 | | Load 0x2,0x5 00de e406 | | Load 0x2,0x6 00df e602 | | Load 0x3,0x2 00e0 e013 | | Load 0x0,0x13 00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e2 e014 | | Load 0x0,0x14 00e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e4 c404 | | Store 0x2,0x4 00e5 4800 |H | Short_Literal 0x0 00e6 4822 |H" | Short_Literal 0x22 00e7 0092 0124 | $| Action Push_String_Extended,0x124 ; "Errors detected while regenerating document \x22" 00e9 e602 | | Load 0x3,0x2 00ea e013 | | Load 0x0,0x13 00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ec e013 | | Load 0x0,0x13 00ed 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00ee 01cc | | Execute Vector,Catenate 00ef 01cb | | Execute Vector,Append 00f0 e404 | | Load 0x2,0x4 00f1 8247 | G | Call 0x1,0x47 00f2 00d9 | | Load_Top At_Offset_1 00f3 e013 | | Load 0x0,0x13 00f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f5 00d1 | | Pop_Control Pop_Count_1 00f6 00c9 | | Action Pop_Auxiliary_Loop 00f7 00d9 | | Load_Top At_Offset_1 00f8 e013 | | Load 0x0,0x13 00f9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fa 6fe1 |o | Jump_Zero 0xdc 00fb 00ce | | Action Pop_Auxiliary 00fc 00d8 | | Load_Top At_Offset_0 00fd e013 | | Load 0x0,0x13 00fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ff 00d1 | | Pop_Control Pop_Count_1 0100 e408 | | Load 0x2,0x8 0101 0227 | ' | Execute Access,All_Reference 0102 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0103 0f01 | | Execute_Immediate Equal,0x1 0104 680a |h | Jump_Zero 0x10f 0105 e5fc | | Load 0x2,-0x4 0106 00ea | | Load_Encached Null_String_Cache 0107 00da | | Load_Top At_Offset_2 0108 e013 | | Load 0x0,0x13 0109 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010a e013 | | Load 0x0,0x13 010b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 010c e018 | | Load 0x0,0x18 010d 180d | | Execute Package,Field_Execute,Field_Number 0xd 010e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010f 0092 0125 | %| Action Push_String_Extended,0x125 ; "\x07Preview failed - \x22" 0111 e5ff | | Load 0x2,-0x1 0112 01cc | | Execute Vector,Catenate 0113 0092 0126 | &| Action Push_String_Extended,0x126 ; "\x22 is ambiguous" 0115 01cc | | Execute Vector,Catenate 0116 e019 | | Load 0x0,0x19 0117 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0118 00d8 | | Load_Top At_Offset_0 0119 8409 | | Call 0x2,0x9 011a 00d1 | | Pop_Control Pop_Count_1 011b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011c ; -------------------------------------------------------------------------------------- 011c ; STRING TABLE 011c ; -------------------------------------------------------------------------------------- 011c 0018 | | .STRTAB 0x0018->0x0128 ; "Document => \x22" 011d 0023 | # | .STRTAB 0x0023->0x012e ; "\x22, In_View => \x22" 011e 0030 | 0 | .STRTAB 0x0030->0x0136 ; "\x22, Options => \x22" 011f 003d | = | .STRTAB 0x003d->0x013d ; "\x22, In_Place => " 0120 004a | J | .STRTAB 0x004a->0x0145 ; ", Response => \x22" 0121 0057 | W | .STRTAB 0x0057->0x014c ; "Preview" 0122 005c | \ | .STRTAB 0x005c->0x0150 ; "Unable to resolve document pathname" 0123 007d | } | .STRTAB 0x007d->0x0161 ; "Unable to display menu of documents" 0124 009e | | .STRTAB 0x009e->0x0173 ; "Errors detected while regenerating document \x22" 0125 00c9 | | .STRTAB 0x00c9->0x0189 ; "\x07Preview failed - \x22" 0126 00da | | .STRTAB 0x00da->0x0193 ; "\x22 is ambiguous" 0127 00e6 | | .STREND 0x00e6->0x019a 0128 446f 6375 |Docu| .STRTAB_STRINGS 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug Table 01a0 ; -------------------------------------------------------------------------------------- 01a0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc6ef,0x0000,0x0001,0x0000 01a6 0000 0000 | | .BLANK 0000[0x5a]