; ; -------- ; BUMPY II ; -------- ; ; JEUDI 12 SEPTEMBRE 1991 ; ; ; B2.S ; ; ; COMMENCE DI LD (FINSP+1),SP LD SP,PILE ; LD HL,INTERRUP LD (#39),HL ; LD hl,tabout1 CALL out FORMAT ECRAN 88 OCT / 240 LIGNES ; LD IX,tabink1 CALL SET_PAL CALL CLS ; LD HL,PDECOR EN 50000 (10880) LD DE,BUFFER2K CALL LOADFICH ; LD HL,PGRAPH EN 63000 LD DE,BUFFER2K CALL LOADFICH ; LD HL,POBJET EN 47000 LD DE,BUFFER2K CALL LOADFICH ; CALL CREADR CREE TABLE ADR ECRAN 240 * 2 = 480 LD HL,PPERMUT EN 45000 LD DE,BUFFER2K CALL LOADFICH ; LD HL,45000 LD DE,18176 LD BC,256 LDIR LD DE,20224 LD BC,256 LDIR LD DE,22272 LD BC,256 LDIR LD DE,24320 LD BC,256 LDIR RANGE LES 4 TABLES DE PERMUT COULEUR RECOTOUT LD B,#7F LD C,%10011100 OR C OUT (C),A ; LD IX,tabink1 CALL SET_PAL LD A,10 CALL BC38 CALL cache CALL AFHAUECR AFFICHE TABLEAU SCORES ; CALL AFFBORD DECOMDEC LD HL,debecr LD B,20 SAUT20 CALL LIGNE HL=ADR ECRAN DJNZ SAUT20 ; INC HL INC HL INC HL HL=ADR ECRAN ; CHARGE LD E,0 LD B,220 LD IY,50000 CZ1 PUSH BC PUSH HL LD B,82 CZ2 LD A,E OR A JR NZ,CZ3 LD A,(IY+0) CP 77 JR NZ,CZ4 INC IY LD E,(IY+0) INC IY LD D,(IY+0) INC IY CZ3 LD (HL),D DEC E JR CZ5 CZ4 LD (HL),A INC IY CZ5 INC HL DJNZ CZ2 POP HL ; CALL LIGNE CZ6 POP BC DJNZ CZ1 ; ; CALL CONSTBUF MEMORISE 42 BUFS * 3 ; LD A,1 LD (NBPLAYER),A CALL DESSTABL DESSINE TABLEAU CALL PREANIPM ; INIVARIA LD A,2 LD (AJOUTEYE),A LD A,5 LD (NUMANIM),A ANIM COLLE XOR A LD (RESTANIM),A LD (ANIMPF),A LD (COMPTPOT),A LD (NUMPOT),A LD A,8 LD (XENNEMI),A LD A,20 LD (YENNEMI),A ; LD HL,1000 LD (BONUS),HL LD HL,POTM0 LD (ADRGRAPM),HL CALL CALBUMXY ; CALL AFFVIES CALL AFFMARTO CALL AFFGOUTS CALL AFFCLES CALL AFFNUMTB CALL AFFPOINT LD HL,GOUTTES LD DE,GOUTTES1 LD BC,3 LDIR SAUVE GOUT MARTO CLES SI PERDS INITAFF ; CALL CALTOUT CALL CALENEMI ; CALL SCRTOMEM CALL STMENEMI ; CALL BUMTOSCR CALL MTSENEMI ; LD A,(XBUMPY) SUB 4 LD (X),A LD A,(YBUMPY) ADD A,10 LD (Y),A ; CALL rnd AND 3 CALL choieff DI LD A,255 LD (INT),A ; CALL TOUCHDEB CALL SYNCHRO EI BOUCLE ; LD A,(CHOCPF) OR A JP NZ,BOUCLE2 CALL CONTANIM BOUCLE2 CALL CALTOUT CALL CALENEMI CALL CONANIPF CALL SVBUFPF ; CALL SYNSYN LD A,84 LD BC,#7F10 OUT (C),C OUT (C),A ; CALL RESTIMON CALL RESTIFON CALL MTSPF ; CALL SCRTOMEM CALL STMENEMI CALL BUMTOSCR CALL MTSENEMI ;CALL ANIPOTOS ; CALL SCRUTE LD A,66 CALL BB1E JP NZ,FINBOUC ; CALL TESTPOS INC POSITION BUMPY + TEST POSITION ; LD A,27 CALL BB1E CALL NZ,PAUSE ; CALL ANIENEMI ; LD A,78 LD BC,#7F10 OUT (C),C OUT (C),A ; JP BOUCLE SYNSYN LD A,(INT) CP 5 JP NZ,SYNSYN LD A,15 24 CALL TEMPOLGN RET TOUCHDEB CALL SCRUTE CALL TESTBITS LD A,(DIRECTIO) OR A JR Z,TOUCHDEB ; CALL CALVCASE LD A,(VALPF) OR A JR Z,BUMT CP 5 PF INCLINEE GAUCHE JP Z,BUMG CP 6 " " DROITE JP Z,BUMD CP 3 JP Z,BUMC LD A,(DIRECTIO) BIT 2,A JR NZ,BUMG BIT 3,A JR NZ,BUMD BUMHB XOR A JP PREPANI3 BUMT LD A,4 JP PREPANI3 BUMG LD A,1 JP PREPANI3 BUMD LD A,2 JP PREPANI3 BUMC LD A,5 JP PREPANI3 TEMPOLGN CE :A=NBR DE LIGNES LD B,14 DJNZ $ DS 3 DEC A JR NZ,TEMPOLGN RET TESTPOS CALL TESTBITS CALL CALVCASE CALL DEBUG LD A,(RESTANIM) OR A JR NZ,TESTPOS4 RECOANIM LD A,(TORSION) OR A JP NZ,BMONTE SI PF EN TORSION : BUMPY MONTE ; LD A,(VALPF) CP 5 PF INCLINEE GAUCHE JP Z,BGAUCHE CP 6 " " DROITE JP Z,BDROITE CP 10 JP Z,BUMPGOBE BUMPY EST AVALE CP 15 JP Z,SORTABL BUMPGOBE SORTABL LD A,(NUMANIM) ADD A,A LD E,A LD D,0 LD IX,TEST5D ADD IX,DE LD H,(IX+1) LD L,(IX+0) HL=TABHB OU TABGAU ... JP (HL) TEST5D DW TESTBHB,TESTBG,TESTBD DW TESTBM,TESTBT,TESTBC TESTBM TEST QUAND BUMPY MONTE LD A,(DIRECTIO) BIT 1,A SI FLECHE BAS : CYCLE REBOND (AMORTI) JR NZ,AMORTI BIT 2,A JR NZ,BGAUCHE BIT 3,A JR NZ,BDROITE LD A,3 CALL PREPANI3 CONTINUE A MONTER JR TESTPOS4 TESTBHB TESTBG TESTBD TESTBT TESTBC LD A,(VALPF) OR A JR Z,BTOMBE ; LD A,(DIRECTIO) BIT 2,A JR NZ,BGAUCHE BIT 3,A JR NZ,BDROITE LD A,(VALPF) CP 3 JR Z,BCOLLE XOR A CALL PREPANI3 TESTPOS4 LD A,(NUMANIM) ; ADD A,A LD E,A LD D,0 LD IX,DIRCHOIX ADD IX,DE LD H,(IX+1) LD L,(IX+0) HL=TABHB OU TABGAU ... LD A,(NUMPOS) ADD A,A LD E,A ADD HL,DE PUSH HL POP IX LD H,(IX+1) LD L,(IX+0) JP (HL) ;----- AMORTI XOR A JR IDEMBUMP BGAUCHE LD A,1 JR IDEMBUMP BDROITE LD A,2 JR IDEMBUMP BMONTE LD A,3 JR IDEMBUMP BTOMBE LD A,4 JR IDEMBUMP BCOLLE LD A,5 LD (NUMANIM),A RET IDEMBUMP CALL PREPANI3 JR TESTPOS4 PAUSE CALL SCRUTE LD A,79 CALL BB1E RET NZ ; LD A,27 CALL BB1E JR NZ,PAUSE PAUS1 CALL SCRUTE LD A,18 CALL BB1E JR Z,PAUS1 RET FINBOUC XOR A LD (NUMPOS),A CALL rnd AND 3 CALL choicls JP RECOTOUT FINSP LD SP,$ EI RET ADRECR0 DW 0 ADRGRPF0 DW 0 CALENEMI CALCUL POUR ENNEMI LD HL,(ADRECRM) LD (ADRECRM0),HL ; LD A,(YENNEMI) LD C,A CALL CALCLGN LD A,(XENNEMI) LD B,A SRL A ADD A,L LD L,A JR NC,$+3 INC H LD (ADRECRM),HL LD HL,MONSTRE ; ;LD HL,MONSTRE0 ;SRA B ;JR NC,$+5 ;LD HL,MONSTRE1 ; LD (ADRGRAM),HL LD A,16 HAUT ADD A,C CP 240 LD A,16 JR C,NO_CLIPM LD A,240 SUB C NO_CLIPM LD (HAUTEURM),A RET ADRECRM DW 0 ADRECRM0 DW 0 XENNEMI DW 0 YENNEMI DW 0 HAUTEURM DW 0 ADRGRAM DW 0 BUF64 BUFFER POUR ENNEMI DS 64 BUFPF108 BUFFER POUR PF DS 108 ;------ CALTOUT CALCUL ADRECR/LARGEUR/HAUTEUR/ADRGRAPH LD HL,(ADRECR) LD (ADRECR0),HL ; LD A,(YBUMPY) LD C,A C=LIGNE 0 A 239 CALL CALCLGN LD A,(XBUMPY) LD B,A SRL A ADD A,L LD L,A JR NC,$+3 INC H LD (ADRECR),HL LD HL,BUMPY0+2 SRA B JR NC,$+5 LD HL,BUMPY1+2 ; LD A,15 ADD A,C CP 240 LD A,15 JR C,NON_CLIP LD A,240 SUB C NON_CLIP LD (HAUTEUR),A LD (ADRGRAPH),HL RET CALTOUPF CALL CALVCASE ADD A,A LD HL,TABGRPF ADD A,L LD L,A JR NC,$+3 INC H LD E,(HL) INC HL LD A,(HL) LD (TPERMUT),A TPERMUT LD A,E ADD A,A LD HL,TABPFS ADD A,L LD L,A JR NC,$+3 INC H ; LD A,(HL) INC HL LD H,(HL) LD L,A ; LD A,(HL) LD (HAUTPF),A HAUTPF INC HL LD B,(HL) DECAL Y INC HL LD (ADRGRAPF),HL ADRGRAPF LD A,(Y) ADD A,B CALL CALCLGN LD A,(X) ;LD B,A SRL A ADD A,L LD L,A JR NC,$+3 INC H LD (ADRECRPF),HL ADRECRPF RET out LD c,10 LD b,#bc nxtout LD a,(hl) OUT (c),a INC hl LD a,(hl) INC b OUT (c),a INC hl DEC b DEC c JR nz,nxtout RET ; ;------- MTSENEMI LD BC,TABMASK LD HL,(ADRECRM) LD DE,(ADRGRAM) LD A,(HAUTEURM) MTSE0 EX AF,AF DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77 DB #13 ; DEC HL DEC HL DEC HL ; LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 JP NZ,MTSE1 LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 JP Z,MTSE1 LD A,H ADD A,#38 LD H,A MTSE1 EX AF,AF DEC A JP NZ,MTSE0 RET ADRECROB DW 0 ADRGRAOB DW 0 ;----- MTSOBJ OBJET SUR L'ECRAN LD BC,TABMASK LD HL,(ADRECROB) LD DE,(ADRGRAOB) LD A,14 MTSOB1 EX AF,AF DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 ; LD A,L SUB 4 LD L,A ; SBC A,A ADD A,H LD H,A ; LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 JP NZ,MTSOB2 LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 JP Z,MTSOB2 LD A,H ADD A,#38 LD H,A MTSOB2 EX AF,AF DEC A JP NZ,MTSOB1 RET ; ; MEM TO SCREEN BUMPY ; BUMTOSCR BUMPY SUR ECRAN ; LD BC,TABMASK LD HL,(ADRECR) LD DE,(ADRGRAPH) LD A,(HAUTEUR) BUMTOS1 EX AF,AF DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77 DB #13 ; DEC HL DEC HL DEC HL DEC HL ; LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 JP NZ,FINMTOS LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 JP Z,FINMTOS LD A,H ADD A,#38 LD H,A FINMTOS EX AF,AF DEC A JP NZ,BUMTOS1 RET ;---- MEM TO SCREEN POTEAU MTSPO LD BC,TABMASK LD HL,(ADRECRPO) LD DE,(ADRGRAPO) LD A,32 MTSPO1 EX AF,AF DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 ; LD A,L SUB 3 LD L,A ; SBC A,A ADD A,H LD H,A ; LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 JP NZ,MTSPO2 LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 JP Z,MTSPO2 LD A,H ADD A,#38 LD H,A MTSPO2 EX AF,AF DEC A JP NZ,MTSPO1 RET ;------ SVBUFPF MET BUF PF DANS AUTRE BUFFER LD A,(ANIMPF) OR A RET Z ; LD HL,(BUFSOUPF) LD DE,BUFPF108 LD BC,108 LDIR LD A,(TPERMUT) OR A JP Z,PFTOBUFN ;------- PFTOBUFP PF TO BUFFER AVEC PERMUT COULEUR LD D,A LD E,0 PUSH DE POP IX ; LD HL,BUFPF108 LD A,(DECALPF) LD B,A SLA A SLA A SLA A ADD A,B ADD A,L LD L,A JR NC,$+3 INC H QUELQUE PART DANS LE BUFFER ; LD A,(HAUTPF) LD B,A ADD A,A ADD A,A ADD A,A ADD A,B LD DE,(ADRGRAPF) LD BC,TABMASK SVBUFPF0 EX AF,AF DB #1A,#DD,#6F,#DD,#7E,0,#4F LD A,(DE) DB #0A,#A6,#B1,#77,#23,#13 LD X,A ; EX AF,AF DEC A JP NZ,SVBUFPF0 RET ;------- PFTOBUFN PF TO BUFFER SANS PERMUT COULEUR ; LD HL,BUFPF108 LD A,(DECALPF) LD B,A SLA A SLA A SLA A ADD A,B ADD A,L LD L,A JR NC,$+3 INC H QUELQUE PART DANS LE BUFFER ; LD A,(HAUTPF) LD B,A ADD A,A ADD A,A ADD A,A ADD A,B LD DE,(ADRGRAPF) LD BC,TABMASK PFTBN0 EX AF,AF DB #1A,#4F,#0A,#A6,#B1,#77,#23,#13 EX AF,AF DEC A JP NZ,PFTBN0 RET ;------- STMENEMI LD HL,(ADRECRM) LD DE,BUF64 LD BC,#10FF B=16 C=255 STME0 4 * LDI DW #A0ED,#A0ED,#A0ED,#A0ED ; LD A,L SUB 4 LD L,A ; SBC A,A ADD A,H LD H,A ; LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 JP NZ,STME1 LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 JP Z,STME1 LD A,H ADD A,#38 LD H,A STME1 DJNZ STME0 RET ; ;------- SCRTOMEM TRANS CONTENU ECRAN DANS BUFFER ;------- (DERRIERE BUMPY) ; LD HL,(ADRECR) LD DE,BUF108 LD BC,#0FFF B=15 C=255 EFND 5 * LDI DW #A0ED,#A0ED,#A0ED,#A0ED DW #A0ED ; LD A,L LAR1 SUB 5 LD L,A ; SBC A,A ADD A,H LD H,A ; LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 JP NZ,FINSTOM LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 JP Z,FINSTOM LD A,H ADD A,#38 LD H,A FINSTOM DJNZ EFND RET DECALPF DB 0 ;------ MTSPF LD A,(ANIMPF) OR A RET Z ; LD HL,BUFPF108 LD DE,(ADRECRPF) LD BC,#0CFF B=12 RESTIPF1 DW #A0ED,#A0ED,#A0ED,#A0ED DW #A0ED,#A0ED,#A0ED,#A0ED DW #A0ED ; LD A,E RESTIPF2 SUB 9 LD E,A ; SBC A,A ADD A,D LD D,A ; LD A,8 ADD A,D LD D,A AND %110000 XOR %110000 JP NZ,RESTIPF3 LD A,E ADD A,largecr2 LD E,A LD A,D ADC A,#D0 LD D,A AND 8 JP Z,RESTIPF3 LD A,D ADD A,#38 LD D,A RESTIPF3 DJNZ RESTIPF1 RET RESTIMON RESTITUE FOND DERRIERE ENNEMI LD HL,BUF64 LD DE,(ADRECRM0) LD BC,#10FF B=15 RM0 DW #A0ED,#A0ED,#A0ED,#A0ED ; LD A,E SUB 4 LD E,A ; SBC A,A ADD A,D LD D,A ; LD A,8 ADD A,D LD D,A AND %110000 XOR %110000 JP NZ,RM1 LD A,E ADD A,largecr2 LD E,A LD A,D ADC A,#D0 LD D,A AND 8 JP Z,RM1 LD A,D ADD A,#38 LD D,A RM1 DJNZ RM0 RET ; RESTIFON ; ; ADRBUF ; ADRECR ; LD HL,BUF108 LD DE,(ADRECR0) LD BC,#0FFF B=15 RESTEFND DW #A0ED,#A0ED,#A0ED,#A0ED DW #A0ED ; LD A,E SUB 5 LD E,A ; SBC A,A ADD A,D LD D,A ; LD A,8 ADD A,D LD D,A AND %110000 XOR %110000 JP NZ,RESTS1 LD A,E ADD A,largecr2 LD E,A LD A,D ADC A,#D0 LD D,A AND 8 JP Z,RESTS1 LD A,D ADD A,#38 LD D,A RESTS1 DJNZ RESTEFND RET ; CREADR LD c,0 LD hl,debecr LD de,ADROVER creadr1 LD a,l LD (de),a INC de LD a,h LD (de),a INC de CALL LIGNE INC c LD a,c CP 240 JP nz,creadr1 RET CLS LD HL,debecr LD B,240 CLSNXT1 LD (CLSPNT1+1),HL LD D,H LD E,L INC DE LD A,B LD BC,largecr2-1 LD (HL),255 LDIR LD B,A CLSPNT1 LD HL,$ CALL LIGNE DJNZ CLSNXT1 RET ; AFHAUECR RET AFFMARTO AFFVIES AFFGOUTS AFFCLES AFFNUMTB AFFPOINT RET CALVCASE LD A,(VALBUMPY) CALVCAS2 LD D,0 LD E,A LD HL,POT42 ADD HL,DE LD A,(HL) LD (VALPOTO),A LD HL,PF42 ADD HL,DE LD A,(HL) LD (VALPF),A RET CALBUMXY LD A,(VALBUMPY) LD L,0 CXY1 SUB 7 JR C,CXY2 INC L JR CXY1 CXY2 ADD A,7 LD (NUMCOLON),A SLA A SLA A SLA A LD B,A SLA A ADD A,B ADD A,12 LD (XBUMPY),A LD A,L LD (NUMLIGNE),A SLA A SLA A LD B,A SLA A SLA A SLA A ADD A,B ADD A,38 LD (YBUMPY),A RET RECUPANI LD A,(NUMANIM) ADD A,A LD HL,TABANIM ADD A,L LD L,A JR NC,$+3 INC H LD A,(HL) INC HL LD H,(HL) LD L,A HL = ANIMX RET DESSTABL LD A,1 LD (ANIMPF),A LD A,(NUMTABL) LD (INDEX),A 0 INC A LD B,A LD HL,TABLEAUX-87 LD DE,87 DESST1 ADD HL,DE DJNZ DESST1 PUSH HL LD DE,42 ADD HL,DE LD DE,OBJ42 LD BC,42 LDIR LD A,(HL) LD (VALBUMPY),A INC HL LD A,(HL) LD (VALSORTI),A INC HL LD A,(HL) LD (NBOBJETS),A POP HL POINTE SUR DEBUT TABLEAU LD IX,PF42 LD IY,TABANIPO LD DE,POT42 LD B,42 SEPARE LD A,(HL) AND #F0 SRL A SRL A SRL A SRL A LD (DE),A CP 4 POT INDESTRUCTIBLE JR NZ,NOSTPOT LD A,42 SUB B LD (IY+0),A INC IY NOSTPOT NE STOCKE PAS POTEAU INDEST LD A,(HL) AND 15 LD (IX+0),A INC DE INC HL INC IX DJNZ SEPARE LD (IY+0),128 ; LD A,8 LD (X),A LD A,48 LD (Y),A LD HL,PF42 LD (POINTTAB),HL ; LD B,6 6 LIGNES DE PF DESST2 PUSH BC LD B,7 DESST3 PUSH BC LD IX,BUFPFS LD A,(INDEX) LD E,A SLA E LD D,0 ADD IX,DE LD H,(IX+1) LD L,(IX+0) LD (BUFSOUPF),HL ; LD A,9 LD (LARGPF),A LD HL,(POINTTAB) LD A,(HL) VALEUR PF OR A JR Z,SUIVANTE ADD A,A LD D,0 LD E,A LD HL,TABGRPF ADD HL,DE LD E,(HL) INC HL LD A,(HL) LD (TPERMUT),A NUMERO TABLE PERMUT 71 79 87 95 SLA E LD IX,TABPFS ADD IX,DE LD H,(IX+1) LD L,(IX+0) LD A,(HL) HAUTEUR LD (HAUTPF),A INC HL LD A,(HL) DECALAGE EN Y LD (DECALPF),A INC HL LD (ADRGRAPF),HL DONNEES DESSIN LD A,(Y) CALL CALCLGN LD A,(X) LD B,A SRL A ADD A,L LD L,A JR NC,$+3 INC H LD (ADRECRPF),HL ADR ECR AFFICHE PF ; CALL SVBUFPF CALL MTSPF SUIVANTE MET POTEAU LD HL,(POINTTAB) LD DE,42 ADD HL,DE LD A,(HL) OR A JR Z,NOPOTS ADD A,A LD D,0 LD E,A XOR A LD (TPERMUT),A LD IX,TABPOTS ADD IX,DE LD H,(IX+1) LD L,(IX+0) LD (ADRGRAPO),HL LD A,(Y) SUB 28 CALL CALCLGN LD A,(X) ADD A,18 LD B,A SRL A ADD A,L LD L,A JR NC,$+3 INC H LD (ADRECRPO),HL ADR ECR AFFICHE PF CALL MTSPO NOPOTS LD HL,(POINTTAB) LD DE,84 ADD HL,DE LD A,(HL) OR A JR Z,NOOBJS LD HL,OBJETS-56 LD DE,56 LD B,A TROUVOBJ ADD HL,DE DJNZ TROUVOBJ ; LD (ADRGRAOB),HL ADR DU GRAPHISME OBJET LD A,(Y) SUB 15 CALL CALCLGN LD A,(X) ADD A,4 SRL A ADD A,L LD L,A JR NC,$+3 INC H LD (ADRECROB),HL ADR ECR AFFICHE OBJET CALL MTSOBJ ; NOOBJS POP BC LD A,(X) ADD A,24 LD (X),A LD HL,(POINTTAB) INC HL LD (POINTTAB),HL LD A,(INDEX) INC A LD (INDEX),A ; DEC B JP NZ,DESST3 ; POP BC LD A,8 LD (X),A LD A,(Y) ADD A,36 LD (Y),A DEC B JP NZ,DESST2 RET ; INDEX DB 0 AFFBORD LD HL,BORDGA LD (nxtaffb1+1),hl LD HL,(ADROVER) CALL affbord1 LD hl,BORDDR LD (nxtaffb1+1),hl LD hl,(ADROVER) LD DE,85 ADD HL,DE affbord1 LD B,240 nxtaffb1 LD de,$ LD c,255 EX de,hl LDI LDI LD a,(hl) LD (de),a EX de,hl DEC hl DEC hl CALL LIGNE DJNZ nxtaffb1 RET LIGNE LD A,8 ADD A,H LD H,A AND %110000 XOR %110000 RET NZ LD A,L ADD A,largecr2 LD L,A LD A,H ADC A,#D0 LD H,A AND 8 RET Z LD A,H ADD A,#38 LD H,A RET ; CALCLGN CE = A LD L,A CALCLGNL CE = L LD H,0 ADD HL,HL LD DE,ADROVER ADD HL,DE LD E,(HL) INC HL LD D,(HL) EX DE,HL RET ; INTERRUP Nelles interruptions ; PUSH HL PUSH BC PUSH af LD a,(INT) INC A CP 6 JR NZ,FININT XOR A FININT LD (INT),A JR FIFI LD HL,TABINKS ADD A,L LD L,A JR NC,$+3 INC H ; LD A,(HL) INC HL LD BC,#7F10 OUT (C),C OUT (C),A FIFI POP AF POP BC POP HL EI RET INT DB 0 TABINKS DB 84,92,76,78,74,75 ; rnd LD a,r pntrnd ADD a,5 RRC a XOR 128 LD (pntrnd+1),a RET cache LD bc,#BC01 OUT (c),c INC b DEC c OUT (c),c RET choieff effet pour apparition tableau ADD a,a LD hl,tabeffet ADD a,l LD l,a JR nc,$+3 INC h LD e,(hl) INC hl LD d,(hl) EX de,hl JP (hl) choicls ADD a,a LD hl,tabcls ADD a,l LD l,a JR nc,$+3 INC h LD e,(hl) INC hl LD d,(hl) EX de,hl JP (hl) ; cls1 LD a,120 cls1nxt1 LD (cls1pnt1+1),a LD c,a AND 3 CALL z,SYNCHRO LD a,c ADD a,a DEC a CALL CALCLGN LD a,c CALL efflgn SUB 120 NEG ADD a,a CALL CALCLGN CALL efflgn cls1pnt1 LD a,0 DEC a JR nz,cls1nxt1 RET efflgn LD d,h LD e,l INC de LD bc,largecr2-1 LD (hl),b LDIR RET ; cls2 LD c,largecr1 LD hl,debecr+largecr2-2 cls2nxt1 CALL SYNCHRO LD b,#BC LD d,2 LD a,c SUB largecr1+1 NEG SUB largecr1/2+26 NEG OUT (c),d INC b OUT (c),a LD e,l LD b,240 cls2nxt2 XOR a LD (hl),a INC hl LD (hl),a DEC hl CALL LIGNE DJNZ cls2nxt2 LD h,b LD l,e DEC l DEC l DEC c JR nz,cls2nxt1 CALL SYNCHRO LD BC,#BC02 LD A,largecr1/2+26 OUT (C),C INC B OUT (C),A RET ; cls3 LD de,(ADROVER) LD hl,largecr2-1 ADD hl,de LD a,largecr2 cls3nxt1 LD (cls3pnt1+1),a LD c,e LD b,l PUSH bc LD b,240 cls3nxt2 LD a,(hl) AND 85 LD (hl),a LD a,(de) AND 170 LD (de),a LD a,d ADD a,8 LD d,a LD a,h ADD a,8 LD h,a AND %110000 XOR %110000 JP nz,nxt3s1 LD a,l ADD a,largecr2 LD l,a LD a,h ADC a,#D0 LD h,a LD a,e ADD a,largecr2 LD e,a LD a,d ADC a,#D0 LD d,a AND 8 JP z,nxt3s1 LD a,h ADD a,#38 LD h,a LD d,a nxt3s1 DJNZ cls3nxt2 LD h,b LD d,b POP bc LD l,b LD e,c DEC l INC e cls3pnt1 LD a,0 DEC a JR nz,cls3nxt1 RET ; cls4 LD a,0 cls4nxt1 CALL eff3sp1 INC a CP 41 JR nz,cls4nxt1 CALL CLS LD hl,tabout1 CALL out RET ; effet1 LD a,i10 LD (pnteff00+1),a LD (pnteff01+1),a LD (pnteff02+1),a LD a,i3 LD (pnteff11+1),a LD (pnteff12+1),a DI LD hl,(#38) LD (sauvint+1),hl LD hl,#C9FB LD (#38),hl XOR a LD (long),a EI LD bc,#BC01 LD a,largecr1 OUT (c),c INC b OUT (c),a LD bc,#7F8C+2 OUT (c),c LD c,1 pnteff00 LD a,i10 OUT (c),c OUT (c),a bcleff1 CALL SYNCHRO LD b,0 DJNZ $ LD a,(long) ADD a,2 CP 115 JP nc,fineffet LD (long),a LD bc,#7F8C+2 OUT (c),c LD c,1 pnteff01 LD a,i10 OUT (c),c OUT (c),a HALT DI LD a,(long) SUB 120 NEG CALL tempo LD b,5 DJNZ $ LD bc,#7F8C OUT (c),c LD c,1 pnteff11 LD a,i3 OUT (c),c OUT (c),a LD a,(long) ADD a,a CALL tempo LD bc,#7F8C+2 OUT (c),c LD c,1 pnteff02 LD a,i10 OUT (c),c OUT (c),a EI JP bcleff1 ; fineffet DI sauvint LD hl,$ LD (#38),hl LD bc,#7F8C OUT (c),c LD bc,#7F01 pnteff12 LD a,i24 OUT (c),c OUT (c),a EI RET long DB 0 ; tempo LD b,14 DJNZ $ DS 3 DEC a JR nz,tempo RET ; effet2 soustr EQU largecr1-40/2 LD d,largecr1-40 bcleff2 CALL SYNCHRO LD bc,#BC01 LD a,d OUT (c),c INC b OUT (c),a LD bc,#BC02 LD a,d SRL a ADD a,26 OUT (c),c INC b OUT (c),a LD bc,#BC06 LD a,d SRL a SUB soustr ADD a,a OUT (c),c INC b OUT (c),a INC d LD a,d CP largecr1-3 JR nz,$+5 INC d INC d INC d CP largecr1+1 JR nz,bcleff2 RET ; effet3 CALL SYNCHRO LD bc,#BC01 LD a,largecr1 OUT (c),c INC b OUT (c),a LD bc,#BC06 XOR a OUT (c),c INC b OUT (c),a LD a,39 eff3nxt1 CALL eff3sp1 DEC a CP 255 JR nz,eff3nxt1 RET eff3sp1 LD (hauteur),a CALL multipl LD de,debecr/2 ADD hl,de CALL SYNCHRO LD a,h ADD a,a ADD a,a OR h OR %00001100 LD h,a LD bc,#BC0C OUT (c),c INC b OUT (c),h DEC b INC c OUT (c),c INC b OUT (c),l LD bc,#BC06 OUT (c),c LD a,(hauteur) LD c,a SUB 40 NEG INC b OUT (c),a LD a,c RET hauteur DB 00 ; multipl LD b,8 LD hl,0 LD de,largecr1 nxtmult1 RRA JR nc,mults1 ADD hl,de mults1 SLA e RL d DJNZ nxtmult1 RET ; effet4 LD a,(SYNCHRO) PUSH af LD a,#C9 LD (SYNCHRO),a CALL retourne LD bc,#BC01 LD a,largecr1 OUT (c),c INC b OUT (c),a POP af LD (SYNCHRO),a retourne XOR a retnxt1 LD (cmpt1),a CALL CALCLGN LD a,(cmpt1) RRA CALL c,SYNCHRO LD b,h LD c,l LD a,(cmpt1) SUB 239 NEG CALL CALCLGN LD d,b LD e,c PUSH de PUSH de PUSH hl LD de,BUFFER LD bc,largecr2 LDIR POP de ligne haut POP hl ligne bas LD bc,largecr2 LDIR LD hl,BUFFER POP de ligne bas LD bc,largecr2 LDIR LD a,(cmpt1) INC a CP 120 JP nz,retnxt1 RET cmpt1 DB 00 ; fin END ; PREPANI3 LD (NUMANIM),A CP 5 RET Z CALL RECUPANI LD A,(HL) LD (RESTANIM),A LD B,A INC HL LD A,(HL) INC HL LD H,(HL) LD L,A LD (POINTANI),HL RET AJOUTEYE DB 0 DEPVB PUSH AF LD A,2 LD (AJOUTEYE),A POP AF RET DEPVH PUSH AF LD A,-2 LD (AJOUTEYE),A POP AF RET ANIENEMI ANIME ENNEMI ; ;LD A,(YBUMPY) ;LD (YENNEMI),A ;RET ; LD A,(YENNEMI) ; LD HL,AJOUTEYE ADD A,(HL) CP 20 CALL Z,DEPVB ; CP 224 CALL Z,DEPVH LD (YENNEMI),A RET CONTANIM LD A,(RESTANIM) OR A RET Z ; LD HL,(POINTANI) LD A,(XBUMPY) LD E,(HL) ADD A,E LD (XBUMPY),A INC HL ; LD A,(YBUMPY) LD E,(HL) ADD A,E LD (YBUMPY),A ; INC HL LD (POINTANI),HL DEC_ANIM LD A,(RESTANIM) DEC A LD (RESTANIM),A OR A JR Z,META0 LD A,(NUMPOS) INC A META0 LD (NUMPOS),A RET ; ;------- TESTBITS TEST CLAV NUM / FLECHES /JOYSTICK ;------- ; XOR A LD IX,TTOUCH ; BIT 7,(IX+5) FIRE ESPACE JR Z,$+4 SET 4,A ; BIT 4,(IX+9) FIRE JOY JR Z,$+4 SET 4,A ; BIT 3,(IX+1) H F8 JR Z,$+4 SET 0,A ; BIT 6,(IX+1) B F2 JR Z,$+4 SET 1,A ; BIT 4,(IX+2) G F4 JR Z,$+4 SET 2,A ; BIT 4,(IX+0) D F6 JR Z,$+4 SET 3,A ; BIT 0,(IX+0) H Fleche JR Z,$+4 SET 0,A ; BIT 2,(IX+0) B Fleche JR Z,$+4 SET 1,A ; BIT 0,(IX+1) G Fleche JR Z,$+4 SET 2,A ; BIT 1,(IX+0) D Fleche JR Z,$+4 SET 3,A ; BIT 0,(IX+9) H Joy JR Z,$+4 SET 0,A ; BIT 1,(IX+9) B Joy JR Z,$+4 SET 1,A ; BIT 2,(IX+9) G Joy JR Z,$+4 SET 2,A ; BIT 3,(IX+9) D Joy JR Z,$+4 SET 3,A ; LD (DIRECTIO),A RET ; SYNCHRO LD B,#F5 IN A,(C) RRA JR C,$-3 IN A,(C) RRA JR NC,$-3 RET ENDB2 *F,B3.S