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.

sstest.src 1.1KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. ;*********************************
  2. ;* sstst: test ssnum & ssind for *
  3. ;* residence & range. *
  4. ;* vars: ssnum,ssind,dirbuf *
  5. ;* *
  6. ;* flags: .n rng .v res er *
  7. ;* 0 ok 0 yes er0 *
  8. ;* 0 maybe 1 no er1 *
  9. ;* 1 no 0 yes er2 *
  10. ;* 1 no 1 no er3 *
  11. ;*********************************
  12. ;
  13. sstest
  14. jsr ssset ; set pointer & ss #
  15. cmp ssnum
  16. bne st20 ; not this ss
  17. ;
  18. ldy ssind
  19. lda (dirbuf),y
  20. beq st10
  21. bit er0 ; ok, resident
  22. rts
  23. st10
  24. bit er2 ; out of range, res
  25. rts
  26. st20
  27. lda ssnum
  28. cmp #nssl
  29. bcs st30
  30. asl a
  31. tay
  32. lda #4
  33. sta dirbuf
  34. lda (dirbuf),y
  35. bne st40
  36. st30
  37. bit er3 ; way out of range
  38. rts
  39. st40
  40. bit er1 ; not res, range???
  41. rts
  42. ;.end