mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-12 23:31:43 +00:00
48 lines
659 B
ArmAsm
48 lines
659 B
ArmAsm
; FIXME
|
|
; handle dropping pages
|
|
; handle white page
|
|
|
|
|
|
;==============================
|
|
; Take Blue Page
|
|
;==============================
|
|
; A should be page to take (i.e. MECHE_PAGE or similar)
|
|
|
|
take_blue_page:
|
|
jsr drop_current_page
|
|
|
|
eor BLUE_PAGES_TAKEN ; toggle the taken flag
|
|
sta BLUE_PAGES_TAKEN
|
|
|
|
lda #HOLDING_BLUE_PAGE ; put it in hand
|
|
sta HOLDING_PAGE
|
|
rts
|
|
|
|
take_red_page:
|
|
|
|
jsr drop_current_page
|
|
|
|
eor RED_PAGES_TAKEN
|
|
sta RED_PAGES_TAKEN
|
|
|
|
lda #HOLDING_RED_PAGE
|
|
sta HOLDING_PAGE
|
|
rts
|
|
|
|
take_white_page:
|
|
|
|
jsr drop_current_page
|
|
|
|
; lda #1
|
|
; sta WHITE_PAGE_TAKEN
|
|
|
|
lda #HOLDING_WHITE_PAGE
|
|
sta HOLDING_PAGE
|
|
rts
|
|
|
|
drop_current_page:
|
|
; FIXME
|
|
|
|
rts
|
|
|