home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Information / 256KB.UTILS.SFX / string.a < prev    next >
Encoding:
Text File  |  1993-06-23  |  747 b   |  67 lines
  1. ;---------------------------------
  2. ;PRINT STRING
  3. ;
  4. STRPNT =$A6
  5. CHRSCR =$E716
  6. CURSOR =$E50C
  7. STRING PLA
  8.  STA STRPNT
  9.  PLA
  10.  STA STRPNT+1
  11.  TXA
  12.  PHA
  13.  TYA
  14.  PHA
  15. ;
  16.  LDY #0
  17. STRI00 INC STRPNT
  18.  BNE STRI01
  19.  INC STRPNT+1
  20. STRI01 LDA (STRPNT),Y
  21.  CMP #RPT
  22.  BCS STRI03
  23. STRI02 JSR CHRSCR
  24.  BNE STRI00
  25. ;
  26.  PLA
  27.  TAY
  28.  PLA
  29.  TAX
  30.  LDA STRPNT+1 ;RETURN
  31.  PHA
  32.  LDA STRPNT
  33.  PHA
  34.  RTS
  35. ;
  36. STRI03 BNE STRI08
  37.  INY ;REPEAT N TIMES
  38.  LDA (STRPNT),Y
  39.  TAX
  40.  INY
  41.  LDA (STRPNT),Y
  42. STRI06 JSR CHRSCR ;
  43.  DEX
  44.  BNE STRI06
  45.  BEQ STRI09
  46. ;
  47. STRI08 CMP #AT
  48.  BNE STRI02
  49.  INY ;SET CURSOR TO N+1,N+2
  50.  LDA (STRPNT),Y
  51.  TAX
  52.  INY
  53.  LDA (STRPNT),Y
  54.  TAY
  55.  JSR CURSOR
  56.  LDY #2
  57. ;
  58. STRI09 CLC ;ADD .Y TO STRPNT
  59.  TYA ;USE AFTER SEVERAL CHAR CMD
  60.  LDY #0
  61.  ADC STRPNT
  62.  STA STRPNT
  63.  BCC STRI00
  64.  INC STRPNT+1
  65.  JMP STRI00
  66. .END
  67.