chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

migrated to ACME assembler

Browse Source 
commit 145d64aa6e78838ed07cefed372f0ad6a4687e97
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 20:16:57 2020 +0200

    ACME adaptation

commit 885209d7822286744ea53232ae7461472a01d5d6
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 19:57:25 2020 +0200

    ACME adaptation

commit 334d84486bc603551887e7cbeb59d329f2224cc7
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 18:29:15 2020 +0200

    ACME adaptation

commit b5966f49bcd8f0ca79cbec93819a31238924707e
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 18:09:31 2020 +0200

    ACME adaptation

commit 786536a93a5eab5e676fca99625b4eb094a554e7
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 17:24:48 2020 +0200

    ACME adaptation

commit 704c70dfb1f5d68775d6f3da220803b8a3990f56
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 15:07:12 2020 +0200

    ACME adaptation

commit 136874964c9083b375f151475310f9636871fc72
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 14:45:14 2020 +0200

    ACME adaptation

commit 8eca0d5700b72d04336e72c5cd3a68e18b85f96d
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 14:06:52 2020 +0200

    ACME adaptation

commit 11d29eb7ee318239d782f85498b6d0524624d5c4
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 13:56:45 2020 +0200

    ACME apaptation

commit c9b5e5e04cceb92c66bc027e6440bc0f7c5a499f
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 13:49:04 2020 +0200

    ACME adaptation

commit f5cc254cbc921f07863807468cb3fe26b410b409
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 20 13:01:18 2020 +0200

    ACME adaptation

commit e135a27bf9c30cc0965379c954564e06406303b1
Author: FeralChild64 <you@example.com>
Date:   Sat Sep 19 21:55:01 2020 +0200

    ACME adaptation

commit e9dfddf90d9e2795e88b7da40ae050d733faeb56
Author: FeralChild64 <you@example.com>
Date:   Sat Sep 19 21:48:47 2020 +0200

    Makefile fix

commit 07030104c65cf5e5beeacf6d629ccb9245e58657
Author: FeralChild64 <you@example.com>
Date:   Sat Sep 19 21:42:00 2020 +0200

    ACME adaptation

commit f824362ee5bcfbffca86c430b57773b2ffd65655
Author: FeralChild64 <you@example.com>
Date:   Sat Sep 19 20:14:56 2020 +0200

    ACME adaptation

commit 3a3c59007dcd4940d89b8669f34ca56b61c25fdf
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 18 21:51:45 2020 +0200

    ACME adaptation

commit 6790ef7bc88a41de2881c69b7524dd4ab8c74b5d
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 18 20:35:23 2020 +0200

    ACME adaptation

commit 38ad18b90e9ec713aa7ca49576b3388ce1733357
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 18 18:46:20 2020 +0200

    ACME adaptation

commit 541340371122a9702f7b2d9771c298223cffd0e9
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 18 16:49:46 2020 +0200

    ACME adaptation

commit 25cfd5e186459be1a260d3eb8cfff767838de370
Author: FeralChild64 <you@example.com>
Date:   Thu Sep 17 20:13:33 2020 +0200

    ACME adaptation

commit f61599444d5b1d03d8fd8e4a6a7c3b85069bedb3
Author: FeralChild64 <you@example.com>
Date:   Thu Sep 17 19:29:23 2020 +0200

    ACME adaptation

commit b290be31ec7bb2e5723607697da1bbc621c84429
Author: FeralChild64 <you@example.com>
Date:   Thu Sep 17 17:20:14 2020 +0200

    ACME adaptation

commit 877be9e856880d98fd4bcb25b42aaaacda9dc463
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 16 21:47:38 2020 +0200

    ACME adaptation

commit bb20edaf85d386e41d5c2f715b745b68fbd3362e
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 16 21:31:30 2020 +0200

    ACME adaptation

commit c5d31bd8685abce37c8e254d15aac20bd1570d9f
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 16 18:40:49 2020 +0200

    ACME adaptation

commit 29349826b38f8a89649171559dc8cf24c560aff1
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 23:35:47 2020 +0200

    ACME adaptation

commit 8bcd6a621c4b11766d0cf34f79858ba90a67248e
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 22:52:25 2020 +0200

    ACME adaptation

commit e87a69edc2ce4bfcc460c31e08dcc352a985f88d
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 22:43:27 2020 +0200

    ACME adaptation

commit f49a097bd52e96d00b866c02bda7121e4543233c
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 19:02:07 2020 +0200

    ACME adaptation

commit fa0e9214a633b8e8f867cc70925b390940dcd426
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 17:47:19 2020 +0200

    ACME adaptation

commit 1b763b91e7a03e426227129c7f22f0ce57a4c197
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 17:17:10 2020 +0200

    ACME adaptation

commit e92a4b57b232cd85eb1e71090b8a89c7c8461ebc
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 17:15:37 2020 +0200

    ACME adaptation

commit de3c693e8a7e73ea5289198946058e3240894e6a
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 14 17:10:05 2020 +0200

    ACME adaptation

commit f9bd7ae0f04e932d613be9ed5cb19af9be5d338e
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 13 14:34:44 2020 +0200

    ACME adaptation

commit 694dee52555dbfc2b1f7f452a9671ff51106c057
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 13 14:16:14 2020 +0200

    ACME adaptation

commit 0af2c55edfcd22942d9f25417eb0d35f55b71604
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 11 17:38:09 2020 +0200

    ACME adaptation

commit 2015e17334bd56a1e8a13a5abc098d9c2e7ea44f
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 11 16:46:05 2020 +0200

    ACME adaptation

commit b1e972162798d60f4483cd6cc261e856c20c2c8c
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 11 16:24:31 2020 +0200

    ACME adaptation

commit 9d027e868466901ba53bf074a79ec8cf16273021
Author: FeralChild64 <you@example.com>
Date:   Fri Sep 11 15:04:31 2020 +0200

    ACME adaptation

commit 957186deddd1aa4f3b4f1aa1f421e4239a584e57
Author: FeralChild64 <you@example.com>
Date:   Thu Sep 10 22:49:07 2020 +0200

    ACME adaptation

commit b8060f67a455cfac109f08d96b62c360d693b931
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 23:07:28 2020 +0200

    ACME adaptation

commit e54d004568f44bbfe5c070ef1d7cf3544112e497
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 22:58:20 2020 +0200

    ACME adaptation

commit f90b77f073c5a605cb31c6ee451f65c8a8aff7d8
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 22:12:09 2020 +0200

    ACME adaptation

commit b211bb4afcd9c58fe1f5c92f3007717d611cd531
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 22:01:40 2020 +0200

    ACME adaptation

commit 8d7ea343b07e9e08e5f77f3c414758a6cffd0440
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 21:38:34 2020 +0200

    ACME adaptation

commit 46413eb0d92d6400aba0ff8dfe556e61e8a44d78
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 21:07:47 2020 +0200

    ACME adaptation

commit 9f98f69ecc21f7b74a5eb89e247f5a2c6fcb655d
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 20:05:03 2020 +0200

    ACME adaptation

commit 7bb9f1cadc682c7e0a4a6796739d860d473ca110
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 19:55:12 2020 +0200

    ACME adaptation

commit 5fc115392b5bdca6b56f67ad866b1884d2d2bdf8
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 19:31:10 2020 +0200

    ACME adaptation

commit b7940fc60e568d859df9e3156f6bacc6d685b2cc
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 19:16:09 2020 +0200

    ACME adaptation

commit 56288cb97197561afa0816b29c134ec1190e8eab
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 18:48:23 2020 +0200

    ACME adaptation

commit 10401a60fc7922a53d782120ef6795d889140218
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 16:34:16 2020 +0200

    ACME adaptation

commit 8ce76e4d2b56837a691ae84b1a412a2ae32a157b
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 16:20:44 2020 +0200

    ACME adaptation

commit 33fade899fa6172ea6b5b5f6683bb61f544429fd
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 15:28:46 2020 +0200

    ACME adaptation

commit a416f04734402fcfbc57a933731376df2e0180a1
Author: FeralChild64 <you@example.com>
Date:   Wed Sep 9 12:40:03 2020 +0200

    ACME adaptation

commit f8daee005b1d29f6912723be2ac94bc5fbeb0508
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 7 23:29:54 2020 +0200

    ACME adaptation

commit 83fe6bdd0b08a44fdbfc6eefe323a4b194ccaf5b
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 7 22:23:16 2020 +0200

    ACME adaptation

commit cb1f75620b9c83000a15c9c7f7acefdfee79a979
Author: FeralChild64 <you@example.com>
Date:   Mon Sep 7 19:23:12 2020 +0200

    ACME adaptation

commit e524d517c933ae1f0aeb49764d307fadb4845025
Author: FeralChild64 <you@example.com>
Date:   Sun Sep 6 08:24:25 2020 +0200

    ACME adaptation - replaced comments

commit 2ab572c3a21f4a78a7312d0e684bc11d91d1717a
Author: FeralChild64 <you@example.com>
Date:   Sat Sep 5 17:59:10 2020 +0200

    ACME adaptation - replaced the assembler
This commit is contained in:
FeralChild64 committed 2020-09-20 20:22:36 +02:00
1 parent bfc8291e41
commit c8d255130c
685 files changed
+15835 -16296
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/basic/memory/fetch_character.s
+24 -25
View File
@@ -1,56 +1,55 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
//
// Fetches a single character
//
;
; Fetches a single character
;
!set NEEDED = 0
; For these configurations we have optimized version in another file
!ifndef CONFIG_MB_M65 { !set NEEDED = 1 }
!ifndef CONFIG_MEMORY_MODEL_46K_OR_50K { !set NEEDED = 1 }
// For these configurations we have optimized version in another file
#if !(ROM_LAYOUT_M65 && (CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K))
!if NEEDED {
fetch_character:
ldy #0
#if CONFIG_MEMORY_MODEL_60K
!ifdef CONFIG_MEMORY_MODEL_60K {
ldx #<TXTPTR
jsr peek_under_roms
#elif CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
} else ifdef CONFIG_MEMORY_MODEL_46K_OR_50K {
jsr peek_under_roms_via_TXTPTR
#else // CONFIG_MEMORY_MODEL_38K
} else { ; CONFIG_MEMORY_MODEL_38K
lda (TXTPTR),y
}
#endif
!ifndef HAS_OPCODES_65CE02 {
#if !HAS_OPCODES_65CE02
// FALLTHROUGH
; FALLTHROUGH
consume_character:
// Advance basic text pointer
; Advance basic text pointer
inc TXTPTR+0
bne !+
bne @1
inc TXTPTR+1
!:
@1:
#else // HAS_OPCODES_65CE02
} else { ; HAS_OPCODES_65CE02
// Advance basic text pointer
; Advance basic text pointer
inw TXTPTR
#endif
}
rts
#endif
}
src/basic/memory/fetch_character_skip_spaces.s
+12 -11
View File
@@ -1,14 +1,17 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
//
// Fetches a single character, but skips spaces
//
;
; Fetches a single character, but skips spaces
;
!set NEEDED = 0
; For these configurations we have optimized version in another file
!ifndef CONFIG_MB_M65 { !set NEEDED = 1 }
!ifndef CONFIG_MEMORY_MODEL_46K_OR_50K { !set NEEDED = 1 }
// For these configurations we have optimized version in another file
#if !(ROM_LAYOUT_M65 && (CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K))
!if NEEDED {
fetch_character_skip_spaces:
@@ -17,6 +20,4 @@ fetch_character_skip_spaces:
beq fetch_character_skip_spaces
rts
#endif
}
src/basic/memory/shift_mem_adapt_pointers.s
+13 -13
View File
@@ -1,35 +1,35 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
//
// Helper routine for memory copy. Moves down the memmove_src and memmove_dst pointers to compensate for .Y not being 0
//
;
; Helper routine for memory copy. Moves down the memmove_src and memmove_dst pointers to compensate for .Y not being 0
;
shift_mem_adapt_pointers:
sty memmove__tmp
// Adapt source pointer
; Adapt source pointer
sec
lda memmove__src+0
sbc memmove__tmp
sta memmove__src+0
bcs !+
bcs @1
dec memmove__src+1
!:
// Adapt destination pointer
@1:
; Adapt destination pointer
sec
lda memmove__dst+0
sbc memmove__tmp
sta memmove__dst+0
bcs !+
bcs @2
dec memmove__dst+1
!:
// Adapt data size
@2:
; Adapt data size
inc memmove__size+1
src/basic/memory/shift_mem_aliases.s
-9
View File
@@ -1,9 +0,0 @@
//
// Aliases for memory locations for memory block copy routines
//
.label memmove__src = INDEX+2
.label memmove__dst = RESHO+0
.label memmove__size = RESHO+2
.label memmove__tmp = RESHO+4
src/basic/memory/shift_mem_down.s
+27 -28
View File
@@ -1,59 +1,58 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
//
// Copies the memory down
//
// Input:
// - memmove__src - pointer to the first byte of source
// - memmove__dst - pointer to the first byte of destination
// - memmove__size - number of bytes to copy
//
// All the input variables, .A, and .Y register, are destroyed. Also uses memmove__tmp variable.
//
;
; Copies the memory down
;
; Input:
; - memmove__src - pointer to the first byte of source
; - memmove__dst - pointer to the first byte of destination
; - memmove__size - number of bytes to copy
;
; All the input variables, .A, and .Y register, are destroyed. Also uses memmove__tmp variable.
;
shift_mem_down:
// The copy routine is simplified, so that it is fast and (for memory model 60K)
// can fit in a small RAM area - therefore it requires to pre-set .Y, so that
// the copy ends when it reaches 0; so if copying one byte we want .Y = $FF
; The copy routine is simplified, so that it is fast and (for memory model 60K)
; can fit in a small RAM area - therefore it requires to pre-set .Y, so that
; the copy ends when it reaches 0; so if copying one byte we want .Y = $FF
sec
lda #$00
sbc memmove__size+0
tay
// Now we have to move down the memmove_src and memmove_dst pointers to compensate for .Y not being 0
; Now we have to move down the memmove_src and memmove_dst pointers to compensate for .Y not being 0
jsr shift_mem_adapt_pointers
#if CONFIG_MEMORY_MODEL_38K
!ifdef CONFIG_MEMORY_MODEL_38K {
shift_mem_down_internal:
// Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
//
// This means we have to copy from the back end down.
// This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
; Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
;
; This means we have to copy from the back end down.
; This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
php
!:
@1:
lda (memmove__src),y
sta (memmove__dst),y
iny
bne !-
bne @1
inc memmove__src+1
inc memmove__dst+1
dec memmove__size+1
bne !-
bne @1
plp
rts
#else
} else {
jmp shift_mem_down_internal
#endif
}
src/basic/memory/shift_mem_up.s
+27 -28
View File
@@ -1,56 +1,55 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
//
// Copies the memory up
//
// Input:
// - memmove__src - pointer to the last byte of source
// - memmove__dst - pointer to the last byte of destination
// - memmove__size - number of bytes to copy
//
// All the input variables, .A, and .Y register, are destroyed. Also uses memmove__tmp variable.
//
;
; Copies the memory up
;
; Input:
; - memmove__src - pointer to the last byte of source
; - memmove__dst - pointer to the last byte of destination
; - memmove__size - number of bytes to copy
;
; All the input variables, .A, and .Y register, are destroyed. Also uses memmove__tmp variable.
;
shift_mem_up:
// The copy routine is simplified, so that it is fast and (for memory model 60K)
// can fit in a small RAM area - therefore it requires to pre-set .Y, so that
// the copy ends when it reaches 0; so if copying one byte we want .Y = $01
; The copy routine is simplified, so that it is fast and (for memory model 60K)
; can fit in a small RAM area - therefore it requires to pre-set .Y, so that
; the copy ends when it reaches 0; so if copying one byte we want .Y = $01
ldy memmove__size+0
// Now we have to move down the memmove_src and memmove_dst pointers to compensate for .Y not being 0
; Now we have to move down the memmove_src and memmove_dst pointers to compensate for .Y not being 0
jsr shift_mem_adapt_pointers
#if CONFIG_MEMORY_MODEL_38K
!ifdef CONFIG_MEMORY_MODEL_38K {
shift_mem_up_internal:
// Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
//
// This means we have to copy from the back end down.
// This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
; Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
;
; This means we have to copy from the back end down.
; This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
php
!:
@1:
lda (memmove__src),y
sta (memmove__dst),y
dey
bne !-
bne @1
dec memmove__src+1
dec memmove__dst+1
dec memmove__size+1
bne !-
bne @1
plp
rts
#else
} else {
jmp shift_mem_up_internal
#endif
}
src/basic/memory/under_rom_60k.s
+31 -31
View File
@@ -1,25 +1,25 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE
;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE
#if CONFIG_MEMORY_MODEL_60K
!ifdef CONFIG_MEMORY_MODEL_60K {
// IMPORTANT:
// These routines lengths cannot be changed without changing
// the aliases for peek_under_roms, poke_under_roms, etc.
// Thus those addresses are expressed using formulae.
; IMPORTANT:
; These routines lengths cannot be changed without changing
; the aliases for peek_under_roms, poke_under_roms, etc.
; Thus those addresses are expressed using formulae.
install_ram_routines:
// Copy routines into place
; Copy routines into place
ldx #__ram_routines_end-__ram_routines_start-1
!:
@1:
lda __ram_routines_start,x
sta tiny_nmi_handler,x
dex
bpl !-
bpl @1
// Point NMI handler to tiny_nmi_handler
; Point NMI handler to tiny_nmi_handler
lda #<tiny_nmi_handler
sta $FFFE
lda #>tiny_nmi_handler
@@ -29,14 +29,14 @@ install_ram_routines:
__ram_routines_start:
// XXX - Routine order must match that of the KERNAL version of the file.
// (since it has fewer routines)
; XXX - Routine order must match that of the KERNAL version of the file.
; (since it has fewer routines)
tiny_nmi_handler_routine:
inc missed_nmi_flag
rti
peek_under_roms_routine:
php
// Offset of arg of lda ($00),y
; Offset of arg of lda ($00),y
stx peek_under_roms+pa-peek_under_roms_routine+1
jsr memmap_allram
pa: lda ($00),y
@@ -46,7 +46,7 @@ pa: lda ($00),y
poke_under_roms_routine:
php
// Offset of arg of lda ($00),y
; Offset of arg of lda ($00),y
stx poke_under_roms+pb-poke_under_roms_routine+1
jsr memmap_allram
pb: sta ($00),y
@@ -71,46 +71,46 @@ memmap_allram_routine:
shift_mem_up_routine:
// Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
//
// This means we have to copy from the back end down.
// This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
; Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
;
; This means we have to copy from the back end down.
; This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
php
jsr memmap_allram
!:
@2:
lda (memmove__src),y
sta (memmove__dst),y
dey
bne !-
bne @2
dec memmove__src+1
dec memmove__dst+1
dec memmove__size+1
bne !-
bne @2
plp
jmp memmap_normal
shift_mem_down_routine:
// Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
//
// This means we have to copy from the back end down.
// This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
; Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
;
; This means we have to copy from the back end down.
; This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
php
jsr memmap_allram
!:
@3:
lda (memmove__src),y
sta (memmove__dst),y
iny
bne !-
bne @3
inc memmove__src+1
inc memmove__dst+1
dec memmove__size+1
bne !-
bne @3
plp
jmp memmap_normal
__ram_routines_end:
#endif
}
src/basic/memory/under_rom_peek_fetch_46k_50k.s
+32 -37
View File
@@ -1,121 +1,116 @@
// #LAYOUT# STD * #TAKE-HIGH
// #LAYOUT# * BASIC_0 #TAKE-HIGH
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE-HIGH
;; #LAYOUT# * BASIC_0 #TAKE-HIGH
;; #LAYOUT# * * #IGNORE
// This has to go $E000 or above - as the routines below bank out the main BASIC ROM!
; This has to go $E000 or above - as the routines below bank out the main BASIC ROM!
#if CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
!ifdef CONFIG_MEMORY_MODEL_46K_OR_50K {
peek_under_roms_via_TXTPTR:
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
lda #$26
sta CPU_R6510
// Retrieve value from under ROMs
; Retrieve value from under ROMs
lda (TXTPTR), y
// FALLTROUGH
; FALLTROUGH
remap_BASIC_preserve_A:
// Restore memory mapping
; Restore memory mapping
pha
lda #$27
sta CPU_R6510
pla
// Quit
; Quit
rts
peek_under_roms_via_OLDTXT:
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
lda #$26
sta CPU_R6510
// Retrieve value from under ROMs
; Retrieve value from under ROMs
lda (OLDTXT), y
jmp_8 remap_BASIC_preserve_A
+bra remap_BASIC_preserve_A
peek_under_roms_via_VARPNT:
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
lda #$26
sta CPU_R6510
// Retrieve value from under ROMs
; Retrieve value from under ROMs
lda (VARPNT), y
jmp_8 remap_BASIC_preserve_A
+bra remap_BASIC_preserve_A
peek_under_roms_via_FAC1_PLUS_1:
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
lda #$26
sta CPU_R6510
// Retrieve value from under ROMs
; Retrieve value from under ROMs
lda (__FAC1+1), y
jmp_8 remap_BASIC_preserve_A
#if ROM_LAYOUT_M65
+bra remap_BASIC_preserve_A
!ifdef CONFIG_MB_M65 {
fetch_character:
ldy #0
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
lda #$26
sta CPU_R6510
// Retrieve value from under ROMs, advance text pointer
; Retrieve value from under ROMs, advance text pointer
lda (TXTPTR), y
inw TXTPTR
// Restore memory mapping
; Restore memory mapping
jmp_8 remap_BASIC_preserve_A
+bra remap_BASIC_preserve_A
fetch_character_skip_spaces:
ldy #0
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
lda #$26
sta CPU_R6510
// Retrieve value from under ROMs, advance text pointer
!:
; Retrieve value from under ROMs, advance text pointer
@1:
lda (TXTPTR), y
inw TXTPTR
// Skip space characters
; Skip space characters
cmp #$20
beq !-
beq @1
// Restore memory mapping
; Restore memory mapping
jmp_8 remap_BASIC_preserve_A
#endif
#endif
+bra remap_BASIC_preserve_A
} }
src/basic/memory/under_rom_shift_46k_50k.s
+27 -29
View File
@@ -1,71 +1,71 @@
// #LAYOUT# STD * #TAKE-HIGH
// #LAYOUT# * BASIC_0 #TAKE-HIGH
// #LAYOUT# * * #IGNORE
;; #LAYOUT# STD * #TAKE-HIGH
;; #LAYOUT# * BASIC_0 #TAKE-HIGH
;; #LAYOUT# * * #IGNORE
// This has to go $E000 or above - as the routines below bank out the main BASIC ROM!
; This has to go $E000 or above - as the routines below bank out the main BASIC ROM!
#if CONFIG_MEMORY_MODEL_46K || CONFIG_MEMORY_MODEL_50K
!ifdef CONFIG_MEMORY_MODEL_46K_OR_50K {
shift_mem_up_internal:
// Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
//
// This means we have to copy from the back end down.
// This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
; Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
;
; This means we have to copy from the back end down.
; This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
php
lda #$26
sta CPU_R6510
// Perform the copying
!:
; Perform the copying
@1:
lda (memmove__src),y
sta (memmove__dst),y
dey
bne !-
bne @1
dec memmove__src+1
dec memmove__dst+1
dec memmove__size+1
bne !-
bne @1
jmp_8 shift_mem_internal_finalize
+bra shift_mem_internal_finalize
shift_mem_down_internal:
// Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
//
// This means we have to copy from the back end down.
// This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
; Move memmove__size bytes from memmove__src to memmove__dst, where memmove__dst > memmove__src
;
; This means we have to copy from the back end down.
; This routine assumes the pointers are already pointed to the end of the areas, and that .Y is correctly initialized
// Unmap BASIC lower ROM
; Unmap BASIC lower ROM
php
lda #$26
sta CPU_R6510
// Perform the copying
!:
; Perform the copying
@2:
lda (memmove__src),y
sta (memmove__dst),y
iny
bne !-
bne @2
inc memmove__src+1
inc memmove__dst+1
dec memmove__size+1
bne !-
bne @2
// FALLTROUGH
; FALLTROUGH
shift_mem_internal_finalize:
// Restore memory mapping and quit
; Restore memory mapping and quit
lda #$27
sta CPU_R6510
@@ -73,6 +73,4 @@ shift_mem_internal_finalize:
plp
rts
#endif
}