home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / ZAURUS / PILIAPPS / LINES.ASM < prev    next >
Encoding:
Assembly Source File  |  1997-02-07  |  3.1 KB  |  124 lines
  1. ;
  2. ; LINE DEMO
  3. ; 
  4. ; Copyright (C) 1996 Model Systems
  5. ; All rights reserved
  6. ;
  7. ; H I S T O R Y
  8. ; =============
  9. ; 01/11/96 Initial coding (V1.00).
  10. ;
  11. ; ======================================================================
  12. ;
  13. pili_header:
  14.      JR start                   ; jump to start of prog
  15.      dl pili_bottom-pili_header ; /* size of binary image */
  16.      db "PILI BINARY MAIN "     ; header for beta, main application
  17.      db 0                       ; null terminate
  18.  
  19.  include fncall.inc
  20.  
  21. ;-----------------------------------------------------------------------------
  22. ;
  23. ; PROGRAM START
  24. ;
  25.  
  26. start:
  27.     FNCALL      clearscreen,0           ; Clear the screen
  28.     FNCALL16    InfoBox, welcome, sto0  ; Display an intro box
  29.     FNCALL08    EventRead, 0, a         ; Clear any events
  30.  
  31. ; Init starting position
  32.     RLD32       sto0,8                  ; X coord of one end of the line
  33.     RLD32       sto1,6                  ; Y coord of one end of the line
  34.     RLD32       sto2,66                 ; X coord of the other end
  35.     RLD32       sto3,12                 ; X coord of the other end
  36.     RLD32       sto4,GP_SOLID_LINE      ; Draw solid lines
  37.  
  38. ; Init starting directions
  39.     RLD32       sto5,2                  ; X direction of one end of the line
  40.     RLD32       sto6,2                  ; Y direction of one end of the line
  41.     RLD32       sto7,-2                 ; X direction of the other end
  42.     RLD32       sto8,-2                 ; Y direction of the other end
  43.  
  44. draw:
  45.     FNCALL08    LineDraw,sto0,GP_XOR    ; Draw the line
  46.  
  47. ; Move the line ends
  48.     ADD32       sto0,sto5
  49.     ADD32       sto1,sto6
  50.     ADD32       sto2,sto7
  51.     ADD32       sto3,sto8
  52.  
  53. ; Check for hitting the edges of the screen
  54. comp1:
  55.     CMP         sto0,320
  56.     JPNZ        comp2
  57.     RLD32       sto5,-2
  58.  
  59. comp2:
  60.     CMP         sto1,240
  61.     JPNZ        comp3
  62.     RLD32       sto6,-2
  63.  
  64. comp3:
  65.     CMP         sto2,320
  66.     JPNZ        comp4
  67.     RLD32       sto7,-2
  68.  
  69. comp4:
  70.     CMP         sto3,240
  71.     JPNZ        comp5
  72.     RLD32       sto8,-2
  73.  
  74. comp5:
  75.     CMP         sto0,0
  76.     JPNZ        comp6
  77.     RLD32       sto5,2
  78.  
  79. comp6:
  80.     CMP         sto1,0
  81.     JPNZ        comp7
  82.     RLD32       sto6,2
  83.  
  84. comp7:
  85.     CMP         sto2,0
  86.     JPNZ        comp8
  87.     RLD32       sto7,2
  88.  
  89. comp8:
  90.     CMP         sto3,0
  91.     JPNZ        comp9
  92.     RLD32       sto8,2
  93.  
  94. comp9:
  95.     FNCALL08    EventRead, 0, a         ; Check for key press
  96.     CMP08       a, 4                    ; Anything?
  97.     JPNZ        draw                    ; Go back and start again
  98.     EXIT
  99.  
  100. ;-----------------------------------------------------------------------------
  101. ;
  102. ; DATA
  103. ;
  104.  
  105. welcome:
  106.      DB 1
  107.      DB "               -= LINE DEMO =-"
  108.      DB 0Dh
  109.      DB "Written by Murray Moffatt (100240,1477)"
  110.      DB 0Dh
  111.      DB "This is just a little demo of a line"
  112.      DB 0Dh
  113.      DB "bouncing around the screen."
  114.      DB 0Dh
  115.      DB "Press any key to exit the demo."
  116.      DB 0Dh
  117.      $DATE_TIME
  118.  
  119. ;-------------------------------------------------------------------------
  120.  
  121. pili_bottom: ; NEED TO BE THERE FOR HEADER
  122.  
  123.     END
  124.