Najprościej:

getchar lda $E425
        pha
        lda $E424
        pha
        rts

Wywołujesz prockę poprze JSR GETKEY i dostajesz kod ATASCII w akumulatorze. Kod otrzymujesz w ten, a nie inny sposób, ponieważ adresy w tablicy wektorów procedur obsługi urządzeń zmniejszone są o jeden, czyli świetnie nadają się do umieszczenia na stosie i wywołania przez RTS.

Gdybyś chciał odczytać łańcuch znaków, to robisz to tak:

gets ldx #$00     ; kanał #0
     lda #$05     ; rozkaz get line dla CIO
     sta $0342,x
     lda #<str    ; adres bufora na linię
     sta $0344,x
     lda #>str
     sta $0345,x
     lda #<strlen ; długość linii
     sta $0348,x
     lda #>strlen
     sta $0349,x
     jmp $E456    ; GO ;)

Kanał #0 jest zawsze otwarty dla programów i obsługuje standardową konsolę :lol: (urządzenie E: otwarte dla wejścia/wyjścia, czyli klawiatury/ekranu). Długość linii, wbrew obiekowym opiniom, lepiej podać dokładnie (niektórzy wpisują tylko starszy bajt, tak, by wartość 16-bitowa pod $0348 była różna od zera). Pozwoli to ustrzec przed modnym ostatnio błędem przepełnienia bufora. ;) W zasadzie nie ma możliwości wpisania jdnorazowo tekstu dłuższego niż 120 znaków (jedna linia logiczna - 3 linie ekranu).

Ad.2 Mógłbyś sprecyzować dokładniej. Nie bardzo łapię o co chodzi. :idea:

jak masz OS wlaczony to w komorce 764 masz kod ostatnio nacisnietego znaku

a ta procka czeka na nacisniecie klawisza

read_key
 lda #$ff    ; ustawiamy na $FF
 sta 764

key
 lda 764
 cmp #$FF
 beq key
 
 cmp #kod1
 beq obsluga1
 cmp #kod2
 beq obsluga2
 cmp #kod3
 beq obsluga3
 ...
 ...
 ...


 i z procedur obslugi wracamy, np. przez

 jmp read_key

jesli OS masz wylaczony to kod znaku bedzie w $D209, ale musisz sprawdzic czy jakikolwiek klawisz zostanie nacisniety $D20F, jak przeczytasz opis tych rejestrow to zrozumiesz

draco - oki, dzieki, misa dosc dac sygnal, misa sobie sama doszukac co i jak, bo kiedys troche programwowac Atari Basic :)
Dzieki

Lizard. - w Twojej procedurze pobierania linii, jak juz wywolam:

jmp $E456    ; GO ;)

to jak ja stamtad wroce? ;)

Masz jmp a nie jsr, więc powrót nastąpi za miejsce, w którym napiszesz jsr gets. ;)

     jsr gets
     bmi error     ; tutaj wróci jmp $E456 z GETS
     ...
gets ldx #$00     ; kanał #0
     ...
; tutaj procedurka podana wcześniej
     jmp $E456    ; GO ;) 

BMI ERROR nie wzięło się przypadkowo, bo gdy nastąpi błąd lub user wciśnie Break, to znacznik N będzie ustawiony, a rejestr Y będzie zawierał numer błędu (w przypadku uzycia klawisza Break - 128, $80). Dodatm tylko, że wszystkie systemowe numery błędów są większe od 127 (mają ustawiony najstarszy bit) i są zwracane w rejestrze Y.

6502 matrix

http://members.chello.nl/taf.offenga/matrix30.txt

widzialem tez kiedys taki 2-stronicowy dokument z Harwardu chyba z wszystkimi danymi o 6502, ale jakos nie moge go wygooglac.

I żeś babola strzelił, bo nie bit trzeci, tylko drugi. I po co to EOR #$04? Po wciśnięciu klawisza:$D20F = $FB; potem AND #$04 i akumulator = 0; EOR #$04 sprawi, że akumulator = 4 i BEQ nie skoczy, a procka wyjdzie jakby klawisz nie był wciśnięty. Nie żebym się czepiał, ale pamiętam, że błędy w przykładach bardzo utrudniały mi kiedyś naukę asma. ;)

Niom, i tylko wtedy, choć jest prosty sposób na przełączanie ROMu na RAM  i z powrotem bez ryzyka padu kompa. Opis w Syzygy #7.

Generalnie jestem zwolennikiem korzystania z tego co oferuje system: ˇ po co wyważać otwarte drzwi
ˇ system zrobi to samo co my, i to bez pisania dodatkowego kodu (vide 1)
ˇ system jest sprawdzony i raczej trudno natrafić na błąd (vide 1)
ˇ system, wbrew opini Krógera, nie jest po to by go olewać, bo vide 1

Tia. I bardzo uprościło Tobie i wielu innym wychodzenie z programu przez JMP $E474.

Rozumiem, że Twój post, to przyzanie się, że nie potrafisz korzystać z funkcji systemu operacyjnego? :oops:

"JESTEM ZA A NAWET PRZECIW"

Denial of Service? No właśnie się tego zacząłem obawiać  :D

Khm, ale po co?

Wracając do tematu. Najlepsze motody opierają się na specyfikacji systemu i dlatego proponuję jeszcze jedną metodę odczytu klawiatury:

; Initialize reading
      ldx #$50    ; open IOCB for Keyboard
      lda #$03    ; IOCB open
      sta $0342,x ; ICCMD (char)
      lda #<kb.id
      sta $0344,x ; ICBUFA (ushort)
      lda #>kb.id
      sta $0345,x
      lda #$04    ; open for reading
      sta $034A,x
      jsr $E456   ; JCIOMAIN

;     ...
; some code here
;     ...

kb.id .by "K:" 0

; Keyboard reading
getc  ldx #$50
      lda #$07    ; IOCB get bytes
      sta $0342,x
      lda #$00
      sta $0348,x
      sta $0349,x
      jmp $E456

; Called by exit() function
kbcls ldx #$50
      lda #$0C    ; IOCB close
      sta #0342,x
      jmp $E456

Po wyjściu z GETC kod ATASCII znajduje się w akumulatorze.

Powyższą metodą będziemy mieli pewność, że klawiaturę poprawnie odczytamy zawsze, niezależnie od wersji systemu i jego położenia w pamięci (oczywiście pewne adresy muszą być zachowane, np. tablica skoków).

:!: Więcej :!:
:!: Jeśli ktoś przeniesie system operacyjny z Atari na Commodore, to powyższy kod ruszy bez żadnych zmian. :!:

[ Dodano: 15.11.2004 11:35:21 ]

My Ci zawsze dobrze doradzimy. :) Przy mojej klik musi być!