home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 195_01 / display.csm < prev    next >
Text File  |  1987-10-05  |  1KB  |  102 lines
  1. /* [DISPLAY.CSM of JUGPDS Vol.18]
  2. *****************************************************************
  3. *                                *
  4. *    Written by  Hakuo Katayose (JUG-CP/M No.179)        *
  5. *            49-114 Kawauchi-Sanjuunin-machi        *
  6. *            Sendai, Miyagi 980                          *
  7. *            Phone: 0222-61-3219                *
  8. *                                *
  9. *    Edited & tested by Y. Monma (JUG-C/M Disk Editor)       * 
  10. *                                *
  11. *****************************************************************
  12. */
  13.  
  14.     maclib        <a:bds>        /* BDS.LIB */
  15.     FUNCTION    Display
  16.     EXTERNAL    bios
  17. Display:
  18.     PUSH B
  19.     LXI H,4
  20.     DAD SP
  21.     MOV E,M
  22.     INX H
  23.     MOV D,M
  24.     XCHG
  25.     CALL LINEO
  26.     CALL LINEO
  27.     CALL LINEO
  28.     CALL LINEO
  29.     POP B
  30.     RET
  31.  
  32.  
  33. LINEO:    PUSH H
  34.     MVI B,32
  35.     CALL HEXOUT
  36.     INX H
  37.     DB  010H,0FAH
  38.     MVI C,0DH
  39.     CALL CO
  40.     MVI C,0AH
  41.     CALL CO
  42.     POP H
  43.     MVI B,32
  44.     CALL COUT
  45.     INX H
  46.     DB  010H,0FAH
  47.     MVI C,0DH
  48.     CALL CO
  49.     MVI C,0AH
  50.     CALL CO
  51.     RET
  52.  
  53. HEXOUT:
  54.     MOV A,M
  55.     RAR
  56.     RAR
  57.     RAR
  58.     RAR
  59.     CALL HEXO1
  60.     MOV A,M
  61. HEXO1:    ANI 0FH
  62.     ADI 090H
  63.     DAA
  64.     ACI 040H
  65.     DAA
  66.     MOV C,A
  67.     CALL CO
  68.     RET
  69.  
  70.  
  71. COUT:    PUSH PSW
  72.     MOV C,M
  73.     MOV A,C
  74.     ANI 07FH
  75.     CPI 07FH
  76.     JZ  COUT1
  77.     CPI ' '
  78.     JNC COUT2
  79. COUT1:    MVI C,'.'
  80. COUT2:    CALL CO
  81.     MVI C,' '
  82.     CALL CO
  83.     POP  PSW
  84.     RET
  85.  
  86. CO:    PUSH B
  87.     PUSH D
  88.     PUSH H
  89.     MVI B,0
  90.     PUSH B
  91.     LXI B,4
  92.     PUSH B
  93.     CALL bios
  94.     POP B
  95.     POP B
  96.     POP H
  97.     POP D
  98.     POP B
  99.     RET
  100.  
  101.     ENDFUNC    display
  102.