mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-27 02:14:19 +00:00
Upload
Digital Research
This commit is contained in:
21
CONTRIBUTIONS/z80em86/support/cls.mac
Normal file
21
CONTRIBUTIONS/z80em86/support/cls.mac
Normal file
@@ -0,0 +1,21 @@
|
||||
;**************************************************************************
|
||||
;* *
|
||||
;* 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
|
||||
Reference in New Issue
Block a user