mirror of https://github.com/zxdos/zxuno.git
44 lines
1.0 KiB
NASM
44 lines
1.0 KiB
NASM
org 0
|
|
di
|
|
ld sp,32768
|
|
ld hl,Codigo
|
|
ld de,16384
|
|
ld bc,LCodigo
|
|
Espera1: in a,(255)
|
|
cp 255
|
|
jr nz,Espera1
|
|
Espera2: in a,(255)
|
|
cp 255
|
|
jr z,Espera2
|
|
ldir
|
|
Otra: call 16384
|
|
jp Otra
|
|
|
|
Codigo: in a,(255)
|
|
cp 255
|
|
jr z,Codigo
|
|
out (254),a
|
|
out (254),a
|
|
nop
|
|
out (254),a
|
|
out (254),a
|
|
nop
|
|
ld bc,40feh
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
dec c
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
out (c),a
|
|
ret
|
|
LCodigo equ $-Codigo
|
|
|
|
end
|