sw/dumprest/original/setdenrx02.pal

   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         $