Context Navigation

CLS.S@ f40d52b

Last change on this file since f40d52b was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Imported original source code.
Property mode set to `100755`
File size: 768 bytes

Rev	Line
[3ae31e9]	1	*
	2	* CLS.s -- Clear screen
	3	* ----- ------------
	4	* Version 8 -- 1987-02-05 -- D.N. Lynx Crowe
	5	*
	6	ESC .equ $1B * Escape character
	7	*
	8	bconout .equ 3 * bconout function #
	9	*
	10	.globl cls
	11	*
	12	cls: lea thestack,a7 * Initialize the stack
	13	*
	14	move.w #ESC,-(a7) * Put ESC on stack
	15	move.w #2,-(a7) * Put 2 on stack
	16	move.w #bconout,-(a7) * Put bconout # on stack
	17	trap #13 * Trap to the bios
	18	addq #6,a7 * Cleanup stack
	19	*
	20	move.w #' E',-(a7) * Put 'E' on stack
	21	move.w #2,-(a7) * Put 2 on stack
	22	move.w #bconout,-(a7) * Put bconout # on stack
	23	trap #13 * Trap to the bios
	24	addq #6,a7 * Cleanup stack
	25	*
	26	clr.w -(a7) * Setup for pterm()
	27	trap #1 * Exit to GEMDOS
	28	*
	29	.bss
	30	*
	31	ds.l 256
	32	thestack: ds.l 1
	33	*
	34	.end

Note: See TracBrowser for help on using the repository browser.