;	*-------+---------------------------------------*
;	|Name	| Asc					|
;	|Version| 1.0	Comment: Building...		|
;	+-------+---------------------------------------+
;	|Opens a CON: ww with an ascii table		|
;	|						|
;	+-----------------------------------------------+
;	|  Copyright (C) 1992 Henrik /MAX/ Erlandsson!	|
;	*-----------------------------------------------*
LibBits	=%1
INCLUDE "CO:Symbols.S"
INCLUDE "CO:Makaron.S"

B:
	INIT
	OPENLIBS
	beq.w Quit
	OPENF CurrHdl-R(a5),#WWname,#_OLD
	beq.w Quit

	lea Buf-R(a5),a2
	WRITE "ASC|"
	moveq #0,d2
	moveq #15,d3
Lp1:	NUMHEX d2,a2
	addq.w #1,a0
	move.b #" ",(a0)
	WRITEA a0
	addq.w #1,d2
	dbra d3,Lp1
	WRITELN ""
	WRITELNA #Delim
	moveq #32,d4			;start w/ SPC ASCII code
	moveq #13,d5
LnLp:	NUMHEX d4,a2
	addq.w #1,a0
	move.b #" ",(a1)+
	move.b #"|",(a1)+
	moveq #0,d2
	moveq #15,d3
ChLp:	move.w d4,d0
	add.w d2,d0
	move.b #" ",(a1)+
	move.b d0,(a1)+
	addq.w #1,d2
	dbra d3,ChLp
	move.b #"|",(a1)+
	clr.b (a1)+
	WRITELNA a0
	add.w #16,d4
	dbra d5,LnLp
	WRITELNA #Delim
;	CLOSEF CurrHdl-R(a5)			;close DOS ww (!)

Quit:	CLOSELIBS
	EXIT
	RTS
CurrHdl:dc.l 0
WWName:	dc.b "*",0	;CON:0/0/448/160/Extended ASCII codes",0
Delim:	dc.b "---+--------------------------------+",0
Buf:	blk.b 80,0