;----------------------------------------------------------------------
; Loadscr.asm : Demostracion de las rutinas LOAD de la ROM, con
; la carga de un fichero SCR (desde cinta) en videomemoria.
;----------------------------------------------------------------------

    ORG 32000

    and a                           ; CF = 0 (verify)
    call 1366                       ; Cargamos e ignoramos la cabecera

    scf                             ; Set Carry Flag -> CF=1 -> LOAD
    ld a, 255                       ; A = 0xFF (cargar datos)
    ld ix, 16384                    ; Destino del load = 16384
    ld de, 6912                     ; Longitud a cargar = 6912
    call 1366                       ; Llamamos a la rutina de carga

    ret 

    END 32000