Пример программы на языке ассемблера УУМ.

МИРЭА кафедра МОВС

Пример программы на языке ассемблера УУМ. Строка Исходное предложение 5 COPY START 1000 КОПИРОВАНИЕ ФАЙЛА 10 FIRST STL RETADR СОХРАНЕНИЕ АДРЕСА ВОЗВРАТА 15 CLOOP JSUB RDREC ВВОД ВХОДНОЙ ЗАПИСИ 20 LDA LENGTH ПРОВЕРКА НА EOF (LENGTH = 0) 25 COMP ZERO 30 JEQ ENDFIL ВЫХОД, ЕСЛИ НАШЛИ EOF 35 JSUB WRREC ВЫВОД ВЫХОДНОЙ ЗАПИСИ 40 J CLOOP ЦИКЛ 45 ENDFIL LDA EOF ЗАНЕСЕНИЕ МАРКЕРА КОНЦА ФАЙЛА 50 STA BUFFER 55 LDA THREE УСТАНОВИТЬ LENGTH = 3 60 STA LENGTH 65 JSUB WRREC ЗАПИСЬ EOF 70 LDL RETADR УСТАНОВКА АДРЕСА ВОЗВРАТА 75 RSUB ВОЗВРАТ ИЗ ПРОГРАММЫ 80 EOF BYTE C"EOF" 85 THREE WORD 3 90 ZERO WORD 0 95 RETADR RESW 1 100 LENGTH RESW 1 ДЛИНА ЗАПИСИ 105 BUFFER RESB 4096 ДЛИНА БУФЕРА - 4096 БАЙТ 110 * 115 * ПОДПРОГРАММА ВВОДА ЗАПИСИ НА БУФЕР 120 * 125 RDREC LDX ZERO ОБНУЛЕНИЕ СЧЕТЧИКА ЦИКЛА 130 LDA ZERO ОБНУЛЕНИЕ РЕГИСТРА А 135 RLOOP TD INPUT ПРОВЕРКА УСТРОЙСТВА ВВОДА 140 JEQ RLOOP ЦИКЛ ДО ПОЛУЧЕНИЯ ГОТОВНОСТИ 145 RD INPUT ЧТЕНИЕ СИМВОЛА В РЕГИСТР А 150 COMP ZERO ПРОВЕРКА НА КОНЕЦ ЗАПИСИ (Х"00") 155 JEQ EXIT ВЫХОД ИЗ ЦИКЛА ПО КОНЦУ ЗАПИСИ 160 STCH BUFFER,X ЗАПИСЬ СИМВОЛА В БУФЕР 165 TIX MAXLEN ЦИКЛ ДО ДОСТИЖЕНИЯ МАКСИМАЛЬНОЙ 170 JLT RLOOP ДЛИНЫ 175 EXIT STX LENGTH ЗАПОМИНАНИЕ ДЛИНЫ ЗАПИСИ 180 RSUB ВОЗВРАТ ИЗ ПОДПРОГРАММЫ 185 INPUT BYTE X"F1" КОД УСТРОЙСТВА ВВОДА 190 MAXLEN WORD 4096 195 * 200 * ПОДПРОГРАММА ВЫВОДА ЗАПИСИ ИЗ БУФЕРА 205 * 210 WRREC LDX ZERO ОБНУЛЕНИЕ СЧЕТЧИКА ЦИКЛА 215 WLOOP TD OUTPUT ПРОВЕРКА УСТРОЙСТВА ВЫВОДА 220 JEQ WLOOP ЦИКЛ ДО ПОЛУЧЕНИЯ ГОТОВНОСТИ 225 LDCH BUFFER,X ЧТЕНИЕ СИМВОЛА ИЗ БУФЕРА 230 WD OUTPUT ВЫВОД СИМВОЛА 235 TIX LENGTH ЦИКЛ, ПОКА НЕ БУДУТ ВЫВЕДЕНЫ 240 JLT WLOOP ВСЕ СИМВОЛЫ 245 RSUB ВОЗВРАТ ИЗ ПОДРОГРАММЫ 250 OUTPUT BYTE X"05" КОД УСТРОЙСТВА ВЫВОДА 255 END FIRST