home *** CD-ROM | disk | FTP | other *** search
-
- \\ NUMCYLS EQU 80 \\ normal # of cylinders
- \\ MAXCYLS EQU NUMCYLS+20 \\ max # of cyls to look for
- \\ \\ during a calibrate
- \\ NUMHEADS EQU 2
- \\ NUMTRACKS EQU NUMCYLS*NUMHEADS
-
- EQU NUMSECS 11
- EQU NUMUNITS 4
-
- EQU TD_SECTOR 512
- EQU TD_SECSHIFT 9
-
- : TD_NAME " trackdisk.device" drop ;
-
-
- EQU TDF_EXTCOM 1<<15
-
- EQU TD_MOTOR 9+0 ( CMD_NONSTD=9;exec/io )
- EQU TD_SEEK 9+1
- EQU TD_FORMAT 9+2
- EQU TD_REMOVE 9+3
- EQU TD_CHANGENUM 9+4
- EQU TD_CHANGESTATE 9+5
- EQU TD_PROTSTATUS 9+6
- EQU TD_RAWREAD 9+7
- EQU TD_RAWWRITE 9+8
- EQU TD_GETDRIVETYPE 9+9
- EQU TD_GETNUMTRACKS 9+10
- EQU TD_ADDCHANGEINT 9+11
- EQU TD_REMCHANGEINT 9+12
-
- EQU TD_LASTCOMM 9+13
-
- EQU ETD_WRITE (3!TDF_EXTCOM) ( CMD_WRITE=3;exec/io )
- EQU ETD_READ (2!TDF_EXTCOM) ( CMD_READ=2;exec/io )
- EQU ETD_MOTOR (TD_MOTOR!TDF_EXTCOM)
- EQU ETD_SEEK (TD_SEEK!TDF_EXTCOM)
- EQU ETD_FORMAT (TD_FORMAT!TDF_EXTCOM)
- EQU ETD_UPDATE (4!TDF_EXTCOM) ( CMD_UPDATE=4;exec/io )
- EQU ETD_CLEAR (5!TDF_EXTCOM) ( CMD_CLEAR=5;exec/io )
- EQU ETD_RAWREAD (TD_RAWREAD!TDF_EXTCOM)
- EQU ETD_RAWWRITE (TD_RAWWRITE!TDF_EXTCOM)
-
-
- {s IOExtTD
- struct 48 iotd_Req ( { IOStdReq=48;exec/io )
- LONG iotd_Count
- LONG iotd_SecLabel
- s}
-
- EQU IOTDB_INDEXSYNC 4
- EQU IOTDF_INDEXSYNC 1<<4
-
- EQU TD_LABELSIZE 16
-
- EQU TDB_ALLOW_NON_3_5 0
- EQU TDF_ALLOW_NON_3_5 1<<0
-
- EQU DRIVE3_5 1
- EQU DRIVE5_25 2
-
- EQU TDERR_NotSpecified 20
- EQU TDERR_NoSecHdr 21
- EQU TDERR_BadSecPreamble 22
- EQU TDERR_BadSecID 23
- EQU TDERR_BadHdrSum 24
- EQU TDERR_BadSecSum 25
- EQU TDERR_TooFewSecs 26
- EQU TDERR_BadSecHdr 27
- EQU TDERR_WriteProt 28
- EQU TDERR_DiskChanged 29
- EQU TDERR_SeekError 30
- EQU TDERR_NoMem 31
- EQU TDERR_BadUnitNum 32
- EQU TDERR_BadDriveType 33
- EQU TDERR_DriveInUse 34
- EQU TDERR_PostReset 35
-
-
- {s TDU_PublicUnit
- struct 8 tdu_Unit ( { Unit=8;exec/devices )
- WORD tdu_Comp01Track
- WORD tdu_Comp10Track
- WORD tdu_Comp11Track
- LONG tdu_StepDelay
- LONG tdu_SettleDelay
- BYTE tdu_RetryCnt
- s}
-
-