Difference between revisions of "PROTRACKER372 PLTSFM2 H"
From MSX MUSIC WIKI
(Created page with "PLTSFM2 C��▄���╖Q ORG #8000 begin TSINI LD HL,tfmmuz;module JR TSINI1 TSPLAY ;CALL PLAY JP tfm TSINI1 ;LD A,%0010000...") (Tags: Mobile edit, Mobile web edit) |
(Tags: Mobile edit, Mobile web edit) |
||
| Line 1: | Line 1: | ||
| − | PLTSFM2 C��▄���╖Q ORG #8000 | + | PLTSFM2 C��▄���╖Q |
| − | begin | + | ORG #8000 |
| − | TSINI | + | begin |
| − | + | TSINI | |
| − | + | LD HL,tfmmuz;module | |
| − | TSPLAY | + | JR TSINI1 |
| − | + | TSPLAY | |
| − | + | ;CALL PLAY | |
| − | TSINI1 | + | JP tfm |
| − | + | TSINI1 | |
| − | + | ;LD A,%00100000 ;PT3 | |
| − | + | ;LD (SETUP),A | |
| − | + | ;CALL INIT | |
| − | + | ;LD HL,tfmmuz | |
| − | + | CALL tfmini | |
| − | ONtfm | + | JP tfm ;первый фрейм пуст |
| − | + | ONtfm | |
| − | module | + | ;INCLUDE "PTSPlay",#84 |
| − | + | module | |
| − | tfcinclude | + | ;INCBIN "tatita*.m" |
| − | + | tfcinclude | |
| − | tfmmuz | + | INCLUDE "pttfc*",#85 |
| − | + | tfmmuz | |
| − | end | + | INCBIN "dx*.t" |
| − | + | end | |
| − | + | DISPLAY "end=",$ | |
| − | GO | + | ORG #7000 |
| − | + | GO | |
| − | play_l EI | + | CALL TSINI |
| − | + | play_l EI | |
| − | + | HALT | |
| − | + | CALL TSPLAY | |
| − | + | LD A,#7F | |
| − | + | IN A,(-2) | |
| − | + | RRA | |
| − | + | JR C,play_l | |
| − | + | JP TSINI | |
| − | + | IFN 0 | |
| − | + | LD A,#FE ;AY #2(1) | |
| − | + | CALL SHUTFFFD | |
| − | SHUTFFFD | + | LD A,#FF ;AY #1(0) |
| − | + | SHUTFFFD | |
| − | + | LD BC,#FFFD | |
| − | + | OUT (C),A | |
| − | SHUT0 LD BC,-3 | + | LD DE,#E00 |
| − | + | SHUT0 LD BC,-3 | |
| − | + | DEC D | |
| − | + | OUT (C),D | |
| − | + | LD B,#BF | |
| − | + | OUT (C),E | |
| − | + | JNZ SHUT0 | |
| − | + | RET | |
| − | + | ENDIF | |
| − | ObjTab | + | |
| − | + | ObjTab | |
| − | + | DB "tatita2 C" | |
| − | + | DW begin | |
| − | + | DW end-begin | |
| − | + | DB #10 | |
| − | + | DW begin | |
| − | + | ||
| − | RA | + | INCLUDE "B:SAVEOBJ*",#80 |
| − | + | RA | |
| − | + | JR C,play_l | |
| + | JP T | ||
Latest revision as of 20:12, 8 March 2020
PLTSFM2 C��▄���╖Q
ORG #8000
begin
TSINI
LD HL,tfmmuz;module
JR TSINI1
TSPLAY
;CALL PLAY
JP tfm
TSINI1
;LD A,%00100000 ;PT3
;LD (SETUP),A
;CALL INIT
;LD HL,tfmmuz
CALL tfmini
JP tfm ;первый фрейм пуст
ONtfm
;INCLUDE "PTSPlay",#84
module
;INCBIN "tatita*.m"
tfcinclude
INCLUDE "pttfc*",#85
tfmmuz
INCBIN "dx*.t"
end
DISPLAY "end=",$
ORG #7000
GO
CALL TSINI
play_l EI
HALT
CALL TSPLAY
LD A,#7F
IN A,(-2)
RRA
JR C,play_l
JP TSINI
IFN 0
LD A,#FE ;AY #2(1)
CALL SHUTFFFD
LD A,#FF ;AY #1(0)
SHUTFFFD
LD BC,#FFFD
OUT (C),A
LD DE,#E00
SHUT0 LD BC,-3
DEC D
OUT (C),D
LD B,#BF
OUT (C),E
JNZ SHUT0
RET
ENDIF
ObjTab
DB "tatita2 C"
DW begin
DW end-begin
DB #10
DW begin
INCLUDE "B:SAVEOBJ*",#80
RA
JR C,play_l
JP T
