S1 Wiki

指定したファイルへ1文字出力します。

AccAに格納されているファイル番号のファイルにAccBに格納されている1文字分のデータを出力します。

AccA:ファイル番号

• 0の場合はコンソール(ディスプレイ)に出力します。

AccB:文字コード 00〜$FF

カセットテープレコーダにファイル番号1で"SAMPLE DATA"のメッセージを出力します。

100 CLEAR ,&HC000
110 LOADM"ZOCHR"
120 OPEN"O",#1,"CAS0:DATA"
130 EXEC &HC000
140 CLOSE #1
150 END

 0           C000   ZOCHR   EQU  *          --SAMPLE OF "ZOCHR" ROUTINE--
 1 C000   20 0D             BRA  EXEC
 2 C002      53     MASSGE  FCC  /S/
 3 C003      41             FCC  /A/
 4 C004      4D             FCC  /M/
 5 C005      50             FCC  /P/
 6 C006      4C             FCC  /L/
 7 C007      45             FCC  /E/
 8 C008      20             FCC  / /
 9 C009      44             FCC  /D/
10 C00A      41             FCC  /A/
11 C00B      54             FCC  /T/
12 C00C      41             FCC  /A/
13 C00D      0D             FCB  $0D
14 C00E      01     FILENO  FCB  $01        FILE NO 1-16
15 C00F   30 8CF0   EXEC    LEAX MASSGE,PCR X:TOP ADDR OF MESSAGE
16 C012   A6 8CF9           LDA  FILENO,PCR A:FILE NO
17 C015   E6 80     LOOP    LDB  ,X         B:MESSAGE DATA (1 CHAR.)
18 C017   34 16             PSHS X,B,A
19 C019 103F                SWI2            CALL "ZOCHR" ROUTINE
20 C01B      41             FCB  $41        MAP NO=1  ROUTINE NO=$10 
21 C01C      10             FCB  $10
22 C01D   35 16             PULS A,B,X
23 C01F   C1 0D             CMPB #$0D       DATA END?
24 C021   26 F2             BNE  LOOP
25 C023   39                RTS