<<<<##<<<<11.0.33 FAST ..IDENT 901193. THE SINGING COMPUTER, BY RON DAVIS. ..LOAD FAST OBJECT DIVISION ..LOAD FAST LIST OBJECT DIVISION SPACE 4 DORG402 MCP DS ,57000 TOP DS ,MCP-1 BACK AM PLACE,2,10 PLAY TF BT&5,%NO. OF NOTE.< PLACE DS AM PLACE,4,10 TF TIME,-PLACE BT B7 -KYBRD * * INPUT NEW SCORE. * INGRESTFM READ&6,NOTE1-5-72 AM READ&6,72,10 READ RNCD BNR READ-12,-READ-6 * * CLEAR REMAINING MEMORY * TDM TOP-310,1 B7 CLEAR AM READ&4,3,10 CLEAR TR -READ-6,DUCAT-300 BD *-24,TOP-310 TF TOP,ZERO&300 TF TOP-280,ZERO&300 TDM@TOP TR NOTE1,NOTE1 TFM PLACE,NOTE1-4-2 BNR BACK,NOTE1-5 B7 -MCP-65 ZERO DS DC 100 DSC 100 DSC 100 DUCAT DC 1,@ DS 5-1 SORG000,9 DS 1-5 KYBRD DSA REST,,INGRES, DS 2*5*9%NOTES MISSING< DSA N1002,,N1001, DSA N1000,,N911,,N910,,N909,,N908,,N907,,N906,,N905,,N904,,N903, DSA N902,,N901,,N900,,N811,,N810,,N809,,N808,,N807,,N806,,N805, DSA N804,,N803,,N802,,N801,,N800,,N711,,N710,,N709,,N708,,N707, DSA N706,,N705,,N704,,N703,,N702,,N701,,N700,,N611,,N610,,N609, DSA N608,,N607,,N606,,N605,,N604,,N603,,N602,,N601,,N600,,N511, DSA N510,,N509,,N508,,N507,,N506,,N505,,N504 * * REST SUBROUTINE. * REST BD LONG,TIME-3 TFM TR&6,TOP S TR&4,TIME CM TR&6,NOTE1-5 BL LONG TR TR ,-6-* B7 BACK LONG TR TOP-GLONK*100,TOP-GLONK*100 SM TIME,GLONK,9 B7 REST * * NOTE SUBROUTINES. * * 680 %674< 0.88 A# N1002 SM TIME,1,10 BP *-12 B7 BACK * 720 %714< 0.83 A N1001 SM TIME,1,10 BNF *-12,TIME B7 BACK * 760 %756< 0.53 G# N1000 SM -1000A,1,10 BP *-12 B BACK,TIME 1000A DS * 800 %801< 0.125 G N911 SM -*-23,1,10 BNF N911,TIME B7 BACK * 840 %848< 0.95 F# N910 SM TIME,1,10 NOP TIME DS BP N910 B7 BACK * 880 %899< 0.22 F N909 SM TIME,1,10 B *&12 BP N909 B7 BACK * 960 %953< 0.73 E N908 SM -*-23,1,10 B *&12,TIME BP N908 B7 BACK * 1000 %1010< 1.00 D# N907 SM -N908-23,1,10 BD *&12,399 BP N907 B7 BACK * 1080 %1069< 1.02 D N906 SM -N907-6,1,10 BD *&12,399 BP N906 B7 BACK * 1120 %1132< 1.07 C# N905 SM TIME,1,10 TR 394,394 BP N905 B7 BACK * 1200 C N904 SM TIME,1,10 TR 392,392 BP N904 B7 BACK * 1280 %1271< 0.70 B N903 SM TIME,1,10 TR 390,390 BP N903 B7 BACK * 1360 %1347< 1.05 A# N902 SM TIME,1,10 TR 388,388 BP N902 B7 BACK * 1440 %1427< 0.90 A N901 SM TIME,1,10 TR 386,386 BP N901 B7 BACK * 1520 %1512< 0.53 G# N900 SM TIME,1,10 TR 384,384 BP N900 B7 BACK * 1600 %1602< 0.13 G N811 SM TIME,1,10 TR 384,-*-6 BP N811 B7 BACK * 1680 %1697< F# N810 SM TIME,1,10 TR 382,-6-* BNF N810,TIME B7 BACK * 1800 %1798< F N809 SM TIME,1,10 TR 384,-*-6 NOP BNF N809,TIME B7 BACK * 1920 %1905< E N808 AM *&11 SM TIME,1,10 TR 388,388 BP N808 B7 BACK * 2040 %2018< D# N807 AM *&11 SM TIME,1,10 TR 385,385 BP N807 B7 BACK * 2120 %2138< 0.85 D N806 AM *&11 SM TIME,1,10 TR 383,383 BP N806 B7 BACK * 2280 %2265< 0.66 C# N805 AM *&11 SM TIME,1,10 TR 379,379 BP N805 B7 BACK * 2400 C N804 AM *&11 SM TIME,1,10 TR 376,376 BP N804 B7 BACK * 2560 %2543< 0.66 B N803 AM *&11 SM TIME,1,10 TR 376,376 NOP BP N803 B7 BACK * 2720 %2694< A# N802 AM ZERO&720/80 SM TIME,1,10 TF ZERO&1000/40,ZERO&1000/40 BP N802 B7 BACK * 2840 %2854< 0.49 A N801 AM ZERO&800/80 SM TIME,1,10 TF ZERO&1040/40,ZERO&1040/40 BP N801 B7 BACK * 3040 %3024< 0.53 G# N800 AM ZERO&880/80 SM TIME,1,10 TF ZERO&1160/40,ZERO&1164/40 BP N800 B7 BACK * 3200 %3204 OR 3200< G N711 AM ZERO&960/80 SM TIME,1,10 TF ZERO&1240/40,ZERO&1240/40 BP N711 B7 BACK * 3400 %3394< F# N710 AM ZERO&1120/80 SM TIME,1,10 TF ZERO&1280/40,ZERO&1280/40 BP N710 B7 BACK * 3600 %3596 OR 3600< F N709 AM ZERO&1280/80 SM TIME,1,10 TF ZERO&1320/40,ZERO&1320/40 BP N709 B7 BACK * 3840 %3810 OR 3840< E N708 AM ZERO&1440/80 SM TIME,1,10 TF ZERO&1400/40,ZERO&1400/40 BP N708 B7 BACK * 4040 %4037< D# N707 AM ZERO&1600/80 SM TIME,1,10 TF ZERO&1440/40,ZERO&1440/40 BP N707 B7 BACK * 4280 %4277 OR 4266< D N706 AM ZERO&1680/80 SM TIME,1,10 TF ZERO&1600/40,ZERO&1600/40 BP N706 B7 BACK * 4520 %4530< C# N705 AM ZERO&1760/80 SM TIME,1,10 TF ZERO&1680/40,-6-* BP N705 B7 BACK * 4800 C N704 AM ZERO&1840/80 SM TIME,1,10 TF ZERO&1880/40,-6-* BP N704 B7 BACK * 5080 %5086< B N703 AM ZERO&2000/80 SM TIME,1,10 TF ZERO&2000/40,-6-* BP N703 B7 BACK * 5400 %5388< A# N702 AM ZERO&2160/80 SM TIME,1,10 TF ZERO&2160/40,-6-* BP N702 B7 BACK * 5720 %5709< A N701 AM ZERO&2320/80 SM TIME,1,10 TF ZERO&2320/40,-6-* BP N701 B7 BACK * 6040 %6048< G# N700 AM ZERO&2480/80 SM TIME,1,10 TF ZERO&2480/40,-6-* BP N700 B7 BACK * 6400 %6408 OR 6400< G N611 AM ZERO&2640/80 SM TIME,1,10 TF ZERO&2680/40,-6-* BP N611 B7 BACK * 6800 %6788< F# N610 AM ZERO&2880/80 SM TIME,1,10 TF ZERO&2840/40,-6-* BP N610 B7 BACK * 7200 %7192 OR 7200< F N609 AM ZERO&3040/80 SM TIME,1,10 TF ZERO&3080/40,-6-* BP N609 B7 BACK * 7680 %7620 OR 7680< E N608 AM ZERO&3280/80 SM TIME,1,10 TF ZERO&3320/40,- 6-* BP N608 B7 BACK * 8080 %8074< D# N607 AM ZERO&3520/80 SM TIME,1,10 TF ZERO&3480/40,-6-* BP N607 B7 BACK * 8560 %8555 OR 8533< D N606 AM ZERO&3760/80 SM TIME,1,10 TF ZERO&3720/40,- 6-* BP N606 B7 BACK * 9040 %9061< C# N605 AM ZERO&4000/80 SM TIME,1,10 TF ZERO&3960/40,-6-* BP N605 B7 BACK * 9600 C N604 AM ZERO&4240/80 SM TIME,1,10 TF ZERO&4280/40,-6-* BP N604 B7 BACK * 10160 %10171< B N603 AM ZERO&4560/80 SM TIME,1,10 TF ZERO&4520/40,-6-* BP N603 B7 BACK * 10760 %10776< A# N602 AM ZERO&4800/80 SM TIME,1,10 TF ZERO&4880/40,-6-* BP N602 B7 BACK * 11400 %11417< A N601 AM ZERO&5120/80 SM TIME,1,10 TF ZERO&5200/40,-6-* BP N601 B7 BACK * 12080 %12096< G# N600 AM ZERO&5440/80 SM TIME,1,10 TF ZERO&5560/40,-6-* BP N600 B7 BACK * 12800 %12816 OR 12800< G N511 AM ZERO&5840/80 SM TIME,1,10 TF ZERO&5880/40,-6-* BP N511 B7 BACK * 13560 %13576< F# N510 AM ZERO&6240/80 SM TIME,1,10 TF ZERO&6240/40,-6-* BP N510 B7 BACK * 14400 %14384 OR 14400< F N509 AM ZERO&6640/80 SM TIME,1,10 TF ZERO&6680/40,-6-* BP N509 B7 BACK * 15360 %15241 OR 15360< E N508 AM ZERO&7120/80 SM TIME,1,10 TF ZERO&7160/40,-6-* BP N508 B7 BACK * 16160 %16147< D# N507 AM ZERO&7520/80 SM TIME,1,10 TF ZERO&7560/40,-6-* BP N507 B7 BACK * 17080 %17109 OR 17066< D N506 AM ZERO&8000/80 SM TIME,1,10 TF ZERO&8000/40,-6-* BP N506 B7 BACK * 18120 %18122< C# N505 AM ZERO&8560/80 SM TIME,1,10 TF ZERO&8480/40,-6-* BP N505 B7 BACK * 19200 C N504 AM ZERO&9120/80 SM TIME,1,10 TF ZERO&9000/40,-6-* BP N504 B7 BACK NOTE1 DS 6 GLONK DS ,TOP/100-NOTE1/100 RENDINGRES 3600080005003600157005003600234005003600311005003600000005?? ?00 JJ00135000?1260018300135490012401100135000?1450011200000210017100135220017100?01 18325002070000031000000000044002680013N150017J000001100135000?544002560013N36?02