Pecus/micro-sparta-dos
1
0
Fork 0
mirror of https://github.com/Pecusx/micro-sparta-dos.git synced 2026-05-20 22:33:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

It works!

Browse Source
This commit is contained in:
Pecusx
2024-05-13 20:56:06 +02:00
parent 4a66d2730c
commit c1cec0d265
4 changed files with 2087 additions and 2119 deletions
Download Patch File Download Diff File Expand all files Collapse all files
loaderFN.asm
+4 -20
View File
@@ -79,13 +79,13 @@ IRQENS = $10
; zmienne procedury ladowania pliku (w miejscu zmiennych CIO - ktore sa nieuzywane)
; adres komorki pamieci do ktorej zapisujemy kolejny ladowany bajt pliku
InBlockAddr = $24 ; word
InBlockAddr = $64 ; word
; dlugosc ladowanego bloku odjeta od $10000 (zwiekszana osiaga ZERO po zaladowaniu bloku w calosci)
ToBlockEnd = $26 ; word
BlockLen= $26 ; word
ToBlockEnd = $66 ; word
BlockLen = $66 ; word
; najmlodszy z trzech bajtow zliczajacych do konca pliku - patrz ToFileEndH
ToFileEndL = $28
BlockATemp = $28
BlockATemp = $68
CompressedMapPos = $3D ; pozycja w skompresowanej mapie pliku
CheckSUM = $30
@@ -199,23 +199,7 @@ movedproc
ToFileEndH
.WO $0000
FileInit ; skok JSR pod adres inicjalizacji po (przed) kazdym nastepnym bloku binarnym
TXA
PHA
LDA ToFileEndL
PHA
LDA CompressedMapPos
PHA
LDA CompressedMapPos+1
PHA
JSR GoInitAddr
PLA
STA CompressedMapPos+1
PLA
STA CompressedMapPos
PLA
STA ToFileEndL
PLA
TAX
FileNextBlock
; wczytanie kolejnego bloku binarnego
JSR FileGetBlockStart ; pobranie dwoch bajtow (adres poczatku bloku)