It works!

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
+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)
+235 -235
View File
@@ -1,4 +1,4 @@
mads 2.1.6 build 65 (4 Jun 23)
mads 2.1.7 build 3 (13 Sep 23)
Label table:
00 0247 PDVMASK
00 0340 IOCB
@@ -70,11 +70,11 @@ Label table:
00 000A DOSVEC
00 000C DOSINI
00 0010 IRQENS
00 0024 INBLOCKADDR
00 0026 TOBLOCKEND
00 0026 BLOCKLEN
00 0064 INBLOCKADDR
00 0066 TOBLOCKEND
00 0066 BLOCKLEN
00 0028 TOFILEENDL
00 0028 BLOCKATEMP
00 0068 BLOCKATEMP
00 003D COMPRESSEDMAPPOS
00 0030 CHECKSUM
00 0031 SECLENUS
@@ -130,246 +130,246 @@ Label table:
00 E471 JTESTROM
00 E474 JRESETWM
00 E477 JRESETCD
00 07D7 FILESECBUFF
00 07D7 TEMPMEMLO
00 07BE FILESECBUFF
00 07BE TEMPMEMLO
00 1FFD START
00 2000 MOVEDPROC
00 0700 LOADER
00 0700 LOADER.TOFILEENDH
00 0702 LOADER.FILEINIT
00 071B LOADER.FILENEXTBLOCK
00 0730 LOADER.FILENOFFFFHEAD
00 0763 LOADER.WHATISIT
00 0772 LOADER.FILENOFIRSTBLOCK
00 077C LOADER.BLOCKREADLOOP
00 0788 LOADER.FILEGETBLOCKSTART
00 0793 LOADER.GOINITADDR
00 0796 LOADER.SIOJMP
00 079A LOADER.BLOKDANYCHIO_LOADER
00 07A2 LOADER.SECLEN
00 07A4 LOADER.SECTORNUMBER
00 07A6 LOADER.ENDOFFILE
00 07AF LOADER.JRTS
00 07B0 LOADER.GETFILE2BYTES
00 07B8 LOADER.GETFILEBYTES
00 07D6 LOADER.INSECTORCOUNTH
00 07D7 LOADER.ZZZZZZ
00 07D7 LOADER.FIRSTMAPSECTORNR
00 07D9 LOADER.LOADSTART
00 07E2 LOADER.OUTMEMCLEARLOOP
00 07E4 LOADER.INMEMCLEARLOOP
00 0800 LOADER.LASTMEMPAGECLEAR
00 0821 LOADER.TEMPTOFILEENDL
00 2122 JAKIETURBO
00 2122 USMODE
00 2123 QMEG
00 2124 BOOTDRIVE
00 2125 BOOTSHIFT
00 2126 FOLDERTURBO
00 2127 NEWCOLORS
00 2128 BIN2ASCIIHEX
00 2133 LABELKA
00 2134 EDRIVER
00 2137 EDITOROPEN
00 2165 MAINPROG
00 2183 USSPEED
00 2185 USSTATPRINT
00 218E NOUSSPEED
00 2191 ERROR148
00 2193 ERRORDISPLAY
00 21BA ERRORNUMHEX
00 21C2 WAITKLOOP
00 21D4 READMAINDIR
00 21ED SPARTADISK
00 21F8 SEKTOR128B
00 220A READDIR
00 2243 LABEL46
00 2251 LABEL40
00 225F LABEL43
00 226C PROGNAME
00 2277 LABEL42
00 2282 LABEL45
00 2285 DATFILEFOUND
00 22A5 LABEL47
00 22BC TOSTARTOFDIR
00 22CD STATUSBARPRINT
00 22D3 DENSITYDISPLAY
00 22D5 DRIVEDISP1
00 22E8 QMEGSTATUS
00 22F0 BASSTATUS
00 22F7 USSTATUS
00 2373 LABEL68
00 2381 NOLASTFILEINDIR
00 238B LABEL50
00 2395 LABEL51
00 23BC LABEL53
00 23C4 LABEL56
00 23CD LABEL55
00 23D0 LASTFILESPAGEJUMP
00 23D3 LABEL54
00 23D6 LABEL52
00 23E8 LABEL65
00 23F6 LABEL60
00 2404 COMPARENAMES
00 2406 CHECKING62
00 2412 REPLACINGNAME
00 241E CHECKNEXTNAME
00 2429 LABEL64
00 242C GAMENAMEPRINT
00 2438 YPOSGAMENAME
00 2439 GAMEKEYSYMBOL
00 243C GAMENAME
00 2479 LABEL66
00 2484 LABEL59
00 248F LABEL69
00 2492 MAINDIRKEY
00 2495 UPDIRKEY
00 24A5 ESCKEY
00 24B2 NOSHIFTESC
00 24B9 TOSTARTOFDIRJUMP
00 24BC SPACEKEY
00 24C3 CONTARROWSPRINT
00 24D4 LASTFILESPAGE
00 24D6 KEYBOARDPROC
00 24E8 COLORSALREADYSET
00 250D NOCTRLLETTER
00 251E NONUMBER
00 2524 BIGLETTERS
00 254B SUBDIRTEXT
00 2554 GOTOLOADER
00 255C DISKNOTCHANGED1
00 2568 SETTURBOOFF
00 256B NOSHIFT
00 0705 LOADER.FILENEXTBLOCK
00 071A LOADER.FILENOFFFFHEAD
00 074D LOADER.WHATISIT
00 075C LOADER.FILENOFIRSTBLOCK
00 0766 LOADER.BLOCKREADLOOP
00 076F LOADER.FILEGETBLOCKSTART
00 077A LOADER.GOINITADDR
00 077D LOADER.SIOJMP
00 0781 LOADER.BLOKDANYCHIO_LOADER
00 0789 LOADER.SECLEN
00 078B LOADER.SECTORNUMBER
00 078D LOADER.ENDOFFILE
00 0796 LOADER.JRTS
00 0797 LOADER.GETFILE2BYTES
00 079F LOADER.GETFILEBYTES
00 07BD LOADER.INSECTORCOUNTH
00 07BE LOADER.ZZZZZZ
00 07BE LOADER.FIRSTMAPSECTORNR
00 07C0 LOADER.LOADSTART
00 07C9 LOADER.OUTMEMCLEARLOOP
00 07CB LOADER.INMEMCLEARLOOP
00 07E7 LOADER.LASTMEMPAGECLEAR
00 0808 LOADER.TEMPTOFILEENDL
00 2109 JAKIETURBO
00 2109 USMODE
00 210A QMEG
00 210B BOOTDRIVE
00 210C BOOTSHIFT
00 210D FOLDERTURBO
00 210E NEWCOLORS
00 210F BIN2ASCIIHEX
00 211A LABELKA
00 211B EDRIVER
00 211E EDITOROPEN
00 214C MAINPROG
00 216A USSPEED
00 216C USSTATPRINT
00 2175 NOUSSPEED
00 2178 ERROR148
00 217A ERRORDISPLAY
00 21A1 ERRORNUMHEX
00 21A9 WAITKLOOP
00 21BB READMAINDIR
00 21D4 SPARTADISK
00 21DF SEKTOR128B
00 21F1 READDIR
00 222A LABEL46
00 2238 LABEL40
00 2246 LABEL43
00 2253 PROGNAME
00 225E LABEL42
00 2269 LABEL45
00 226C DATFILEFOUND
00 228C LABEL47
00 22A3 TOSTARTOFDIR
00 22B4 STATUSBARPRINT
00 22BA DENSITYDISPLAY
00 22BC DRIVEDISP1
00 22CF QMEGSTATUS
00 22D7 BASSTATUS
00 22DE USSTATUS
00 235A LABEL68
00 2368 NOLASTFILEINDIR
00 2372 LABEL50
00 237C LABEL51
00 23A3 LABEL53
00 23AB LABEL56
00 23B4 LABEL55
00 23B7 LASTFILESPAGEJUMP
00 23BA LABEL54
00 23BD LABEL52
00 23CF LABEL65
00 23DD LABEL60
00 23EB COMPARENAMES
00 23ED CHECKING62
00 23F9 REPLACINGNAME
00 2405 CHECKNEXTNAME
00 2410 LABEL64
00 2413 GAMENAMEPRINT
00 241F YPOSGAMENAME
00 2420 GAMEKEYSYMBOL
00 2423 GAMENAME
00 2460 LABEL66
00 246B LABEL59
00 2476 LABEL69
00 2479 MAINDIRKEY
00 247C UPDIRKEY
00 248C ESCKEY
00 2499 NOSHIFTESC
00 24A0 TOSTARTOFDIRJUMP
00 24A3 SPACEKEY
00 24AA CONTARROWSPRINT
00 24BB LASTFILESPAGE
00 24BD KEYBOARDPROC
00 24CF COLORSALREADYSET
00 24F4 NOCTRLLETTER
00 2505 NONUMBER
00 250B BIGLETTERS
00 2532 SUBDIRTEXT
00 253B GOTOLOADER
00 2543 DISKNOTCHANGED1
00 254F SETTURBOOFF
00 2552 NOSHIFT
00 2F80 COMPRESSEDMAP
00 25C0 GENERATECOMPRESSEDMAP
00 25FF JUMPFORWARD
00 260C OFFSETTOBIG
00 2622 GETNEXTMAPWORD
00 262D SECTOR00
00 2638 OPS01
00 2644 NOTEQAL01
00 266F ADDTOCOMPRESSEDMAP
00 2681 XXXXBLA
00 2689 NOINC013
00 268A FLUSHBUFFER
00 2695 NOFLUSH
00 2696 ENDMAKINGMAP
00 2699 LOADERGO
00 26AC NORUNFROMDOS
00 26BD AFTERWORMSTART
00 26F9 MOVELOOP1
00 2711 CLEARLOOP1
00 2723 NOZPAGE
00 274A FILETOOPEN
00 2757 ADDSPEEDPROC
00 2771 HAPPYRELOCATE
00 2791 LABEL72X
00 2795 TURBORELOCADDR
00 27A0 LABEL73
00 27BB NOHAPPYLOADER
00 27BC HAPPYUSMOVEDPROC
00 27D3 COMMANDLOOP
00 27D4 HAPPYSPEED
00 27DF DELAYLOOPCMD
00 27E9 XJSR1
00 27FD XJSR2
00 2803 XJSR3
00 2809 XJSR4
00 280E XJSR5
00 2811 WAITFORENDOFTRANSMISSION
00 281A XJSR6
00 2824 DOUBLEACK
00 2824 XJSR7
00 2830 READSECTORLOOP
00 2830 XJSR8
00 2835 XJSR9
00 283D XJSRA
00 2844 ERRORHERE
00 284F ENDOFTRANSMISSION
00 285D SECTRANSREG
00 2873 PUTSIOBYTE
00 2874 WAITFORSERIAL
00 2887 ADDCHECKSUM
00 288F GETSIOBYTE
00 2891 EXTERNALLOOP
00 2895 INTERNALLOOP
00 28A5 ACKRECEIVE
00 28BB ENDHAPPYUSPROC
00 28BB BLOKDANYCHIO_GETUSSPEED
00 28C7 DIRMAPEND
00 28CA LABEL39
00 28DE DISCNOTCHANGED2
00 2906 LABEL80
00 2914 NONEXTMAPSECTOR
00 2936 NOINCH
00 2966 LABEL79
00 2993 LABEL75
00 29A4 LABEL81
00 29B2 LABEL82
00 29C0 READPERCOM
00 29C5 READPERCOMRETRY
00 29D9 PERCOMERROR
00 29DE SET1SECT128
00 29E9 BLOKDANYCHIO_PERCOM
00 29F5 READFIRSTSECT
00 2A0B READSECTOR
00 2A14 READSECTOR1
00 2A22 DISKREADRETRY
00 2A2F LABEL85
00 2A39 BLOKDANYCHIO
00 2A45 DISKRETRYCOUNT
00 2A46 PRINTXY
00 2A72 LABEL92
00 2A8F LABEL90
00 2A96 LABEL91
00 2A9E LABEL89
00 2AB0 LABEL93
00 2AC1 LABEL88
00 2AC8 LABEL87
00 2ACE LABEL94
00 2AD3 GOERRORDISP
00 2AD6 GOSIO
00 2ADE STANDARDSPEED
00 2AE1 TABLE2DCB
00 2AE9 IOTABLEADDR
00 2AF3 CLOSE1
00 2AF5 CLOSEX
00 2AFD GETKEY
00 2B41 GKEYERROR
00 2B44 KDRIVER
00 2B47 DISCCHANGECHECK
00 2B50 LABEL98
00 2B5D CHANGEDD
00 2B5E ASTERIKS
00 2B7C GETHEXNUMBER
00 2B8C GETHEX4BITS
00 2B97 ISNUMBER
00 2B98 SETDRIVENR
00 2BAB SETDRIVELETTER
00 2BBA SETBLOKDANYCHDRIVE
00 2BC7 MEMLOPRINT
00 2BFE MEMLOVALUE
00 2C04 XJSRTABLEL
00 2C0E XJSRTABLEH
00 2C18 HAPPYOFFSET
00 2C1A DENSITYCODES
00 2C1D ONTEXT
00 2C20 OFFTEXT
00 2C23 PDVMASKTEMP
00 2C24 PERCOMDATA
00 2C30 FIRSTSECTORSTABLE
00 25A7 GENERATECOMPRESSEDMAP
00 25E6 JUMPFORWARD
00 25F3 OFFSETTOBIG
00 2609 GETNEXTMAPWORD
00 2614 SECTOR00
00 261F OPS01
00 262B NOTEQAL01
00 2656 ADDTOCOMPRESSEDMAP
00 2668 XXXXBLA
00 2670 NOINC013
00 2671 FLUSHBUFFER
00 267C NOFLUSH
00 267D ENDMAKINGMAP
00 2680 LOADERGO
00 2693 NORUNFROMDOS
00 26A4 AFTERWORMSTART
00 26E0 MOVELOOP1
00 26F8 CLEARLOOP1
00 270A NOZPAGE
00 2731 FILETOOPEN
00 273E ADDSPEEDPROC
00 2758 HAPPYRELOCATE
00 2778 LABEL72X
00 277C TURBORELOCADDR
00 2787 LABEL73
00 27A2 NOHAPPYLOADER
00 27A3 HAPPYUSMOVEDPROC
00 27BA COMMANDLOOP
00 27BB HAPPYSPEED
00 27C6 DELAYLOOPCMD
00 27D0 XJSR1
00 27E4 XJSR2
00 27EA XJSR3
00 27F0 XJSR4
00 27F5 XJSR5
00 27F8 WAITFORENDOFTRANSMISSION
00 2801 XJSR6
00 280B DOUBLEACK
00 280B XJSR7
00 2817 READSECTORLOOP
00 2817 XJSR8
00 281C XJSR9
00 2824 XJSRA
00 282B ERRORHERE
00 2836 ENDOFTRANSMISSION
00 2844 SECTRANSREG
00 285A PUTSIOBYTE
00 285B WAITFORSERIAL
00 286E ADDCHECKSUM
00 2876 GETSIOBYTE
00 2878 EXTERNALLOOP
00 287C INTERNALLOOP
00 288C ACKRECEIVE
00 28A2 ENDHAPPYUSPROC
00 28A2 BLOKDANYCHIO_GETUSSPEED
00 28AE DIRMAPEND
00 28B1 LABEL39
00 28C5 DISCNOTCHANGED2
00 28ED LABEL80
00 28FB NONEXTMAPSECTOR
00 291D NOINCH
00 294D LABEL79
00 297A LABEL75
00 298B LABEL81
00 2999 LABEL82
00 29A7 READPERCOM
00 29AC READPERCOMRETRY
00 29C0 PERCOMERROR
00 29C5 SET1SECT128
00 29D0 BLOKDANYCHIO_PERCOM
00 29DC READFIRSTSECT
00 29F2 READSECTOR
00 29FB READSECTOR1
00 2A09 DISKREADRETRY
00 2A16 LABEL85
00 2A20 BLOKDANYCHIO
00 2A2C DISKRETRYCOUNT
00 2A2D PRINTXY
00 2A59 LABEL92
00 2A76 LABEL90
00 2A7D LABEL91
00 2A85 LABEL89
00 2A97 LABEL93
00 2AA8 LABEL88
00 2AAF LABEL87
00 2AB5 LABEL94
00 2ABA GOERRORDISP
00 2ABD GOSIO
00 2AC5 STANDARDSPEED
00 2AC8 TABLE2DCB
00 2AD0 IOTABLEADDR
00 2ADA CLOSE1
00 2ADC CLOSEX
00 2AE4 GETKEY
00 2B28 GKEYERROR
00 2B2B KDRIVER
00 2B2E DISCCHANGECHECK
00 2B37 LABEL98
00 2B44 CHANGEDD
00 2B45 ASTERIKS
00 2B63 GETHEXNUMBER
00 2B73 GETHEX4BITS
00 2B7E ISNUMBER
00 2B7F SETDRIVENR
00 2B92 SETDRIVELETTER
00 2BA1 SETBLOKDANYCHDRIVE
00 2BAE MEMLOPRINT
00 2BE5 MEMLOVALUE
00 2BEB XJSRTABLEL
00 2BF5 XJSRTABLEH
00 2BFF HAPPYOFFSET
00 2C01 DENSITYCODES
00 2C04 ONTEXT
00 2C07 OFFTEXT
00 2C0A PDVMASKTEMP
00 2C0B PERCOMDATA
00 2C17 FIRSTSECTORSTABLE
00 2D00 FIRSTSECTORBUFF
00 2D00 PROGRAMEND
00 2D80 DIRMAPSECTORBUFF
00 2F80 DIRSECTORBUFF
00 2C24 FIRSTRUN
00 2C2E NOSHIFTBOOT
00 2C37 BASSTATPRINT
00 2C40 BRAKBASICA
00 2C42 TESTQMEGLOOP
00 2C54 QSTATPRINT
00 2C5D BRAKQMEGA
00 2C75 QMEGSTRING
00 2C0B FIRSTRUN
00 2C15 NOSHIFTBOOT
00 2C1E BASSTATPRINT
00 2C27 BRAKBASICA
00 2C29 TESTQMEGLOOP
00 2C3B QSTATPRINT
00 2C44 BRAKQMEGA
00 2C5C QMEGSTRING
00 0080 MAPCOUNTER
00 0082 COMPRESSEDMAPCOUNTER
00 0084 MAPCOUNTERMEM
+1848 -1864
View File
File diff suppressed because it is too large Load Diff
BIN
View File
Binary file not shown.