X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fpce%2Frevers.s;h=17a74508c03e39638618da1d8b93b5de849f455d;hb=23d4534f94eb936b42975ee3fd3c7eb9283709e2;hp=061023d092106fb8e277ad1cf02219214d54979d;hpb=21ef6b8510ccd640b9099966424c174747de1524;p=cc65 diff --git a/libsrc/pce/revers.s b/libsrc/pce/revers.s index 061023d09..17a74508c 100644 --- a/libsrc/pce/revers.s +++ b/libsrc/pce/revers.s @@ -1,27 +1,28 @@ - .include "pce.inc" + .include "pce.inc" + .include "extzp.inc" - .export _revers + .export _revers .proc _revers - ldx #$00 ; Assume revers off - tay ; Test onoff - beq L1 ; Jump if off - ldx #$80 ; Load on value - ldy #$00 ; Assume old value is zero -L1: lda RVS ; Load old value - stx RVS ; Set new value - beq L2 ; Jump if old value zero - iny ; Make old value = 1 -L2: ldx #$00 ; Load high byte of result - tya ; Load low byte, set CC - rts + ldx #$00 ; Assume revers off + tay ; Test onoff + beq L1 ; Jump if off + ldx #$80 ; Load on value + ldy #$00 ; Assume old value is zero +L1: lda RVS ; Load old value + stx RVS ; Set new value + beq L2 ; Jump if old value zero + iny ; Make old value = 1 +L2: ldx #$00 ; Load high byte of result + tya ; Load low byte, set CC + rts .endproc ;------------------------------------------------------------------------------- ; force the init constructor to be imported - .import initconio -conio_init = initconio + .import initconio +conio_init = initconio