; ***
; CC65 Lynx Library
;
; Originally by Bastian Schick
; http://www.geocities.com/SiliconValley/Byte/4242/lynx/
;
; Ported to cc65 (http://www.cc65.org) by
; Shawn Jefferson, June 2004
;
; ***
;
; void __fastcall__ read_cart_block(unsigned char block, char *dest)
;
; Reads an entire block (1024 bytes) from the cartridge into the buffer
; pointed to by dest.


       	.export     _read_cart_block
       	.import     FileSelectBlock, FileReadBytes
       	.import     popa

        .include    "extzp.inc"


.code

;*******************************************
; void read_cart_block (unsigned char block, char *dest);
; loads one Block (1024 bytes) to pDest

_read_cart_block:
       	sta     _FileDestPtr            ;  lo
       	stx     _FileDestPtr+1          ;  hi

       	jsr     popa                    ; bBlock

       	sta     _FileCurrBlock
       	jsr     FileSelectBlock         ; select block# (Accu)

       	lda     #<1024                  ; load a whole block (1024 bytes)
       	eor     #$ff
       	tax
       	lda     #>1024
       	eor     #$ff
       	tay

       	jmp     FileReadBytes