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 / CPM / CIS / DOWPMM.DIF < prev    next >
Text File  |  2000-06-30  |  2KB  |  98 lines
  1. 13,14c 19312
  2. ;  *** See modification note of 4/02/82 below! ***
  3. ;            
  4. ;               3/24/82 -- FIRST SOURCE RELEASE
  5. ;
  6. .
  7. 60a 48068
  8. subrev    equ    '2'    ; sub-revision
  9. .
  10. 63a 62498
  11. ;     4-02-1982    Ver. 1.22 - Several minor mods. including addition
  12. ;            of PMMI drivers, replacement of warmboot (labeled
  13. ;            coldboot!) with a return, etc. (C. Strom)
  14. ;
  15. .
  16. 78a 58114
  17.     ld    hl,0        ; stash CP/M's stack
  18.     add    hl,sp
  19.     ld    (stack),hl
  20. .
  21. 106c 30642
  22.     jp     exit         ; terminate
  23. .
  24. 124c 24630
  25.     defb    cr,lf,'Download Vers. ',vers,'.',rev,subrev,cr,lf
  26. .
  27. 197c 35138
  28.     jp    exit        ; and terminate abnormally
  29. .
  30. 377c 56634
  31.     jp    exit        ; and abort
  32. .
  33. 449,457c 42525
  34. ; This routine must send the char in the accumulator to the modem
  35. ; port as 8 bit byte
  36. ;
  37. punout:
  38. ;
  39. basprt    equ    0c0h        ;pmmi modem base i/o port
  40. ctl    equ    basprt        ;primary control port
  41. sioprt    equ    basprt+1    ;serial data port
  42. sioir    equ    02h        ;data input ready flag
  43. siotr    equ    01h        ;transmitter ready flag
  44. ;
  45.     push    af
  46. outwt:    in    a,(ctl)        ;read status
  47.     and    siotr        ;isolate bit
  48.     jr    z,outwt        ;wait till ready
  49.     pop    af
  50.     out    (sioprt),a    ;output char to modem
  51. .
  52. 468,469d 43843
  53. 471,473c 63427
  54. ;
  55. pcharin:
  56. ;
  57.     in    a,(ctl)        ;get status
  58.     and    sioir        ;isolate bit
  59.     jr    z,pcharin    ;ready?
  60.     in    a,(sioprt)    ;yup, so get char
  61.     and    7fh        ;strip parity
  62. .
  63. 481c 17445
  64. ;**************************************************************************
  65. ; ROUTINE TO PRINT A MESSAGE ON THE CONSOLE DEVICE- uses standard cp/m convention
  66. ;
  67. prnmes:
  68.     ld    c,pstrg        ; print string function    
  69.     call    bdos        ; to cpm
  70.     ret            ; to caller
  71. ;
  72. ;
  73. ;**************************************************************************
  74. ; ROUTINE TO READ A BUFFER FROM OPERATOR - RETURNS STANDARD CONSOLE BUFFER
  75. mesinp:
  76.     ld    c,rdcbuf    ; read console buffer function    
  77.     call    bdos        ; call op/sys
  78.     ret            ; to caller
  79. .
  80. 498,513c 17583
  81. ; Routine to exit gracefully without a warm boot (known to Bob R.
  82. ; as a coldboot)
  83. exit:
  84.     ld    de,80h        ; restore dma adress
  85.     ld    c,fn$std    ; to keep op sys happy
  86.     call    bdos
  87.     ld    hl,(stack)    ; restore old stack
  88.     ld    sp,hl
  89.     ret            ; and bow out
  90. ;
  91. .
  92. 513a 49895
  93. stack:
  94.     defs    02h        ; CP/M's stack
  95. .
  96. $a 36135
  97. .
  98.