00001 *************************
00002 *
00003 * SPP.ASM
00004 * MDJ 01-25-91
00005 *
00006 * "SET PRINT PARAMETERS"
00007 * OPERATOR
00008 *
00009 *************************
00010 *
00011 PTGL    EQU     $5B7A
00012 LTGL    EQU     $5BC2
00013 TTGL    EQU     $5BF1
00014 BTGL    EQU     $5C18
00015 CTGL    EQU     $5C9A
00016 SEXIT   EQU     $5D0F
00017 SMENU   EQU     $5D24
00018 KEY     EQU     $5041
00019         ORG     $5F0E
00020 SPP     PSHS    X
00021         JSR     SMENU   PUT MENU TO SCREEN
00022 SGKY    JSR     KEY
00023         PULU    X
00024         CMPX    #112    LOWER CASE P
00025         BEQ     SGKY1
00026         CMPX    #80     UPPER CASE P
00027         BEQ     SGKY1
00028         CMPX    #108    LOWER CASE L
00029         BEQ     SGKY2
00030         CMPX    #76     UPPER CASE L
00031         BEQ     SGKY2
00032         CMPX    #116    LOWER CASE T
00033         BEQ     SGKY3
00034         CMPX    #84     UPPER CASE T
00035         BEQ     SGKY3
00036         CMPX    #98     LOWER CASE B
00037         BEQ     SGKY4
00038         CMPX    #66     UPPER CASE B
00039         BEQ     SGKY4
00040         CMPX    #99     LOWER CASE C
00041         BEQ     SGKY5
00042         CMPX    #67     UPPER CASE C
00043         BEQ     SGKY5
00044         CMPX    #120    LOWER CASE X
00045         BEQ     SGKY6
00046         CMPX    #88     UPPER CASE X
00047         BEQ     SGKY6
00048         BRA     SGKY    RETURN FOR NEXT KEYPRESS
00049 SGKY1   JSR     PTGL
00050         BRA     SGKY
00051 SGKY2   JSR     LTGL
00052         BRA     SGKY
00053 SGKY3   JSR     TTGL
00054         BRA     SGKY
00055 SGKY4   JSR     BTGL
00056         BRA     SGKY
00057 SGKY5   JSR     CTGL
00058         BRA     SGKY
 
 
 
 
 
 
 
 
00059 SGKY6   PULS    X
00060         JMP     SEXIT
00061 ZEND    NOP
00062         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
