Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-28 19:32:40 +00:00
Code Issues Projects Releases Wiki Activity

v+1

Browse Source
This commit is contained in:
Antoine Vignau 2024-07-27 15:15:41 +02:00
parent dd9ce9c843
commit ccc06ad259
2 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
moonpatrol/MOONPATROL.S
View File

@ -291,13 +291,13 @@ L09B0 DEC timeCNT
STA timeCNT STA timeCNT
JSR printTIME JSR printTIME
L09BB LDA $DD L09BB LDA $DD ; move milestone
BNE L09C6 BNE L09C6 ; yes
LDA $96 LDA $96
BNE L09C6 BNE L09C6 ; yes (could have been BEQ L09CC)
JMP L09CC JMP L09CC ; no
L09C6 JSR L3158 L09C6 JSR animMILESTONE ; move screen
JSR L0FB2 JSR nextMILESTONE ; calculate next milestone
L09CC JSR getCOURSEDATA L09CC JSR getCOURSEDATA
JSR animSHOOTS JSR animSHOOTS
@ -374,8 +374,8 @@ clearALL LDA #$22
STA $4A STA $4A
LDA #$00 LDA #$00
STA basePOINT STA basePOINT
STA $DD STA $DD ; no milestone
STA $96 STA $96 ; no milestone
STA fgHIT STA fgHIT
STA frameCNT STA frameCNT
STA $39 STA $39
@ -1168,10 +1168,11 @@ L0F99 STA $15
L0FB1 RTS L0FB1 RTS
*----------------------------------- *-----------------------------------
* * CALCULATE NEXT MILESTONE DISPLAY
*----------------------------------- *-----------------------------------
L0FB2 LDA $96 nextMILESTONE
LDA $96
SEC SEC
SBC $AF SBC $AF
STA $96 STA $96
@ -1181,7 +1182,7 @@ L0FB2 LDA $96
DEC $DD DEC $DD
L0FC1 RTS L0FC1 RTS
L0FC2 LDA #$00 L0FC2 LDA #$00 ; end of milestone display
STA $96 STA $96
STA $DD STA $DD
RTS RTS
@ -1457,9 +1458,9 @@ L11B1 LDA ptrCOURSE
STA plrCOURSE+1 STA plrCOURSE+1
LDA #$00 LDA #$00
STA $97 STA $97
LDA #$18 LDA #$18 ; milestone activated
STA $96 STA $96
LDA #$02 LDA #$02 ; milestone activated
STA $DD STA $DD
LDA #$00 LDA #$00
STA $01 STA $01
@ -1486,13 +1487,13 @@ L11E7 LDA $97
BEQ L11EE BEQ L11EE
JMP L1225 JMP L1225
L11EE LDA $DD L11EE LDA $DD ; shall we announce the milestone?
CMP #$01 CMP #$01
BEQ L11F7 BEQ L11F7 ; yes
JMP L1225 JMP L1225 ; no
L11F7 LDA vehicleX L11F7 LDA vehicleX ; announces the milestone
CMP $96 CMP $96 ; by beeping
BCC L1225 BCC L1225
LDA plrCOURSE LDA plrCOURSE
STA $83 STA $83
@ -4689,8 +4690,8 @@ L2B72 LDA #$FF
LDA #$FF LDA #$FF
STA $4A STA $4A
LDA #$00 LDA #$00
STA $96 STA $96 ; no milestone
STA $DD STA $DD ; no milestone
STA fgHIT STA fgHIT
LDA #$01 LDA #$01
STA $97 STA $97
@ -4908,7 +4909,7 @@ L2D26 LDA $C7,X
DEX DEX
BPL L2D0F BPL L2D0F
LDA #sprWHEEL LDA #0
STA $AF STA $AF
LDA oldWHEEL3X LDA oldWHEEL3X
ORA courseTYPE ORA courseTYPE
@ -5475,10 +5476,11 @@ L3155 LDX #$A0
L3157 RTS L3157 RTS
*----------------------------------- *-----------------------------------
* * ANIMATE MILESTONE (THE LETTERS)
*----------------------------------- *-----------------------------------
L3158 LDA $D5 animMILESTONE
LDA $D5
STA L318E+1 STA L318E+1
LDA $D5+1 LDA $D5+1
STA L318E+2 STA L318E+2

1
pacman/PACMAN.E.S
View File

@ -27,6 +27,7 @@ score800 = 8
NBDOTS = 248 ; 244 normal dots & 4 energizer dots NBDOTS = 248 ; 244 normal dots & 4 energizer dots
L0300 = $0300 ; buffer area to save scores L0300 = $0300 ; buffer area to save scores
GHOST1MOVE = $0800 ; buffer area for ghosts moves GHOST1MOVE = $0800 ; buffer area for ghosts moves
GHOST2MOVE = GHOST1MOVE+256 GHOST2MOVE = GHOST1MOVE+256
GHOST3MOVE = GHOST2MOVE+256 GHOST3MOVE = GHOST2MOVE+256