S1 Wiki

画面に1文字出力します。

AccAに格納されている文字コードに対応する文字を、現在のカーソル位置へ表示します。
表示後カーソル位置を1文字分進めます。

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

カーソルのスタート・ラスタ・アドレスを0、ブリンク表示を停止に設定した後に、キーボードより1文字入力して、その文字を表示します。
もし入力された文字コードが$0Dの場合はプログラムを終了します。

 0           0000   OUTSCR  EQU  *          --SAMPLE OF "OUTSCR" ROUTINE--
 1           0000   STEP1   EQU  *          ----- STEP 1 -----
 2 0000   4F                CLRA
 3 0001   86 00             LDA  #$00
 4 0003   49                ROLA
 5 0004   49                ROLA
 6 0005   49                ROLA
 7 0006   49                ROLA            A(d7-d4):0 BLINK STOP
 8 0007   8A 00             ORA  #$00       A(d3-d0):START/END ADDR.=0
 9           0009   LOOP    EQU  *
10 0009   34 02             PSHS A          A:CURSOR PARAM
11 000B 103F                SWI2            CALL "SYCRST" ROUTINE
12 000D      41             FCB  $41        MAP NO=1 ROUTINE NO=4
13 000E      04             FCB  $04
14           000F   STEP2   EQU  *          ----- STEP 2 -----
15 000F 103F                SWI2            CALL "KBDINP" ROUTINE
16 0011      41             FCB  $41
17 0012      02             FCB  $02
18 0013 103F                SWI2            CALL "OUTSCR" ROUTINE
19 0015      41             FCB  $41
20 0016      05             FCB  $05
21 0017   81 0D             CMPA #$0D       IF A=$0D THEN RTS
22 0019   35 02             PULS A
23 001B   26 EC             BNE  LOOP       A:CURSOR PARAM
24 001D   39                RTS
25                          END