|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0f6491
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 0093 0023 | #| push_full_address INIT_0020 000e 00f5 | | Load_Encached Unused21 000f 037e | ~ | Declare_Type Task,Defined,Visible 0010 036e | n | Declare_Variable Task,Visible 0011 00bf | | Action Accept_Activation 0012 e002 | | Load 0x0,0x2 0013 e003 | | Load 0x0,0x3 0014 e004 | | Load 0x0,0x4 0015 e005 | | Load 0x0,0x5 0016 4804 |H | Short_Literal 0x4 0017 e20d | | Load 0x1,0xd 0018 020e | | Execute Module,Augment_Imports 0019 BODY_0008: 0019 00be | | Action Activate_Tasks 001a 00bc | | Action Signal_Activated 001b 00bb | | Action Signal_Completion 001c 0000 0000 | | .BLANK 0000[0x4] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 003b | ; | .CONST 0x003b ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0013 | | .CONST 0x0013 ; Number of locals 0023 INIT_0020: 0023 4803 |H | Short_Literal 0x3 0024 02cb | | Declare_Variable Entry 0025 4802 |H | Short_Literal 0x2 0026 02cb | | Declare_Variable Entry 0027 00bf | | Action Accept_Activation 0028 e001 | | Load 0x0,0x1 0029 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002a 0322 | " | Declare_Variable Record 002b e001 | | Load 0x0,0x1 002c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 002d 0322 | " | Declare_Variable Record 002e e002 | | Load 0x0,0x2 002f 0322 | " | Declare_Variable Record 0030 480e |H | Short_Literal 0xe 0031 0299 0053 | S| Declare_Subprogram INIT_0050,For_Accept 0033 480d 480d |H H | Declare_Variable Select 0x000, 0x001, 0035 4800 4800 |H H | [0x000]: 0x000 = 0x0000, 0037 4800 4801 |H H | [0x00d]: 0x00d = 0x0068 0039 02cf | | 003a 00bc | | Action Signal_Activated 003b BODY_0020: 003b 0092 009e | | Action Push_String_Extended,0x9e ; "Task socket is Running" 003d 4801 |H | Short_Literal 0x1 003e e003 | | Load 0x0,0x3 003f e004 | | Load 0x0,0x4 0040 00ad | | QQ_Action Package,Field_Execute_Dynamic 0041 e20f | | Load 0x1,0xf 0042 e001 | | Load 0x0,0x1 0043 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0044 00d1 | | Pop_Control Pop_Count_1 0045 00cf | | Action Mark_Auxiliary 0046 00d9 | | Load_Top At_Offset_1 0047 013f | ? | Execute Select,Rendezvous 0048 4601 |F | Jump_Case 0x2 0049 7800 |x | Jump 0x4a ; case 0x0 004a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; case 0x1 004b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004c 0137 | 7 | Execute Entry,Rendezvous 004d 00c9 | | Action Pop_Auxiliary_Loop 004e 7ff7 | | Jump 0x46 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00db | | Load_Top At_Offset_3 0054 e211 | | Load 0x1,0x11 0055 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0056 e5fd | | Load 0x2,-0x3 0057 e211 | | Load 0x1,0x11 0058 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0059 e20f | | Load 0x1,0xf 005a e211 | | Load 0x1,0x11 005b e001 | | Load 0x0,0x1 005c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005d 00d1 | | Pop_Control Pop_Count_1 005e 0092 009f | | Action Push_String_Extended,0x9f ; "Task socket new socket" 0060 4801 |H | Short_Literal 0x1 0061 e003 | | Load 0x0,0x3 0062 e004 | | Load 0x0,0x4 0063 00ad | | QQ_Action Package,Field_Execute_Dynamic 0064 4100 |A | End_Rendezvous 0x0 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; See instruction 0x02cf at 0x33, index=0xd 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4800 |H | Short_Literal 0x0 006c a5fc | | Store_Unchecked 0x2,-0x4 006d e210 | | Load 0x1,0x10 006e e20f | | Load 0x1,0xf 006f e001 | | Load 0x0,0x1 0070 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0071 00d1 | | Pop_Control Pop_Count_1 0072 00cf | | Action Mark_Auxiliary 0073 7821 |x! | Jump 0x95 0074 e210 | | Load 0x1,0x10 0075 e001 | | Load 0x0,0x1 0076 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0077 e211 | | Load 0x1,0x11 0078 017d | } | Execute Record,Structure_Write 0079 e211 | | Load 0x1,0x11 007a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 007b e5fe | | Load 0x2,-0x2 007c 01df | | Execute Vector,Equal 007d 680c |h | Jump_Zero 0x8a 007e e211 | | Load 0x1,0x11 007f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0080 e5fd | | Load 0x2,-0x3 0081 01d4 | | Execute Vector,Structure_Write 0082 4801 |H | Short_Literal 0x1 0083 a5fc | | Store_Unchecked 0x2,-0x4 0084 0092 00a0 | | Action Push_String_Extended,0xa0 ; "Task socket found" 0086 4801 |H | Short_Literal 0x1 0087 e003 | | Load 0x0,0x3 0088 e004 | | Load 0x0,0x4 0089 00ad | | QQ_Action Package,Field_Execute_Dynamic 008a e210 | | Load 0x1,0x10 008b e001 | | Load 0x0,0x1 008c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 008d 00d1 | | Pop_Control Pop_Count_1 008e 0092 00a1 | | Action Push_String_Extended,0xa1 ; "sortie dans Search_fifo_socket" 0090 4801 |H | Short_Literal 0x1 0091 e003 | | Load 0x0,0x3 0092 e004 | | Load 0x0,0x4 0093 00ad | | QQ_Action Package,Field_Execute_Dynamic 0094 00c9 | | Action Pop_Auxiliary_Loop 0095 e210 | | Load 0x1,0x10 0096 e001 | | Load 0x0,0x1 0097 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0098 0f00 | | Execute_Immediate Equal,0x0 0099 e5fc | | Load 0x2,-0x4 009a 0f00 | | Execute_Immediate Equal,0x0 009b 0279 | y | Execute Discrete,And 009c 77d7 |w | Jump_Nonzero 0x74 009d 4102 |A | End_Rendezvous 0x2 009e ; -------------------------------------------------------------------------------------- 009e ; STRING TABLE 009e ; -------------------------------------------------------------------------------------- 009e 000a | | .STRTAB 0x000a->0x00a3 ; "Task socket is Running" 009f 001e | | .STRTAB 0x001e->0x00ae ; "Task socket new socket" 00a0 0032 | 2 | .STRTAB 0x0032->0x00b9 ; "Task socket found" 00a1 0041 | A | .STRTAB 0x0041->0x00c1 ; "sortie dans Search_fifo_socket" 00a2 005d | ] | .STREND 0x005d->0x00d0 00a3 5461 736b |Task| .STRTAB_STRINGS 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 000a | | .DEBUG4 0x0004,0x000a,0x5f0e,0x0000,0x0001,0x0006 00de 000b 00f6 | | .DBG4T 0x000b,0x00f6,0x8000,0x0000 00e2 0012 00f9 | | .DBG4T 0x0012,0x00f9,0x8000,0x0000 00e6 0023 00fc | # | .DBG4T 0x0023,0x00fc,0x0000,0x0000 00ea 0028 0100 | ( | .DBG4T 0x0028,0x0100,0x0000,0x4000 00ee 0053 010d | S | .DBG4T 0x0053,0x010d,0x0003,0x0000 00f2 006b 0113 | k | .DBG4T 0x006b,0x0113,0x0003,0x4000 00f6 ; -------------------------------------------------------------------------------------- 00f6 ; Debug chain 00f6 ; -------------------------------------------------------------------------------------- 00f6 0001 0000 | | .DBGLEN 0x0001,0x0000 00f8 000b | | .DBGLNO 0x000b 00f9 ; -------------------------------------------------------------------------------------- 00f9 ; Debug chain 00f9 ; -------------------------------------------------------------------------------------- 00f9 0001 0000 | | .DBGLEN 0x0001,0x0000 00fb 0012 | | .DBGLNO 0x0012 00fc ; -------------------------------------------------------------------------------------- 00fc ; Debug chain 00fc ; -------------------------------------------------------------------------------------- 00fc 0002 0000 | | .DBGLEN 0x0002,0x0000 00fe 0023 0025 | # %| .DBGLNO 0x0023,0x0025 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug chain 0100 ; -------------------------------------------------------------------------------------- 0100 0003 0004 | | .DBGLEN 0x0003,0x0004 0102 0028 002b | ( +| .DBGLNO 0x0028,0x002b,0x002e,0x003b,0x0041,0x0046,0x004a 0109 0001 0002 | | .XXX[0x4] 010b 0004 0006 | | 010d ; -------------------------------------------------------------------------------------- 010d ; Debug chain 010d ; -------------------------------------------------------------------------------------- 010d 0000 0004 | | .DBGLEN 0x0000,0x0004 010f 0053 0056 | S V| .DBGLNO 0x0053,0x0056,0x0059,0x005e 0113 ; -------------------------------------------------------------------------------------- 0113 ; Debug chain 0113 ; -------------------------------------------------------------------------------------- 0113 0000 000a | | .DBGLEN 0x0000,0x000a 0115 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x0074,0x0079,0x007e,0x0082,0x0084,0x008a,0x008e,0x0095 011f 0001 0002 | | .XXX[0xa] 0121 0004 0005 | | 0123 0006 0007 | | 0125 0008 0009 | | 0127 000a 0003 | | 0129 0000 0000 | | .BLANK 0000[0xd7]