Commit c936f6ac authored by Robert Sprowson's avatar Robert Sprowson

Regroup some debug, comment corrections

Switch 'DebugM' now used exclusively for the read cached sectors disc op, and DebugMt for multifs extensions.
Various spelling mistakes corrected in passing.
Same (non debug) binary, retagged as FileCore-3_64.
parent 516293ce
......@@ -137,7 +137,7 @@ DebugK switch {FALSE} ; setting of Interlocks
DebugL switch {FALSE} ; Mounting/Identifying/Dismounting/Verifying
DebugLi switch {FALSE} ; Changes to DiscId information in disc records
DebugLm switch {FALSE} ; matching disc against other records
DebugM switch {FALSE} ; MultiFS extensions
DebugM switch {FALSE} ; CachedReadSector disc op
DebugMt switch {FALSE} ; MultiFS extensions (terse)
DebugN switch {FALSE} ; Disc insertion / request for insertion thread
DebugO switch {FALSE} ; MultiFS extensions - formatting SWIs
......
......@@ -156,6 +156,7 @@ Uncertain bit 7 ; Contents of disc in drive uncertain - may have a disc
Unknown bit 6 ; Contents of disc in drive not known (no attached disc record)
Empty bit 5 ; Disc definitely not in drive
Full bit 4 ; Disc definitely in drive, but no disc record attached to drive
; bits 0-2 contains the disc record number for disc believed to be in this drive
DrvFlags # 1 ; Flags about drive
HasDefectList bit 0 ; Set if drive has a defect list
......
......@@ -1080,7 +1080,7 @@ DoCachedReadSecs ROUT
DoCachedReadSector ROUT
Push "r0-r1,r7-r11,LR"
[ DebugMt
[ DebugM
DREG r1,"CacheReadSector(",cc
DREG r2,",",cc
DREG r3,",",cc
......@@ -1117,7 +1117,7 @@ DoCachedReadSector ROUT
TST LR, #DiscRecord_SequenceSides_Flag
BEQ %FT05
; Split the track into cylander and side if sides are sequenced in user's space
; Split the track into cylinder and side if sides are sequenced in user's space
; R10 = cylinders per disc
LDRB LR, [R5, #DiscRecord_Heads]
......@@ -1152,7 +1152,7 @@ DoCachedReadSector ROUT
B %FT10
05
; split the track into cylander and side if the sides are interleaved in user's space
; split the track into cylinder and side if the sides are interleaved in user's space
; R9 = side (remainder after division by #sides (= #Heads)
; R7 = cylinder
......@@ -1411,7 +1411,7 @@ DoCachedReadSector ROUT
MOV R4, #0 ; bytes left
60
; Loose stack frame
; Lose stack frame
ADD SP, SP, R10
B %FT95
......@@ -1420,7 +1420,7 @@ DoCachedReadSector ROUT
BL SetV
95
STRVS R0, [SP]
[ DebugMt
[ DebugM
DREG r2,")->(",cc
DREG r3,",",cc
......@@ -1450,7 +1450,7 @@ DoCachedReadSector ROUT
DoCachedReadSector ROUT
Push "r0-r1,r7-r11,LR"
[ DebugMt
[ DebugM
DREG r1,"CacheReadSector(",cc
DREG r2,",",cc
DREG r3,",",cc
......@@ -1493,7 +1493,7 @@ DoCachedReadSector ROUT
TST LR, #DiscRecord_SequenceSides_Flag
BEQ %FT05
; Split the track into cylander and side if sides are sequenced in user's space
; Split the track into cylinder and side if sides are sequenced in user's space
; R10 = cylinders per disc
LDRB LR, [R5, #DiscRecord_Heads]
......@@ -1516,7 +1516,7 @@ DoCachedReadSector ROUT
B %FT10
05
; split the track into cylander and side if the sides are interleaved in user's space
; split the track into cylinder and side if the sides are interleaved in user's space
; R9 = side (remainder after division by #sides (= #Heads)
; R7 = cylinder
......@@ -1789,7 +1789,7 @@ DoCachedReadSector ROUT
MOV R4, #0 ; bytes left
60
; Loose stack frame
; Lose stack frame
ADD SP, SP, R10
B %FT95
......@@ -1798,7 +1798,7 @@ DoCachedReadSector ROUT
BL SetV
95
STRVS R0, [SP]
[ DebugMt
[ DebugM
DREG r2,")->(",cc
DREG r3,",",cc
......
......@@ -616,7 +616,7 @@ UpCall
; Historically, FileCore ignored the media type string. ADFS and SCSIFS
; provided it (at least as far back as CVS goes) but didn't
; internationalise it. RAMFS doesn't provide it (bit it specifies a
; internationalise it. RAMFS doesn't provide it (but it specifies a
; zero timeout so we don't get this far). Let's be paranoid and check
; that it looks like a valid string, and if it's the string "disc" then
; assume it's not internationalised and look it up in FileCore's messages.
......
......@@ -1109,7 +1109,7 @@ DoOsFunCanonicaliseSpecialAndDisc ROUT
DoOsFunResolveWildcard ROUT
Push "r0-r11,lr"
[ DebugM
[ DebugMt
DSTRING r3, "Looking up ",cc
DSTRING r1, " in "
]
......@@ -1119,7 +1119,7 @@ DoOsFunResolveWildcard ROUT
BVC %FT30
; Error looking up directory - check whether it was not found, or something worse
CMP r0, #NotFoundErr ; Loose the V bit here
CMP r0, #NotFoundErr ; Lose the V bit here
BEQ %FT40
SETV
......@@ -1157,7 +1157,7 @@ DoOsFunResolveWildcard ROUT
50
; Entry found - copy it
ADD r4, r4, #DirObName
[ DebugM
[ DebugMt
DSTRING r4, "Entry found of value "
]
; Get mask
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment