home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / inout / inout.bas next >
BASIC Source File  |  1990-06-14  |  1KB  |  38 lines
  1. 1000 ' F-BASIC386でI/Oをいじるプログラム
  2. 1010 '                        fps)吉村 宰  (nifty-NAC01116)
  3. 1020 ' 注意
  4. 1030 '   このプログラムの実行には F-BASIC386 V1.1 L20 が必要です。
  5. 1040 ' 
  6. 1050 '   I/O をいじくるため、実行には充分 注意してください。
  7. 1060 ' 
  8. 1070 '   このプログラムにより起きたいかなる損害にも責任はおえません。
  9. 1080 ' 
  10. 1090 '   以下にあるのは、実行例です。
  11. 1100 '   画面が青くなり、数字が 0  0  0  F0 と表示されればOKです。
  12. 1110 ' 
  13. 1120 ' 使い方
  14. 1130 '   "inout.rex" をLOADM し、CALLM します。
  15. 1140 '
  16. 1150 '   引数 1 I/O のアドレス(ロング整数)
  17. 1160 '        2 モード各種(ロング整数)
  18. 1170 '            01H..read byte
  19. 1180 '            02H..read word
  20. 1190 '            81H..write byte
  21. 1200 '            82H..write word
  22. 1210 '        3 データのアドレス(文字列)
  23. 1220 '            read byte...ダミーを1文字入れた文字列のアドレス
  24. 1230 '            write byte..書き込むデータを1文字入れた文字列のアドレス
  25. 1240 ' 
  26. 1250 SCREEN@0:COLOR 7,0:CLS
  27. 1260 CLEAR ,,,,1000
  28. 1270 LOADM"a:inout.rex",0
  29. 1280 IO1& = &HFD90
  30. 1290 IO2& = &HFD92
  31. 1300 D$=CHR$(&H0)
  32. 1310 A=CALLM(0,IO1&,&H81,VARPTR(D$))
  33. 1320 D$=CHR$(&HFF)
  34. 1330 B=CALLM(0,IO2&,&H81,VARPTR(D$))
  35. 1340 C=CALLM(0,IO2&,&H01,VARPTR(D$))
  36. 1350 PRINT A,B,C,HEX$(ASC(D$))
  37. 1360 END
  38.