|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0070 | p | .CONST 0x0070 ; 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 0013 | | .CONST 0x0013 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0005 | | .CONST 0x0005 ; Number of locals
000b INIT_0008:
000b e00e | | Load 0x0,0xe
000c 0322 | " | Declare_Variable Record
000d 00d8 | | Load_Top At_Offset_0
000e 1c00 | | Execute_Immediate Run_Utility,0x0
000f 00e3 | | Load_Encached Natural_Cache
0010 00e3 | | Load_Encached Natural_Cache
0011 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
0013 BODY_0008:
0013 e7ff | | Load 0x3,-0x1
0014 8033 | 3 | Call 0x0,0x33
0015 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0016 e7ff | | Load 0x3,-0x1
0017 8035 | 5 | Call 0x0,0x35
0018 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0019 e7ff | | Load 0x3,-0x1
001a e602 | | Load 0x3,0x2
001b 017d | } | Execute Record,Structure_Write
001c 00da | | Load_Top At_Offset_2
001d 00da | | Load_Top At_Offset_2
001e 027e | ~ | Execute Discrete,Not_Equal
001f 6816 |h | Jump_Zero 0x36
0020 00da | | Load_Top At_Offset_2
0021 8036 | 6 | Call 0x0,0x36
0022 6813 |h | Jump_Zero 0x36
0023 00d9 | | Load_Top At_Offset_1
0024 8036 | 6 | Call 0x0,0x36
0025 6810 |h | Jump_Zero 0x36
0026 00d9 | | Load_Top At_Offset_1
0027 00db | | Load_Top At_Offset_3
0028 8037 | 7 | Call 0x0,0x37
0029 700c |p | Jump_Nonzero 0x36
002a 00d9 | | Load_Top At_Offset_1
002b 00db | | Load_Top At_Offset_3
002c 8605 | | Call 0x3,0x5
002d 7008 |p | Jump_Nonzero 0x36
002e 00d9 | | Load_Top At_Offset_1
002f 00db | | Load_Top At_Offset_3
0030 8038 | 8 | Call 0x0,0x38
0031 00db | | Load_Top At_Offset_3
0032 4805 |H | Short_Literal 0x5
0033 8017 | | Call 0x0,0x17
0034 00d1 | | Pop_Control Pop_Count_1
0035 7804 |x | Jump 0x3a
0036 00db | | Load_Top At_Offset_3
0037 4803 |H | Short_Literal 0x3
0038 8017 | | Call 0x0,0x17
0039 00d1 | | Pop_Control Pop_Count_1
003a e7ff | | Load 0x3,-0x1
003b 8007 | | Call 0x0,0x7
003c e602 | | Load 0x3,0x2
003d 8214 | | Call 0x1,0x14
003e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
003f 0000 | | .XXX[0x1]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0046 | F | .CONST 0x0046 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0003 | | .CONST 0x0003 ; Number of locals
0043 INIT_0040:
0043 e004 | | Load 0x0,0x4
0044 0322 | " | Declare_Variable Record
0045 00e3 | | Load_Encached Natural_Cache
0046 BODY_0040:
0046 e9fe | | Load 0x4,-0x2
0047 8008 | | Call 0x0,0x8
0048 00da | | Load_Top At_Offset_2
0049 017d | } | Execute Record,Structure_Write
004a 00cf | | Action Mark_Auxiliary
004b 7816 |x | Jump 0x62
004c e9fe | | Load 0x4,-0x2
004d 00db | | Load_Top At_Offset_3
004e 8009 | | Call 0x0,0x9
004f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0050 00d9 | | Load_Top At_Offset_1
0051 e9ff | | Load 0x4,-0x1
0052 027f | | Execute Discrete,Equal
0053 6802 |h | Jump_Zero 0x56
0054 4801 |H | Short_Literal 0x1
0055 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0056 00d9 | | Load_Top At_Offset_1
0057 e9ff | | Load 0x4,-0x1
0058 8605 | | Call 0x3,0x5
0059 6802 |h | Jump_Zero 0x5c
005a 4801 |H | Short_Literal 0x1
005b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
005c e9fe | | Load 0x4,-0x2
005d 00db | | Load_Top At_Offset_3
005e 800a | | Call 0x0,0xa
005f 00db | | Load_Top At_Offset_3
0060 017d | } | Execute Record,Structure_Write
0061 00c9 | | Action Pop_Auxiliary_Loop
0062 e9fe | | Load 0x4,-0x2
0063 00db | | Load_Top At_Offset_3
0064 800b | | Call 0x0,0xb
0065 6fe6 |o | Jump_Zero 0x4c
0066 00ce | | Action Pop_Auxiliary
0067 4800 |H | Short_Literal 0x0
0068 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; Debug Table
0070 ; --------------------------------------------------------------------------------------
0070 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1df,0x0000,0x0001,0x0000
0076 0657 f146 | W F| .XXX[0x18a]
0078 0003 0ff0 | |
007a 0006 1fef | |
007c 2d97 042c |- ,|
007e 195f cb1b | _ |
0080 2d97 042c |- ,|
0082 195f cefc | _ |
0084 000c 3fe0 | ? |
0086 0018 800c | |
0088 b65c 10b0 | \ |
008a 657f 4f7c |e O||
008c b65c 10b0 | \ |
008e 657f 5f00 |e _ |
0090 0031 0020 | 1 |
0092 0062 0472 | b r|
0094 d970 42c1 | pB |
0096 95fd c832 | 2|
0098 d970 42c1 | pB |
009a 95fe 0640 | @|
009c 00c4 0900 | |
009e 0188 21cb | ! |
00a0 65c1 0b06 |e |
00a2 57f9 49cb |W I |
00a4 65c1 0b06 |e |
00a6 57fa 4200 |W B |
00a8 0310 4400 | D |
00aa 0620 db2d | -|
00ac 9704 2c19 | , |
00ae 5fed cb2d |_ -|
00b0 9704 2c19 | , |
00b2 5fef 4800 |_ H |
00b4 0c41 b800 | A |
00b6 1884 1cb6 | |
00b8 5c10 b065 |\ e|
00ba 7fd0 2cb6 | , |
00bc 5c10 b065 |\ e|
00be 7fdf b000 | |
00c0 3108 4000 |1 @ |
00c2 6214 f2d9 |b |
00c4 7042 c195 |pB |
00c6 ffb6 f2d9 | |
00c8 7042 c195 |pB |
00ca ffce c000 | |
00cc c42a 0001 | * |
00ce 8858 cb65 | X e|
00d0 c10b 0658 | X|
00d2 007b cb65 | { e|
00d4 c10b 0658 | X|
00d6 0174 0003 | t |
00d8 10b2 0006 | |
00da 2177 2d97 |!w- |
00dc 042c 1960 | , `|
00de 0ad3 2d97 | - |
00e0 042c 1960 | , `|
00e2 0eb4 000c | |
00e4 42f0 0018 |B |
00e6 862c b65c | , \|
00e8 10b0 6580 | e |
00ea 4f5c b65c |O\ \|
00ec 10b0 6580 | e |
00ee 5ee0 0031 |^ 1|
00f0 0c60 0062 | ` b|
00f2 1e72 d970 | r p|
00f4 42c1 9601 |B |
00f6 bbb2 d970 | p|
00f8 42c1 9601 |B |
00fa f9c0 00c4 | |
00fc 3d00 0188 |= |
00fe 89cb 65c1 | e |
0100 0b06 5808 | X |
0102 e7cb 65c1 | e |
0104 0b06 5809 | X |
0106 e000 0311 | |
0108 1400 0622 | "|
010a 3b2d 9704 |;- |
010c 2c19 602b |, `+|
010e 832d 9704 | - |
0110 2c19 602d |, `-|
0112 0000 0c44 | D|
0114 7800 188b |x |
0116 acb6 5c10 | \ |
0118 b065 80c4 | e |
011a 0cb6 5c10 | \ |
011c b065 80d3 | e |
011e 9000 3117 | 1 |
0120 6000 6233 |` b3|
0122 72d9 7042 |r pB|
0124 c196 038e | |
0126 72d9 7042 |r pB|
0128 c196 03cc | |
012a 8000 c467 | g|
012c 0001 88df | |
012e cb65 c10b | e |
0130 0658 1012 | X |
0132 cb65 c10b | e |
0134 0658 1072 | X r|
0136 0003 11c0 | |
0138 0006 2393 | # |
013a 2d97 042c |- ,|
013c 1960 46cb | `F |
013e 2d97 042c |- ,|
0140 1960 4aac | `J |
0142 000c 4728 | G(|
0144 0018 8e9c | |
0146 b65c 10b0 | \ |
0148 6581 3ebc |e > |
014a b65c 10b0 | \ |
014c 6581 4e40 |e N@|
014e 0031 1d40 | 1 @|
0150 0062 3bb2 | b; |
0152 d970 42c1 | pB |
0154 9605 8b32 | 2|
0156 d970 42c1 | pB |
0158 9605 c940 | @|
015a 00c4 7780 | w |
015c 0189 05cb | |
015e 65c1 0b06 |e |
0160 5818 25cb |X % |
0162 65c1 0b06 |e |
0164 5819 1e00 |X |
0166 0312 0c00 | |
0168 0624 572d | $W-|
016a 9704 2c19 | , |
016c 6068 7b2d |`h{-|
016e 9704 2c19 | , |
0170 606c 5c00 |`l\ |
0172 0c48 b000 | H |
0174 1891 acb6 | |
0176 5c10 b065 |\ e|
0178 81c1 7cb6 | | |
017a 5c10 b065 |\ e|
017c 81c7 7000 | p |
017e 3123 6000 |1#` |
0180 6251 f2d9 |bQ |
0182 7042 c196 |pB |
0184 075d f2d9 | ] |
0186 7042 c196 |pB |
0188 079c 0000 | |
018a c4a4 0001 | |
018c 8959 cb65 | Y e|
018e c10b 0658 | X|
0190 1f70 cb65 | p e|
0192 c10b 0658 | X|
0194 2069 0003 | i |
0196 12b4 0006 | |
0198 258f 2d97 |% - |
019a 042c 1960 | , `|
019c 8567 2d97 | g- |
019e 042c 1960 | , `|
01a0 86e4 000c | |
01a2 4b20 0018 |K |
01a4 967c b65c | | \|
01a6 10b0 6582 | e |
01a8 311c b65c |1 \|
01aa 10b0 6582 | e |
01ac 40a0 0031 |@ 1|
01ae 2d00 0062 |- b|
01b0 5af2 d970 |Z p|
01b2 42c1 9609 |B |
01b4 5ab2 d970 |Z p|
01b6 42c1 9609 |B |
01b8 98c0 00c4 | |
01ba b600 0189 | |
01bc 82cb 65c1 | e |
01be 0b06 5827 | X'|
01c0 73cb 65c1 |s e |
01c2 0b06 5828 | X(|
01c4 6c00 0313 |l |
01c6 0600 0626 | &|
01c8 4b2d 9704 |K- |
01ca 2c19 60a5 |, ` |
01cc f32d 9704 | - |
01ce 2c19 60a9 |, ` |
01d0 d400 0c4c | L|
01d2 9800 1899 | |
01d4 7cb6 5c10 || \ |
01d6 b065 82b8 | e |
01d8 5cb6 5c10 |\ \ |
01da b065 82be | e |
01dc 5000 3133 |P 13|
01de 0000 626c | bl|
01e0 b2d9 7042 | pB|
01e2 c196 0b3d | =|
01e4 72d9 7042 |r pB|
01e6 c196 0b7b | {|
01e8 8000 c4d9 | |
01ea 8001 89bd | |
01ec cb65 c10b | e |
01ee 0658 2efe | X. |
01f0 cb65 c10b | e |
01f2 0688 d47d | }|
01f4 0003 137e | ~|
01f6 0006 27d3 | ' |
01f8 2d97 042c |- ,|
01fa 1a23 5657 | #VW|
01fc 2d97 042c |- ,|
01fe 1a23 57d4 | #W |