未分類

置く場所が無い物達

バックアップは取ろうね！

	ExtLineTable 線リフトの線を増やすものライン作成ツールなんてなかったここから
	LevelNames改勢いで作成した物テキスト領域にHighByteを使えるようにした仕様変更によりOWの名前に透明色を使う事が出来なくなってますテーブルだけで$4800バイトも使うよ！ここから

JSL.ips
JSL.asmで頻繁に使われるルーチンをipsパッチ化し
スプライト製作者、利用者の負担を軽減しようとしてる物
ここから

俺用RamMap
自分のために作成したRamMap
使うなら保存しておいた方がいいよ！
ここから

旧ver

細かい物
BugFixだったり拡張だったり、Cに全くおなじ物があるかも知れない
基本的にxkas,ipsパッチ

FlameFix	K.K.の雷の当たり判定バグ、不発バグを修正。
FireBall	ファイア専用枠以外でファイアを生成しても正常に表示できるように修正。ついでに直線ファイアモード($15E8!=$00)を作成。
FireInst	未使用特殊スプライト#$09に敵用バウンドファイアを挿入。

SuperFXの何か
SuperFXの命令をxkasで強引に翻訳する為のマクロ群
fixel氏の二番煎じ
多分需要無い
ここから

09/11/19 ： JMP#,JSR#命令を追加
他の変更箇所は忘れた

09/07/22 ：自動インクリメント,デクリメント命令を追加

09/06/22 ： EXGのendmacroがendmarcoになっていたので修正

09/06/14 ： EXGの処理を修正

09/06/12 ： ASLの処理が間違っていたので修正
マクロ命令 LOH,HIH,NEG,EXC,EXGを追加
処理はこんな感じ

LOH	Sreg(bit0~bit7)=>Dreg(bit8~bit15),Dreg(bit0~7)=0
HIH	Sreg(bit8~bit15)=>Dreg(bit8~bit15),Dreg(bit0~7)=0
NEG	-Sreg=>Dreg
EXC	Rn=>Rn'',Rn'=>Rn,Rn''=>Rn' ≒ Rn<=>Rn'
EXG	If Rn!=Rn' then Rn:Rn^Rn',Rn':Rn'^Rn,Rn:Rn^Rn' ≒ Rn<=>Rn'

09/06/08 ：一部マクロの書式が間違っていたので修正
LDW,LDBの書式を変更

Library - 図書館

コピペして使ってね！

符号無し16bit*8bit演算

符号無し16bit*16bit演算

符号無し16bit/16bit演算

原点から目標点への角度を求める

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 原点から目標点への角度を求める
; $00,$01に原点のX,$02,$03に原点のY
; $04,$05に目標点X,$06,$07に目標点Yをセットして呼び出すと
; $00,$01に角度θ($0000~$01FF)が返ってきます
; 対応している差の範囲はX,Y共に-$01FE~$01FEです
; アークタンジェントのテーブルが256Bytesあるので
; JSLルーチン化推奨
; A,Yレジスタを使用
; 一時変数 $00~$07を使用
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GetAngle:		REP #$20
			LDY #$00
			LDA $02
			SEC
			SBC $06
			BPL If_Plus20
			INY
			EOR.w #$FFFF
			INC A
If_Plus20:		STA $02
			LDA $00
			SEC
			SBC $04
			BPL If_Plus21
			INY
			INY
			EOR.w #$FFFF
			INC A
If_Plus21:		STA $00
			STY $04
			BEQ X_Zero
			CMP.w #$0100
			XBA
			ROR A
			XBA
			TAY
			LDA $02
			BEQ Y_Zero
			CMP.w #$0100
			XBA
			ROR A
			AND.w #$FF80
			STA $4204
			STY $4206
			LDA $4214
			LSR A
			LSR A
			LSR A
			LSR A
			CMP.w #$0100
			SEP #$20
			BCC NoOverFlow
			LDA #$FF
NoOverFlow:		TAY
			LDA AtanTable,y
			LSR $04
			BCS If_Plus30
			EOR #$FF		;\
			INC A			; | θ:360°-θ
			BEQ If_Plus30		; |
			INC $01			;/
If_Plus30:		LSR $04
			BCS If_Plus31
			EOR #$FF		;\
			INC A			; | θ:180°-θ
			BNE If_Plus31		; |
			INC $01			;/
If_Plus31:		STA $00
			LDA #$FE
			TRB $01
			RTS

X_Zero:			SEP #$20
			LDY #$00
			LSR $04
			BCS If_Plus32
			INY
If_Plus32:		STY $01
			LDA #$80
			STA $00
			LDY #$FF
			RTS

Y_Zero:			SEP #$20
			STZ $00
			LDY #$00
			LDA $04
			AND #$02
			BNE If_Plus33
			INY
If_Plus33:		STY $01
			LDY #$00
			RTS

AtanTable:
db $00,$05,$0A,$0F,$13,$18,$1D,$21,$25,$29,$2D,$31,$34,$37,$3A,$3D
db $40,$42,$44,$46,$49,$4A,$4C,$4E,$50,$51,$53,$54,$55,$56,$58,$59
db $5A,$5B,$5C,$5D,$5D,$5E,$5F,$60,$60,$61,$62,$62,$63,$64,$64,$65
db $65,$66,$66,$67,$67,$68,$68,$68,$69,$69,$6A,$6A,$6A,$6B,$6B,$6B
db $6C,$6C,$6C,$6C,$6D,$6D,$6D,$6D,$6E,$6E,$6E,$6E,$6F,$6F,$6F,$6F
db $6F,$70,$70,$70,$70,$70,$71,$71,$71,$71,$71,$71,$71,$72,$72,$72
db $72,$72,$72,$72,$73,$73,$73,$73,$73,$73,$73,$73,$74,$74,$74,$74
db $74,$74,$74,$74,$74,$74,$75,$75,$75,$75,$75,$75,$75,$75,$75,$75
db $75,$75,$76,$76,$76,$76,$76,$76,$76,$76,$76,$76,$76,$76,$76,$76
db $76,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77
db $77,$77,$77,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$78
db $78,$78,$78,$78,$78,$78,$78,$78,$78,$78,$79,$79,$79,$79,$79,$79
db $79,$79,$79,$79,$79,$79,$79,$79,$79,$79,$79,$79,$79,$79,$79,$79
db $79,$79,$79,$79,$79,$79,$79,$79,$79,$7A,$7A,$7A,$7A,$7A,$7A,$7A
db $7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A
db $7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$7A,$80

原点から目標点への角度を求める（高精度版）

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 原点から目標点への角度を求める（高精度版）
; 使用する一時変数はほぼ同じです
; このコードは精度が高い代わりに処理が重いです
; こっちもJSLルーチン化推奨
; A,Yレジスタを使用
; 一時変数 $00~$07を使用
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GetAngle:		PHX
			REP #$20
			LDA $02
			SEC
			SBC $06
			PHP
			BPL IfPlus1
			EOR.w #$FFFF
			INC A
IfPlus1:		STA $02
			LDA $00
			SEC
			SBC $04
			PHP
			BPL IfPlus0
			EOR.w #$FFFF
			INC A
IfPlus0:		STA $00
			BEQ X_Zero
			LSR A
			TAY
			LDA $02
			BEQ Y_Zero
			CMP.w #$0100
			XBA
			ROR A
			AND.w #$FF80
			STA $4204
			STY $4206
			STZ $00
			LDA.w #$0040
			STA $02
			LDA $4214
			STA $06
Loop00:			LDA $00
			INY
			ORA $02
			ASL A
			TAX
			LDA $06
			CMP.l GetTan,x
			BCC Label00
			LDA $02
			TSB $00
Label00:		LSR $02
			BCC Loop00
			SEP #$20
			PLA
			;EOR $01,s
			db $43,$01
			BPL Label02
			LDA $00
			EOR #$FF
			INC A
			STA $00
			BNE Label02
			INC $01
Label02:		PLP
			BMI Label03
			INC $01
Label03:		PLX
			RTS

X_Zero:			LDA.w #$0080
			STA $00
			PLP
			PLP
			BMI IfPlus4
			INC $01
IfPlus4:		PLX
			RTS

Y_Zero:			STZ $00
			PLP
			BMI IfPlus5
			INC $01
IfPlus5:		PLP
			PLX
			RTS

GetTan:			dw $0000,$0003,$0006,$0009,$000C,$000F,$0012,$0016
			dw $0019,$001C,$001F,$0022,$0025,$0029,$002C,$002F
			dw $0032,$0036,$0039,$003C,$0040,$0043,$0046,$004A
			dw $004D,$0051,$0054,$0058,$005B,$005F,$0062,$0066
			dw $006A,$006D,$0071,$0075,$0079,$007C,$0080,$0084
			dw $0088,$008C,$0091,$0095,$0099,$009D,$00A2,$00A6
			dw $00AB,$00AF,$00B4,$00B9,$00BD,$00C2,$00C7,$00CC
			dw $00D2,$00D7,$00DC,$00E2,$00E8,$00ED,$00F3,$00F9
			dw $0100,$0106,$010C,$0113,$011A,$0121,$0128,$0130
			dw $0137,$013F,$0148,$0150,$0159,$0162,$016B,$0175
			dw $017F,$0189,$0194,$019F,$01AB,$01B7,$01C3,$01D1
			dw $01DE,$01ED,$01FC,$020C,$021D,$022E,$0241,$0255
			dw $026A,$0280,$0297,$02B0,$02CB,$02E8,$0306,$0328
			dw $034B,$0372,$039D,$03CB,$03FE,$0435,$0474,$04B9
			dw $0506,$055E,$05C3,$0637,$06BD,$075C,$081B,$0904
			dw $0A27,$0B9C,$0D8E,$1046,$145A,$1B26,$28BC,$517B

ファイアボールとスプライトの当たり判定を取得

RTS