Screen: 50Ы 0 ( CONSTANTS ***** EWR/ANTIC MAG )Ы 1 : EQU CONSTANT ; HEXЫ 2 10 EQU POKMSKЫ 3 D400 EQU DMACTL 22F EQU SDMCTLЫ 4 D208 EQU AUDCTL D203 EQU AUDC2Ы 5 D302 EQU PACTL D300 EQU PORTAЫ 6 224 EQU VVBLKD 212 EQU VTIMR2Ы 7 600 EQU SERVO0 601 EQU SERVO1Ы 8 602 EQU SERVO2 603 EQU SERVO3Ы 9 604 EQU SERVO4 605 EQU SERVO5Ы 10 606 EQU SERVO6 607 EQU SERVO7Ы 11 608 EQU OPULS0 609 EQU OPULS1Ы 12 60A EQU OPULS2 60B EQU OPULS3Ы 13 60C EQU OPULS4 60D EQU OPULS5Ы 14 60E EQU OPULS6 60F EQU OPULS7Ы 15 -->ЫЫScreen: 51Ы 0 ( PAGE 6 CODE )Ы 1Ы 2 0 VARIABLE 6CODE -2 ALLOTЫ 3 2020 , 2020 , 2020 , 2020 ,Ы 4 DECIMAL ( OPULS0-7 VALUES: )Ы 5 64 C, 64 C, 64 C, 64 C,Ы 6 64 C, 64 C, 64 C, 64 C, HEXЫ 7 0000 , 11AD , 8D06 , D300 ,Ы 8 110E , AE06 , 0610 , 08E0 ,Ы 9 10F0 , BD18 , 0600 , 087D ,Ы 10 8DO6 , D202 , 098D , EED2 ,Ы 11 0610 , A260 , 8E00 , 0610 ,Ы 12 088E , 8ED2 , D400 , 8EE8 ,Ы 13 0611 , 10A5 , 0209 , 0E8D ,Ы 14 20D2 , 0612 , 624C , 8AE4 ,Ы 15 2048 , 0612 , AA68 , 4068 , -->ЫЫScreen: 52Ы 0 ( SETUP START STOP )Ы 1 : SETUP ( -- )Ы 2 6CODE 600 58 CMOVEЫ 3 PACTL C@ DUP FB AND PACTL C!Ы 4 FF PORTA C! PACTL C!Ы 5 A0 AUDC2 C! 64F VTIMR2 ! ;Ы 6Ы 7 SETUPЫ 8Ы 9 : START ( -- )Ы 10 C2 POKMSK C! 0 D40E C!Ы 11 633 VVBLKD ! 40 D40E C! ;Ы 12Ы 13 : STOP ( -- )Ы 14 0 D40E C! E462 VVBLKD !Ы 15 40 D40E C! C0 POKMSK C! ; -->ЫЫScreen: 53Ы 0 ( TEST )Ы 1Ы 2 DECIMALЫ 3Ы 4 : TEST ( -- )Ы 5 START 10 0Ы 6 DO 8 0Ы 7 DO SERVO0 I + C@ DUP 20 +Ы 8 SERVO0 I + C! 6000 0 DO LOOPЫ 9 SERVO0 I + C! 6000 0 DO LOOPЫ 10 LOOPЫ 11 ?TERMINAL IF LEAVE ENDIFЫ 12 LOOP STOP ;Ы 13Ы 14Ы 15Ы