mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-01-07 17:30:02 +00:00
SHR: Fix VDU5 text spacing
This commit is contained in:
parent
d8067ff725
commit
74847e02bf
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -388,7 +388,7 @@ PRCHR7 PLA
|
|||||||
JMP HGRPRCHAR ; Write character to HGR
|
JMP HGRPRCHAR ; Write character to HGR
|
||||||
:NOTHGR BVC :NOTSHR
|
:NOTHGR BVC :NOTSHR
|
||||||
JMP SHRPRCHAR ; Write character to SHR
|
JMP SHRPRCHAR ; Write character to SHR
|
||||||
:NOTSHR BRA GETCHROK ; Text mode
|
:NOTSHR RTS
|
||||||
|
|
||||||
|
|
||||||
* OSBYTE &87 - Read character at cursor
|
* OSBYTE &87 - Read character at cursor
|
||||||
|
@ -283,7 +283,7 @@ SHRVDU5CH320 >>> ENTMAIN
|
|||||||
MX %00 ; Tell Merlin
|
MX %00 ; Tell Merlin
|
||||||
LDA SHRXPIXEL
|
LDA SHRXPIXEL
|
||||||
CLC
|
CLC
|
||||||
ADC #$08
|
ADC #16 ; Advance to next column
|
||||||
CMP #639-16
|
CMP #639-16
|
||||||
BCS :NEWLINE ; X-pos >= limit
|
BCS :NEWLINE ; X-pos >= limit
|
||||||
STA SHRXPIXEL
|
STA SHRXPIXEL
|
||||||
|
Loading…
Reference in New Issue
Block a user