![]() |
Routines |
| Prev: 07246 | Up: Map |
|
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 |