ありがとうございます!!
Originally posted by syogayaki
エレキマン完成なりー!!!
org $02CAFA db $40,$00 org $02CB2E db $08
print "INIT",pc RTL print "MAIN",pc PHB PHK PLB JSR sprite PLB RTL ;ここから上は見ないほうがいい#includeみたいなもんだ sprite: JSR gfx ;①描画させるための場所に行く LDA #$00 ;これも見ないほうがいいかも %SubOffScrean() ; RTS ;終了 gfx: %GetDrawInfo() ;スプライトの画面上の場所を取得 LDA $00 ;x座標はそのまま STA $0300|!Base2,y ; LDA $01 ; CLC ;y座標は半ブロック下の位置 ADC #$08 ; STA $0301|!Base2,y ; LDA #$40 ;くるくるブロックのタイル STA $0302|!Base2,y ; LDA #$20 ;色は金色(pal8) STA $0303|!Base2,y ; LDY #$02 ;16x16で表示 LDA #$00 ;1タイルだけ表示 (1-1=0) %FinishOAMWrite() ;とりあえず書いとけ RTS ;描画ルーチン終了、①に戻る
org $02CAFA db $40,$00 org $02CB2E db $08