home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / bin / z80mu310.arc / 820INIT.CTL < prev    next >
Text File  |  1985-11-24  |  3KB  |  141 lines
  1. 0000LIOPORT00H
  2. 0005LBDOS
  3. 0006LIOPORT06H
  4. 0100I
  5. 0100LSTARTUP
  6. 0100CGive intro screen
  7. 0106LGET_BAUD_RATE
  8. 0106CAsk for baudrate value
  9. 010FCRETURN only?
  10. 0111CNo, look at keypress
  11. 0114CYes, use default value
  12. 0116LEDIT_BAUD_RATE
  13. 0116CMake into binary 0-9
  14. 0118CLegal choice?
  15. 011ACNo, try again
  16. 011FCLikewise no, try again
  17. 0122CYes, save it as binary value
  18. 0125LGET_PARITY_CHOICE
  19. 0125CGive him parity choices
  20. 012BCGet his response
  21. 012ECRETURN only?
  22. 0130CNo, edit it
  23. 0133CYes, use default
  24. 0135LEDIT_PARITY_VALUE
  25. 0135CEven parity?
  26. 0137CYes, legal
  27. 013ACOdd parity?
  28. 013CCYes, legal
  29. 013FCNo parity?
  30. 0141CYes, legal
  31. 0144CNot legal, so ask again
  32. 0147LPARITY_IS_LEGAL
  33. 0147CSave parity selection as ASCII
  34. 014ALGET_DATABITS_CHOICE
  35. 014ACGive Databits prompt
  36. 0150CGet response
  37. 0153CRETURN only?
  38. 0155CNo, use it
  39. 0158CYes, use default
  40. 015ALEDIT_DATABITS_VALUE
  41. 015ACMake into binary 0 thru 8
  42. 015CCLegal choice?
  43. 015ECYes, use it
  44. 0163CYes, use it
  45. 0166CNo, try again
  46. 0169LDATABITS_ARE_LEGAL
  47. 0169CSave binary databits value
  48. 016CC\nNow convert baudrate choice to binary timer value
  49. 016FC19.2 Kbaud?
  50. 0171CNo
  51. 0174CYes, use timer value for 19.2 Kbaud
  52. 0179LTRY_9600_BAUD
  53. 0179C9600 baud?
  54. 017BCNo
  55. 017ECYes, use timer value for 9600 baud
  56. 0183LTRY_4800_BAUD
  57. 0183C4800 baud?
  58. 0185CNo
  59. 0188CYes, use timer value for 4800 baud
  60. 018DLTRY_2400_BAUD
  61. 018DC2400 baud?
  62. 018FCNo
  63. 0192CYes, use timer value for 2400 baud
  64. 0197LTRY_1200_BAUD
  65. 0197C1200 baud?
  66. 0199CNo
  67. 019CCYes, use value for 1200 baud
  68. 01A1LTRY_600_BAUD
  69. 01A1C600 baud?
  70. 01A3CNo
  71. 01A6CYes, use timer value for 600 baud
  72. 01ABLTRY_300_BAUD
  73. 01ABC300 baud?
  74. 01B0CYes, use timer value for 300 baud
  75. 01B5LASSUME_110_BAUD
  76. 01B5CUse timer value for 110 baud
  77. 01B7LDONE_EDITING_BAUD
  78. 01B7CSave final timer value for baudrate
  79. 01BAC\nNow convert parity selection to proper control bits
  80. 01BDCEven parity?
  81. 01BFCNo
  82. 01C2CYes, use bit pattern for Even parity
  83. 01C7LTRY_ODD_PARITY
  84. 01C7COdd parity?
  85. 01C9CNo
  86. 01CCCYes, use bit pattern for Odd parity
  87. 01D1LASSUME_NO_PARITY
  88. 01D1CUse bit pattern for No parity
  89. 01D3LHAVE_GOOD_PARITY_BITMAP
  90. 01D3CSave final SIO parity bitmap
  91. 01D6C\nEdit databits (binary 7 or 8) \nto create proper SIO bit pattern
  92. 01D9C7 data bits?
  93. 01DBCYes
  94. 01DECNo, use SIO WR5 pattern for 8 TX databits
  95. 01E0CSave to be passed to SIO Write Reg 5
  96. 01E3CFormat 8 Rx databits for SIO Write Reg 3
  97. 01EBLSET_7_DATABIT_PATTERN
  98. 01EBCSet bit pattern for 7 Tx bits
  99. 01F0CDitto for 7 Rx data bits
  100. 01F5LSEND_ALL_TO_SIO
  101. 01F5C\nOK, so send everything to SIO
  102. 01F6CReset SIO
  103. 01FCCSelect SIO Write Reg 1
  104. 0200CNo SIO interrupts
  105. 0203CSelect SIO Write Reg 4
  106. 0207CGet parity bit pattern
  107. 020ACAdd 'Clock x 16' and '1 stop bit' pattern
  108. 020ECSelect SIO Write Reg 3
  109. 0215CEnable Receiver
  110. 0219CSelect SIO Write Reg 5
  111. 0220CAdd 'DTR' and 'Tx Enable' and 'RTS'
  112. 0224CReset Baud Rate generator
  113. 0228CSet our Baud Rate timer value
  114. 022ECTell him that we're done
  115. 0234CBack to CP/M
  116. 0235I
  117. 0235LGET_BDOS_KEYPRESS
  118. 0235C\nReturn next keypress as Uppercase char in A-reg
  119. 0237CUse BDOS to get next keypress
  120. 023ACIs it lowercase char?
  121. 023CCNo, return it as-is
  122. 023DCYes, convert to uppercase
  123. 0240I
  124. 0240LPRINT_STRING
  125. 0240C\nPrint $-terminated string at (DE)
  126. 0245B
  127. 0245LINIT_MSG
  128. 02C8LBAUD_PROMPT
  129. 02EFLPARITY_PROMPT
  130. 0316LDATABITS_PROMPT
  131. 033DLWRAPUP_MSG
  132. 0358B
  133. 0358LBAUD_RATE
  134. 0359B
  135. 0359LDATABITS
  136. 035AB
  137. 035ALPARITY_CHOICE
  138. 035BLSIO_WR5_TX_BITS
  139. 035CLSIO_WR3_RX_BITS
  140. *
  141.