Tässäpä ohje kuinka rakennat itse tietokone ohjatun joulukuusen
kierrätysmateriaaleista.

Ainakin kerran olen tätä pitänyt mukanani assembly tapahtumassa hartwal areenalla olikohan se vuonna 2002.
Pyydän etukäteen lukijoiltani anteeksi tämän sivun hutaisten tehtyä asettelua mutta väsäsin tämän kiireessä yöllä.
saadustani palautteesta riippuen voin vielä täydentää tätä rakenteluohjetta. Sähköpostiosoite: markovanhanen(at)luukku.com
 Ledejä löytää paljon roskiksista lasten rikkinäisistä leluistä ja poppi-vehkeistä.
Kuusen voi yhdistää sitten itserakennettuun tietokoneeseen jonka ominaisuuksiin kuuluu laskukone joka osaa laskea auringon nousu- ja laskuajat
jolloin kuusen valot syttyvät tietokoneen ohjaamana juuri silloin kun aurinko laskee ja valojen sammuminen voidaan ajoittaa auringon nousuun.
 Nousu ja laskuajat lasketaan käyttäjän syöttämän paikkatiedon perusteella maapallolla (magnitudi ja latitudi) sekä ajassa olevan reoliaikellon avulla,
olipa joulukuusi hawajilla taikka antartiksella voi se silti toimia kuin kotona ollessaan ja näin lievittää kotimaanikävää väläyttelemällä synnyinmaan tahtiin
kuusen valojaan. Mikäänhän ei estä pitämästä kuusta jatkuvasti toimintatilassa jolloinka se itsestään herää toimintaan joulukuun ensimmäisenä päivänä ja
sammuttamaan itsensä loppiaisena.
 Ja ohjelmointina voi käyttää ohjelmaa joka vilkuttaa joulukuun päivämäärä numeroita kuusen lampuista muodostuvasta näytöstä, päivämäärä tiedon kone hakee omasta
realiaika kello prosessoristansa. On myös mahdollista kehittää nettisaitti josta käsin kuka tahansa voi ohjata joulukuustasi näin pysyt jatkuvasti joulun pyhinäkin
tiukasti kiinni tietoyhteiskunnassa mukana.



Kuusessa on 80 kappaletta LED-valoja joita voidaan ohjata tietokoneen sarjaportin välityksellä, myöskään mikään ei estä laittamasta tähän väliin modeemiyhteyttä jonka
välityksellä kuusta voi ohjata matkojenkin päästä. Rajana on vain puhelinverkon laajuus.
 Myöskään valojen määrää voidaan lisätä äärettömästi, tällöin on tämä asia huomioitava ohjaavassa ohjelma koodissa joka myöskin tulee sovittaa käytettyjen  valojen määrään.
Sarjaportin tulee toimia 9600 N81 nopeudella ja laitan mukaan sarjaportti-kaapelin kytkentäohjeen. Koska datan vastaanotto on toteutettu yksinkertaisella mahdollisella tavalla,
käyttäen smith-trigger piirejä sekä siirtorekisteri (4094) logiikka piirejä sarjaan kytkettynä.
 Kuusen latvassa on omaa elämäänsä pitävä latvatähti jonka 20 kpl. ledejä kiertävät omaan tahtiinsa. Jokainen voi suunnitella oman mallisensa latvatähden.
 


Kotelona olen käyttänyt vanhaa ulkoisen levykeaseman koteloa joka on lojunut miljoonalaatikossani ihan vain tätä projektia odotellen.
Jokainen ledi on johdotettu emolevyltä omalla johdollaan, johdot on piilotettu kahden kuusen muotoon leikattujen levyjen väliin.
Levyt nyt sattuvat olemaan tässä yksilössä siniset, näin pääsi käymään kun ei tällä hetkellä levyvarastossani sattunut muun värisiä levyjä olemaan.
Materiaali valinnoissa voi käyttää mielikuvitustaan, projektia helpottaa kun käytettävä materiaali on helposti työstettävissä.



Muista varovaisuus verkko jännitteisten osien rakentelussa ottamalla huomioon turvallisuusmääräykset taikka käyttämällä ulkoista virtalähdettä.
Virtalähteen regulaattorit on sijoitettu jäähdytyksen kannalta alumiiniseen laitekoteloon.



Tässä on kuvaa vanhan läppäirin mustavalkoiselta nestekide ruudulta joka ohjaa joulukuusta, jolloinka näytössä näkyy realiajassa ledien
syttymiset ja sammumiset. Ohjelmalla voidaan myöskin laatia uusia välkyntä ohjelmia. Mukavaa tässä on että vanha rousku ei pidä käydessään
minkäänlaista ääntä jolloin kovalevyn pyörimisen loputtua laite on täysin äänetön.



RS-232 liitännällä ohjattu siirtorekisteri kytkentä.
Koska ledeille 5V:n jännite on liian suuri täytyy 4094 piirin ja ledin väliin kytkeä sopivan suuruinen virtaa rajoittava sarjavastus.



Juokseva valo kytkentä latvakuusen valojen ohjaamiseen



Komponenttien asettelu kuva ja sarjaporttikaapelin rakennusohje. Tuossa piirilevyllä on oikealla puolella paikka kahdelle juokseva-valo
kytkennälle joista on rakennettu latvatähti. Muistaakseni tässä kytkentä kuvassa oli joitakin pikku puutteita mutta edistyneelle
rakentelijalle niiden löytäminen ei tuota ylivoimaisia vaikeuksia.



Piirilevyn syövytys maski. Piirilevy on kaksipuoleinen mutta rakentaminen onnistuu yksipuolista piirilevyä käyttämällä. Kunhan vaan
toteuttaa jumpperilangoilla tarvittavat kytkennät komponenttipuolelle.

Tässä Qbasic ohjelma jolla kuusta voidaan ohjata ja ohjelmoida:

1 RANDOMIZE TIMER: SCREEN 8: KEY OFF: CLOSE #1
2 CLS : DIM C(18, 11): DIM D(18, 11)
3 LINE (60, 110)-(90, 80), 1, BF
5 CIRCLE (75, 96), 5, 14, , , .6: GET (67, 91)-(83, 101), D: CLS
6 CIRCLE (75, 96), 3, 12, , , .6: PAINT (75, 96), 12
7 V = 15: PSET (74, 95), V: PSET (73, 95), V: PSET (74, 94), V: PSET (72, 95), V
8 GET (67, 91)-(83, 101), C
11 V = 15: PSET (74, 95), V: PSET (73, 95), V: PSET (74, 94), V: PSET (72, 95), V
12 GET (67, 91)-(83, 101), C
16 V = 4: TOINEN = 1: RIVIT = 1100: RIV = 1: S = 0
17 CLS
18 DIM A(160)
19 DIM B(80)
20 OPEN "com1:9600,n,8,1" FOR OUTPUT AS #1
48 M = 1
49 CIRCLE (242, -22), 125, M, 4.63, 5.4, .3
50 CIRCLE (197, 16), 34, M, 4.4, 0, .8
51 CIRCLE STEP(-45, 26), 34, M, 4.4, 0, .8
52 CIRCLE STEP(-45, 26), 34, M, 4.4, 0, .8
53 CIRCLE STEP(-45, 26), 34, M, 4.4, 0, .8
54 CIRCLE STEP(-45, 26), 34, M, 4.4, 0, .8
55 CIRCLE (215, 122), 224, M, 3.5, 5.2, .3
56 CIRCLE (400, -22), 125, M, 4.03, 4.8, .3
57 CIRCLE (445, 16), 34, M, 3.15, 5.03, .8
58 CIRCLE STEP(45, 26), 34, M, 3.15, 5.03, .8
59 CIRCLE STEP(45, 26), 34, M, 3.15, 5.03, .8
60 CIRCLE STEP(45, 26), 34, M, 3.15, 5.03, .8
61 CIRCLE STEP(45, 26), 34, M, 3.15, 5.03, .8
62 CIRCLE (426, 122), 224, M, 4.225, 5.9, .3
70 PAINT (150, 100), 1
100 FOR k = 1 TO 80
101 READ A: X = A
102 READ A: Y = A
103 CIRCLE (X, Y), 5, V, , , .6
104 NEXT k
178 V = 7
179 RESTORE
180 FOR NUMERO = 1 TO 80
181 READ A: X = A + 12
182 READ A: Y = A + 3
192 W = INT(NUMERO / 10)
200 IF W = 0 THEN GOTO 240
210 ON W GOSUB 350, 360, 370, 380, 390, 400, 410, 420, 430, 440
220 PSET (X, Y), V
230 DRAW T$
240 U = NUMERO - (W * 10)
250 X = X + 5
260 IF U = 0 THEN U = 10
270 ON U GOSUB 350, 360, 370, 380, 390, 400, 410, 420, 430, 440
280 PSET (X, Y), V: DRAW T$
290 NEXT NUMERO
300 GOTO 450
350 T$ = "u6": RETURN
360 T$ = "l3u3r3u3l3": RETURN
370 T$ = "l3r3u3l3r3u3l3": RETURN
380 T$ = "u6d3l3u3": RETURN
390 T$ = "l3r3u3l3u3r3": RETURN
400 T$ = "u3l3d3r3u3l3u3r3": RETURN
410 T$ = "u6l3": RETURN
420 T$ = "l3u6r3d6u3l3": RETURN
430 T$ = "l3r3u6l3d3r3": RETURN
440 T$ = "l3u6r3d6": RETURN
450 FOR k = 1 TO 80: REM LED:n nollaus kuusesta
451 PRINT #1, CHR$(0);
452 NEXT k
453 RESTORE
455 FOR osoite = 4501 TO 4580: REM muistin puhdistus
456 POKE (osoite), 0
457 NEXT osoite
500 LOCATE 2, 55: PRINT "98=luetaan ledset.dat"
501 LOCATE 3, 55: PRINT "99=lamppujen sammutus"
502 LOCATE 6, 1: PRINT " 1100  = rivinumero"
503 LOCATE 2, 1: PRINT "ohjelmoi rivit 1100-1149"
504 LOCATE 4, 55: PRINT "97=ajetaan ohjelma"
508 LOCATE 4, 1: PRINT "sytytett"v" LED:"
509 LEDSET = 0
510 LOCATE 5, 1: INPUT "LEDSET"; LEDSET
511 LOCATE 5, 9: PRINT "     "
512 IF LEDSET = 98 THEN LOCATE 6, 1: PRINT "       =": GOTO 590
513 IF LEDSET = 99 THEN GOTO 950
514 IF LEDSET = 97 THEN LOCATE 6, 1: PRINT "       =": GOTO 600
515 IF LEDSET = 0 THEN GOTO 581
516 IF LEDSET > 80 THEN GOTO 510
528 RESTORE: REM sytytet""n PC:n n"yt"lle oikea LED
530 FOR k = 1 TO 80
531 READ A: X = A - 8
532 READ A: Y = A - 5
540 IF k = LEDSET THEN PUT (X, Y), C, XOR: XR = X: YR = Y: k = 80
550 NEXT k
553 FOR k = 1 TO 2
554 PUT (XR, YR), C, XOR
559 NEXT k
560 osoite = 4500 + LEDSET
561 POKE (osoite), 1
565 FOR osoite = 4580 TO 4501 STEP -1
566 IF PEEK(osoite) = 1 THEN PRINT #1, CHR$(255);
567 IF PEEK(osoite) = 0 THEN PRINT #1, CHR$(0);
568 NEXT osoite
580 GOTO 510
581 IF TOINEN = 1 THEN GOTO 585
582 TOINEN = 2
585 GOSUB 900
586 FOR osoite = 4501 TO 4580
587 POKE (osoite), 0
588 NEXT osoite
589 GOTO 950
590 CHAIN "c:\basohj\datat.dat"
599 REM sytytet""n kuusen ledit
600 RESTORE 1100: GOTO 650
601 RESTORE 1101: GOTO 650
602 RESTORE 1102: GOTO 650
603 RESTORE 1103: GOTO 650
604 RESTORE 1104: GOTO 650
605 RESTORE 1105: GOTO 650
606 RESTORE 1106: GOTO 650
607 RESTORE 1107: GOTO 650
608 RESTORE 1108: GOTO 650
609 RESTORE 1109: GOTO 650
610 RESTORE 1110: GOTO 650
611 RESTORE 1111: GOTO 650
612 RESTORE 1112: GOTO 650
613 RESTORE 1113: GOTO 650
614 RESTORE 1114: GOTO 650
615 RESTORE 1115: GOTO 650
616 RESTORE 1116: GOTO 650
617 RESTORE 1117: GOTO 650
618 RESTORE 1118: GOTO 650
619 RESTORE 1119: GOTO 650
620 RESTORE 1120: GOTO 650
621 RESTORE 1121: GOTO 650
622 RESTORE 1122: GOTO 650
623 RESTORE 1123: GOTO 650
624 RESTORE 1124: GOTO 650
625 RESTORE 1125: GOTO 650
626 RESTORE 1126: GOTO 650
627 RESTORE 1127: GOTO 650
628 RESTORE 1128: GOTO 650
629 RESTORE 1129: GOTO 650
630 RESTORE 1130: GOTO 650
631 RESTORE 1131: GOTO 650
632 RESTORE 1132: GOTO 650
633 RESTORE 1133: GOTO 650
634 RESTORE 1134: GOTO 650
635 RESTORE 1135: GOTO 650
636 RESTORE 1136: GOTO 650
637 RESTORE 1137: GOTO 650
638 RESTORE 1138: GOTO 650
639 RESTORE 1139: GOTO 650
640 RESTORE 1140: GOTO 650
641 RESTORE 1141: GOTO 650
642 RESTORE 1142: GOTO 650
643 RESTORE 1143: GOTO 650
644 RESTORE 1144: GOTO 650
645 RESTORE 1145: GOTO 650
646 RESTORE 1146: GOTO 650
647 RESTORE 1147: GOTO 650
648 RESTORE 1148: GOTO 650
649 RESTORE 1149: GOTO 650
650 FOR osoite = 4580 TO 4501 STEP -1: REM luetaan muistiin ledit
652 READ LED
653 POKE osoite, LED
655 SX = 1149 - (S + 1): LOCATE 6, 1: PRINT SX
656 NEXT osoite
660 RESTORE: REM sammutetaan PC:n n"yt"n LEDt
670 FOR k = 1 TO 80
675 READ A: X = A - 8
676 READ A: Y = A - 5
677 PUT (X, Y), D, AND
678 NEXT k
680 FOR osoite = 4501 TO 4580: REM sytytet""n kuusen ledit
681 IF PEEK(osoite) = 0 THEN PRINT #1, CHR$(0);  ELSE PRINT #1, CHR$(255);
682 NEXT osoite
690 FOR VIIPE = 1 TO 50
691 NEXT VIIPE
702 RESTORE
710 FOR osoite = 4580 TO 4501 STEP -1: REM sytytet""n n"yt"n ledit
730 IF PEEK(osoite) = 1 THEN READ A: X = A - 8: READ A: Y = A - 5: PUT (X, Y), C
731 IF PEEK(osoite) = 0 THEN READ A: X = A - 8: READ A: Y = A - 5: PUT (X, Y), D, AND
740 NEXT osoite
800 IF S = 0 THEN S = 49
801 IF S = 49 THEN S = S - 1: GOTO 601
802 IF S = 48 THEN S = S - 1: GOTO 602
803 IF S = 47 THEN S = S - 1: GOTO 603
804 IF S = 46 THEN S = S - 1: GOTO 604
805 IF S = 45 THEN S = S - 1: GOTO 605
806 IF S = 44 THEN S = S - 1: GOTO 606
807 IF S = 43 THEN S = S - 1: GOTO 607
808 IF S = 42 THEN S = S - 1: GOTO 608
809 IF S = 41 THEN S = S - 1: GOTO 609
810 IF S = 40 THEN S = S - 1: GOTO 610
811 IF S = 39 THEN S = S - 1: GOTO 611
812 IF S = 38 THEN S = S - 1: GOTO 612
813 IF S = 37 THEN S = S - 1: GOTO 613
814 IF S = 36 THEN S = S - 1: GOTO 614
815 IF S = 35 THEN S = S - 1: GOTO 615
816 IF S = 34 THEN S = S - 1: GOTO 616
817 IF S = 33 THEN S = S - 1: GOTO 617
818 IF S = 32 THEN S = S - 1: GOTO 618
819 IF S = 31 THEN S = S - 1: GOTO 619
820 IF S = 30 THEN S = S - 1: GOTO 620
821 IF S = 29 THEN S = S - 1: GOTO 621
822 IF S = 28 THEN S = S - 1: GOTO 622
823 IF S = 27 THEN S = S - 1: GOTO 623
824 IF S = 26 THEN S = S - 1: GOTO 624
825 IF S = 25 THEN S = S - 1: GOTO 625
826 IF S = 24 THEN S = S - 1: GOTO 626
827 IF S = 23 THEN S = S - 1: GOTO 627
828 IF S = 22 THEN S = S - 1: GOTO 628
829 IF S = 21 THEN S = S - 1: GOTO 629
830 IF S = 20 THEN S = S - 1: GOTO 630
831 IF S = 19 THEN S = S - 1: GOTO 631
832 IF S = 18 THEN S = S - 1: GOTO 632
833 IF S = 17 THEN S = S - 1: GOTO 633
834 IF S = 16 THEN S = S - 1: GOTO 634
835 IF S = 15 THEN S = S - 1: GOTO 635
836 IF S = 14 THEN S = S - 1: GOTO 636
837 IF S = 13 THEN S = S - 1: GOTO 637
838 IF S = 12 THEN S = S - 1: GOTO 638
839 IF S = 11 THEN S = S - 1: GOTO 639
840 IF S = 10 THEN S = S - 1: GOTO 640
841 IF S = 9 THEN S = S - 1: GOTO 641
842 IF S = 8 THEN S = S - 1: GOTO 642
843 IF S = 7 THEN S = S - 1: GOTO 643
844 IF S = 6 THEN S = S - 1: GOTO 644
845 IF S = 5 THEN S = S - 1: GOTO 645
846 IF S = 4 THEN S = S - 1: GOTO 646
847 IF S = 3 THEN S = S - 1: GOTO 647
848 IF S = 2 THEN S = S - 1: GOTO 648
849 IF S = 1 THEN S = 0: GOTO 649
900 RIVI$ = "     DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
910 osoite = 4501
911 P = 11
915 FOR k = 1 TO 80
920 IF PEEK(osoite) = 1 THEN MID$(RIVI$, P, 1) = "1"
921 P = P + 2
922 osoite = osoite + 1
925 NEXT k
930 RIVIS$ = STR$(RIVIT)
931 RIVIS$ = MID$(RIVIS$, 2, 4)
932 MID$(RIVI$, 1, 4) = RIVIS$
935 IF RIVIT = 1100 THEN OPEN "O", #2, "datat.dat"
936 IF RIVIT > 1100 THEN OPEN "A", #2, "datat.dat"
940 PRINT #2, RIVI$
941 RIVIT = RIVIT + 1: RIV = RIV + 1: LOCATE 6, 1: PRINT RIVIT
942 CLOSE #2
944 IF RIVIT = 1150 THEN LOCATE 6, 1: PRINT "       =": GOTO 600
945 RETURN
950 REM sammutetaan kuusen ledit
951 FOR k = 1 TO 80
952 PRINT #1, CHR$(0);
953 NEXT k
955 REM saamutetaan n"yt"n ledit
956 RESTORE
957 FOR k = 1 TO 80
958 READ A: X = A - 8
959 READ A: Y = A - 5
960 PUT (X, Y), D, AND
961 NEXT k
965 GOTO 510
1001 DATA 250,22
1002 DATA 299,22
1003 DATA 343,22
1004 DATA 392,22
1005 DATA 259,32
1006 DATA 383,32
1007 DATA 321,38
1008 DATA 208,48
1009 DATA 244,48
1010 DATA 279,48
1011 DATA 363,48
1012 DATA 397,48
1013 DATA 435,48
1014 DATA 259,60
1015 DATA 321,60
1016 DATA 383,60
1017 DATA 219,70
1018 DATA 279,70
1019 DATA 363,70
1020 DATA 423,70
1021 DATA 321,78
1022 DATA 156,86
1023 DATA 199,86
1024 DATA 239,86
1025 DATA 279,86
1026 DATA 321,92
1027 DATA 363,86
1028 DATA 403,86
1029 DATA 443,86
1030 DATA 486,86
1031 DATA 219,98
1032 DATA 423,98
1033 DATA 119,107
1034 DATA 179,107
1035 DATA 259,107
1036 DATA 321,112
1037 DATA 383,107
1038 DATA 463,107
1039 DATA 513,107
1040 DATA 149,115
1041 DATA 493,115
1042 DATA 79,125
1043 DATA 129,125
1044 DATA 189,125
1045 DATA 239,125
1046 DATA 279,127
1047 DATA 321,129
1048 DATA 363,127
1049 DATA 403,125
1050 DATA 453,125
1051 DATA 513,125
1052 DATA 563,125
1053 DATA 149,138
1054 DATA 199,138
1055 DATA 269,140
1056 DATA 373,140
1057 DATA 443,138
1058 DATA 493,138
1059 DATA 109,150
1060 DATA 189,150
1061 DATA 239,150
1062 DATA 321,153
1063 DATA 403,150
1064 DATA 453,150
1065 DATA 533,150
1066 DATA 70,165
1067 DATA 149,165
1068 DATA 199,165
1069 DATA 239,166
1070 DATA 279,168
1071 DATA 321,170
1072 DATA 363,168
1073 DATA 403,166
1074 DATA 443,165
1075 DATA 493,165
1076 DATA 568,165
1077 DATA 179,180
1078 DATA 259,180
1079 DATA 383,180
1080 DATA 463,180
1100 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1101 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1102 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1103 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1104 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1105 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1106 DATA 1,0,0,0,1,0,0,1,1,0,0,0,0,1,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1107 DATA 0,1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0
1108 DATA 0,1,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,1,1,0,1,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,0
1109 DATA 0,0,0,1,0,1,0,0,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1
1110 DATA 0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0
1111 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1112 DATA 0,0,0,0,0,0,1,0,0,1,1,0,0,1,1,1,0,1,1,0,1,0,0,1,1,1,1,1,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,1,1,0,0,0,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
1113 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1114 DATA 1,1,1,1,1,1,1,1,1,0,0,1,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,0,1,1,0,0,1,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1115 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1116 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1117 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1118 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1119 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1120 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1121 DATA 1,0,0,1,1,1,0,1,0,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0
1122 DATA 0,1,1,0,0,0,0,0,0,1,1,0,0,1,0,1,0,1,1,0,0,0,0,1,0,0,0,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,1,0,1,0,0,1
1123 DATA 0,1,1,0,0,0,1,0,0,1,1,0,0,0,1,0,0,1,1,0,1,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,0
1124 DATA 0,1,1,0,1,1,0,0,0,1,1,0,0,1,0,1,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,1,1,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0
1125 DATA 0,1,1,0,1,1,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,0,1,1,0,0,0,1,1,0,0,1,1,0,0,1,1,1,1,0,0,0,1,1,1,1,1,0,0,0,0,0,1,1,1,1,0,0,1
1126 DATA 1,0,1,0,0,1,0,0,0,1,0,1,0,0,0,0,1,0,0,1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,1,0,1,0
1127 DATA 0,1,0,1,0,0,0,0,1,0,0,0,1,0,1,0,1,1,1,1,0,0,1,0,0,0,0,0,1,0,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,0,0,0,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,1,0
1128 DATA 1,1,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,0,0,1,0,0,1,0,1,0,1,0,1,1,0,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,1,0,0,1,0,0,1,0,1,1,1,1,1
1129 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1130 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1131 DATA 0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1
1132 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1133 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,1
1134 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,0
1135 DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,0,0
1136 DATA 0,0,1,1,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,0,0,0,1,1,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1137 DATA 1,1,0,0,1,0,0,1,1,0,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1138 DATA 0,1,1,1,0,1,1,0,0,0,1,1,1,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1139 DATA 1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1140 DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1,1,1,0,0,0,0,0,0,1,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0
1141 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,1,1,1
1142 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0
1143 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,0
1144 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1
1145 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,0,0,0,1,1,0,0,1,1,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0
1146 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,1,1,0,0,0,0,0,1,1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1147 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1148 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1149 DATA 0,0,1,1,0,1,0,0,0,0,1,1,1,0,0,1,0,0,1,1,0,0,0,0,0,1,1,1,1,0,0,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,1,1,0,0,1,1

Linkki Z80 prosessorin laskentatietokoneelle