Subversion Repositories NedoOS

Rev

Rev 662 | Rev 755 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1.        IF about
  2. mABOUT
  3.         DB 1,9,30,21,32
  4. tABOUT
  5.  ;DB "23may2007 dmitry.alonecoder@gmail.com (4912)751390(Dima)"
  6.  DB "CODE:Nick (4732)141962 | DESIGN:Mm<M (8462)941595(Serge)"
  7.  DB "            Golden Disk|Pro Tracker v3.72               "
  8.  DB "0???=No Effect <EFFECTS|KEYS> W=Edmuz,Ext=Edpat,Ent=Play"
  9.  DB "1(2)wii=Gliss Down/Up  | E=Env,F,"
  10.         IF bemol
  11.         DB "ssY=b/#,"
  12.         ELSE
  13.         DB "        "
  14.         ENDIF
  15.  DB "ssW=Ins,"
  16.         IF 0==(kL-15)
  17.         DB "cs0=Del"
  18.         ELSE
  19.         DB "ssQ=Del"
  20.         ENDIF
  21.  DB "3wii=Tone Portamento   | csU/I/Y/T;csE,csA,9;ssI,ssU,csL"
  22.  DB "4(5)?oo=Smp/Orn offset | "
  23.         IF 0==(kL-15)
  24.         DB "ssT>m,ssR<m;Ho,End,cs12;K,ssL,)"
  25.         ELSE
  26.         DB "ssE>m,ssR<m;Gr,ss9,cs12;K,[ss]L"
  27.         ENDIF
  28.  DB "6?YN=Vibrato           |MENU KEYS> Ext,Ent=EXIT, KL=Loop"
  29.  DB "9(A)wii=Env.Gliss Dn/Up| 0WERT+,A9FYUI=atnTNE, ssUI,cs34"
  30.  DB "B?tt=Tempo             |DISK MENU> 1-4=ABCD"
  31.         DB #A0
  32.        ENDIF
  33.  
  34.        IF set
  35. mSETUP
  36.         DB 8,6,#19,#13,#68
  37. tSETUP
  38.         DB 6,13,0,"SETUP"
  39.         DB 6,1,1,"Frequency table:"
  40.         DB 6,5,2,"Print points :"
  41.         DB 6,11,3,"Colours:"
  42.         DB 6,9,4,"Ink Pap."
  43.         DB 6,9,5,"Ink Pap."
  44.         DB 6,9,6,"Border :"
  45.        IF savset
  46.         DB 6,11,10,"Save SETUP"
  47.        ENDIF
  48.         DB 6,7,7,"Sound    :"
  49.         DB 6,7,8,"Play on  :"
  50.         DB 6,5,9,"Kempston joystick",#BA
  51. tPTST
  52.         DB "'ProTracker","'"+#80
  53.         DB "SoundTracke","r"+#80
  54.         DB "1.750000 Hz"," "+#80
  55.         DB "'Real Sound","'"+#80
  56. tALL
  57.         DB "ALL",#A0
  58. tNOTE
  59.         DB "NOT",#C5
  60.        IF savset
  61. TPTSETU
  62.         DB "PT 3.4 SETUP"
  63.        ENDIF
  64.        ENDIF
  65. mDISK
  66.         DB 5,8,#19,#17,#28
  67. tDISK
  68.         DB 6,#17,2,"Files:"
  69.         DB 6,2,2,"Reread Catalogue"
  70.         DB 6,#23,4,"Up"
  71.         DB 6,8,4,"Save"
  72.         DB 6,1,6,"File Name:"
  73.         DB 6,#22,11,"Down"
  74.         DB 6,4,8,"Save Pattern"
  75.         DB 6,4,10,"Save Sample"
  76.         DB 6,4,12,"Save Ornament",#A0
  77. tSZ
  78.         DB 6,#B,0,"Song Len=","#"+#80
  79. mCLEAR
  80.         DB 6,2,#10,#B,#28
  81. tCLEAR
  82.         DB "      CLEARS      "
  83.         DS 18," "
  84.         DB " Song ........... "
  85.         DB " Positions ...... "
  86.         DB " Pattern ........ "
  87.         DB " Sample ......... "
  88.         DB " Ornament ....... ",#A0
  89. mSURE
  90.         DB #D,#A,#15,#F,#16
  91. tSURE
  92.         DB "ARE YOU SURE ?"
  93.         DB 6,0,2,"YES   NO   AL",#CC
  94.        IF cmpilmnu
  95. mCOMPIL
  96.         DB 3,6,#E,#16,#28
  97. tCOMPIL
  98.         DB "ProTracker  Compiler"
  99.         DB 6,1,2,"Save compiled song "
  100.         DB "Include player:"
  101.         DB 6,0,4,"Start  address:#"
  102.         DB 6,5,6,"Parameters:"
  103.         DB 6,0,8,"Init address  :#"
  104.         DB 6,0,9,"Play address  :#"
  105.         DB 6,0,10,"Stop address  :#"
  106.         DB 6,0,11,"Data address  :#"
  107.         DB 6,0,#D,"Length"
  108.         DB 6,#E,#D,":",#A3
  109.        ENDIF
  110. mDISKER
  111.         DB #A,6,#15,#C,#14
  112. tDISKER
  113.         DB 6,5,0,"DISK ERROR"
  114.         DB 6,0,2,"Retry,Abort,Ignore ",#BF
  115. mEDORN
  116.        ;DB 0,1,#11,#17,7
  117.         DB 0,1,#11,#14,7
  118. tEDORN
  119.         DB "EDIT ORNAMENT 0"
  120. EDORNN  DB "1",#A0
  121. tORNo_s
  122.         DB "OCTAVE    SAMPLE  ",#A0
  123. ;tORNKEY
  124.        ;DB " ssUI,ssK,0WERT,Ins,cs0  ,CURSOR "
  125.        ;DB "   PRESS NOTE KEYS FOR PLA",#D9
  126. mEDSMP
  127.         DB SMPX,SMPY,#14+SMPX,2+SMPY+SMPH,7
  128. EDSMPN  DB "1",#A0
  129. tSMPKEY
  130.         DB "OCTAVE    ORNAMENT",#A0
  131. mPOS
  132.         DB 1,1,#A,#17,#28
  133. tPOS
  134.         DB " POSITIONS LIST"
  135.         DB 6,0,2," POSIT.   PAT",#D4
  136. ;=====================================
  137. T____
  138.         DB "---",#AD
  139. Tmemo
  140.         DB "mem",#EF
  141. FILEXTS
  142.         DB "m"
  143. filextS    DB "SM"
  144. filextF    DB "Fpso"
  145.        IF gs
  146.         DB "i"
  147.        ENDIF
  148. TSORRY
  149.         DB "    *** I'M SORRY ***   ",#A0
  150. TDISKER
  151.         DB "   DISK DRIVE ERROR !!! ",#A0
  152. TNOFILE
  153.         DB "        NO FILE !!      ",#A0
  154. TSEARCH
  155.         DB "PLEASE WAIT, SEARCHING !",#A1
  156. TLSMP
  157.         DB "LOADING  SAMPLE",#A0
  158. TSSMP
  159.         DB "SAVING SAMPLE",#A0
  160. TLORN
  161.         DB "LOADING  ORNAMENT",#A0
  162. TSORN
  163.         DB "SAVING ORNAMENT",#A0
  164. TLPAT
  165.         DB "LOADING PATTERN",#A0
  166. TSPAT
  167.         DB "SAVING  PATTERN",#A0
  168. DIVS
  169.         DB "1:",#B1
  170.         DB "3:",#B4
  171.         DB "1:",#B2
  172.         DB "1:",#B4
  173.         DB "3:",#B1
  174.         DB "5:",#B2
  175.         DB "2:",#B1
  176.         DB "3:",#B2
  177.        IF cmpilmnu
  178. tC0
  179.         DB "C0"
  180.        ENDIF
  181. tON
  182.         DB "ON",#A0
  183. tOFF
  184.         DB "OF",#C6
  185. TYES
  186.         DB "YE",#D3
  187. TNO
  188.         DB "NO",#A0
  189. mOK
  190.         DB #C,#A,#16,#D,#18
  191. TCOMPLE
  192.         DB "OPERATION COMPLET",#C5
  193.        IF opcompl
  194. TERROR
  195.         DB "ERROR IN OPERATIO",#CE
  196.        ENDIF
  197. tSS
  198.         DB "('&%$#@!_"
  199. TNOTEKY
  200.         ;DB "F"
  201.         db 'f'
  202.         ;DB ".-,^*",203,"/?",205,"`",195,":"
  203.         db ".-,^*",ssG,"/?",ssD,"`",ssA,":"
  204.         ;DB "MJNHBGVCDXSZ",kL
  205.         db "mjnhbgvcdxsz",kL
  206.        
  207. TNOTEKE
  208. TDEFORN
  209.         DB 7,12,16
  210.         DB 4,7,12
  211.         DB 0,4,7
  212.         DB 7,12,15
  213.         DB 3,7,12
  214.         DB 0,3,7
  215.        IF tab
  216. TJP
  217.         DB 4,4,4,5,6,6
  218.         DB 11,16,17,18,19,15,21,22,23
  219.         DB 20,25,26,27,28,24,30,31,32
  220.         DB 29,25,26,27,28,2,12,13,14
  221. TJPLEFT
  222.         DB 29,29,29,29,2,3
  223.         DB 4,0,1,2,3,6,30,31,32
  224.         DB 11,7,8,9,10,15,12,13,14
  225.         DB 20,16,17,18,19,24,21,22,23
  226.        ENDIF
  227. ;=====================================
  228.        ;DS -$&3
  229.         ;DS .(-$)
  230.         align 256
  231. ayblock
  232. ENV
  233.         DW 0 ;почему здесь?
  234. Achan
  235.         DB -1
  236. Aorn    DW ORNS
  237.         DB 1,0,0
  238.         DW SMPS
  239.         DB 1,0,0,0
  240. Avol2   DB #F0
  241. Avol    DB #F
  242. Acom    DS 5
  243. Adfrq   DS 10
  244. Bchan
  245.         DB -1
  246. Born    DW ORNS
  247.         DB 1,0,0
  248.         DW SMPS
  249.         DB 1,0,0,0
  250. Bvol2   DEFB #F0
  251. Bvol    DEFB #F
  252. Bcom    DS 5
  253. Bdfrq   DS 10
  254. Cchan
  255.         DB -1
  256. Corn    DW ORNS
  257.         DB 1,0,0
  258.         DW SMPS
  259.         DB 1,0,0,0
  260. Cvol2   DEFB #F0
  261. Cvol    DEFB #F
  262. Ccom    DS 5
  263. Cdfrq   DS 10
  264.  
  265. frqA
  266.         DW 0
  267. frqB    DW 0
  268. frqC    DW 0
  269. nois    NOP
  270. mix     NOP
  271. volA    NOP
  272. volB    NOP
  273. volC    NOP
  274. frqE    DW 0
  275. env     DW 0
  276.  
  277. pianRG  DS 12
  278. pianE   NOP
  279.  
  280. piaSMP  DW 0
  281. piaORN  DW 0
  282.         NOP ;NU,но нужно!
  283. piSLIN  NOP
  284. piSEND  NOP
  285. piOLIN  NOP
  286. piOEND  NOP
  287. piSLOOP NOP
  288. piOLOOP NOP
  289.  
  290. piCURv  DB 0;#18VOL
  291.         DW 0;#19dFRQ
  292.         DB 0;#1BNOISE
  293.         DB 0;#1CENV
  294.  
  295. usedisp DW 0
  296. BASENV  DW 0
  297. Edfrq   DB 0
  298. Efrq    DW 0
  299. EstCNT  DB 0
  300. Estep   DW 0
  301. EiniCNT DB 0
  302. NOTENV  DB 0 ;или не в ayblock?
  303. DNOIS   DB 0
  304.         DS -$&3
  305. szayblock=$-ayblock
  306. szayblock4=szayblock/4
  307.         DS ayblock+256-$
  308. ayblock2
  309.         DS szayblock
  310. ;=====================================
  311.        IF set
  312.         DB 10+savset
  313. SETUCOO
  314.         DW #4048,#4888
  315.         DW #4858,#5090
  316.         DW #5868,#6078
  317.         DW #5878,#6088
  318.         DW #6068,#6878
  319.         DW #6078,#6888
  320.         DW #6868,#7088
  321.         DW #7060,#7888
  322.         DW #7860,#8088
  323.        IF savset
  324.         DW #8870,#9098
  325.        ENDIF
  326.         DW #8058,#88A0
  327.        ENDIF
  328.  
  329.         DB 5
  330. CLEACOO
  331.         DW #2838,#3078
  332.         DW #3038,#3878
  333.         DW #3838,#4078
  334.         DW #4038,#4878
  335.         DW #4838,#5078
  336.  
  337. DSKopts DB 8
  338. DISKCOO
  339.         DW #5830,#6078
  340.         DW #6830,#7078
  341.         DW #7830,#8078
  342.         DW #68B0,#70C8
  343.         DW #A0B0,#A8C8
  344.         DW #8830,#9078
  345.         DW #9830,#A078
  346.         DW #A830,#B078
  347.         DW #6880,#70A8
  348.         DW #7080,#78A8
  349.         DW #7880,#80A8
  350.         DW #8080,#88A8
  351.         DW #8880,#90A8
  352.         DW #9080,#98A8
  353.         DW #9880,#A0A8
  354.         DW #A080,#A8A8
  355.  
  356.         DB 3
  357. SURECOO
  358.         DW #6868,#7078
  359.         DW #6880,#7090
  360.         DW #6898,#70A8
  361.  
  362. MENUCOO
  363.         DW #0038,#0840
  364.         DW #0040,#0848
  365.         DW #0838,#1040
  366.         DW #0840,#1048
  367.         DW #1038,#1840
  368.         DW #1040,#1848
  369.         DW #1838,#2040
  370.         DW #1840,#2048
  371.         DW #2038,#2840
  372.         DW #2040,#2848
  373.         DW #2838,#3040
  374.         DW #2840,#3048
  375.         ;DW #4038,#4840
  376.         ;DW #4040,#4848
  377.         DW #3038,#3840
  378.         DW #3040,#3848
  379.         DW #3838,#4040
  380.         DW #3840,#4048
  381.         DW #5000,#5828
  382.         ;DW #4838,#5040
  383.         ;DW #4840,#5048
  384.         DW #5800,#6028
  385.         DW #5838,#6048
  386.         DW #5038,#5848
  387.         DW #0048,#0888
  388.         DW #0850,#1080
  389.         DW #3848,#4088
  390.         DW #3000,#3830
  391.         DW #6000,#6818
  392.         DW #6800,#6F18
  393.         DW #3098,#38B8;SMP
  394.         DW #30C0,#38C8
  395.         DW #30C8,#38D0
  396.         DW #30E8,#38F0
  397.         DW #30F0,#38F8
  398.         DW #30D0,#38E0
  399.         DW #3898,#40B8;ORN
  400.         DW #38C0,#40C8
  401.         DW #38C8,#40D0
  402.         DW #38E8,#40F0
  403.         DW #38F0,#40F8
  404.         DW #38D0,#40E0
  405.         DW #3050,#3880
  406.          DW #5858,#5F70;SWPSONG
  407.          DW #6898,#6FB8;TRNSVOL
  408.         DW #68B8,#6FD0;TRNSTONE
  409.         DW #68E8,#6FF0
  410.         DW #68F0,#6FF8
  411.         DW #50D0,#58E0
  412.         DW #48C0,#50C8
  413.         DW #48C8,#50D0
  414.         DW #48E8,#50F0
  415.         DW #48F0,#50F8
  416.         DW #50C0,#58C8
  417.         DW #50C8,#58D0
  418.         DW #50E8,#58F0
  419.         DW #50F0,#58F8
  420.         DW #58C0,#60C8
  421.         DW #58C8,#60D0
  422.         DW #60C0,#68C8
  423.         DW #60C8,#68D0
  424.         DW #60D8,#68F8
  425.         DW #2048,#2888
  426.         DW #2848,#3088
  427.         DW #1050,#1880
  428.         DW #1850,#2080
  429.         DW #58E8,#60F0;+B2
  430.         DW #58F0,#60F8
  431.         DW #4050,#4880
  432.         DW #3800,#4030
  433.         DW #0800,#1028
  434.          DW #5098,#58B8
  435.        DW #5898,#60B8
  436.        DW #6098,#68B8
  437.       DW #48D0,#4FE0
  438.       DW #68D8,#6FE8
  439.  
  440.        IF cmpilmnu
  441.         DB 3
  442. COMPCOO
  443.         DW #4820,#5068
  444.         DW #5018,#5858
  445.         DW #5818,#6058
  446.        ENDIF
  447. ;=====================================
  448.        IF set
  449. SETUUSE
  450.         DW suFRQ
  451.         DW suPOI
  452.         DW suINK1
  453.         DW suPAP1
  454.         DW suINK2
  455.         DW suPAP2
  456.         DW suBORD
  457.         DW suSND
  458.         DW suPLAY
  459.        IF savset
  460.         DW suSAVE
  461.        ENDIF
  462.         DW suKJ
  463.        ENDIF
  464. CLEAUSE
  465.         DEFW clSONG
  466.         DEFW clPOS
  467.         DEFW clPAT
  468.         DEFW clSMP
  469.         DEFW clORN
  470. DISKUSE
  471.         DW READCAT
  472.         DW SAVE
  473.         DW EDFILE
  474.         DW CATUP
  475.         DW CATDN
  476.         DW SAVPAT
  477.         DW SAVSMP
  478.         DW SAVORN
  479.         DW LOAD
  480.         DW LOAD
  481.         DW LOAD
  482.         DW LOAD
  483.         DW LOAD
  484.         DW LOAD
  485.         DW LOAD
  486.         DW LOAD
  487. SUREUSE
  488.         DW YES,YES,YES
  489. MENUUSE
  490.         DEFW INCTMP
  491.         DEFW DECTMP
  492.         DEFW INCPOS
  493.         DEFW DECPOS
  494.         DEFW INCPAT
  495.         DEFW DECPAT
  496.         DEFW INCLENG
  497.         DEFW DECLENG
  498.         DEFW INCLOOP
  499.         DEFW DECLOOP
  500.         DEFW INCVOL
  501.         DEFW DECVOL
  502.         ;DEFW INCOCT
  503.         ;DEFW DECOCT
  504.         DEFW INCEPAT
  505.         DEFW DECEPAT
  506.         DEFW INCPATL
  507.         DEFW DECPATL
  508.         DEFW AUTOON
  509.         ;DEFW INCROLL
  510.         ;DEFW DECROLL
  511.         DEFW ENVON
  512. DIVNO=($-MENUUSE)/2
  513.         DEFW NXTDIV
  514.         DEFW AUTOS
  515.         DEFW DISKS
  516.         DEFW CLEARS
  517.         DEFW EDSONG
  518.         DEFW EDPAT
  519.         DEFW TITLES
  520.         DEFW BYS
  521.         DEFW EDSMP
  522.         DEFW INCSMP
  523.         DEFW DECSMP
  524.         DEFW INCSMP2
  525.         DEFW DECSMP2
  526.         DEFW COPYSMP
  527.         DEFW EDORN
  528.         DEFW INCORN
  529.         DEFW DECORN
  530.         DEFW INCORN2
  531.         DEFW DECORN2
  532.         DEFW COPYORN
  533.        IF about
  534.         DEFW ABOUT
  535.        ELSE
  536.         DW ret
  537.        ENDIF
  538.          DEFW ONOFFTS
  539.          DEFW TRANVOL ;vol
  540.         DEFW TRANSP ;tone
  541.         DEFW INCTRA
  542.         DEFW DECTRA
  543.         DEFW COPY
  544.         DEFW INCPAT1
  545.         DEFW DECPAT1
  546.         DEFW INCPAT2
  547.         DEFW DECPAT2
  548.         DEFW INCCHN
  549.         DEFW DECCHN
  550.         DEFW INCCHN2
  551.         DEFW DECCHN2
  552.         DEFW INCBEG1
  553.         DEFW DECBEG1
  554.         DEFW INCEND
  555.         DEFW DECEND
  556.         DEFW EXCHANG
  557.         DEFW PLSONG
  558.         DEFW PLPAT
  559.         DEFW COMPILS
  560.         DEFW DECOMS
  561.         DEFW INCBEG2
  562.         DEFW DECBEG2
  563.        IF set
  564.         DEFW SETUP
  565.        ELSE
  566.         DW ret
  567.        ENDIF
  568.         DEFW PATLENS
  569.         DEFW POSEDIT
  570.          DW ALLCHAN
  571.         DW BEGcur
  572.         DW ENDcur
  573.        DW HOMEcop
  574.        DW HOMEtra
  575. mains=($-MENUUSE)/2
  576.        IF cmpilmnu
  577. COMPUSE
  578.         DW COMSAVE
  579.         DW PLYRyn
  580.         DW EcomADR
  581.        ENDIF
  582.