;
;         "macros_t007.txt" ;    ()
;
 ptints macro name,frame ;;   /   
    mov r0,#frame  ;;      
    mov r3,#low(name)
    mov r4,#high(name)
   lcall prints_1
  endm
;----------------------------------------------------------------------
 printb macro frame ;;   /   
    mov r0,#frame  ;;        
   lcall printb_1
  endm
;----------------------------------------------------------------------
 sdptr macro numb ;;    DPTR
    mov AUXR1,#numb
  endm
;----------------------------------------------------------------------
 lo_sbuf macro nstr ;;      
     push DPL
     push DPH
     ; mov AUXR1,#1
     mov dptr,#nstr
     lcall l40 ;; l40    "wh1602.txt"
     pop DPH
     pop DPL
    endm
;----------------------------------------------------------------------