| Notes: |
As recommended, the first thing I did with this machine was to remove the
power supply to check the foam which was originally attached to the upper lid.
A previous owner had been there first, removed the foam and installed a plastic
insulating sheet. I did have to reinstall the screws on the 2 power supply
fans, which were barely attached (some of the hardware was rattling around in
the chassis). The machine powered up with no problems. I used the front panel
to enter a couple of test programs, which worked correctly.
In order to run RTE-6/VM, I upgraded the system with a Memory Expansion Module,
three 256KW RAM boards, a BACI and a HP-IB controller. I also burned 6 PROMs
required for RTE-6/VM, and the 3-PROM FFP (Fast FORTRAN Processor) set (from Bitsavers).
Inside the top cover was a sheet of paper with the two sample programs. To
enter the program, use the following sequence (addresses and values are
in Octal):
- Press Halt
- Select the M register
- Enter the starting address (000100) and press Store
- Select the T register
- Enter the instruction code and press Store
- Continue entering instructions and storing until done
- Select the P register, re-enter the starting address and press
Store
- Press Preset, then Run. The program's output will display in the S
register
addr value instr/comments
# display reg rotate left "chaser lights"
100 002404 CLA ; clear A
INA ; A=1
101 102601 OTA 01 ; output A to switches reg
102 006400 CLB ; clear B
103 006006 INB ; B++
SZB ; skip if B==0
104 024103 JUMP 103
105 001200 RAL ; rotate A left by 1
106 024101 JUMP 101
# display reg "KITT" lights
100 002404 CLA ; clear A
INA ; A=1
101 102601 OTA 01 ; output A to switches reg
102 006400 CLB ; clear B
103 006006 INB ; B++
SZB ; skip if B==0
104 024103 JUMP 103
105 001200 RAL ; rotate A left by 1
106 002021 RSS/SSA ; skip next if A&100000
107 024101 JUMP 101
110 102601 OTA 01
111 006400 CLB ; clear B
112 006006 INB ; B++
SZB ; skip if B==0
113 024112 JUMP 112
114 001300 RAR ; rotate A right
115 002011 RSS/SLA ; skip next if A&1
116 024110 JUMP 110
117 024101 JUMP 101
|
