home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / consgrab.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  826 b   |  42 lines
  1.     ;PUT THIS ROUTINE IN YOUR BIOS, AFTER LABEL CONOT 
  2.  
  3.     IF NOT SOLOS AND NOT VIDEO
  4.     MOV  A,C        ;GET CHARACTER.
  5.     OUT  CDATA        ;PRINT IT.
  6.         LDA  CPFLAG             ;GET FLAG
  7.         ORA  A
  8.         RZ            ;RETURN IF NOT ENABLED
  9.         PUSH H            ;SAVE HL
  10.         LHLD CBUFP        ;GET BUFFER POINTER
  11.         MOV  M,C        ;PUT CHAR IN BUFFER
  12.         INX  H            ;ADVANCE POINTER
  13.         LDA  MTOP        ;TOP OF MEMORY
  14.     CMP  H            ;CHECK FOR OUT OF MEMORY
  15.     JZ   OUTMEM        ;    
  16.     SHLD CBUFP        ;SAVE POINTER
  17.     LHLD CPCNT        ;GET CHAR COUNT
  18.     INX  H            ;INCREMENT IT
  19.     SHLD CPCNT        ;STORE IT
  20.     POP  H
  21.     RET            ;RETURN.
  22.     ENDIF
  23.  
  24. OUTMEM: 
  25.     LXI  H,PERR
  26.     CALL PMSG
  27.         XRA  A    
  28.         STA  CPFLAG        ;DISABLE CAPTURE MODE
  29.         POP  H
  30.         RET
  31.  
  32.  
  33. PERR:   DB   'CAPTURE BUFFER FULL',0DH,0AH
  34.  
  35.  
  36. CPFLAG  DS   1
  37. MTOP    DS   2
  38. CBUFP   DS   2
  39. CPCNT   DS   2
  40. CKSUM   DS   1
  41.  
  42.