00001 *************************
00002 *
00003 * PRMT1A.ASM
00004 * MDJ 01-22-91
00005 *
00006 * PRINTS PROMPT "A" AT
00007 * PROMPT LOCATION #1
00008 *
00009 *************************
00010 *
00011 XCURS   EQU     $F3
00012 YCURS   EQU     $F5
00013 TYPF    EQU     $4F02
00014         ORG     $567E
00015 PRMT1A  PSHS    X
00016         LDX     XCURS   SAVE X-LOCATION
00017         STX     XCURSH
00018         LDX     YCURS   SAVE Y-LOCATION
00019         STX     YCURSH
00020         CLR     XCURS   SET X-LOCATION
00021         CLR     XCURS+1
00022         LDX     #176
00023         STX     YCURS
00024         LDX     #MSGA   MESSAGE ADDRESS
00025         PSHU    X
00026         LDX     MSGNA   CHARACTER COUNT
00027         PSHU    X
00028         JSR     TYPF    GO TYPE TO SCREEN
00029         LDX     XCURSH  RESTORE X-LOCATION
00030         STX     XCURS
00031         LDX     YCURSH  RESTORE Y-LOCATION
00032         STX     YCURS
00033         PULS    X
00034         RTS
00035 MSGNA   FDB     31
00036 MSGA    FCC     'Please Insert Disk with Page # '
00037 XCURSH  RMB     2
00038 YCURSH  RMB     2
00039 ZEND    NOP
00040         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
