home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / getstr.seq < prev    next >
Text File  |  2023-02-26  |  628b  |  25 lines
  1.          *= $1000
  2.  
  3. ;***************************************
  4. ;*  getstr-routine (w) 1994 by madrom  *
  5. ;***************************************
  6. ;* prg. wird mir - jsr getstr - gestart*
  7. ;* routine holt aus dem basic-text eine*
  8. ;* variable. die laenge des strings    *
  9. ;* befindet sich in akku, die adresse  *
  10. ;* in x- und y-reg. vorher wird        *
  11. ;* geprueft, ob vor der variable ein   *
  12. ;* komma gesetzt wurde. soll kein komma*
  13. ;* test erfolgen, muss die routine mit *
  14. ;* - jsr getstr2 - aufgerufen werden...*
  15. ;***************************************
  16.  
  17.  
  18. getstr
  19.          jsr $aefd
  20. getstr2
  21.          jsr $ad9e
  22.          jmp $b6a3
  23.  
  24.  
  25.