00001 *************************
00002 *
00003 * PRMT2B.ASM
00004 * MDJ 01-22-91
00005 *
00006 * PRINTS PROMPT "B" AT
00007 * PROMPT LOCATION #2
00008 *
00009 *************************
00010 *
00011 XCURS   EQU     $F3
00012 YCURS   EQU     $F5
00013 TYPF    EQU     $4F02
00014 XCURSH  EQU     $56CE
00015 YCURSH  EQU     $56D0
00016         ORG     $56D3
00017 PRMT2B  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     #MSGB   MESSAGE ADDRESS
00027         PSHU    X
00028         LDX     MSGNB   CHARACTER COUNT
00029         PSHU    X
00030         JSR     TYPF    GO TYPE TO SCREEN
00031         LDX     XCURSH  RESTORE X-LOCATION
00032         STX     XCURS
00033         LDX     YCURSH  RESTORE Y-LOCATION
00034         STX     YCURS
00035         PULS    X
00036         RTS
00037 MSGNB   FDB     24
00038 MSGB    FCC     'Press Any Key When Ready'
00039 ZEND    NOP
00040         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
