Jump to content

JohnSmith

INpactien
  • Content Count

    65
  • Joined

  • Last visited

Posts posted by JohnSmith

  1. En :oops: DOS Shell (j'ai honte)

    @ECHO Hello World !
    
    

    En :incline: OCCAM (pour ceux qui sont équipés lampe torche et pelle)

    PROGRAM HW
    #USE ioconv
    SEQ
     write.full.string(screen,"Hello World !")
    
    

    En :pleure: RPL HP28S, SYSEVAL-free (Nostalgie, nostalgie...)

    << "Hello World !" 1 DISP >>
    
    

    En Delphi

    
    

    :mdr:

    En :incline::incline::incline: 68K sur :yes::yes::yes: ST avec :francais::chinois::-D DEVPAC

      section text
          pea.l  msg
          move.w #9,-(a7)
          trap   #1       ;Cconws
          addq.l #6,a7
          clr.w  -(a7)
          trap   #1       ;Pterm0
       section data
    msg: dc.b "Hello World !",10,13,0
    
    

    En LOGO, version texte (si il y en a un qui veut nous faire la version graphique...)

    PRINT [Hello World !]
    
    

    En pseudocode :francais:

    afficher 'Hello World !'
    
    

  2. Sur un AVR AT90S2313 (on sort sur le port série à 9600bauds).

    .include "..\appnotes\2313def.inc"
    
    ... skip ...
    
    Print_string:
    ld temp,Z+
    tst temp
    breq End_print_string
    rcall To_UART
    rjmp Print_string
    End_print_string:
    ret
    
    Init_UART:
    out UBRR,temp
    ldi temp,$18;portsérie en émmission et réception 8bits+1stop sans it
    out UCR,temp
    ret	
    
    To_UART:
    sbis USR,UDRE
    rjmp To_UART; on boucle tant que l'uart n'est pas prêt à émmetre
    out UDR,temp; rien sous it!
    ret
    ;**** End of File ****
    
    

    et voila, c'est simple en fait  :top:

    ben c'est trop simple pour fonctionner, en fait :yes:

×
×
  • Create New...