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.

lccconhdr.src 920B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. .page 'lcc.conhdr'
  2. ;
  3. ;
  4. ;
  5. ; *conhdr
  6. ;
  7. ; convert header
  8. ; into gcr search image
  9. ; and place in stab
  10. ;
  11. ; image contains :
  12. ;
  13. ; 00 id id tr sc cs hbid
  14. ;
  15. ;
  16. conhdr lda bufpnt+1 ; save buffer pointer
  17. sta savpnt+1
  18. ;
  19. lda #>stab
  20. sta bufpnt+1
  21. ;
  22. lda #<stab
  23. sta gcrpnt
  24. ;
  25. lda hbid
  26. sta btab
  27. ;
  28. lda header+4
  29. sta btab+1
  30. ;
  31. lda header+3
  32. sta btab+2
  33. ;
  34. lda header+2
  35. sta btab+3
  36. ;
  37. jsr put4bg
  38. ;
  39. lda header+1
  40. sta btab
  41. ;
  42. lda header
  43. sta btab+1
  44. ;
  45. lda #0
  46. sta btab+2
  47. sta btab+3
  48. ;
  49. jsr put4bg
  50. ;
  51. lda savpnt+1 ; restore buffer pointer
  52. sta bufpnt+1
  53. ;
  54. rts
  55. ;
  56. ;
  57. ;.end