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

polished and cleaned-up; updated all flashers.

Browse Source
This commit is contained in:
Jakub Husak
2023-07-18 10:08:26 +02:00
parent a21517838c
commit b767c0ce9e
19 changed files with 193 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/lib_28sf0x0.asm
+40 -12
View File
@@ -1,30 +1,53 @@
C_FORMAT_28SF equ $30
C_CHIPFORMAT_28SF equ $30
C_SECTORFORMAT_28SF equ $D0
C_BYTE_PROG_28SF equ $10
M_SSIZE_28SF equ $0100 ; sector size
M_SSIZE_28SF equ $01 ; sector size
;
M_VECTORS_28SF
jmp softid_entry_28SF
jmp softid_exit_28SF
jmp flashoppreamble_28SF
jmp flash_formatchip_28SF
jmp flash_formatsector_28SF
jmp flash_writebytepreamble_28SF
jmp flash_lockchip_28SF
jmp flash_unlockchip_28SF
jmp flash_wait_unit_28SF
dta M_SSIZE_28SF
dta c'28SF0x0',0
flashoppreamble_28SF
lda #C_BYTE_PROG_28SF
bcc flashoppreamble_acc_28SF
; entry for command in A, mainly for sector format
flash_formatsector_28SF ; 28SF0x0
jsr flash_unlockchip_28SF
lda #C_FORMAT_28SF ; only if c set
sta $d500,x ; can be any address
sta $a000; command select: FORMAT/ID_MODE/BYTE_PROG, any address
sta $a000; command commit: FORMAT/ID_MODE/BYTE_PROG, any address
lda #$20
sta $a000; command select: FORMATSECTOR/ID_MODE, any address
lda #C_SECTORFORMAT_28SF
; sta in proper address done level up
; only address in range a000-bfff,calculated by $80 bytesize page number 0-3f
rts
flashoppreamble_acc_28SF ; 28SF0x0
flash_writebytepreamble_28SF
; chip should be unlocked to work;
; it is done during format
; or manually
lda #C_BYTE_PROG_28SF
sta $d500,x
sta $a000
flash_wait_unit_28SF
rts
; main entry
; c set ->format (either chip or sector)
; c cleared ->byte write
flash_formatchip_28SF
jsr flash_unlockchip_28SF ; x is 0 or $40, else does not unlock
lda #C_CHIPFORMAT_28SF ; only if c set
sta $d500,x ; can be any addres, in any bank
sta $a000; command select: FORMAT/ID_MODE/BYTE_PROG, any address
sta $a000; command commit: FORMAT/ID_MODE/BYTE_PROG, any address
rts
; entry for command in A, mainly for sector format
flashoppreamble_accnotunlock_28SF ; 28SF0x0
;read_manufacturer_28SF
; sta $D500,x ; x=0 or $40 else will read wrong
; lda $a000
@@ -35,16 +58,21 @@ flash_wait_unit_28SF
; rts
flash_unlockchip_28SF
txa
pha
and #$40
tax
sta $D500,x ; x =0 or $40, else will not unlock
; read from 1823H, 1820H, 1822H, 0418H, 041BH, 0419H, 041AH
jsr flash_lock_preamb_28SF
lda $A41A
pla
tax
rts
softid_entry_28SF
lda #$90
sta $a000
rts
dta {bit.w}
softid_exit_28SF
lda #$ff