Prev: 07246 Up: Map Next: 07276
07254: THE 'FETCH A VALUE' SUBROUTINE
Used by the routines at CLASS_02 and READ_3.
This subroutine is used by LET, READ and INPUT statements to first evaluate and then assign values to the previously designated variable.
The main entry point is used by LET and READ and considers FLAGS, whereas the entry point VAL_FET_2 is used by INPUT and considers FLAGX.
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