ф > WPTest1 6ф Test if current filing system is write protected : (ф Initialise machine code: 2тwp_Init <: Fф Test filing system Ptest%=(є wpTest%) Ђ 255 Z(з test%=0 с "Filing system writable" d!з test%:ц:с " - error ";test% nа x: ‚: Њф Initialise machine code: – Этwp_Init 'OSBYTE=&FFF4:OSGBPB=&FFD1:BRKV=&202 ЄЮ wpTest% 113 ґ#г A%=0 ё 1:P%=wpTest%:[OPT A%*2 ѕTSX:STX Stack:JSR SwapBRK И LDA #Buffer Ђ 255:STA Ctrl+1 Т LDA #Buffer Ѓ 256:STA Ctrl+2 ЬLDX #Ctrl Ђ 255 жLDY #Ctrl Ѓ 256 рLDA #5:JSR OSGBPB ъ"LDX Buffer:LDA Buffer+1,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 †*.Ctrl:EQUB 0:EQUD Buffer:EQUD 0:EQUD 0 ђ.Buffer:EQUS Д20," ") љ]н:б ¤: я