最終更新:ID:knJEfduqSQ 2015年08月22日(土) 19:58:42履歴
メモリ空間 | 1 |
---|---|
ルーチン番号 | $1A |
実数データ50を単精度型実数データに変換して、FACCに格納します。
0 ORG $C000 1 C000 UMOVFM EQU * --SAMPLE OF "UMOVFM" ROUTINE-- 2 C000 20 08 BRA EXEC 3 C002 8648 XDATA FDB $8648 SINGLE PRECISION DATA(=50) 4 C004 0000 FDB $0000 5 C006 0000 WORK FDB $0000 WORK AREA 6 C008 0000 FDB $0000 7 C00A EXEC EQU * ---- FACC <-- MEMORY ---- 8 C00A C6 0F LDB #$0F B:MAP No. 9 C00C 30 8CF3 LEAX XDATA,PCR X:TOP ADDR OF DATA 10 C00F 86 04 LDA #$04 A:SINGLE/DOUBLE FLAG 11 * 4:SINGLE PRECISION 12 * 8:DOUBLE PRECISION 13 C011 103F SWI2 CALL "UMOVFM" ROUTINE 14 C013 41 FCB $41 15 C014 1A FCB $1A 16 * --- MEMORY <-- FACC ---- 17 C015 C6 0F LDB #$0F B:MAP No. 18 C017 30 8CEC LEAX WORK,PCR X:TOP ADDR OF WORK AREA 19 C01A 103F SWI2 CALL "UMOVMF" ROUTINE 20 C01C 41 FCB $41 21 C01D 1B FCB $1B 22 C01E 39 RTS
コメントをかく