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.

48 lines
706B

  1. .PAGE 'SSEND'
  2. ;*********************************
  3. ;* SSEND: POSITION SS & BUFTAB *
  4. ;* TO END OF LAST RECORD. *
  5. ;* VARS: *
  6. ;*********************************
  7. ;
  8. SSEND
  9. JSR SSSET
  10. STA SSNUM
  11. LDA #4
  12. STA DIRBUF
  13. LDY #SSIOFF-6
  14. BNE SE20
  15. SE10
  16. DEY
  17. DEY
  18. BMI BREAK
  19. SE20
  20. LDA (DIRBUF)Y ;LOOK FOR LAST SS #
  21. BEQ SE10 ;T=0: NOT YET
  22. TYA
  23. LSR A
  24. CMP SSNUM ;CHECK SS #
  25. BEQ SE30 ;THIS IS LAST SS
  26. ;
  27. STA SSNUM
  28. LDX LINDX
  29. LDA SS,X
  30. JSR IBRD ;READ LAST SS
  31. SE30
  32. LDY #0 ;SET SSIND
  33. STY DIRBUF
  34. LDA (DIRBUF)Y ;DEBUG
  35. BNE BREAK
  36. INY
  37. LDA (DIRBUF)Y
  38. TAY ;BACK UP TO TRACK
  39. DEY
  40. STY SSIND
  41. TYA
  42. JMP SETSSP
  43. ;
  44. BREAK
  45. LDA #$67
  46. JSR CMDER2
  47. .END