|
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_0a70f4
└─⟦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 0090 | | .CONST 0x0090 ; 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 0022 | " | .CONST 0x0022 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000b | | .CONST 0x000b ; Number of locals
000b INIT_0008:
000b 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
000d e013 | | Load 0x0,0x13
000e 1917 | | Execute Package,Field_Reference,Field_Number 0x17
000f 00c6 | | Action Check_Subprogram_Elaborated
0010 4802 |H | Short_Literal 0x2
0011 4803 |H | Short_Literal 0x3
0012 0099 | | Action Reference_Dynamic
0013 e024 | $ | Load 0x0,0x24
0014 e025 | % | Load 0x0,0x25
0015 4806 |H | Short_Literal 0x6
0016 0007 | | Action Break_Optional
0017 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0019 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001a 00c6 | | Action Check_Subprogram_Elaborated
001b 4807 |H | Short_Literal 0x7
001c 4803 |H | Short_Literal 0x3
001d 0099 | | Action Reference_Dynamic
001e e026 | & | Load 0x0,0x26
001f e027 | ' | Load 0x0,0x27
0020 480b |H | Short_Literal 0xb
0021 0007 | | Action Break_Optional
0022 BODY_0008:
0022 e7ff | | Load 0x3,-0x1
0023 4808 |H | Short_Literal 0x8
0024 4803 |H | Short_Literal 0x3
0025 0099 | | Action Reference_Dynamic
0026 4809 |H | Short_Literal 0x9
0027 4803 |H | Short_Literal 0x3
0028 0099 | | Action Reference_Dynamic
0029 820f | | Call 0x1,0xf
002a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
002b 0000 0000 | | .BLANK 0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0035 | 5 | .CONST 0x0035 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0035 BODY_0030:
0035 00db | | Load_Top At_Offset_3
0036 8802 | | Call 0x4,0x2
0037 701a |p | Jump_Nonzero 0x52
0038 00db | | Load_Top At_Offset_3
0039 8219 | | Call 0x1,0x19
003a 6817 |h | Jump_Zero 0x52
003b e008 | | Load 0x0,0x8
003c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003d e9ff | | Load 0x4,-0x1
003e 8218 | | Call 0x1,0x18
003f e406 | | Load 0x2,0x6
0040 e214 | | Load 0x1,0x14
0041 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0042 e9fe | | Load 0x4,-0x2
0043 e013 | | Load 0x0,0x13
0044 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0045 e9ff | | Load 0x4,-0x1
0046 8218 | | Call 0x1,0x18
0047 480b |H | Short_Literal 0xb
0048 4802 |H | Short_Literal 0x2
0049 0099 | | Action Reference_Dynamic
004a 480c |H | Short_Literal 0xc
004b 4802 |H | Short_Literal 0x2
004c 0099 | | Action Reference_Dynamic
004d 480d |H | Short_Literal 0xd
004e 4802 |H | Short_Literal 0x2
004f 0099 | | Action Reference_Dynamic
0050 e013 | | Load 0x0,0x13
0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0052 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00ea | | Load_Encached Null_String_Cache
005c e9fc | | Load 0x4,-0x4
005d e9fd | | Load 0x4,-0x3
005e 4803 |H | Short_Literal 0x3
005f 4803 |H | Short_Literal 0x3
0060 0099 | | Action Reference_Dynamic
0061 4804 |H | Short_Literal 0x4
0062 4803 |H | Short_Literal 0x3
0063 0099 | | Action Reference_Dynamic
0064 e013 | | Load 0x0,0x13
0065 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0066 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0072 | r | .CONST 0x0072 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e008 | | Load 0x0,0x8
006c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
006d 02ff | | Declare_Variable Variant_Record
006e 00d8 | | Load_Top At_Offset_0
006f 1c00 | | Execute_Immediate Run_Utility,0x0
0070 e008 | | Load 0x0,0x8
0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0072 BODY_0068:
0072 e008 | | Load 0x0,0x8
0073 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0074 00da | | Load_Top At_Offset_2
0075 6012 |` | Indirect_Literal Discrete,0x88,{0x00000000, 0x00004000}
0076 e010 | | Load 0x0,0x10
0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0078 4800 |H | Short_Literal 0x0
0079 e9ff | | Load 0x4,-0x1
007a e008 | | Load 0x0,0x8
007b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
007c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
007d 00d1 | | Pop_Control Pop_Count_1
007e 0059 | Y | Store_Top Discrete,At_Offset_1
007f 00d9 | | Load_Top At_Offset_1
0080 e008 | | Load 0x0,0x8
0081 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0082 7003 |p | Jump_Nonzero 0x86
0083 00d8 | | Load_Top At_Offset_0
0084 0f08 | | Execute_Immediate Equal,0x8
0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0086 4801 |H | Short_Literal 0x1
0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0088 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0004 0004 | | .DEBUG4 0x0004,0x0004,0x706f,0x0000,0x0001,0x0000
0096 d17d 617d | }a}| .XXX[0xd]
0098 4dd1 c9a5 |M |
009a b99c c4d9 | |
009c 7d55 b985 |}U |
009e b1a5 9db9 | |
00a0 9590 8080 | |
00a2 2880 |( |
00a3 8080 8080 | | .BLANK 8080[0x9]
00ac a111 a5cd | | .XXX[0x6]
00ae c1b1 85e4 | |
00b0 b080 8028 | (|
00b2 8080 8080 | | .BLANK 8080[0x9]
00bb 8081 5195 | Q | .XXX[0x1c]
00bd e1d0 80a1 | |
00bf 0da1 85c9 | |
00c1 858d d195 | |
00c3 c97d 3d99 | }= |
00c5 99cd 95d0 | |
00c7 80b8 b881 | |
00c9 0da1 85c9 | |
00cb 858d d195 | |
00cd c97d 3d99 | }= |
00cf 99cd 95d0 | |
00d1 80ac 80c8 | |
00d3 d4cc a4a4 | |
00d5 ec80 8028 | (|
00d7 8080 8080 | | .BLANK 8080[0x7]
00de 8081 4185 | A | .XXX[0x18]
00e0 c9d1 a585 | |
00e2 b17d 397d | }9}|
00e4 0da1 85c9 | |
00e6 cc80 80e8 | |
00e8 f481 4185 | A |
00ea c9d1 a585 | |
00ec b17d 397d | }9}|
00ee 0da1 85c9 | |
00f0 cc80 b480 | |
00f2 c8d4 d0ec | |
00f4 8080 2880 | ( |
00f6 8080 8080 | | .BLANK 8080[0x7]
00fd 810d a185 | | .XXX[0x18]
00ff c985 8dd1 | |
0101 95c9 7d3d | }=|
0103 9999 cd95 | |
0105 d080 e8f4 | |
0107 810d a185 | |
0109 c985 8dd1 | |
010b 95c9 7d3d | }=|
010d 9999 cd95 | |
010f d080 ac80 | |
0111 c8d4 d0ec | |
0113 8080 2880 | ( |
0115 8080 8080 | | .BLANK 8080[0x5]
011a 8195 b990 | | .XXX[0x25]
011c 81b1 bdbd | |
011e c0ec 2828 | ((|
0120 b4b4 b4b5 | |
0122 4d95 b990 |M |
0124 81d1 a194 | |
0126 81b1 85cd | |
0128 d081 b9bd | |
012a d0b5 99d5 | |
012c b1b0 818d | |
012e a185 c985 | |
0130 8dd1 95c8 | |
0132 8189 b1bd | |
0134 8dac 81a5 | |
0136 9881 d1a1 | |
0138 95c9 9481 | |
013a a5cc 81bd | |
013c b994 b828 | (|
013e 2880 |( |
013f 8080 8080 | | .BLANK 8080[0x5]
0144 81a5 9881 | | .XXX[0x10]
0146 4185 c9d1 |A |
0148 a585 b17d | }|
014a 397d 0da1 |9} |
014c 85c9 cc80 | |
014e bcf4 80c0 | |
0150 81d1 a195 | |
0152 b880 8028 | (|
0154 8080 8080 | | .BLANK 8080[0x7]
015b 8081 15b1 | | .XXX[0xd]
015d d080 e8f4 | |
015f 80a1 1195 | |
0161 b1d1 8584 | |
0163 80f4 f880 | |
0165 c0b0 8080 | |
0167 2880 |( |
0168 8080 8080 | | .BLANK 8080[0xb]
0173 8131 95b9 | 1 | .XXX[0x14]
0175 9dd1 a080 | |
0177 f4f8 8155 | U|
0179 7d0d a185 |} |
017b c880 a141 | A|
017d 85c9 d1a5 | |
017f 85b1 7d39 | }9|
0181 7d0d a185 |} |
0183 c9cc a4a4 | |
0185 ec80 8028 | (|
0187 8080 8080 | | .BLANK 8080[0x7]
018e 8081 41d5 | A | .XXX[0x17]
0190 d17d 617d | }a}|
0192 5195 e1d1 |Q |
0194 7d15 b1d1 |} |
0196 7d55 b985 |}U |
0198 b1a5 9db9 | |
019a 9590 80a1 | |
019c 11a5 cdc1 | |
019e b185 e4b0 | |
01a0 8115 b1d0 | |
01a2 a4ec 8080 | |
01a4 2880 |( |
01a5 8080 8080 | | .BLANK 8080[0x7]
01ac 8141 d5d1 | A | .XXX[0x13]
01ae 7d61 7d4d |}a}M|
01b0 d1c9 a5b9 | |
01b2 9cc4 d97d | }|
01b4 55b9 85b1 |U |
01b6 a59d b995 | |
01b8 9080 a111 | |
01ba a5cd c1b1 | |
01bc 85e4 b080 | |
01be 8028 | ( |
01bf 8080 8080 | | .BLANK 8080[0x14]
01d3 8081 5195 | Q | .XXX[0x16]
01d5 e1d0 80a1 | |
01d7 0da1 85c9 | |
01d9 858d d195 | |
01db c97d 3d99 | }= |
01dd 99cd 95d0 | |
01df 80b8 b881 | |
01e1 5195 e1d0 |Q |
01e3 9d31 85cd | 1 |
01e5 d0a4 a4ec | |
01e7 8080 2880 | ( |
01e9 8080 8080 | | .BLANK 8080[0x5]
01ee 8195 b990 | | .XXX[0x5]
01f0 81a5 98ec | |
01f2 2828 |(( |
01f3 8080 8080 | | .BLANK 8080[0x6]
01f9 b4b4 8141 | A| .XXX[0x7]
01fb 8590 81c9 | |
01fd 95c5 d595 | |
01ff cdd0 | |