( Text    4217 )  1986-08-01 23.58.38   Lars Gj|rling <6825>
Mottagare: ABC800
[rende: TIME.806

Detta trevliga program, som l{gger en maskinspr}kssnutt i buf7, som i
sin tur g|r att tiden kontinuerligt skrivs ut p} sk{rmen, har den f|r
f{rgsk{rms{gare tr}kiga egenskapen att uteslutande skriva med vit f{rg.

Jag har f|r min del f|rl{ngt maskinspr}kssnutten med 12 bytes, motsvaran-
de assemblerraderna:
...
...
LD   C,53     ; L{s in g{llande attribut fr}n 
IN   B,(C)    ; inport 53
PUSH BC       ; och lagra p} stacken.
LD   B,Attribut   ; Skicka nytt |nskat attribut
OUT  (C),B    ; till utport 53.
...
...
POP  BC       ; ]terst{ll det gamla attri-
OUT  (C),B    ; butet till utport 53.
...
...

Sedan POKE-  och CALL-adresserna justerats, f}r programmet en ny
rad 395 och fyra {ndrade rader 410-440:

395 Attribut=ASCII(YEL)-128 ! Kan bytas mot vilken f{rg som helst!
410 POKE 64512,205,Inter,SWAP%(Inter),245,197,213,229,14,53,237,64,197,
    6,Attribut,237,65,17,242,255,33,Adress,SWAP%(Adress),205,44,252
420 POKE 64537,54,46,205,43,252,54,46,205,43,252,193,237,65,225,209,
    193,241,201,35
430 POKE 64556,26,19,14,255,12,214,10,48,251,71,121,198,48,119,35,120
440 POKE 64572,198,58,119,35,201

Kanske kan detta r{tt enkla s{tt att hantera f{rg p} maskinspr}k anv{n-
das {ven i andra sammanhang?

Med v{nlig h{lsning! Lars Gj|rling <6825>
( Kommentar i text 4222 av Lars Gj|rling <6825> )
( Kommentar i text 4238 av Nils Hansson <519> )