00001 *************************
00002 *
00003 * CPRMT2.ASM
00004 * MDJ 01-22-91
00005 *
00006 * CLEARS PROMPT 
00007 * LOCATION #2
00008 *
00009 *************************
00010 *
00011 XCURS   EQU     $F3
00012 YCURS   EQU     $F5
00013 SPCES   EQU     $4EC8
00014 XCURSH  EQU     $56CE
00015 YCURSH  EQU     $56D0
00016         ORG     $5747
00017 CPRMT2  PSHS    X
00018         LDX     XCURS   SAVE X-LOCATION
00019         STX     XCURSH
00020         LDX     YCURS   SAVE Y-LOCATION
00021         STX     YCURSH
00022         CLR     XCURS   SET X-LOCATION
00023         CLR     XCURS+1
00024         LDX     #184
00025         STX     YCURS
00026         LDX     #63
00027         PSHU    X
00028         JSR     SPCES   GO CLEAR PROMPT
00029         LDX     XCURSH  RESTORE X-LOCATION
00030         STX     XCURS
00031         LDX     YCURSH  RESTORE Y-LOCATION
00032         STX     YCURS
00033         PULS    X
00034 ZEND    RTS
00035         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
