From 7dafba145ca00d231752529beacc218f940c2506 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Sat, 14 Nov 2020 22:45:18 -0500 Subject: [PATCH] botdemo: add fancy wipe --- appleiibot/Makefile | 8 ++-- bot_demo/CIRCLES.BAS | Bin 0 -> 252 bytes bot_demo/Makefile | 5 ++- bot_demo/botdemo.s | 101 ++++++++++++++++++++++++++++++------------- bot_demo/hello.bas | 7 ++- bot_demo/load.s | 43 +++++++++++++++++- bot_demo/wipe.s | 55 +++++++++++++++++++++++ 7 files changed, 181 insertions(+), 38 deletions(-) create mode 100644 bot_demo/CIRCLES.BAS create mode 100644 bot_demo/wipe.s diff --git a/appleiibot/Makefile b/appleiibot/Makefile index 5529bf85..717e0240 100644 --- a/appleiibot/Makefile +++ b/appleiibot/Makefile @@ -7,7 +7,7 @@ all: appleiibot.dsk convert_to convert_back convert_qkumba make_boxes appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \ - CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \ + CONCERT.BAS NYAN.BAS RASTER.BAS DHGR.BAS RASTER3.BAS LOTS.BAS LOAD \ RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \ A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \ RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \ @@ -27,7 +27,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ $(DOS33) -y appleiibot.dsk SAVE A NYAN.BAS $(DOS33) -y appleiibot.dsk SAVE A CONCERT.BAS $(DOS33) -y appleiibot.dsk SAVE A RASTER.BAS - $(DOS33) -y appleiibot.dsk SAVE A RASTER2.BAS + $(DOS33) -y appleiibot.dsk SAVE A DHGR.BAS $(DOS33) -y appleiibot.dsk SAVE A RASTER3.BAS $(DOS33) -y appleiibot.dsk SAVE A RASTER4.BAS $(DOS33) -y appleiibot.dsk SAVE A RASTER5.BAS @@ -177,8 +177,8 @@ RASTER.BAS: raster.bas #### -RASTER2.BAS: raster2.bas - $(TOKENIZE) < raster2.bas > RASTER2.BAS +DHGR.BAS: dhgr.bas + $(TOKENIZE) < dhgr.bas > DHGR.BAS #### diff --git a/bot_demo/CIRCLES.BAS b/bot_demo/CIRCLES.BAS new file mode 100644 index 0000000000000000000000000000000000000000..5a3b9e617f4ba06266f26fd5023131ea6b86049f GIT binary patch literal 252 zcmX|&u};G<6h$pq`WerTWBWB$l)4TSO9(krn<1*&C6TQ3TVP_~S6J8>kq}DTB@%zY zUmzA-ka~uzr+eS|A?4(PJi7aKEZ$~C;ryt+lrgp(+M~h!+~Co==lVVNe*dXF;=z*d z$t9`BkJ`OnUoD1KpOl%kL;EKj?BLyldy1QT$?Uq@Erk!8W$HsEnmI6bXTaR-rqUSW z`?^_x*Q-z|=vUzs{rT)d#kXD9@U?DGNg>jd^CV%6M&O?kZdoJ;3L?i0X+BM;desire_rle -; sta GBASH -; lda #$c -; jsr load_rle_gr + lda #bg_rle + sta GBASH + lda #$c + jsr load_rle_gr + + jsr do_wipe ; jsr gr_copy_to_current ; copy to page1 -; jsr page_flip + ;============================= + ; mockingboard where available -; jsr wait_until_keypress + lda #5 + sta CH + lda #21 + sta CV + jsr VTAB + + lda #mock_string + + jsr STROUT + + lda #12 + sta CH + lda #22 + sta CV + jsr VTAB + + lda #mock2_string + + jsr STROUT -; jsr do_list -; jsr do_list done: @@ -123,30 +136,59 @@ not_trigger: jmp done +mock_string: + .byte ") ) ) MOCKINGBOARD SOUND ( ( (",0 +mock2_string: + .byte "WHERE AVAILABLE",0 + todo_list: + + .byte DO_LOAD,1 + .byte DO_LIST,5 + .byte DO_RUN,15 ; a2 + .byte DO_LOAD,1 .byte DO_LIST,4 .byte DO_RUN,10 ; flyer + .byte DO_LOAD,1 .byte DO_LIST,4 .byte DO_RUN,20 ; nyan + .byte DO_LOAD,1 .byte DO_LIST,5 .byte DO_RUN,15 ; qr + + + + .byte DO_LOAD,1 + .byte DO_LIST,5 + .byte DO_RUN,15 + + .byte DO_LOAD,1 + .byte DO_LIST,5 + .byte DO_RUN,15 + + .byte DO_LOAD,1 + .byte DO_LIST,5 + .byte DO_RUN,15 + + .byte DO_LOAD,1 + .byte DO_LIST,5 + .byte DO_RUN,15 + .byte DONE,$FF command: .byte $00 which: .byte $00 -timeout: .byte $01 +timeout: .byte 10 trigger: .byte $00 original_stack: .byte $00 -; .include "gr_unrle.s" -; .include "gr_unrle_large.s" -; .include "gr_offsets.s" + .include "gr_unrle.s" + .include "gr_offsets.s" ; .include "gr_copy.s" -; .include "gr_copy_large.s" -; .include "gr_pageflip.s" + .include "bg.inc" .include "pt3_lib_core.s" .include "pt3_lib_init.s" @@ -155,6 +197,7 @@ original_stack: .byte $00 ; if you're self patching, detect has to be after interrupt_handler.s .include "pt3_lib_mockingboard_detect.s" +.include "wipe.s" .include "load.s" .include "nozp.inc" diff --git a/bot_demo/hello.bas b/bot_demo/hello.bas index c830d2df..8d480428 100644 --- a/bot_demo/hello.bas +++ b/bot_demo/hello.bas @@ -1,2 +1,7 @@ 5 HOME - +10 PRINT " LOADING APPLEBOT DEMO V0.1" +15 PRINT +20 HTAB 15:PRINT " _ " +30 HTAB 15:PRINT " _: :_ _" +40 HTAB 15:PRINT ":_: _: : " +50 PRINT CHR$(4)"BRUN LOADER" diff --git a/bot_demo/load.s b/bot_demo/load.s index 73e3f941..10ef29ad 100644 --- a/bot_demo/load.s +++ b/bot_demo/load.s @@ -8,17 +8,27 @@ CHRGET = $00B1 SCRTCH = $D64B RESTART = $D43C +FIX_LINKS = $D4F2 INLIN2 = $D52E PARSE_INPUT_LINE = $d559 TRACE_ = $D805 load_file: + ;================= ;================= ; run list command + ;================= + ;================= + do_list: + ; try to get things back to normal bit SET_TEXT + bit LORES bit PAGE0 + bit TEXTGR + + jsr TEXT jsr HOME lda #