PROTRACKER372 PLTSFM2 H

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