インタプリタはSCIチャネル0は使わないので、初期化しなくてもいいのですが、ビーリバーエレクトロニクス社のSH7050ボードなどはチャネル0にもすでにRS−232Cコンバータがつながっており、これを普通のI/Oポートとして使うことは考えにくいのでシリアルポートとして使うよう設定しています。 |
100 POKE &BCR1,%$000D ' CS1 SPACE 8BIT 110 POKE &BCR2,%$F3DD ' CS1 SPACE NO IDLE CYCLE,NO CS ASSERT EXP. 120 POKE &PACR,%$FFFF ' PORTA ALL ADDRESS BUS(A15..A0) 130 POKE &WCR1,%$FF0F ' CS1 SPACE NO WAIT 140 POKE &PBCR,%$BFC0 ' PORTB USE ADDRESS BUS(A12..A16) 150 POKE &PBIOR,%$FFFF ' PORTB OTHER PIN OUTPUT 160 POKE &PCCR1,%$C000 ' PORTC UPPER GENERAL I/O 170 POKE &PCCR2,%$0FFF ' PORTC LOWER USE CS1,RD,WAIT,WRL,WRH 180 POKE &PCIOR,%$FFFF ' PORTC OTHER PIN OUTPUT 190 POKE &PDCR,%$FFFF ' PORTD ALL DATA BUS 200 POKE &PECR,%$8000 ' PORTE GENERAL I/O 210 POKE &PEIOR,%$FFFF ' PORTE OUT 220 POKE &PFCR1,%$FF00 ' PORTF UPPER GENERAL I/O 230 POKE &PFCR2,%$00AA ' PORTF LOWER GENERAL I/O 240 POKE &PFIOR,%$FFFF ' PORTF OUT 250 POKE &PGIOR,%$FFFF ' PORTG OUT (WITHOUT RXD1,TXD1,RXD0,TXD0) 260 NEW $400000,131072 |
$FFFFE800〜FRE(1)-1 |
BASICテキスト |
FRE(1)〜FRE(2)-1 |
フリーエリア |
FRE(2)〜$FFFFFD00 |
BASICインタプリタのワークエリア |