S1 Wiki

文字列を倍精度型実数に変換します。

数値、文字列変換作業用バッファに格納されている文字列を倍精度型実数に変換し、その結果をFACCに格納します。
もし、文字列の中に数値以外の文字コードが格納されている場合は、その文字コードの1バイト前までを、変換します。
また、FACCを管理するシステム・ワーク・エリア内のPFBUF($F014)に格納されています。

• AccB:文字列の長さ

• FACC:倍精度型実数データ

"9999.9"の文字列データを倍精度型実数に変換して、FACCに格納します。

 0                          ORG  $C000
 1           C000   UVAL1   EQU  *          --SAMPLE OF "UVAL1" ROUTINE--
 2           F014   PFBUF   EQU  $F014      [TOP ADDR OF BUFFER AREA]
 3 C000   20 07             BRA  EXEC
 4 C002      39     CHAR    FCC  /9999.9/
 5 C003      39
 6 C004      39
 7 C005      39
 8 C006      4E
 9 C007      39
10 C008      00     FCB     $00             END CODE
11           C009   CHARE   EQU  *          
12           C009   EXEC    EQU  *          --- BUFFER <--- CHAR. DATA ---
13 C009   30 8CF6           LEAX CHAR,PCR   X:TOP ADDR OF CHAR. DATA
14 C00C 10BE F014           LDY  PFBUF      Y:TOP ADDR OF BUFFER AREA
15 C010   C6 07             LDB  #CHARE-CHAR B:LENGTH OF CHAR. DATA
16 C012   34 04             PSHS B
17 C014   A6 80     LOOP    LDA  ,X+
18 C016   A7 A0             STA  ,Y+
19 C018   5A                DECB
20 C019   26 F9             BNE  LOOP       CHAR. DATA END?
21                  *
22 C01B   35 04             PULS B
23 C01D 103F                SWI2            CALL "UVAL1" ROUTINE
24 C01F      41             FCB  $41
25 C020      21             FCB  $21
26 C021   39                RTS
27                          END