home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / ZAURUS / PILIAPPS / MESS.ASM < prev    next >
Encoding:
Assembly Source File  |  1997-02-07  |  4.4 KB  |  176 lines
  1. ;
  2. ; MESS DEMO
  3. ; 
  4. ; Copyright (C) 1996 Model Systems
  5. ; All rights reserved
  6. ;
  7. ; H I S T O R Y
  8. ; =============
  9. ; 16/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. ; Move the line ends
  46.     ADD32       sto0,sto5
  47.     ADD32       sto1,sto6
  48.     ADD32       sto2,sto7
  49.     ADD32       sto3,sto8
  50.     FNCALL08    LineDraw, sto0, GP_SET  ; Draw the line
  51.     RLD08       a, 5
  52.     RGMOVE      20h, sto0, a
  53.     INC         20h
  54.     INC         22h
  55.     FNCALL08    LineDraw, 20h, GP_SET  ; Draw another line
  56.  
  57. ; Remember coords
  58.     RLD08       a, 5
  59.     RGMOVE      20h, sto0, a
  60.  
  61. ; Check for hitting the edges of the screen
  62. comp1:
  63.     CMP         sto0,320
  64.     JPNZ        comp2
  65.     RLD32       sto5,-2
  66.     CALL        RBounce
  67.     RMV32       sto6, a
  68.  
  69. comp2:
  70.     CMP         sto1,240
  71.     JPNZ        comp3
  72.     RLD32       sto6,-2
  73.     CALL        RBounce
  74.     RMV32       sto5, a
  75.  
  76. comp3:
  77.     CMP         sto2,320
  78.     JPNZ        comp4
  79.     RLD32       sto7,-2
  80.     CALL        RBounce
  81.     RMV32       sto8, a
  82.  
  83. comp4:
  84.     CMP         sto3,240
  85.     JPNZ        comp5
  86.     RLD32       sto8,-2
  87.     CALL        RBounce
  88.     RMV32       sto7, a
  89.  
  90. comp5:
  91.     CMP         sto0,0
  92.     JPNZ        comp6
  93.     RLD32       sto5,2
  94.     CALL        RBounce
  95.     RMV32       sto6, a
  96.  
  97. comp6:
  98.     CMP         sto1,0
  99.     JPNZ        comp7
  100.     RLD32       sto6,2
  101.     CALL        RBounce
  102.     RMV32       sto5, a
  103.  
  104. comp7:
  105.     CMP         sto2,0
  106.     JPNZ        comp8
  107.     RLD32       sto7,2
  108.     CALL        RBounce
  109.     RMV32       sto8, a
  110.  
  111. comp8:
  112.     CMP         sto3,0
  113.     JPNZ        comp9
  114.     RLD32       sto8,2
  115.     CALL        RBounce
  116.     RMV32       sto7, a
  117.  
  118. comp9:
  119.     FNCALL08    LineDraw, 20h ,GP_XOR   ; Rub the line out
  120.     INC         20h
  121.     INC         22h
  122.     FNCALL08    LineDraw, 20h, GP_XOR   ; Rub out the other line
  123.  
  124.     FNCALL08    EventRead, 0, a         ; Check for key press
  125.     CMP08       a, 4                    ; Anything?
  126.     JPNZ        draw                    ; Go back and start again
  127.     EXIT
  128.  
  129. ;=======================================================================
  130. ;
  131. ; S U B R O U T I N E S
  132.  
  133. ; Randomly choose a direction to bounce the line
  134. RBounce:
  135.     FNCALL      GetRandom, 0, a         ; 16-bit random number in a
  136.     CMP         a, 7FFFh
  137.     JPC         Pos
  138.  
  139. Neg:
  140.     RLD32       a, -2
  141.     RLD08       b, 1
  142.     FNCALL      PlaySound, b
  143.     JP          RBExit
  144.  
  145. Pos:
  146.     RLD32       a, 2
  147.     RLD08       b, 0
  148.     FNCALL      PlaySound, b
  149.  
  150. RBExit:
  151.     RET
  152.  
  153. ;=======================================================================
  154. ;
  155. ; D A T A
  156. ;
  157. welcome:
  158.      DB 1
  159.      DB "               -= MESS DEMO =-"
  160.      DB 0Dh
  161.      DB "Written by Murray Moffatt (100240,1477)"
  162.      DB 0Dh
  163.      DB "This is just a little demo that makes a"
  164.      DB 0Dh
  165.      DB "mess of your screen (looks pretty though!)"
  166.      DB 0Dh
  167.      DB "Press any key to exit the demo."
  168.      DB 0Dh
  169.      $DATE_TIME
  170.  
  171. ;-------------------------------------------------------------------------
  172.  
  173. pili_bottom: ; NEED TO BE THERE FOR HEADER
  174.  
  175.     END
  176.