You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

86 lines
871B

  1. .PAGE 'REL4'
  2. ;*
  3. ;*
  4. ;**********************************
  5. ;*
  6. ;*
  7. ;* SETLST
  8. ;*
  9. ;*
  10. ;**********************************
  11. ;*
  12. ;*
  13. SETLST LDX LINDX
  14. LDA NR,X
  15. STA R1
  16. DEC R1
  17. CMP #2
  18. BNE SETL01
  19. LDA #$FF
  20. STA R1
  21. SETL01
  22. LDA RS,X
  23. STA R2
  24. ;
  25. JSR GETPNT
  26. LDX LINDX
  27. CMP R1
  28. BCC SETL10
  29. BEQ SETL10
  30. ;
  31. JSR DBLBUF
  32. JSR FNDLST
  33. BCC SETL05
  34. ;
  35. LDX LINDX
  36. STA LSTCHR,X
  37. JMP DBLBUF
  38. ;
  39. SETL05 JSR DBLBUF
  40. LDA #$FF
  41. STA R1
  42. ;
  43. SETL10 JSR FNDLST
  44. BCS SETL40
  45. ;
  46. JSR GETPNT
  47. ;
  48. SETL40 LDX LINDX
  49. STA LSTCHR,X
  50. RTS
  51. ;*
  52. ;*
  53. ;*
  54. ;*********************************
  55. ;*
  56. ;*
  57. ;* FNDLST
  58. ;*
  59. ;*
  60. ;*********************************
  61. ;*
  62. ;*
  63. FNDLST
  64. JSR SET00
  65. LDY R1 ;OFFSET TO START AT
  66. ;
  67. FNDL10 LDA (DIRBUF),Y
  68. BNE FNDL20
  69. ;
  70. DEY
  71. CPY #2
  72. BCC FNDL30
  73. ;
  74. DEC R2 ;LIMIT COUNTER
  75. BNE FNDL10
  76. ;
  77. FNDL30 DEC R2
  78. CLC ; NOT FOUND HERE
  79. RTS
  80. ;
  81. FNDL20 TYA ;FOUND THE END CHAR
  82. SEC
  83. RTS
  84. ;
  85. .END