please dont rip this site

WWW server in a PIC16F84


pushstate
nowarn res
.lall

W       =           0
F       =           1

Def0 macro name, opcode
    name macro
        dw opcode
    endm
endm
Def1 macro name, opcode
    name macro f:REQ
        dw (opcode) or ((f) and 0ffh)
    endm
endm
Def2 macro name, opcode
    name macro adr:REQ,d:REQ
        dw (opcode) or ((adr) and 7Fh) or (((d) and 1) shl 7)
    endm
endm
Def2o macro name, opcode
    name macro adr:REQ,bit:=<0>
        dw (opcode) or ((adr) and 3FFh) or (((bit) and 7) shl 7)
    endm
endm


Def0  NOP,   0000h
Def0  RETURN,0008h
Def0  RETFIE,0009h
Def0  OPTION,0062h
Def0  SLEEP, 0063h
Def0  CLRWDT,0064h
Def1  TRIS,  0060h

Def1  MOVWF, 0080h
Def1  CLRW,  0100h
Def1  CLRF,  0180h

Def2  SUBWF, 0200h
Def2  DECF,  0300h
Def2  IORWF, 0400h
Def2  ANDWF, 0500h
Def2  XORWF, 0600h
Def2  ADDWF, 0700h
Def2  MOVF,  0800h
Def2  COMF,  0900h
Def2  INCF,  0A00h
Def2  DECFSZ,0B00h
Def2  RRF,   0C00h
Def2  RLF,   0D00h
Def2  SWAPF, 0E00h
Def2  INCFSZ,0F00h

Def2o BCF,   1000h
Def2o BSF,   1400h
Def2o BTFSC, 1800h
Def2o BTFSS, 1C00h

Def1  MOVLW, 3000h
Def1  RETLW, 3400h
Def1  IORLW, 3800h
Def1  ANDLW, 3900h
Def1  XORLW, 3A00h
Def1  SUBLW, 3C00h
Def1  ADDLW, 3E00h

CALL  macro k
  dw  2000h or ((k - __zero) shr 1)
endm

JUMP  macro k
  dw  2800h or ((k - __zero) shr 1)
endm

.ORG  macro k
  org ((k) shr 1)
endm

.DB   macro b:vararg
IRP _,<b>
  retlw _
endm
endm


INDR    =           0000h
RTCC    =           0001h
PCL     =           0002h
STATUS  =           0003h
FSR     =           0004h
PORTA   =           0005h
PORTB   =           0006h
EEDATA  =           0008h
EEADR   =           0009h
PCLATH  =           000Ah
INTCON  =           000Bh


IRP _I_,<  0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,16,17,18,19>
SRAM&_I_  =   (000Ch+_I_)
ENDM
IRP _I_,< 20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39>
SRAM&_I_  =   (000Ch+_I_)
ENDM
IRP _I_,< 40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59>
SRAM&_I_  =   (000Ch+_I_)
ENDM
IRP _I_,< 60,61,62,63,64,65,66,67>
SRAM&_I_  =   (000Ch+_I_)
ENDM


; second bank

OPTIO   =           0001h
TRISA   =           0005h
TRISB   =           0006h
EECON1  =           0008h
EECON2  =           0009h


DefBit macro name, address, bit
    name =  (address and 7Fh) or ((bit and 7) shl 7)
endm

DefBit  GIE,        INTCON,7
DefBit  T0IE,       INTCON,5
DefBit  INTE,       INTCON,4
DefBit  RBIE,       INTCON,3
DefBit  T0IF,       INTCON,2
DefBit  INTF,       INTCON,1
DefBit  RBIF,       INTCON,0

DefBit  NOT_RBPU,   OPTIO,7
DefBit  INTEDG,     OPTIO,6
DefBit  RTS,        OPTIO,5
DefBit  T0SS,       OPTIO,5
DefBit  RTE,        OPTIO,4
DefBit  T0SE,       OPTIO,4
DefBit  PSA,        OPTIO,3
DefBit  PS2,        OPTIO,2
DefBit  PS1,        OPTIO,1
DefBit  PS0,        OPTIO,0

DefBit  IRP_,       STATUS,7
DefBit  RP1,        STATUS,6
DefBit  RP0,        STATUS,5
DefBit  NOT_TO,     STATUS,4
DefBit  NOT_PD,     STATUS,3
DefBit  Z,          STATUS,2
DefBit  DC,         STATUS,1
DefBit  C,          STATUS,0

SKIPNZ macro    ;; skip if Z==0
  btfsc     Z
endm
SKIPZ  macro    ;; skip if Z==1
  btfss     Z
endm
SKIPNC macro    ;; skip if C==0
  btfsc     C
endm
SKIPC  macro    ;; skip if C==1
  btfss     C
endm
SKIP0 macro bit ;; skip if bit==0
  btfsc     bit
endm
SKIP1 macro bit ;; skip if bit==1
  btfss     bit
endm

BRAKE  macro
local l1
  jump      l1
l1:
endm

JNZ   macro k   ;; jump if Z==0
  skipz
  jump      k
endm
JZ    macro k   ;; jump if Z==1
  skipnz
  jump      k
endm
JNC   macro k   ;; jump if C==0
  skipc
  jump      k
endm
JC    macro k   ;; jump if C==1
  skipnc
  jump      k
endm
J0    macro bit,k   ;; jump if bit==0
  btfss     bit
  jump      k
endm
J1    macro bit,k   ;; jump if bit==1
  btfsc     bit
  jump      k
endm

; max delay is 1027
DELAY MACRO dtime:req   ; fuck???
local l1
    if (dtime) eq 0
elseif (dtime) eq 1
        nop
elseif (dtime) eq 2
        brake
elseif (dtime) eq 3
        brake
        nop
elseif (dtime) eq 4
        brake
        brake
elseif (dtime) eq 5
        brake
        brake
        nop
elseif (dtime) eq 6
        brake
        brake
        brake
elseif (dtime) eq 7
        brake
        brake
        brake
        nop
elseif (dtime) eq 8
        brake
        brake
        brake
        brake
elseif (dtime) eq 9
        brake
        brake
        brake
        brake
        nop
elseif ((dtime)/4) le 256
;; n==FF dtime=4
;; n==FE dtime=8
;; n==00 dtime=1024
        movlw       100h-((dtime)/4)    ;; 1
l1:     addlw       -1                  ;; 1
        skipz                           ;; 1/2
        jump        l1                  ;; 2
if ((dtime)mod 4) eq 1
        nop
elseif ((dtime)mod 4) eq 2
        brake
elseif ((dtime)mod 4) eq 3
        brake
        nop
endif
else
error
endif
ENDM

DELAY_OLD MACRO dtime:req
local l1,l2,l3,l4
if dtime eq 0
elseif dtime eq 1
        nop
elseif dtime eq 2
        jump        l1
l1:
elseif dtime eq 3
        jump        l1
l1:     nop
elseif dtime eq 4
        jump        l1
l1:     jump        l2
l2:
elseif dtime eq 5
        jump        l1
l1:     jump        l2
l2:     nop
elseif dtime eq 6
        jump        l1
l1:     jump        l2
l2:     jump        l3
l3:
elseif dtime eq 7
        jump        l1
l1:     jump        l2
l2:     jump        l3
l3:     nop
elseif dtime eq 8
        jump        l1
l1:     jump        l2
l2:     jump        l3
l3:     jump        l4
l4:
elseif dtime eq 9
        jump        l1
l1:     jump        l2
l2:     jump        l3
l3:     jump        l4
l4:     nop
elseif ((dtime-1)/3) le 255
        movlw       (dtime-1)/3         ;; 1         \
        movwf       TEMP_DELAY          ;; 1         |
l1:     decfsz      TEMP_DELAY,f        ;; n*1 or 2   > (4+n*3)
        jump        l1                  ;; n*2       /
if ((dtime-1)mod 3) eq 1
        nop                             ;; 1  (6+n*3)
elseif ((dtime-1)mod 3) eq 2
        jump        l2                  ;; 2  (5+n*3)
l2:
endif
else
error
endif
ENDM


popstate

.model tiny
.code
__zero label byte

file: /Techref/piclist/petrovwwwpic/masmpic.htm, 31KB, , updated: 2000/1/13 17:45, local time: 2024/10/13 01:37,
TOP NEW HELP FIND: 
35.171.164.77:LOG IN
©2024 PLEASE DON'T RIP! THIS SITE CLOSES OCT 28, 2024 SO LONG AND THANKS FOR ALL THE FISH!

 ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://piclist.com/techref/piclist/petrovwwwpic/masmpic.htm"> Denis Petrov's home page</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type a nice message (short messages are blocked as spam) in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

  PICList 2024 contributors:
o List host: MIT, Site host massmind.org, Top posters @none found
- Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
 

Welcome to piclist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .