; PROGRAM: ASCIIMP1.Z80
; AUTHOR:  Fred Haines
; DATE:    March 12, 1988
; PURPOSE: Prints ASCII chart to console screen.

;
; equates

CR	EQU	0DH
LF	EQU	0AH
ESC	EQU	1BH
BDOS	EQU	05H

; external routines

	EXT	PRINT

;
; start

	LD	C,09H		; DOS print string function
	LD	DE,CLS		; load clear screen string address
	CALL	BDOS

;
; print screen

	CALL 	PRINT
	DB	'+------------+---------------------------------------------------------------+',CR,LF
	DB	'| binary     |    0       1      2       3   '
	DB	'    4       5       6       7   |',CR,LF
	DB	'+------+-----+---------------------------------------------------------------+',CR,LF
	DB	'| 0000 |  0  |   NUL     DLE     SP      0   '
	DB	'    @       P       `       p   |',CR,LF
	DB	'| 0001 |  1  |   SOH     DC1     !       1   '
	DB	'    A       Q       a       q   |',CR,LF
	DB	'| 0010 |  2  |   STX     DC2     "       2   '
	DB	'    B       R       b       r   |',CR,LF
	DB	'| 0011 |  3  |   ETX     DC3     #       3   '
	DB	'    C       S       c       s   |',CR,LF
	DB	'| 0100 |  4  |   EOT     DC4     $       4   '
	DB	'    D       T       d       t   |',CR,LF
	DB	'| 0101 |  5  |   ENQ     NAK     %       5   '
	DB	'    E       U       e       u   |',CR,LF
	DB	'| 0110 |  6  |   ACK     SYN     &       6   '
	DB	'    F       V       f       v   |',CR,LF
	DB	'| 0111 |  7  |   BEL     ETB     ''       7    '
	DB	'   G       W       g       w   |',CR,LF
	DB	'| 1000 |  8  |   BS      CAN     (       8   '
	DB	'    H       X       h       x   |',CR,LF
	DB	'| 1001 |  9  |   HT      EM      )       9   '
	DB	'    I       Y       i       y   |',CR,LF
	DB	'| 1010 |  A  |   LF      SUB     *       :   '
	DB	'    J       Z       j       z   |',CR,LF
	DB	'| 1011 |  B  |   VT      ESC     +       ;   '
	DB	'    K       [       k       {   |',CR,LF
	DB	'| 1100 |  C  |   FF      FS      ,       <   '
	DB	'    L       \       l       |   |',CR,LF
	DB	'| 1101 |  D  |   CR      GS      -       =   '
	DB	'    M       ]       m       }   |',CR,LF
	DB	'| 1110 |  E  |   SO      RS      .       >   '
	DB	'    N       ^       n       ~   |',CR,LF
	DB	'| 1111 |  F  |   SI      US      /       ?   '
	DB	'    O       -       o      DEL  |',CR,LF
	DB	'+------+-----+---------------------------------------------------------------+',CR,LF
	DB	'  Hex code equals column/row position.  Control'
	DB	' characters - change column 4',CR,LF
	DB	'  codes to 0, column 5 codes to 1.  Combine 2'
	DB	' binary nybbles to make a byte.',CR,LF
	DB	0

;
; clear screen string 

CLS:
	DB	ESC,'+$'	; two bytes, terminated with $ 

	RET

	END