?login_element?

Subversion Repositories NedoOS

Rev

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