How to enable/disable them in BC9 and BC10

This standart for BC11 feature, could be realized in BC9 and BC10 with additional patches: 66676+66677 in BC9 and 87663+90933 in BC10.

This facility is made available by new application system parameter ASPAC =100.
ASPAC = 100 could have four possible settings:

Conference and intrusion tones provided = 00 (default case)
Intrusion tone only = 01
Conference tone only = 02
No conference or intrusion tones = 03


[color red] WARNING!!!!

Think twice before loading any of below listed corrections.

You are doing this on your own responsibilities.

No one can guarantee you, that system will work as it was expected because of many reasons.

Be fully aware of your actions BEFORE start.[/color]


Corrections for BC9:

/* ASSEMBLY SOLUTION : */
PCASI:UNIT=MPP,CI=S66676A,REV=2-R3A,IA=69A0,RA=69A6,BYTE=0;
MOVE.B ($172,A1),D5;
BFTST D5{30:1}; ! CTYPEOFTONE = CNFTONEBARRED? !
BEQ L0;
CLR.B ($58,A6); ! TTONE=NOTONE !
JMP $20069EC; ! MPTONE100 !
L0:MOVE.B ($13B,A1),D4; ! OLD CODE !
BEQ L1;
JMP $20069B8;
L1:;
END;
!A;
PCASI:UNIT=MPP,CI=S66676A,REV=2-R3A,IA=69CE,RA=69D4,BYTE=0;
MOVE.B ($172,A1),D5;
BFTST D5{29:1}; ! CTYPEOFTONE=INTTONEBARED? !
BEQ L0;
CLR.B ($58,A6); ! TTONE=NOTONE !
JMP $20069EC; ! MPTONE100 !
L0:TST.B ($13A,A1); ! OLD CODE !
BEQ L1;
JMP $20069DC;
L1:END;
!A;
/* NEW ENTRY - >SETAPSPARVAL> */
PCASI:UNIT=MPP,CI=S66676A,REV=2-R3A,SIGNO=00D2,RA=39AE;
TRAPT.W #$213;
MOVE.B (A5)+,($70,A6); ! TAHSPTR !
MOVE.B (A5)+,($71,A6); ! TAHSADCTRL !
MOVE.W (A5)+,($72,A6); ! TAHSUNIT !
MOVE.W (A5)+,($74,A6); ! TPARNUM !
MOVE.W (A5)+,($76,A6); ! TPARVAL !
CMPI.W #$0064,($74,A6);
BNE L0;
MOVE.W ($76,A6),D2;
MOVE.B ($172,A1),D3;
BFINS D2,D3{29:2};
LEA ($0172,A1),A2; ! CTYPEOFTONE = TPARVAL !
TRAPT.L #$00020340; ! QSCSV !
L0:TRAPT.W #$12; ! SEND CHGEXC !
MOVE.B ($70,A6),(A5)+; ! TAHSPTR !
MOVE.B ($71,A6),(A5)+; ! TAHSADRCTRL !
MOVE.W #$9F,D0; ! SIGNO !
MOVE.W ($72,A6),D1; ! TAHSUNIT !
MOVE.B ($1E,A0),D2; ! CCOMMONLIM !
TRAPT.W #$202; ! QSSB !
END;
!A;
/* NEW ENTRY - >FETAPSPARVAL> */
PCASI:UNIT=MPP,CI=S66676A,REV=2-R3A,SIGNO=0089,RA=39AE;
TRAPT.W #$213;
MOVE.B (A5)+,($70,A6); ! TAHSPTR !
MOVE.B (A5)+,($71,A6); ! TAHSADCTRL !
MOVE.W (A5)+,($72,A6); ! TAHSUNIT !
MOVE.W (A5)+,($74,A6); ! TPARNUM !
MOVE.B #01,($48,A6); ! TRESULT = PARNUMNOTUSED !
MOVE.W ($74,A6),D2;
CMPI.W #$0064,D2; ! APSCNFINTTONEOPTION !
BNE L0;
MOVE.B #00,($48,A6); ! TRESULT = PARNUMUSED !
L0:TRAPT.W #$12; ! SEND APSPARRES !
MOVE.B ($70,A6),(A5)+; ! TAHSPTR !
MOVE.B ($71,A6),(A5)+; ! TAHSADCTRL !
MOVE.B ($172,A1),D3;
CLR.L D4;
BFEXTU D3{29:2},D4; ! CTYPEOFTONE !
MOVE.W D4,($76,A6); ! TPARVAL !
MOVE.W ($76,A6),(A5)+; ! CTYPEOFTONE !
CLR.W (A5)+; ! TMINPARVALUE !
MOVE.W #3,(A5)+; ! TMAXPARVALUE !
MOVE.B ($48,A6),(A5)+; ! TRESULT !
MOVE.W #$72,D0; ! SIGNO !
MOVE.W ($72,A6),D1; ! TAHSUNIT !
MOVE.B ($1E,A0),D2; ! CCOMMONLIM !
TRAPT.W #$202; ! QSSB !
END;
!A;
PCACS:UNIT=MPP,CI=S66676A;
Y;
PCCOS:UNIT=MPP,CI=S66676A;
Y;

/*----------------------------------------------------------------------*/
/*##############NOTE: DO SFCEI AFTER INSERTING THE PATCH.###############*/
/*----------------------------------------------------------------------*/

/* ASSEMBLY SOLUTION : */
PCASI:UNIT=MHHS3,CI=S66677A,REV=2-R4A,SECTOR=REL,ADDR=873,DATA=00&1D;
PCASI:UNIT=MHHS3,CI=S66677A,REV=2-R4A,SECTOR=REL,ADDR=876,DATA=FF&7F&01;
PCASI:UNIT=MHHS3,CI=S66677A,REV=2-R4A,SECTOR=REL,ADDR=170E,DATA=03&4D&50&50;
PCASI:UNIT=MHHS3,CI=S66677A,REV=2-R4A,SECTOR=REL,ADDR=1712,DATA=00;
PCASI:UNIT=MHHS3,CI=S66677A,REV=2-R4A,SECTOR=REL,ADDR=1716,DATA=03&06;
PCACS:UNIT=MHHS3,CI=S66677A;
Y;
PCCOS:UNIT=MHHS3,CI=S66677A;
Y;
/*======================================================================*/



Corrections for BC10:

/*----------------------------------------------------------------------*/
/* ASSEMBLY SOLUTION : */
PCPAS:UNIT=MPP,CI=S76786A;
Y;
PCASE:UNIT=MPP,CI=S76786A;
Y;
PCASI:UNIT=MPP,CI=S87663A,REV=3-R3A,IA=6B9A,RA=6BA0,BYTE=0;
MOVE.B ($172,A1),D5;
BFTST D5{31:1}; ! CTYPEOFTONE = CNFTONEBARRED? !
BEQ L0;
CLR.B ($5A,A6); ! TTONE=NOTONE !
JMP PROGSTART+$6BE6; ! MPTONE100 !
L0:MOVE.B ($13B,A1),D3; ! OLD CODE !
BEQ L1;
JMP PROGSTART+$6BB2;
L1:;
END;
!A;
PCASI:UNIT=MPP,CI=S87663A,REV=3-R3A,IA=6BC8,RA=6BCE,BYTE=0;
MOVE.B ($172,A1),D5;
BFTST D5{30:1}; ! CTYPEOFTONE=INTTONEBARED? !
BEQ L0;
CLR.B ($5A,A6); ! TTONE=NOTONE !
JMP PROGSTART+$6BE6; ! MPTONE100 !
L0:TST.B ($13A,A1); ! OLD CODE !
BEQ L1;
JMP PROGSTART+$6BD6;
L1:;
END;
!A;
PCASI:UNIT=MPP,CI=S87663A,REV=3-R3A,IA=1400,RA=1408,BYTE=8;
MOVE.B ($172,A1),D5;
BFTST D5{31:1}; ! CTYPEOFTONE = CNFTONEBARRED? !
BEQ LEND;
CLR.B ($79,A0); ! CLEFTTONEMESS = NOTONE !
CLR.B ($A9,A0); ! CRIGHTTONEMESS = NOTONE !
MOVE.B ($60,A1),($BE,A0);! CTRANSPARLSRS = CATTMATRIX3(0,0) !
MOVE.B ($2A,A6),D1; ! TLEFTTONE LEVEL !
CMP.B #2,D1; ! INTERNALLEVEL !
BEQ L0;
MOVE.B ($64,A1),($BE,A0);! CTRANSPARLSRS = CATTMATRIX3(0,4) !
L0:;
JMP PROGSTART+$14CA; ! SPEBOTH20 !
LEND:;
END;
!A;
PCASI:UNIT=MPP,CI=S87663A,REV=3-R3A,IA=641E,RA=6424,BYTE=6;
MOVE.B ($172,A1),D5;
BFTST D5{31:1}; ! CTYPEOFTONE.NOCONFERENCE = YES?? !
BEQ LEND;
CLR.B ($005A,A6); ! TTONE = NOTONE !
JMP PROGSTART+$6450; ! SETCHA10 !
LEND:;
END;
!A;
/* NEW ENTRY - >SETAPSPARVAL> */
SNSII:UNIT=MPP,NEWNO=65,NEWNAM=SETAPSPARVAL;
PCASI:UNIT=MPP,CI=S87663A,REV=3-R3A,SIGNO=0065,RA=7078;
TRAPT.W #$213;
MOVE.B (A5)+,($73,A6); ! TAHSPTR !
MOVE.B (A5)+,($74,A6); ! TAHSADCTRL !
MOVE.W (A5)+,($75,A6); ! TAHSUNIT !
MOVE.W (A5)+,($77,A6); ! TPARNUM !
MOVE.W (A5)+,($79,A6); ! TPARVAL !
CMPI.W #$0064,($77,A6);
BNE L0;
MOVE.W ($79,A6),D2;
MOVE.B ($172,A1),D3;
BFINS D2,D3{30:2};
LEA ($0172,A1),A2; ! CTYPEOFTONE = TPARVAL !
TRAPT.L #$00020340; ! QSCSV !
L0:TRAPT.W #$12; ! SEND CHGEXC !
MOVE.B ($73,A6),(A5)+; ! TAHSPTR !
MOVE.B ($74,A6),(A5)+; ! TAHSADRCTRL !
MOVE.W #$9F,D0; ! SIGNO !
MOVE.W ($75,A6),D1; ! TAHSUNIT !
MOVE.B ($1E,A0),D2; ! CCOMMONLIM !
TRAPT.W #$202; ! QSSB !
END;
!A;
/* NEW ENTRY - >FETAPSPARVAL> */
SNSII:UNIT=MPP,NEWNO=89,NEWNAM=FETAPSPARVAL;
PCASI:UNIT=MPP,CI=S87663A,REV=3-R3A,SIGNO=0089,RA=7078;
TRAPT.W #$213;
MOVE.B (A5)+,($73,A6); ! TAHSPTR !
MOVE.B (A5)+,($74,A6); ! TAHSADCTRL !
MOVE.W (A5)+,($75,A6); ! TAHSUNIT !
MOVE.W (A5)+,($77,A6); ! TPARNUM !
MOVE.B #01,($48,A6); ! TRESULT = PARNUMNOTUSED !
MOVE.W ($77,A6),D2;
CMPI.W #$0064,D2; ! APSCNFINTTONEOPTION !
BNE L0;
MOVE.B #00,($48,A6); ! TRESULT = PARNUMUSED !
L0:TRAPT.W #$12; ! SEND APSPARRES !
MOVE.B ($73,A6),(A5)+; ! TAHSPTR !
MOVE.B ($74,A6),(A5)+; ! TAHSADCTRL !
MOVE.B ($172,A1),D3;
CLR.L D4;
BFEXTU D3{30:2},D4; ! CTYPEOFTONE !
MOVE.W D4,($79,A6); ! TPARVAL !
MOVE.W ($79,A6),(A5)+; ! CTYPEOFTONE !
CLR.W (A5)+; ! TMINPARVALUE !
MOVE.W #3,(A5)+; ! TMAXPARVALUE !
MOVE.B ($48,A6),(A5)+; ! TRESULT !
MOVE.W #$72,D0; ! SIGNO !
MOVE.W ($75,A6),D1; ! TAHSUNIT !
MOVE.B ($1E,A0),D2; ! CCOMMONLIM !
TRAPT.W #$202; ! QSSB !
END;
!A;
PCACS:UNIT=MPP,CI=S87663A;
Y;
PCCOS:UNIT=MPP,CI=S87663A;
Y;
/*======================================================================*/

/* ASSEMBLY SOLUTION : */
PCASI:UNIT=MHHS1,CI=S90933A,REV=3-R12A,SECTOR=REL,ADDR=0BAA,DATA=00&C0&01;
PCASI:UNIT=MHHS1,CI=S90933A,REV=3-R12A,SECTOR=REL,ADDR=0FBB,DATA=19;
PCACS:UNIT=MHHS1,CI=S90933A;
Y;
PCCOS:UNIT=MHHS1,CI=S90933A;
Y;
/*======================================================================*/