home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 81 / 081.d81 / screencontrol.s < prev    next >
Text File  |  2022-08-26  |  615b  |  68 lines
  1. .org 828
  2. .obj "@0:screencontrol.o"
  3.  
  4. lda $314
  5. cmp #<routine
  6. bne enable
  7. lda $315
  8. cmp #>routine
  9. bne enable
  10.  
  11. disable'interrupt sei
  12. lda storage
  13. sta $314
  14. lda storage+1
  15. sta $315
  16. cli
  17. rts
  18.  
  19. enable lda $314
  20. sta storage
  21. lda $315
  22. sta storage+1
  23.  
  24. sei
  25. lda #<routine
  26. sta $314
  27. lda #>routine
  28. sta $315
  29. cli
  30. rts
  31.  
  32. routine ldy #39
  33. lda 646         ;get current color
  34.  
  35. - sta (243),y
  36. dey
  37. bpl -
  38.  
  39. lda 197
  40. cmp #17    ;r
  41. beq reverse
  42.  
  43. cmp #30    ;u
  44. bne exit
  45.  
  46. unreverse ldy #39
  47. - lda (209),y
  48. bpl +
  49. and #127
  50. sta (209),y
  51. + dey
  52. bpl -
  53.  
  54. jmp exit
  55.  
  56. reverse ldy #39
  57. - lda (209),y
  58. bmi +
  59. ora #128
  60. sta (209),y
  61. + dey
  62. bpl -
  63.  
  64. exit jmp (storage)
  65.  
  66. storage .buf 2
  67.  
  68.