Routines |
Prev: 07246 | Up: Map | Next: 07276 |
This subroutine is used by LET, READ and INPUT statements to first evaluate and then assign values to the previously designated variable.
|
||||
VAL_FET_1 | 07254 | LD A,(23611) | Use FLAGS. | |
This entry point is used by the routine at IN_ASSIGN with A holding the contents of FLAGX.
|
||||
VAL_FET_2 | 07257 | PUSH AF | Save FLAGS or FLAGX. | |
07258 | CALL SCANNING | Evaluate the next expression. | ||
07261 | POP AF | Fetch the old FLAGS or FLAGX. | ||
07262 | LD D,(IY+1) | Fetch the new FLAGS. | ||
07265 | XOR D | The nature - numeric or string - of the variable and the expression must match. | ||
07266 | AND 64 | |||
07268 | JR NZ,REPORT_C | Give report C if they do not. | ||
07270 | BIT 7,D | Jump forward to make the actual assignment unless checking syntax (in which case simply return). | ||
07272 | JP NZ,LET | |||
07275 | RET |
Prev: 07246 | Up: Map | Next: 07276 |