PROTRACKER372 PTMSG H
From MSX MUSIC WIKI
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
