00001 *************************
00002 *
00003 * PPAGE.ASM
00004 * MDJ 01-26-91
00005 *
00006 * PRINTS PAGE BODY
00007 *
00008 *************************
00009 *
00010 CPRMT1  EQU     $571D
00011 CPRMT2  EQU     $5747
00012 PCRSND  EQU     $5F75
00013 PLF     EQU     $4F9D
00014 PTYPE   EQU     $4FDA
00015 PSPCS   EQU     $4FC7
00016 LCODE   EQU     $5BEF
00017 TCODE   EQU     $5C16
00018         ORG     $604C
00019 PPAGE   PSHS    A,B,X,Y
00020         CLRA
00021         LDB     LCODE   GET LEFT MARGIN
00022         LDY     #64     CHARACTERS PER LINE
00023         LDX     #$2200  PAGE ADDRESS
00024 PPG1    CMPX    #$2E00  DONE?
00025         BHS     PPG2    GO IF YES
00026         PSHU    A,B
00027         JSR     PSPCS   GO PRINT MARGIN
00028         PSHU    X       LINE ADDRESS
00029         PSHU    Y       CHARACTER COUNT
00030         JSR     PTYPE   GO PRINT LINE
00031         LEAX    64,X    INCREMENT LINE ADDRESS
00032         JSR     PCRSND  SEND PRINTER TO NEXT LINE
00033         BRA     PPG1    RETURN FOR NEXT LINE
00034 PPG2    LDA     #15     MAXIMUM TOP AND BOTTOM MARGIN
00035         SUBA    TCODE   SUBTRACT ACTUAL TOP MARGIN
00036 PPG3    CMPA    #0      DONE?
00037         BEQ     PPG4    GO IF YES
00038         JSR     PLF     DOWN ONE LINE
00039         DECA            DECREMENT COUNT
00040         BRA     PPG3    RETURN FOR NEXT PLF
00041 PPG4    JSR     CPRMT1  GO CLEAR PROMPTS
00042         JSR     CPRMT2
00043         PULS    A,B,X,Y
00044 ZEND    RTS
00045         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
