Cleanup BASIC sources

rom/poke.s

@@ -1,6 +1,5 @@
 .segment "CODE"
 
-.ifndef CONFIG_NO_POKE
 ; ----------------------------------------------------------------------------
 ; EVALUATE "EXP1,EXP2"
 ;
@@ -24,12 +23,7 @@ COMBYTE:
 ; ----------------------------------------------------------------------------
 GETADR:
         lda     FACSIGN
-  .ifdef APPLE
-        nop ; PATCH
-        nop
-  .else
         bmi     GOIQ
-  .endif
         lda     FAC
         cmp     #$91
         bcs     GOIQ
@@ -44,40 +38,18 @@ GETADR:
 ; "PEEK" FUNCTION
 ; ----------------------------------------------------------------------------
 PEEK:
-.ifdef CONFIG_PEEK_SAVE_LINNUM
         lda     LINNUM+1
         pha
         lda     LINNUM
         pha
-.endif
         jsr     GETADR
         ldy     #$00
-.ifdef CBM1
-; disallow PEEK between $C000 and $DFFF
-        cmp     #$C0
-        bcc     LD6F3
-        cmp     #$E1
-        bcc     LD6F6
-LD6F3:
-.endif
-.ifdef CBM2
-		nop ; patch that disables the compares above
-		nop
-		nop
-		nop
-		nop
-		nop
-		nop
-		nop
-.endif
         lda     (LINNUM),y
         tay
-.ifdef CONFIG_PEEK_SAVE_LINNUM
         pla
         sta     LINNUM
         pla
         sta     LINNUM+1
-.endif
 LD6F6:
         jmp     SNGFLT
 
@@ -99,11 +71,7 @@ WAIT:
         stx     FORPNT
         ldx     #$00
         jsr     CHRGOT
-.ifdef CONFIG_EASTER_EGG
         beq     EASTER_EGG
-.else
-        beq     L3628
-.endif
         jsr     COMBYTE
 L3628:
         stx     FORPNT+1
@@ -115,4 +83,3 @@ L362C:
         beq     L362C
 RTS3:
         rts
-.endif