|
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 0030 | 0 | .CONST 0x0030 ; 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 002a | * | .CONST 0x002a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d e001 | | Load 0x0,0x1
000e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
000f 035b | [ | Declare_Type Array,Constrained
0010 0337 | 7 | Declare_Variable Array
0011 4802 |H | Short_Literal 0x2
0012 4800 |H | Short_Literal 0x0
0013 00da | | Load_Top At_Offset_2
0014 01d6 | | Execute Vector,Field_Write
0015 4802 |H | Short_Literal 0x2
0016 4801 |H | Short_Literal 0x1
0017 00da | | Load_Top At_Offset_2
0018 01d6 | | Execute Vector,Field_Write
0019 0129 | ) | Execute Any,Make_Visible
001a 4800 |H | Short_Literal 0x0
001b 4801 |H | Short_Literal 0x1
001c e001 | | Load 0x0,0x1
001d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001e 035b | [ | Declare_Type Array,Constrained
001f 0337 | 7 | Declare_Variable Array
0020 4802 |H | Short_Literal 0x2
0021 4800 |H | Short_Literal 0x0
0022 00da | | Load_Top At_Offset_2
0023 01d6 | | Execute Vector,Field_Write
0024 4801 |H | Short_Literal 0x1
0025 4801 |H | Short_Literal 0x1
0026 00da | | Load_Top At_Offset_2
0027 01d6 | | Execute Vector,Field_Write
0028 0129 | ) | Execute Any,Make_Visible
0029 00bf | | Action Accept_Activation
002a BODY_0008:
002a 00bc | | Action Signal_Activated
002b 00bb | | Action Signal_Completion
002c 0000 0000 | | .BLANK 0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; Debug Table
0030 ; --------------------------------------------------------------------------------------
0030 0004 000d | | .DEBUG4 0x0004,0x000d,0xdcd2,0x0000,0x0001,0x0000
0036 0000 0000 | | .XXX[0xc]
0038 0008 0000 | |
003a 0000 0000 | |
003c 8000 0009 | |
003e 0000 0000 | |
0040 0000 0002 | |
0042 0000 0000 | | .BLANK 0000[0xa]
004c 001e | | .XXX[0x1]
004d 0000 0000 | | .BLANK 0000[0x5]
0052 0004 | | .XXX[0x1]
0053 0000 0000 | | .BLANK 0000[0xc]
005f 3fff ffff |? | .XXX[0x3]
0061 c002 | |
0062 0202 0202 | | .BLANK 0202[0x48]
00aa 0000 0012 | | .XXX[0xa]
00ac df7b 0202 | { |
00ae 0009 1f7b | {|
00b0 81fa 0013 | |
00b2 1fab 2b08 | + |
00b4 2d2d 2d2d |----| .BLANK 2d2d[0x5]
00b9 2053 6574 | Set| .XXX[0xb7]
00bb 2070 616e | pan|
00bd 656c 2068 |el h|
00bf 6561 6465 |eade|
00c1 7220 6461 |r da|
00c3 7461 2065 |ta e|
00c5 6c65 6d65 |leme|
00c7 6e74 7302 |nts |
00c9 0025 084f | % O|
00cb 626a 6563 |bjec|
00cd 7473 2e53 |ts.S|
00cf 6574 2028 |et (|
00d1 5468 655f |The_|
00d3 5061 6e65 |Pane|
00d5 6c20 3d3e |l =>|
00d7 2054 6865 | The|
00d9 7061 6e65 |pane|
00db 6c2c 1d15 |l, |
00dd 5468 655f |The_|
00df 4e61 6d65 |Name|
00e1 203d 3e20 | => |
00e3 2250 6173 |"Pas|
00e5 7365 6e67 |seng|
00e7 6572 2020 |er |
00e9 2022 2c29 | ",)|
00eb 1554 6865 | The|
00ed 5f54 6974 |_Tit|
00ef 6c65 203d |le =|
00f1 3e20 2250 |> "P|
00f3 6173 7365 |asse|
00f5 6e67 6572 |nger|
00f7 2043 6f6e | Con|
00f9 7472 6f6c |trol|
00fb 2050 616e | Pan|
00fd 656c 222c |el",|
00ff 0f15 5468 | Th|
0101 655f 526f |e_Ro|
0103 7720 3d3e |w =>|
0105 2030 2c12 | 0, |
0107 1554 6865 | The|
0109 5f43 6f6c |_Col|
010b 756d 6e20 |umn |
010d 3d3e 2030 |=> 0|
010f 2c11 1554 |, T|
0111 6865 5f52 |he_R|
0113 6f77 7320 |ows |
0115 3d3e 2032 |=> 2|
0117 342c 1415 |4, |
0119 5468 655f |The_|
011b 436f 6c75 |Colu|
011d 6d6e 7320 |mns |
011f 3d3e 2038 |=> 8|
0121 302c 1515 |0, |
0123 5468 655f |The_|
0125 5363 7265 |Scre|
0127 656e 5f43 |en_C|
0129 6f6c 6f72 |olor|
012b 203d 3e30 | =>0|
012d 1828 4f62 | (Ob|
012f 6a65 6374 |ject|
0131 732e 5768 |s.Wh|
0133 6974 652c |ite,|
0135 204f 626a | Obj|
0137 6563 7473 |ects|
0139 2e43 7961 |.Cya|
013b 6e2c 204f |n, O|
013d 626a 6563 |bjec|
013f 7473 2e4e |ts.N|
0141 6f72 6d61 |orma|
0143 6c29 2c1f |l), |
0145 1554 6865 | The|
0147 5f42 6f72 |_Bor|
0149 6465 7220 |der |
014b 3d3e 204f |=> O|
014d 626a 6563 |bjec|
014f 7473 2e53 |ts.S|
0151 696e 676c |ingl|
0153 652c 1815 |e, |
0155 5468 655f |The_|
0157 4669 656c |Fiel|
0159 645f 496e |d_In|
015b 6465 7820 |dex |
015d 3d3e 2031 |=> 1|
015f 392c 1b15 |9, |
0161 5468 655f |The_|
0163 4669 656c |Fiel|
0165 645f 506f |d_Po|
0167 7369 7469 |siti|
0169 6f6e 203d |on =|
016b 3e20 3129 |> 1)|
016d 3b02 0024 |; $|
016f 082d | - |
0170 2d2d 2d2d |----| .BLANK 2d2d[0x4]
0174 2d20 5365 |- Se| .XXX[0x8c]
0176 7420 6669 |t fi|
0178 656c 6420 |eld |
017a 6461 7461 |data|
017c 2065 6c65 | ele|
017e 6d65 6e74 |ment|
0180 7302 0025 |s %|
0182 084f 626a | Obj|
0184 6563 7473 |ects|
0186 2e53 6574 |.Set|
0188 2028 5468 | (Th|
018a 655f 5061 |e_Pa|
018c 6e65 6c20 |nel |
018e 3d3e 2054 |=> T|
0190 6865 7061 |hepa|
0192 6e65 6c2c |nel,|
0194 1115 5468 | Th|
0196 655f 4669 |e_Fi|
0198 656c 6420 |eld |
019a 3d3e 2031 |=> 1|
019c 2c29 1554 |,) T|
019e 6865 5f46 |he_F|
01a0 6965 6c64 |ield|
01a2 5f54 7970 |_Typ|
01a4 6520 3d3e |e =>|
01a6 204f 626a | Obj|
01a8 6563 7473 |ects|
01aa 2e42 7574 |.But|
01ac 746f 6e5f |ton_|
01ae 4669 656c |Fiel|
01b0 642c 2215 |d," |
01b2 5468 655f |The_|
01b4 4d6f 6465 |Mode|
01b6 203d 3e20 | => |
01b8 4f62 6a65 |Obje|
01ba 6374 732e |cts.|
01bc 496e 7075 |Inpu|
01be 745f 4669 |t_Fi|
01c0 656c 642c |eld,|
01c2 0f15 5468 | Th|
01c4 655f 526f |e_Ro|
01c6 7720 3d3e |w =>|
01c8 2032 2c12 | 2, |
01ca 1554 6865 | The|
01cc 5f43 6f6c |_Col|
01ce 756d 6e20 |umn |
01d0 3d3e 2035 |=> 5|
01d2 2c12 1554 |, T|
01d4 6865 5f57 |he_W|
01d6 6964 7468 |idth|
01d8 203d 3e20 | => |
01da 3130 2c19 |10, |
01dc 1554 6865 | The|
01de 5f54 6578 |_Tex|
01e0 7420 3d3e |t =>|
01e2 2022 4c69 | "Li|
01e4 6768 7420 |ght |
01e6 4f4e 222c |ON",|
01e8 1515 5468 | Th|
01ea 655f 5363 |e_Sc|
01ec 7265 656e |reen|
01ee 5f43 6f6c |_Col|
01f0 6f72 203d |or =|
01f2 3e30 1828 |>0 (|
01f4 4f62 6a65 |Obje|
01f6 6374 732e |cts.|
01f8 5768 6974 |Whit|
01fa 652c 204f |e, O|
01fc 626a 6563 |bjec|
01fe 7473 2e42 |ts.B|