home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / tips.AMOS / tips.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  541 b   |  17 lines
  1. ' handy tips 
  2. 'To check if led is on/off 
  3. 'A=Btst(1,$BFE001) 
  4. 'If A=0 LED IS On  
  5. 'if a=-1 led is off
  6. ' is there a disk in the drive 
  7. 'Poke $BFD100,%10000 : Rem df0: turn drive on briefly  
  8. 'Poke $BFD100,%1000 : Rem df1: turn drive on briefly 
  9. 'A=Btst(2,$BFE001) 
  10. 'if a=-1 disk in drive 
  11. ' if a=0 no disk in drive
  12. ' is the disk write protected
  13. 'Poke $BFD100,%10000 : Rem df0: turn drive on briefly      
  14. 'Poke $BFD100,%1000 : Rem df1: turn drive on briefly 
  15. 'A=Btst(3,$BFE001) 
  16. ' if a=-1 means write enabled  
  17. ' if a=0  means write protected