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.

ssend.src 1.2KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  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