CONTADOR ASCENDENTE Z-80

contador acendente

retardo: ld de,00ffh

continua: inc e

jp nz,continua

inc d

jp nz,continua

ret

contador acendente desendente

puerto_a equ 00h

puerto_b equ 01h

puerto_c equ 02h

puerto_ctl equ 03h

org 0000h

inicio: ld sp,57ffh

ld a,82h

out (puerto_ctl),a

ld b,00h

ld c,0ffh

continua: ld a,b

out (puerto_a),a

inc b

ld a,c

out (puerto_c),a

dec c

call retardo

sumador

puerto-a equ 00h

0002 0000 puerto-b equ 01h

0003 0000 puerto-c equ 02h

0004 0000 puerto-ctl equ 03h

0005 0000 org 0000h

0006 0000 31 ff 57 inicio: ld sp, 57ffh

0007 0003 3e 98 ld a, 98h

0008 0005 d3 03 out (puerto-ctl), a

0009 0007 db 00 xxx: in a, (puerto-a)

0010 0009 47 ld b, a

0011 000a 80 add a,b

0012 000b da 19 00 jp c, as

0013 000e d3 01 out (puerto-b),a

0014 0010 db 02 in a, (puerto-c)

0015 0012 cb 8f res 1, a

0016 0014 d3 02 out (puerto-c), a

0017 0016 c3 07 00 jp xxx

0018 0019 d3 01 as: out (puerto-b), a

0019 001b db 02 in a, (puerto-c)

0020 001d cb c7 set 0, a

0021 001f d3 02 out (puerto-c), a

0022 0021 c3 07 00 jp xxx

0023 0024 end

letreros z80

puerto_a equ 00h

puerto_b equ 01h

puerto_c equ 02h

puerto_ctl equ 03h

org 0000h

inicio: ld sp,57ffh

ld a,88h

out (puerto_ctl),a

call configuracion_lcd

call dato

ld hl,letrero_1

call renglon

call comando

ld a,0c0h

call habilita_lcd

call dato

ld hl,letrero_2

call renglon

halt

comando: in a,(puerto_c)

res 0,a

out (puerto_c),a

ret

renglon: ld b,10h

otro call dato

ld a,(hl)

out (puerto_a),a

call habilita_3

inc hl

dec b

jp nz,otro

ret

dato: in a,(puerto_c)

set 0,a

out (puerto_c),a

ret

habilita_lcd: out (puerto_a),a

in a,(puerto_c)

set 1,a

out (puerto_c),a

call retardo

res 1,a

out (puerto_c),a

ret

configuracion_lcd: call comando

ld a,38h

call habilita_lcd

ld a,0eh

call habilita_lcd

ld a,01h

call habilita_lcd

ret

retardo: ld de,009fh

continua: inc e

jp nz,continua

inc d

jp nz,continua

ret

habilita_3: ld a,03h

out (puerto_c),a

call

...