|
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_14408c0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0078 | x | .CONST 0x0078 ; 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 0000 | | .CONST 0x0000 ; 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 0030 | 0 | .CONST 0x0030 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 0093 0053 | S| push_full_address INIT_0050 001e 00f5 | | Load_Encached Unused21 001f 037d | } | Declare_Type Task,Defined 0020 036f | o | Declare_Variable Task 0021 4800 |H | Short_Literal 0x0 0022 0093 003b | ;| push_full_address INIT_0038 0024 00f5 | | Load_Encached Unused21 0025 037d | } | Declare_Type Task,Defined 0026 036f | o | Declare_Variable Task 0027 e001 | | Load 0x0,0x1 0028 4801 |H | Short_Literal 0x1 0029 00db | | Load_Top At_Offset_3 002a 020e | | Execute Module,Augment_Imports 002b 0007 | | Action Break_Optional 002c e002 | | Load 0x0,0x2 002d 4801 |H | Short_Literal 0x1 002e 00da | | Load_Top At_Offset_2 002f 020e | | Execute Module,Augment_Imports 0030 BODY_0018: 0030 00be | | Action Activate_Tasks 0031 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003e | > | .CONST 0x003e ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 000d | | .CONST 0x000d ; Number of locals 003b INIT_0038: 003b 00bf | | Action Accept_Activation 003c 00e8 | | Load_Encached Character_Cache 003d 00bc | | Action Signal_Activated 003e BODY_0038: 003e 00cf | | Action Mark_Auxiliary 003f 00e8 | | Load_Encached Character_Cache 0040 e001 | | Load 0x0,0x1 0041 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0042 005a | Z | Store_Top Discrete,At_Offset_2 0043 00d9 | | Load_Top At_Offset_1 0044 0f2e | . | Execute_Immediate Equal,0x2e 0045 7002 |p | Jump_Nonzero 0x48 0046 00c9 | | Action Pop_Auxiliary_Loop 0047 7ff7 | | Jump 0x3f 0048 00ce | | Action Pop_Auxiliary 0049 00bb | | Action Signal_Completion 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0057 | W | .CONST 0x0057 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 000d | | .CONST 0x000d ; Number of locals 0053 INIT_0050: 0053 00bf | | Action Accept_Activation 0054 00e2 | | Load_Encached Integer_Cache 0055 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0056 00bc | | Action Signal_Activated 0057 BODY_0050: 0057 00cf | | Action Mark_Auxiliary 0058 00d9 | | Load_Top At_Offset_1 0059 0a01 | | Execute_Immediate Plus,0x1 005a 005a | Z | Store_Top Discrete,At_Offset_2 005b 0092 006c | l| Action Push_String_Extended,0x6c ; "coucou " 005d 00da | | Load_Top At_Offset_2 005e 00e0 | | Load_Encached Standard_Cache 005f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0060 01cc | | Execute Vector,Catenate 0061 e001 | | Load 0x0,0x1 0062 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0063 6004 |` | Indirect_Literal Discrete,0x68,{0x00000000, 0x00010000} 0064 00ba | | Action Initiate_Delay 0065 00c9 | | Action Pop_Auxiliary_Loop 0066 7ff1 | | Jump 0x58 0067 0000 | | .XXX[0x1] 0068 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 006c ; -------------------------------------------------------------------------------------- 006c ; STRING TABLE 006c ; -------------------------------------------------------------------------------------- 006c 0004 | | .STRTAB 0x0004->0x006e ; "coucou " 006d 0009 | | .STREND 0x0009->0x0071 006e 636f 7563 |couc| .STRTAB_STRINGS 0072 0000 0000 | | .BLANK 0000[0x6] 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0001 | | .DEBUG4 0x0004,0x0001,0x62f8,0x0000,0x0001,0x0006 007e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0082 001b 0096 | | .DBG4T 0x001b,0x0096,0x8001,0x0000 0086 003b 0000 | ; | .DBG4T 0x003b,0x0000,0x0000,0x0000 008a 003c 009d | < | .DBG4T 0x003c,0x009d,0x0000,0x4000 008e 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0000,0x0000 0092 0054 00a4 | T | .DBG4T 0x0054,0x00a4,0x0000,0x4000 0096 ; -------------------------------------------------------------------------------------- 0096 ; Debug chain 0096 ; -------------------------------------------------------------------------------------- 0096 0004 0001 | | .DBGLEN 0x0004,0x0001 0098 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0027,0x002c,0x0031 009d ; -------------------------------------------------------------------------------------- 009d ; Debug chain 009d ; -------------------------------------------------------------------------------------- 009d 0001 0002 | | .DBGLEN 0x0001,0x0002 009f 003c 003f | < ?| .DBGLNO 0x003c,0x003f,0x0043 00a2 0002 0003 | | .XXX[0x2] 00a4 ; -------------------------------------------------------------------------------------- 00a4 ; Debug chain 00a4 ; -------------------------------------------------------------------------------------- 00a4 0001 0003 | | .DBGLEN 0x0001,0x0003 00a6 0054 0058 | T X| .DBGLNO 0x0054,0x0058,0x005b,0x0063 00aa 0002 0003 | | .XXX[0x3] 00ac 0004 | | 00ad 0000 0000 | | .BLANK 0000[0x153]