;*** save turbo-R system ROM ***

	cseg
	public	START

ST_BNK	equ	0		;start bank number (0-1FFh)
ED_BNK	equ	1ffh		;end bank number (0-1FFh)

BDOS	equ	00005h
ENASLT	equ	00024h
FCB	equ	0005ch
RAMAD1	equ	0f342h

START:	ld	bc,37-12-1
	ld	de,FCB+13
	ld	hl,FCB+12
	ld	(hl),b
	ldir

	ld	de,8000h
	ld	c,1ah
	call	BDOS

	ld	de,FCB
	ld	c,16h
	call	BDOS

	ld	hl,1
	ld	(FCB+14),hl

LOOP:	ld	a,8fh
	ld	h,40h
	call	ENASLT

	ld	hl,(BANK)
	ld	a,l
	ld	(6800h),a
	xor	a
	sub	h		;H=00h or 01h => A=00h or FFh
	ld	(7FF8h),a

	ld	bc,2000h
	ld	de,8000h
	ld	hl,4000h
	ldir

	ld	a,0ch
	ld	(6800h),a
	ld	a,0
	ld	(7FF8h),a

	ld	a,(RAMAD1)
	ld	h,40h
	call	ENASLT

	ld	hl,2000h
	ld	de,FCB
	ld	c,26h
	call	BDOS

	ld	hl,(BANK)
	inc	hl
	ld	(BANK),hl
	ld	de,ED_BNK
	scf
	sbc	hl,de
	jr	nz,LOOP

DONE:	ld	de,FCB
	ld	c,10h
	call	BDOS

	ret

BANK:	defw	ST_BNK

	end