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.

43 lines
782B

  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