mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-08-20 02:29:32 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@151 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
f78aa57478
commit
3b615b774e
@ -213,7 +213,10 @@ show_buffer:
|
|||||||
beq @go_prev_page
|
beq @go_prev_page
|
||||||
cmp #KEYCODE_F2
|
cmp #KEYCODE_F2
|
||||||
beq @show_history
|
beq @show_history
|
||||||
|
cmp #KEYCODE_LEFT
|
||||||
|
beq @back_in_history
|
||||||
|
cmp #KEYCODE_F3
|
||||||
|
beq @back_in_history
|
||||||
cmp #KEYCODE_ABORT
|
cmp #KEYCODE_ABORT
|
||||||
|
|
||||||
beq @quit
|
beq @quit
|
||||||
@ -232,6 +235,14 @@ show_buffer:
|
|||||||
@not_a_resource:
|
@not_a_resource:
|
||||||
jsr print_hex
|
jsr print_hex
|
||||||
jmp @get_keypress
|
jmp @get_keypress
|
||||||
|
@back_in_history:
|
||||||
|
ldx current_resource_history_entry
|
||||||
|
dex
|
||||||
|
beq @get_keypress ;if we were already at start of history, can't go back any further
|
||||||
|
stx current_resource_history_entry
|
||||||
|
txa
|
||||||
|
jsr load_resource_from_history
|
||||||
|
jmp show_buffer
|
||||||
@show_history:
|
@show_history:
|
||||||
jmp show_history
|
jmp show_history
|
||||||
@go_next_page:
|
@go_next_page:
|
||||||
@ -326,6 +337,19 @@ show_resource:
|
|||||||
@end_of_port:
|
@end_of_port:
|
||||||
@done:
|
@done:
|
||||||
;add this to the resource history
|
;add this to the resource history
|
||||||
|
lda current_resource_history_entry
|
||||||
|
cmp #RESOURCE_HISTORY_ENTRIES
|
||||||
|
bne @dont_shuffle_down
|
||||||
|
ldax #resource_history
|
||||||
|
stax copy_dest
|
||||||
|
inx ;one page higher up
|
||||||
|
stax copy_src
|
||||||
|
ldx #(RESOURCE_HISTORY_ENTRIES-1)
|
||||||
|
lda #$00
|
||||||
|
jsr copymem
|
||||||
|
dec current_resource_history_entry
|
||||||
|
|
||||||
|
@dont_shuffle_down:
|
||||||
ldax #current_resource
|
ldax #current_resource
|
||||||
stax copy_src
|
stax copy_src
|
||||||
lda #<resource_history
|
lda #<resource_history
|
||||||
|
Loading…
Reference in New Issue
Block a user