|
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_6060f0
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 0068 | h | .CONST 0x0068 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0010 | | .CONST 0x0010 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e5fd | | Load 0x2,-0x3 001f e001 | | Load 0x0,0x1 0020 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0021 a402 | | Store_Unchecked 0x2,0x2 0022 e001 | | Load 0x0,0x1 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 02c7 | | Declare_Variable Any 0025 e5fc | | Load 0x2,-0x4 0026 e001 | | Load 0x0,0x1 0027 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0028 a403 | | Store_Unchecked 0x2,0x3 0029 e5ff | | Load 0x2,-0x1 002a e002 | | Load 0x0,0x2 002b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002c 00da | | Load_Top At_Offset_2 002d e002 | | Load 0x0,0x2 002e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002f 00e1 | | Load_Encached Boolean_Cache 0030 e001 | | Load 0x0,0x1 0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0032 029e 00a3 | | Declare_Subprogram INIT_00a0,For_Call,Unelaborated 0034 029e 00ab | | Declare_Subprogram INIT_00a8,For_Call,Unelaborated 0036 029e 00bb | | Declare_Subprogram INIT_00b8,For_Call,Unelaborated 0038 029e 00c3 | | Declare_Subprogram INIT_00c0,For_Call,Unelaborated 003a e003 | | Load 0x0,0x3 003b e004 | | Load 0x0,0x4 003c e406 | | Load 0x2,0x6 003d e407 | | Load 0x2,0x7 003e 4808 |H | Short_Literal 0x8 003f 4802 |H | Short_Literal 0x2 0040 0099 | | Action Reference_Dynamic 0041 4809 |H | Short_Literal 0x9 0042 4802 |H | Short_Literal 0x2 0043 0099 | | Action Reference_Dynamic 0044 480a |H | Short_Literal 0xa 0045 4802 |H | Short_Literal 0x2 0046 0099 | | Action Reference_Dynamic 0047 480b |H | Short_Literal 0xb 0048 4802 |H | Short_Literal 0x2 0049 0099 | | Action Reference_Dynamic 004a e005 | | Load 0x0,0x5 004b 0387 | | Declare_Variable Package 004c 00d8 | | Load_Top At_Offset_0 004d 020f | | Execute Module,Activate 004e 00d8 | | Load_Top At_Offset_0 004f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0050 00e1 | | Load_Encached Boolean_Cache 0051 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0052 4801 |H | Short_Literal 0x1 0053 4880 |H | Short_Literal 0x80 0054 00e9 | | Load_Encached String_Cache 0055 035b | [ | Declare_Type Array,Constrained 0056 0337 | 7 | Declare_Variable Array 0057 00e3 | | Load_Encached Natural_Cache 0058 4808 |H | Short_Literal 0x8 0059 4802 |H | Short_Literal 0x2 005a 0099 | | Action Reference_Dynamic 005b 00c7 | | Action Elaborate_Subprogram 005c 4809 |H | Short_Literal 0x9 005d 4802 |H | Short_Literal 0x2 005e 0099 | | Action Reference_Dynamic 005f 00c7 | | Action Elaborate_Subprogram 0060 480a |H | Short_Literal 0xa 0061 4802 |H | Short_Literal 0x2 0062 0099 | | Action Reference_Dynamic 0063 00c7 | | Action Elaborate_Subprogram 0064 480b |H | Short_Literal 0xb 0065 4802 |H | Short_Literal 0x2 0066 0099 | | Action Reference_Dynamic 0067 00c7 | | Action Elaborate_Subprogram 0068 BODY_0018: 0068 00db | | Load_Top At_Offset_3 0069 e402 | | Load 0x2,0x2 006a 4800 |H | Short_Literal 0x0 006b e403 | | Load 0x2,0x3 006c e404 | | Load 0x2,0x4 006d e5fe | | Load 0x2,-0x2 006e e002 | | Load 0x0,0x2 006f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0070 e404 | | Load 0x2,0x4 0071 e40c | | Load 0x2,0xc 0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0073 c40d | | Store 0x2,0xd 0074 00cf | | Action Mark_Auxiliary 0075 781c |x | Jump 0x92 0076 e404 | | Load 0x2,0x4 0077 0092 00c9 | | Action Push_String_Extended,0xc9 ; "> " 0079 01cc | | Execute Vector,Catenate 007a e006 | | Load 0x0,0x6 007b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 007c 00e3 | | Load_Encached Natural_Cache 007d 00db | | Load_Top At_Offset_3 007e e006 | | Load 0x0,0x6 007f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0080 00d1 | | Pop_Control Pop_Count_1 0081 005a | Z | Store_Top Discrete,At_Offset_2 0082 00d9 | | Load_Top At_Offset_1 0083 0f01 | | Execute_Immediate Equal,0x1 0084 4801 |H | Short_Literal 0x1 0085 e40f | | Load 0x2,0xf 0086 01d7 | | Execute Vector,Field_Read 0087 0f2e | . | Execute_Immediate Equal,0x2e 0088 0279 | y | Execute Discrete,And 0089 700a |p | Jump_Nonzero 0x94 008a e40d | | Load 0x2,0xd 008b 4801 |H | Short_Literal 0x1 008c 00db | | Load_Top At_Offset_3 008d e40f | | Load 0x2,0xf 008e 01cf | | Execute Vector,Slice_Read 008f e40c | | Load 0x2,0xc 0090 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0091 00c9 | | Action Pop_Auxiliary_Loop 0092 00db | | Load_Top At_Offset_3 0093 6fe2 |o | Jump_Zero 0x76 0094 00ce | | Action Pop_Auxiliary 0095 00db | | Load_Top At_Offset_3 0096 e40c | | Load 0x2,0xc 0097 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0098 c40d | | Store 0x2,0xd 0099 00da | | Load_Top At_Offset_2 009a 6803 |h | Jump_Zero 0x9e 009b e403 | | Load 0x2,0x3 009c e002 | | Load 0x0,0x2 009d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 009e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e403 | | Load 0x2,0x3 00a4 c7fd | | Store 0x3,-0x3 00a5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e7fd | | Load 0x3,-0x3 00ac e7fe | | Load 0x3,-0x2 00ad e7ff | | Load 0x3,-0x1 00ae e007 | | Load 0x0,0x7 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 e7fc | | Load 0x3,-0x4 00b1 6804 |h | Jump_Zero 0xb6 00b2 e40e | | Load 0x2,0xe 00b3 7002 |p | Jump_Nonzero 0xb6 00b4 4801 |H | Short_Literal 0x1 00b5 a40e | | Store_Unchecked 0x2,0xe 00b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e405 | | Load 0x2,0x5 00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e402 | | Load 0x2,0x2 00c4 4801 |H | Short_Literal 0x1 00c5 e7ff | | Load 0x3,-0x1 00c6 e007 | | Load 0x0,0x7 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c9 ; -------------------------------------------------------------------------------------- 00c9 ; STRING TABLE 00c9 ; -------------------------------------------------------------------------------------- 00c9 0004 | | .STRTAB 0x0004->0x00cb ; "> " 00ca 0004 | | .STREND 0x0004->0x00cc 00cb 3e20 |> | .STRTAB_STRINGS 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 000e | | .DEBUG4 0x0004,0x000e,0xf41d,0x0000,0x0001,0x0000 00d6 1707 08d3 | | .XXX[0xcc] 00d8 f002 ed4c | L| 00da 0000 0000 | | 00dc 2de0 000b |- | 00de 7af8 02df |z | 00e0 ac8a 1180 | | 00e2 2de0 0000 |- | 00e4 0000 0540 | @| 00e6 0001 cd78 | x| 00e8 00b7 eb00 | | 00ea 0016 e080 | | 00ec 0070 0000 | p | 00ee 0001 6e08 | n | 00f0 8448 002d | H -| 00f2 ae80 0000 | | 00f4 0002 dd97 | | 00f6 3b17 005b |; [| 00f8 5d00 0000 |] | 00fa 000a c000 | | 00fc 0397 826a | j| 00fe 1600 b6ba | | 0100 0000 0000 | | 0102 2000 4017 | @ | 0104 c988 0002 | | 0106 ba56 002e | V .| 0108 71f1 a7e0 |q | 010a 05da 9800 | | 010c 0000 005c | \| 010e 85c0 1727 | '| 0110 6005 cbb5 |` | 0112 1423 005c | # \| 0114 85c0 0000 | | 0116 0010 2020 | | 0118 02f4 8c01 | | 011a 72ed 0000 |r | 011c 2e23 e000 |.# | 011e a000 0000 | | 0120 02e2 3f08 | ? | 0122 9000 5c22 | \"| 0124 c000 0000 | | 0126 05c7 8a76 | v| 0128 2e00 b845 |. E| 012a 8000 0000 | | 012c 0200 4005 | @ | 012e e3d4 e858 | X| 0130 0170 8b00 | p | 0132 0000 0041 | A| 0134 0080 0bbb | | 0136 d010 017a | z| 0138 4600 0000 |F | 013a 0023 4fc0 | #O | 013c 0bb5 3000 | 0 | 013e 0000 00ba | | 0140 9b00 2eb2 | . | 0142 a00b b062 | b| 0144 2846 00ba |(F | 0146 9b00 0000 | | 0148 0020 c040 | @| 014a 17c9 8802 | | 014c ec18 0000 | | 014e 5d0f 8000 |] | 0150 c000 0000 | | 0152 05d0 fa11 | | 0154 2000 b9d5 | | 0156 0000 0000 | | 0158 0ba8 0cec | | 015a 5c01 73aa |\ s | 015c 0000 0000 | | 015e 0580 802f | /| 0160 5c59 a858 |\Y X| 0162 02e7 5400 | T | 0164 0000 0006 | | 0166 0100 5f26 | _&| 0168 2000 0af1 | | 016a 1a19 2800 | ( | 016c b0b7 8000 | | 016e 0000 0b0e | | 0170 7000 0bb9 |p | 0172 b000 0000 | | 0174 0000 1800 | | 0176 05dd d800 | | 0178 0000 0000 | | 017a 0000 1400 | | 017c 05e1 5800 | X | 017e 05eb 2800 | ( | 0180 0000 0000 | | 0182 05ed 9c00 | | 0184 0000 0000 | | 0186 05e3 cc00 | | 0188 0000 0000 | | 018a 05e2 d800 | | 018c 00b1 3e80 | > | 018e 0000 0000 | | 0190 2f32 0000 |/2 | 0192 0000 0000 | | 0194 2f2a 6000 |/*` | 0196 0596 5000 | P | 0198 0000 0001 | | 019a 7a2d 0000 |z- | 019c 0000 0001 | | 019e 79f0 0000 |y | 01a0 2d39 c000 |-9 | 01a2 0000 0000 | | .BLANK 0000[0x5] 01a7 000b d468 | h| .XXX[0x4] 01a9 0001 711f | q | 01ab 0000 0000 | | .BLANK 0000[0x6] 01b1 005e ca80 | ^ | .XXX[0x4] 01b3 000b 7040 | p@| 01b5 0000 0000 | | .BLANK 0000[0x6] 01bb 02f7 8e00 | | .XXX[0x45] 01bd 005d 0f80 | ] | 01bf 0000 080c | | 01c1 0002 bf0c | | 01c3 0000 0000 | | 01c5 2f8c 73b1 |/ s | 01c7 7005 f010 |p | 01c9 0000 0001 | | 01cb 1000 0050 | P| 01cd 6e60 0be8 |n` | 01cf 7802 bf0c |x | 01d1 0063 6860 | ch`| 01d3 8800 1173 | s| 01d5 4802 fd14 |H | 01d7 00be da00 | | 01d9 2fc5 6000 |/ ` | 01db 59d8 b802 |Y | 01dd fa54 0000 | T | 01df 0000 6e00 | n | 01e1 0000 0010 | | 01e3 8930 05f4 | 0 | 01e5 a800 0000 | | 01e7 0000 0020 | | 01e9 ec0b 4000 | @ | 01eb 0000 0034 | 4| 01ed 18f4 022e | .| 01ef 6900 0000 |i | 01f1 0017 f710 | | 01f3 0602 d800 | | 01f5 0000 0001 | | 01f7 c60b 0017 | | 01f9 ecd0 0601 | | 01fb 8000 5000 | P | 01fd 0180 b600 | | 01ff 0000 | |