Subversion Repositories ffr16

               ;program example for PSMDEBUG

               ;

               LOAD sF,80             ;walking '1' register

               LOAD sB,00             ;reset accumulator lower byte

               LOAD sC,00             ;reset accumulator upper byte

               ENABLE INTERRUPT

               ;main program to produce walking '1'

         main: OUTPUT sF,01

               ;software delay loop

               LOAD s1,43

    slow_loop: LOAD s0,FF

    fast_loop: SUB s0,01

               JUMP NZ,fast_loop

               SUB s1,01

               JUMP NZ,slow_loop

               ;walk the '1' to the right

               RR sF

               JUMP main

               ;interrupt service routine

               ADDRESS D0

  int_routine: INPUT sA,10            ;read value

               ADD sB,sA              ;16 bit accumulation

               ADDCY sC,00

               OUTPUT sB,20           ;output 16 bit value

               OUTPUT sC,40

               RETURNI ENABLE

               ;interrupt vector

               ADDRESS FF

               JUMP int_routine