[HOMO]'s #1630 Buurmans gras is altijd groener

genoeg over vrouwen
Nu weer over mannen

quote:

Op vrijdag 3 maart 2006 15:15 schreef Stroekie het volgende:

[..]

Nee niet van deze plaatjes
doe maar iets met een beetje meer testosteron gehalte
Volgens mij is dat beter voor het humeur van Vanitas

Welzeker! Ik ben nu écht niet meer te genieten

En m'n programmeerseltjes werken ook nog steeds niet vanwege dat stupide Java

En als er nog één iemand een vrouwspersoonsplaatje post, dan ga ik assembly code posten, is dat begrepen?

quote:

Op vrijdag 3 maart 2006 15:36 schreef creno het volgende:

[..]

[afbeelding]

* vanitasvanitatumetomniava doet even een greep uit het probeerselmapje
.include "m16def.inc"

;standaard begin vector voor starten v. programma
.org $000
jmp RESET

;interrupt vectors tbv serieële verbinding
.org $016
jmp USART_Receive_Complete

;.org $018
;jmp USART_Transmit_Complete

;.org $01A
;jmp USART_UDR_Empty


.def compareInput =r17
.def compareOutput =r18

.def LCDData =r19
.def Delay =r20
.def Delay2 =r21
.def Temp =r22 ;te gebruiken variabelen
.def Temp2 =r23
.def Temp3 =r24 ;extra variabele voor gebruik van interrupt
.def comp =r25 ;complement van 0

;constante waarden voor de USART
;processorsnelheid in Herz
.equ Geschwindigkeit =3686000
;baud rate
.equ USART_BAUD_RATE =9600
;instelling Asynchroon - Normaal (U2X in UCSRA register op 0)
.equ UBRRVALUE =(Geschwindigkeit/(16*USART_BAUD_RATE))-1


RESET:
call INIT
;call LCDTest

END:
jmp END


LCDTest:
clr Temp
call SetPlaceRow0
ldi Temp, 0x00
call DisplayLowercase

clr Temp
call SetPlaceRow1
ldi Temp, 0x10
call DisplayLowercase
ret

INIT:
LDI Temp, HIGH(RAMEND) ; Upper byte
OUT SPH,Temp ; to stack pointer
LDI Temp, LOW(RAMEND) ; Lower byte
OUT SPL,Temp ; to stack pointer
sei

call LCDInit
call SerialInit
ret

DisplayChar:
ldi Temp2, 0b00000000
jmp SendIt
DisplayUppercase:
ldi Temp2, 0b01000001
jmp SendIt
DisplayLowercase:
ldi Temp2, 0b01100001
jmp SendIt
DisplayNumber:
ldi Temp2, 0b00110000
SendIt:
add Temp, Temp2
out PORTA, Temp
call SendCharacter
ret

SerialInit:
cbi UCSRA, U2X ;geen double speed
sbi UCSRB, RXEN ;receive enable
sbi UCSRB, TXEN ;transmit enable
sbi UCSRB, RXCIE ;receive interrupt enable
sbi UCSRB, TXCIE ;transmit interrupt enable
sbi UCSRB, UCSZ2


;selecteer UCSRC register ipv UBRRH
;Asynchrone modus
;oneven pariteit
;1 stopbit
;schakel klok uit voor asynchrone modus

ldi Temp, 0b10110110
out UCSRC, Temp

;baud rate op 9600 (4 Mhz)

ldi Temp, low(UBRRVALUE)
out UBRRL, Temp
ldi Temp, 0b00000000 ;selecteer UBRRH register ipv UCSRC
ldi Temp2, high(UBRRVALUE)
add Temp, Temp2
out UBRRH, Temp

ret

LCDInit:
ldi comp, 0xFF
out DDRA, comp
out DDRB, comp
call EnableLCD
call ClearScreen
ret

EnableLCD:
ldi Temp, 0b00001111
out PORTA, Temp
call SendInstruction
ldi Temp, 0b00111100
out PORTA, Temp
call SendInstruction
ret

;Volgende procedure is voor het instellen van de plaatsing van het karakter op het
;LCD scherm, in dit geval een LCD met 2 regels
;Temp is voor de plaatsing op de x-as, Temp 2 staat voor de y-as.

SetPlaceRow0:
ldi Temp2, 0b10000000
jmp SetPlace
SetPlaceRow1:
ldi Temp2, 0b11000000
SetPlace:
add Temp, Temp2
out PORTA, Temp
call SendInstruction
ret

DisplayValue:
ret

ClearScreen:
ldi Temp, 0b00000001
out PORTA, Temp
call SendInstruction
ret

SendInstruction:
ldi Temp, 0b00000001
out PORTB, Temp
call DelayFunction
ldi Temp, 0b00000000
out PORTB, Temp
ret

SendCharacter:
ldi Temp, 0b00000101
out PORTB, Temp
call DelayFunction
ldi Temp, 0b00000000
out PORTB, Temp
ret

DelayFunction:
ldi Delay, 0xFF
ldi Delay2,0xFF
DelayProcess:
dec Delay
brne DelayProcess
dec Delay2
brne DelayProcess
ret

USART_Receive_Complete:
mov Temp3, Temp
in Temp, UDR
call DisplayNumber
mov Temp, Temp3
reti

;USART_Transmit_Complete:
; reti

;USART_UDR_Empty:
; reti

quote:

Op vrijdag 3 maart 2006 15:40 schreef BB_Koning het volgende:

[..]

Ooeeoh, jargon

Kom je al bijna?

quote:

Op vrijdag 3 maart 2006 15:48 schreef BB_Koning het volgende:

[..]

Post nog iets meer

'k heb niet echt veel assembly op de hd die ik op 't heden moment heb meegenomen (ben niet thuis), maar hier is nog 'n vingeroefeningetje:

.include "m16def.inc"

.def Temp =r16 ; Temporary register
.def Temp2 =r17
.def Temp3 =r18
.def Delay =r19 ; Delay variable 1
.def Delay2 =r20 ; Delay variable 2
.def Richting =r21 ; Richtingsvector 0=rechts 1 = links
.def VectorL =r22 ; Vorige Links
.def VectorR =r23 ; Vorige Rechts
.def All =r24
; ***** Initialization

RESET:

LDI Temp, HIGH(RAMEND) ; Upper byte
OUT SPH,Temp ; to stack pointer
LDI Temp, LOW(RAMEND) ; Lower byte
OUT SPL,Temp ; to stack pointer

ldi All, 0xFF
Call Aan

ldi VectorL, 0x01
ldi VectorR, 0x00
ldi Temp, 0x01

com Temp
out PORTB, Temp ; Set PORTB to output


; ***** Test input/output

LOOP:
;Zet de vorige leds in de temp2
mov temp2, temp

;Check als lampje aan het begin of eind is dan moet het terug gaan.
sbis PINB, 0x00
call goRight
sbis PINB, 0x07
call goLeft


;Is de richting Links is dan linksom
cpse Richting, VectorL
rol Temp

;Is de richting Links is dan linksom
cpse Richting, VectorR
ror Temp

;Update LEDS
out PORTB, Temp

sbis PIND, 0x00
call checkLed
sbis PIND, 0x01
call checkLed
sbis PIND, 0x02
call checkLed
sbis PIND, 0x03
call checkLed
sbis PIND, 0x04
call checkLed
sbis PIND, 0x05
call checkLed
sbis PIND, 0x06
call checkLed
sbis PIND, 0x07
call checkLed

;sbic DDRD, 0x06
;call checkDirection

;sbic DDRD, 0x01
;call checkDirection


;sbis PIND, 0x00 ; If (Port D, pin0 == 0)
;inc Temp ; then count LEDS one down
;sbis PIND, 0x01 ; If (Port D, pin1 == 0)
;dec Temp ; then count LEDS one up
;sbis PIND, 0x02 ; If (Port D, pin2 == 0)
;ror Temp ; then rotate LEDS one right
;sbis PIND, 0x03 ; If (Port D, pin3 == 0)
;rol Temp ; then rotate LEDS one left
;sbis PIND, 0x04 ; If (Port D, pin4 == 0)
;com Temp ; then invert all LEDS
;sbis PIND, 0x05 ; If (Port D, pin5 == 0)
;neg Temp ; then invert all LEDS and add 1
;sbis PIND, 0x06 ; If (Port D, pin6 == 0)
;swap Temp ; then swap nibbles of LEDS

; ***** Now wait a while to make LED changes visible.
call initDelay

DLY:

dec Delay
brne DLY
dec Delay2
brne DLY

rjmp LOOP

goLeft:
ldi Richting, 0x01
ret

goRight:
ldi Richting, 0x00
ret

checkDirection:

cpse Richting, VectorL
rol Temp
cpse Richting, VectorL
rol Temp
cpse Richting, VectorR
ror Temp
cpse Richting, VectorR
ror Temp

ret

;---------------------------------------
;Voegt een extra led toe als er op gedrukt is!
checkLed:
in Temp3, PIND
;com Temp2
cpse Temp2, Temp3
rjmp Eraf


Voegtoe:
;Tel erbij op!
and Temp, Temp2
rjmp Einde

Eraf:
or Temp, Temp2
rjmp Einde

Einde:
ret
;---------------------------------------


;---------------------------------------
;Stelt DDRB in als uitgang
Aan:
out DDRB, All
out DDRC, All
ret
;---------------------------------------

quote:

Op vrijdag 3 maart 2006 16:07 schreef xman het volgende:

[..]

Oeh..iemand die me kan helpen met m´n programmeerprobleempjes!

Alleen jouw geduld kan jou écht helpen met je programmeerprobleemjes

quote:

Op vrijdag 3 maart 2006 16:17 schreef Waxxer het volgende:

[..]

Hey, moet je deze eens zien:

del *.*

nu, dan weet ik wel wat de uitslag is: syntax error: unknown instruction