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

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

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