Necstasy

Code : Tout sélectionner

spr_set #0,satb
   spr_x sx
   spr_y sy
   spr_pattern #TONMA
   spr_ctrl  #SIZE_MASK,#SIZE_16x16
   spr_ctrl  #FLIP_MASK,#NO_FLIP
   spr_pri   #1

Code : Tout sélectionner

spr_ctrl  #SIZE_MASK,#SIZE_16x16
spr_ctrl  #FLIP_MASK,#NO_FLIP

Code : Tout sélectionner

spr_ctrl  #(SIZE_MASK | FLIP_MASK) , #(SIZE_16x16 | NO_FLIP)

Code : Tout sélectionner

; spr_pri(#flag)
; ----
; flag, new priority (1 = in foreground, 0 = in background)

	.macro spr_pri
	 ldy   #6
	 lda   [_si],Y
	 and   #$7F
	 ldx   \1
	 beq   .x\@
	 ora   #$80
.x\@:
	 sta [_si],Y
	.endm

Code : Tout sélectionner

; PICTURE DATA 

	.data

	; pictures can contain up to 256 colors, but as you know the
	; PC-Engine can display only 16 colors per 8x8 tile, so be careful
	; when making pictures. And also take care of the color alignment,
	; a tile can use, for example, color 0 to 15, but not color 4 plus
	; color 26 plus color 125, all the colors used in a tile must
	; belong to the same sub-palette (colors 0 - 15, 16 - 31, etc...)
        ;
	; if you have problems making such pictures, use only 16 colors
	; PCX files, you will have less problems

PIC_BANK .func (((\1)*6)+MAIN_BANK+1)	; a little function to help
					; referencing banks

PIC	.macro			; hmm a macro could be handy too...
	 .bank PIC_BANK(\1)
	 .org  $8000
	 .incchr \2,40,32
	 .bank PIC_BANK(\1)+5
	 .org  $8000
	 .incpal \2
	 .org  $8200
	 .incbat \2,$1000,40,32
	.endm

	PIC 0,"grid.pcx"	; what would we do without macros? :)

Code : Tout sélectionner

; ----
; load_pic
; ----
; upload a whole pic in VRAM
; ----

load_pic:
	lda   <pic		; get the current pic number

	asl   A			; mul it by 6 (each picture takes six banks,
	sta   <_al		; five for the graphics and one for the BAT
	asl   A			; and the palette)
	add   <_al

	add   #2		; add 2 - our pictures are stored starting
				; from bank 2

	sta   <_ah		; store the bank index

	; load the graphic in VRAM, one bank at a time
	
	lda   <_ah		; first bank
	tam   #4
	vload $1000,$8000,#$1000
	inc   <_ah		; second bank
	lda   <_ah
	tam   #4
	vload $2000,$8000,#$1000
	inc   <_ah		; third bank
	lda   <_ah
	tam   #4
	vload $3000,$8000,#$1000
	inc   <_ah		; fourth bank
	lda   <_ah
	tam   #4
	vload $4000,$8000,#$1000
	inc   <_ah		; fifth bank
	lda   <_ah
	tam   #4
	vload $5000,$8000,#$1000

	; vsync before setting the palette, to avoid snow

	vsync

	; now set the palette

	inc   <_ah
	lda   <_ah
	tam   #4
	set_bgpal #0,$8000,#16
	set_sprpal #0,$8000,#16

	; and finaly copy the BAT

	batcpy $0001,\
	       $8200,\	       
	       #40,\
	       #32

	; ok, done

	rts