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