Forum

Code : Tout sélectionner

1      ORG   0100H
5GRAPH EQU   093CBH
10     LD    HL,100
20     LD    DE,4
30     LD    IX,120
40     LD    IY,31
50     LD    A,1
60     LD    B,0
70     CALL  LINE 'Trace une ligne entre (100,4)-(120,31)	
80     LD    HL,-3
90     LD    DE,-6
100     LD    IX,55
110     LD    IY,18
120     LD    A,1
130     LD    B,1
140     CALL  LINE 'Trace un rectangle vide entre (-3,-6)-(55,18)
150     LD    HL,40
160     LD    DE,10
170     LD    IX,72
180     LD    IY,24
190     LD    A,1
200     LD    B,2
210     CALL  LINE 'Trace un rectangle plein entre (40,10)-(72,24)
220     LD    HL,75
230     LD    DE,0
240     LD    IX,45
250     LD    IY,50
260     LD    A,2
270     LD    B,0
280     CALL  LINE 'Trace une ligne en vidéo inversée entre (75,0)-(45,50)
290	RET
1960LINE:LD    (7967H),IX
1970     LD    (7969H),IY
1980     LD    IX,0FFFFH
1990     LD    (777DH),IX
2000     LD    (777FH),A
2010     LD    A,B
2020     CP    1
2030     JR    C,LIN
2040     JR    Z,BOX
2050FBOX:CALL  GRAPH
2060     DB    0DH
2070     DW    0C4CBH
2080     RET
2090LIN: CALL  GRAPH
2100     DB    0DH
2110     DW    0C595H
2120     RET
2130BOX: CALL  GRAPH
2140     DB    0DH
2150     DW    0C442H
2160     RET

Code : Tout sélectionner

10 CLS
20 CALL &H100
30 GOTO 30