花样流水灯程序--汇编语言

ORG0200HMOVA,#0FEHMOVR1,#10HLOOP1:MOVP1,ALCALLDLY500RLADJNZR1,LOOP1;L1-L8走LCALLDLY500LCALLDLY500MOVR1,#15LOOP2:MOVP1,ALCALLDLY500RLADECR1CJNER1,#07,LOOP2RRALOOP3:RRAMOVP1,ALCALLDLY500DJNZR1,LOOP3;L1-L8，L8-L1走LCALLDLY500LCALLDLY500MOVR1,#0FEHMOVR2,#15LOOP4:RLAANLA,R1MOVP1,ALCALLDLY500DECR2CJNER2,#07,LOOP4MOVR1,#80HLOOP5:ORLA,R1MOVP1,ARRALCALLDLY500DJNZR2,LOOP5;灯柱LCALLDLY500LCALLDLY500RLAMOVR1,#07LOOP6:RLARLAMOVP1,ALCALLDLY500DECR1CJNER1,#04,LOOP6MOVA,#0FDHLOOP7:MOVP1,ALCALLDLY500RLARLADJNZR1,LOOP7;13572468走LCALLDLY500LCALLDLY500MOVA,#0FCHMOVR1,#08LOOP8:MOVP1,ALCALLDLY500RLARLADJNZR1,LOOP8;两位走马灯LCALLDLY500LCALLDLY500MOVA,#0F0HMOVR1,#04LOOP9:MOVP1,ALCALLDLY500SWAPADJNZR1,LOOP9;四位轮流显示LCALLDLY500LCALLDLY500MOVA,#0FEHMOVR1,#16LOOP10:MOVP1,ALCALLDLY500MOVP1,#0FFHLCALLDLY500MOVP1,ALCALLDLY500MOVP1,#0FFHLCALLDLY500RLADJNZR1,LOOP10;闪烁跑马灯LCALLDLY500LCALLDLY500MOVR1,#04LOOP11:MOVP1,#00HLCALLDLY500MOVP1,#0FFHLCALLDLY500DJNZR1,LOOP11;8位闪烁LCALLDLY500LCALLDLY500MOVR1,#016MOVR2,#0FEHMOVR3,#7FHLOOP12:MOVA,R2ANLA,R3MOVP1,ALCALLDLY500MOVA,R2RLAMOVR2,AMOVA,R3RRAMOVR3,ADJNZR1,LOOP12;穿越LCALLDLY500LCALLDLY500DLY500:MOVR7,#10;延时500MSDLY2:MOVR6,#200DLY1:MOVR5,#125DJNZR5,$DJNZR6,DLY1DJNZR7,DLY2RETEND