Le maître Rubi nous donne, comme promis le mois passé, son scrolling en vague. J'ai bien l'impression que plus rien ne peut l'arrêter. Alors, si ça continue de ne plus l'appeler "maître" , mais "Dieu". ; ; Source compatible avec l'assembleur de WinAPE ; ORG &9000 T_CARAC equ &7000 T_TABLE equ &7800 ; ; Prendre les fontes des caracteres ; JP QON ; scrolling active JP QOFF ; scrolling desactive QON: XOR A CALL &BBA5 CALL &B906 PUSH AF LD DE,T_CARAC LD BC,8*256 LDIR POP AF CALL &B90C ; NB EQU 15 LI EQU 110 ; Calcul d'une vague LD HL, &C000+12 LD B,LI BO1: CALL RBC26 DJNZ BO1 CALL VAGUE LD HL,NB-1*2+T_TABLE LD A, (HL) INC HL LD H, (HL) LD L,A LD (OFSET) ,HL LD HL,NOM ; Le message au debut svp LD (OFNOM),HL ; ; On recconfigure les interuptions du CPC ; D_INT: DI LD HL, (&39) INC HL LD (QINT) ,HL LD (HL),&C3 LD DE, INT INC HL LD (HL),E INC HL LD (HL),D INC HL LD (D_INT3+1) ,HL LD DE,&33 ADD HL,DE LD (D_INT2+1),HL RET ; VAGUE: LD B,8 LD IX,T_TABLE VAGUE1: PUSH HL LD C,NB VAGUE2: LD (IX+0),L LD (IX+1),H INC IX INC IX INC HL CALL VAGUE3 DEC C JR NZ,VAGUE2 POP HL CALL RBC26 DJNZ VAGUE1 RET VAGUE3: BIT 3,L JP Z,RBC26 JP #BC29 ; INT: PUSH AF PUSH BC PUSH HL PUSH DE LD BC,#7F8D OUT (C),C CALL INTA POP DE POP HL POP BC POP AF EX AF,AF' D_INT2: JP C,0 D_INT3: JP 0 ; INTA: LD B,&F5 IN A, (C) RRA JR C,INTE0 KL: LD A, 7 INC A LD (KL+1),A CP 4 JR C,INTE1 JR Z,INTE2 RET ; INTE0: XOR A LD (KL+1) ,A LD HL,T_TABLE JR SPRG1 INTE1: LD HL, (THL) SPRG1: LD B,2 SPRG1_1: LD C,NB-1 LD E, (HL) INC HL LD D, (HL) INC HL SPRG1_2: PUSH HL LD A, (HL) INC HL LD H, (HL) LD L,A LD A, (HL) LD (DE), A EX DE ,HL POP HL INC HL INC HL DEC C JR NZ,SPRG1_2 DJNZ SPRG1_1 LD (THL) ,HL RET ; INTE2: SPRG2: ; Envoie du caractere LD HL, (OFNOM) LD A, (HL) OR A JR NZ,SPRG2_1 LD HL ,NOM LD A, (HL) SPRG2_1: LD C,A LD A, (FLAG) XOR &FF LD (FLAG) ,A CALL NZ,SPRG2_4 LD DE, (FLAG1) LD HL, (OFSET) LD B,8 SPRG2_2: LD A, (DE) LD C,A LD A, (FLAG) OR A LD A,&0F JP Z,SPRG2_3 LD A,&F0 SPRG2_3: AND C LD (HL) ,A INC DE CALL RBC26 DJNZ SPRG2_2 RET ; SPRG2_4: INC HL LD (OFNOM) ,HL LD L,C LD H,0 ADD HL ,HL ADD HL ,HL ADD HL ,HL LD DE,T_CARAC ADD HL ,DE LD (FLAG1) ,HL RET ; QOFF: DI LD HL, (QINT) LD (HL), &08 INC HL LD (HL), #38 INC HL LD (HL),#33 RET ; RBC26: LD A,H ADD A,#08 LD H,A AND #38 RET NZ PUSH DE LD DE,&C050 ADD HL ,DE POP DE RET ; ; FLAG DEFB 0 FLAG1 DEFW 0 OFSET DEFW 0 OFNOM DEFW 0 THL DEFW 0 QINT DEFW 0 ; NOM DB "BONJOUR, A TOI DEFM ,LISEZ 100%" DB 0 Rubi, ACPC n°20 , Novembre 1989, p89-91
★ AMSTRAD CPC ★ DOWNLOAD ★ |
CPCrulez[Content Management System] v8.73-desktop/c Page créée en 430 millisecondes et consultée 2336 foisL'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko. |
|
|
|