PRINT PEEK(49297)POKE 49298,2PRINT PEEK(49297)

# Урок 3 — плата в слоте: дешифратор $C090–$C093, регистры, чтение концевиков и BUSY; REMOTE/LOCAL на CD4019.# $C090 запись: 0 XSTEP 1 XDIR 2 YSTEP 3 YDIR 4 PEN. $C091 чтение: 0 XL0 1 XL1 2 YL0 3 YL1 4 BUSY. $C092 запись: 0–1 цвет.# ---------- механика: ось X, ось Y на её каретке, головка на каретке Y, чёрное перо, бумага ----------maxis ax{len=400}(STEP=XSTEP, DIR=XDIR, L0=XL0, L1=XL1, STALL=XSTALL)maxis ay{len=300, ang=90}(STEP=YSTEP, DIR=YDIR, L0=YL0, L1=YL1, STALL=YSTALL)mount(ay, ax.car)mtable tt(A=NJ1, B=NJ2, C=J1, D=J2)mount(tt, ay.car)mpen k0{color=black}(DOWN=DOWN0)mount(k0, tt.d0)mpaper p{w=460, h=360}at(p, 0, 0)at(ax, p, -41, -138)# ---------- пульт: генератор шагов, стрелки, PEN UP/DOWN ----------clock{rt=60}(CKL)button{label="LEFT"}(LEFT)button{label="RIGHT"}(RIGHT)button{label="UP"}(UP)button{label="DOWN"}(DOWN)button{label="PEN UP/DOWN"}(PENB)# ---------- CD4071: нажата стрелка по X, по Y; ERROR — каретка упёрлась ----------"TI CD4071B"(A=LEFT, B=RIGHT, J=LR, C=UP, D=DOWN, K=UD, E=XSTALL, F=YSTALL, L=ERROR, G=Q6, H=RST, M=QR)# ---------- CD4081: шаги — такт 60 Гц, пока нажата стрелка ----------"TI CD4081B"(A=YL1, B=OEP, C=BUSYH, D=OEP, E=CKL, F=LR, L=LXS, G=CKL, H=UD, M=LYS, J=PRD3, K=PRD4)# ---------- CD4013: PEN UP/DOWN — триггер-переключатель ----------"TI CD4013B"(S1=GND, R1=RST, D1=NLPEN, CL1=PENB, Q1=LPEN, QN1=NLPEN, S2=GND, R2=RST, D2=NLC0, CL2=SELB, Q2=LC0, QN2=NLC0)# ---------- лампы POWER и ERROR ----------led{color=green}(VCC)led{color=red}(ERROR)# ---------- кнопка SELECT ----------button{label="SELECT"}(SELB)# ---------- CD4013: старший бит цвета ----------"TI CD4013B"(S1=GND, R1=RST, D1=NLC1, CL1=NLC0, Q1=LC1, QN1=NLC1, S2=GND, R2=GND, D2=GND, CL2=GND)# ---------- генератор мотора револьвера ----------clock{rt=10}(CKT)# ---------- CD4070: цвет ≠ перо у рабочей точки ----------"TI CD4070B"(A=COL0, B=CP0, J=X0, C=COL1, D=CP1, K=X1, E=GND, F=GND, G=GND, H=GND)# ---------- CD4071: MOVE — крутить; BUSY — крутит или только что докрутил ----------"TI CD4071B"(A=X0, B=X1, J=MOVE, C=MOVE, D=MOVED, K=BUSYH, E=GND, F=GND, G=GND, H=GND)# ---------- CD4013: MOVED — MOVE полтакта назад (второй триггер; первый — в уроке 3) ----------"TI CD4013B"(S1=GND, R1=RST, D1=DOUT1, CL1=LCK2, S2=GND, R2=RST, D2=MOVE, CL2=NCKT, Q2=MOVED, Q1=AC1)# ---------- CD4069: НЕ BUSY, НЕ такта (входы A и B — в уроке 3) ----------"TI CD4069UB"(A=ADDR1, B=REMOTE, C=BUSYH, I=NBUSY, D=CKT, J=NCKT, E=GND, F=GND, G=NA1, H=NREM)# ---------- CD4081: шаг мотора, перо можно опустить, пара перьев ----------"TI CD4081B"(A=CKT, B=MOVE, J=STEPT, C=PEN, D=NBUSY, K=PDN, E=PDN, F=NCP1, L=E0, G=PDN, H=CP1, M=E1)# ---------- CD4081: какое перо опустить ----------"TI CD4081B"(A=E0, B=NCP0, J=DOWN0, C=E0, D=CP0, K=DOWN1, E=E1, F=NCP0, L=DOWN2, G=E1, H=CP0, M=DOWN3)# ---------- CD4013: фазы мотора — два триггера по кругу ----------"TI CD4013B"(S1=GND, R1=RST, D1=NJ2, CL1=STEPT, Q1=J1, QN1=NJ1, S2=GND, R2=RST, D2=J1, CL2=STEPT, Q2=J2, QN2=NJ2)# ---------- CD4017: четверть оборота = 6 шагов ----------"TI CD4017B"(CLOCK=STEPT, RESET=QR, INH=GND, O6=Q6, CO=QCO)# ---------- CD4013: номер пера у рабочей точки ----------"TI CD4013B"(S1=GND, R1=RST, D1=NCP0, CL1=QCO, Q1=CP0, QN1=NCP0, S2=GND, R2=RST, D2=NCP1, CL2=NCP0, Q2=CP1, QN2=NCP1)# ---------- лампа BUSY ----------led{color=yellow}(BUSYH)# ---------- перья: красное, зелёное, синее ----------mpen k1{color=red}(DOWN=DOWN1)mount(k1, tt.d3)mpen k2{color=green}(DOWN=DOWN2)mount(k2, tt.d2)mpen k3{color=blue}(DOWN=DOWN3)mount(k3, tt.d1)# ---------- дешифратор адреса $C090–$C093 ----------"TI CD4069UB"(A=ADDR15, G=NA15, B=ADDR14, H=NA14, C=ADDR7, I=NA7, D=ADDR4, J=NA4, E=ANYB, K=SELP, F=ADDR0, L=NA0)"TI CD4072B"(A=NA15, B=NA14, C=ADDR13, D=ADDR12, J=G1, E=ADDR11, F=ADDR10, G=ADDR9, H=ADDR8, K=G2)"TI CD4072B"(A=NA7, B=ADDR6, C=ADDR5, D=NA4, J=G3, E=ADDR3, F=ADDR2, G=GND, H=GND, K=G4)"TI CD4071B"(A=G1, B=G2, J=H1, C=G3, D=G4, K=H2, E=H1, F=H2, L=ANYB, G=MUX0, H=PRD0, M=DIN0)# ---------- CD4081: запись в $C090 и в $C092 ----------"TI CD4081B"(A=SELP, B=NA0, J=SELW, C=SELW, D=write, K=WR, E=WR, F=NA1, L=WE0, G=WR, H=ADDR1, M=WE2)# ---------- CD4081: такт регистров, чтение $C091 ----------"TI CD4081B"(A=WE0, B=CLK, J=LCK0, C=WE2, D=CLK, K=LCK2, E=SELP, F=ADDR0, L=SELR, G=SELR, H=NA1, M=SELR1)# ---------- CD4081: биты чтения ----------"TI CD4081B"(A=SELR1, B=RnW, J=OEP, C=XL0, D=OEP, K=PRD0, E=XL1, F=OEP, L=PRD1, G=YL0, H=OEP, M=PRD2)# ---------- CD4071: биты чтения — на шину данных ----------"TI CD4071B"(A=MUX1, B=PRD1, J=DIN1, C=MUX2, D=PRD2, K=DIN2, E=MUX3, F=PRD3, L=DIN3, G=MUX4, H=PRD4, M=DIN4)# ---------- регистр $C090: шаги, направления, перо ----------"TI CD4013B"(S1=GND, R1=RST, D1=DOUT0, CL1=LCK0, Q1=AXS, S2=GND, R2=RST, D2=DOUT1, CL2=LCK0, Q2=AXD)"TI CD4013B"(S1=GND, R1=RST, D1=DOUT2, CL1=LCK0, Q1=AYS, S2=GND, R2=RST, D2=DOUT3, CL2=LCK0, Q2=AYD)"TI CD4013B"(S1=GND, R1=RST, D1=DOUT4, CL1=LCK0, Q1=APEN, S2=GND, R2=RST, D2=DOUT0, CL2=LCK2, Q2=AC0)# ---------- тумблер REMOTE ----------input(REMOTE)# ---------- CD4019: кто управляет — компьютер (REMOTE = 1) или пульт ----------"TI CD4019B"(KA=REMOTE, KB=NREM, A1=AXS, B1=LXS, D1=XSTEP, A2=AXD, B2=RIGHT, D2=XDIR, A3=AYS, B3=LYS, D3=YSTEP, A4=AYD, B4=DOWN, D4=YDIR)"TI CD4019B"(KA=REMOTE, KB=NREM, A1=APEN, B1=LPEN, D1=PEN, A2=AC0, B2=LC0, D2=COL0, A3=AC1, B3=LC1, D3=COL1, A4=GND, B4=GND)reconnect(DIN0.DIN0 = MUX0)reconnect(DIN1.DIN1 = MUX1)reconnect(DIN2.DIN2 = MUX2)reconnect(DIN3.DIN3 = MUX3)reconnect(DIN4.DIN4 = MUX4)