MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00001 

              00001 ;Assemble RS hard disk driver for 6.x - 12/12/83
0000          00002 *GET    BUILDVER/ASM:3
              00003 ;
              00004 ;       Buildver/asm is a bit of a kludge since not all utilities can load
              00005 ;       equates from LDOS60 and still compile.  LOWCORE and everybody else
              00006 ;       relies on this setting, and it eventually ends up in LDOS60/EQU
              00007 ;       for programs that can use that.
              00008 ;
FFFF          00009 @BLD631         EQU     -1      ;<631>Build 631 distribution (LEVEL 1B)
              00010 ;       These switches activate patches made since the 1B release.
              00011 ;       It is important that all earlier patches be enabled when a higher
              00012 ;       patch is enabled.
              00013 ;       Patches C thru F were published in TMQ IV.iv, page 32 (NOTE: the
              00014 ;       patch addresses listed for SPOOL in SPOOL1/FIX are 19H high.)
FFFF          00015 @BLD631C        EQU     -1      ;<631>Apply 1C patches (SETKI)
FFFF          00016 @BLD631D        EQU     -1      ;<631>Apply 1D patches (DIR)
FFFF          00017 @BLD631E        EQU     -1      ;<631>Apply 1E patches (DIR & MEMDISK/DCT)
FFFF          00018 @BLD631F        EQU     -1      ;<631>Apply 1F patches (SPOOL)
              00019 ;       Patches G and H were published in TMQ V.i, pages 10 and 18/19.
FFFF          00020 @BLD631G        EQU     -1      ;<631>Apply 1G patches (//KEYIN,DIR,DO *)
FFFF          00021 @BLD631H        EQU     -1      ;<631>Apply 1H patches (MEMORY)
              00022 ;
              00023 ;End of BUILDVER/ASM
0000          00024 *GET    HDWD6A/ASM:3
              00025 ; HDWD1/ASM - Western Digital driver 1000/1010 - 06/10/84
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00002 

'<General WD controller driver

3200          00028         ORG     3200H
              00029 ;*=*=*
              00030 ;       Version equates
              00031 ;*=*=*
000A          00032 LF      EQU     10
000D          00033 CR      EQU     13
0003          00034 MINTRK  EQU     3
0194          00035 MAXTRK  EQU     404
3200          00036 *GET    SVCMAC
              00037 ;SVCMAC/ASM - LS-DOS Version VI
              00038 *LIST   OFF
              00430 *LIST   ON
              00432 ;
              00433 ;*=*=*
              00434 ;       Change Log
              00435 ;Log in drive if possible 04/26/83
              00436 ;Store total head count for drive 04/29/83
              00437 ;
00C0          00438 HARDWP  EQU     0C0H
00C1          00439 HDCONT  EQU     0C1H
              00440 ;*=*=*
              00441 ;       Calling Sequence
              00442 ;        B  => disk command
              00443 ;        C  => logical drive number
              00444 ;        D  => logical cylinder number
              00445 ;        E  => logical sector number
              00446 ;        HL => sector I/O buffer address
              00447 ;        IY => drive code table address
              00448 ;*=*=*
              00449 ;       bit 2 => wait enable
              00450 ;       bit 3 => device enable
              00451 ;       bit 4 => software reset
              00452 ;*=*=*
00C8          00453 DATA    EQU     0C8H            ;Data transfer port
00C9          00454 ERROR   EQU     DATA+1          ;Error code port
00C9          00455 WRP     EQU     DATA+1          ;Write precompensation port
00CA          00456 SECNT   EQU     DATA+2          ;Sector count
00CB          00457 SECNO   EQU     DATA+3          ;Sector number port
00CC          00458 CYLLO   EQU     DATA+4          ;Cylinder lo
00CD          00459 CYLHI   EQU     DATA+5          ;Cylinder hi
00CE          00460 SDH     EQU     DATA+6          ;Size/Drive/Head port
00CF          00461 STATUS  EQU     DATA+7          ;Status port
00CF          00462 COMMAND EQU     DATA+7          ;Command port
              00463 ;*=*=*
              00464 ;       Western Digital Controller OP codes
              00465 ;
              00466 ; 0001rrrr - Restore drive
              00467 ; 0111rrrr - Seek sector/head/cyl
              00468 ; 0010d000 - Read sector
              00469 ; 00110000 - Write sector
              00470 ; 01010000 - Format track
              00471 ;
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00003 

'<General WD controller driver

              00472 ;       rrrr = step rate
              00473 ;       d    = 0=programmed I/O, 1=DMA
              00474 ;*=*=*
              00475 ;       Winchester drive code tables
              00476 ;*=*=*
3200          00477 DCTAB   EQU     $
3200 00       00478         DB      0,0,0           ;Push to correct posn
     00 00 
0001          00479 TYPQTY  EQU     1
0003          00480 DRVSEL  EQU     3               ;DCT pos for select
              00481 ;*=*=*
              00482 ;       Defaults for ST-506
              00483 ;*=*=*
3203 0C       00484         DB      8!4             ;5" fixed hard drive
3204 10       00485         DB      10H             ;Alien, starting head = 0
3205 00       00486         DB      0               ;<=keep head count here
3206 98       00487         DB      153-1           ;Max cylinder
3207 7F       00488         DB      3<5+31          ;4 heads & 32 sectors/tk
3208 0F       00489         DB      0<5+15          ;Y "grans/tk" 16 sec/gran
3209 4C       00490         DB      76              ;Directory cyl
              00491 ;*=*=*
              00492 ;       start of driver
              00493 ;*=*=*
320A 1851     00494 DISK    JR      START           ;Branch around linkage
320C 0000     00495         DW      $-$             ;Last byte used
320E 04       00496         DB      4,'$HD1'        ;Progname
     24 48 44 31 
              00497 ;
3213 214F00   00498 RETRYR  LD      HL,0<8!79
3216 014802   00499         LD      BC,2<8!'H'
3219          00500         @@VDCTL
3219+3E0F     00501         LD      A,15
321B+EF       00502         RST     40
              00503 ;Init done by ICONFG
              00504         IFDEF   HDCONT
321C 3E10     00505 INIT    LD      A,10H           ;Software reset
321E D3C1     00506         OUT     (HDCONT),A
3220 0640     00507         LD      B,40H           ;Wait about .25 sec.
3222          00508         @@PAUSE
3222+3E10     00509         LD      A,16
3224+EF       00510         RST     40
3225 3E0C     00511         LD      A,0CH           ;Set device & wait enable
3227 D3C1     00512         OUT     (HDCONT),A
3229 E3       00513         EX      (SP),HL
322A E3       00514         EX      (SP),HL
322B DBCF     00515         IN      A,(STATUS)
322D E680     00516         AND     80H             ;Check for ready status
322F 20E2     00517         JR      NZ,RETRYR       ;Try again if no ready
              00518 ;*=*=*
              00519 ;       Restore the WDC to set the step rate
              00520 ;*=*=*
              00521         ELSE
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00004 

'<General WD controller driver

              00522 INIT    XOR     A
              00523         ENDIF
              00524 ;
3231 D3CE     00525         OUT     (SDH),A         ;  set the step rate
3233 3E16     00526         LD      A,16H           ;* set 3ms-restore
3234          00527 STP1    EQU     $-1             ;+set by user entry if >3
3235 D3CF     00528         OUT     (COMMAND),A     ;* execute command
3237 CDFB32   00529         CALL    DWR1            ;Wait until not busy
3238          00530 R1      EQU     $-2
323A AF       00531         XOR     A
323B D3CD     00532         OUT     (CYLHI),A
323D D3CC     00533         OUT     (CYLLO),A       ;Reset for WD1010
323F 3E10     00534         LD      A,1<4!0         ;Restore w/step rate
3240          00535 STP2    EQU     $-1             ;+set by user entry
3241 D3CF     00536         OUT     (COMMAND),A
3243 214F00   00537         LD      HL,0<8!79
3246 012002   00538         LD      BC,2<8!' '      ;Blank out 'H'
3249          00539         @@VDCTL
3249+3E0F     00540         LD      A,15
324B+EF       00541         RST     40
324C 0632     00542         LD      B,50            ;Delay about .32 sec.
324E          00543         @@PAUSE
324E+3E10     00544         LD      A,16
3250+EF       00545         RST     40
3251 CDFD32   00546         CALL    DWR2            ;Wait for completion
3252          00547 R2      EQU     $-2
3254 20BD     00548         JR      NZ,RETRYR       ;Retry if error
3256 3E00     00549 PCPTRK  LD      A,00
3258 D3C9     00550         OUT     (ERROR),A       ;Set precomp trk# / 4
325A C9       00551 LINK    RET                     ;End call before install
325B 57       00552         DB      'WD'            ;2 more bytes for @ICNFG
     44 
              00553 ;
              00554 ;*=*=*
              00555 ;     Driver start
              00556 ;*=*=*
325D CB58     00557 START   BIT     3,B
325F 2018     00558         JR      NZ,DIO          ;Jump if I/O request
              00559 ; treat any other request as TSTBSY
              00560         IFDEF   HARDWP
3261 FD7E03   00561 TSTBSY  LD      A,(IY+3)        ;P/u drive address
3264 E603     00562         AND     3               ;  & remove other junk
3266 4F       00563         LD      C,A             ;Save for counter
3267 DBC0     00564         IN      A,(HARDWP)      ;P/u the front panel WP
3269 DC       00565         DB      0DCH            ;Ignore next 2 by CALL C,
326A 07       00566 ALIGN   RLCA                    ;Align hard WP bit to b7
326B 0D       00567         DEC     C               ;  according to drive
326C 20FC     00568         JR      NZ,ALIGN        ;  address
326E FDB603   00569         OR      (IY+3)          ;Merge software WP
              00570         ELSE
              00571 ;
              00572 TSTBSY  LD      A,(IY+3)        ;Just dct bit
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00005 

'<General WD controller driver

              00573         ENDIF
              00574 ;
3271 E680     00575         AND     10000000B       ;Mask all but bit 7
3273 CB27     00576         SLA     A               ;Write prot to carry
3275 D0       00577         RET     NC              ;W/0 in a
3276 3E40     00578         LD      A,01000000B     ;Show floppy type WP
3278 C9       00579         RET                     ;W/Z set
              00580 ;*=*=*
              00581 ;       Disk I/O requested
              00582 ;*=*=*
3279 E5       00583 DIO     PUSH    HL
327A D5       00584         PUSH    DE
327B CB50     00585         BIT     2,B             ;Test input or output
327D 2813     00586         JR      Z,INPUT         ;Go if read/verify
327F CD6132   00587         CALL    TSTBSY          ;If Write, check first
3280          00588 R3      EQU     $-2
3282 3E0F     00589         LD      A,15            ;Write prot error
3284 3851     00590         JR      C,POP2          ;Ret w/error
3286 78       00591         LD      A,B             ;Get fcn
3287 D60D     00592         SUB     13              ;WRSEC?
3289 2831     00593         JR      Z,WRSEC
328B 3D       00594         DEC     A               ;Or WRSYS
328C 282E     00595         JR      Z,WRSEC         ;Go on output
328E 3E08     00596         LD      A,8             ;Not available..for format
3290 1845     00597         JR      POP2            ;Set NZ/ret w/error
              00598 ;*=*=*
              00599 ;       Sector read routine
              00600 ;*=*=*
3292 C5       00601 INPUT   PUSH    BC              ;Save fcn #
3293 CD0733   00602         CALL    SETUP           ;Establish drive
3294          00603 R6      EQU     $-2
3296 3E20     00604         LD      A,20H           ;Set controller OP code
3298 D3CF     00605         OUT     (COMMAND),A     ;  & send to WDC
329A CDFB32   00606         CALL    DWR1            ;Delay/wait for completion
329B          00607 R7      EQU     $-2
329D D1       00608         POP     DE              ;Fcn to D
329E F5       00609         PUSH    AF              ;Save status fm disk
329F CB4A     00610         BIT     1,D             ;Sector verify?
32A1 2805     00611         JR      Z,READ          ;Go if read
32A3 ED58     00612 VRLP    IN      E,(C)
32A5 10FC     00613         DJNZ    VRLP
32A7 11       00614         DB      11H             ;Skip next via LD DE,
32A8 EDB2     00615 READ    INIR                    ;Get data
32AA F1       00616         POP     AF              ;Recover completion status
32AB 21EA32   00617         LD      HL,RDTBL        ;Error xlate
32AC          00618 R8      EQU     $-2
32AE 201D     00619         JR      NZ,ENDERR       ;Go on error
32B0 D1       00620         POP     DE              ;Adjust read error
32B1 7A       00621         LD      A,D             ;  code if system
32B2 FDBE09   00622         CP      (IY+9)          ;  sector was read
32B5 3E06     00623         LD      A,6
32B7 281F     00624         JR      Z,POP1          ;Go if system
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00006 

'<General WD controller driver

32B9 AF       00625         XOR     A
32BA 181C     00626         JR      POP1
              00627 ;*=*=*
              00628 ;       sector WRITE routine
              00629 ;*=*=*
              00630 ;
32BC CD0733   00631 WRSEC   CALL    SETUP           ;Establish drive linkage
32BD          00632 R9      EQU     $-2
              00633 ;*=*=*
              00634 ;       Routine to pass WRITE Command to WDC & do it
              00635 ;*=*=*
32BF 3E30     00636         LD      A,30H           ;Init write command
32C1 D3CF     00637         OUT     (COMMAND),A     ;  & pass to WDC
32C3 EDB3     00638         OTIR                    ;Output the data
32C5 21F232   00639         LD      HL,WRTBL        ;Point to error xlate
32C6          00640 R10     EQU     $-2
32C8 CDFB32   00641         CALL    DWR1            ;Wait for completion
32C9          00642 R11     EQU     $-2
32CB 280A     00643         JR      Z,EXIT
              00644 ;
32CD CDDA32   00645 ENDERR  CALL    WD1010          ;Reset controller if needed
32CE          00646 R12     EQU     $-2
32D0 DBC9     00647         IN      A,(ERROR)       ;Grab error code
32D2 07       00648 ERR1    RLCA                    ;Find error TYPE
32D3 23       00649         INC     HL              ;Bump counter
32D4 30FC     00650         JR      NC,ERR1         ;Loop for error byte
32D6 7E       00651         LD      A,(HL)          ;P/u error code
              00652 ;
32D7          00653 EXIT    EQU     $               ;Restore registers
32D7 D1       00654 POP2    POP     DE
32D8 E1       00655 POP1    POP     HL
32D9 B7       00656         OR      A               ;Set flag
              00657 ;This is to take care of the WD1010 controller CIP bit
32DA F5       00658 WD1010  PUSH    AF
32DB DBCF     00659         IN      A,(STATUS)      ;
32DD E602     00660         AND     00000010B       ;Bit 1 is CIP for 1010
32DF 2808     00661         JR      Z,CLEAN         ;All OK
32E1 3E10     00662         LD      A,10H           ;Do a software reset
32E3 D3C1     00663         OUT     (HDCONT),A
32E5 3E0C     00664         LD      A,0CH           ;Then re-enable
32E7 D3C1     00665         OUT     (HDCONT),A
32E9 F1       00666 CLEAN   POP     AF              ;Continue
32EA C9       00667         RET
              00668 ;*=*=*
              00669 ;       LDOS error conversion table
              00670 ; Bit  Error            RD   WR
              00671 ;  7  Bad block detect   7   14
              00672 ;  6  CRC - Data field   4   12
              00673 ;  5  CRC - ID field     1    9
              00674 ;  4  ID not found       5   13
              00675 ;  3  Not used          127 127
              00676 ;  2  Aborted command    8    8
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00007 

'<General WD controller driver

              00677 ;  1  TR000 error        2   10
              00678 ;  0  DAM not found      3   11
              00679 ;*=*=*
32EA          00680 RDTBL   EQU     $-1
32EB 07       00681         DB      7,4,1,5,127,8,2,3
     04 01 05 7F 08 02 03 
32F2          00682 WRTBL   EQU     $-1
32F3 0E       00683         DB      14,12,9,13,127,8,10,11
     0C 09 0D 7F 08 0A 0B 
              00684 ;
32FB E3       00685 DWR1    EX      (SP),HL         ;Delay time to settle
32FC E3       00686         EX      (SP),HL         ; the controller
              00687 ;
32FD DBCF     00688 DWR2    IN      A,(STATUS)      ;Wait until controller
32FF 07       00689         RLCA                    ;  is no longer busy
3300 38FB     00690         JR      C,DWR2
3302 DBCF     00691         IN      A,(STATUS)      ;Get status again
3304 E601     00692         AND     00000001B       ;NZ=error
3306 C9       00693         RET
              00694 ;*=*=*
              00695 ;       SETUP disk
              00696 ;       IY= DCT
              00697 ;       D = Cylinder # (0-202)
              00698 ;       E = Sector # (0-255)
              00699 ;*=*=*
3307          00700 SETUP   EQU     $               ;Wait until not busy
              00701 ;*=*=*
              00702 ;       Select routine
              00703 ;*=*=*
3307 E5       00704         PUSH    HL              ;Save buffer pointer
              00705 ;*=*=*
              00706 ;       Recalc cyl, sector to head, sector, cyl
              00707 ;*=*=*
3308 6A       00708 RECALC  LD      L,D             ;Xfer cylinder
3309 2600     00709         LD      H,0
              00710 ;
330B FDCB046E 00711         BIT     5,(IY+4)        ;Double track?
330F 2801     00712         JR      Z,$+3           ;Go if not
3311 29       00713         ADD     HL,HL           ;Cyl * 2
              00714 ;*****
              00715 ;       Check on track advance
              00716 ;*****
3312 FD7E07   00717         LD      A,(IY+7)        ;P/u sectors/track
3315 D5       00718         PUSH    DE
3316 57       00719         LD      D,A             ;Hang on to value
3317 E61F     00720         AND     1FH             ;Strip off other data
3319 5F       00721         LD      E,A
331A 1C       00722         INC     E               ;Adj for zero offset
331B 4B       00723         LD      C,E             ;Keep sec per track
331C AA       00724         XOR     D               ;Get # of heads
331D 07       00725         RLCA                    ;Shift heads to 0-2
331E 07       00726         RLCA
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00008 

'<General WD controller driver

331F 07       00727         RLCA
3320 3C       00728         INC     A               ;Adjust for zero offset
3321 C5       00729         PUSH    BC
3322 4F       00730         LD      C,A
3323          00731         @@MUL8
3323+3E5A     00732         LD      A,90
3325+EF       00733         RST     40
3326 C1       00734         POP     BC
3327 3D       00735         DEC     A               ;Adjust for compare
3328 D1       00736         POP     DE              ;Rcvr sector
3329 BB       00737         CP      E               ;Is sector on this track?
332A 3004     00738         JR      NC,REC1         ;Bypass if yes
332C 2F       00739         CPL                     ;Else subtract off a
332D 83       00740         ADD     A,E             ; track's # of sectors
332E 5F       00741         LD      E,A             ;Reset sector #
332F 23       00742         INC     HL              ;  and bump cyl #
3330          00743 REC1    @@DIV8                  ;Sector#/sectors per head
3330+3E5D     00744         LD      A,93
3332+EF       00745         RST     40
3333 57       00746         LD      D,A             ;Xfer head # needed
3334 FD7E04   00747         LD      A,(IY+4)        ;P/u starting head
3337 E60F     00748         AND     0FH             ;Strip off other data
3339 82       00749         ADD     A,D             ;Add in relative head
333A 57       00750         LD      D,A             ;Point to physical head
              00751 ;*****
              00752 ;       Xfer head, sector, & cylinder data to WDC
              00753 ;*****
333B FD7E03   00754         LD      A,(IY+3)        ;Grab the drive select
333E E603     00755         AND     3
3340 07       00756         RLCA                    ;Shift to bits 3-4
3341 07       00757         RLCA
3342 07       00758         RLCA
3343 B2       00759         OR      D               ;Merge in head select
3344 D3CE     00760         OUT     (SDH),A         ;Transfer to WDC
3346 7B       00761         LD      A,E
3347 D3CB     00762         OUT     (SECNO),A
3349 7D       00763         LD      A,L
334A D3CC     00764         OUT     (CYLLO),A
334C 7C       00765         LD      A,H
334D D3CD     00766         OUT     (CYLHI),A
334F E1       00767         POP     HL              ;Rcvr buffer pointer
3350 01C800   00768         LD      BC,0<8!DATA     ;Set buflen & xfer port
3353 C9       00769         RET
              00770 ;
3354          00771 DISKEND EQU     $
              00772 ;*=*=*
              00773 ; some patch space - INSTALL must be patched also to load -
              00774 ;*=*=*
3354 0000     00775         DW      0,0,0,0,0,0,0,0,0,0
     0000 0000 0000 0000 0000 0000 0000 0000
     0000 
3368 0000     00776         DW      0,0,0,0,0,0,0,0,0,0
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00009 

'<General WD controller driver

     0000 0000 0000 0000 0000 0000 0000 0000
     0000 
337C 0000     00777         DW      0,0,0,0,0,0,0,0,0,0
     0000 0000 0000 0000 0000 0000 0000 0000
     0000 
3390 0000     00778         DW      0,0,0,0,0,0,0,0,0,0
     0000 0000 0000 0000 0000 0000 0000 0000
     0000 
33A4 3832     00779 RELTAB  DW      R1,R2,R3,R6,R7
     5232 8032 9432 9B32 
33AE AC32     00780         DW      R8,R9,R10,R11,R12
     BD32 C632 C932 CE32 
000A          00781 TABLEN  EQU     $-RELTAB/2
33B8 0000     00782         DW      0,0,0,0         ;Patch addresses
     0000 0000 0000 
              00783 ; end of actual I/O driver
              00784 ;
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00010 

'<General WD controller driver

33C0          00786 *GET    HDWD6B/ASM:3
              00787 ;HDWD2/ASM - WD installation system - 06/10/84
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00011 

'<Driver Initialization Routines

              00789 ;
              00790 ;*=*=*
              00791 ;Entry point after initial tests
              00792 ;Set IY=>correct DCT type
              00793 ;*=*=*
33C0 FD210032 00794 USER    LD      IY,DCTAB
              00795 ;*=*=*%
              00796 ;       Request physical drive slot first
              00797 ;*=*=*
33C4 1803     00798         JR      PRMPT4
33C6 CDC339   00799 GETDRV  CALL    ABTJCL
33C9 217A36   00800 PRMPT4  LD      HL,DRIVE$       ;Request physical drive#
33CC CDB138   00801         CALL    GETARG          ;Display & get argument
33CF D631     00802         SUB     '1'             ;Convert to binary (0-3)
33D1 38F3     00803         JR      C,GETDRV        ;Re-request if bad range
33D3 FE04     00804         CP      3+1             ;Check max value
33D5 30EF     00805         JR      NC,GETDRV       ;Re-request if bad range
              00806 ;*=*=*
              00807 ;       Stuff the drive select address into DCT
              00808 ;*=*=*
              00809 ;       Merge the drive address
33D7 FDB603   00810         OR      (IY+DRVSEL)     ;  into the standard
33DA FD7703   00811         LD      (IY+DRVSEL),A   ;  DCT parameters
              00812 ;*=*=*
              00813 ; see if drive type has been established
              00814 ;*=*=*
33DD CDB236   00815         CALL    FNDOLD
33E0 2027     00816         JR      NZ,PRMPT1       ;1st installation of drive
33E2 DD7E05   00817         LD      A,(IX+5)        ;IX=>existing DCT
33E5 FD7705   00818         LD      (IY+5),A        ;Propagate to this one
33E8 E607     00819         AND     00000111B
33EA CD4935   00820         CALL    LDMAX           ;Set max heads
33ED DD7E06   00821         LD      A,(IX+6)        ;Cyl count
33F0 FD7706   00822         LD      (IY+6),A        ;Set it
33F3 CB3F     00823         SRL     A               ;Dir cyl in center
33F5 FD7709   00824         LD      (IY+9),A
33F8 DDCB046E 00825         BIT     5,(IX+4)        ;Double?
33FC CA9634   00826         JP      Z,STMP
33FF FDCB04EE 00827         SET     5,(IY+4)        ;Set to match
3403 C39634   00828         JP      STMP            ;Now map heads in-use
              00829 ;*=*=*
              00830 ;       Request drive type information
              00831 ;*=*=*
3406 CDC339   00832 GTMAXHD CALL    ABTJCL          ;Unless re-prompt
3409 210E36   00833 PRMPT1  LD      HL,HDS$
340C CDB138   00834         CALL    GETARG          ;Prmpt/get 1 char
340F D631     00835         SUB     '1'
3411 38F3     00836         JR      C,GTMAXHD       ;Must be at least 1
3413 FE08     00837         CP      8               ;Not over 8
3415 30EF     00838         JR      NC,GTMAXHD
3417 FD7705   00839         LD      (IY+5),A        ;Store total entry
341A CD4935   00840         CALL    LDMAX           ;Store away
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00012 

'<Driver Initialization Routines

              00841 ;*=*=*
              00842 ; request total tracks on drive
              00843 ;*=*=*
341D 1803     00844         JR      PRMPT2
341F CDC339   00845 GTTRKS  CALL    ABTJCL
3422 213A36   00846 PRMPT2  LD      HL,TRK$         ;Prompt
3425 0603     00847         LD      B,3
3427 CDB338   00848         CALL    GETARGX         ;Get b chars
342A CDAD38   00849         CALL    DECHEX          ;Make decimal in BC
342D C5       00850         PUSH    BC              ;Save the trk count
342E 210900   00851         LD      HL,09           ;Bump up for rounding
3431 09       00852         ADD     HL,BC
3432 0E08     00853         LD      C,8             ;Divide by 8 now
3434          00854         @@DIV16                 ; do it
3434+3E5E     00855         LD      A,94
3436+EF       00856         RST     40
3437 7D       00857         LD      A,L
3438 215732   00858         LD      HL,PCPTRK+1     ;Point to out instr.
343B 77       00859         LD      (HL),A          ;Put value there
343C C1       00860         POP     BC              ;Recover the entry
343D 210200   00861         LD      HL,MINTRK-1
3440 B7       00862         OR      A
3441 ED42     00863         SBC     HL,BC
3443 30DA     00864         JR      NC,GTTRKS       ;If too small
3445 219401   00865         LD      HL,MAXTRK
3448 B7       00866         OR      A
3449 ED42     00867         SBC     HL,BC
344B 38D2     00868         JR      C,GTTRKS
344D 21CB00   00869         LD      HL,203          ;Max w/o double trking
3450 B7       00870         OR      A
3451 ED42     00871         SBC     HL,BC
3453 3008     00872         JR      NC,SETTRK
3455 FDCB04EE 00873         SET     5,(IY+4)        ;Set double bit
3459 CB38     00874         SRL     B               ;Divide by 2
345B CB19     00875         RR      C
345D 79       00876 SETTRK  LD      A,C
345E 3D       00877         DEC     A               ;Offset fm 0
345F FD7706   00878         LD      (IY+6),A        ;Store high Trk #
3462 CB39     00879         SRL     C               ;Div by 2
3464 FD7109   00880         LD      (IY+9),C        ;Dir cyl in center
              00881 ;
3467 3A883B   00882         LD      A,(RESNUM)      ;Driver resident?
346A B7       00883         OR      A
346B 2029     00884         JR      NZ,STMP         ;Skip step rate if loaded
              00885 ;*=*=*
              00886 ;Request drive step rate
              00887 ;*=*=*
346D 1803     00888         JR      PRMPT3
346F CDC339   00889 GTSTP   CALL    ABTJCL
3472 215E36   00890 PRMPT3  LD      HL,STP$
3475 0603     00891         LD      B,3
3477 CDB338   00892         CALL    GETARGX
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00013 

'<Driver Initialization Routines

347A CD0C35   00893         CALL    PARSENM         ;Conv to step rate bits
347D 20F0     00894         JR      NZ,GTSTP        ;If bad entry
347F 4F       00895         LD      C,A
3480 FE6E     00896         CP      00000110        ; 3.0 mS?
3482 3009     00897         JR      NC,FASTOK       ;If 3 or less leave 1st cmd
3484 3A3432   00898         LD      A,(STP1)        ;Chg if >3.0
3487 E6F0     00899         AND     11110000B       ;Leave command
3489 B1       00900         OR      C               ;Merge step rate bits
348A 323432   00901         LD      (STP1),A
348D 3A4032   00902 FASTOK  LD      A,(STP2)
3490 E6F0     00903         AND     11110000B       ;P/u command
3492 B1       00904         OR      C               ;Merge step
3493 324032   00905         LD      (STP2),A
              00906 ;
3496 CDDC36   00907 STMP    CALL    SETMAP          ; map out heads in use
              00908 ;*=*=*
              00909 ;Request heads for partition
              00910 ;*=*=*
3499 1803     00911         JR      PRMPT5
349B CDC339   00912 REQHD   CALL    ABTJCL
349E 213E3A   00913 PRMPT5  LD      HL,HEADMP$      ;Show in-use
34A1 CDBD39   00914         CALL    @DSPLY
34A4 21653A   00915         LD      HL,HEADS$       ;Get number for partition
34A7 CDB138   00916         CALL    GETARG
34AA D631     00917         SUB     '1'             ;Adjust to binary
34AC 38ED     00918         JR      C,REQHD         ;Must be > 0
34AE FDBE00   00919         CP      (IY+0)          ;Free heads left
34B1 30E8     00920         JR      NC,REQHD        ;User exceed max?
34B3 3C       00921         INC     A               ;Make real
34B4 4F       00922         LD      C,A
34B5 32C437   00923         LD      (NUMHDS),A      ;Store number for later
34B8 3D       00924         DEC     A               ;Offset fm 0
34B9 0F       00925         RRCA                    ;Shift to 5-7
34BA 0F       00926         RRCA
34BB 0F       00927         RRCA
34BC 47       00928         LD      B,A             ;Save # of heads
34BD FD7E07   00929         LD      A,(IY+7)        ;P/u # of heads in tab
34C0 E61F     00930         AND     1FH             ;Strip what's there
34C2 B0       00931         OR      B               ;Merge # of heads
34C3 FD7707   00932         LD      (IY+7),A        ;Update DCT$+7 init
              00933 ;*=*=*
              00934 ;       Calculate proper Sectors Per Granule (SPG)
              00935 ;       and Grans per cylinder
              00936 ;*=*=*
34C6 79       00937         LD      A,C             ;Number of heads
34C7 87       00938         ADD     A,A             ;Double # for GPC
34C8 160F     00939         LD      D,15            ;Sec/gran (-1)
34CA 1E09     00940         LD      E,8+1           ;Use 16 sec/gran w/4 heads
34CC FDCB046E 00941         BIT     5,(IY+4)        ;Unless dbl bit is set
34D0 2802     00942         JR      Z,UPTO4
34D2 1E05     00943         LD      E,4+1           ;Then 2 is max
34D4 BB       00944 UPTO4   CP      E               ;More than max heads (x2)?
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00014 

'<Driver Initialization Routines

34D5 3803     00945         JR      C,G1            ;16 sec grans OK if less
34D7 161F     00946         LD      D,31            ;Else 32 sec/gran
34D9 79       00947         LD      A,C             ;And GPC will be = # heads
              00948 ;D=sec/gran A=#heads*2 if 2 grans/trk or # if 1 gran/trk
34DA 3D       00949 G1      DEC     A               ;GPC offset fm 0
34DB 0F       00950         RRCA
34DC 0F       00951         RRCA
34DD 0F       00952         RRCA                    ;Roll to bits 5-7
34DE B2       00953         OR      D               ;Merge sec/gran
34DF FD7708   00954         LD      (IY+8),A        ; put in DCT
              00955 ;
34E2 3A873B   00956         LD      A,(MAXHDS)      ;Total available
34E5 91       00957         SUB     C               ;ALL requested?
34E6 2818     00958         JR      Z,PUTRHD        ;0 =start head
              00959 ;*=*=*
              00960 ;       If not all heads requested, get starting head
              00961 ;*=*=*
34E8 1803     00962         JR      PRMPT6
34EA CDC339   00963 REQSHD  CALL    ABTJCL          ;Quit if JCL
34ED 21903A   00964 PRMPT6  LD      HL,STRTHD$
34F0 CDB138   00965         CALL    GETARG
34F3 D631     00966         SUB     '1'             ;In range?
34F5 38F3     00967         JR      C,REQSHD
34F7 4F       00968         LD      C,A             ;Save start head
34F8 C5       00969         PUSH    BC
34F9 CDB437   00970         CALL    FREE            ;Are these heads in use
34FC C1       00971         POP     BC
34FD 20EB     00972         JR      NZ,REQSHD       ;Get again if bad
              00973 ;*=*=*
              00974 ;
34FF 79       00975         LD      A,C             ;P/u starting head
3500 FDB604   00976 PUTRHD  OR      (IY+4)          ;Merge user's start
3503 FD7704   00977         LD      (IY+4),A        ;Update init DCT$+4
              00978 ;*=*=*
3506 CDDA37   00979         CALL    INSTALL
3509 C3B839   00980         JP      @EXIT
              00981 ;*=*=*
              00982 ;Convert ASCII step rate entry to WD bit field
              00983 ;*=*=*
350C 1600     00984 PARSENM LD      D,0             ;Clear for ans
350E 7E       00985 CHAR    LD      A,(HL)          ;Read one
350F 23       00986         INC     HL              ;=>next
3510 FE2E     00987         CP      '.'             ;Decimal
3512 2814     00988         JR      Z,POINT         ;Go if found
3514 FE0D     00989         CP      CR
3516 2811     00990         JR      Z,ISCR          ;End of line
3518 D630     00991         SUB     '0'             ;Make BCD 0-7
351A D8       00992         RET     C               ;Out of range
351B FE08     00993         CP      7+1             ;7.5 is high number except 10
351D 3027     00994         JR      NC,RNGERR
351F 5F       00995         LD      E,A             ;Save BCD
3520 7A       00996         LD      A,D             ;Take D*10
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00015 

'<Driver Initialization Routines

3521 87       00997         ADD     A,A             ;X2
3522 87       00998         ADD     A,A             ;X4
3523 82       00999         ADD     A,D             ;X5
3524 87       01000         ADD     A,A             ;X10
3525 83       01001         ADD     A,E             ;+this one to catch 10.0
3526 18E6     01002         JR      CHAR            ;Get next char
              01003 ;
3528 7E       01004 POINT   LD      A,(HL)
3529 CB22     01005 ISCR    SLA     D               ;Number x2
352B FE35     01006         CP      '5'
352D 2003     01007         JR      NZ,NT5
352F 14       01008         INC     D
3530 1807     01009         JR      IS0
3532 FE30     01010 NT5     CP      '0'
3534 2803     01011         JR      Z,IS0
3536 FE0D     01012         CP      CR
3538 C0       01013         RET     NZ
              01014 ;D=number fm 0 to 20 (2*entry)
              01015 ;20 = 10 = 0000
              01016 ;Otherwise range fm 1 to 15 = bit setting for WD step
              01017 ;Test range
3539 7A       01018 IS0     LD      A,D
353A FE14     01019         CP      20
353C 2002     01020         JR      NZ,RNG
353E AF       01021         XOR     A
353F C9       01022         RET                     ;Set 0 if 10 was entered
3540 FE10     01023 RNG     CP      15+1
3542 3002     01024         JR      NC,RNGERR       ;Bad entry if >15
3544 BF       01025         CP      A               ;Set Z
3545 C9       01026         RET
3546 F6FF     01027 RNGERR  OR      0FFH            ;Set NZ
3548 C9       01028         RET
              01029 ;*=*=*
              01030 ;Stuff max heads on drive A=numb offset fm 0
              01031 ;*=*=*
3549 0F       01032 LDMAX   RRCA                    ;Roll to bits 7-5
354A 0F       01033         RRCA
354B 0F       01034         RRCA
354C 4F       01035         LD      C,A
354D FD7E07   01036         LD      A,(IY+7)        ;Merge
3550 E61F     01037         AND     00011111B
3552 B1       01038         OR      C
3553 FD7707   01039         LD      (IY+7),A        ;Store max heads
3556 C9       01040         RET
              01041 ;*=*=*
              01042 ;Driver dependent strings
3557 0A       01043 HELLO$  DB      LF
3558 54       01044         DB      'TRSHD6b - WD 1000/1010 - Winchester Disk Driver',LF
     52 53 48 44 36 62 20 2D
     20 57 44 20 31 30 30 30
     2F 31 30 31 30 20 2D 20
     57 69 6E 63 68 65 73 74
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00016 

'<Driver Initialization Routines

     65 72 20 44 69 73 6B 20
     44 72 69 76 65 72 0A 
3588 56       01045         DB      'Version'
     65 72 73 69 6F 6E 
358F          01046 *GET    CLIENT:3
              01047 ;CLIENT/ASM - File to establish sign-on headers
              01048 ; and version numbers.
              01049 ;
              01050 ; EACH STRING SHOULD CONTAIN ONLY 63 CHARACTERS !!
              01051 ;
              01052         IF      @BLD631
              01053 ;                12345678901234567890123456789012345678901234567890
358F 20       01054         DB      ' - 6.3.1 - Copyright 1982/83/84/86/90 by MISOSYS, ';<631>
     2D 20 36 2E 33 2E 31 20
     2D 20 43 6F 70 79 72 69
     67 68 74 20 31 39 38 32
     2F 38 33 2F 38 34 2F 38
     36 2F 39 30 20 62 79 20
     4D 49 53 4F 53 59 53 2C
     20 
35C1 49       01055         DB      'Inc.,       ',10       ;<631>
     6E 63 2E 2C 20 20 20 20
     20 20 20 0A 
              01056         ELSE
              01057         DB      ' - 6.3.0 - Copyright 1982/83/84/86 by Logical Syst'
              01058         DB      'ems, Inc.   ',10
              01059         ENDIF
              01060 ;
              01061 ;       DB      'All Rights Reserved. Licensed 1982/83/84 to Tandy '
              01062 ;       DB      'Corporation.',10,13
              01063 ;
              01064 ;       DB      'All Rights Reserved. Beta-TEST Level/AD, DO NOT DI'
              01065 ;       DB      'STRIBUTE !! ',10,13
              01066 ;       DB      'All Rights reserved by LSI, 8970 N. 55th St. Milwa'
              01067 ;       DB      'ukee, Wisc. ',10,13
35CE 41       01068         DB      'All Rights Reserved. Unauthorized duplication is p'
     6C 6C 20 52 69 67 68 74
     73 20 52 65 73 65 72 76
     65 64 2E 20 55 6E 61 75
     74 68 6F 72 69 7A 65 64
     20 64 75 70 6C 69 63 61
     74 69 6F 6E 20 69 73 20
     70 
3600 72       01069         DB      'rohibited.  ',10,13
     6F 68 69 62 69 74 65 64
     2E 20 20 0A 0D 
360E 45       01070 HDS$    DB      'Enter total number of heads'
     6E 74 65 72 20 74 6F 74
     61 6C 20 6E 75 6D 62 65
     72 20 6F 66 20 68 65 61
     64 73 
3629 20       01071         DB      ' on drive <1-8> ',3
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00017 

'<Driver Initialization Routines

     6F 6E 20 64 72 69 76 65
     20 3C 31 2D 38 3E 20 03
363A 45       01072 TRK$    DB      'Enter physical tracks per surface: ',3
     6E 74 65 72 20 70 68 79
     73 69 63 61 6C 20 74 72
     61 63 6B 73 20 70 65 72
     20 73 75 72 66 61 63 65
     3A 20 03 
365E 45       01073 STP$    DB      'Enter step rate for drive: ',3
     6E 74 65 72 20 73 74 65
     70 20 72 61 74 65 20 66
     6F 72 20 64 72 69 76 65
     3A 20 03 
367A 45       01074 DRIVE$  DB      'Enter drive select address <'
     6E 74 65 72 20 64 72 69
     76 65 20 73 65 6C 65 63
     74 20 61 64 64 72 65 73
     73 20 3C 
3696 31       01075         DB      '1-4> ',3
     2D 34 3E 20 03 
              01076 ;
              01077 ;******************************************
              01078 ;Common subroutines for hard disk drivers
              01079 ;*******************************************
              01080 ;*=*=*
              01081 ;       Routine to set a bit in head map
              01082 ;*=*=*
369C 07       01083 SETBIT  RLCA                    ;Shift to "b" field
369D 07       01084         RLCA
369E 07       01085         RLCA
369F F6C3     01086         OR      0C3H            ;Establish as SET b,E
36A1 32A536   01087         LD      (SBIT1+1),A     ;Alter the OP code
36A4 CBC3     01088 SBIT1   SET     0,E             ;Map the head bit
36A6 C9       01089         RET
              01090 ;*=*=*
              01091 ;       Routine to test if bit is set in head map
              01092 ;*=*=*
36A7 07       01093 BITBIT  RLCA
36A8 07       01094         RLCA
36A9 07       01095         RLCA
36AA F643     01096         OR      43H             ;Construct BIT b,E
36AC 32B036   01097         LD      (BBIT1+1),A
36AF CB43     01098 BBIT1   BIT     0,E
36B1 C9       01099         RET
              01100 ;*=*=*
              01101 ; get total heads and cyl count if an existing driver is
              01102 ; found for this drive select address
36B2 3A883B   01103 FNDOLD  LD      A,(RESNUM)      ;Get number of DCTs
36B5 B7       01104         OR      A               ;Using this driver
36B6 2821     01105         JR      Z,NTHERE        ;If none, prompt
36B8 47       01106         LD      B,A             ;Number to B
36B9 21893B   01107         LD      HL,DCTPTR       ;=>list of addresses
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00018 

'<Driver Initialization Routines

36BC 5E       01108 OLDLP   LD      E,(HL)          ;P/u DCT address
36BD 23       01109         INC     HL
36BE 56       01110         LD      D,(HL)          ;DE=>DCT
36BF 23       01111         INC     HL              ;=>next pointer
36C0 D5       01112         PUSH    DE
36C1 DDE1     01113         POP     IX              ;IX=>DCT
36C3 DD7E00   01114         LD      A,(IX)          ;Don't use any drive
36C6 FEC9     01115         CP      0C9H            ;  that's disabled
36C8 280D     01116         JR      Z,SKPTHS
36CA DD7E03   01117         LD      A,(IX+DRVSEL)   ;Check if this matches
36CD E603     01118         AND     3               ;  the drive #
36CF 4F       01119         LD      C,A             ;P/u drive requested
36D0 FD7E03   01120         LD      A,(IY+DRVSEL)
36D3 E603     01121         AND     3               ;Check if same
36D5 B9       01122         CP      C               ;Match up yet?
36D6 C8       01123         RET     Z               ;IX=>DCT for same disk
36D7 10E3     01124 SKPTHS  DJNZ    OLDLP           ;Check the rest
36D9 F6FF     01125 NTHERE  OR      0FFH            ;Force NZ
36DB C9       01126         RET
              01127 ;*=*=*
              01128 ;SETMAP
              01129 ;IY=>New DCT containing Drive address in bits 0-2 of IY+3
              01130 ;IY+7 = max heads possible in bits 5-7
              01131 ;Sets up Heads in use message
              01132 ;Sets IY+1&2 to existing driver address if found
              01133 ;Sets used bits in (BITMAP)
              01134 ;Sets (MAXHDS) = total heads
              01135 ;Sets IY+0 = free heads
              01136 ;*=*=*
              01137 ;       P/u # of heads on the drive & init checks
              01138 ;*=*=*
36DC FD7E07   01139 SETMAP  LD      A,(IY+7)        ;P/u Maximum heads
36DF 07       01140         RLCA                    ;Shift into 0-2
36E0 07       01141         RLCA
36E1 07       01142         RLCA
36E2 E607     01143         AND     7               ;Mask off Max sector #
36E4 3C       01144         INC     A               ;Adjust for zero offset
36E5 32873B   01145         LD      (MAXHDS),A      ;Save for later
36E8 47       01146         LD      B,A
              01147 ;*=*=*
              01148 ;       Adjust heads in use message
              01149 ;*=*=*
36E9 21543A   01150         LD      HL,INUSE$
36EC 3E08     01151         LD      A,8
36EE 90       01152         SUB     B               ;Calc index into msg
36EF 280C     01153         JR      Z,GOT8HDS
36F1 47       01154         LD      B,A
36F2 E5       01155         PUSH    HL              ;Save start of message
36F3 23       01156 BLP     INC     HL              ;Bump msg pointer 2
36F4 23       01157         INC     HL              ;  bytes per head loss
36F5 10FC     01158         DJNZ    BLP
36F7 D1       01159         POP     DE              ;Recover start of msg
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00019 

'<Driver Initialization Routines

36F8 011100   01160         LD      BC,HEADS$-INUSE$
36FB EDB0     01161         LDIR                    ;Reposition message
              01162 ;*=*=*
36FD 110000   01163 GOT8HDS LD      DE,0            ;Init count & bitmap
3700 3A883B   01164         LD      A,(RESNUM)      ;How many active
3703 B7       01165         OR      A
3704 2837     01166         JR      Z,NORES
3706 47       01167         LD      B,A
3707 21893B   01168         LD      HL,DCTPTR       ;=>saved addresses
370A C5       01169 HCLP    PUSH    BC              ;Save loop counter
370B 4E       01170         LD      C,(HL)
370C 23       01171         INC     HL
370D 46       01172         LD      B,(HL)          ;P/u DCT address
370E 23       01173         INC     HL
370F E5       01174         PUSH    HL              ;Save ptr to next entry
3710 C5       01175         PUSH    BC
3711 DDE1     01176         POP     IX              ;Xfer to IX
3713 DD7E01   01177         LD      A,(IX+1)        ;Move address of driver
3716 FD7701   01178         LD      (IY+1),A        ;To new DCT
3719 DD7E02   01179         LD      A,(IX+2)
371C FD7702   01180         LD      (IY+2),A
371F CD8737   01181         CALL    CNTHDS          ;Add 'em up
3722 E1       01182         POP     HL
3723 C1       01183         POP     BC
3724 10E4     01184         DJNZ    HCLP
3726 7B       01185         LD      A,E
3727 32C237   01186         LD      (BITMAP),A
              01187 ;*=*=*
              01188 ;  check for heads in use past entered total
              01189 ;*=*=*
372A 3A873B   01190         LD      A,(MAXHDS)      ;Entered #
372D 3D       01191         DEC     A
372E FE07     01192 TSTHGH  CP      7               ;Max of 8
3730 280B     01193         JR      Z,NORES         ;All OK
3732 3C       01194         INC     A               ;Check each past total
3733 4F       01195         LD      C,A
3734 CDA736   01196         CALL    BITBIT          ;For in-use
3737 C29A39   01197         JP      NZ,BADTOT       ;Abort if any
373A 79       01198         LD      A,C
373B 18F1     01199         JR      TSTHGH          ;Check up to 8
              01200 ;
373D 3A873B   01201 NORES   LD      A,(MAXHDS)      ;P/u maximum
3740 6F       01202         LD      L,A             ;Save
3741 92       01203         SUB     D               ;Calculate the quantity
3742 CA9639   01204         JP      Z,NOHEAD        ;Go if none remaining
              01205 ;Find largest group of contiguous heads
3745 010000   01206         LD      BC,0            ;Init count
3748 AF       01207         XOR     A               ;Start w/0
3749 67       01208 CNTH1   LD      H,A             ;Save hd posn
374A CDA736   01209         CALL    BITBIT          ;Head available?
374D 280A     01210         JR      Z,CNTH3         ;Yes, count it
374F 0E00     01211         LD      C,0             ;Reset for hd in use
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00020 

'<Driver Initialization Routines

3751 7C       01212 CNTH2   LD      A,H             ;Head posn
3752 3C       01213         INC     A               ;Bits are offset fm 0
3753 BD       01214         CP      L               ;So matching w/maxhds
3754 20F3     01215         JR      NZ,CNTH1        ;Means we are done
3756 78       01216         LD      A,B             ;Get max count
3757 1808     01217         JR      GOTMX
3759 0C       01218 CNTH3   INC     C               ;Count free head
375A 79       01219         LD      A,C
375B B8       01220         CP      B               ;Move highest contiguous
375C 38F3     01221         JR      C,CNTH2         ;Count into B
375E 41       01222         LD      B,C             ;If B was less
375F 18F0     01223         JR      CNTH2
              01224 ;Max of 4 heads if double tracking...
3761 FE05     01225 GOTMX   CP      4+1
3763 3808     01226         JR      C,SETMX         ;OK if 4 or less
3765 FDCB046E 01227         BIT     5,(IY+4)        ;Is double bit set?
3769 2802     01228         JR      Z,SETMX         ;8 OK if not
376B 3E04     01229         LD      A,4             ;Else set max 4 for partition
376D FD7700   01230 SETMX   LD      (IY+0),A        ;Save user limit
3770 C630     01231         ADD     A,'0'           ;Adjust to ASCII
3772 328C3A   01232         LD      (HEADS1$),A     ;Update the message
              01233 ;*=*=*
              01234 ;       Adjust heads in use message
              01235 ;*=*=*
3775 21543A   01236         LD      HL,INUSE$
3778 3E31     01237         LD      A,'1'           ;Init to head '1'
377A 0608     01238         LD      B,8
377C CB0B     01239 MODHD   RRC     E               ;If bit set, stuff msg
377E 3001     01240         JR      NC,$+3
3780 77       01241         LD      (HL),A          ;Show head in use
3781 23       01242         INC     HL
3782 23       01243         INC     HL              ;Bump to next pos
3783 3C       01244         INC     A               ;Bump ASCII head #
3784 10F6     01245         DJNZ    MODHD
3786 C9       01246         RET
              01247 ;
3787 DD7E00   01248 CNTHDS  LD      A,(IX)          ;Don't use any drive
378A FEC9     01249         CP      0C9H            ;  that's disabled
378C C8       01250         RET     Z
378D DD7E03   01251         LD      A,(IX+DRVSEL)   ;Check if this matches
3790 E603     01252         AND     3               ;  the drive #
3792 4F       01253         LD      C,A             ;P/u drive requested
3793 FD7E03   01254         LD      A,(IY+DRVSEL)
3796 E603     01255         AND     3               ;Check if same
3798 B9       01256         CP      C               ;Match up yet?
3799 C0       01257         RET     NZ              ;Skip if different unit
              01258 ;
              01259 ;       IF      ARM!ARMM
              01260 ;       LD      A,(IX+5)        ;P/u the controller
              01261 ;       CP      (IY+5-3)        ;  address & check
              01262 ;       RET     NZ              ;  for a match
              01263 ;       ENDIF
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00021 

'<Driver Initialization Routines

              01264 ;
379A DD7E07   01265         LD      A,(IX+7)        ;Accumulate the number
379D 07       01266         RLCA                    ;  of heads already
379E 07       01267         RLCA                    ;  in use
379F 07       01268         RLCA
37A0 E607     01269         AND     7
37A2 3C       01270         INC     A               ;Adjust for zero offset
37A3 47       01271         LD      B,A             ;Set new head set loop
37A4 82       01272         ADD     A,D
37A5 57       01273         LD      D,A             ;Set new total heads
              01274 ;*=*=*
              01275 ;       Merge bit map into E reg
              01276 ;*=*=*
37A6 DD7E04   01277         LD      A,(IX+4)        ;P/u starting head
37A9 E60F     01278         AND     0FH             ;Remove other junk
37AB F5       01279 SETHDS  PUSH    AF              ;Save head number
37AC CD9C36   01280         CALL    SETBIT          ;Turn on reg E bit
37AF F1       01281         POP     AF              ;  corresponding to #
37B0 3C       01282         INC     A               ;Bump head number
37B1 10F8     01283         DJNZ    SETHDS          ;Loop for all heads used
37B3 C9       01284         RET
              01285 ;*=*=*
              01286 ;       Test if user entry conflicts with head map
              01287 ;       A=starting head #
              01288 ;*=*=*
37B4 4F       01289 FREE    LD      C,A             ;Starting # (-1)
37B5 3AC437   01290         LD      A,(NUMHDS)      ;P/u number of heads
37B8 81       01291         ADD     A,C             ;Add to start posn
37B9 47       01292         LD      B,A             ;Save ending hd #
37BA 3A873B   01293         LD      A,(MAXHDS)      ;P/u max heads
37BD B8       01294         CP      B               ;Will last head be OK?
37BE 3817     01295         JR      C,BDHD          ;Go if bad entry
37C0 79       01296         LD      A,C             ;Retrieve number-1
37C1 1E00     01297         LD      E,0             ;P/u in-use head map
37C2          01298 BITMAP  EQU     $-1
37C3 0600     01299         LD      B,0             ;P/u # of heads user req
37C4          01300 NUMHDS  EQU     $-1
37C5 4F       01301 TSTHDS  LD      C,A             ;Save for test
37C6 CDA736   01302         CALL    BITBIT          ;Head bit in use?
37C9 79       01303         LD      A,C
37CA 2005     01304         JR      NZ,ISUSED       ;Go if already used
37CC 3C       01305         INC     A               ;Bump head pointer
37CD 10F6     01306         DJNZ    TSTHDS          ;Loop for # of heads
37CF AF       01307         XOR     A
37D0 C9       01308         RET                     ;Z=no conflict
37D1 21A63A   01309 ISUSED  LD      HL,HDBAD$       ;Show conflict
37D4 CDBD39   01310         CALL    @DSPLY
37D7 F6FF     01311 BDHD    OR      0FFH
37D9 C9       01312         RET                     ;W/NZ for error
              01313 ;
              01314 ;*=*=*
              01315 ;INSTALL - move driver if necessary 
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00022 

'<Driver Initialization Routines

              01316 ; put JP into (IY)
              01317 ;  move DCT=>IY into address fm (DCTADD)
              01318 ;*=*=*
37DA FD3600C3 01319 INSTALL LD      (IY),0C3H       ;Stuff JP
37DE 3A883B   01320         LD      A,(RESNUM)
37E1 B7       01321         OR      A               ;Is a copy loaded?
37E2 207D     01322         JR      NZ,ISRES        ;Then don't re-load
              01323 ;*=*=*
              01324         IFDEF   LINK            ;If driver has LINK defined...
37E4 CD1C32   01325         CALL    INIT            ;Init drv before moving driver
              01326 ;       Move @ICNFG vector into driver next
              01327 ;*=*=*
37E7 DD210000 01328         LD      IX,$-$
37E9          01329 FLAGTB  EQU     $-2             ;Saved address of table
37EB DD7E1C   01330         LD      A,(IX+28)       ;Get opcode
37EE 325A32   01331         LD      (LINK),A
37F1 DD6E1D   01332         LD      L,(IX+29)       ;Get address
37F4 DD661E   01333         LD      H,(IX+30)
37F7 225B32   01334         LD      (LINK+1),HL
37FA DDE5     01335         PUSH    IX              ;Save table address
              01336         ENDIF
              01337 ;
              01338 ;*=*=*
              01339 ;       Relocate internal references in driver
              01340 ;*=*=*
37FC DD21A433 01341         LD      IX,RELTAB       ;Point to relocation tbl
3800 210000   01342 SVEND   LD      HL,$-$          ;Find distance to move
3803 220C32   01343         LD      (DISK+2),HL     ;Set last byte used
3806 115333   01344         LD      DE,DISKEND-1
3809 B7       01345         OR      A               ;Clear carry flag
380A ED52     01346         SBC     HL,DE
380C 44       01347         LD      B,H             ;Move to BC
380D 4D       01348         LD      C,L
380E 3E0A     01349         LD      A,TABLEN        ;Get table length
3810 DD6E00   01350 RLOOP   LD      L,(IX)          ;Get address to change
3813 DD6601   01351         LD      H,(IX+1)
3816 5E       01352         LD      E,(HL)          ;P/U address
3817 23       01353         INC     HL
3818 56       01354         LD      D,(HL)
3819 EB       01355         EX      DE,HL           ;Offset it
381A 09       01356         ADD     HL,BC
381B EB       01357         EX      DE,HL
381C 72       01358         LD      (HL),D          ;And put back
381D 2B       01359         DEC     HL
381E 73       01360         LD      (HL),E
381F DD23     01361         INC     IX
3821 DD23     01362         INC     IX
3823 3D       01363         DEC     A
3824 20EA     01364         JR      NZ,RLOOP        ;Loop till done
              01365 ;*=*=*
              01366         IFDEF   LINK
              01367 ;       Set up @ICNFG
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00023 

'<Driver Initialization Routines

              01368 ;*=*=*
3826 DDE1     01369         POP     IX              ;Get FLAGTBL
3828 211C32   01370         LD      HL,INIT         ;Get entry pt
382B 09       01371         ADD     HL,BC           ;Relocate it
382C DD751D   01372         LD      (IX+29),L       ;Init address
382F DD741E   01373         LD      (IX+30),H
3832 DD361CC3 01374         LD      (IX+28),0C3H    ;Stuff JP instruction
              01375         ENDIF
              01376 ;
3836 2AD239   01377         LD      HL,(HCPTR)      ;Did it move to high$
3839 7C       01378         LD      A,H
383A B5       01379         OR      L
383B F5       01380         PUSH    AF              ;NZ if high
              01381 ;*=*=*
              01382 ;       Move driver
              01383 ;*=*=*
383C 2A973B   01384         LD      HL,(LCPTR)      ;Low core pointer
383F 5E       01385         LD      E,(HL)          ;P/u start address
3840 2C       01386         INC     L
3841 56       01387         LD      D,(HL)
3842 D5       01388         PUSH    DE              ;Save start
3843 210A32   01389         LD      HL,DISK
3846 014A01   01390         LD      BC,DISKEND-DISK ;Calc driver length
3849 EDB0     01391         LDIR
384B 2A973B   01392         LD      HL,(LCPTR)
384E 73       01393         LD      (HL),E          ;Put new free address
384F 2C       01394         INC     L
3850 72       01395         LD      (HL),D
3851 D1       01396         POP     DE              ;Entry pt
3852 FD7301   01397         LD      (IY+1),E        ;Driver LSB
3855 FD7202   01398         LD      (IY+2),D        ;Driver MSB
3858 21FC39   01399         LD      HL,HMEM$
385B F1       01400         POP     AF              ;Going high?
385C 2803     01401         JR      Z,ISRES         ;Fits in low mem
385E          01402         @@LOGOT                 ;Else tell user
              01403         IFEQ    00H,1
              01404         LD      HL,
              01405         ENDIF
385E+3E0C     01406         LD      A,12
3860+EF       01407         RST     40
              01408 ;
3861 FDE5     01409 ISRES   PUSH    IY
3863 E1       01410         POP     HL              ;Prepare to move DCT
3864 ED5B993B 01411         LD      DE,(DCTADD)     ;To requested position
3868 D5       01412         PUSH    DE
3869 010A00   01413         LD      BC,10
386C EDB0     01414         LDIR
386E FDE1     01415         POP     IY              ; IY=>real DCT
              01416 ;*=*=*
              01417 ; log in correct dir cyl if possible
              01418 ;*=*=*
3870 110000   01419         LD      DE,0            ;Read BOOT
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00024 

'<Driver Initialization Routines

3873 219B3B   01420         LD      HL,SECBUF
3876 CD9B38   01421         CALL    READS           ;Get if formatted
3879 202B     01422         JR      NZ,NOFMT
387B 3A9D3B   01423         LD      A,(SECBUF+2)    ;Get possible dir cyl
387E FDBE06   01424         CP      (IY+6)
3881 3023     01425         JR      NC,NOFMT
3883 57       01426         LD      D,A             ;Dir cyl
3884 CD9B38   01427         CALL    READS
3887 201D     01428         JR      NZ,NOFMT
3889 3E2F     01429         LD      A,'/'
388B 21753C   01430         LD      HL,SECBUF+0DAH  ;Date field
388E BE       01431         CP      (HL)
388F 2015     01432         JR      NZ,NOFMT
3891 21783C   01433         LD      HL,SECBUF+0DDH  ;Second slash
3894 BE       01434         CP      (HL)
3895 200F     01435         JR      NZ,NOFMT
3897 FD7209   01436         LD      (IY+9),D        ;Stuff correct DIR cyl..
389A C9       01437         RET
389B 0609     01438 READS   LD      B,9             ;READ command
389D CDA438   01439         CALL    DOIO
38A0 C8       01440         RET     Z               ;Normal status
38A1 FE06     01441         CP      6               ; or DIR cyl OK
38A3 C9       01442         RET
38A4 FDE9     01443 DOIO    JP      (IY)            ;Do it
38A6 21D439   01444 NOFMT   LD      HL,NOFMT$
38A9          01445         @@LOGOT
              01446         IFEQ    00H,1
              01447         LD      HL,
              01448         ENDIF
38A9+3E0C     01449         LD      A,12
38AB+EF       01450         RST     40
38AC C9       01451         RET
              01452 ;
              01453 ;*=*=*
              01454 ;       Routine to convert ascii =>HL to number in BC
38AD          01455 DECHEX  @@DECHEX                ;Make decimal in BC
38AD+3E60     01456         LD      A,96
38AF+EF       01457         RST     40
38B0 C9       01458         RET
              01459 ;*=*=*
              01460 ;       Routine to parse user input parameter
              01461 ;*=*=*
38B1 0601     01462 GETARG  LD      B,1
38B3 CDBD39   01463 GETARGX CALL    @DSPLY          ;Display message
38B6 219B3C   01464 KEYIN   LD      HL,KEYBUF$
38B9 0E00     01465         LD      C,0
38BB          01466         @@KEYIN                 ;Fetch user response
38BB+3E09     01467         LD      A,9
38BD+EF       01468         RST     40
38BE DA9239   01469         JP      C,ABTJOB
38C1 7E       01470         LD      A,(HL)          ;Load value
38C2 C9       01471         RET
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00025 

'<Driver Initialization Routines

              01472 ;*=*=*
              01473 ;
              01474 BEGIN
38C3          01475         @@CKBRKC                ;Check for break
38C3+3E6A     01476         LD      A,106
38C5+EF       01477         RST     40
38C6 2804     01478         JR      Z,BEGINA        ; go if not
38C8 21FFFF   01479         LD      HL,-1           ;Else abort
38CB C9       01480         RET
              01481 ;
38CC ED73A739 01482 BEGINA  LD      (SPSAV),SP      ;Save callers stack
38D0 ED53993B 01483         LD      (DCTADD),DE     ;Save passed DCT ptr
38D4 D5       01484         PUSH    DE              ;Save DCT address
38D5 215735   01485         LD      HL,HELLO$
38D8 CDBD39   01486         CALL    @DSPLY          ;Welcome the user
38DB          01487         @@FLAGS
38DB+3E65     01488         LD      A,101
38DD+EF       01489         RST     40
              01490         IFDEF   LINK
38DE FD22E937 01491         LD      (FLAGTB),IY     ;Save for install
              01492         ENDIF
38E2 111200   01493         LD      DE,'S'-'A'      ;Find SFLAG$
38E5 FD19     01494         ADD     IY,DE
38E7 FD22C639 01495         LD      (SFLAG),IY      ;Save address
              01496 ;*=*=*
              01497 ;       Check if requested drive slot is available
              01498 ;*=*=*
38EB D1       01499         POP     DE
38EC 1A       01500         LD      A,(DE)          ;P/u vector OP
38ED FEC9     01501         CP      0C9H            ;RET = disabled
38EF C28E39   01502         JP      NZ,CANTDO       ;No good if not RET
              01503 ;*=*=*
              01504 ;Look for existing driver
              01505 ;*=*=*
38F2 0E00     01506         LD      C,0             ;Find start of DCT$
38F4          01507         @@GTDCT
38F4+3E51     01508         LD      A,81
38F6+EF       01509         RST     40
38F7 DD21893B 01510         LD      IX,DCTPTR       ;Save matching DCTs
38FB 0608     01511         LD      B,8             ;# of DCTs
38FD FD6E01   01512 TSTDCT  LD      L,(IY+1)
3900 FD6602   01513         LD      H,(IY+2)        ;Point to driver vector
3903 C5       01514         PUSH    BC
3904 23       01515         INC     HL              ;  in DCT & see if res
3905 23       01516         INC     HL              ;Point to name length
3906 23       01517         INC     HL
3907 23       01518         INC     HL
3908 110E32   01519         LD      DE,DISK+4       ;Point to this namlen
390B 1A       01520         LD      A,(DE)          ;P/u length & match
390C BE       01521         CP      (HL)            ;  with resident driver
390D 201F     01522         JR      NZ,NOTRES       ;Go if dif lengths
390F 23       01523         INC     HL              ;Advance to name field
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00026 

'<Driver Initialization Routines

3910 13       01524         INC     DE
3911 47       01525         LD      B,A             ;Set compare length
3912 1A       01526 TSTNAM  LD      A,(DE)          ;Match this driver to
3913 BE       01527         CP      (HL)            ;  resident vector
3914 2018     01528         JR      NZ,NOTRES
3916 13       01529         INC     DE              ;Bump to next char
3917 23       01530         INC     HL
3918 10F8     01531         DJNZ    TSTNAM          ;Loop for name length
              01532 ;Count and save DCT posns w/same driver
391A 3A883B   01533         LD      A,(RESNUM)      ;Get count so far
391D 3C       01534         INC     A
391E 32883B   01535         LD      (RESNUM),A
3921 FDE5     01536         PUSH    IY
3923 E1       01537         POP     HL              ;DCT address
3924 DD7500   01538         LD      (IX),L
3927 DD23     01539         INC     IX
3929 DD7400   01540         LD      (IX),H
392C DD23     01541         INC     IX
              01542 ;
392E 010A00   01543 NOTRES  LD      BC,10
3931 FD09     01544         ADD     IY,BC           ;Move to next DCT posn
3933 C1       01545         POP     BC              ;Recover count
3934 10C7     01546         DJNZ    TSTDCT          ;Do all 8
              01547 ;
3936 3A883B   01548         LD      A,(RESNUM)      ;P/u count
3939 B7       01549         OR      A               ;Any here?
393A C2C033   01550         JP      NZ,USER         ;Get input if resident
              01551 ;*=*=*
              01552 ;If not already loaded, find space 
              01553 ;*=*=*
393D 114B49   01554         LD      DE,'IK'
3940          01555         @@GTDCB                 ;Locate pointer
3940+3E52     01556         LD      A,82
3942+EF       01557         RST     40
3943 C2AD39   01558         JP      NZ,IOERR
3946 2D       01559         DEC     L
3947 56       01560         LD      D,(HL)          ;P/u pointer to
3948 2D       01561         DEC     L               ;  start of free
3949 5E       01562         LD      E,(HL)          ;  low core
394A 22973B   01563         LD      (LCPTR),HL      ;Save ptr for later
394D 214901   01564         LD      HL,DISKEND-DISK-1
3950 19       01565         ADD     HL,DE           ;Start + driver length
3951 220138   01566         LD      (SVEND+1),HL
3954 010013   01567         LD      BC,1300H        ;Max addr + 1
3957 AF       01568         XOR     A
3958 ED42     01569         SBC     HL,BC           ;If space in low mem
395A DAC033   01570         JP      C,USER          ;Go get input for drive
              01571 ;*=*=*
              01572 ;       try high memory
              01573 ;*=*=*
395D          01574         @@FLAGS                 ;IY=>info
395D+3E65     01575         LD      A,101
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00027 

'<Driver Initialization Routines

395F+EF       01576         RST     40
3960 FDCB0246 01577         BIT     0,(IY+'C'-'A')  ;Memory frozen?
3964 2024     01578         JR      NZ,NOROOM       ;Can't
3966 210000   01579         LD      HL,0
3969 45       01580         LD      B,L
396A          01581         @@HIGH$
396A+3E64     01582         LD      A,100
396C+EF       01583         RST     40
396D 220138   01584         LD      (SVEND+1),HL    ;Save top end
3970 014A01   01585         LD      BC,DISKEND-DISK
3973 B7       01586         OR      A
3974 ED42     01587         SBC     HL,BC           ;Minus length
3976 0600     01588         LD      B,0
3978 E5       01589         PUSH    HL
3979          01590         @@HIGH$                 ;Is new high$
3979+3E64     01591         LD      A,100
397B+EF       01592         RST     40
397C E1       01593         POP     HL
397D 23       01594         INC     HL              ;+1 is start
397E 22D239   01595         LD      (HCPTR),HL      ;Save it
3981 21D239   01596         LD      HL,HCPTR
3984 22973B   01597         LD      (LCPTR),HL      ;And point to it
3987 C3C033   01598         JP      USER
              01599 ;*=*=*
              01600 ;       Error exits
              01601 ;*=*=*
398A 21453B   01602 NOROOM  LD      HL,NOROOM$
398D DD       01603         DB      0DDH
398E 21603B   01604 CANTDO  LD      HL,CANTDO$
3991 DD       01605         DB      0DDH
3992 21263B   01606 ABTJOB  LD      HL,ABTJOB$
3995 DD       01607         DB      0DDH
3996 21D23A   01608 NOHEAD  LD      HL,NOHEAD$
3999 DD       01609         DB      0DDH
399A 21F43A   01610 BADTOT  LD      HL,BADTOT$
399D          01611 ABORTL  @@LOGOT
              01612         IFEQ    00H,1
              01613         LD      HL,
              01614         ENDIF
399D+3E0C     01615         LD      A,12
399F+EF       01616         RST     40
39A0          01617 @ABORT  @@CKBRKC
39A0+3E6A     01618         LD      A,106
39A2+EF       01619         RST     40
39A3          01620         @@ABORT                 ;Use abort
39A3+3E15     01621         LD      A,21
39A5+EF       01622         RST     40
39A6 310000   01623 QUIT    LD      SP,$-$
39A7          01624 SPSAV   EQU     $-2
39A9          01625         @@CKBRKC
39A9+3E6A     01626         LD      A,106
39AB+EF       01627         RST     40
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00028 

'<Driver Initialization Routines

39AC C9       01628         RET
39AD 6F       01629 IOERR   LD      L,A
39AE 2600     01630         LD      H,0
39B0 F6C0     01631         OR      0C0H
39B2 4F       01632         LD      C,A
39B3          01633         @@ERROR
39B3+3E1A     01634         LD      A,26
39B5+EF       01635         RST     40
39B6 18E8     01636         JR      @ABORT
39B8 210000   01637 @EXIT   LD      HL,0
39BB 18E9     01638         JR      QUIT
39BD          01639 @DSPLY  @@DSPLY
              01640         IFEQ    00H,1
              01641         LD      HL,
              01642         ENDIF
39BD+3E0A     01643         LD      A,10
39BF+EF       01644         RST     40
39C0 C8       01645         RET     Z
39C1 18EA     01646         JR      IOERR
              01647 ; abort instead or re-prompt if JCL running
39C3 F5       01648 ABTJCL  PUSH    AF
39C4 E5       01649         PUSH    HL
39C5 3A0000   01650         LD      A,($-$)
39C6          01651 SFLAG   EQU     $-2
39C8 CB6F     01652         BIT     5,A             ;JCL active?
39CA 21233A   01653         LD      HL,JCLAB$       ;=>msg
39CD 20CE     01654         JR      NZ,ABORTL       ;Log out
39CF E1       01655          POP     HL              ;Else restore regs
39D0 F1       01656         POP     AF
39D1 C9       01657         RET
              01658 ;*=*=*
              01659 ;       Messages & Data tables
              01660 ;*=*=*
39D2 0000     01661 HCPTR   DW      0               ;Pointer if going to HIGH$
39D4 0A       01662 NOFMT$  DB      LF,'Note: Drive appears to be unformatted.',CR
     4E 6F 74 65 3A 20 44 72
     69 76 65 20 61 70 70 65
     61 72 73 20 74 6F 20 62
     65 20 75 6E 66 6F 72 6D
     61 74 74 65 64 2E 0D 
39FC 0A       01663 HMEM$   DB      LF,'Note:driver installed in high memory.',CR
     4E 6F 74 65 3A 64 72 69
     76 65 72 20 69 6E 73 74
     61 6C 6C 65 64 20 69 6E
     20 68 69 67 68 20 6D 65
     6D 6F 72 79 2E 0D 
3A23 0A       01664 JCLAB$  DB      LF,'Incorrect entry from JCL.',CR
     49 6E 63 6F 72 72 65 63
     74 20 65 6E 74 72 79 20
     66 72 6F 6D 20 4A 43 4C
     2E 0D 
3A3E 48       01665 HEADMP$ DB      'Heads already in use <'
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00029 

'<Driver Initialization Routines

     65 61 64 73 20 61 6C 72
     65 61 64 79 20 69 6E 20
     75 73 65 20 3C 
3A54 2E       01666 INUSE$  DB      '.-.-.-.-.-.-.-.>',CR
     2D 2E 2D 2E 2D 2E 2D 2E
     2D 2E 2D 2E 2D 2E 3E 0D
3A65 45       01667 HEADS$  DB      'Enter number of heads for partition <1-'
     6E 74 65 72 20 6E 75 6D
     62 65 72 20 6F 66 20 68
     65 61 64 73 20 66 6F 72
     20 70 61 72 74 69 74 69
     6F 6E 20 3C 31 2D 
3A8C 58       01668 HEADS1$ DB      'X> ',3
     3E 20 03 
3A90 45       01669 STRTHD$ DB      'Enter starting head: ',3
     6E 74 65 72 20 73 74 61
     72 74 69 6E 67 20 68 65
     61 64 3A 20 03 
3AA6 48       01670 HDBAD$  DB      'Heads requested conflict with '
     65 61 64 73 20 72 65 71
     75 65 73 74 65 64 20 63
     6F 6E 66 6C 69 63 74 20
     77 69 74 68 20 
3AC4 68       01671         DB      'heads in-use.',CR
     65 61 64 73 20 69 6E 2D
     75 73 65 2E 0D 
3AD2 4E       01672 NOHEAD$ DB      'No heads available on that drive.',CR
     6F 20 68 65 61 64 73 20
     61 76 61 69 6C 61 62 6C
     65 20 6F 6E 20 74 68 61
     74 20 64 72 69 76 65 2E
     0D 
3AF4 44       01673 BADTOT$ DB      'Drive has heads in use higher'
     72 69 76 65 20 68 61 73
     20 68 65 61 64 73 20 69
     6E 20 75 73 65 20 68 69
     67 68 65 72 
3B11 20       01674         DB      ' than entered total.',CR
     74 68 61 6E 20 65 6E 74
     65 72 65 64 20 74 6F 74
     61 6C 2E 0D 
3B26 4D       01675 ABTJOB$ DB      'Manual abort - Job terminated.',CR
     61 6E 75 61 6C 20 61 62
     6F 72 74 20 2D 20 4A 6F
     62 20 74 65 72 6D 69 6E
     61 74 65 64 2E 0D 
3B45 4E       01676 NOROOM$ DB      'No memory space available.',CR
     6F 20 6D 65 6D 6F 72 79
     20 73 70 61 63 65 20 61
     76 61 69 6C 61 62 6C 65
     2E 0D 
3B60 52       01677 CANTDO$ DB      'Requested drive slot already in use.',CR
MISOSYS EDAS-4.3 04/11/99 22:24:33 Winchester Driver & Initiali Page 00030 

'<Driver Initialization Routines

     65 71 75 65 73 74 65 64
     20 64 72 69 76 65 20 73
     6C 6F 74 20 61 6C 72 65
     61 64 79 20 69 6E 20 75
     73 65 2E 0D 
3B85 0000     01678         DW      0               ;Slack
3B87 00       01679 MAXHDS  DB      0               ;Total heads on drive
3B88 00       01680 RESNUM  DB      0               ;Count of DCT's using this driver
3B89 0000     01681 DCTPTR  DW      0,0,0,0,0,0,0   ;Addresses
     0000 0000 0000 0000 0000 0000 
3B97 0000     01682 LCPTR   DW      0               ;Save area for low mem ptr address
3B99 0000     01683 DCTADD  DW      0               ;Address for this DCT
3B9B          01684 SECBUF  DS      256             ;Use to log drive
3C9B          01685 KEYBUF$ EQU     $
              01686 ;*=*=*
38C3          01688         END     BEGIN
38C3 is the transfer address
00000 Total errors