;***************************************************************** ;１９９９年８月０８日; ;プログラム名：P73K1.ASM Ver1.0 ;ＰＩＣ１６Ｆ８４用から ;ＰＩＣ１６Ｃ７３Ｂに変更 ;バッファーを拡張しＢＡＮＫ１も使用（約１６０文字程度） ; ; ; このプログラムは、後閑氏のサンプルを基に、以前から使っていた ; 自作エレキーのＺ８０プログラムを、ＰＩＣ用に書き換えたものです。 ; ;ＰＩＣ１６Ｃ７３ＡではＵＳＡＲＴが組み込まれているため9600に ;チャレンジしましたが９６００ＢＰＳではエラーが起こるので ;１２００ＢＰＳで使用しています。（受信落ち：常数を変えても改善できず） ;まだ、冗長度の有りすぎる記述や、レジスターの使い方をしています。 ; ;JE3JLB 石原 ; ; ;アセンブラーは　ＭＰＬＡＢ　4.12 を使いました。 ;最新の　ＭＰＬＡＢ　は、ホームページをご覧下さい。 ;ＥＥＰＲＯＭへの書き込みは、秋月電子のＰＩＣライターキットを ;使用しました。 ; ;ＰＩＣは１６Ｃ７３Ｂを20MHzで使用しています。 ;書き込み時のモードは、PICW98.EXE VER1.0に16C73Bが無かった為 ;デバイス＝１６Ｃ７３Ａで書き込んでいます。 ;ＷＤＴ＝ＯＦＦ　発振＝ＨＳを設定しています。 ;プロテクト＝ＯＦＦ　　ＢＯＤ＝ＯＮ ; ; ; Bit7 Bit6 Bit5 Bit4 Bit3 Bit2 Bit1 Bit0 ; +-------+-------+-------+-------+-------+-------+-------+-------+ ; |RS_B4SP|RS_EC1 |NK_LCD |NK_SCD |USE |USE |USE |USE |ELKST ; +-------+-------+-------+-------+-------+-------+-------+-------+ ; |USE |USE |USE |USE | |USE |USE |USE |RS_ING ; +-------+-------+-------+-------+-------+-------+-------+-------+ ; | | |_USE |_USE | | | | |MPIOB ; +-------+-------+-------+-------+-------+-------+-------+-------+ ; | | | | | | |OT_BNK |IN_BNK |IB_EXP ; +-------+-------+-------+-------+-------+-------+-------+-------+ ; IN_BNK OT_BNK とも 0=BANK0 : 1=BANK1 ; ;***************************************************************** ; LIST P=PIC16C73B ;PIC16C73　を宣言 include "P16C73B.INC" ;MAPLAB use ;;;************************************ ;;; ;;; ____==______======__==__======______==__==______________ ;;; ;;; D D D D D D D S ;;; O O O A A A O P ;;; 1 2 4 3 4 6 2 4 ;;; 0 0 0 0 0 0 0 0 ;;; ;************************************* ; Define constant module　 ;************************************* ;**** Define Variables ***** WREG EQU 020H ;wreg save area SREG EQU 021H ;status reg save area ;TXREG EQU 022H ;send data buffer RXREG EQU 023H ;receive data buffer CNT2 EQU 024H ;DUMMY ;-　追加記述部　-------------------------------------------------- #DEFINE NK_SCD ELKST,4 ;NEXT KET STATUS SCD #DEFINE NK_LCD ELKST,5 ;NEXT KEY STATUS LCD #DEFINE RS_EC1 ELKST,6 ;RS ESC FLAG #DEFINE RS_B4SP ELKST,7 ;RS 一つ前のスペースを記憶 ELKST EQU CNT2+1h ;Elekey status CLCT EQU CNT2+2h ;Clock counter value W_TEMP EQU CNT2+3H ;外部(RB0)割込み発生時のＷレジ退避用 ST_TEMP EQU CNT2+4H ;外部(RB0)割込み発生時のSTATUSレジ退避用 M_DO10 EQU CNT2+5H ;ドット単位時間 M_DO20 EQU CNT2+6H ;ドット終了文字の　確保時間 DO+DOSP M_DO40 EQU CNT2+7H ;ドット終了文字の　語間 M_DA30 EQU CNT2+8H ;ダッシュ単位時間 M_DA40 EQU CNT2+9H ; ダッシュ終了文字の　確保時間 DA+DASP M_DA60 EQU CNT2+0AH ;ダッシュ終了文字の　語間 M_SP40 EQU CNT2+0BH ;語間の時間（スペース） ; IB_IP EQU CNT2+0CH ;入力バッファーの現在ポイント（入力用） IB_OP EQU CNT2+0DH ;入力バッファーの現在ポイント（出力用） IB_LG EQU CNT2+0EH ;入力バッファーの現在文字数 RS_NOW EQU CNT2+0FH ; 1 Byte ＲＳ，処理中のテンポラリィ RS_ING EQU CNT2+10H ;RS-232C 処理中　ステータス RSTMP EQU CNT2+11H ;RS-232C 処理のテンポラリー MPIOB EQU CNT2+012H ;PIOBのメモリー上のイメージ IB_EXP EQU CNT2+013H ;バッファーのバンク切り替え IB_ST_A EQU CNT2+14H ;受信バッファ　スタートアドレス IB_ED_A EQU 07FH ;受信バッファ　エンドアドレス IB_ST_B EQU 0A0H ;BANK1のスタートアドレス IB_ED_B EQU 0FEH ;BANK1のエンドアドレス 注意 0FEHex IB_L EQU IB_ED_A - IB_ST_A + 1 + 05FH ;バッファー長 ; ;----------- 標準値 -------------------------------------------------- MI1 equ 1 ;Mark interval clock count 基準 MI04 equ (MI1)*4 ;Mark interval x 04 MI10 equ (MI1)*10 ;Mark interval x 10 MI20 equ (MI1)*20 ;Mark interval x 20 MI30 equ (MI1)*30 ;Mark interval x 30 MI40 equ (MI1)*40 ;Mark interval x 40 ;;;******************************** ;;; 　　　スタート ;;;******************************** ORG 0 ;reset GOTO START ;電源ＯＮ時のスタート ORG 4 ;割り込み発生時のアドレス GOTO INTERRUPT ;RS & スピード調整の割り込み ORG 08H ;code ;************************************* START BCF INTCON,GIE ;Interrupt disable CALL PORT_INI ;Initialise CALL KEY_SET ;モールスコード長を設定。 BCF PORTA,2 ;DEBUG用（未使） MAIN BSF INTCON,INTE ;RB0/INT　許可 BCF INTCON,INTF ;RB0/INT FLAG クリヤー ;ＲＳ−２３２Ｃ入力バッファー、初期設定 ; CW0: BCF INTCON,GIE ;割込禁止 MOVLW IB_ST_A ;スタートアドレス MOVWF IB_IP ; MOVWF IB_OP ; CLRF IB_EXP ;BANK FLAG V2 CLRF RS_NOW ; CLRF RS_ING ;RS232C 処理中ステータス = 00H CLRF IB_LG ;バッファー文字数 = 0 CLRF RSTMP ; BSF INTCON,GIE ;割込許可 CW1 MOVF IB_LG,W ; SUBLW IB_L - 20 ;20CHR以上空きができたら BTFSC STATUS,C ;SUBLW PIC は正でＣ＝１ BCF PORTC,5 ;CTS(RTS)=ON ;ここにパドルの読み込み処理を入れる ;---------パドル入力処理------------------------- KEYINT ;パドル　ポートを入力 BTFSC PORTB,4 ;ｄｏｔ？ Dot Yes=0 GOTO KEYIN2 ; BCF MPIOB,4 ;ドットビット４を０に KEYIN2 BTFSC PORTB,5 ;ダッシュか？ GOTO KEYIN_END ; BCF MPIOB,5 ; KEYIN_END MOVF MPIOB,W ; XORLW 0FFH ; BTFSS STATUS,Z ;パドル無し？ GOTO CW0 ;パドル有り GOTO CW1 ;----------------------------------------------------------- ;キー信号送出時間、初期設定（基本） KEY_SET MOVLW MI10 ;単位１０ MOVWF M_DO10 ADDLW MI10 ;単位２０ MOVWF M_DO20 ADDLW MI20 ;単位４０ MOVWF M_DO40 MOVLW MI30 ;単位３０ MOVWF M_DA30 ADDLW MI10 ;単位４０ MOVWF M_DA40 ADDLW MI20 ;単位６０ MOVWF M_DA60 MOVLW MI40 ;単位４０ スペース（文字間＋４０＝７０） MOVWF M_SP40 ;----------------------------------------------------------------- ;設定ＳＷによる (ダッシュ長) Dot:Dash 1:3 --> 1:3.4 に伸ばす。 BTFSC PORTB,1 ;IF PORT B 1BIT=Low なら設定 GOTO SWSET_END1 MOVLW MI04 ;４単位プラス ADDWF M_DA30,F ; ADDWF M_DA40,F ; ADDWF M_DA60,F ;DASH (+4) ;-------------------------------------------------------------------- SWSET_END1 ;設定ＳＷによる (文字間長) 文字間 3.0 --> 3.4 に伸ばす。 BTFSC PORTB,2 ;IF PORT B 2bit=Low なら設定 GOTO SWSET_END2 MOVLW MI04 ;４単位プラス ADDWF M_DO40,F ; ADDWF M_DA60,F ;DASH (+4) ;-------------------------------------------------------------------- SWSET_END2: ;------------------------------------ スペース長　セット ;設定ＳＷによる (スペース長　セット) スペース 7.0 --> 6.0 に短縮する。 BTFSC PORTB,3 ;IF PORT B 3bit=Low なら設定 GOTO SWSET_END3 MOVLW MI10 ;１０単位マイナス SUBWF M_SP40,F ; SWSET_END3 ;----------------------------------------------------------------- ;その他の、設定 CLRF ELKST ;ステータスバッファー初期化 MOVLW 0FFH MOVWF MPIOB ;B'11111111' CLRF CLCT ; CALL KOUT0 ;キー出力をＯＦＦ RETURN ;---------------------------------------------------------------- ;CW DEC PATTERN FOR CW.ASM ;英数字のみに対応 ; 92/06/06 12:14 JE3JLB ; 99/03/20 ＰＩＣマイコン用に書き換え ;---------------------------------------------------------------- CW_TBL ADDWF PCL,F ;JMP PC+W RETLW B'10000000' ;20H SPACE RETLW B'11111111' ;21H RETLW B'11111111' ;22H RETLW B'01001010' ;23H " RETLW B'11111111' ;24H $ RETLW B'11111111' ;25H % RETLW B'11111111' ;26H & RETLW B'01111010' ;27H ' RETLW B'10110100' ;28H ( RETLW B'10110110' ;29H ) RETLW B'11111111' ;2AH * RETLW B'01010100' ;2BH + RETLW B'11001110' ;2CH , RETLW B'10000110' ;2DH - RETLW B'01010110' ;2EH . RETLW B'10010100' ;2FH / RETLW B'11111100' ;"0" ;30H RETLW B'01111100' ;"1" RETLW B'00111100' ;"2" RETLW B'00011100' ;"3" RETLW B'00001100' ;"4" RETLW B'00000100' ;"5" RETLW B'10000100' ;"6" RETLW B'11000100' ;"7" RETLW B'11100100' ;"8" RETLW B'11110100' ;"9" RETLW B'11111111' ;3AH : RETLW B'11111111' ;3BH ; RETLW B'11111111' ;3CH < RETLW B'10001100' ;3DH = RETLW B'11111111' ;3EH > RETLW B'00110010' ;3FH ? RETLW B'11111111' ;40H @ RETLW B'01100000' ;"A", RETLW B'10001000' ;"B", RETLW B'10101000' ;"C", RETLW B'10010000' ;"D", RETLW B'01000000' ;"E", RETLW B'00101000' ;"F", RETLW B'11010000' ;"G", RETLW B'00001000' ;"H", RETLW B'00100000' ;"I", RETLW B'01111000' ;"J", RETLW B'10110000' ;"K", RETLW B'01001000' ;"L", RETLW B'11100000' ;"M", RETLW B'10100000' ;"N", RETLW B'11110000' ;"O", RETLW B'01101000' ;"P", RETLW B'11011000' ;"Q", RETLW B'01010000' ;"R", RETLW B'00010000' ;"S", RETLW B'11000000' ;"T", RETLW B'00110000' ;"U", RETLW B'00011000' ;"V", RETLW B'01110000' ;"W", RETLW B'10011000' ;"X", RETLW B'10111000' ;"Y", RETLW B'11001000' ;"Z", RETLW B'11111111' ;5BH [ RETLW B'11111111' ;5CH \ RETLW B'11111111' ;5DH ] RETLW B'11111111' ;5CH ^ RETLW B'11111111' ;5FH _ RETLW B'11111111' ;60H ` RETLW B'01100000' ;"a", RETLW B'10001000' ;"b", RETLW B'10101000' ;"c", RETLW B'10010000' ;"d", RETLW B'01000000' ;"e", RETLW B'00101000' ;"f", RETLW B'11010000' ;"g", RETLW B'00001000' ;"h", RETLW B'00100000' ;"i", RETLW B'01111000' ;"j", RETLW B'10110000' ;"k", RETLW B'01001000' ;"l", RETLW B'11100000' ;"m", RETLW B'10100000' ;"n", RETLW B'11110000' ;"o", RETLW B'01101000' ;"p", RETLW B'11011000' ;"q", RETLW B'01010000' ;"r", RETLW B'00010000' ;"s", RETLW B'11000000' ;"t", RETLW B'00110000' ;"u", RETLW B'00011000' ;"v", RETLW B'01110000' ;"w", RETLW B'10011000' ;"x", RETLW B'10111000' ;"y", RETLW B'11001000' ;"z", RETLW B'11111111' ;7BH RETLW B'11111111' ;7CH RETLW B'11111111' ;7DH RETLW B'11111111' ;7EH RETLW B'11111111' ;7FH ;;;//////////////////////////////////////////////////////////////////// END_PAT RETLW B'10000000' ;駄目押し的挿入 ; ;----------タイマー（ＮＥ５５５によるキースピードタイミング割込）----- ; EKEND MOVLW 0FFH ;割込リターン処理 MOVWF MPIOB ; SWAPF ST_TEMP,W ;ステータスを戻す MOVWF STATUS ; SWAPF W_TEMP,F ;Ｗレジを戻す SWAPF W_TEMP,W ; RETFIE ;16C73ではGOTO INTERRUPTとしてはいけない。 ELEKEY BTFSS INTCON,INTF ;RB0/INT? RETFIE ;NOT -> RETURN IE BCF INTCON,INTF ;RESET INTF ; MOVWF W_TEMP ;Ｗレジ退避 SWAPF STATUS,W ;ステータス取り出し MOVWF ST_TEMP ;ステータス退避 ;Check elekey status ;ELKST エレキーステータス １で有り BTFSC ELKST,0 ;Dot モードか GOTO SCD ;Yes,=1 BTFSC ELKST,1 ;Dash モードか GOTO LCD ;Yes,=1 BTFSS MPIOB,4 ;dot comming? DOT=B4 0 GOTO SMODE ;Yes,=0 BTFSS MPIOB,5 ;dash comming? DASH=B5 0 GOTO LMODE ;Yes,=0 ;ＲＳ−２３２Ｃの処理 MOVF RS_ING,W ;CP 00H RS_ING -> W BTFSC STATUS,Z ;RS 処理中か？ ZERO = No GOTO RSCHRIN ; BTFSC RS_ING,7 ; GOTO RS_SPA_2 ;スペース　期間 BTFSC RS_ING,0 ; GOTO RS_DOT_2 ;DOT MARK 0 ~ 10 BTFSC RS_ING,1 GOTO RS_DOT_2 ;DOT SPACE 10 ~ 20 BTFSS RS_ING,2 GOTO RSINGBIT2 ;IF 0 DOT SPACE 20 ~ 40 MOVLW 080H SUBWF RS_NOW,W ;終了フラグ　1000 0000 bit BTFSC STATUS,Z GOTO RS_IB_1 ; MOVLW 00H SUBWF RS_NOW,W ;終了フラグ　0000 0000 bit BTFSC STATUS,Z GOTO RS_IB_1 BCF STATUS,C ;キャリーOFF RLF RS_NOW,F BTFSC STATUS,C GOTO RS_DAS GOTO RS_DOT RS_IB_1 BTFSS RS_EC1 ;CMP エスケ−プ　フラグ GOTO RS_DOT_2 CLRF RS_ING ; BCF RS_EC1 ; CLRF CLCT ;RESET CLOCK COUNTER GOTO ELEKEY_E RSINGBIT2 BTFSC RS_ING,4 ; GOTO RS_DAS_2 ;DASH MARK 0 ~ 30 BTFSC RS_ING,5 ; GOTO RS_DAS_2 ;DASH SPACE 30 ~ 40 BTFSS RS_ING,6 ; GOTO RSINGBIT3 ;DASH SPACE 40 ~ 60 MOVLW 080H SUBWF RS_NOW,W ;終了フラグ　1000 0000 bit BTFSC STATUS,Z GOTO RS_IB_2 MOVLW 00H SUBWF RS_NOW,W ;終了フラグ　0000 0000 bit BTFSC STATUS,Z GOTO RS_IB_2 BCF STATUS,C ;キャリーOFF RLF RS_NOW,F BTFSC STATUS,C GOTO RS_DAS GOTO RS_DOT RS_IB_2 BTFSS RS_EC1 ;エスケープ　フラグ GOTO RS_DAS_2 ;NO ZERO RSINGBIT3 CLRF RS_ING BCF RS_EC1 ; CLRF CLCT ;RESET CLOCK COUNTER GOTO ELEKEY_E RSCHRIN ;入力文字有りか (1 Byte) MOVF IB_LG,W ;CMP 0 BTFSC STATUS,Z GOTO ELEKEY_E ;ZERO RS 入力文字無し RSCHRIN_2 ;; BCF INTCON,GIE ;INT ALL OFF BTFSC IB_EXP,1 ;OUTPUT BANK0/1 ? GOTO RSCHRIN_2B ;BANK1 DECF IB_LG,F ;入力文字数を減算 (1 Byte) MOVF IB_OP,W MOVWF FSR ;ADR POINTER MOVF INDF,W ;FSRを使った間接読みだし (INDF)->W ANDLW 07FH ;00H to 07FH MOVWF RSTMP ; INCF IB_OP,F ;現在のアドレス + 1 MOVLW IB_ED_A ;エンドアドレスをＷレジに SUBWF IB_OP,W ;出力（取りだし）のアドレスが BTFSS STATUS,Z ;最終アドレスを超えていないか？ GOTO RSCHRIN_21 ;超えていない。GOTO MOVLW IB_ST_B ;超えたので、 MOVWF IB_OP ;スタートアドレスをセット BSF IB_EXP,1 ;BANK1 SET GOTO RSCHRIN_21 RSCHRIN_2B ;BANK1 JOB DECF IB_LG,F ;入力文字数を減算 (1 Byte) MOVF IB_OP,W MOVWF FSR ;ADR POINTER MOVF INDF,W ;FSRを使った間接読みだし (INDF)->W ANDLW 07FH ;00H to 07FH MOVWF RSTMP ; INCF IB_OP,F ;現在のアドレス + 1 MOVLW IB_ED_B ;エンドアドレスをＷレジに SUBWF IB_OP,W ;出力（取りだし）のアドレスが BTFSS STATUS,Z ;最終アドレスを超えていないか？ GOTO RSCHRIN_21 ;超えていない。GOTO MOVLW IB_ST_A ;超えたので、 MOVWF IB_OP ;スタートアドレスをセット BCF IB_EXP,1 ;BANK0 SET RSCHRIN_21 ;; BSF INTCON,GIE ;INT ALL ON MOVLW '_' SUBWF RSTMP,W BTFSC STATUS,Z ; GOTO RS_ESC ;COMP ZERO MOVLW ' ' SUBWF RSTMP,W BTFSC STATUS,Z GOTO RS_SPA ;COMP ZERO ;20H〜7FHまでに制限 MOVLW 20H SUBWF RSTMP,W ; W - 20H -->W BTFSS STATUS,C GOTO ELEKEY_E ; is < 20H 'C' CALL CW_TBL ;CHR to CW CODE MOVWF RSTMP ;CODE を一時退避 MOVLW 0FFH SUBWF RSTMP,W BTFSC STATUS,Z ;NOT 0FFH -> SKIP GOTO MUKOU_CODE ;無効コード MOVF RSTMP,W MOVWF RS_NOW MOVLW 080H ; SUBWF RS_NOW,W ;終了フラグ　1000 0000 bit BTFSC STATUS,Z ; GOTO RSBIGN_E ; MOVLW 00H ; SUBWF RS_NOW,W ;終了フラグ　0000 0000 bit BTFSC STATUS,Z ; GOTO RSBIGN_E ; BCF STATUS,C ;キャリーOFF RLF RS_NOW,F ;SLA BTFSC STATUS,C GOTO RS_DAS ;'C' GOTO RS_DOT RSBIGN_E CLRF RS_ING ;(RS_ING)=0 MUKOU_CODE ELEKEY_E GOTO EKEND ;No,then go to end ;----------------------------------------------------------------- RS_ESC: ;エスケープ文字の処理　[_] CLRF CLCT ;CLCT RESET BSF RS_EC1 ; ;_HH _AR _BK etc. BCF RS_B4SP ;直前スペースをクリアー GOTO ELEKEY_E ;----------------------------------------------------------------- RS_SPA ;スペースコード入力時の処理 CLRF CLCT ;CLCT RESET MOVLW 80H MOVWF RS_ING ; CALL KOUT0 ;駄目押し RS_SPA_2 MOVF M_SP40,W ;70 - 30 = 40 SUBWF CLCT,W ; BTFSS STATUS,Z GOTO RS_SPA_9 CLRF RS_ING CLRF CLCT ;CLCT RESET GOTO RS_SPA_E RS_SPA_9 INCF CLCT,F ;COUNTER UP RS_SPA_E GOTO ELEKEY_E ;----------------------------------------------------------------- RS_DOT CLRF CLCT ;CLCT RESET MOVLW B'00000001' MOVWF RS_ING CALL KOUT1 RS_DOT_2 MOVF M_DO10,W ;=10 SUBWF CLCT,W BTFSS STATUS,Z GOTO RS_DOT_21 CALL KOUT0 BCF STATUS,C ;キャリーOFF RLF RS_ING,F ;SLA GOTO RS_DOT_9 RS_DOT_21 MOVF M_DO20,W SUBWF CLCT,W BTFSS STATUS,Z GOTO RS_DOT_3 BCF STATUS,C RLF RS_ING,F GOTO RS_DOT_9 RS_DOT_3 MOVF M_DO40,W SUBWF CLCT,W BTFSS STATUS,Z GOTO RS_DOT_9 CLRF RS_ING CLRF CLCT GOTO RS_DOT_E RS_DOT_9 INCF CLCT,F RS_DOT_E GOTO ELEKEY_E ;----------------------------------------------------------------- RS_DAS CLRF CLCT ;CLCT RESET MOVLW B'00010000' MOVWF RS_ING CALL KOUT1 RS_DAS_2 MOVF M_DA30,W SUBWF CLCT,W BTFSS STATUS,Z GOTO RS_DAS_21 CALL KOUT0 BCF STATUS,C ;キャリーOFF RLF RS_ING,F ;SLA GOTO RS_DAS_9 RS_DAS_21 MOVF M_DA40,W SUBWF CLCT,W BTFSS STATUS,Z GOTO RS_DAS_3 BCF STATUS,C RLF RS_ING,F GOTO RS_DAS_9 RS_DAS_3 MOVF M_DA60,W SUBWF CLCT,W BTFSS STATUS,Z GOTO RS_DAS_9 CLRF RS_ING CLRF CLCT GOTO RS_DAS_E RS_DAS_9 INCF CLCT,F RS_DAS_E GOTO ELEKEY_E ;----------------------------------------------------------------- ;--------SCD ------ドット出力中 SCD ;キーＳＷチェック BTFSC MPIOB,5 ;ダッシュ？ GOTO SCD1 ;ＤＯＴ BSF NK_LCD ;次のキーステータスをセット SCD1 MOVF M_DO10,W SUBWF CLCT,W ; BTFSS STATUS,Z ;ZERO? FLAG=1 THEN SKIP GOTO SCD2 ;NO ZERO ;ZERO=TURU BCF ELKST,2 ;reset ELKST CALL KOUT0 ;OUT OFF SCD2 MOVF M_DO20,W ; SUBWF CLCT,W ; BTFSS STATUS,Z ; GOTO SCD3 ; ;RESET ELKST BCF ELKST,1 ;LCD BCF ELKST,0 ;SCD BSF ELKST,3 ;SPACE CLRF CLCT ;CLCT CLEAR ;CHECK NEXT KEY STATUS BTFSC NK_LCD ;LCD? GOTO LMODE ;YES LMODE GOTO EKEND ; SCD3 INCF CLCT,F ;CLCT + 1 GOTO EKEND ; ;--------LCD -----------ダッシュ出力中 LCD ;キーＳＷチェック BTFSC MPIOB,4 ;ドット？ GOTO LCD1 ;ｄａｓｈ BSF NK_SCD ;次のキーステータスをセット LCD1 MOVF M_DA30,W SUBWF CLCT,W ; BTFSS STATUS,Z ;ZERO? FLAG=1 THEN SKIP GOTO LCD2 ;NO ZERO ;ZERO=TURU BCF ELKST,2 ;reset ELKST CALL KOUT0 ;OUT OFF LCD2 MOVF M_DA40,W ; SUBWF CLCT,W ; BTFSS STATUS,Z ; GOTO LCD3 ; ;RESET ELKST BCF ELKST,1 ;LCD BCF ELKST,0 ;SCD BSF ELKST,3 ;SPACE CLRF CLCT ;CLCT CLEAR ;CHECK NEXT KEY STATUS BTFSC NK_SCD ;SCD? GOTO SMODE ;YES SMODE GOTO EKEND ; LCD3 INCF CLCT,F ;CLCT + 1 GOTO EKEND ; ;---------set SCD mode---------------------------ドット入力有り SMODE ;set ELKST BSF ELKST,0 ;SCD BSF ELKST,2 ;mark CALL KOUT1 ;OUT KEY_SW CLRF CLCT ;reset clock counter MOVLW 0CFH ; ANDWF ELKST,F ;reset NKST_FLG GOTO EKEND ; ;---------set LCD mode---------------------------ダッシュ入力有り LMODE ;set ELKST BSF ELKST,1 ;LCD BSF ELKST,2 ;mark CALL KOUT1 ;OUT KEY_SW CLRF CLCT ;reset clock counter MOVLW 0CFH ; ANDWF ELKST,F ;reset NKST_FLG GOTO EKEND ; ;---------Monitor speaker on/off------------------キー出力 SUB. KOUT1 BCF STATUS,RP0 ;Set Page 0 MOVLW 80H ;Bit 7 ON Bit 6 OFF MOVWF PORTB RETURN KOUT0 BCF STATUS,RP0 ;Set Page 0 MOVLW 40H ;Bit 7 OFF Bit 6 ON MOVWF PORTB RETURN ;****************************************************************** ;************** RS232C PROCESS ********************************** ; ;**************************************** ; Interrupt process module ;**************************************** ;**** register restore and return RESTORE SWAPF SREG,W ;get saved status MOVWF STATUS SWAPF WREG,F ;get saved wreg SWAPF WREG,W RETFIE INTERRUPT BTFSS PIR1,RCIF ;RS232C INTF GOTO ELEKEY ;TIMER0 ;**** save W register & status register MOVWF WREG ;save w reg SWAPF STATUS,W ;status to wreg MOVWF SREG ;save status RXGET ;**** error check　**** BTFSC RCSTA,FERR ;framing error check GOTO FRAME BTFSC RCSTA,OERR ;overrun error GOTO OVER MOVF RCREG,W ;USART REG->W MOVWF RXREG CALL RECEIVEPROCESS ; CHKBF GOTO RESTORE ;********　ERROR PROCES　****** ;****　framing error FRAME MOVF RCREG,W ;dumy input & reset FERR BTFSS RCSTA,OERR ;check more error? GOTO CHKBF ;to next ;*****　overrun error OVER BCF RCSTA,CREN ;reset OERR BSF RCSTA,CREN ;" GOTO CHKBF ;to next ;************************************ ; Transmission process module ;************************************ ;送信の記述は省略。（使用せず） ; ; ;****************************************************** ; ポート Initialize ルーチン ;****************************************************** ;----------------------------------------------------------------------------- PORT_INI BSF STATUS,RP0 ;バンク１に切替 MOVLW 091H ;set portc MOVWF TRISC ;PORTC ; MOVLW 020H ;Set Async mode　 MOVWF TXSTA ;Set TX mode MOVLW 0FFH ;Set Baud Rate 1200bps(20MHz) MOVWF SPBRG ;Set BRG BCF STATUS,RP0 ;バンク０に戻す MOVLW 090H ;Set Async mode　 MOVWF RCSTA ;Set RX mode BSF STATUS,RP0 ;Set page 1 MOVLW 3FH ;only RB0,1,2,3,4,5 input MOVWF TRISB ;PortB set BCF OPTION_REG,NOT_RBPU ;プルアップをセット BCF OPTION_REG,INTEDG ;INT 立ち下がり BSF PIE1,RCIE ;RS232C INT ON BCF STATUS,RP0 ;Set Page 0 BCF PORTC,5 ;CTS=ON BCF INTCON,RBIE ;INT OFF RB4 to 7 RETURN ;---------------------------------------------------------------------------- ;****************************************** ;---------ＲＳ−２３２Ｃ入力処理-------------------------- RECEIVEPROCESS MOVF IB_LG,W ;バッファーの残りが15CHR以下なら SUBLW IB_L - 15 ;CTS(RTS)をOFFする。 5 ではNG 8=OK BTFSC STATUS,C ;OVER SKIP GOTO RP2 BSF PORTC,5 ;CTS=OFF RP2 MOVLW ' ' ;SPACE SUBWF RXREG,W ; BTFSS STATUS,Z ; GOTO INTTEST_92 ;NZ BTFSC RS_B4SP ;一つ前の文字がスペースか GOTO INTTEST_E ;Z BSF RS_B4SP ;前スペースにフラグを立てる GOTO INTTEST_93 ; INTTEST_92 BCF RS_B4SP ;前スペースにフラグをクリアー INTTEST_93 ;; BCF INTCON,GIE ;INT ALL OFF BTFSC IB_EXP,0 ;IN EXP? GOTO INTTEST_93B ;BANK1 MOVF IB_IP,W ;入力ポインターで格納 MOVWF FSR ; MOVF RXREG,W MOVWF INDF ;DATA 相対アドレス INCF IB_IP,F ;+1 MOVLW IB_ED_A ;エンドアドレスをＷレジに SUBWF IB_IP,W ;入力（格納）のアドレスが BTFSS STATUS,Z ;最終アドレスを超えていないか？ GOTO INTTEST_21 ;超えていない。GOTO MOVLW IB_ST_B ;超えたので、 MOVWF IB_IP ;スタートアドレスをセット BSF IB_EXP,0 ;BANK1 SET INTTEST_21 INCF IB_LG,F ;入力数カウンター＋１ ;; BSF INTCON,GIE ;INT ALL ON INTTEST_E RETURN ;V2 INTTEST_93B MOVF IB_IP,W ;入力ポインターで格納 MOVWF FSR ; MOVF RXREG,W MOVWF INDF ;DATA 相対アドレス INCF IB_IP,F ;+1 MOVLW IB_ED_B ;エンドアドレスをＷレジに SUBWF IB_IP,W ;入力（格納）のアドレスが BTFSS STATUS,Z ;最終アドレスを超えていないか？ GOTO INTTEST_21B ;超えていない。GOTO MOVLW IB_ST_A ;超えたので、 MOVWF IB_IP ;スタートアドレスをセット BCF IB_EXP,0 ;BANK0 INTTEST_21B GOTO INTTEST_21 ;入力数カウンター＋１へ ;---------------------------------------------------------- DW "1999.Aug.10 JE3JLB \n" END