PicBasic

[Tauri]

Hi Lista

Monday, November 21, 2005, 8:23:20 PM, you wrote:


Szabo> nos, átnézve a nagy magyar bascom tutorial-t :-) elgondolkodtam
Szabo> néha milyen jó lenne percek alatt összekalapálni egy-egy programot.

Szabo> belelkesedtem, rákerestem mit árulnak manapság microchip cuccokhoz,
Szabo> itt van pl ez a picbasic pro. átfutotottam a leírását, szép, csicsa, 'igazi'
Szabo> basic.

Szabo> de. mellékszálon épp egy pici automata progiját írtam a 'szokásos'
Szabo> védelmekkel
Szabo> (ha lehalna mégis valahol, valami) és közben elgondolkodtam, miért nem
Szabo> használok magasabb szintű nyelvet : nem bízok benne.

Szabo> van valakinek tapasztalat arról, hogy ezek a
Szabo> mikrovezérlőkhöz fejlesztett
Szabo> basic-ek mennyire megbízhatóak?

Szabo> ha (tételezzek fel) a kódot gondosan megírom, igyekszem nem hagyni
Szabo> elvarratlan
Szabo> szálakat, a fordított kód, az mennyire megbízható?

Szabo> olyan helyekre rakunk cuccokat, ahová évente csak 1-2 szer járunk
Szabo> (és nem is szeretnénk többször), ilyen helyen mennyire jó ?

Szabo> vagy maradjak inkább assembler/c párosnál?

Szabo> nem igazán tudom mennyit nyerünk azzal, hogy a kód jóval rövidebb, és
Szabo> gyorsabban elkészül.


en csinaltam avr-re egy sajat forditot
pc-forditok debugolok

az utasitasokat magamnak tudom csinalni
igy ha igeny van ra csinalok egy ujat


kb igy nézz ki.




----

Y6            = O13   ; Elotolo szallag szorito
Y7            = O15   ; Tajolo ek
inCycle               = M12.0   ; ezel jelzem magamnak hogy benne vagyok egy ciklusban


        Reset   inCycle
        set     stoplampa
        reset   startlampa
        Jump    CiklusVege

Megfog:
        Reset   Y6                      ; hatul szorit
        SetTimer 15                     ; timer
        Jump    KovetkezoLepes
TovabitoElore:                          ; kocsit elore kuldi es varja hpgy oda erjen
        Fill    MireVar,1               ; bealitom a mirevar jezlot
        Reset   Y6                      ; szorito elegedese
        Set     Y5                      ; kocsi elore
        Get     /B41                    ; tovabito kocsi elol?
        !Jump   CiklusVege              ; ha nics ..
                                        ; ha elore ert akkor szoritot engedjen
        Set     Y6                      ; szallag szorito
        SetTimer 30                     ; varok hogy megszoritson
        Jump    KovetkezoLepes

TovabitoMenjenHatra:
        Fill    MireVar,2               ; kocsit hatra kuldi
        Reset   Y5                      ; kocsi vissza
        Get     /B42                    ; kocsi hatra ert
        !Jump   CiklusVege              ;
                                        ; ha hatra ert
        Reset   Y6                      ; szallag szorito
        Jump    KovetkezoLepes

;-------------------------------------------------------------------------- Kezi: Tajolo csap
kezi_csap:
; Kezi uzemmod tajolo csap
; startra lemegy
; stopra felmegy
;
; hasznalt kimenetek:
;       Y7      - tajolo csap
;

        Get     B72
        !set    startlampa
        !reset  stoplampa
        Get     /B72          ;
        !set    stoplampa
        !reset  startlampa

        Get     /StopGomb                       ; megvizsgaljuk a STOP gomb alapotat
        !Jump   kezi_csap_no_stop_gomb

        Rising  StopGomb
        !Reset  Y7                              ; csap alaphelyzetbe
        Jump    CiklusVege

        Reset   inCycle
        set     stoplampa
        reset   startlampa
        Jump    CiklusVege

Megfog:
        Reset   Y6                      ; hatul szorit
        SetTimer 15                     ; timer
        Jump    KovetkezoLepes
TovabitoElore:                          ; kocsit elore kuldi es varja hpgy oda erjen
        Fill    MireVar,1               ; bealitom a mirevar jezlot
        Reset   Y6                      ; szorito elegedese
        Set     Y5                      ; kocsi elore
        Get     /B41                    ; tovabito kocsi elol?
        !Jump   CiklusVege              ; ha nics ..
                                        ; ha elore ert akkor szoritot engedjen
        Set     Y6                      ; szallag szorito
        SetTimer 30                     ; varok hogy megszoritson
        Jump    KovetkezoLepes

TovabitoMenjenHatra:
        Fill    MireVar,2               ; kocsit hatra kuldi
        Reset   Y5                      ; kocsi vissza
        Get     /B42                    ; kocsi hatra ert
        !Jump   CiklusVege              ;
                                        ; ha hatra ert
        Reset   Y6                      ; szallag szorito
        Jump    KovetkezoLepes

;-------------------------------------------------------------------------- Kezi: Tajolo csap
kezi_csap:
; Kezi uzemmod tajolo csap
; startra lemegy
; stopra felmegy
;
; hasznalt kimenetek:
;       Y7      - tajolo csap
;

        Get     B72
        !set    startlampa
        !reset  stoplampa
        Get     /B72          ;
        !set    stoplampa
        !reset  startlampa

        Get     /StopGomb                       ; megvizsgaljuk a STOP gomb alapotat
        !Jump   kezi_csap_no_stop_gomb

        Rising  StopGomb
        !Reset  Y7                              ; csap alaphelyzetbe
        Jump    CiklusVege

----