mirror of
https://github.com/irmen/prog8.git
synced 2025-01-26 03:32:22 +00:00
34f3169dda
cbm: MEMTOP changed (now also returns nr of banks in A) STOP2 removed (just use STOP) RDTIM_safe() added TEST IRQ ENABLE RDTIM16 changed (internally) TEST IRQ ENABLE cx16: screen_mode changed (now also returns width and height in X,Y) kbdbuf_peek2 removed (just use kbdbuf_peek) joystick_get changed (presence now returned as bool in Y) joystick_get2 removed (just use joystick_get) mouse_pos changed (now properly returns x and y position in R0 and R1) set_led_brightness changed into set_led_state, with only a boolean on/off argument. There is no variable brightness. sys.set_leds_brightness() removed. Use cx16.set_led_brightness().
69 lines
1.8 KiB
Lua
69 lines
1.8 KiB
Lua
%import textio
|
|
%import mcf
|
|
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
uword duration
|
|
ubyte[256] bonkbuffer
|
|
|
|
;; diskio.fastmode(1)
|
|
set_screen()
|
|
cbm.SETTIM(0,0,0)
|
|
|
|
mcf.set_callbacks(mcf_get_buffer, mcf_process_chunk) ; not needed if the stream has no custom chunk types
|
|
mcf.set_bonkbuffer(bonkbuffer)
|
|
|
|
if mcf.open("demo.mcf", 8, 2) {
|
|
repeat {
|
|
mcf.stream()
|
|
if_cs {
|
|
break ; EOF reached, stop the streaming loop
|
|
} else {
|
|
; PAUSE chunk encountered, code is in cx16.r0
|
|
}
|
|
}
|
|
mcf.close()
|
|
}
|
|
|
|
duration = cbm.RDTIM16()
|
|
cbm.CINT()
|
|
txt.print("done. ")
|
|
txt.print_uw(duration)
|
|
txt.print(" jiffies.\n")
|
|
}
|
|
|
|
sub set_screen() {
|
|
; 640x400 16 colors
|
|
cx16.VERA_DC_VIDEO = (cx16.VERA_DC_VIDEO & %11001111) | %00100000 ; enable only layer 1
|
|
cx16.VERA_DC_HSCALE = 128
|
|
cx16.VERA_DC_VSCALE = 128
|
|
cx16.VERA_CTRL = %00000010
|
|
cx16.VERA_DC_VSTART = 20
|
|
cx16.VERA_DC_VSTOP = 400 /2 -1 + 20 ; clip off screen that overflows vram
|
|
cx16.VERA_L1_CONFIG = %00000110 ; 16 colors bitmap mode
|
|
cx16.VERA_L1_MAPBASE = 0
|
|
cx16.VERA_L1_TILEBASE = %00000001 ; hires
|
|
}
|
|
|
|
asmsub mcf_get_buffer(ubyte chunktype @A, uword size @XY) -> ubyte @A, uword @XY, bool @Pc {
|
|
%asm {{
|
|
ldx #<$a000
|
|
ldy #>$a000
|
|
lda #10
|
|
clc
|
|
rts
|
|
}}
|
|
}
|
|
|
|
asmsub mcf_process_chunk() -> bool @Pc {
|
|
; process the chunk that was loaded in the location returned by the previous call to mcf_get_buffer()
|
|
%asm {{
|
|
clc
|
|
rts
|
|
}}
|
|
}
|
|
}
|