|
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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0039 | 9 | .CONST 0x0039 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 001d 0007 | | Action Break_Optional 001e e001 | | Load 0x0,0x1 001f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e001 | | Load 0x0,0x1 0024 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 e001 | | Load 0x0,0x1 0029 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002a 02c7 | | Declare_Variable Any 002b 00d8 | | Load_Top At_Offset_0 002c 1c00 | | Execute_Immediate Run_Utility,0x0 002d e002 | | Load 0x0,0x2 002e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002f 02c7 | | Declare_Variable Any 0030 00d8 | | Load_Top At_Offset_0 0031 1c00 | | Execute_Immediate Run_Utility,0x0 0032 e001 | | Load 0x0,0x1 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 e001 | | Load 0x0,0x1 0035 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0039 BODY_0018: 0039 00be | | Action Activate_Tasks 003a 0092 00ac | | Action Push_String_Extended,0xac ; "<PROFILE>" 003c 0092 00ad | | Action Push_String_Extended,0xad ; "!release.current.activity" 003e e003 | | Load 0x0,0x3 003f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0040 e002 | | Load 0x0,0x2 0041 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0042 c402 | | Store 0x2,0x2 0043 e001 | | Load 0x0,0x1 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 e405 | | Load 0x2,0x5 0046 4801 |H | Short_Literal 0x1 0047 4800 |H | Short_Literal 0x0 0048 e004 | | Load 0x0,0x4 0049 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004a e402 | | Load 0x2,0x2 004b e002 | | Load 0x0,0x2 004c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004d c405 | | Store 0x2,0x5 004e c406 | | Store 0x2,0x6 004f e406 | | Load 0x2,0x6 0050 6802 |h | Jump_Zero 0x53 0051 48e2 |H | Short_Literal 0xe2 0052 0257 | W | Execute Discrete,Raise 0053 e001 | | Load 0x0,0x1 0054 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0055 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0056 e404 | | Load 0x2,0x4 0057 0120 | | Execute Any,Is_Value 0058 6803 |h | Jump_Zero 0x5c 0059 e001 | | Load 0x0,0x1 005a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 005b 7801 |x | Jump 0x5d 005c e404 | | Load 0x2,0x4 005d 604a |`J | Indirect_Literal Discrete,0xa8,{0x00000000, 0x00004000} 005e e004 | | Load 0x0,0x4 005f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0060 e005 | | Load 0x0,0x5 0061 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0062 e001 | | Load 0x0,0x1 0063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0064 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0065 e5ff | | Load 0x2,-0x1 0066 e001 | | Load 0x0,0x1 0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0068 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0069 c404 | | Store 0x2,0x4 006a c407 | | Store 0x2,0x7 006b e407 | | Load 0x2,0x7 006c 6802 |h | Jump_Zero 0x6f 006d 48e2 |H | Short_Literal 0xe2 006e 0257 | W | Execute Discrete,Raise 006f e405 | | Load 0x2,0x5 0070 e404 | | Load 0x2,0x4 0071 e002 | | Load 0x0,0x2 0072 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0073 c403 | | Store 0x2,0x3 0074 e001 | | Load 0x0,0x1 0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0076 e405 | | Load 0x2,0x5 0077 e002 | | Load 0x0,0x2 0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0079 c405 | | Store 0x2,0x5 007a c406 | | Store 0x2,0x6 007b 8408 | | Call 0x2,0x8 007c 4507 |E | Exit_Suprogram New_Top_Offset 0x7 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0087 | | .CONST 0x0087 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e403 | | Load 0x2,0x3 0084 e001 | | Load 0x0,0x1 0085 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0086 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0087 BODY_0080: 0087 0092 00ac | | Action Push_String_Extended,0xac ; "<PROFILE>" 0089 0092 00ae | | Action Push_String_Extended,0xae ; "Output =>" 008b e5fb | | Load 0x2,-0x5 008c 01cc | | Execute Vector,Catenate 008d 0092 00af | | Action Push_String_Extended,0xaf ; ", Error =>" 008f 01cc | | Execute Vector,Catenate 0090 e5fa | | Load 0x2,-0x6 0091 01cc | | Execute Vector,Catenate 0092 4800 |H | Short_Literal 0x0 0093 e5fc | | Load 0x2,-0x4 0094 4800 |H | Short_Literal 0x0 0095 0092 00b0 | | Action Push_String_Extended,0xb0 ; "\x22" 0097 e602 | | Load 0x3,0x2 0098 01cc | | Execute Vector,Catenate 0099 0092 00b1 | | Action Push_String_Extended,0xb1 ; ".units." 009b 01cc | | Execute Vector,Catenate 009c e5fe | | Load 0x2,-0x2 009d 01cc | | Execute Vector,Catenate 009e 0092 00b2 | | Action Push_String_Extended,0xb2 ; "\x22." 00a0 01cc | | Execute Vector,Catenate 00a1 e5fd | | Load 0x2,-0x3 00a2 01cc | | Execute Vector,Catenate 00a3 e006 | | Load 0x0,0x6 00a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a6 0000 0000 | | .XXX[0x2] 00a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00ac ; -------------------------------------------------------------------------------------- 00ac ; STRING TABLE 00ac ; -------------------------------------------------------------------------------------- 00ac 0010 | | .STRTAB 0x0010->0x00b4 ; "<PROFILE>" 00ad 0017 | | .STRTAB 0x0017->0x00b8 ; "!release.current.activity" 00ae 002e | . | .STRTAB 0x002e->0x00c5 ; "Output =>" 00af 0035 | 5 | .STRTAB 0x0035->0x00c9 ; ", Error =>" 00b0 003d | = | .STRTAB 0x003d->0x00ce ; "\x22" 00b1 003c | < | .STRTAB 0x003c->0x00cf ; ".units." 00b2 0041 | A | .STRTAB 0x0041->0x00d2 ; "\x22." 00b3 0041 | A | .STREND 0x0041->0x00d3 00b4 3c50 524f |<PRO| .STRTAB_STRINGS 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x1218,0x0000,0x0001,0x0000 00de 0000 60b2 | ` | .XXX[0x1e] 00e0 0b86 8804 | | 00e2 8000 0e91 | | 00e4 0000 0002 | | 00e6 0000 01a3 | | 00e8 001a a804 | | 00ea 0000 0144 | D| 00ec 0000 0001 | | 00ee 0000 0000 | | 00f0 0001 0804 | | 00f2 0800 0d80 | | 00f4 0000 00a0 | | 00f6 0000 0183 | | 00f8 0000 0000 | | 00fa 0000 0076 | v| 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 0b86 8804 | | .XXX[0xc] 0102 8800 1091 | | 0104 0000 0040 | @| 0106 0000 0040 | @| 0108 0b86 8804 | | 010a 0000 0ec4 | | 010c 0000 0000 | | .BLANK 0000[0xf4]