|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00e8 | | .CONST 0x00e8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a3 | | .CONST 0x00a3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 4808 |H | Short_Literal 0x8
000c 4800 |H | Short_Literal 0x0
000d 48ff |H | Short_Literal 0xff
000e 00e5 | | Load_Encached Long_Integer_Cache
000f 03fc | | QQ_Declare_Type Discrete,XXX
0010 4810 |H | Short_Literal 0x10
0011 4800 |H | Short_Literal 0x0
0012 60c5 |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0000ffff}
0013 00e5 | | Load_Encached Long_Integer_Cache
0014 03fc | | QQ_Declare_Type Discrete,XXX
0015 00d8 | | Load_Top At_Offset_0
0016 0129 | ) | Execute Any,Make_Visible
0017 00d8 | | Load_Top At_Offset_0
0018 0129 | ) | Execute Any,Make_Visible
0019 4800 |H | Short_Literal 0x0
001a 480f |H | Short_Literal 0xf
001b 00e5 | | Load_Encached Long_Integer_Cache
001c 03f9 | | Declare_Type Discrete,Constrained,Visible
001d 4801 |H | Short_Literal 0x1
001e 481e |H | Short_Literal 0x1e
001f 00e9 | | Load_Encached String_Cache
0020 035c | \ | Declare_Type Array,Constrained,Visible
0021 e20e | | Load 0x1,0xe
0022 e20d | | Load 0x1,0xd
0023 00d8 | | Load_Top At_Offset_0
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4803 |H | Short_Literal 0x3
0026 032e | . | Declare_Type Record,Defined,Visible
0027 4807 |H | Short_Literal 0x7
0028 4800 |H | Short_Literal 0x0
0029 487f |H | Short_Literal 0x7f
002a 00e5 | | Load_Encached Long_Integer_Cache
002b 03fc | | QQ_Declare_Type Discrete,XXX
002c 4804 |H | Short_Literal 0x4
002d 4800 |H | Short_Literal 0x0
002e 480f |H | Short_Literal 0xf
002f 00e5 | | Load_Encached Long_Integer_Cache
0030 03fc | | QQ_Declare_Type Discrete,XXX
0031 4805 |H | Short_Literal 0x5
0032 4800 |H | Short_Literal 0x0
0033 481f |H | Short_Literal 0x1f
0034 00e5 | | Load_Encached Long_Integer_Cache
0035 03fc | | QQ_Declare_Type Discrete,XXX
0036 e20e | | Load 0x1,0xe
0037 00db | | Load_Top At_Offset_3
0038 00db | | Load_Top At_Offset_3
0039 00db | | Load_Top At_Offset_3
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b 4804 |H | Short_Literal 0x4
003c 032e | . | Declare_Type Record,Defined,Visible
003d 480c |H | Short_Literal 0xc
003e 4800 |H | Short_Literal 0x0
003f 6094 |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00000fff}
0040 00e5 | | Load_Encached Long_Integer_Cache
0041 03fc | | QQ_Declare_Type Discrete,XXX
0042 00d8 | | Load_Top At_Offset_0
0043 00e1 | | Load_Encached Boolean_Cache
0044 00e1 | | Load_Encached Boolean_Cache
0045 00e1 | | Load_Encached Boolean_Cache
0046 00e1 | | Load_Encached Boolean_Cache
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4805 |H | Short_Literal 0x5
0049 032e | . | Declare_Type Record,Defined,Visible
004a 4800 |H | Short_Literal 0x0
004b 4802 |H | Short_Literal 0x2
004c 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
004e 03fe | | Declare_Type Discrete,Defined,Visible
004f 00e3 | | Load_Encached Natural_Cache
0050 4801 |H | Short_Literal 0x1
0051 487e |H~ | Short_Literal 0x7e
0052 00e9 | | Load_Encached String_Cache
0053 035c | \ | Declare_Type Array,Constrained,Visible
0054 02a0 | | Declare_Subprogram Null_Subprogram
0055 4802 |H | Short_Literal 0x2
0056 032e | . | Declare_Type Record,Defined,Visible
0057 4800 |H | Short_Literal 0x0
0058 6077 |`w | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00004000}
0059 00e5 | | Load_Encached Long_Integer_Cache
005a 03f9 | | Declare_Type Discrete,Constrained,Visible
005b 4800 |H | Short_Literal 0x0
005c 49ff |I | Short_Literal 0x1ff
005d 00e5 | | Load_Encached Long_Integer_Cache
005e 03f9 | | Declare_Type Discrete,Constrained,Visible
005f 4801 |H | Short_Literal 0x1
0060 4a00 |J | Short_Literal 0x200
0061 00e5 | | Load_Encached Long_Integer_Cache
0062 03f9 | | Declare_Type Discrete,Constrained,Visible
0063 00e2 | | Load_Encached Integer_Cache
0064 e20e | | Load 0x1,0xe
0065 02a0 | | Declare_Subprogram Null_Subprogram
0066 4802 |H | Short_Literal 0x2
0067 032e | . | Declare_Type Record,Defined,Visible
0068 e20e | | Load 0x1,0xe
0069 00d8 | | Load_Top At_Offset_0
006a 02a0 | | Declare_Subprogram Null_Subprogram
006b 4802 |H | Short_Literal 0x2
006c 032e | . | Declare_Type Record,Defined,Visible
006d 4800 |H | Short_Literal 0x0
006e 4805 |H | Short_Literal 0x5
006f 00da | | Load_Top At_Offset_2
0070 02a0 | | Declare_Subprogram Null_Subprogram
0071 4801 |H | Short_Literal 0x1
0072 035e | ^ | Declare_Type Array,Defined,Visible
0073 e20e | | Load 0x1,0xe
0074 00d9 | | Load_Top At_Offset_1
0075 e217 | | Load 0x1,0x17
0076 e219 | | Load 0x1,0x19
0077 02a0 | | Declare_Subprogram Null_Subprogram
0078 4804 |H | Short_Literal 0x4
0079 032e | . | Declare_Type Record,Defined,Visible
007a 4801 |H | Short_Literal 0x1
007b 481e |H | Short_Literal 0x1e
007c e001 | | Load 0x0,0x1
007d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007e 035c | \ | Declare_Type Array,Constrained,Visible
007f e20e | | Load 0x1,0xe
0080 00da | | Load_Top At_Offset_2
0081 02a0 | | Declare_Subprogram Null_Subprogram
0082 4803 |H | Short_Literal 0x3
0083 032e | . | Declare_Type Record,Defined,Visible
0084 4809 |H | Short_Literal 0x9
0085 032b | + | Declare_Type Record,Incomplete,Visible
0086 00d8 | | Load_Top At_Offset_0
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 4818 |H | Short_Literal 0x18
0089 03d6 | | Declare_Type Access,Defined,Visible
008a 4801 |H | Short_Literal 0x1
008b 481e |H | Short_Literal 0x1e
008c e001 | | Load 0x0,0x1
008d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
008e 035c | \ | Declare_Type Array,Constrained,Visible
008f e20e | | Load 0x1,0xe
0090 e222 | " | Load 0x1,0x22
0091 e20e | | Load 0x1,0xe
0092 00e2 | | Load_Encached Integer_Cache
0093 e225 | % | Load 0x1,0x25
0094 e21c | | Load 0x1,0x1c
0095 00e2 | | Load_Encached Integer_Cache
0096 00e1 | | Load_Encached Boolean_Cache
0097 02a0 | | Declare_Subprogram Null_Subprogram
0098 e224 | $ | Load 0x1,0x24
0099 0326 | & | Complete_Type Record,By_Defining
009a 00d8 | | Load_Top At_Offset_0
009b 03c4 | | Complete_Type Access,By_Component_Completion
009c 4800 |H | Short_Literal 0x0
009d 480f |H | Short_Literal 0xf
009e e223 | # | Load 0x1,0x23
009f 02a0 | | Declare_Subprogram Null_Subprogram
00a0 4801 |H | Short_Literal 0x1
00a1 035e | ^ | Declare_Type Array,Defined,Visible
00a2 00bf | | Action Accept_Activation
00a3 BODY_0008:
00a3 00bc | | Action Signal_Activated
00a4 00bb | | Action Signal_Completion
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x8
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7806 |x | Jump 0xb4 ; case 0x1
00ae 7809 |x | Jump 0xb8 ; case 0x2
00af 780d |x | Jump 0xbd ; case 0x3
00b0 7810 |x | Jump 0xc1 ; case 0x4
00b1 7811 |x | Jump 0xc3 ; case 0x5
00b2 7812 |x | Jump 0xc5 ; case 0x6
00b3 7815 |x | Jump 0xc9 ; case 0x7
00b4 00da | | Load_Top At_Offset_2
00b5 0091 00dc | | Action Push_String_Extended_Indexed,0xdc ; "UNKNOWN"
00b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b8 00db | | Load_Top At_Offset_3
00b9 00db | | Load_Top At_Offset_3
00ba 00e0 | | Load_Encached Standard_Cache
00bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd 00da | | Load_Top At_Offset_2
00be 00e0 | | Load_Encached Standard_Cache
00bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c3 00db | | Load_Top At_Offset_3
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 e21a | | Load 0x1,0x1a
00c6 00dc | | Load_Top At_Offset_4
00c7 0267 | g | Execute Discrete,Predecessor
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 e21a | | Load 0x1,0x1a
00ca 00dc | | Load_Top At_Offset_4
00cb 0268 | h | Execute Discrete,Successor
00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00000fff}
00d8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00dc ; --------------------------------------------------------------------------------------
00dc ; STRING TABLE
00dc ; --------------------------------------------------------------------------------------
00dc 0008 | | .STRTAB 0x0008->0x00e0 ; "UNKNOWN"
00dd 000d | | .STRTAB 0x000d->0x00e3 ; "M100"
00de 000f | | .STRTAB 0x000f->0x00e5 ; "M200"
00df 0011 | | .STREND 0x0011->0x00e7
00e0 554e 4b4e |UNKN| .STRTAB_STRINGS
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b1b,0x0000,0x0001,0x0000
00ee 0204 0051 | Q| .XXX[0x112]
00f0 3505 3905 |5 9 |
00f2 1d15 117d | }|
00f4 4d51 0551 |MQ Q|
00f6 14b9 0d49 | I|
00f8 1505 5114 | Q |
00fa f5ee 51fa | Q |
00fc 408c 0021 |@ !|
00fe 5d25 5121 |]%Q!|
0100 7d2d 1564 |}- d|
0102 5c00 0d2d |\ -|
0104 1564 01fa | d |
0106 408c 001d |@ |
0108 2539 7d21 |%9}!|
010a 1505 405c | @\|
010c 0079 2115 | y! |
010e 0541 7d4d | A}M|
0110 513d 4905 |Q=I |
0112 1d15 7d35 | }5|
0114 0539 051d | 9 |
0116 1548 b921 | H !|
0118 1505 417d | A}|
011a 5165 4114 |QeA |
011c 01fe 4090 | @ |
011e 0021 5121 | !Q!|
0120 157d 2551 | }%Q|
0122 1534 5c00 | 4\ |
0124 5135 0539 |Q5 9|
0126 051d 1511 | |
0128 7d4d 5105 |}MQ |
012a 5114 b921 |Q !|
012c 0539 1131 | 9 1|
012e 1400 0000 | |
0130 0000 8001 | |
0132 3400 6135 |4 a5|
0134 0539 051d | 9 |
0136 1511 7d4d | }M|
0138 5105 5114 |Q Q |
013a b90d 3d39 | =9|
013c 3915 0d51 |9 Q|
013e 253d 38f5 |%=8 |
0140 ea51 fa40 | Q @|
0142 8c00 253d | %=|
0144 197d 2105 | }! |
0146 3911 3114 |9 1 |
0148 5c00 5135 |\ Q5|
014a 0539 051d | 9 |
014c 1511 7d4d | }M|
014e 5105 5114 |Q Q |
0150 b921 0539 | ! 9|
0152 1131 1400 | 1 |
0154 5c00 1921 |\ !|
0156 0539 1131 | 9 1|
0158 1400 0000 | |
015a 0094 01c8 | |
015c 0065 3505 | e5 |
015e 3905 1d15 |9 |
0160 117d 4d51 | }MQ|
0162 0551 14b9 | Q |
0164 2105 3911 |! 9 |
0166 3115 7d11 |1 } |
0168 0551 04ee | Q |
016a 65c8 e640 |e @|
016c 7000 0d2d |p -|
016e 1565 985c | e \|
0170 0055 313d | U1=|
0172 1d25 397d | %9}|
0174 2539 193d |%9 =|
0176 4935 0551 |I5 Q|
0178 253d 38b9 |%=8 |
017a 2d15 6400 |- d |
017c 00e6 4070 | @p|
017e 0029 0d3d | ) =|
0180 3939 150d |99 |
0182 5125 3d39 |Q%=9|
0184 985c 0069 | \ i|
0186 4915 4555 |I EU|
0188 154d 514c | MQL|
018a b90d 3d39 | =9|
018c 3915 0d51 |9 Q|
018e 253d 397d |%=9}|
0190 2105 3911 |! 9 |
0192 3114 0000 |1 |
0194 0000 0000 | |
0196 004c 00c8 | L |
0198 0061 3505 | a5 |
019a 3905 1d15 |9 |
019c 117d 4d51 | }MQ|
019e 0551 14b9 | Q |
01a0 3925 317d |9%1}|
01a2 2105 3911 |! 9 |
01a4 3114 085c |1 \|
01a6 0051 3505 | Q5 |
01a8 3905 1d15 |9 |
01aa 117d 4d51 | }MQ|
01ac 0551 14b9 | Q |
01ae 2105 3911 |! 9 |
01b0 3114 0000 |1 |
01b2 0068 0190 | h |
01b4 004d 3505 | M5 |
01b6 3905 1d15 |9 |
01b8 117d 4d51 | }MQ|
01ba 0551 14b9 | Q |
01bc 5905 3155 |Y 1U|
01be 14ee 65c8 | e |
01c0 e640 7000 | @p |
01c2 0d2d 1565 | - e|
01c4 985c 0055 | \ U|
01c6 313d 1d25 |1= %|
01c8 397d 2539 |9}%9|
01ca 193d 4935 | =I5|
01cc 0551 253d | Q%=|
01ce 38b9 2d15 |8 - |
01d0 6400 00e6 |d |
01d2 4070 0029 |@p )|
01d4 0d3d 3939 | =99|
01d6 150d 5125 | Q%|
01d8 3d39 985c |=9 \|
01da 0049 0d3d | I =|
01dc 3939 150d |99 |
01de 5125 3d39 |Q%=9|
01e0 7d0d 3d39 |} =9|
01e2 5115 3950 |Q 9P|
01e4 0000 0000 | |
01e6 0000 00b0 | |
01e8 01e0 0061 | a|
01ea 3505 3905 |5 9 |
01ec 1d15 117d | }|
01ee 4d51 0551 |MQ Q|
01f0 14b9 3925 | 9%|
01f2 317d 2105 |1}! |
01f4 3911 3114 |9 1 |
01f6 e198 5c00 | \ |
01f8 5135 0539 |Q5 9|
01fa 051d 1511 | |
01fc 7d4d 5105 |}MQ |
01fe 5114 b921 |Q !|