home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Unsorted BBS Collection
/
thegreatunsorted.tar
/
thegreatunsorted
/
texts
/
boxes
/
jbox_43.a49
< prev
next >
Wrap
Text File
|
1993-06-25
|
31KB
|
1,356 lines
; The Jolly-Box v4.3 (1 Mbit Samplerom, 4 Kb Program ROM).
; New modifications by Zaphod Beeblebrox of Control Team, Origial
; Code by Jolly Roger/Int. Tollfree Access
; Multi-Frequenz-Demon-Dialer for Global Access!!!
; last update 19.June.1993 12:15.32
; Code for INTEL 8049 running at 10 Mhz (because timing)
;
; How to Operate:
; ===============
; Press *0 for samplebank 0 select (DTMF, All 16 Digits).
; Press *1 for samplebank 1 select (CCITT #5 -R1- *DEFAULT*).
; Press *2 for samplebank 2 select (CCITT #5 -R2-).
; Press *3 for CCITT #3 (Not yet implemented!!!).
; Press *4 for CCITT #4 (2040 Hz/2400 Hz a.k.a 2VF).
; Press *8 for Trunking Freq #1 Customization Menu.
; Press *90X to change CCITT #5 R1/R2 M-f Tone Duration.
; Press *91X to change CCITT #5 R1/R2 M-f Tone Delay.
; Press *# for special tone simulation mode (Dialtone, Busy & Greenbox).
; Press **0 to enter a new routing code. The default is KP2+46.
; Press **1 to enter RAM memory number #1.
; Press **2 to enter RAM memory number #2.
; # ends the input and adds ST code if not in DTMF mode.
;
; When entering a number on the input line, the first digit must be
; between 0-3: A "0" means that the prefix in ram should be dialed before
; the actual number you enter. "1" means that KP1 should be the first tone
; dialed when the macro is played back. "2" is the same, but KP2 instead of
; KP1. A ST code is always added at the end of a CCITT number stored in RAM
; or ROM when it's played back. "3" means that this tone should be ignored
; and the rest of the dialing should be done in DTMF mode.
;
; Press 0 to dial the entered number #1. (without trunk)
; Press 1 to dial the entered number #2. (without trunk)
; Press 20-27 for dial in the first phonebook
; Press 30-37 for dial in the second phonebook
; Press 4 for 1850 Hz DHLS tone
; Press 5 for a Redbox "Dime" Tone
; Press 6 for a Redbox "Quarter" Tone
; Press 7 to send US Local Trunk-Tone (2600 Hz, 1.5 seconds).is KP2-460.
; Press 8 to send CCITT International Trunk #1
; Press 9 to send CCITT International Trunk #2
; Press # to get into whitebox mode, press again to return to bluebox mode.
;
; Example:
; ========
; "b46018262804c"
; Press:* 2 4 6 0 1 8 2 6 2 8 0 4 #
; or :* 0 1 8 2 6 2 8 0 4 # (b460 will be added for 0)
; "a08185585636c"
; Press:* 1 0 8 1 8 5 5 8 5 6 3 6 #
; When ist beeps three times:
; Quarz is ok.
; Porcessor is ok.
; All chips on the Sound card are ok.
; Press 1,2,3 or 4 when turning on and you get a test of all tones
; in the sample bank you selected.
; Register:
; =========
; r0 = adress reg #1. (Input-Line & Dialing Loops).
; r1 = adress reg #2. (Prefix-Dialing Loop).
; r2 = counter for wait routine
; r3 = sound to play
; r4 = sound pause
; r5 = sample bank for autodialing
; r6 = sound length
; r7 = temporary register
; r0 II (r24) = unused
; r1 II (r25) = unused
; r2 II (r26) = unused
; r3 II (r27) = unused
; r4 II (r28) = security code entered status
; r5 II (r29) = dial duration for C5 R1/R2 M-f Tones
; r6 II (r30) = dial pause for C5 R1/R2 M-f Tones
; r7 II (r31) = temporary register II
; r32-65 = memory for entered number #1 (ends with 32)
; r66-99 = memory for entered number #2 (ends with 32)
; r100-115 = memory for entered dialing prefix (ends with 32)
; r116 = Trunk Select Stage 1
; r117 = Trunk Duration Stage 1
; r118 = Trunk Delay Stage 1
; r119 = Trunk Select Stage 2
; r120 = Trunk Duration Stage 2
; r121 = Trunk Delay Stage 2
; r122 = Trunk Select Stage 3
; r123 = Trunk Duration Stage 3
; r124 = Trunk Delay Stage 3
; r125 = Trunk Select Stage 4
; r126 = Trunk Duration Stage 4
; r127 = Trunk Delay Stage 4
; codes in the sample rom:
; the 128Kb rom is divided in 32 2048 large blocks
; 00 - "0" DTMF touch tones 10 - "0" CCITT #5 R1
; 01 - "1" DTMF touch tones 11 - "1" CCITT #5 R1
; 02 - "2" DTMF touch tones 12 - "2" CCITT #5 R1
; 03 - "3" DTMF touch tones 13 - "3" CCITT #5 R1
; 04 - "4" DTMF touch tones 14 - "4" CCITT #5 R1
; 05 - "5" DTMF touch tones 15 - "5" CCITT #5 R1
; 06 - "6" DTMF touch tones 16 - "6" CCITT #5 R1
; 07 - "7" DTMF touch tones 17 - "7" CCITT #5 R1
; 08 - "8" DTMF touch tones 18 - "8" CCITT #5 R1
; 09 - "9" DTMF touch tones 19 - "9" CCITT #5 R1
; 0a - "*" DTMF touch tones 1a - "kp1" CCITT #5 R1
; 0b - "#" DTMF touch tones 1b - "kp2" CCITT #5 R1
; 0c - "a" DTMF touch tones 1c - "st" CCITT #5 R1
; 0d - "b" DTMF touch tones 1d - "C.11" CCITT #5 R1
; 0e - "c" DTMF touch tones 1e - "C.12" CCITT #5 R1
; 0f - "d" DTMF touch tones 1f - "DHLS" CCITT #5 R1/R2
; 20 - "0" CCITT #5 R2 30 - 2400/2600 Hz
; 21 - "1" CCITT #5 R2 31 - 2400/2400 Hz
; 22 - "2" CCITT #5 R2 32 - 2040/2040 Hz
; 23 - "3" CCITT #5 R2 33 - 2040/2400 Hz
; 24 - "4" CCITT #5 R2 34 - 2280/2280 Hz
; 25 - "5" CCITT #5 R2 35 - 2600/2600 Hz
; 26 - "6" CCITT #5 R2 36 - 2100/2100 Hz
; 27 - "7" CCITT #5 R2 37 - Spare 2
; 28 - "8" CCITT #5 R2 38 - 2100/2100 Hz Guard Tone
; 29 - "9" CCITT #5 R2 39 - 480/620 Hz (US Ringing Tone)
; 2a - "kp1" CCITT #5 R2 3a - 350/440 Hz (US Dialtone)
; 2b - "kp2" CCITT #5 R2 3b - 440/480 Hz (US Busy)
; 2c - "st" CCITT #5 R2 3c - 440/440 Hz (Sw. Dialt & Busy).
; 2d - "C.11" CCITT #5 R2 3d - 460/460 Hz (German Tone).
; 2e - "C.12" CCITT #5 R2 3e - 1700/2200 Hz (US/DK Redbox)
; 2f - "DHLS" CCITT #5 R2 3f - Silence (Empty!!!).
; port1: bit 0 = Samplebank Select Low Bit
; bit 1 = Samplebank Select High Bit
; bits 2-7 = Rows for keyboard
; port2: bits 0-3 = Program Address Memory High Address Bits
; bits 4-7 = select a sample of the sample rom (CCITT or DTMF)
;BEGIN OF PAGE $000
;Resetroutine:
nop ; lo
nop ; hi-pointer to reset ($000)
nop ; lo
nop ; hi-pointer to nmi ($000)
nop
nop
nop
nop
nop
call init
;give ok status (beep ,delay 300ms, beep, delay 100ms,long beep)
;end of reset routine
wboxb: mov r4,=75 ; 150 ms delay
call beep ; beep to show reset
mov r4,=25 ; set 50 ms delay
call beep ; beep again
call beep ; a third beep!
;select tone 0, sample-bank 1.
mov r3,=%00000000
mov r5,=%00000001
; MainMenu
; ========
; **0 = enter routing code
; **1 = enter number #1
; **2 = enter number #2
; *0 = select sample bank 0 (DTMF Whitebox, all 16 tones).
; *1 = select sample bank 1 (CCITT #5 R1 Tones).
; *2 = select sample bank 2 (CCITT #5 R2 Tones).
; *3 = select CCITT #3 mode (Not yet implemented!!!).
; *4 = select CCITT #4 mode.
; *9 = select dial/break timing menu.
; *# = special tone simulation mode.
; 0 = dial entered number #1
; 1 = dial entered number #2
; 20-17, 30-37 phonebook(s)
; 4 = DHLS tone
; 5 = Redbox - Dime Tone
; 6 = Redbox - Quarter Tone
; 7 = Local Trunk, 1.0s 2600 Hz
; 8 = Int. Trunk #1
; 9 = Int. Trunk #2
; # = whitebox, press again to go back to bluebox.
start: mov r4,=0
call beep ; beep again
main: call key ; get a code from key Accu
jz dial1 ; if it is 0 goto dial
anl A,=%10111111 ; %x0xxxxxx
jz command ; if it is 64 command menu 2
anl A,=%01111111 ; %00xxxxxx
jz whitebox ; if it is 128 goto wb
dec a ; so it has to be 1-9
jz dial2 ; if it is 1
dec a ; so it has to be 2-9
jz dialn1 ; if it is 2
dec a ; so it has to be 3-9
jz dialn2 ; if it is 3
dec a ; so it has to be 4-9
jz dhls ; if it is 4
dec a ; so it has to be 5-9
jz dime ; if it is 5
dec a ; so it has to be 6-9
jz quart ; if it is 6
dec a ; so it has to be 7-9
jz ltrunk ; if it is 7
dec a ; so it has to be 8,9
jz trunk1 ; if it is 8
jmp trunk2 ; so it had to be 9
;Input line
;Press 0-9 to enter a number.
;Use * to enter special tones (1-6 = A-E, H).
;Use # to finish and add ST code.
enter_r:mov r0,=100 ; set start for routing code
mov @r0,=32 ; give end code
jmp enterl ; goto enterl
enter_1:mov r0,=32 ; set start for number #1 - 32
mov @r0,=32 ; give end code
jmp enterl
enter_2:mov r0,=66 ; set start for number #1 - 32
mov @r0,=32 ; give end code
jmp enterl
dialn1: mov A,r5
mov r7,A
call key ; get a key 0-7
anl A,=7 ; %00000111
jmp dialn ; goto dial
dialn2: mov A,r5
mov r7,A
call key ; get a key 8-15 (0-7)
orl A,=8 ; %00001000
;dial a number from p3 rom out of
dialn: swap A ; a=a*16
mov r0,a ; put number to r0
sel rb1
mov a,r5
sel rb0
mov r6,a
sel rb1
mov a,r6
sel rb0
mov r4,a
mov a,r0
movp3 a,@A ; hole ersten wert
inc r0 ; increment position in rom
jz route1 ; when 0 then dial prefix
dec a
mov r3,=10 ; Sample pointer --> KP1
jz touchn ; If 1 - Dial KP1+Number
dec a
mov r3,=11 ; Sample pointer --> KP2
jz touchn ; If 2 - Dial KP2+Number
dec a
jnz main ; If 3 - Dial in DTMF, else go main.
mov r4,=40 ; 80 ms pause between DTMF's
mov r6,=40 ; 80 ms duration for DTMF's.
mov A,=0
mov r5,A ; Select DTMF Sample-Bank
jmp rbackn
touchn: call sound ; Play the sample
rbackn: mov a,r0 ; get position in rom
movp3 a,@A ; Fetch next tone
inc r0 ; increment position in rom
mov r3,a ; put next sample in r3
jz touchn ; 0 is also a tone we should output!
anl A,=%11011111 ; If it's $20 - End of signalling!
jz etouch ; We have to check if we should play ST code now...
jmp touchn
;dial a number from ram (r32 or r66).
dial1: mov r0,=32 ; Dial RAM Macro #1
jmp dial
dial2: mov r0,=66 ; Dial RAM Macro #2
dial: mov A,r5
jz mfdial
anl A,=%11111011
jnz mfdial
jmp c4_dial
mfdial: sel rb1
mov a,r5
sel rb0
mov r6,a
sel rb1
mov a,r6
sel rb0
mov r4,a
mov A,r5
mov r7,A
mov a,@r0 ; hole ersten wert
inc r0 ; increment position in ram
jz route2 ; If 0 - Dial Routing
mov r3,=10 ; Sample pointer --> KP1
dec a
jz touch ; If 1 - Dial KP1+Number
dec a
mov r3,=11 ; Sample Pointer --> KP2
jz touch ; If 2 - Dial KP2+Number
dec a
jnz main ; If 3 - Dial in DTMF, else go main.
mov r4,=40 ; 80 ms pause between DTMF's
mov r6,=40 ; 80 ms duration of DTMF's
mov A,=0
mov r5,A
jmp rback
touch: call sound ; play the sample
rback: mov a,@r0 ; fetch the next tone
inc r0
mov r3,a
jz touch ; 0 is also a tone we should play!!
anl A,=%11011111 ; check for $20 - End of signalling
jnz touch ; if no end code, goto output
etouch: mov A,r5
jz endsig ; Don't add ST code for DTMF mode.
mov r3,=12 ; Sample pointer --> ST code
call sound ; play the sample
endsig: mov A,r7
mov r5,A
jmp main ; end to main
route1: call dialr ; and wait
jmp rbackn ; end to main
route2: call dialr ; and wait
jmp rback ; end to main
trunk1: jmp trunk1n
trunk2: jmp trunk2n
ltrunk: jmp ltrunkn
dime: jmp dime1
quart: jmp quart1
dhls: jmp dhls2
whitebox:jmp white
command:jmp command2
PAGE 1
;Enter number to ram or select sample bank for bluebox mode.
;Press 0-3 for the different sample-banks, and # to enter
;the special tone simulation mode.
command2:call key
jz bank0 ; If it's 0 - Samplebank 0 select.
anl A,=%10111111 ; If * was pressed check for inputline.
jz enterm
anl a,=%01111111 ; If # was pressed goto simulation mode.
jz simtj
dec a
jz bank1 ; If it's 1 - Samplebank 1 select.
dec a
jz bank2 ; If it's 2 - Samplebank 2 select.
dec a
jz ccitt3 ; If it's 3 - CCITT #3 Mode Enable.
dec a
jz ccitt4 ; If it's 4 - CCITT #4 Mode Enable.
dec a
jz command2 ; 5
dec a
jz command2 ; 6
dec a
jz command2 ; 7
dec a
jz trunktj ; If it's 8 - Trunking Timing Menu.
dec a
jz timej ; If it's 9 - Dialing Timing Menu.
jmp command2
bank0: mov A,=0
jmp banks
bank1: mov A,=1
jmp banks
bank2: mov A,=2
jmp banks
ccitt3: mov A,=3
jmp banks
ccitt4: mov A,=4
banks: mov r5,A
mov r4,=0
call beep
jmp start
silence:mov A,=%11111111
outl p1,A
mov A,=$f0
outl p2,A
ret
enterm: call key
anl A,=%00000011
jz enterr
dec a
jz enter1
jmp enter2
enterl: mov r4,=0
call beep ; give message, that * was pushed
call beep
notspec:call key ; get a key
jz write ; test 0
anl A,=%10111111 ; %x0xxxxxx
jz special ; * = Enter special tone (1-6 = A-E, H)
anl A,=%01111111 ; %00xxxxxx
jz startj ; test #
write: mov @r0,a ; if 0-9, write number
inc r0 ; go to next
mov @r0,=32 ; set end
jmp enterl ; goto enterl
special:call key
anl A,=%00000111
jz notspec
add A,=9
jmp write
;Whitebox routine
;press keys as log as the tone has to play
; 1=$10 2=$20 3=$30
; 4=$40 5=$50 6=$60
; 7=$70 8=$80 9=$90
; *=$a0 0=$00 #=$b0
; A=$c0 B=$d0 C=$e0
; D=$f0
white: mov r4,=10
mov r6,=20
call beep
call beep
mov a,=%00000011
outl p1,A ; set all rows to output
whitell:call release
mov A,=$f0
outl p2,A
whitel: mov A,=%11111011 ; set bit 2 low
outl p1,A
mov a,=$10
jnt0 wkey ; jump if key is pressed ...
mov a,=$70 ; .....
jnt1 wkey
mov a,=%11110111
outl p1,A
mov a,=$20
jnt0 wkey
mov a,=$80
jnt1 wkey
mov a,=%11101111
outl p1,A
mov a,=$30
jnt0 wkey
mov a,=$90
jnt1 wkey
mov a,=%11011111
outl p1,A
mov a,=$40
jnt0 wkey
jnt1 ffake
mov a,=%10111111
outl p1,A
mov a,=$50
jnt0 wkey
mov a,=$00
jnt1 wkey
mov a,=%01111111
outl p1,A
mov a,=$60
jnt0 wkey
jt1 whitel ; start over if no key is pressed
sel rb1
mov A,r4
jz fake2
sel rb0
jmp wboxb ; return to main menu.
ffake: sel rb1
mov A,r4
jz fake1
sel rb0
jmp wkey2j
fake1: sel rb0
mov A,=$a0
jmp wkey
fake2: sel rb0
mov A,=$b0
wkey: outl p2,A ; set tone
mov a,=%00000000 ; whitebox tones on
outl p1,A
jmp whitell
;wait routine for waiting 2*A ms (a=65: 130ms) (set a to 0, to get 512ms delay)
wait: mov r2,=166 ; set loop of 5+166*8 cycles
wait1: nop ; delay 1 cycle
nop ; delay 1 cycle
nop ; delay 1 cycle
nop ; delay 1 cycle
nop ; delay 1 cycle
nop ; delay 1 cycle
djnz r2,wait1 ; delay 2 cycles
dec a ; after 1 #s, if a>0
jnz wait ; goto wait again
ret ; end of wait
wkey2j: jmp wkey2
enter1: jmp enter_1
enter2: jmp enter_2
enterr: jmp enter_r
simtj: jmp simt
startj: jmp start
timej: jmp timing
trunktj:jmp trunkt
PAGE 2
red: mov r7,A
mov r3,=$0e ; select sound 14
mov A,r5
mov r1,A
mov r5,=%00000011 ; select sample bank 03
call sound ; play tone
mov A,r1
mov r5,A
mov A,r7
dec A
jnz red
jmp main
dime1: mov A,=2
mov r4,=33
mov r6,=33
jmp red
quart1: mov A,=5
mov r4,=17
mov r6,=17
jmp red
;Enter key
;gives The Code of pressed Key in Accu and waits for key press.
;bevore it waits for releasing the key.
; 1=$01 2=$02 3=$03
; 4=$04 5=$05 6=$06
; 7=$07 8=$08 9=$09
; *=$40 0=$00 #=$80
key: call releaseb
keyl: mov a,=%11111011 ; set bit 2 low
outl p1,A
mov a,=1
jnt0 kkey ; jump if key is pressed ...
mov a,=7 ; .....
jnt1 kkey
mov a,=%11110111
outl p1,A
mov a,=2
jnt0 kkey
mov a,=8
jnt1 kkey
mov a,=%11101111
outl p1,A
mov a,=3
jnt0 kkey
mov a,=9
jnt1 kkey
mov a,=%11011111
outl p1,A
mov a,=4
jnt0 kkey
mov a,=$40
jnt1 kkey
mov a,=%10111111
outl p1,A
mov a,=5
jnt0 kkey
mov a,=0
jnt1 kkey
mov a,=%01111111
outl p1,A
mov a,=6
jnt0 kkey
mov a,=$80
jnt1 kkey
jmp keyl ; start over if no key is pressed
kkey: ret ; ret acc.
;test release key
releaseb:mov a,=%00000011
outl p1,A ; set all rows to output
release:jnt0 release ; wait until there is no key pressed
jnt1 release ; (both lines)
mov a,=37 ; delay 75ms
call wait
jnt0 release ; wait if there is no key pressed
jnt1 release ; (both lines)
ret
;make a beep sound with 30ms delay
beep: mov r3,=$01 ; select sound 01, Bank 3 (good beep sound)
mov r6,=15 ; 30 ms beep
mov A,r5
mov r7,A
mov r5,=%00000011 ; set sound dma
call sound ; and wait
mov A,r7
mov r5,A
ret
;Sound routine
;r3 represents the sound which is in the sample rom.
;r4 is the pause after the sound, r5 the sample bank & r6 the length
sound: mov A,r6
jz nowait
mov A,r3 ; get sample to a
swap A ; a=a*16
outl p2,A ; send sample
mov A,r5 ; tone bank select
anl a,=%00000011 ; only banks 0-3 are valid
outl p1,A
mov A,r6 ; use R6/2 ms to delay
call wait ; wait
call silence ; stop sound
mov A,r4 ; pause
jz nowait
call wait
nowait: ret ; end of sound
;dial prefix from ram (r100)
dialr: mov r1,=100 ; start
mov a,@r1 ; hole ersten wert
inc r1 ; increment position in ram
dec a
mov r3,=10
jz touchr
dec a
mov r3,=11
jz touchr
dec a
jnz dialr2
mov r4,=40 ; 80 ms pause between DTMF's
mov r6,=40 ; 80 ms duration for DTMF's.
mov r5,=0 ; Select DTMF Samplebank.
jmp touchr2
touchr: call sound ; send the touchtone
touchr2:mov a,@r1 ; hole nΣchsten wert
inc r1
mov r3,a
jz touchr ; gebe null aus
anl A,=%11011111 ; kein code eingegeben
jnz touchr ; if no end code, goto output
dialr2: ret
wkey2: call releaseb
wkey2l: mov A,=%11111011
outl p1,A
mov A,=$a0
jnt0 wkeyj
mov A,=%11110111
outl p1,A
mov A,=$b0
jnt0 wkeyj
mov A,=%11101111
outl p1,A
mov A,=$c0
jnt0 wkeyj
mov A,=%11011111
outl p1,A
mov A,=$d0
jnt0 wkeyj
mov A,=%10111111
outl p1,A
mov A,=$e0
jnt0 wkeyj
mov A,=%01111111
outl p1,A
mov A,=$f0
jt0 wkey2l
wkeyj: jmp wkey
whitej: jmp whitel
page 3
; Page 3 contains the 16 stored phonenumber ($300-$3ff).
page 4
; Special tone simulation mode.
; =============================
;
; 1 = Swedish Dialtone.
; 2 = Swedish Busy Tone.
; 3 = Swedish Ringtone.
; 4 = US Dialtone
; 5 = US Busy Tone.
; 6 = US Ringtone.
; 7 = Swedish All Trunks Busy
; 8 = US All Trunks Busy
; 9 = Greenbox Ringback. (700 & 1700 Hz, 1 sec).
; 0 = Greenbox Coin Return (1100 & 1700 Hz, 1 sec).
; * = 2600 Hz wink (90 ms).
; # = Jump back to main menu.
simt: mov a,=%00000011
outl p1,A
siml1: call release
mov A,=$f0
outl p2,A
siml2: mov A,=%11111011 ; 1 - Swedish Dialtone
outl p1,A
mov a,=$c0
jnt0 skey
jnt1 sbusy ; 7 - Swedish Slow-Busy
mov A,=%11110111 ; 2 - Swedish Busy
outl p1,A
mov A,=$c0
jnt0 fbusy
mov A,=$b0
jnt1 fbusy ; 8 - US Fast-Busy
mov a,=%11101111 ; 3 - Swedish Ringtone
outl p1,A
mov a,=$c0
jnt0 ringl
jnt1 rngbck ; 9 - Greenbox Ringback
mov a,=%11011111 ; 4 - US Dialtone
outl p1,A
mov a,=$a0
jnt0 skey
jnt1 wink26 ; * - 2600 Wink (90 ms).
mov a,=%10111111 ; 5 - US Busy
outl p1,A
mov a,=$b0
jnt0 busy
jnt1 cretn ; 0 - Greenbox Coin Return
mov a,=%01111111 ; 6 - US Ringtone
outl p1,A
mov a,=$90
jnt0 ringl
jt1 siml2 ; start over if no key is pressed
jmp wboxb ; return to main menu.
skey: outl p2,A ; set tone
mov a,=%00000011 ; simulation tones on
outl p1,A
jmp siml1
busy: mov r3,=250
jmp busyl
fbusy: mov r3,=125
busyl: outl p2,A
mov r7,A
mov A,r3
call wait
mov A,=$f0
outl p2,A
mov A,r3
call wait
mov A,r7
jnt0 busyl
jnt1 busyl
jmp simt
sbusy: outl p2,A
mov r7,A
mov A,=250
call wait
mov A,=$f0
outl p2,A
mov A,=250
call wait
mov A,=250
call wait
mov A,=250
call wait
mov A,=250
call wait
mov A,r7
jnt0 sbusy
jnt1 sbusy
jmp simt
ringl: outl p2,A
mov r7,A
mov A,=250
call wait
mov A,=250
call wait
mov A,=$f0
outl p2,A
mov A,=250
call wait
mov A,=250
call wait
mov A,=250
call wait
mov A,=250
call wait
mov A,r7
jnt0 ringl
jnt1 ringl
jmp simt
wink26: mov A,=$50
outl p2,A
mov A,=45
call wait
mov A,=$f0
outl p2,A
jmp simt
cretn: mov A,=$c0
outl p2,A
mov A,=%00000001
outl p1,A
mov A,=250
call wait
mov A,=250
call wait
mov A,=$f0
outl p2,A
jmp simt
rngbck: mov A,=$a0
outl p2,A
mov A,=%00000001
outl p1,A
mov A,=250
call wait
mov A,=250
call wait
mov A,=$f0
outl p2,A
jmp simt
ltrunkn:mov A,=$50 ; select sound 05
outl p2,a ; no pause
mov A,=%11111111 ; set sample bank 03
outl p1,A
call releaseb
call silence
jmp main ; goto main loop
init: sel rb0 ; use old register
orl p1,=%11111111 ; %11111111 all bits for output
orl p2,=%11111111 ; %11111111 all bits for output
mov a,=%11111000
outl p1,a ; select 1 key and whitebox-mode
jnt0 selftj ; if 1 is pressed while turning on goto selftest
mov a,=%11110101
outl p1,a ; select 2 key and bluebox-mode CCITT #5 R1
jnt0 selftj ; if 2 is pressed while turning on goto selftest
mov a,=%11101110
outl p1,a ; select 3 key and bluebox-mode CCITT #5 R2
jnt0 selftj ; if 3 is pressed while turning on goto selftest
mov a,=%11011111
outl p1,a ; select 4 key and special signalling tones & trunks.
jnt0 selftj ; if 4 is pressed while turning on goto selftest
jmp init2
selftj: jmp selftst
page 5
c4_dial:mov a,@r0 ; hole ersten wert
inc r0 ; increment position in ram
jz mainj ; If 0 - Dial Routing
dec a
jz c4_kp1 ; If 1 - Dial KP1+Number
dec a
jz c4_kp2 ; If 2 - Dial KP2+Number
mainj: jmp main
c4_tch: anl a,=%00000111
rl a
rl a
add a,=192
mov r1,a
mov r4,=18
mov r5,=$03
mov r6,=18
movp a,@a
mov r3,a
call sound
inc r1
mov a,r1
movp a,@a
mov r3,a
call sound
inc r1
mov a,r1
movp a,@a
mov r3,a
call sound
inc r1
mov a,r1
movp a,@a
mov r3,a
call sound
mov a,=70 ; 140 ms interdigit delay.
call wait
c4_rbk: mov a,@r0 ; fetch the next tone
inc r0
jz c4_tch ; 0 is also a tone we should play!!
anl A,=%11011111 ; check for $20 - End of signalling
jnz c4_tch ; if no end code, goto output
mov r3,=$02
call sound
call sound
call sound
call sound
c4_end: mov A,r7
mov r5,A
jmp main ; end to main
c4_kp1: mov A,r5
mov r7,A
mov r4,=0 ; Delay 0
mov r5,=3 ; Samplebank 3
mov r3,=$03 ; Sample #03 2040/2400 Hz
mov r6,=75 ; Play it for 150 ms
call sound
mov r3,=$02 ; Sample #02 2040/2040 Hz
mov r4,=70 ; 140 ms delay
mov r6,=50 ; Play it for 100 ms
call sound
jmp c4_rbk
c4_kp2: mov A,r5
mov r7,A
mov r4,=0 ; Delay 0
mov r5,=3 ; Samplebank 3
mov r3,=$03 ; Sample #03 2040/2400 Hz
mov r6,=75 ; Play it for 150 ms
call sound
mov r3,=$01 ; Sample #02 2400/2400 Hz
mov r4,=70 ; 140 ms delay
mov r6,=50 ; Play it for 100 ms
call sound
jmp c4_rbk
c4_clr: mov A,r5
mov r7,A
mov r4,=0 ; Delay 0
mov r5,=3 ; Samplebank 3
mov r3,=$03 ; Sample #03 2040/2400 Hz
mov r6,=75 ; Play it for 150 ms
call sound
mov r3,=$02 ; Sample #02 2040/2040 Hz
mov r4,=60 ; 120 ms delay
mov r6,=175 ; Play it for 350 ms
call sound
mov A,r7
mov r5,A
jmp main
c4_xfr: mov A,r5
mov r7,A
mov r4,=0 ; Delay 0
mov r5,=3 ; Samplebank 3
mov r3,=$03 ; Sample #03 2040/2400 Hz
mov r6,=75 ; Play it for 150 ms
call sound
mov r3,=$01 ; Sample #02 2400/2400 Hz
mov r4,=60 ; 120 ms delay
mov r6,=175 ; Play it for 350 ms
call sound
mov A,r7
mov r5,A
jmp main
dhls2: mov A,r5
mov r7,A
mov r5,=1 ; Samplebank 1
mov r3,=$0f ; Sample #15 DHLS Tone.
mov r6,=250 ; Wait 0.5s
call sound
mov A,r7
mov r5,A
jmp main
page 6
; Dialing Timing sub-menu.
; ========================
; *90X = Change M-f Tone Duration, X=20 ms steps.
; *91X = Change M-f Tone Delay, X=20 ms steps.
;
; 0 = 000 ms 1 = 020 ms 2 = 040 ms
; 3 = 060 ms 4 = 080 ms 5 = 100 ms
; 6 = 120 ms 7 = 140 ms 8 = 160 ms
; 9 = 180 ms * = 250 ms # = 500 ms
timing: call beep
call key
jz mf_dur
anl A,=%11111110
jz mf_del
t_mainj:sel rb0
jmp main
mf_dur: call time_ch
sel rb1
mov r5,A
sel rb0
call beep
jmp main
mf_del: call time_ch
sel rb1
mov r6,A
sel rb0
call beep
jmp main
time_ch:call beep
call key
jnz ch_time
clr a
jmp mfdend
ch_time:anl A,=%10111111
jnz not_64
mov A,=$7d
jmp mfdend
not_64: anl A,=%01111111
jnz not_128
mov A,=$fa
jmp mfdend
not_128:mov r7,a
clr a
t_loop2:add a,=10
djnz r7,t_loop2
mfdend: ret
; Trunking Timing sub-menu.
; =========================
; *80X = Change Trunk Tone #1 Duration, X=20 ms steps.
; *81X = Change Trunk Tone #2 Duration, X=20 ms steps.
; *82X = Change Trunk Tone #3 Duration, X=20 ms steps.
; *83X = Change Trunk Tone #4 Duration, X=20 ms steps.
; *84X = Change Trunk Tone #1 Delay, X=20 ms steps.
; *85X = Change Trunk Tone #2 Delay, X=20 ms steps.
; *86X = Change Trunk Tone #3 Delay, X=20 ms steps.
; *87X = Change Trunk Tone #4 Delay, X=20 ms steps.
; *88X = Change Trunk Tone #1 Sample, X=0-15. (#=Skip, no tone!!!)
; *89X = Change Trunk Tone #2 Sample, X=0-15. (#=Skip, no tone!!!)
; *8*X = Change Trunk Tone #3 Sample, X=0-15. (#=Skip, no tone!!!)
; *8#X = Change Trunk Tone #4 Sample, X=0-15. (#=Skip, no tone!!!)
;
; 0 = 000 ms 1 = 020 ms 2 = 040 ms
; 3 = 060 ms 4 = 080 ms 5 = 100 ms
; 6 = 120 ms 7 = 140 ms 8 = 160 ms
; 9 = 180 ms * = 250 ms # = 500 ms
trunkt: call beep
call key
jz tt1dur
anl A,=%01111111
jz tt4splj
anl A,=%10111111
jz tt3splj
dec a
jz tt2dur
dec a
jz tt3dur
dec a
jz tt4dur
dec a
jz tt1del
dec a
jz tt2del
dec a
jz tt3del
dec a
jz tt4del
dec a
jz tt1splj
dec a
jz tt2splj
trmainj:sel rb0
call beep
jmp main
ttim: call time_ch
mov @r0,a
ret
tt_spl: call key
jz notten
anl A,=%01111111
jnz nquit
mov A,=$0f
nquit: anl A,=%10111111
jnz notten
mov A,=$0a
notten: mov @r0,A
ret
tt1dur: mov r0,=116
call ttim
jmp trmainj
tt2dur: mov r0,=117
call ttim
jmp trmainj
tt3dur: mov r0,=118
call ttim
jmp trmainj
tt4dur: mov r0,=119
call ttim
jmp trmainj
tt1del: mov r0,=120
call ttim
jmp trmainj
tt2del: mov r0,=121
call ttim
jmp trmainj
tt3del: mov r0,=122
call ttim
jmp trmainj
tt4del: mov r0,=123
call ttim
jmp trmainj
tt1splj:mov r0,=124
call tt_spl
jmp trmainj
tt2splj:mov r0,=125
call tt_spl
jmp trmainj
tt3splj:mov r0,=126
call tt_spl
jmp trmainj
tt4splj:mov r0,=127
call tt_spl
jmp trmainj
;Testmode: All tones will be played!!!
selftst:mov r5,a
clr a
mov a,r3
mov a,=250
mov r4,a
mov r6,a
testloop:
call sound
mov a,r3 ;get it back
add a,=%00010000 ;next sample
mov r3,a ;keep it
jmp testloop ;loop
init2: mov a,r5 ; Test M-f Sample Bank is greater than 7
anl a,=%11111000 ;
jz au_cjmp ; If it is zero - Skip init.
mov r0,=32 ; Address ram memory #1.
mov @r0,=32 ; Write ST code to ram memory #1.
mov r0,=66 ; Address ram memory #2.
mov @r0,=32 ; Write ST code to ram memory #2.
mov r0,=100 ; Address ram prefix memory #3
mov @r0,=2 ; KP2
inc r0 ; increment address pointer
mov @r0,=4 ; 4
inc r0 ; increment address pointer
mov @r0,=6 ; 6
inc r0 ; increment address pointer
mov @r0,=0 ; 0
inc r0 ; increment address pointer
mov @r0,=32 ; end
jmp init3
au_cjmp:jmp au_code
page 7
init3: mov r0,=116 ; Set Trunk #1 Duration
mov @r0,=65 ; 130 ms duration.
inc r0 ; Set Trunk #2 Duration
mov @r0,=0 ; Not used - Duration 0.
inc r0 ; Set Trunk #3 Duration
mov @r0,=150 ; 300 ms duration.
inc r0 ; Set Trunk #4 Duration
mov @r0,=0 ; Not used - Duration 0.
inc r0 ; Set Trunk #1 Delay
mov @r0,=0 ; No delay.
inc r0 ; Set Trunk #2 Delay
mov @r0,=0 ; No delay (1.5 sec default).
inc r0 ; Set Trunk #3 Delay
mov @r0,=0 ; No delay.
inc r0 ; Set Trunk #4 Delay
mov @r0,=0 ; No delay.
inc r0 ; Set Trunk #1 Sample
mov @r0,=$00 ; 2400/2600 Hz, 130 ms
inc r0 ; Set Trunk #2 Sample
mov @r0,=$0f ; Not used, set to silence.
inc r0 ; Set Trunk #3 Sample
mov @r0,=$01 ; 2400 Hz, 300 ms
inc r0 ; Set Trunk #4 Sample
mov @r0,=$0f ; Not used, set to silence.
au_code:call beep
sel rb1 ; Power-On Security Access Code
mov r5,=25 ; M-f tone duration = 50 ms
mov r6,=15 ; M-f tone pause = 30 ms
mov r4,=$ff ; Set disable flag to OK status
call key ; Read keyboard
jz au_n1 ; If zero - Set disable flag.
anl A,=%11111110 ; Digit #1 = 1
jz au_c1 ; Zero means right code - continue...
au_n1: mov r4,=0 ; Set disable flag=0
au_c1: call key ; Read keyboard
jz au_n2 ; If zero - Set disable flag.
anl A,=%11111101 ; Digit #2 = 2
jz au_c2 ; Zero means right code - continue...
au_n2: mov r4,=0 ; Set disable flag=0
au_c2: call key ; Read keyboard
jz au_n3 ; If zero - Set disable flag.
anl A,=%11111100 ; Digit #4 = 3
jz au_c3 ; Zero means right code - continue...
au_n3: mov r4,=0 ; Set disable flag=0
au_c3: call key ; Read keyboard
jz au_n4 ; If zero - Set disable flag.
anl A,=%11111011 ; Digit #4 = 4
jz au_c4 ; Zero means right code - continue...
au_n4: mov r4,=0 ; Set disable flag=0
au_c4: mov a,r4 ; Check disable flag.
jz c_no ; If zero - Goto dumb DTMF mode...
sel rb0 ; Else return to main bluebox menu!!!
ret
c_no: sel rb0 ; Select ram bank 0.
jmp white ; Jump to dumb DTMF mode...
trunk1n:mov A,r5
jz ntrk1
anl A,=%11111011
jnz ntrk1
jmp c4_clr
ntrk1: mov r0,=116
mov A,@r0
mov r6,a
mov r0,=120
mov A,@r0
mov r4,a
mov r0,=124
mov A,@r0
mov r3,a
mov A,r5
mov r7,A
mov r5,=%00000011 ; select sample bank 03
call sound ; play tone
mov r0,=117
mov A,@r0
mov r6,a
mov r0,=121
mov A,@r0
mov r4,a
mov r0,=125
mov A,@r0
mov r3,a
call sound ; play tone
mov A,=250 ; Another 500 ms pause
call wait
mov A,=250 ; Another 500 ms pause
call wait
mov A,=250 ; Another 500 ms pause
call wait
mov r0,=118
mov A,@r0
mov r6,a
mov r0,=122
mov A,@r0
mov r4,a
mov r0,=126
mov A,@r0
mov r3,a
call sound ; play tone
mov r0,=119
mov A,@r0
mov r6,a
mov r0,=123
mov A,@r0
mov r4,a
mov r0,=127
mov A,@r0
mov r3,a
call sound ; play tone
mov A,r7
mov r5,A
jmp main
trunk2n:mov A,r5
jz ntrk2
anl A,=%11111011
jnz ntrk2
jmp c4_xfr
ntrk2: mov r3,=$00 ; select sound 00
mov r4,=0 ; no pause
mov A,r5
mov r7,A
mov r5,=%00000011 ; select sample bank 03
mov r6,=65 ; 130 ms 2400/2600 Hz
call sound ; play tone
mov A,=250 ; Another 500 ms pause
call wait
mov A,=250 ; Another 500 ms pause
call wait
mov A,=250 ; Another 500 ms pause
call wait
mov A,=250 ; Another 500 ms pause
call wait
mov r3,=$01 ; select sound 01
mov r4,=0 ; no pause
mov r6,=65 ; 130ms 2400 Hz
call sound ; play tone
mov A,r7
mov r5,A
jmp main
; The End!