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