6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-20 13:28:56 +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]
word phandler
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 enterKey#0, copyKey#0, chsKey#0, memKey#0
predef elemsKey#0
@ -47,6 +47,8 @@ byte[t_keypad] = $1B, 0, 0, ""
word = @cmdKey
byte[t_keypad] = '=', 0, 0, ""
word = @dropKey
byte[t_keypad] = 'Z', 0, 0, ""
word = @clearKey
byte[t_keypad] = '7', 3, 10, "[7]"
word = @digitKey
byte[t_keypad] = '8', 7, 10, "[8]"
@ -262,6 +264,10 @@ def copyKey(pkey)#0
fin
showInput
end
def clearKey(pkey)#0
initInput
showInput
end
def digitKey(pkey)#0
if inputStr < inputLen
if inputStr:0 <> ZEROSTR