dhgr: fix raster4 sample

This commit is contained in:
Vince Weaver 2021-07-21 22:46:20 -04:00
parent 9963bcb60e
commit b0f9d12945
3 changed files with 17 additions and 3 deletions

View File

@ -5,16 +5,19 @@ TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
B2D = ../../utils/bmp2dhr/b2d B2D = ../../utils/bmp2dhr/b2d
LZSA = ~/research/lzsa/lzsa/lzsa LZSA = ~/research/lzsa/lzsa/lzsa
EMPTY_DISK = ../../empty_disk/empty.dsk
all: dhgr.dsk all: dhgr.dsk
dhgr.dsk: HELLO RASTER RASTER2 RASTER3 RASTER4 BITS LOTS DHR_LOAD dhgr.dsk: HELLO RASTER RASTER2 RASTER3 RASTER4 RASTER4_GOOD BITS LOTS DHR_LOAD
cp empty.dsk dhgr.dsk cp $(EMPTY_DISK) dhgr.dsk
$(DOS33) -y dhgr.dsk SAVE A HELLO $(DOS33) -y dhgr.dsk SAVE A HELLO
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER $(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER2 $(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER2
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER3 $(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER3
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER4 $(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER4
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 RASTER4_GOOD
$(DOS33) -y dhgr.dsk BSAVE -a 0x1000 DHR_LOAD $(DOS33) -y dhgr.dsk BSAVE -a 0x1000 DHR_LOAD
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 BITS $(DOS33) -y dhgr.dsk BSAVE -a 0x0300 BITS
$(DOS33) -y dhgr.dsk BSAVE -a 0x0300 LOTS $(DOS33) -y dhgr.dsk BSAVE -a 0x0300 LOTS
@ -74,6 +77,15 @@ raster4.o: raster4.s
### ###
RASTER4_GOOD: raster4.o
ld65 -o RASTER4_GOOD raster4.o -C ../../linker_scripts/apple2_300.inc
raster4.o: raster4.s
ca65 -o raster4.o raster4.s -l raster4.lst
###
DHR_LOAD: dhr_load.o DHR_LOAD: dhr_load.o
ld65 -o DHR_LOAD dhr_load.o -C ../../linker_scripts/apple2_1000.inc ld65 -o DHR_LOAD dhr_load.o -C ../../linker_scripts/apple2_1000.inc

Binary file not shown.

View File

@ -1,3 +1,5 @@
; Double hi-res Rasterbars
GBASL = $26 GBASL = $26
GBASH = $27 GBASH = $27
HGRPAGE = $E6 HGRPAGE = $E6
@ -91,7 +93,7 @@ draw_line_color:
ldy #0 ldy #0
jsr HPOSN ; put into GBASL addr of coord (Y,X),A jsr HPOSN ; put into GBASL addr of coord (Y,X),A
; ldy #39 ldy #39
loop_it: loop_it:
; set page2 ; set page2
sta $C055 ; 3 sta $C055 ; 3