;
; getToken.sh
;
; The getting of the next token from the input file
;
; © 1995 Straylight
;

;----- Overview -------------------------------------------------------------
;
; Functions provided:
;
;  getToken

		[	:LNOT::DEF:getToken__dfn
		GBLL	getToken__dfn

; --- getToken ---
;
; On entry:	R8 == lookahead token
;		R9 == current line number
;		R10 == evaluation stack pointer
;		R11 == pointer into the tokenised buffer
;		R12 == anchor block pointer
;
; On exit:	R8 == new lookahead token
;		R11 == moved on to the first character after the rvalue
;		CC if the EOF char has not been reached,
;		CS otherwise
;
; Use:		Tries to read an token from the current input line

		IMPORT	getToken

		]

;----- That's all, folks ----------------------------------------------------

		END