|
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_03c0fe
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 002e | . | .CONST 0x002e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 00e9 | | Load_Encached String_Cache 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4818 |H | Short_Literal 0x18 0015 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0016 4818 |H | Short_Literal 0x18 0017 03cc | | Declare_Type Access,Incomplete,Accesses_Protected 0018 e210 | | Load 0x1,0x10 0019 00d8 | | Load_Top At_Offset_0 001a e211 | | Load 0x1,0x11 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4803 |H | Short_Literal 0x3 001d 032d | - | Declare_Type Record,Defined 001e 00d8 | | Load_Top At_Offset_0 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 e211 | | Load 0x1,0x11 0021 03c7 | | Complete_Type Access,By_Defining 0022 e210 | | Load 0x1,0x10 0023 0007 | | Action Break_Optional 0024 e211 | | Load 0x1,0x11 0025 0007 | | Action Break_Optional 0026 00d8 | | Load_Top At_Offset_0 0027 0007 | | Action Break_Optional 0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002b 00c7 | | Action Elaborate_Subprogram 002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 00bc | | Action Signal_Activated 002f 00bb | | Action Signal_Completion 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 e5ff | | Load 0x2,-0x1 0034 e210 | | Load 0x1,0x10 0035 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0036 a213 | | Store_Unchecked 0x1,0x13 0037 e211 | | Load 0x1,0x11 0038 a215 | | Store_Unchecked 0x1,0x15 0039 e211 | | Load 0x1,0x11 003a a214 | | Store_Unchecked 0x1,0x14 003b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 e212 | | Load 0x1,0x12 0044 0322 | " | Declare_Variable Record 0045 e5ff | | Load 0x2,-0x1 0046 e210 | | Load 0x1,0x10 0047 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0048 e402 | | Load 0x2,0x2 0049 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 004a e5fe | | Load 0x2,-0x2 004b e210 | | Load 0x1,0x10 004c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 004d e402 | | Load 0x2,0x2 004e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 004f e215 | | Load 0x1,0x15 0050 e402 | | Load 0x2,0x2 0051 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0052 e211 | | Load 0x1,0x11 0053 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0054 a215 | | Store_Unchecked 0x1,0x15 0055 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006f | o | .CONST 0x006f ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000b | | .CONST 0x000b ; Number of locals 005b INIT_0058: 005b 00e2 | | Load_Encached Integer_Cache 005c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005d 00e2 | | Load_Encached Integer_Cache 005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005f 00e2 | | Load_Encached Integer_Cache 0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0061 00e1 | | Load_Encached Boolean_Cache 0062 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0063 00e2 | | Load_Encached Integer_Cache 0064 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0065 00e2 | | Load_Encached Integer_Cache 0066 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0067 e211 | | Load 0x1,0x11 0068 0007 | | Action Break_Optional 0069 0092 00d5 | | Action Push_String_Extended,0xd5 ; " (" 006b 0092 00d6 | | Action Push_String_Extended,0xd6 ; " => " 006d 029f 008b | | Declare_Subprogram INIT_0088,For_Call 006f BODY_0058: 006f e213 | | Load 0x1,0x13 0070 0227 | ' | Execute Access,All_Reference 0071 01db | | Execute Vector,Length 0072 c403 | | Store 0x2,0x3 0073 e213 | | Load 0x1,0x13 0074 0227 | ' | Execute Access,All_Reference 0075 e003 | | Load 0x0,0x3 0076 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0077 e215 | | Load 0x1,0x15 0078 7005 |p | Jump_Nonzero 0x7e 0079 0092 00d7 | | Action Push_String_Extended,0xd7 ; ";" 007b e003 | | Load 0x0,0x3 007c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 007d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007e e409 | | Load 0x2,0x9 007f e003 | | Load 0x0,0x3 0080 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0081 4801 |H | Short_Literal 0x1 0082 e215 | | Load 0x1,0x15 0083 840b | | Call 0x2,0xb 0084 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 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 0227 | ' | Execute Access,All_Reference 008d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 008e 0227 | ' | Execute Access,All_Reference 008f 01db | | Execute Vector,Length 0090 e404 | | Load 0x2,0x4 0091 027d | } | Execute Discrete,Greater 0092 680d |h | Jump_Zero 0xa0 0093 e7ff | | Load 0x3,-0x1 0094 0227 | ' | Execute Access,All_Reference 0095 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0096 0227 | ' | Execute Access,All_Reference 0097 01db | | Execute Vector,Length 0098 c404 | | Store 0x2,0x4 0099 e403 | | Load 0x2,0x3 009a 0a03 | | Execute_Immediate Plus,0x3 009b c406 | | Store 0x2,0x6 009c e406 | | Load 0x2,0x6 009d e404 | | Load 0x2,0x4 009e 0273 | s | Execute Discrete,Plus 009f c407 | | Store 0x2,0x7 00a0 e7ff | | Load 0x3,-0x1 00a1 0227 | ' | Execute Access,All_Reference 00a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a3 6805 |h | Jump_Zero 0xa9 00a4 4800 |H | Short_Literal 0x0 00a5 e7ff | | Load 0x3,-0x1 00a6 0227 | ' | Execute Access,All_Reference 00a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a8 840b | | Call 0x2,0xb 00a9 e406 | | Load 0x2,0x6 00aa 00d8 | | Load_Top At_Offset_0 00ab e003 | | Load 0x0,0x3 00ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ad 0260 | ` | Execute Discrete,In_Type 00ae 7001 |p | Jump_Nonzero 0xb0 00af 0801 | | Execute_Immediate Raise,0x1 00b0 e003 | | Load 0x0,0x3 00b1 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00b2 e7ff | | Load 0x3,-0x1 00b3 0227 | ' | Execute Access,All_Reference 00b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b5 0227 | ' | Execute Access,All_Reference 00b6 e003 | | Load 0x0,0x3 00b7 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00b8 e407 | | Load 0x2,0x7 00b9 00d8 | | Load_Top At_Offset_0 00ba e003 | | Load 0x0,0x3 00bb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00bc 0260 | ` | Execute Discrete,In_Type 00bd 7001 |p | Jump_Nonzero 0xbf 00be 0801 | | Execute_Immediate Raise,0x1 00bf e003 | | Load 0x0,0x3 00c0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00c1 e40a | | Load 0x2,0xa 00c2 e7ff | | Load 0x3,-0x1 00c3 0227 | ' | Execute Access,All_Reference 00c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c5 0227 | ' | Execute Access,All_Reference 00c6 01cc | | Execute Vector,Catenate 00c7 e003 | | Load 0x0,0x3 00c8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00c9 e7fe | | Load 0x3,-0x2 00ca 6805 |h | Jump_Zero 0xd0 00cb 0092 00d8 | | Action Push_String_Extended,0xd8 ; ");" 00cd e003 | | Load 0x0,0x3 00ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d0 0092 00d9 | | Action Push_String_Extended,0xd9 ; "," 00d2 e003 | | Load 0x0,0x3 00d3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d5 ; -------------------------------------------------------------------------------------- 00d5 ; STRING TABLE 00d5 ; -------------------------------------------------------------------------------------- 00d5 000c | | .STRTAB 0x000c->0x00db ; " (" 00d6 000c | | .STRTAB 0x000c->0x00dc ; " => " 00d7 000e | | .STRTAB 0x000e->0x00de ; ";" 00d8 000d | | .STRTAB 0x000d->0x00de ; ");" 00d9 000d | | .STRTAB 0x000d->0x00df ; "," 00da 000c | | .STREND 0x000c->0x00e0 00db 2028 203d | ( =| .STRTAB_STRINGS 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0011 | | .DEBUG4 0x0004,0x0011,0x97ab,0x0000,0x0001,0x0000 00e6 0000 0000 | | .BLANK 0000[0x11a]