Execute SNUSP: Difference between revisions
Content added Content deleted
(Added link to COBOL page.) |
(Update to use new numeric escape sequences) |
||
| Line 63: | Line 63: | ||
begin |
begin |
||
instructions := split(sourceCode, "\n"); |
instructions := split(sourceCode, "\n"); |
||
memory := memSize times '\0 |
memory := memSize times '\0;'; |
||
for key row range instructions do |
for key row range instructions do |
||
| Line 89: | Line 89: | ||
when {'!'}: instrPtrRow +:= rowDir; |
when {'!'}: instrPtrRow +:= rowDir; |
||
instrPtrColumn +:= columnDir; |
instrPtrColumn +:= columnDir; |
||
when {'?'}: if memory[dataPointer] = '\0 |
when {'?'}: if memory[dataPointer] = '\0;' then |
||
instrPtrRow +:= rowDir; |
instrPtrRow +:= rowDir; |
||
instrPtrColumn +:= columnDir; |
instrPtrColumn +:= columnDir; |
||