       nam port1

ddr    equ 0
dr     equ 2

       org $fffe
       fdb pricni
       org $e000

pricni lds #$2000
       ldab #$ff
       pshb
       pula
       staa ddr
       staa dr


       end

