Apple-2-SW/dropblocks
1
0
Fork 0
mirror of https://github.com/option8/dropblocks.git synced 2025-04-03 19:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Fix for IIGS LoRes mode

Browse Source
This commit is contained in:
Charles Mangin 2018-12-12 13:17:06 -05:00 committed by GitHub
parent 343456d697
commit 422ae6eae5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BLOCKCHAIN.dsk
View File

Binary file not shown.

7
BLOCKCHAIN.s
View File

@ -93,6 +93,7 @@ SPEED EQU $F1
LDA #$00
STA BLINK ; blinking text? no thanks.
STA LORES ; low res graphics mode
STA MIXCLR
STA PLAYERSCORE
STA PLAYERSCORE+1
STA BORDERCOLOR ; border starts pink (BB) from BORDERCOLORS LUT
@ -1283,7 +1284,7 @@ RANDOMCOLUMN JSR RND16 ; gets 0-F into accumulator
CLICK LDX #$06
CLICKLOOP LDA #$10 ; SLIGHT DELAY
JSR WAIT
LDA SPEAKER
STA SPEAKER
DEX
BNE CLICKLOOP
RTS
@ -1292,7 +1293,7 @@ CLICKLOOP LDA #$10 ; SLIGHT DELAY
BEEP LDX #$30
BEEPLOOP LDA #$08 ; short DELAY
JSR WAIT
LDA SPEAKER
STA SPEAKER
DEX
BNE BEEPLOOP
RTS
@ -1302,7 +1303,7 @@ BEEPLOOP LDA #$08 ; short DELAY
BONK LDX #$50
BONKLOOP LDA #$20 ; longer DELAY
JSR WAIT
LDA SPEAKER
STA SPEAKER
DEX
BNE BONKLOOP
RTS