home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / BIOS-R62.LZH / CXEXT.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  3KB  |  155 lines
  1. ; ?int65 now sets 6551 baud rate based on baudrate byte set in devtbl.
  2. ; 
  3. ; user assumes all liability for the use of this module
  4. ;
  5. ; original copyright maintained by Commodore
  6. ;-------------------------------------------------------------------------
  7. ; CHANGES by Randy Winchester, 6 May 89
  8. ;
  9. ; Drive D: returned to active duty.
  10. ;
  11. ; RAM disk set back to drive M:
  12. ;
  13. ; Table entry made for Drive E:, used by Quick Brown Box.
  14. ;-------------------------------------------------------------------------
  15.  
  16.     title    'C128 external Disk drive support   6 May   89'
  17.  
  18.     maclib    cpm3
  19.  
  20.     maclib    z80
  21.  
  22.     maclib    cxequ
  23.  
  24.  
  25.     extrn    X6551$baud
  26.     public    ?int65,?in65,?ins65,?out65
  27.  
  28. ; Utility routines in standard BIOS
  29.     extrn    ?pmsg        ; print message @<HL> up to 00
  30.                 ; saves <BC> & <DE>
  31.     extrn    ?pdec        ; print binary number in <A> from 0 to 99.
  32.     extrn    ?pderr        ; print BIOS disk error header
  33.     extrn    ?conin,?cono    ; con in and out
  34.     extrn    ?const        ; get console status
  35. ;
  36. ;    drive table
  37. ;
  38.     public    @dtbl
  39.     extrn    cmdsk0,cmdsk1,cmdsk2,cmdsk3,cmdsk4,RMdsk
  40.  
  41.  
  42.     page
  43. ;
  44. ;    DRVTBL.ASM        
  45. ;
  46.     CSEG        ; place code in common memory
  47.  
  48. ;**************************************
  49. ; Drives A: - D: are 1541/71
  50. ; Drive E: for QBB, Drive M: is REU
  51. ;****************************************
  52.  
  53. @dtbl:
  54.  
  55.     dw    cmdsk0            ;* drive A 1541/1571 
  56.     dw    cmdsk1            ;* drive B 1541/1571
  57.     dw    cmdsk2            ;* drive C 1541/1571
  58.     dw    cmdsk3            ;* drive D 1571
  59.     dw    cmdsk4            ;* drive E QBB
  60.     dw    0            ;* drive F
  61.     dw    0            ;* drive G
  62.     dw    0            ;* drive H
  63.     dw    0            ;* drive I
  64.     dw    0            ;* drive J
  65.     dw    0            ;* drive K
  66.     dw    0            ;* drive L
  67.     dw    RMdsk            ;* drive M REU
  68.     dw    0            ;* drive N
  69.     dw    0            ;* drive O
  70.     dw    0            ;* drive P
  71.  
  72.     page
  73.  
  74. ;==========================================================
  75. ;        CHARACTER INITIALIZATION ROUTINES
  76. ;==========================================================
  77. ;
  78. ;
  79. ;
  80.     dseg
  81. ;
  82. ;    set com rate to 9600 baud
  83. ;
  84. ?int65:
  85. init$ext:
  86.     lxi    b,command$6551        ; (02)
  87.     mvi    a,cmd$init
  88.     outp    a
  89.     inx    b
  90.     mvi    a,10h                   ; baud rate equ 9600
  91.     lxi    h,X6551$baud
  92.     add    m
  93.     outp    a
  94.     dcx    b            ; (02)
  95.     dcx    b            ; (01)
  96.     inp    a
  97.     dcx    b            ; (00)
  98.     inp    a
  99.     ret
  100.  
  101.  
  102.     page
  103. ;==========================================================
  104. ;        CHARACTER INPUT ROUTINES
  105. ;==========================================================
  106.  
  107. ;
  108. ;
  109. ;
  110.     dseg
  111. ?in65:            ; character input
  112.     call    ?ins65
  113.     jrz    ?in65
  114.     lxi    b,rxd$6551
  115.     inp    a
  116.     ret
  117.  
  118. ;==========================================================
  119. ;    CHARACTER DEVICE INPUT STATUS
  120. ;==========================================================
  121. ;
  122. ;
  123. ;
  124.     dseg
  125. ?ins65:            ; character input status
  126.     lxi    b,status$6551
  127.     inp    a
  128.     ani    rxrdy
  129.     rz
  130.     ori    -1
  131.     ret
  132.  
  133.  
  134. ;==========================================================
  135. ;    CHARACTER DEVICE OUTPUT
  136. ;==========================================================
  137. ;
  138. ; the character to be output is in the C register
  139. ;
  140.     dseg
  141. ?out65:                ; character output
  142.     mov    a,c
  143.     push    psw
  144.     lxi    b,status$6551
  145. send$wait:
  146.     inp    a
  147.     ani    txrdy
  148.     jrz    send$wait
  149.     pop    psw
  150.     lxi    b,txd$6551
  151.     outp    a
  152.     ret
  153.  
  154.     end
  155.