Keygen crack ps 2020 1040

100 REM BASIC Month 5: Crisps Tunes 110 REM http://reddit.com/RetroBattlestations 120 REM written by FozzTexx 130 REM Coleco Adam version by u/buffering 180 HOME 190 HIMEM:48999 195 GOSUB 800: REM Init Adam Sound Routines 196 ONERR GOTO 10000 200 REM Initialize variables 210 DIM m(7):FOR i=1 TO 7:READ m(i):NEXT 220 shfl=0:rhythm=0:omax=4:DIM a(12*omax) 230 dm=5: rem --- Duration Multiplier. Controls tempo. 300 REM Loop through data and play song 310 READ s$:sl=LEN(s$):IF sl=0 THEN 10000 320 FOR i = 1 TO sl 330 octave=4:duration=2:mult=0:accd=0 340 IF i > sl THEN GOTO 730 350 n$=MID$(s$,i,1) 360 IF n$ = " " THEN 730 370 IF n$ = "|" THEN GOSUB 745:GOTO 730 380 IF n$ = "^" THEN accd=1:shfl=shfl+1:i=i+1:GOTO 340 390 IF n$ = "_" THEN accd=1:shfl=shfl-1:i=i+1:GOTO 340 400 IF n$ = "=" THEN accd=1:shfl=0:i=i+1:GOTO 340 420 IF n$ >= "A" AND n$ <= "G" THEN c=ASC(n$):c=c-64:note=m(c) 500 REM Keep reading modifier after the note until there's another note 510 i=i+1:IF i > sl THEN GOTO 610 520 m$=MID$(s$,i,1) 530 IF m$ = "," THEN octave=octave-1:GOTO 510 540 IF m$ = "'" THEN octave=octave+1:GOTO 510 550 IF m$ >= "0" AND m$ <= "9" THEN c=ASC(m$):mult=mult*10+c-48:GOTO 510 570 IF m$ = "<" THEN rhythm=1:rmult=0.5:GOTO 510 580 IF m$ = ">" THEN rhythm=1:rmult=1.5:GOTO 510 590 i=i-1 600 REM Play note 610 note = 11 + note + (octave - 4) * 12 620 IF accd THEN a(note)=shfl:shfl=0 630 shfl=a(note):note=note+shfl 660 IF mult=0 then mult=1 670 IF rhythm THEN mult=mult*rmult 680 duration=duration*mult 690 f$="":IF shfl <> 0 THEN f$="#":IF shfl<0 THEN f$="$" 700 PRINT n$;f$;octave;"=";mult; 710 GOSUB 2000: REM --- Send note to sound player 720 IF rhythm THEN rhythm = rhythm+1:rmult=2-rmult:IF rhythm=3 THEN rhythm=0 730 NEXT i 735 GOTO 310 740 REM clear all accidentals 745 FOR j=1 to (12*omax):a(j)=0:NEXT j 750 RETURN 799 REM --- Init Adam Sound Routines 800 read ps: rem --- Timer State Pointer (49000). Poke 1 to start next sound 805 pd=ps+1: rem --- Timer Duration 810 pp=ps+3: rem --- Sound Byte pointer 815 rs=ps+2: rem --- Send Sound Byte Routine 820 rw=ps+7: rem --- Wait for timer routine 821 ro=ps+14: rem --- Interrupts Off routine 822 ri=ps+20: rem --- Interrupts On routine 825 DIM fl(16): rem --- Frequency Table Low Bytes 830 DIM fh(16): rem --- Frequency Table High Bytes 840 PRINT "Poking Sound Routines..." 845 read l 850 FOR x=0 to l-1:READ d:POKE ps+x,d:NEXT 854 if peek(17988)=40 then poke ps+15,208: poke ps+21,240: REM Fixup for 40-column mode 855 PRINT "Loading Frequency Tables" 860 l=16 865 FOR x=1 to l:READ d:fh(x)=d:NEXT 870 FOR x=1 to l:READ d:fl(x)=d:NEXT 875 ?"Installing Interrupt Handler" 880 CALL ro:poke 102,195:poke 103,130:poke 104,191:CALL ri 885 ?"Ready." 890 RETURN 899 REM --- Sound Routines (Address 49000, 74 bytes) 900 data 49000,74 901 DATA 0,0,62,0,211,255,201,58 902 DATA 104,191,183,32,250,201,1,194 903 DATA 1,195,32,253,1,226,1,195 904 DATA 32,253,245,58,104,191,254,1 905 DATA 40,6,254,2,40,10,24,29 906 DATA 60,50,104,191,62,144,211,255 907 DATA 58,105,191,183,40,6,61,50 908 DATA 105,191,24,9,62,0,50,104 909 DATA 191,62,159,211,255,219,191,241 910 DATA 237,69 960 REM --- Frequency Tables (16. Low D to High F) 965 REM --- High Bytes (Upper 6 bits of freq. Sent last) 970 DATA 23,22,21,20,18,17,16,15,14,14,13,12,11,11,10,10 975 REM --- Low Bytes (Lower 4 bits of freq, plus channel. Sent first) 980 DATA 140,135,131,128,142,141,141,142,143,130,133,137,142,131,137,128 999 REM --- Song Data 1000 DATA 9,11,0,2,4,5,7 1010 DATA "G,G, | ^G,G, A,A, G,G, | G,G, ^G,G, A,2 | G,^G, A,2 E,2 | E,2 E,2 E,8" 1020 DATA "| G,G, ^G,G, A,A, | ^G,G, =G,G, ^G,G, | A,2 G,^G, A,2 | F,2 F,2 F,2" 1030 DATA "| F,8 | F,2 F, | F,2 F,G, | A,B,5 | E,2 A,2 E, | A,2 E,F, G,A,8" 1040 DATA "| D,2 | E,4 ^F,2 | A,2 B,4 | A,_B, =B,2 G,2 | G,2 G,2 G,8" 1050 DATA "| G,G, ^G,G, A,A, | ^G,G, =G,G, ^G,G, | A,2 G,^G, A,2 | E,2 E,2 E,2" 1060 DATA "| E,8 | E,E, ^D,D, | E,2 ^F,2 ^G,2 | E,2 ^F,2 ^G,2 | A,2 ^G,2 A,2" 1070 DATA "| B,4< C4 | B,C D2 | A,2 A,2 A,2 | D2 "; 2070 return 10000 call rw: REM Wait for last note to end. 10010 call ro:poke 102,245:poke 103,58:poke 104:112:call ri: REM --- Restore original interrupt handler 10020 poke pp,159:call rs: REM -- Volume Off 10030 print "Done" 10040 end 

;;; Hardware Ports soundRegister: equ $FF videoData: equ $BE videoRegister: equ $BF ;;; EOS Entry Points WRITE_REGISTER: equ $FD20 org 49000 timerState: defb $0 ; 49000 duration: defb $0 ; 49001 ;;; Send byte to sound hardware. setSound: ; 49002 ld a,$00 ; 49003=Byte to send out soundRegister,a ret ;;; Wait for timer to expire. waitForTimer: ; 49007 ld a,(timerState) or a jr nz,waitForTimer ret ;;; Turn Off VBL Interrupts interruptsOff: ; 49014. 40 column text mode should be 11010000 ld bc,$01C2 ; VDP Register 1 = 11000010 (16 kB RAM, Screen On, VBL Interrupts Off, Mode 2, 16x16 Sprites) jp WRITE_REGISTER ; ;;; Turn On VBL Interrupts interruptsOn: ; 49020. 40 column text mode should be 11110000 ld bc,$01E2 ; VDP Register 1 = 11100010 (16 kB RAM, Screen On, VBL Interrupts On, Mode 2, 16x16 Sprites) jp WRITE_REGISTER ;;; ;;; Interrupt Handler ;;; enterInterrupt: ; 49027 (131, 191) push af ; ld a,(timerState) ; cp 1 ; timerState == 1? Start Timer jr z,timerStart ; cp 2 ; timerState == 2? Timer is already running jr z,timerRun ; jr exitInterrupt ; Otherwise, exit. timerStart: ; inc a ; Set timerState = 2 (running) ld (timerState),a ; ld a,$90 ; Volume to full out soundRegister,a ; timerRun: ; ld a,(duration) ; or a ; duration == 0? Timer is done. jr z, timerDone ; dec a ; Otherwise, decrement duration and exit. ld (duration),a ; jr exitInterrupt ; timerDone: ; ld a,0 ; Set timerState = 0 (idle) ld (timerState),a ; ld a,$9F ; Volume off. out soundRegister,a ; exitInterrupt: in a,videoRegister ; Enable next interrupt pop af retn