diff --git a/asm_routines/mockingboard.s b/asm_routines/mockingboard.s index 7fbd83b0..07b8e78a 100644 --- a/asm_routines/mockingboard.s +++ b/asm_routines/mockingboard.s @@ -151,3 +151,52 @@ clear_ay_right_loop: rts + ;======================================= + ; Detect a Mockingboard card + ;======================================= + ; Based on code from the French Touch "Pure Noise" Demo + ; Attempts to time an instruction sequence with a 6522 + ; + ; If found, puts in bMB + ; OUT2: has address of Mockingboard + +bMB EQU $03 +OUT2 EQU $22 ; +$21 +bGood EQU $FE ; 0 : ok / 1 : bad +Temp EQU $FF ; + + +mockingboard_detect: + lda #0 + sta OUT2 + +mb_detect_loop: ; self-modifying + lda #$07 ; we start in slot 7 ($C7) and go down to 0 ($C0) + ora #$C0 ; make it start with C + sta OUT2+1 + ldy #04 ; $CX04 + ldx #02 ; 2 tries? +mb_check_cycle_loop: + lda (OUT2),Y ; timer 6522 (Low Order Counter) + ; count down + sta Temp ; 3 cycles + lda (OUT2),Y ; + 5 cycles = 8 cycles + ; between the two accesses to the timer + sec + sbc Temp ; subtract to see if we had 8 cycles + cmp #$f8 ; -8 + bne mb_not_in_this_slot + dex ; decrement, try one more time + bne mb_check_cycle_loop ; loop detection + inx ; Mockingboard found (X=1) +done_mb_detect: + stx bMB ; store result to bMB + rts ; return + +mb_not_in_this_slot: + dec mb_detect_loop+1 ; decrement the "slot" (self_modify) + bne mb_detect_loop ; loop down to one + inc bGood ; didn't find? + ldx #00 + beq done_mb_detect + diff --git a/ksp/applesoft/Makefile b/ksp/applesoft/Makefile index ec415671..aa10a98f 100644 --- a/ksp/applesoft/Makefile +++ b/ksp/applesoft/Makefile @@ -5,7 +5,17 @@ SHAPETABLE = ../../hgr-utils/shape_table all: ksp.dsk -ACMPLX.BAS: acmplx.bas + +$(TXT2BAS): + cd ../../asoft_basic-utils && make + +$(SHAPETABLE): + cd ../../hgr-utils && make + +$(PCX2HGR): + cd ../../hgr-utils && make + +ACMPLX.BAS: acmplx.bas $(TXT2BAS) $(TXT2BAS) < acmplx.bas > ACMPLX.BAS CONTRACT.BAS: contract.bas @@ -32,10 +42,10 @@ VAB.BAS: vab.bas LOAD_KSP.BAS: load_ksp.bas $(TXT2BAS) < load_ksp.bas > LOAD_KSP.BAS -ROCKET.SHAPE: ../ship2.table +ROCKET.SHAPE: ../ship2.table $(SHAPETABLE) $(SHAPETABLE) -b < ../ship2.table > ROCKET.SHAPE -VAB.SHAPE: ../ship.table +VAB.SHAPE: ../ship.table $(SHAPETABLE) $(SHAPETABLE) -b < ../ship.table > VAB.SHAPE