; Write to the CRTC.
;
- .export write_crtc, read_crtc
- .importzp crtc, ktmp
+ .export write_crtc, read_crtc
+ .importzp crtc, ktmp
- .include "cbm610.inc"
+ .include "cbm610.inc"
; Write a value to the CRTC. The index is in Y, the value in A
-.proc write_crtc
- sta ktmp
- lda IndReg
- pha
- lda #$0F
- sta IndReg
- tya
- ldy #$00
- sei
- sta (crtc),y
- iny
- lda ktmp
- sta (crtc),y
- cli
- pla
- sta IndReg
- lda ktmp
- rts
+.proc write_crtc
+ sta ktmp
+ lda IndReg
+ pha
+ lda #$0F
+ sta IndReg
+ tya
+ ldy #$00
+ sei
+ sta (crtc),y
+ iny
+ lda ktmp
+ sta (crtc),y
+ cli
+ pla
+ sta IndReg
+ lda ktmp
+ rts
.endproc
-.proc read_crtc
- sty ktmp
- lda IndReg
- pha
- lda #$0F
- sta IndReg
- lda ktmp
- ldy #$00
- sei
- sta (crtc),y
- iny
- lda (crtc),y
- cli
- tay
- pla
- sta IndReg
- tya
- ldy ktmp
- rts
+.proc read_crtc
+ sty ktmp
+ lda IndReg
+ pha
+ lda #$0F
+ sta IndReg
+ lda ktmp
+ ldy #$00
+ sei
+ sta (crtc),y
+ iny
+ lda (crtc),y
+ cli
+ tay
+ pla
+ sta IndReg
+ tya
+ ldy ktmp
+ rts
.endproc