最終更新:ID:4mHyealEgA 2017年02月10日(金) 10:42:49履歴
メモリ空間 | 7 |
---|---|
ルーチン番号 | $40 |
AccAのD3ビットを1にしてこのルーチンを実行すると、以後の文字出力はリバースモードとなります。
AccAのD3ビットを0にしてこのルーチンを実行すると、以後の文字出力はノーマルモードとなります。
AccAのD3ビットを0にしてこのルーチンを実行すると、以後の文字出力はノーマルモードとなります。
文字出力モードをリバース出力に設定後、(5,5)に"亜"を出力します。
任意のキーを入力すると文字出力モードをノーマル出力に設定し、BASICに復帰します。
任意のキーを入力すると文字出力モードをノーマル出力に設定し、BASICに復帰します。
0 0000 ORG $0000 1 0000 ATRBST EQU * --SAMPLE OF "ATRBST" ROUTINE-- 2 0000 86 08 LDA #8 A:CHARACTER OUTPUT MODE 3 0002 103F SWI2 CALL "ATRBST" ROUTINE 4 0004 47 FCB $47 MAP NO=7 ROUTINE NO=40 5 0005 40 FCB $40 6 0006 CC 3021 LDD #$3021 D:CHARACTER CODE 7 0009 8E 0005 LDX #5 X:HORIZONTAL POSITION 8 000C 108E 0005 LDY #5 Y:VERTICAL POSITION 9 0011 103F SWI2 CALL "OUTCHR" ROUTINE 10 0013 4A FCB $4A MAP NO=A ROUTINE NO=C 11 0014 0C FCB $0C 12 0015 103F LOOP SWI2 CALL "INKBD" ROUTINE 13 0016 4A FCB $4A MAP NO=A ROUTINE NO=F 14 0017 0F FCB $0F 15 0018 27 FA BEQ LOOP LOOP UNTIL A KEY IS PUSHED 16 001A 86 00 LDA #0 A:CHARACTER OUTPUT MODE 17 001C 103F SWI2 CALL "ATRBST" ROUTINE 18 001E 47 FCB $47 MAP NO=7 ROUTINE NO=40 19 001F 3F FCB $3F 20 0020 39 RTS 21 END
コメントをかく