2 / This program will set the density on a disk. This will only work on a
3 / RX02 operating in RX28 mode.
4 / To run start at 0200.
5 / SR9-11 shoulb be drive number
6 / SR0 should be 1 for double density (RX02), 0 for single density (RX01)
7 / Should halt at label GDHLT (140) with AC = 0 if it worked.
8 / At normal exit hitting cont will restart the program
10 LCD=6751 / Load the command reg with AC
11 XDR=6752 / Load or read the transfer register
12 STR=6753 / Skip on transfer request flag
13 SER=6754 / Skip on error flag
14 SDN=6755 / Skip on done flag
15 INTR=6756 / AC = 0 interrupt off, 1 = on
16 INIT=6757 / Initialize RX8/RX01
19 DRIVE, 0 / Drive # * 2
20 DRVMSK, 60 / Mask for drive bits
21 DENCMD, 010 / Set density command
22 DEN, 0 / Density bit for command
23 CHARI, 111 / Character I
31 START, CDF 0 / Init all our variables
33 CLA CLL OSR / Get drive
38 CLA CLL OSR / Get density
51 TAD DENCMD /Make a set density command
59 XDR /Send character I to start format
64 HLT /Error on format command