Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-15 08:27:41 +00:00
Code Issues Projects Releases Wiki Activity

gr_viewer: update

Browse Source
This commit is contained in:
Vince Weaver
2020-01-13 01:52:15 -05:00
parent 049b559520
commit 113779b8f2
3 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gr_viewer/Makefile
View File

@@ -9,7 +9,8 @@ all: gr_viewer.dsk
gr_viewer.dsk: HELLO LOADER gr_viewer.dsk: HELLO LOADER
$(DOS33) -y gr_viewer.dsk SAVE A HELLO $(DOS33) -y gr_viewer.dsk SAVE A HELLO
$(DOS33) -y gr_viewer.dsk BSAVE -a 0x1000 LOADER $(DOS33) -y gr_viewer.dsk BSAVE -a 0x1000 LOADER
# $(DOS33) -y gr_viewer.dsk BSAVE -a 0x800 F02.GR # $(DOS33) -y gr_viewer.dsk BSAVE -a 0x800 F05.GR
### ###
@@ -28,4 +29,4 @@ loader.o: loader.s
clean: clean:
rm -f *~ *.o LOADER HELLO rm -f *~ *.o LOADER HELLO *.lst

BIN
gr_viewer/gr_viewer.dsk
View File

Binary file not shown.

4
gr_viewer/loader.s
View File

@@ -122,6 +122,8 @@ loop_forever:
; wait until keypressed ; wait until keypressed
bit KEYRESET
wait_until_keypress: wait_until_keypress:
lda KEYPRESS ; check if keypressed lda KEYPRESS ; check if keypressed
bpl wait_until_keypress ; if not, loop bpl wait_until_keypress ; if not, loop
@@ -129,7 +131,7 @@ wait_until_keypress:
inc WHICH inc WHICH
lda WHICH lda WHICH
cmp #4 cmp #8
bne no_new bne no_new
lda #1 lda #1
sta WHICH sta WHICH