PC-8801mkII　SR,FR,MR Part12

366 ：ナイコンさん：2014/02/02(日) 07:09:57.31 .net

>>360
ヒント�dクスｗｗｗアホのおれにもできたｗｗｗ
汚くてすまんがフォーマットのソースどやぁｗ
思い通りに動いてくれると本当にかわいいなこのおんぼろでもｗｗ
一眠りしてからモード切替に挑戦するわ

10 PB=&HFD :' PORT B
20 PC=&HFE :' PORT C
100 OUT PC,INP(PC) OR &H80 :' ATN=1
110 IF (INP(PC) AND &H2)=0 THEN 110 :' wait RFD
120 OUT PC,INP(PC) XOR &H80 :' ATN=0
130 OUT PB,&H5 :' command write
140 OUT PC,INP(PC) OR &H10 :' DAV=1
150 IF (INP(PC) AND &H4)=0 THEN 150 :' wait DAC
160 OUT PC,INP(PC) XOR &H10 :' DAV=0
170 IF (INP(PC) AND &H2)=0 THEN 170 :' wait RDF
180 OUT PB,0 :' parametar ( drive no )
190 OUT PC,INP(PC) OR &H10 :' DAV=1
200 IF (INP(PC) AND &H4)=0 THEN 200 :' wait DAC
210 OUT PC,INP(PC) XOR &H10 :' DAV=0
300 END