Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-07-11 20:28:57 +00:00
Code Issues Projects Releases Wiki Activity

git-svn-id: http://svn.code.sf.net/p/netboot65/code@151 93682198-c243-4bdb-bd91-e943c89aac3b

Browse Source
This commit is contained in:
jonnosan 2009-07-05 10:42:48 +00:00
parent f78aa57478
commit 3b615b774e
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
client/test/test_gopher.s
View File

@ -213,7 +213,10 @@ show_buffer:
beq @go_prev_page
cmp #KEYCODE_F2
beq @show_history
cmp #KEYCODE_LEFT
beq @back_in_history
cmp #KEYCODE_F3
beq @back_in_history
cmp #KEYCODE_ABORT
beq @quit
@ -232,6 +235,14 @@ show_buffer:
@not_a_resource:
jsr print_hex
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:
jmp show_history
@go_next_page:
@ -326,6 +337,19 @@ show_resource:
@end_of_port:
@done:
;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
stax copy_src
lda #<resource_history