mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-11 01:30:53 +00:00
22 lines
435 B
ArmAsm
22 lines
435 B
ArmAsm
;==============
|
|
; hgr_page_flip
|
|
;==============
|
|
|
|
hgr_page_flip:
|
|
lda DISP_PAGE ;
|
|
beq hgr_page_flip_show_1 ;
|
|
hgr_page_flip_show_0:
|
|
bit PAGE0 ;
|
|
lda #$40 ;
|
|
sta HGR_PAGE ; HGR_PAGE=$40 ;
|
|
lda #0 ;
|
|
sta DISP_PAGE ; DISP_PAGE=0 ;
|
|
rts ;
|
|
hgr_page_flip_show_1:
|
|
bit PAGE1 ;
|
|
lda #$20
|
|
sta HGR_PAGE ; DRAW_PAGE=$20 ;
|
|
lda #1 ;
|
|
sta DISP_PAGE ; DISP_PAGE=1 ;
|
|
rts ;
|