Linguagem de Montagem
PORTAA EQU $00
PORTAB EQU $01
PORTAD EQU $03 DDRA EQU $04 DDRB EQU $05 DDRD EQU $07 VDELAY EQU $88
CONTADC EQU $3C
REGADC EQU $3D
CONFADC EQU $3E
DOG EQU $1F
TIMEC EQU $20
TIMEVH EQU $23
TIMEVL EQU $24
TESTE EQU $81
TESTEH EQU $82
TESTEL EQU $83
ORG $EC00
INICIO MOV #%0000000,PORTAA CLR PORTAB CLR PORTAD MOV #%0000000,DDRA MOV #%11110001,DDRB MOV #%11111111,DDRD JSR INICLCD MOV #'L',PORTAD JSR ENV_CHAR MOV #'O',PORTAD JSR ENV_CHAR MOV #'A',PORTAD JSR ENV_CHAR MOV #'D',PORTAD JSR ENV_CHAR MOV #'I',PORTAD JSR ENV_CHAR MOV #'N',PORTAD JSR ENV_CHAR MOV #'G',PORTAD JSR ENV_CHAR MOV #'.',PORTAD JSR ENV_CHAR MOV #'.',PORTAD JSR ENV_CHAR MOV #'.',PORTAD JSR ENV_CHAR MOV #02T,VDELAY JSR DELAY JSR LIMP ;JSR RESET JSR LIMP JSR TESTTECLA JMP INICIO
;#############################################################################
; RESET
RESET JSR INICLCD MOV #':',PORTAD JSR ENV_CHAR RTS
;#############################################################################
;#############################################################################
;BCD