Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-04-10 03:37:42 +00:00
Code Issues Projects Releases Wiki Activity

SHR: added support for VDU11 (cursup) in VDU5 mode

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-13 20:00:20 -05:00
parent 1a33bc9a13
commit 90c2162a02
3 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

9
auxmem.vdu.s
View File

@ -598,7 +598,14 @@ VDU10DONE RTS
VDU10SCRL JMP SCROLL
* 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
BNE :S1
LDA VDUTEXTX ; COL

21
mainmem.shr.s
View File

@ -523,6 +523,27 @@ SHRVDU10 >>> ENTMAIN
>>> 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
* Called in 65816 native mode, 16 bit M & X
SHRVDU5LF MX %00 ; Tell Merlin