Can someone give me a "Low Gravity" uberasm code? I'm not so good at making some codes...


!GRAVITYLEVEL = $08 GRVMASK: db $00,$01,$03,$07,$0F,$1F,$3F,$7F main: LDA #!GRAVITYLEVEL AND #$07 ;only low 3 bits TAX ;and into X LDA $14 ;frame counter AND GRVMASK,x ;affect gravity on this frame? BNE Return LDA #!GRAVITYLEVEL BIT #$08 ;test for high / low BNE HighGravity ;lowgravity DEC $7D ;up RTL HighGravity: INC $7D ;down Return: RTL
!GRAVITYLEVEL = $08 GRVMASK: db $00,$01,$03,$07,$0F,$1F,$3F,$7F levelxxx: LDA #!GRAVITYLEVEL AND #$07 ;only low 3 bits TAX ;and into X LDA $14 ;frame counter AND GRVMASK,x ;affect gravity on this frame? BNE Return LDA #!GRAVITYLEVEL BIT #$08 ;test for high / low BNE HighGravity ;lowgravity DEC $7D ;up RTS HighGravity: INC $7D ;down Return: RTS