10 REM Wolf1 Master patch 20 REM Carlo Concari 06-11-2011 30 REM This program patches the 40 REM Airwolf loader "Wolf1" to 50 REM correctly display fonts on 60 REM Master series machines. 70 REM The BBC Master handles font 80 REM definitions differently from 90 REM earlier machines. 100 *LOAD Wolf1 1D60 110 IF(?&1F5F=&00 AND ?&1F60=&29) THEN PRINT"Program already patched."+CHR$(10):END 120 IF(?&1F5F<>&F4 OR ?&1F60<>&FF) THEN PRINT"Invalid target."+CHR$(10):END 130 *SAVE Wolf1Or 1D60+FA0 1960 1960 140 ?&1F5F=&00 150 ?&1F60=&29 160 FOR C%=4 TO 7 STEP 3 170 P%=&2900 180 O%=&2D00 190 [ 200 OPT C% 210 JSR &FFF4 220 LDA #&00 230 LDX #&01 240 JSR &FFF4 250 TXA 260 CMP #&03 270 BCS master 280 RTS 290 .master LDA &FE30 300 PHA 310 ORA #&80 320 STA &FE30 330 LDX #&00 340 SEI 350 .charloop1 LDA &2300,X 360 STA &8D00,X 370 DEX 380 BNE charloop1 390 .charloop2 LDA &2400,X 400 STA &8E00,X 410 DEX 420 BNE charloop2 430 CLI 440 PLA 450 STA &FE30 460 RTS 470 ] 480 NEXT 490 OSCLI"*SAVE Wolf1 1D60 "+STR$~(P%+&400)+" 1960 1960"