home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s270 / 1.ddi / PCKDD51B.EXE / DEMO.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-01-15  |  457 b   |  34 lines
  1. $debug
  2. $nopaging
  3.  
  4. outbit        BIT    90h
  5.  
  6.         DSEG AT 64h
  7. tempcount:    DS    1    
  8.  
  9.         CSEG
  10.         LJMP    start
  11.  
  12.         CSEG AT 30h
  13. start:        MOV    DPTR,#0    
  14. outerloop:    CLR     outbit
  15.         MOV    tempcount,#10
  16. innerloop:    CALL    wastetime
  17.         CPL    outbit
  18.         CLR    A
  19.         JNB    outbit,skipover
  20.         CPL    A
  21. skipover:    DJNZ    tempcount,innerloop
  22.         INC     DPTR
  23.         CALL    wastetime
  24.         CALL    wastetime
  25.         JMP    outerloop
  26. endofprogram:    JMP    start 
  27. ;
  28. ;
  29. wastetime:    MOV    R0,#0FFh
  30.         DJNZ    R0,$
  31.         RET
  32.  
  33.         END
  34.