|
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]