00001 *************************
00002 *
00003 * PPTM.ASM
00004 * MDJ 01-23-91
00005 *
00006 * TYPES THE PAGE MIDDLE
00007 * THIRD MESSAGE TO THE
00008 * SCREEN
00009 *
00010 *************************
00011 *
00012 XCURS   EQU     $F3
00013 YCURS   EQU     $F5
00014 TYPE    EQU     $4EF1
00015 XCURSH  EQU     $56CE
00016 YCURSH  EQU     $56D0
00017         ORG     $5827
00018 PPTM    PSHS    X
00019         LDX     XCURS   SAVE X-LOCATION
00020         STX     XCURSH
00021         LDX     YCURS   SAVE Y-LOCATION
00022         STX     YCURSH
00023         LDX     #44     SET X-LOCATION
00024         STX     XCURS
00025         LDX     #136    SET Y-LOCATION
00026         STX     YCURS
00027         LDX     #MSGTM  MESSAGE ADDRESS
00028         PSHU    X
00029         LDX     MSGNTM  CHARACTER COUNT
00030         PSHU    X
00031         JSR     TYPE    GO TYPE TO SCREEN
00032         LDX     XCURSH  RESTORE X-LOCATION
00033         STX     XCURS
00034         LDX     YCURSH  RESTORE Y-LOCATION
00035         STX     YCURS
00036         PULS    X
00037         RTS
00038 MSGNTM  FDB     6
00039 MSGTM   FCC     'Middle'
00040 ZEND    NOP
00041         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
