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)
Programs collected by LLM agents experimental · unverified
Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.
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