|
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_0c44cd
└─⟦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 0168 | h | .CONST 0x0168 ; 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 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 007d | } | .CONST 0x007d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000c | | .CONST 0x000c ; Number of locals 001b INIT_0018: 001b 4808 |H | Short_Literal 0x8 001c 4800 |H | Short_Literal 0x0 001d 48f2 |H | Short_Literal 0xf2 001e 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0020 03fa | | Declare_Type Discrete,Defined,With_Size 0021 00e3 | | Load_Encached Natural_Cache 0022 0266 | f | Execute Discrete,Bounds 0023 00da | | Load_Top At_Offset_2 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 4801 |H | Short_Literal 0x1 0026 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0027 4800 |H | Short_Literal 0x0 0028 4806 |H | Short_Literal 0x6 0029 00da | | Load_Top At_Offset_2 002a 035b | [ | Declare_Type Array,Constrained 002b 0337 | 7 | Declare_Variable Array 002c 4801 |H | Short_Literal 0x1 002d 4800 |H | Short_Literal 0x0 002e 00da | | Load_Top At_Offset_2 002f 01d6 | | Execute Vector,Field_Write 0030 4803 |H | Short_Literal 0x3 0031 4801 |H | Short_Literal 0x1 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 4800 |H | Short_Literal 0x0 0035 4802 |H | Short_Literal 0x2 0036 00da | | Load_Top At_Offset_2 0037 01d6 | | Execute Vector,Field_Write 0038 4801 |H | Short_Literal 0x1 0039 4803 |H | Short_Literal 0x3 003a 00da | | Load_Top At_Offset_2 003b 01d6 | | Execute Vector,Field_Write 003c 482c |H, | Short_Literal 0x2c 003d 4804 |H | Short_Literal 0x4 003e 00da | | Load_Top At_Offset_2 003f 01d6 | | Execute Vector,Field_Write 0040 48f1 |H | Short_Literal 0xf1 0041 4805 |H | Short_Literal 0x5 0042 00da | | Load_Top At_Offset_2 0043 01d6 | | Execute Vector,Field_Write 0044 48f2 |H | Short_Literal 0xf2 0045 4806 |H | Short_Literal 0x6 0046 00da | | Load_Top At_Offset_2 0047 01d6 | | Execute Vector,Field_Write 0048 4800 |H | Short_Literal 0x0 0049 4806 |H | Short_Literal 0x6 004a 00db | | Load_Top At_Offset_3 004b 035b | [ | Declare_Type Array,Constrained 004c 0337 | 7 | Declare_Variable Array 004d 4801 |H | Short_Literal 0x1 004e 4800 |H | Short_Literal 0x0 004f 00da | | Load_Top At_Offset_2 0050 01d6 | | Execute Vector,Field_Write 0051 4804 |H | Short_Literal 0x4 0052 4801 |H | Short_Literal 0x1 0053 00da | | Load_Top At_Offset_2 0054 01d6 | | Execute Vector,Field_Write 0055 4800 |H | Short_Literal 0x0 0056 4802 |H | Short_Literal 0x2 0057 00da | | Load_Top At_Offset_2 0058 01d6 | | Execute Vector,Field_Write 0059 4801 |H | Short_Literal 0x1 005a 4803 |H | Short_Literal 0x3 005b 00da | | Load_Top At_Offset_2 005c 01d6 | | Execute Vector,Field_Write 005d 482c |H, | Short_Literal 0x2c 005e 4804 |H | Short_Literal 0x4 005f 00da | | Load_Top At_Offset_2 0060 01d6 | | Execute Vector,Field_Write 0061 48f1 |H | Short_Literal 0xf1 0062 4805 |H | Short_Literal 0x5 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 48f2 |H | Short_Literal 0xf2 0066 4806 |H | Short_Literal 0x6 0067 00da | | Load_Top At_Offset_2 0068 01d6 | | Execute Vector,Field_Write 0069 4800 |H | Short_Literal 0x0 006a 4806 |H | Short_Literal 0x6 006b e002 | | Load 0x0,0x2 006c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006d 035b | [ | Declare_Type Array,Constrained 006e 0337 | 7 | Declare_Variable Array 006f 4800 |H | Short_Literal 0x0 0070 4806 |H | Short_Literal 0x6 0071 e002 | | Load 0x0,0x2 0072 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0073 035b | [ | Declare_Type Array,Constrained 0074 0337 | 7 | Declare_Variable Array 0075 a003 | | Store_Unchecked 0x0,0x3 0076 00c6 | | Action Check_Subprogram_Elaborated 0077 e402 | | Load 0x2,0x2 0078 e002 | | Load 0x0,0x2 0079 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007a e004 | | Load 0x0,0x4 007b e005 | | Load 0x0,0x5 007c 480c |H | Short_Literal 0xc 007d BODY_0018: 007d 00cf | | Action Mark_Auxiliary 007e e404 | | Load 0x2,0x4 007f 01d9 | | Execute Vector,Reverse_Bounds 0080 0007 | | Action Break_Optional 0081 00d8 | | Load_Top At_Offset_0 0082 e404 | | Load 0x2,0x4 0083 01d7 | | Execute Vector,Field_Read 0084 e408 | | Load 0x2,0x8 0085 e409 | | Load 0x2,0x9 0086 480a |H | Short_Literal 0xa 0087 4802 |H | Short_Literal 0x2 0088 0099 | | Action Reference_Dynamic 0089 8003 | | Call 0x0,0x3 008a 00d9 | | Load_Top At_Offset_1 008b e406 | | Load 0x2,0x6 008c 01d6 | | Execute Vector,Field_Write 008d 00d8 | | Load_Top At_Offset_0 008e e405 | | Load 0x2,0x5 008f 01d7 | | Execute Vector,Field_Read 0090 e408 | | Load 0x2,0x8 0091 e409 | | Load 0x2,0x9 0092 480a |H | Short_Literal 0xa 0093 4802 |H | Short_Literal 0x2 0094 0099 | | Action Reference_Dynamic 0095 8003 | | Call 0x0,0x3 0096 00d9 | | Load_Top At_Offset_1 0097 e407 | | Load 0x2,0x7 0098 01d6 | | Execute Vector,Field_Write 0099 00c8 | | Action Pop_Auxiliary_Range 009a 3fe6 |? | Loop_Increasing 0x81 009b 00c9 | | Action Pop_Auxiliary_Loop 009c 4801 |H | Short_Literal 0x1 009d 4801 |H | Short_Literal 0x1 009e 0007 | | Action Break_Optional 009f 0092 0149 | I| Action Push_String_Extended,0x149 ; "/dev/tty0" 00a1 e406 | | Load 0x2,0x6 00a2 8006 | | Call 0x0,0x6 00a3 600c |` | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00008000} 00a4 00ba | | Action Initiate_Delay 00a5 0092 0149 | I| Action Push_String_Extended,0x149 ; "/dev/tty0" 00a7 e407 | | Load 0x2,0x7 00a8 8006 | | Call 0x0,0x6 00a9 6006 |` | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00008000} 00aa 00ba | | Action Initiate_Delay 00ab 00c8 | | Action Pop_Auxiliary_Range 00ac 3ff2 |? | Loop_Increasing 0x9f 00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ae 0000 0000 | | .XXX[0x2] 00b0 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; SUBPROGRAM 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb BODY_00b8: 00bb BODY_00b8: 00bb INIT_00b8: 00bb INIT_00b8: 00bb INIT_00b8: 00bb 4607 |F | Jump_Case 0x8 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00bd 7807 |x | Jump 0xc5 ; case 0x1 00be 780a |x | Jump 0xc9 ; case 0x2 00bf 7818 |x | Jump 0xd8 ; case 0x3 00c0 7825 |x% | Jump 0xe6 ; case 0x4 00c1 784c |xL | Jump 0x10e ; case 0x5 00c2 7869 |xi | Jump 0x12c ; case 0x6 00c3 7873 |xs | Jump 0x137 ; case 0x7 00c4 4302 |C | .XXX[0x1] 00c5 00da | | Load_Top At_Offset_2 00c6 0091 0142 | B| Action Push_String_Extended_Indexed,0x142 ; "NUL" 00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c9 00db | | Load_Top At_Offset_3 00ca 00db | | Load_Top At_Offset_3 00cb 026a | j | Execute Discrete,First 00cc e402 | | Load 0x2,0x2 00cd 1c04 | | Execute_Immediate Run_Utility,0x4 00ce 00dc | | Load_Top At_Offset_4 00cf 0269 | i | Execute Discrete,Last 00d0 e402 | | Load 0x2,0x2 00d1 1c04 | | Execute_Immediate Run_Utility,0x4 00d2 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 00d4 03fd | | Declare_Type Discrete,Defined 00d5 00e0 | | Load_Encached Standard_Cache 00d6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d8 00da | | Load_Top At_Offset_2 00d9 026a | j | Execute Discrete,First 00da e402 | | Load 0x2,0x2 00db 1c04 | | Execute_Immediate Run_Utility,0x4 00dc 00db | | Load_Top At_Offset_3 00dd 0269 | i | Execute Discrete,Last 00de e402 | | Load 0x2,0x2 00df 1c04 | | Execute_Immediate Run_Utility,0x4 00e0 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 00e2 03fd | | Declare_Type Discrete,Defined 00e3 00e0 | | Load_Encached Standard_Cache 00e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e6 00db | | Load_Top At_Offset_3 00e7 00d8 | | Load_Top At_Offset_0 00e8 0c05 | | Execute_Immediate Greater_Equal,0x5 00e9 7009 |p | Jump_Nonzero 0xf3 00ea 0b00 | | Execute_Immediate Case_Compare,0x0 00eb 700e |p | Jump_Nonzero 0xfa 00ec 0b01 | | Execute_Immediate Case_Compare,0x1 00ed 700f |p | Jump_Nonzero 0xfd 00ee 0b03 | | Execute_Immediate Case_Compare,0x3 00ef 7010 |p | Jump_Nonzero 0x100 00f0 0f04 | | Execute_Immediate Equal,0x4 00f1 7011 |p | Jump_Nonzero 0x103 00f2 781a |x | Jump 0x10d 00f3 0b2c | , | Execute_Immediate Case_Compare,0x2c 00f4 7010 |p | Jump_Nonzero 0x105 00f5 0bf1 | | Execute_Immediate Case_Compare,0xf1 00f6 7011 |p | Jump_Nonzero 0x108 00f7 0ff2 | | Execute_Immediate Equal,-0xe 00f8 7012 |p | Jump_Nonzero 0x10b 00f9 7813 |x | Jump 0x10d 00fa 00d1 | | Pop_Control Pop_Count_1 00fb 4800 |H | Short_Literal 0x0 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 00d1 | | Pop_Control Pop_Count_1 00fe 4801 |H | Short_Literal 0x1 00ff 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0100 00d1 | | Pop_Control Pop_Count_1 0101 4802 |H | Short_Literal 0x2 0102 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0103 4803 |H | Short_Literal 0x3 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 00d1 | | Pop_Control Pop_Count_1 0106 4804 |H | Short_Literal 0x4 0107 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0108 00d1 | | Pop_Control Pop_Count_1 0109 4805 |H | Short_Literal 0x5 010a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010b 4806 |H | Short_Literal 0x6 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 0801 | | Execute_Immediate Raise,0x1 010e 00db | | Load_Top At_Offset_3 010f 00d8 | | Load_Top At_Offset_0 0110 4800 |H | Short_Literal 0x0 0111 4806 |H | Short_Literal 0x6 0112 0262 | b | Execute Discrete,In_Range 0113 6816 |h | Jump_Zero 0x12a 0114 4606 |F | Jump_Case 0x7 0115 7808 |x | Jump 0x11e ; case 0x0 0116 7809 |x | Jump 0x120 ; case 0x1 0117 780a |x | Jump 0x122 ; case 0x2 0118 780b |x | Jump 0x124 ; case 0x3 0119 780c |x | Jump 0x126 ; case 0x4 011a 780d |x | Jump 0x128 ; case 0x5 011b 7800 |x | Jump 0x11c ; case 0x6 011c 48f2 |H | Short_Literal 0xf2 011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011e 4800 |H | Short_Literal 0x0 011f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0120 4801 |H | Short_Literal 0x1 0121 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0122 4803 |H | Short_Literal 0x3 0123 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0124 4804 |H | Short_Literal 0x4 0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0126 482c |H, | Short_Literal 0x2c 0127 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0128 48f1 |H | Short_Literal 0xf1 0129 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012a 00d1 | | Pop_Control Pop_Count_1 012b 0801 | | Execute_Immediate Raise,0x1 012c 00db | | Load_Top At_Offset_3 012d e402 | | Load 0x2,0x2 012e 1c04 | | Execute_Immediate Run_Utility,0x4 012f 0aff | | Execute_Immediate Plus,-0x1 0130 00d8 | | Load_Top At_Offset_0 0131 0c00 | | Execute_Immediate Greater_Equal,0x0 0132 7001 |p | Jump_Nonzero 0x134 0133 0801 | | Execute_Immediate Raise,0x1 0134 e402 | | Load 0x2,0x2 0135 1c05 | | Execute_Immediate Run_Utility,0x5 0136 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0137 00db | | Load_Top At_Offset_3 0138 e402 | | Load 0x2,0x2 0139 1c04 | | Execute_Immediate Run_Utility,0x4 013a 0a01 | | Execute_Immediate Plus,0x1 013b 00d8 | | Load_Top At_Offset_0 013c 0d08 | | Execute_Immediate Less,0x8 013d 7001 |p | Jump_Nonzero 0x13f 013e 0801 | | Execute_Immediate Raise,0x1 013f e402 | | Load 0x2,0x2 0140 1c05 | | Execute_Immediate Run_Utility,0x5 0141 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0142 ; -------------------------------------------------------------------------------------- 0142 ; STRING TABLE 0142 ; -------------------------------------------------------------------------------------- 0142 0012 | | .STRTAB 0x0012->0x014b ; "NUL" 0143 0013 | | .STRTAB 0x0013->0x014c ; "UN" 0144 0013 | | .STRTAB 0x0013->0x014d ; "LECTEUR3" 0145 0019 | | .STRTAB 0x0019->0x0151 ; "LECTEUR4" 0146 001f | | .STRTAB 0x001f->0x0155 ; "PILOTAGE_A_1" 0147 0029 | ) | .STRTAB 0x0029->0x015b ; "F1" 0148 0029 | ) | .STRTAB 0x0029->0x015c ; "F2" 0149 0029 | ) | .STRTAB 0x0029->0x015d ; "/dev/tty0" 014a 0030 | 0 | .STREND 0x0030->0x0162 014b 4e55 4c55 |NULU| .STRTAB_STRINGS 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0006 | | .DEBUG4 0x0004,0x0006,0xbddf,0x0000,0x0001,0x0003 016e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0172 001b 017a | z| .DBG4T 0x001b,0x017a,0x8001,0x0000 0176 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000 017a ; -------------------------------------------------------------------------------------- 017a ; Debug chain 017a ; -------------------------------------------------------------------------------------- 017a 0007 0008 | | .DBGLEN 0x0007,0x0008 017c 001b 0021 | !| .DBGLNO 0x001b,0x0021,0x0027,0x0048,0x0069,0x006f,0x0075,0x007e,0x0081,0x008d,0x009c,0x009f,0x00a3,0x00a5,0x00a9 018b 0000 0000 | | .BLANK 0000[0x75]