Apple-2-SW/million-perfect-letters
1
0
Fork 0
mirror of https://github.com/a2-4am/million-perfect-letters.git synced 2024-12-26 05:32:17 +00:00
Code Issues Projects Releases Wiki Activity

demo [WIP]

Browse Source
This commit is contained in:
4am 2020-09-26 23:12:36 -04:00
parent 257d0ed751
commit 108a9b2fb5
2 changed files with 110 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/mockingduet.a
View File

@ -40,47 +40,47 @@ MockingDuet
JSR INIT
JSR RESET
JSR ENACHN
JMP LOOP
JMP MBLOOP
SETVOL
NEXT LDA SONG
MBNEXT LDA SONG
CLC
ADC #$03
STA SONG
BCC LOOP
BCC MBLOOP
INC SONG+1
LOOP LDY #$00
MBLOOP LDY #$00
LDA (SONG),Y
CMP #$01
BEQ SETVOL
BPL SETNOTE ;SET DURATION
END JSR RESET
MBEND JSR RESET
RTS
MBCHECKKEY
ldy #0
MBCHECK lda ($EE), y
beq MBCONTINUE
bpl END
bpl MBEND
iny
cmp $C000
beq END
beq MBEND
bne MBCHECK ; always branches
MBCONTINUE
bit $C010
jmp NEXT
jmp MBNEXT
SETNOTE STA DURATION
LDA #LEFTCHN
SEND STA CHN
MBSEND STA CHN
MBSLOT01 STA $C401
MBSLOT02 STA $C481
JSR SETREG1
INY
LDA (SONG),Y
BEQ SKIP ;IF 0 KEEP LTTSA
BEQ MBSKIP ;IF 0 KEEP LTTSA
JSR CONVFREQ
SKIP LDA TONE
MBSKIP LDA TONE
MBSLOT03 STA $C401
MBSLOT04 STA $C481
JSR WRDATA1
@ -96,7 +96,7 @@ MBSLOT08 STA $C481
LDA #RIGHTCHN
STA CHN
CPY #$02
BNE SEND
BNE MBSEND
LDX DURATION
W1 LDY TEMPO
W2 DEC TEMP
@ -108,7 +108,7 @@ W2 DEC TEMP
BIT $C000
MBKEYBRANCH
BMI MBCHECKKEY
JMP NEXT
JMP MBNEXT
CONVFREQ LDX OCTAVE
INX

108
src/ui.demo.a
View File

@ -20,6 +20,12 @@
;------------------------------------------------------------------------------
RunDemo
jsr Home
lda #7
sta targetVTAB
lda #10
sta minHTAB
+LDADDR sThereAre
jsr HeavySilkReveal
jsr LoadDemoPuzzles
+LDADDR DemoCode
+ST16 GetNextDemoByte+1
@ -100,6 +106,8 @@ DemoOnWAIT
jsr GetNextDemoByte
jmp LongWaitForKeyWithTimeout
DemoOnNEXT=AnimatePuzzleCompleted
GetNextDemoByte
ldx $FDFD ; SMC
inc GetNextDemoByte+1
@ -117,6 +125,7 @@ DemoDispatchLo
!byte <DemoOnUP
!byte <DemoOnDOWN
!byte <DemoOnWAIT
!byte <DemoOnNEXT
DemoDispatchHi
!byte >DemoOnEXIT
!byte >DemoOnLOAD
@ -127,6 +136,7 @@ DemoDispatchHi
!byte >DemoOnUP
!byte >DemoOnDOWN
!byte >DemoOnWAIT
!byte >DemoOnNEXT
; opcodes
EXIT = 0
@ -138,34 +148,110 @@ RIGHT = 5
UP = 6
DOWN = 7
WAIT = 8
NEXT = 9
demoPuzzles
!raw "AOCD,LTLE,IBUH|ABLE,ITCH,LOUD",$0A
!raw "AOCD,LTUE,IBLH|ABLE,ITCH,LOUD|...HIDDEN IN THIS PUZZLE",$0A
!raw "["
sDemo
!byte 6
!raw "DEMO-0"
sUpDown
!byte 24
!raw "MOVE COLUMNS UP AND DOWN"
sColumns
sThereAre
!byte 20
!raw "MOVE BETWEEN COLUMNS"
!raw "THERE ARE 3 WORDS..."
sShift
!byte 28
!raw "SHIFT COLUMNS TO SPELL WORDS"
sUseAll
!byte 26
!raw "USE ALL LETTERS TO ADVANCE"
DemoCode
!byte SHOW ,<sThereAre,>sThereAre
!byte WAIT ,20
!byte HIDE
!byte LOAD ,0,0
!byte SHOW ,<sUpDown,>sUpDown
!byte WAIT ,10
!byte WAIT ,30
!byte HIDE
!byte UP
!byte WAIT ,5
!byte WAIT ,2
!byte UP
!byte WAIT ,5
!byte DOWN
!byte WAIT ,2
!byte DOWN
!byte WAIT ,5
!byte SHOW ,<sColumns,>sColumns
!byte WAIT ,10
!byte SHOW ,<sShift,>sShift
!byte WAIT ,30
!byte HIDE
!byte UP
!byte WAIT ,2
!byte RIGHT
!byte WAIT ,2
!byte RIGHT
!byte WAIT ,2
!byte UP
; A C
; --v-
; LOUD
; ----
; ITLE
; B H
!byte WAIT ,30
!byte SHOW ,<sUseAll,>sUseAll
!byte WAIT ,30
!byte HIDE
!byte LEFT
!byte WAIT ,2
!byte LEFT
!byte WAIT ,2
!byte DOWN
!byte WAIT ,2
!byte RIGHT
!byte WAIT ,2
!byte UP
!byte WAIT ,2
!byte UP
!byte WAIT ,2
!byte RIGHT
!byte WAIT ,2
!byte UP
!byte WAIT ,2
!byte RIGHT
!byte WAIT ,2
!byte UP
; OC
; TUD
; ---v
; ABLE
; ----
; L H
; I
!byte WAIT ,30
!byte UP
!byte WAIT ,2
!byte LEFT
!byte DOWN
!byte WAIT ,2
!byte DOWN
!byte WAIT ,2
!byte LEFT
!byte WAIT ,2
!byte DOWN
!byte WAIT ,2
!byte LEFT
!byte WAIT ,2
!byte UP
!byte WAIT ,2
!byte UP
; A D
; LO E
; v---
; ITCH
; ----
; BU
; L
!byte NEXT
!byte EXIT