; void pokebsys (unsigned Addr, unsigned char Val);
; void pokewsys (unsigned Addr, unsigned Val);
- .export _pokebsys, _pokewsys
- .import popsreg
- .importzp sreg, tmp1
+ .export _pokebsys, _pokewsys
+ .import popsreg
+ .importzp sreg, tmp1
- .include "cbm610.inc"
+ .include "cbm610.inc"
_pokebsys:
- jsr popsreg ; Get the address
- ldx IndReg
- ldy #$0F
- sty IndReg ; Switch to the system bank
- ldy #$00
- sta (sreg),y
- stx IndReg
- rts
+ jsr popsreg ; Get the address
+ ldx IndReg
+ ldy #$0F
+ sty IndReg ; Switch to the system bank
+ ldy #$00
+ sta (sreg),y
+ stx IndReg
+ rts
_pokewsys:
- stx tmp1 ; Save high byte
- jsr popsreg ; Get the address
- ldx IndReg
- ldy #$0F
- sty IndReg ; Switch to the system bank
- ldy #$00
- sta (sreg),y
- iny
- lda tmp1
- sta (sreg),y
- stx IndReg
- rts
+ stx tmp1 ; Save high byte
+ jsr popsreg ; Get the address
+ ldx IndReg
+ ldy #$0F
+ sty IndReg ; Switch to the system bank
+ ldy #$00
+ sta (sreg),y
+ iny
+ lda tmp1
+ sta (sreg),y
+ stx IndReg
+ rts