|
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_5e40f2
└─⟦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 0080 | | .CONST 0x0080 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b e214 | | Load 0x1,0x14
000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000d e214 | | Load 0x1,0x14
000e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
000f e214 | | Load 0x1,0x14
0010 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0011 00e1 | | Load_Encached Boolean_Cache
0012 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0013 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0015 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0017 e013 | | Load 0x0,0x13
0018 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0019 00c6 | | Action Check_Subprogram_Elaborated
001a 4806 |H | Short_Literal 0x6
001b 4802 |H | Short_Literal 0x2
001c 0099 | | Action Reference_Dynamic
001d 4807 |H | Short_Literal 0x7
001e 4802 |H | Short_Literal 0x2
001f 0099 | | Action Reference_Dynamic
0020 e019 | | Load 0x0,0x19
0021 e01a | | Load 0x0,0x1a
0022 480c |H | Short_Literal 0xc
0023 0007 | | Action Break_Optional
0024 e01b | | Load 0x0,0x1b
0025 02ab | | Declare_Subprogram For_Call,With_Address
0026 e01c | | Load 0x0,0x1c
0027 02ab | | Declare_Subprogram For_Call,With_Address
0028 BODY_0008:
0028 e214 | | Load 0x1,0x14
0029 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002b e011 | | Load 0x0,0x11
002c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002d e018 | | Load 0x0,0x18
002e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002f e214 | | Load 0x1,0x14
0030 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0032 c402 | | Store 0x2,0x2
0033 e214 | | Load 0x1,0x14
0034 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0035 e214 | | Load 0x1,0x14
0036 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0037 c403 | | Store 0x2,0x3
0038 e5ff | | Load 0x2,-0x1
0039 840d | | Call 0x2,0xd
003a e214 | | Load 0x1,0x14
003b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003c e403 | | Load 0x2,0x3
003d e214 | | Load 0x1,0x14
003e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
003f c404 | | Store 0x2,0x4
0040 e5fb | | Load 0x2,-0x5
0041 e5fc | | Load 0x2,-0x4
0042 e5fd | | Load 0x2,-0x3
0043 e5fe | | Load 0x2,-0x2
0044 e404 | | Load 0x2,0x4
0045 840e | | Call 0x2,0xe
0046 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0047 0000 | | .XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c e402 | | Load 0x2,0x2
004d e214 | | Load 0x1,0x14
004e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 8213 | | Call 0x1,0x13
0055 e405 | | Load 0x2,0x5
0056 6811 |h | Jump_Zero 0x68
0057 e00e | | Load 0x0,0xe
0058 180e | | Execute Package,Field_Execute,Field_Number 0xe
0059 4800 |H | Short_Literal 0x0
005a e7fe | | Load 0x3,-0x2
005b e008 | | Load 0x0,0x8
005c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
005e 0092 0073 | s| Action Push_String_Extended,0x73 ; " depends upon "
0060 01cc | | Execute Vector,Catenate
0061 e7ff | | Load 0x3,-0x1
0062 e008 | | Load 0x0,0x8
0063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0064 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0065 01cc | | Execute Vector,Catenate
0066 e00f | | Load 0x0,0xf
0067 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0068 00db | | Load_Top At_Offset_3
0069 00db | | Load_Top At_Offset_3
006a e403 | | Load 0x2,0x3
006b e214 | | Load 0x1,0x14
006c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
006d e402 | | Load 0x2,0x2
006e 00db | | Load_Top At_Offset_3
006f e214 | | Load 0x1,0x14
0070 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0071 c402 | | Store 0x2,0x2
0072 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0073 ; --------------------------------------------------------------------------------------
0073 ; STRING TABLE
0073 ; --------------------------------------------------------------------------------------
0073 0004 | | .STRTAB 0x0004->0x0075 ; " depends upon "
0074 0010 | | .STREND 0x0010->0x007c
0075 2064 6570 | dep| .STRTAB_STRINGS
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; Debug Table
0080 ; --------------------------------------------------------------------------------------
0080 0004 000d | | .DEBUG4 0x0004,0x000d,0x96c6,0x0000,0x0001,0x0000
0086 1f7b 81fa | { | .XXX[0x17a]
0088 000e 5fab | _ |
008a 2208 6966 |" if|
008c 2058 7265 | Xre|
008e 662e 223d |f."=|
0090 2220 2843 |" (C|
0092 2c20 5872 |, Xr|
0094 6566 2e53 |ef.S|
0096 7461 7274 |tart|
0098 2920 7468 |) th|
009a 656e 130c |en |
009c 5465 7874 |Text|
009e 5f49 6f2e |_Io.|
00a0 4e65 775f |New_|
00a2 5061 6765 |Page|
00a4 3b02 0015 |; |
00a6 0c69 6620 | if |
00a8 532e 446f |S.Do|
00aa 5f43 616c |_Cal|
00ac 6c65 7220 |ler |
00ae 7468 656e |then|
00b0 2510 5872 |% Xr|
00b2 6566 5f4f |ef_O|
00b4 7574 7075 |utpu|
00b6 742e 4361 |t.Ca|
00b8 6c6c 6572 |ller|
00ba 5f50 6167 |_Pag|
00bc 655f 4865 |e_He|
00be 6164 6572 |ader|
00c0 2028 5329 | (S)|
00c2 3b06 0c65 |; e|
00c4 6c73 6525 |lse%|
00c6 1058 7265 | Xre|
00c8 665f 4f75 |f_Ou|
00ca 7470 7574 |tput|
00cc 2e43 616c |.Cal|
00ce 6c65 645f |led_|
00d0 5061 6765 |Page|
00d2 5f48 6561 |_Hea|
00d4 6465 7220 |der |
00d6 2853 293b |(S);|
00d8 090c 656e | en|
00da 6420 6966 |d if|
00dc 3b09 0865 |; e|
00de 6e64 2069 |nd i|
00e0 663b 1304 |f; |
00e2 656e 6420 |end |
00e4 4e61 6d65 |Name|
00e6 5f43 6f6e |_Con|
00e8 7472 6f6c |trol|
00ea 3b02 0021 |; !|
00ec 0470 726f | pro|
00ee 6365 6475 |cedu|
00f0 7265 204e |re N|
00f2 616d 655f |ame_|
00f4 5368 6f75 |Shou|
00f6 6c64 5f42 |ld_B|
00f8 655f 4c69 |e_Li|
00fa 7374 6564 |sted|
00fc 3911 2853 |9 (S|
00fe 203a 2069 | : i|
0100 6e20 6f75 |n ou|
0102 7420 5374 |t St|
0104 6174 653b |ate;|
0106 204e 203a | N :|
0108 2058 7265 | Xre|
010a 662e 4e61 |f.Na|
010c 6d65 3b20 |me; |
010e 5965 7320 |Yes |
0110 3a20 6f75 |: ou|
0112 7420 426f |t Bo|
0114 6f6c 6561 |olea|
0116 6e29 2069 |n) i|
0118 7307 0462 |s b|
011a 6567 696e |egin|
011c 0200 1a08 | |
011e 6966 2058 |if X|
0120 7265 662e |ref.|
0122 4973 5f55 |Is_U|
0124 7365 6420 |sed |
0126 284e 2920 |(N) |
0128 7468 656e |then|
012a 0e0c 5965 | Ye|
012c 7320 3a3d |s :=|
012e 2054 7275 | Tru|
0130 653b 0608 |e; |
0132 656c 7365 |else|
0134 0f0c 5965 | Ye|
0136 7320 3a3d |s :=|
0138 2046 616c | Fal|
013a 7365 3b09 |se; |
013c 0865 6e64 | end|
013e 2069 663b | if;|
0140 1c04 656e | en|
0142 6420 4e61 |d Na|
0144 6d65 5f53 |me_S|
0146 686f 756c |houl|
0148 645f 4265 |d_Be|
014a 5f4c 6973 |_Lis|
014c 7465 643b |ted;|
014e 0200 3904 | 9 |
0150 7072 6f63 |proc|
0152 6564 7572 |edur|
0154 6520 4e61 |e Na|
0156 6d65 5f50 |me_P|
0158 7574 2028 |ut (|
015a 5320 3a20 |S : |
015c 696e 206f |in o|
015e 7574 2053 |ut S|
0160 7461 7465 |tate|
0162 3b20 4e20 |; N |
0164 3a20 5872 |: Xr|
0166 6566 2e4e |ef.N|
0168 616d 6529 |ame)|
016a 2069 7307 | is |
016c 0462 6567 | beg|
016e 696e 3508 |in5 |
0170 6966 2054 |if T|
0172 6578 745f |ext_|
0174 496f 2e22 |Io."|
0176 3e3d 2220 |>=" |
0178 2854 6578 |(Tex|
017a 745f 496f |t_Io|
017c 2e4c 696e |.Lin|
017e 652c 204c |e, L|
0180 696e 6573 |ines|
0182 5f50 6572 |_Per|
0184 5f50 6167 |_Pag|
0186 6529 2074 |e) t|
0188 6865 6e13 |hen |
018a 0c54 6578 | Tex|
018c 745f 496f |t_Io|
018e 2e4e 6577 |.New|
0190 5f50 6167 |_Pag|
0192 653b 0200 |e; |
0194 150c 6966 | if|
0196 2053 2e44 | S.D|
0198 6f5f 4361 |o_Ca|
019a 6c6c 6572 |ller|
019c 2074 6865 | the|
019e 6e25 1058 |n% X|
01a0 7265 665f |ref_|
01a2 4f75 7470 |Outp|
01a4 7574 2e43 |ut.C|
01a6 616c 6c65 |alle|
01a8 725f 5061 |r_Pa|
01aa 6765 5f48 |ge_H|
01ac 6561 6465 |eade|
01ae 7220 2853 |r (S|
01b0 293b 060c |); |
01b2 656c 7365 |else|
01b4 2510 5872 |% Xr|
01b6 6566 5f4f |ef_O|
01b8 7574 7075 |utpu|
01ba 742e 4361 |t.Ca|
01bc 6c6c 6564 |lled|
01be 5f50 6167 |_Pag|
01c0 655f 4865 |e_He|
01c2 6164 6572 |ader|
01c4 2028 5329 | (S)|
01c6 3b09 0c65 |; e|
01c8 6e64 2069 |nd i|
01ca 663b 0908 |f; |
01cc 656e 6420 |end |
01ce 6966 3b02 |if; |
01d0 001e 0858 | X|
01d2 7265 665f |ref_|
01d4 4f75 7470 |Outp|
01d6 7574 2e50 |ut.P|
01d8 7574 5f4e |ut_N|
01da 616d 6520 |ame |
01dc 2853 2c20 |(S, |
01de 4e29 3b0f |N); |
01e0 0465 6e64 | end|
01e2 204e 616d | Nam|
01e4 655f 5075 |e_Pu|
01e6 743b 0200 |t; |
01e8 4504 7072 |E pr|
01ea 6f63 6564 |oced|
01ec 7572 6520 |ure |
01ee 446f 5f4e |Do_N|
01f0 616d 6573 |ames|
01f2 2069 7320 | is |
01f4 6e65 7720 |new |
01f6 5872 6566 |Xref|
01f8 2e4e 616d |.Nam|
01fa 6573 5f44 |es_D|
01fc 6973 706c |ispl|
01fe 6179 5f47 |ay_G|