|
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_03bcfe
└─⟦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 0048 | H | .CONST 0x0048 ; 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 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 001d 6805 |h | Jump_Zero 0x23 001e e5fd | | Load 0x2,-0x3 001f e5fe | | Load 0x2,-0x2 0020 e5ff | | Load 0x2,-0x1 0021 8003 | | Call 0x0,0x3 0022 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0023 0092 0028 | (| Action Push_String_Extended,0x28 ; "Operator Capability is required to use this command." 0025 e004 | | Load 0x0,0x4 0026 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0027 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0028 ; -------------------------------------------------------------------------------------- 0028 ; STRING TABLE 0028 ; -------------------------------------------------------------------------------------- 0028 0004 | | .STRTAB 0x0004->0x002a ; "Operator Capability is required to use this command." 0029 0036 | 6 | .STREND 0x0036->0x0044 002a 4f70 6572 |Oper| .STRTAB_STRINGS 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; Debug Table 0048 ; -------------------------------------------------------------------------------------- 0048 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd910,0x0000,0x0001,0x0000 004e 625f 426c |b_Bl| .XXX[0x6] 0050 6f63 6b3b |ock;| 0052 4500 4120 |E A | 0054 2020 2020 | | .BLANK 2020[0x10] 0064 2053 7461 | Sta| .XXX[0x5e] 0066 7475 7320 |tus | 0068 3a20 696e |: in| 006a 206f 7574 | out| 006c 2044 6673 | Dfs| 006e 2e46 735f |.Fs_| 0070 5374 6174 |Stat| 0072 7573 293b |us);| 0074 4100 0000 |A | 0076 0000 0000 | | 0078 1a20 2020 | | 007a 2070 726f | pro| 007c 6365 6475 |cedu| 007e 7265 2052 |re R| 0080 6561 645f |ead_| 0082 4c61 6265 |Labe| 0084 6c73 3b1a |ls; | 0086 003b 2020 | ; | 0088 2020 7072 | pr| 008a 6f63 6564 |oced| 008c 7572 6520 |ure | 008e 5772 6974 |Writ| 0090 655f 4c61 |e_La| 0092 6265 6c73 |bels| 0094 2028 4673 | (Fs| 0096 5f4c 6162 |_Lab| 0098 656c 203a |el :| 009a 2046 736c | Fsl| 009c 6162 656c |abel| 009e 732e 4466 |s.Df| 00a0 735f 4c61 |s_La| 00a2 6265 6c29 |bel)| 00a4 3b3b 0034 |;; 4| 00a6 2020 2020 | | 00a8 7072 6f63 |proc| 00aa 6564 7572 |edur| 00ac 6520 4673 |e Fs| 00ae 5f45 7272 |_Err| 00b0 6d65 7373 |mess| 00b2 2028 5374 | (St| 00b4 6174 7573 |atus| 00b6 203a 2069 | : i| 00b8 6e20 4466 |n Df| 00ba 732e 4673 |s.Fs| 00bc 5f53 7461 |_Sta| 00be 7475 733b |tus;| 00c0 3400 5020 |4 P | 00c2 2020 2020 | | .BLANK 2020[0xc] 00ce 2053 7461 | Sta| .XXX[0x41] 00d0 7475 735f |tus_| 00d2 5661 6c75 |Valu| 00d4 6520 3a20 |e : | 00d6 696e 206f |in o| 00d8 7574 2042 |ut B| 00da 6f75 6e64 |ound| 00dc 6564 5f53 |ed_S| 00de 7472 696e |trin| 00e0 672e 5661 |g.Va| 00e2 7269 6162 |riab| 00e4 6c65 5f53 |le_S| 00e6 7472 696e |trin| 00e8 6729 3b50 |g);P| 00ea 0000 0000 | | 00ec 4220 2020 |B | 00ee 2070 726f | pro| 00f0 6365 6475 |cedu| 00f2 7265 2048 |re H| 00f4 616e 646c |andl| 00f6 655f 4e6f |e_No| 00f8 6e5f 4f6b |n_Ok| 00fa 5f53 7461 |_Sta| 00fc 7475 7320 |tus | 00fe 2853 7461 |(Sta| 0100 7475 7320 |tus | 0102 3a20 696e |: in| 0104 206f 7574 | out| 0106 2044 6673 | Dfs| 0108 2e46 735f |.Fs_| 010a 5374 6174 |Stat| 010c 7573 3b42 |us;B| 010e 0042 | B | 010f 2020 2020 | | .BLANK 2020[0x12] 0121 4163 7469 |Acti| .XXX[0x11] 0123 6f6e 203a |on :| 0125 2069 6e20 | in | 0127 4466 732e |Dfs.| 0129 4572 726f |Erro| 012b 725f 4163 |r_Ac| 012d 7469 6f6e |tion| 012f 733b 4200 |s;B | 0131 4e20 |N | 0132 2020 2020 | | .BLANK 2020[0x11] 0143 2049 6e66 | Inf| .XXX[0x86] 0145 6f20 3a20 |o : | 0147 696e 2042 |in B| 0149 6f75 6e64 |ound| 014b 6564 5f53 |ed_S| 014d 7472 696e |trin| 014f 672e 5661 |g.Va| 0151 7269 6162 |riab| 0153 6c65 5f53 |le_S| 0155 7472 696e |trin| 0157 6729 3b4e |g);N| 0159 003e 2020 | > | 015b 2020 7072 | pr| 015d 6f63 6564 |oced| 015f 7572 6520 |ure | 0161 4673 5f44 |Fs_D| 0163 6972 2028 |ir (| 0165 4172 6773 |Args| 0167 203a 2053 | : S| 0169 7472 696e |trin| 016b 673b 2046 |g; F| 016d 756c 6c20 |ull | 016f 3a20 426f |: Bo| 0171 6f6c 6561 |olea| 0173 6e20 3a3d |n :=| 0175 2046 616c | Fal| 0177 7365 293b |se);| 0179 3e00 0000 |> | 017b 0020 2020 | | 017d 2020 7479 | ty| 017f 7065 2046 |pe F| 0181 735f 4974 |s_It| 0183 6572 6174 |erat| 0185 6f72 2069 |or i| 0187 7320 7072 |s pr| 0189 6976 6174 |ivat| 018b 653b 2000 |e; | 018d 4220 2020 |B | 018f 2070 726f | pro| 0191 6365 6475 |cedu| 0193 7265 2049 |re I| 0195 6e69 7420 |nit | 0197 2849 7465 |(Ite| 0199 7220 3a20 |r : | 019b 696e 206f |in o| 019d 7574 2046 |ut F| 019f 735f 4974 |s_It| 01a1 6572 6174 |erat| 01a3 6f72 3b20 |or; | 01a5 5465 6d70 |Temp| 01a7 6c61 7465 |late| 01a9 203a 2053 | : S| 01ab 7472 696e |trin| 01ad 6729 3b42 |g);B| 01af 002e 2020 | . | 01b1 2020 7072 | pr| 01b3 6f63 6564 |oced| 01b5 7572 6520 |ure | 01b7 4e65 7874 |Next| 01b9 2028 4974 | (It| 01bb 6572 203a |er :| 01bd 2069 6e20 | in | 01bf 6f75 7420 |out | 01c1 4673 5f49 |Fs_I| 01c3 7465 7261 |tera| 01c5 746f 723b |tor;| 01c7 2e00 4320 |. C | 01c9 2020 2020 | | .BLANK 2020[0x9] 01d2 2046 6e61 | Fna| .XXX[0x2e] 01d4 6d65 203a |me :| 01d6 2069 6e20 | in | 01d8 6f75 7420 |out | 01da 426f 756e |Boun| 01dc 6465 645f |ded_| 01de 5374 7269 |Stri| 01e0 6e67 2e56 |ng.V| 01e2 6172 6961 |aria| 01e4 626c 655f |ble_| 01e6 5374 7269 |Stri| 01e8 6e67 293b |ng);| 01ea 4300 3620 |C 6 | 01ec 2020 2066 | f| 01ee 756e 6374 |unct| 01f0 696f 6e20 |ion | 01f2 446f 6e65 |Done| 01f4 2028 4974 | (It| 01f6 6572 203a |er :| 01f8 2046 735f | Fs_| 01fa 4974 6572 |Iter| 01fc 6174 6f72 |ator| 01fe 2920 7265 |) re|