Код:
y11:
call initScreen
; Графика
ld hl, txt1
ld bc, 0
call print
call 0F803h
call 0FACEh
; Графика
ld hl, txt1
ld bc, 0
call print
call 0F803h
jp y11
txt1: db "123",0x80, "45.80.12",0x80,"123 123",0x90, "45.90.12",0x80,"345",255
db "123",0x81, "45.81.12",0x80,"123 123",0x91, "45.91.12",0x80,"345",255
db "123",0x82, "45.82.12",0x80,"123 123",0x92, "45.92.12",0x80,"345",255
db "123",0x83, "45.83.12",0x80,"123 123",0x93, "45.93.12",0x80,"345",255
db "123",0x84, "45.84.12",0x80,"123 123",0x94, "45.94.12",0x80,"345",255
db "123",0x85, "45.85.12",0x80,"123 123",0x95, "45.95.12",0x80,"345",255
db "123",0x86, "45.86.12",0x80,"123 123",0x96, "45.96.12",0x80,"345",255
db "123",0x87, "45.87.12",0x80,"123 123",0x97, "45.97.12",0x80,"345",255
db "123",0x88, "45.88.12",0x80,"123 123",0x98, "45.98.12",0x80,"345",255
db "123",0x89, "45.89.12",0x80,"123 123",0x99, "45.99.12",0x80,"345",255
db "123",0x8A, "45.8A.12",0x80,"123 123",0x9A, "45.9A.12",0x80,"345",255
db "123",0x8B, "45.8B.12",0x80,"123 123",0x9B, "45.9B.12",0x80,"345",255
db "123",0x8C, "45.8C.12",0x80,"123 123",0x9C, "45.9C.12",0x80,"345",255
db "123",0x8D, "45.8D.12",0x80,"123 123",0x9D, "45.9D.12",0x80,"345",255
db "123",0x8E, "45.8E.12",0x80,"123 123",0x9E, "45.9E.12",0x80,"345",255
db "123",0x8F, "45.8F.12",0x80,"123 123",0x9F, "45.9F.12",0x80,"345",0
;----------------------------------------------------------------------------
initScreen:
ld c, 1Fh
call 0F809h
ld hl, 0EF01h
ld (hl), 0
dec hl
ld (hl), 04Dh
ld (hl), 01Dh
ld (hl), 088h
ld (hl), 64 ^ 0D3h
call initS2
ld b, 30
ld hl, 0E1D0h+77
xxd: ld (hl), 0F1h
ld de, 78
add hl, de
dec b
jp nz, xxd
ret
initS2: push hl
jp 0FADDh
;----------------------------------------------------------------------------
print: push de
print5: push bc
push hl
ld hl, 0E2C3h - 78
ld de, 78
inc c
print1: add hl, de
dec c
jp nz, print1
ld e, b
add hl, de
ex hl, de
pop hl
print2: ld a, (hl)
inc hl
or a
jp z, print3
cp 255
jp z, print4
ld (de), a
inc de
jp print2
print3: pop bc
pop de
ret
print4: pop bc
inc c
jp print5