; SCROLLING EN MODE 0 ; ORG #A000 ADRESSE DEPART LD a,0 CALL #bc0e MODE 0 LD bc,message ADRESSE DU MESSAGE bcle PUSH bc LD hl,#1419 CALL #bb75 LOCATE X,Y CALL PROG CALL PROG CALL PROG CALL PROG POP bc LD a,(bc) OR a RET z CALL #bb5a PRINT INC bc JR bcle PROG CALL #BD19 FRAME LD B,10 LD HL,#C781 POSITION ECRAN LD DE,#C780 REVIN PUSH BC PUSH HL PUSH DE LD BC,#50 LDIR POP DE POP HL LD BC,#800 ADC HL,BC EX DE,HL ADC HL,BC EX DE,HL POP BC DJNZ REVIN RET ; message DM ABCDEFGHIJKLMNOPQRSTUV DM WXYZ DS 10 10 FOIS LA LETTRE DE VALEUR ASC(50) DB 32 UN ESPACE DS 10 DS 10 DS 10 DS 10 DS 10 DS 50 DS 50 DS 50 DB 0 POUR MARQUER LA FIN DU MESSAGE ; ; FIN DU PROGRAMME

; SCROLLING EN MODE 1 ; ORG #A000 ADRESSE DEPART LD a,1 CALL #bc0e MODE 1 LD bc,message POSITION DES MESSAGES bcle PUSH bc LD hl,#2819 CALL #bb75 LOCATE X,Y CALL PROG CALL PROG POP bc LD a,(bc) OR a RET z CALL #bb5a PRINT INC bc CALL attente JR bcle PROG CALL #BD19 FRAME LD B,10 LD HL,#C781 POSITION SUR L'ECRAN LD DE,#C780 REVIN PUSH BC PUSH HL PUSH DE LD BC,#50 LDIR POP DE POP HL LD BC,#800 ADC HL,BC EX DE,HL ADC HL,BC EX DE,HL POP BC DJNZ REVIN RET attente LD hl,#300 attente1 DEC hl LD a,h OR l JR nz,attente1 RET ; message DM ABCDEFGHIJKLMNOPQRSTUV DM WXYZ DS 10 DS 10 DS 10 DS 10 DS 10 DS 10 DS 50 DS 50 DS 50 DB 0 MARQUE LA FIN DU MESSAGE ; ; FIN DU PROGRAMME

; SCROLLING EN MODE 2 ; ORG #A000 ADRESSE DEPART LD a,2 CALL #bc0e MODE 2 LD bc,message POSITION DES MESSAGES bcle PUSH bc LD hl,#5019 CALL #bb75 LOCATE X,Y CALL PROG POP bc LD a,(bc) OR a RET z CALL #bb5a PRINT INC bc CALL attente JR bcle PROG CALL #BD19 FRAME LD B,#08 LD HL,#C781 POSITION SUR L'ECRAN LD DE,#C780 REVIN PUSH BC PUSH HL PUSH DE LD BC,#50 LDIR POP DE POP HL LD BC,#800 ADC HL,BC EX DE,HL ADC HL,BC EX DE,HL POP BC DJNZ REVIN RET attente LD hl,#600 attente1 DEC hl LD a,h OR l JR nz,attente1 RET ; message DM ABCDEFGHIJKLMNOPQRSTUV DM WXYZ DS 10 DS 10 DS 10 DS 10 DS 10 DS 10 DS 50 DS 50 DS 50 DB 0 MARQUE LA FIN DU MESSAGE ; ; FIN DU PROGRAMME