diff --git a/src/system/ddt.68 b/src/system/ddt.69 similarity index 99% rename from src/system/ddt.68 rename to src/system/ddt.69 index 3d2ccf5e..be2bb4e1 100755 --- a/src/system/ddt.68 +++ b/src/system/ddt.69 @@ -1289,7 +1289,14 @@ POW2: LSH W2,-1 JUMPE W2,L4 SOJA W1,POW2 -PERIOD: MOVE T,LLOC +GETPC: SKIPN T,ALTPC + JRST [HRRZ T,BCOM ? SOS T ? JRST .+1] + AOS (P) + POPJ P, + +PERIOD: TLNE F,CF + PUSHJ P,GETPC + MOVE T,LLOC TLNE F,SF ;SYLLABLE STARTED MOVE T,DEN MOVEM T,SYL