Zapis znaku na ekran (PUT)

From Atariki

Procedura wyprowadza znak na ekran na pozycji X/Y kursora określonej przez zmienne odpowiednio COLCRS ($55-$56) i ROWCRS ($54). Zakłada się, że obowiązują przy tym domyślne ustawienia OS-u, to jest ekran jest w trybie Graphics 0, a kanał IOCB 0 jest otwarty dla edytora ekranowego.

Wyprowadzenie znaku polega na załadowaniu jego kodu ATASCII do akumulatora i wykonaniu rozkazu JSR PUTCHR.

Wersja dla 6502

icputb = $0346

putchr ldx #$00
       tay
       lda icputb+1,x
       pha
       lda icputb,x
       pha
       tya
       rts

Wersja dla 65C816

icputb = $0346

putchr ldx #$00
       ldy icputb+1,x
       phy
       ldy icputb,x
       phy
       rts