home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities / codemaker / CodeMaker / Exemples / !Exemple0 / s / ScreUtils < prev   
Encoding:
Text File  |  1992-12-19  |  1.8 KB  |  56 lines
  1. ;------------------------------------------------------------------------------
  2. ;        CodeMaker !Exemple0 : ScreUtils
  3. ;        Frank Lyonnet 1992 
  4. ; 
  5. ;        You can contact me on internet : lyonnet@ufrima.imag.fr .
  6. ;                                         lyonnet@imag.fr .
  7. ;                        on french RTEL : bal ARCHETYPE .
  8. ;                               by mail : Frank Lyonnet
  9. ;                                         420 , Chemin de la Cassine
  10. ;                                         73000 Chambéry
  11. ;                                         France      
  12. ;------------------------------------------------------------------------------
  13.  
  14.                 GET     h.RegNames
  15.                 AREA    |C$$code|, CODE, READONLY
  16.                 EXPORT  |clear_screen13|
  17.  
  18. ;------------------------------------------------------------------------------
  19. ;       clear_screen13
  20. ;------------------------------------------------------------------------------
  21. ;       First param : pointer to screen area  
  22. ;------------------------------------------------------------------------------
  23.  
  24. Cs_HeaderStart  DCB     "clear_screen13",0
  25.                 ALIGN
  26. Cs_HeaderEnd    DCD     &ff000000+Cs_HeaderEnd-Cs_HeaderStart
  27.  
  28. |clear_screen13| 
  29.                 STMFD   r13!,{r4-r9,r10,r11,r14}
  30.  
  31.                 MOV     r1,#0
  32.                 MOV     r2,#0
  33.                 MOV     r3,#0
  34.                 MOV     r4,#0
  35.                 MOV     r5,#0
  36.                 MOV     r6,#0
  37.                 MOV     r7,#0
  38.                 MOV     r8,#0
  39.                 MOV     r9,#0
  40.                 MOV     r10,#0
  41.  
  42.                 GBLA    Ligne
  43. Ligne           SETA    1
  44.                 WHILE   Ligne<=2048
  45.         
  46.                 STMIA  r0!,{r1-r10}
  47.  
  48. Ligne           SETA    Ligne+1
  49.  
  50.                 WEND 
  51.  
  52.                 LDMFD   r13!,{r4-r9,r10,r11,pc}^
  53.  
  54.                 END
  55.  
  56.