;z80 ;zx-spectrum ;assembler ;----------------------------- ;sunflow 256 bytes intro ;produced by alff, moran, elfh ;----------------------------- ;text is alasm4.44 compatible ORG #6000 SIN_DAT DB #00,#0D,#19,#25 DB #32,#3E,#4A,#56 DB #62,#6D,#78,#83 DB #8E,#98,#A2,#AB DB #B4,#BD,#C5,#CD DB #D4,#DB,#E1,#E7 DB #EC,#F0,#F4,#F7 DB #FA,#FC,#FE,#FF BUF1=#6600 BUF2=BUF1+#100 MBUF=BUF2+#200 START DI LD A,#17 LD BC,#7FFD OUT (C),A LD DE,#7000 LD HL,FILT CLN LD C,(HL) INC L LD A,(HL) CLN2 LD B,E LD (DE),A INC DE DJNZ $-2 DEC C JR NZ,CLN2 INC L JR NZ,CLN LD D,'BUF1 CALL SINMAKE EX DE,HL INC D LD E,A CIRL1 LD A,(HL) ADD A,#80 LD (DE),A INC D PUSH HL LD A,E ADD A,C LD L,A LD A,(HL) ADD A,93 ;93 LD (DE),A DEC D INC DE POP HL INC L JR NZ,CIRL1 INC D ;LD D,'MBUF CALL SINMAKE L1 CLC0 LD A,29 XOR #A LD (CLC0+1),A LD BC,#7FFD OUT (C),A MAINROUT ABF1 LD HL,#7000 LD SP,HL LD A,H ADD A,2 AND B OR #70 LD (ABF1+2),A XOR A LD B,A POP DE LD (DE),A DJNZ $-2 TEN=#10 XCHA1 LD DE,#0010 LD BC,BUF2 PXL11 LD HL,MBUF PXL1 LD A,D XL2 ADD A,#3F LD D,A LD A,(BC) ADD A,(HL) INC B LD LX,A XOR A SUB D LD (PXL11+1),A LD L,A LD A,(BC) ADD A,(HL) EXX LD D,LX CP #C0 JR NC,LOOP LD E,A ADRES_P AND A RRA SCF RRA SCF RRA XOR E AND #F8 XOR E LD H,A LD A,D RLCA RLCA RLCA XOR E AND #C7 XOR E RLCA RLCA LD L,A LD (HL),%11001100 LOOP PUSH HL EXX DEC B LD A,C ADD A,E ADD A,E INC A LD C,A JR NZ,PXL1 OUT (254),A LD HL,XCHA1+2 INC (HL),(HL) JR NZ,L1 DEC HL INC (HL) JR L1 SINMAKE LD H,'SIN_DAT LP_SMK1 PUSH HL LD H,(HL) LD L,B LD A,8 LP_SMK2 ADD HL,HL JR NC,$+3 ADD HL,BC DEC A JR NZ,LP_SMK2 LD A,H LD (DE),A INC E LD (DE),A POP HL INC E INC HL LD C,#40 BIT 6,E JR Z,LP_SMK1 LD H,D LD L,E DEC L LP_SMK3 LD A,(HL) LD (DE),A INC E DEC L JR NZ,LP_SMK3 LP_SMK4 LD A,(HL) NEG LD (DE),A INC L INC E JR NZ,LP_SMK4 RET FILT DB #68,0 DB #3,#42 DB #25+#58,0 DB 3,#44 ORG START