works 29f0x0 format

various_flashers/1MBOnEscape/flashwrite.asx

@@ -34,6 +34,7 @@ _DEST	equ	$A000
 
 ; test code
 	org $2000
+STARTFLASHWRITE
 	mva #$A0 106
 	jsr opened
 	lda 20
@@ -55,6 +56,72 @@ _DEST	equ	$A000
 	lda $d013
 	sta $3fa
 
+	ldx #0 ; chip address
+	stx numchips
+_check_chips
+	stx _storex
+	jsr check_type
+	bcc ?_next
+	jsr print
+	dta c'unrecognized chip: ',0
+	lda m_vendor
+	jsr printhex
+	lda m_kind
+	jsr printhex
+	cpx #$0
+	seq
+		jmp *
+	jsr print
+	dta c'ignoring chip ...',0
+	jmp menu
+?_next	inc numchips
+	lda numchips
+	clc
+	adc #$30
+	sta chipno
+
+	jsr print
+	dta c'chip '
+chipno
+	dta c'0'
+	dta c' vend/prod: ',0
+	lda m_vendor
+	jsr printhex
+	lda m_kind
+	jsr printhex
+	jsr print
+	dta c' code: ',0
+
+	; print memory type
+	lda M_VECTOR
+	clc
+	adc #flash_idstr ; will print flashmem text id
+	sta ?taddr
+	lda M_VECTOR+1
+	adc #0
+	sta ?taddr+1
+	ldy #0
+?loop	; write string onscreen till 0
+	lda ?taddr:$ffff,y
+	beq ?exit
+	sty st_y
+	jsr outchar
+	ldy st_y:#0
+	iny
+	bne ?loop
+?exit
+	jsr printnl
+	ldx _storex
+	cpx #0
+	bne menu
+	lda m_vendor
+	sta t_vendor
+	lda m_kind
+	sta t_kind
+	ldx #$40
+	jmp _check_chips
+menu
+	jsr printnl
 	;lda #$ff
 	;sta $d301
 	
@@ -74,7 +141,7 @@ _DEST	equ	$A000
 	cmp #option
 	jeq CHECKONLY
 	; start
-FORMAT  
+FORMAT
 	jsr printformatting
 	jsr print
 	dta c'1...',0
@@ -110,6 +177,12 @@ CHECKONLY
 	jsr print
 	dta c'Compare.',$9b,0
 	rts
+
+t_vendor	.byte 0
+t_kind		.byte 0
+numchips	.byte 0
+_storex		.byte 0
+
 crcsums
 	:128 dta 0,0
 opened	
@@ -344,7 +417,7 @@ badcompare_tmp2 equ 	* +1
 	sec
 	jmp dmaon	
 ; -------
-	icl '../../lib/flashwritelib.asx'
+	icl '../../lib/flashwritelib_new.asx'
 
 	icl '../../lib/crc16_v2.asm'
 
@@ -357,7 +430,7 @@ badcompare_tmp2 equ 	* +1
 	;jmp *
 	icl '../../lib/print2.asx'
 	org $2e2
-	dta a($2000)
+	dta a(STARTFLASHWRITE)
 ; ---------------------------------------
 ; blocks for every 8kb bank
 .rept 128, #