home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CRT7.ASM < prev    next >
Assembly Source File  |  1994-11-15  |  4KB  |  170 lines
  1.     page    66,132
  2. ;******************************** CRT7.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    POSN_TO_ADR:NEAR
  14.     EXTRN    MEM_ALLOCATE:FAR
  15.     EXTRN    MEM_PUT:FAR
  16.     EXTRN    MEM_GET:FAR
  17.     EXTRN    MEM_RELEASE:FAR
  18.     EXTRN    LIB_INFO:BYTE
  19. comment 
  20. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  21. save_window - save area of display in memory buffer
  22. ;
  23. ; inputs: dx=box left corner (dh=row,dl=column)
  24. ;         bh=rows in window
  25. ;      bl=columns in window
  26. ;      
  27. ; output: carry set if error
  28. ; 
  29. ; processing: save up to three window areas which can be restored
  30. ;           with restore_window.  The memory manager is called
  31. ;           to allocate room to store windows saved.
  32. ;* * * * * * * * * * * * * *
  33. 
  34. sav_struc    struc
  35.  sw_handle        dw    ?    ;seg of allocated memory
  36.  sw_di_sav    dw    ?    ;display starting offset
  37.  sw_bx_sav    dw    ?    ;bh=rows bl=columns
  38. sav_struc    ends
  39.  
  40. sw_saved_cnt    dw    0    ;number of windows saved
  41.  
  42. sw_sav1        sav_struc<>
  43.         sav_struc<>
  44.         sav_struc<>
  45.         sav_struc<>
  46. ;--------------------------
  47.     public    save_window
  48. save_window    proc    far
  49.     apush    ax,bx,cx,dx,si,di,ds,es
  50.     call    posn_to_adr            ;compute display location
  51.     push    bx                ;save box rows/columns
  52.     mov    ax,bx
  53.     mul    ah                ;ax= # bytes in box
  54.     shl    ax,1                ;add in size of attributes
  55.     sub    dx,dx                ;setup for mem allocation
  56.     mov    bx,0                ;normal allocation
  57.     call    mem_allocate
  58.     mov    ax,bx                ;move handle to -ax-
  59.     jc    sw_exit                ;jmp if error
  60. ;
  61. ; compute location to store allocated seg
  62. ;
  63. sw_cont:
  64.     pop    bx                ;restore box rows & column cnt
  65.     mov    cx,cs:sw_saved_cnt
  66.     mov    si,offset sw_sav1
  67. sw_lookup:
  68.     jcxz    sw_skip                ;jmp if first entry
  69.     add    si,size sav_struc
  70.     loop    sw_lookup
  71. sw_skip:mov    word ptr cs:[si.sw_handle],ax    ;save segment allocated
  72.     mov    word ptr cs:[si.sw_bx_sav],bx    ;save box rows(bh) columns(bl)
  73.     mov    word ptr cs:[si.sw_di_sav],di    ;save display offset
  74.  
  75.     inc    cs:sw_saved_cnt
  76. ;
  77. ; es:di = display address   ax=allocated mem seg  bh=rows  bl=columns
  78. ;
  79.     sub    ax,ax
  80.     mov    al,cs:lib_info.crt_columns
  81.     shl    ax,1
  82.     
  83.     mov    dx,bx            ;dh=rows to save  dl=columns per row
  84.     mov    bp,es            ;bp=from seg (display)
  85.     mov    bx,cs:[si.sw_handle]    ;get to handle
  86.     mov    si,di            ;si=from offset (display)
  87.     mov    di,0            ;di=to index (offset)
  88. ;
  89. ; bp:si=from(display) di=to(index) cx=words  bx=handle
  90. ;
  91. sw_sav_lp:
  92.     sub    cx,cx
  93.     mov    cl,dl
  94.     call    mem_put
  95.     add    si,ax            ;move to next crt line
  96.     mov    cl,dl
  97.     shl    cx,1
  98.     add    di,cx            ;update -to- ptr
  99.     dec    dh
  100.     jnz    sw_sav_lp
  101.     clc
  102. sw_exit:apop    es,ds,di,si,dx,cx,bx,ax
  103.     retf
  104. save_window    endp
  105. comment 
  106. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  107. restore_window - restore a previously saved area of display
  108. ;
  109. ; inputs: none
  110. ; 
  111. ; output: carry set if error
  112. ;         all registers are saved
  113. ; 
  114. ; processing: restore uses information in save_window to restore the last
  115. ;           window saved.  Up to three windows can be saved and then
  116. ;           restored in reverse order.
  117. ;* * * * * * * * * * * * * *
  118. 
  119.     public    restore_window
  120. restore_window    proc    far
  121.     apush    ax,bx,cx,dx,si,di,ds,es
  122. ;
  123. ; compute location to restore from data saved by save_window
  124. ;
  125.     mov    cx,cs:sw_saved_cnt
  126.     jcxz    rw_abort            ;jmp if no windows saved
  127.     mov    si,offset sw_sav1
  128. rw_lookup:
  129.     add    si,size sav_struc
  130.     loop    rw_lookup
  131.     sub    si,size sav_struc
  132.     mov    dx,word ptr cs:[si.sw_bx_sav]    ;get box rows(bh) columns(bl)
  133.     mov    di,word ptr cs:[si.sw_di_sav]    ;get display offset
  134.     mov    bp,cs:lib_info.crt_seg
  135.     mov    bx,word ptr cs:[si.sw_handle]    ;get segment allocated
  136.     mov    si,0
  137.  
  138. ;
  139. ; bp:di = display address   si=index bx=handle   dh=rows  dl=columns
  140. ;
  141.     sub    ax,ax
  142.     mov    al,cs:lib_info.crt_columns
  143.     shl    ax,1                ;compute bytes on one crt row
  144. rw_sav_lp:
  145.     sub    cx,cx
  146.     mov    cl,dl
  147.     call    mem_get                ;restore window
  148.     add    di,ax                ;move to next crt line
  149.     mov    cl,dl
  150.     shl    cx,1
  151.     add    si,cx                ;move to next buffer index
  152.     dec    dh
  153.     jnz    rw_sav_lp
  154.  
  155.     call    mem_release
  156.  
  157. rw_cont:dec    cs:sw_saved_cnt
  158.     clc
  159.     jmp    rw_exit
  160. rw_abort:
  161.     stc
  162. rw_exit:        
  163.     apop    es,ds,di,si,dx,cx,bx,ax
  164.     retf
  165. restore_window    endp
  166. ;
  167.  
  168. LIBSEG    ENDS
  169.     end
  170.