figForth Word - KEY
Some parts of this page/site are currently incomplete & will be updated asap
Other parts will change continually so use “Refresh” in your browser !!
There is extensive use of “Tooltips” text to support learning which do
not seem to render on a Smartphone
KEY — c L0 Leave the ascii value of the next terminal key struck
NFA: 002341 83 DB 83H
002342 4B45 DB "KE"
002344 D9 DB 'Y'+80H
LFA: 002345 2F23 DW EMIT-7
CFA: 002347 4923 KEY: DW $+2
LFA: 002349 CD AE 02 KEY1: CALL PAUSE
00234C 2AE7FF LD HL,(CB_PTR1)
00234F 7D LD A,L
002350 2AE5FF LD HL,(CB_PTR2)
002353 BD CP L
002354 28 F3 JR Z,KEY1
002356 2AE5FF LD HL,(CB_PTR2)
002359 23 INC HL
00235A 3EE3 LD A,LOW CBUFF2
00235C BD CP L
00235D 20 03 JR NZ,KEY2
00235F 217FFF LD HL,CBUFF1
002362 22E5FF KEY2: LD (CB_PTR2),HL
002365 6E LD L,(HL)
002366 2600 LD H,0
002368 C3 E1 20 JP HPUSH