Prev: 08329 Up: Map Next: 08662
08633: THE 'IN-ASSIGN' SUBROUTINE
Used by the routine at INPUT.
This subroutine is called twice for each INPUT value: once with the syntax/run flag reset (syntax) and once with it set (run).
IN_ASSIGN 08633 LD HL,(23649) Set CH-ADD to point to the first location of the work space (WORKSP) and fetch the character.
08636 LD (23645),HL
08639 RST 24
08640 CP 226 Is it a 'STOP'?
08642 JR Z,IN_STOP Jump if it is.
08644 LD A,(23665) Otherwise pick up FLAGX and make the assignment of the 'value' to the variable.
08647 CALL VAL_FET_2
08650 RST 24 Get the present character and check it is a 'carriage return'.
08651 CP 13
08653 RET Z Return if it is.
Report C - Nonsense in BASIC.
08654 RST 8 Call the error handling routine.
08655 DEFB 11
Come here if the INPUT line starts with 'STOP'.
IN_STOP 08656 CALL SYNTAX_Z But do not give the error report on the syntax-pass.
08659 RET Z
Report H - STOP in INPUT.
08660 RST 8 Call the error handling routine.
08661 DEFB 16
Prev: 08329 Up: Map Next: 08662