diff --git a/client/basic/Makefile b/client/basic/Makefile index ef8537e..98f4497 100644 --- a/client/basic/Makefile +++ b/client/basic/Makefile @@ -29,7 +29,8 @@ all: kipperbas.d64 kipperbas.d64: kipperbas.prg # ripxplore.rb -r -e kbload $@ -o kbload # ripxplore.rb -r -e kbapp $@ -o kbapp - ripxplore.rb $@ -I CbmDos -a kipperbas.prg +# ripxplore.rb $@ -I CbmDos -a kipperbas.prg + ripxplore.rb $@ -a kipperbas.prg clean: rm -f *.o *.bin *.map *.prg diff --git a/client/basic/kipperbas.d64 b/client/basic/kipperbas.d64 index 32b68b0..2b6d6fe 100644 Binary files a/client/basic/kipperbas.d64 and b/client/basic/kipperbas.d64 differ diff --git a/client/basic/kipperbas.s b/client/basic/kipperbas.s index 24ac5ec..12a23d9 100644 --- a/client/basic/kipperbas.s +++ b/client/basic/kipperbas.s @@ -166,6 +166,15 @@ install_new_vectors_loop: @init_failed: jsr set_error +;look for the CHAIN variabke + lda #'C' + sta VARNAM + lda #'H'+$80 + sta VARNAM+1 + jsr safe_getvar + .byte $92 + sta (VARPNT),y + jsr $A644 ;do a "NEW" jmp $A474 ;"READY" prompt