S1 Wiki

カセット・インターフェースに1文字のデータを出力します。

AccAに格納されている、1文字分のデータをカセット・インターフェースへ出力します。
なお、CBOUTルーチンを実行する際には、あらかじめ「CASINI」を実行し、カセット・インターフェースの初期設定をしてください。

AccA:文字コード $00〜$FF

"CASSETE I/O"のメッセージをカセット・インターフェースに出力します。

 0           0000   CBOUT   EQU  *          --SAMPLE OF "CBOUT" ROUTINE--
 1 0000   20 0D             BRA  EXEC 
 2 0002      43     MSG     FCC  /C/
 3 0003      41             FCC  /A/
 4 0004      53             FCC  /S/
 5 0005      53             FCC  /S/
 6 0006      45             FCC  /E/
 7 0007      54             FCC  /T/
 8 0008      54             FCC  /T/
 9 0009      45             FCC  /E/
10 000A      20             FCC  / /
11 000B      49             FCC  /I/
12 000C      2F             FCC  "/"
13 000D      4F             FCC  /O/
14 000E      0D             FCB  $0D        MESSAGE END CODE
15           000F   EXEC    EQU  *          PROGRAM START
16                  *                       CASSETTE I/F INITIALIZE
17 000F 103F                SWI2            CALL "CASINI" ROUTINE
18 0011      41             FCB  $41
19 0012      56             FCB  $56
20 0013   C6 01             LDB  #$01       B:BPS SET(1:1200bps)
21 0015 103F                SWI2            CALL "CBRSET" ROUTINE
22 0017      41             FCB  $41
23 0018      57             FCB  $57
24 0019   30 8CE6           LEAX MSG,PCR    X:TOP ADDR. OF MESSAGE AREA
25 001C   A6 80    LOOP     LDA  ,X+
26 001E 103F                SWI2            CALL "CBOUT" ROUTINE
27 0020      41             FCB  $41        MAP NO=1 ROUTINE NO=$0B 
28 0021      0B             FCB  $0B
29 0022   81 0D             CMPA #$0D
30 0024   26 F4             BNE  LOOP
31 0026   39                RTS
32                          END