mirror of
https://github.com/Pecusx/jataricart.git
synced 2026-05-20 22:33:22 +02:00
README mod
This commit is contained in:
Kuba
@@ -1 +1,31 @@
|
|||||||
# jataricart
|
# JatariCart
|
||||||
|
|
||||||
|
This software is for use with my super simple flash cartridge (no gals, only 3 74xx elements and some caps and resistors). Top side is that without elements.
|
||||||
|
|
||||||
|
The cartridge is driven by addresses D500-D580; write to D500 sets the first bank - this is boot bank. Write to D501 sets second bank etc. The max usable number with cart on is set by write to D51F; write to D580 switches off the cartridge.
|
||||||
|
|
||||||
|
The internal construction of JatariCart allows utilise max 256kB of flash memory (32 banks)
|
||||||
|
|
||||||
|
Remember to fool the Operating System not to hang up by cart on/off, by:
|
||||||
|
|
||||||
|
carton (x - bank to switch)
|
||||||
|
pha
|
||||||
|
sta $D580,x
|
||||||
|
sta wsync ; needed for ntsc, no big difference in speed
|
||||||
|
sta wsync ; needed for ntsc
|
||||||
|
lda trig3
|
||||||
|
sta gintlk
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
flashwritelib.asx - 6502 code library for formatting flash/formatting sector and write byte.
|
||||||
|
|
||||||
|
flashsrite.asx - 6502 code for generate flasher (when compiled, it contains either flash routines and cartridge image itself)
|
||||||
|
|
||||||
|
crc16_v2.asm - crc16 library for fast checking every sector (when flash is damaged, it happens that write sector damages another)
|
||||||
|
|
||||||
|
Compile (mads needed, http://mads.atari8.info):
|
||||||
|
|
||||||
|
mads flashwrite.asx -o:flashwrite.xex
|
||||||
|
|||||||
@@ -0,0 +1,290 @@
|
|||||||
|
opt l-
|
||||||
|
|
||||||
|
.enum @dmactl
|
||||||
|
blank = %00
|
||||||
|
narrow = %01
|
||||||
|
normal = %10
|
||||||
|
wide = %11
|
||||||
|
missiles= %100
|
||||||
|
players = %1000
|
||||||
|
oneline = %10000
|
||||||
|
dma = %100000
|
||||||
|
.ende
|
||||||
|
|
||||||
|
scr48 = @dmactl(wide|dma|players|missiles|oneline) ;screen 48b
|
||||||
|
scr40 = @dmactl(normal|dma|players|missiles|oneline) ;screen 40b
|
||||||
|
scr32 = @dmactl(narrow|dma|players|missiles|oneline) ;screen 32b
|
||||||
|
|
||||||
|
.enum @pmcntl
|
||||||
|
missiles= %1
|
||||||
|
players = %10
|
||||||
|
trigs = %100
|
||||||
|
.ende
|
||||||
|
|
||||||
|
.enum @gtictl
|
||||||
|
prior0 = %0
|
||||||
|
prior1 = %1
|
||||||
|
prior2 = %10
|
||||||
|
prior4 = %100
|
||||||
|
prior8 = %1000
|
||||||
|
ply5 = %10000 ; Fifth Player Enable
|
||||||
|
mlc = %100000 ; Multiple Color Player Enable
|
||||||
|
mode9 = %01000000
|
||||||
|
mode10 = %10000000
|
||||||
|
mode11 = %11000000
|
||||||
|
.ende
|
||||||
|
|
||||||
|
|
||||||
|
.enum @antic
|
||||||
|
lms = $40
|
||||||
|
hsc = $50
|
||||||
|
vsc = $60
|
||||||
|
.ende
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- OS
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
ramlo = $04 ; (2) wektor RAM dla testu wielko?ci pami?ci
|
||||||
|
|
||||||
|
warmst = $08 ; znacznik gor?cego startu
|
||||||
|
boot? = $09 ; znacznik odczytu wst?pnego
|
||||||
|
dosvec = $0A ; (2) wektor startowy programu dyskowego
|
||||||
|
dosini = $0C ; (2) wektor inicjacji po odczycie z dyskietki
|
||||||
|
|
||||||
|
rtclok = $12 ; (3) zegar czasu rzeczywistego
|
||||||
|
|
||||||
|
lmargin = $52
|
||||||
|
rmargin = $53
|
||||||
|
rowcrs = $54 ; wiersz kursora
|
||||||
|
colcrs = $55 ; (2) Kolumna kursora
|
||||||
|
savmsc = $58 ; (2) Adres pamięci obrazu
|
||||||
|
|
||||||
|
keydef = $79 ; (2) tablica konwersji kod?w klawiatury na ATASCII
|
||||||
|
|
||||||
|
|
||||||
|
vdslst = $0200 ; (2) wektor przerwa? NMI listy displejowej
|
||||||
|
timcnt3 = $021C ; trzeci licznik systemu
|
||||||
|
vvblki = $0222 ; (2) wektor NMI natychmiastowego VBI
|
||||||
|
vvblkd = $0224 ; (2) wektor NMI op??nionego VBI
|
||||||
|
timflg3 = $022a ; znacznik wyzerowania licznika TIMCNT3
|
||||||
|
sdmctl = $022f ; cień DMACTL
|
||||||
|
sdlstl = $0230 ; cień DLISTL
|
||||||
|
sdlsth = $0231 ; cień DLISTH
|
||||||
|
|
||||||
|
colpf0s = $02C4 ; rejestr-cie? COLPF0
|
||||||
|
colpf1s = $02C5 ; rejestr-cie? COLPF1
|
||||||
|
colpf2s = $02C6 ; rejestr-cie? COLPF2
|
||||||
|
colpf3s = $02C7 ; rejestr-cie? COLPF3
|
||||||
|
colbaks = $02C8 ; rejestr-cie? COLBAK
|
||||||
|
|
||||||
|
dsctln = $02D5 ; (2) Disk sector size register; default of 128 ($80) bytes
|
||||||
|
dvstat = $02EA ; (4) device status
|
||||||
|
|
||||||
|
crsinh = $02F0 ; znacznik widoczno?ci kursora
|
||||||
|
chact = $02F3 ; rejestr cien CHRCTL
|
||||||
|
chbas = $02F4 ; rejestr cien CHBASE
|
||||||
|
|
||||||
|
atachr = $02Fb ; numer koloru dla PLOT, DRAW (kod ATASCII znaku)
|
||||||
|
kbcodes = $02Fc ; kod ostatnio naci?ni?tego klawisza, $ff je?li ?aden nie zosta? naci?ni?ty (KBCODE)
|
||||||
|
fildat = $02Fd ; numer koloru dla FILL
|
||||||
|
chart = $02F3 ; cie? rejestru kontroli wy?wietlania znak?w (CHRCTL)
|
||||||
|
|
||||||
|
ddevic = $0300 ; Device Control Block, identyfikator urz?dzenia
|
||||||
|
dunit = $0301 ; Numer urz?dzenia; w przypadku stacji dysk?w numer nap?du
|
||||||
|
dcmnd = $0302 ; Komenda dla urz?dzenia.
|
||||||
|
dstats = $0303 ; Przed wywo?aniem SIO nale?y ustawi? tu rodzaj operacji ($40 odczyt, $80 zapis, $C0 zapis i odczyt, $00 brak transferu danych). Po powrocie z systemu znajduje si? tu status operacji (kod b??du).
|
||||||
|
dbufa = $0304 ; (2) Adres bufora. Przy operacji zapisu i odczytu jednocze?nie (DSTATS = $C0) bufor na odczytywane dane znajduje si? w tym samym miejscu, co bufor danch przeznaczonych do zapisu.
|
||||||
|
dtimlo = $0306 ; Czas oczekiwania na pozytywn? odpowied? urz?dzenia, tzw. timeout, najczesciej = 7
|
||||||
|
dunuse = $0307 ; Bajt nieu?ywany, zarezerwowany do przysz?ych zastosowa?.
|
||||||
|
dbyt = $0308 ; (2) Wielko?? bufora; musi by? zgodna z wielko?ci? transmitowanego bloku danych. Zero oznacza 64 kilobajty.
|
||||||
|
daux1 = $030A ; Pierwszy bajt pomocniczy. W operacjach dyskowych m?odszy bajt numeru sektora.
|
||||||
|
daux2 = $030B ; Drugi bajt pomocniczy. W operacjach dyskowych starszy bajt numeru sektora.
|
||||||
|
casflg = $030F ; When set to zero, the current operation is a standard SIO operation; when non-zero, it is a cassette operation.
|
||||||
|
|
||||||
|
hatabs = $031A ; tabela wektor?w procedur obs?ugi
|
||||||
|
|
||||||
|
iocb = $0340 ; IOCB 0..7 ($340, $350, $360 ...)
|
||||||
|
iocom = iocb+2 ; Komenda dla IOCB
|
||||||
|
ioadr = iocb+4 ; (2) Adres bufora dla IOCB
|
||||||
|
ioaux1 = iocb+10 ; Bajt pomocniczy 1 IOCB
|
||||||
|
ioaux2 = iocb+11 ; Bajt pomocniczy 2 IOCB
|
||||||
|
|
||||||
|
icchid = $0340
|
||||||
|
icdno = $0341
|
||||||
|
iccmd = $0342 ; kod rozkazu operacji I/O
|
||||||
|
icstat = $0343 ; status operacji I/O
|
||||||
|
icbufa = $0344 ; (2) adres bufora danych dla operacji I/O
|
||||||
|
icputb = $0346 ; (2) adres procedury przesy?ania danych
|
||||||
|
icbufl = $0348 ; (2) d?ugo?? bufora danych dla operacji I/O
|
||||||
|
icax1 = $034A ; rejestr pomocniczy dla operacji I/O
|
||||||
|
icax2 = $034B ; rejestr pomocniczy dla operacji I/O
|
||||||
|
icax3 = $034C ; rejestr pomocniczy dla operacji I/O
|
||||||
|
icax4 = $034D ; rejestr pomocniczy dla operacji I/O
|
||||||
|
icax5 = $034E ; rejestr pomocniczy dla operacji I/O
|
||||||
|
icax6 = $034F ; rejestr pomocniczy dla operacji I/O
|
||||||
|
|
||||||
|
casbuf = $0400 ; bufor magnetofonu
|
||||||
|
casben = $047F ; koniec bufora magnetofonu
|
||||||
|
|
||||||
|
setvbv = $E45C
|
||||||
|
xitvbv = $E462
|
||||||
|
ciov = $E456 ; Wektor do CIOMAIN
|
||||||
|
jsioint = $E459 ; Wektor do SIO
|
||||||
|
jdskint = $E453 ; Wektor do sterownika dyskowego
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- KEY ($d209)
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
key_esc = 28
|
||||||
|
key_space = 33
|
||||||
|
|
||||||
|
key_a = 63
|
||||||
|
key_b = 21
|
||||||
|
key_d = 58
|
||||||
|
key_m = 37
|
||||||
|
key_n = 35
|
||||||
|
key_v = 16
|
||||||
|
key_o = 8
|
||||||
|
key_p = 10
|
||||||
|
key_s = 62
|
||||||
|
key_w = 46
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- GTIA
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
hposp0 = $D000 ; pozioma pozycja gracza 0 (Z)
|
||||||
|
hposp1 = $D001 ; pozioma pozycja gracza 1 (Z)
|
||||||
|
hposp2 = $D002 ; pozioma pozycja gracza 2 (Z)
|
||||||
|
hposp3 = $D003 ; pozioma pozycja gracza 3 (Z)
|
||||||
|
hposm0 = $D004 ; pozioma pozycja pocisku 0 (Z)
|
||||||
|
hposm1 = $D005 ; pozioma pozycja pocisku 1 (Z)
|
||||||
|
hposm2 = $D006 ; pozioma pozycja pocisku 2 (Z)
|
||||||
|
hposm3 = $D007 ; pozioma pozycja pocisku 3 (Z)
|
||||||
|
sizep0 = $D008 ; poziomy rozmiar gracza 0 (Z)
|
||||||
|
sizep1 = $D009 ; poziomy rozmiar gracza 1 (Z)
|
||||||
|
sizep2 = $D00A ; poziomy rozmiar gracza 2 (Z)
|
||||||
|
sizep3 = $D00B ; poziomy rozmiar gracza 3 (Z)
|
||||||
|
sizem = $D00C ; poziomy rozmiar pocisk?w (Z)
|
||||||
|
grafp0 = $D00D ; rejestr grafiki gracza 0 (Z)
|
||||||
|
grafp1 = $D00E ; rejestr grafiki gracza 1 (Z)
|
||||||
|
grafp2 = $D00F ; rejestr grafiki gracza 2 (Z)
|
||||||
|
grafp3 = $D010 ; rejestr grafiki gracza 3 (Z)
|
||||||
|
grafm = $D011 ; rejestr grafiki pocisk?w (Z)
|
||||||
|
colpm0 = $D012 ; rejestr koloru gracza i pocisku 0 (Z)
|
||||||
|
colpm1 = $D013 ; rejestr koloru gracza i pocisku 1 (Z)
|
||||||
|
colpm2 = $D014 ; rejestr koloru gracza i pocisku 2 (Z)
|
||||||
|
colpm3 = $D015 ; rejestr koloru gracza i pocisku 3 (Z)
|
||||||
|
colpf0 = $D016 ; rejestr koloru pola gry 0 (Z)
|
||||||
|
colpf1 = $D017 ; rejestr koloru pola gry 1 (Z)
|
||||||
|
colpf2 = $D018 ; rejestr koloru pola gry 2 (Z)
|
||||||
|
colpf3 = $D019 ; rejestr koloru pola gry 3 (Z)
|
||||||
|
colpf4 = $D01A
|
||||||
|
colbak = $D01A ; rejestr koloru t?a (Z)
|
||||||
|
|
||||||
|
color0 = colpf0
|
||||||
|
color1 = colpf1
|
||||||
|
color2 = colpf2
|
||||||
|
color3 = colpf3
|
||||||
|
|
||||||
|
kolm0pf = $D000 ; kolizja pocisku 0 z polem gry (O)
|
||||||
|
kolm1pf = $D001 ; kolizja pocisku 1 z polem gry (O)
|
||||||
|
kolm2pf = $D002 ; kolizja pocisku 2 z polem gry (O)
|
||||||
|
kolm3pf = $D003 ; kolizja pocisku 3 z polem gry (O)
|
||||||
|
kolp0pf = $D004 ; kolizja gracza 0 z polem gry (O)
|
||||||
|
kolp1pf = $D005 ; kolizja gracza 1 z polem gry (O)
|
||||||
|
kolp2pf = $D006 ; kolizja gracza 2 z polem gry (O)
|
||||||
|
kolp3pf = $D007 ; kolizja gracza 3 z polem gry (O)
|
||||||
|
kolm0p = $D008 ; kolizja pocisku 0 z graczem (O)
|
||||||
|
kolm1p = $D009 ; kolizja pocisku 1 z graczem (O)
|
||||||
|
kolm2p = $D00A ; kolizja pocisku 2 z graczem (O)
|
||||||
|
kolm3p = $D00B ; kolizja pocisku 3 z graczem (O)
|
||||||
|
kolp0p = $D00C ; kolizja gracza 0 z innym graczem (O)
|
||||||
|
kolp1p = $D00D ; kolizja gracza 1 z innym graczem (O)
|
||||||
|
kolp2p = $D00E ; kolizja gracza 2 z innym graczem (O)
|
||||||
|
kolp3p = $D00F ; kolizja gracza 3 z innym graczem (O)
|
||||||
|
trig0 = $D010 ; stan przycisku joysticka 0 (O)
|
||||||
|
trig1 = $D011 ; stan przycisku joysticka 1 (O)
|
||||||
|
trig3 = $D013 ; znacznik do??czenia cartridge-a (O)
|
||||||
|
pal = $D014 ; znacznik systemu TV (O) PAL = 1, NTSC = 15
|
||||||
|
|
||||||
|
gtictl = $D01B ; rejestr kontroli uk?adu GTIA
|
||||||
|
gtiactl = gtictl
|
||||||
|
|
||||||
|
vdelay = $D01C ; licznik op??nienia pionowego P/MG
|
||||||
|
pmcntl = $D01D ; rejestr kontroli graczy i pocisk?w
|
||||||
|
hitclr = $D01E ; rejestr kasowania rejestr?w kolizji
|
||||||
|
consol = $D01F ; rejestr stanu klawiszy konsoli
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- POKEY
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
irqens = $0010 ; rejestr-cie? IRQEN
|
||||||
|
irqstat = $0011 ; rejestr-cie? IRQST
|
||||||
|
|
||||||
|
audf1 = $d200 ; cz?stotliwo?? pracy generatora 1 (Z)
|
||||||
|
audc1 = $d201 ; rejestr kontroli d?wi?ku generatora 1 (Z)
|
||||||
|
audf2 = $d202 ; cz?stotliwo?? pracy generatora 2 (Z)
|
||||||
|
audc2 = $d203 ; rejestr kontroli d?wi?ku generatora 2 (Z)
|
||||||
|
audf3 = $d204 ; cz?stotliwo?? pracy generatora 3 (Z)
|
||||||
|
audc3 = $d205 ; rejestr kontroli d?wi?ku generatora 3 (Z)
|
||||||
|
audf4 = $d206 ; cz?stotliwo?? pracy generatora 4 (Z)
|
||||||
|
audc4 = $d207 ; rejestr kontroli d?wi?ku generatora 4 (Z)
|
||||||
|
|
||||||
|
audctl = $D208 ; rejestr kontroli generator?w d?wi?ku (Z)
|
||||||
|
stimer = $D209 ; rejestr zerowania licznik?w (Z)
|
||||||
|
kbcode = $D209 ; kod ostatnio naci?ni?tego klawisza (O)
|
||||||
|
skstres = $D20A ; rejestr statusu z??cza szeregowego (Z)
|
||||||
|
random = $D20A ; rejestr liczby losowej (O)
|
||||||
|
serout = $D20D ; szeregowy rejestr wyj?ciowy (Z)
|
||||||
|
serin = $D20D ; szeregowy rejestr wej?ciowy (O)
|
||||||
|
irqen = $D20E ; zezwolenie przerwa? IRQ (Z)
|
||||||
|
irqst = $D20E ; status przerwa? IRQ (O)
|
||||||
|
skctl = $D20F ; rejestr kontroli z??cza szeregowego (Z)
|
||||||
|
skstat = $D20F ; rejestr statusu z??cza szeregowego (O)
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- PIA
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
porta = $D300 ; port A uk?adu PIA
|
||||||
|
portb = $D301 ; port B uk?adu PIA
|
||||||
|
pactl = $D302 ; rejestr kontroli portu A
|
||||||
|
pbctl = $D303 ; rejestr kontroli portu B
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- ANTIC
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
dmactl = $D400 ; rejestr kontroli dost?pu do pami?ci
|
||||||
|
chrctl = $D401 ; rejestr kontroli wy?wietlania znak?w
|
||||||
|
dlptr = $D402 ; adres programu ANTIC-a
|
||||||
|
dlistl = $D402
|
||||||
|
dlisth = $D403
|
||||||
|
hscrol = $D404 ; znacznik poziomego przesuwu obrazu
|
||||||
|
vscrol = $D405 ; znacznik pionowego przesuwu obrazu
|
||||||
|
pmbase = $D407 ; adres pami?ci graczy i pocisk?w
|
||||||
|
chbase = $D409 ; adres zestawu znak?w
|
||||||
|
wsync = $D40A ; znacznik oczekiwania na synchronizacj? poziom?
|
||||||
|
vcount = $D40B ; licznik linii obrazu
|
||||||
|
lpenh = $D40C ; poziome po?o?enie pi?ra ?wietlengo
|
||||||
|
lpenv = $D40D ; pionowe po?o?enie pi?ra ?wietlnego
|
||||||
|
nmien = $D40E ; rejestr zezwole? na przerwania NMI
|
||||||
|
nmist = $D40F ; rejestr statusu przerwa? NMI (O)
|
||||||
|
nmires = $D40F ; (Z)
|
||||||
|
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
* --- HARDWARE
|
||||||
|
* ---------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
nmivec = $FFFA ; wektor przerwania NMI (6502)
|
||||||
|
resetvec= $FFFC ; wektor przerwania RESET
|
||||||
|
irqvec = $FFFE ; wektor przerwania IRQ
|
||||||
|
|
||||||
|
nmivec16 = $FFEA ; wektor przerwania NMI (nativ 65816)
|
||||||
|
irqvec16 = $FFEE ; wektor przerwania IRQ
|
||||||
|
|
||||||
|
opt l+
|
||||||
@@ -0,0 +1,57 @@
|
|||||||
|
/*
|
||||||
|
org $2000
|
||||||
|
|
||||||
|
mwa #$ffff crc16.crc
|
||||||
|
|
||||||
|
lda #'B'
|
||||||
|
jsr crc16.updCRC
|
||||||
|
lda #'N'
|
||||||
|
jsr crc16.updCRC
|
||||||
|
lda #'E'
|
||||||
|
jsr crc16.updCRC
|
||||||
|
|
||||||
|
jmp *
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
.proc crc16
|
||||||
|
|
||||||
|
crc equ $80
|
||||||
|
tmpx equ $82
|
||||||
|
tmpy equ $83
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
updCRC
|
||||||
|
stx tmpx
|
||||||
|
sty tmpy
|
||||||
|
EOR CRC+1 ; A contained the data
|
||||||
|
STA CRC+1 ; XOR it into high byte
|
||||||
|
LSR @ ; right shift A 4 bits
|
||||||
|
LSR @ ; to make top of x^12 term
|
||||||
|
LSR @ ; ($1...)
|
||||||
|
LSR @
|
||||||
|
TAX ; save it
|
||||||
|
ASL @ ; then make top of x^5 term
|
||||||
|
EOR CRC ; and XOR that with low byte
|
||||||
|
STA CRC ; and save
|
||||||
|
TXA ; restore partial term
|
||||||
|
EOR CRC+1 ; and update high byte
|
||||||
|
STA CRC+1 ; and save
|
||||||
|
ASL @ ; left shift three
|
||||||
|
ASL @ ; the rest of the terms
|
||||||
|
ASL @ ; have feedback from x^12
|
||||||
|
TAX ; save bottom of x^12
|
||||||
|
ASL @ ; left shift two more
|
||||||
|
ASL @ ; watch the carry flag
|
||||||
|
EOR CRC+1 ; bottom of x^5 ($..2.)
|
||||||
|
TAY ; save high byte
|
||||||
|
TXA ; fetch temp value
|
||||||
|
ROL @ ; bottom of x^12, middle of x^5!
|
||||||
|
EOR CRC ; finally update low byte
|
||||||
|
STA CRC+1 ; then swap high and low bytes
|
||||||
|
STY CRC
|
||||||
|
ldx tmpx
|
||||||
|
ldy tmpy
|
||||||
|
RTS
|
||||||
|
.endp
|
||||||
+340
@@ -0,0 +1,340 @@
|
|||||||
|
; flash eeprom library
|
||||||
|
; by JHusak , 04.01.2020
|
||||||
|
; free to use.
|
||||||
|
icl 'atari.hea'
|
||||||
|
BankNum equ $88
|
||||||
|
Counter equ $89
|
||||||
|
operation equ $8a
|
||||||
|
start equ 6 ; format chip and program
|
||||||
|
select equ 5 ; ferify and format sectors
|
||||||
|
option equ 3 ; verify
|
||||||
|
outchar equ $F2B0
|
||||||
|
memtop equ $2e5
|
||||||
|
dmactls equ $22f
|
||||||
|
|
||||||
|
_SOURCE equ $6000
|
||||||
|
_DEST equ $A000
|
||||||
|
|
||||||
|
; test code
|
||||||
|
org $2000
|
||||||
|
jsr $f420 ; clrscr
|
||||||
|
lda portb
|
||||||
|
cmp #$fd
|
||||||
|
beq @+
|
||||||
|
jsr print
|
||||||
|
dta c'Run with BASIC enabled and restart.',0
|
||||||
|
jmp *
|
||||||
|
@ lda #$1
|
||||||
|
sta 66
|
||||||
|
; waiting for cart to be inserted
|
||||||
|
jsr print
|
||||||
|
dta c'Insert cartridge...',0
|
||||||
|
@ lda $D013
|
||||||
|
lsr
|
||||||
|
bcc @-
|
||||||
|
jsr print
|
||||||
|
dta c' inserted.',$9b,0
|
||||||
|
|
||||||
|
; cart inserted, fake it was not changed
|
||||||
|
lda $d013
|
||||||
|
sta $3fa
|
||||||
|
|
||||||
|
;lda #$ff
|
||||||
|
;sta $d301
|
||||||
|
|
||||||
|
jsr print
|
||||||
|
dta c'Press:',$9b
|
||||||
|
dta c'START - format cart and programm',$9b
|
||||||
|
dta c'SELECT - verify; repair bad blocks.',$9b
|
||||||
|
dta c'OPTION - verify only',$9b,0
|
||||||
|
@ lda 53279
|
||||||
|
cmp #7
|
||||||
|
beq @-
|
||||||
|
sta operation
|
||||||
|
|
||||||
|
cmp #select
|
||||||
|
beq VERIFYREPAIR
|
||||||
|
|
||||||
|
cmp #option
|
||||||
|
beq CHECKONLY
|
||||||
|
; start
|
||||||
|
FORMAT
|
||||||
|
jsr print
|
||||||
|
dta c'Formatting cart ...',0
|
||||||
|
jsr flashformatchip
|
||||||
|
bcs formatfailed
|
||||||
|
jsr print
|
||||||
|
dta c'done:)',$9b,0
|
||||||
|
rts
|
||||||
|
formatfailed
|
||||||
|
jsr print
|
||||||
|
dta c'failed:(',$9b,'Waiting for reboot...',$9b,0
|
||||||
|
jmp *
|
||||||
|
VERIFYREPAIR
|
||||||
|
jsr print
|
||||||
|
dta c'Verify and ',0
|
||||||
|
CHECKONLY
|
||||||
|
jsr print
|
||||||
|
dta c'Compare.',$9b,0
|
||||||
|
rts
|
||||||
|
crcsums
|
||||||
|
:128 dta 0,0
|
||||||
|
|
||||||
|
CHECKINIT
|
||||||
|
mwa #_SOURCE _csrc
|
||||||
|
mwa #_DEST _cdst
|
||||||
|
sei
|
||||||
|
CHECK
|
||||||
|
|
||||||
|
mva #0 badcompare_counter
|
||||||
|
sta badcompare_counter+1
|
||||||
|
ldx BankNum
|
||||||
|
sta $d500,x
|
||||||
|
checkloop
|
||||||
|
_csrc equ * + 1
|
||||||
|
lda $6000 ; src
|
||||||
|
_cdst equ * + 1
|
||||||
|
cmp $A000 ; dst
|
||||||
|
beq @+
|
||||||
|
lda _csrc
|
||||||
|
ldx _csrc+1
|
||||||
|
jsr BADCOMPARE
|
||||||
|
@ inw _csrc
|
||||||
|
inw _cdst
|
||||||
|
lda _csrc+1
|
||||||
|
cmp #>_SOURCE+$20
|
||||||
|
bne checkloop
|
||||||
|
cpw #0 badcompare_counter
|
||||||
|
beq @+
|
||||||
|
sta $d580
|
||||||
|
lda $d013
|
||||||
|
sta $3fa
|
||||||
|
cli
|
||||||
|
jsr print
|
||||||
|
dta c'non-match byte#:',0
|
||||||
|
lda badcompare_counter+1
|
||||||
|
jsr printhex
|
||||||
|
lda badcompare_counter
|
||||||
|
jsr printhex
|
||||||
|
jsr printnl
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
@ sta $d580
|
||||||
|
lda $d013
|
||||||
|
sta $3fa
|
||||||
|
cli
|
||||||
|
lda #'o'
|
||||||
|
jsr outchar
|
||||||
|
@ clc
|
||||||
|
dmaon mva #34 dmactls
|
||||||
|
sta dmactl
|
||||||
|
rts
|
||||||
|
VERIFY
|
||||||
|
;mwa #_SOURCE _csrc
|
||||||
|
;mwa #_DEST _cdst
|
||||||
|
jsr CHECKINIT
|
||||||
|
bcc v_rts
|
||||||
|
lda #'f'
|
||||||
|
jsr outchar
|
||||||
|
ldx BankNum
|
||||||
|
lda #$a0
|
||||||
|
jsr flashformatsector
|
||||||
|
ldx BankNum
|
||||||
|
lda #$b0
|
||||||
|
jsr flashformatsector
|
||||||
|
jsr FORMATTED
|
||||||
|
dec Counter
|
||||||
|
bne VERIFY
|
||||||
|
v_rts jmp dmaon
|
||||||
|
|
||||||
|
COMPARE_CRC16_DEST_ALL
|
||||||
|
lda BankNum
|
||||||
|
sta _tbanknum
|
||||||
|
@ sei
|
||||||
|
_tbanknum equ * + 1
|
||||||
|
sta $D500
|
||||||
|
clc
|
||||||
|
mva _tbanknum calccrc_bank
|
||||||
|
jsr CALCCRC_DEST
|
||||||
|
jsr status_crc
|
||||||
|
dec _tbanknum
|
||||||
|
bpl @-
|
||||||
|
sta $D580
|
||||||
|
lda $d013
|
||||||
|
sta $3fa
|
||||||
|
cli
|
||||||
|
rts
|
||||||
|
status_crc
|
||||||
|
php
|
||||||
|
jsr printBank_t
|
||||||
|
plp
|
||||||
|
php
|
||||||
|
sne
|
||||||
|
lda #'o'
|
||||||
|
plp
|
||||||
|
seq
|
||||||
|
lda #'!'
|
||||||
|
jsr outchar
|
||||||
|
lda #','
|
||||||
|
jmp outchar
|
||||||
|
|
||||||
|
|
||||||
|
CALCCRC_DEST
|
||||||
|
php
|
||||||
|
mwa #_DEST _tsrc
|
||||||
|
bne crccont
|
||||||
|
|
||||||
|
CALCCRC ; c=1 - write; c=0 - check
|
||||||
|
php
|
||||||
|
mwa #_SOURCE _tsrc
|
||||||
|
mwa #$2000 _tcnt
|
||||||
|
crccont mwa #$ffff crc16.crc
|
||||||
|
_tsrc equ * + 1
|
||||||
|
lda $ffff
|
||||||
|
jsr crc16.updCRC
|
||||||
|
inw _tsrc
|
||||||
|
dew _tcnt
|
||||||
|
bne _tsrc -1
|
||||||
|
calccrc_bank equ * +1
|
||||||
|
lda #$ba ; nk number
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
plp
|
||||||
|
bcc crccheck
|
||||||
|
mwa crc16.crc crcsums,x
|
||||||
|
rts
|
||||||
|
_tcnt :2 dta 0
|
||||||
|
crccheck
|
||||||
|
cpw crc16.crc crcsums,x
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
printBank_t
|
||||||
|
lda _tbanknum
|
||||||
|
bpl @+
|
||||||
|
printBank
|
||||||
|
jsr printnl
|
||||||
|
lda BankNum
|
||||||
|
@ pha
|
||||||
|
lda #'B'
|
||||||
|
jsr outchar
|
||||||
|
pla
|
||||||
|
jsr printhex
|
||||||
|
lda #':'
|
||||||
|
jmp outchar
|
||||||
|
|
||||||
|
MAIN_PROCESS
|
||||||
|
;mva #0 dmactls
|
||||||
|
;sta dmactl
|
||||||
|
sec
|
||||||
|
mva BankNum calccrc_bank
|
||||||
|
jsr CALCCRC
|
||||||
|
mwa #_DEST flashaddr
|
||||||
|
jsr printBank
|
||||||
|
|
||||||
|
lda operation
|
||||||
|
cmp #select
|
||||||
|
jeq VERIFY
|
||||||
|
|
||||||
|
cmp #option
|
||||||
|
jeq CHECKINIT
|
||||||
|
|
||||||
|
FORMATTED
|
||||||
|
mwa #_SOURCE _writeaddr
|
||||||
|
lda _writeaddr+1
|
||||||
|
clc
|
||||||
|
adc #$20
|
||||||
|
sta _cmpaddr
|
||||||
|
mwa #_DEST flashaddr
|
||||||
|
sec
|
||||||
|
formatted_next
|
||||||
|
ldx BankNum
|
||||||
|
formatted_next2
|
||||||
|
_writeaddr equ *+1
|
||||||
|
lda $ffff
|
||||||
|
jsr flashwritebyte
|
||||||
|
jsr flashincaddr
|
||||||
|
inw _writeaddr
|
||||||
|
_cmpaddr equ * + 1
|
||||||
|
lda #$ff
|
||||||
|
cmp _writeaddr+1
|
||||||
|
bne formatted_next2
|
||||||
|
|
||||||
|
jmp COMPARE_CRC16_DEST_ALL
|
||||||
|
|
||||||
|
FINISH_PROCESS
|
||||||
|
jsr print
|
||||||
|
dta $9b,'Finished',0
|
||||||
|
jmp *
|
||||||
|
rts
|
||||||
|
badcompare_counter dta 0,0
|
||||||
|
BADCOMPARE
|
||||||
|
ldy 53279
|
||||||
|
cpy #7
|
||||||
|
beq @+
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
pha
|
||||||
|
lda #'!'
|
||||||
|
jsr outchar
|
||||||
|
pla
|
||||||
|
jsr printhex
|
||||||
|
pla
|
||||||
|
jsr printhex
|
||||||
|
lda #':'
|
||||||
|
jsr outchar
|
||||||
|
mwa _csrc badcompare_tmp1
|
||||||
|
badcompare_tmp1 equ * +1
|
||||||
|
lda $ffff
|
||||||
|
jsr printhex
|
||||||
|
lda #'/'
|
||||||
|
jsr outchar
|
||||||
|
mwa _cdst badcompare_tmp2
|
||||||
|
badcompare_tmp2 equ * +1
|
||||||
|
lda $ffff
|
||||||
|
jsr printhex
|
||||||
|
jsr printnl
|
||||||
|
@ inw badcompare_counter
|
||||||
|
sec
|
||||||
|
jmp dmaon
|
||||||
|
; -------
|
||||||
|
icl 'flashwritelib.asx'
|
||||||
|
|
||||||
|
icl 'crc16_v2.asm'
|
||||||
|
|
||||||
|
;jsr print
|
||||||
|
;dta c'AlaMaKota.',$9b,0
|
||||||
|
;lda #$55
|
||||||
|
;jsr printhex
|
||||||
|
;lda #$aa
|
||||||
|
;jsr printhex
|
||||||
|
;jmp *
|
||||||
|
icl 'print2.asx'
|
||||||
|
org $2e2
|
||||||
|
dta a($2000)
|
||||||
|
; ---------------------------------------
|
||||||
|
; code generator for bank by bank programming.
|
||||||
|
; .rept number of cartridge banks of 8kb; set this for 8kb banks number:
|
||||||
|
; 256kb flash - 32
|
||||||
|
; 128 kb flash - 16
|
||||||
|
; 8 kb flash - 1
|
||||||
|
;.rept 32, #
|
||||||
|
.rept 1, #
|
||||||
|
.print "A :1"
|
||||||
|
.local block:1
|
||||||
|
;------------
|
||||||
|
org BankNum
|
||||||
|
dta b(:1)
|
||||||
|
dta b(1) ; Counter
|
||||||
|
;------------
|
||||||
|
org _SOURCE
|
||||||
|
ins "missile.bin",+:1*8192,8192
|
||||||
|
;------------
|
||||||
|
org $2e2
|
||||||
|
dta a(MAIN_PROCESS)
|
||||||
|
;------------
|
||||||
|
.endl
|
||||||
|
.endr
|
||||||
|
;------------
|
||||||
|
org $2e2
|
||||||
|
dta a(FINISH_PROCESS)
|
||||||
Binary file not shown.
@@ -0,0 +1,287 @@
|
|||||||
|
; flash eeprom library
|
||||||
|
; by JHusak , 04.01.2020
|
||||||
|
; free to use.
|
||||||
|
|
||||||
|
; x - bank to select on exit
|
||||||
|
; c - 1 - format, 0 - write
|
||||||
|
;.print flashcnt
|
||||||
|
flashoppreamble
|
||||||
|
|
||||||
|
; $5555<$aa
|
||||||
|
sty $d502
|
||||||
|
ldy #$aa
|
||||||
|
sty $b555
|
||||||
|
; $2aaa<$55
|
||||||
|
sty $d501
|
||||||
|
ldy #$55
|
||||||
|
sty $aaaa
|
||||||
|
; $5555<$80
|
||||||
|
sty $d502
|
||||||
|
; sector format: carry set
|
||||||
|
scc
|
||||||
|
ldy #$80 ; sector erase
|
||||||
|
scs
|
||||||
|
ldy #$a0 ; byte programm
|
||||||
|
sty $b555
|
||||||
|
bcc @+
|
||||||
|
; $5555<$aa
|
||||||
|
sty $d502
|
||||||
|
ldy #$aa
|
||||||
|
sty $b555
|
||||||
|
; $2aaa<$55
|
||||||
|
sty $d501
|
||||||
|
ldy #$55
|
||||||
|
sty $aaaa
|
||||||
|
|
||||||
|
; PREPARE FOR SECTOR TO ERASE
|
||||||
|
|
||||||
|
; set upper bank bits
|
||||||
|
|
||||||
|
@ rts
|
||||||
|
|
||||||
|
; --------------------------
|
||||||
|
; PROCEDURE
|
||||||
|
flashformatchip
|
||||||
|
|
||||||
|
sei
|
||||||
|
sec ; format preamble
|
||||||
|
jsr flashoppreamble ; does not touch A
|
||||||
|
sta $d502
|
||||||
|
lda #$10
|
||||||
|
sta $b555
|
||||||
|
lda #$ff
|
||||||
|
sta flashcmp
|
||||||
|
jsr flashcheckresult
|
||||||
|
beq @+
|
||||||
|
; cart is off and cli
|
||||||
|
; sec ; error
|
||||||
|
; rts
|
||||||
|
@ lda #$1f
|
||||||
|
sta flashformatcounter
|
||||||
|
@ sei
|
||||||
|
flashformatcounter equ*+1
|
||||||
|
sta $d51f
|
||||||
|
ldx #0
|
||||||
|
ldy #$20
|
||||||
|
lda #$a0
|
||||||
|
sta flashformataddrcheck + 2
|
||||||
|
lda #$ff
|
||||||
|
jsr flashformataddrcheck
|
||||||
|
bcs @+ ; format error
|
||||||
|
dec flashformatcounter
|
||||||
|
bpl @-
|
||||||
|
@ jmp flashcartoff ; preserves C
|
||||||
|
|
||||||
|
|
||||||
|
; --------------------------
|
||||||
|
; PROCEDURE
|
||||||
|
flashformatsector
|
||||||
|
; x - even sector 00 - 1f
|
||||||
|
; a - erase 4KB from $B000 if A=$B0, FROM $A000 IF A=$A0
|
||||||
|
; format 4kb evensector
|
||||||
|
; strange form - easily maps to cartridge banks
|
||||||
|
; to format bank, must format sector (x<<1) and (x<<1) +1
|
||||||
|
; first check if all ff
|
||||||
|
; this is to avoid wear
|
||||||
|
stx flashformatstorex
|
||||||
|
sta flashformatstorea
|
||||||
|
sei
|
||||||
|
sta $d500,x
|
||||||
|
sta flashformataddrcheck + 2
|
||||||
|
jsr flashchecksectorformatted
|
||||||
|
bcc flashsectorformatgood
|
||||||
|
;php
|
||||||
|
;lda #'F'
|
||||||
|
;jsr PRINTWHAT
|
||||||
|
;plp
|
||||||
|
sei
|
||||||
|
flashformatstorex equ * + 1
|
||||||
|
ldx #0 ; filled before
|
||||||
|
flashformatstorea equ * + 1
|
||||||
|
lda #0 ; filled before
|
||||||
|
; check least sector bit
|
||||||
|
|
||||||
|
sec ; format preamble
|
||||||
|
jsr flashoppreamble ; does not touch A,X
|
||||||
|
sta $D500,x
|
||||||
|
; A must be either $A0 or $B0
|
||||||
|
sta flashtmpaddr+1
|
||||||
|
sta flashformataddrcheck + 2
|
||||||
|
|
||||||
|
lda #$30
|
||||||
|
flashtmpaddr equ *+1
|
||||||
|
sta $a000 ; Format!
|
||||||
|
jsr flashcheckresult
|
||||||
|
sei
|
||||||
|
|
||||||
|
lda flashformatstorea
|
||||||
|
sta flashformataddrcheck+2
|
||||||
|
|
||||||
|
ldx flashformatstorex
|
||||||
|
sta $d500,x
|
||||||
|
|
||||||
|
; check if all data in sector is $ff
|
||||||
|
flashchecksectorformatted
|
||||||
|
ldx #0
|
||||||
|
ldy #$10
|
||||||
|
lda #$ff
|
||||||
|
flashformataddrcheck
|
||||||
|
cmp $a000,x
|
||||||
|
bne flashsectorformaterror
|
||||||
|
inx
|
||||||
|
bne flashformataddrcheck
|
||||||
|
inc flashformataddrcheck + 2
|
||||||
|
dey
|
||||||
|
bne flashformataddrcheck
|
||||||
|
|
||||||
|
flashsectorformatgood
|
||||||
|
jsr flashcartoff
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
flashsectorformaterror
|
||||||
|
jsr flashcartoff
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
|
||||||
|
; ---------------------
|
||||||
|
; PROCEDURE
|
||||||
|
|
||||||
|
flashwritebyte
|
||||||
|
|
||||||
|
; a - byte to write
|
||||||
|
; x - 8kb bank to switch
|
||||||
|
; flashaddr - addres in flash - must be a000-offset
|
||||||
|
; do not programm byte if already good
|
||||||
|
sei
|
||||||
|
sta $D500,x
|
||||||
|
ldy #{ cmp.w }
|
||||||
|
jsr flashprocessbyte
|
||||||
|
bne @+
|
||||||
|
sta $D580
|
||||||
|
cli
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
@ sta flashcmp
|
||||||
|
|
||||||
|
sei
|
||||||
|
clc ; write byte preamble
|
||||||
|
|
||||||
|
jsr flashoppreamble ; preserves A,X
|
||||||
|
|
||||||
|
sta $D500,x
|
||||||
|
|
||||||
|
ldy #{ sta.w }
|
||||||
|
jsr flashprocessbyte
|
||||||
|
|
||||||
|
flashcheckresult ; sei mode
|
||||||
|
mva #0 flashcnt
|
||||||
|
ldy #5 ; first time wait short first turn to speed up byte write.
|
||||||
|
bne @+
|
||||||
|
|
||||||
|
flashwaitfordone
|
||||||
|
; approx 100ms in overall for chip erase:
|
||||||
|
; as many cycles needed, as 256*cycles >100ms * (1+epsilon)
|
||||||
|
; 100 ms is 180000 cycles
|
||||||
|
; so max 256 rough loops must last longer
|
||||||
|
; 180000 / 256 = 703
|
||||||
|
; 700 cycles by 6 cycles loop lasts = 116.
|
||||||
|
; so flipipng values, and adding margin,
|
||||||
|
; we count 128*6 cycles in inner loop.
|
||||||
|
; max sector erase by datasheet: 25 ms
|
||||||
|
; max chip erase by datasheet: 100 ms
|
||||||
|
ldy#250
|
||||||
|
@ dey
|
||||||
|
nop
|
||||||
|
bne @-
|
||||||
|
|
||||||
|
@ ldy #{ lda.w }
|
||||||
|
jsr flashprocessbyte
|
||||||
|
ldy #{ eor.w }
|
||||||
|
jsr flashprocessbyte
|
||||||
|
inc flashcnt
|
||||||
|
bne @+
|
||||||
|
jsr flashcartoff
|
||||||
|
lda #$ff ; status
|
||||||
|
rts
|
||||||
|
@
|
||||||
|
and #$40
|
||||||
|
bne flashwaitfordone
|
||||||
|
; in acc will be mismatched byte
|
||||||
|
ldy #{ lda.w }
|
||||||
|
jsr flashprocessbyte
|
||||||
|
jsr flashcartoff ; preserves axy, not p
|
||||||
|
flashcmp equ *+1
|
||||||
|
cmp #0
|
||||||
|
; when non zero = error
|
||||||
|
rts
|
||||||
|
|
||||||
|
flashcnt
|
||||||
|
brk
|
||||||
|
; ----------------------
|
||||||
|
; PROCEDURE
|
||||||
|
|
||||||
|
flashprocessbyte
|
||||||
|
|
||||||
|
; y - byteop for cpu to do with byte
|
||||||
|
; flashaddr - stored address
|
||||||
|
sty flashbyteop
|
||||||
|
flashaddr equ *+1
|
||||||
|
flashbyteop
|
||||||
|
sta $aaaa
|
||||||
|
rts
|
||||||
|
|
||||||
|
flashincaddr
|
||||||
|
inw flashaddr
|
||||||
|
rts
|
||||||
|
|
||||||
|
flashsetaddr
|
||||||
|
stx flashaddr
|
||||||
|
sty flashaddr+1
|
||||||
|
rts
|
||||||
|
|
||||||
|
flashcartoff
|
||||||
|
pha
|
||||||
|
sta $d580
|
||||||
|
lda $d013
|
||||||
|
sta $3fa
|
||||||
|
cli
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
|
; PROCEDURE
|
||||||
|
; Y-char to write
|
||||||
|
PRINTWHAT
|
||||||
|
php
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
pha
|
||||||
|
tya
|
||||||
|
pha
|
||||||
|
jsr $f2b0
|
||||||
|
pla
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
plp
|
||||||
|
rts
|
||||||
|
PRINTDOT
|
||||||
|
php
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
pha
|
||||||
|
tya
|
||||||
|
pha
|
||||||
|
lda #'.'
|
||||||
|
jsr $f2b0
|
||||||
|
pla
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
plp
|
||||||
|
rts
|
||||||
|
; ----------------------- IINT
|
||||||
|
; org $2e2
|
||||||
|
; dta a($600)
|
||||||
BIN
Binary file not shown.
+66
@@ -0,0 +1,66 @@
|
|||||||
|
|
||||||
|
; jsr print
|
||||||
|
; dta c'Ala ma kota',$9b,0
|
||||||
|
; next instructions
|
||||||
|
print .proc
|
||||||
|
clc
|
||||||
|
pla
|
||||||
|
adc #$01
|
||||||
|
sta ?strv
|
||||||
|
pla
|
||||||
|
adc #$00
|
||||||
|
sta ?strv+1
|
||||||
|
|
||||||
|
?strv equ *+1
|
||||||
|
lda $ffff
|
||||||
|
bne ?prt
|
||||||
|
lda ?strv+1
|
||||||
|
pha
|
||||||
|
lda ?strv
|
||||||
|
pha
|
||||||
|
rts
|
||||||
|
?prt jsr $f2b0
|
||||||
|
inw ?strv
|
||||||
|
bne ?strv-1
|
||||||
|
rts
|
||||||
|
.endp
|
||||||
|
|
||||||
|
printhex .proc
|
||||||
|
jsr lHex
|
||||||
|
sta ?printhextmp
|
||||||
|
txa
|
||||||
|
jsr $f2b0
|
||||||
|
|
||||||
|
?printhextmp equ * +1
|
||||||
|
lda #$ff
|
||||||
|
jmp $f2b0
|
||||||
|
.endp
|
||||||
|
|
||||||
|
lHex .proc
|
||||||
|
|
||||||
|
// po deklaracji procedury .PROC z parametrami, automatycznie wymuszone zostaje wykonanie
|
||||||
|
// makra @PULL, ktore zdejmie za nas parametry ze stosu programowego i umiesci je w pamieci
|
||||||
|
// od adresu @PROC_VARS_ADR, etykiecie parametru LOW zostaje przypisany adres @PROC_VARS_ADR
|
||||||
|
|
||||||
|
pha
|
||||||
|
:4 lsr @
|
||||||
|
|
||||||
|
jsr HEX2INT
|
||||||
|
|
||||||
|
tax ; wynik dzialania w regX
|
||||||
|
|
||||||
|
pla
|
||||||
|
and #$0f
|
||||||
|
|
||||||
|
HEX2INT SED
|
||||||
|
CMP #$0A
|
||||||
|
ADC #'0'
|
||||||
|
CLD
|
||||||
|
; wynik dzialania w regA
|
||||||
|
rts
|
||||||
|
.endp
|
||||||
|
|
||||||
|
printnl .proc
|
||||||
|
lda #$9b
|
||||||
|
jmp $f2b0
|
||||||
|
.endp
|
||||||
Reference in New Issue
Block a user