home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / biosr4.arc / CXEXT.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-04-26  |  2.8 KB  |  152 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.     title    'C128 external Disk drive support  26 April 87'
  8.  
  9.     maclib    cpm3
  10.  
  11.     maclib    z80
  12.  
  13.     maclib    cxequ
  14.  
  15.  
  16.     extrn    X6551$baud
  17.     public    ?int65,?in65,?ins65,?out65
  18.  
  19. ; Utility routines in standard BIOS
  20.     extrn    ?pmsg        ; print message @<HL> up to 00
  21.                 ; saves <BC> & <DE>
  22.     extrn    ?pdec        ; print binary number in <A> from 0 to 99.
  23.     extrn    ?pderr        ; print BIOS disk error header
  24.     extrn    ?conin,?cono    ; con in and out
  25.     extrn    ?const        ; get console status
  26. ;
  27. ;    drive table
  28. ;
  29.     public    @dtbl
  30.     extrn    cmdsk0,cmdsk1,cmdsk2,RMdsk
  31.  
  32.  
  33.     page
  34. ;
  35. ;    DRVTBL.ASM        
  36. ;
  37.     CSEG        ; place code in common memory
  38.  
  39. ;**************************************
  40. ; drive table alterd to change ramdisk to drive D, and
  41. ; delete drive E 
  42. ;****************************************
  43.  
  44. @dtbl:
  45.  
  46.     dw    cmdsk0            ;* drive A 1541/1571 
  47.     dw    cmdsk1            ;* drive B 1541/1571
  48.     dw    cmdsk2            ;* drive C 1541/1571
  49.     dw    RMdsk             ;* drive D Ram Drive
  50.     dw    0                 ;* drive E
  51.     dw    0            ;* drive F 
  52.     dw    0            ;* drive G
  53.     dw    0            ;* drive H
  54.     dw    0            ;* drive I
  55.     dw    0            ;* drive J
  56.     dw    0            ;* drive K
  57.     dw    0            ;* drive L
  58.     dw    0                ;* drive M  
  59.     dw    0            ;* drive N
  60.     dw    0            ;* drive O
  61.     dw    0            ;* drive P
  62.  
  63.     page
  64.  
  65. ;==========================================================
  66. ;        CHARACTER INITIALIZATION ROUTINES
  67. ;==========================================================
  68. ;
  69. ;
  70. ;
  71.     dseg
  72. ;
  73. ;    set com rate to 9600 baud
  74. ;
  75. ?int65:
  76. init$ext:
  77.     lxi    b,command$6551        ; (02)
  78.     mvi    a,cmd$init
  79.     outp    a
  80.     inx    b
  81.     mvi    a,10h                   ; baud rate equ 9600
  82.     lxi    h,X6551$baud
  83.     add    m
  84.     outp    a
  85.     dcx    b            ; (02)
  86.     dcx    b            ; (01)
  87.     inp    a
  88.     dcx    b            ; (00)
  89.     inp    a
  90.     ret
  91.  
  92.  
  93.     page
  94. ;==========================================================
  95. ;        CHARACTER INPUT ROUTINES
  96. ;==========================================================
  97.  
  98. ;
  99. ;
  100. ;
  101.     dseg
  102. ?in65:            ; character input
  103.     call    ?ins65
  104.     jrz    ?in65
  105.     lxi    b,rxd$6551
  106.     inp    a
  107.     ret
  108.  
  109. ;==========================================================
  110. ;    CHARACTER DEVICE INPUT STATUS
  111. ;==========================================================
  112. ;
  113. ;
  114. ;
  115.     dseg
  116. ?ins65:            ; character input status
  117.     lxi    b,status$6551
  118.     inp    a
  119.     ani    rxrdy
  120.     rz
  121.     ori    -1
  122.     ret
  123.  
  124.  
  125. ;==========================================================
  126. ;    CHARACTER DEVICE OUTPUT
  127. ;==========================================================
  128. ;
  129. ; the character to be output is in the C register
  130. ;
  131.     dseg
  132. ?out65:                ; character output
  133.     mov    a,c
  134.     push    psw
  135.     lxi    b,status$6551
  136. send$wait:
  137.     inp    a
  138.     ani    txrdy
  139.     jrz    send$wait
  140.     pop    psw
  141.     lxi    b,txd$6551
  142.     outp    a
  143.     ret
  144.  
  145.     end
  146. ush    psw
  147.     lxi    b,status$6551
  148. send$wait:
  149.     inp    a
  150.     ani    txrdy
  151.     jrz    send$wait
  152.     pop    ps