sw/dumprest/original/testrk05s1.pal

   1 / RK05 SURFACE SCAN
   2 / Do a destructive write/read check on all sectors.  Header words should be
   3 / checked in all sectors except 0.  0 probably missed since won't be first
   4 / after seek.
   5 / Four different patterns are used.
   6 / To run start at 0200 with drive # in bits 9-11.
   7 / It will print drive being tested to console
   8 / and then halt.  Set SR = 0 for continuous testing or 1 to halt after 1 pass.
   9         DSKP=6741
  10         DCLR=6742
  11         DLAG=6743
  12         DLCA=6744
  13         DRST=6745
  14         DLDC=6746
  15
  16         *10
  17 FILLOC, 0
  18         *20
  19 DRIVE,  2
  20 K0200,  0200
  21 K4000,  4000
  22 TRACK,  0
  23 MAXTRK, 4537
  24 EXBIT,  0
  25 REDDAT, 1000
  26 WRTDAT, 5000
  27 WRTLOC, 3000
  28 RDLOC,  4000
  29 K17,    17
  30 K6,     6
  31 K0007,  0007
  32 K215,   0215
  33 K212,   0212
  34 M4,     -4
  35 LOOP,   0
  36 CURPAT, 0
  37 PATCNT, 0
  38 FILCNT, 0
  39 FILLEN, -400
  40 INCF,   INCTRK
  41 CRLFF,  CRLF
  42 K0077,  0077
  43 K7700,  7700
  44 K3740,  3740
  45 K4100,  4100
  46 K0240,  0240
  47 K0377,  0377
  48 K0001,  0001
  49 SIDEM,  7757
  50 SIDE1,  0020
  51 PRTXTF, PRTXT
  52 FROCTF, FROCT
  53 PRADF,  PRAD
  54 WRITEF, WRITE
  55 PATLOC, PATS
  56 PATS,   7777            / Test patterns to use
  57         0000
  58         5252
  59         2525
  60 NUMPAT, 4
  61
  62         *200
  63         CLA CLL OSR
  64         RAL
  65         AND K6          / Clear out high bits such as 0200 start address
  66         DCA DRIVE
  67         TAD DRIVE
  68         RAR
  69         JMS I FROCTF
  70         JMS I PRTXTF
  71         DTXT
  72         JMS I CRLFF
  73         HLT
  74         CLA
  75         DCA LOOP
  76 RESTRT, CLA CLL IAC
  77         DCLR
  78         TAD DRIVE
  79         DLDC
  80         CLA CLL CML RTL
  81         DCLR
  82         DSKP
  83         JMP .-1
  84         TAD K0200
  85         TAD DRIVE
  86         DLDC
  87         DSKP
  88         JMP .-1
  89         DRST
  90         CIA
  91         TAD K4000
  92         SZA CLA
  93         JMP BADSTA
  94         CLA
  95         TAD NUMPAT
  96         CMA IAC
  97         DCA PATCNT
  98         TAD PATLOC
  99         DCA CURPAT
 100 FILP,   CLA
 101         TAD FILLEN
 102         DCA FILCNT
 103         CMA
 104         TAD WRTLOC
 105         DCA FILLOC
 106 LP,     TAD I CURPAT
 107         DCA I FILLOC
 108         ISZ FILCNT
 109         JMP LP
 110         CLA CLL
 111         DCA TRACK
 112         DCA EXBIT
 113 WRTPAT, JMS I WRITEF
 114         JMS I INCF
 115         JMP WRTPAT
 116         CLA CLL
 117         DCA TRACK
 118         DCA EXBIT
 119 RDPAT,  JMS READ
 120         JMS I INCF
 121         JMP RDPAT
 122         ISZ CURPAT
 123         ISZ PATCNT
 124         JMP FILP
 125 DONE,   JMS I PRTXTF
 126         PSTXT
 127         TAD LOOP
 128         JMS I FROCTF
 129         JMS I CRLFF
 130         ISZ LOOP
 131         NOP
 132         CLA OSR
 133         SZA
 134         HLT
 135         JMP RESTRT
 136
 137 BADSTA, HLT
 138
 139 READ,   0
 140         CLA CLL IAC
 141         DCLR
 142         TAD RDLOC
 143         DLCA
 144         TAD DRIVE
 145         TAD REDDAT
 146         TAD EXBIT
 147         DLDC
 148         TAD TRACK
 149         AND SIDEM
 150         TAD SIDE1
 151         DLAG
 152         TAD EXBIT
 153         RAR
 154         TAD TRACK
 155         RAR
 156         DSKP
 157         JMP .-1
 158         DRST
 159         CIA
 160         TAD K4000
 161         SZA CLA
 162         JMP ERROR
 163         JMP I READ
 164 ERROR,  JMS I PRTXTF
 165         RERRT
 166         JMS I PRADF
 167         JMP I READ
 168
 169         PAGE
 170 WRITE,  0
 171         CLA CLL IAC     / We have one waiting, write it
 172         DCLR
 173         TAD WRTLOC
 174         DLCA
 175         TAD DRIVE
 176         TAD WRTDAT
 177         TAD EXBIT
 178         DLDC
 179         TAD TRACK
 180         AND SIDEM
 181         TAD SIDE1
 182         DLAG
 183         TAD EXBIT
 184         RAR
 185         TAD TRACK
 186         RAR
 187         DSKP
 188         JMP .-1
 189         DRST
 190         CIA
 191         TAD K4000
 192         SZA CLA
 193         JMP ERROR2
 194         JMP I WRITE
 195 ERROR2, JMS I PRTXTF
 196         WERRT
 197         JMS I PRADF
 198         JMP I WRITE
 199
 200
 201
 202         PAGE
 203 INCTRK, 0               / Increment track and exbit value for next sector
 204         CLA CLL         / AC non zero on return if done
 205         TAD EXBIT
 206         SZA
 207         JMP CHKCYL
 208 INC2,   ISZ TRACK
 209         JMP I INCTRK
 210         ISZ EXBIT
 211         JMP I INCTRK
 212         HLT
 213 CHKCYL, CLA
 214         TAD TRACK
 215         CIA
 216         TAD MAXTRK
 217         SNA
 218         JMP FIN
 219         CLA
 220         JMP INC2
 221 FIN,    CLA IAC
 222         ISZ INCTRK
 223         JMP I INCTRK
 224
 225 RERRT,  TEXT "READ ERR "
 226 WERRT,  TEXT "WRITE ERR "
 227 PSTXT,  TEXT "PASS "
 228 CTXT,   TEXT "CYL "
 229 STXT,   TEXT "SECTOR "
 230 SUTXT,  TEXT "SURFACE "
 231 PTXT,   TEXT "PATTERN "
 232 DTXT,   TEXT "DRIVE WILL BE R/W TESTED, SET SR"
 233
 234         PAGE
 235 PRTXT,  0
 236         CLA CLL
 237         TAD I PRTXT
 238         ISZ PRTXT
 239         DCA FROCT
 240         TAD I FROCT
 241         AND K7700
 242         SNA
 243         JMP PREX
 244         SMA
 245         CML
 246         IAC
 247         RTR
 248         RTR
 249         RTR
 250         JMS PRINT
 251         TAD I FROCT
 252         AND K0077
 253         SNA
 254         JMP PREX
 255         TAD K3740
 256         SMA
 257         TAD K4100
 258         TAD K0240
 259         JMS PRINT
 260         ISZ FROCT
 261         CLA CLL
 262         JMP PRTXT+5
 263 PREX,   CLA CLL
 264         JMP I PRTXT
 265
 266 TOCT,   0
 267 UPONE,  0
 268 K0260,  0260
 269 FROCT,  0               / DUMP OCTAL
 270         RTL
 271         RTL
 272         DCA UPONE
 273         TAD M4
 274         DCA TOCT
 275         TAD UPONE
 276         AND K0007
 277         TAD K0260
 278         JMS PRINT
 279         TAD UPONE
 280         RTL
 281         RAL
 282         DCA UPONE
 283         ISZ TOCT
 284         JMP .-11
 285         TAD K0240
 286         JMS PRINT
 287         JMP I FROCT
 288
 289 PRINT,  0
 290         TLS
 291         TSF
 292         JMP .-1
 293         TCF
 294         CLA
 295         JMP I PRINT
 296
 297 PRAD,   0
 298         CLA
 299         DRST
 300         JMS FROCT
 301         JMS PRTXT
 302         CTXT
 303         TAD EXBIT
 304         RAR
 305         TAD TRACK
 306         RAR
 307         RTR
 308         RTR
 309         AND K0377
 310         JMS FROCT
 311         JMS PRTXT
 312         SUTXT
 313         TAD TRACK
 314         RTR
 315         RTR
 316         AND K0001
 317         JMS FROCT
 318         JMS PRTXT
 319         STXT
 320         TAD TRACK
 321         AND K17
 322         JMS FROCT
 323         JMS PRTXT
 324         PTXT
 325         TAD I WRTLOC
 326         JMS FROCT
 327         JMS CRLF
 328         JMP I PRAD
 329
 330 CRLF,   0
 331         TAD K215
 332         JMS PRINT
 333         TAD K212
 334         JMS PRINT
 335         JMP I CRLF
 336         $