INIT:
（システムレジスタの設定…省略）
MOV.L IPRE1,R13 ; IPRE7..4:MTU CH3 TGI
MOV.W IPRED,R0 ＭＴＵチャネル３の割り込み優先度設定
MOV.W R0,@R13
; INIT PORT
MOV.L IOBASE1,R13
LDC R13,GBR
（ポートＡの設定…省略）
MOV.W PECRL1D,R0 ビット１０をＴＩＯＣ３Ｃに設定
MOV.W R0,@(PECRL1-IOBASE,GBR) 他は普通のポート
MOV.W PEIORLD,R0
MOV.W R0,@(PEIORL-IOBASE,GBR) ビット８〜１０を出力に設定
; INIT MTU_CH3 FOR SOFT-CRTC
MOV.L MTU34B1,R13
LDC R13,GBR
MOV #0,R0 ; NO SYNCRO
MOV.B R0,@(TSYR-MTU34B,GBR)
MOV #H'C0,R0 ; CLEAR BY TGRD,UP EDGE,PCLK
MOV.B R0,@(TCR_3-MTU34B,GBR) コンペアマッチＤでタイマクリヤ
MOV #H'C2,R0 ; NO BUFFER,PWM MODE 1
MOV.B R0,@(TMDR_3-MTU34B,GBR) ＰＷＭモード１にする
MOV #H'C0,R0 ; DON'T OUT TIOC4D,4C,3D,4B,4A,3B
MOV.B R0,@(TOER-MTU34B,GBR)
MOV #H'00,R0 ; DON'T TOGGLE
MOV.B R0,@(TOCR-MTU34B,GBR)
MOV #0,R0 ; TGRA,TGRB NOT FOR PWM
MOV.B R0,@(TIORH_3-MTU34B,GBR)
MOV #H'21,R0 ; TIOC3C MATCH-D -> 1 , MTACH-C -> 0
MOV.B R0,@(TIORL_3-MTU34B,GBR) コンペアマッチＤで１、コンペアマッチＣで０を出力
MOV #H'48,R0 ; INTERRUPT ON MATCH TGRD
MOV.B R0,@(TIER_3-MTU34B,GBR) コンペアマッチＤで割り込み発生
MOV #0,R0 ; INITIAL VALUE
MOV.W R0,@(TCNT_3-MTU34B,GBR) タイマの初期値０
MOV.W HCYCLE,R0 63.5μ秒周期になるようＴＧＲＤを設定
MOV.W R0,@(TGRD_3-MTU34B,GBR)
MOV.W R0,@(TGRB_3-MTU34B,GBR) ; NOT USE TGRB
MOV.W HSYWID,R0
MOV.W R0,@(TGRC_3-MTU34B,GBR) 最初は同期パルス幅が4.7μ秒になるよう設定
MOV.W HDSPOS,R0
MOV.W R0,@(TGRA_3-MTU34B,GBR) 表示開始位置（コンペアマッチＡ）の設定
MOV.B @(TSR_3-MTU34B,GBR),R0 ; DUMMY READ
MOV.B #0,R0
MOV.B R0,@(TSR_3-MTU34B,GBR) ; CLEAR INTERRUPT FLAGS 割り込みフラグクリヤ
; INIT SCI
（ＳＣＩの初期化…省略）
BRA INIT_2
MOV.B R0,@(SSR_3-SCIBASE,GBR)
ALIGN 2
MSTCR1D:DC.W H'F033 ; USE SCI2,SCI3
MSTCR2D:DC.W H'D0F0 ; USE MTU
BCR1D: DC.W H'2000 ; USE MTU
IPRED: DC.W H'00E0 ; MTU CH3 TGI LEVEL 14
PACRL1D:DC.W H'0005 ; USE TXD3,RXD2,TXD2,RXD2
PACRL2D:DC.W H'5000
PACRL3D:DC.W H'03C0
PECRL1D:DC.W H'0010 ; USE TIOC3C
PEIORLD:DC.W H'0700 ; BIT 10,9,8 OUT
HCYCLE: DC.W 1559 ; 24576000/15750-1 水平周期
HSYWID: DC.W 114 ; 4.7 MICRO SEC. 同期パルス幅
HDSPOS: DC.W 354 ; DISPLAY START POSITION 表示開始位置（この値を変えると
表示位置を調整できます）
ALIGN 4
MSTCR1_1: DC.L MSTCR1
IPRE1: DC.L IPRE
IOBASE1: DC.L IOBASE
MTU34B1: DC.L MTU34B
DLYCNT: DC.L 25000
SCIBASE1: DC.L SCIBASE
; INIT SOFT-CRTC WORK AREA & START SOFT-CRTC
INIT_2: MOV.L CRTWRK2,R13
LDC R13,GBR
MOV #0,R0 垂直位置の初期値０
MOV R0,@(CURRVP-CRTWRK,GBR)
MOV.W VSYPOS1,R0 垂直同期パルスの位置設定
MOV.W R0,@(VSYPOS-CRTWRK,GBR)
MOV.L A_GCLR,R13 画面クリヤ
JSR @R13
MOV #0,R2 ; COLOR
MOV.L TSTR1,R3
MOV.B #H'40,R0 ; START MTU CH3 タイマスタート
MOV.B R0,@R3
; START BASIC INTERPRETER
（ＢＡＳＩＣインタプリタの起動…省略）
ALIGN 2
VSYPOS1:DC.W 222 ; INITIAL V-SYNC POSITION 垂直同期パルスの位置（この値を
変えると表示位置を調整できます）
ALIGN 4
CRTWRK2:DC.L CRTWRK
TSTR1: DC.L TSTR
WRKTOP1:DC.L WRKTOP
A_GCLR: DC.L GCLEAR
A_MAIN1:DC.L MAIN
|