;
; Prueba de codigo ensamblador
;
; Radastan

        ORG 32768
	
; RUTINA DE PREPARACION DE PANTALLA

	ld a, 15	; papel azul y tita en blanco
	ld (23693),a	; actualizamos ATTR
	ld (23624),a	; variable del sistema BORDCR, parte baja de la pantalla
	call 3503
	ld a, 1		; borde azul, para actualización inmediata
	out (254), a

; DE será la posición del cursor
; si sumamos 1 iremos en horizontal y si sumamos 32 en vertical

	ld de, 16384
	ld hl, muro
	call print
	ld de, 16416
	ld hl, muro
	call print
	ret

; rutina de impresión de un sprite de 8x8 pixels sin atributos

print	ld b, 8
draw	ld a,(hl)           ; hl indica la posición del sprite en memoria
	ld (de),a           ; de indica la posición de pantalla
	inc hl
	inc d
	djnz draw           ; decrementa B y si es cero deja de saltar a draw
	ret


; sprite de un trozo de muro
muro   defb 223,223,223,0,253,253,253,0