С н AъZ╖PSC ч 0 : PO ч 1 : PCOM ч 3┴Н ЇуЕ "INITIAL VALUE (HEX): ",SF$Ї(SF$ч"&H"щSF$2Ь PO, Ф(SF$)$<Ь PSC, :П┘ CLEAR COUNTERSNFJUNK ч Р(PCOM) :П┘ CLEAR SWITCH FLAGjPЕ "THEN TO (HEX): ",SG$ZSG$ ч "&H" щ SG$РdЬ PO, Ф(SG$)└nП **** READ & DISPLAY STATUS ****═xЬ PCOM,▐}ST ч Р(PSC)ёВС "STATUS = ",ДЛ ST ю А ═ С "SWTICH FLAG",2ЖЛ ST ю @ ═ С "RATE ERROR",8ИСfМП **** READ & DISPLAY COUNTERS ****zСЬ PSC, :П┘CopyКЦС " X: ";ЧаЬ PCOM,бкН ,▒┤С " Y: ";╛╛Ь PCOM,╚╚Н ,╪╥С " Z: ";х▄Ь PCOM,яцН ,їЁС ·Й 9+П **** A SUBROUTINE TO READ ONE COUNTER ****I,В I ч ╠ \6С Ъ( Р(PSC));d@Г IjJОлЇС "THIS LITTLE PROGRAM LETS YOU DIDDLE THE COUNTERS BY HAND"▒■СшС "YOU INPUT AN INITIAL HEX VALUE FOR THE PO PORT"юС&С "THE PROGRAM OUTPUTS IT THEN CLEARS THE COUNTERS",&СU0С "YOU THEN INPUT ANOTHER HEX VALUE"[:СЧDС "THE PROGRAM OUTPUTS IT THEN TELLS YOU WHAT HAPPENED"ЭNС╫XС " IN CASE YOU FORGOT HOW THE JUMPER IS WIRED:"bС " PO7 6 5 4 3 2 1 0"8lС " ZA ZB YA YB XA XB NC NO">vС}АС " Note: hex 01 means sw normal ... 02 means sw pressed."ГДСЙЕСПКО