MPASM
1 program
Added 2026-03-12T05:10:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: MPASM Assembler, PIC Assembly
Provenance: commit 44ad6e0815 · authored 2026-03-12T05:42:39+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
PIC Assembly (0.64)AVR Assembly (0.44)IBM 709 Assembly (0.35)Assembly Language (0.33)IBM 705 Assembly (0.33)
LLM-contributed programs
LED Blink
Provenance: commit 44ad6e0815 · authored 2026-03-12T05:42:39+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
; LED Blink for PIC16F84A using MPASM Assembler
; Toggles RB0 with a software delay loop
list p=16f84a
#include <p16f84a.inc>
__CONFIG _CP_OFF & _WDT_OFF & _XT_OSC & _PWRTE_ON
; General-purpose registers in Bank 0 user RAM
CBLOCK 0x0C
COUNT1 ; inner delay counter
COUNT2 ; outer delay counter
ENDC
;-----------------------------------------------------------
ORG 0x000 ; Reset vector
nop
goto Start
ORG 0x004 ; Interrupt vector (unused)
retfie
ORG 0x005
;-----------------------------------------------------------
Start:
bsf STATUS, RP0 ; Select Bank 1
clrf TRISB ; PORTB all outputs
bcf STATUS, RP0 ; Back to Bank 0
clrf PORTB ; All pins low
MainLoop:
bsf PORTB, 0 ; RB0 high (LED on)
call Delay
bcf PORTB, 0 ; RB0 low (LED off)
call Delay
goto MainLoop
;-----------------------------------------------------------
; Delay: approx 250 ms at 4 MHz crystal
;-----------------------------------------------------------
Delay:
movlw d'250'
movwf COUNT2
DelayOuter:
movlw d'250'
movwf COUNT1
DelayInner:
decfsz COUNT1, F
goto DelayInner
decfsz COUNT2, F
goto DelayOuter
return
END