1 ; -*- coding: utf-8 -*-
2 ; forthMSP430FR_SD_LOAD.asm
4 ; Tested with MSP-EXP430FR5969 launchpad
5 ; Copyright (C) <2017> <J.M. THOORENS>
7 ; This program is free software: you can redistribute it and/or modify
8 ; it under the terms of the GNU General Public License as published by
9 ; the Free Software Foundation, either version 3 of the License, or
10 ; (at your option) any later version.
12 ; This program is distributed in the hope that it will be useful,
13 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ; GNU General Public License for more details.
17 ; You should have received a copy of the GNU General Public License
18 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
21 ; used variables : BufferPtr, BufferLen
23 ;-----------------------------------------------------------------------
24 ; SD card OPEN, LOAD subroutines
25 ;-----------------------------------------------------------------------
27 ; rules for registers use
29 ; T = CurrentHdl, pathname
30 ; W = SectorL, (RTC) TIME
31 ; X = SectorH, (RTC) DATE
32 ; Y = BufferPtr, (DIR) EntryOfst, FAToffset
35 ; ----------------------------------;
36 HDLCurClusToFAT1sectWofstY ;WXY Input: T=currentHandle, Output: W=FATsector, Y=FAToffset, Cluster=HDL_CurCluster
37 ; ----------------------------------;
38 MOV HDLL_CurClust(T),&ClusterL ;
39 MOV HDLH_CurClust(T),&ClusterH ;
40 ; ----------------------------------;
41 ClusterToFAT1sectWofstY ;WXY Input : Cluster ; Output: W = FATsector, Y = FAToffset
42 ; ----------------------------------;
43 MOV.B &ClusterL+1,W ;3 W = ClusterLoHI
44 MOV.B &ClusterL,Y ;3 Y = ClusterLoLo
45 CMP #1,&FATtype ;3 FAT16?
48 ; input : Cluster n, max = 7FFFFF (SDcard up to 256 GB)
49 ; ClusterLoLo*4 = displacement in 512 bytes sector ==> FAToffset
50 ; ClusterHiLo&ClusterLoHi +C << 1 = relative FATsector + orgFAT1 ==> FATsector
51 ; ----------------------------------;
52 MOV.B &ClusterH,X ; X = 0:ClusterHiLo
53 SWPB X ; X = ClusterHiLo:0
54 ADD X,W ; W = ClusterHiLo:ClusterLoHi
55 ; ----------------------------------;
56 SWPB Y ; Y = ClusterLoLo:0
57 ADD Y,Y ;1 Y = ClusterLoLo:0 << 1 + carry for FATsector
58 ADDC W,W ; W = ClusterHiLo:ClusterLoHi << 1 = ClusterHiLo:ClusterL / 128
61 ADD Y,Y ; Y = 0:ClusterLoLo << 1
63 ; ----------------------------------;
67 ; ----------------------------------; Input : Cluster, output: Sector = Cluster_first_sector
68 ComputeClusFrstSect ; If Cluster = 1 ==> RootDirectory ==> SectorL = OrgRootDir
69 ; ----------------------------------; Output: SectorL of Cluster
71 MOV &OrgRootDir,&SectorL ;
72 CMP.B #0,&ClusterH ; clusterH <> 0 ?
73 JNE CCFS_AllOthers ; yes
74 CMP #1,&ClusterL ; clusterHL = 1 ? (FAT16 specificity)
75 JZ CCFS_RET ; yes, sectorL for FAT16 OrgRootDIR is done
77 ; ----------------------------------;
78 .IFDEF MPY ; general case
79 ; ----------------------------------;
80 MOV &ClusterL,&MPY32L ;3
81 MOV &ClusterH,&MPY32H ;3
82 MOV &SecPerClus,&OP2 ;5+3
85 ADD &OrgClusters,&SectorL ;5 OrgClusters = sector of virtual cluster 0, word size
86 ADDC #0,&SectorH ;3 32~
87 ; ----------------------------------;
88 .ELSEIF ; case of no hardware multiplier
89 ; ----------------------------------; Cluster24<<SecPerClus{1,2,4,8,16,32,64} --> ClusFrstSect
90 ; .word 0152Ah ;6 PUSHM W,X,Y
92 MOV.B &SecPerClus,W ;3 SecPerClus(5-1) = multiplicator
93 MOV &ClusterL,X ;3 Cluster(16-1) --> MULTIPLICANDlo
94 MOV.B &ClusterH,Y ;3 Cluster(21-17) --> MULTIPLICANDhi
96 ; JC CCFS_NEXT ;2 case of SecPerClus=1
99 ADD X,X ;1 (RLA) shift one left MULTIPLICANDlo16
100 ADDC Y,Y ;1 (RLC) shift one left MULTIPLICANDhi8
102 RRA W ;1 shift one right multiplicator
103 JNC CCFS_LOOP ;2 C = 0 loop back
104 CCFS_NEXT ; C = 1, it's done
105 ADD &OrgClusters,X ;3 OrgClusters = sector of virtual cluster 0, word size
107 MOV X,&SectorL ;3 low result
108 MOV Y,&SectorH ;3 high result
109 ; .word 01728h ;6 POPM Y,X,W
111 ; ----------------------------------;34~ + 5~ by loop
113 ; ----------------------------------;
116 ; ----------------------------------;
119 ; ----------------------------------;
120 ComputeHDLcurrentSector ; input: currentHandle, output: Cluster, Sector
121 ; ----------------------------------;
122 MOV HDLL_CurClust(T),&ClusterL;
123 MOV HDLH_CurClust(T),&ClusterH;
124 CALL #ComputeClusFrstSect ;
125 MOV.B HDLB_ClustOfst(T),W ;
129 ; ----------------------------------;
134 ; ----------------------------------; input : X = countdown_of_spaces, Y = name pointer in buffer
135 ParseEntryNameSpaces ;XY
136 ; ----------------------------------; output: Z flag, Y is set after the last space char
139 ; ----------------------------------;
140 ParseEntryNameSpacesLoop ;
141 ; ----------------------------------;
142 CMP.B #32,SD_BUF(Y) ; SPACE ?
143 JNZ PENSL_END ; no: RET
146 JNZ ParseEntryNameSpacesLoop;
149 ; ----------------------------------;
152 ; sequentially load in SD_BUF bytsPerSec bytes of a file opened as read or as load
153 ; if previous bufferLen had a size < bytsPerSec, closes the file.
154 ; if new bufferLen have a size <= BufferPtr, closes the file.
155 ; reload previous LOADed file if exist.
156 ; HDLL_CurSize leaves the not yet read size
157 ; All used registers must be initialized.
158 ; ==================================;
159 Read_File ; <== SD_ACCEPT, READ
160 ; ==================================;
162 MOV #0,&BufferPtr ; reset BufferPtr (the buffer is already read)
163 CMP #bytsPerSec,&BufferLen ;
164 JNZ CloseHandleT ; because this last and incomplete sector is already read
165 SUB #bytsPerSec,HDLL_CurSize(T) ; HDLL_CurSize is decremented of one sector lenght
166 SUBC #0,HDLH_CurSize(T) ;
167 ADD.B #1,HDLB_ClustOfst(T) ; current cluster offset is incremented
168 CMP.B &SecPerClus,HDLB_ClustOfst(T) ; Cluster Bound reached ?
169 JLO SetBufLenAndLoadCurSector ; no
170 ; ----------------------------------;
171 ;SearchNextCluster ; yes
172 ; ----------------------------------;
173 MOV.B #0,HDLB_ClustOfst(T) ; reset Current_Cluster sectors offset
174 CALL #HDLCurClusToFAT1sectWofstY;WXY Output: W=FATsector, Y=FAToffset, Cluster=HDL_CurCluster
175 CALL #ReadFAT1SectorW ;SWX (< 65536)
176 MOV #0,HDLH_CurClust(T) ;
177 MOV SD_BUF(Y),HDLL_CurClust(T) ;
178 CMP #1,&FATtype ; FAT16?
179 JZ SetBufLenAndLoadCurSector ;
180 MOV SD_BUF+2(Y),HDLH_CurClust(T);
181 ; ==================================;
182 SetBufLenAndLoadCurSector ;WXY <== previous handle reLOAD
183 ; ==================================;
184 MOV #bytsPerSec,&BufferLen ; preset BufferLen
185 CMP #0,HDLH_CurSize(T) ; CurSize > 65535 ?
186 JNZ LoadHDLcurrentSector ; yes
187 CMP HDLL_CurSize(T),&BufferPtr ; BufferPtr >= CurSize ? (BufferPtr = 0 or see RestorePreviousLoadedFileContext)
188 JHS CloseHandleT ; yes
189 CMP #bytsPerSec,HDLL_CurSize(T) ; CurSize >= 512 ?
190 JHS LoadHDLcurrentSector ; yes
191 MOV HDLL_CurSize(T),&BufferLen ; no: adjust BufferLen
192 ; ==================================;
193 LoadHDLcurrentSector ; <=== OPEN_WRITE_APPEND
194 ; ==================================;
195 CALL #ComputeHDLcurrentSector ; use no registers
196 ; ==================================;
198 ; ==================================;
200 MOV &SectorH,X ; High
201 JMP ReadSectorWX ; then RET
202 ; ----------------------------------;
205 ; if first open_load token, save DefaultInputStream
206 ; if other open_load token, decrement token, save previous context
209 ; Input : EntryOfst, Cluster = EntryOfst(HDLL_FirstClus())
210 ; init handle(HDLL_DIRsect,HDLW_DIRofst,HDLL_FirstClus,HDLL_CurClust,HDLL_CurSize)
211 ; Output: Cluster = first Cluster of file, X = CurrentHdl
212 ; ----------------------------------; input : Cluster, EntryOfst
213 GetFreeHandle ;STWXY init handle(HDLL_DIRsect,HDLW_DIRofst,HDLL_FirstClus = HDLL_CurClust,HDLL_CurSize)
214 ; ----------------------------------; output : T = new CurrentHdl
215 MOV #8,S ; prepare file already open error
217 MOV #0,X ; X = init previous handle as 0
218 ; ----------------------------------;
220 ; ----------------------------------;
221 CMP.B #0,HDLB_Token(T) ; free handle ?
222 JZ FreeHandleFound ; yes
224 CMP &ClusterH,HDLH_FirstClus(T);
225 JNE SearchNextHandle ;
226 CMP &ClusterL,HDLL_FirstClus(T);
227 JZ InitHandleRET ; error 8: Already Open abort ===>
229 MOV T,X ; handle is occupied, keep it in X as previous handle
230 ADD #HandleLenght,T ;
232 JNZ SearchHandleLoop ;
233 ADD S,S ; 16 = no more handle error, abort ===>
236 ; ----------------------------------;
237 FreeHandleFound ; T = new handle, X = previous handle
238 ; ----------------------------------;
239 MOV #0,S ; prepare Happy End (no error)
241 MOV X,HDLW_PrevHDL(T) ; link to previous handle
242 ; ----------------------------------;
243 CheckCaseOfLoadFileToken ;
244 ; ----------------------------------;
245 CMP.B #0,X ; existing previous handle?
247 ADD &TOIN,HDLW_BUFofst(X) ; in previous handle, add interpret offset to Buffer offset
248 CMP.B #0,W ; open_type is LOAD (-1) ?
249 JGE InitHandle ; W>=0, no
250 CMP.B #0,HDLB_Token(X) ; previous token is negative? (open_load type)
252 ADD.B HDLB_Token(X),W ; LOAD token = previous LOAD token -1
253 ; ----------------------------------;
255 ; ----------------------------------;
256 MOV.B W,HDLB_Token(T) ; marks handle as open type: <0=LOAD, 1=READ, 2=WRITE, 4=DEL
257 MOV.B #0,HDLB_ClustOfst(T) ; clear ClustOfst
258 MOV &SectorL,HDLL_DIRsect(T); init handle DIRsectorL
259 MOV &SectorH,HDLH_DIRsect(T);
261 MOV Y,HDLW_DIRofst(T) ; init handle SD_BUF offset of DIR entry
262 MOV SD_BUF+26(Y),HDLL_FirstClus(T); init handle firstcluster of file (to identify file)
263 MOV SD_BUF+20(Y),HDLH_FirstClus(T)
264 MOV SD_BUF+26(Y),HDLL_CurClust(T) ; init handle CurrentCluster
265 MOV SD_BUF+20(Y),HDLH_CurClust(T)
266 MOV SD_BUF+28(Y),HDLL_CurSize(T); init handle LOW currentSizeL
267 MOV SD_BUF+30(Y),HDLH_CurSize(T);
268 MOV #0,&BufferPtr ; reset BufferPtr all type of files
269 CMP.B #2,W ; is a WRITE file handle?
270 JZ ComputeHDLcurrentSector ; = 2, is a WRITE file
271 JGE InitHandleRET ; > 2, is a file to be deleted
272 MOV #0,HDLW_BUFofst(T) ; < 2, is a READ or a LOAD file
274 JZ ReplaceInputBuffer ; case of first loaded file
275 JL SaveBufferContext ; case of other loaded file
276 JMP SetBufLenAndLoadCurSector ; case of READ file
277 ; ----------------------------------;
279 ; ----------------------------------;
280 MOV #SDIB_ORG,&FCIB+2 ; set SD Input Buffer as Current Input Buffer before return to QUIT
281 MOV #SD_ACCEPT,&ACCEPT+2 ; redirect ACCEPT to SD_ACCEPT before return to QUIT
282 MOV #LOAD_STACK,&LOADPTR ; init LOADPTR
283 ; ----------------------------------;
284 SaveBufferContext ; CPL is same, not saved
285 ; ----------------------------------;
288 MOV &TOIN,X ;3 X = >IN (pointing after the file to load filename)
289 MOV &SOURCE_LEN,W ;3 W = CPL
290 SUB X,W ;1 W = CPL - >IN
291 MOV W,0(Y) ;3 save remaining lenght to be interpreted (see CloseHandleT)
292 ADD &SOURCE_ADR,X ;3 X = CIB + >IN
293 MOV X,2(Y) ;5 save ORG
294 MOV IP,4(Y) ;3 save IP
295 JMP SetBufLenAndLoadCurSector ; then RET
296 ; ----------------------------------;
299 ; ==================================;
300 CloseHandleT ; <== CLOSE, Read_File, TERM2SD", OPEN_DEL
301 ; ==================================;
303 CMP #0,T ; no handle?
304 JZ InitHandleRET ; RET
305 ; ----------------------------------;
306 .IFDEF SD_CARD_READ_WRITE
307 CMP.B #2,HDLB_Token(T) ; open as write (updated) file ?
308 JNZ CloseHandleHere ; no
309 CALL #WriteBuffer ;SWXY
310 CALL #OPWW_UpdateDirectory ;SWXY
312 ; ----------------------------------;
314 ; ----------------------------------;
315 MOV.B HDLB_Token(T),W ; to test W=token below
316 MOV.B #0,HDLB_Token(T) ; close handle
317 ; ----------------------------------;
318 MOV T,X ; X = closed handle
319 MOV @T,T ; T = previous handle
320 MOV T,&CurrentHdl ; becomes current handle
321 ; ----------------------------------;
322 CheckCaseOfCloseLoadedFile ;
323 ; ----------------------------------;
325 JNZ CheckPreviousLoadedFile ;
326 ; ----------------------------------;
327 RestorePreviousBuffer ; W=-1: this LOADed file to close had not a parent file
328 ; ----------------------------------;
329 MOV #TIB_ORG,&FCIB+2 ; restore TIB as Current Input Buffer for next line (next QUIT)
330 MOV #BODYACCEPT,&ACCEPT+2 ; restore (ACCEPT) for next line (next QUIT)
331 JMP RestoreBufferContext ;
332 ; ----------------------------------;
333 CheckPreviousLoadedFile ;
334 ; ----------------------------------;
335 CMP #0,T ; previous handle ?
336 JZ InitHandleRET ; no
337 CMP.B #0,HDLB_Token(T) ; test previous handle token
338 JGE InitHandleRET ; case of READ, WRITE, DEL without previous loaded file
339 ; ----------------------------------;
340 RestorePreviousLoadedFileContext ; here the calling routine is always SD_ACCEPT
341 ; ----------------------------------;
342 MOV HDLW_BUFofst(T),&BufferPtr ; restore previous BufferPtr
343 CALL #SetBufLenAndLoadCurSector ;
344 ; ----------------------------------;
345 RestoreBufferContext ; -- org CPL len' R-- CIB_PTR RET_to_SD_ACCEPT
346 ; ----------------------------------;
347 ADD #4,RSP ; remove RET_to_SD_ACCEPT and CIB ptr from return stack
348 ADD #2,PSP ; -- org len' current values
349 ; ----------------------------------;
353 MOV @W+,0(PSP) ; -- org len' previous values
355 mNEXT ; return to interpret
356 ; ----------------------------------;
359 .IFDEF SD_CARD_READ_WRITE
361 ;-----------------------------------------------------------------------
362 ; SD_READ_WRITE FORTH words
363 ;-----------------------------------------------------------------------
366 ; parse string until " is encountered, convert counted string in String
367 ; then parse string until char '0'.
368 ; media identifiers "A:", "B:" ... are ignored (only one SD_Card),
369 ; char "\" as first one initializes rootDir as SearchDir.
370 ; if file found, if not already open and if free handle...
371 ; ...open the file as read and return the handle in CurrentHdl.
372 ; then load first sector in buffer, bufferLen and bufferPtr are ready for read
373 ; currentHdl keep handle that is flagged as "read".
375 ; to read sequentially next sectors use READ word. A flag is returned : true if file is closed.
376 ; the last sector so is in buffer.
378 ; if pathname is a directory, change current directory.
379 ; if an error is encountered, no handle is set, error message is displayed.
381 ; READ" acts also as CD dos command :
382 ; - READ" a:\misc\" set a:\misc as current directory
383 ; - READ" a:\" reset current directory to root
384 ; - READ" ..\" change to parent directory
386 ; to close all files type : WARM (or COLD, RESET)
388 ; ----------------------------------;
389 FORTHWORDIMM "READ\34" ; immediate
390 ; ----------------------------------;
392 MOV.B #1,W ; W = OpenType
394 ; ----------------------------------;
396 ;Z WRITE" pathame" -- immediate
397 ; open or create the file designed by pathname.
398 ; an error occurs if the file is already opened.
399 ; the last sector of the file is loaded in buffer, and bufferPtr leave the address of the first free byte.
400 ; compile state : compile WRITE" pathname"
401 ; exec state : open or create entry selected by pathname
402 ; ----------------------------------;
403 FORTHWORDIMM "WRITE\34" ; immediate
404 ; ----------------------------------;
406 MOV.B #2,W ; W = OpenType
408 ; ----------------------------------;
411 ;Z DEL" pathame" -- immediate
412 ; compile state : compile DEL" pathname"
413 ; exec state : DELETE entry selected by pathname
415 ; ----------------------------------;
416 FORTHWORDIMM "DEL\34" ; immediate
417 ; ----------------------------------;
419 MOV.B #4,W ; W = OpenType
421 ; ----------------------------------;
425 ; close current handle
426 ; ----------------------------------;
428 ; ----------------------------------;
431 ; ----------------------------------;
433 .ENDIF ; SD_CARD_READ_WRITE
435 ;-----------------------------------------------------------------------
436 ; SD_CARD_LOADER FORTH word
437 ;-----------------------------------------------------------------------
439 ;Z LOAD" pathame" -- immediate
440 ; compile state : compile LOAD" pathname"
441 ; exec state : open a file from SD card via its pathname
442 ; see Open_File primitive for pathname conventions
443 ; the opened file becomes the new input stream for INTERPRET
444 ; this command is recursive, limited only by the count of free handles (up to 8)
445 ; LOAD" acts also as dos command "CD" :
446 ; - LOAD" \misc\" set a:\misc as current directory
447 ; - LOAD" \" reset current directory to root
448 ; - LOAD" ..\" change to parent directory
450 ; ----------------------------------;
451 FORTHWORDIMM "LOAD\34" ; immediate
452 ; ----------------------------------;
453 MOV.B #-1,W ; W = OpenType
454 ; ----------------------------------;
457 ; ======================================================================
458 ; OPEN FILE primitive
459 ; ======================================================================
461 ; primitive for LOAD" READ" CREATE" WRITE" DEL"
462 ; store OpenType on TOS,
463 ; compile state : compile OpenType, compile SQUOTE and the string of provided pathname
464 ; exec state : open a file from SD card via its pathname
465 ; convert counted string found at HERE in a String then parse it
466 ; media identifiers "A:", "B:" ... are ignored (only one SD_Card),
467 ; char "\" as first one initializes rootDir as SearchDir.
468 ; if file found, if not already open and if free handle...
469 ; ...open the file as read and return the handle in CurrentHdl.
470 ; if the pathname is a directory, change current directory, no handle is set.
471 ; if an error is encountered, no handle is set, an error message is displayed.
472 ; ----------------------------------;
474 ; ----------------------------------;
477 MOV W,TOS ; -- Open_type (0=LOAD", 1=READ", 2=WRITE", 4=DEL")
480 ; ----------------------------------;
482 mDOCOL ; if compile state
483 .word lit,lit,COMMA,COMMA ; compile open_type as literal
484 .word SQUOTE ; compile string_exec + string
485 .word lit,ParenOpen,COMMA ; compile (OPEN)
487 ; ----------------------------------;
489 mDOCOL ; if exec state
490 .word lit,'"',WORDD,COUNT ; -- open_type addr u
493 ; ----------------------------------;
494 ParenOpen ; -- open_type HERE HERE as pathname ptr
495 ; ----------------------------------;
496 MOV @PSP+,rDOCON ; rDOCON = addr = pathname PTR
497 ADD rDOCON,TOS ; TOS = EOS (End Of String) = pathname end
498 .IFDEF SD_CARD_READ_WRITE ;
499 MOV TOS,&EndOfPath ; for WRITE CREATE part
501 ; ----------------------------------;
503 ; ----------------------------------;
505 MOV &DIRClusterL,&ClusterL ;
506 MOV &DIRclusterH,&ClusterH ;
507 CMP rDOCON,TOS ; PTR = EOS ? (end of pathname ?)
508 JZ OPN_NoPathName ; yes: error 1 ===>
509 ; ----------------------------------;
510 CMP.B #':',1(rDOCON) ; A: B: C: ... in pathname ?
511 JNZ OPN_AntiSlashStartTest ; no
512 ADD #2,rDOCON ; yes : skip drive because not used, only one SD_card
513 ; ----------------------------------;
514 OPN_AntiSlashStartTest ;
515 CMP.B #'\\',0(rDOCON) ; "\" as first char ?
516 JNZ OPN_SearchDirSector ; no
517 ADD #1,rDOCON ; yes : skip '\' char
518 MOV &FATtype,&ClusterL ; FATtype = 1 as FAT16 RootDIR, FATtype = 2 = FAT32RootDIR
520 ; ----------------------------------;
521 OPN_EndOfStringTest ; <=== dir found in path
522 ; ----------------------------------;
523 CMP rDOCON,TOS ; PTR = EOS ? (end of pathname ?)
524 JZ OPN_SetCurrentDIR ; yes
525 ; ----------------------------------;
526 OPN_SearchDirSector ;
527 ; ----------------------------------;
528 MOV rDOCON,&Pathname ; save Pathname ptr
529 CALL #ComputeClusFrstSect ; output: SectorHL
530 MOV #32,rDODOES ; preset countdown for FAT16 RootDIR sectors
531 CMP #2,&FATtype ; FAT32?
532 JZ OPN_SetDirSectors ; yes
533 CMP &ClusterL,&FATtype ; FAT16 AND RootDIR ?
534 JZ OPN_LoadDIRsector ; yes
536 MOV &SecPerClus,rDODOES ;
537 ; ----------------------------------;
538 OPN_LoadDIRsector ; <=== Dir Sector loopback
539 ; ----------------------------------;
540 CALL #ReadSector ;SWX
541 ; ----------------------------------;
542 MOV #2,S ; prepare no such file error
543 MOV #0,W ; init entries count
544 ; ----------------------------------;
545 OPN_SearchDIRentry ; <=== DIR Entry loopback
546 ; ----------------------------------;
548 ; .word 0E58h ; 5 RLAM #4,Y --> * 16
551 MOV Y,&EntryOfst ; EntryOfst points to first free entry
552 CMP.B #0,SD_BUF(Y) ; free entry ? (end of entries in DIR)
553 JZ OPN_NoSuchFile ; error 2 NoSuchFile, used by create ===>
554 MOV #8,X ; count of chars in entry name
555 ; ----------------------------------;
556 OPN_CompareName8chars ;
557 ; ----------------------------------;
558 CMP.B @rDOCON+,SD_BUF(Y) ; compare Pathname(char) with DirEntry(char)
559 JNZ OPN_FirstCharMismatch ;
562 JNZ OPN_CompareName8chars ; loopback if chars 1 to 7 of string and DirEntry are equal
563 ADD #1,rDOCON ; 9th char of Pathname is always a dot
564 ; ----------------------------------;
565 OPN_FirstCharMismatch ;
566 CMP.B #'.',-1(rDOCON) ; FirstNotEqualChar of Pathname = dot ?
568 ; ----------------------------------;
570 ; ----------------------------------;
571 ADD #3,X ; for next cases not equal chars of entry until 11 must be spaces
572 CALL #ParseEntryNameSpaces ; for X + 3 chars
573 JNZ OPN_DIRentryMismatch ; if a char entry <> space
574 CMP.B #'\\',-1(rDOCON) ; FirstNotEqualChar of Pathname = "\" ?
576 CMP rDOCON,TOS ; EOS exceeded ?
577 JLO OPN_EntryFound ; yes
578 ; ----------------------------------;
579 OPN_DIRentryMismatch ;
580 ; ----------------------------------;
581 MOV &pathname,rDOCON ; reload Pathname
583 CMP #16,W ; 16 entry in a sector
584 JNZ OPN_SearchDIRentry ; ===> loopback for search next DIR entry
585 ; ----------------------------------;
588 SUB #1,rDODOES ; dec count of Dir sectors
589 JNZ OPN_LoadDIRsector ; ===> loopback for search next DIR sector
590 ; ----------------------------------;
592 JMP OPN_EndOfDIR ; error 4 ===>
593 ; ----------------------------------;
595 ; ----------------------------------;
596 OPN_DotFound ; not equal chars of entry name until 8 must be spaces
597 ; ----------------------------------;
598 CMP.B #'.',-2(rDOCON) ; LastCharEqual = dot ?
599 JZ OPN_DIRentryMismatch ; case of first DIR entry = "." and Pathname = "..\"
600 CALL #ParseEntryNameSpaces ; parse X spaces, X{0,...,7}
601 JNZ OPN_DIRentryMismatch ; if a char entry <> space
603 ; ----------------------------------;
604 OPN_CompareExt3chars ;
605 ; ----------------------------------;
606 CMP.B @rDOCON+,SD_BUF(Y) ; compare string(char) with DirEntry(char)
607 JNZ OPN_ExtNotEqualChar ;
610 JNZ OPN_CompareExt3chars ; nothing to do if chars equal
612 OPN_ExtNotEqualChar ;
613 CMP rDOCON,TOS ; EOS exceeded ?
614 JHS OPN_DIRentryMismatch ; no, loop back
615 CMP.B #'\\',-1(rDOCON) ; FirstNotEqualChar = "\" ?
616 JNZ OPN_DIRentryMismatch ;
617 CALL #ParseEntryNameSpaces ; parse X spaces, X{0,...,3}
618 JNZ OPN_DIRentryMismatch ; if a char entry <> space, loop back
619 ; ----------------------------------;
620 OPN_EntryFound ; Y points on the file attribute (11th byte of entry)
621 ; ----------------------------------;
622 MOV &EntryOfst,Y ; reload DIRentry
623 MOV SD_BUF+26(Y),&ClusterL ; first clusterL of file
624 MOV SD_BUF+20(Y),&ClusterH ; first clusterT of file, always 0 if FAT16
626 BIT.B #10h,SD_BUF+11(Y) ; test if Directory or File
628 ; ----------------------------------;
629 OPN_DIRfound ; entry is a DIRECTORY
630 ; ----------------------------------;
631 CMP #0,&ClusterH ; case of ".." entry, when parent directory is root
632 JNZ OPN_DIRfoundNext ;
633 CMP #0,&ClusterL ; case of ".." entry, when parent directory is root
634 JNZ OPN_DIRfoundNext ;
635 MOV &FATtype,&ClusterL ; set cluster as RootDIR cluster
637 CMP rDOCON,TOS ; EOS exceeded ?
638 JHS OPN_EndOfStringTest ; no: (we presume that FirstNotEqualChar = "\") ==> loop back
639 ; ----------------------------------;
640 OPN_SetCurrentDIR ; -- open_type ptr
641 ; ----------------------------------;
642 MOV &ClusterL,&DIRClusterL ;
643 MOV &ClusterH,&DIRclusterH ;
644 MOV #0,0(PSP) ; -- open_type ptr open_type = 0
646 ; ----------------------------------;
647 OPN_FileFound ; -- open_type ptr
648 ; ----------------------------------;
650 CALL #GetFreeHandle ;STWXY init handle(HDLL_DIRsect,HDLW_DIRofst,HDLL_FirstClus = HDLL_CurClust,HDLL_CurSize)
651 ; ----------------------------------; output : T = CurrentHdl*, S = ReturnError, Y = DIRentry offset
652 OPN_NomoreHandle ; S = error 16
653 OPN_alreadyOpen ; S = error 8
654 OPN_EndOfDIR ; S = error 4
655 OPN_NoSuchFile ; S = error 2
656 OPN_NoPathName ; S = error 1
658 MOV #xdodoes,rDODOES ; restore rDODOES
659 MOV #xdocon,rDOCON ; restore rDODOES
660 MOV @PSP+,W ; -- ptr W = open_type
662 ; ----------------------------------; then go to selected OpenType subroutine (OpenType = W register)
665 ; ======================================================================
666 ; LOAD" primitive as part of Open_File
667 ; input from open: S = OpenError, W = open_type, SectorHL = DIRsectorHL,
668 ; Buffer = [DIRsector], ClusterHL = FirstClusterHL
669 ; from open(GetFreeHandle): Y = DIRentry, T = CurrentHdl
670 ; output: nothing else abort on error
671 ; ======================================================================
673 ; ----------------------------------;
675 ; ----------------------------------;
677 JZ OPEN_LOAD_END ; nothing to do
678 ; ----------------------------------;
680 ; ----------------------------------;
681 .IFDEF SD_CARD_READ_WRITE ;
682 CMP.B #-1,W ; open_type = LOAD"
683 JNZ OPEN_QREAD ; next step
685 ; ----------------------------------; here W is free
687 ; ----------------------------------;
688 CMP #0,S ; open file happy end ?
690 MOV @RSP+,IP ; return to sender (QUIT) to get new line.
693 ; ----------------------------------;
695 ; ----------------------------------;
696 OPEN_Error ; S= error
697 ; ----------------------------------;
698 ; Error 1 : PathNameNotFound ; S = error 1
699 ; Error 2 : NoSuchFile ; S = error 2
700 ; Error 4 : DIRisFull ; S = error 4
701 ; Error 8 : alreadyOpen ; S = error 8
702 ; Error 16 : NomoreHandle ; S = error 16
703 ; ----------------------------------;
704 mDOCOL ; set ECHO, type Pathname, type #error, type "< OpenError"; no return
706 .byte 11,"< OpenError" ;
709 .word HERE,COUNT,TYPE,SPACE ;
710 .word BRAN,SD_QABORTYES ; to insert S error as flag, no return
711 ; ----------------------------------;