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 / JSAGE / ZSUS / PROGPACK / ASCIIMP2.LBR / ASCIIMP1.ZZ0 / ASCIIMP1.Z80
Text File  |  2000-06-30  |  3KB  |  80 lines
  1. ; PROGRAM: ASCIIMP1.Z80
  2. ; AUTHOR:  Fred Haines
  3. ; DATE:    March 12, 1988
  4. ; PURPOSE: Prints ASCII chart to console screen.
  5.  
  6. ;
  7. ; equates
  8.  
  9. CR    EQU    0DH
  10. LF    EQU    0AH
  11. ESC    EQU    1BH
  12. BDOS    EQU    05H
  13.  
  14. ; external routines
  15.  
  16.     EXT    PRINT
  17.  
  18. ;
  19. ; start
  20.  
  21.     LD    C,09H        ; DOS print string function
  22.     LD    DE,CLS        ; load clear screen string address
  23.     CALL    BDOS
  24.  
  25. ;
  26. ; print screen
  27.  
  28.     CALL     PRINT
  29.     DB    '+------------+---------------------------------------------------------------+',CR,LF
  30.     DB    '| binary     |    0       1      2       3   '
  31.     DB    '    4       5       6       7   |',CR,LF
  32.     DB    '+------+-----+---------------------------------------------------------------+',CR,LF
  33.     DB    '| 0000 |  0  |   NUL     DLE     SP      0   '
  34.     DB    '    @       P       `       p   |',CR,LF
  35.     DB    '| 0001 |  1  |   SOH     DC1     !       1   '
  36.     DB    '    A       Q       a       q   |',CR,LF
  37.     DB    '| 0010 |  2  |   STX     DC2     "       2   '
  38.     DB    '    B       R       b       r   |',CR,LF
  39.     DB    '| 0011 |  3  |   ETX     DC3     #       3   '
  40.     DB    '    C       S       c       s   |',CR,LF
  41.     DB    '| 0100 |  4  |   EOT     DC4     $       4   '
  42.     DB    '    D       T       d       t   |',CR,LF
  43.     DB    '| 0101 |  5  |   ENQ     NAK     %       5   '
  44.     DB    '    E       U       e       u   |',CR,LF
  45.     DB    '| 0110 |  6  |   ACK     SYN     &       6   '
  46.     DB    '    F       V       f       v   |',CR,LF
  47.     DB    '| 0111 |  7  |   BEL     ETB     ''       7    '
  48.     DB    '   G       W       g       w   |',CR,LF
  49.     DB    '| 1000 |  8  |   BS      CAN     (       8   '
  50.     DB    '    H       X       h       x   |',CR,LF
  51.     DB    '| 1001 |  9  |   HT      EM      )       9   '
  52.     DB    '    I       Y       i       y   |',CR,LF
  53.     DB    '| 1010 |  A  |   LF      SUB     *       :   '
  54.     DB    '    J       Z       j       z   |',CR,LF
  55.     DB    '| 1011 |  B  |   VT      ESC     +       ;   '
  56.     DB    '    K       [       k       {   |',CR,LF
  57.     DB    '| 1100 |  C  |   FF      FS      ,       <   '
  58.     DB    '    L       \       l       |   |',CR,LF
  59.     DB    '| 1101 |  D  |   CR      GS      -       =   '
  60.     DB    '    M       ]       m       }   |',CR,LF
  61.     DB    '| 1110 |  E  |   SO      RS      .       >   '
  62.     DB    '    N       ^       n       ~   |',CR,LF
  63.     DB    '| 1111 |  F  |   SI      US      /       ?   '
  64.     DB    '    O       -       o      DEL  |',CR,LF
  65.     DB    '+------+-----+---------------------------------------------------------------+',CR,LF
  66.     DB    '  Hex code equals column/row position.  Control'
  67.     DB    ' characters - change column 4',CR,LF
  68.     DB    '  codes to 0, column 5 codes to 1.  Combine 2'
  69.     DB    ' binary nybbles to make a byte.',CR,LF
  70.     DB    0
  71.  
  72. ;
  73. ; clear screen string 
  74.  
  75. CLS:
  76.     DB    ESC,'+$'    ; two bytes, terminated with $ 
  77.  
  78.     RET
  79.  
  80.     END