|
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_0a7cf5
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache 000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 000d e009 | | Load 0x0,0x9 000e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 000f 02c7 | | Declare_Variable Any 0010 e009 | | Load 0x0,0x9 0011 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0012 a403 | | Store_Unchecked 0x2,0x3 0013 e5ff | | Load 0x2,-0x1 0014 e004 | | Load 0x0,0x4 0015 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0016 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0018 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 001a 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 001c 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 001e e009 | | Load 0x0,0x9 001f 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 0020 00c6 | | Action Check_Subprogram_Elaborated 0021 00e1 | | Load_Encached Boolean_Cache 0022 4808 |H | Short_Literal 0x8 0023 4802 |H | Short_Literal 0x2 0024 0099 | | Action Reference_Dynamic 0025 4805 |H | Short_Literal 0x5 0026 4802 |H | Short_Literal 0x2 0027 0099 | | Action Reference_Dynamic 0028 e038 | 8 | Load 0x0,0x38 0029 e039 | 9 | Load 0x0,0x39 002a 480e |H | Short_Literal 0xe 002b 0007 | | Action Break_Optional 002c BODY_0008: 002c e402 | | Load 0x2,0x2 002d 4801 |H | Short_Literal 0x1 002e e5ff | | Load 0x2,-0x1 002f e004 | | Load 0x0,0x4 0030 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0031 e409 | | Load 0x2,0x9 0032 480a |H | Short_Literal 0xa 0033 4802 |H | Short_Literal 0x2 0034 0099 | | Action Reference_Dynamic 0035 480b |H | Short_Literal 0xb 0036 4802 |H | Short_Literal 0x2 0037 0099 | | Action Reference_Dynamic 0038 480c |H | Short_Literal 0xc 0039 4802 |H | Short_Literal 0x2 003a 0099 | | Action Reference_Dynamic 003b e009 | | Load 0x0,0x9 003c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 003d c402 | | Store 0x2,0x2 003e e402 | | Load 0x2,0x2 003f 4801 |H | Short_Literal 0x1 0040 e5ff | | Load 0x2,-0x1 0041 e004 | | Load 0x0,0x4 0042 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0043 e02d | - | Load 0x0,0x2d 0044 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0045 e409 | | Load 0x2,0x9 0046 480a |H | Short_Literal 0xa 0047 4802 |H | Short_Literal 0x2 0048 0099 | | Action Reference_Dynamic 0049 480b |H | Short_Literal 0xb 004a 4802 |H | Short_Literal 0x2 004b 0099 | | Action Reference_Dynamic 004c 480c |H | Short_Literal 0xc 004d 4802 |H | Short_Literal 0x2 004e 0099 | | Action Reference_Dynamic 004f e009 | | Load 0x0,0x9 0050 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0051 c402 | | Store 0x2,0x2 0052 e403 | | Load 0x2,0x3 0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0054 0000 0000 | | .BLANK 0000[0x4] 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 4800 |H | Short_Literal 0x0 005c a7fd | | Store_Unchecked 0x3,-0x3 005d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0071 | q | .CONST 0x0071 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0005 | | .CONST 0x0005 ; Number of locals 0063 INIT_0060: 0063 e007 | | Load 0x0,0x7 0064 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0065 e004 | | Load 0x0,0x4 0066 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0067 02c7 | | Declare_Variable Any 0068 00d8 | | Load_Top At_Offset_0 0069 1c00 | | Execute_Immediate Run_Utility,0x0 006a e009 | | Load 0x0,0x9 006b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006c 02c7 | | Declare_Variable Any 006d 00d8 | | Load_Top At_Offset_0 006e 1c00 | | Execute_Immediate Run_Utility,0x0 006f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0071 BODY_0060: 0071 e7ff | | Load 0x3,-0x1 0072 e030 | 0 | Load 0x0,0x30 0073 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0074 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0075 c604 | | Store 0x3,0x4 0076 00d9 | | Load_Top At_Offset_1 0077 e009 | | Load 0x0,0x9 0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0079 012f | / | Execute Any,Equal 007a 7011 |p | Jump_Nonzero 0x8c 007b e002 | | Load 0x0,0x2 007c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 007d 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 007e 00da | | Load_Top At_Offset_2 007f e007 | | Load 0x0,0x7 0080 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0081 a602 | | Store_Unchecked 0x3,0x2 0082 00db | | Load_Top At_Offset_3 0083 0f27 | ' | Execute_Immediate Equal,0x27 0084 7001 |p | Jump_Nonzero 0x86 0085 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0086 e28a | | Load 0x1,0x8a 0087 00da | | Load_Top At_Offset_2 0088 e004 | | Load 0x0,0x4 0089 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 008a c603 | | Store 0x3,0x3 008b 8605 | | Call 0x3,0x5 008c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009f | | .CONST 0x009f ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e009 | | Load 0x0,0x9 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 e009 | | Load 0x0,0x9 0099 1b13 | | Execute Package,Field_Read,Field_Number 0x13 009a 02c7 | | Declare_Variable Any 009b 00d8 | | Load_Top At_Offset_0 009c 1c00 | | Execute_Immediate Run_Utility,0x0 009d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 009f BODY_0090: 009f 00cf | | Action Mark_Auxiliary 00a0 7815 |x | Jump 0xb6 00a1 e7ff | | Load 0x3,-0x1 00a2 e009 | | Load 0x0,0x9 00a3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a4 c602 | | Store 0x3,0x2 00a5 00db | | Load_Top At_Offset_3 00a6 e03a | : | Load 0x0,0x3a 00a7 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 00a8 4603 |F | Jump_Case 0x4 00a9 7807 |x | Jump 0xb1 ; case 0x0 00aa 7804 |x | Jump 0xaf ; case 0x1 00ab 7801 |x | Jump 0xad ; case 0x2 00ac 7804 |x | Jump 0xb1 ; case 0x3 00ad 8604 | | Call 0x3,0x4 00ae 7802 |x | Jump 0xb1 00af 00db | | Load_Top At_Offset_3 00b0 8406 | | Call 0x2,0x6 00b1 e7ff | | Load 0x3,-0x1 00b2 e009 | | Load 0x0,0x9 00b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b4 c7ff | | Store 0x3,-0x1 00b5 00c9 | | Action Pop_Auxiliary_Loop 00b6 e7ff | | Load 0x3,-0x1 00b7 e009 | | Load 0x0,0x9 00b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b9 6fe7 |o | Jump_Zero 0xa1 00ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d0 | | .CONST 0x00d0 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0004 | | .CONST 0x0004 ; Number of locals 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 e02d | - | Load 0x0,0x2d 00c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c6 e02d | - | Load 0x0,0x2d 00c7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c8 03f1 | | Declare_Variable Discrete,With_Value 00c9 e004 | | Load 0x0,0x4 00ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00cb 02c7 | | Declare_Variable Any 00cc 00d8 | | Load_Top At_Offset_0 00cd 1c00 | | Execute_Immediate Run_Utility,0x0 00ce 029f 011b | | Declare_Subprogram INIT_0118,For_Call 00d0 BODY_00c0: 00d0 00da | | Load_Top At_Offset_2 00d1 00d8 | | Load_Top At_Offset_0 00d2 4800 |H | Short_Literal 0x0 00d3 4802 |H | Short_Literal 0x2 00d4 0262 | b | Execute Discrete,In_Range 00d5 7009 |p | Jump_Nonzero 0xdf 00d6 0b22 | " | Execute_Immediate Case_Compare,0x22 00d7 7007 |p | Jump_Nonzero 0xdf 00d8 0f05 | | Execute_Immediate Equal,0x5 00d9 7001 |p | Jump_Nonzero 0xdb 00da 7807 |x | Jump 0xe2 00db e7ff | | Load 0x3,-0x1 00dc 8406 | | Call 0x2,0x6 00dd 8604 | | Call 0x3,0x4 00de 7803 |x | Jump 0xe2 00df 00d1 | | Pop_Control Pop_Count_1 00e0 e7ff | | Load 0x3,-0x1 00e1 8406 | | Call 0x2,0x6 00e2 4800 |H | Short_Literal 0x0 00e3 a7fd | | Store_Unchecked 0x3,-0x3 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ee | | .CONST 0x00ee ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e603 | | Load 0x3,0x3 00ec e004 | | Load 0x0,0x4 00ed 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00ee BODY_00e8: 00ee e404 | | Load 0x2,0x4 00ef 00d9 | | Load_Top At_Offset_1 00f0 01de | | Execute Vector,Not_Equal 00f1 6805 |h | Jump_Zero 0xf7 00f2 e403 | | Load 0x2,0x3 00f3 e7ff | | Load 0x3,-0x1 00f4 e009 | | Load 0x0,0x9 00f5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f6 c403 | | Store 0x2,0x3 00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0102 | | .CONST 0x0102 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e009 | | Load 0x0,0x9 00fc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00fd 02c7 | | Declare_Variable Any 00fe e602 | | Load 0x3,0x2 00ff e03a | : | Load 0x0,0x3a 0100 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0101 a802 | | Store_Unchecked 0x4,0x2 0102 BODY_00f8: 0102 00cf | | Action Mark_Auxiliary 0103 780e |x | Jump 0x112 0104 00d9 | | Load_Top At_Offset_1 0105 e009 | | Load 0x0,0x9 0106 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0107 e03a | : | Load 0x0,0x3a 0108 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 0109 c603 | | Store 0x3,0x3 010a e603 | | Load 0x3,0x3 010b 8407 | | Call 0x2,0x7 010c c603 | | Store 0x3,0x3 010d 00d9 | | Load_Top At_Offset_1 010e e009 | | Load 0x0,0x9 010f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0110 c802 | | Store 0x4,0x2 0111 00c9 | | Action Pop_Auxiliary_Loop 0112 00d9 | | Load_Top At_Offset_1 0113 e009 | | Load 0x0,0x9 0114 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0115 6fee |o | Jump_Zero 0x104 0116 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0127 | ' | .CONST 0x0127 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b e009 | | Load 0x0,0x9 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 02c7 | | Declare_Variable Any 011e e7ff | | Load 0x3,-0x1 011f e02d | - | Load 0x0,0x2d 0120 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0121 a802 | | Store_Unchecked 0x4,0x2 0122 e009 | | Load 0x0,0x9 0123 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0124 02c7 | | Declare_Variable Any 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 BODY_0118: 0127 00d9 | | Load_Top At_Offset_1 0128 e03a | : | Load 0x0,0x3a 0129 1819 | | Execute Package,Field_Execute,Field_Number 0x19 012a 0f06 | | Execute_Immediate Equal,0x6 012b 7001 |p | Jump_Nonzero 0x12d 012c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012d 00d9 | | Load_Top At_Offset_1 012e e03a | : | Load 0x0,0x3a 012f 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0130 c803 | | Store 0x4,0x3 0131 00d8 | | Load_Top At_Offset_0 0132 8407 | | Call 0x2,0x7 0133 c803 | | Store 0x4,0x3 0134 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug Table 0138 ; -------------------------------------------------------------------------------------- 0138 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc7d,0x0000,0x0001,0x0000 013e f4c8 2c58 | ,X| .XXX[0xc2] 0140 3f79 5ed2 |?y^ | 0142 3f27 4d56 |?'MV| 0144 c041 afc6 | A | 0146 889f b87f | | 0148 4ac2 400e |J @ | 014a d581 4fc3 | O | 014c cf50 f8c0 | P | 014e 7250 146e |rP n| 0150 c61f 63c2 | c | 0152 07d1 47cc | G | 0154 9225 94f4 | % | 0156 7443 6a08 |tCj | 0158 e307 604d | `M| 015a 7041 4084 |pA@ | 015c 5df0 81a3 |] | 015e c4ba 0d66 | f| 0160 133a 831d | : | 0162 c636 c05d | 6 ]| 0164 5317 d817 |S | 0166 4d3e 8707 |M> | 0168 0081 a5c0 | | 016a c0e0 74a4 | t | 016c 31d8 6f8d |1 o | 016e 3e38 32ab |>82 | 0170 8599 286c | (l| 0172 846d f035 | m 5| 0174 0818 2d2a | -*| 0176 4904 a408 |I | 0178 0844 566c | DVl| 017a 7704 2eb9 |w . | 017c 8a6c 0d78 | l x| 017e 12f9 8190 | | 0180 245b edbd |$[ | 0182 94ff 358a | 5 | 0184 553c 0043 |U< C| 0186 9b03 cc25 | %| 0188 7115 ff68 |q h| 018a 8f72 7dea | r} | 018c c63f 06c0 | ? | 018e 24db dbfc |$ | 0190 1096 c835 | 5| 0192 2a25 7a27 |*%z'| 0194 34a0 285d |4 (]| 0196 bcc3 e6a1 | | 0198 e568 fafa | h | 019a be12 0c57 | W| 019c 5c27 51c5 |\'Q | 019e c006 8472 | r| 01a0 7097 5049 |p PI| 01a2 e947 3904 | G9 | 01a4 3e51 d4c0 |>Q | 01a6 1296 46a8 | F | 01a8 3a0a 6aba |: j | 01aa 0ca0 a21f | | 01ac 1cc5 8685 | | 01ae 833d f106 | = | 01b0 9451 9143 | Q C| 01b2 8905 ea84 | | 01b4 36aa 90c1 |6 | 01b6 3b62 a8d4 |;b | 01b8 4c49 64f4 |LId | 01ba a021 05e3 | ! | 01bc 3cf4 a211 |< | 01be a848 5a87 | HZ | 01c0 7800 3364 |x 3d| 01c2 9351 2984 | Q) | 01c4 2417 4f30 |$ O0| 01c6 3dc8 a0f8 |= | 01c8 2bf3 0406 |+ | 01ca 84fb 542b | T+| 01cc 174f b03f | O ?| 01ce 58d4 f829 |X )| 01d0 74a1 5952 |t YR| 01d2 0a40 802d | @ -| 01d4 b3a4 9fc0 | | 01d6 2276 12c2 |"v | 01d8 673c 551d |g<U | 01da 8698 01ca | | 01dc 4840 8aac |H@ | 01de a210 d204 | | 01e0 df52 16c2 | R | 01e2 7cc2 1f48 || H| 01e4 434a 6091 |CJ` | 01e6 054b 0a9f | K | 01e8 09f6 824c | L| 01ea 0624 6844 | $hD| 01ec 0a88 71fd | q | 01ee 5a04 4f84 |Z O | 01f0 cf04 43d5 | C | 01f2 5b62 b6d4 |[b | 01f4 2095 44a9 | D | 01f6 091e 51b5 | Q | 01f8 8c40 5624 | @V$| 01fa 8b26 f847 | & G| 01fc f428 e764 | ( d| 01fe 8186 6792 | g |