' Motorola Bag Phone Handset Control 
' Phone must be hardwired into test mode (ground pin 21 on the DB-25)
' PICBasic & PIC16F84-04I/P  (4 MHz clock)
'
' See GBPPR 'Zine, Issue  #4 - Use Old Cellular Phones to Jam Tape Recorders


       ' Bring all pins low                         
Low 0  ' 1 
Low 1  ' 2
Low 2  ' 3
Low 3  ' 7
Low 4  ' 8
Low 5  ' 0
Low 6  ' #

Pause 4000    ' Wait 4 seconds for things to settle

Gosub Pound   ' [#]  Enter Servicing Level
Pause 200

Gosub One     ' [110001#]  Set TX Frequency (825.03 MHz)
Gosub One
Gosub Zero
Gosub Zero
Gosub Zero
Gosub One
Gosub Pound

Gosub Two     ' [28#]  High Tone Enable (1150 Hz)
Gosub Eight
Gosub Pound

Gosub Three   ' [30#]  Low Tone Enable (770 Hz)
Gosub Zero
Gosub Pound

Gosub One     ' [120#]  Maximum TX Power (3 Watts)
Gosub Two
Gosub Zero
Gosub Pound

Gosub Two     ' [27#]  TX Continuous Control Channel Data
Gosub Seven
Gosub Pound

End

Pound:
       High 6
       Pause 200
       Low 6
       Pause 200
       Return

One:
       High 0
       Pause 200
       Low 0
       Pause 200
       Return

Two:
       High 1
       Pause 200
       Low 1
       Pause 200
       Return

Three:
       High 2
       Pause 200
       Low 2
       Pause 200
       Return

Seven:
       High 3
       Pause 200
       Low 3
       Pause 200
       Return

Eight:
       High 4
       Pause 200
       Low 4
       Pause 200
       Return

Zero: 
       High 5
       Pause 200
       Low 5
       Pause 200
       Return