|
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 00c8 | | .CONST 0x00c8 ; 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 000e | | .CONST 0x000e ; Address of begin 0009 0077 | w | .CONST 0x0077 ; Address of exception handler 000a 0002 | | .CONST 0x0002 ; Number of locals 000b INIT_0008: 000b e009 | | Load 0x0,0x9 000c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 000d 0322 | " | Declare_Variable Record 000e BODY_0008: 000e e5fd | | Load 0x2,-0x3 000f 00d9 | | Load_Top At_Offset_1 0010 e5ff | | Load 0x2,-0x1 0011 e00a | | Load 0x0,0xa 0012 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0013 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0014 e00a | | Load 0x0,0xa 0015 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0016 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0017 e5fe | | Load 0x2,-0x2 0018 e009 | | Load 0x0,0x9 0019 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 001a 00d1 | | Pop_Control Pop_Count_1 001b c5fd | | Store 0x2,-0x3 001c 00db | | Load_Top At_Offset_3 001d e00a | | Load 0x0,0xa 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0020 680d |h | Jump_Zero 0x2e 0021 e5fd | | Load 0x2,-0x3 0022 4800 |H | Short_Literal 0x0 0023 4807 |H | Short_Literal 0x7 0024 0092 0085 | | Action Push_String_Extended,0x85 ; "Cannot resolve document database because " 0026 e5ff | | Load 0x2,-0x1 0027 e00a | | Load 0x0,0xa 0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0029 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 002a 01cc | | Execute Vector,Catenate 002b e217 | | Load 0x1,0x17 002c 8233 | 3 | Call 0x1,0x33 002d c5fd | | Store 0x2,-0x3 002e 4802 |H | Short_Literal 0x2 002f e5fd | | Load 0x2,-0x3 0030 e005 | | Load 0x0,0x5 0031 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0032 6801 |h | Jump_Zero 0x34 0033 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0034 00d8 | | Load_Top At_Offset_0 0035 e009 | | Load 0x0,0x9 0036 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0037 6814 |h | Jump_Zero 0x4c 0038 e5fd | | Load 0x2,-0x3 0039 4801 |H | Short_Literal 0x1 003a 4807 |H | Short_Literal 0x7 003b 0092 0086 | | Action Push_String_Extended,0x86 ; "Cannot print " 003d e402 | | Load 0x2,0x2 003e e009 | | Load 0x0,0x9 003f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0040 e009 | | Load 0x0,0x9 0041 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0042 011c | | Execute Any,Convert_Unchecked 0043 1c01 | | Execute_Immediate Run_Utility,0x1 0044 01cc | | Execute Vector,Catenate 0045 0092 0087 | | Action Push_String_Extended,0x87 ; " documents from Rational Environment" 0047 01cc | | Execute Vector,Catenate 0048 e219 | | Load 0x1,0x19 0049 8233 | 3 | Call 0x1,0x33 004a c5fd | | Store 0x2,-0x3 004b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 004c 00d8 | | Load_Top At_Offset_0 004d e009 | | Load 0x0,0x9 004e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 004f 0f01 | | Execute_Immediate Equal,0x1 0050 7013 |p | Jump_Nonzero 0x64 0051 0092 0088 | | Action Push_String_Extended,0x88 ; "<DEFAULT>" 0053 0092 0088 | | Action Push_String_Extended,0x88 ; "<DEFAULT>" 0055 0092 0088 | | Action Push_String_Extended,0x88 ; "<DEFAULT>" 0057 00db | | Load_Top At_Offset_3 0058 e009 | | Load 0x0,0x9 0059 181e | | Execute Package,Field_Execute,Field_Number 0x1e 005a e5ff | | Load 0x2,-0x1 005b e00a | | Load 0x0,0xa 005c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 005e 0092 0089 | | Action Push_String_Extended,0x89 ; "_MSS_LPT" 0060 01cc | | Execute Vector,Catenate 0061 e00b | | Load 0x0,0xb 0062 180d | | Execute Package,Field_Execute,Field_Number 0xd 0063 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0064 0092 0088 | | Action Push_String_Extended,0x88 ; "<DEFAULT>" 0066 0092 0088 | | Action Push_String_Extended,0x88 ; "<DEFAULT>" 0068 0092 0088 | | Action Push_String_Extended,0x88 ; "<DEFAULT>" 006a 00db | | Load_Top At_Offset_3 006b e009 | | Load 0x0,0x9 006c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 006d e5ff | | Load 0x2,-0x1 006e e00a | | Load 0x0,0xa 006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0070 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0071 0092 008a | | Action Push_String_Extended,0x8a ; "_MSS_PS" 0073 01cc | | Execute Vector,Catenate 0074 e00b | | Load 0x0,0xb 0075 180d | | Execute Package,Field_Execute,Field_Number 0xd 0076 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0077 TRAP_0008: 0077 e007 | | Load 0x0,0x7 0078 010f | | Execute Exception,Equal 0079 6801 |h | Jump_Zero 0x7b 007a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007b e5fd | | Load 0x2,-0x3 007c 4800 |H | Short_Literal 0x0 007d 4808 |H | Short_Literal 0x8 007e e005 | | Load 0x0,0x5 007f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0080 e005 | | Load 0x0,0x5 0081 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0082 8233 | 3 | Call 0x1,0x33 0083 c5fd | | Store 0x2,-0x3 0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0085 ; -------------------------------------------------------------------------------------- 0085 ; STRING TABLE 0085 ; -------------------------------------------------------------------------------------- 0085 000e | | .STRTAB 0x000e->0x008c ; "Cannot resolve document database because " 0086 0035 | 5 | .STRTAB 0x0035->0x00a0 ; "Cannot print " 0087 0040 | @ | .STRTAB 0x0040->0x00a7 ; " documents from Rational Environment" 0088 0062 | b | .STRTAB 0x0062->0x00b9 ; "<DEFAULT>" 0089 0069 | i | .STRTAB 0x0069->0x00bd ; "_MSS_LPT" 008a 006f | o | .STRTAB 0x006f->0x00c1 ; "_MSS_PS" 008b 0074 | t | .STREND 0x0074->0x00c5 008c 4361 6e6e |Cann| .STRTAB_STRINGS 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc7a7,0x0000,0x0001,0x0000 00ce 0000 0000 | | .BLANK 0000[0x132]