00001 *************************
00002 *
00003 * MENU.ASM
00004 * MDJ 01-17-91
00005 *
00006 * PUTS MENU TO SCREEN
00007 *
00008 *************************
00009 *
00010 XCURS   EQU     $F3
00011 YCURS   EQU     $F5
00012 TYPF    EQU     $4F02
00013         ORG     $5423
00014 MENU    PSHS    A,B,X,Y
00015         LDY     #136    FIRST YCURS POSITION
00016         LDX     MMSGN1  MENU MESSAGE #1
00017         LDD     #MMSG1
00018         BSR     MNUPRT  GO PUT TO SCREEN
00019         LEAY    8,Y     INCREMENT YCURS
00020         LDX     MMSGN2  MENU MESSAGE #2
00021         LDD     #MMSG2
00022         BSR     MNUPRT  GO PUT TO SCREEN
00023         LEAY    8,Y     INCREMENT YCURS
00024         LDX     MMSGN3  MENU MESSAGE #3
00025         LDD     #MMSG3
00026         BSR     MNUPRT  GO PUT TO SCREEN
00027         LEAY    8,Y     INCREMENT YCURS
00028         LDX     MMSGN4  MENU MESSAGE #4
00029         LDD     #MMSG4
00030         BSR     MNUPRT  GO PUT TO SCREEN
00031         LEAY    8,Y     INCREMENT YCURS
00032         LDX     MMSGN5  MENU MESSAGE #5
00033         LDD     #MMSG5
00034         BSR     MNUPRT  GO PUT TO SCREEN
00035         PULS    A,B,X,Y
00036         RTS
00037 MNUPRT  CLR     XCURS   CLEAR X-CURSOR
00038         CLR     XCURS+1
00039         STY     YCURS   SET Y-CURSOR
00040         PSHU    A,B     ADDRESS
00041         PSHU    X       NUMBER OF CHARACTERS
00042         JSR     TYPF    GO TYPE MESSAGE
00043         RTS
00044 MMSGN1  FDB     60
00045 MMSG1   FCC     'Page              Third         UP ARROW - Up One Third P
age'
00046 MMSGN2  FDB     64
00047 MMSG2   FCC     'S - Set Printer Parameters      DOWN ARROW - Down One Thi
rd Page'
00048 MMSGN3  FDB     58
00049 MMSG3   FCC     'P - Print Current Page          LEFT ARROW - Back One Pag
e'
00050 MMSGN4  FDB     62
00051 MMSG4   FCC     'R - Print a Range of Pages      RIGHT ARROW - Forward One
 Page'
00052 MMSGN5  FDB     63
00053 MMSG5   FCC     'D - Print Entire Document       G - Go to New Page     X 
- Exit'
 
 
 
 
 
 
 
 
00054 ZEND    NOP
00055         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
