Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-05 22:29:04 +00:00
Code Issues Projects Releases Wiki Activity

corrections

Browse Source
This commit is contained in:
Irmen de Jong 2020-09-27 13:31:46 +02:00
parent 446fc35d5c
commit 7c701bdf3f
7 changed files with 7 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/balloonflight.p8
View File

@ -3,9 +3,6 @@
%import textio %import textio
%zeropage basicsafe %zeropage basicsafe
; TODO balloon only goes down now
main { main {
ubyte perform_scroll = false ubyte perform_scroll = false
@ -48,7 +45,9 @@ main {
perform_scroll = false perform_scroll = false
txt.scroll_left(true) txt.scroll_left(true)
if c64.RASTER & 1
; float the balloon
if rnd() & %10000
c64.SPXY[1] ++ c64.SPXY[1] ++
else else
c64.SPXY[1] -- c64.SPXY[1] --

2
examples/diskdir.p8
View File

@ -5,8 +5,6 @@
; This example shows the directory contents of disk drive 8. ; This example shows the directory contents of disk drive 8.
; TODO why is this larger than on the previous compiler version?
main { main {
sub start() { sub start() {
txt.print("directory of disk drive #8:\n\n") txt.print("directory of disk drive #8:\n\n")

2
examples/fibonacci.p8
View File

@ -4,8 +4,6 @@
; This example computes the first 20 values of the Fibonacci sequence. ; This example computes the first 20 values of the Fibonacci sequence.
; Note: this program is compatible with C64 and CX16. ; Note: this program is compatible with C64 and CX16.
; TODO why is this larger than on the previous compiler version?
main { main {
sub start() { sub start() {
txt.print("fibonacci sequence\n") txt.print("fibonacci sequence\n")

2
examples/hello.p8
View File

@ -5,8 +5,6 @@
; Note: this program is compatible with C64 and CX16. ; Note: this program is compatible with C64 and CX16.
; TODO why is this larger than on the previous compiler version?
main { main {
sub start() { sub start() {

3
examples/swirl.p8
View File

@ -3,9 +3,6 @@
; Note: this program is compatible with C64 and CX16. ; Note: this program is compatible with C64 and CX16.
; TODO why is this larger than on the previous compiler version?
main { main {
const uword screenwidth = txt.DEFAULT_WIDTH const uword screenwidth = txt.DEFAULT_WIDTH
const uword screenheight = txt.DEFAULT_HEIGHT const uword screenheight = txt.DEFAULT_HEIGHT

17
examples/test.p8
View File

@ -1,22 +1,11 @@
%import syslib %target c64
; %import graphics
%import textio %import textio
%import floats %import syslib
%zeropage basicsafe %zeropage basicsafe
main { main {
sub start() {
sub start() {
byte bb= -22
ubyte ubb = 22
word ww= -2222
uword uww = 2222
float ff = -2.2
; @($c000) *= 99 ; TODO implement
} }
} }

5
examples/wizzine.p8
View File

@ -2,9 +2,6 @@
%import syslib %import syslib
%zeropage basicsafe %zeropage basicsafe
; TODO fix code that has become slower (should be fixed after all the new comparison expression code is done)
spritedata $0a00 { spritedata $0a00 {
; this memory block contains the sprite data ; this memory block contains the sprite data
; it must start on an address aligned to 64 bytes. ; it must start on an address aligned to 64 bytes.
@ -58,7 +55,7 @@ irq {
ubyte @zp y = cos8u(angle*3-spri*16) / 2 + 70 ubyte @zp y = cos8u(angle*3-spri*16) / 2 + 70
c64.SPXYW[spri] = mkword(y, lsb(x)) c64.SPXYW[spri] = mkword(y, lsb(x))
c64.MSIGX <<= 1 c64.MSIGX <<= 1
if msb(x) c64.MSIGX++ ; TODO has this become badly translated to asm?? it makes the loop quite slow if msb(x) c64.MSIGX++
} }
c64.EXTCOL-=8 c64.EXTCOL-=8
} }