S1 Wiki

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

プリンタのReady状態をチェックし、その結果をCCRのNビットに格納します。
もし、Readyであれば、AccAに格納されている文字コードをプリンタに出力します。
日立製プリンタMP-1041で往復印字させる場合は、改行時にLF($0F)コードのみを出力し、CR($0D)を出力しないようにするか、またはLFコード、CRコードの順に、出力するようにします。

AccA:文字列コード
AccB:ファイル・ディスクリプタのLPT番号0〜2。プリンタを拡張しない場合は0とします。

CCR(N)	プリンタ状態
0	NOT Ready
1	Ready

プリンタに"PRINT OUT"のメッセージ出力します。

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