|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_097483
└─⟦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 01b0 | | .CONST 0x01b0 ; 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 0001 | | .CONST 0x0001 ; 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 0025 | % | .CONST 0x0025 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0005 | | .CONST 0x0005 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0322 | " | Declare_Variable Record 001d 00d8 | | Load_Top At_Offset_0 001e 1c00 | | Execute_Immediate Run_Utility,0x0 001f e003 | | Load 0x0,0x3 0020 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0021 e004 | | Load 0x0,0x4 0022 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0023 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0025 BODY_0018: 0025 0092 0130 | 0| Action Push_String_Extended,0x130 ; "ORB is ready..." 0027 e005 | | Load 0x0,0x5 0028 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0029 00cf | | Action Mark_Auxiliary 002a 8006 | | Call 0x0,0x6 002b 7006 |p | Jump_Nonzero 0x32 002c e402 | | Load 0x2,0x2 002d 8007 | | Call 0x0,0x7 002e 00d1 | | Pop_Control Pop_Count_1 002f e402 | | Load 0x2,0x2 0030 8405 | | Call 0x2,0x5 0031 00d1 | | Pop_Control Pop_Count_1 0032 00c9 | | Action Pop_Auxiliary_Loop 0033 7ff6 | | Jump 0x2a 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004d | M | .CONST 0x004d ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0008 | | .CONST 0x0008 ; Number of locals 003b INIT_0038: 003b e008 | | Load 0x0,0x8 003c 0007 | | Action Break_Optional 003d e009 | | Load 0x0,0x9 003e 0322 | " | Declare_Variable Record 003f 00d8 | | Load_Top At_Offset_0 0040 1c00 | | Execute_Immediate Run_Utility,0x0 0041 e00a | | Load 0x0,0xa 0042 02ff | | Declare_Variable Variant_Record 0043 00d8 | | Load_Top At_Offset_0 0044 1c00 | | Execute_Immediate Run_Utility,0x0 0045 e00b | | Load 0x0,0xb 0046 0322 | " | Declare_Variable Record 0047 00e2 | | Load_Encached Integer_Cache 0048 03e9 | | Declare_Variable Discrete,Duplicate 0049 e00c | | Load 0x0,0xc 004a 0322 | " | Declare_Variable Record 004b 00d8 | | Load_Top At_Offset_0 004c 1c00 | | Execute_Immediate Run_Utility,0x0 004d BODY_0038: 004d e008 | | Load 0x0,0x8 004e e7ff | | Load 0x3,-0x1 004f 800d | | Call 0x0,0xd 0050 c602 | | Store 0x3,0x2 0051 e602 | | Load 0x3,0x2 0052 460b |F | Jump_Case 0xc 0053 78ba |x | Jump 0x10e ; case 0x0 0054 780b |x | Jump 0x60 ; case 0x1 0055 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 0056 7814 |x | Jump 0x6b ; case 0x3 0057 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 0058 7850 |xP | Jump 0xa9 ; case 0x5 0059 78a3 |x | Jump 0xfd ; case 0x6 005a 7843 |xC | Jump 0x9e ; case 0x7 005b 7884 |x | Jump 0xe0 ; case 0x8 005c 7891 |x | Jump 0xee ; case 0x9 005d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xa 005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb 005f 4501 |E | .XXX[0x1] 0060 0092 0131 | 1| Action Push_String_Extended,0x131 ; "Orb : receive an unregistration" 0062 e005 | | Load 0x0,0x5 0063 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0064 00e2 | | Load_Encached Integer_Cache 0065 e7ff | | Load 0x3,-0x1 0066 800e | | Call 0x0,0xe 0067 005b | [ | Store_Top Discrete,At_Offset_3 0068 00da | | Load_Top At_Offset_2 0069 800f | | Call 0x0,0xf 006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006b 0092 0132 | 2| Action Push_String_Extended,0x132 ; "Orb received a request..." 006d e005 | | Load 0x0,0x5 006e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006f e604 | | Load 0x3,0x4 0070 e010 | | Load 0x0,0x10 0071 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0072 e7ff | | Load 0x3,-0x1 0073 8011 | | Call 0x0,0x11 0074 00d1 | | Pop_Control Pop_Count_1 0075 00e2 | | Load_Encached Integer_Cache 0076 e7ff | | Load 0x3,-0x1 0077 800e | | Call 0x0,0xe 0078 005a | Z | Store_Top Discrete,At_Offset_2 0079 e604 | | Load 0x3,0x4 007a e403 | | Load 0x2,0x3 007b 8012 | | Call 0x0,0x12 007c 6820 |h | Jump_Zero 0x9d 007d 0092 0133 | 3| Action Push_String_Extended,0x133 ; "Such a contract exists." 007f e005 | | Load 0x0,0x5 0080 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0081 e604 | | Load 0x3,0x4 0082 e403 | | Load 0x2,0x3 0083 8013 | | Call 0x0,0x13 0084 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0085 00d9 | | Load_Top At_Offset_1 0086 00db | | Load_Top At_Offset_3 0087 8014 | | Call 0x0,0x14 0088 e7ff | | Load 0x3,-0x1 0089 4805 |H | Short_Literal 0x5 008a 8015 | | Call 0x0,0x15 008b 00d1 | | Pop_Control Pop_Count_1 008c e7ff | | Load 0x3,-0x1 008d 4800 |H | Short_Literal 0x0 008e 8016 | | Call 0x0,0x16 008f 00d1 | | Pop_Control Pop_Count_1 0090 e7ff | | Load 0x3,-0x1 0091 00d9 | | Load_Top At_Offset_1 0092 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0093 00da | | Load_Top At_Offset_2 0094 00d9 | | Load_Top At_Offset_1 0095 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0096 00d8 | | Load_Top At_Offset_0 0097 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0098 00db | | Load_Top At_Offset_3 0099 8017 | | Call 0x0,0x17 009a 00d1 | | Pop_Control Pop_Count_1 009b 00d8 | | Load_Top At_Offset_0 009c 8018 | | Call 0x0,0x18 009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009e e604 | | Load 0x3,0x4 009f e010 | | Load 0x0,0x10 00a0 0161 | a | Execute Variant_Record,Check_In_Formal_Type 00a1 e7ff | | Load 0x3,-0x1 00a2 8011 | | Call 0x0,0x11 00a3 00d1 | | Pop_Control Pop_Count_1 00a4 e403 | | Load 0x2,0x3 00a5 e604 | | Load 0x3,0x4 00a6 8019 | | Call 0x0,0x19 00a7 c403 | | Store 0x2,0x3 00a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a9 00e2 | | Load_Encached Integer_Cache 00aa e7ff | | Load 0x3,-0x1 00ab 800e | | Call 0x0,0xe 00ac 005a | Z | Store_Top Discrete,At_Offset_2 00ad 00e2 | | Load_Encached Integer_Cache 00ae 00da | | Load_Top At_Offset_2 00af 801a | | Call 0x0,0x1a 00b0 005b | [ | Store_Top Discrete,At_Offset_3 00b1 e7ff | | Load 0x3,-0x1 00b2 4805 |H | Short_Literal 0x5 00b3 8015 | | Call 0x0,0x15 00b4 00d1 | | Pop_Control Pop_Count_1 00b5 e7ff | | Load 0x3,-0x1 00b6 4800 |H | Short_Literal 0x0 00b7 8016 | | Call 0x0,0x16 00b8 00d1 | | Pop_Control Pop_Count_1 00b9 e7ff | | Load 0x3,-0x1 00ba 00d9 | | Load_Top At_Offset_1 00bb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00bc 00da | | Load_Top At_Offset_2 00bd 00d9 | | Load_Top At_Offset_1 00be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bf 00d8 | | Load_Top At_Offset_0 00c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c1 00db | | Load_Top At_Offset_3 00c2 8017 | | Call 0x0,0x17 00c3 00d1 | | Pop_Control Pop_Count_1 00c4 00d8 | | Load_Top At_Offset_0 00c5 8018 | | Call 0x0,0x18 00c6 00d9 | | Load_Top At_Offset_1 00c7 e404 | | Load 0x2,0x4 00c8 801b | | Call 0x0,0x1b 00c9 6815 |h | Jump_Zero 0xdf 00ca 0092 0134 | 4| Action Push_String_Extended,0x134 ; "Orb found a subscripter." 00cc e005 | | Load 0x0,0x5 00cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ce 00d9 | | Load_Top At_Offset_1 00cf e404 | | Load 0x2,0x4 00d0 801c | | Call 0x0,0x1c 00d1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00d2 e7ff | | Load 0x3,-0x1 00d3 00d9 | | Load_Top At_Offset_1 00d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d5 00da | | Load_Top At_Offset_2 00d6 00d9 | | Load_Top At_Offset_1 00d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d8 00d8 | | Load_Top At_Offset_0 00d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00da 00db | | Load_Top At_Offset_3 00db 8017 | | Call 0x0,0x17 00dc 00d1 | | Pop_Control Pop_Count_1 00dd 00d8 | | Load_Top At_Offset_0 00de 8018 | | Call 0x0,0x18 00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e0 0092 0135 | 5| Action Push_String_Extended,0x135 ; "Orb : receive a subscription." 00e2 e005 | | Load 0x0,0x5 00e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00e4 00db | | Load_Top At_Offset_3 00e5 e7ff | | Load 0x3,-0x1 00e6 e403 | | Load 0x2,0x3 00e7 801d | | Call 0x0,0x1d 00e8 00d1 | | Pop_Control Pop_Count_1 00e9 e404 | | Load 0x2,0x4 00ea e605 | | Load 0x3,0x5 00eb 801e | | Call 0x0,0x1e 00ec c404 | | Store 0x2,0x4 00ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ee 0092 0136 | 6| Action Push_String_Extended,0x136 ; "Orb : receive an unsubscription" 00f0 e005 | | Load 0x0,0x5 00f1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00f2 00db | | Load_Top At_Offset_3 00f3 e7ff | | Load 0x3,-0x1 00f4 e403 | | Load 0x2,0x3 00f5 801d | | Call 0x0,0x1d 00f6 00d1 | | Pop_Control Pop_Count_1 00f7 e404 | | Load 0x2,0x4 00f8 e605 | | Load 0x3,0x5 00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fa 801f | | Call 0x0,0x1f 00fb c404 | | Store 0x2,0x4 00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fd e603 | | Load 0x3,0x3 00fe e7ff | | Load 0x3,-0x1 00ff 8020 | | Call 0x0,0x20 0100 00d1 | | Pop_Control Pop_Count_1 0101 e403 | | Load 0x2,0x3 0102 e603 | | Load 0x3,0x3 0103 8021 | ! | Call 0x0,0x21 0104 c403 | | Store 0x2,0x3 0105 0092 0137 | 7| Action Push_String_Extended,0x137 ; "Publication added : " 0107 e603 | | Load 0x3,0x3 0108 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0109 8022 | " | Call 0x0,0x22 010a 01cc | | Execute Vector,Catenate 010b e005 | | Load 0x0,0x5 010c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 010d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010e 0092 0138 | 8| Action Push_String_Extended,0x138 ; "ORB : receive a Registration..." 0110 e005 | | Load 0x0,0x5 0111 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0112 00da | | Load_Top At_Offset_2 0113 e7ff | | Load 0x3,-0x1 0114 8023 | # | Call 0x0,0x23 0115 00d1 | | Pop_Control Pop_Count_1 0116 005b | [ | Store_Top Discrete,At_Offset_3 0117 e7ff | | Load 0x3,-0x1 0118 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0119 00db | | Load_Top At_Offset_3 011a 00e0 | | Load_Encached Standard_Cache 011b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 011c 8024 | $ | Call 0x0,0x24 011d 00d1 | | Pop_Control Pop_Count_1 011e e7ff | | Load 0x3,-0x1 011f 4805 |H | Short_Literal 0x5 0120 8015 | | Call 0x0,0x15 0121 00d1 | | Pop_Control Pop_Count_1 0122 e7ff | | Load 0x3,-0x1 0123 00d9 | | Load_Top At_Offset_1 0124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0125 4800 |H | Short_Literal 0x0 0126 00d9 | | Load_Top At_Offset_1 0127 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0128 00d8 | | Load_Top At_Offset_0 0129 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012a 00db | | Load_Top At_Offset_3 012b 8017 | | Call 0x0,0x17 012c 00d1 | | Pop_Control Pop_Count_1 012d 00d8 | | Load_Top At_Offset_0 012e 8018 | | Call 0x0,0x18 012f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0130 ; -------------------------------------------------------------------------------------- 0130 ; STRING TABLE 0130 ; -------------------------------------------------------------------------------------- 0130 0014 | | .STRTAB 0x0014->0x013a ; "ORB is ready..." 0131 0021 | ! | .STRTAB 0x0021->0x0141 ; "Orb : receive an unregistration" 0132 003e | > | .STRTAB 0x003e->0x0151 ; "Orb received a request..." 0133 0055 | U | .STRTAB 0x0055->0x015d ; "Such a contract exists." 0134 006a | j | .STRTAB 0x006a->0x0169 ; "Orb found a subscripter." 0135 0080 | | .STRTAB 0x0080->0x0175 ; "Orb : receive a subscription." 0136 009b | | .STRTAB 0x009b->0x0183 ; "Orb : receive an unsubscription" 0137 00b8 | | .STRTAB 0x00b8->0x0193 ; "Publication added : " 0138 00ca | | .STRTAB 0x00ca->0x019d ; "ORB : receive a Registration..." 0139 00e7 | | .STREND 0x00e7->0x01ac 013a 4f52 4220 |ORB | .STRTAB_STRINGS 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; Debug Table 01b0 ; -------------------------------------------------------------------------------------- 01b0 0004 000a | | .DEBUG4 0x0004,0x000a,0x5b30,0x0000,0x0001,0x0003 01b6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 01ba 001b 01c2 | | .DBG4T 0x001b,0x01c2,0x8001,0xc000 01be 003b 01d4 | ; | .DBG4T 0x003b,0x01d4,0x0001,0x4000 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; Debug chain 01c2 ; -------------------------------------------------------------------------------------- 01c2 0004 0004 | | .DBGLEN 0x0004,0x0004 01c4 001b 001f | | .DBGLNO 0x001b,0x001f,0x0021,0x0023,0x0025,0x002a,0x002c,0x002f 01cc 0001 0003 | | .XXX[0x8] 01ce 0004 0005 | | 01d0 0001 0003 | | 01d2 0004 0005 | | 01d4 ; -------------------------------------------------------------------------------------- 01d4 ; Debug chain 01d4 ; -------------------------------------------------------------------------------------- 01d4 0006 0034 | 4| .DBGLEN 0x0006,0x0034 01d6 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x0041,0x0045,0x0047,0x0049,0x004d,0x0051,0x0060,0x0064,0x0068,0x006b,0x006f,0x0075,0x0079,0x007d,0x0081,0x0085,0x0088,0x008c,0x0090,0x0093,0x0096,0x009b,0x009e,0x00a4,0x00a9,0x00ad,0x00b1,0x00b5,0x00b9,0x00bc,0x00bf,0x00c4,0x00c6,0x00ca,0x00ce,0x00d2,0x00d5,0x00d8,0x00dd,0x00e0,0x00e4,0x00e9,0x00ee,0x00f2,0x00f7,0x00fd,0x0101,0x0105,0x010e,0x0112,0x0117,0x011e,0x0122,0x0125,0x0128,0x012d 0210 0001 0002 | | .XXX[0x34] 0212 000b 000c | | 0214 000d 000f | | 0216 0010 0011 | | 0218 0012 0013 | | 021a 0014 0015 | | 021c 0016 0017 | | 021e 0018 0019 | | 0220 001a 001b | | 0222 0020 0021 | !| 0224 0022 0023 | " #| 0226 0024 0025 | $ %| 0228 0026 0027 | & '| 022a 0028 0029 | ( )| 022c 002a 002b | * +| 022e 002c 002d | , -| 0230 002e 002f | . /| 0232 0030 0031 | 0 1| 0234 0032 0033 | 2 3| 0236 0034 0035 | 4 5| 0238 0036 001d | 6 | 023a 001e 001f | | 023c 0003 0004 | | 023e 0005 0006 | | 0240 0007 0008 | | 0242 0009 000a | | 0244 0000 0000 | | .BLANK 0000[0x1bc]