;Ver 1,0 Writen BY Imasoft 01.09.2023  
; - v1.1  01.09.23,     CPU Z80



    org  0
;    jp  16384

;-----------------
    xor a
    cpl
    ld c, 1
    out (c),a ; turn on all LEDs
;-----------------
    ld b, 255
delay01:    
    ld c, 255
delay02:
    dec c
    jr nz, delay02
    dec b
    jr nz, delay01
;-----------------  
    xor a
    ld c, 1
    out (c),a ; turn off all LEDs
;-----------------   
    ld b, 255
delay03:    
    ld c, 255
delay04:
    dec c
    jr nz, delay04
    dec b
    jr nz, delay03
;-----------------  
    defb #ed, #71   ; undocumented "out (c),0" works as out (c), FF on CMOS z80
;-----------------   
    ld b, 255
delay05:    
    ld c, 255
delay06:
    dec c
    jr nz, delay06
    dec b
    jr nz, delay05
;-----------------  
    xor a
    ld c, 1
    out (c),a ; turn off all LEDs
;-----------------
    ld b, 255
delay05a:    
    ld c, 255
delay06a:
    dec c
    jr nz, delay06a
    dec b
    jr nz, delay05a
;-----------------



























































start:
    ld c, 1
    ld b, c
    ld a, c
    out (c),a
;-----------------   
    ld b, 255
delay1:    
    ld c, 255
delay2:
    dec c
    jr nz, delay2
    dec b
    jr nz, delay1
;-----------------   

    ld c, 2
    ld b, c
    ld a, c
    out (c),a

;-------------------    
    ld b, 255
delay11:    
    ld c, 255
delay21:
    dec c
    jr nz, delay21
    dec b
    jr nz, delay11
;-----------------   

    ld c, 4
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay12:    
    ld c, 255
delay22:
    dec c
    jr nz, delay22
    dec b
    jr nz, delay12
;-----------------   

    ld c, 8
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay13:    
    ld c, 255
delay23:
    dec c
    jr nz, delay23
    dec b
    jr nz, delay13
;-----------------   

    ld c, 16
    ld b, c
    ld a, c
    out (c),a   
    
;-------------------    
    ld b, 255
delay14:    
    ld c, 255
delay24:
    dec c
    jr nz, delay24
    dec b
    jr nz, delay14
;-----------------   

    ld c, 32
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay15:    
    ld c, 255
delay25:
    dec c
    jr nz, delay25
    dec b
    jr nz, delay15
;-----------------   

    ld c, 64
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay16:    
    ld c, 255
delay26:
    dec c
    jr nz, delay26
    dec b
    jr nz, delay16
;-----------------   

    ld c, 128
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay17:    
    ld c, 255
delay27:
    dec c
    jr nz, delay27
    dec b
    jr nz, delay17
;-----------------  
    jp   512



























































;-----------------
    org  512

    ld c, 1
    ld b, c
    ld a, c
    out (c),a
;-----------------   
    ld b, 255
delay1a:    
    ld c, 255
delay2a:
    dec c
    jr nz, delay2a
    dec b
    jr nz, delay1a
;-----------------   

    ld c, 2
    ld b, c
    ld a, c
    out (c),a

;-------------------    
    ld b, 255
delay11a:    
    ld c, 255
delay21a:
    dec c
    jr nz, delay21a
    dec b
    jr nz, delay11a
;-----------------   

    ld c, 4
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay12a:    
    ld c, 255
delay22a:
    dec c
    jr nz, delay22a
    dec b
    jr nz, delay12a
;-----------------   

    ld c, 8
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay13a:    
    ld c, 255
delay23a:
    dec c
    jr nz, delay23a
    dec b
    jr nz, delay13a
;-----------------   

    ld c, 16
    ld b, c
    ld a, c
    out (c),a   
    
;-------------------    
    ld b, 255
delay14a:    
    ld c, 255
delay24a:
    dec c
    jr nz, delay24a
    dec b
    jr nz, delay14a
;-----------------   

    ld c, 32
    ld b, c
    ld a, c
    out (c),a    

    
;-------------------    
    ld b, 255
delay15a:    
    ld c, 255
delay25a:
    dec c
    jr nz, delay25a
    dec b
    jr nz, delay15a
;-----------------   

    ld c, 64
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay16a:    
    ld c, 255
delay26a:
    dec c
    jr nz, delay26a
    dec b
    jr nz, delay16a
;-----------------   

    ld c, 128
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay17a:    
    ld c, 255
delay27a:
    dec c
    jr nz, delay27a
    dec b
    jr nz, delay17a
;-----------------  
    jp   1024



























































;-----------------
    org  1024

    ld c, 1
    ld b, c
    ld a, c
    out (c),a
;-----------------   
    ld b, 255
delay1b:    
    ld c, 255
delay2b:
    dec c
    jr nz, delay2b
    dec b
    jr nz, delay1b
;-----------------   

    ld c, 2
    ld b, c
    ld a, c
    out (c),a

;-------------------    
    ld b, 255
delay11b:    
    ld c, 255
delay21b:
    dec c
    jr nz, delay21b
    dec b
    jr nz, delay11b
;-----------------   

    ld c, 4
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay12b:    
    ld c, 255
delay22b:
    dec c
    jr nz, delay22b
    dec b
    jr nz, delay12b
;-----------------   

    ld c, 8
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay13b:    
    ld c, 255
delay23b:
    dec c
    jr nz, delay23b
    dec b
    jr nz, delay13b
;-----------------   

    ld c, 16
    ld b, c
    ld a, c
    out (c),a   
    
;-------------------    
    ld b, 255
delay14b:    
    ld c, 255
delay24b:
    dec c
    jr nz, delay24b
    dec b
    jr nz, delay14b
;-----------------   

    ld c, 32
    ld b, c
    ld a, c
    out (c),a    

    
;-------------------    
    ld b, 255
delay15b:    
    ld c, 255
delay25b:
    dec c
    jr nz, delay25b
    dec b
    jr nz, delay15b
;-----------------   

    ld c, 64
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay16b:    
    ld c, 255
delay26b:
    dec c
    jr nz, delay26b
    dec b
    jr nz, delay16b
;-----------------   

    ld c, 128
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay17b:    
    ld c, 255
delay27b:
    dec c
    jr nz, delay27b
    dec b
    jr nz, delay17b
;-----------------  
    jp 2048


























































;-----------------
    org  2048

    ld c, 1
    ld b, c
    ld a, c
    out (c),a
;-----------------   
    ld b, 255
delay1c:    
    ld c, 255
delay2c:
    dec c
    jr nz, delay2c
    dec b
    jr nz, delay1c
;-----------------   

    ld c, 2
    ld b, c
    ld a, c
    out (c),a

;-------------------    
    ld b, 255
delay11c:    
    ld c, 255
delay21c:
    dec c
    jr nz, delay21c
    dec b
    jr nz, delay11c
;-----------------   

    ld c, 4
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay12c:    
    ld c, 255
delay22c:
    dec c
    jr nz, delay22c
    dec b
    jr nz, delay12c
;-----------------   

    ld c, 8
    ld b, c
    ld a, c
    out (c),a    
    
;-------------------    
    ld b, 255
delay13c:    
    ld c, 255
delay23c:
    dec c
    jr nz, delay23c
    dec b
    jr nz, delay13c
;-----------------   

    ld c, 16
    ld b, c
    ld a, c
    out (c),a   
    
;-------------------    
    ld b, 255
delay14c:    
    ld c, 255
delay24c:
    dec c
    jr nz, delay24c
    dec b
    jr nz, delay14c
;-----------------   

    ld c, 32
    ld b, c
    ld a, c
    out (c),a    

    
;-------------------    
    ld b, 255
delay15c:    
    ld c, 255
delay25c:
    dec c
    jr nz, delay25c
    dec b
    jr nz, delay15c
;-----------------   

    ld c, 64
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay16c:    
    ld c, 255
delay26c:
    dec c
    jr nz, delay26c
    dec b
    jr nz, delay16c
;-----------------   

    ld c, 128
    ld b, c
    ld a, c
    out (c),a 
    
;-------------------    
    ld b, 255
delay17c:    
    ld c, 255
delay27c:
    dec c
    jr nz, delay27c
    dec b
    jr nz, delay17c
;-----------------  
;    jp 4096






    jp start
