Это видимо вот отсюда DevCPC486
## Код:
```
PROCEDURE CheckReg*;
      VAR reg: SET;
   BEGIN
      reg := AllReg - WReg;
      IF reg # {} THEN
         DevCPM.err(-777); (* register not released *)
         IF AX IN reg THEN DevCPM.LogWStr(" AX") END;
         IF BX IN reg THEN DevCPM.LogWStr(" BX") END;
         IF CX IN reg THEN DevCPM.LogWStr(" CX") END;
         IF DX IN reg THEN DevCPM.LogWStr(" DX") END;
         IF SI IN reg THEN DevCPM.LogWStr(" SI") END;
         IF DI IN reg THEN DevCPM.LogWStr(" DI") END;
         WReg := AllReg; BReg := AllReg * {0..3} + SYSTEM.LSH(AllReg * {0..3}, 4)
      END;
      IF FReg < 8 THEN DevCPM.err(-778); FReg := 8    (* float register not released *)
      ELSIF FReg > 8 THEN DevCPM.err(-779); FReg := 8
      END
   END CheckReg;
```
