Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

SHR: Added framework for VDU5 "text at graphics cursor"

This commit is contained in:
Bobbi Webber-Manners 2023-01-08 03:45:32 -05:00
parent 6440df6c03
commit 23a6464ab9
4 changed files with 37 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.

20
auxmem.shr.s
View File

@ -160,7 +160,17 @@ SHRPRCHAR CMP CURSORED ; Edit cursor?
* Write character to SHR screen in 320 pixel mode
SHRPRCH320 SEC
SBC #32
TAX
LDA VDUSTATUS
AND #$20 ; Bit 5 text@gfx cursor
BEQ SHRPRCH320V4 ; VDU 4
TXA
>>> XF2MAIN,SHRVDU5CH320 ; VDU5
SHRPRCH320RET >>> ENTAUX
RTS
SHRPRCH320V4 TXA
PHP ; Disable interrupts
SEI
CLC ; 65816 native mode
@ -253,7 +263,17 @@ SHRPRCH320 SEC
* Write character to SHR screen in 640 pixel mode
SHRPRCH640 SEC
SBC #32
TAX
LDA VDUSTATUS
AND #$20 ; Bit 5 text@gfx cursor
BEQ SHRPRCH640V4 ; VDU 4
TXA
>>> XF2MAIN,SHRVDU5CH640 ; VDU5
SHRPRCH640RET >>> ENTAUX
RTS
SHRPRCH640V4 TXA
PHP ; Disable interrupts
SEI
CLC ; 65816 native mode

6
auxmem.vdu.s
View File

@ -739,7 +739,11 @@ CLREOLGS BIT RD80VID
* Scroll areas of the screen
****************************
* Scroll text window up one line
SCROLLER LDA TXTWINTOP
SCROLLER LDA VDUSTATUS
AND #$20 ; Bit 5 VDU5 mode
BEQ :VDU4
RTS ; No scroll in VDU5
:VDU4 LDA TXTWINTOP
:L1 PHA
JSR SCR1LINE
BIT VDUSCREEN

12
mainmem.shr.s
View File

@ -214,6 +214,18 @@ SHRCHAR640 PHY ; Preserve Y
RTS
* VDU5 plot char at graphics cursor position
SHRVDU5CH320 >>> ENTMAIN
* TODO
>>> XF2AUX,SHRPRCH320RET
* VDU5 plot char at graphics cursor position
SHRVDU5CH640 >>> ENTMAIN
* TODO
>>> XF2AUX,SHRPRCH640RET
* Plot actions: PLOT k,x,y
* k is in SHRVDUQ+4
* x is in SHRVDUQ+5,SHRVDUQ+6