JGHMOS1.src

10 REM > JGHMOS/src

20 REM Remove Speech code from BBC MOS ROM to free space for other code

30 :

40 IF HIMEM>&FFFF:SYS "OS_GetEnv"TOA$:IFLEFT$(A$,5)<>"B6502":OSCLI"B6502"+MID$(A$,INSTR(A$," "))

50 DIM mem% &3FFF:OSCLI "LOAD MOS120 "+STR$~mem%

60 DEFFNo(A%):P%=A%:O%=P%-&C000+mem%:=opt%

70 :

80 OSWRCH=&FFEE

90 LFA4A=&FA4A:LF168=&F168

100 :

110 FOR P=0 TO 1:opt%=P*3+4

120 [OPT FNo(&C4A0):EQUB &35:] :REM MODE 7 offset

130 [OPT FNo(&E825):EQUS "OS 1.21":] :REM OSBYTE 0

140 [OPT FNo(&F0C2):EQUS "OS 1.21":] :REM *Help

150 :

160 REM Remove Speech system

170 [OPT FNo(&DB11):BCS &DB27:EQUS STRING$(&DB27-P%,CHR$&EA):]:REM Speech Init

180 [OPT FNo(&DD6F):JMP &DE7F:EQUS STRING$(&DDCA-P%,CHR$&EA):]:REM Speech IRQ

190 [OPT FNo(&DE1A):JMP &DE2B:EQUS STRING$(&DE2B-P%,CHR$&EA):]:REM Speech ticker

200 [OPT FNo(&E633):EQUW &FFA6:EQUW &FFA6:] :REM Speech OSBYTEs

210 [OPT FNo(&E830):NOP:NOP:NOP:NOP:] :REM Sound &FFxx branch

220 [OPT FNo(&E88B):PLA:JSR &E4B0:PLA:JSR &E4B0 :\ Insert into sound buffer

230 PLP:RTS :\ Restore flags and return

240 EQUS STRING$(&E8AE-P%,CHR$&EA):] :REM SOUND &FFxx

250 [OPT FNo(&EE13):LDA #&FF:] :REM Start searching ROMs at ROM 0-1

260 [OPT FNo(&EE1E):CPY #&10:BCC &EE59:RTS :\ Only search ROMFS

270 EQUS STRING$(&EE51-P%,CHR$&EA):] :REM Initialise PHROM

280 [OPT FNo(&EE55):NOP:NOP:] :REM PRHOM service

290 [OPT FNo(&EE62):EQUS STRING$(&EEAD-P%,CHR$&EA):] :REM Speech processor access

300 [OPT FNo(&EEBB):EQUS STRING$(&EEDA-P%,CHR$&EA):] :REM Speech processor access

310 [OPT FNo(&F075):EQUS STRING$(6,CHR$0):] :REM Speech data

320 :

330 REM Add JGHROM code

340 [OPT FNo(&E895) :\ Replacement *Help

350 .LE895

360 LDA #11:JSR OSWRCH :\ Move up a line

370 LDX #&09:JSR LF168 :\ Send service call 9 to ROMs

380 JSR LFA4A :\ Print inline message, corrupting &B8/9, assumes Y<>0

390 EQUB 13:EQUS "OS 1.21":EQUB 13:EQUB 13:EQUB 0

400 RTS:]

410 [OPT FNo(&DF39):EQUB LE895 DIV 256:EQUB LE895 AND 255:]:REM *Help dispatch

420 :

430 NEXT

440 A$="SAVE JGHROM "+STR$~mem%+"+4000"

450 PRINT A$;:OSCLI A$:PRINT