WCUT ASM
;TESTPROGRAMM SCHNITT ZWEIER FENSTER
;PE: HL,DE: KC-Fensterkoordinaten 1
; IY: Zeiger auf Fenster 2
;PA: HL,DE: Schnitt-Fenster
; CY=1, wenn Fenster disjunkt
;VR: AF,HL,DE
;Anm: Besser fuer KC-Vision waere die
;Verwendung eines TRECT-Gebildes ohne
;FensterLAENGE. Stattdessen FensterENDE
OS EQU 0F003H
DB 7FH,7FH,'WCUT',1
LD IY,0B786H
CALL WCUT
JR C,DISJ
CALL OS
DB 1BH
RET
DISJ
CALL OS
DB 23H,'DISJUNKT',0
RET
WCUT
LD A,L
CP (IY)
JR NC,WCU1
LD L,(IY)
WCU1 ADD E
LD E,A ;TMP
LD A,(IY)
ADD (IY+2)
CP E
JR C,WCU2
LD A,E
WCU2 SUB L
LD E,A
LD A,H
CP (IY+1)
JR NC,WCU3
LD H,(IY+1)
WCU3 ADD D
LD D,A ;TMP
LD A,(IY+1)
ADD (IY+3)
CP D
JR C,WCU4
LD A,D
WCU4 SUB H
LD D,A
DEC A
DEC E
OR E
INC E
RLA
RET
O
WCU4:C
WCU3:8
WCU2:,
WCU1:#
WCUT:
DISJ:ð
OS:À@Àt(Àp6ÀnTop of Text: End of Text: Start oOR E
INC E
RLA
RET
O
WCU4:C
WCU3:8
WCU2:,
WCU1:#
WCUT:
DISJ:ð
OS:À@Àt(Àp6ÀnTop of Text: End of Text: Start o
Detected encoding: ANSI (CP1252) | 4
|
|