Difference between revisions of "PROTRACKER372 PTMSG H"

Latest revision as of 21:43, 8 March 2020

ptmsg???C��п-�.Ю9

MAIN "",#C6
;=====================================
       IFN about
mABOUT
        DB 1,9,30,21,32
tABOUT
DB "23may2007 dmitry.alonecoder@gmail.com (4912)751390(Dima)"
DB "CODE:Nick (4732)141962 | DESIGN:Mm<M (8462)941595(Serge)"
DB "            Golden Disk|Pro Tracker v3.72               "
DB "0???=No Effect <EFFECTS|KEYS> W=Edmuz,Ext=Edpat,Ent=Play"
DB "1(2)wii=Gliss Down/Up  | E=Env,F,"
        IFN bemol
        DB "ssY=b/#,"
        ELSE 
        DB "        "
        ENDIF 
DB "ssW=Ins,"
        IF0 kL-15
        DB "cs0=Del
        ELSE 
        DB "ssQ=Del
        ENDIF 
DB "3wii=Tone Portamento   | csU/I/Y/T;csE,csA,9;ssI,ssU,csL"
DB "4(5)?oo=Smp/Orn offset | "
        IF0 kL-15
        DB "ssT>m,ssR<m;Ho,End,cs12;K,ssL,)"
        ELSE 
        DB "ssE>m,ssR<m;Gr,ss9,cs12;K,[ss]L"
        ENDIF 
DB "6?YN=Vibrato           |MENU KEYS> Ext,Ent=EXIT, KL=Loop"
DB "9(A)wii=Env.Gliss Dn/Up| 0WERT+,A9FYUI=atnTNE, ssUI,cs34"
DB "B?tt=Tempo             |DISK MENU> 1-4=ABCD"
        DB #A0
       ENDIF 

       IFN set
mSETUP
        DB 8,6,#19,#13,#68
tSETUP
        DB 6,13,0,"SETUP"
        DB 6,1,1,"Frequency table:"
        DB 6,5,2,"Print points :"
        DB 6,11,3,"Colours:"
        DB 6,9,4,"Ink Pap."
        DB 6,9,5,"Ink Pap."
        DB 6,9,6,"Border :"
       IFN savset
        DB 6,11,10,"Save SETUP"
       ENDIF 
        DB 6,7,7,"Sound    :"
        DB 6,7,8,"Play on  :"
        DB 6,5,9,"Kempston joystick",#BA
tPTST
        DB "'ProTracker","'"+#80
        DB "SoundTracke","r"+#80
        DB "1.750000 Hz"," "+#80
        DB "'Real Sound","'"+#80
tALL
        DB "ALL",#A0
tNOTE
        DB "NOT",#C5
       IFN savset
TPTSETU
        DB "PT 3.4 SETUP
       ENDIF 
       ENDIF 
mDISK
        DB 5,8,#19,#17,#28
tDISK
        DB 6,#17,2,"Files:"
        DB 6,2,2,"Reread Catalogue"
        DB 6,#23,4,"Up"
        DB 6,8,4,"Save"
        DB 6,1,6,"File Name:"
        DB 6,#22,11,"Down"
        DB 6,4,8,"Save Pattern"
        DB 6,4,10,"Save Sample"
        DB 6,4,12,"Save Ornament",#A0
tSZ
        DB 6,#B,0,"Song Len=","#"+#80
mCLEAR
        DB 6,2,#10,#B,#28
tCLEAR
        DB "      CLEARS      "
        DS 18," "
        DB " Song ........... "
        DB " Positions ...... "
        DB " Pattern ........ "
        DB " Sample ......... "
        DB " Ornament ....... ",#A0
mSURE
        DB #D,#A,#15,#F,#16
tSURE
        DB "ARE YOU SURE ?"
        DB 6,0,2,"YES   NO   AL",#CC
       IFN cmpilmnu
mCOMPIL
        DB 3,6,#E,#16,#28
tCOMPIL
        DB "ProTracker  Compiler"
        DB 6,1,2,"Save compiled song "
        DB "Include player:"
        DB 6,0,4,"Start  address:#"
        DB 6,5,6,"Parameters:"
        DB 6,0,8,"Init address  :#"
        DB 6,0,9,"Play address  :#"
        DB 6,0,10,"Stop address  :#"
        DB 6,0,11,"Data address  :#"
        DB 6,0,#D,"Length"
        DB 6,#E,#D,":",#A3
       ENDIF 
mDISKER
        DB #A,6,#15,#C,#14
tDISKER
        DB 6,5,0,"DISK ERROR"
        DB 6,0,2,"Retry,Abort,Ignore ",#BF
mEDORN
       ;DB 0,1,#11,#17,7
        DB 0,1,#11,#14,7
tEDORN
        DB "EDIT ORNAMENT 0"
EDORNN  DB "1",#A0
tORNo_s
        DB "OCTAVE    SAMPLE  ",#A0
;tORNKEY
       ;DB " ssUI,ssK,0WERT,Ins,cs0  ,CURSOR "
       ;DB "   PRESS NOTE KEYS FOR PLA",#D9
mEDSMP
        DB SMPX,SMPY,#14+SMPX,2+SMPY+SMPH,7
EDSMPN  DB "1",#A0
tSMPKEY
        DB "OCTAVE    ORNAMENT",#A0
mPOS
        DB 1,1,#A,#17,#28
tPOS
        DB " POSITIONS LIST"
        DB 6,0,2," POSIT.   PAT",#D4
;=====================================
T____
        DB "---",#AD
Tmemo
        DB "mem",#EF
FILEXTS
        DB "m"
extS    DB "SM"
extF    DB "Fpso"
TSORRY
        DB "    *** I'M SORRY ***   ",#A0
TDISKER
        DB "   DISK DRIVE ERROR !!! ",#A0
TNOFILE
        DB "        NO FILE !!      ",#A0
TSEARCH
        DB "PLEASE WAIT, SEARCHING !",#A1
TLSMP
        DB "LOADING  SAMPLE",#A0
TSSMP
        DB "SAVING SAMPLE",#A0
TLORN
        DB "LOADING  ORNAMENT",#A0
TSORN
        DB "SAVING ORNAMENT",#A0
TLPAT
        DB "LOADING PATTERN",#A0
TSPAT
        DB "SAVING  PATTERN",#A0
DIVS
        DB "1:",#B1
        DB "3:",#B4
        DB "1:",#B2
        DB "1:",#B4
        DB "3:",#B1
        DB "5:",#B2
        DB "2:",#B1
        DB "3:",#B2
       IFN cmpilmnu
tC0
        DB "C0
       ENDIF 
tON
        DB "ON",#A0
tOFF
        DB "OF",#C6
TYES
        DB "YE",#D3
TNO
        DB "NO",#A0
mOK
        DB #C,#A,#16,#D,#18
TCOMPLE
        DB "OPERATION COMPLET",#C5
       IFN opcompl
TERROR
        DB "ERROR IN OPERATIO",#CE
       ENDIF 
tSS
        DB "('&%$#@!_"
TNOTEKY
        DB "F
        DB ".-,^*",203,"/?",205,"`",195,":
        DB "MJNHBGVCDXSZ",kL
TNOTEKE
TDEFORN
        DB 7,12,16
        DB 4,7,12
        DB 0,4,7
        DB 7,12,15
        DB 3,7,12
        DB 0,3,7
       IFN tab
TJP
        DB 4,4,4,5,6,6
        DB 11,16,17,18,19,15,21,22,23
        DB 20,25,26,27,28,24,30,31,32
        DB 29,25,26,27,28,2,12,13,14
TJPLEFT
        DB 29,29,29,29,2,3
        DB 4,0,1,2,3,6,30,31,32
        DB 11,7,8,9,10,15,12,13,14
        DB 20,16,17,18,19,24,21,22,23
       ENDIF 
;=====================================
       ;DS -$&3
        DS .(-$)
ayblock
ENV
        DW 0 ;почему здесь?
Achan
        DB -1
Aorn    DW ORNS
        DB 1,0,0
        DW SMPS
        DB 1,0,0,0
Avol2   DB #F0
Avol    DB #F
Acom    DS 5
Adfrq   DS 10
Bchan
        DB -1
Born    DW ORNS
        DB 1,0,0
        DW SMPS
        DB 1,0,0,0
Bvol2   DEFB #F0
Bvol    DEFB #F
Bcom    DS 5
Bdfrq   DS 10
Cchan
        DB -1
Corn    DW ORNS
        DB 1,0,0
        DW SMPS
        DB 1,0,0,0
Cvol2   DEFB #F0
Cvol    DEFB #F
Ccom    DS 5
Cdfrq   DS 10

frqA
        DW 0
frqB    DW 0
frqC    DW 0
nois    NOP 
mix     NOP 
volA    NOP 
volB    NOP 
volC    NOP 
frqE    DW 0
env     DW 0

pianRG  DS 12
pianE   NOP 

piaSMP  DW 0
piaORN  DW 0
        NOP ;NU,но нужно!
piSLIN  NOP 
piSEND  NOP 
piOLIN  NOP 
piOEND  NOP 
piSLOOP NOP 
piOLOOP NOP 

piCURv  DB 0;#18VOL
        DW 0;#19dFRQ
        DB 0;#1BNOISE
        DB 0;#1CENV

usedisp DW 0
BASENV  DW 0
Edfrq   DB 0
Efrq    DW 0
EstCNT  DB 0
Estep   DW 0
EiniCNT DB 0
NOTENV  DB 0 ;или не в ayblock?
DNOIS   DB 0
        DS -$&3
szayblock=$-ayblock
szayblock4=szayblock/4
        DS ayblock+256-$
ayblock2
        DS szayblock
;=====================================
       IFN set
        DB 10+savset
SETUCOO
        DW #4048,#4888
        DW #4858,#5090
        DW #5868,#6078
        DW #5878,#6088
        DW #6068,#6878
        DW #6078,#6888
        DW #6868,#7088
        DW #7060,#7888
        DW #7860,#8088
       IFN savset
        DW #8870,#9098
       ENDIF 
        DW #8058,#88A0
       ENDIF 

        DB 5
CLEACOO
        DW #2838,#3078
        DW #3038,#3878
        DW #3838,#4078
        DW #4038,#4878
        DW #4838,#5078

DSKopts DB 8
DISKCOO
        DW #5830,#6078
        DW #6830,#7078
        DW #7830,#8078
        DW #68B0,#70C8
        DW #A0B0,#A8C8
        DW #8830,#9078
        DW #9830,#A078
        DW #A830,#B078
        DW #6880,#70A8
        DW #7080,#78A8
        DW #7880,#80A8
        DW #8080,#88A8
        DW #8880,#90A8
        DW #9080,#98A8
        DW #9880,#A0A8
        DW #A080,#A8A8

        DB 3
SURECOO
        DW #6868,#7078
        DW #6880,#7090
        DW #6898,#70A8

MENUCOO
        DW #0038,#0840
        DW #0040,#0848
        DW #0838,#1040
        DW #0840,#1048
        DW #1038,#1840
        DW #1040,#1848
        DW #1838,#2040
        DW #1840,#2048
        DW #2038,#2840
        DW #2040,#2848
        DW #2838,#3040
        DW #2840,#3048
        ;DW #4038,#4840
        ;DW #4040,#4848
        DW #3038,#3840
        DW #3040,#3848
        DW #3838,#4040
        DW #3840,#4048
        DW #5000,#5828
        ;DW #4838,#5040
        ;DW #4840,#5048
        DW #5800,#6028
        DW #5838,#6048
        DW #5038,#5848
        DW #0048,#0888
        DW #0850,#1080
        DW #3848,#4088
        DW #3000,#3830
        DW #6000,#6818
        DW #6800,#6F18
        DW #3098,#38B8;SMP
        DW #30C0,#38C8
        DW #30C8,#38D0
        DW #30E8,#38F0
        DW #30F0,#38F8
        DW #30D0,#38E0
        DW #3898,#40B8;ORN
        DW #38C0,#40C8
        DW #38C8,#40D0
        DW #38E8,#40F0
        DW #38F0,#40F8
        DW #38D0,#40E0
        DW #3050,#3880
         DW #5858,#5F70;SWPSONG
         DW #6898,#6FB8;TRNSVOL
        DW #68B8,#6FD0;TRNSTONE
        DW #68E8,#6FF0
        DW #68F0,#6FF8
        DW #50D0,#58E0
        DW #48C0,#50C8
        DW #48C8,#50D0
        DW #48E8,#50F0
        DW #48F0,#50F8
        DW #50C0,#58C8
        DW #50C8,#58D0
        DW #50E8,#58F0
        DW #50F0,#58F8
        DW #58C0,#60C8
        DW #58C8,#60D0
        DW #60C0,#68C8
        DW #60C8,#68D0
        DW #60D8,#68F8
        DW #2048,#2888
        DW #2848,#3088
        DW #1050,#1880
        DW #1850,#2080
        DW #58E8,#60F0;+B2
        DW #58F0,#60F8
        DW #4050,#4880
        DW #3800,#4030
        DW #0800,#1028
         DW #5098,#58B8
       DW #5898,#60B8
       DW #6098,#68B8
      DW #48D0,#4FE0
      DW #68D8,#6FE8

       IFN cmpilmnu
        DB 3
COMPCOO
        DW #4820,#5068
        DW #5018,#5858
        DW #5818,#6058
       ENDIF 
;=====================================
       IFN set
SETUUSE
        DW suFRQ
        DW suPOI
        DW suINK1
        DW suPAP1
        DW suINK2
        DW suPAP2
        DW suBORD
        DW suSND
        DW suPLAY
       IFN savset
        DW suSAVE
       ENDIF 
        DW suKJ
       ENDIF 
CLEAUSE
        DEFW clSONG
        DEFW clPOS
        DEFW clPAT
        DEFW clSMP
        DEFW clORN
DISKUSE
        DW READCAT
        DW SAVE
        DW EDFILE
        DW CATUP
        DW CATDN
        DW SAVPAT
        DW SAVSMP
        DW SAVORN
        DW LOAD
        DW LOAD
        DW LOAD
        DW LOAD
        DW LOAD
        DW LOAD
        DW LOAD
        DW LOAD
SUREUSE
        DW YES,YES,YES
MENUUSE
        DEFW INCTMP
        DEFW DECTMP
        DEFW INCPOS
        DEFW DECPOS
        DEFW INCPAT
        DEFW DECPAT
        DEFW INCLENG
        DEFW DECLENG
        DEFW INCLOOP
        DEFW DECLOOP
        DEFW INCVOL
        DEFW DECVOL
        ;DEFW INCOCT
        ;DEFW DECOCT
        DEFW INCEPAT
        DEFW DECEPAT
        DEFW INCPATL
        DEFW DECPATL
        DEFW AUTOON
        ;DEFW INCROLL
        ;DEFW DECROLL
        DEFW ENVON
DIVNO=$-MENUUSE/2
        DEFW NXTDIV
        DEFW AUTOS
        DEFW DISKS
        DEFW CLEARS
        DEFW EDSONG
        DEFW EDPAT
        DEFW TITLES
        DEFW BYS
        DEFW EDSMP
        DEFW INCSMP
        DEFW DECSMP
        DEFW INCSMP2
        DEFW DECSMP2
        DEFW COPYSMP
        DEFW EDORN
        DEFW INCORN
        DEFW DECORN
        DEFW INCORN2
        DEFW DECORN2
        DEFW COPYORN
       IFN about
        DEFW ABOUT
       ELSE 
        DW ret
       ENDIF 
         DEFW ONOFFTS
         DEFW TRANVOL ;vol
        DEFW TRANSP ;tone
        DEFW INCTRA
        DEFW DECTRA
        DEFW COPY
        DEFW INCPAT1
        DEFW DECPAT1
        DEFW INCPAT2
        DEFW DECPAT2
        DEFW INCCHN
        DEFW DECCHN
        DEFW INCCHN2
        DEFW DECCHN2
        DEFW INCBEG1
        DEFW DECBEG1
        DEFW INCEND
        DEFW DECEND
        DEFW EXCHANG
        DEFW PLSONG
        DEFW PLPAT
        DEFW COMPILS
        DEFW DECOMS
        DEFW INCBEG2
        DEFW DECBEG2
       IFN set
        DEFW SETUP
       ELSE 
        DW ret
       ENDIF 
        DEFW PATLENS
        DEFW POSEDIT
         DW ALLCHAN
        DW BEGcur
        DW ENDcur
       DW HOMEcop
       DW HOMEtra
mains=$-MENUUSE/2
       IFN cmpilmnu
COMPUSE
        DW COMSAVE
        DW PLYRyn
        DW EcomADR
       ENDIF 


W #58C0,#60C8
        DW #58C8,#60D0
        DW #60C0,#68C8
        DW #60C8,#68D