home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / READKEY < prev    next >
Encoding:
Text File  |  1993-04-15  |  548 b   |  25 lines
  1. *--------------------------------------
  2. *árOUTINEáTOáGETáAáKEYáFROMáKEYBOARD
  3. *á(ORáINPUTáDEVICE).ááiTáFIRSTáTURNSáON
  4. *áTHEáCURSORáANDáTURNSáITáBACKáOFFáWHEN
  5. *áCHARACTERáHASáBEENáGATHERED.
  6. *ácHARACTERáISáRETURNEDáINáa-REGISTER.
  7. *--------------------------------------
  8.  
  9. readkey lda #'F' ;bLINKáCURSORáCMD
  10.  stx xsav ;pRESERVEáx
  11.  jsr $c01e ;tURNáONáCURSOR
  12. :rk jsr getin ;gETáAáKEY
  13.  tax ;oNEáAVAILABLE?
  14.  beq :rk ;lOOPáIFáNOT
  15.  pha
  16.  ldx #$a
  17.  lda #$10
  18.  stx $d600
  19. :wt bit $d600
  20.  bpl :wt
  21.  sta $d601 ;cURSORáOFF
  22.  ldx xsav ;rETRIEVEáx
  23.  pla ;gETáCHARACTER
  24.  rts
  25.