implemented spec change: now cell 127 always return 1

2025-04-30 11:04:43 +03:00
parent 0a3361f8ab
commit c4af5dec42
7 changed files with 37 additions and 30 deletions
@@ -12,7 +12,7 @@
 210 IF IAT=1 THEN 220 ELSE 230
 220 X=INT(V1):Y=INT(V2):Z=INT(V3):IAT=0:GOTO 240
 230 X=A-CMD*10000:Y=INT(B/10000):Z=B-Y*10000
-240 V1,V2,V3,DMEM(0)=0
+240 V1,V2,V3,DMEM(0)=0:DMEM(127)=1
 250 IF CMD=5 THEN DMEM(Z)=X+(Y/10000):GOTO 180
 260 V1=DMEM(X):V2=DMEM(Y):V3=DMEM(Z)
 270 IF CMD=1 THEN 280 ELSE 420