Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-05 19:29:37 +00:00
Code Issues Projects Releases Wiki Activity

*COPY: skip directories

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-16 18:26:09 -04:00
parent 77bbf375e5
commit a7299cbdbd
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
auxmem.init.s
View File

@ -177,7 +177,7 @@ BYTE00XX BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK BYTE00A BRK
DB $F7 DB $F7
HELLO ASC 'Applecorn MOS 2021-09-15 snapshot' HELLO ASC 'Applecorn MOS 2021-09-16 snapshot'
DB $00 ; Unify MOS messages DB $00 ; Unify MOS messages

5
mainmem.svc.s
View File

@ -112,6 +112,9 @@ COPYFILE >>> ENTMAIN
BRA :MAINLOOP ; Source: wildcard, dest: dir BRA :MAINLOOP ; Source: wildcard, dest: dir
:NOWILD :NOWILD
:MAINLOOP :MAINLOOP
JSR EXISTS ; See if source is file or dir
CMP #$02 ; Directory
BEQ :SKIP ; Skip directories
LDA MOSFILE2 ; Length LDA MOSFILE2 ; Length
STA :OLDLEN STA :OLDLEN
LDA :DESTTYPE ; Check dest type LDA :DESTTYPE ; Check dest type
@ -136,7 +139,7 @@ COPYFILE >>> ENTMAIN
:NOTDIR LDA :DESTTYPE ; Recover destination type :NOTDIR LDA :DESTTYPE ; Recover destination type
JSR COPY1FILE ; Copy an individual file JSR COPY1FILE ; Copy an individual file
BCS :COPYERR BCS :COPYERR
JSR WILDNEXT :SKIP JSR WILDNEXT
BCS :NOMORE BCS :NOMORE
LDA :OLDLEN ; Restore MOSFILE2 LDA :OLDLEN ; Restore MOSFILE2
STA MOSFILE2 STA MOSFILE2