!to "c64kernal.prg", cbm

 !addr inp_device = $99
 !addr chars_in_keyb_buf = $c6
 !addr keyb_buf = $0277


; -- Input from keyboard --

 *=$e5b4
inp_from_keyb
 ldy keyb_buf     ; $0277
 ldx #0
-
 lda keyb_buf+1,x ; $0278
 sta keyb_buf,x   ; $0277
 inx
 cpx chars_in_keyb_buf ; $c6
 bne -
 dec chars_in_keyb_buf ; $c6
 tya
 cli
 clc
 rts


; -- Get from RS232 --
;    (noch nicht implementiert)

 *=$f086
get_from_rs232
 rts


; -- Get ... --

 *=$f13e
get_dots
 lda inp_device  ; $99
 bne +
 ; Eingabe von Tastatur
 lda chars_in_keyb_buf; $c6
 beq ++
 sei
 jmp inp_from_keyb ; $e5b4
+
 cmp #2
 bne $f166
dots_from_rs232
 sty $97
 jsr get_from_rs232
 ldy $97
++
 clc
 rts


; -- Input ($f157) --
;    (noch nicht implementiert)

 *=$f166
 rts


; -- Sprungtabelle
 *=$ffe4
getin
 jmp get_dots     ; ($032a) -> $f13e

You are viewing proxied material from sdfeu.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.