Jump to content

Dr.Paneas

Premium Members
  • Posts

    6.635
  • Εγγραφή

  • Τελευταία Επίσκεψη

Posts posted by Dr.Paneas

  1. Μιχάλη να φανταστώ το λες γιατί σου αρέσουν...τα βερίκοκα? :musik002:

    Μάλλον τα πεπόνια θα έλεγα :D

  2. Opa Opa Opa :p

    Iceland, France, Denmark είχαν τραγουδάρες. Πήγε βγήκε η βλακία από την Γερμανία, ότι να ναι στημένα πράγματα :D

  3. Βρε παιδιά δεν λέω να χαρακτηριστείς ψυχάκιας. Αφού θα χάσεις 10 μήνες, ας κάνεις κάτι πιο δημιουργικό από το να καθαρίζεις και να μαγειρεύεις. Υπάρχει κάτι αντίστοιχο νομίζω στην διεθνή αμνηστεία αλλά δεν το έχω ψάξει.

  4. Με υγεία χαρά και κάθε ευτυχία. 26 χρονών έ ; Χεχε!

    Ελπίζουμε όλοι να βρεις μία κοπέλα και να αφήσεις τον Ανδρέα ήσυχο ( Αααααχ Ανδρέαααααα ). :D

  5. Κανένας τρόπος να μην πάμε φαντάροι παίζει ; Διεθνής αμνηστία κλπ παίζει τίποτα ;

  6. Ασε ρε GV που έχει bug το linux :p Κάνε ποδήλατο και άσε τα terminal για τους άνδρε(α)ς:musik002:

  7. Students entering this course will be expected to have at least a second class bachelor's degree in Computer Science or a cognate discipline.

    Τι είναι bachelor ; και τι είναι ο δεύτερος βαθμός ( class ) ;

    EDIT: Τα βρήκα :)

  8. Χιλάδες γυναίκες θα βάλουν ότι πιο αποκαλυπτικό έχουν και θα βγουν στο δρόμο στις 26 Απριλίου ανταπαντώντας στο κήρυγμα ενος Ιμάμη που τις καταστεί υπεύθυνες για ...σεισμικές δονήσεις.

    Ολόκληρη εκστρατεία οργάνωσε η Τζένιφερ Μακκρέιτ με σκοπό να διαψεύσει τον Ιρανό κληρικό Hojatoleslam Kazem Sedighi, ο οποίος στο Κυριακάτικο κήρυγμά του απέδωσε τους αλλεπάλληλους σεισμούς στην προκλητικότητα των γυναικών.

    Ο εν λόγω Ιμάμης ισχυρίστηκε ότι οι σέξι προκλητικές ενδυμασίες των γυναικών που ολοένα και αφαιρούν ιμάτια οφείλονται για τους …σεισμούς που συμβαίνουν στην περιοχή! Όπως είπε, "οι γυναίκες παρασύρουν τους άνδρες στην ακολασία με αποτέλεσμα την αύξηση των σεισμικών δονήσεων".

    Φαίνεται πως ο Ιμάμης γνωρίζει καλά το άσμα που λέει σεισμός, σεισμός ερωτικός

    Τις προέτρεψε μάλιστα να συνετιστούν καθώς όπως είπε αυτές φταίνε για το σεισμό που θα πλήξει τη Τεχεράνη σύντομα.

    Έτσι, σε αντεπίθεση των όσων υποστηρίζει ο κληρικός, η Τζένιφερ βάλθηκε να του δείξει ότι κάνει λάθος οργανώνοντας καμπάνια με τίτλο "Boobquake".

    Έχει μάλιστα δημιουργήσει σελίδα στο Facebook, όπου ήδη μετρά 20.000 μέλη γυναικών που υπόσχονται να λάβουν μέρος στην εκστρατεία φορώντας… μόνο τα απαραίτητα στις 26 Απριλίου.

    "Τη Δευτέρα θα βάλω ότι πιο αποκαλυπτικό έχω και θα βγώ στους δρόμους" είπε η ίδια, προτρέποντας και άλλες γυναίκες να την ακολουθήσουν.

    Παράλληλα δήλωσε αστειευόμενη "σίγουρα θα προκαλέσουμε ισχυρό σεισμό και ταραχή στους άνδρες!"

    Μένει λοιπόν να δούμε εάν ο κληρικός θα βγει αληθινός. Εάν δεν συμβεί κάποιο ανεξήγητο φυσικό φαινόμενο, τότε ας σωπάσει για πάντα…

    Πηγή: Thegreekz ;)

  9. ΟΥΑΑΑΑ Μιχάλη RESPECT :) Τα προλαβαίνω και τα δύο :p

    @Vag, το εργαστήριο μικροελεγκτέςΙΙ, θέλει μόνο Assembly. Αντε άλλα 4 προγραμμάτα, και ΤΕΡΜΑ. Υπάρχουν άτομα που το έχουν πάρει 7 φορές αυτό το εργαστήριο. Δεν έχω καμία όρεξη να κάτσω 10 χρόνια στην σχολή, οπότε "διάβασμα". Φυσικά σε C με έναν AVR γίνετα σε 10 γραμμές όλο το παραπάνω. ΑΛλά μην λέμε πάλι τα ίδια, τα ξέρει και ο Swantz ;)

  10. οσοι αναρωτιέστε τι έκανα τις τελευταίες 24 ώρες . . . . . .


    BUTTON SEGMENT BIT
    RSEG BUTTON
    TEST: DBIT 1

    CSEG AT 0
    SCAN_KBD:

    MOV R0, #11101111b
    MOV P1, R0

    /* Ksexorise tis grammes kai tis stiles */
    MOV 20H, P1 ; Save keyb input in 20h data memory

    ;Vale tis stiles stin 21 ( Bit Addressable )
    MOV A, 20H
    SWAP A
    ANL A,#00Fh
    MOV 21H, A

    ;Vale tis grammes stis 22h ( Bit Addressable )
    MOV A,20H
    ANL A, #00Fh
    MOV 22H, A


    ;Gia eukoli anagnosi tou kodika
    COL4 EQU 21h.3
    COL3 EQU 21h.2
    COL2 EQU 21h.1
    COL1 EQU 21h.0

    ROW4 EQU 22h.3
    ROW3 EQU 22h.2
    ROW2 EQU 22h.1
    ROW1 EQU 22h.0

    /* Vres tis suntetagmenes tou pliktrou pou pati8ike */

    CHANGE_STILI_1:
    /* ##################################################################################
    ########## STILI 1 ################################################################## */
    ; mouahahaha
    MOV R0, #11101111b
    MOV P1, R0

    MOV A, #11101110b ; 1 grammi
    CJNE A, P1, CHECK_GRAMMI_12 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_12:
    MOV A, #11101101b ;2 grammi
    CJNE A, P1, CHECK_GRAMMI_13 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_13:
    MOV A, #11101011b ; 3 grammi
    CJNE A, P1, CHECK_GRAMMI_14 ; an den pati8ike pane parakato stin teleutaia grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_14:
    MOV A, #11100111b ; 4 grammi
    CJNE A, P1, CHANGE_STILI_2 ; an den vrisketai sautin tin stili pane stin epomeni
    JMP KEY_HAS_PRESSED


    CHANGE_STILI_2:
    /* ##################################################################################
    ########## STILI 2 ################################################################## */
    ; mouahahaha
    MOV R0, #11011111b
    MOV P1, R0

    MOV A, #11011110b ; 1 grammi
    CJNE A, P1, CHECK_GRAMMI_22 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_22:
    MOV A, #11011101b ;2 grammi
    CJNE A, P1, CHECK_GRAMMI_23 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_23:
    MOV A, #11011011b ; 3 grammi
    CJNE A, P1, CHECK_GRAMMI_24 ; an den pati8ike pane parakato stin teleutaia grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_24:
    MOV A, #11010111b ; 4 grammi
    CJNE A, P1, CHANGE_STILI_3 ; an den vrisketai sautin tin stili pane stin epomeni
    JMP KEY_HAS_PRESSED

    CHANGE_STILI_3:
    /* ##################################################################################
    ########## STILI 3 ################################################################## */
    ; mouahahaha
    MOV R0, #10111111b
    MOV P1, R0


    MOV A, #10111110b ; 1 grammi
    CJNE A, P1, CHECK_GRAMMI_32 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_32:
    MOV A, #10111101b ;2 grammi
    CJNE A, P1, CHECK_GRAMMI_33 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_33:
    MOV A, #10111011b ; 3 grammi
    CJNE A, P1, CHECK_GRAMMI_34 ; an den pati8ike pane parakato stin teleutaia grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_34:
    MOV A, #10110111b ; 4 grammi
    CJNE A, P1, CHANGE_STILI_4 ; an den vrisketai sautin tin stili pane stin epomeni
    JMP KEY_HAS_PRESSED

    CHANGE_STILI_4:
    /* ##################################################################################
    ########## STILI 4 ################################################################## */
    ; mouahahaha
    MOV R0, #01111111b
    MOV P1, R0

    MOV A, #01111110b ; 1 grammi
    CJNE A, P1, CHECK_GRAMMI_42 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_42:
    MOV A, #01111101b ;2 grammi
    CJNE A, P1, CHECK_GRAMMI_43 ; an den pati8ike pane parakato stin alli grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_43:
    MOV A, #01111011b ; 3 grammi
    CJNE A, P1, CHECK_GRAMMI_44 ; an den pati8ike pane parakato stin teleutaia grammi
    JMP KEY_HAS_PRESSED

    CHECK_GRAMMI_44:
    MOV A, #01110111b ; 4 grammi
    CJNE A, P1, CHANGE_STILI_1 ; an den vrisketai sautin tin stili pane stin epomeni
    JMP KEY_HAS_PRESSED



    ;-------------------------------------------------------------------------------------------
    KEY_HAS_PRESSED:

    ;RECONFIGURE VARIABLES with new matched data

    MOV 20H, P1 ; Save keyb input in 20h data memory

    ;Vale tis stiles stin 21 ( Bit Addressable )
    MOV A, 20H
    SWAP A
    ANL A,#00Fh
    MOV 21H, A

    ;Vale tis grammes stis 22h ( Bit Addressable )
    MOV A,20H
    ANL A, #00Fh
    MOV 22H, A

    ;-------------------------------------------------------------------------------------------

    /* Fetch the collum and save R2 = Collum Counter */

    JNB COL1, ACTIVE_COL_1
    JNB COL2, ACTIVE_COL_2
    JNB COL3, ACTIVE_COL_3
    JNB COL4, ACTIVE_COL_4

    ACTIVE_COL_1:
    MOV R2,#0h
    CALL SCANROWS
    ACTIVE_COL_2:
    MOV R2,#1h
    CALL SCANROWS
    ACTIVE_COL_3:
    MOV R2,#2h
    CALL SCANROWS
    ACTIVE_COL_4:
    MOV R2,#3h
    CALL SCANROWS

    ;-------------------------------------------------------------------------------------------

    /* Fetch the collum and save R4 = Row Counter */

    SCANROWS:
    JNB ROW1, ACTIVE_ROW_1
    JNB ROW2, ACTIVE_ROW_2
    JNB ROW3, ACTIVE_ROW_3
    JNB ROW4, ACTIVE_ROW_4

    ACTIVE_ROW_1:
    MOV R4, #0h
    CALL KEYCODE
    ACTIVE_ROW_2:
    MOV R4, #1h
    CALL KEYCODE
    ACTIVE_ROW_3:
    MOV R4, #2h
    CALL KEYCODE
    ACTIVE_ROW_4:
    MOV R4, #3h
    CALL KEYCODE

    ;-------------------------------------------------------------------------------------------

    /* Upologise ton monadiko kodiko gia kathe pliktro me tin
    formula: COL x4 + Line */

    KEYCODE:

    MOV A, R2 ; O R2 exei tin stili ( 0, 1, 2, 3 )
    MOV B, #4h ; anagkastika gia logous pollaplsiasmou, kano xrisi tou B
    MUL AB ; Ginete i praksi: COL x4
    ADD A,R4 ; O R4 exei tin grami ( 0, 1, 2, 3 )

    MOV R5, A ; O kodikos apo8ikevetai ston R5

    ;-------------------------------------------------------------------------------------------

    GETAXIA:
    mov DPTR,#KEYFONT
    MOV A,R5
    MOVC A,@A+DPTR

    ;-------------------------------------------------------------------------------------------

    MONADES EQU 25H
    DEKADES EQU 26H


    D7S_HEX:
    /* Convert Monades */
    mov r7,a ; Vale ton ari8mo pou edose o xristis, ston R7
    anl a,#00fh ; Krata to Low Nibble
    call getfont ; Vres to Font
    MOV MONADES,A ; Apo8ikeuse to stis MONADES

    /* Convert Dekades */
    mov a,r7 ; Vale KSANA ton ari8mo pou edose o xristis, ston R7
    swap A ; Kane antimeta8esi ta Nibbles
    anl a,#00fh ; Krata to Low Nibble pou meta to swap antistixei sto High Nibble
    call getfont ; Vres to Font
    MOV DEKADES,A ; Apo8ikeuse to stis DEKADES

    ;-------------------------------------------------------------------------------------------

    SCAN_D7S:
    MOV P2,MONADES
    CLR P3.4

    ;-------------------------------------------------------------------------------------------
    JMP SCAN_KBD

    KEYFONT: DB 1h, 4h, 7h, 0Eh, 2h, 5h, 8h, 0h, 3h, 6h, 9h, 0Fh, 0Ah, 0Bh, 0Ch, 0Dh

    GETFONT:
    MOV DPTR,#FONTTABLE
    MOVC A,@A+DPTR
    RET

    FONTTABLE: DB 22h, 0AFh, 31h, 25h, 0ACh, 064h, 60h, 2Fh
    DB 20h, 24h, 28h, 0E0h, 72h, 0A1h, 70h, 78h
    HALT: JMP HALT
    end

    Πλέον μπορώ να αναπαυθώ εν ειρήνη. RIP.

  11. Οχι ρε γμτ..Προλαβες να παιξεις καθολου??

    Ειμαστε στον Ανδρεα εγω με τον Koumle. O Ninja προσπαθει μάταια να κανει το PC να παίξει, αλλά δεν μπουτάρει λόγω μνημών. Ξεπακετάρουμε το Xbox ( από το κουτί). Πατάμε (πριν το φλασάρουμε) το Power και βγαζει προβλημα :brutal017::brutal017::brutal017::brutal017:

    Μετά ήρθε ο Νίκος να του δώσω την MSI και τον 754. Είδε και το benchtable :p

×
×
  • Δημιουργία...

Important Information

Ο ιστότοπος theLab.gr χρησιμοποιεί cookies για να διασφαλίσει την καλύτερη εμπειρία σας κατά την περιήγηση. Μπορείτε να προσαρμόσετε τις ρυθμίσεις των cookies σας , διαφορετικά θα υποθέσουμε ότι είστε εντάξει για να συνεχίσετε.