cleanup

NOTES.txt

@@ -4,5 +4,6 @@ OSI BASIC             1977     1.0 REV 3.2    Y      N          -
 AppleSoft I           1977     1.1            N      Y        Apple      CONFIG_11
 KIM BASIC             1977     1.1            N      Y          -        CONFIG_11A
 Commodore BASIC 2     1979                    Y      Y         CBM       CONFIG_2
+AppleSoft II          1978                    Y      Y        Apple
 KBD BASIC             1980                    Y      N         KBD
 MicroTAN              1980                    Y      Y          -

eval.s

@@ -312,7 +312,7 @@ FRM_PERFORM2:
 .endif
         sta     ARGSIGN
         eor     FACSIGN
-        sta     STRNG1
+        sta     SGNCPR
 EXIT:
         lda     FAC
         rts
@@ -457,10 +457,10 @@ LCE3B:
         stx     $6D
         bit     $62
         bpl     LCE53
-        cmp     #$54
+        cmp     #$54	; T
         bne     LCE53
   .endif
-        cpy     #$C9
+        cpy     #$C9	; I$
         bne     LCE53
         jsr     LCE76
         sty     EXPON
@@ -473,7 +473,8 @@ LCE3B:
         jmp     LD353
 LCE53:
 .endif
-.ifdef KBD_MICROTAN
+.ifdef KBD_MICROTAN ; also AppleSoft 2
+; bugfix?
         ldx     #$00
         stx     STRNG1+1
 .endif

float.s

@@ -170,6 +170,7 @@ L36C7:
         sty     FACEXTENSION
         adc     #$08
 .ifdef KBD_MICROTAN
+; bugfix? does not exist on AppleSoft 2
         cmp     #(MANTISSA_BYTES+1)*8
 .else
         cmp     #MANTISSA_BYTES*8

flow.s

@@ -179,11 +179,7 @@ SYNERR1:
 .endif
 .ifdef CONFIG_2
 LC721:
-.ifdef KBD_MICROTAN
+        cmp     #TOKEN_GO-$80
-        cmp     #$45
-.else
-        cmp     #$4B
-.endif
         bne     SYNERR1
         jsr     CHRGET
         lda     #TOKEN_TO

token.s

@@ -143,7 +143,7 @@ UNFNC:
 		keyword_addr "RIGHT$", RIGHTSTR
 		keyword_addr "MID$", MIDSTR
 .ifdef CONFIG_2
-		keyword	"GO"
+		keyword	"GO", TOKEN_GO
 .endif
         .segment "KEYWORDS"
 		.byte   0