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