|
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_0fe0f5
└─⟦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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c e001 | | Load 0x0,0x1 000d e002 | | Load 0x0,0x2 000e 0092 002a | *| Action Push_String_Extended,0x2a ; "F5" 0010 0092 002b | +| Action Push_String_Extended,0x2b ; "S_F5" 0012 0092 002c | ,| Action Push_String_Extended,0x2c ; "F6" 0014 0092 002d | -| Action Push_String_Extended,0x2d ; "F11" 0016 0092 002e | .| Action Push_String_Extended,0x2e ; "L1" 0018 0092 002f | /| Action Push_String_Extended,0x2f ; "L2" 001a 0092 0030 | 0| Action Push_String_Extended,0x30 ; "L3" 001c 0092 0031 | 1| Action Push_String_Extended,0x31 ; "L4" 001e 4820 |H | Short_Literal 0x20 001f 00ea | | Load_Encached Null_String_Cache 0020 0092 0032 | 2| Action Push_String_Extended,0x32 ; "\x1b[?1;2c" 0022 e003 | | Load 0x0,0x3 0023 0386 | | Declare_Variable Package,Visible 0024 00d8 | | Load_Top At_Offset_0 0025 020f | | Execute Module,Activate 0026 c20d | | Store 0x1,0xd 0027 00bf | | Action Accept_Activation 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a ; -------------------------------------------------------------------------------------- 002a ; STRING TABLE 002a ; -------------------------------------------------------------------------------------- 002a 0014 | | .STRTAB 0x0014->0x0034 ; "F5" 002b 0014 | | .STRTAB 0x0014->0x0035 ; "S_F5" 002c 0016 | | .STRTAB 0x0016->0x0037 ; "F6" 002d 0016 | | .STRTAB 0x0016->0x0038 ; "F11" 002e 0017 | | .STRTAB 0x0017->0x0039 ; "L1" 002f 0017 | | .STRTAB 0x0017->0x003a ; "L2" 0030 0017 | | .STRTAB 0x0017->0x003b ; "L3" 0031 0017 | | .STRTAB 0x0017->0x003c ; "L4" 0032 0017 | | .STRTAB 0x0017->0x003d ; "\x1b[?1;2c" 0033 001c | | .STREND 0x001c->0x0041 0034 4635 535f |F5S_| .STRTAB_STRINGS 0041 0000 0000 | | .BLANK 0000[0x7] 0048 ; -------------------------------------------------------------------------------------- 0048 ; Debug Table 0048 ; -------------------------------------------------------------------------------------- 0048 0004 000d | | .DEBUG4 0x0004,0x000d,0x919e,0x0000,0x0001,0x0000 004e 6965 6c64 |ield| .XXX[0xd6] 0050 2064 6174 | dat| 0052 6120 656c |a el| 0054 656d 656e |emen| 0056 7473 0200 |ts | 0058 2508 4f62 |% Ob| 005a 6a65 6374 |ject| 005c 732e 5365 |s.Se| 005e 7420 2854 |t (T| 0060 6865 5f50 |he_P| 0062 616e 656c |anel| 0064 203d 3e20 | => | 0066 5468 6570 |Thep| 0068 616e 656c |anel| 006a 2c12 1554 |, T| 006c 6865 5f46 |he_F| 006e 6965 6c64 |ield| 0070 203d 3e20 | => | 0072 3236 2c2c |26,,| 0074 1554 6865 | The| 0076 5f46 6965 |_Fie| 0078 6c64 5f54 |ld_T| 007a 7970 6520 |ype | 007c 3d3e 204f |=> O| 007e 626a 6563 |bjec| 0080 7473 2e43 |ts.C| 0082 6861 7261 |hara| 0084 6374 6572 |cter| 0086 5f46 6965 |_Fie| 0088 6c64 2c23 |ld,#| 008a 1554 6865 | The| 008c 5f4d 6f64 |_Mod| 008e 6520 3d3e |e =>| 0090 204f 626a | Obj| 0092 6563 7473 |ects| 0094 2e4f 7574 |.Out| 0096 7075 745f |put_| 0098 4669 656c |Fiel| 009a 642c 1015 |d, | 009c 5468 655f |The_| 009e 526f 7720 |Row | 00a0 3d3e 2031 |=> 1| 00a2 372c 0000 |7, | 00a4 656c 6420 |eld | 00a6 3d3e 2031 |=> 1| 00a8 312c 0000 |1, | 00aa 0000 0019 | | 00ac df7b 0000 | { | 00ae 0019 df7b | {| 00b0 81fa 001a | | 00b2 1fab 1215 | | 00b4 5468 655f |The_| 00b6 436f 6c75 |Colu| 00b8 6d6e 203d |mn =| 00ba 3e20 362c |> 6,| 00bc 1215 5468 | Th| 00be 655f 5769 |e_Wi| 00c0 6474 6820 |dth | 00c2 3d3e 2031 |=> 1| 00c4 302c 1715 |0, | 00c6 5468 655f |The_| 00c8 5465 7874 |Text| 00ca 203d 3e20 | => | 00cc 2241 7564 |"Aud| 00ce 696f 3a22 |io:"| 00d0 2c15 1554 |, T| 00d2 6865 5f53 |he_S| 00d4 6372 6565 |cree| 00d6 6e5f 436f |n_Co| 00d8 6c6f 7220 |lor | 00da 3d3e 3018 |=>0 | 00dc 284f 626a |(Obj| 00de 6563 7473 |ects| 00e0 2e57 6869 |.Whi| 00e2 7465 2c20 |te, | 00e4 4f62 6a65 |Obje| 00e6 6374 732e |cts.| 00e8 4379 616e |Cyan| 00ea 2c20 4f62 |, Ob| 00ec 6a65 6374 |ject| 00ee 732e 4272 |s.Br| 00f0 6967 6874 |ight| 00f2 292c 2715 |),' | 00f4 5468 655f |The_| 00f6 4675 6e63 |Func| 00f8 7469 6f6e |tion| 00fa 5f4c 6576 |_Lev| 00fc 656c 203d |el =| 00fe 3e20 4f62 |> Ob| 0100 6a65 6374 |ject| 0102 732e 4163 |s.Ac| 0104 7469 7665 |tive| 0106 2c29 1554 |,) T| 0108 6865 5f4a |he_J| 010a 7573 7469 |usti| 010c 6679 203d |fy =| 010e 3e20 4f62 |> Ob| 0110 6a65 6374 |ject| 0112 732e 4465 |s.De| 0114 6661 756c |faul| 0116 745f 4a75 |t_Ju| 0118 7374 6966 |stif| 011a 792c 1e15 |y, | 011c 5468 655f |The_| 011e 4e61 6d65 |Name| 0120 203d 3e20 | => | 0122 226c 3120 |"l1 | 0124 2020 2020 | | .BLANK 2020[0x4] 0128 2022 293b | ");| .XXX[0x4] 012a 0200 2408 | $ | 012c 2d2d 2d2d |----| .BLANK 2d2d[0x5] 0131 2053 6574 | Set| .XXX[0xc9] 0133 2066 6965 | fie| 0135 6c64 2064 |ld d| 0137 6174 6120 |ata | 0139 656c 656d |elem| 013b 656e 7473 |ents| 013d 0200 2508 | % | 013f 4f62 6a65 |Obje| 0141 6374 732e |cts.| 0143 5365 7420 |Set | 0145 2854 6865 |(The| 0147 5f50 616e |_Pan| 0149 656c 203d |el =| 014b 3e20 5468 |> Th| 014d 6570 616e |epan| 014f 656c 2c12 |el, | 0151 1554 6865 | The| 0153 5f46 6965 |_Fie| 0155 6c64 203d |ld =| 0157 3e20 3237 |> 27| 0159 2c2c 1554 |,, T| 015b 6865 5f46 |he_F| 015d 6965 6c64 |ield| 015f 5f54 7970 |_Typ| 0161 6520 3d3e |e =>| 0163 204f 626a | Obj| 0165 6563 7473 |ects| 0167 2e43 6861 |.Cha| 0169 7261 6374 |ract| 016b 6572 5f46 |er_F| 016d 6965 6c64 |ield| 016f 2c23 1554 |,# T| 0171 6865 5f4d |he_M| 0173 6f64 6520 |ode | 0175 3d3e 204f |=> O| 0177 626a 6563 |bjec| 0179 7473 2e4f |ts.O| 017b 7574 7075 |utpu| 017d 745f 4669 |t_Fi| 017f 656c 642c |eld,| 0181 1015 5468 | Th| 0183 655f 526f |e_Ro| 0185 7720 3d3e |w =>| 0187 2031 392c | 19,| 0189 1215 5468 | Th| 018b 655f 436f |e_Co| 018d 6c75 6d6e |lumn| 018f 203d 3e20 | => | 0191 362c 1215 |6, | 0193 5468 655f |The_| 0195 5769 6474 |Widt| 0197 6820 3d3e |h =>| 0199 2031 302c | 10,| 019b 1715 5468 | Th| 019d 655f 5465 |e_Te| 019f 7874 203d |xt =| 01a1 3e20 2247 |> "G| 01a3 616d 6573 |ames| 01a5 3a22 2c15 |:", | 01a7 1554 6865 | The| 01a9 5f53 6372 |_Scr| 01ab 6565 6e5f |een_| 01ad 436f 6c6f |Colo| 01af 7220 3d3e |r =>| 01b1 3018 284f |0 (O| 01b3 626a 6563 |bjec| 01b5 7473 2e57 |ts.W| 01b7 6869 7465 |hite| 01b9 2c20 4f62 |, Ob| 01bb 6a65 6374 |ject| 01bd 732e 4379 |s.Cy| 01bf 616e 2c20 |an, | 01c1 4f62 6a65 |Obje| 01c3 6374 732e |cts.| 01c5 4272 6967 |Brig| 01c7 6874 292c |ht),| 01c9 2715 5468 |' Th| 01cb 655f 4675 |e_Fu| 01cd 6e63 7469 |ncti| 01cf 6f6e 5f4c |on_L| 01d1 6576 656c |evel| 01d3 203d 3e20 | => | 01d5 4f62 6a65 |Obje| 01d7 6374 732e |cts.| 01d9 4163 7469 |Acti| 01db 7665 2c29 |ve,)| 01dd 1554 6865 | The| 01df 5f4a 7573 |_Jus| 01e1 7469 6679 |tify| 01e3 203d 3e20 | => | 01e5 4f62 6a65 |Obje| 01e7 6374 732e |cts.| 01e9 4465 6661 |Defa| 01eb 756c 745f |ult_| 01ed 4a75 7374 |Just| 01ef 6966 792c |ify,| 01f1 1e15 5468 | Th| 01f3 655f 4e61 |e_Na| 01f5 6d65 203d |me =| 01f7 3e20 226c |> "l| 01f9 3220 |2 | 01fa 2020 2020 | | .BLANK 2020[0x4] 01fe 2022 293b | ");| .XXX[0x2]