ORG 100H
                LD SP,100H
                LD A,0FCH
                OUT (0B1H),A
                LD A,25
                LD DE,4000H
CIKLUS          LD HL,L1
                LD BC,16
                LDIR
                DEC A
                JR NZ,CIKLUS
                LD HL,SYNC
                LD BC,SH
                LDIR
                LD A,0
                OUT (82H),A
                OUT (83H),A
                OR 40H
                OUT (83H),A
                OR 0C0H
                OUT (83H),A
                EI
                LD HL,SZOVEG
                LD DE,5000H
                LD BC,SZH
                LDIR
                LD IX,4000H
                LD HL,1000H
                LD (IX+4),L
                LD (IX+5),H
                LD A,4
SCIK1           PUSH AF
                LD (IX+2),A
                ADD A,SZH
                LD (IX+3),A
                HALT
                HALT
                HALT
                POP AF
                INC A
                CP 56-SZH
                JR NZ,SCIK1
SCIK2           PUSH AF
                LD (IX+2),A
                ADD A,SZH
                LD (IX+3),A
                HALT
                HALT
                HALT
                POP AF
                DEC A
                CP 4
                JR NZ,SCIK2
                JR SCIK1
SZOVEG          DB"ENTERPRESS"
SZH             EQU $-SZOVEG
L1              DB 0F7H,8,3FH,0,0,0,0E9H,1,0,73,36,130,0,0,0,0
SYNC            DB 0F2H,92H,3FH,0,0,0,0,0,0,0,0,0,0,0,0,0
                DB 0FDH,10H,3FH,0,0,0,0,0,0,0,0,0,0,0,0,0
                DB 0FCH,10H,6,3FH,0,0,0,0,0,0,0,0,0,0,0,0
                DB 0FFH,10H,3FH,20H,0,0,0,0,0,0,0,0,0,0,0,0
                DB 0FCH,12H,6,3FH,0,0,0,0,0,0,0,0,0,0,0,0
                DB 0DEH,13H,3FH,0,0,0,0,0,0,0,0,0,0,0,0,0
SH              EQU $-SYNC
                END