PUB pasmblink

  coginit(cogid, @entry, 0)

DAT
                        org     0
entry                   mov     dira,      #511
                        mov     time,      cnt

loop                    add     outa,      #1
                        add     time,      delay
                        waitcnt time,      #0
                        jmp     #loop

time                    long    0
delay                   long    0