home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CRT8.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  3KB  |  106 lines
  1.     page    66,132
  2. ;******************************** CRT8.ASM   *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include     common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    lib_info:byte
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  16. DISK_TO_CRT - loads a screen image file saved by CRT_TO_DISK
  17. ;
  18. ; inputs:    DS:[DX] = address of ASCIIZ filename
  19. ; 
  20. ; outputs:   if CF = 1, AX = MS-DOS file I/O error code
  21. ;            if CF = 0, no error
  22. ;            registers modified = AX            
  23. ;
  24. ;notes:     The input file is assumed to be closed when DISK_TO_CRT is
  25. ;           called, and is left closed upon exit.
  26. ;* * * * * * * * * * * * * *
  27. 
  28.     public    disk_to_crt
  29. DISK_TO_CRT    PROC    FAR
  30.     MOV     AH,01
  31.     JMP     ctd_entry
  32. DISK_TO_CRT    ENDP
  33. comment 
  34. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  35. CRT_TO_DISK - saves a screen image as a file
  36. ;
  37. ; inputs:    DS:[DX] = address of ASCIIZ filename
  38. ; 
  39. ; outputs:   if CF = 1, AX = MS-DOS file I/O error code
  40. ;            if CF = 0, no error
  41. ;            registers modified = AX
  42. ;* * * * * * * * * * * * * *
  43. 
  44.     public    crt_to_disk
  45. CRT_TO_DISK    PROC    FAR
  46.     MOV     AH,00
  47. ctd_entry:
  48.     PUSHF
  49.     PUSH    BP
  50.     MOV     BP,SP
  51.     SUB     SP,+02
  52.     APUSH   BX,CX,DX,SI,DS,ES,DX
  53.     MOV     [BP-02],AH
  54.     mov     al,cs:lib_info.crt_rows
  55.     mov     ch,cs:lib_info.crt_columns
  56. ;;    call    DISPLAY_PARMS ;out: al=rows ch=columns bx:si=crt buf  dx=cga port
  57.     MUL     CH
  58.     SHL     AX,1
  59.     POP     DX
  60.     PUSH    AX
  61.     XOR     CX,CX
  62.     MOV     AX,3C00h
  63.     ADD     AH,[BP-02]
  64.     INT     21h            ;create file ds:dx using attribute (cx)
  65.     POP     CX
  66.     mov     ds,cs:lib_info.crt_seg
  67.     JB        ctd_exit
  68.     MOV     BX,AX
  69.     MOV     DX,0        ;assume display offset is zero (page 0)
  70.     MOV     AH,40h
  71.     SUB     AH,[BP-02]
  72.     INT     21h            ;write to file bx=handle cx=len ds:dx=data
  73.     JB      CTD_CONT
  74.     CMP     AX,CX
  75.     JZ      CTD_01
  76. CTD_CONT:
  77.     PUSH    AX
  78.     MOV     AH,3Eh
  79.     INT     21h            ;close file handle (bx)
  80.     POP     AX
  81.     STC
  82.     JMP     ctd_exit
  83.  
  84. CTD_01:    
  85.     MOV     AH,3Eh
  86.     INT     21h            ;close file handle (bx)
  87.     JB      ctd_exit
  88.     CLC
  89. ctd_exit:
  90.     APOP    ES,DS,SI,DX,CX,BX
  91.     MOV     SP,BP
  92.     POP     BP
  93.     JB      ctd_exit2
  94.     POPF
  95.     CLC
  96.     RETF
  97. ctd_exit2:
  98.     POPF
  99.     STC
  100.     RETF
  101. CRT_TO_DISK    ENDP
  102.  
  103.  
  104. LIBSEG    ENDS
  105.     end
  106.