S1 Wiki

実数を単精度または倍精度型実数に変換します。

FACCに格納されている実数データを、AccAで指定された単精度または倍精度型実数に変換します。
また、FACCを管理するシステム・レジスタはAccAの指定内容に設定されます。

• AccA:4:単精度型指定
  8:倍精度型指定

• FACC:単精度または倍精度型データ

9999.9のASCII文字を単精度型実数に変換し、FACCに格納します。

 0                          ORG  $C000
 1           C000   FRCTYP  EQU  *          --SAMPLE OF "FRCTYP" 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                  *                       --- FACC <--(DOUBLE)--- BUF. --
22 C01B   35 04             PULS B          B:LENGTH OF CHAR. DATA
23 C01D 103F                SWI2            CALL "UVAL1" ROUTINE
24 C01F      41             FCB  $41
25 C020      21             FCB  $21
26                  *                       --- FACC <--(SIG/DBL)-- FACC ---
27 C021   86 04             LDA  #$04       A:SINGLE/DOUBLE FLAG
28                  *                         4:SINGLE FLAG
29                  *                         8:DOUBLE FLAG
30 C023 103F                SWI2            CALL "FRCTYP" ROUTINE
31 C025      41             FCB  $41
32 C026      23             FCB  $23
33 C027   39                RTS