1. No category

[ sample-A.asm ]
;***************************************
;*******
サンプル　Ａ
********
;***************************************
NAME
SP_ST
;***
sample-A
SET
0FEC0H
;スタック･ポインタ　開始アドレス
データ･セグメント　領域
DATA
DSEG
SADDRP
INT_CNT:
DS
1
;先頭 偶数番地　に配置
;********************************************************************************
;********
リセット，割込み　ベクター
*********
;********************************************************************************
VECT00
CSEG
CSTART
AT
DW
0H
;ﾘｾｯﾄ
CSEG
INTIT
AT
DW
00038H
;インターバルタイマ
VECT38
;********************************************************************************
;********
オプション・バイト
OPT
CSEG
OPT_BYTE
DB
01111110B
;WDT 設定
; ･ｲﾝﾀｰﾊﾞﾙ割込み----しない
; ･ｵｰﾌﾟﾝ期間--------100%
; ･ｶｳﾝﾀ動作---------許可
; ･ｵｰﾊﾞｰﾌﾛｰ時間-----4.369s(fIL=15kHz)
; ･ｶｳﾝﾀ動作(H/S時)--停止
DB
11111111B
;LVD 設定
; ･LVDｵﾌ時の設定
DB
11101000B
;動作ﾓｰﾄﾞ/CLK 設定
; ･動作ﾓｰﾄﾞ---------HSﾓｰﾄﾞ
; ･周波数-----------32MHz
DB
10000100B
;ｵﾝﾁｯﾌﾟ･ﾃﾞﾊﾞｯｸ 設定
; ･ｵﾝﾁｯﾌﾟﾃﾞﾊﾞｯｸ-----動作許可
;********************************************************************************
;********
ＲＥＳＥＴ
*********
;********************************************************************************
R_VECT00
CSEG
AT
03000H
CSTART:
MOVW
SP,#SP_ST
;スタック・ポンタ 初期化
SEL
RB0
;ﾚｼﾞｽﾀ･ﾊﾞﾝｸ0 にｾｯﾄ
MOV
MOV
DFLCTL,#00000001B
HOCODIV,#00000000B
;ﾃﾞｰﾀﾌﾗｯｼｭ----------ｱｸｾｽ許可
;ONﾁｯﾌﾟCLK----------32MHz
MOV
MOV
PER0,#10000000B
PER1,#00000000B
;周辺ｲﾈｰﾌﾞﾙ0--------INTITのみ供給
;周辺ｲﾈｰﾌﾞﾙ1--------全て停止
MOV
!OSMC,#010H
;INTIT　動作CLK設定
MOVW
ITMC,#0001DH
;INTIT　ｾｯﾄ
66.7usx(29+1) = 2msec
- 1 -
[ sample-A.asm ]
MOVW
MOVW
RAM_INIT1:
MOV
MOV
INCW
MOVW
CMPW
BNZ
ITMC,#0801DH
;INTIT　開始
HL,#0EF00H
;RAM 0にｸﾘｱ
A,#0
[HL],A
HL
AX,#SP_ST
AX,HL
$RAM_INIT1
;　0ｾｯﾄ
;　ｱﾄﾞﾚｽ　＋１
;　ｽﾀｯｸ･ﾎﾟｲﾝﾀ　開始ｱﾄﾞﾚｽ？
;NO
EI
;割込み　許可にｾｯﾄ
MOV
MK1H,#11111011B
;INTIT　割込み許可
MOV
WDTE,#0ACH
;ｳｫｯﾁﾄﾞｯｸﾞﾀｲﾏ　ｸﾘｱ
INC
A
;Aﾚｼﾞｽﾀ　＋１
BR
$LOOP
LOOP:
;********************************************************************************
;********
割込み　ルーチン
R_VECT38
CSEG
AT
02000H
;********************************************************************************
;********
インターバル　タイマ（割込み　2msec)
*********
;********************************************************************************
INTIT:
SEL
RB1
;ﾚｼﾞｽﾀ･ﾊﾞﾝｸ1 にｾｯﾄ
MOV
ADD
MOV
A,!INT_CNT
A,#1
!INT_CNT,A
;ｶｳﾝﾀ ＋１
SEL
RETI
RB0
INTITE:
END
- 2 -