; (C) STEPH ! From NEPHILIM 1992 ; ; Mon adresse : ; Stephane Sikora - 1,bis rue Casteja - 92100 Boulogne Billancourt ; ORG #2000 ; ENT $ ; LD BC,#BC07 OUT (C),C LD BC,#BD00+32 OUT (C),C LD BC,#BC01 OUT (C),C LD BC,#BD00+46 OUT (C),C LD BC,#BC02 OUT (C),C LD BC,#BD00+49 OUT (C),C LD a,1 CALL #bc0e DI LD hl,(#38) LD (inter+1),hl LD hl,#c9fb LD (#38),hl EI LOOP LD b,#f5 SYNC IN a,(c) RRA JP nc,SYNC LD hl,COLOR+2 LD de,COLOR+1 LD bc,32*9-1 LD a,(DE) LD (POK),A DEC DE LD A,(DE) LDIR DEC DE LD (DE),a INC DE LD A,(POK) LD (DE),A HALT LD BC,#7F03 OUT (C),C DS 84 LD C,14 LD HL,COLOR RAST LD D,8 PUSH HL RAST1 LD A,(HL) OUT (C),A INC HL DEC D DS 52 JP NZ,RAST1 POP HL LD DE,2 ADD HL,DE DEC C DS 45 JP NZ,RAST LD A,#54 OUT (C),A CALL SCROLL LD bc,#f40e OUT (c),c LD bc,#f6c0 OUT (c),c XOR a OUT (c),a LD bc,#f792 OUT (c),c LD bc,#f645 OUT (c),c LD b,#f4 IN a,(c) LD bc,#f782 OUT (c),c LD bc,#f600 OUT (c),c RLA JP c,LOOP inter LD hl,0 LD (#38),hl LD BC,#BC01 OUT (C),C LD BC,#BD00+40 OUT (C),C CALL #bca7 RET COLOR DM TTT\TT\\T DM \\\L\\LL\ DM LLLNLLNNL DM NNNJNNJJN DM JJJKJJKKJ DM KKKWKKWWK DM WWWUWWUUW DM UUUDUUDDU DM DDDTDDTTD DM TTTTTTTTT DM TTTTTTTTT DM TTTDTTDDT DM DDDUDDUUD DM UUUWUUWWU DM WWWKWWKKW DM KKKRKKRRK DM RRRBRRBBR DM BBBVBBVVB DM VVVTVVTTV DM TTTTTTTTT DM TTTTTTTTT DM TTTVTTVVT DM VVVBVVBBV DM BBBRBBRRB DM RRRKRRKKR DM KKKJKKJJK DM JJJNJJNNJ DM NNNLNNLLN DM LLL\LL\\L DM \\\T\\TT\ DM TTTTTTTTT DM TTTTTTTTT DM TTTTT POK DB 0 STOCKE DW 0 SCROLL LD HL,(STOCKE) INC HL RES 2,H LD (STOCKE),HL LD A,H OR #30 LD BC,#BC0C OUT (C),C INC B OUT (C),A LD BC,#BC0D OUT (C),C INC B OUT (C),L LD HL,(TXT1) LD A,(HL) SUB 32 LD L,A LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD BC,#3000 ADD HL,BC EX DE,HL LD HL,(STOCKE) ADD HL,HL SET 7,h SET 6,H LD BC,#5A ADD HL,BC RES 3,H LD A,(TXT2) LD C,A LD B,8 SCR1 PUSH BC PUSH DE LD B,16 SCR2 PUSH BC LD A,(DE) LD B,0 AND C JR Z,SCR3 LD B,#ff SCR3 LD (HL),B INC HL LD (HL),B DEC HL CALL BC26 POP BC DJNZ SCR2 POP DE INC DE POP BC DJNZ SCR1 LD A,(TXT2) SRL A OR A JR NZ,SCR6 LD HL,(TXT1) INC HL LD A,(HL) OR A JR NZ,SCR5 LD HL,TEXTE1 SCR5 LD (TXT1),HL LD A,#80 SCR6 LD (TXT2),A RET TXT1 DW TEXTE1 TXT2 DB #80 TEXTE1 DM ET VOICI L'INTERLUDE NUME DM RO 1... DB 0 BC26 LD a,h ADD a,8 LD h,a AND #38 RET nz LD a,h SUB #40 LD h,a LD a,l ADD a,92 LD l,a RET nc INC h RES 3,H RET