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 / FCBNEW.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  622b  |  28 lines
  1.     ORG    5520H
  2. * THIS ROUTINE COPIES THE FCB POINTED TO BY HL TO THE ONE POINTED TO
  3. * BY DE
  4. FCBMOV:    PUSH    B ! PUSH D ! PUSH H
  5.     MVI    B,33    ;33 BYTES/FCB
  6. FMLOOP:    MOV    A,M    ;GET BYTE
  7.     STAX    D    ;COPY IT
  8.     INX    H ! INX D
  9.     DCR    B
  10.     JNZ    FMLOOP    ;JUMP IF MORE BYTES TO COPY
  11.     POP    H ! POP D ! POP B
  12.     RET
  13. ;11 JULY 79 / MOSHELL
  14. ; ROUTINES TO TURN ON AND OFF THE DISPLAY.
  15. ;
  16. ONBUF    EQU    5090H
  17.     ORG    5600H
  18. DISPOFF:SUB    A
  19.     OUT    0EH    ;TURN OFF DAZZLER.
  20.     RET
  21. DISPON:    LDA    ONBUF+1    ;GET HIGH PART OF BUFFER ADDRESS.
  22.     STC
  23.     RAR        ;BUILD DAZZ COMMAND WORD:HI-BIT
  24.     OUT    0EH    ;SET TURNS ON DAZZLER.
  25.     MVI    A,30H    ; SELECT 64X64 COLOR.
  26.     OUT    0FH
  27.     RET
  28.