|
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_1e5cd8
└─⟦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 00da | | Load_Top At_Offset_2 001c e001 | | Load 0x0,0x1 001d 180f | | Execute Package,Field_Execute,Field_Number 0xf 001e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 001f 0000 | | .XXX[0x1] 0020 ; -------------------------------------------------------------------------------------- 0020 ; Debug Table 0020 ; -------------------------------------------------------------------------------------- 0020 0004 000e | | .DEBUG4 0x0004,0x000e,0xb423,0x0000,0x0001,0x0000 0026 6865 7263 |herc| .XXX[0xc] 0028 6865 5f49 |he_I| 002a 6e73 7472 |nstr| 002c 7563 7469 |ucti| 002e 6f6e 2069 |on i| 0030 7326 0014 |s& | 0032 2020 2020 | | .BLANK 2020[0x4] 0036 7573 6520 |use | .XXX[0xf] 0038 5a5f 4465 |Z_De| 003a 6275 673b |bug;| 003c 1400 0920 | | 003e 2020 2062 | b| 0040 6567 696e |egin| 0042 0900 0000 | | 0044 0026 | & | 0045 2020 2020 | | .BLANK 2020[0x4] 0049 2d2d 2072 |-- r| .XXX[0x12] 004b 6563 6865 |eche| 004d 7263 6865 |rche| 004f 2064 2775 | d'u| 0051 6e65 2069 |ne i| 0053 6e73 7472 |nstr| 0055 7563 7469 |ucti| 0057 6f6e 2600 |on& | 0059 0000 001e | | 005b 2020 2020 | | .BLANK 2020[0x4] 005f 7768 696c |whil| .XXX[0xd] 0061 6520 6e6f |e no| 0063 7420 5472 |t Tr| 0065 6f75 7665 |ouve| 0067 6520 6c6f |e lo| 0069 6f70 1e00 |op | 006b 3e20 |> | 006c 2020 2020 | | .BLANK 2020[0x5] 0071 2042 7573 | Bus| .XXX[0x1b] 0073 2e41 6363 |.Acc| 0075 6573 5f4f |es_O| 0077 6374 6574 |ctet| 0079 2028 5a38 | (Z8| 007b 302e 4d65 |0.Me| 007d 6d6f 7279 |mory| 007f 5f52 6561 |_Rea| 0081 642c 204c |d, L| 0083 655f 5063 |e_Pc| 0085 2c20 436f |, Co| 0087 6465 5f4f |de_O| 0089 7029 3b3e |p);>| 008b 0028 | ( | 008c 2020 2020 | | .BLANK 2020[0x6] 0092 4c65 5f50 |Le_P| .XXX[0x10] 0094 6320 3a3d |c :=| 0096 204d 6f74 | Mot| 0098 2e41 6464 |.Add| 009a 2028 4c65 | (Le| 009c 5f50 632c |_Pc,| 009e 2031 293b | 1);| 00a0 2800 3c20 |( < | 00a2 2020 2020 | | .BLANK 2020[0x5] 00a7 2054 726f | Tro| .XXX[0x1a] 00a9 7576 6565 |uvee| 00ab 203a 3d20 | := | 00ad 4465 7361 |Desa| 00af 7373 656d |ssem| 00b1 626c 6575 |bleu| 00b3 722e 5472 |r.Tr| 00b5 6169 7465 |aite| 00b7 725f 436f |r_Co| 00b9 6465 2028 |de (| 00bb 436f 6465 |Code| 00bd 5f4f 7029 |_Op)| 00bf 3b3c 0011 |;< | 00c1 2020 2020 | | .BLANK 2020[0x4] 00c5 656e 6420 |end | .XXX[0x6] 00c7 6c6f 6f70 |loop| 00c9 3b11 003d |; =| 00cb 2020 2020 | | .BLANK 2020[0x4] 00cf 556e 655f |Une_| .XXX[0x1c] 00d1 496e 7374 |Inst| 00d3 7275 6374 |ruct| 00d5 696f 6e20 |ion | 00d7 3a3d 2044 |:= D| 00d9 6573 6173 |esas| 00db 7365 6d62 |semb| 00dd 6c65 7572 |leur| 00df 2e49 6e73 |.Ins| 00e1 7472 7563 |truc| 00e3 7469 6f6e |tion| 00e5 5f54 726f |_Tro| 00e7 7576 6565 |uvee| 00e9 3b3d 0035 |;= 5| 00eb 2020 2020 | | .BLANK 2020[0x4] 00ef 5265 6769 |Regi| .XXX[0x4a] 00f1 7374 7265 |stre| 00f3 732e 4563 |s.Ec| 00f5 7269 7265 |rire| 00f7 5f44 6f75 |_Dou| 00f9 626c 6520 |ble | 00fb 285a 3830 |(Z80| 00fd 5f44 6566 |_Def| 00ff 732e 5063 |s.Pc| 0101 2c20 4c65 |, Le| 0103 5f50 6329 |_Pc)| 0105 3b35 0000 |;5 | 0107 0000 3220 | 2 | 0109 2020 2020 | | 010b 2020 202d | -| 010d 2d20 4166 |- Af| 010f 6669 6368 |fich| 0111 6572 5f49 |er_I| 0113 6e73 7472 |nstr| 0115 7563 7469 |ucti| 0117 6f6e 2028 |on (| 0119 556e 655f |Une_| 011b 496e 7374 |Inst| 011d 7275 6374 |ruct| 011f 696f 6e29 |ion)| 0121 3b32 001e |;2 | 0123 2020 2020 | | 0125 656e 6420 |end | 0127 5265 6368 |Rech| 0129 6572 6368 |erch| 012b 655f 496e |e_In| 012d 7374 7275 |stru| 012f 6374 696f |ctio| 0131 6e3b 1e00 |n; | 0133 0000 0000 | | 0135 0000 4920 | I | 0137 2020 202d | -| 0139 2d2d 2d2d |----| .BLANK 2d2d[0x22] 015b 4900 0000 |I | .XXX[0x76] 015d 0028 2020 | ( | 015f 2020 7072 | pr| 0161 6f63 6564 |oced| 0163 7572 6520 |ure | 0165 5265 6368 |Rech| 0167 6572 6368 |erch| 0169 655f 4465 |e_De| 016b 735f 4f70 |s_Op| 016d 6572 616e |eran| 016f 6465 7320 |des | 0171 6973 2800 |is( | 0173 0920 2020 | | 0175 2062 6567 | beg| 0177 696e 0900 |in | 0179 3f20 2020 |? | 017b 2020 2020 | | 017d 2052 6563 | Rec| 017f 6865 7263 |herc| 0181 6865 5f4f |he_O| 0183 7065 7261 |pera| 0185 6e64 6520 |nde | 0187 2847 6175 |(Gau| 0189 6368 652c |che,| 018b 2055 6e65 | Une| 018d 5f49 6e73 |_Ins| 018f 7472 7563 |truc| 0191 7469 6f6e |tion| 0193 2e4f 705f |.Op_| 0195 4761 7563 |Gauc| 0197 6865 293b |he);| 0199 3f00 3d20 |? = | 019b 2020 2020 | | 019d 2020 2052 | R| 019f 6563 6865 |eche| 01a1 7263 6865 |rche| 01a3 5f4f 7065 |_Ope| 01a5 7261 6e64 |rand| 01a7 6520 2844 |e (D| 01a9 726f 6974 |roit| 01ab 2c20 556e |, Un| 01ad 655f 496e |e_In| 01af 7374 7275 |stru| 01b1 6374 696f |ctio| 01b3 6e2e 4f70 |n.Op| 01b5 5f44 726f |_Dro| 01b7 6974 293b |it);| 01b9 3d00 2020 |= | 01bb 2020 2065 | e| 01bd 6e64 2052 |nd R| 01bf 6563 6865 |eche| 01c1 7263 6865 |rche| 01c3 5f44 6573 |_Des| 01c5 5f4f 7065 |_Ope| 01c7 7261 6e64 |rand| 01c9 6573 3b20 |es; | 01cb 0000 0000 | | 01cd 0000 004a | J| 01cf 2020 2020 | | 01d1 2d2d 2d2d |----| .BLANK 2d2d[0x23] 01f4 4a00 0000 |J | .XXX[0xc] 01f6 0011 2020 | | 01f8 2020 7072 | pr| 01fa 6f63 6564 |oced| 01fc 7572 6520 |ure | 01fe 5265 6311 |Rec |