1. 26.
    0
    ram_start equ 0000ch
    ram_end equ 0004fh
    ram_banks equ 00001h
    bank0_start equ 0000ch
    bank0_end equ 0004fh
    eeprom_start equ 02100h
    eeprom_end equ 0213fh

    r0 equ ram_start + 000h
    r1 equ ram_start + 002h
    r2 equ ram_start + 004h
    r3 equ ram_start + 006h
    r4 equ ram_start + 008h
    r5 equ ram_start + 00ah
    r6 equ ram_start + 00ch
    r7 equ ram_start + 00eh
    r8 equ ram_start + 010h
    flags equ ram_start + 012h
    gop equ ram_start + 013h
    rm1 equ ram_start + 014h
    rm2 equ ram_start + 015h
    rr1 equ ram_start + 016h
    rr2 equ ram_start + 017h
    _verici equ ram_start + 018h
    _portl equ portb
    _porth equ porta
    _trisl equ trisb
    _trish equ trisa
    11. define _option_reg_7 option_reg, 007h
    12. define _portb_0 portb, 000h
    13. define _portb_1 portb, 001h
    14. define _portb_2 portb, 002h
    15. define _portb_3 portb, 003h
    16. define _portb_4 portb, 004h
    17. define _portb_5 portb, 005h
    18. define _portb_6 portb, 006h
    19. define _portb_7 portb, 007h
    20. define _porta_0 porta, 000h
    include "buton.mac"
    include "pbppic14.lib"

    move?cb 000h, trisa
    move?cb 0ffh, trisb
    move?ct 000h, _option_reg_7
    move?cb 000h, _verici

    label?l _basla
    cmpne?tcl _portb_0, 000h, l00001
    move?cb 00ah, _verici
    label?l l00001
    cmpne?tcl _portb_1, 000h, l00003
    move?cb 014h, _verici
    label?l l00003
    cmpne?tcl _portb_2, 000h, l00005
    move?cb 01eh, _verici
    label?l l00005
    cmpne?tcl _portb_3, 000h, l00007
    move?cb 028h, _verici
    label?l l00007
    cmpne?tcl _portb_4, 000h, l00009
    move?cb 032h, _verici
    label?l l00009
    cmpne?tcl _portb_5, 000h, l00011
    move?cb 03ch, _verici
    label?l l00011
    cmpne?tcl _portb_6, 000h, l00013
    move?cb 046h, _verici
    label?l l00013
    cmpne?tcl _portb_7, 000h, l00015
    move?cb 050h, _verici
    label?l l00015
    serout2dpin?t _porta_0
    serout2mode?c 0018ch
    serout2pace?c 000h
    serout2?c 050h
    serout2?c 042h
    serout2?c 050h
    serout2?b _verici
    goto?l _basla
    end?

    end
    ···
   tümünü göster