home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / intel8051 / i51ncod.asm < prev    next >
Assembly Source File  |  2020-01-01  |  862b  |  35 lines
  1. ; encode the character A into the global data array P2/R0
  2. ; r0 is size pointer
  3. ; 
  4. encode:    mov    r4,a        ; store char
  5.     mov    dptr,#param + P_qctl
  6.     movx    a,@dptr        ; get Qctl from parameter table
  7.     mov    r2,a        ; r2 has control prefix to use
  8.     mov    a,r4        ; get char
  9.     anl    a,#127        ; mask out hi bit
  10.     mov    r1,a        ; A7
  11.     cjne    r1,#32,ncod1    ; if A7 < 32 ?
  12.     sjmp    ncod2        ; is equal
  13. ncod1:    jc    ncod3        ; is less
  14. ncod2:    cjne    r1,#127,ncod4    ; or A7 = 127 ?
  15. ncod3:    mov    a,r2        ; get quote
  16.     movx    @r0,a        ; insert control quote
  17.     inc    r0        ; size++
  18.     mov    a,r4        ; get char
  19.     tuctl            ; + 32
  20.     mov    r4,a        ; store char
  21.     sjmp    ncod5        ; done
  22. ncod4:    mov    a,r1        ; get A7
  23.     cjne    a,2,ncod5    ; if char = control prefix
  24.     mov    a,r2        ; get quote
  25.     movx    @r0,a        ; insert control quote
  26.     inc    r0        ; size++
  27. ncod5:    mov    a,r4        ; get char
  28.     movx    @r0,a        ; insert character
  29.     inc    r0        ; size++
  30.     clr    a        
  31.     movx    @r0,a        ; terminate string
  32.     ret
  33. ;
  34.  
  35.