00001 *************************
00002 *
00003 * OSCR.ASM
00004 * MDJ 01-28-91
00005 *
00006 * DISPLAYS THE OPENING
00007 * SCREEN
00008 *
00009 *************************
00010 *
00011 KEY     EQU     $5041
00012 PCLS    EQU     $3E4F
00013 XCURS   EQU     $F3
00014 YCURS   EQU     $F5
00015 DOTF    EQU     $4F46
00016 LINE    EQU     $3EB5
00017 TYPF    EQU     $4F02
00018 PRMT1A  EQU     $567E
00019 PRMT2B  EQU     $56D3
00020 SSECT   EQU     $563B
00021 MINP    EQU     $3100
00022         ORG     $627F
00023 OSCR    PSHS    X
00024         LDX     #9      DRAW INSIDE TOP BOX
00025         PSHU    X
00026         LDX     #149
00027         PSHU    X
00028         LDX     #9
00029         PSHU    X
00030         LDX     #105
00031         PSHU    X
00032         JSR     LINE
00033         LDX     #29
00034         PSHU    X
00035         LDX     #149
00036         PSHU    X
00037         LDX     #9
00038         PSHU    X
00039         LDX     #149
00040         PSHU    X
00041         JSR     LINE
00042         LDX     #29
00043         PSHU    X
00044         LDX     #105
00045         PSHU    X
00046         LDX     #29
00047         PSHU    X
00048         LDX     #149
00049         PSHU    X
00050         JSR     LINE
00051         LDX     #9
00052         PSHU    X
00053         LDX     #105
00054         PSHU    X
00055         LDX     #29
00056         PSHU    X
00057         LDX     #105
00058         PSHU    X
 
 
 
 
 
 
 
 
00059         JSR     LINE
00060         LDX     #11     DRAW OUTSIDE TOP BOX
00061         PSHU    X
00062         LDX     #147
00063         PSHU    X
00064         LDX     #11
00065         PSHU    X
00066         LDX     #107
00067         PSHU    X
00068         JSR     LINE
00069         LDX     #27
00070         PSHU    X
00071         LDX     #147
00072         PSHU    X
00073         LDX     #11
00074         PSHU    X
00075         LDX     #147
00076         PSHU    X
00077         JSR     LINE
00078         LDX     #27
00079         PSHU    X
00080         LDX     #107
00081         PSHU    X
00082         LDX     #27
00083         PSHU    X
00084         LDX     #147
00085         PSHU    X
00086         JSR     LINE
00087         LDX     #11
00088         PSHU    X
00089         LDX     #107
00090         PSHU    X
00091         LDX     #27
00092         PSHU    X
00093         LDX     #107
00094         PSHU    X
00095         JSR     LINE
00096         LDX     #116    TYPE SCREEN MESSAGES
00097         STX     XCURS   MESSAGE #1
00098         LDX     #16
00099         STX     YCURS
00100         LDX     #AM1
00101         PSHU    X
00102         LDX     AN1
00103         PSHU    X
00104         JSR     TYPF
00105         LDX     #88     MESSGAE #2
00106         STX     XCURS
00107         LDX     #40
00108         STX     YCURS
00109         LDX     #AM2
00110         PSHU    X
00111         LDX     AN2
00112         PSHU    X
00113         JSR     TYPF
00114         LDX     #88     MESSAGE #3
00115         STX     XCURS
00116         LDX     #48
 
 
 
 
 
 
 
 
00117         STX     YCURS
00118         LDX     #AM3
00119         PSHU    X
00120         LDX     AN3
00121         PSHU    X
00122         JSR     TYPF
00123         LDX     #104    MESSAGE #4
00124         STX     XCURS
00125         LDX     #56
00126         STX     YCURS
00127         LDX     #AM4
00128         PSHU    X
00129         LDX     AN4
00130         PSHU    X
00131         JSR     TYPF
00132         LDX     #104    MESSAGE #5
00133         STX     XCURS
00134         LDX     #64
00135         STX     YCURS
00136         LDX     #AM5
00137         PSHU    X
00138         LDX     AN5
00139         PSHU    X
00140         JSR     TYPF
00141         LDX     #80     MESSAGE #6
00142         STX     XCURS
00143         LDX     #72
00144         STX     YCURS
00145         LDX     #AM6
00146         PSHU    X
00147         LDX     AN6
00148         PSHU    X
00149         JSR     TYPF
00150         CLR     XCURS   MESSAGE #7
00151         CLR     XCURS+1
00152         LDX     #96
00153         STX     YCURS
00154         LDX     #AM7
00155         PSHU    X
00156         LDX     AN7
00157         PSHU    X
00158         JSR     TYPF
00159         CLR     XCURS   MESSAGE #8
00160         CLR     XCURS+1
00161         LDX     #104
00162         STX     YCURS
00163         LDX     #AM8
00164         PSHU    X
00165         LDX     AN8
00166         PSHU    X
00167         JSR     TYPF
00168         CLR     XCURS   MESSAGE #9
00169         CLR     XCURS+1
00170         LDX     #112
00171         STX     YCURS
00172         LDX     #AM9
00173         PSHU    X
00174         LDX     AN9
 
 
 
 
 
 
 
 
00175         PSHU    X
00176         JSR     TYPF
00177         LDX     #84     MESSAGE #A
00178         STX     XCURS
00179         LDX     #136
00180         STX     YCURS
00181         LDX     #AMA
00182         PSHU    X
00183         LDX     ANA
00184         PSHU    X
00185         JSR     TYPF
00186         LDX     #104    MESSAGE #B
00187         STX     XCURS
00188         LDX     #152
00189         STX     YCURS
00190         LDX     #AMB
00191         PSHU    X
00192         LDX     ANB
00193         PSHU    X
00194         JSR     TYPF
00195         LDX     #131    DRAW BOTTOM BOX
00196         PSHU    X
00197         LDX     #179
00198         PSHU    X
00199         LDX     #131
00200         PSHU    X
00201         LDX     #75
00202         PSHU    X
00203         JSR     LINE
00204         LDX     #163
00205         PSHU    X
00206         LDX     #179
00207         PSHU    X
00208         LDX     #131
00209         PSHU    X
00210         LDX     #179
00211         PSHU    X
00212         JSR     LINE
00213         LDX     #163
00214         PSHU    X
00215         LDX     #75
00216         PSHU    X
00217         LDX     #163
00218         PSHU    X
00219         LDX     #179
00220         PSHU    X
00221         JSR     LINE
00222         LDX     #131
00223         PSHU    X
00224         LDX     #75
00225         PSHU    X
00226         LDX     #163
00227         PSHU    X
00228         LDX     #75
00229         PSHU    X
00230         JSR     LINE
00231         JSR     SSECT   GO GET SPECIAL SECTOR
00232         LDX     MINP    GET MINIMUM PAGE # ON DISK
 
 
 
 
 
 
 
 
00233         CMPX    #1      IS IT FIRST PAGE?
00234         BEQ     OSCR1   GO IF YES
00235         JSR     PRMT1A  PROMPT FOR CORRECT DISK
00236         LDX     #124    SET X-LOCATION
00237         STX     XCURS
00238         LDX     #176    SET Y-LOCATION
00239         STX     YCURS
00240         LDX     #1      SET PAGE #1
00241         PSHU    X
00242         JSR     DOTF    TYPE PAGE NUMBER TO SCREEN
00243 OSCR1   JSR     PRMT2B  TYPE "PRESS ANY KEY" PROMPT
00244         JSR     KEY     WAIT FOR KEYPRESS
00245         PULU    X       CLEAN U-STACK
00246         PULS    X
00247         RTS
00248 AN1     FDB     6
00249 AM1     FCC     'READER'
00250 AN2     FDB     20
00251 AM2     FCC     'Copyright  (c)  1991'
00252 AN3     FDB     20
00253 AM3     FCC     'by  M. David Johnson'
00254 AN4     FDB     12
00255 AM4     FCC     'BDS Software'
00256 AN5     FDB     12
00257 AM5     FCC     'P.O. Box 485'
00258 AN6     FDB     24
00259 AM6     FCC     'Glenview, IL  60025-0485'
00260 AN7     FDB     64
00261 AM7     FCC     'You may make as many copies of this program as you wish f
or your'
00262 AN8     FDB     64
00263 AM8     FCC     'own use,  but you may not sell or give away any copies to
 anyone'
00264 AN9     FDB     5
00265 AM9     FCC     'else.'
00266 ANA     FDB     22
00267 AMA     FCC     '"Thou shalt not steal"'
00268 ANB     FDB     12
00269 AMB     FCC     'Exodus 20:15'
00270 ZEND    NOP
00271         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
