home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / sysutl / doslike.lbr / CLS.ASM next >
Assembly Source File  |  1986-07-16  |  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