最終更新:ID:4mHyealEgA 2017年02月07日(火) 18:02:33履歴
メモリ空間 | 1 |
---|---|
ルーチン番号 | $39 |
- X:文字列データ(MSKDCコード)が格納されているアドレス空間上での先頭アドレス
- AccA:文字列データが格納されているアドレス空間番号
- FILNUM($EF9E):ファイル番号
- 0…文字列データを、ディスプレイに出力
- 1〜$F…文字列データを、指定したファイル番号のファイルに出力
"漢字表示できます"の文字列データを、現在のカーソル位置に表示します。
0 0000 KSTOUT2 EQU * --SAMPLE OF "KSTOUT2" ROUTINE-- 1 EFE9 FILNUM EQU $EFE9 2 0000 20 09 BRA EXEC 3 0002 8ABF CHDATA FDB $8ABF "KAN" 4 0004 8E9A FDB $8E9A "JI" 5 0006 955C FDB $955C "HYOU" 6 0008 8EA6 FDB $8EA6 "JI" 7 000A 82C5 FDB $82C5 "DE" 8 000C 82AB FDB $82AB "KI" 9 000E 82DC FDB $82DC "MA" 10 0010 82B7 FDB $82B7 "SU" 11 0012 00 FCB $00 MESSAGE END CODE 12 0013 0F MAPNO FCB $0F CURRENT MAP=$0F 13 0014 EXEC EQU * PROGRAM START 14 0014 30 8CEB LEAX CHDATA,PCR X:TOP ADDR OF MESSAGE AREA 15 0017 A6 8CF9 LDA MAPNO,PCR A:MAP NO=15 16 001A 5F CLRB 17 001B F7 EFE9 STB FILNUM FILNUM--->0: DISPLAY OUT 18 * 1-16: FILE# OUT 19 001E 103F SWI2 CALL "KSTOUT2" ROUTINE 20 0020 41 FCB $41 MAP NO=1 ROUTINE NO=$39 21 0021 39 FCB $39 22 0022 39 RTS 23 END
コメントをかく