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.

58 lines
571B

  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