
 1970  SHIFT.MAC.RIGHT.ONE
 1980         LDX #0       FOR X=0 TO 19
 1990         TXA          NEW 1ST NYBBLE = 0
 2000  .1     STA TEMP     SAVE FOR HI NYBBLE
 2010         LDA MAC,X    MOVE LOW NYBBLE TO HI SIDE
 2020         ASL
 2030         ASL
 2040         ASL
 2050         ASL
 2060         PHA          SAVE ON STACK
 2070         LDA MAC,X    MOVE HI NYBBLE TO LOW
 2080         LSR
 2090         LSR
 2100         LSR
 2110         LSR
 2120         ORA TEMP     MERGE WITH NEW HI NYBBLE
 2130         STA MAC,X
 2140         PLA          GET HI NYBBLE OF NEXT BYTE
 2150         INX          NEXT X
 2160         CPX #20
 2170         BCC .1
 2180         RTS

