💾 Archived View for gemini.spam.works › mirrors › textfiles › phreak › BOXES › jolly3.box captured on 2022-07-17 at 10:39:49.
⬅️ Previous capture (2022-06-12)
-=-=-=-=-=-=-
; 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!