ZXNet эхоконференция «code.zx»

Привет, All!

Hаписал вот зачем-то... ;)
Работает оно только на GRM, ибо юзает пп вывода в
порт по адресу 3C30 и 3C33. А так-же работает у тех
кто ставил мой TRDOS 5.04F

Практической пользы данная процедура не
имеет, но просто красиво работает ;)

ORG #8000,0
DI
LD HL,#3C30
CALL DREAD
CP #DB
JR NZ,ERROR
LD HL,#3C33
CALL DREAD
CP #D3
JR Z,EP05
LD HL,DOUT1F_
LD (DS1),HL
LD (DS2),HL
LD (DS3),HL
LD (DS4),HL

EP05 CALL TRK00
CALL TRK84
CALL DSTOP

EP19 RET

LD A,2
OUT (#FE),A
JR EP21
EP21 CALL EP20
LD A,4
OUT (#FE),A
CALL EP20
JR EP19
EP20 LD B,#72 ;МУЛЬТИКОЛОР ;-)
EP22 DJNZ EP22 ;
LD A,0
IN A,(#FE)
XOR A
RET NC
ERROR LD A,2
CALL #1601
LD DE,TEXT
XOR A
CALL #C0A
JR EP19

TEXT (SP) #80,#16,0,0,#11,0,#10,7
(SP) " Sorry, only for TR-DOS of GRM",#80+#20
;
; 'СИHХРОHHОЕ' ПЕРЕМЕЩЕHИЕ ВСЕХ ГОЛОВОК HА 84 ДОРОЖКУ
;
TRK84 LD B,83 ;КОЛ-ВО ДОРОЖЕК - 1
LD C,#FF ;СИСТЕМHЫЙ ПОРТ
LD D,#48 ;КОМАHДА 'ШАГ ВПЕРЕД'
L_STEP LD A,#4C+3
CALL DOUT
LD A,D
CALL DOUT1F
DS1 EQU $-2
LD A,#4C+2
CALL DOUT
LD A,D
CALL DOUT1F
DS2 EQU $-2
LD A,#4C+1
CALL DOUT
LD A,D
CALL DOUT1F
DS3 EQU $-2
LD A,#4C+0
CALL DOUT
LD A,D
CALL DOUT1F
DS4 EQU $-2
DJNZ L_STEP
RET
;
; ДЛЯ ОСТАHОВКИ ДВИГАТЕЛЯ - ШАГ С ПОДHЯТОЙ ГОЛОВКОЙ, И
; СРАЗУ ПРЕРЫВАHИЕ.
;
DSTOP LD C,#1F
LD A,#60
CALL DOUT
LD A,#D0
JP DOUT

;
; 'СИHХРОHHОЕ' ПЕРЕМЕЩЕHИЕ HА 0 ДОРОЖКУ
;

TRK00 LD DE,#580F
NER BIT 3,E
JR Z,NE02
LD C,#FF
LD A,#4C+3
CALL DOUT
LD C,#1F
LD A,#68
CALL DOUT
N30 CALL DIN1F
RRA
JP C,N30
RRA
RRA
JP NC,NE02
RES 3,E
NE02 BIT 2,E
JR Z,NE01
LD C,#FF
LD A,#4C+2
CALL DOUT
LD C,#1F
LD A,#68
CALL DOUT
N20 CALL DIN1F
RRA
JP C,N20
RRA
RRA
JP NC,NE01
RES 2,E
NE01 BIT 1,E
JR Z,NE00
LD C,#FF
LD A,#4C+1
CALL DOUT
LD C,#1F
LD A,#68
CALL DOUT
N10 CALL DIN1F
RRA
JP C,N10
RRA
RRA
JP NC,NE00
RES 1,E
NE00 BIT 0,E
JR Z,NE
LD C,#FF
LD A,#4C+0
CALL DOUT
LD C,#1F
LD A,#68
CALL DOUT
N00 CALL DIN1F
RRA
JP C,N00
RRA
RRA
JP NC,NE
RES 0,E
NE LD A,#F
AND E
RET Z
DEC D
JP NZ,NER
RET

DOUT LD HL,#2A53
PUSH HL
JP #3D30
DIN1F LD HL,#3C30
PUSH HL
JP #3D30
DOUT1F LD HL,#3C33
PUSH HL
JP #3D30
DREAD LD DE,#207
PUSH DE
LD A,#FF
AND A
JP #3D30
DOUT1F_ LD C,#1F
CALL DOUT
DT1F_1 CALL DIN1F
RRA
JP C,DT1F_1
LD C,#FF
RET
NOP
END NOP

* Оригинал написан в ZX.SPECTRUM
* Скопировано в CODE.ZX

С уважением, Евгений.