mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-30 05:55:26 +00:00
Implemented VDU14/15 paged mode. Fixes #241.
This commit is contained in:
parent
de58977721
commit
a46eb9165c
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
32
auxmem.vdu.s
32
auxmem.vdu.s
@ -535,6 +535,32 @@ CHARADDROK STA VDUBANK
|
|||||||
* CC=auxmem, CS=mainmem, X=preserved
|
* CC=auxmem, CS=mainmem, X=preserved
|
||||||
|
|
||||||
|
|
||||||
|
* Handle paged mode when moving up the screen
|
||||||
|
VDUUP DEC FXLINES
|
||||||
|
BPL :DONE
|
||||||
|
STZ FXLINES
|
||||||
|
:DONE RTS
|
||||||
|
|
||||||
|
* Handle paged mode when moving down the screen
|
||||||
|
VDUDOWN LDA VDUSTATUS
|
||||||
|
AND #$04 ; Bit 2 -> paged mode
|
||||||
|
BEQ :DONE
|
||||||
|
LDA TXTWINBOT
|
||||||
|
SEC
|
||||||
|
SBC TXTWINTOP
|
||||||
|
STA :HEIGHT
|
||||||
|
INC FXLINES
|
||||||
|
LDA FXLINES
|
||||||
|
CMP :HEIGHT
|
||||||
|
BCC :DONE ; FXLINES <= limit
|
||||||
|
:L1 JSR BYTE76 ; Check keyboard
|
||||||
|
LDA FXKBDSTATE
|
||||||
|
AND #$01 ; See if Open Apple depressed
|
||||||
|
BEQ :L1 ; If not, spin
|
||||||
|
STZ FXLINES
|
||||||
|
:DONE RTS
|
||||||
|
:HEIGHT DB $00
|
||||||
|
|
||||||
* Generic return for all SHRVDUxx returns to aux mem
|
* Generic return for all SHRVDUxx returns to aux mem
|
||||||
VDUXXRET >>> ENTAUX ; SHRVDU08 returns here
|
VDUXXRET >>> ENTAUX ; SHRVDU08 returns here
|
||||||
RTS
|
RTS
|
||||||
@ -559,6 +585,7 @@ VDU08VDU4 LDA VDUTEXTX ; COL
|
|||||||
DEC VDUTEXTY ; ROW
|
DEC VDUTEXTY ; ROW
|
||||||
LDA TXTWINRGT
|
LDA TXTWINRGT
|
||||||
STA VDUTEXTX ; COL
|
STA VDUTEXTX ; COL
|
||||||
|
JSR VDUUP ; Handle paged mode
|
||||||
VDU08DONE RTS
|
VDU08DONE RTS
|
||||||
|
|
||||||
* Move cursor right
|
* Move cursor right
|
||||||
@ -573,6 +600,7 @@ VDU09VDU4 LDA VDUTEXTX ; COL
|
|||||||
BCC VDU09RGHT
|
BCC VDU09RGHT
|
||||||
LDA TXTWINLFT
|
LDA TXTWINLFT
|
||||||
STA VDUTEXTX ; COL
|
STA VDUTEXTX ; COL
|
||||||
|
JSR VDUDOWN ; Handle paged mode
|
||||||
LDA VDUTEXTY ; ROW
|
LDA VDUTEXTY ; ROW
|
||||||
CMP TXTWINBOT
|
CMP TXTWINBOT
|
||||||
BEQ SCROLL
|
BEQ SCROLL
|
||||||
@ -593,7 +621,8 @@ VDU10 LDA VDUSTATUS
|
|||||||
BIT VDUSCREEN
|
BIT VDUSCREEN
|
||||||
BVC VDU10DONE ; VDU5 but not SHR
|
BVC VDU10DONE ; VDU5 but not SHR
|
||||||
>>> XF2MAIN,SHRVDU10
|
>>> XF2MAIN,SHRVDU10
|
||||||
VDU10VDU4 LDA VDUTEXTY ; ROW
|
VDU10VDU4 JSR VDUDOWN ; Handle paged mode
|
||||||
|
LDA VDUTEXTY ; ROW
|
||||||
CMP TXTWINBOT
|
CMP TXTWINBOT
|
||||||
BEQ VDU10SCRL
|
BEQ VDU10SCRL
|
||||||
INC VDUTEXTY ; ROW
|
INC VDUTEXTY ; ROW
|
||||||
@ -619,6 +648,7 @@ VDU11VDU4 LDA VDUTEXTY ; ROW
|
|||||||
JSR CLREOL
|
JSR CLREOL
|
||||||
RTS
|
RTS
|
||||||
VDU11UP DEC VDUTEXTY ; ROW
|
VDU11UP DEC VDUTEXTY ; ROW
|
||||||
|
JSR VDUUP ; Handle paged mode
|
||||||
VDU11DONE RTS
|
VDU11DONE RTS
|
||||||
|
|
||||||
* Move to start of line
|
* Move to start of line
|
||||||
|
Loading…
Reference in New Issue
Block a user