| 1 | / RX01 Set Density |
| 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 |
| 9 | |
| 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 |
| 17 | |
| 18 | *20 |
| 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 |
| 24 | STARTF, START |
| 25 | |
| 26 | *140 |
| 27 | GDHLT, HLT |
| 28 | JMP I STARTF |
| 29 | |
| 30 | *200 |
| 31 | START, CDF 0 / Init all our variables |
| 32 | CAF |
| 33 | CLA CLL OSR / Get drive |
| 34 | RTL |
| 35 | RTL |
| 36 | AND DRVMSK |
| 37 | DCA DRIVE |
| 38 | CLA CLL OSR / Get density |
| 39 | RAL |
| 40 | CLA |
| 41 | RTR |
| 42 | RTR |
| 43 | DCA DEN |
| 44 | |
| 45 | RECAL, CLA CLL |
| 46 | INIT |
| 47 | SDN / Done? |
| 48 | JMP .-1 |
| 49 | |
| 50 | TYPE, 0 |
| 51 | TAD DENCMD /Make a set density command |
| 52 | TAD DRIVE |
| 53 | TAD DEN |
| 54 | LCD |
| 55 | STR |
| 56 | JMP .-1 |
| 57 | CLA |
| 58 | TAD CHARI |
| 59 | XDR /Send character I to start format |
| 60 | SDN |
| 61 | JMP .-1 |
| 62 | SER |
| 63 | JMP GDHLT |
| 64 | HLT /Error on format command |
| 65 | $ |