cleanup

chrget.s

@@ -12,6 +12,7 @@ GENERIC_TXTPTR = GENERIC_CHRGOT + 1
 .endif
         cmp     #$3A
         bcs     L4058
+GENERIC_CHRGOT2:
         cmp     #$20
         beq     GENERIC_CHRGET
         sec

defines_kbd.s

@@ -39,8 +39,6 @@ Z14             := $000F;64                        ; Ctrl+O flag
 JMPADRS         := $0093;A1
 LOWTRX          := $0094;AA                        ; $AB also EXPSGN?
 
-RNDSEED			:= $00D4
-
 L0207           := $0207
 L020A           := $020A
 ;L2A13           := $2A0A

defines_osi.s

@@ -36,8 +36,6 @@ INPUTFLG        := $0062
 CPRMASK         := $0063
 Z14             := $0064                        ; Ctrl+O flag
 
-RNDSEED			:= $00D4
-
 L0207           := $0207
 L020A           := $020A
 MONRDKEY        := $FFEB

misc1.s

@@ -94,12 +94,12 @@ L2923:
 LETSTRING:
 .ifndef CONFIG_SMALL
         pla
+.endif
 
 ; ----------------------------------------------------------------------------
 ; INSTALL STRING, DESCRIPTOR ADDRESS IS AT FAC+3,4
 ; ----------------------------------------------------------------------------
 PUTSTR:
-.endif
 .ifdef CONFIG_CBM_ALL
         ldy     FORPNT+1
 .ifdef CBM1
@@ -110,7 +110,7 @@ PUTSTR:
         bne     LC92B
         jsr     FREFAC
         cmp     #$06
-.ifdef CBM2_KBD
+.ifdef CBM2
         bne     IQERR1
 .else
         beq     LC8E2
@@ -155,7 +155,7 @@ LC912:
         rts
 LC91C:
         lda     (INDEX),y
-        jsr     L00CF
+        jsr     CHRGOT2
         bcc     LC926
 IQERR1:
         jmp     IQERR

zeropage.s

@@ -110,13 +110,9 @@ FACEXTENSION = STRNG1+1
 STRNG2:
 	.res 2
 CHRGET:
-	.res 7
-	.res 6
-CHRGOT = GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET
 TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET)
-.ifndef CONFIG_SMALL
-L00CF:
+CHRGOT = <(GENERIC_CHRGOT-GENERIC_CHRGET + CHRGET)
+CHRGOT2 = <(GENERIC_CHRGOT2-GENERIC_CHRGET + CHRGET)
 RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
-.endif