3125a52331/vm/fast-console/vm.c
Download diff| fc349e2cf15e1e11664eb67f38cf4acd59fe042c | 3125a52331ae6d7a6bb77d0ce92a95ddc2580547 | ||
|---|---|---|---|
541 | 541 | ||
542 | /* Read a char; response indicates success/failure */ | 542 | /* Read a char; response indicates success/failure */ |
543 | if (vm->ports[4] == -2) { | 543 | if (vm->ports[4] == -2) { |
544 | int cell = acc; DROP; | ||
545 | FILE *handle = (FILE *) acc; DROP; | 544 | FILE *handle = (FILE *) acc; DROP; |
546 | int c = fgetc(handle); | 545 | int c = fgetc(handle); |
547 | vm->image[cell] = c; | 546 | if ( c == EOF ) vm->ports[4] = 0; |
548 | if ( c == EOF ) vm->ports[4] = 0; | 547 | else vm->ports[4] = c; |
549 | else vm->ports[4] = -1; | ||
550 | vm->ports[0] = 1; | 548 | vm->ports[0] = 1; |
551 | } | 549 | } |
552 | 550 |