]> git.sur5r.net Git - cc65/blobdiff - libsrc/cbm610/pokesys.s
Merge pull request #545 from mrdudz/cbmpeek
[cc65] / libsrc / cbm610 / pokesys.s
index ebd4ec5cfbfec7833413191f133b9103953297ef..fa690fb6e086dc8316de73ad9bb68282d0fbe024 100644 (file)
@@ -4,35 +4,35 @@
 ; 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        "zeropage.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