Moved things into ONCE.

Code and or data used only during initialization belongs into the ONCE segment.

diff --git a/libsrc/c16/cgetc.s b/libsrc/c16/cgetc.s
index a476a5d1b72137d3577a1c9d9223f7d306ebfa1d..3ee31a757faf653086fe4ab28de0a412392dfaae 100644 (file)
--- a/libsrc/c16/cgetc.s
+++ b/libsrc/c16/cgetc.s
@@ -69,6 +69,9 @@ L2:     jsr     KBDREAD         ; Read char and return in A
 
 .endproc
 
+fnkeys: .byte   $01, $01, $01, $01, $01, $01, $01, $01
+        .byte   133, 137, 134, 138, 135, 139, 136, 140
+
 
 .code
 
@@ -82,11 +85,3 @@ L2:     jsr     KBDREAD         ; Read char and return in A
         rts
 
 .endproc
-
-
-; Function key table, readonly
-
-.rodata
-fnkeys: .byte   $01, $01, $01, $01, $01, $01, $01, $01
-        .byte   133, 137, 134, 138, 135, 139, 136, 140
-

diff --git a/libsrc/nes/ppu.s b/libsrc/nes/ppu.s
index 06dc10a65695c94571183e0660144c95d2fc5db2..07b6842f7ca4a1d5df42f45374421d620f13094b 100644 (file)
--- a/libsrc/nes/ppu.s
+++ b/libsrc/nes/ppu.s
@@ -68,6 +68,8 @@
 
 ;-----------------------------------------------------------------------------
 
+.segment        "ONCE"
+
 .proc   ppuinit
 
         lda     #%10101000
@@ -104,7 +106,6 @@
 
 .endproc
 
-
 ;-----------------------------------------------------------------------------
 
 .proc   paletteinit
@@ -126,7 +127,7 @@
         bne     @loop
 
         rts
-                     
+
 .endproc
 
 ;-----------------------------------------------------------------------------

diff --git a/libsrc/plus4/cgetc.s b/libsrc/plus4/cgetc.s
index 25a63c053604657df152c7f29b075bd05e07f926..784bac2674b030f7d9b87ae9e7c26ffd875190f5 100644 (file)
--- a/libsrc/plus4/cgetc.s
+++ b/libsrc/plus4/cgetc.s
@@ -72,6 +72,9 @@ L2:     sta     ENABLE_ROM      ; Bank in the ROM
 
 .endproc
 
+fnkeys: .byte   $01, $01, $01, $01, $01, $01, $01, $01
+        .byte   133, 137, 134, 138, 135, 139, 136, 140
+
 
 .segment        "LOWCODE"       ; Accesses the ROM - must go into low mem
 
@@ -87,11 +90,3 @@ L2:     sta     ENABLE_ROM      ; Bank in the ROM
         rts
 
 .endproc
-
-
-; Function key table, readonly
-
-.rodata
-fnkeys: .byte   $01, $01, $01, $01, $01, $01, $01, $01
-        .byte   133, 137, 134, 138, 135, 139, 136, 140
-