keep  Increment

PRBYTE   gequ  $FDDA                    ;Print a hex byte
CROUT    gequ  $FD8E                    ;Print a CR

         org   $2000

* Demo increment and decrement

main     start
         ldx   #$00                     ;Start with zero
         jsr   xcr                      ;Print it
         inx                            ;Increment X
         jsr   xcr                      ;Print it
         dex                            ;Decrement X
         jsr   xcr                      ;Print it
         dex                            ;Oooh, now what?
         jsr   xcr                      ;Print that

         rts                            ;End of program
         end

*
* xcr
*
* Prints the byte in X then a carriage return.
*
xcr      start
         txa                            ;Copy X to A
         jsr   PRBYTE                   ;Print the byte in A
         jsr   CROUT                    ;Print CR and return
         rts
         end