00001 *************************
00002 *
00003 * SMENU.ASM
00004 * MDJ 01-25-91
00005 *
00006 * PUTS THE "SET PRINT
00007 * PARAMETERS" MENU TO THE
00008 * SCREEN
00009 *
00010 *************************
00011 *
00012 TYPF    EQU     $4F02
00013 LINE    EQU     $3EB5
00014 XCURS   EQU     $F3
00015 YCURS   EQU     $F5
00016 XCURSH  EQU     $56CE
00017 YCURSH  EQU     $56D0
00018 PCLS    EQU     $3E4F
00019 SSCR    EQU     $5B4C
00020 PTGL    EQU     $5B7A
00021 LTGL    EQU     $5BC2
00022 TTGL    EQU     $5BF1
00023 CTGL    EQU     $5C9A
00024 BTGL    EQU     $5C18
00025 PCODE   EQU     $5BC0
00026 LCODE   EQU     $5BEF
00027 TCODE   EQU     $5C16
00028 BCODE   EQU     $96
00029 CCODE   EQU     $5D0C
00030         ORG     $5D24
00031 SMENU   PSHS    A,B,X
00032         JSR     SSCR    MOVE MAIN MENU TO HIGH MEMORY
00033         JSR     PCLS    GO CLEAR THE SCREEN
00034         DEC     PCODE
00035         DEC     LCODE
00036         DEC     TCODE
00037         LDA     BCODE
00038         CMPA    #180
00039         BEQ     BC1
00040         CMPA    #87
00041         BEQ     BC2
00042         CMPA    #41
00043         BEQ     BC3
00044         CMPA    #18
00045         BEQ     BC4
00046         CMPA    #7
00047         BEQ     BC5
00048         LDA     #7
00049         BRA     BC6
00050 BC1     LDA     #1
00051         BRA     BC6
00052 BC2     LDA     #180
00053         BRA     BC6
00054 BC3     LDA     #87
00055         BRA     BC6
00056 BC4     LDA     #41
00057         BRA     BC6
00058 BC5     LDA     #18
 
 
 
 
 
 
 
 
00059 BC6     STA     BCODE
00060         DEC     CCODE
00061         LDX     #11     DRAW BOX
00062         LDD     #179
00063         PSHU    X
00064         PSHU    A,B
00065         PSHU    X
00066         LDD     #75
00067         PSHU    A,B
00068         JSR     LINE
00069         LDX     #27
00070         LDD     #179
00071         PSHU    X
00072         PSHU    A,B
00073         LDX     #11
00074         PSHU    X
00075         PSHU    A,B
00076         JSR     LINE
00077         LDX     #27
00078         LDD     #75
00079         PSHU    X
00080         PSHU    A,B
00081         PSHU    X
00082         LDD     #179
00083         PSHU    A,B
00084         JSR     LINE
00085         LDX     #11
00086         LDD     #75
00087         PSHU    X
00088         PSHU    A,B
00089         LDX     #27
00090         PSHU    X
00091         PSHU    A,B
00092         JSR     LINE
00093         LDX     XCURS   SAVE X-LOCATION
00094         STX     XCURSH
00095         LDX     YCURS   SAVE Y-LOCATION
00096         STX     YCURSH
00097         LDX     #84     SET X-LOCATION
00098         STX     XCURS
00099         LDX     #16     SET Y-LOCATION
00100         STX     YCURS
00101         LDX     #SMSG1  MESSAGE ADDRESS
00102         PSHU    X
00103         LDX     SMSGN1  CHARACTER COUNT
00104         PSHU    X
00105         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00106         LDD     #44     SET X-LOCATION
00107         STD     XCURS
00108         LDX     #48     SET Y-LOCATION
00109         STX     YCURS
00110         LDX     #SMSG2  MESSAGE ADDRESS
00111         PSHU    X
00112         LDX     SMSGN2  CHARACTER COUNT
00113         PSHU    X
00114         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00115         STD     XCURS   SET X-LOCATION
00116         LDX     #72     SET Y-LOCATION
 
 
 
 
 
 
 
 
00117         STX     YCURS
00118         LDX     #SMSG3  MESSAGE ADDRESS
00119         PSHU    X
00120         LDX     SMSGN3  CHARACTER COUNT
00121         PSHU    X
00122         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00123         STD     XCURS   SET X-LOCATION
00124         LDX     #96     SET Y-LOCATION
00125         STX     YCURS
00126         LDX     #SMSG4  MESSAGE ADDRESS
00127         PSHU    X
00128         LDX     SMSGN4  CHARACTER COUNT
00129         PSHU    X
00130         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00131         STD     XCURS   SET X-LOCATION
00132         LDX     #120    SET Y-LOCATION
00133         STX     YCURS
00134         LDX     #SMSG5  MESSAGE ADDRESS
00135         PSHU    X
00136         LDX     SMSGN5  CHARACTER COUNT
00137         PSHU    X
00138         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00139         STD     XCURS   SET X-LOCATION
00140         LDX     #144    SET Y-LOCATION
00141         STX     YCURS
00142         LDX     #SMSG6  MESSAGE ADDRESS
00143         PSHU    X
00144         LDX     SMSGN6  CHARACTER COUNT
00145         PSHU    X
00146         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00147         STD     XCURS   SET X-LOCATION
00148         LDX     #168    SET Y-LOCATION
00149         STX     YCURS
00150         LDX     #SMSG7  MESSAGE ADDRESS
00151         PSHU    X
00152         LDX     SMSGN7  CHARACTER COUNT
00153         PSHU    X
00154         JSR     TYPF    GO TYPE MESSAGE TO SCREEN
00155         JSR     PTGL    TYPE PAUSE CODE TO SCREEN
00156         JSR     LTGL    TYPE LEFT MARGIN TO SCREEN
00157         JSR     TTGL    TYPE TOP MARGIN TO SCREEN
00158         JSR     BTGL    TYPE BAUD RATE TO SCREEN
00159         JSR     CTGL    TYPE CARRIAGE RETURN CODE TO SCRN
00160         PULS    A,B,X
00161         RTS
00162 SMSGN1  FDB     22
00163 SMSG1   FCC     'PRINT PARAMETERS  MENU'
00164 SMSGN2  FDB     28
00165 SMSG2   FCC     '[ P ]  Pause between pages ='
00166 SMSGN3  FDB     20
00167 SMSG3   FCC     '[ L ]  Left Margin ='
00168 SMSGN4  FDB     19
00169 SMSG4   FCC     '[ T ]  Top Margin ='
00170 SMSGN5  FDB     18
00171 SMSG5   FCC     '[ B ]  Baud Rate ='
00172 SMSGN6  FDB     24
00173 SMSG6   FCC     '[ C ]  Carriage Return ='
00174 SMSGN7  FDB     24
 
 
 
 
 
 
 
 
00175 SMSG7   FCC     '[ X ]  Exit to Main Menu'
00176 ZEND    NOP
00177         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
