home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / modems / modem / altosini.asm < prev    next >
Encoding:
Assembly Source File  |  1984-11-10  |  1.5 KB  |  82 lines
  1. ; THIS CODE WILL INIT THE ALTOS SIO FOR USE WITH MODEM
  2. ;
  3. ; SET BAUD RATE ON CTC PORT OEH
  4.     MVI    A,07    ;GET ITS ATTENTION
  5.     OUT    0EH    ;CTC BAUD RATE GENERATOR ON 8000-2D
  6.     MVI    A,34H    ;SET TO 300 BAUD
  7.     OUT    0EH
  8. ; ON 8000-2D REGISTER 1FH IS STATUS PORT FOR PRINTER ONE
  9. ; GET WRITE REGISTER 1
  10.     MVI    A,01
  11.     OUT    1FH
  12. ; DISABLE INTERRUPTS
  13.     XRA    A
  14.     OUT    1FH
  15. ; GO FOR WRITE REGISTER 0
  16.     MVI    A,04
  17.     OUT    1FH
  18. ; SET X16 CLOCK AND NO PARITY 1 STOP BIT
  19.     MVI    A,44H
  20.     OUT    1FH
  21. ; GO FOR WRITE REGISTER 3
  22.     MVI    A,03
  23.     OUT    1FH
  24. ; SET FOR RECEIVE 8 BIT DATA
  25.     MVI    A,0C1H
  26.     OUT    1FH
  27. ; GO WRITE REGISTER 5
  28.     MVI    A,05
  29.     OUT    1FH
  30. ; SET FOR DTR,TX 8 BIT DATA, TX ENABLE, RTS
  31.     MVI    A,0EAH
  32.     OUT    1FH
  33. ;
  34.     RET
  35. ; THE NEXT CODE SEGMENT JUST RESETS PRINTER PORT TO 1200 BAUD
  36. ;  AND USES THE SAME CONFIGURATION AS A MODEM
  37. ; IT WORKS FINE WITH MY NEC
  38. ;
  39. ; SET BAUD RATE ON CTC PORT OEH
  40.     MVI    A,07
  41.     OUT    0EH
  42.     MVI    A,0DH
  43.     OUT    0EH
  44. ; 
  45.     MVI    A,01
  46.     OUT    1FH
  47.     XRA    A
  48.     OUT    1FH
  49. ; GO FOR WRITE REGISTER 0
  50.     MVI    A,04
  51.     OUT    1FH
  52. ; SET X16 CLOCK AND NO PARITY 1 STOP BIT
  53.     MVI    A,44H
  54.     OUT    1FH
  55. ; GO FOR WRITE REGISTER 3
  56.     MVI    A,03
  57.     OUT    1FH
  58. ; SET FOR RECEIVE 8 BIT DATA
  59.     MVI    A,0C1H
  60.     OUT    1FH
  61. ; GO WRITE REGISTER 5
  62.     MVI    A,05
  63.     OUT    1FH
  64. ; SET FOR DTR,TX 8 BIT DATA, TX ENABLE, RTS
  65.     MVI    A,0EAH
  66.     OUT    1FH
  67. ;
  68.     RET
  69. ;
  70. ;I PUT THIS CODE IN MODEM AND IT WORKS GREAT
  71. ; THE RESET TO 1200 IS AT THE DISCONN ROUTINE
  72. ; I MADE AN ALTOS INIT EQU TO KEEP FROM GETTING
  73. ; TANGLED IN CODE.
  74. ; THANKS FOR YOUR HELP
  75. ; MIKE BARRETT
  76. ; 5713 CATOCTIN OVERLOOK DR
  77. ; MT. AIRY, MD 21771
  78. ; 301-831-6510
  79. ; 202-624-4975 (WORK)
  80. ; SOURCE ID - ST0254
  81. ; COMPU-SERV - 71435,1547
  82. ;