mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 08:54:17 +00:00
22 lines
657 B
Plaintext
22 lines
657 B
Plaintext
;**************************************************************************
|
|
;* *
|
|
;* CLS v1.00 clears VDU screen S.J.Kay 26/04/95 *
|
|
;* *
|
|
;* Support utility for CP/M 3 *
|
|
;* *
|
|
;**************************************************************************
|
|
|
|
maclib TPORTS.LIB
|
|
;
|
|
.z80
|
|
aseg
|
|
;
|
|
org 0100h
|
|
.phase 0100h
|
|
;
|
|
out (crt1in),a ;initialize VDU driver
|
|
ret
|
|
;
|
|
.dephase
|
|
end
|