home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / text / examples.arc / REMOTE.A < prev    next >
Encoding:
Text File  |  1989-12-01  |  1.6 KB  |  66 lines
  1. ;remote.a
  2. ;==========================================================================
  3. ; Remote keyboard ON/OFF for CS-DOS                 (C)1988 - Ampere Metal
  4. ;==========================================================================
  5.  
  6.             INCLUDE csdos.i
  7.  
  8. remote      =   $1bc2
  9.  
  10. primm       =   $ff7d
  11.  
  12. star        =   $0b00
  13.             .wor star
  14.             *   = star
  15.  
  16.  
  17.             ldx #1
  18.             jsr int04
  19.             bcc rm0
  20. usage       jsr primm
  21.             .asc 13,"Usage:   remote BaudRate",13
  22.             .asc "   or,   remote off",13
  23.             .asc 13,"Purpose: accepts RS232 input as keyboard input",13,0
  24.             lda #1
  25.             jmp int0e
  26.  
  27. rm0         cmp #"o"
  28.             bne rm1
  29.             jsr int05
  30.             cmp #"f"
  31.             bne usage
  32.             jsr int05
  33.             cmp #"f"
  34.             bne usage
  35.             jsr int05
  36.             bcc usage
  37.             ldy #Rs232off
  38.             jsr int21
  39.             lda #0                  ;Kill remote
  40.             sta remote
  41.             jmp int0e
  42.  
  43. rm1         jsr int11
  44.             bcc rm4
  45.             jmp usage
  46.  
  47. rm4         ldy #SetBaud
  48.             jsr int21
  49.             bcc rm2
  50.             jsr primm
  51.             .asc 13,"Illegal baud rate. Must be 3,12,24,48 or 9600",13,0
  52.             lda #4
  53.             jmp int0e
  54.  
  55. rm2         ldy #Clear
  56.             jsr int21
  57.             ldy #Rs232on
  58.             jsr int21
  59.             lda remote              ;Enable Remote
  60.             ora #$80
  61.             sta remote
  62.             lda #0
  63.             jmp int0e
  64.  
  65.             .end
  66.