mirror of
https://github.com/irmen/prog8.git
synced 2024-09-10 09:54:32 +00:00
cx16.vaddr_clone now leaves vera CTRL selected port intact
This commit is contained in:
parent
faf05582f8
commit
2637939e62
@ -1,4 +1,5 @@
|
|||||||
; Prog8 definitions for the Text I/O and Screen routines for the Atari 800XL
|
; Prog8 definitions for the Text I/O and Screen routines for the Atari 800XL
|
||||||
|
; Reference: https://www.atariarchives.org/mapping/appendix12.php
|
||||||
|
|
||||||
%import syslib
|
%import syslib
|
||||||
%import conv
|
%import conv
|
||||||
|
@ -567,7 +567,6 @@ asmsub vaddr(ubyte bank @A, uword address @R0, ubyte addrsel @R1, byte autoIncrO
|
|||||||
|
|
||||||
asmsub vaddr_clone(ubyte port @A) clobbers (A,X,Y) {
|
asmsub vaddr_clone(ubyte port @A) clobbers (A,X,Y) {
|
||||||
; -- clones Vera addresses from the given source port to the other one.
|
; -- clones Vera addresses from the given source port to the other one.
|
||||||
; leaves CTRL on the destination port.
|
|
||||||
%asm {{
|
%asm {{
|
||||||
sta VERA_CTRL
|
sta VERA_CTRL
|
||||||
ldx VERA_ADDR_L
|
ldx VERA_ADDR_L
|
||||||
@ -580,6 +579,8 @@ asmsub vaddr_clone(ubyte port @A) clobbers (A,X,Y) {
|
|||||||
sty VERA_ADDR_M
|
sty VERA_ADDR_M
|
||||||
ply
|
ply
|
||||||
sty VERA_ADDR_H
|
sty VERA_ADDR_H
|
||||||
|
eor #1
|
||||||
|
sta VERA_CTRL
|
||||||
rts
|
rts
|
||||||
}}
|
}}
|
||||||
}
|
}
|
||||||
|
@ -4,6 +4,8 @@ TODO
|
|||||||
|
|
||||||
- fix discord string bug for if key!="." : "ERROR undefined symbol: prog8_interned_strings.string_3"
|
- fix discord string bug for if key!="." : "ERROR undefined symbol: prog8_interned_strings.string_3"
|
||||||
|
|
||||||
|
- txt.waitkey() should return the pressed key? Also on atari.
|
||||||
|
|
||||||
- [on branch: shortcircuit] investigate McCarthy evaluation again? this may also reduce code size perhaps for things like if a>4 or a<2 ....
|
- [on branch: shortcircuit] investigate McCarthy evaluation again? this may also reduce code size perhaps for things like if a>4 or a<2 ....
|
||||||
|
|
||||||
...
|
...
|
||||||
|
@ -1,21 +1,11 @@
|
|||||||
%zeropage basicsafe
|
|
||||||
%import textio
|
%import textio
|
||||||
%import emudbg
|
|
||||||
|
|
||||||
main {
|
main {
|
||||||
sub start() {
|
sub start() {
|
||||||
txt.print("is emulator? ")
|
str key = "test"
|
||||||
txt.print_ub(emudbg.is_emulator())
|
txt.print(":")
|
||||||
txt.nl()
|
if key != ":" {
|
||||||
|
cx16.r0++
|
||||||
emudbg.console_write(iso:"Hello from emulator.\n")
|
}
|
||||||
emudbg.console_chrout(iso:'1')
|
|
||||||
emudbg.console_chrout(iso:'2')
|
|
||||||
emudbg.console_chrout(iso:'3')
|
|
||||||
emudbg.console_chrout(iso:'\n')
|
|
||||||
emudbg.console_value1(123)
|
|
||||||
emudbg.console_chrout(iso:'\n')
|
|
||||||
emudbg.console_value2(42)
|
|
||||||
emudbg.console_chrout(iso:'\n')
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user