diff --git a/res/DEMO/CONAN b/res/DEMO/CONAN index 7e35eaca7..8ba11ac87 100755 Binary files a/res/DEMO/CONAN and b/res/DEMO/CONAN differ diff --git a/res/DEMO/CONAN.1 b/res/DEMO/CONAN.1 deleted file mode 100755 index 30589f155..000000000 Binary files a/res/DEMO/CONAN.1 and /dev/null differ diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt index 0dec6b226..f279cd2a2 100644 --- a/res/DEMO/_FileInformation.txt +++ b/res/DEMO/_FileInformation.txt @@ -25,7 +25,6 @@ CEILING.ZERO.1=Type(F1),AuxType(0000),Access(C3) CL=Type(06),AuxType(0200),Access(C3) CHOPLIFTER=Type(06),AuxType(0300),Access(C3) CONAN=Type(06),AuxType(0300),Access(C3) -CONAN.1=Type(F1),AuxType(0000),Access(C3) CRIME.WAVE=Type(06),AuxType(BE00),Access(C3) CYCLOD=Type(06),AuxType(0300),Access(C3) DIG.DUG=Type(06),AuxType(0300),Access(C3) diff --git a/src/demo/conan.a b/src/demo/conan.a new file mode 100644 index 000000000..70a22b007 --- /dev/null +++ b/src/demo/conan.a @@ -0,0 +1,63 @@ +;license:MIT +;(c) 2022 by qkumba + +!cpu 6502 +!to "res/DEMO/CONAN",plain +*=$200 + + !source "src/constants.a" ; no code in these + !source "src/macros.a" + + +READ_RAM2_WRITE_RAM2 + jsr EnableAccelerator + +LOAD_FILE_KEEP_DIR conan, conan_dir_e-conan_dir_b + lda #$60 + sta $81E + jsr $800 ; decompress + lda #$60 + sta $BD40 + jsr $BCCF + lda #$4C + sta $7C2C + jsr $5FF8 ; decompress + sta $80F6 + jsr $826 + lda #$60 + sta $6BA2 + jsr $3FFC ; decompress + jsr $BE00 ; decompress more + lda #$60 + sta $1094 + lda #$6C + sta $BD40 + jsr $6BA5 + lda #$4C + sta $A4E2 + sta $A4D3 + ldx #0 + stx $A4E3 + stx $A4D4 + stx $A0D5 + inx + stx $A4E4 + stx $A4D5 + stx $A0D6 + lda $C057 + lda $C052 + lda $C050 + +DISABLE_ACCEL + jmp $A000 + +conan + !byte conan_e-conan_b +conan_b +conan_dir_b + !text "X/CONAN" +conan_dir_e +conan_main + !text "/" +conan_main_b + !text "CONAN" +conan_e + !text ".MAIN" +conan_main_e diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a index 8bf937271..870eb886b 100644 --- a/src/prodos.impl.lc2.a +++ b/src/prodos.impl.lc2.a @@ -430,7 +430,7 @@ traverse tay - inx dey - bmi @go ; no '/', just do the read + beq @go ; no '/', just do the read lda (namlo), y cmp #'/' bne -