|
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_366093
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b e003 | | Load 0x0,0x3 000c 4801 |H | Short_Literal 0x1 000d 4804 |H | Short_Literal 0x4 000e e004 | | Load 0x0,0x4 000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0010 035c | \ | Declare_Type Array,Constrained,Visible 0011 00e3 | | Load_Encached Natural_Cache 0012 4801 |H | Short_Literal 0x1 0013 4804 |H | Short_Literal 0x4 0014 e004 | | Load 0x0,0x4 0015 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0016 035c | \ | Declare_Type Array,Constrained,Visible 0017 00e3 | | Load_Encached Natural_Cache 0018 4801 |H | Short_Literal 0x1 0019 4804 |H | Short_Literal 0x4 001a e004 | | Load 0x0,0x4 001b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 001c 035c | \ | Declare_Type Array,Constrained,Visible 001d e005 | | Load 0x0,0x5 001e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 001f 00e1 | | Load_Encached Boolean_Cache 0020 00e3 | | Load_Encached Natural_Cache 0021 4801 |H | Short_Literal 0x1 0022 4804 |H | Short_Literal 0x4 0023 e004 | | Load 0x0,0x4 0024 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0025 035c | \ | Declare_Type Array,Constrained,Visible 0026 4801 |H | Short_Literal 0x1 0027 4804 |H | Short_Literal 0x4 0028 e004 | | Load 0x0,0x4 0029 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002a 035c | \ | Declare_Type Array,Constrained,Visible 002b 4801 |H | Short_Literal 0x1 002c 4804 |H | Short_Literal 0x4 002d e004 | | Load 0x0,0x4 002e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002f 035c | \ | Declare_Type Array,Constrained,Visible 0030 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0032 480c |H | Short_Literal 0xc 0033 032e | . | Declare_Type Record,Defined,Visible 0034 00bf | | Action Accept_Activation 0035 BODY_0008: 0035 00bc | | Action Signal_Activated 0036 00bb | | Action Signal_Completion 0037 0000 | | .XXX[0x1] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 4601 |F | Jump_Case 0x2 003c 7801 |x | Jump 0x3e ; case 0x0 003d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 003e 480c |H | Short_Literal 0xc 003f 00db | | Load_Top At_Offset_3 0040 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0041 e20d | | Load 0x1,0xd 0042 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0043 0337 | 7 | Declare_Variable Array 0044 4800 |H | Short_Literal 0x0 0045 4801 |H | Short_Literal 0x1 0046 00da | | Load_Top At_Offset_2 0047 01d6 | | Execute Vector,Field_Write 0048 4800 |H | Short_Literal 0x0 0049 4802 |H | Short_Literal 0x2 004a 00da | | Load_Top At_Offset_2 004b 01d6 | | Execute Vector,Field_Write 004c 4800 |H | Short_Literal 0x0 004d 4803 |H | Short_Literal 0x3 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 4800 |H | Short_Literal 0x0 0051 4804 |H | Short_Literal 0x4 0052 00da | | Load_Top At_Offset_2 0053 01d6 | | Execute Vector,Field_Write 0054 00db | | Load_Top At_Offset_3 0055 00d9 | | Load_Top At_Offset_1 0056 00d9 | | Load_Top At_Offset_1 0057 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0058 0119 | | Execute Any,Check_In_Formal_Type 0059 00d1 | | Pop_Control Pop_Count_1 005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005b 4800 |H | Short_Literal 0x0 005c 00db | | Load_Top At_Offset_3 005d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 005e e002 | | Load 0x0,0x2 005f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0060 00db | | Load_Top At_Offset_3 0061 00d9 | | Load_Top At_Offset_1 0062 00d9 | | Load_Top At_Offset_1 0063 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0064 0119 | | Execute Any,Check_In_Formal_Type 0065 00d1 | | Pop_Control Pop_Count_1 0066 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0067 4800 |H | Short_Literal 0x0 0068 00db | | Load_Top At_Offset_3 0069 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 006a e20d | | Load 0x1,0xd 006b 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 006c 0337 | 7 | Declare_Variable Array 006d 4800 |H | Short_Literal 0x0 006e 4801 |H | Short_Literal 0x1 006f 00da | | Load_Top At_Offset_2 0070 01d6 | | Execute Vector,Field_Write 0071 4800 |H | Short_Literal 0x0 0072 4802 |H | Short_Literal 0x2 0073 00da | | Load_Top At_Offset_2 0074 01d6 | | Execute Vector,Field_Write 0075 4800 |H | Short_Literal 0x0 0076 4803 |H | Short_Literal 0x3 0077 00da | | Load_Top At_Offset_2 0078 01d6 | | Execute Vector,Field_Write 0079 4800 |H | Short_Literal 0x0 007a 4804 |H | Short_Literal 0x4 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 00db | | Load_Top At_Offset_3 007e 00d9 | | Load_Top At_Offset_1 007f 00d9 | | Load_Top At_Offset_1 0080 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 0081 0119 | | Execute Any,Check_In_Formal_Type 0082 00d1 | | Pop_Control Pop_Count_1 0083 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0084 4801 |H | Short_Literal 0x1 0085 00db | | Load_Top At_Offset_3 0086 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0087 4800 |H | Short_Literal 0x0 0088 00db | | Load_Top At_Offset_3 0089 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 008a e20d | | Load 0x1,0xd 008b 3009 |0 | Execute Record,Field_Type,Field_Number 0x9 008c 0337 | 7 | Declare_Variable Array 008d 4802 |H | Short_Literal 0x2 008e 4801 |H | Short_Literal 0x1 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 4806 |H | Short_Literal 0x6 0092 4802 |H | Short_Literal 0x2 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 4800 |H | Short_Literal 0x0 0096 4803 |H | Short_Literal 0x3 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 4804 |H | Short_Literal 0x4 009a 4804 |H | Short_Literal 0x4 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d 00db | | Load_Top At_Offset_3 009e 00d9 | | Load_Top At_Offset_1 009f 00d9 | | Load_Top At_Offset_1 00a0 3009 |0 | Execute Record,Field_Type,Field_Number 0x9 00a1 0119 | | Execute Any,Check_In_Formal_Type 00a2 00d1 | | Pop_Control Pop_Count_1 00a3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00a4 e002 | | Load 0x0,0x2 00a5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00a6 00db | | Load_Top At_Offset_3 00a7 00d9 | | Load_Top At_Offset_1 00a8 00d9 | | Load_Top At_Offset_1 00a9 300a |0 | Execute Record,Field_Type,Field_Number 0xa 00aa 0119 | | Execute Any,Check_In_Formal_Type 00ab 00d1 | | Pop_Control Pop_Count_1 00ac 380a |8 | Execute Record,Field_Write,Field_Number 0xa 00ad e20d | | Load 0x1,0xd 00ae 300b |0 | Execute Record,Field_Type,Field_Number 0xb 00af 0337 | 7 | Declare_Variable Array 00b0 4802 |H | Short_Literal 0x2 00b1 4801 |H | Short_Literal 0x1 00b2 00da | | Load_Top At_Offset_2 00b3 01d6 | | Execute Vector,Field_Write 00b4 4806 |H | Short_Literal 0x6 00b5 4802 |H | Short_Literal 0x2 00b6 00da | | Load_Top At_Offset_2 00b7 01d6 | | Execute Vector,Field_Write 00b8 4800 |H | Short_Literal 0x0 00b9 4803 |H | Short_Literal 0x3 00ba 00da | | Load_Top At_Offset_2 00bb 01d6 | | Execute Vector,Field_Write 00bc 4804 |H | Short_Literal 0x4 00bd 4804 |H | Short_Literal 0x4 00be 00da | | Load_Top At_Offset_2 00bf 01d6 | | Execute Vector,Field_Write 00c0 00db | | Load_Top At_Offset_3 00c1 00d9 | | Load_Top At_Offset_1 00c2 00d9 | | Load_Top At_Offset_1 00c3 300b |0 | Execute Record,Field_Type,Field_Number 0xb 00c4 0119 | | Execute Any,Check_In_Formal_Type 00c5 00d1 | | Pop_Control Pop_Count_1 00c6 380b |8 | Execute Record,Field_Write,Field_Number 0xb 00c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 000a | | .DEBUG4 0x0004,0x000a,0x2360,0x0000,0x0001,0x0002 00ce 000b 00d6 | | .DBG4T 0x000b,0x00d6,0x8000,0x0000 00d2 003b 0000 | ; | .DBG4T 0x003b,0x0000,0x0005,0x0000 00d6 ; -------------------------------------------------------------------------------------- 00d6 ; Debug chain 00d6 ; -------------------------------------------------------------------------------------- 00d6 0001 0000 | | .DBGLEN 0x0001,0x0000 00d8 000b | | .DBGLNO 0x000b 00d9 0000 0000 | | .BLANK 0000[0x127]