2021-01-17 17:33:17 +00:00
|
|
|
|
|
|
|
|
|
2021-01-18 06:03:03 +00:00
|
|
|
processor 6502
|
|
|
|
|
|
|
|
|
|
|
2021-01-18 10:30:54 +00:00
|
|
|
kbd equ $c000
|
|
|
|
|
kbstrb equ $c010
|
|
|
|
|
speaker equ $c030
|
|
|
|
|
|
|
|
|
|
graphics equ $c050
|
|
|
|
|
text equ $c051
|
|
|
|
|
fullpage equ $c052
|
|
|
|
|
page1 equ $c054
|
|
|
|
|
hires equ $c057
|
|
|
|
|
|
2021-01-17 17:33:17 +00:00
|
|
|
|
|
|
|
|
|
2021-01-18 06:03:03 +00:00
|
|
|
org $803
|
|
|
|
|
|
2021-01-18 10:30:54 +00:00
|
|
|
|
|
|
|
|
sta hires
|
|
|
|
|
sta fullpage
|
|
|
|
|
sta graphics
|
|
|
|
|
sta page1
|
2021-01-18 06:03:03 +00:00
|
|
|
|
|
|
|
|
|
2021-01-18 10:30:54 +00:00
|
|
|
Start
|
2021-01-18 15:50:22 +00:00
|
|
|
|
2021-01-18 15:46:27 +00:00
|
|
|
; new blitSHR_2 (no output)
|
|
|
|
|
; jsr t_blitSHR_n2
|
2021-01-18 06:03:03 +00:00
|
|
|
|
2021-01-18 15:46:27 +00:00
|
|
|
; blitSHR_IO (screen 2 output and input 2 screen)
|
|
|
|
|
jsr t_blitSHR_IO
|
2021-01-18 06:03:03 +00:00
|
|
|
|
2021-01-18 15:50:22 +00:00
|
|
|
; original blitSHR
|
|
|
|
|
jsr test_blitSHR_orig
|
|
|
|
|
|
|
|
|
|
|
2021-01-18 10:30:54 +00:00
|
|
|
|
|
|
|
|
end jmp end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
include "blitSHR_orig.asm"
|
2021-01-18 06:03:03 +00:00
|
|
|
include "hires.asm"
|
2021-01-18 15:46:27 +00:00
|
|
|
include "blitSHR_new.asm"
|
|
|
|
|
|
2021-01-18 10:30:54 +00:00
|
|
|
|
|
|
|
|
org $2000
|
|
|
|
|
incbin "marioluigi-apple2.hires.bin"
|
