; ==========================赤道儀コントローラー赤緯軸1-2相励磁駆動PIC16F628A VR20130408 BY STARRYZOBI ==============================

; CLOCK 20.000MHz

LIST P=PIC16F628A ;

INCLUDE P16F628A.INC ;

__CONFIG _HS_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF & _BODEN_ON & _LVP_OFF & _MCLRE_OFF

GPR_1 EQU 020h ; GPRの１バイト目にGPR_1と言う名前を付ける

GPR_2 EQU 021h ; GPRの２バイト目にGPR_2と言う名前を付ける

GPR_3 EQU 022h

GPR_4 EQU 023h

GPR_5 EQU 024h

GPR_6 EQU 025h

GPR_7 EQU 026h

GPR_8 EQU 027h

GPR_9 EQU 028h

GPR_10 EQU 029h

GPR_11 EQU 02Ah

GPR_12 EQU 02Bh

GPR_13 EQU 02Ch

GPR_14 EQU 02Dh

GPR_15 EQU 02Eh

GPR_16 EQU 02Fh

GPR_17 EQU 030h

ORG 0 ; リセットベクタを指定する。

INIT

; ＜＜　PICの初期化　＞＞

CLRF PORTA

MOVLW 07h

MOVWF CMCON ; PORTAはI/Oデジタル

; ＜　I/O方向定義＞

BSF STATUS,RP0 ; バンク1へ切り替え

MOVLW 0FFh

MOVWF TRISA ; PORTAは全て入力

CLRF TRISB ; ファイルレジスタTRISBをクリア(0) → PORTBは全て出力

BCF STATUS,RP0 ; STATUSのRP0をクリア(0) → バンク0

; ＜＜動作確認用イルミネーション　＞＞

MOVLW 008h

MOVWF PORTB

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

MOVLW 002h

MOVWF PORTB

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

MOVLW 080h

MOVWF PORTB

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

MOVLW 020h

MOVWF PORTB

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

MOVLW 0AAh

MOVWF PORTB

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

CALL T259376

; ＜＜DIPスイッチ選択　＞＞

SELECT BTFSS PORTA,5

GOTO W120

BTFSS PORTA,2 ; PA2をチェック＝1なら次の命令をスキップ

GOTO SOUTH ; 0なら南天

BTFSS PORTA,3 ; PA3をチェック

GOTO SELECT2 ; 0ならセレクト2へ

BTFSS PORTA,4 ; PA4をチェック

GOTO NSUN1 ; 0なら北天太陽追尾

GOTO NSTAR1 ; 全部1なら北天星追尾

SELECT2 BTFSS PORTA,4 ; PA4をチェック

GOTO MOON1 ; 0なら北天月追尾

GOTO NHSTAR1 ; 1なら北天追尾1/2速度

; ＜＜南天選択　＞＞

SOUTH BTFSS PORTA,3 ; PA3をチェック＝０（ピンあり）ならば次の命令をスキップ

GOTO SSELECT ; 南天セレクトへ

BTFSS PORTA,4 ; PA4をチェック＝０（ピンあり）ならば次の命令をスキップ

GOTO SUN1 ; 南天太陽追尾へ

GOTO STAR1

SSELECT BTFSS PORTA,4 ; PA4をチェック＝０（ピンあり）ならば次の命令をスキップ

GOTO MOON1 ; ピンなしなら南天月追尾

GOTO HSTAR1 ; ピンありならば南天追尾1/2速度

W120 BTFSS PORTA,3

GOTO PSUN

BTFSS PORTA,2

GOTO PSTAR1

GOTO PNSTAR1

PSUN BTFSS PORTA,2

GOTO PSUN1

GOTO PNSUN1

; ＜＜南天太陽追尾ウォームギア120　＞＞

PSUN1 MOVLW 0C2h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN2 MOVLW 50h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN3 MOVLW 92h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN4 MOVLW 14h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN5 MOVLW 04h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN6 MOVLW 05h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN7 MOVLW 01h

MOVWF PORTB

CALL T312493

NOP

NOP

PSUN8 MOVLW 41h

MOVWF PORTB

CALL T312493

GOTO PSUN1

; ＜＜北天太陽追尾ウォームギア120　＞＞

PNSUN1 MOVLW 8Bh

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN2 MOVLW 0Dh

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN3 MOVLW 0Ch

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN4 MOVLW 1Ch

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN5 MOVLW 18h

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN6 MOVLW 58h

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN7 MOVLW 48h

MOVWF PORTB

CALL T312493

NOP

NOP

PNSUN8 MOVLW 49h

MOVWF PORTB

CALL T311642

GOTO PNSUN1

; ＜＜南天星追尾ウォームギア120　＞＞

PSTAR1 MOVLW 0C0h

MOVWF PORTB

CALL T311642

PSTAR2 MOVLW 50h

MOVWF PORTB

CALL T311642

NOP

PSTAR3 MOVLW 90h

MOVWF PORTB

CALL T311642

NOP

PSTAR4 MOVLW 14h

MOVWF PORTB

CALL T311642

PSTAR5 MOVLW 04h

MOVWF PORTB

CALL T311642

NOP

PSTAR6 MOVLW 05h

MOVWF PORTB

CALL T311642

PSTAR7 MOVLW 01h

MOVWF PORTB

CALL T311642

NOP

PSTAR8 MOVLW 41h

MOVWF PORTB

CALL T311642

GOTO PSTAR1

; ＜＜北天星追尾ウォームギア120　＞＞

PNSTAR1 MOVLW 89h

MOVWF PORTB

CALL T311642

PNSTAR2 MOVLW 0Dh

MOVWF PORTB

CALL T311642

PNSTAR3 MOVLW 0Ch

MOVWF PORTB

CALL T311642

NOP

PNSTAR4 MOVLW 1Ch

MOVWF PORTB

CALL T311642

NOP

PNSTAR5 MOVLW 18h

MOVWF PORTB

CALL T311642

NOP

PNSTAR6 MOVLW 58h

MOVWF PORTB

CALL T311642

PNSTAR7 MOVLW 48h

MOVWF PORTB

CALL T311642

NOP

PNSTAR8 MOVLW 49h

MOVWF PORTB

CALL T311642

GOTO PNSTAR1

; ＜＜南天星追尾　＞＞

STAR1 MOVLW 60h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR2

BTFSS PORTA,0

GOTO LSTAR2

NOP

STAR2 MOVLW 70h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR3

BTFSS PORTA,0

GOTO LSTAR3

NOP

NOP

STAR3 MOVLW 30h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR4

BTFSS PORTA,0

GOTO LSTAR4

NOP

NOP

STAR4 MOVLW 34h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR5

BTFSS PORTA,0

GOTO LSTAR5

NOP

STAR5 MOVLW 04h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR6

BTFSS PORTA,0

GOTO LSTAR6

NOP

NOP

STAR6 MOVLW 05h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR7

BTFSS PORTA,0

GOTO LSTAR7

NOP

NOP

STAR7 MOVLW 01h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR8

BTFSS PORTA,0

GOTO LSTAR8

NOP

STAR8 MOVLW 41h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO FSTAR1

BTFSS PORTA,0

GOTO LSTAR1

GOTO STAR1

; ＜＜南天星追尾速度アップ　＞＞

FSTAR1 MOVLW 60h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP4

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR2

FSTAR2 MOVLW 50h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP4

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR3

FSTAR3 MOVLW 30h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP1

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR4

FSTAR4 MOVLW 14h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP1

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR5

FSTAR5 MOVLW 24h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP2

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR6

FSTAR6 MOVLW 05h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP2

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR7

FSTAR7 MOVLW 01h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP3

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR8

FSTAR8 MOVLW 41h

MOVWF PORTB

BTFSS PORTA,5

GOTO LHHSP3

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO STAR1

GOTO FSTAR1

; ＜＜南天星追尾14倍速度アップ　＞＞

LHHSP1 MOVLW 50h

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO STAR3

LHHSP2 MOVLW 14h

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO STAR5

LHHSP3 MOVLW 05h

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO STAR8

LHHSP4 MOVLW 41h

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO STAR1

GOTO LHHSP1

; ＜＜南天星追尾速度ダウン　＞＞

LSTAR1 MOVLW 60h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP4

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR2

LSTAR2 MOVLW 50h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP4

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR3

LSTAR3 MOVLW 30h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP1

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR4

LSTAR4 MOVLW 14h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP1

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR5

LSTAR5 MOVLW 24h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP2

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR6

LSTAR6 MOVLW 05h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP2

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR7

LSTAR7 MOVLW 01h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP3

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR8

LSTAR8 MOVLW 41h

MOVWF PORTB

BTFSS PORTA,5

GOTO RHHSP3

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO STAR1

GOTO LSTAR1

; ＜＜南天星追尾14倍速度アップ逆回転　＞＞

RHHSP4 MOVLW 41h

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO STAR1

RHHSP3 MOVLW 05h

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO STAR8

RHHSP2 MOVLW 14h

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO STAR5

RHHSP1 MOVLW 50h

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO STAR3

GOTO RHHSP4

; ＜＜南天星追尾1/2速度　＞＞

HSTAR1 MOVLW 60h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR2 MOVLW 50h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR3 MOVLW 30h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR4 MOVLW 14h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR5 MOVLW 24h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR6 MOVLW 05h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR7 MOVLW 01h

MOVWF PORTB

CALL T259376

CALL T259376

HSTAR8 MOVLW 41h

MOVWF PORTB

CALL T259376

CALL T259376

GOTO HSTAR1

; ＜＜南天太陽追尾　＞＞

SUN1 MOVLW 0C2h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN2 MOVLW 0D2h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN3 MOVLW 92h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN4 MOVLW 96h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN5 MOVLW 86h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN6 MOVLW 87h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN7 MOVLW 83h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN8 MOVLW 41h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN9 MOVLW 0C2h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN10 MOVLW 0D2h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN11 MOVLW 92h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN12 MOVLW 96h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN13 MOVLW 86h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN14 MOVLW 87h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN15 MOVLW 83h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN16 MOVLW 41h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN17 MOVLW 0C2h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN18 MOVLW 0D2h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN19 MOVLW 92h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN20 MOVLW 96h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN21 MOVLW 86h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

SUN22 MOVLW 87h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN23 MOVLW 83h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

SUN24 MOVLW 41h

MOVWF PORTB

CALL T259376

CALL T318

CALL T708

NOP

NOP

NOP

NOP

GOTO SUN1

; ＜＜南半球選択月追尾　＞＞

MOON1 MOVLW 0C0h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NOP

MOON2 MOVLW 0D0h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

MOON3 MOVLW 90h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

MOON4 MOVLW 94h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

MOON5 MOVLW 06h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NOP

MOON6 MOVLW 07h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

MOON7 MOVLW 03h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

MOON8 MOVLW 43h

MOVWF PORTB

CALL T269398

CALL T139

GOTO MOON1

; ＜＜北天星追尾　＞＞

NSTAR1 MOVLW 49h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR2

BTFSS PORTA,0

GOTO NLSTAR2

NOP

NSTAR2 MOVLW 09h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR3

BTFSS PORTA,0

GOTO NLSTAR3

NOP

NOP

NSTAR3 MOVLW 0Dh

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR4

BTFSS PORTA,0

GOTO NLSTAR4

NOP

NOP

NSTAR4 MOVLW 0Ch

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR5

BTFSS PORTA,0

GOTO NLSTAR5

NOP

NSTAR5 MOVLW 3Ch

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR6

BTFSS PORTA,0

GOTO NLSTAR6

NOP

NOP

NSTAR6 MOVLW 38h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR7

BTFSS PORTA,0

GOTO NLSTAR7

NOP

NOP

NSTAR7 MOVLW 78h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR8

BTFSS PORTA,0

GOTO NLSTAR8

NOP

NSTAR8 MOVLW 68h

MOVWF PORTB

CALL T259376

CALL T318

BTFSS PORTA,1

GOTO NFSTAR1

BTFSS PORTA,0

GOTO NLSTAR1

GOTO NSTAR1

; ＜＜北天星追尾速度アップ　＞＞

NFSTAR1 MOVLW 49h

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP2

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR2

NFSTAR2 MOVLW 09h

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP2

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR3

NFSTAR3 MOVLW 0Dh

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP3

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR4

NFSTAR4 MOVLW 2Ch

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP3

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR5

NFSTAR5 MOVLW 1Ch

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP4

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR6

NFSTAR6 MOVLW 38h

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP4

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR7

NFSTAR7 MOVLW 58h

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP1

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR8

NFSTAR8 MOVLW 68h

MOVWF PORTB

BTFSS PORTA,5

GOTO NRHHSP1

CALL T194500

BTFSS PORTA,2

CALL T32429

BTFSS PORTA,3

CALL T16210

BTFSS PORTA,4

CALL T8103

BTFSC PORTA,1

GOTO NSTAR1

GOTO NFSTAR1

; ＜＜北天星追尾14倍速度アップ　＞＞

NRHHSP1 MOVLW 49h

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO NSTAR2

NRHHSP2 MOVLW 0Dh

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO NSTAR4

NRHHSP3 MOVLW 1Ch

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO NSTAR6

NRHHSP4 MOVLW 58h

MOVWF PORTB

CALL T37593

BTFSC PORTA,1

GOTO NSTAR8

GOTO NRHHSP1

; ＜＜北天星追尾速度ダウン　＞＞

NLSTAR1 MOVLW 49h

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP4

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR2

NLSTAR2 MOVLW 09h

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP1

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR3

NLSTAR3 MOVLW 0Dh

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP1

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR4

NLSTAR4 MOVLW 2Ch

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP2

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR5

NLSTAR5 MOVLW 1Ch

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP2

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR6

NLSTAR6 MOVLW 38h

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP3

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR7

NLSTAR7 MOVLW 58h

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP3

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR8

NLSTAR8 MOVLW 68h

MOVWF PORTB

BTFSS PORTA,5

GOTO NLHHSP4

CALL T259376

CALL T32408

BTFSC PORTA,4

CALL T129664

BTFSC PORTA,3

CALL T64859

BTFSC PORTA,2

CALL T32408

BTFSC PORTA,0

GOTO NSTAR1

GOTO NLSTAR1

; ＜＜北天星追尾14倍速度アップ逆回転　＞＞

NLHHSP4 MOVLW 58h

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO NSTAR8

NLHHSP3 MOVLW 1Ch

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO NSTAR6

NLHHSP2 MOVLW 0Dh

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO NSTAR4

NLHHSP1 MOVLW 49h

MOVWF PORTB

CALL T37593

BTFSC PORTA,0

GOTO NSTAR2

GOTO NLHHSP4

; ＜＜北天星追尾1/2速度　＞＞

NHSTAR1 MOVLW 6h

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR2 MOVLW 09h

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR3 MOVLW 0Dh

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR4 MOVLW 2Ch

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR5 MOVLW 1Ch

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR6 MOVLW 38h

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR7 MOVLW 58h

MOVWF PORTB

CALL T259376

CALL T259376

NHSTAR8 MOVLW 68h

MOVWF PORTB

CALL T259376

CALL T259376

GOTO NHSTAR1

; ＜＜北天太陽追尾　＞＞

NSUN1 MOVLW 49h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN2 MOVLW 8Bh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN3 MOVLW 8Fh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN4 MOVLW 8Eh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN5 MOVLW 9Eh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN6 MOVLW 9Ah

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN7 MOVLW 0DAh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN8 MOVLW 0CAh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN9 MOVLW 49h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN10 MOVLW 8Bh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN11 MOVLW 8Fh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN12 MOVLW 8Eh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN13 MOVLW 9Eh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN14 MOVLW 9Ah

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN15 MOVLW 0DAh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN16 MOVLW 0CAh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN17 MOVLW 49h

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN18 MOVLW 8Bh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN19 MOVLW 8Fh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN20 MOVLW 8Eh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN21 MOVLW 9Eh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NSUN22 MOVLW 9Ah

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN23 MOVLW 0DAh

MOVWF PORTB

CALL T259376

CALL T32

CALL T708

NOP

NSUN24 MOVLW 0CAh

MOVWF PORTB

CALL T259376

CALL T318

CALL T708

NOP

NOP

NOP

NOP

GOTO NSUN1

; ＜＜北天月追尾　＞＞

NMOON1 MOVLW 4Bh

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NOP

NMOON2 MOVLW 0Bh

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NOP

NMOON3 MOVLW 0Fh

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NMOON4 MOVLW 0Eh

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NMOON5 MOVLW 9Ch

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NOP

NMOON6 MOVLW 98h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NMOON7 MOVLW 0D8h

MOVWF PORTB

CALL T269398

CALL T139

NOP

NOP

NMOON8 MOVLW 0C8h

MOVWF PORTB

CALL T269398

CALL T139

GOTO NMOON1

; ＜＜　259376サイクル待つルーチン　＞＞

T259376 MOVLW 0CFh ; CFh=207

MOVWF GPR_1 ; （ループ回数として207をセット）

T5296LP CALL T1248S ;

DECFSZ GPR_1,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T5296LP

NOP

NOP ;

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜1248サイクル待つサブルーチン　＞＞

T1248S MOVLW 0F9h ; F9h=249

MOVWF GPR_2 ; （ループ回数として249をセット）

T1248LP NOP

NOP ; 何もせず１サイクル消費

DECFSZ GPR_2,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T1248LP

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜318サイクル待つサブルーチン　＞＞

T318 MOVLW 069h ; 69h=105

MOVWF GPR_3 ; （ループ回数として105をセット）

T318LP DECFSZ GPR_3,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T318LP

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　194500サイクル待つルーチン　＞＞

T194500 MOVLW 09Bh ; 9B=155

MOVWF GPR_4 ; （ループ回数として155をセット）

T194LP CALL T1248S ;

DECFSZ GPR_4,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T194LP ;

CALL T139

CALL T139

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜708サイクル待つサブルーチン　＞＞

T708 MOVLW 0EBh ; EBh=234

MOVWF GPR_5 ; （ループ回数として234をセット）

T708LP DECFSZ GPR_5,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T708LP

NOP

NOP

NOP

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　269398サイクル待つルーチン　＞＞

T269398 MOVLW 0D7h ; D7h=215

MOVWF GPR_6 ; （ループ回数として215をセット）

T269LP CALL T1248S ;

DECFSZ GPR_6,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T269LP

NOP ;

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜139サイクル待つサブルーチン　＞＞

T139 MOVLW 02Dh ; 2Dh=45

MOVWF GPR_7 ; （ループ回数として45をセット）

T139LP DECFSZ GPR_7,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T139LP

NOP

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　16210サイクル待つルーチン　＞＞

T16210 MOVLW 00Ch ; 0Ch=12

MOVWF GPR_8 ; （ループ回数として12をセット）

T162LP CALL T1248S ;

DECFSZ GPR_8,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T162LP ;

CALL T318

CALL T708

CALL T139

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　32429サイクル待つルーチン　＞＞

T32429 MOVLW 019h ; 19h=25

MOVWF GPR_9 ; （ループ回数として25をセット）

T324LP CALL T1248S ;

DECFSZ GPR_9,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T324LP ;

CALL T318

CALL T318

CALL T318

CALL T139

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　8103サイクル待つルーチン　＞＞

T8103 MOVLW 06h ; 6h=6

MOVWF GPR_10 ; （ループ回数として20をセット）

T810LP CALL T1248S

NOP

NOP

NOP ;

DECFSZ GPR_10,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T810LP ;

CALL T139

CALL T139

CALL T139

CALL T139

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　129664サイクル待つルーチン　＞＞

T129664 MOVLW 067h ; 67h=103

MOVWF GPR_11 ; （ループ回数として103をセット）

T129LP CALL T1248S

DECFSZ GPR_11,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T129LP ;

CALL T318

CALL T139

CALL T139

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜ 64859サイクル待つルーチン　＞＞

T64859 MOVLW 033h ; 33h=51

MOVWF GPR_12 ; （ループ回数として51をセット）

T648LP CALL T1248S

NOP

NOP

DECFSZ GPR_12,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T648LP ;

CALL T708

CALL T139

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　32408サイクル待つルーチン　＞＞

T32408 MOVLW 019h ; 19h=25

MOVWF GPR_13 ; （ループ回数として25をセット）

T3240LP CALL T1248S

NOP

NOP

DECFSZ GPR_13,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T3240LP ;

CALL T708

CALL T318

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　311642サイクル待つルーチン　＞＞

T311642 MOVLW 0F8h ; F8h=248

MOVWF GPR_14 ; （ループ回数として248をセット）

T3116LP CALL T1248S

NOP

NOP

NOP ;

DECFSZ GPR_14,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T3116LP

CALL T139

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　37593サイクル待つルーチン　＞＞

T37593 MOVLW 1Eh ; 1Eh=30

MOVWF GPR_15 ; （ループ回数として30をセット）

T3759LP CALL T1248S ;

DECFSZ GPR_15,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T3759LP ;

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜322サイクル待つサブルーチン　＞＞

T32 MOVLW 069h ; 69h=105

MOVWF GPR_16 ; （ループ回数として105をセット）

T32LP DECFSZ GPR_16,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T32LP

NOP

NOP

NOP

NOP

RETURN ; このサブルーチン呼出し元に戻る

; ＜＜　312493サイクル待つルーチン　＞＞

T312493 MOVLW 0F8h ; F8h=248

MOVWF GPR_17 ; （ループ回数として248をセット）

T3124LP CALL T1248S

NOP

NOP

NOP

NOP

NOP

NOP

NOP

DECFSZ GPR_14,F ; ループ回数－１して０になったら次の命令をスキップ

GOTO T3124LP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

RETURN

END

2013.03