|
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_058cf1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0048 | H | .CONST 0x0048 ; 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 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 0023 | # | .CONST 0x0023 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e001 | | Load 0x0,0x1
0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0023 BODY_0018:
0023 e001 | | Load 0x0,0x1
0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 00da | | Load_Top At_Offset_2
0027 0120 | | Execute Any,Is_Value
0028 6803 |h | Jump_Zero 0x2c
0029 e001 | | Load 0x0,0x1
002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002b 7801 |x | Jump 0x2d
002c 00da | | Load_Top At_Offset_2
002d 6012 |` | Indirect_Literal Discrete,0x40,{0x00000000, 0x00004000}
002e e002 | | Load 0x0,0x2
002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0030 e003 | | Load 0x0,0x3
0031 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0032 e001 | | Load 0x0,0x1
0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0034 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0035 e5ff | | Load 0x2,-0x1
0036 e001 | | Load 0x0,0x1
0037 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0038 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0039 c402 | | Store 0x2,0x2
003a 0059 | Y | Store_Top Discrete,At_Offset_1
003b 00d8 | | Load_Top At_Offset_0
003c 0f00 | | Execute_Immediate Equal,0x0
003d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
003e 0000 0000 | | .XXX[0x2]
0040 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 000d | | .DEBUG4 0x0004,0x000d,0x4c7c,0x0000,0x0001,0x0000
004e 858d ad85 | | .XXX[0x8f]
0050 9d94 814d | M|
0052 95b5 85b9 | |
0054 d1a5 8d7d | }|
0056 05d1 d1c9 | |
0058 a589 d5d1 | |
005a 95cc 81a5 | |
005c cc28 2880 | (( |
005e 8080 8199 | |
0060 d5b9 8dd1 | |
0062 a5bd b880 | |
0064 8121 85cd | ! |
0066 7d4d b57d |}M }|
0068 0985 8dad | |
006a 7d31 a5b9 |}1 |
006c ac80 a139 | 9|
006e bd91 9480 | |
0070 e881 11a5 | |
0072 85b9 84b9 | |
0074 51c9 9594 |Q |
0076 a481 c995 | |
0078 d1d5 c9b8 | |
007a 8109 bdbd | |
007c b195 85b8 | |
007e ec28 8080 | ( |
0080 8081 99d5 | |
0082 b98d d1a5 | |
0084 bdb8 8081 | |
0086 4db5 7d09 |M } |
0088 858d ad7d | }|
008a 31a5 b9ac |1 |
008c 8080 8080 | |
008e 80a1 39bd | 9 |
0090 9194 80e8 | |
0092 8111 a585 | |
0094 b984 b951 | Q|
0096 c995 94a4 | |
0098 81c9 95d1 | |
009a d5c9 b881 | |
009c 11a5 85b9 | |
009e 84b9 51c9 | Q |
00a0 9594 ec28 | (|
00a2 8080 8081 | |
00a4 c1c9 bd8d | |
00a6 9591 d5c9 | |
00a8 9481 4db5 | M |
00aa 7d09 858d |} |
00ac ad7d 31a5 | }1 |
00ae b9ac 8080 | |
00b0 8080 80a1 | |
00b2 39bd 9194 |9 |
00b4 80e8 8111 | |
00b6 a585 b984 | |
00b8 b951 c995 | Q |
00ba 94ec 8109 | |
00bc 858d ad7d | }|
00be 31a5 b9ac |1 |
00c0 80e8 8111 | |
00c2 a585 b984 | |
00c4 b951 c995 | Q |
00c6 94a4 ec28 | (|
00c8 2880 8080 |( |
00ca 81c1 c9bd | |
00cc 8d95 91d5 | |
00ce c994 814d | M|
00d0 b57d 05c1 | } |
00d2 c1b1 a595 | |
00d4 917d 41c9 | }A |
00d6 859d b585 | |
00d8 cc80 a111 | |
00da 9599 7d25 | }%|
00dc 9080 | |
00dd 8080 8080 | | .BLANK 8080[0x4]
00e1 80e8 8111 | | .XXX[0x8]
00e3 a585 b984 | |
00e5 b951 c995 | Q |
00e7 94ec 2880 | ( |
00e9 8080 8080 | | .BLANK 8080[0x10]
00f9 8105 c1c1 | | .XXX[0x26]
00fb b1a5 9591 | |
00fd 7d41 c985 |}A |
00ff 9db5 85cc | |
0101 80e8 8111 | |
0103 a585 b984 | |
0105 b94d 95c5 | M |
0107 d595 b98d | |
0109 94a4 ec28 | (|
010b 8080 8081 | |
010d c1c9 bd8d | |
010f 9591 d5c9 | |
0111 9481 0591 | |
0113 917d 05c1 | } |
0115 c1b1 a595 | |
0117 917d 41c9 | }A |
0119 859d b584 | |
011b 80a1 1195 | |
011d 997d 2590 | }% |
011f 8080 8080 | | .BLANK 8080[0x4]
0123 80e8 8111 | | .XXX[0x8]
0125 a585 b984 | |
0127 b951 c995 | Q |
0129 94ec 2880 | ( |
012b 8080 8080 | | .BLANK 8080[0x10]
013b 8105 c1c1 | | .XXX[0x6e]
013d b1a5 9591 | |
013f 7d41 c985 |}A |
0141 9db5 8480 | |
0143 e881 11a5 | |
0145 85b9 84b9 | |
0147 51c9 9594 |Q |
0149 a4ec 2880 | ( |
014b 8080 8199 | |
014d d5b9 8dd1 | |
014f a5bd b880 | |
0151 814d b57d | M }|
0153 05c1 c1b1 | |
0155 a595 917d | }|
0157 41c9 859d |A |
0159 b585 cc80 | |
015b a111 9599 | |
015d 7d25 9080 |}% |
015f e881 11a5 | |
0161 85b9 84b9 | |
0163 51c9 9594 |Q |
0165 a481 c995 | |
0167 d1d5 c9b8 | |
0169 8111 a585 | |
016b b984 b94d | M|
016d 95c5 d595 | |
016f b98d 94ec | |
0171 2880 8080 |( |
0173 8199 d5b9 | |
0175 8dd1 a5bd | |
0177 b880 8121 | !|
0179 85cd 7d4d | }M|
017b b57d 05c1 | } |
017d c1b1 a595 | |
017f 917d 41c9 | }A |
0181 859d b585 | |
0183 cc80 a111 | |
0185 9599 7d25 | }%|
0187 9080 e881 | |
0189 11a5 85b9 | |
018b 84b9 51c9 | Q |
018d 9594 a481 | |
018f c995 d1d5 | |
0191 c9b8 8109 | |
0193 bdbd b195 | |
0195 85b8 ec28 | (|
0197 2880 8080 |( |
0199 81c1 c9bd | |
019b 8d95 91d5 | |
019d c994 814d | M|
019f b57d 55cd | }U |
01a1 95c9 7d41 | }A|
01a3 c995 7d15 | } |
01a5 b185 897d | }|
01a7 2d95 e428 |- (|
01a9 8080 8080 | | .BLANK 8080[0x8]
01b1 80a1 4185 | A | .XXX[0x4f]
01b3 8dad 859d | |
01b5 957d 2590 | }% |
01b7 80e8 8111 | |
01b9 a585 b984 | |
01bb b951 c995 | Q |
01bd 94ec 8155 | U|
01bf cd95 c97d | }|
01c1 41c9 957d |A }|
01c3 15b1 8589 | |
01c5 7d2d 95e4 |}- |
01c7 80e8 8125 | %|
01c9 b9d1 959d | |
01cb 95c8 a4ec | |
01cd 2880 8080 |( |
01cf 8199 d5b9 | |
01d1 8dd1 a5bd | |
01d3 b880 814d | M|
01d5 b57d 55cd | }U |
01d7 95c9 7d41 | }A|
01d9 c995 7d15 | } |
01db b185 897d | }|
01dd 2d95 e480 |- |
01df 8080 8080 | |
01e1 a141 858d | A |
01e3 ad85 9d95 | |
01e5 7d25 9080 |}% |
01e7 e881 11a5 | |
01e9 85b9 84b9 | |
01eb 51c9 9594 |Q |
01ed a481 c995 | |
01ef d1d5 c9b8 | |
01f1 8125 b9d1 | % |
01f3 959d 95c8 | |
01f5 ec28 8080 | ( |
01f7 8081 99d5 | |
01f9 b98d d1a5 | |
01fb bdb8 8081 | |
01fd 2185 cd7d |! }|
01ff 4db5 |M |