Lines Matching refs:fPC

342     fPC := 0;
382     if fPC = 0 then
383       fPC := 1;
384     if fPC <= fLastStep then begin
385         opcode := fProgMem[fPC];
386         fPC := fPC + 1;
389     if fPC > fLastStep then
422       fPC := fPC + 1;
423       if fPC > fLastStep then
424         fPC := 0;
429       fPC := fPC - 1;
430       if fPC < 0 then
431         fPC := fLastStep;
438       if fPC > 0 then begin
439           for i := fPC to fLastStep - 1 do
442           fPC := fPC - 1;
449       fPC := 0;
457           fPC := fPC + 1;
459           for i := fLastStep downto fPC + 1 do
461           fProgMem[fPC] := opcode;
513     if fPC = 0 then
514       fPC := 1;
524     if fPC = 0 then
525       fPC := fLastStep
527       fPC := fPC - 1;
754           i0 := fPC;
762           for i := 1 to fPC - 1 do
770           i := fPC + address;
784       fPC := step;
831             PushRtnAddr(fPC);
832           fPC := step;
902       if fPC <= fLastStep then begin
903           fPC := fPC + 1;
904           if fPC > fLastStep then
905             fPC := 0;
960           fPC := fRtnStack[fRtnStackPtr];
965           fPC := 0;
1510     if fPC > 0 then
1511       OpcodeToKeyCode(fProgMem[fPC], keyCode)
1515     fDisplayBuffer := concat(NumToDigits(fPC, 3), keyCode);
1533         fPC := newPC;
1684         fPC := 0;