home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / simtel20 / syslib / slib3.lbr / SPOUT.Z80 < prev    next >
Encoding:
Text File  |  1986-02-06  |  896 b   |  44 lines
  1. ;
  2. ; SYSLIB Module Name:  SPOUT
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    pout
  8.  
  9. ;
  10. ;  POUT -- 
  11. ;    PUNCH OUTPUT ROUTINE
  12. ;    OUTPUT CHAR IN REG A ON PUN:
  13. ;    AFFECT NO REGISTERS OR FLAGS
  14. ;
  15. PUTRG    MACRO
  16.     PUSH    BC    ; SAVE BC, DE, HL
  17.     PUSH    DE
  18.     PUSH    HL
  19.     ENDM
  20. GETRG    MACRO
  21.     POP    HL    ; RESTORE HL, DE, BC
  22.     POP    DE
  23.     POP    BC
  24.     ENDM
  25.  
  26. POUT:
  27.     PUSH    AF    ; SAVE REG A AND FLAGS
  28.     PUTRG        ; SAVE REGISTERS
  29.     LD    C,A    ; CHAR IN C
  30.     LD    HL,(JTABL)    ; GET ADDRESS OF JUMP TABLE
  31.     LD    L,P$OFF    ; PUNCH OUTPUT ADR
  32.     LD    DE,PRET    ; SET UP RET ADR
  33.     PUSH    DE    ; ... ON STACK
  34.     JP    (HL)
  35. PRET:    GETRG        ; RESTORE REGISTERS
  36.     POP    AF    ; RESTORE REG A AND FLAGS
  37.     RET
  38.  
  39. BOOT    EQU    0    ; CP/M BOOT ADDRESS
  40. JTABL    EQU    BOOT+1    ; CP/M JUMP TABLE ADDRESS
  41. P$OFF    EQU    12H    ; PUNCH OUTPUT OFFSET
  42.  
  43.     END
  44.