Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-10-02 00:54:48 +00:00
Code Issues Projects Releases Wiki Activity

Added automatic title-casing to text inputs (e.g. character name in particular)

Browse Source
This commit is contained in:
Martin Haye 2017-09-09 08:43:35 -07:00
parent 9e5fe1262a
commit 53e0f8bbb4
2 changed files with 24 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Platform/Apple/virtual/src/font/fontEngine.s
View File

@ -95,8 +95,8 @@ PrsAdrH = $1B ; (hi)
GBasL = $26 ;LoByte HGR mem pg base adr EABABxxx
GBasH = $27 ;HiByte PPPFGHCD for Y=ABCDEFGH P=page
InBufr = $200 ;Input Buffer
InBufrX = $2FF ;Input Buffer index (length)
InBufr = $201 ;Input Buffer
InBufrX = $200 ;Input Buffer index (length)
Kbd_Rd = $C000 ;read keyboard
Kbd_Clr = $C010 ;clear keyboard strobe
@ -1066,8 +1066,8 @@ Get_Ext CMP #$85
STA WaitStat ;if pressed, wait for val
BNE Get_Lp1
Get_Ch3 LDX InBfrX ;else normal char pressed
STA InBufr,X ;store ASCII char w/hi-bit
AND #$7F ;strip off hi-bit
STA InBufr,X ;store ASCII char w/hi-bit
STA AscChar ;save it
SEC
SBC #32 ;adjust to {0..95}
@ -1155,9 +1155,27 @@ In_Exit LDA #0
RTS
In_cTs6 CMP #' '
BMI In_Key ;ignore all other Ctl keys
LDX InBfrX
; first convert to upper case
CMP #'a'
BCC In_cTs7
CMP #'z'+1
BCS In_cTs7
SBC #$1F ;carry set above
; then convert to title case
In_cTs7 LDX InBfrX
BEQ In_cTs8
CMP #'A'
BCC In_cTs8
CMP #'Z'+1
BCS In_cTs8
PHA
LDA InBufr-1,X
CMP #$41 ;check for prev-is-punc
PLA
BCC In_cTs8
ADC #$1F ;because carry set above
In_cTs8 AND #$7F ;strip off hi-bit
STA InBufr,X ;store ASCII char w/hi-bit
AND #$7F ;strip off hi-bit
SEC
SBC #32 ;adjust to {0..95}
STA PltChar ;store character to be plotted
@ -1226,6 +1244,7 @@ In_eChP AND #$0F ;clamp the value
STA AscChar
ADC #160
LDX InBfrX
AND #$7F
STA InBufr,X ;store char in buffer
LDX #0
STX WaitStat ;clear wait state

4
Platform/Apple/virtual/src/plasma/gameloop.pla
View File

@ -1066,10 +1066,6 @@ export def getStringResponse()#1
word p
rawGetStr()
rawDisplayStr("\n") // so Outlaw user doesn't have to remember to make a newline
for p = ($1FF + ^$2FF) downto $200
p->1 = (^p & $7F)
next
^$200 = ^$2FF
return mmgr(HEAP_INTERN, $200)
end