00001 *************************
00002 *
00003 * PCRSND.ASM
00004 * MDJ 01-28-91
00005 *
00006 * DETERMINES WHETHER A
00007 * CARRIAGE RETURN TO THE
00008 * PRINTER SENDS A
00009 * CARRIAGE RETURN ONLY OR
00010 * A CARRIAGE RETURN +
00011 * LINEFEED
00012 *
00013 *************************
00014 *
00015 XPCR    EQU     $4F91
00016 PCRLF   EQU     $4F8A
00017 CCODE   EQU     $5D0C
00018         ORG     $5F75
00019 PCRSND  PSHS    A
00020         LDA     CCODE   GET CARRIAGE RETURN CODE
00021         CMPA    #0      IS IT CARRIAGE RETURN ONLY?
00022         BEQ     PCS1    GO IF YES
00023         JSR     PCRLF   SEND BOTH
00024         BRA     PCS2
00025 PCS1    JSR     XPCR    SEND CR ONLY
00026 PCS2    PULS    A
00027 ZEND    RTS
00028         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
