home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / INPUT < prev    next >
Encoding:
Text File  |  1993-04-15  |  752 b   |  36 lines
  1. *-----------------------------------------
  2. *áiNPUTáROUTINE.áágETSáINPUTáFROMáCURRENT
  3. *áINPUTáDEVICEá(USUALLYáTHEáKEYBOARD)áAND
  4. *áSTORESáITáATá]2.ááiNPUTáISáTERMINATED
  5. *áBYáAácráANDáCANáBEáATáMOSTá]1áCHARACTERS
  6. *áLONGá(256áCHARACTERSáIFá]1=0).ááiFáTHE
  7. *áUSUALáINPUTáBUFFERá$200áISáUSEDáFORá]2
  8. *áTHENá]1áMUSTáBEáATáMOSTá$58.
  9. *-----------------------------------------
  10.  
  11.  do ]2-$200
  12.  err ]1/$100 ;mUSTáBEáONEáBYTE
  13.  else ;iFáUSINGáUSUALáINPUTáBUFFER
  14.  err ]1-1/$58 ;áTHENáLENGTHá<á$59
  15.  fin
  16.  
  17. input ldy #-1
  18. nxchr iny
  19.  jsr chrin ;$ffcf
  20.  sta ]2,y
  21.  cmp #$d ;iNPUTáDONE?
  22.  
  23.  do ]1
  24.  
  25.  beq back ;eXITáIFáSO
  26.  cpy #]1 ;lINEáTOOáLONGáFORáBUFFER?
  27.  blt nxchr ;lOOPáIFáNOT
  28.  dey ;dISALLOWáTHISáCHR
  29.  bge nxchr ;aLWAYSáTAKEN
  30.  
  31.  else
  32.  bne nxchr ;bRANCHáIFáNOTáDONE
  33.  fin
  34.  
  35. back rts
  36.