home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / tbasic.arc / TB / MAKE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  709 b   |  33 lines

  1. 0 REM MAKE  (AUG 25/84)       :
  2. 1 :
  3. 2 REM 1 STATEMENTS, 0 FUNCTIONS
  4. 3 :
  5. 4 REM KEYWORD CHARACTERS: 4
  6. 5 :
  7. 6 REM KEYWORD     ROUTINE  LINE  SER #
  8. 7 REM MAKE        MAK      4106   048
  9. 8 :
  10. 9 REM ===============================
  11. 10 :
  12. 111 .ASC "MAK[197]"
  13. 1111 .WORD MAK-1
  14. 4106 MAK JSR $B79E ;EVAL # REPETITIONS
  15. 4108 TXA          ;PUSH
  16. 4110 PHA
  17. 4112 JSR $AEFD    ;CHECK FOR COMMA
  18. 4114 JSR $AD9E    ;EVAL STRING
  19. 4116 JSR $B6A3    ;MAKE DESCRIPTOR
  20. 4118 TAY          ;STRING LENGTH
  21. 4120 PLA          ;PULL # REPETITIONS
  22. 4122 STA T3       ;COUNTDOWN REGISTER
  23. 4124 TYA
  24. 4126 MAK1 LDX T3  ;GET REMAINING REPS
  25. 4128 BEQ MAK2     ;ALL DONE
  26. 4130 DEC T3       ;COUNT DOWN
  27. 4132 PHA          ;PRINT STRING
  28. 4134 JSR $AB24
  29. 4136 PLA
  30. 4138 JMP MAK1
  31. 4140 MAK2 RTS
  32. 4142 ;
  33.