|
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_2fecbf
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0108 | | .CONST 0x0108 ; 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 0066 | f | .CONST 0x0066 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480c |H | Short_Literal 0xc 000d 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 e002 | | Load 0x0,0x2 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 e003 | | Load 0x0,0x3 0013 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0014 00e3 | | Load_Encached Natural_Cache 0015 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0017 4803 |H | Short_Literal 0x3 0018 032e | . | Declare_Type Record,Defined,Visible 0019 4801 |H | Short_Literal 0x1 001a 4804 |H | Short_Literal 0x4 001b e003 | | Load 0x0,0x3 001c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 001d 035c | \ | Declare_Type Array,Constrained,Visible 001e 4801 |H | Short_Literal 0x1 001f 4804 |H | Short_Literal 0x4 0020 e003 | | Load 0x0,0x3 0021 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0022 035c | \ | Declare_Type Array,Constrained,Visible 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4802 |H | Short_Literal 0x2 0025 032e | . | Declare_Type Record,Defined,Visible 0026 e004 | | Load 0x0,0x4 0027 e005 | | Load 0x0,0x5 0028 e20d | | Load 0x1,0xd 0029 e006 | | Load 0x0,0x6 002a 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 002b 0386 | | Declare_Variable Package,Visible 002c 00d8 | | Load_Top At_Offset_0 002d 020f | | Execute Module,Activate 002e 00d9 | | Load_Top At_Offset_1 002f 0322 | " | Declare_Variable Record 0030 00da | | Load_Top At_Offset_2 0031 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0032 0337 | 7 | Declare_Variable Array 0033 48c1 |H | Short_Literal 0xc1 0034 4801 |H | Short_Literal 0x1 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4836 |H6 | Short_Literal 0x36 0038 4802 |H | Short_Literal 0x2 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 4892 |H | Short_Literal 0x92 003c 4803 |H | Short_Literal 0x3 003d 00da | | Load_Top At_Offset_2 003e 01d6 | | Execute Vector,Field_Write 003f 4884 |H | Short_Literal 0x84 0040 4804 |H | Short_Literal 0x4 0041 00da | | Load_Top At_Offset_2 0042 01d6 | | Execute Vector,Field_Write 0043 00db | | Load_Top At_Offset_3 0044 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0045 0119 | | Execute Any,Check_In_Formal_Type 0046 00d9 | | Load_Top At_Offset_1 0047 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0048 00da | | Load_Top At_Offset_2 0049 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 004a 0337 | 7 | Declare_Variable Array 004b 4802 |H | Short_Literal 0x2 004c 4801 |H | Short_Literal 0x1 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 4806 |H | Short_Literal 0x6 0050 4802 |H | Short_Literal 0x2 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 4800 |H | Short_Literal 0x0 0054 4803 |H | Short_Literal 0x3 0055 00da | | Load_Top At_Offset_2 0056 01d6 | | Execute Vector,Field_Write 0057 4804 |H | Short_Literal 0x4 0058 4804 |H | Short_Literal 0x4 0059 00da | | Load_Top At_Offset_2 005a 01d6 | | Execute Vector,Field_Write 005b 00db | | Load_Top At_Offset_3 005c 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 005d 0119 | | Execute Any,Check_In_Formal_Type 005e 00d9 | | Load_Top At_Offset_1 005f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0060 0129 | ) | Execute Any,Make_Visible 0061 00db | | Load_Top At_Offset_3 0062 0321 | ! | Declare_Variable Record,Visible 0063 00d8 | | Load_Top At_Offset_0 0064 1c00 | | Execute_Immediate Run_Utility,0x0 0065 00bf | | Action Accept_Activation 0066 BODY_0008: 0066 00bc | | Action Signal_Activated 0067 00bb | | Action Signal_Completion 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 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 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7807 |x | Jump 0x75 ; case 0x1 006e 780a |x | Jump 0x79 ; case 0x2 006f 780e |x | Jump 0x7e ; case 0x3 0070 7811 |x | Jump 0x82 ; case 0x4 0071 7812 |x | Jump 0x84 ; case 0x5 0072 7813 |x | Jump 0x86 ; case 0x6 0073 7816 |x | Jump 0x8a ; case 0x7 0074 4302 |C | .XXX[0x1] 0075 00da | | Load_Top At_Offset_2 0076 0091 009d | | Action Push_String_Extended_Indexed,0x9d ; "THE_REGISTRATION" 0078 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0079 00db | | Load_Top At_Offset_3 007a 00db | | Load_Top At_Offset_3 007b 00e0 | | Load_Encached Standard_Cache 007c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 00da | | Load_Top At_Offset_2 007f 00e0 | | Load_Encached Standard_Cache 0080 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0081 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0082 00db | | Load_Top At_Offset_3 0083 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0084 00db | | Load_Top At_Offset_3 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 e20d | | Load 0x1,0xd 0087 00dc | | Load_Top At_Offset_4 0088 0267 | g | Execute Discrete,Predecessor 0089 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008a e20d | | Load 0x1,0xd 008b 00dc | | Load_Top At_Offset_4 008c 0268 | h | Execute Discrete,Successor 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4601 |F | Jump_Case 0x2 0094 7801 |x | Jump 0x96 ; case 0x0 0095 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0096 00da | | Load_Top At_Offset_2 0097 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0098 0125 | % | Execute Any,Set_Constraint 0099 00da | | Load_Top At_Offset_2 009a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 009b 1c00 | | Execute_Immediate Run_Utility,0x0 009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 009d ; -------------------------------------------------------------------------------------- 009d ; STRING TABLE 009d ; -------------------------------------------------------------------------------------- 009d 001c | | .STRTAB 0x001c->0x00ab ; "THE_REGISTRATION" 009e 002a | * | .STRTAB 0x002a->0x00b3 ; "THE_UNREGISTRATION" 009f 003a | : | .STRTAB 0x003a->0x00bc ; "THE_QUERY" 00a0 0041 | A | .STRTAB 0x0041->0x00c0 ; "THE_REQUEST" 00a1 004a | J | .STRTAB 0x004a->0x00c6 ; "THE_NOTIFICATION" 00a2 0058 | X | .STRTAB 0x0058->0x00ce ; "THE_FORWARD" 00a3 0061 | a | .STRTAB 0x0061->0x00d3 ; "THE_PUBLICATION" 00a4 006e | n | .STRTAB 0x006e->0x00db ; "THE_UNPUBLICATION" 00a5 007d | } | .STRTAB 0x007d->0x00e3 ; "THE_SUBSCRIPTION" 00a6 008b | | .STRTAB 0x008b->0x00eb ; "THE_UNSUBSCRIPTION" 00a7 009b | | .STRTAB 0x009b->0x00f4 ; "THE_FILTRATION" 00a8 00a7 | | .STRTAB 0x00a7->0x00fb ; "THE_UNFILTRATION" 00a9 00b5 | | .STRTAB 0x00b5->0x0103 ; "NONE" 00aa 00b7 | | .STREND 0x00b7->0x0105 00ab 5448 455f |THE_| .STRTAB_STRINGS 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug Table 0108 ; -------------------------------------------------------------------------------------- 0108 0004 000a | | .DEBUG4 0x0004,0x000a,0x0b66,0x0000,0x0001,0x0003 010e 000b 011a | | .DBG4T 0x000b,0x011a,0x8000,0x8000 0112 006b 0000 | k | .DBG4T 0x006b,0x0000,0x0005,0x0000 0116 0093 0000 | | .DBG4T 0x0093,0x0000,0x0005,0x0000 011a ; -------------------------------------------------------------------------------------- 011a ; Debug chain 011a ; -------------------------------------------------------------------------------------- 011a 0006 0000 | | .DBGLEN 0x0006,0x0000 011c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0019,0x0026,0x002e,0x0061 0122 0001 0002 | | .XXX[0x6] 0124 0003 0004 | | 0126 000a 000b | | 0128 0000 0000 | | .BLANK 0000[0xd8]