/******************************************************************** /7.MAI.75 /PROGRAMM UM DIE BITFEHLERZAHL JE TELEGRAMM IN DIE VON TELPCK /BEREITGESTELLTEN CNTRL-WORDS HINEINZUSCHREIBEN. /DAZU WIRD ADDERR UEBER TELPCK GELADEN. FIELD 1 *5400 ADERNM, 2 BLOTNT ADERNT ACUM 1 DCA WRD ISZ CNT10 SKP JMP CNTRLW TELWDS, TAD WRD AND I MSKP CIA CLL RAL TAD WRD TAD I MSKP ISZ MSKP CLL RAL SZL ISZ FELCNT SZA JMP .-4 PTOUT, TAD WRD PUT 2 INEND CNTRLW, TAD Y177 CMA AND WRD TAD FELCNT DCA WRD ADERNT, CLA CLL IAC RTL CIA RAL DCA CNT10 TAD MSKAD DCA MSKP DCA FELCNT JMP PTOUT MSKAD, MSKTF MSKP, 0 Y177, 177 FELCNT, 0 CNT10, 0 WRD, 0 MSKTF, 2525;2525;2525;2525;2525;2504;3000