|
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_29d0d7
└─⟦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 0118 | | .CONST 0x0118 ; 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 001a | | .CONST 0x001a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 0093 0000 | | push_full_address 0x0
0012 6035 |`5 | Indirect_Literal Discrete,0x48,{0x80000000, 0x00010000}
0013 0273 | s | Execute Discrete,Plus
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0019 00c7 | | Action Elaborate_Subprogram
001a BODY_0008:
001a 00bc | | Action Signal_Activated
001b 00bb | | Action Signal_Completion
001c 0000 0000 | | .BLANK 0000[0x4]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 4607 |F | Jump_Case 0x8
0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0025 7807 |x | Jump 0x2d ; case 0x1
0026 780a |x | Jump 0x31 ; case 0x2
0027 780e |x | Jump 0x36 ; case 0x3
0028 7811 |x | Jump 0x3a ; case 0x4
0029 7812 |x | Jump 0x3c ; case 0x5
002a 7813 |x | Jump 0x3e ; case 0x6
002b 7816 |x | Jump 0x42 ; case 0x7
002c 4302 |C | .XXX[0x1]
002d 00da | | Load_Top At_Offset_2
002e 0091 0103 | | Action Push_String_Extended_Indexed,0x103 ; "M100"
0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0031 00db | | Load_Top At_Offset_3
0032 00db | | Load_Top At_Offset_3
0033 00e0 | | Load_Encached Standard_Cache
0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0036 00da | | Load_Top At_Offset_2
0037 00e0 | | Load_Encached Standard_Cache
0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
003a 00db | | Load_Top At_Offset_3
003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003c 00db | | Load_Top At_Offset_3
003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003e e20d | | Load 0x1,0xd
003f 00dc | | Load_Top At_Offset_4
0040 0267 | g | Execute Discrete,Predecessor
0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0042 e20d | | Load 0x1,0xd
0043 00dc | | Load_Top At_Offset_4
0044 0268 | h | Execute Discrete,Successor
0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0046 0000 0000 | | .XXX[0x2]
0048 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 00b8 | | .CONST 0x00b8 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0016 | | .CONST 0x0016 ; Number of locals
0053 INIT_0050:
0053 e20d | | Load 0x1,0xd
0054 0007 | | Action Break_Optional
0055 e002 | | Load 0x0,0x2
0056 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0057 0604 | | Execute_Immediate Set_Value_Unchecked,0x4
0058 00e2 | | Load_Encached Integer_Cache
0059 4800 |H | Short_Literal 0x0
005a 49ff |I | Short_Literal 0x1ff
005b e002 | | Load 0x0,0x2
005c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4801 |H | Short_Literal 0x1
005f 035d | ] | Declare_Type Array,Defined
0060 00d8 | | Load_Top At_Offset_0
0061 0337 | 7 | Declare_Variable Array
0062 4801 |H | Short_Literal 0x1
0063 480a |H | Short_Literal 0xa
0064 e002 | | Load 0x0,0x2
0065 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0066 02a0 | | Declare_Subprogram Null_Subprogram
0067 4801 |H | Short_Literal 0x1
0068 035d | ] | Declare_Type Array,Defined
0069 4800 |H | Short_Literal 0x0
006a 4801 |H | Short_Literal 0x1
006b e002 | | Load 0x0,0x2
006c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 4801 |H | Short_Literal 0x1
006f 035d | ] | Declare_Type Array,Defined
0070 4800 |H | Short_Literal 0x0
0071 4803 |H | Short_Literal 0x3
0072 e002 | | Load 0x0,0x2
0073 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0074 02a0 | | Declare_Subprogram Null_Subprogram
0075 4801 |H | Short_Literal 0x1
0076 035d | ] | Declare_Type Array,Defined
0077 4800 |H | Short_Literal 0x0
0078 4803 |H | Short_Literal 0x3
0079 e002 | | Load 0x0,0x2
007a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007b 02a0 | | Declare_Subprogram Null_Subprogram
007c 4801 |H | Short_Literal 0x1
007d 035d | ] | Declare_Type Array,Defined
007e 4801 |H | Short_Literal 0x1
007f 4804 |H | Short_Literal 0x4
0080 e002 | | Load 0x0,0x2
0081 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0082 02a0 | | Declare_Subprogram Null_Subprogram
0083 4801 |H | Short_Literal 0x1
0084 035d | ] | Declare_Type Array,Defined
0085 4800 |H | Short_Literal 0x0
0086 4812 |H | Short_Literal 0x12
0087 00da | | Load_Top At_Offset_2
0088 02a0 | | Declare_Subprogram Null_Subprogram
0089 4801 |H | Short_Literal 0x1
008a 035d | ] | Declare_Type Array,Defined
008b 4800 |H | Short_Literal 0x0
008c 4802 |H | Short_Literal 0x2
008d e002 | | Load 0x0,0x2
008e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008f 02a0 | | Declare_Subprogram Null_Subprogram
0090 4801 |H | Short_Literal 0x1
0091 035d | ] | Declare_Type Array,Defined
0092 4801 |H | Short_Literal 0x1
0093 49ae |I | Short_Literal 0x1ae
0094 e002 | | Load 0x0,0x2
0095 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0096 02a0 | | Declare_Subprogram Null_Subprogram
0097 4801 |H | Short_Literal 0x1
0098 035d | ] | Declare_Type Array,Defined
0099 e407 | | Load 0x2,0x7
009a e408 | | Load 0x2,0x8
009b e409 | | Load 0x2,0x9
009c e40a | | Load 0x2,0xa
009d e40c | | Load 0x2,0xc
009e e002 | | Load 0x0,0x2
009f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a0 e002 | | Load 0x0,0x2
00a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a2 e408 | | Load 0x2,0x8
00a3 e002 | | Load 0x0,0x2
00a4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a5 e002 | | Load 0x0,0x2
00a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a7 e40d | | Load 0x2,0xd
00a8 e40e | | Load 0x2,0xe
00a9 02a0 | | Declare_Subprogram Null_Subprogram
00aa 480c |H | Short_Literal 0xc
00ab 032d | - | Declare_Type Record,Defined
00ac a003 | | Store_Unchecked 0x0,0x3
00ad 00c6 | | Action Check_Subprogram_Elaborated
00ae e405 | | Load 0x2,0x5
00af 00d9 | | Load_Top At_Offset_1
00b0 e004 | | Load 0x0,0x4
00b1 e005 | | Load 0x0,0x5
00b2 4814 |H | Short_Literal 0x14
00b3 0007 | | Action Break_Optional
00b4 e40f | | Load 0x2,0xf
00b5 0322 | " | Declare_Variable Record
00b6 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
00b8 BODY_0050:
00b8 8416 | | Call 0x2,0x16
00b9 00d9 | | Load_Top At_Offset_1
00ba 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00bb 0b00 | | Execute_Immediate Case_Compare,0x0
00bc 7008 |p | Jump_Nonzero 0xc5
00bd 0b02 | | Execute_Immediate Case_Compare,0x2
00be 700a |p | Jump_Nonzero 0xc9
00bf 0b03 | | Execute_Immediate Case_Compare,0x3
00c0 700c |p | Jump_Nonzero 0xcd
00c1 0f04 | | Execute_Immediate Equal,0x4
00c2 7014 |p | Jump_Nonzero 0xd7
00c3 e20e | | Load 0x1,0xe
00c4 0257 | W | Execute Discrete,Raise
00c5 00d1 | | Pop_Control Pop_Count_1
00c6 4800 |H | Short_Literal 0x0
00c7 a402 | | Store_Unchecked 0x2,0x2
00c8 7816 |x | Jump 0xdf
00c9 00d1 | | Pop_Control Pop_Count_1
00ca 4801 |H | Short_Literal 0x1
00cb a402 | | Store_Unchecked 0x2,0x2
00cc 7812 |x | Jump 0xdf
00cd 00d1 | | Pop_Control Pop_Count_1
00ce 00d9 | | Load_Top At_Offset_1
00cf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00d0 7003 |p | Jump_Nonzero 0xd4
00d1 4802 |H | Short_Literal 0x2
00d2 a402 | | Store_Unchecked 0x2,0x2
00d3 780b |x | Jump 0xdf
00d4 4802 |H | Short_Literal 0x2
00d5 a402 | | Store_Unchecked 0x2,0x2
00d6 7808 |x | Jump 0xdf
00d7 00d9 | | Load_Top At_Offset_1
00d8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00d9 7003 |p | Jump_Nonzero 0xdd
00da 4804 |H | Short_Literal 0x4
00db a402 | | Store_Unchecked 0x2,0x2
00dc 7802 |x | Jump 0xdf
00dd 4804 |H | Short_Literal 0x4
00de a402 | | Store_Unchecked 0x2,0x2
00df e402 | | Load 0x2,0x2
00e0 00ca | | Action Exit_Nullary_Function
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00cf | | Action Mark_Auxiliary
00ec 49ff |I | Short_Literal 0x1ff
00ed 4800 |H | Short_Literal 0x0
00ee 0007 | | Action Break_Optional
00ef 00d8 | | Load_Top At_Offset_0
00f0 e403 | | Load 0x2,0x3
00f1 e002 | | Load 0x0,0x2
00f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f3 00d9 | | Load_Top At_Offset_1
00f4 e406 | | Load 0x2,0x6
00f5 01d6 | | Execute Vector,Field_Write
00f6 00c8 | | Action Pop_Auxiliary_Range
00f7 3ff7 |? | Loop_Increasing 0xef
00f8 00ce | | Action Pop_Auxiliary
00f9 e406 | | Load 0x2,0x6
00fa e410 | | Load 0x2,0x10
00fb e411 | | Load 0x2,0x11
00fc 4812 |H | Short_Literal 0x12
00fd 4802 |H | Short_Literal 0x2
00fe 0099 | | Action Reference_Dynamic
00ff 8003 | | Call 0x0,0x3
0100 e415 | | Load 0x2,0x15
0101 017d | } | Execute Record,Structure_Write
0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0103 ; --------------------------------------------------------------------------------------
0103 ; STRING TABLE
0103 ; --------------------------------------------------------------------------------------
0103 000e | | .STRTAB 0x000e->0x010a ; "M100"
0104 0010 | | .STRTAB 0x0010->0x010c ; "M200"
0105 0012 | | .STRTAB 0x0012->0x010e ; "M300S"
0106 0015 | | .STRTAB 0x0015->0x0110 ; "M300C"
0107 0018 | | .STRTAB 0x0018->0x0113 ; "M400S"
0108 001b | | .STRTAB 0x001b->0x0115 ; "M400C"
0109 001e | | .STREND 0x001e->0x0118
010a 4d31 3030 |M100| .STRTAB_STRINGS
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf207,0x0000,0x0001,0x0000
011e 157c 1588 | | | .XXX[0xe2]
0120 1594 1594 | |
0122 1630 16e0 | 0 |
0124 1760 17c8 | ` |
0126 17d0 184c | L|
0128 18b4 1900 | |
012a 197c 1a34 | | 4|
012c 1ad0 1adc | |
012e 1ae4 1ae0 | |
0130 1b34 1bc8 | 4 |
0132 1bc8 1c48 | H|
0134 1cc8 1cd8 | |
0136 1d10 1d54 | T|
0138 1dd0 1e44 | D|
013a 1ec0 1f04 | |
013c 1f3c 1f38 | < 8|
013e 1fa0 1ffc | |
0140 2020 2064 | d|
0142 208c 20e8 | |
0144 20f0 211c | ! |
0146 2188 21c0 |! ! |
0148 2200 2254 |" "T|
014a 22a8 22f5 |" " |
014c 4d15 4959 |M IY|
014e 1549 2d25 | I-%|
0150 3911 c5d5 |9 |
0152 95d5 9590 | |
0154 818d bdb5 | |
0156 b585 b991 | |
0158 cc81 99b1 | |
015a d5cd a195 | |
015c 90d4 d4cc | |
015e 818d bdd5 | |
0160 b190 81b9 | |
0162 bdd0 8199 | |
0164 a5b9 9081 | |
0166 91a5 c995 | |
0168 8dd1 bdc9 | |
016a e4d4 d4cc | |
016c 818d bdd5 | |
016e b190 81b9 | |
0170 bdd0 8199 | |
0172 a5b9 9081 | |
0174 99a5 b194 | |
0176 d4c0 c481 | |
0178 25b1 b195 |% |
017a 9d85 b081 | |
017c c185 d1a1 | |
017e b985 b594 | |
0180 d4c0 c481 | |
0182 25b1 b195 |% |
0184 9d85 b081 | |
0186 99a5 b195 | |
0188 b985 b594 | |
018a d4d4 cc81 | |
018c 05b5 89a5 | |
018e 9dd5 bdd5 | |
0190 cc81 c185 | |
0192 d1a1 b985 | |
0194 b594 d0d4 | |
0196 c081 8dbd | |
0198 d5b1 9081 | |
019a b9bd d081 | |
019c bdc1 95b8 | |
019e 8199 a5b1 | |
01a0 94b0 8199 | |
01a2 a5b1 9481 | |
01a4 a5b8 81d5 | |
01a6 cd94 d0d4 | |
01a8 c081 8dbd | |
01aa d5b1 9081 | |
01ac b9bd d081 | |
01ae bdc1 95b8 | |
01b0 8199 a5b1 | |
01b2 94b0 8191 | |
01b4 a5c9 958d | |
01b6 d1bd c9e4 | |
01b8 81a5 b881 | |
01ba d5cd 94d4 | |
01bc d4c0 818d | |
01be bdd5 b190 | |
01c0 81b9 bdd0 | |
01c2 8185 8d8d | |
01c4 95cd cc81 | |
01c6 99a5 b194 | |
01c8 d4d4 c081 | |
01ca 8dbd d5b1 | |
01cc 9081 b9bd | |
01ce d081 858d | |
01d0 8d95 cdcc | |
01d2 8191 a5c9 | |
01d4 958d d1bd | |
01d6 c9e4 d0d4 | |
01d8 c481 31bd | 1 |
01da 8d85 b081 | |
01dc 95c9 c9bd | |
01de c881 a5b8 | |
01e0 81c1 c9bd | |
01e2 8d95 cdcd | |
01e4 a5b9 9cd4 | |
01e6 c0c8 8135 | 5|
01e8 85a5 b081 | |
01ea 8dbd b5b5 | |
01ec 85b9 91cc | |
01ee 81b9 bdd0 | |
01f0 81a5 b5c1 | |
01f2 b195 b595 | |
01f4 b9d1 9590 | |
01f6 c8c0 c881 | |
01f8 39bc 81cd |9 |
01fa d1bd c985 | |
01fc 9d94 8185 | |
01fe b1b1 bd8d | |