![]() |
Routines |
| Prev: 07050 | Up: Map |
|
Used by the routine at STMT_RET.
There has been a jump in the program and the starting address of the new line has to be found.
|
||||||||||
| LINE_NEW | 07070 | CALL LINE_ADDR | The starting address of the line, or the 'first line after' is found. | |||||||
| 07073 | LD A,(23620) | Collect the statement number (NSPPC). | ||||||||
| 07076 | JR Z,LINE_USE | Jump forward if the required line was found; otherwise check the validity of the statement number - must be zero. | ||||||||
| 07078 | AND A | |||||||||
| 07079 | JR NZ,REPORT_N | |||||||||
| 07081 | LD B,A | Also check that the 'first line after' is not after the actual 'end of program'. | ||||||||
| 07082 | LD A,(HL) | |||||||||
| 07083 | AND 192 | |||||||||
| 07085 | LD A,B | |||||||||
| 07086 | JR Z,LINE_USE | Jump forward with valid addresses; otherwise signal the error 'OK'. | ||||||||
|
Report 0 - OK.
|
||||||||||
| 07088 | RST 8 | Use the error handling routine. | ||||||||
| 07089 | DEFB 255 | |||||||||
|
Note: obviously not an error in the normal sense - but rather a jump past the program.
|
||||||||||
| Prev: 07050 | Up: Map |