adapted to Kick Assembler, some documentation update

c64/basic/basic_main_loop.s

@@ -1,43 +1,43 @@
 basic_main_loop:
 
-	;; XXX - Check if direct or program mode, and get next line of input
-	;; the appropriate way.
-	;; XXX - For now, it is hard coded to direct mode
+	// XXX - Check if direct or program mode, and get next line of input
+	// the appropriate way.
+	// XXX - For now, it is hard coded to direct mode
 
-	;; Tell user we are ready
+	// Tell user we are ready
 	jsr ready_message
 
 basic_read_next_line:	
-	;; Read a line of input
+	// Read a line of input
 	ldx #$00
 read_line_loop:
 
-	jsr $ffcf 		; KERNAL CHRIN
+	jsr JCHRIN
 	bcs read_line_loop
 	
 	cmp #$0d
 	beq got_line_of_input
-	;; Not carriage return, so try to append to line so far
+	// Not carriage return, so try to append to line so far
 	cpx #80
-	bcc +
-	;; Report STRING TOO LONG error (Compute's Mapping the 64 p93)
+	bcc !+
+	// Report STRING TOO LONG error (Compute's Mapping the 64 p93)
 	ldx #22
 	jmp basic_do_error
-*
+!:
 	sta basic_input_buffer,x
 	inx
 	jmp read_line_loop
 
 got_line_of_input:
 
-	;; Store length of input buffer ready for tokenising
+	// Store length of input buffer ready for tokenising
 	stx tokenise_work1
 
-	;; Strip leading spaces from the line
+	// Strip leading spaces from the line
 remove_leading_spaces:	
 	lda $0200
 	cmp #$20
-	bne +
+	bne !+
 	ldx #1
 rsl_l1:	lda $0200,x
 	sta $01ff,x
@@ -45,40 +45,40 @@ rsl_l1:	lda $0200,x
 	cpx tokenise_work1
 	bne rsl_l1
 
-	;; Reduce length of input by one
+	// Reduce length of input by one
 	dec tokenise_work1
-	;; Stop trying to rim if we run out of input
+	// Stop trying to rim if we run out of input
 	bne remove_leading_spaces
-*	
-	;; Do printing of the new line
+!:
+	// Do printing of the new line
 	lda #$0d
 	jsr JCHROUT
 
-	;; Ignore empty lines
+	// Ignore empty lines
 	lda tokenise_work1
 	beq basic_read_next_line
 
-	;; Else, tokenise the line
+	// Else, tokenise the line
 	jsr tokenise_line	
 
-	;; Has the user entered a line of BASIC beginning with a number?
+	// Has the user entered a line of BASIC beginning with a number?
 	lda $0200
 	cmp #$30
 	bcc not_a_line
 	cmp #$39
 	bcs not_a_line
 
-	;; Yes, the line begins with a number.
-	;; Parse the line number and check validity
+	// Yes, the line begins with a number.
+	// Parse the line number and check validity
 
-	;; injest_number follows tokenise_work1 as the offset into the line,
-	;; so remember the line length somewhere else for now.
+	// injest_number follows tokenise_work1 as the offset into the line,
+	// so remember the line length somewhere else for now.
 	lda tokenise_work1
 	sta tokenise_work2
 	lda #$00
 	sta tokenise_work1
 
-	;; Try to read line number
+	// Try to read line number
 	lda #<$0200
 	sta basic_current_statement_ptr+0
 	lda #>$0200
@@ -86,67 +86,66 @@ rsl_l1:	lda $0200,x
 
 	jsr basic_parse_line_number
 
-	;; Get pointer to next char
+	// Get pointer to next char
 	lda basic_current_statement_ptr+0
 	sta tokenise_work1
 	
-	;; Got a valid line number -- so do add/del line
+	// Got a valid line number -- so do add/del line
 
-	;; Skip any spaces after the line number
+	// Skip any spaces after the line number
 	ldx tokenise_work1
 skip_spaces:	
 	lda $0200,x
 	cmp #$20
-	bne +
+	bne !+
 	inx
 	bne skip_spaces
-*	stx tokenise_work1
+!:	stx tokenise_work1
 	
-	;; First, clear all variables, so that we only have to shove BASIC text around.
-	;; (We could later remove this requirement, and the only effect should be
-	;; to slow things down, and that you might have to either CLR if there is no
-	;; memory free, or else it would auto CLR when you ran out of program space).
+	// First, clear all variables, so that we only have to shove BASIC text around.
+	// (We could later remove this requirement, and the only effect should be
+	// to slow things down, and that you might have to either CLR if there is no
+	// memory free, or else it would auto CLR when you ran out of program space).
 	jsr basic_do_clr
 
-	;; Delete line if present
+	// Delete line if present
 	jsr basic_find_line
 
-	bcs +
+	bcs !+
 
-	;; Delete the line, whether we are deleting or
-	;; replacing the line
+	// Delete the line, whether we are deleting or
+	// replacing the line
 	jsr basic_delete_line
-*
-	;; Insert new line if non-zero length, i.e., that
-	;; we are not just deleting the line.
+!:
+	// Insert new line if non-zero length, i.e., that
+	// we are not just deleting the line.
 	lda tokenise_work1
 	cmp tokenise_work2
-	beq +
+	beq !+
 	jsr basic_insert_line
-*
-	;; No READY message after entering or deleting a line of BASIC
+!:
+	// No READY message after entering or deleting a line of BASIC
 	jmp basic_read_next_line
 	
 not_a_line:	
 
-	;;  Actually interpret the line
+	//  Actually interpret the line
 
-	;; Setup pointer to the statement
+	// Setup pointer to the statement
 	lda #<$0200
 	sta basic_current_statement_ptr+0
 	lda #>$0200
 	sta basic_current_statement_ptr+1
 
-	;; There is no stored line, so zero that pointer out
+	// There is no stored line, so zero that pointer out
 	lda #$00
 	sta basic_current_line_ptr+0
 	sta basic_current_line_ptr+1
 
-	;; Put invalid line number in current line number value,
-	;; so that we know we are in direct mode
-	;; (Compute's Mapping the 64 p19)
+	// Put invalid line number in current line number value,
+	// so that we know we are in direct mode
+	// (Compute's Mapping the 64 p19)
 	lda #$ff
 	sta basic_current_line_number+1
 
 	jmp basic_execute_statement
-