|
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_09489b
└─⟦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 0100 | | .CONST 0x0100 ; 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 005e | ^ | .CONST 0x005e ; 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 0063 | c| Declare_Subprogram INIT_0060,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 008b | | Declare_Subprogram INIT_0088,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 4802 |H | Short_Literal 0x2 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 480a |H | Short_Literal 0xa 004c 4801 |H | Short_Literal 0x1 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 482c |H, | Short_Literal 0x2c 0050 4802 |H | Short_Literal 0x2 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 00db | | Load_Top At_Offset_3 0054 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0055 0119 | | Execute Any,Check_In_Formal_Type 0056 00d9 | | Load_Top At_Offset_1 0057 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0058 0129 | ) | Execute Any,Make_Visible 0059 00db | | Load_Top At_Offset_3 005a 0321 | ! | Declare_Variable Record,Visible 005b 00d8 | | Load_Top At_Offset_0 005c 1c00 | | Execute_Immediate Run_Utility,0x0 005d 00bf | | Action Accept_Activation 005e BODY_0008: 005e 00bc | | Action Signal_Activated 005f 00bb | | Action Signal_Completion 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4607 |F | Jump_Case 0x8 0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0065 7807 |x | Jump 0x6d ; case 0x1 0066 780a |x | Jump 0x71 ; case 0x2 0067 780e |x | Jump 0x76 ; case 0x3 0068 7811 |x | Jump 0x7a ; case 0x4 0069 7812 |x | Jump 0x7c ; case 0x5 006a 7813 |x | Jump 0x7e ; case 0x6 006b 7816 |x | Jump 0x82 ; case 0x7 006c 4302 |C | .XXX[0x1] 006d 00da | | Load_Top At_Offset_2 006e 0091 0095 | | Action Push_String_Extended_Indexed,0x95 ; "THE_REGISTRATION" 0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0071 00db | | Load_Top At_Offset_3 0072 00db | | Load_Top At_Offset_3 0073 00e0 | | Load_Encached Standard_Cache 0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 00da | | Load_Top At_Offset_2 0077 00e0 | | Load_Encached Standard_Cache 0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0079 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007a 00db | | Load_Top At_Offset_3 007b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007c 00db | | Load_Top At_Offset_3 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e e20d | | Load 0x1,0xd 007f 00dc | | Load_Top At_Offset_4 0080 0267 | g | Execute Discrete,Predecessor 0081 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0082 e20d | | Load 0x1,0xd 0083 00dc | | Load_Top At_Offset_4 0084 0268 | h | Execute Discrete,Successor 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4601 |F | Jump_Case 0x2 008c 7801 |x | Jump 0x8e ; case 0x0 008d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 008e 00da | | Load_Top At_Offset_2 008f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0090 0125 | % | Execute Any,Set_Constraint 0091 00da | | Load_Top At_Offset_2 0092 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0093 1c00 | | Execute_Immediate Run_Utility,0x0 0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0095 ; -------------------------------------------------------------------------------------- 0095 ; STRING TABLE 0095 ; -------------------------------------------------------------------------------------- 0095 001c | | .STRTAB 0x001c->0x00a3 ; "THE_REGISTRATION" 0096 002a | * | .STRTAB 0x002a->0x00ab ; "THE_UNREGISTRATION" 0097 003a | : | .STRTAB 0x003a->0x00b4 ; "THE_QUERY" 0098 0041 | A | .STRTAB 0x0041->0x00b8 ; "THE_REQUEST" 0099 004a | J | .STRTAB 0x004a->0x00be ; "THE_NOTIFICATION" 009a 0058 | X | .STRTAB 0x0058->0x00c6 ; "THE_FORWARD" 009b 0061 | a | .STRTAB 0x0061->0x00cb ; "THE_PUBLICATION" 009c 006e | n | .STRTAB 0x006e->0x00d3 ; "THE_UNPUBLICATION" 009d 007d | } | .STRTAB 0x007d->0x00db ; "THE_SUBSCRIPTION" 009e 008b | | .STRTAB 0x008b->0x00e3 ; "THE_UNSUBSCRIPTION" 009f 009b | | .STRTAB 0x009b->0x00ec ; "THE_FILTRATION" 00a0 00a7 | | .STRTAB 0x00a7->0x00f3 ; "THE_UNFILTRATION" 00a1 00b5 | | .STRTAB 0x00b5->0x00fb ; "NONE" 00a2 00b7 | | .STREND 0x00b7->0x00fd 00a3 5448 455f |THE_| .STRTAB_STRINGS 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0004 000a | | .DEBUG4 0x0004,0x000a,0x381d,0x0000,0x0001,0x0003 0106 000b 0112 | | .DBG4T 0x000b,0x0112,0x8000,0x8000 010a 0063 0000 | c | .DBG4T 0x0063,0x0000,0x0005,0x0000 010e 008b 0000 | | .DBG4T 0x008b,0x0000,0x0005,0x0000 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug chain 0112 ; -------------------------------------------------------------------------------------- 0112 0006 0000 | | .DBGLEN 0x0006,0x0000 0114 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0019,0x0026,0x002e,0x0059 011a 0001 0002 | | .XXX[0x6] 011c 0003 0004 | | 011e 000b 000c | | 0120 0000 0000 | | .BLANK 0000[0xe0]