CALL LINE '.............
quelqu'un pourrait m'aider?
Marc
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
tu va sous BASIC
MON [ENTER]
USER 300 [ENTER]
[TEXT]
Edit
Tu frappe le programme ci dessus
[ASMBL]
Assembler
Asm
Normalement 0 error
[BASIC] en mode programme
tu frappe
Code : Tout sélectionner
10 CLS
20 CALL &H100
30 GOTO 30
RUN [ENTER]
Bon tests[/quote]