429 lines
13 KiB
Plaintext
429 lines
13 KiB
Plaintext
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
||
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
||
|
|
# file, You can obtain one at https://mozilla.org/MPL/2.0/.
|
||
|
|
#
|
||
|
|
# VGA metin kipi sürücüsü: 80×25, imleç, kaydırma, sayı yazımı, UTF-8 & Türkçe font.
|
||
|
|
|
||
|
|
VGA = 0xB8000
|
||
|
|
GENISLIK = 80
|
||
|
|
YUKSEKLIK = 25
|
||
|
|
|
||
|
|
fonksiyon font_cizgi(kod, satir, bayt):
|
||
|
|
bellek_yaz8(0xA0000 + kod * 32 + satir, bayt)
|
||
|
|
|
||
|
|
fonksiyon glif_temizle(kod):
|
||
|
|
dongu s icinde 0..31:
|
||
|
|
font_cizgi(kod, s, 0)
|
||
|
|
|
||
|
|
fonksiyon turkce_font_kur():
|
||
|
|
# VGA Plane 2 (yazı tipi belleği) erişimini aç
|
||
|
|
port_yaz8(0x3C4, 0x02)
|
||
|
|
port_yaz8(0x3C5, 0x04)
|
||
|
|
port_yaz8(0x3C4, 0x04)
|
||
|
|
port_yaz8(0x3C5, 0x07)
|
||
|
|
|
||
|
|
port_yaz8(0x3CE, 0x05)
|
||
|
|
port_yaz8(0x3CF, 0x00)
|
||
|
|
port_yaz8(0x3CE, 0x06)
|
||
|
|
port_yaz8(0x3CF, 0x00)
|
||
|
|
|
||
|
|
# 1. ı (0x8D - küçük noktasız ı, otantik IBM CP857)
|
||
|
|
glif_temizle(0x8D)
|
||
|
|
font_cizgi(0x8D, 5, 0x38)
|
||
|
|
font_cizgi(0x8D, 6, 0x18)
|
||
|
|
font_cizgi(0x8D, 7, 0x18)
|
||
|
|
font_cizgi(0x8D, 8, 0x18)
|
||
|
|
font_cizgi(0x8D, 9, 0x18)
|
||
|
|
font_cizgi(0x8D, 10, 0x18)
|
||
|
|
font_cizgi(0x8D, 11, 0x3C)
|
||
|
|
|
||
|
|
# 2. İ (0x98 - büyük noktalı İ, otantik IBM CP857)
|
||
|
|
glif_temizle(0x98)
|
||
|
|
font_cizgi(0x98, 1, 0x18)
|
||
|
|
font_cizgi(0x98, 3, 0x3C)
|
||
|
|
font_cizgi(0x98, 4, 0x18)
|
||
|
|
font_cizgi(0x98, 5, 0x18)
|
||
|
|
font_cizgi(0x98, 6, 0x18)
|
||
|
|
font_cizgi(0x98, 7, 0x18)
|
||
|
|
font_cizgi(0x98, 8, 0x18)
|
||
|
|
font_cizgi(0x98, 9, 0x18)
|
||
|
|
font_cizgi(0x98, 10, 0x18)
|
||
|
|
font_cizgi(0x98, 11, 0x3C)
|
||
|
|
|
||
|
|
# 3. ş (0x9F - küçük ş, otantik IBM CP857)
|
||
|
|
glif_temizle(0x9F)
|
||
|
|
font_cizgi(0x9F, 5, 0x7C)
|
||
|
|
font_cizgi(0x9F, 6, 0xC6)
|
||
|
|
font_cizgi(0x9F, 7, 0x60)
|
||
|
|
font_cizgi(0x9F, 8, 0x38)
|
||
|
|
font_cizgi(0x9F, 9, 0x0C)
|
||
|
|
font_cizgi(0x9F, 10, 0xC6)
|
||
|
|
font_cizgi(0x9F, 11, 0x7C)
|
||
|
|
font_cizgi(0x9F, 12, 0x18)
|
||
|
|
font_cizgi(0x9F, 13, 0x30)
|
||
|
|
|
||
|
|
# 4. Ş (0x9E - büyük Ş, otantik IBM CP857)
|
||
|
|
glif_temizle(0x9E)
|
||
|
|
font_cizgi(0x9E, 2, 0x7C)
|
||
|
|
font_cizgi(0x9E, 3, 0xC6)
|
||
|
|
font_cizgi(0x9E, 4, 0xC6)
|
||
|
|
font_cizgi(0x9E, 5, 0x60)
|
||
|
|
font_cizgi(0x9E, 6, 0x38)
|
||
|
|
font_cizgi(0x9E, 7, 0x0C)
|
||
|
|
font_cizgi(0x9E, 8, 0x06)
|
||
|
|
font_cizgi(0x9E, 9, 0xC6)
|
||
|
|
font_cizgi(0x9E, 10, 0xC6)
|
||
|
|
font_cizgi(0x9E, 11, 0x7C)
|
||
|
|
font_cizgi(0x9E, 12, 0x18)
|
||
|
|
font_cizgi(0x9E, 13, 0x30)
|
||
|
|
|
||
|
|
# 5. ğ (0xA7 - küçük yumuşak ğ, otantik IBM CP857)
|
||
|
|
glif_temizle(0xA7)
|
||
|
|
font_cizgi(0xA7, 2, 0xCC)
|
||
|
|
font_cizgi(0xA7, 3, 0x78)
|
||
|
|
font_cizgi(0xA7, 5, 0x76)
|
||
|
|
font_cizgi(0xA7, 6, 0xCC)
|
||
|
|
font_cizgi(0xA7, 7, 0xCC)
|
||
|
|
font_cizgi(0xA7, 8, 0xCC)
|
||
|
|
font_cizgi(0xA7, 9, 0xCC)
|
||
|
|
font_cizgi(0xA7, 10, 0xCC)
|
||
|
|
font_cizgi(0xA7, 11, 0x7C)
|
||
|
|
font_cizgi(0xA7, 12, 0x0C)
|
||
|
|
font_cizgi(0xA7, 13, 0xCC)
|
||
|
|
font_cizgi(0xA7, 14, 0x78)
|
||
|
|
|
||
|
|
# 6. Ğ (0xA6 - büyük yumuşak Ğ, otantik IBM CP857)
|
||
|
|
glif_temizle(0xA6)
|
||
|
|
font_cizgi(0xA6, 1, 0x66)
|
||
|
|
font_cizgi(0xA6, 2, 0x7E)
|
||
|
|
font_cizgi(0xA6, 3, 0x3C)
|
||
|
|
font_cizgi(0xA6, 4, 0x66)
|
||
|
|
font_cizgi(0xA6, 5, 0xC2)
|
||
|
|
font_cizgi(0xA6, 6, 0xC0)
|
||
|
|
font_cizgi(0xA6, 7, 0xC0)
|
||
|
|
font_cizgi(0xA6, 8, 0xDE)
|
||
|
|
font_cizgi(0xA6, 9, 0xC6)
|
||
|
|
font_cizgi(0xA6, 10, 0x6E)
|
||
|
|
font_cizgi(0xA6, 11, 0x3A)
|
||
|
|
|
||
|
|
# 7. ç (0x87 - küçük ç, otantik IBM CP857)
|
||
|
|
glif_temizle(0x87)
|
||
|
|
font_cizgi(0x87, 5, 0x7C)
|
||
|
|
font_cizgi(0x87, 6, 0xC6)
|
||
|
|
font_cizgi(0x87, 7, 0xC0)
|
||
|
|
font_cizgi(0x87, 8, 0xC0)
|
||
|
|
font_cizgi(0x87, 9, 0xC0)
|
||
|
|
font_cizgi(0x87, 10, 0xC6)
|
||
|
|
font_cizgi(0x87, 11, 0x7C)
|
||
|
|
font_cizgi(0x87, 12, 0x18)
|
||
|
|
font_cizgi(0x87, 13, 0x30)
|
||
|
|
|
||
|
|
# 8. Ç (0x80 - büyük Ç, otantik IBM CP857)
|
||
|
|
glif_temizle(0x80)
|
||
|
|
font_cizgi(0x80, 2, 0x3C)
|
||
|
|
font_cizgi(0x80, 3, 0x66)
|
||
|
|
font_cizgi(0x80, 4, 0xC2)
|
||
|
|
font_cizgi(0x80, 5, 0xC0)
|
||
|
|
font_cizgi(0x80, 6, 0xC0)
|
||
|
|
font_cizgi(0x80, 7, 0xC0)
|
||
|
|
font_cizgi(0x80, 8, 0xC0)
|
||
|
|
font_cizgi(0x80, 9, 0xC2)
|
||
|
|
font_cizgi(0x80, 10, 0x66)
|
||
|
|
font_cizgi(0x80, 11, 0x3C)
|
||
|
|
font_cizgi(0x80, 12, 0x18)
|
||
|
|
font_cizgi(0x80, 13, 0x30)
|
||
|
|
|
||
|
|
# 9. ö (0x94 - küçük ö, otantik IBM CP857)
|
||
|
|
glif_temizle(0x94)
|
||
|
|
font_cizgi(0x94, 2, 0xC6)
|
||
|
|
font_cizgi(0x94, 5, 0x7C)
|
||
|
|
font_cizgi(0x94, 6, 0xC6)
|
||
|
|
font_cizgi(0x94, 7, 0xC6)
|
||
|
|
font_cizgi(0x94, 8, 0xC6)
|
||
|
|
font_cizgi(0x94, 9, 0xC6)
|
||
|
|
font_cizgi(0x94, 10, 0xC6)
|
||
|
|
font_cizgi(0x94, 11, 0x7C)
|
||
|
|
|
||
|
|
# 10. Ö (0x99 - büyük Ö, otantik IBM CP857)
|
||
|
|
glif_temizle(0x99)
|
||
|
|
font_cizgi(0x99, 1, 0xC6)
|
||
|
|
font_cizgi(0x99, 3, 0x7C)
|
||
|
|
font_cizgi(0x99, 4, 0xC6)
|
||
|
|
font_cizgi(0x99, 5, 0xC6)
|
||
|
|
font_cizgi(0x99, 6, 0xC6)
|
||
|
|
font_cizgi(0x99, 7, 0xC6)
|
||
|
|
font_cizgi(0x99, 8, 0xC6)
|
||
|
|
font_cizgi(0x99, 9, 0xC6)
|
||
|
|
font_cizgi(0x99, 10, 0xC6)
|
||
|
|
font_cizgi(0x99, 11, 0x7C)
|
||
|
|
|
||
|
|
# 11. ü (0x81 - küçük ü, otantik IBM CP857)
|
||
|
|
glif_temizle(0x81)
|
||
|
|
font_cizgi(0x81, 2, 0xCC)
|
||
|
|
font_cizgi(0x81, 5, 0xCC)
|
||
|
|
font_cizgi(0x81, 6, 0xCC)
|
||
|
|
font_cizgi(0x81, 7, 0xCC)
|
||
|
|
font_cizgi(0x81, 8, 0xCC)
|
||
|
|
font_cizgi(0x81, 9, 0xCC)
|
||
|
|
font_cizgi(0x81, 10, 0xCC)
|
||
|
|
font_cizgi(0x81, 11, 0x76)
|
||
|
|
|
||
|
|
# 12. Ü (0x9A - büyük Ü, otantik IBM CP857)
|
||
|
|
glif_temizle(0x9A)
|
||
|
|
font_cizgi(0x9A, 1, 0xC6)
|
||
|
|
font_cizgi(0x9A, 3, 0xC6)
|
||
|
|
font_cizgi(0x9A, 4, 0xC6)
|
||
|
|
font_cizgi(0x9A, 5, 0xC6)
|
||
|
|
font_cizgi(0x9A, 6, 0xC6)
|
||
|
|
font_cizgi(0x9A, 7, 0xC6)
|
||
|
|
font_cizgi(0x9A, 8, 0xC6)
|
||
|
|
font_cizgi(0x9A, 9, 0xC6)
|
||
|
|
font_cizgi(0x9A, 10, 0xC6)
|
||
|
|
font_cizgi(0x9A, 11, 0x7C)
|
||
|
|
|
||
|
|
# Standart metin kipine geri dön
|
||
|
|
port_yaz8(0x3C4, 0x02)
|
||
|
|
port_yaz8(0x3C5, 0x03)
|
||
|
|
port_yaz8(0x3C4, 0x04)
|
||
|
|
port_yaz8(0x3C5, 0x03)
|
||
|
|
|
||
|
|
port_yaz8(0x3CE, 0x04)
|
||
|
|
port_yaz8(0x3CF, 0x00)
|
||
|
|
port_yaz8(0x3CE, 0x05)
|
||
|
|
port_yaz8(0x3CF, 0x10)
|
||
|
|
port_yaz8(0x3CE, 0x06)
|
||
|
|
port_yaz8(0x3CF, 0x0E)
|
||
|
|
|
||
|
|
fonksiyon hucre(satir, sutun, karakter, renk):
|
||
|
|
bellek_yaz16(VGA + (satir * GENISLIK + sutun) * 2, renk * 256 + karakter)
|
||
|
|
|
||
|
|
fonksiyon imleci_tasi(satir, sutun):
|
||
|
|
konum = satir * GENISLIK + sutun
|
||
|
|
port_yaz8(0x3D4, 0x0F)
|
||
|
|
port_yaz8(0x3D5, bit_ve(konum, 0xFF))
|
||
|
|
port_yaz8(0x3D4, 0x0E)
|
||
|
|
port_yaz8(0x3D5, bit_ve(saga_kaydir(konum, 8), 0xFF))
|
||
|
|
|
||
|
|
fonksiyon konumlandir(satir, sutun):
|
||
|
|
bellek_yaz64(durum.SATIR, satir)
|
||
|
|
bellek_yaz64(durum.SUTUN, sutun)
|
||
|
|
imleci_tasi(satir, sutun)
|
||
|
|
|
||
|
|
fonksiyon temizle(renk):
|
||
|
|
dongu i icinde 0..GENISLIK * YUKSEKLIK - 1:
|
||
|
|
bellek_yaz16(VGA + i * 2, renk * 256 + 0x20)
|
||
|
|
konumlandir(0, 0)
|
||
|
|
bellek_yaz64(durum.RENK, renk)
|
||
|
|
|
||
|
|
fonksiyon renk(r):
|
||
|
|
bellek_yaz64(durum.RENK, r)
|
||
|
|
|
||
|
|
fonksiyon kaydir():
|
||
|
|
dongu i icinde 0..GENISLIK * (YUKSEKLIK - 1) - 1:
|
||
|
|
bellek_yaz16(VGA + i * 2, bellek_oku16(VGA + (i + GENISLIK) * 2))
|
||
|
|
r = bellek_oku64(durum.RENK)
|
||
|
|
dongu s icinde 0..GENISLIK - 1:
|
||
|
|
hucre(YUKSEKLIK - 1, s, 0x20, r)
|
||
|
|
|
||
|
|
fonksiyon alt_satir():
|
||
|
|
bellek_yaz64(durum.SUTUN, 0)
|
||
|
|
satir = bellek_oku64(durum.SATIR) + 1
|
||
|
|
eger satir >= YUKSEKLIK:
|
||
|
|
kaydir()
|
||
|
|
satir = YUKSEKLIK - 1
|
||
|
|
bellek_yaz64(durum.SATIR, satir)
|
||
|
|
|
||
|
|
fonksiyon karakter(c):
|
||
|
|
eger c == 0x0A:
|
||
|
|
alt_satir()
|
||
|
|
degilse:
|
||
|
|
hucre(bellek_oku64(durum.SATIR), bellek_oku64(durum.SUTUN), c, bellek_oku64(durum.RENK))
|
||
|
|
sutun = bellek_oku64(durum.SUTUN) + 1
|
||
|
|
bellek_yaz64(durum.SUTUN, sutun)
|
||
|
|
eger sutun >= GENISLIK:
|
||
|
|
alt_satir()
|
||
|
|
imleci_tasi(bellek_oku64(durum.SATIR), bellek_oku64(durum.SUTUN))
|
||
|
|
|
||
|
|
fonksiyon geri_sil():
|
||
|
|
sutun = bellek_oku64(durum.SUTUN)
|
||
|
|
eger sutun > 0:
|
||
|
|
bellek_yaz64(durum.SUTUN, sutun - 1)
|
||
|
|
hucre(bellek_oku64(durum.SATIR), sutun - 1, 0x20, bellek_oku64(durum.RENK))
|
||
|
|
imleci_tasi(bellek_oku64(durum.SATIR), sutun - 1)
|
||
|
|
|
||
|
|
fonksiyon turkce_kod(b, b2):
|
||
|
|
eger b == 0xC3:
|
||
|
|
eger b2 == 0xA7: don 0x87 # ç
|
||
|
|
eger b2 == 0x87: don 0x80 # Ç
|
||
|
|
eger b2 == 0xB6: don 0x94 # ö
|
||
|
|
eger b2 == 0x96: don 0x99 # Ö
|
||
|
|
eger b2 == 0xBC: don 0x81 # ü
|
||
|
|
eger b2 == 0x9C: don 0x9A # Ü
|
||
|
|
degilse eger b == 0xC4:
|
||
|
|
eger b2 == 0x9F: don 0xA7 # ğ
|
||
|
|
eger b2 == 0x9E: don 0xA6 # Ğ
|
||
|
|
eger b2 == 0xB1: don 0x8D # ı
|
||
|
|
eger b2 == 0xB0: don 0x98 # İ
|
||
|
|
degilse eger b == 0xC5:
|
||
|
|
eger b2 == 0x9F: don 0x9F # ş
|
||
|
|
eger b2 == 0x9E: don 0x9E # Ş
|
||
|
|
don 0
|
||
|
|
|
||
|
|
fonksiyon utf8_uc_bayt(b1, b2, b3):
|
||
|
|
eger b1 == 0xE2:
|
||
|
|
eger b2 == 0x94:
|
||
|
|
eger b3 == 0x80: don 0xC4 # ─ (tek yatay çizgi)
|
||
|
|
eger b3 == 0x82: don 0xB3 # │ (tek dikey çizgi)
|
||
|
|
eger b3 == 0x8C: don 0xDA # ┌
|
||
|
|
eger b3 == 0x90: don 0xBF # ┐
|
||
|
|
eger b3 == 0x94: don 0xC0 # └
|
||
|
|
eger b3 == 0x98: don 0xD9 # ┘
|
||
|
|
eger b3 == 0x9C: don 0xC3 # ├
|
||
|
|
eger b3 == 0xA4: don 0xB4 # ┤
|
||
|
|
eger b3 == 0xAC: don 0xC2 # ┬
|
||
|
|
eger b3 == 0xB4: don 0xC1 # ┴
|
||
|
|
eger b3 == 0xBC: don 0xC5 # ┼
|
||
|
|
degilse eger b2 == 0x95:
|
||
|
|
eger b3 == 0x90: don 0xCD # ═ (çift yatay çizgi)
|
||
|
|
eger b3 == 0x91: don 0xBA # ║ (çift dikey çizgi)
|
||
|
|
eger b3 == 0x94: don 0xC9 # ╔ (çift sol üst köşe)
|
||
|
|
eger b3 == 0x97: don 0xBB # ╗ (çift sağ üst köşe)
|
||
|
|
eger b3 == 0x9A: don 0xC8 # ╚ (çift sol alt köşe)
|
||
|
|
eger b3 == 0x9D: don 0xBC # ╝ (çift sağ alt köşe)
|
||
|
|
eger b3 == 0xA6: don 0xCB # ╦ (çift üst birleşim)
|
||
|
|
eger b3 == 0xA9: don 0xCA # ╩ (çift alt birleşim)
|
||
|
|
eger b3 == 0xAC: don 0xCE # ╬ (çift artı)
|
||
|
|
degilse eger b2 == 0x96:
|
||
|
|
eger b3 == 0x88: don 0xDB # █ (dolu blok)
|
||
|
|
eger b3 == 0x91: don 0xB0 # ░ (açık gölge)
|
||
|
|
eger b3 == 0x92: don 0xB1 # ▒ (orta gölge)
|
||
|
|
eger b3 == 0x93: don 0xB2 # ▓ (koyu gölge)
|
||
|
|
degilse eger b2 == 0x80:
|
||
|
|
eger b3 == 0x93: don 0x2D # – (en dash)
|
||
|
|
eger b3 == 0x94: don 0xC4 # — (em dash)
|
||
|
|
eger b3 == 0x98 veya b3 == 0x99: don 0x27 # ’ '
|
||
|
|
eger b3 == 0x9C veya b3 == 0x9D: don 0x22 # “ ”
|
||
|
|
eger b3 == 0xA2: don 0x07 # • (madde imi)
|
||
|
|
don 0
|
||
|
|
|
||
|
|
fonksiyon glif(cp):
|
||
|
|
# Unicode kod noktası → VGA glif kodu (ASCII + Türkçe harfler, CP857 yerleşimi).
|
||
|
|
eger cp < 0x80:
|
||
|
|
don cp
|
||
|
|
eger cp == 0xE7: don 0x87 # ç
|
||
|
|
eger cp == 0xC7: don 0x80 # Ç
|
||
|
|
eger cp == 0xF6: don 0x94 # ö
|
||
|
|
eger cp == 0xD6: don 0x99 # Ö
|
||
|
|
eger cp == 0xFC: don 0x81 # ü
|
||
|
|
eger cp == 0xDC: don 0x9A # Ü
|
||
|
|
eger cp == 0x11F: don 0xA7 # ğ
|
||
|
|
eger cp == 0x11E: don 0xA6 # Ğ
|
||
|
|
eger cp == 0x131: don 0x8D # ı
|
||
|
|
eger cp == 0x130: don 0x98 # İ
|
||
|
|
eger cp == 0x15F: don 0x9F # ş
|
||
|
|
eger cp == 0x15E: don 0x9E # Ş
|
||
|
|
don 0x3F # ?
|
||
|
|
|
||
|
|
fonksiyon kod_noktasi(cp):
|
||
|
|
# Klavyeden gelen kod noktasını ekrana yazar.
|
||
|
|
karakter(glif(cp))
|
||
|
|
|
||
|
|
fonksiyon yaz(m):
|
||
|
|
i = 0
|
||
|
|
iken bayt(m, i) != 0:
|
||
|
|
b = bayt(m, i)
|
||
|
|
eger b < 0x80:
|
||
|
|
karakter(b)
|
||
|
|
i = i + 1
|
||
|
|
degilse eger b >= 0xC0 ve b < 0xE0:
|
||
|
|
b2 = bayt(m, i + 1)
|
||
|
|
eger b2 == 0:
|
||
|
|
don 0
|
||
|
|
k = turkce_kod(b, b2)
|
||
|
|
eger k != 0:
|
||
|
|
karakter(k)
|
||
|
|
degilse:
|
||
|
|
karakter(0x3F)
|
||
|
|
i = i + 2
|
||
|
|
degilse eger b >= 0xE0 ve b < 0xF0:
|
||
|
|
b2 = bayt(m, i + 1)
|
||
|
|
eger b2 == 0:
|
||
|
|
don 0
|
||
|
|
b3 = bayt(m, i + 2)
|
||
|
|
eger b3 == 0:
|
||
|
|
don 0
|
||
|
|
k = utf8_uc_bayt(b, b2, b3)
|
||
|
|
eger k != 0:
|
||
|
|
karakter(k)
|
||
|
|
degilse:
|
||
|
|
karakter(0x3F)
|
||
|
|
i = i + 3
|
||
|
|
degilse:
|
||
|
|
# 4 baytlık UTF-8 veya bilinmeyen sekans
|
||
|
|
karakter(0x3F)
|
||
|
|
i = i + 1
|
||
|
|
|
||
|
|
fonksiyon satir(m):
|
||
|
|
yaz(m)
|
||
|
|
karakter(0x0A)
|
||
|
|
|
||
|
|
fonksiyon yaz_konum(satir, sutun, m, r):
|
||
|
|
eski_satir = bellek_oku64(durum.SATIR)
|
||
|
|
eski_sutun = bellek_oku64(durum.SUTUN)
|
||
|
|
eski_renk = bellek_oku64(durum.RENK)
|
||
|
|
konumlandir(satir, sutun)
|
||
|
|
renk(r)
|
||
|
|
yaz(m)
|
||
|
|
konumlandir(eski_satir, eski_sutun)
|
||
|
|
renk(eski_renk)
|
||
|
|
|
||
|
|
fonksiyon satir_doldur(satir, ch, r):
|
||
|
|
dongu col icinde 0..GENISLIK - 1:
|
||
|
|
hucre(satir, col, ch, r)
|
||
|
|
|
||
|
|
fonksiyon yatay_cizgi(satir, sol, gen, r):
|
||
|
|
dongu c icinde sol..sol + gen - 1:
|
||
|
|
hucre(satir, c, 0xC4, r)
|
||
|
|
|
||
|
|
fonksiyon cerceve(ust, sol, gen, yuk, r):
|
||
|
|
# Çift çizgili donanımsal VGA çerçeve (0xC9, 0xCD, 0xBB, 0xBA, 0xC8, 0xBC)
|
||
|
|
hucre(ust, sol, 0xC9, r)
|
||
|
|
hucre(ust, sol + gen - 1, 0xBB, r)
|
||
|
|
hucre(ust + yuk - 1, sol, 0xC8, r)
|
||
|
|
hucre(ust + yuk - 1, sol + gen - 1, 0xBC, r)
|
||
|
|
dongu c icinde sol + 1..sol + gen - 2:
|
||
|
|
hucre(ust, c, 0xCD, r)
|
||
|
|
hucre(ust + yuk - 1, c, 0xCD, r)
|
||
|
|
dongu s icinde ust + 1..ust + yuk - 2:
|
||
|
|
hucre(s, sol, 0xBA, r)
|
||
|
|
hucre(s, sol + gen - 1, 0xBA, r)
|
||
|
|
|
||
|
|
fonksiyon dikey_ayrac(ust, alt, sutun, r):
|
||
|
|
hucre(ust, sutun, 0xCB, r)
|
||
|
|
dongu s icinde ust + 1..alt - 1:
|
||
|
|
hucre(s, sutun, 0xBA, r)
|
||
|
|
hucre(alt, sutun, 0xCA, r)
|
||
|
|
|
||
|
|
fonksiyon sayi(n):
|
||
|
|
eger n < 0:
|
||
|
|
karakter(0x2D)
|
||
|
|
n = 0 - n
|
||
|
|
bolen = 1
|
||
|
|
iken n // bolen >= 10:
|
||
|
|
bolen = bolen * 10
|
||
|
|
iken bolen > 0:
|
||
|
|
karakter(0x30 + (n // bolen) % 10)
|
||
|
|
bolen = bolen // 10
|
||
|
|
|
||
|
|
fonksiyon onaltilik(n):
|
||
|
|
yaz("0x")
|
||
|
|
basladi = yanlis
|
||
|
|
dongu i icinde 0..15:
|
||
|
|
rakam = bit_ve(saga_kaydir(n, (15 - i) * 4), 0xF)
|
||
|
|
eger rakam != 0 veya basladi veya i == 15:
|
||
|
|
basladi = dogru
|
||
|
|
eger rakam < 10:
|
||
|
|
karakter(0x30 + rakam)
|
||
|
|
degilse:
|
||
|
|
karakter(0x61 + rakam - 10)
|