Compare text

Find the difference between two text files
Real-time diff
Unified diff
Collapse lines
Highlight change
Syntax highlighting
Tools

Untitled diff

Created Diff never expires
32 removals
199 lines
30 additions
197 lines
;;====================================;;
;;====================================;;
;; SA-1 32x32 Rotation Routine
;; SA-1 32x32 Rotation Routine
;;====================================;;
;;====================================;;


;;====================================;;
;;====================================;;
;; How to Use:
;; How to Use:
;; 1. Put Graphics in !Source
;; 1. Put Graphics in !Source
;; 2. JSR to SUB_ROTATE
;; 2. JSR to SUB_ROTATE
;; 3. Update contents of !DestBWRAM
;; 3. Update contents of !DestBWRAM
;; to VRAM using CDMA Type #1, 4BPP,
;; to VRAM using CDMA Type #1, 4BPP,
;; 32 horizontal, 512 bytes.
;; 32 horizontal, 512 bytes.
;;====================================;;
;;====================================;;


;; Destination BW-RAM "Virtual RAM" & BW-RAM
;; Destination BW-RAM "Virtual RAM" & BW-RAM
!DestVRAM = $604000 ; Dest VRAM is same as BWRAM, but each byte is 4-bits only.
!DestVRAM = $604000 ; Dest VRAM is same as BWRAM, but each byte is 4-bits only.
; i.e $40:0000 = $60:0000 | ($60:0001 << 4)
; i.e $40:0000 = $60:0000 | ($60:0001 << 4)
!DestBWRAM = $402000
!DestBWRAM = $402000


;; RAM Definitions
;; RAM Definitions
!Degress = $6000 ; #$00 to #$FF ($00 = 0 degress)
!Degress = $6000 ; #$00 to #$FF ($00 = 0 degress)
!Scale = $6001 ; #$0000 to #$7FFF ($0100 = 100%)
!Scale = $6001 ; #$0000 to #$7FFF ($0100 = 100%)


;; Stracth RAM
;; Stracth RAM
!cosT = $04
!cosT = $04
!sinT = $06
!sinT = $06
!rowX = $08
!rowX = $08
!rowY = $0A
!rowY = $0A
!X = $0C
!X = $00
!Y = $0E
!Y = $0E
!Pointer = $14
!Pointer = $14
!Pointer2 = $17


;=====================
;=====================


SUB_ROTATE:
SUB_ROTATE:
PHP
PHP
PHD
PHD
REP #$30 ;| 16-bit AXY
REP #$30 ;| 16-bit AXY
LDA #$3100
LDA #$3100
TCD
TCD


LDA !Degress ;\ Calculate
LDA !Degress ;\ Calculate
AND #$00FF ;| Cos & Sin values
AND #$00FF ;| Cos & Sin values
ASL ;|
ASL ;|
TAX ;|
TAX ;|
LDA.w CosTable,X ;|
LDA.w CosTable,X ;|
STA !cosT ;|
STA !cosT ;|
TXA ;|
TXA ;|
CLC ;|
CLC ;|
ADC #$0180 ;|
ADC #$0180 ;|
AND #$01FE ;|
AND #$01FE ;|
TAX ;|
TAX ;|
LDA.w CosTable,X ;|
LDA.w CosTable,X ;|
STA !sinT ;/
STA !sinT ;/
STZ $2250 ; scale cos/sin
STZ $2250 ; scale cos/sin
LDA !Scale
LDA !Scale
STA $2251
STA $2251
LDA !cosT
LDA !cosT
STA $2253
STA $2253
NOP
NOP
LDY !sinT
LDY !sinT
LDA $2307
LDA $2307
STA !cosT
STA !cosT
STY $2253
STY $2253
NOP
NOP
BRA $00
BRA $00
LDA $2307
LDA $2307
STA !sinT
STA !sinT
LDA #$FFF0 ; center and correct starting X/Y position
LDA #$FFF0 ; center and correct starting X/Y position
STA $2251
STA $2251
LDA !cosT
LDA !cosT
STA $2253
STA $2253
NOP
NOP
LDY !sinT
LDY !sinT
LDA $2306
LDA $2306
STA !rowX
STA !rowX
STA !rowY
STA !rowY
STY $2253
STY $2253
NOP
NOP
BRA $00
BRA $00
LDA $2306
LDA $2306
CLC
CLC
ADC !rowX
ADC !rowX
CLC
CLC
ADC #$1000
ADC #$1000
SEC
SEC
SBC !cosT
SBC !cosT
STA !rowX
STA !rowX
STA !X
STA !X
LDA !rowY
LDA !rowY
SEC
SEC
SBC $2306
SBC $2306
CLC
CLC
ADC #$1000
ADC #$1000
CLC
CLC
ADC !sinT
ADC !sinT
STA !rowY
STA !rowY
STA !Y
TAY
STZ !Pointer ; Clear source bitmap pointer
LDA #!DestVRAM
STA !Pointer
SEP #$10 ; XY 8-bit
LDA #!DestVRAM>>8
STA !Pointer+1
PHB
PHB
LDX #$40
PEA $4040
PHX
PLB
PLB
PLB
STZ $02
LDA #$0030 ;high byte
STA !X+2
LDY #$1F
LDA #$001F
STA $1E
.Y_Loop
.Y_Loop
STY $1F
LDX #$001F
LDY #$1F
CLC
.X_Loop
.X_Loop
LDA !X
LDA !X
CLC
ADC !cosT
ADC !cosT
STA !X
STA !X
CMP #$2000
CMP #$2000
BCS .contX_Loop1
BCS .contX_Loop1
AND #$FF00
STA $00


LDA !Y
TYA
SEC
SEC
SBC !sinT
SBC !sinT
STA !Y
TAY
CMP #$2000
CMP #$2000
BCS .contX_Loop2
BCS .contX_Loop2
AND #$FF00
AND #$1F00
LSR
LSR
LSR
LSR
LSR
LSR
ADC $01
ADC !X+1
REP #$10
STA !Pointer2
TAX
SEP #$20
SEP #$20
LDA $3000,x ;$403000
LDA (!Pointer2)
LDX !Pointer
STA [!Pointer]
STA !DestVRAM,X
REP #$21
SEP #$10
REP #$20


.contX_Loop2
.contX_Loop2
INC !Pointer
INC !Pointer
DEY
DEX
BPL .X_Loop
BPL .X_Loop
LDY $1F
LDA !rowX
LDA !rowX
CLC
CLC
ADC !sinT
ADC !sinT
STA !rowX
STA !rowX
STA !X
STA !X
LDA !rowY
LDA !rowY
CLC
CLC
ADC !cosT
ADC !cosT
STA !rowY
STA !rowY
STA !Y
TAY
DEY
DEC $1E
BPL .Y_Loop
BPL .Y_Loop
SEP #$30
SEP #$30
PLB
PLB
PLD
PLD
PLP
PLP
RTS
RTS


.contX_Loop1
.contX_Loop1
LDA !Y
TYA
SBC !sinT
SBC !sinT
STA !Y
TAY
BRA .contX_Loop2
BRA .contX_Loop2


CosTable:
CosTable:
dw $0100,$0100,$0100,$00FF,$00FF,$00FE,$00FD,$00FC,$00FB,$00FA,$00F8,$00F7,$00F5,$00F3,$00F1,$00EF
dw $0100,$0100,$0100,$00FF,$00FF,$00FE,$00FD,$00FC,$00FB,$00FA,$00F8,$00F7,$00F5,$00F3,$00F1,$00EF
dw $00ED,$00EA,$00E7,$00E5,$00E2,$00DF,$00DC,$00D8,$00D5,$00D1,$00CE,$00CA,$00C6,$00C2,$00BE,$00B9
dw $00ED,$00EA,$00E7,$00E5,$00E2,$00DF,$00DC,$00D8,$00D5,$00D1,$00CE,$00CA,$00C6,$00C2,$00BE,$00B9
dw $00B5,$00B1,$00AC,$00A7,$00A2,$009D,$0098,$0093,$008E,$0089,$0084,$007E,$0079,$0073,$006D,$0068
dw $00B5,$00B1,$00AC,$00A7,$00A2,$009D,$0098,$0093,$008E,$0089,$0084,$007E,$0079,$0073,$006D,$0068
dw $0062,$005C,$0056,$0050,$004A,$0044,$003E,$0038,$0032,$002C,$0026,$001F,$0019,$0013,$000D,$0006
dw $0062,$005C,$0056,$0050,$004A,$0044,$003E,$0038,$0032,$002C,$0026,$001F,$0019,$0013,$000D,$0006
dw $0000,$FFFA,$FFF3,$FFED,$FFE7,$FFE1,$FFDA,$FFD4,$FFCE,$FFC8,$FFC2,$FFBC,$FFB6,$FFB0,$FFAA,$FFA4
dw $0000,$FFFA,$FFF3,$FFED,$FFE7,$FFE1,$FFDA,$FFD4,$FFCE,$FFC8,$FFC2,$FFBC,$FFB6,$FFB0,$FFAA,$FFA4
dw $FF9E,$FF98,$FF93,$FF8D,$FF87,$FF82,$FF7C,$FF77,$FF72,$FF6D,$FF68,$FF63,$FF5E,$FF59,$FF54,$FF4F
dw $FF9E,$FF98,$FF93,$FF8D,$FF87,$FF82,$FF7C,$FF77,$FF72,$FF6D,$FF68,$FF63,$FF5E,$FF59,$FF54,$FF4F
dw $FF4B,$FF47,$FF42,$FF3E,$FF3A,$FF36,$FF32,$FF2F,$FF2B,$FF28,$FF24,$FF21,$FF1E,$FF1B,$FF19,$FF16
dw $FF4B,$FF47,$FF42,$FF3E,$FF3A,$FF36,$FF32,$FF2F,$FF2B,$FF28,$FF24,$FF21,$FF1E,$FF1B,$FF19,$FF16
dw $FF13,$FF11,$FF0F,$FF0D,$FF0B,$FF09,$FF08,$FF06,$FF05,$FF04,$FF03,$FF02,$FF01,$FF01,$FF00,$FF00
dw $FF13,$FF11,$FF0F,$FF0D,$FF0B,$FF09,$FF08,$FF06,$FF05,$FF04,$FF03,$FF02,$FF01,$FF01,$FF00,$FF00
dw $FF00,$FF00,$FF00,$FF01,$FF01,$FF02,$FF03,$FF04,$FF05,$FF06,$FF08,$FF09,$FF0B,$FF0D,$FF0F,$FF11
dw $FF00,$FF00,$FF00,$FF01,$FF01,$FF02,$FF03,$FF04,$FF05,$FF06,$FF08,$FF09,$FF0B,$FF0D,$FF0F,$FF11
dw $FF13,$FF16,$FF19,$FF1B,$FF1E,$FF21,$FF24,$FF28,$FF2B,$FF2F,$FF32,$FF36,$FF3A,$FF3E,$FF42,$FF47
dw $FF13,$FF16,$FF19,$FF1B,$FF1E,$FF21,$FF24,$FF28,$FF2B,$FF2F,$FF32,$FF36,$FF3A,$FF3E,$FF42,$FF47
dw $FF4B,$FF4F,$FF54,$FF59,$FF5E,$FF63,$FF68,$FF6D,$FF72,$FF77,$FF7C,$FF82,$FF87,$FF8D,$FF93,$FF98
dw $FF4B,$FF4F,$FF54,$FF59,$FF5E,$FF63,$FF68,$FF6D,$FF72,$FF77,$FF7C,$FF82,$FF87,$FF8D,$FF93,$FF98
dw $FF9E,$FFA4,$FFAA,$FFB0,$FFB6,$FFBC,$FFC2,$FFC8,$FFCE,$FFD4,$FFDA,$FFE1,$FFE7,$FFED,$FFF3,$FFFA
dw $FF9E,$FFA4,$FFAA,$FFB0,$FFB6,$FFBC,$FFC2,$FFC8,$FFCE,$FFD4,$FFDA,$FFE1,$FFE7,$FFED,$FFF3,$FFFA
dw $0000,$0006,$000D,$0013,$0019,$001F,$0026,$002C,$0032,$0038,$003E,$0044,$004A,$0050,$0056,$005C
dw $0000,$0006,$000D,$0013,$0019,$001F,$0026,$002C,$0032,$0038,$003E,$0044,$004A,$0050,$0056,$005C
dw $0062,$0068,$006D,$0073,$0079,$007E,$0084,$0089,$008E,$0093,$0098,$009D,$00A2,$00A7,$00AC,$00B1
dw $0062,$0068,$006D,$0073,$0079,$007E,$0084,$0089,$008E,$0093,$0098,$009D,$00A2,$00A7,$00AC,$00B1
dw $00B5,$00B9,$00BE,$00C2,$00C6,$00CA,$00CE,$00D1,$00D5,$00D8,$00DC,$00DF,$00E2,$00E5,$00E7,$00EA
dw $00B5,$00B9,$00BE,$00C2,$00C6,$00CA,$00CE,$00D1,$00D5,$00D8,$00DC,$00DF,$00E2,$00E5,$00E7,$00EA
dw $00ED,$00EF,$00F1,$00F3,$00F5,$00F7,$00F8,$00FA,$00FB,$00FC,$00FD,$00FE,$00FF,$00FF,$0100,$0100
dw $00ED,$00EF,$00F1,$00F3,$00F5,$00F7,$00F8,$00FA,$00FB,$00FC,$00FD,$00FE,$00FF,$00FF,$0100,$0100
Saved diffs