Return to corgraph.asm CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/corgraph.asm, Revision 1.1.1.1

1.1       maekawa     1: TITLE  Corona graphics module
                      2: ;      Colin Kelley
                      3: ;      January 1987
                      4:
                      5: include header.mac
                      6:
                      7: if1
                      8: include lineproc.mac
                      9: endif
                     10:
                     11:
                     12: _text  segment
                     13:
                     14: public _GrInit,_GrReset,_GrOnly,_TxOnly,_GrandTx,_Cor_line,_Cor_mask
                     15:
                     16: corpixel proc near
                     17:        ror word ptr linemask,1
                     18:        jc cont
                     19:        ret
                     20: cont:  push bp
                     21:        mov bp,sp
                     22:        push ax
                     23:        push bx
                     24:        push cx
                     25:        mov es,ScSeg
                     26:        shl bx,1                        ; y
                     27:        mov bx,word ptr LookUp[bx] ; bx has y mem address
                     28:        mov cl,al                       ; x
                     29:        and cl,7
                     30:        shr ax,1
                     31:        shr ax,1
                     32:        shr ax,1                        ; ax /= 8
                     33:        add bx,ax
                     34:        mov al,1
                     35:        shl al,cl                       ; al contains bit mask
                     36:        or byte ptr es:[bx],al
                     37:        pop cx
                     38:        pop bx
                     39:        pop ax
                     40:        pop bp
                     41:        ret
                     42:
                     43: lineproc _Cor_line, corpixel
                     44:
                     45: beginproc _GrInit
                     46:        push bp
                     47:        mov bp,sp
                     48:        push di
                     49:        mov ax, [bp+X]                  ; screen number (0 - 7)
                     50:        mov cl,11
                     51:        shl ax,cl                       ; multiply by 2048 to get segment
                     52:        mov ScSeg,ax                    ; save segment for later
                     53:        push ax
                     54:        mov es, ax
                     55:        xor ax,ax
                     56:        mov di,ax
                     57:        mov cx, 4000h
                     58:        cld
                     59:        rep stosw
                     60:        pop cx
                     61:        call near ptr GrAddr
                     62:        mov ax,es
                     63:        pop di
                     64:        pop bp
                     65:        ret
                     66: _GrInit        endp
                     67:
                     68: beginproc _GrReset
                     69:        mov cx, 0
                     70:        call near ptr GrAddr
                     71:        ret
                     72: _GrReset endp
                     73:
                     74: GrAddr proc near
                     75:        mov dx,3b4h                     ; address of 6845
                     76:        mov al,0ch                      ; register 12
                     77:        out dx,al
                     78:        inc dx
                     79:        mov al,ch                       ; Graphics Segment High
                     80:        out dx,al
                     81:        dec dx
                     82:        mov al,0dh                      ; register 13
                     83:        out dx,al
                     84:        mov al,cl                       ; Graphics Segment Low
                     85:        inc dx
                     86:        out dx,al
                     87:        ret
                     88: GrAddr endp
                     89:
                     90: beginproc _GrOnly
                     91:        mov dx,3b8h
                     92:        mov al,0a0h
                     93:        out dx,al
                     94:        ret
                     95: _GrOnly        endp
                     96:
                     97: beginproc _TxOnly
                     98:        mov dx,3b8h
                     99:        mov al,28h
                    100:        out dx,al
                    101:        ret
                    102: _TxOnly        endp
                    103:
                    104: beginproc _GrandTx
                    105:        mov dx,3b8h
                    106:        mov al,0a8h
                    107:        out dx,al
                    108:        ret
                    109: _GrandTx endp
                    110:
                    111: beginproc _Cor_mask
                    112:        push bp
                    113:        mov bp,sp
                    114:        mov ax,[bp+x]                   ; mask
                    115:        mov linemask,ax
                    116:        pop bp
                    117:        ret
                    118: _Cor_mask endp
                    119:
                    120: corpixel endp
                    121:
                    122: _text  ends
                    123:
                    124:
                    125: _data  segment
                    126: linemask dw -1
                    127: ScSeg  dw 0
                    128: _data  ends
                    129:
                    130: const  segment
                    131:
                    132: K      equ 1024
                    133:
                    134: mem_mac        MACRO x
                    135:        dw x,2*K+x,4*K+x,6*K+x,8*K+x,10*K+x,12*K+x,14*K+x,16*K+x
                    136:        dw 18*K+x,20*K+x,22*K+x,24*K+x
                    137:        ENDM
                    138: LookUp equ $
                    139:        mem_mac 0
                    140:        mem_mac 80
                    141:        mem_mac (80*2)
                    142:        mem_mac (80*3)
                    143:        mem_mac (80*4)
                    144:        mem_mac (80*5)
                    145:        mem_mac (80*6)
                    146:        mem_mac (80*7)
                    147:        mem_mac (80*8)
                    148:        mem_mac (80*9)
                    149:        mem_mac (80*10)
                    150:        mem_mac (80*11)
                    151:        mem_mac (80*12)
                    152:        mem_mac (80*13)
                    153:        mem_mac (80*14)
                    154:        mem_mac (80*15)
                    155:        mem_mac (80*16)
                    156:        mem_mac (80*17)
                    157:        mem_mac (80*18)
                    158:        mem_mac (80*19)
                    159:        mem_mac (80*20)
                    160:        mem_mac (80*21)
                    161:        mem_mac (80*22)
                    162:        mem_mac (80*23)
                    163:        mem_mac (80*24)
                    164:
                    165: const  ends
                    166:
                    167:        end