S1 Wiki

プリンタに1文字出力します。

AccBで指定したポートにAccAで指定したASCIIコードを出力します。
このコードの出力の際、プリンタの状態をチェックして"READY"の場合は、CCRのNビットに1を、"NOT READY"の場合は、0をセットします。
また、拡張ポート指定の場合、増設プリンタ・カードがある時はCCRのZビットに0を、ない時は1をセットします。

AccA:ASCIIコード(00〜$FF)
AccB:ポートNo.(0〜2)

CCR(N)

• 0:NOT READY
• 1:READY

CCR(Z)

• 0:プリンタ・カードあり
• 1:プリンタ・カードなし

ポート0に接続したプリンタに"PRINT OUT"というメッセージを出力します。

 0 0000                     ORG  $0000
 1           0000   PRTOUT  EQU  *          --SAMPLE OF "PRTOUT" ROUTINE--
 2 0000   20 0A             BRA  EXEC
 3 0002      50     CHDATA  FCC  /P/
 4 0003      52             FCC  /R/
 5 0004      49             FCC  /I/
 6 0005      4E             FCC  /N/
 7 0006      54             FCC  /T/
 8 0007      5F             FCC  /_/
 9 0008      4F             FCC  /O/
10 0009      55             FCC  /U/
11 000A      54             FCC  /T/
12 000B      0D             FCB  $0D
13                  *
14 000C   30 8C F3          LEAX CHDATA,PCR
15 000F      5F             CLRB            SET PORT No.
16 0010   A6 80     LOOP    LDA  ,X+
17 0012 103F                SWI2            CALL "PRTOUT" ROUTINE
18 0014      4A             FCB  $4A        MAP NO=A ROUTINE NO=1A
19 0015      1A             FCB  $1A
20 0016   81 0D             CMPA $0D
21 0018   26 F6             BNE  LOOP
22 001A      39             RTS
23                          END