|
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_0bf8df
└─⟦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 0058 | X | .CONST 0x0058 ; 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 0029 | ) | .CONST 0x0029 ; Address of begin 0019 0047 | G | .CONST 0x0047 ; Address of exception handler 001a 0007 | | .CONST 0x0007 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 4801 |H | Short_Literal 0x1 0021 4801 |H | Short_Literal 0x1 0022 00e9 | | Load_Encached String_Cache 0023 035b | [ | Declare_Type Array,Constrained 0024 0337 | 7 | Declare_Variable Array 0025 00e3 | | Load_Encached Natural_Cache 0026 00e1 | | Load_Encached Boolean_Cache 0027 03e9 | | Declare_Variable Discrete,Duplicate 0028 03e9 | | Declare_Variable Discrete,Duplicate 0029 BODY_0018: 0029 e402 | | Load 0x2,0x2 002a 00ea | | Load_Encached Null_String_Cache 002b e5ff | | Load 0x2,-0x1 002c 4800 |H | Short_Literal 0x0 002d e002 | | Load 0x0,0x2 002e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002f c402 | | Store 0x2,0x2 0030 00e1 | | Load_Encached Boolean_Cache 0031 00e1 | | Load_Encached Boolean_Cache 0032 00e1 | | Load_Encached Boolean_Cache 0033 00e3 | | Load_Encached Natural_Cache 0034 e403 | | Load 0x2,0x3 0035 e402 | | Load 0x2,0x2 0036 e002 | | Load 0x0,0x2 0037 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 0038 00d1 | | Pop_Control Pop_Count_1 0039 c404 | | Store 0x2,0x4 003a c405 | | Store 0x2,0x5 003b 005b | [ | Store_Top Discrete,At_Offset_3 003c 0059 | Y | Store_Top Discrete,At_Offset_1 003d e402 | | Load 0x2,0x2 003e e002 | | Load 0x0,0x2 003f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0040 c402 | | Store 0x2,0x2 0041 00db | | Load_Top At_Offset_3 0042 7002 |p | Jump_Nonzero 0x45 0043 00d8 | | Load_Top At_Offset_0 0044 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0045 4800 |H | Short_Literal 0x0 0046 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0047 TRAP_0018: 0047 0007 | | Action Break_Optional 0048 e402 | | Load 0x2,0x2 0049 e002 | | Load 0x0,0x2 004a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 004b 6804 |h | Jump_Zero 0x50 004c e402 | | Load 0x2,0x2 004d e002 | | Load 0x0,0x2 004e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004f c402 | | Store 0x2,0x2 0050 4801 |H | Short_Literal 0x1 0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b90,0x0000,0x0001,0x0000 005e c98d 95cc | | .XXX[0x24] 0060 ec80 8080 | | 0062 8080 80a8 | | 0064 bc28 8080 | ( | 0066 8080 bca8 | | 0068 810d 85c9 | | 006a 91a5 b985 | | 006c b080 8080 | | 006e 8080 8080 | | 0070 8081 b9d5 | | 0072 b57d c995 | } | 0074 cdbd d5c9 | | 0076 8d95 ccec | | 0078 8080 a8bc | | 007a 2880 8080 |( | 007c 80bc a881 | | 007e 05c9 9d31 | 1| 0080 a5cd d080 | | 0082 8080 8080 | | .BLANK 8080[0x4] 0086 8185 c99d | | .XXX[0x3] 0088 ccec | | 0089 8080 8080 | | .BLANK 8080[0x5] 008e 80a8 bc28 | (| .XXX[0x2e] 0090 8080 8080 | | 0092 bca8 810d | | 0094 85c9 91a5 | | 0096 b985 b080 | | 0098 8080 8080 | | 009a 8080 8081 | | 009c b9d5 b57d | }| 009e 85c9 9dcc | | 00a0 ec80 8080 | | 00a2 8080 8080 | | 00a4 a8bc 2829 | ()| 00a6 95e1 d195 | | 00a8 c9b8 81d9 | | 00aa bda5 9081 | | 00ac 61d1 1d95 |a | 00ae d14d d589 | M | 00b0 d985 b1d5 | | 00b2 95cc a0a4 | | 00b4 ec28 8080 | ( | 00b6 8080 bca8 | | 00b8 818d 8591 | | 00ba 91c9 7dd0 | } | 00bc 8080 8080 | | .BLANK 8080[0x4] 00c0 8081 8985 | | .XXX[0x4] 00c2 cd94 ec80 | | 00c4 8080 8080 | | .BLANK 8080[0x5] 00c9 a8bc 2880 | ( | .XXX[0x34] 00cb 8080 80bc | | 00cd a881 61d1 | a | 00cf 4995 cdbd |I | 00d1 d5c9 8d95 | | 00d3 31a5 cdd0 |1 | 00d5 8080 81c9 | | 00d7 95cd bdd5 | | 00d9 c98d 95cc | | 00db ec80 8080 | | 00dd 8080 80a8 | | 00df bc28 8080 | ( | 00e1 8080 bca8 | | 00e3 810d 85c9 | | 00e5 91a5 b985 | | 00e7 b080 8080 | | 00e9 8080 8080 | | 00eb 8081 b9d5 | | 00ed b57d c995 | } | 00ef cdbd d5c9 | | 00f1 8d95 ccec | | 00f3 8080 a8bc | | 00f5 2880 8080 |( | 00f7 80bc a881 | | 00f9 05c9 9d31 | 1| 00fb a5cd d080 | | 00fd 8080 8080 | | .BLANK 8080[0x4] 0101 8185 c99d | | .XXX[0x3] 0103 ccec | | 0104 8080 8080 | | .BLANK 8080[0x5] 0109 80a8 bc28 | (| .XXX[0x8e] 010b 8080 8080 | | 010d bca8 810d | | 010f 85c9 91a5 | | 0111 b985 b080 | | 0113 8080 8080 | | 0115 8080 8081 | | 0117 b9d5 b57d | }| 0119 85c9 9dcc | | 011b ec80 8080 | | 011d 8080 8080 | | 011f a8bc 2829 | ()| 0121 95e1 d195 | | 0123 c9b8 81d9 | | 0125 bda5 9081 | | 0127 61d1 1d95 |a | 0129 d149 95cd | I | 012b bdd5 c98d | | 012d 9531 a5cd | 1 | 012f d0a0 a4ec | | 0131 2880 8080 |( | 0133 80bc a881 | | 0135 5da5 919d |] | 0137 95d1 0db1 | | 0139 85cd cc25 | %| 013b dda5 919d | | 013d 95d1 7d8d | } | 013f b185 cdcc | | 0141 ec24 24a8 | $$ | 0143 bc28 8080 | ( | 0145 8080 bca8 | | 0147 8161 d149 | a I| 0149 95cd bdd5 | | 014b c98d 9531 | 1| 014d a5cd d024 | $| 014f a9c9 95cd | | 0151 bdd5 c98d | | 0153 95cd 7dc9 | } | 0155 95d1 d5c9 | | 0157 b8ec 24a8 | $ | 0159 bc28 8080 | ( | 015b 8080 bca8 | | 015d 810d 85c9 | | 015f 91a5 b985 | | 0161 b024 24a9 | $$ | 0163 b9d5 b57d | }| 0165 c995 cdbd | | 0167 d5c9 8d95 | | 0169 cd7d c995 | } | 016b d1d5 c9b8 | | 016d ec24 a8bc | $ | 016f 2829 d1e5 |() | 0171 c195 9195 | | 0173 9881 cdd1 | | 0175 c9d5 8dd0 | | 0177 817d 61d1 | }a | 0179 4995 cdbd |I | 017b d5c9 8d94 | | 017d 81ec 2880 | ( | 017f 8080 814d | M| 0181 d1c9 a5b9 | | 0183 9c80 8080 | | 0185 8081 c995 | | 0187 cdbd d5c9 | | 0189 8d95 7db9 | } | 018b 85b5 94ec | | 018d 8080 80bc | | 018f a881 4995 | I | 0191 cdbd d5c9 | | 0193 8d94 81b9 | | 0195 85b5 9480 | | 0197 8080 8080 | | .BLANK 8080[0xd] 01a4 80a8 bc28 | (| .XXX[0x1b] 01a6 8080 8081 | | 01a8 4dd1 c9a5 |M | 01aa b99c 8080 | | 01ac 8080 81c9 | | 01ae 95cd bdd5 | | 01b0 c98d 957d | }| 01b2 8db1 85cd | | 01b4 ccec 8080 | | 01b6 bca8 8149 | I| 01b8 95cd bdd5 | | 01ba c98d 9481 | | 01bc 8db1 85cd | | 01be cc80 | | 01bf 8080 8080 | | .BLANK 8080[0xd] 01cc a8bc 2880 | ( | .XXX[0x21] 01ce 8080 814d | M| 01d0 d1c9 a5b9 | | 01d2 9c80 8080 | | 01d4 8081 c995 | | 01d6 cdbd d5c9 | | 01d8 8d95 7dd1 | } | 01da e5c1 94ec | | 01dc 8080 80bc | | 01de a881 4995 | I | 01e0 c1c9 95cd | | 01e2 95b9 d185 | | 01e4 d1a5 bdb8 | | 01e6 81d1 e5c1 | | 01e8 9481 9195 | | 01ea cda5 c995 | | 01ec 9080 | | 01ed 8080 8080 | | .BLANK 8080[0x6] 01f3 80a8 bc28 | (| .XXX[0xd] 01f5 8080 8081 | | 01f7 0d85 c991 | | 01f9 a5b9 85b0 | | 01fb 8080 8081 | | 01fd c995 cdbd | | 01ff d5c9 | |