home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / programme.bas / assembl / toggle2.bas < prev   
Encoding:
BASIC Source File  |  1997-04-17  |  531 b   |  27 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       TOGGLE2.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Laden und Ausfuehren eines
  8. ' - Assembler-Unterprogramms
  9. ' - Datenrichtung in BASIC festlegen
  10. '
  11. '**************************************
  12. ' --- Definitionen --------------------
  13.  
  14. define Ausgang port[1]
  15. define Toggle  port[2]
  16.  
  17. ' --- Programmoperationen -------------
  18.  
  19. Ausgang = 1
  20. Toggle = 0             'B2 als Ausgang 
  21. pause 50
  22. sys &H0105             'Aufruf bei $0105
  23. end
  24.  
  25. syscode "TOGGLE.OBJ"   'Code laden
  26.  
  27.