|
||||
Меню:
Главная
Форум
Литература: Программирование и ремонт Импульсные блоки питания Неисправности и замена Радиоэлектронная аппаратура Микросхема в ТА Рубрикатор ТА Кабельные линии Обмотки и изоляция Радиоаппаратура Гибкие диски часть 2 часть 3 часть 4 часть 5 Ремонт компьютера часть 2 Аналитика: Монтаж Справочник Электроника Мощные высокочастотные транзисторы 200 микросхем Полупроводники ч.1 Часть 2 Алгоритмические проблемы 500 микросхем 500 микросхем Сортировка и поиск Монады Передача сигнала Электроника Прием сигнала Телевидиние Проектирование Эвм Оптимизация Автомобильная электроника Поляковтрансиверы Форт Тензодатчик Силовые полевые транзисторы Распределение частот Резисторные и термопарные Оберон Открытые системы шифрования Удк |
[93] 2030 IF ОУЛВУ. - 1> « IX. THEN COLOR= 0:4 « 65:H « H - 6: GOSUB 3630! GOSUB 3630: GOTO 2050 2039С m oy.iBX - 1) 2040OX.CBX. - 1) = IX.: COLOR-0:H = H - 6:4 = 30: GOSUB 3630: COLOR" NCX:C - IX.: GOSUB 3630 2050 RETURN 3630 ON С GOTO 3680,3710, 375П,3790,3820,3850,3 880,3910,3950 3640 PLOT H + 4,V TO H t 2,V TO H * 1 ,4 + 1 TO H + 1 ,4 + 5 3650 PLOT H + 2,4 + 6 TO H + 4,4 + 6 TO H + 5, 4 + 5 TO H + 5,4 + 1 3660 PLOT H t 4,V ♦ 2 TO H + 2,4 + 4 3670 RETURN 3680 PLOT H + 2,4 + 1 TO H + 3,4 TO H * 3,4 + 6 3690 PLOT H ♦ 2,V ♦ 4 TO H + 4,4 + 6 3700 RETURN 3710 PLOT H + 1 ,4 + 1 TO H 2,4 TO H + 4,4 TO H ♦ 5,4 + I TO H t 5, 4+2 3720 PLOT H + 4,4 + 3 TO H + 3,4 + 3 TO H + 1, 4 + 5 3730 PLOT H + l,V ( 4 TO H + 5, 4 + 6 374 0 RETURN " 3750 PLOT H + 1,V TO H t 5,4 TO H + 5,4 + 1 TO H + 3,4 + 3 3760 PLOT H + 4,4 + 3 TO H + 5,4 ♦ 4 TO H t 5, V + 5 3770 PLOT H ♦ 4,V t 4 TO H+ 2,4 + 6 TO H t 1, 4+5 3780 RETURN 3790 PLOT H + 4,4 + 6 TO H + 4,V TO H ♦ 1,4 + 3 3800 PLOT H + l,W ♦ 4 TO H + 5,4 + 4 3810 RETURN 3820 PLOT H + 5,4 TO H ♦ 1,4 TO H ♦ 1,4 + 2 TO H + 4,4 + 2 3830 PLOT H + 5,4 + 3 TO H + 5,4 + 5 TO H + 4, 4+6 TO H + 4,4 + 6 TO H + 2,4 + 6 TO H + 1, 4+5 3840 RETURN 3850 PLOT H + 5,4 TO H + 3,4 TO H + 1,4 + 2 TO H + 1 ,V + 5 3860 PLOT H + 2,4 ♦ 6 TO H + 4,4 + 6 TO H + 5, 4+5 TO H + 5,4 ♦ 4 TO H + 4,4 + 3 TO H + 2, 4+3 3870 RETURN 3880 PLOT H + 1,4 TO H + 5,4 3890 PLOT H + 5,4+ 1 TO H + 2,4 + 4 TO H + 2, 4+6 3900 RETURN 3910 PLOT H ♦ 1,4 + 2 TO H + 1,4 + 1 TO H + 2, 4 TO H + 4,4 TO H + 5 ,4 + 1 TO И + 5,4 + 2 3920 PLOT H + 4,4 + 3 TO H+2.4+3T0H+1, 4+4 T,0 H + 1 ,4 + 5 3930 PLOT H + 2,4 + 6 TO H + 4,4 + 6 TO H + 5, 4+5 TO H + 5,4 + 4 394 0 RETURN 3950 PLOT H + 4,4 + 3 TO H+2.4+3T0H+ 1, 4+2 TO H + 1,4 + 1 TO H + 2,4 TO H + 4,4 3960 PLOT H + 5,4 + 1 TO H + 5,4 + 4 TO H + 3, 4+6TOH+ 1,4+6 3970 RETURN НОМЕ # S500: vkl:sta«c200 lda etalon + 1 sta«fffa lda etalon + 2 sta«fffb lda etalon + 4 sta«fffe lda etalon + 5 sta«ffff sta«c220 cli sta«c050 ldam2s sta34 sta37 lda32 sta36 rts etalon:jmp nmi jmp irq mop nop nop ppa:brk ppx:brk pqa:Brk pqx:brk stc:*00 set:*oo ska:*31 skb:*3E skc:«3C MMI:sta«c040 sta ppa stx ppx lda set sta stc inc stc ! ldx ska ! lda«c700,x 130 : ldam25 sta34 ldx ppx lda ppa 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 320 330 340 STASC050 RTI IRQ:STA PQA STX PQX PLA PHA ASL ASL ASL BPL MTA LDA PQA JMP*E53D MTA:DEC STC BNE MTB LDX SKB LDA«C700,X INC- STC MTB:LDX PQX LDA PQA RTI VIKL:STA«C040 SEI LDX SKC LDA«C700,X .LDAMO STA 34 JMPSFC3D REM «SET-КОЛИЧЕСТВО REM «СТРОК,SKA И SKB REM «СТРАНИЦЫ ГРАФИК .REM «ИЛИ ТЕКСТА.CALL REM #VKL:ВКЛЮЧЕНИЕ REM #CALL VIKL:BH-REM ВКЛЮЧЕНИЕ. REM «СТРАНИЦЫ: REM #GR:»<N#4> REM *MGR:-((N*16)+l) REM #TEXT:-((N#4)+2) REM #HGR:-((N*16)«-3> REM «ПРИМЕР: REM «РОКЕ SKA ,N 5 LOMEM: «2000: HIMEM: «3 ООО: PRINT : REM CHR* (4)i"BLOADDSBIN" 10 GOSUB 3000 20 CV = 25 50 GOSUB 2000 100 POKE 36,0: VTAB CV 102 PRINT CHR* (*9D)I 105 PRINT SLOT - "i 110 GOSUB 1000 115 S = X 12C IF S < 1 OR S > 7 THEN 100 130 IF INT (S) < > S THEN 100 140 POKE 36,32: VTAB cv: PRINT CHR* (*9D) 145 PRINT "DRIVE - "t 150 GOSUB 1000:D « X 160 IF D < 1 OR D > 2 THEN 140 180 POKE 251,S * 16". POKE 252,D - 1 185 PRINT : PRINT 190 PRINT "DISK SPEED » MS" 200 CALL 3328 220 IF PEEK (255) « 0 THEN 10 230 GOSUB 3000 240 PRINT : PRINT " bDISK ETTE IS WRITE PROTECT ED! ! " 250 PRINT "PRESS RETURN T 0 CONTINUE." 260 IF PEEK ( - 16384) < 127 THEN 260 270 POKE - 16368,0: GOTO 10 300 REM 123456 1000 X = PEEK ( - 16384): IF X < 127 THEN 1000 1010 POKE - 16368,0 1013 IF X = *9B THEN HOME : NEW : END 1015 IF X > *9F THEN PRINT CHR* (X) 1017 IF X < *B0 OR X > *B 9 THEN X « *80 1020 X « VAL •( CHR* (X - «80) ) |
Среды: Smalltalk80 MicroCap Local bus Bios Pci 12С ML Микроконтроллеры: Atmel Intel Holtek AVR MSP430 Microchip Книги: Емкостный датчик 500 схем для радиолюбителей часть 2 (4) Структура компьютерных программ Автоматическая коммутация Кондиционирование и вентиляция Ошибки при монтаже Схемы звуковоспроизведения Дроссели для питания Блоки питания Детекторы перемещения Теория электропривода Адаптивное управление Измерение параметров Печатная плата pcad pcb Физика цвета Управлении софтверными проектами Математический аппарат Битовые строки Микроконтроллер nios Команды управления выполнением программы Перехода от ahdl к vhdl Холодный спай Усилители hi-fi Электронные часы Сердечники из распылённого железа Анализ алгоритмов 8-разрядные КМОП Классификация МПК История Устройства автоматики Системы и сети Частотность Справочник микросхем Вторичного электропитания Типы видеомониторов Радиобиблиотека Электронные системы Бесконтекстный язык Управление техническими системами Монтаж печатных плат Работа с коммуникациями Создание библиотечного компонента Нейрокомпьютерная техника Parser Пи-регулятор ч.1 ПИ-регулятор ч.2 Обработка списков Интегральные схемы Шина ISAВ Шина PCI Прикладная криптография Нетематическое: Взрывной автогидролиз Нечеткая логика Бытовые установки (укр) Автоматизация проектирования Сбор и защита Дискретная математика Kb радиостанция Энергетика Ретро: Прием в автомобиле Управление шаговым двигателем Магнитная запись Ремонт микроволновки Дискретные системы часть 2 | ||