Apple-2-SW/franklin
1
0
Fork 0
mirror of https://github.com/a2stuff/franklin.git synced 2025-03-11 13:30:21 +00:00
Code Issues Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
Joshua Bell 2021-11-06 20:27:30 -07:00
parent 8f2fdae81d
commit 6c17e6d09d
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ace2000_c300_cfff.s
View File

@ -670,7 +670,7 @@ jt1:
.addr DoEnableMouseText ; $1B Ctrl-[ Enable MouseText
.addr DoForwardSpace ; $1C Ctrl-\ Forward space
.addr DoClearEOL ; $1D Ctrl-] Clear EOL
.addr LC9F8 ; $1E Ctrl-^ ???
.addr DoCtrlCaret ; $1E Ctrl-^ ???
.addr DoUp ; $1F Ctrl-_ Up
;;; ============================================================
@ -823,7 +823,8 @@ DoQuit:
;;; ============================================================
;;; Adusting MODE Bits
LC9F8: lda #$FC ; clear mode bits %xxxxxx00
DoCtrlCaret:
lda #$FC ; clear mode bits %xxxxxx00
jsr PreserveModeBits
lda #$32 ; set mode bits %xx11xx1x
bra SetModeBits

4
ace500_c300_cfff.s
View File

@ -1044,7 +1044,7 @@ jt1:
.addr DoEnableMouseText ; $1B Ctrl-[ Enable MouseText
.addr DoForwardSpace ; $1C Ctrl-\ Forward space
.addr DoClearEOL ; $1D Ctrl-] Clear EOL
.addr XC9F8 ; $1E Ctrl-^ ???
.addr DoCtrlCaret ; $1E Ctrl-^ ???
.addr DoUp ; $1F Ctrl-_ Up
;;; ============================================================
@ -1269,7 +1269,7 @@ DoQuit:
;;; ============================================================
XC9F8:
DoCtrlCaret:
lda #$FC
jsr LCA21
lda #$32