00001 *************************
00002 *
00003 * PHEAD.ASM
00004 * MDJ 01-26-91
00005 *
00006 * PRINTS PAGE HEADER
00007 *
00008 *************************
00009 *
00010 MAXPP   EQU     $3104
00011 HMSGN   EQU     $3106
00012 HMSG    EQU     $3107
00013 PCRSND  EQU     $5F75
00014 PLF     EQU     $4F9D
00015 PTYPE   EQU     $4FDA
00016 PDOT    EQU     $4FEB
00017 PSPCS   EQU     $4FC7
00018 TCODE   EQU     $5C16
00019 LCODE   EQU     $5BEF
00020 PNV     EQU     $598B
00021         ORG     $5FDA
00022 PHEAD   PSHS    A,B,X
00023         LDA     TCODE   GET TOP MARGIN
00024 PH1     CMPA    #0      IS IT ZERO?
00025         BEQ     PH2     GO IF YES
00026         JSR     PLF     DOWN ONE LINE
00027         DECA            DECREMENT MARGIN COUNT
00028         BRA     PH1     RETURN FOR NEXT PLF
00029 PH2     CLRA            GET LEFT MARGIN
00030         LDB     LCODE
00031         PSHU    A,B
00032         JSR     PSPCS   GO PRINT MARGIN
00033         LDX     #HMSG   HEADER MESSAGE ADDRESS
00034         PSHU    X
00035         CLRA
00036         LDB     HMSGN   CHARACTER COUNT
00037         PSHU    A,B
00038         JSR     PTYPE   GO PRINT HEADER
00039         LDX     #HMSG2  PART TWO MESSAGE ADDRESS
00040         PSHU    X
00041         LDX     HMSGN2  CHARACTER COUNT
00042         PSHU    X
00043         JSR     PTYPE   GO PRINT PART TWO
00044         LDX     PNV     PRINTING PAGE NUMBER
00045         PSHU    X
00046         JSR     PDOT    GO PRINT PAGE NUMBER
00047         LDX     #HMSG3  PART THREE MESSAGE ADDRESS
00048         PSHU    X
00049         LDX     HMSGN3  CHARACTER COUNT
00050         PSHU    X
00051         JSR     PTYPE   GO PRINT PART THREE
00052         LDX     MAXPP   MAXIMUM PAGE NUMBER
00053         PSHU    X
00054         JSR     PDOT    GO PRINT MAX. PAGE NUMBER
00055         JSR     PCRSND  SEND PRINTER TO NEXT LINE
00056         LDA     #3      BLANK HEADER LINES
00057 PH3     CMPA    #0      DONE?
00058         BEQ     PH4     GO IF YES
 
 
 
 
 
 
 
 
00059         JSR     PLF     DOWN ONE LINE
00060         DECA            DECREMENT COUNT
00061         BRA     PH3     RETURN FOR NEXT PLF
00062 PH4     PULS    A,B,X
00063         RTS
00064 HMSGN2  FDB     8
00065 HMSG2   FCC     ' - Page '
00066 HMSGN3  FDB     3
00067 HMSG3   FCC     'of '
00068 ZEND    NOP
00069         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
