home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / ZAURUS / PILI102 / MASKEDIT.ASM < prev    next >
Assembly Source File  |  1996-12-02  |  1KB  |  49 lines
  1.  ; sample for maskedit use (thanks to murray).
  2.  ;
  3.  ; Run under PILI version 101c-11.18
  4.  
  5.  pili_header:
  6.     JR Start                   ; jump to start of prog
  7.     DL pili_bottom-pili_header ; /* size of binary image */
  8.     DB "PILI BINARY MAIN "     ; header for beta, main application
  9.     DB 0                       ; null terminate
  10.  
  11.     INCLUDE fncall.inc
  12.  
  13.  Start:
  14.     FNCALL08    ClearScreen, 0
  15.  
  16.     RLD08       sto0, 1
  17.     RLD08       sto1, 1
  18.     FNCALL08    Locate, sto0        ; Locate the cursor
  19.     FNCALL      OutText, test       ; Display the text
  20.  
  21.     RLD08       sto0, 1
  22.     RLD08       sto1, 1
  23.     FNCALL08    Locate, sto0        ; Re-locate the cursor
  24.     FNCALL08    DispCursor, 1
  25.  
  26.     RLD16       sto1, 0h            ; All keys allowed
  27.     RLD16       sto2, 0             ; Default editing
  28.     RLD16       sto3, 14            ; Size of text
  29.     RLD16       sto4, 80            ; Always 80, reserved for future use
  30.     RLD32       sto5, 0             ; Forbidden characters
  31.     RLD32       sto6, test          ; Text to edit
  32.     FNCALL08    MaskEdit, sto1, sto7
  33.  
  34.     FNCALL08    ClearScreen, 0
  35.     RLD08       sto0, 1
  36.     RLD08       sto1, 1
  37.     FNCALL08    Locate, sto0        ; Locate the cursor
  38.     FNCALL      OutText, test       ; Display the new text
  39.  
  40.     FNCALL      Wait05, 2           ; Wait a while
  41.     EXIT
  42.  
  43.  test:
  44.     db "This is a test"
  45.     db 0
  46.  
  47.  pili_bottom:
  48.     END
  49.