mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-30 07:30:04 +00:00
66 lines
1.8 KiB
ArmAsm
66 lines
1.8 KiB
ArmAsm
|
|
||
|
.include "zp.inc"
|
||
|
.include "hardware.inc"
|
||
|
|
||
|
lda #0
|
||
|
sta DRAW_PAGE
|
||
|
|
||
|
bit SET_GR
|
||
|
bit PAGE0
|
||
|
|
||
|
bit KEYRESET
|
||
|
pause_loop:
|
||
|
lda KEYPRESS
|
||
|
bpl pause_loop
|
||
|
|
||
|
lda #<graphic_start
|
||
|
sta GBASL
|
||
|
lda #>graphic_start
|
||
|
sta GBASH
|
||
|
|
||
|
before:
|
||
|
lda #$c
|
||
|
jsr load_rle_gr
|
||
|
|
||
|
after:
|
||
|
|
||
|
jsr gr_copy_to_current
|
||
|
|
||
|
|
||
|
blah:
|
||
|
jmp blah
|
||
|
|
||
|
|
||
|
.include "gr_unrle.s"
|
||
|
.include "gr_copy.s"
|
||
|
.include "gr_offsets.s"
|
||
|
|
||
|
graphic_start:
|
||
|
spaceship_far_n_rle: .byte $28 ; ysize=48
|
||
|
.byte $A0,$FF,$FF, $AF,$FF, $A7,$5F, $A3,$F5, $A0,$1B,$FF, $5F, $05,$05
|
||
|
.byte $A4,$00, $0F,$0F, $A0,$1C,$FF, $50, $5F, $05, $A5,$00
|
||
|
.byte $F0, $A0,$11,$FF, $0F, $9F,$9F, $AB,$99, $55, $0A
|
||
|
.byte $90,$90, $A3,$00, $F0, $AE,$FF, $0F, $9F, $D9
|
||
|
.byte $00, $A6,$DD, $A4,$88, $A3,$DD, $88, $55, $D9
|
||
|
.byte $00, $A3,$D9, $D0, $9F, $A8,$FF, $A5,$0F, $00,$00
|
||
|
.byte $8D,$8D, $00, $A6,$8D, $A4,$88, $A4,$8D, $55, $8D
|
||
|
.byte $00, $A7,$8D, $AB,$FF, $F0, $00, $88,$88, $00
|
||
|
.byte $AB,$88, $08,$08, $88, $55, $88, $00, $A6,$88
|
||
|
.byte $F8, $AE,$FF, $F8, $F0, $A6,$08, $A5,$88, $99,$99
|
||
|
.byte $88, $55, $08, $A7,$00, $0F,$0F, $A0,$13,$FF, $A7,$50
|
||
|
.byte $59,$59, $58, $55, $5F, $A0,$01,$AF, $A3,$FF, $A9,$F0
|
||
|
.byte $FF, $AC,$7F, $4F, $45,$45, $AA,$75, $55, $05
|
||
|
.byte $0A, $AC,$7F, $AC,$77, $A3,$44, $00,$00, $44, $54
|
||
|
.byte $A3,$55, $A3,$44, $A3,$00, $A0,$18,$77, $44, $FF, $44
|
||
|
.byte $00,$00, $44, $A4,$55, $A3,$44, $00, $FF, $00
|
||
|
.byte $A0,$18,$77, $A3,$44, $00,$00, $44, $A4,$55, $A3,$44, $A3,$00
|
||
|
.byte $A0,$18,$77, $A3,$44, $00,$00, $A6,$55, $44,$44, $A3,$00, $A0,$18,$77
|
||
|
.byte $A3,$44, $00,$00, $A6,$55, $54, $44, $A3,$00, $A4,$77
|
||
|
.byte $07, $A3,$77, $A3,$07, $AD,$77, $A3,$44, $00, $A8,$55
|
||
|
.byte $44, $A3,$00, $A3,$77, $07, $00, $88,$88, $07
|
||
|
.byte $A3,$00, $07, $AC,$77, $A3,$44, $00, $A9,$55, $A3,$00
|
||
|
.byte $A3,$77, $A3,$00, $A6,$88, $AC,$77, $A3,$44, $AA,$55, $A3,$00
|
||
|
.byte $77,$77, $57, $A3,$00, $A6,$88
|
||
|
.byte $A1
|
||
|
; cycles=7669
|