Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 | $ |