home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / programme.bas / assembl / impulse.asm < prev    next >
Encoding:
Assembly Source File  |  1997-04-17  |  371 b   |  16 lines
  1. portb   .equ 1       ;Daten Port B
  2. pbdir   .equ 5       ;Datenrichtung Port B
  3.  
  4.        .org $101
  5.         lda #$FF
  6.         sta pbdir    ;B als Ausgang
  7. loop    lda $0A1     ;Bytevariable 1
  8.         sta portb    ;B setzen
  9.         lda #$00
  10.         sta portb    ;B zurücksetzen
  11.         dec $0A2     ;Zähler -1
  12.         bne loop     ;Zählschleife
  13.         rts
  14. .end
  15.  
  16.