home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG141.ARC / DOSLIKE.LBR / CLS.ASM next >
Assembly Source File  |  1979-12-31  |  384b  |  14 lines
  1. BDOS    EQU    0005H    ;System Call Location
  2. TPA    EQU    0100H    ;Transient Program Area
  3. CROUT    EQU    2D    ;Character Output Function
  4. CTRZ    EQU    26D    ;Control Z Character
  5.     ;
  6. CLS    ORG    TPA    ;Program Start Location
  7.     MVI    C,CROUT ;Load Fuction Call
  8.     MVI    E,CTRZ    ;Load E with CTRZ
  9.     CALL    BDOS    ;Call CP/M to Output
  10.     RET        ;Return to CP/M Control
  11.     ;
  12.     END
  13. T ;Load Fuction Call
  14.     MVI    E,CTRZ    ;Load E with CTRZ