GLOBALS ON
 EXTERN Banked_Call_1F,Banked_Call_Write
 DEFINE PAGE7D, SPACE=ROM
 SEGMENT PAGE7D
WriteFlash:
	push af
	ld a,1
	nop
	di
	nop
	nop
	im 1
	di
	out (14h),a
	di
	pop af
	call WriteFlash_Call
	push af
	xor a
	nop
	di
	nop
	nop
	im 1
	di
	out (14h),a
	di
	pop af
	ret
ErasePage:
	push af
	;TI-OS
	ld a,1
	nop
	di
	nop
	nop
	im 1
	di
	out (14h),a
	di
	pop af
	call ErasePage_Call
	push af
	xor a
	nop
	di
	nop
	nop
	im 1
	di
	out (14h),a
	di
	pop af
	ei
	ret
ErasePage_Call:
	ld hl,4B6Ah
	;ld bc,4BBDh-4B6Ah+1
	call Banked_Call_1F
	inc c
	ld c,b
	rra
	ret
WriteFlash_Call:
	call Banked_Call_Write
	inc c
	ld c,b
	rra
	ret