home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / Z80_22.ZIP / 820INIT.ASM next >
Encoding:
Assembly Source File  |  1986-11-25  |  6.2 KB  |  314 lines
  1.  
  2.     .Z80        ;This source is for M80.COM!
  3.     ORG    00100H
  4.  
  5. ;
  6. ;    Equates for ASCII control chars
  7. ;
  8.  
  9. NUL    EQU    000H
  10. SOH    EQU    001H
  11. STX    EQU    002H
  12. ETX    EQU    003H
  13. EOT    EQU    004H
  14. ENQ    EQU    005H
  15. ACK    EQU    006H
  16. BEL    EQU    007H
  17. BS    EQU    008H
  18. TAB    EQU    009H
  19. LF    EQU    00AH
  20. VT    EQU    00BH
  21. FF    EQU    00CH
  22. CR    EQU    00DH
  23. SO    EQU    00EH
  24. SI    EQU    00FH
  25. DLE    EQU    010H
  26. XON    EQU    011H
  27. DC2    EQU    012H
  28. XOFF    EQU    013H
  29. DC4    EQU    014H
  30. NAK    EQU    015H
  31. SYN    EQU    016H
  32. ETB    EQU    017H
  33. CAN    EQU    018H
  34. EM    EQU    019H
  35. SUB    EQU    01AH
  36. ESC    EQU    01BH
  37. FS    EQU    01CH
  38. GS    EQU    01DH
  39. RS    EQU    01EH
  40. US    EQU    01FH
  41.  
  42. ;
  43. ;    External ref equates
  44. ;
  45.  
  46. IOPORT00H    EQU    00000H
  47. BDOS    EQU    00005H
  48. IOPORT06H    EQU    00006H
  49.  
  50. ;
  51. ;    End of external equates
  52. ;
  53.  
  54.  
  55. STARTUP:
  56.     LD    DE,INIT_MSG    ;Give intro screen
  57.     CALL    PRINT_STRING
  58.  
  59. GET_BAUD_RATE:
  60.     LD    DE,BAUD_PROMPT    ;Ask for baudrate value
  61.     CALL    PRINT_STRING
  62.     CALL    GET_BDOS_KEYPRESS
  63.     CP    CR        ;RETURN only?
  64.     JP    NZ,EDIT_BAUD_RATE ;No, look at keypress
  65.     LD    A,'6'        ;Yes, use default value
  66.  
  67. EDIT_BAUD_RATE:
  68.     SUB    '0'        ;Make into binary 0-9
  69.     CP    NUL        ;Legal choice?
  70.     JP    C,GET_BAUD_RATE    ;No, try again
  71.     CP    LF
  72.     JP    NC,GET_BAUD_RATE ;Likewise no, try again
  73.     LD    (BAUD_RATE),A    ;Yes, save it as binary value
  74.  
  75. GET_PARITY_CHOICE:
  76.     LD    DE,PARITY_PROMPT ;Give him parity choices
  77.     CALL    PRINT_STRING
  78.     CALL    GET_BDOS_KEYPRESS ;Get his response
  79.     CP    CR        ;RETURN only?
  80.     JP    NZ,EDIT_PARITY_VALUE ;No, edit it
  81.     LD    A,'N'        ;Yes, use default
  82.  
  83. EDIT_PARITY_VALUE:
  84.     CP    'E'        ;Even parity?
  85.     JP    Z,PARITY_IS_LEGAL ;Yes, legal
  86.     CP    'O'        ;Odd parity?
  87.     JP    Z,PARITY_IS_LEGAL ;Yes, legal
  88.     CP    'N'        ;No parity?
  89.     JP    Z,PARITY_IS_LEGAL ;Yes, legal
  90.     JP    GET_PARITY_CHOICE ;Not legal, so ask again
  91.  
  92. PARITY_IS_LEGAL:
  93.     LD    (PARITY_CHOICE),A ;Save parity selection as ASCII
  94.  
  95. GET_DATABITS_CHOICE:
  96.     LD    DE,DATABITS_PROMPT ;Give Databits prompt
  97.     CALL    PRINT_STRING
  98.     CALL    GET_BDOS_KEYPRESS ;Get response
  99.     CP    CR        ;RETURN only?
  100.     JP    NZ,EDIT_DATABITS_VALUE ;No, use it
  101.     LD    A,'8'        ;Yes, use default
  102.  
  103. EDIT_DATABITS_VALUE:
  104.     SUB    '0'        ;Make into binary 0 thru 8
  105.     CP    BEL        ;Legal choice?
  106.     JP    Z,DATABITS_ARE_LEGAL ;Yes, use it
  107.     CP    BS
  108.     JP    Z,DATABITS_ARE_LEGAL ;Yes, use it
  109.     JP    GET_DATABITS_CHOICE ;No, try again
  110.  
  111. DATABITS_ARE_LEGAL:
  112.     LD    (DATABITS),A    ;Save binary databits value
  113.  
  114. ; 
  115. ; Now convert baudrate choice to binary timer value
  116. ; 
  117.     LD    A,(BAUD_RATE)
  118.     CP    NUL        ;19.2 Kbaud?
  119.     JP    NZ,TRY_9600_BAUD ;No
  120.     LD    A,SI        ;Yes, use timer value for 19.2 Kbaud
  121.     JP    DONE_EDITING_BAUD
  122.  
  123. TRY_9600_BAUD:
  124.     CP    SOH        ;9600 baud?
  125.     JP    NZ,TRY_4800_BAUD ;No
  126.     LD    A,SO        ;Yes, use timer value for 9600 baud
  127.     JP    DONE_EDITING_BAUD
  128.  
  129. TRY_4800_BAUD:
  130.     CP    STX        ;4800 baud?
  131.     JP    NZ,TRY_2400_BAUD ;No
  132.     LD    A,FF        ;Yes, use timer value for 4800 baud
  133.     JP    DONE_EDITING_BAUD
  134.  
  135. TRY_2400_BAUD:
  136.     CP    ETX        ;2400 baud?
  137.     JP    NZ,TRY_1200_BAUD ;No
  138.     LD    A,LF        ;Yes, use timer value for 2400 baud
  139.     JP    DONE_EDITING_BAUD
  140.  
  141. TRY_1200_BAUD:
  142.     CP    EOT        ;1200 baud?
  143.     JP    NZ,TRY_600_BAUD    ;No
  144.     LD    A,BEL        ;Yes, use value for 1200 baud
  145.     JP    DONE_EDITING_BAUD
  146.  
  147. TRY_600_BAUD:
  148.     CP    ENQ        ;600 baud?
  149.     JP    NZ,TRY_300_BAUD    ;No
  150.     LD    A,ACK        ;Yes, use timer value for 600 baud
  151.     JP    DONE_EDITING_BAUD
  152.  
  153. TRY_300_BAUD:
  154.     CP    ACK        ;300 baud?
  155.     JP    NZ,ASSUME_110_BAUD
  156.     LD    A,ENQ        ;Yes, use timer value for 300 baud
  157.     JP    DONE_EDITING_BAUD
  158.  
  159. ASSUME_110_BAUD:
  160.     LD    A,STX        ;Use timer value for 110 baud
  161.  
  162. DONE_EDITING_BAUD:
  163.     LD    (BAUD_RATE),A    ;Save final timer value for baudrate
  164.  
  165. ; 
  166. ; Now convert parity selection to proper control bits
  167. ; 
  168.     LD    A,(PARITY_CHOICE)
  169.     CP    'E'        ;Even parity?
  170.     JP    NZ,TRY_ODD_PARITY ;No
  171.     LD    A,ETX        ;Yes, use bit pattern for Even parity
  172.     JP    HAVE_GOOD_PARITY_BITMAP
  173.  
  174. TRY_ODD_PARITY:
  175.     CP    'O'        ;Odd parity?
  176.     JP    NZ,ASSUME_NO_PARITY ;No
  177.     LD    A,SOH        ;Yes, use bit pattern for Odd parity
  178.     JP    HAVE_GOOD_PARITY_BITMAP
  179.  
  180. ASSUME_NO_PARITY:
  181.     LD    A,NUL        ;Use bit pattern for No parity
  182.  
  183. HAVE_GOOD_PARITY_BITMAP:
  184.     LD    (PARITY_CHOICE),A ;Save final SIO parity bitmap
  185.  
  186. ; 
  187. ; Edit databits (binary 7 or 8) 
  188. ; to create proper SIO bit pattern
  189. ; 
  190.     LD    A,(DATABITS)
  191.     CP    BEL        ;7 data bits?
  192.     JP    Z,SET_7_DATABIT_PATTERN ;Yes
  193.     LD    A,'`'        ;No, use SIO WR5 pattern for 8 TX databits
  194.     LD    (SIO_WR5_TX_BITS),A ;Save to be passed to SIO Write Reg 5
  195.     LD    A,'@'+80H    ;Format 8 Rx databits for SIO Write Reg 3
  196.     LD    (SIO_WR3_RX_BITS),A
  197.     JP    SEND_ALL_TO_SIO
  198.  
  199. SET_7_DATABIT_PATTERN:
  200.     LD    A,' '        ;Set bit pattern for 7 Tx bits
  201.     LD    (SIO_WR5_TX_BITS),A
  202.     LD    A,'@'        ;Ditto for 7 Rx data bits
  203.     LD    (SIO_WR3_RX_BITS),A
  204.  
  205. SEND_ALL_TO_SIO:
  206.  
  207. ; 
  208. ; OK, so send everything to SIO
  209. ; 
  210.     DI
  211.     LD    A,CAN        ;Reset SIO
  212.     OUT    (IOPORT06H),A
  213.     OUT    (IOPORT06H),A
  214.     LD    A,SOH        ;Select SIO Write Reg 1
  215.     OUT    (IOPORT06H),A
  216.     XOR    A        ;No SIO interrupts
  217.     OUT    (IOPORT06H),A
  218.     LD    A,EOT        ;Select SIO Write Reg 4
  219.     OUT    (IOPORT06H),A
  220.     LD    A,(PARITY_CHOICE) ;Get parity bit pattern
  221.     ADD    A,'D'        ;Add 'Clock x 16' and '1 stop bit' pattern
  222.     OUT    (IOPORT06H),A
  223.     LD    A,ETX        ;Select SIO Write Reg 3
  224.     OUT    (IOPORT06H),A
  225.     LD    A,(SIO_WR3_RX_BITS)
  226.     ADD    A,SOH        ;Enable Receiver
  227.     OUT    (IOPORT06H),A
  228.     LD    A,ENQ        ;Select SIO Write Reg 5
  229.     OUT    (IOPORT06H),A
  230.     LD    A,(SIO_WR5_TX_BITS)
  231.     ADD    A,LF+80H    ;Add 'DTR' and 'Tx Enable' and 'RTS'
  232.     OUT    (IOPORT06H),A
  233.     LD    A,'G'        ;Reset Baud Rate generator
  234.     OUT    (IOPORT00H),A
  235.     LD    A,(BAUD_RATE)    ;Set our Baud Rate timer value
  236.     OUT    (IOPORT00H),A
  237.     EI
  238.     LD    DE,WRAPUP_MSG    ;Tell him that we're done
  239.     CALL    PRINT_STRING
  240.     RET            ;Back to CP/M
  241.  
  242. GET_BDOS_KEYPRESS:
  243.  
  244. ; 
  245. ; Return next keypress as Uppercase char in A-reg
  246. ; 
  247.     LD    C,SOH
  248.     CALL    BDOS        ;Use BDOS to get next keypress
  249.     CP    '`'        ;Is it lowercase char?
  250.     RET    C        ;No, return it as-is
  251.     SUB    ' '        ;Yes, convert to uppercase
  252.     RET
  253.  
  254. PRINT_STRING:
  255.  
  256. ; 
  257. ; Print $-terminated string at (DE)
  258. ; 
  259.     LD    C,TAB
  260.     JP    BDOS
  261.  
  262. INIT_MSG:
  263.     DB    SUB,"INIT 1.0 for Xerox 820",CR,LF,LF,LF,CR,LF
  264.  
  265.     DB    "Baud Rates:",CR,LF,"19200 = 0",CR,LF,"9600  ="
  266.  
  267.     DB    " 1",CR,LF,"4800  = 2",CR,LF,"2400  = 3",CR,LF
  268.  
  269.     DB    "1200  = 4",CR,LF," 600  = 5",CR,LF," 300  = 6"
  270.  
  271.     DB    CR,LF," 110  = 7",CR,LF,"$"
  272.  
  273.  
  274. BAUD_PROMPT:
  275.     DB    CR,LF,"Select baud rate           (1-9): 6",BS
  276.  
  277.     DB    "$"
  278.  
  279.  
  280. PARITY_PROMPT:
  281.     DB    CR,LF,"Select parity  (Odd, Even, None): N",BS
  282.  
  283.     DB    "$"
  284.  
  285.  
  286. DATABITS_PROMPT:
  287.     DB    CR,LF,"Select word length      (7 or 8): 8",BS
  288.  
  289.     DB    "$"
  290.  
  291.  
  292. WRAPUP_MSG:
  293.     DB    CR,LF,"Communications port set.$"
  294.  
  295.  
  296. BAUD_RATE:
  297.     DB    NUL
  298.  
  299.  
  300. DATABITS:
  301.     DB    NUL
  302.  
  303.  
  304. PARITY_CHOICE:
  305.     DB    NUL
  306.  
  307.  
  308. SIO_WR5_TX_BITS:
  309.     DB    NUL
  310.  
  311.  
  312. SIO_WR3_RX_BITS:
  313.     DB    NUL,NUL,NUL,NUL,NUL
  314.