ORG &3000:NOLIST DI:LD BC,&7F8D:OUT (C),C:LD HL,&C000:LD DE,&C001:LD BC,&3FFF:LD (HL),0:LDIR LD (OSP),SP:LD SP,&100:LD HL,(&38):LD (OIN),HL:LD HL,&C9FB:LD (&38),HL CALL CCOL:LD HL,LMOT:CALL OUTS:LD HL,SPRD:LD A,4:.SETXT:PUSH AF .SETX0:LD B,(HL):INC HL:.SETX1:PUSH BC:LD C,(HL):INC HL:LD B,(HL):INC HL LD E,(HL):INC HL:LD D,(HL):INC HL:LD A,(HL):INC HL:EX AF,AF':LD A,(HL):INC HL PUSH HL:LD HL,FONT:ADD HL,BC:LD B,A:EX AF,AF':LD C,A:CALL SPRITE:POP HL POP BC:DEC B:JP NZ,SETX1:PUSH HL:LD HL,AUFB:CALL BLEND:POP HL:LD C,(HL) INC HL:CALL WAIT:PUSH HL:LD HL,ABBL:CALL BLEND:CALL LOESCH:POP HL:POP AF:DEC A JP NZ,SETXT:CALL CCOL:LD BC,&7F8C:OUT (C),C:LD HL,FTOD:CALL OUTS:LD BC,&7FC4 OUT (C),C:LD HL,&4000:LD DE,&8000:LD BC,&4000:LDIR:LD BC,&7FC5:OUT (C),C LD HL,&6D00:LD DE,&C000:LD BC,&3850:.PHOTO:PUSH BC:LD B,0:LDIR:EX DE,HL LD BC,&7B0:ADD HL,BC:JP NC,PHOTO1:LD BC,&C050:ADD HL,BC:.PHOTO1:EX DE,HL:POP BC DEC B:JP NZ,PHOTO:LD BC,&7FC0:OUT (C),C:LD A,(ART):LD HL,FTCG:AND A:JP Z,PHOTO2 LD HL,FTCF:.PHOTO2:CALL SCOL:LD C,&30:CALL WAIT:LD HL,WEIS:CALL SCOL:LD C,2 CALL WAIT:LD BC,&7FC6:OUT (C),C:LD HL,&4000:LD DE,&8000:LD BC,&4000:LDIR LD BC,&7FC5:OUT (C),C:LD HL,&4000:LD DE,&C000:LD BC,&9050:.FOTO:PUSH BC:LD B,0 LDIR:EX DE,HL:LD BC,&7B0:ADD HL,BC:JP NC,FOTO1:LD BC,&C050:ADD HL,BC:.FOTO1 EX DE,HL:POP BC:DEC B:JP NZ,FOTO:LD BC,&7FC0:OUT (C),C:LD HL,GTOD CALL OUTS:LD A,(ART):LD C,2:CALL WAIT:LD HL,GTCG:AND A:JP Z,FOTO2:LD HL,GTCF .FOTO2:CALL SCOL:.OK:JP OK .SYNC:LD B,&F5:IN A,(C):RRCA:JP NC,SYNC:RET .WAIT:LD B,&F5:IN A,(C):RRCA:JP NC,WAIT:.WAIT1:IN A,(C):RRCA:JP C,WAIT1 DEC C:JP NZ,WAIT:RET .SPRITE:PUSH BC:PUSH DE:LD B,0:LDIR:POP DE:EX DE,HL:LD BC,&800:ADD HL,BC JP NC,SPRIT0:LD BC,&C054:ADD HL,BC:.SPRIT0:EX DE,HL:POP BC:DEC B:JP NZ,SPRITE:RET .LOESCH:LD HL,&D2F4:LD BC,&3454:.LOESC0:PUSH BC:LD D,H:LD E,L:INC DE:LD (HL),0 LD B,0:LDIR:LD BC,&7AC:ADD HL,BC:JP NC,LOESC1:LD BC,&C054:ADD HL,BC:.LOESC1 POP BC:DEC B:JP NZ,LOESC0:RET .OUTS:LD BC,&BC00:LD A,6:.OUTS0:LD E,(HL):INC HL:LD D,(HL):INC HL:OUT (C),E INC B:OUT (C),D:DEC B:DEC A:JP NZ,OUTS0:RET .CCOL:LD BC,&7F00:LD DE,&1054:.CCOL0:OUT (C),C:OUT (C),E:INC C:DEC D:JP P,CCOL0:RET .SCOL:CALL SYNC:LD BC,&7F00:LD E,&10:.SCOL0:LD D,(HL):INC HL:OUT (C),C:OUT (C),D:INC C:DEC E:JP P,SCOL0:RET .BLEND:LD D,&4:.BLEND1:LD E,4:LD C,6:CALL WAIT:LD BC,&7F00:.BLEND2:LD A,(HL) INC HL:OUT (C),C:OUT (C),A:INC C:DEC E:JP NZ,BLEND2:DEC D:JP NZ,BLEND1:RET LIST:.ART:NOLIST:DB 00 .OSP:DB 00,00 .OIN:DB 00,00 .AUFB:DB "TTTT","TTTF","TTFà","TFàK" .ABBL:DB "TTFà","TTTF","TTTT","TTTT" .SPRD:DB &02, &00,&00,&F4,&D2,&27,&34, &EC,&07,&1D,&D3,&2A,&34, &60 DB &02, &74,&10,&F9,&DA,&0C,&32, &CC,&12,&0B,&DB,&36,&32, &60 DB &01, &00,&00,&00,&C0,&01,&01, &20 DB &01, &58,&1D,&00,&DB,&38,&32, &60 .LMOT:DB &01,&2A,&02,&2F,&03,&08,&06,&19,&0C,&30,&0D,&00 .GTOD:DB &01,&30,&02,&31,&06,&24,&07,&24,&0C,&2C,&0D,&00 .FTOD:DB &01,&28,&02,&2E,&06,&20,&07,&22,&0C,&2C,&0D,&00 .OUTN:DB &01,&28,&02,&2E,&06,&19,&07,&1E,&0C,&30,&0D,&00 .WEIS:DB "KKKKKKKKKKKKKKKKK" .FTCG:DB "TDUçXLMF^_GRSYJKT" .FTCF:DB "TDTUWT_ST[KTTTTTT" .GTCG:DB "TDUàXL]FR_GRSYJKT" .GTCF:DB "TçLVTXFERNOGJGCKT" LIST:NOP:NOLIST ORG &3400 LIST:.FONT END