home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / intel8051 / i51sprm.asm < prev    next >
Assembly Source File  |  2020-01-01  |  1KB  |  82 lines
  1. ; default parameters:
  2. D_maxl    equ    80    ; 80 bytes
  3. D_time    equ    10    ; 10 seconds
  4. D_npad    equ    0    ; none
  5. D_padc    equ    0    ; nul
  6. D_eol    equ    13    ; cr terminator
  7. D_qctl    equ    '#'    ; literal
  8. D_qbin    equ    'N'    ; No 8 bit prefix
  9. D_chkt    equ    '1'    ; normal 6 bit checksum
  10.  
  11. ; this routine creates a data string as well as a parameter table
  12. set_parms:
  13.     mov    dptr,#GDA
  14.     mov    p2,#high param
  15.     mov    r0,#low param
  16.     clr    a
  17.     movx    @dptr,a        ; D = ""
  18. ;1
  19.     mov    a,#D_maxl
  20.     movx    @r0,a
  21.     inc    r0
  22.     tochar
  23.     movx    @dptr,a
  24.     inc    dptr
  25. ;2
  26.     mov    a,#D_time
  27.     movx    @r0,a
  28.     inc    r0
  29.     tochar
  30.     movx    @dptr,a
  31.     inc    dptr
  32. ;3
  33.     mov    a,#D_npad
  34.     movx    @r0,a
  35.     inc    r0
  36.     tochar
  37.     movx    @dptr,a
  38.     inc    dptr
  39. ;4
  40.     mov    a,#D_padc
  41.     movx    @r0,a
  42.     inc    r0
  43.     tuctl
  44.     movx    @dptr,a
  45.     inc    dptr
  46. ;5
  47.     mov    a,#D_eol
  48.     movx    @r0,a
  49.     inc    r0
  50.     tochar
  51.     movx    @dptr,a
  52.     inc    dptr
  53. ;6
  54.     mov    a,#D_qctl
  55.     movx    @r0,a
  56.     inc    r0
  57.     movx    @dptr,a
  58.     inc    dptr
  59. ;7
  60.     mov    a,#D_qbin
  61.     movx    @r0,a
  62.     inc    r0
  63.     movx    @dptr,a
  64.     inc    dptr
  65. ;8
  66.     mov    a,#D_chkt
  67.     movx    @r0,a
  68.     inc    r0
  69.     movx    @dptr,a
  70.     inc    dptr
  71. ;
  72.     clr    a
  73.     movx    @dptr,a        ; string terminator
  74.  
  75.     jnb    parms,no_change
  76. ; insert user interface here
  77.  
  78.  
  79. no_change:
  80.     ret
  81. 
  82.