00001 *************************
00002 *
00003 * SCRDVD.ASM
00004 * MDJ 01-17-91
00005 *
00006 * PUTS THE SCREEN DIVIDER
00007 * ON THE SCREEN
00008 *
00009 *************************
00010 *
00011 LINE    EQU     $3EB5
00012         ORG     $5400
00013 SCRDVD  PSHS    A,B,X,Y
00014         LDX     #0      STARTING X-COORDINATE
00015         LDY     #255    ENDING X-COORDINATE
00016         LDD     #130    FIRST Y-COORDINATE
00017 SCDD1   PSHU    A,B     ENDING Y TO U-STACK
00018         PSHU    Y       ENDING X TO U-STACK
00019         PSHU    A,B     STARTING Y TO U-STACK
00020         PSHU    X       STARTING X TO U-STACK
00021         JSR     LINE    GO DRAW LINE
00022         ADDD    #1      INCREMENT Y-COORDINATE
00023         CMPD    #134    DONE?
00024         BLO     SCDD1   GO IF NO
00025         PULS    A,B,X,Y
00026 ZEND    RTS
00027         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
