Keskustelu: Koodit: QB: Dos-fontin sijainti muistissa

Dosin käyttämät 8x8 merkit löytyvät tuolta jostain muistin sopukoista, alkaen paikasta F000:FA6E. Jokainen kirjain vie kahdeksan tavua ja jokainen rivi on siis yhden tavun mittainen. Valitettavasti fontin muuttaminen ei ole mahdollista, koska merkit löytyvät rom-muistista.

P.S. Koodi on kirjoiteltu hyvin myöhään illasta ja samoin tämä selostus, eli ei kannata liikaa huomioida virheitä, mikäli niitä löytyy. Ja kommentteja ei ole turhan paljon koodiin siunaantunut, toivottavasti ymmärrätte ilman.

DECLARE FUNCTION bitti! (luku!)
DEF SEG = &HF000

DIM add AS LONG

FOR j = 65 TO 90
   add = 64110 + j * 8
   CLS
   FOR i = 0 TO 7
        k = PEEK(add + i)
        a = bitti(k)
        PRINT "="; k
   NEXT i
   PRINT CHR$(j)
   SLEEP 1
NEXT j

FUNCTION bitti (luku)
COLOR 5
temp = luku
FOR j = 7 TO 0 STEP -1
   IF temp >= (2 ^ j) THEN
      PRINT "*";
      temp = temp - (2 ^ j)
   ELSE
      PRINT " ";
   END IF
NEXT j
COLOR 15
END FUNCTION

ääh... tuon

a = bitti(PEEK(add + i))

voi korvata näin:

a=bitti(k)

no, kooditagit temppuilee... a=bitti(PEEK(add+1)) voi muuttaa a=bitti(k)

niin, tuli vielä mieleen, että toivottavasti tämäntapaista ei ole joku jo tehnyt ennen, ei tullut mieleen katsoa... muistelen, ettei olisi.. hyvää yötä ;-D

Oletko, Vilikki, huomannut että koodivinkkejä voi myös muokata profiilisivusi kautta?

niinpä niin, luulenpa ettei tätä koodivinkkiä oltu vielä hyväksytty, kun tossa nukkumaan oli menossa... :) ennen hyväksyntää ei valitettavasti pääse muokkaamaan koodivinkkejä... :/

Joo, vasta tänään hyväksyttiin tuo koodivinkki (pistin koodin tänne jo ajat sitten). Sitäpaitsi viimeisestä koodivinkin kirjoittelusta on niin pitkä aika, ettei silloin vielä vissiin ollut mahdollista muokkaus (tai ainakin muutkin korjailivat kommentoinnin kautta... ;-D )

Pääsee, kun iskee koodivinkinmuokkaus-urliin kiinni koodivinkin tunnuksen :-) Ok vinkki, vaikka olisitkin voinut kommentoida itse vinkkiä varsinkin kun näin lyhyestä pätkästä on kyse.

Ihan hyvä vinkki.

Jep, vois tuota vinkin kommentointia joskus katsella, nyt en ehdi.

hmm... mites sittene ohjelmat toimii mitkä "vaihtaa"dosin fontin ??? uudelleen ohjaako jonkun keskeytyksen?

hmmh.. en tiedä.. tarkistin vielä, eräs kirjakin väittää, että ne olisi rom-muistissa, enkä ainakaan onnistunut tuota fonttia muokkaamaan.

hmm... oiskohan se joku fontti systeemi sitte vaan uudelleen ohjattuassemblyllä?

siis joku keskeytys

Keskeytyksilläpä tuossa näköjään taidetaan temppuilla, jos tahtoo fontin vaihtaa, antti onkin näköjään tänään tehnyt tällaisen:
https://www.ohjelmointiputka.net/koodivinkit/23948-qb-dos-fontin-muuttaminen

T.M. kirjoitti:

niinpä niin, luulenpa ettei tätä koodivinkkiä oltu vielä hyväksytty, kun tossa nukkumaan oli menossa... :) ennen hyväksyntää ei valitettavasti pääse muokkaamaan koodivinkkejä... :/

Pääseehän! Hakujuttuun vaan koodivinkin nimi.