Try this!
PCASI:UNIT=ITLP,CI=C78318A,REV=2-R2A,IA=25B6,RA=264A,BYTE=0;
MOVEA.L ($1A,A6),A4;
MOVE.L A4,D2;
TRAPEQ.W #QFP;
BFEXTU (0,A4){4:4},D3; ! B1 !
TST.B D3;
BNE L0;
MOVEA.L ($1E,A6),A3;
MOVE.L A3,D4;
TRAPEQ.W #QFP;
TST.B ($A,A3);
BNE L0;
MOVE.B #1,($103,A6);
BRA L9;
L0:;
MOVEA.L ($1A,A6),A2;
MOVE.L A2,D3;
TRAPEQ.W #QFP;
BFEXTU (0,A2){0:4},D6; ! B2 !
TST.B D6;
BNE L1;
MOVEA.L ($1E,A6),A3;
MOVE.L A3,D7;
TRAPEQ.W #QFP;
TST.B ($B,A3);
BNE L1;
MOVE.B #2,($103,A6);
BRA L9;
L1:;
JMP (PROGSTART+$260A);
L9:;
END;
!A;
PCASI:UNIT=ITLP,CI=C78318A,REV=2-R2A,IA=12580,RA=12602,BYTE=6;
MOVEA.L ($1A,A6),A4;
MOVE.L A4,D2;
TRAPEQ.W #QFP;
BFEXTU (0,A4){4:4},D3; ! B1 !
TST.B D3;
BNE L0;
MOVEA.L ($1E,A6),A3;
MOVE.L A3,D4;
TRAPEQ.W #QFP;
TST.B ($A,A3);
BNE L0;
BFINS D1,(0,A4){4:4};
MOVEQ #1,D0;
MOVEA.L (2,A6),A5;
MOVE.L A5,D2;
TRAPEQ.W #QFP;
ANDI.B #$3,D0;
MOVE.B D0,(1,A5);
BRA L9;
L0:;
MOVEA.L ($1A,A6),A2;
MOVE.L A2,D3;
TRAPEQ.W #QFP;
BFEXTU (0,A2){0:4},D6; ! B2 !
TST.B D6;
BNE L1;
MOVEA.L ($1E,A6),A3;
MOVE.L A3,D7;
TRAPEQ.W #QFP;
TST.B ($B,A3);
BNE L1;
MOVEQ #1,D1;
BFINS D1,(0,A2){0:4};
MOVEQ #2,D1;
MOVEA.L (2,A6),A4;
MOVE.L A4,D0;
TRAPEQ.W #QFP;
ANDI.B #$3,D1;
MOVE.B D1,(1,A4);
BRA L9;
L1:;
CLR.B ($180,A6);
L9:;
END;
!A;
PCACS:UNIT=ITLP,CI=C78318A;
Y;
PCCOS:UNIT=ITLP,CI=C78318A;
Y;