; 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
NOTICE TEXTE n° 2 (811 o)
; 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
NOTICE TEXTE n° 3 (804 o)
; 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