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.

rel4.src 1.5KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  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