Т > WPTest2 6Т Test if current filing system is write protected $Т Uses error buffer as workspace (: 2Т Initialise machine code: <Рwp_Init F: PТ Test filing system Ztest%=(╨ wpTest%) ─ 255 d(Г test%=0 Я "Filing system writable" n!Г test%:Ж:Я " - error ";test% xЮ ┌: ▄: √Т Initialise machine code: ═ щРwp_Init ╙'OSBYTE=&FFF4:OSGBPB=&FFD1:BRKV=&202 Єч wpTest% 83 Ў#Ц A%=0 ╦ 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:─ #3 "TAY:LDX #4:LDA #&8B:JSR OSBYTE LDA #0:BEQ SwapBRK .Error "LDX Stack:TXS ,LDY #0:LDA (&FD),Y 6.SwapBRK @PHA:LDY #1 J.SwapBRKlp TLDA BRKV,Y:LDX Catch,Y ^STA Catch,Y:TXA:STA BRKV,Y hDEY:BPL SwapBRKlp:PLA:RTS r.Catch:EQUW Error |.Stack:EQUB 0 ├]М:А ░: Ъ