00000000: 53 57 49 4E 47 31 20 20 20 4C 44 58 20 53 57 49 |SWING1 LDX SWI|
00000010: 50 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |P1. LDA |
00000020: 53 49 4E 55 53 31 2C 58 0D 20 20 20 20 20 20 20 |SINUS1,X. |
00000030: 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 41 | PHA. A|
00000040: 4E 44 20 23 24 30 37 0D 20 20 20 20 20 20 20 20 |ND #$07. |
00000050: 20 45 4F 52 20 23 24 44 37 0D 20 20 20 20 20 20 | EOR #$D7. |
00000060: 20 20 20 53 54 41 20 58 50 41 55 53 45 31 0D 20 | STA XPAUSE1. |
00000070: 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 | PLA. |
00000080: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. |
00000090: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. |
000000A0: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. |
000000B0: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L|
000000C0: 44 58 20 23 24 30 30 0D 53 4C 4F 4F 50 31 20 20 |DX #$00.SLOOP1 |
000000D0: 20 4C 44 41 20 4D 41 54 52 49 58 31 2C 59 0D 20 | LDA MATRIX1,Y. |
000000E0: 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 45 | STA SCRE|
000000F0: 45 4E 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |EN1,X. L|
00000100: 44 41 20 4D 41 54 52 49 58 31 2B 37 32 2C 59 0D |DA MATRIX1+72,Y.|
00000110: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 | STA SCR|
00000120: 45 45 4E 31 2B 34 30 2C 58 0D 20 20 20 20 20 20 |EEN1+40,X. |
00000130: 20 20 20 4C 44 41 20 4D 41 54 52 49 58 31 2B 31 | LDA MATRIX1+1|
00000140: 34 34 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 |44,Y. ST|
00000150: 41 20 53 43 52 45 45 4E 31 2B 38 30 2C 58 0D 20 |A SCREEN1+80,X. |
00000160: 20 20 20 20 20 20 20 20 4C 44 41 20 4D 41 54 52 | LDA MATR|
00000170: 49 58 31 2B 32 31 36 2C 59 0D 20 20 20 20 20 20 |IX1+216,Y. |
00000180: 20 20 20 53 54 41 20 53 43 52 45 45 4E 31 2B 31 | STA SCREEN1+1|
00000190: 32 30 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |20,X. LD|
000001A0: 41 20 4D 41 54 52 49 58 31 2B 32 38 38 2C 59 0D |A MATRIX1+288,Y.|
000001B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 43 52 | STA SCR|
000001C0: 45 45 4E 31 2B 31 36 30 2C 58 0D 20 20 20 20 20 |EEN1+160,X. |
000001D0: 20 20 20 20 4C 44 41 20 4D 41 54 52 49 58 31 2B | LDA MATRIX1+|
000001E0: 33 36 30 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |360,Y. S|
000001F0: 54 41 20 53 43 52 45 45 4E 31 2B 32 30 30 2C 58 |TA SCREEN1+200,X|
00000200: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 4D 41 |. LDA MA|
00000210: 54 52 49 58 31 2B 34 33 32 2C 59 0D 20 20 20 20 |TRIX1+432,Y. |
00000220: 20 20 20 20 20 53 54 41 20 53 43 52 45 45 4E 31 | STA SCREEN1|
00000230: 2B 32 34 30 2C 58 0D 20 20 20 20 20 20 20 20 20 |+240,X. |
00000240: 4C 44 41 20 4D 41 54 52 49 58 31 2B 35 30 34 2C |LDA MATRIX1+504,|
00000250: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 |Y. STA S|
00000260: 43 52 45 45 4E 31 2B 32 38 30 2C 58 0D 20 20 20 |CREEN1+280,X. |
00000270: 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 | INX. |
00000280: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 | INY. |
00000290: 43 50 58 20 23 24 32 38 0D 20 20 20 20 20 20 20 |CPX #$28. |
000002A0: 20 20 42 4E 45 20 53 4C 4F 4F 50 31 0D 20 20 20 | BNE SLOOP1. |
000002B0: 20 20 20 20 20 20 49 4E 43 20 53 57 49 50 31 0D | INC SWIP1.|
000002C0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 53 57 49 | RTS.SWI|
000002D0: 50 31 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |P1 .BYTE $00.|
000002E0: 0D |. |
SWING1 LDX SWIP1. LDA SINUS1,X
. PHA. AND #$07.
EOR #$D7. STA XPAUSE1.
PLA. LSR A. LSR A.
LSR A. TAY. LDX #$00.
SLOOP1 LDA MATRIX1,Y. STA SCRE
EN1,X. LDA MATRIX1+72,Y.
STA SCREEN1+40,X. LDA MATRIX1+1
44,Y. STA SCREEN1+80,X.
LDA MATRIX1+216,Y. STA SCREEN1+1
20,X. LDA MATRIX1+288,Y.
STA SCREEN1+160,X. LDA MATRIX1+
360,Y. STA SCREEN1+200,X.
LDA MATRIX1+432,Y. STA SCREEN1
+240,X. LDA MATRIX1+504,Y.
STA SCREEN1+280,X. INX.
INY. CPX #$28. BNE SL
OOP1. INC SWIP1. RTS.SWI
P1 .BYTE $00..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL