source: buchla-68k/orig/GEMDOS/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
Line 
1*
2* CLS.s -- Clear screen
3* ----- ------------
4* Version 8 -- 1987-02-05 -- D.N. Lynx Crowe
5*
6ESC .equ $1B * Escape character
7*
8bconout .equ 3 * bconout function #
9*
10 .globl cls
11*
12cls: 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
32thestack: ds.l 1
33*
34 .end
Note: See TracBrowser for help on using the repository browser.