home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ZCPR33 / S-Z / VTCAP11.LBR / ENTRY.1Z0 / ENTRY.18°
Text File  |  2000-06-30  |  2KB  |  73 lines
  1. ; ENTRY
  2. ; 
  3. ; The entry mode function is only an indicator to show you which 
  4. ; entry mode you are in. The database system allows selectable
  5. ; entry in one of three modes.
  6. ;
  7. ; Example:     ESC = 1BH = 27
  8. ;
  9. ;     ASCII - Allows input of character data in ASCII. To input
  10. ;         the ESC character, you would simply press the ESC
  11. ;        key or use the '^' leadin character and enter ^[.
  12. ;
  13. ;    HEX   -    Allows input of character data in HEX format. To
  14. ;        enter the ESC character, would require the entry
  15. ;        of two keystrokes, first the '1' and then the 'B'.
  16. ;
  17. ;    DEC   - Allows input of character data in DECIMAL. This
  18. ;        will be more familiar with BASIC programmers. To
  19. ;        enter the ESC character, would require the entry
  20. ;        of two keystrokes, first the '2' and then the '7'.
  21. ;
  22. ; Obviously, the easiest method would depend on your familiarity
  23. ; with the different conventions. On a local terminal, it would
  24. ; be better to select the ASCII entry mode. This would allow you
  25. ; to use single key input. There control key combinations could
  26. ; be entered directly without the use of the leadin key. Remote
  27. ; terminals, using communications packages, will usually filter 
  28. ; certain characters. In this case, the leadin key will be used
  29. ; to enter these combinations.
  30.  
  31. entry:    ld    a,(eflg)
  32.     inc    a
  33.     ld    (eflg),a
  34.     cp    3
  35.     jp    nz,gflg
  36.     ld    a,0
  37.     ld    (eflg),a
  38.  
  39. gflg:    ld    a,(eflg)
  40.     cp    0
  41.     jp    z,ascii
  42.     cp    1
  43.     jp     z,hex
  44.     cp    2
  45.     jp    z,dec
  46.  
  47. ascii:    call    gxymsg
  48.     db    23,60
  49.     db    2,'ASCII',1
  50.     db    ' HEX '
  51.     db    ' DEC '
  52.     db    0
  53.     jp    exopt
  54.  
  55. hex:    call    gxymsg
  56.     db    23,60
  57.     db    'ASCII' 
  58.     db    2,' HEX ',1
  59.     db    ' DEC '
  60.     db    0
  61.     jp    exopt
  62.  
  63. dec:    call    gxymsg
  64.     db    23,60
  65.     db    'ASCII'
  66.     db    ' HEX '
  67.     db    2,' DEC ',1
  68.     db    0
  69.     ld    a,(obuf)
  70.     cp    'E'
  71.     jp    exopt
  72.  
  73.