|
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|