00001 *************************
00002 *
00003 * RDY.ASM
00004 * MDJ 01-26-91
00005 *
00006 * "READY PRINTER"
00007 * OPERATOR
00008 *
00009 *************************
00010 *
00011 TYPF    EQU     $4F02
00012 PCODE   EQU     $5BC0
00013 CPRMT1  EQU     $571D
00014 CPRMT2  EQU     $5747
00015 PRMT2B  EQU     $56D3
00016 KEY     EQU     $5041
00017 XCURS   EQU     $F3
00018 YCURS   EQU     $F5
00019 XCURSH  EQU     $56CE
00020 YCURSH  EQU     $56D0
00021         ORG     $608A
00022 RDY     PSHS    A,X
00023         LDA     PCODE   GET PAUSE CODE
00024         CMPA    #0      IS IT "YES"?
00025         BNE     RDY1    GO IF NO
00026         JSR     CPRMT1  CLEAR PROMPTS
00027         JSR     CPRMT2
00028         LDX     XCURS   SAVE X-LOCATION
00029         STX     XCURSH
00030         LDX     YCURS   SAVE Y-LOCATION
00031         STX     YCURSH
00032         CLR     XCURS   SET X-LOCATION
00033         CLR     XCURS+1
00034         LDX     #176    SET Y-LOCATION
00035         STX     YCURS
00036         LDX     #YMSG   MESSAGE ADDRESS
00037         PSHU    X
00038         LDX     YMSGN   CHARACTER COUNT
00039         PSHU    X
00040         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00041         LDX     XCURSH  RESTORE X-LOCATION
00042         STX     XCURS
00043         LDX     YCURSH  RESTORE Y-LOCATION
00044         STX     YCURS
00045         JSR     PRMT2B
00046         JSR     KEY     WAIT FOR KEYPRESS
00047         PULU    X       CLEAN U-STACK
00048         JSR     CPRMT1  CLEAR PROMPTS
00049         JSR     CPRMT2
00050 RDY1    PULS    A,X
00051         RTS
00052 YMSGN   FDB     13
00053 YMSG    FCC     'READY PRINTER'
00054 ZEND    NOP
00055         END
 
 
 
 
 
 
 
 
 
 
 
