Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- animation33DAE00: {
- animateCount: .byte 0
- animateMax: .byte 8
- update: {
- inc animateCount
- lda animateCount
- cmp animateMax
- // if animateCount < animateMax branch to !:
- bcc !+
- // reset animateCount and scroll char down
- lda #0
- sta animateCount
- :set16im(CHARSET+(135*8),addressPntr1)
- jsr scrollCharDown
- !:
- rts
- }
- }
- animation33DCC60: {
- animateCount: .byte 0
- animateMax: .byte 8
- update: {
- inc animateCount
- lda animateCount
- cmp animateMax
- // if animateCount < animateMax branch to !:
- bcc !+
- // reset animateCount and scroll char down
- lda #0
- sta animateCount
- :set16im(CHARSET+(136*8),addressPntr1)
- jsr scrollCharDown
- !:
- rts
- }
- }
- animation33DCC80: {
- animateCount: .byte 0
- animateMax: .byte 8
- update: {
- inc animateCount
- lda animateCount
- cmp animateMax
- // if animateCount < animateMax branch to !:
- bcc !+
- // reset animateCount and scroll char down
- lda #0
- sta animateCount
- :set16im(CHARSET+(137*8),addressPntr1)
- jsr scrollCharDown
- !:
- rts
- }
- }
- animation33DCBC0: {
- animateCount: .byte 0
- animateMax: .byte 8
- update: {
- inc animateCount
- lda animateCount
- cmp animateMax
- // if animateCount < animateMax branch to !:
- bcc !+
- // reset animateCount and scroll char down
- lda #0
- sta animateCount
- :set16im(CHARSET+(138*8),addressPntr1)
- jsr scrollCharDown
- !:
- rts
- }
- }
- animation33FFE70: {
- animateCount: .byte 0
- animateMax: .byte 1
- dataIndex: .byte 0
- charData:
- .byte $08,$10,$9A,$65,$24,$1C,$64,$04
- .byte $08,$10,$9A,$65,$24,$1C,$64,$04
- .byte $10,$20,$1F,$A4,$64,$1A,$12,$20
- .byte $20,$26,$38,$24,$A6,$59,$00,$10
- update: {
- inc animateCount
- lda animateCount
- cmp animateMax
- // if animateCount < animateMax branch to !:
- bcc !+
- // reset animateCount and copy char data
- // to the character
- lda #0
- sta animateCount
- lda dataIndex
- asl
- asl
- asl
- tax
- ldy #0
- copyData:
- lda charData,x
- sta CHARSET+(210*8),y
- inx
- iny
- cpy #8
- // not done yet? Loop back
- bne copyData
- inc dataIndex
- lda dataIndex
- cmp #4
- bne !+
- lda #0
- sta dataIndex
- !:
- rts
- }
- }
- animations: {
- update: {
- jsr animation33DAE00.update
- jsr animation33DCC60.update
- jsr animation33DCC80.update
- jsr animation33DCBC0.update
- jsr animation33FFE70.update
- rts
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement