mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-13 03:29:32 +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
|
||
|
|
|