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.

rel3.src 1.2KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859
  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