Mercurial > hg > Members > kono > nitros9-code
changeset 2939:011a5f26e9da
rb1773: Fix comments about 135 TPI versus 48 or 96
Some comments were wrong about 48/96/135 TPI.
Some new comments have been added.
There are no code changes in this commit, the assembled binary
should be identical.
author | Robert Gault <robert.gault@att.net> |
---|---|
date | Sat, 25 Jan 2014 23:19:38 +0100 |
parents | c91cd2a9b22a |
children | 824019cd8744 |
files | level1/modules/rb1773.asm |
diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/modules/rb1773.asm Fri Jan 24 22:10:38 2014 +0100 +++ b/level1/modules/rb1773.asm Sat Jan 25 23:19:38 2014 +0100 @@ -420,10 +420,10 @@ beq L0115 No, all drives can read single, skip ahead bitb #DNS.MFM Can our path dsc. handle double density? beq erbtyp No, illegal -L0115 bita #FMT.TDNS Is new disk 96/135 tpi? - beq L011D No, all drives handle 48 tpi, so skip ahead - bitb #DNS.DTD Can path dsc. handle 96/135 tpi? - beq erbtyp No, illegal +L0115 bita #FMT.TDNS Is new disk 96tpi? + beq L011D No, all drives handle 48/135 tpi, so skip ahead + bitb #DNS.DTD Can path dsc. handle 96 tpi? + beq erbtyp No, illegal format L011D bita #FMT.SIDE Is new disk double sided? beq L0128 No, all drives handle single sided, we're done lda <PD.SID,y Get # sides path dsc. can handle @@ -891,10 +891,10 @@ L02CC stb >DPort+WD_Sect Save into Sector register ldx >lastdrv,u Get last drive table accessed ldb <V.TRAK,x Get current track # on device - lda <DD.FMT,x Get drive format specs - lsra Shift track & bit densities to match PD - eora <PD.DNS,y Check for differences with path densities - anda #%00000010 Keep only 48 vs. 96/135 tpi differences + lda <DD.FMT,x Get drive format specs; actually disk format specs RG + lsra Shift track & bit densities to match PD; bit0 is MF or MFM + eora <PD.DNS,y Check for differences with path densities; bit0 is MF MFM, bit1 is 96tpi + anda #%00000010 Keep only 96 tpi pshs a Save differences lda 1,s Get track # back tst ,s+ Are tpi's different? @@ -1363,13 +1363,13 @@ std DD.TOT+1,x Save # sectors allowed on drive lda #UPDAT.+EXEC. Owner's read/write/exec attributes sta DD.ATT,x Set attributes for disk - lda <PD.DNS,y Get density settings + lda <PD.DNS,y Get density settings this should be bit1 96tpi bit0 MF MFM normally is 1 lsla Shift for DD.FMT pshs a Preserve it a sec lda <PD.SID,y Get # sides deca Adjust to base 0 ora ,s+ Merge with density settings - sta <DD.FMT,x Save in device table + sta <DD.FMT,x Save in device table; normally becomes %11 or 3 clrb No error? puls pc,x Restore original LSN & return