OffTopic;

[manos_ir]

Μα πάντα γίνεται πόλεμος.....

ήθελα ανανέωση στο πρόγραμμά μου (cosmote) και πήγαινα και μου δίνανε 80 ευρω επιδότηση για το ενα νούμερο και 70 για το 2ο......

περιμένω.....έρχεται πασχα...προσφορά wind.....απο 300 ευρώ επιδότηση και στα 2 νούμερα....

κάνω αίτηση.....με παίρνει η comote.....γιατι φεύγετε ? .... απαντάω ειλικρινά.....

μου δίνει....10 ευρώ για ενα χρόνο καθε πάγιο κάτω....580 ευρώ επιδότηση....και 2 πάγια ανά αριθμό δώρο..... σύνολο κέρδος (200+ ευρώ το χρόνο σε σχέση με wind)

οκ λεω.....θα μείνω.....παίρνω wind να ακυρώσω....

γιατί φεύγετε ????

τους λεω τι μου έδωσε η cosmote.......

μου λεει.....επιπλέον σας κάνω δώρο ενα gps (mio) και ενα ψηφιακό αποκωδικοποιητή..... (σύνολο δώρων περίπου 180 ευρω..... + τα εξτρά που έχει η wind στα απεριόριστα της... internet + video κλισεις + mms ).......

με τα πολλά.....αποφάσισα να παραμείνω στην cosmote....πιο πολύ λόγο μειωμένου παγίου.,.....

για αυτό φίλοι μου.....παζάρια..........μη μασάτε ! ! ! !

για να μην ξεχνιόμαστε............φιλοι μου....

μετα απο ανελέητο κυνηγητό.....

παω στην wind.....:smile044: (προς το παρων ....:smile036: )

καθώς πλέον μου δινει αθροίστηκα...... 720 ευρω επιδότηση για τα 2 νούμερα (1 small + 1 medium) και.........δωρο 4 παγια για το καθε νούμερο....

αυτά προς το παρών.....γιατί από εβδομάδα...100% θα ξαναπάρει η cosmote !:brille003:

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

και με 305 +270 επιδότηση για κινητά 350+210 μου ζητούσε τα 45 ευρω του πρώτου.....ΗΜΑΡΤΩΝ.......

[GeorgeVasil]

Ναι γ@μοοοοοο ..ΝΑΙΙΙΙΙΙ!

Όπλο-Σώμα κατάταξης: ΠΕΖΙΚΟ

Κέντρο κατάταξης: 6 ΣΠ

Ημερομηνία κατάταξης: 13-05-2010

[bibis]

ωραίος!!!! μην μασάς, 9 μηνάκια=τιποτα!

[Vagouridis]

Ναι γ@μοοοοοο ..ΝΑΙΙΙΙΙΙ!

Όπλο-Σώμα κατάταξης: ΠΕΖΙΚΟ

Κέντρο κατάταξης: 6 ΣΠ

Ημερομηνία κατάταξης: 13-05-2010

Καλα το πεζικο δεν ειναι και κατι το τρομερο.........

Γενικοτερα παιζει ρολο η μοναδα που θα καταληξεις ....

Το κέντρο ειναι μεγάλος χαβαλές....(ειδικα εαν εκτελεις και χρεη λοχια ....)

[unseen]

αντε αντε γιατι μου εγινε θρεφταρι απο το πολυ φαι!

[ea6gka]

αντε αντε γιατι μου εγινε θρεφταρι απο το πολυ φαι!

λογικα στο στρατο θα βαλει και αλλα

[GeorgeVasil]

Καλα το πεζικο δεν ειναι και κατι το τρομερο.........

Γενικοτερα παιζει ρολο η μοναδα που θα καταληξεις ....

Το κέντρο ειναι μεγάλος χαβαλές....(ειδικα εαν εκτελεις και χρεη λοχια ....)

Δεν χαιρομαι για το Πεζικο..(Μηχανικο ηταν να με παρουν κανονικα λογο πτυχιου)..χαιρομαι γιατι εκοψα την αναβολη 15 μαρτιου και θα εμπενα August..και δεν την παλευω εδω.

αντε αντε γιατι μου εγινε θρεφταρι απο το πολυ φαι!

Ασε ρε...συσσωρευμένη εμπειρία την λεει ο Αρης..

λογικα στο στρατο θα βαλει και αλλα

Και αλα??

Γιατι ποσα εχω βαλλει ρε??

[ea6gka]

που να ξερω ποσα εχεις βαλλει ρα , αλλα οσα και να εισαι υπολογιζε +5 αν πεσεις σε μοναδα ξυστρα

δλδ αν εισαι n κιλα τοτε , n+5

[CrazyAnt]

Ναι γ@μοοοοοο ..ΝΑΙΙΙΙΙΙ!

Όπλο-Σώμα κατάταξης: ΠΕΖΙΚΟ

Κέντρο κατάταξης: 6 ΣΠ

Ημερομηνία κατάταξης: 13-05-2010

πρωτη φορα βλεπω ανθρωπο να χαιρεται ΤΟΣΟ πολυ που φευγει φανταρος :musik009:

καλη θητεια ΝΕΟ

στην αδεια ορκομοσιας ελα να τελιωσουμε το ΠιΣι :094:

Βιον Ανθοσπαρτον Παρη & Στελλα με πολλα Vagourakia :finger010::finger010:

[Captain]

αντε καλη θητεια.παντως το λογικο ηταν να μπεις αυγουστο γιατι οταν σπας αναβολη δεν σε περνουν στην σειρα που ερχεται αλλα στην επομενη αυτης.παραξενο αλλα αφου το πετυχες μια χαρα δεν θα εχεις και αναμονη μεχρι αυγουστο.αντε καλο φευγιο

[johnysb]

2 πουλακια ρωτησα πως πανε στον Αυλωνα, το ενα μου 'πε αναβολη,το αλλο αυτοκτονα.

sakura GV μονο εσυ χαιρεσαι

Παρη να ζησετε

[GeorgeVasil]

2 πουλακια ρωτησα πως πανε στον Αυλωνα, το ενα μου 'πε αναβολη,το αλλο αυτοκτονα.

sakura GV μονο εσυ χαιρεσαι

Παρη να ζησετε

Παμε σειρα..μην μασας..:hut017:

[unseen]

2 πουλακια ρωτησα πως πανε στον Αυλωνα, το ενα μου 'πε αναβολη,το αλλο αυτοκτονα.

sakura GV μονο εσυ χαιρεσαι

Παρη να ζησετε

χαχαχα που το θυμηθηκες!!

_nUWep7xNMs

[NickL]

Κατεβάστε και δείτε το ντοκυμαντέρ του Κούλογλου, Apology of an economic hitman.

Κέρδισε το βραβείο κοινού στο Διεθνές Φεστιβάλ Κινηματογράφου και Ανθρωπίνων Δικαιωμάτων που διεξάγεται στη Σαραγόσα.

Όσοι έχετε δει το zeitgeist θα έχετε ήδη μια γεύση περί τίνος πρόκειται.

[GeorgeVasil]

Κατεβάστε και δείτε το ντοκυμαντέρ του Κούλογλου, Apology of an economic hitman.

Κέρδισε το βραβείο κοινού στο Διεθνές Φεστιβάλ Κινηματογράφου και Ανθρωπίνων Δικαιωμάτων που διεξάγεται στη Σαραγόσα.

Όσοι έχετε δει το zeitgeist θα έχετε ήδη μια γεύση περί τίνος πρόκειται.

Roger!:finger008:

[Dr.Paneas]

οσοι αναρωτιέστε τι έκανα τις τελευταίες 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.

[redgiwrgos]

T' είν' τούτο?

[Vagouridis]

assembly ειναι ....

Ρε Πανεα γιατι ασχολεισαι με τοσο απαρχαιωμενες γλωσσες?

[jax7480]

Γιατι με το ΔΝΤ που ερχεται βλεπω να μενουμε με κανα Ζ80....

[eleven]

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

Δοκτωρ Π να σου πω την αμαρτία μου εγω δεν αναρωτιόμουνα ...........

Αναρωτιέμαι όμως γιατί αντί να :liebe006: εσυ :094: