|
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_0c80bf
└─⟦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 00c0 | | .CONST 0x00c0 ; 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 0098 | | Action Push_String_Extended,0x98 ; "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 0099 | | Action Push_String_Extended,0x99 ; "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 781b |x | Jump 0x8f 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 009a | | Action Push_String_Extended,0x9a ; "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 00c9 | | Action Pop_Auxiliary_Loop 008f e210 | | Load 0x1,0x10 0090 e001 | | Load 0x0,0x1 0091 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0092 0f00 | | Execute_Immediate Equal,0x0 0093 e5fc | | Load 0x2,-0x4 0094 0f00 | | Execute_Immediate Equal,0x0 0095 0279 | y | Execute Discrete,And 0096 77dd |w | Jump_Nonzero 0x74 0097 4102 |A | End_Rendezvous 0x2 0098 ; -------------------------------------------------------------------------------------- 0098 ; STRING TABLE 0098 ; -------------------------------------------------------------------------------------- 0098 0008 | | .STRTAB 0x0008->0x009c ; "Task socket is Running" 0099 001c | | .STRTAB 0x001c->0x00a7 ; "Task socket new socket" 009a 0030 | 0 | .STRTAB 0x0030->0x00b2 ; "Task socket found" 009b 003f | ? | .STREND 0x003f->0x00ba 009c 5461 736b |Task| .STRTAB_STRINGS 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; Debug Table 00c0 ; -------------------------------------------------------------------------------------- 00c0 0004 000a | | .DEBUG4 0x0004,0x000a,0x32d0,0x0000,0x0001,0x0006 00c6 000b 00de | | .DBG4T 0x000b,0x00de,0x8000,0x0000 00ca 0012 00e1 | | .DBG4T 0x0012,0x00e1,0x8000,0x0000 00ce 0023 00e4 | # | .DBG4T 0x0023,0x00e4,0x0000,0x0000 00d2 0028 00e8 | ( | .DBG4T 0x0028,0x00e8,0x0000,0x4000 00d6 0053 00f5 | S | .DBG4T 0x0053,0x00f5,0x0003,0x0000 00da 006b 00fb | k | .DBG4T 0x006b,0x00fb,0x0003,0x4000 00de ; -------------------------------------------------------------------------------------- 00de ; Debug chain 00de ; -------------------------------------------------------------------------------------- 00de 0001 0000 | | .DBGLEN 0x0001,0x0000 00e0 000b | | .DBGLNO 0x000b 00e1 ; -------------------------------------------------------------------------------------- 00e1 ; Debug chain 00e1 ; -------------------------------------------------------------------------------------- 00e1 0001 0000 | | .DBGLEN 0x0001,0x0000 00e3 0012 | | .DBGLNO 0x0012 00e4 ; -------------------------------------------------------------------------------------- 00e4 ; Debug chain 00e4 ; -------------------------------------------------------------------------------------- 00e4 0002 0000 | | .DBGLEN 0x0002,0x0000 00e6 0023 0025 | # %| .DBGLNO 0x0023,0x0025 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug chain 00e8 ; -------------------------------------------------------------------------------------- 00e8 0003 0004 | | .DBGLEN 0x0003,0x0004 00ea 0028 002b | ( +| .DBGLNO 0x0028,0x002b,0x002e,0x003b,0x0041,0x0046,0x004a 00f1 0001 0002 | | .XXX[0x4] 00f3 0004 0006 | | 00f5 ; -------------------------------------------------------------------------------------- 00f5 ; Debug chain 00f5 ; -------------------------------------------------------------------------------------- 00f5 0000 0004 | | .DBGLEN 0x0000,0x0004 00f7 0053 0056 | S V| .DBGLNO 0x0053,0x0056,0x0059,0x005e 00fb ; -------------------------------------------------------------------------------------- 00fb ; Debug chain 00fb ; -------------------------------------------------------------------------------------- 00fb 0000 0009 | | .DBGLEN 0x0000,0x0009 00fd 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x0074,0x0079,0x007e,0x0082,0x0084,0x008a,0x008f 0106 0001 0002 | | .XXX[0x9] 0108 0004 0005 | | 010a 0006 0007 | | 010c 0008 0009 | | 010e 0003 | | 010f 0000 0000 | | .BLANK 0000[0xf1]