Scr # 100Ы 0 ( Port setup and variables )Ы 1 DECIMALЫ 2Ы 3 54016 CONSTANT PORTAЫ 4 54018 CONSTANT PACTLЫ 5Ы 6 : PORTSET ( -- )Ы 7 PACTL C@ DUP 4 - PACTL C!Ы 8 16 PORTA C! PACTL C! ;Ы 9Ы 10 128 VARIABLE SERVOЫ 11 120 VARIABLE OPULSEЫ 12 150 VARIABLE TOPЫ 13Ы 14 : LABEL 0 VARIABLE -2 ALLOT ;Ы 15 -->ЫЫЫЫЫЫScr # 101Ы 0 ( Driver routine )Ы 1 HEX ASSEMBLERЫ 2 100 DP C@ - ALLOT ( PAGE BNDRY )Ы 3Ы 4 LABEL DRIVER ( -- )Ы 5 OPULSE LDX, INX,Ы 6 10 # LDA, PORTA STA,Ы 7 BEGIN, NOP, NOP, DEX, EQЫ 8 UNTIL, ( END FIXED LENGTH )Ы 9 SERVO LDX, INX,Ы 10 BEGIN, NOP, NOP, NOP, NOP,Ы 11 DEX, EQЫ 12 UNTIL, ( END VARIABLE LENGTH )Ы 13 0 # LDA, PORTA STA,Ы 14 E463 @ JMP, ( EXIT VBLANK )Ы 15 -->ЫЫЫЫЫЫScr # 102Ы 0 ( Oscillating Demo )Ы 1 DECIMALЫ 2Ы 3 : DEMO ( -- )Ы 4 PORTSETЫ 5 0 54286 C! DRIVER 548 !Ы 6 64 54286 C! ( INSTALL VBI RTN )Ы 7 BEGIN TOP @ 0Ы 8 DO I SERVO C!Ы 9 100 0 DO LOOP ( DELAY )Ы 10 LOOPЫ 11 0 TOP @Ы 12 DO I SERVO C!Ы 13 100 0 DO LOOP ( DELAY )Ы 14 -1 +LOOP ?TERMINALЫ 15 UNTIL ;ЫЫЫЫЫЫScr # 103Ы 0 ( Keyboard control demo )Ы 1Ы 2 : KEYBOARD ( -- )Ы 3 TOP @ 2 / SERVO !Ы 4 BEGINЫ 5 764 C@ > R 255 764 C!Ы 6 SERVO C@Ы 7 R 6 =Ы 8 IF 1 +Ы 9 ELSE R 7 =Ы 10 IF 1 -Ы 11 ENDIFЫ 12 ENDIF 0 MAX TOP @ MINЫ 13 SERVO !Ы 14 R > 22 =Ы 15 UNTIL ;Ы