G33k

Mi történik, ha egy napra a számítógép előtt felejtem magam? Ez:

ERRORLEVEL -302
LIST P=16F84
#INCLUDE "P16F84.INC"
__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF

CBLOCK 0X0C
SLP
ENDC

ORG 0

GOTO START

START
BANKSEL TRISA
MOVLW B'11111111'
MOVWF TRISA
MOVLW B'00000000'
MOVWF TRISB
BANKSEL PORTB

MAIN
MOVLW B'00000001'
MOVWF PORTB
GOTO WAIT
FORGAT
BTFSC PORTB,7
GOTO I
GOTO O
GOTO WAIT

I
BTFSC STATUS,0
GOTO FOROG
BSF STATUS,0
GOTO FOROG

O
BTFSC STATUS,0
BCF STATUS,0
GOTO FOROG

FOROG
RLF PORTB, F
GOTO 0xD

WAIT
MOVLW 00F
MOVWF SLP
WAIT2
NOP
DECFSZ SLP, F
GOTO WAIT2
GOTO FORGAT

END

Azt hiszem, megbolondultam. De cserébe érzem, hogy csendben egy tanszék büszke rám :P

Update: hogy a bölcsész-beállítottságúak se keseredjenek nagyon el, most néhány napig be fogom linkelni a wikimedia 2007es képei közül a legjobbakat:


Mára például ez jutott, mert szerintem tök jó, hogy olyan, mintha a középkorban készült volna, és nincs rajt semmi olyan, ami nem passzol oda.