Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-01-12 14:30:29 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/a2-4am/4cade

Browse Source
This commit is contained in:
4am 2019-01-17 22:09:42 -05:00
commit be5e3fc856
3 changed files with 68 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
bin/rsync.js Normal file
View File

@ -0,0 +1,19 @@
a = new ActiveXObject("scripting.filesystemobject")
b = WScript.Arguments(0).lastIndexOf('\\') + 1
c = WScript.Arguments(0).substr(0, b)
d = WScript.Arguments(0).substr(b)
if (d.substr(0, 2) == '*.')
{
d = d.substr(2)
}
for (b = new Enumerator(a.GetFolder(c).files); !b.atEnd(); b.moveNext())
{
if ((d == '*') || (d == a.getextensionname(b.item().name)))
{
e = WScript.Arguments(1) + "\\" + b.item().Name
if (!a.fileexists(e) || (a.getfile(e).datelastmodified < b.item().datelastmodified))
{
new ActiveXObject("wscript.shell").run('cmd /c copy "' + c + b.item().name + '" ' + WScript.Arguments(1), 0, 1)
}
}
}

51
src/glue.prorwts2.a
View File

@ -529,27 +529,50 @@ ProDOS_enter
beq @jmp_zp ;always
@imp_seek
lda #cmdseek
!byte $2c
jsr @set_rdwrbuff
lda #0
sta blkidx
sta blkofflo
sta blkoffhi
sta reqcmd
jsr @reset
ldx sizelo
beq @seek64
sta sizehi
sta sizelo
jsr @seekreset
inc ldrlo
bne @seek64
inc ldrhi
@seek64
lda ldrhi
sta sizehi
lda ldrlo
sta sizelo
jsr @seekreset
lda ldrhi
ora ldrlo
bne @jmp_zp
dec blkidx
beq @jmp_zp ;always
@seekreset
jsr hddrdwrpart
@reset
lda #$ff
sta blefthi
sta bleftlo
rts
@imp_read
lda #cmdread
!byte $2c
@imp_write
lda #cmdwrite
sta reqcmd
pha
jsr @set_rdwrbuff
pla
pha
bne @set_blocks
lda ldrhi
sta sizehi
lda ldrlo
sta sizelo
@set_blocks
jsr hddrdwrpart
pla
beq @jmp_zp ;seek doesn't return size
ldy #6
lda sizelo2
sta (packet), y
@ -566,7 +589,7 @@ ProDOS_enter
iny
lda blefthi
sta (packet), y
jmp @restore_zp
bcs @restore_zp ;always
@imp_close
lda @handles+1

19
winmake.bat
View File

@ -24,6 +24,7 @@ if "%1" equ "asm" (
2>nul md build\HGR
2>nul md build\ACTION
2>nul md build\DHGR
2>nul md build\SHR
2>nul md build\SS
2>nul md build\DEMO
2>nul md build\FX
@ -71,6 +72,7 @@ if "%1" equ "asm" (
%ACME% src\fx\fx.hgr.ripple.a
%ACME% src\fx\fx.hgr.ripple2.a
%ACME% src\fx\fx.hgr.star.a
%ACME% src\fx\fx.shr.fizzle.a
goto :EOF
)
@ -95,25 +97,28 @@ cscript /nologo bin/padto.js 512 build\PREFS.CONF
%CADIUS% ADDFILE "build\%DISK%" "/%VOLUME%/" "res\ATTRACT.CONF" >>build\log
%CADIUS% ADDFILE "build\%DISK%" "/%VOLUME%/" "res\FX.CONF" >>build\log
%CADIUS% ADDFILE "build\%DISK%" "/%VOLUME%/" "res\DFX.CONF" >>build\log
1>nul copy /y res\hgr\* build\HGR >>build\log
cscript /nologo bin/rsync.js res\hgr\* build\HGR >>build\log
cscript /nologo bin/buildfileinfo.js build\HGR "06" "4000" >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/HGR" "build/HGR" >>build\log
1>nul copy /y res\action\* build\ACTION >>build\log
cscript /nologo bin/rsync.js res\action\* build\ACTION >>build\log
cscript /nologo bin/buildfileinfo.js build\ACTION "06" "4000" >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/ACTION" "build/ACTION" >>build\log
1>nul copy /y res\dhgr\* build\DHGR >>build\log
cscript /nologo bin/rsync.js res\dhgr\* build\DHGR >>build\log
cscript /nologo bin/buildfileinfo.js build\DHGR "06" "4000" >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/DHGR" "build/DHGR" >>build\log
1>nul copy /y res\ss\* build\SS >>build\log
cscript /nologo bin/rsync.js res\shr\* build\SHR >>build\log
cscript /nologo bin/buildfileinfo.js build\SHR "C1" "2000" >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/SHR" "build/SHR" >>build/log
cscript /nologo bin/rsync.js res\ss\* build\SS >>build\log
cscript /nologo bin/buildfileinfo.js build\SS "04" "4000" >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/SS" "build/SS" >>build\log
1>nul copy /y res\demo\* build\DEMO >>build\log
cscript /nologo bin/rsync.js res\demo\* build\DEMO >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/DEMO" "build/DEMO" >>build\log
1>nul copy /y res\fx\* build\FX >>build\log
cscript /nologo bin/rsync.js res\fx\* build\FX >>build\log
%CADIUS% ADDFOLDER "build\%DISK%" "/%VOLUME%/FX" "build/FX" >>build\log
%CADIUS% CREATEFOLDER "build\%DISK%" "/%VOLUME%/X/" >>build/log
cscript /nologo bin/do2po.js res\dsk build\po
1>nul copy /y res\dsk\*.po build\po
cscript /nologo bin/rsync.js res\dsk\*.po build\po
cscript /nologo bin/extract.js build\po >>build/log
echo y|1>nul 2>nul del /s build\X\.DS_Store
echo y|1>nul 2>nul del /s build\X\PRODOS