; RD-10, REKLAMNI DISPLEJ  V.1.1   sa Z80A 
; by: Goran Stankovic dipl.ing.el.  Januar 1990.
; www.qsl.net/yt2fsg      goranstank@email.com

; $4000 56 Bafer Displej 1
; $4038 56 Bafer Displej 2
; $4080  2 Adresa znakova
; $4082  2 Adresa pocetka podataka
; $4084  2 Adresa kraja podataka
; $4086  2 Adresa pocinju podaci jednog reda
; $4088  1 Naredba 1
; $4089  1 Naredba 2
; $408A  1 Duzina reda
; $408B  1 Brzina scrolla
; $408D  1 Broj karaktera
; $408E  1 Duzina karaktera
; $408F  1 Brzina
; $4090  1 Broj pauza
; $4091  1 Broj reda 1
; $4092  1 Broj reda 2
; $4093  1 Fleg
; $4094  1 RND brojac
; $40A0  4 RS232 input bafer
; $40F0 16 Flegs
; $4100    Podaci
;
;Karakteri matrica 6x7
;0   *
;1  * *
;2 *   *
;3 *   *
;4 *****
;5 *   *
;6 *   *
;  1   1
;  21112
;  487840
;
; 00...1F - Kontrolni karakteri
; 20...7F - YUSCII Latinica
; 80...BF - Graficki karakreti
; C0...FF - YUSCII Cirilica
;
; RS232 = COM1:9600,N,8,1,P
;
;--------- Inicijalizacija sistema -----------
SIST    .EQU  $4080
DISPL   .EQU  $C000
PORT    .EQU  $E000
           
        .ORG 0
        LD SP,$6000 	;Za 8K RAM
        DI 
        LD IY,SIST
        LD IX,DISPL

        JP POCETAK

;-------------- podprogram INT ---------------
        .ORG $38
        DI
        PUSH AF
        PUSH BC
        PUSH DE
        PUSH HL
        LD IX,DISPL
        LD (IX+7),0  ;Iskljuci displej
        LD DE,$C000
        LD HL,$4000
        LD B,0
        LD C,(IY+17)
        ADD HL,BC
        LD BC,8
        LDIR         ;Prenesi red

        LD A,(IY+17) ;INC BR.REDA
        ADD A,8
        CP  56
        JR Z,HOP1
        LD (IY+17),A
        JP HOP
HOP1    LD (IY+17),0 
        DEC (IY+15)     ;DEC BRZ.
        JP NZ,HOP
        LD A,(IY+11)    ;BRZ.=BRZINA SKROLA + 1
        INC A
        LD (IY+15),A

        LD A,(IY+9)
        CP 1
        JP Z,LEVO
        CP 2
        JP Z,DESNO
        CP 3
        JP Z,GORE
        CP 4
        JP Z,DOLE
        CP 6
        JP Z,RND_OFF
        CP 14
        JP Z,PRINT
        CP 15
        JP Z,PAUZA
        JP RAC4

HOP     POP HL
        POP DE
        POP BC 
        POP AF
        EI
        RETI

;------------ Shift u levo -------------
LEVO
        CALL RAC1
        LD HL,$4037
        LD B,56
SKOK11  RR (HL)
        DEC HL
        DJNZ SKOK11

        LD HL,$4007
        LD DE,8
        LD C,0
        LD B,7
SKOK30  RRA
        JR NC,HOP10
        SET 3,(HL)
        JR HOP20
HOP10   RES 3,(HL)
HOP20   PUSH AF
        LD A,C
        ADD A,16
        LD C,A
        LD A,(HL)
        AND %00001111
        OR C
        LD (HL),A
        POP AF
        ADD HL,DE
        DJNZ SKOK30

        INC (IY+14)  ;DUZ.SLOVA
        LD A,(IY+14)
        CP 6
        JP NZ,HOP 
        LD (IY+14),0
        INC (IY+13)
        LD A,(IY+13)
        CP (IY+10)  ;?BR.SLOVA=DUZ.REDA
        JP NZ,HOP
RAC3
        LD (IY+14),0
        LD (IY+13),0
        LD L,(IY+6)
        LD H,(IY+7)
        LD D,0
        LD E,(IY+10)
        ADD HL,DE
        LD D,H
        LD E,L
        LD C,(IY+4)
        LD B,(IY+5)
        SCF
        CCF
        SBC HL,BC
        JP M,JA1
RAC4
        LD L,(IY+2)
        LD H,(IY+3)
        CALL RAC2
        JP HOP
JA1     LD H,D
        LD L,E
        CALL RAC2
        JP HOP

;------------- Shift desno ----------------------
DESNO
        LD A,(IY+19)
        CP 0
        JR NZ,JA2
        LD (IY+19),$FF
        LD (IY+14),5
        LD A,(IY+10)
        DEC A
        LD (IY+13),A
JA2             
        CALL RAC1
        LD HL,$4000
        LD B,7
SKOK32
        RRA
        LD C,B
        LD B,8
SKOK33  RL (HL)
        INC HL
        DJNZ SKOK33
        LD B,C        
        DJNZ SKOK32
        CALL REDOVI

        DEC (IY+14)  ;DUZ.SLOVA
        LD A,(IY+14)
        INC A
        JP NZ,HOP 
        LD (IY+14),5
        DEC (IY+13)
        LD A,(IY+13)
        INC A
        JP NZ,HOP
        LD (IY+19),0
        JP RAC3
;---------------------------------------------
RAC1
        LD L,(IY+6)  ;ADRR.POCETKA REDA
        LD H,(IY+7)
        LD B,0
        LD C,(IY+13)  ;BR.SLOVA
        ADD HL,BC
        LD C,(HL)  ;KOD SLOVA
        LD B,0
        LD H,B
        LD L,C
        ADD HL,HL ;Mnozenje sa 6
        ADD HL,BC
        ADD HL,HL
        LD E,(IY+0)
        LD D,(IY+1)  ;ADR.DEF. KARAKTERA
        ADD HL,DE       ;ADR.JEDNOG KARAKTERA
        LD B,0    
        LD C,(IY+14)  ;DUZ.SLOVA
        ADD HL,BC
        LD A,(HL)
        RET
;-----------------------------------
RAC2
        LD A,(HL)
        LD (IY+8),A
        INC HL
        LD A,(HL)
        LD (IY+9),A
        INC HL
        LD A,(HL)
        LD (IY+10),A
        INC HL
        LD A,(HL)
        LD (IY+11),A
        INC HL
        LD (IY+6),L
        LD (IY+7),H
        RET
;---------------------------------
REDOVI
        LD HL,$4007
        LD DE,8
        LD C,0
        LD B,7
SKOK31
        LD A,C
        ADD A,16
        LD C,A
        LD A,(HL)
        AND %00001111
        OR C
        LD (HL),A
        ADD HL,DE
        DJNZ SKOK31
        RET
;---------------- Sklol gore ------------
GORE
        LD A,(IY+19)
        CP 0
        JR NZ,JA5
        LD (IY+19),$FF
        LD A,(IY+10)
        CP 10
        JP M,JA7
        LD A,10
JA7     CALL PUN 
JA5            
        LD HL,$4008
        LD DE,$4000
        LD BC,48
        LDIR
        LD HL,$4030
        LD DE,$4030
        LD A,(IY+18)
        CP 0
        JR NZ,GOR2
        LD B,8
GOR1    LD (HL),0
        INC HL
        DJNZ GOR1
        ADD A,8
        LD (IY+18),A
        JR GOR4
        
GOR2    LD B,0
        LD C,(IY+18)
        ADD HL,BC
        LD BC,8
        LDIR
        ADD A,8
        CP 64
        JR Z,GOR3
        LD (IY+18),A
GOR4    CALL REDOVI
        JP HOP
GOR3    LD (IY+18),0
        LD (IY+19),0
        CALL REDOVI
        JP RAC3

;------------- Skrol dole --------------
DOLE
        LD A,(IY+19)
        CP 0
        JR NZ,JA51
        LD (IY+19),$FF
        LD A,(IY+10)
        CP 10
        JP M,JA71
        LD A,10
JA71    CALL PUN 
JA51            
        LD HL,$402F
        LD DE,$4037
        LD BC,48
        LDDR
        LD HL,$4070
        LD DE,$4000
        LD A,(IY+18)
        CP 0
        JR NZ,GOR21
        LD HL,$4000
        LD B,8
GOR11   LD (HL),0
        INC HL
        DJNZ GOR11
        ADD A,8
        LD (IY+18),A
        JR GOR41
        
GOR21   LD B,0
        LD C,(IY+18)
        SCF
        CCF
        SBC HL,BC
        LD BC,8
        LDIR
        ADD A,8
        CP 64
        JR Z,GOR31
        LD (IY+18),A
GOR41   CALL REDOVI
        JP HOP
GOR31   LD (IY+18),0
        LD (IY+19),0
        CALL REDOVI
        JP RAC3

;-------- PRINT --- PAUZA -------
PRINT
        LD A,(IY+19)
        CP 0
        JR NZ,PAUZA
        LD (IY+19),$FF
        LD A,(IY+10)
        CP 10
        JP M,JA72
        LD A,10
JA72    CALL PUN
        LD HL,$4038
        LD DE,$4000
        LD BC,56
        LDIR
        CALL REDOVI
 
PAUZA            
        INC (IY+20)
        LD A,(IY+20)
        CP 7
        JP NZ,HOP
        LD (IY+20),0
        LD (IY+19),0
        JP RAC3

;------------- RND_OFF ---------
RND_OFF
        LD A,R
        AND %00111111
        LD E,A
        LD D,0
        LD HL,$4000
        ADD HL,DE
        LD (HL),0
        CALL REDOVI
        INC (IY+20)
        LD A,(IY+20)
        CP 80          ;Br.ponavljanja
        JP NZ,HOP
        LD (IY+20),0
        CALL CLR_DIS1
        CALL REDOVI
        JP RAC3
;--------------------
CLR_DIS1
        LD B,56
        LD C,0
        LD HL,$4000
LOOP130  LD (HL),C
        INC HL
        DJNZ LOOP130
        RET
;--------------------
CLR_DIS2 
        LD B,56
        LD C,0
        LD HL,$4038
LOOP131  LD (HL),C
        INC HL
        DJNZ LOOP131
        RET

;--------- Punjenje ekrana -  traje 30 ms ---
PUN
        CALL CLR_DIS2
        LD (IX+7),0  ;Iskljuci displej
        LD E,A
        DEC E
        LD D,0
        LD L,(IY+6)  ;ADRR.POCETKA REDA
        LD H,(IY+7)
        ADD HL,DE

        LD B,A
RIPI4   LD E,(HL)  ;KOD SLOVA
        DEC HL
        PUSH BC
        PUSH HL
        LD D,0
        LD H,D
        LD L,E
        ADD HL,HL ;Mnozenje sa 6
        ADD HL,DE
        ADD HL,HL
        LD E,(IY+0)
        LD D,(IY+1)  ;ADR.DEF. KARAKTERA
        ADD HL,DE       ;ADR.JEDNOG KARAKTERA
        LD D,0    
        LD E,5
        ADD HL,DE

        LD B,6
RIPI3   LD A,(HL)
        DEC HL
        PUSH BC
        PUSH HL
        LD HL,$4038
        LD B,7
RIPI2   RRA
        LD C,B
        LD B,8
RIPI1   RL (HL)
        INC HL
        DJNZ RIPI1
        LD B,C        
        DJNZ RIPI2

        POP HL
        POP BC
        DJNZ RIPI3

        POP HL
        POP BC
        DJNZ RIPI4
        RET
;-------------------------------------------
;--------- primanje sa RS-232 C ----------
IN_232
        LD HL,PORT    ; Adresa ulaznog porta
        LD B,255
SKOK1   BIT 0,(HL)   ;sacekaj pocetak start bita
        JR Z,SKOK101
        DJNZ SKOK1
        LD A,0
        RET
SKOK101  LD B,42
SKOK2   DJNZ SKOK2   ;sacekaj do sredine prvog bita
        LD D,0
        LD C,8

LOOP    LD A,(HL)    ;uzmi podatak sa ulaza
        RRA        
        RR  D        ;sacuvaj CY u D reg.
        LD B,28
SKOK4   DJNZ SKOK4
        DEC C
        JR NZ,LOOP
        LD A,D
        LD B,16
SKOK5   DJNZ SKOK5
        RET
 
;-------------------------------------------
;-------------------------------------------
POCETAK:
;Izbrisi displej
        LD B,16
        LD C,0
        LD HL ,$C000
LOOP11  LD (HL),C
        INC HL
        DJNZ LOOP11
;----- Brisanje dela RAM memorije ------
        LD B,128
        LD C,0
        LD HL,$4000
LOOP12  LD (HL),C
        INC HL
        DJNZ LOOP12

; ---- Postavi sistemske promenjive --------
        LD HL,SLOVA ;Adresa karaktera
        LD (IY+0),L
        LD (IY+1),H
        LD HL,$4100 ;Pocetak podataka
        LD (IY+2),L
        LD (IY+3),H
        CALL RAC2        
        CALL VOZ
;Da li je sacuvana memorija
        LD HL,$40F0     ;Flegovi
        LD A,$55
        LD B,16
JESU1   CP (HL)
        JR NZ,NISU
        INC A
        INC HL
        DJNZ JESU1
;----------------------------------------
JESU
        IM 1
        EI
SKOK  
        LD HL,PORT
IMA     LD B,100        ;? taster pritisnut
TEST    BIT 7,(HL)
        JR NZ,IMA
        DJNZ TEST

;---- Primanje podataka iz centralnog racunara ----
        DI
        LD (IX+7),0 ;Iskljuci displej
        LD HL,PORT
        LD DE,2650
        LD B,0
SK1     BIT 0,(HL)
        JR Z,SK2
        DJNZ SK1
        DEC DE
        LD A,D
        OR E
        JR NZ,SK1
;Posle 10 s nastavi sa daljim radom
        JP IZLAZ
SK2     LD B,40
        CALL SKOK2
        LD E,A
        CALL IN_232
        CP $55
        JR NZ,IZLAZ
        LD A,E
        CP $AA
        JR NZ,IZLAZ
        CALL IN_232
        CALL IN_232
        LD E,A
        CALL IN_232
        LD B,A
        LD C,E
        LD H,(IY+3)
        LD L,(IY+2)
PONOVO
        EXX
        CALL IN_232
        EXX
        LD (HL),A
        INC HL
        DEC BC
        LD A,B
        OR C
        JR NZ,PONOVO
        LD (IY+4),L
        LD (IY+5),H
        LD H,(IY+3)
        LD L,(IY+2)
        CALL RAC2
        CALL VOZ
        CALL FLEGOVI
IZLAZ   
        IM 1
        EI
        JP SKOK
;--------------------------
NISU
        CALL VOZ
        CALL DEMO
        JP JESU
;--------------------------
FLEGOVI
        LD HL,$40F0     ;Flegovi
        LD A,$55
        LD B,16
JESU2   LD (HL),A
        INC A
        INC HL
        DJNZ JESU2
        RET
;-------------------------        
VOZ
        LD HL,PODACI
        LD DE,$4038
        LD BC,56
        LDIR
        LD HL,PODACI
        LD DE,$4000
        LD BC,56
        LDIR
        LD (IY+13),0
        LD (IY+14),0
        LD (IY+15),255
        LD (IY+16),7
        LD (IY+17),0
        LD (IY+18),0
        LD (IY+19),0
        LD (IY+20),0
        RET
;------------------------
DEMO
        LD L,(IY+2)
        LD H,(IY+3)
        LD (HL),0
        INC HL
        LD (HL),1
        INC HL
        LD (HL),255
        INC HL
        LD (HL),0
        INC HL
        LD A,1
        LD B,255
LOOP13  LD (HL),A
        INC HL
        INC A
        DJNZ LOOP13

        LD D,H
        LD E,L
        LD HL,PODACI2
        LD BC,PODACI1
        SCF
        CCF
        SBC HL,BC
        LD B,H
        LD C,L
        LD HL,PODACI1
        LDIR
        LD (IY+4),E
        LD (IY+5),D
        LD L,(IY+2)
        LD H,(IY+3)
        CALL RAC2
        RET
;------------------------------
PODACI
        .DB 0,0,0,0,$C0,$F7,$F7,$17
        .DB 0,0,0,0,$48,$51,$55,$25
        .DB 0,0,0,0,$48,$51,$55,$35
        .DB 0,0,0,0,$FC,$57,$55,$45
        .DB 0,0,0,0,$FC,$F7,$F7,$57
        .DB 0,0,0,0,$FC,$FF,$FF,$67
        .DB 0,0,0,0,$08,$21,$22,$72
PODACI1
        .DB 0,2,14,3,0,0,0,0,0,71,111,114,97,110,0,152,153,0
        .DB 0,15,0,20
        .DB 0,6,0,5
        .DB 0,3,10,30,0,0,154,155,0,154,155,0,154,155
        .DB 0,1,24,7,32,210,197,203,204,193,205,206,201,32
        .DB 196,201,211,208,204,197,202,32,82,68,45,49,49,32
        .DB 0,4,10,20,65,66,67,68,69,70,71,72,73,74
        .DB 0,15,0,20
        .DB 0,14,10,50,193,194,195,196,197,198,199,200,201,202
        .DB 0,3,10,30,0,0,166,167,0,160,161,0,164,165
        .DB 0,15,0,20
        .DB 0,14,10,3,0,0,157,157,0,158,158,0,157,157
        .DB 0,14,10,4,0,0,159,159,0,159,159,0,159,159
        .DB 0,14,10,5,0,0,0,0,0,0,0,0,0,0
PODACI2

;----------------------------------------------------------------------              
; EDITOR SLOVA ZA REKLAMNI DISPLEJ

SLOVA
    .DB  0,0,0,0,0,0
    .DB  12,122,65,122,12,0
    .DB  24,47,65,47,24,0
    .DB  28,20,54,34,20,8
    .DB  8,20,34,54,20,28
    .DB  4,2,127,2,4,0
    .DB  16,32,127,32,16,0
    .DB  8,8,8,42,28,8
    .DB  8,28,42,8,8,8
    .DB  62,65,77,81,65,62
    .DB  32,62,127,63,62,32
    .DB  96,96,63,2,12,0
    .DB  15,5,0,120,40,0
    .DB  6,9,9,96,16,0
    .DB  0,112,60,31,0,127
    .DB  127,0,15,60,112,0
    .DB  54,65,65,65,54,0
    .DB  0,0,0,0,119,0
    .DB  48,73,73,73,6,0
    .DB  0,73,73,73,54,0
    .DB  7,8,8,8,119,0
    .DB  7,73,73,73,48,0
    .DB  54,73,73,73,48,0
    .DB  6,1,1,1,118,0
    .DB  54,73,73,73,54,0
    .DB  6,73,73,73,54,0
    .DB  32,80,34,5,2,0
    .DB  31,21,81,72,84,36
    .DB  28,94,127,94,28,0
    .DB  31,63,126,63,31,0
    .DB  24,60,126,60,24,0
    .DB  28,91,127,91,28,0
    .DB  0,0,0,0,0,0
    .DB  0,0,95,0,0,0
    .DB  0,7,0,7,0,0
    .DB  34,127,34,127,34,0
    .DB  36,42,127,42,18,0
    .DB  35,19,8,100,98,0
    .DB  54,73,85,34,80,0
    .DB  0,11,7,0,0,0
    .DB  0,28,34,65,0,0
    .DB  0,65,34,28,0,0
    .DB  20,8,62,8,20,0
    .DB  8,8,62,8,8,0
    .DB  0,88,56,0,0,0
    .DB  8,8,8,8,8,0
    .DB  0,96,96,0,0,0
    .DB  32,16,8,4,2,0
    .DB  62,81,73,69,62,0
    .DB  0,66,127,64,0,0
    .DB  66,97,81,73,70,0
    .DB  65,73,77,75,49,0
    .DB  24,20,18,127,16,0
    .DB  39,69,69,69,57,0
    .DB  60,74,73,73,48,0
    .DB  1,1,121,5,3,0
    .DB  54,73,73,73,54,0
    .DB  6,73,73,41,30,0
    .DB  0,54,54,0,0,0
    .DB  0,91,59,0,0,0
    .DB  8,20,34,65,0,0
    .DB  20,20,20,20,20,0
    .DB  0,65,34,20,8,0
    .DB  2,1,81,9,6,0
    .DB  98,83,74,71,66,0
    .DB  124,18,17,18,124,0
    .DB  65,127,73,73,54,0
    .DB  62,65,65,65,34,0
    .DB  65,127,65,65,62,0
    .DB  127,73,73,73,65,0
    .DB  127,9,9,9,1,0
    .DB  62,65,65,73,57,0
    .DB  127,8,8,8,127,0
    .DB  0,65,127,65,0,0
    .DB  32,64,65,63,1,0
    .DB  127,8,20,34,65,0
    .DB  127,64,64,64,64,0
    .DB  127,2,12,2,127,0
    .DB  127,4,8,16,127,0
    .DB  62,65,65,65,62,0
    .DB  127,9,9,9,6,0
    .DB  62,65,81,33,94,0
    .DB  127,9,25,41,70,0
    .DB  38,73,73,73,50,0
    .DB  1,1,127,1,1,0
    .DB  63,64,64,64,63,0
    .DB  7,24,96,24,7,0
    .DB  127,32,24,32,127,0
    .DB  99,20,8,20,99,0
    .DB  3,4,120,4,3,0
    .DB  97,81,73,69,67,0
    .DB  36,75,74,75,50,0
    .DB  73,127,73,65,62,0
    .DB  60,66,67,66,36,0
    .DB  60,67,66,67,36,0
    .DB  64,64,64,64,64,0
    .DB  68,101,86,77,68,0
    .DB  56,68,68,60,64,0
    .DB  127,72,68,68,56,0
    .DB  56,68,68,68,32,0
    .DB  56,68,68,72,127,0
    .DB  56,84,84,84,24,0
    .DB  8,126,9,2,0,0
    .DB  8,84,84,60,0,0
    .DB  127,4,4,120,0,0
    .DB  0,0,125,0,0,0
    .DB  32,64,68,61,0,0
    .DB  127,16,40,68,0,0
    .DB  0,0,127,0,0,0
    .DB  120,4,120,4,120,0
    .DB  124,8,4,4,120,0
    .DB  56,68,68,68,56,0
    .DB  124,20,20,20,8,0
    .DB  24,36,20,124,64,0
    .DB  124,8,4,4,0,0
    .DB  72,84,84,84,32,0
    .DB  4,62,68,32,0,0
    .DB  60,64,64,32,124,0
    .DB  28,32,64,32,28,0
    .DB  60,64,48,64,60,0
    .DB  68,36,124,72,68,0
    .DB  12,80,80,60,0,0
    .DB  68,100,84,76,68,0
    .DB  72,85,86,85,32,0
    .DB  48,72,74,127,2,0
    .DB  56,68,70,69,32,0
    .DB  56,69,70,69,32,0
    .DB  96,80,72,80,96,0
    .DB  127,65,65,65,65,127
    .DB  127,65,93,93,65,127
    .DB  0,62,34,34,62,0
    .DB  0,0,28,28,0,0
    .DB  0,62,62,62,62,0
    .DB  127,127,127,127,127,127
    .DB  127,0,127,0,127,0
    .DB  0,127,0,127,0,127
    .DB  85,42,85,42,85,42
    .DB  42,127,42,127,42,127
    .DB  42,42,42,42,42,42
    .DB  85,85,85,85,85,85
    .DB  99,65,65,65,65,99
    .DB  127,65,0,0,65,127
    .DB  99,65,93,93,65,99
    .DB  127,65,28,28,65,127
    .DB  0,0,56,126,56,56
    .DB  56,127,57,127,57,57
    .DB  32,127,49,63,113,63
    .DB  63,113,63,113,63,32
    .DB  57,57,127,57,127,56
    .DB  56,56,126,56,0,0
    .DB  56,120,120,62,57,57
    .DB  63,57,121,126,56,56
    .DB  60,126,127,57,57,63
    .DB  57,58,60,120,120,56
    .DB  56,120,124,58,58,63
    .DB  63,63,127,127,63,63
    .DB  63,58,58,124,120,56
    .DB  41,68,113,106,64,21
    .DB  21,72,29,56,84,41
    .DB  82,0,17,68,0,73
    .DB  0,8,28,62,93,28
    .DB  28,62,127,127,93,0
    .DB  0,93,127,127,62,28
    .DB  28,93,62,28,8,0
    .DB  4,52,116,116,110,127
    .DB  127,127,118,112,48,0
    .DB  0,48,112,118,127,127
    .DB  127,110,116,116,52,4
    .DB  99,99,0,0,99,99
    .DB  28,28,127,127,28,28
    .DB  99,99,28,28,99,99
    .DB  28,28,99,99,28,28
    .DB  62,8,62,8,62,8
    .DB  34,127,34,127,34,127
    .DB  2,2,127,2,2,0
    .DB  62,65,65,65,65,62
    .DB  62,65,93,93,65,62
    .DB  0,28,34,34,28,0
    .DB  6,9,57,78,72,48
    .DB  48,72,78,57,9,6
    .DB  2,5,34,80,32,0
    .DB  32,80,34,5,2,0
    .DB  0,6,9,9,6,0
    .DB  127,65,99,34,34,34
    .DB  34,34,34,99,65,127
    .DB  119,93,65,65,93,119
    .DB  24,36,66,90,60,24
    .DB  0,2,15,2,0,0
    .DB  6,9,9,127,0,127
    .DB  62,65,93,85,65,62
    .DB  62,65,93,69,65,62
    .DB  0,0,0,0,0,0
    .DB  119,8,127,8,119,0
    .DB  124,18,17,18,124,0
    .DB  127,73,73,73,48,0
    .DB  63,32,32,63,96,0
    .DB  96,63,33,63,96,0
    .DB  127,73,73,73,65,0
    .DB  28,34,127,34,28,0
    .DB  127,1,1,1,1,0
    .DB  99,20,8,20,99,0
    .DB  127,16,8,4,127,0
    .DB  32,64,65,63,1,0
    .DB  127,8,20,34,65,0
    .DB  64,62,1,1,127,0
    .DB  127,2,12,2,127,0
    .DB  127,8,8,8,127,0
    .DB  62,65,65,65,62,0
    .DB  127,1,1,1,127,0
    .DB  126,1,127,72,48,0
    .DB  127,9,9,9,6,0
    .DB  62,65,65,65,34,0
    .DB  1,1,127,1,1,0
    .DB  7,72,72,40,31,0
    .DB  127,73,73,73,54,0
    .DB  127,8,127,72,48,0
    .DB  63,32,96,32,63,0
    .DB  38,73,73,73,50,0
    .DB  34,65,73,73,54,0
    .DB  127,64,127,64,127,0
    .DB  1,127,9,73,48,0
    .DB  1,127,9,9,112,0
    .DB  7,8,8,8,127,0
    .DB  1,1,1,1,1,0
    .DB  108,16,124,16,108,0
    .DB  32,84,84,56,64,0
    .DB  60,74,74,49,0,0
    .DB  60,32,32,60,96,0
    .DB  96,56,36,60,96,0
    .DB  56,84,84,84,24,0
    .DB  16,40,124,40,16,0
    .DB  124,4,4,4,0,0
    .DB  68,40,16,40,68,0
    .DB  124,32,16,8,124,0
    .DB  0,32,64,61,0,0
    .DB  124,16,40,68,0,0
    .DB  64,56,4,124,0,0
    .DB  124,8,16,8,124,0
    .DB  124,16,16,124,0,0
    .DB  56,68,68,68,56,0
    .DB  124,4,4,124,0,0
    .DB  120,4,124,80,32,0
    .DB  124,20,20,20,8,0
    .DB  56,68,68,68,32,0
    .DB  4,4,124,4,4,0
    .DB  12,80,80,60,0,0
    .DB  124,84,84,40,0,0
    .DB  124,16,124,80,32,0
    .DB  60,32,96,32,60,0
    .DB  72,84,84,84,32,0
    .DB  68,84,84,40,0,0
    .DB  124,64,124,64,124,0
    .DB  2,127,10,72,48,0
    .DB  2,127,10,8,112,0
    .DB  12,16,16,124,0,0
    .DB  1,1,1,1,1,0
      
    .END