home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / tbsource.lha / TBSource / NBBS / SetProg / SPSetSer.bak < prev    next >
Text File  |  1993-12-21  |  2KB  |  72 lines
  1.  
  2. SetSer:        lea.l    StopB1Gad(pc),a0
  3.         move.w    $c(a0),a0
  4.         cmp.w    #$86,a0
  5.         bne    SSStopB2
  6.         move.b    #$01,SerStopBits
  7.         jmp    SetSer2
  8. SSStopB2:    move.b    #$02,SerStopBits
  9. SetSer2:    lea.l    DataB7Gad(pc),a0
  10.         move.w    $c(a0),a0
  11.         cmp.w    #$86,a0
  12.         bne    SSDataB8
  13.         move.b    #$07,SerDataBits
  14.         jmp    SetSer3
  15. SSDataB8:    move.b    #$08,SerDataBits
  16. SetSer3:    bclr.b    #SERB_PARTY_ON,SerFlags
  17.         bclr.b    #SERB_PARTY_ODD,SerFlags
  18.         bclr.b    #SEXTB_MSPON,SerExtFlags+3
  19.         bclr.b    #SEXTB_MARK,SerExtFlags+3
  20.         lea.l    ParityNGad(pc),a0
  21.         move.w    $c(a0),a0
  22.         cmp.w    #$86,a0
  23.         bne    SSParityE
  24.         jmp    SetSer4
  25. SSParityE:    lea.l    ParityEGad(pc),a0
  26.         move.w    $c(a0),a0
  27.         cmp.w    #$86,a0
  28.         bne    SSParityO
  29.         bset.b    #SERB_PARTY_ON,SerFlags
  30.         jmp    SetSer4
  31. SSParityO:    lea.l    ParityOGad(pc),a0
  32.         move.w    $c(a0),a0
  33.         cmp.w    #$86,a0
  34.         bne    SSParityM
  35.         bset.b    #SERB_PARTY_ON,SerFlags
  36.         bset.b    #SERB_PARTY_ODD,SerFlags
  37.         jmp    SetSer4
  38. SSParityM:    lea.l    ParityMGad(pc),a0
  39.         move.w    $c(a0),a0
  40.         cmp.w    #$86,a0
  41.         bne    SSParityS
  42.         bset.b    #SERB_PARTY_ON,SerFlags
  43.         bset.b    #SEXTB_MSPON,SerExtFlags+3
  44.         jmp    SetSer4
  45. SSParityS:    bset.b    #SERB_PARTY_ON,SerFlags
  46.         bset.b    #SEXTB_MSPON,SerExtFlags+3
  47.         bset.b    #SEXTB_MARK,SerFlags+3
  48.         jmp    SetSer4
  49. SetSer4:    bset.b    #SERB_XDISABLED,SerFlags    
  50.         lea.l    XONXOFFGad(pc),a0
  51.         move.w    $c(a0),a0
  52.         cmp.w    #$86,a0
  53.         bne    SetSer5
  54.         bclr.b    #SERB_XDISABLED,SerFlags
  55. SetSer5:    lea.l    DuplexFGad(pc),a0
  56.         move.w    $c(a0),a0
  57.         cmp.w    #$86,a0
  58.         bne    SSDuplexH
  59.         move.b    #$00,SerDuplex
  60.         jmp    SetSer6
  61. SSDuplexH:    lea.l    DuplexHGad(pc),a0
  62.         move.w    $c(a0),a0
  63.         cmp.w    #$86,a0
  64.         bne    SSDuplexE
  65.         move.b    #$01,SerDuplex
  66.         jmp    SetSer6
  67. SSDuplexE:    move.b    #$02,SerDuplex
  68. SetSer6:    move.l    SerUnitLInt(pc),SerUnit
  69.         move.l    UserFontSizeLInt(pc),UserFontSize
  70.         move.l    SerBRKTLInt(pc),SerBRKT
  71.         rts
  72.