WPTest2

    REM > WPTest2
    REM Test if current filing system is write protected
    REM Uses error buffer as workspace
    :
    REM Initialise machine code:
    PROCwp_Init
    :
    REM Test filing system
    test%=(USR wpTest%) AND 255
   IF test%=0 PRINT "Filing system writable"
   IF test%:REPORT:PRINT " - error ";test%
   END
   :
   :
   REM Initialise machine code:
   DEFPROCwp_Init
   OSBYTE=&FFF4:OSGBPB=&FFD1:BRKV=&202
   DIM wpTest% 83
   FOR A%=0 TO 1:P%=wpTest%:[OPT A%*2
     TSX:STX Stack:JSR SwapBRK
     LDA #&0D:STA &101
     LDY #&01:STY &102
     LDX #&00:STX &103:STX &104
     LDA #5:JSR OSGBPB
     LDX &10D:LDA &10E,X:AND #3
     TAY:LDX #4:LDA #&8B:JSR OSBYTE
     LDA #0:BEQ SwapBRK
     .Error
     LDX Stack:TXS
     LDY #0:LDA (&FD),Y
     .SwapBRK
     PHA:LDY #1
     .SwapBRKlp
     LDA BRKV,Y:LDX Catch,Y
     STA Catch,Y:TXA:STA BRKV,Y
     DEY:BPL SwapBRKlp:PLA:RTS
     .Catch:EQUW Error
     .Stack:EQUB 0
   ]NEXT:ENDPROC
   :

Download WPTest2

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.