Z80 Rainbow Project Demo

;
; Rainbow Project Demo Program
; For Festival use
;

        org 0x0000      ; Program entry
endram: equ 0x27FF      ; Stack at end of RAM (dec 10239)
        LD SP, endram   ; Load Stack Pointer
        JP start        ; JP to main routine
disp:   LD A,(HL)       ; Display subroutine for null terminated strings
        CP 0            ; affects A, HL. HL points to string.
        JP Z, dend
        OUT (0x1),A
        INC HL
        JP disp
dend:   RET
delay:  NOP             ; Delay subroutine. Affects B. B must have a delay
        DJNZ delay      ; value
        RET
start:  LD C, 192
stloop: LD A,C          ; Set initial position to (col,row) (0,0)
        CP 208          ; if end of line 1 exit star demo
        JP Z, msgst     ; and proceed with names
        OUT (0x1),A     ; send command to display
        LD A,42         ; send star to display
        OUT (0x1),A     ;
        LD A,224        ; clear screen
        OUT (0x1),A     ;
        INC C           ; increase column
        JP stloop
msgst:  LD A, 192       ; restart from (0,0)
        OUT (0x1),A
        LD HL, messg    ; Get Rainbow Project string
        CALL disp       ; Display it
        LD B,10         ; Delay loop
        CALL delay
        LD HL, mesg2    ; Load address of first message
start2: LD A,224        ; clear screen
        OUT (0x1),A     ;
        LD A, 192       ; restart from (0,0)
        OUT (0x1),A     ;
        CALL disp       ; display message
        LD A,208        ; move to second line
        OUT (0x1),A     ;
        INC HL          ; get to the next message
        CALL disp       ; display it
        LD B,10         ; Delay loop
        CALL delay      ;
        INC HL          ; Get to the next message
        LD A,(HL)       ; if no next message
        CP 255          ; HALT
        JP NZ, start2   ; else loop
        HALT
        org 0x1000
messg:  defm "Rainbow Project"
        defb 0
mesg2:  defm "Nikos"
        defb 0
        defm "Koutsonikolis"
        defb 0
        defm "Giorgos"
        defb 0
        defm "Papadakis"
        defb 0
        defm "Nikos"
        defb 0
        defm "Gkiomakis"
        defb 0
        defm "Giorgos"
        defb 0
        defm "Krommydakis"
        defb 0
        defm "Alexandros"
        defb 0
        defm "Kordatzakis"
        defb 0
        defm "Eftichios"
        defb 0
        defm "Giakoumakis"
        defb 0
        defm "Iasonas"
        defb 0
        defm "Mavrommatakis"
        defb 0
        defm "Giorgos"
        defb 0
        defm "Priftis"
        defb 0
        defm "Manolis"
        defb 0
        defm "Kiagias"
        defb 0
        defb 255