Online GIF creation / Amstrad CPC / Basic / Z80

If you came here long ago refreshes the page to use the latest version ;)
Enter a little program wich come back to the prompt or

org 0xA000	; Z80 assembly example - clic [RUN] for execution
CR=13
LF=10
call AniCreaIni ; init gif animation
ld de,10        ; DE=animation speed value 
call AniSpeed   ; set gif animation speed
ld hl,message	; offset message
LOOP:
ld a,(hl)	; load character
inc hl		; move message pointer
call 0xBB5A	; //SYSTEM//DISPLAY A CHARACTER//
call FrameOut	; generate a frame
cp LF		; end of message ?
jr nz,LOOP	; loop if not
call AniClose   ; end of gif animation
ret		; back to basic
;--- AniCrea opcodes
AniCreaIni:
push af
xor a           ; 0 parameter
db 0x49,0x82,1  ; opcode "init gif animation"
pop af
ret
AniSpeed:
push af
ld a,1          ; 1 parameter
db 0x49,0x82,7  ; opcode "set gif animation speed"
pop af
ret
FrameOut:
push af
xor a           ; 0 parameter
db 0x49,0x82,3  ; opcode "generate a frame"
pop af
ret
AniClose:
push af
xor a           ; 0 parameter
db 0x49,0x82,4  ; opcode "end of gif animation"
pop af
ret
;--- data ---
message db "This is an animated GIF image."
db CR,LF	; CR/LF/end of message
end			; end of Z80 assembly(return to BASIC)
call &A000:'call Z80 program from BASIC

One pass online Z80 assembly listing (https://www.cpcalive.com)
A000	1		ORG  0xA000           ; Z80 assembly example - clic [RUN] for execution
A000	2		CR:= 13               
A000	3		LF:= 10               
A000	4	CD0000	CALL AniCreaIni       ; init gif animation
A003	5	110A00	LD   de,10            ; DE=animation speed value
A006	6	CD0000	CALL AniSpeed         ; set gif animation speed
A009	7	210000	LD   hl,message       ; offset message
A00C	8		LOOP:                 
A00C	9	7E	LD   a,(hl)           ; load character
A00D	10	23	INC  hl               ; move message pointer
A00E	11	CD5ABB	CALL 0xBB5A           ; //SYSTEM//DISPLAY A CHARACTER//
A011	12	CD0000	CALL FrameOut         ; generate a frame
A014	13	FE0A	CP   LF               ; end of message ?
A016	14	20F4	JR   nz,LOOP          ; loop if not
A018	15	CD0000	CALL AniClose         ; end of gif animation
A01B	16	C9	RET                   ; back to basic
A01C	17		                      ;--- AniCrea opcodes
**** Line 4 ; ANICREAINI=0xA01C
A01C	18		ANICREAINI:           
A01C	19	F5	PUSH af               
A01D	20	AF	XOR  a                ; 0 parameter
A01E	21	498201	DB   0x49,0x82,1      ; opcode "init gif animation"
A021	22	F1	POP  af               
A022	23	C9	RET                   
**** Line 6 ; ANISPEED=0xA023
A023	24		ANISPEED:             
A023	25	F5	PUSH af               
A024	26	3E01	LD   a,1              ; 1 parameter
A026	27	498207	DB   0x49,0x82,7      ; opcode "set gif animation speed"
A029	28	F1	POP  af               
A02A	29	C9	RET                   
**** Line 12 ; FRAMEOUT=0xA02B
A02B	30		FRAMEOUT:             
A02B	31	F5	PUSH af               
A02C	32	AF	XOR  a                ; 0 parameter
A02D	33	498203	DB   0x49,0x82,3      ; opcode "generate a frame"
A030	34	F1	POP  af               
A031	35	C9	RET                   
**** Line 15 ; ANICLOSE=0xA032
A032	36		ANICLOSE:             
A032	37	F5	PUSH af               
A033	38	AF	XOR  a                ; 0 parameter
A034	39	498204	DB   0x49,0x82,4      ; opcode "end of gif animation"
A037	40	F1	POP  af               
A038	41	C9	RET                   
A039	42		                      ;--- data ---
**** Line 7 ; MESSAGE=0xA039
A039	43	5468697320697320616E20616E696D617465642047494620696D6167652E	MESSAGE:DB   "This is an animated GIF image."                 
A057	44	0D0A	DB   CR,LF            ; CR/LF/end of message

Start : 0xA000    End : 0xA058
Lenght: 0x0059
0 Error
Values:
CR=000D
LF=000A
LOOP=A00C
ANICREAINI=A01C
ANISPEED=A023
FRAMEOUT=A02B
ANICLOSE=A032
MESSAGE=A039

The Real Face of Jesus Christ - Full movie

Medjugorje

Message, 25. june 2025 'Dear children, Also today I thank the Almighty that I am with you and that I can lead you towards the God of love and peace. The ideologies which destroy you and your spiritual life are transitory. I am calling you, little children: return to God, because with God you have a future and eternal life. Thank you for having responded to my call.'

Suivre @virgoasis

Testimony