1,345
edits
Changes
no edit summary
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