home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug049.arc / WSPAT.MAC < prev   
Text File  |  1979-12-31  |  1KB  |  89 lines
  1. ;    TITLE         WORDSTAR DATE PRINTING PATCH
  2. ;    KEYED IN 8th Mar., 1987        By A. L.  BARFOOT
  3. ;    From code supplied by DARREN BREEZE 
  4. ;    and printed in The CATCHER the official newsletter
  5. ;    of MBUG AUSTRALIA INC.
  6. ;
  7.  
  8.     .Z80
  9.     ASEG
  10.     ORG    100h
  11.     .PHASE    02bbh
  12. BIOS    EQU    5
  13. ;RTC REGISTER
  14. ;
  15. MYSUB:    CP    '`'
  16.     JR    NZ,NCHECK
  17.     LD    (LEAD),A
  18.     LD    A,1
  19.     LD    (FL),A
  20.     RET
  21. NCHECK:    CP    '@'
  22.     JP    Z,OUTPUT
  23.     LD    A,(FL)
  24.     BIT    0,A
  25.     RET    Z
  26.     LD    A,0
  27.     LD    (FL),A
  28. START:    LD    A,0Ah
  29.     OUT    (4),A
  30.     IN    A,(7)
  31.     BIT    7,A
  32.     JR    NZ,START
  33.     LD    C,07
  34.     CALL    INPUT
  35.     LD    A,'/'
  36.     CALL     OUTPUT
  37.     LD    C,08    
  38.     CALL    INPUT
  39.     LD    A,'/'
  40.     CALL    OUTPUT
  41.     LD    C,09
  42.     CALL    INPUT
  43.     RET
  44. ;
  45. ;=========================
  46. ;
  47. OUTPUT:    PUSH    BC    
  48.     PUSH    DE
  49.     LD    C,05h
  50.     LD    E,A
  51.     CALL     BIOS
  52.     POP    DE
  53.     POP    BC
  54.     RET
  55. ;
  56. ;=========================
  57. ;
  58. INPUT:    LD    A,C
  59.     OUT    (4),A
  60.     IN    A,(7)
  61.     PUSH    AF
  62.     AND    0F0h
  63.     RRA
  64.     RRA
  65.     RRA
  66.     RRA
  67.     LD    B,A
  68.     POP    AF
  69.     AND    0Fh
  70.     LD    C,A
  71. ;
  72. ;=========================
  73. ;
  74. NUMBERS:LD    D,0
  75.     LD    A,B
  76.     ADD    A,30h
  77.     CALL    OUTPUT
  78.     LD    A,C
  79.     ADD    A,30h
  80.     CALL    OUTPUT
  81.     RET
  82. ;
  83. ;=========================
  84. ;
  85. LEAD:    DB    0
  86. FL:    DB    0
  87.     .DEPHASE
  88.     END
  89.