0010 ;CHARACTER BLINK ROUTINE›0020 CHACT     = $2F3›0030 CDTMV2    = $21A›0040 CDTMA2    = $228›0050           *=$0680›0060 ;PULL PARAMETERS FROM STACK›0070 ;AND STORE THEM›0080           PLA›0090           PLA›0100           PLA›0110           STA PERIOD›0120           PLA›0130           PLA›0140           STA MASK›0150           PLA›0160           PLA›0170           STA FLIP›0180 ;STORE VECTOR TO BLINK ROUTINE›0190           LDA #BLINK&$00FF›0200           STA CDTMA2›0210           LDA #BLINK/256›0220           STA CDTMA2+1›0230           LDA PERIOD›0240           STA CDTMV2›0250           RTS›0260 PERIOD    *=*+1›0270 MASK      *=*+1›0280 FLIP      *=*+1›0290 ;HERE IS THE BLINK ROUTINE›0300 BLINK     LDA CHACT›0310           AND MASK›0320           EOR FLIP›0330           STA CHACT›0340 ;RESET TIMER AND RETURN›0350           LDA PERIOD›0360           STA CDTMV2›0370           RTS›