mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-26 21:29:29 +00:00
SHR: added support for VDU11 (cursup) in VDU5 mode
This commit is contained in:
parent
1a33bc9a13
commit
90c2162a02
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -598,7 +598,14 @@ VDU10DONE RTS
|
||||||
VDU10SCRL JMP SCROLL
|
VDU10SCRL JMP SCROLL
|
||||||
|
|
||||||
* Move cursor up
|
* Move cursor up
|
||||||
VDU11 LDA VDUTEXTY ; ROW
|
VDU11 LDA VDUSTATUS
|
||||||
|
AND #$20 ; Bit 5 -> VDU5 mode
|
||||||
|
BEQ VDU11SKIP
|
||||||
|
BIT VDUSCREEN
|
||||||
|
BVC VDU11SKIP ; Not SHR, skip
|
||||||
|
>>> XF2MAIN,SHRVDU11
|
||||||
|
VDU11RET >>> ENTAUX
|
||||||
|
VDU11SKIP LDA VDUTEXTY ; ROW
|
||||||
CMP TXTWINTOP
|
CMP TXTWINTOP
|
||||||
BNE :S1
|
BNE :S1
|
||||||
LDA VDUTEXTX ; COL
|
LDA VDUTEXTX ; COL
|
||||||
|
|
|
@ -523,6 +523,27 @@ SHRVDU10 >>> ENTMAIN
|
||||||
>>> XF2AUX,VDU10RET
|
>>> XF2AUX,VDU10RET
|
||||||
|
|
||||||
|
|
||||||
|
* Handle cursor up in VDU5 mode
|
||||||
|
SHRVDU11 >>> ENTMAIN
|
||||||
|
CLC ; 65816 native mode
|
||||||
|
XCE
|
||||||
|
REP #$30 ; 16 bit M & X
|
||||||
|
MX %00 ; Tell Merlin
|
||||||
|
LDA SHRYPIXEL
|
||||||
|
CLC
|
||||||
|
ADC #$08 ; Height of row of text
|
||||||
|
CMP SHRWINTOP
|
||||||
|
BPL :TOPPAGE
|
||||||
|
STA SHRYPIXEL
|
||||||
|
BRA :DONE
|
||||||
|
:TOPPAGE LDA SHRWINTOP
|
||||||
|
STA SHRYPIXEL
|
||||||
|
:DONE SEC ; 65816 emulation mode
|
||||||
|
XCE
|
||||||
|
MX %11 ; Tell Merlin
|
||||||
|
>>> XF2AUX,VDU11RET
|
||||||
|
|
||||||
|
|
||||||
* Handle linefeed in VDU5 mode - does the actual work
|
* Handle linefeed in VDU5 mode - does the actual work
|
||||||
* Called in 65816 native mode, 16 bit M & X
|
* Called in 65816 native mode, 16 bit M & X
|
||||||
SHRVDU5LF MX %00 ; Tell Merlin
|
SHRVDU5LF MX %00 ; Tell Merlin
|
||||||
|
|
Loading…
Reference in New Issue
Block a user