falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Funciona rutina impresión, ahora a probar scroll

This commit is contained in:
antoniovillena 2016-06-26 00:23:53 +02:00
parent 7613b4b34a
commit 82ff17bedf
1 changed files with 147 additions and 341 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

488
firmware/scroll/scroll.asm
View File

@ -4,37 +4,6 @@
defb 0, 0, 0, 0
defb $de, $c0, $37, $0e, $8f, $39, $ac ;OVER USR 7 ($5cd6)
macro linea src1, src2, src3, dst1, dst2, dst3
ld sp, $4005+$800*src1+$100*src3+$20*src2
pop hl
pop de
pop bc
pop af
exx
pop hl
pop de
pop bc
ld sp, $4013+$800*dst1+$100*dst3+$20*dst2
push bc
push de
push hl
exx
push af
push bc
push de
push hl
ld sp, $4013+$800*src1+$100*src3+$20*src2
pop hl
pop de
pop bc
pop af
ld sp, $401b+$800*dst1+$100*dst3+$20*dst2
push af
push bc
push de
push hl
endm
bucle ;ld hl, 0
;ld de, $4000
;ld bc, $1800
@ -49,9 +18,8 @@ bucle ;ld hl, 0
ldir
ld hl, $b000
; ld de, $b400
start1 ld b, $04
start1 ld b, $08
start2 ld a, (hl)
rrca
rrca
ld (de), a
inc de
@ -66,197 +34,7 @@ bucl2 halt
bucl3 djnz bucl3
dec c
jr nz, bucl3
linea 0, 0, 1, 0, 0, 0
linea 0, 0, 2, 0, 0, 1
linea 0, 0, 3, 0, 0, 2
linea 0, 0, 4, 0, 0, 3
linea 0, 0, 5, 0, 0, 4
linea 0, 0, 6, 0, 0, 5
linea 0, 0, 7, 0, 0, 6
linea 0, 1, 0, 0, 0, 7
linea 0, 1, 1, 0, 1, 0
linea 0, 1, 2, 0, 1, 1
linea 0, 1, 3, 0, 1, 2
linea 0, 1, 4, 0, 1, 3
linea 0, 1, 5, 0, 1, 4
linea 0, 1, 6, 0, 1, 5
linea 0, 1, 7, 0, 1, 6
linea 0, 2, 0, 0, 1, 7
linea 0, 2, 1, 0, 2, 0
linea 0, 2, 2, 0, 2, 1
linea 0, 2, 3, 0, 2, 2
linea 0, 2, 4, 0, 2, 3
linea 0, 2, 5, 0, 2, 4
linea 0, 2, 6, 0, 2, 5
linea 0, 2, 7, 0, 2, 6
linea 0, 3, 0, 0, 2, 7
linea 0, 3, 1, 0, 3, 0
linea 0, 3, 2, 0, 3, 1
linea 0, 3, 3, 0, 3, 2
linea 0, 3, 4, 0, 3, 3
linea 0, 3, 5, 0, 3, 4
linea 0, 3, 6, 0, 3, 5
linea 0, 3, 7, 0, 3, 6
linea 0, 4, 0, 0, 3, 7
linea 0, 4, 1, 0, 4, 0
linea 0, 4, 2, 0, 4, 1
linea 0, 4, 3, 0, 4, 2
linea 0, 4, 4, 0, 4, 3
linea 0, 4, 5, 0, 4, 4
linea 0, 4, 6, 0, 4, 5
linea 0, 4, 7, 0, 4, 6
linea 0, 5, 0, 0, 4, 7
linea 0, 5, 1, 0, 5, 0
linea 0, 5, 2, 0, 5, 1
linea 0, 5, 3, 0, 5, 2
linea 0, 5, 4, 0, 5, 3
linea 0, 5, 5, 0, 5, 4
linea 0, 5, 6, 0, 5, 5
linea 0, 5, 7, 0, 5, 6
linea 0, 6, 0, 0, 5, 7
linea 0, 6, 1, 0, 6, 0
linea 0, 6, 2, 0, 6, 1
linea 0, 6, 3, 0, 6, 2
linea 0, 6, 4, 0, 6, 3
linea 0, 6, 5, 0, 6, 4
linea 0, 6, 6, 0, 6, 5
linea 0, 6, 7, 0, 6, 6
linea 0, 7, 0, 0, 6, 7
linea 0, 7, 1, 0, 7, 0
linea 0, 7, 2, 0, 7, 1
linea 0, 7, 3, 0, 7, 2
linea 0, 7, 4, 0, 7, 3
linea 0, 7, 5, 0, 7, 4
linea 0, 7, 6, 0, 7, 5
linea 0, 7, 7, 0, 7, 6
linea 1, 0, 0, 0, 7, 7
linea 1, 0, 1, 1, 0, 0
linea 1, 0, 2, 1, 0, 1
linea 1, 0, 3, 1, 0, 2
linea 1, 0, 4, 1, 0, 3
linea 1, 0, 5, 1, 0, 4
linea 1, 0, 6, 1, 0, 5
linea 1, 0, 7, 1, 0, 6
linea 1, 1, 0, 1, 0, 7
linea 1, 1, 1, 1, 1, 0
linea 1, 1, 2, 1, 1, 1
linea 1, 1, 3, 1, 1, 2
linea 1, 1, 4, 1, 1, 3
linea 1, 1, 5, 1, 1, 4
linea 1, 1, 6, 1, 1, 5
linea 1, 1, 7, 1, 1, 6
linea 1, 2, 0, 1, 1, 7
linea 1, 2, 1, 1, 2, 0
linea 1, 2, 2, 1, 2, 1
linea 1, 2, 3, 1, 2, 2
linea 1, 2, 4, 1, 2, 3
linea 1, 2, 5, 1, 2, 4
linea 1, 2, 6, 1, 2, 5
linea 1, 2, 7, 1, 2, 6
linea 1, 3, 0, 1, 2, 7
linea 1, 3, 1, 1, 3, 0
linea 1, 3, 2, 1, 3, 1
linea 1, 3, 3, 1, 3, 2
linea 1, 3, 4, 1, 3, 3
linea 1, 3, 5, 1, 3, 4
linea 1, 3, 6, 1, 3, 5
linea 1, 3, 7, 1, 3, 6
linea 1, 4, 0, 1, 3, 7
linea 1, 4, 1, 1, 4, 0
linea 1, 4, 2, 1, 4, 1
linea 1, 4, 3, 1, 4, 2
linea 1, 4, 4, 1, 4, 3
linea 1, 4, 5, 1, 4, 4
linea 1, 4, 6, 1, 4, 5
linea 1, 4, 7, 1, 4, 6
linea 1, 5, 0, 1, 4, 7
linea 1, 5, 1, 1, 5, 0
linea 1, 5, 2, 1, 5, 1
linea 1, 5, 3, 1, 5, 2
linea 1, 5, 4, 1, 5, 3
linea 1, 5, 5, 1, 5, 4
linea 1, 5, 6, 1, 5, 5
linea 1, 5, 7, 1, 5, 6
linea 1, 6, 0, 1, 5, 7
linea 1, 6, 1, 1, 6, 0
linea 1, 6, 2, 1, 6, 1
linea 1, 6, 3, 1, 6, 2
linea 1, 6, 4, 1, 6, 3
linea 1, 6, 5, 1, 6, 4
linea 1, 6, 6, 1, 6, 5
linea 1, 6, 7, 1, 6, 6
linea 1, 7, 0, 1, 6, 7
linea 1, 7, 1, 1, 7, 0
linea 1, 7, 2, 1, 7, 1
linea 1, 7, 3, 1, 7, 2
linea 1, 7, 4, 1, 7, 3
linea 1, 7, 5, 1, 7, 4
linea 1, 7, 6, 1, 7, 5
linea 1, 7, 7, 1, 7, 6
linea 2, 0, 0, 1, 7, 7
linea 2, 0, 1, 2, 0, 0
linea 2, 0, 2, 2, 0, 1
linea 2, 0, 3, 2, 0, 2
linea 2, 0, 4, 2, 0, 3
linea 2, 0, 5, 2, 0, 4
linea 2, 0, 6, 2, 0, 5
linea 2, 0, 7, 2, 0, 6
linea 2, 1, 0, 2, 0, 7
linea 2, 1, 1, 2, 1, 0
linea 2, 1, 2, 2, 1, 1
linea 2, 1, 3, 2, 1, 2
linea 2, 1, 4, 2, 1, 3
linea 2, 1, 5, 2, 1, 4
linea 2, 1, 6, 2, 1, 5
linea 2, 1, 7, 2, 1, 6
linea 2, 2, 0, 2, 1, 7
linea 2, 2, 1, 2, 2, 0
linea 2, 2, 2, 2, 2, 1
linea 2, 2, 3, 2, 2, 2
linea 2, 2, 4, 2, 2, 3
linea 2, 2, 5, 2, 2, 4
linea 2, 2, 6, 2, 2, 5
linea 2, 2, 7, 2, 2, 6
linea 2, 3, 0, 2, 2, 7
linea 2, 3, 1, 2, 3, 0
linea 2, 3, 2, 2, 3, 1
linea 2, 3, 3, 2, 3, 2
linea 2, 3, 4, 2, 3, 3
linea 2, 3, 5, 2, 3, 4
linea 2, 3, 6, 2, 3, 5
linea 2, 3, 7, 2, 3, 6
linea 2, 4, 0, 2, 3, 7
linea 2, 4, 1, 2, 4, 0
linea 2, 4, 2, 2, 4, 1
linea 2, 4, 3, 2, 4, 2
linea 2, 4, 4, 2, 4, 3
linea 2, 4, 5, 2, 4, 4
linea 2, 4, 6, 2, 4, 5
linea 2, 4, 7, 2, 4, 6
linea 2, 5, 0, 2, 4, 7
linea 2, 5, 1, 2, 5, 0
linea 2, 5, 2, 2, 5, 1
linea 2, 5, 3, 2, 5, 2
linea 2, 5, 4, 2, 5, 3
linea 2, 5, 5, 2, 5, 4
linea 2, 5, 6, 2, 5, 5
linea 2, 5, 7, 2, 5, 6
linea 2, 6, 0, 2, 5, 7
linea 2, 6, 1, 2, 6, 0
linea 2, 6, 2, 2, 6, 1
linea 2, 6, 3, 2, 6, 2
linea 2, 6, 4, 2, 6, 3
linea 2, 6, 5, 2, 6, 4
linea 2, 6, 6, 2, 6, 5
linea 2, 6, 7, 2, 6, 6
linea 2, 7, 0, 2, 6, 7
linea 2, 7, 1, 2, 7, 0
linea 2, 7, 2, 2, 7, 1
linea 2, 7, 3, 2, 7, 2
linea 2, 7, 4, 2, 7, 3
linea 2, 7, 5, 2, 7, 4
linea 2, 7, 6, 2, 7, 5
linea 2, 7, 7, 2, 7, 6
include lineas.asm
ld sp, 0
ex af, af'
@ -264,18 +42,29 @@ bucl3 djnz bucl3
jr c, nprn
ex af, af'
; ld hl,
ld ix, string
ld bc, $0014
ld bc, $0010
call prnstr
ld ix, string
ld bc, $8015
ld bc, $0111
call prnstr
ld ix, string
ld bc, $0116
ld bc, $0212
call prnstr
ld ix, string
ld bc, $8117
ld bc, $0313
call prnstr
ld ix, string
ld bc, $0414
call prnstr
ld ix, string
ld bc, $0515
call prnstr
ld ix, string
ld bc, $0616
call prnstr
ld ix, string
ld bc, $0717
call prnstr
jr $
ex af, af'
@ -296,12 +85,6 @@ nprn ex af, af'
; a bcdef
; abc def 3175
block 256 - ($ & $ff)
prntab defb pos0 & $ff
defb pos1 & $ff
defb pos2 & $ff
defb pos3 & $ff
; -----------------------------------------------------------------------------
; Print string routine
@ -311,22 +94,79 @@ prntab defb pos0 & $ff
; -----------------------------------------------------------------------------
prnstr push bc
rr b
ld a, b
and %11111100
jr c, prnimp
and %1111100
ld d, a
res 7, d
xor b
ld e, a
jr z, prnch1
dec e
prnch1 rl b
jr nc, prnch2
add a, 3
prnch2 and %00000011
ld l, a
ld h, prnstr>>8
ld l, (hl)
push hl
prnch1 ld a, d
rrca
ld d, a
rrca
add a, d
add a, e
ld e, a
ld a, c
and %00011000
or %01000000
ld d, a
ld a, c
and %00000111
rrca
rrca
rrca
add a, e
ld e, a
inc c
rr b
jr c, pos26
jr nz, pos4
pos0 ld a, (ix)
inc ix
add a, a
jr z, posf
ld h, $2c
call simple
dec de
pos2 ld a, (ix)
inc ix
add a, a
jr z, posf
ld h, $32
ld bc, $04fc
call doble
pos4 ld a, (ix)
inc ix
add a, a
jr z, posf
ld h, $30
ld bc, $04f0
call doble
pos6 ld a, (ix)
inc ix
add a, a
jr z, posf
ld h, $2e
call simple
jr pos0
pos26 rr b
jr c, pos6
jr pos2
posf pop bc
inc c
ret
prnimp and %1111100
ld d, a
xor b
cp 3
adc a, -1
ld e, a
ld a, d
rrca
ld d, a
@ -345,112 +185,48 @@ prnch2 and %00000011
rrca
add a, e
ld e, a
defb $3e ; salta la siguiente instruccion
posf pop bc
inc c
ret
pos0 ld a, (ix)
inc ix
add a, a
jr z, posf
ld l, a
ld h, $2c
add hl, hl
add hl, hl
ld b, 4
pos00 ld a, (hl)
ld (de), a
inc l
inc d
ld a, (hl)
ld (de), a
inc l
inc d
djnz pos00
ld hl, $f800
add hl, de
ex de, hl
rr b
jr c, pos37
jr nz, pos5
pos1 ld a, (ix)
inc ix
add a, a
jr z, posf
ld l, a
ld h, $2f
add hl, hl
add hl, hl
ld bc, $04fc
pos10 ld a, (de)
xor (hl)
and c
xor (hl)
ld (de), a
inc e
ld a, (hl)
and c
ld (de), a
inc d
inc l
ld a, (hl)
and c
ld (de), a
dec e
ld a, (de)
xor (hl)
and c
xor (hl)
ld (de), a
inc d
inc l
djnz pos10
ld hl, $f801
add hl, de
ex de, hl
pos2 ld a, (ix)
inc ix
add a, a
tposf jr z, posf
ld l, a
ld h, $2e
add hl, hl
add hl, hl
ld bc, $04f0
pos20 ld a, (de)
xor (hl)
and c
xor (hl)
ld (de), a
inc e
ld a, (hl)
and c
ld (de), a
inc d
inc l
ld a, (hl)
and c
ld (de), a
dec e
ld a, (de)
xor (hl)
and c
xor (hl)
ld (de), a
inc d
inc l
djnz pos20
ld hl, $f801
add hl, de
ex de, hl
ld bc, $04e0
call doble
pos3 ld a, (ix)
inc ix
add a, a
jr z, tposf
ld l, a
jr z, posf
ld h, $2d
call simple
pos5 ld a, (ix)
inc ix
add a, a
jr z, posf
ld h, $33
ld bc, $0401
call doble
dec de
pos7 ld a, (ix)
inc ix
add a, a
jr z, posf
ld h, $31
ld bc, $04f8
call doble
jr pos1
pos37 rr b
jr c, pos7
jr pos3
simple ld b, 4
ld l, a
add hl, hl
add hl, hl
ld b, 4
pos30 ld a, (de)
simple2 ld a, (de)
xor (hl)
ld (de), a
inc d
@ -460,12 +236,42 @@ pos30 ld a, (de)
ld (de), a
inc d
inc l
djnz pos30
djnz simple2
ld hl, $f801
add hl, de
ex de, hl
jp pos0
ret
doble ld l, a
add hl, hl
add hl, hl
doble2 ld a, (de)
xor (hl)
and c
xor (hl)
ld (de), a
inc e
ld a, (hl)
and c
ld (de), a
inc d
inc l
ld a, (hl)
and c
ld (de), a
dec e
ld a, (de)
xor (hl)
and c
xor (hl)
ld (de), a
inc d
inc l
djnz doble2
ld hl, $f801
add hl, de
ex de, hl
ret
string include string.asm
chr incbin fuente6x8.bin