mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-06-06 13:29:51 +00:00
works
This commit is contained in:
parent
5e28639a4e
commit
72b8859222
|
@ -411,6 +411,19 @@ handy_rts:
|
||||||
|
|
||||||
;;; ------------------------------------------------------------
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
|
.proc on_alpha
|
||||||
|
loop: jsr down_common
|
||||||
|
jsr draw_current_line
|
||||||
|
lda KBD
|
||||||
|
and #$5F ; make ASCII and uppercase
|
||||||
|
ldy #1
|
||||||
|
cmp (curr_ptr),y ; key = first char ?
|
||||||
|
beq draw_current_line_inv
|
||||||
|
bra loop
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
.proc on_up
|
.proc on_up
|
||||||
ldx current_entry
|
ldx current_entry
|
||||||
beq draw_current_line_inv ; first one? just redraw
|
beq draw_current_line_inv ; first one? just redraw
|
||||||
|
@ -427,19 +440,6 @@ handy_rts:
|
||||||
|
|
||||||
;;; ------------------------------------------------------------
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
.proc on_alpha
|
|
||||||
loop: jsr down_common
|
|
||||||
lda KBD
|
|
||||||
and #$5F ; make ASCII and uppercase
|
|
||||||
ldy #1
|
|
||||||
cmp (curr_ptr),y ; key < first char ?
|
|
||||||
beq draw_current_line_inv
|
|
||||||
jsr draw_current_line
|
|
||||||
bra loop
|
|
||||||
.endproc
|
|
||||||
|
|
||||||
;;; ------------------------------------------------------------
|
|
||||||
|
|
||||||
draw_current_line_inv:
|
draw_current_line_inv:
|
||||||
jsr SETINV
|
jsr SETINV
|
||||||
jsr draw_current_line
|
jsr draw_current_line
|
||||||
|
@ -476,6 +476,16 @@ draw_current_line_inv:
|
||||||
;; fall through
|
;; fall through
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
|
.proc on_escape
|
||||||
|
jsr pop_prefix ; leaves length in X
|
||||||
|
dec prefix_depth
|
||||||
|
bra resize_prefix_and_open_jmp
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
.proc down_common
|
.proc down_common
|
||||||
lda current_entry
|
lda current_entry
|
||||||
inc a
|
inc a
|
||||||
|
@ -497,14 +507,6 @@ draw_current_line_inv:
|
||||||
|
|
||||||
;;; ------------------------------------------------------------
|
;;; ------------------------------------------------------------
|
||||||
|
|
||||||
.proc on_escape
|
|
||||||
jsr pop_prefix ; leaves length in X
|
|
||||||
dec prefix_depth
|
|
||||||
bra resize_prefix_and_open_jmp
|
|
||||||
.endproc
|
|
||||||
|
|
||||||
;;; ------------------------------------------------------------
|
|
||||||
|
|
||||||
next_drive:
|
next_drive:
|
||||||
jmp next_device
|
jmp next_device
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user