Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-31 03:32:59 +00:00
Code Issues Projects Releases Wiki Activity

megademo: check_email: add timeout

Browse Source
This commit is contained in:
Vince Weaver 2018-10-22 12:03:13 -04:00
parent 68572d88e4
commit 316c1a5754
1 changed files with 38 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
megademo/check_email.s
View File

@ -207,25 +207,58 @@ ce_patch:
; do_nothing should be 4550 ; do_nothing should be 4550
; +1 fallthrough from above ; +1 fallthrough from above
; -23 frame count
; -7 timeout
; -10 keypress ; -10 keypress
; -2 ldy at top ; -2 ldy at top
; -132 move letters ; -132 move letters
; =========== ; ===========
; 4407 ; 4377
; Try X=13 Y=62 cycles=4403 R4 ; Try X=96 Y=9 cycles=4375 R2
nop ; 2 nop ; 2
nop
ldy #62 ; 2 ldy #9 ; 2
emloop1:ldx #13 ; 2 emloop1:ldx #96 ; 2
emloop2:dex ; 2 emloop2:dex ; 2
bne emloop2 ; 2nt/3 bne emloop2 ; 2nt/3
dey ; 2 dey ; 2
bne emloop1 ; 2nt/3 bne emloop1 ; 2nt/3
;=====================
; Update Frame Counter
;=====================
; nowrap = 13+10=23
; wrap = 13+10=23
inc FRAME ; 5
lda FRAME ; 3
cmp #60 ; 1Hz ; 2
beq em_wrap ; 3
em_nowrap:
;-1
lda $0 ; nop ; 3
lda $0 ; nop ; 3
nop ; 2
jmp em_wrap_done ; 3
em_wrap:
lda #0 ; 2
sta FRAME ; 3
inc FRAMEH ; 5
em_wrap_done:
;=========================
; timeout after 20s or so?
;=========================
; 7 cycles
em_timeout:
lda FRAMEH ; 3
cmp #20 ; 2
beq em_done ; 3
; -1
;================== ;==================
; move letters ; move letters
;================== ;==================