home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG035.ARK / OBJNULL.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  863b  |  28 lines
  1. OBJW    EQU    5009H
  2.     ORG    52DAH
  3. * THIS ROUTINE USES A ROUTINE CALLED "OBALLW" (SEE BELOW) TO MAKE
  4. * ALL THE FELIX OBJECTS NULL.  IN OTHER WORDS, THE COLOR AND ORIENTATION
  5. * ARE ZERO-ED OUT AND FF-80 IS STORED AS THE FIRST X-Y COORDINATE PAIR,
  6. * THUS MARKING THE OBJECT HAS HAVING NO EXISTANCE.
  7. OBJNULL: PUSH    D ! PUSH PSW
  8.     MVI    E,4    ;1ST X-COORD TO BE
  9.     MVI    A,0FFH    ;SPECIAL CODE MARKER
  10.     CALL    OBALLW    ;FOR ALL OBJECTS
  11.     INR    E    ;SPECIAL CODE TO BE
  12.     MVI    A,80H    ;END-OF-OBJECT
  13.     CALL    OBALLW    ;FOR ALL OBJECTS
  14.     XRA    A    ;COLOR => BLACK
  15.     MOV    E,A
  16.     CALL    OBALLW
  17.     INR    E    ;ZERO ORIENTAITON (NO SPIN)
  18.     CALL    OBALLW    ;FOR ALL OBJECTS
  19.     POP    PSW    ! POP D
  20.     RET
  21. * THIS ROUTINE PUTS THE DESIRED VALUE (A) INTO THE DESIRED BYTE (E)
  22. * OF EACH OF THE 16 LEGAL OBJECTS (0-15)
  23. OBALLW:    MVI    D,15    ;OBJECTS 0-15
  24. OWLOOP:    CALL    OBJW    ;WRITE DESIRED BYTE
  25.     DCR    D
  26.     JNC    OWLOOP    ;NEXT OBJECT
  27.     RET
  28.