Apple-2-SW/minesweeper
1
0
Fork 0
mirror of https://github.com/option8/minesweeper.git synced 2025-01-14 06:33:26 +00:00
Code Issues Projects Releases Wiki Activity

added sounds

Browse Source
This commit is contained in:
Charles Mangin 2018-06-13 16:30:50 -04:00 committed by GitHub
parent 4ee7c4cc55
commit c247ced5e3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 65 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
MINESWEEPER.dsk
View File

Binary file not shown.

72
MINESWEEPER.s
View File

@ -75,7 +75,7 @@ STROBE EQU $C010
SPEAKER EQU $C030
VBL EQU $C02E
RDVBLBAR EQU $C019 ;not VBL (VBL signal low
WAIT EQU $FCA8
RAMWRTAUX EQU $C005
RAMWRTMAIN EQU $C004
SETAN3 EQU $C05E ;Set annunciator-3 output to 0
@ -225,8 +225,9 @@ ROWLOOP3 ; (ROW 7 to 0)
COLUMNLOOP3 CLC ; clear CARRY to 0
DEY
STY COLUMN ; store column for later retrieval
LDA $C030 ; get byte, pseudorandom source?
LDA #$05 ; SLIGHT DELAY
JSR WAIT
LDA SPEAKER ; get byte, pseudorandom source?
ROL ; random bit into Carry
ROL ; random bit into Carry
ROL BOARDORIGIN,X ; random bit into row byte
@ -368,7 +369,23 @@ END JSR HOME
MARKMINE STA STROBE ; solve current square and move to next space
JSR DRAWMINE ; solve square
; if current square is already solved, ignore
LDA ROW ; get ROW and COLUMN
CLC
ROL
ROL ; offset = ROW * 8 + COLUMN
ROL
CLC
ADC COLUMN
TAX
LDA PROGRESSORIGIN,X ; is progress already marked?
CLC
CMP #$FF
BEQ GOMARKMINE ; STILL UNMARKED
JSR BONK ; ignore the mark, keep as solved.
RTS
GOMARKMINE JSR DRAWMINE ; solve square
JMP NEXTSQUARE
;/MARKMINE
@ -660,7 +677,7 @@ SHOWSOLVED CLC
* puts * in selected square by ROW, COLUMN, increments score
**************************************************
DRAWMINE ; puts * in selected square
DRAWMINE JSR BEEP ; puts * in selected square
LDA ROW ; get ROW and COLUMN
CLC
ROL
@ -709,6 +726,7 @@ DRAWMINE ; puts * in selected square
* puts # of adjacent bombs in selected square by ROW, COLUMN, increments progress
**************************************************
DRAWSOLVEDSQUARE ; puts number in selected/solved square
JSR CLICK ; little sound clicks
LDA ROW ; get ROW and COLUMN
CLC
ROL
@ -736,8 +754,9 @@ DRAWSOLVEDSQUARE ; puts number in selected/solved square
STA PROGRESSORIGIN,X ; store progress
CMP #$08 ; IF >= F0, found a bomb
BMI SOLVENOBOMB
JSR BONK ; BONK!
LDA #$52 ; FOUND BOMB. YOU LOSE.
SOLVENOBOMB CLC
ADC #$30 ; add #$30 (becomes #)
STA CHAR ; store as CHAR
@ -757,7 +776,7 @@ SOLVENOBOMB CLC
SOLVEBOMB LDA #$FF ; unmark as bomb
STA PROGRESSORIGIN,X ;
; decrement bombs found
LDA SCORE ; inc as decimal for printy printy.
LDA SCORE ; decrement as decimal for printy printy.
SED
SEC
SBC #1
@ -765,6 +784,14 @@ SOLVEBOMB LDA #$FF ; unmark as bomb
STA SCORE
JSR PRINTSCORE
LDA PROGRESS ; decrement progress as well, so it will increment properly on jump
SED
SEC
SBC #1
CLD
STA PROGRESS
JSR PRINTPROGRESS
JMP DRAWSOLVEDSQUARE ; go back and solve it as normal
@ -880,6 +907,37 @@ PLOTCHAR
RESET JMP DRAWBOARD
**************************************************
* CLICKS and BEEPS
**************************************************
CLICK LDX #$06
CLICKLOOP LDA #$10 ; SLIGHT DELAY
JSR WAIT
LDA SPEAKER
DEX
BNE CLICKLOOP
RTS
;/CLICK
BEEP LDX #$30
BEEPLOOP LDA #$08 ; short DELAY
JSR WAIT
LDA SPEAKER
DEX
BNE BEEPLOOP
RTS
;/BEEP
BONK LDX #$50
BONKLOOP LDA #$20 ; longer DELAY
JSR WAIT
LDA SPEAKER
DEX
BNE BONKLOOP
RTS
;/BONK
**************************************************