Apple-2gs-SW/mrbuffer
1
0
Fork 0
mirror of https://github.com/mach-kernel/mrbuffer.git synced 2024-06-09 20:29:30 +00:00
Code Issues Projects Releases Wiki Activity

movable text cursor impl half working, need to figure out why keys stick?

Browse Source
This commit is contained in:
David Stancu 2018-01-28 23:13:32 -05:00
parent 907f10a4ac
commit f12b3f82de
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/main.S
View File

@ -22,14 +22,32 @@
stal $00C051 ; select text mode only. "only"? stal $00C051 ; select text mode only. "only"?
ldal $00C054 ; select text page 1 (there are 2) ldal $00C054 ; select text page 1 (there are 2)
ldal $00C056 ; select "low res" graphics ldal $00C056 ; select "low res" graphics
rep #$30 ; go back to 16-bit mode
rep #$30
; show the current char on screen ; show the current char on screen
; first check and discard to clear strobe, then enter loop ; first check and discard to clear strobe, then enter loop
ldal $00C010
:eloop ldal $00C010 ldx #0
stal $000400 eloop stal $000400,X
jmp :eloop ldal $00C000
clc
cmp $8888
* bcs down
clc
cmp $9595
bcs up
jmp eloop
down dex
dex
jmp eloop
up clc
cpx #50
bcs eloop
inx
inx
jmp eloop
; working text blit ; working text blit
* ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val * ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val