manos_ir Απρίλιος 21, 2010 #2801 Απρίλιος 21, 2010 Μα πάντα γίνεται πόλεμος.....ήθελα ανανέωση στο πρόγραμμά μου (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 Απρίλιος 22, 2010 #2802 Απρίλιος 22, 2010 Ναι γ@μοοοοοο ..ΝΑΙΙΙΙΙΙ!Όπλο-Σώμα κατάταξης: ΠΕΖΙΚΟΚέντρο κατάταξης: 6 ΣΠΗμερομηνία κατάταξης: 13-05-2010
Vagouridis Απρίλιος 22, 2010 #2804 Απρίλιος 22, 2010 Ναι γ@μοοοοοο ..ΝΑΙΙΙΙΙΙ!Όπλο-Σώμα κατάταξης: ΠΕΖΙΚΟΚέντρο κατάταξης: 6 ΣΠΗμερομηνία κατάταξης: 13-05-2010Καλα το πεζικο δεν ειναι και κατι το τρομερο.........Γενικοτερα παιζει ρολο η μοναδα που θα καταληξεις ....Το κέντρο ειναι μεγάλος χαβαλές....(ειδικα εαν εκτελεις και χρεη λοχια ....)
ea6gka Απρίλιος 22, 2010 #2806 Απρίλιος 22, 2010 αντε αντε γιατι μου εγινε θρεφταρι απο το πολυ φαι! λογικα στο στρατο θα βαλει και αλλα
GeorgeVasil Απρίλιος 22, 2010 #2807 Απρίλιος 22, 2010 Καλα το πεζικο δεν ειναι και κατι το τρομερο.........Γενικοτερα παιζει ρολο η μοναδα που θα καταληξεις .... Το κέντρο ειναι μεγάλος χαβαλές....(ειδικα εαν εκτελεις και χρεη λοχια ....) Δεν χαιρομαι για το Πεζικο..(Μηχανικο ηταν να με παρουν κανονικα λογο πτυχιου)..χαιρομαι γιατι εκοψα την αναβολη 15 μαρτιου και θα εμπενα August..και δεν την παλευω εδω. αντε αντε γιατι μου εγινε θρεφταρι απο το πολυ φαι! Ασε ρε...συσσωρευμένη εμπειρία την λεει ο Αρης.. λογικα στο στρατο θα βαλει και αλλα Και αλα?? Γιατι ποσα εχω βαλλει ρε??
ea6gka Απρίλιος 22, 2010 #2808 Απρίλιος 22, 2010 που να ξερω ποσα εχεις βαλλει ρα , αλλα οσα και να εισαι υπολογιζε +5 αν πεσεις σε μοναδα ξυστρα δλδ αν εισαι n κιλα τοτε , n+5
CrazyAnt Απρίλιος 22, 2010 #2809 Απρίλιος 22, 2010 Ναι γ@μοοοοοο ..ΝΑΙΙΙΙΙΙ!Όπλο-Σώμα κατάταξης: ΠΕΖΙΚΟΚέντρο κατάταξης: 6 ΣΠΗμερομηνία κατάταξης: 13-05-2010πρωτη φορα βλεπω ανθρωπο να χαιρεται ΤΟΣΟ πολυ που φευγει φανταρος :musik009:καλη θητεια ΝΕΟστην αδεια ορκομοσιας ελα να τελιωσουμε το ΠιΣι :094:Βιον Ανθοσπαρτον Παρη & Στελλα με πολλα Vagourakia :finger010::finger010:
Captain Απρίλιος 23, 2010 #2810 Απρίλιος 23, 2010 αντε καλη θητεια.παντως το λογικο ηταν να μπεις αυγουστο γιατι οταν σπας αναβολη δεν σε περνουν στην σειρα που ερχεται αλλα στην επομενη αυτης.παραξενο αλλα αφου το πετυχες μια χαρα δεν θα εχεις και αναμονη μεχρι αυγουστο.αντε καλο φευγιο
johnysb Απρίλιος 23, 2010 #2811 Απρίλιος 23, 2010 2 πουλακια ρωτησα πως πανε στον Αυλωνα, το ενα μου 'πε αναβολη,το αλλο αυτοκτονα. sakura GV μονο εσυ χαιρεσαι Παρη να ζησετε
GeorgeVasil Απρίλιος 23, 2010 #2812 Απρίλιος 23, 2010 2 πουλακια ρωτησα πως πανε στον Αυλωνα, το ενα μου 'πε αναβολη,το αλλο αυτοκτονα.sakura GV μονο εσυ χαιρεσαι Παρη να ζησετε Παμε σειρα..μην μασας..:hut017:
unseen Απρίλιος 23, 2010 #2813 Απρίλιος 23, 2010 2 πουλακια ρωτησα πως πανε στον Αυλωνα, το ενα μου 'πε αναβολη,το αλλο αυτοκτονα.sakura GV μονο εσυ χαιρεσαι Παρη να ζησετε χαχαχα που το θυμηθηκες!! _nUWep7xNMs
NickL Απρίλιος 25, 2010 #2814 Απρίλιος 25, 2010 Κατεβάστε και δείτε το ντοκυμαντέρ του Κούλογλου, Apology of an economic hitman.Κέρδισε το βραβείο κοινού στο Διεθνές Φεστιβάλ Κινηματογράφου και Ανθρωπίνων Δικαιωμάτων που διεξάγεται στη Σαραγόσα.Όσοι έχετε δει το zeitgeist θα έχετε ήδη μια γεύση περί τίνος πρόκειται.
GeorgeVasil Απρίλιος 25, 2010 #2815 Απρίλιος 25, 2010 Κατεβάστε και δείτε το ντοκυμαντέρ του Κούλογλου, Apology of an economic hitman.Κέρδισε το βραβείο κοινού στο Διεθνές Φεστιβάλ Κινηματογράφου και Ανθρωπίνων Δικαιωμάτων που διεξάγεται στη Σαραγόσα.Όσοι έχετε δει το zeitgeist θα έχετε ήδη μια γεύση περί τίνος πρόκειται.Roger!:finger008:
Dr.Paneas Απρίλιος 26, 2010 #2816 Απρίλιος 26, 2010 οσοι αναρωτιέστε τι έκανα τις τελευταίες 24 ώρες . . . . . .BUTTON SEGMENT BITRSEG BUTTONTEST: DBIT 1CSEG AT 0SCAN_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 25HDEKADES EQU 26HD7S_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, 78hHALT: JMP HALTendΠλέον μπορώ να αναπαυθώ εν ειρήνη. RIP.
Vagouridis Απρίλιος 26, 2010 #2818 Απρίλιος 26, 2010 assembly ειναι ....Ρε Πανεα γιατι ασχολεισαι με τοσο απαρχαιωμενες γλωσσες?
jax7480 Απρίλιος 26, 2010 #2819 Απρίλιος 26, 2010 Γιατι με το ΔΝΤ που ερχεται βλεπω να μενουμε με κανα Ζ80....
eleven Απρίλιος 26, 2010 #2820 Απρίλιος 26, 2010 οσοι αναρωτιέστε τι έκανα τις τελευταίες 24 ώρες . . . Δοκτωρ Π να σου πω την αμαρτία μου εγω δεν αναρωτιόμουνα ........... Αναρωτιέμαι όμως γιατί αντί να :liebe006: εσυ :094:
Recommended Posts
Archived
This topic is now archived and is closed to further replies.