v     ax,_display_buf         ;from monitor_type()
        mov     es,ax
 
        mov     di,6[bp]                ;starting position
        mov     cx,8[bp]                ;number of characters
 
        mov     dx,12[bp]               ;attribute buffer
        add     dx,10[bp]               ;plus default attribute position
        call    wrattr                  ;get starting attribute
 
        mov     bx,14[bp]               ;load translation table
 
        mov     si,4[bp]                ;point to buffer start
        add     si,di                   ;point to start position
        mov     dx,12[bp]               ;attribute buffer
        add     dx,di                   ;plus start position
 
        sal     di,1                    ;get video display position
 
wrloop: push    si