mirror of
https://github.com/Pecusx/jataricart.git
synced 2026-05-20 22:33:22 +02:00
Jakub Husak
65 lines
1.2 KiB
NASM
65 lines
1.2 KiB
NASM
C_FORMAT_29SF equ $80
|
|
C_BYTE_PROG_29SF equ $a0
|
|
M_SSIZE_29SF equ $0080 ; sector size
|
|
command_ZP = $f0
|
|
|
|
M_VECTORS_29SF
|
|
jmp softid_entry_29SF
|
|
jmp softid_exit_29SF
|
|
jmp flashoppreamble_29SF
|
|
jmp flash_lockchip_29SF
|
|
jmp flash_unlockchip_29SF
|
|
|
|
flashoppreamble_29SF
|
|
pha
|
|
lda #C_BYTE_PROG_29SF
|
|
scc
|
|
lda #C_FORMAT_29SF ; only if c set
|
|
sta command_ZP
|
|
pla
|
|
.byte {bit.w}
|
|
flashoppreamble_acc_29SF ; 29sf040
|
|
sta command_ZP
|
|
txa
|
|
pha
|
|
; when write byte x must be set to either 0 or 40 temporarily
|
|
and #$40
|
|
tax
|
|
sta $d500,x
|
|
mva #$aa $a555 ; $555<$aa
|
|
mva #$55 $a2aa ; $2aa<$55
|
|
; $555<command
|
|
mva command_ZPff $a555; will become command: FORMAT/ID_MODE/BYTE_PROG
|
|
cmp #C_FORMAT_29SF
|
|
bne @+ ; if not FORMAT, procedure finishes
|
|
; FORMAT part, more to write
|
|
mva #$aa $a555 ; $555<$aa
|
|
mva #$55 $a2aa ; $2aa<$55
|
|
; PREPARE FOR SECTOR TO ERASE
|
|
@ pla
|
|
tax
|
|
flash_unlockchip_29SF
|
|
rts
|
|
|
|
;read_manufacturer_29SF
|
|
; sta D500,x ; x=0 or $40 else will read wrong
|
|
; lda $a000
|
|
; rts
|
|
|
|
;read_product_29SF
|
|
; sta D500,x ; x=0 or $40 else will read wrong
|
|
; lda $a001
|
|
; rts
|
|
|
|
softid_exit_29SF
|
|
sta D500,x ; x=0 or $40 else will read wrong
|
|
lda #$f0
|
|
sta $a000
|
|
rts
|
|
|
|
|
|
softid_entry_29SF
|
|
lda #$90
|
|
bne flashoppreamble_acc_29SF
|
|
|