NIM1
-
elektronikopo
- Użytkownik
- Posty: 182
- Rejestracja: 16 gru 2007, 22:28
- Lokalizacja: Poznań
NIM1
Mam napisąc na Dsmie program jakim będzie gra NIM1 narazie napisałem i nie wiem co dalej prosze o pomoc
LJMP START
ORG 100H
START:
MOV R1,#20
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#21
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#22
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#23
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#24
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#25
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#26
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#27
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#28
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#29
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#30
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#31
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#32
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
LJMP START
LOP:
MOV B,#4
MOV A,R1
DIV AB
MOV R1,A
MOV A,B
JNZ START
STOP:
SJMP STOP
Jak ktoś chce moge przesłać zasady tej na emaila. To jest ta gra z kamieniami.Nie wiem jak zrobic ta gre na dsmie
LJMP START
ORG 100H
START:
MOV R1,#20
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#21
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#22
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#23
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#24
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#25
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#26
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#27
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#28
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#29
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#30
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#31
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
MOV R1,#32
MOV R0,#20H
MOVX A,@R0
CPL A
MOVX @R1,A
JNZ LOP
LJMP START
LOP:
MOV B,#4
MOV A,R1
DIV AB
MOV R1,A
MOV A,B
JNZ START
STOP:
SJMP STOP
Jak ktoś chce moge przesłać zasady tej na emaila. To jest ta gra z kamieniami.Nie wiem jak zrobic ta gre na dsmie
-
ZbeeGin
-
elektronikopo
- Użytkownik
- Posty: 182
- Rejestracja: 16 gru 2007, 22:28
- Lokalizacja: Poznań
-
ZbeeGin
-
000andrzej
- Użytkownik
- Posty: 424
- Rejestracja: 01 lip 2005, 19:36
- Lokalizacja: Kraków
Podejrzewam, że kolega więcej niż pisał, kolega prze-pisał.
a teraz poważnie - czasem lepiej coś samemu napisać od początku, niż domyślać się, co autor programu miał na myśli. Do tego służą właśnie opisy, aby innym umożliwić śledzenie toku myślenia i ewentualne poprawki. Wlep więc swoje komentarze, a wtedy może komuś sie będzie chciało popracować nad Twoją pracą.
a teraz poważnie - czasem lepiej coś samemu napisać od początku, niż domyślać się, co autor programu miał na myśli. Do tego służą właśnie opisy, aby innym umożliwić śledzenie toku myślenia i ewentualne poprawki. Wlep więc swoje komentarze, a wtedy może komuś sie będzie chciało popracować nad Twoją pracą.
-
elektronikopo
- Użytkownik
- Posty: 182
- Rejestracja: 16 gru 2007, 22:28
- Lokalizacja: Poznań
-
elektronikopo
- Użytkownik
- Posty: 182
- Rejestracja: 16 gru 2007, 22:28
- Lokalizacja: Poznań
LJMP START
ORG 100H
START:
LCALL LCD_CLR
MOV R7,#20
MOV R0,#LCDWD
MOV R1,#LCDRC
MOV DPTR,#TEKST
PĘTLA:
CLR A
MOVC A,@A+DPTR
JZ SKOK
LCALL WPISZ
INC DPTR
SJMP PĘTLA
SKOK:
MOV R0,#CSKB1
INC R7
CJNE R7,#32,SKOK2
MOV R7,#20
SKOK2:
MOVX A,@R0
JNB ACC.7,STOP
LJMP SKOK
STOP:
LCALL LCD_CLR
MOV A,R7
MOV B,#10
DIV AB
SWAP A
ADD A,B
LCALL WRITE_HEX
SJMP $
WPISZ:
MOV R2,A
BUSY:
MOVX A,@R1
JB ACC.7,BUSY
MOV A,R2
MOVX @R0,A
RET
TEKST:
DB ' TEST',0
Tu mam początek tego programu.Tylko nie wiem jak go zakończyć.Moze ktos mi dokończyć ten program albo powiedzieć jak trzeba to zrobic.
ORG 100H
START:
LCALL LCD_CLR
MOV R7,#20
MOV R0,#LCDWD
MOV R1,#LCDRC
MOV DPTR,#TEKST
PĘTLA:
CLR A
MOVC A,@A+DPTR
JZ SKOK
LCALL WPISZ
INC DPTR
SJMP PĘTLA
SKOK:
MOV R0,#CSKB1
INC R7
CJNE R7,#32,SKOK2
MOV R7,#20
SKOK2:
MOVX A,@R0
JNB ACC.7,STOP
LJMP SKOK
STOP:
LCALL LCD_CLR
MOV A,R7
MOV B,#10
DIV AB
SWAP A
ADD A,B
LCALL WRITE_HEX
SJMP $
WPISZ:
MOV R2,A
BUSY:
MOVX A,@R1
JB ACC.7,BUSY
MOV A,R2
MOVX @R0,A
RET
TEKST:
DB ' TEST',0
Tu mam początek tego programu.Tylko nie wiem jak go zakończyć.Moze ktos mi dokończyć ten program albo powiedzieć jak trzeba to zrobic.
-
elektronikopo
- Użytkownik
- Posty: 182
- Rejestracja: 16 gru 2007, 22:28
- Lokalizacja: Poznań

