1,345
edits
Changes
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..."
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
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