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.

60 lines
626B

  1. .PAGE 'REL3'
  2. ;********************************
  3. ;*
  4. ;*
  5. ;* RDREL
  6. ;*
  7. ;*
  8. ;********************************
  9. ;*
  10. ;*
  11. ;
  12. RDREL
  13. LDA #LRF
  14. JSR TSTFLG
  15. BNE RD05 ;NO RECORD ERROR
  16. ;
  17. RD10
  18. JSR GETPRE
  19. LDA BUFTAB,X
  20. CMP LSTCHR,Y
  21. BEQ RD40
  22. ;
  23. INC BUFTAB,X
  24. BNE RD20
  25. ;
  26. JSR NRBUF
  27. RD15
  28. JSR GETPRE
  29. RD20
  30. LDA (BUFTAB,X)
  31. RD25
  32. STA CHNDAT,Y
  33. LDA #RNDRDY
  34. STA CHNRDY,Y
  35. LDA BUFTAB,X
  36. CMP LSTCHR,Y
  37. BEQ RD30
  38. RTS
  39. RD30
  40. LDA #RNDEOI
  41. STA CHNRDY,Y
  42. RTS
  43. RD40
  44. JSR NXTREC
  45. JSR GETPRE
  46. LDA DATA
  47. JMP RD25
  48. ;
  49. RD05
  50. LDX LINDX ;NO RECORD CHAR SET UP
  51. LDA #CR
  52. STA CHNDAT,X
  53. LDA #RNDEOI
  54. STA CHNRDY,X
  55. ;NO RECORD ERROR
  56. LDA #NOREC
  57. JSR CMDERR
  58. ;
  59. .END