|
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_5850da
└─⟦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 0020 | | .CONST 0x0020 ; 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 8001 | | Call 0x0,0x1 001c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 001d 0000 0000 | | .XXX[0x3] 001f 0000 | | 0020 ; -------------------------------------------------------------------------------------- 0020 ; Debug Table 0020 ; -------------------------------------------------------------------------------------- 0020 0004 000e | | .DEBUG4 0x0004,0x000e,0x0bf1,0x0000,0x0001,0x0000 0026 4964 203a |Id :| .XXX[0x24] 0028 2041 6374 | Act| 002a 696f 6e2e |ion.| 002c 4964 293b |Id);| 002e 2b00 0000 |+ | 0030 002e 2020 | . | 0032 2020 7072 | pr| 0034 6f63 6564 |oced| 0036 7572 6520 |ure | 0038 4170 7065 |Appe| 003a 6e64 2028 |nd (| 003c 4669 6c65 |File| 003e 203a 2069 | : i| 0040 6e20 6f75 |n ou| 0042 7420 4669 |t Fi| 0044 6c65 5f54 |le_T| 0046 7970 653b |ype;| 0048 2e00 2420 |. $ | 004a 2020 2020 | | .BLANK 2020[0xa] 0054 204e 616d | Nam| .XXX[0x9] 0056 6520 3a20 |e : | 0058 5374 7269 |Stri| 005a 6e67 3b24 |ng;$| 005c 002a | * | 005d 2020 2020 | | .BLANK 2020[0xb] 0068 466f 726d |Form| .XXX[0xc] 006a 203a 2053 | : S| 006c 7472 696e |trin| 006e 6720 3a3d |g :=| 0070 2022 223b | "";| 0072 2a00 2d20 |* - | 0074 2020 2020 | | .BLANK 2020[0xa] 007e 2041 6374 | Act| .XXX[0x28] 0080 696f 6e5f |ion_| 0082 4964 203a |Id :| 0084 2041 6374 | Act| 0086 696f 6e2e |ion.| 0088 4964 293b |Id);| 008a 2d00 0000 |- | 008c 002e 2020 | . | 008e 2020 7072 | pr| 0090 6f63 6564 |oced| 0092 7572 6520 |ure | 0094 4170 7065 |Appe| 0096 6e64 2028 |nd (| 0098 4669 6c65 |File| 009a 203a 2069 | : i| 009c 6e20 6f75 |n ou| 009e 7420 4669 |t Fi| 00a0 6c65 5f54 |le_T| 00a2 7970 653b |ype;| 00a4 2e00 3120 |. 1 | 00a6 2020 2020 | | .BLANK 2020[0xa] 00b0 204f 626a | Obj| .XXX[0x10] 00b2 6563 7420 |ect | 00b4 3a20 4469 |: Di| 00b6 7265 6374 |rect| 00b8 6f72 792e |ory.| 00ba 5665 7273 |Vers| 00bc 696f 6e3b |ion;| 00be 3100 2a20 |1 * | 00c0 2020 2020 | | .BLANK 2020[0xa] 00ca 2046 6f72 | For| .XXX[0xc] 00cc 6d20 3a20 |m : | 00ce 5374 7269 |Stri| 00d0 6e67 203a |ng :| 00d2 3d20 2222 |= ""| 00d4 3b2a 002d |;* -| 00d6 2020 2020 | | .BLANK 2020[0xb] 00e1 4163 7469 |Acti| .XXX[0x11f] 00e3 6f6e 5f49 |on_I| 00e5 6420 3a20 |d : | 00e7 4163 7469 |Acti| 00e9 6f6e 2e49 |on.I| 00eb 6429 3b2d |d);-| 00ed 0000 0000 | | 00ef 3c20 2020 |< | 00f1 2066 756e | fun| 00f3 6374 696f |ctio| 00f5 6e20 4765 |n Ge| 00f7 745f 4163 |t_Ac| 00f9 7469 6f6e |tion| 00fb 2028 4669 | (Fi| 00fd 6c65 203a |le :| 00ff 2046 696c | Fil| 0101 655f 5479 |e_Ty| 0103 7065 2920 |pe) | 0105 7265 7475 |retu| 0107 726e 2041 |rn A| 0109 6374 696f |ctio| 010b 6e2e 4964 |n.Id| 010d 3b3c 0000 |;< | 010f 0000 1120 | | 0111 2020 202d | -| 0113 2d20 4578 |- Ex| 0115 6365 7074 |cept| 0117 696f 6e73 |ions| 0119 1100 0000 | | 011b 0040 2020 | @ | 011d 2020 5374 | St| 011f 6174 7573 |atus| 0121 5f45 7272 |_Err| 0123 6f72 203a |or :| 0125 2065 7863 | exc| 0127 6570 7469 |epti| 0129 6f6e 2072 |on r| 012b 656e 616d |enam| 012d 6573 2049 |es I| 012f 6f5f 4578 |o_Ex| 0131 6365 7074 |cept| 0133 696f 6e73 |ions| 0135 2e53 7461 |.Sta| 0137 7475 735f |tus_| 0139 4572 726f |Erro| 013b 723b 4000 |r;@ | 013d 3c20 2020 |< | 013f 204d 6f64 | Mod| 0141 655f 4572 |e_Er| 0143 726f 7220 |ror | 0145 3a20 6578 |: ex| 0147 6365 7074 |cept| 0149 696f 6e20 |ion | 014b 7265 6e61 |rena| 014d 6d65 7320 |mes | 014f 496f 5f45 |Io_E| 0151 7863 6570 |xcep| 0153 7469 6f6e |tion| 0155 732e 4d6f |s.Mo| 0157 6465 5f45 |de_E| 0159 7272 6f72 |rror| 015b 3b3c 003c |;< <| 015d 2020 2020 | | 015f 4e61 6d65 |Name| 0161 5f45 7272 |_Err| 0163 6f72 203a |or :| 0165 2065 7863 | exc| 0167 6570 7469 |epti| 0169 6f6e 2072 |on r| 016b 656e 616d |enam| 016d 6573 2049 |es I| 016f 6f5f 4578 |o_Ex| 0171 6365 7074 |cept| 0173 696f 6e73 |ions| 0175 2e4e 616d |.Nam| 0177 655f 4572 |e_Er| 0179 726f 723b |ror;| 017b 3c00 3a20 |< : | 017d 2020 2055 | U| 017f 7365 5f45 |se_E| 0181 7272 6f72 |rror| 0183 203a 2065 | : e| 0185 7863 6570 |xcep| 0187 7469 6f6e |tion| 0189 2072 656e | ren| 018b 616d 6573 |ames| 018d 2049 6f5f | Io_| 018f 4578 6365 |Exce| 0191 7074 696f |ptio| 0193 6e73 2e55 |ns.U| 0195 7365 5f45 |se_E| 0197 7272 6f72 |rror| 0199 3b3a 0040 |;: @| 019b 2020 2020 | | 019d 4465 7669 |Devi| 019f 6365 5f45 |ce_E| 01a1 7272 6f72 |rror| 01a3 203a 2065 | : e| 01a5 7863 6570 |xcep| 01a7 7469 6f6e |tion| 01a9 2072 656e | ren| 01ab 616d 6573 |ames| 01ad 2049 6f5f | Io_| 01af 4578 6365 |Exce| 01b1 7074 696f |ptio| 01b3 6e73 2e44 |ns.D| 01b5 6576 6963 |evic| 01b7 655f 4572 |e_Er| 01b9 726f 723b |ror;| 01bb 4000 3a20 |@ : | 01bd 2020 2045 | E| 01bf 6e64 5f45 |nd_E| 01c1 7272 6f72 |rror| 01c3 203a 2065 | : e| 01c5 7863 6570 |xcep| 01c7 7469 6f6e |tion| 01c9 2072 656e | ren| 01cb 616d 6573 |ames| 01cd 2049 6f5f | Io_| 01cf 4578 6365 |Exce| 01d1 7074 696f |ptio| 01d3 6e73 2e45 |ns.E| 01d5 6e64 5f45 |nd_E| 01d7 7272 6f72 |rror| 01d9 3b3a 003c |;: <| 01db 2020 2020 | | 01dd 4461 7461 |Data| 01df 5f45 7272 |_Err| 01e1 6f72 203a |or :| 01e3 2065 7863 | exc| 01e5 6570 7469 |epti| 01e7 6f6e 2072 |on r| 01e9 656e 616d |enam| 01eb 6573 2049 |es I| 01ed 6f5f 4578 |o_Ex| 01ef 6365 7074 |cept| 01f1 696f 6e73 |ions| 01f3 2e44 6174 |.Dat| 01f5 615f 4572 |a_Er| 01f7 726f 723b |ror;| 01f9 3c00 0a20 |< | 01fb 2020 204c | L| 01fd 6179 6f75 |ayou| 01ff 740a |t |