6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-08-21 21:29:08 +00:00
Code Issues Projects Releases Wiki Activity

Add clear (Z) editing command

Browse Source
This commit is contained in:
David Schmenk 2017-11-24 18:32:12 -08:00
parent 1db32cbbc2
commit 77d4481146
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
RPNCALC.PO
View File

Binary file not shown.

8
src/samplesrc/rpncalc.pla
View File

@ -21,7 +21,7 @@ struc t_keyinput
byte keyinfo[t_keypad] byte keyinfo[t_keypad]
word phandler word phandler
end end
predef delKey#0, cmdKey#0, dropKey#0 predef delKey#0, cmdKey#0, dropKey#0, clearKey#0
predef digitKey#0, pointKey#0, opKey#0 predef digitKey#0, pointKey#0, opKey#0
predef enterKey#0, copyKey#0, chsKey#0, memKey#0 predef enterKey#0, copyKey#0, chsKey#0, memKey#0
predef elemsKey#0 predef elemsKey#0
@ -47,6 +47,8 @@ byte[t_keypad] = $1B, 0, 0, ""
word = @cmdKey word = @cmdKey
byte[t_keypad] = '=', 0, 0, "" byte[t_keypad] = '=', 0, 0, ""
word = @dropKey word = @dropKey
byte[t_keypad] = 'Z', 0, 0, ""
word = @clearKey
byte[t_keypad] = '7', 3, 10, "[7]" byte[t_keypad] = '7', 3, 10, "[7]"
word = @digitKey word = @digitKey
byte[t_keypad] = '8', 7, 10, "[8]" byte[t_keypad] = '8', 7, 10, "[8]"
@ -262,6 +264,10 @@ def copyKey(pkey)#0
fin fin
showInput showInput
end end
def clearKey(pkey)#0
initInput
showInput
end
def digitKey(pkey)#0 def digitKey(pkey)#0
if inputStr < inputLen if inputStr < inputLen
if inputStr:0 <> ZEROSTR if inputStr:0 <> ZEROSTR