delete dynamically generated stuff

branches/dwg/Apps/crossdev/CBANNER.ASM

@@ -1,208 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	DSEG
-	public	lines_
-lines_:
-	DW .1+0
-	CSEG
-.1:
-	DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45
-	DB 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45
-	DB 45,45,45,45,45,45,45,45,45,45,0
-	DSEG
-	public	line1_
-line1_:
-	DW .2+0
-	CSEG
-.2:
-	DB 49,50,51,52,53,54,55,56,46,49,50,51,32,109,109
-	DB 47,100,100,47,121,121,121,121,32,32,86,101,114,115,105
-	DB 111,110,32,120,46,120,46,120,46,120,0
-	DSEG
-	public	line2_
-line2_:
-	DW .3+0
-	CSEG
-.3:
-	DB 83,47,78,32,67,80,77,56,48,45,68,87,71,45,54
-	DB 53,52,51,50,49,32,76,105,99,101,110,115,101,100,32
-	DB 117,110,100,101,114,32,71,80,76,51,0
-	DSEG
-	public	line3_
-line3_:
-	DW .4+0
-	CSEG
-.4:
-	DB 67,111,112,121,114,105,103,104,116,32,40,67,41,32,50
-	DB 48,49,49,45,49,50,32,68,111,117,103,108,97,115,32
-	DB 87,46,32,71,111,111,100,97,108,108,0
-	PUBLIC sbanner_
-sbanner_:	lxi d,.6
-	call csave
-	LXI H,8-.6
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.5+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,2013
-	PUSH H
-	LXI H,16
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,.5+4
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,3
-	PUSH H
-	LXI H,2
-	PUSH H
-	LXI H,.5+18
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,10
-	DAD SP
-	SPHL
-	LXI H,.5+39
-	PUSH H
-	CALL printf_
-	POP D
-	RET
-.6 EQU -128
-.5:
-	DB 37,115,32,0,37,50,100,47,37,50,100,47,37,52,100
-	DB 32,32,0,86,101,114,115,105,111,110,32,37,100,46,37
-	DB 100,46,37,100,46,37,100,32,0,67,79,80,82,32,68
-	DB 111,117,103,108,97,115,32,71,111,111,100,97,108,108,32
-	DB 76,105,99,101,110,115,101,100,32,119,47,71,80,76,118
-	DB 51,10,0
-	PUBLIC banner_
-banner_:	lxi d,.8
-	call csave
-	LHLD lines_
-	PUSH H
-	LXI H,.7+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.8
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-122-.8
-	DAD SP
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-.9:
-	LXI H,-124-.8
-	DAD SP
-	PUSH H
-	CALL strlen_
-	POP D
-	PUSH H
-	LXI H,12
-	POP D
-	XCHG
-	CALL .gt
-	JZ .10
-	LXI H,.7+4
-	PUSH H
-	LXI H,-122-.8
-	DAD SP
-	PUSH H
-	CALL strcat_
-	POP D
-	POP D
-	JMP .9
-.10:
-	LXI H,-124-.8
-	DAD SP
-	PUSH H
-	LXI H,.7+6
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,2013
-	PUSH H
-	LXI H,16
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,.7+10
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,3
-	PUSH H
-	LXI H,2
-	PUSH H
-	LXI H,.7+24
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,10
-	DAD SP
-	SPHL
-	LHLD line2_
-	PUSH H
-	LXI H,.7+45
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD line3_
-	PUSH H
-	LXI H,.7+49
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD lines_
-	PUSH H
-	LXI H,.7+53
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	RET
-.8 EQU -128
-.7:
-	DB 37,115,10,0,32,0,37,115,32,0,37,50,100,47,37
-	DB 50,100,47,37,52,100,32,32,0,86,101,114,115,105,111
-	DB 110,32,37,100,46,37,100,46,37,100,46,37,100,10,0
-	DB 37,115,10,0,37,115,10,0,37,115,10,0
-	extrn	strcat_
-	extrn	strlen_
-	extrn	strcpy_
-	extrn	printf_
-	extrn	.gt
-	END
-

branches/dwg/Apps/crossdev/CHARS.ASM

@@ -1,970 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	pDPHMAP_,2
-	global	pDPHVEC_,24
-	DSEG
-	public	pSYSCFG_
-pSYSCFG_:
-	DW -16384
-	CSEG
-	DSEG
-	public	map_
-map_:
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 1
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 1
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	DB 0
-	CSEG
-	DSEG
-	public	attroff_
-attroff_:
-	DB 27
-	DB 91
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	attrbold_
-attrbold_:
-	DB 27
-	DB 91
-	DB 49
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	attrlow_
-attrlow_:
-	DB 27
-	DB 91
-	DB 50
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	attrundr_
-attrundr_:
-	DB 27
-	DB 91
-	DB 52
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	attrblnk_
-attrblnk_:
-	DB 27
-	DB 91
-	DB 53
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	attrrevs_
-attrrevs_:
-	DB 27
-	DB 91
-	DB 55
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	attrinvs_
-attrinvs_:
-	DB 27
-	DB 91
-	DB 56
-	DB 109
-	DB 0
-	CSEG
-	DSEG
-	public	graphon_
-graphon_:
-	DB 27
-	DB 70
-	DB 0
-	CSEG
-	DSEG
-	public	graphoff_
-graphoff_:
-	DB 27
-	DB 71
-	DB 0
-	CSEG
-	DSEG
-	public	atreset_
-atreset_:
-	DB 48
-	DB 0
-	CSEG
-	DSEG
-	public	atbold_
-atbold_:
-	DB 49
-	DB 0
-	CSEG
-	DSEG
-	public	atdim_
-atdim_:
-	DB 50
-	DB 0
-	CSEG
-	DSEG
-	public	atundrsc_
-atundrsc_:
-	DB 52
-	DB 0
-	CSEG
-	DSEG
-	public	atblink_
-atblink_:
-	DB 53
-	DB 0
-	CSEG
-	DSEG
-	public	atrevs_
-atrevs_:
-	DB 55
-	DB 0
-	CSEG
-	DSEG
-	public	athidden_
-athidden_:
-	DB 56
-	DB 0
-	CSEG
-	DSEG
-	public	fgblack_
-fgblack_:
-	DB 51
-	DB 48
-	DB 0
-	CSEG
-	DSEG
-	public	fgred_
-fgred_:
-	DB 51
-	DB 49
-	DB 0
-	CSEG
-	DSEG
-	public	fggreen_
-fggreen_:
-	DB 51
-	DB 50
-	DB 0
-	CSEG
-	DSEG
-	public	fgyellow_
-fgyellow_:
-	DB 51
-	DB 51
-	DB 0
-	CSEG
-	DSEG
-	public	fgblue_
-fgblue_:
-	DB 51
-	DB 52
-	DB 0
-	CSEG
-	DSEG
-	public	fgmagent_
-fgmagent_:
-	DB 51
-	DB 53
-	DB 0
-	CSEG
-	DSEG
-	public	fgcyan_
-fgcyan_:
-	DB 51
-	DB 54
-	DB 0
-	CSEG
-	DSEG
-	public	fgwhite_
-fgwhite_:
-	DB 51
-	DB 55
-	DB 0
-	CSEG
-	DSEG
-	public	bgblack_
-bgblack_:
-	DB 52
-	DB 48
-	DB 0
-	CSEG
-	DSEG
-	public	bgred_
-bgred_:
-	DB 52
-	DB 49
-	DB 0
-	CSEG
-	DSEG
-	public	bggreen_
-bggreen_:
-	DB 52
-	DB 50
-	DB 0
-	CSEG
-	DSEG
-	public	bgyellow_
-bgyellow_:
-	DB 52
-	DB 51
-	DB 0
-	CSEG
-	DSEG
-	public	bgblue_
-bgblue_:
-	DB 52
-	DB 52
-	DB 0
-	CSEG
-	DSEG
-	public	bgmagent_
-bgmagent_:
-	DB 52
-	DB 53
-	DB 0
-	CSEG
-	DSEG
-	public	bgcyan_
-bgcyan_:
-	DB 52
-	DB 54
-	DB 0
-	CSEG
-	DSEG
-	public	bgwhite_
-bgwhite_:
-	DB 52
-	DB 55
-	DB 0
-	CSEG
-	PUBLIC dispattr_
-dispattr_:	lxi d,.2
-	call csave
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,27
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,10
-	DAD SP
-	SPHL
-	RET
-.2 EQU 0
-.1:
-	DB 37,99,91,37,115,59,37,115,59,37,115,109,0
-	PUBLIC main_
-main_:	lxi d,.4
-	call csave
-	LXI H,1
-	XCHG
-	LXI H,8-.4
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .lt
-	JZ .5
-	LXI H,1
-	XCHG
-	LXI H,2-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .7
-.6:
-	LXI H,2-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.7:
-	LXI H,2-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,8-.4
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .lt
-	JZ .8
-	LXI H,2-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	DAD H
-	XCHG
-	LXI H,10-.4
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL atoi_
-	POP D
-	PUSH H
-	LXI H,.3+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .6
-.8:
-	JMP .9
-.5:
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,bgblack_
-	PUSH H
-	LXI H,fggreen_
-	PUSH H
-	LXI H,atbold_
-	PUSH H
-	CALL dispattr_
-	POP D
-	POP D
-	POP D
-	LXI H,.3+3
-	PUSH H
-	CALL banner_
-	POP D
-	LXI H,attroff_
-	PUSH H
-	LXI H,.3+9
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,bgblack_
-	PUSH H
-	LXI H,fgcyan_
-	PUSH H
-	LXI H,atbold_
-	PUSH H
-	CALL dispattr_
-	POP D
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,-4-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .11
-.10:
-	LXI H,-4-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.11:
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16
-	CALL .lt
-	JZ .12
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	DAD H
-	DAD H
-	LXI D,9
-	DAD D
-	PUSH H
-	LXI H,6
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.3+12
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .10
-.12:
-	LXI H,attroff_
-	PUSH H
-	LXI H,.3+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,-6-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .14
-.13:
-	LXI H,-6-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.14:
-	LXI H,-6-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16
-	CALL .lt
-	JZ .15
-	LXI H,4
-	PUSH H
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,7
-	DAD D
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,bgblack_
-	PUSH H
-	LXI H,fgcyan_
-	PUSH H
-	LXI H,atbold_
-	PUSH H
-	CALL dispattr_
-	POP D
-	POP D
-	POP D
-	LXI H,-6-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.3+20
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,attroff_
-	PUSH H
-	LXI H,.3+25
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,-4-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .17
-.16:
-	LXI H,-4-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.17:
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16
-	CALL .lt
-	JZ .18
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	DAD H
-	DAD H
-	LXI D,10
-	DAD D
-	PUSH H
-	LXI H,-4-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,7
-	DAD D
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,-6-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	DAD H
-	DAD H
-	DAD H
-	DAD H
-	XCHG
-	LXI H,-4-.4
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	LXI D,map_
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .19
-	LXI H,.3+28
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .20
-.19:
-	LXI H,-6-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	DAD H
-	DAD H
-	DAD H
-	DAD H
-	XCHG
-	LXI H,-4-.4
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	PUSH H
-	LXI H,.3+30
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-.20:
-	JMP .16
-.18:
-	LXI H,bgblack_
-	PUSH H
-	LXI H,fgcyan_
-	PUSH H
-	LXI H,atbold_
-	PUSH H
-	CALL dispattr_
-	POP D
-	POP D
-	POP D
-	LXI H,-6-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.3+33
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,attroff_
-	PUSH H
-	LXI H,.3+40
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .13
-.15:
-.9:
-	LXI H,0
-	RET
-.4 EQU -10
-.3:
-	DB 37,99,0,67,72,65,82,83,0,37,115,0,91,37,120
-	DB 93,0,37,115,0,91,37,120,93,0,37,115,0,46,0
-	DB 37,99,0,32,32,91,37,120,93,0,37,115,0
-	extrn	atoi_
-	extrn	printf_
-	extrn	banner_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	.eq
-	extrn	.lt
-	END
-

branches/dwg/Apps/crossdev/CLEAR.ASM

@@ -1,44 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	style_,1
-	global	vdp_rege_,960
-	global	pINFOLIS_,2
-	global	metadata_,128
-	global	pCNFGDAT_,2
-	global	pSYSCFG_,2
-	PUBLIC main_
-main_:	lxi d,.2
-	call csave
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	RET
-.2 EQU -1
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	END
-

branches/dwg/Apps/crossdev/CLOGICAL.ASM

@@ -1,159 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	PUBLIC lugcur_
-lugcur_:	lxi d,.2
-	call csave
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-6602
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LHLD xregde_
-	RET
-.2 EQU 0
-	PUBLIC lugnum_
-lugnum_:	lxi d,.3
-	call csave
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,12-.3
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-6602
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LHLD xreghl_
-	RET
-.3 EQU 0
-	PUBLIC lugdu_
-lugdu_:	lxi d,.4
-	call csave
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,12-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-6602
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LHLD xregbc_
-	LXI D,8
-	XCHG
-	CALL .ur
-	RET
-.4 EQU 0
-	PUBLIC luscur_
-luscur_:	lxi d,.5
-	call csave
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,12-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-6602
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LHLD xreghl_
-	PUSH H
-	LXI H,12-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LHLD xregbc_
-	PUSH H
-	LXI H,-6599
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	RET
-.5 EQU 0
-	PUBLIC lusnum_
-lusnum_:	lxi d,.6
-	call csave
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,12-.6
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-6602
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,10-.6
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LHLD xregde_
-	PUSH H
-	LHLD xregbc_
-	PUSH H
-	LXI H,-6599
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	RET
-.6 EQU 0
-	extrn	asmif_
-	extrn	xreghl_
-	extrn	xregde_
-	extrn	xregbc_
-	extrn	.ur
-	END
-

branches/dwg/Apps/crossdev/CNAMEPT1.ASM

@@ -1,527 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	cache_,17
-	PUBLIC cnamept1_
-cnamept1_:	lxi d,.2
-	call csave
-	LXI H,.1+0
-	PUSH H
-	LXI H,cache_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	INX H
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.1+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	INX H
-	INX H
-	INX H
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.1+51
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,5
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.1+85
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,7
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.1+119
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,9
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+153
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,10
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+175
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,11
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+197
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,12
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+219
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+241
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,13
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .3
-.5:
-	LXI H,.1+261
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.6:
-	LXI H,.1+266
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.3:
-	CALL .swt
-	DW 2
-	DW 0,.6
-	DW 1,.5
-	DW .4
-.4:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,14
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+272
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,15
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+298
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,23
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+324
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+349
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,24
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .7
-.9:
-	LXI H,.1+369
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.10:
-	LXI H,.1+375
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.11:
-	LXI H,.1+380
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.7:
-	CALL .swt
-	DW 3
-	DW 1,.9
-	DW 2,.10
-	DW 3,.11
-	DW .8
-.8:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+383
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,25
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .12
-.14:
-	LXI H,.1+403
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.15:
-	LXI H,.1+415
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.16:
-	LXI H,.1+429
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.17:
-	LXI H,.1+441
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.18:
-	LXI H,.1+453
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.19:
-	LXI H,.1+463
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.20:
-	LXI H,.1+478
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.12:
-	CALL .swt
-	DW 6
-	DW 0,.14
-	DW 1,.15
-	DW 2,.16
-	DW 3,.17
-	DW 4,.18
-	DW 5,.19
-	DW .20
-.13:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+486
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,26
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .21
-.23:
-	LXI H,.1+506
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.24:
-	LXI H,.1+518
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.25:
-	LXI H,.1+529
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.26:
-	LXI H,.1+541
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.27:
-	LXI H,.1+555
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.28:
-	LXI H,.1+567
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.21:
-	CALL .swt
-	DW 5
-	DW 0,.23
-	DW 1,.24
-	DW 2,.25
-	DW 3,.26
-	DW 4,.27
-	DW .28
-.22:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,27
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+577
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,29
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+599
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	RET
-.2 EQU 0
-.1:
-	DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
-	DB 97,0,115,121,115,99,102,103,45,62,106,109,112,32,32
-	DB 32,32,32,32,32,32,32,32,32,32,106,112,32,32,48
-	DB 37,48,52,120,104,0,115,121,115,99,102,103,45,62,99
-	DB 110,102,108,111,99,32,32,32,32,32,32,32,32,32,46
-	DB 100,119,32,48,37,48,52,120,104,0,115,121,115,99,102
-	DB 103,45,62,116,115,116,108,111,99,32,32,32,32,32,32
-	DB 32,32,32,46,100,119,32,48,37,48,52,120,104,0,115
-	DB 121,115,99,102,103,45,62,118,97,114,108,111,99,32,32
-	DB 32,32,32,32,32,32,32,46,100,119,32,48,37,48,52
-	DB 120,104,0,37,115,46,114,109,106,32,32,32,32,32,32
-	DB 32,32,32,32,32,61,32,37,100,0,37,115,46,114,109
-	DB 110,32,32,32,32,32,32,32,32,32,32,32,61,32,37
-	DB 100,0,37,115,46,114,117,112,32,32,32,32,32,32,32
-	DB 32,32,32,32,61,32,37,100,0,37,115,46,114,116,112
-	DB 32,32,32,32,32,32,32,32,32,32,32,61,32,37,100
-	DB 0,37,115,46,100,105,115,107,98,111,111,116,32,32,32
-	DB 32,32,32,61,32,0,84,82,85,69,0,70,65,76,83
-	DB 69,0,37,115,46,100,101,118,117,110,105,116,32,32,32
-	DB 32,32,32,32,61,32,48,120,37,48,50,120,0,37,115
-	DB 46,98,111,111,116,108,117,32,32,32,32,32,32,32,32
-	DB 61,32,48,120,37,48,52,120,0,37,115,46,102,114,101
-	DB 113,32,32,32,32,32,32,32,32,32,32,61,32,37,100
-	DB 77,72,122,0,37,115,46,112,108,97,116,102,111,114,109
-	DB 32,32,32,32,32,32,61,32,0,78,56,86,69,77,0
-	DB 90,69,84,65,0,78,56,0,37,115,46,100,105,111,112
-	DB 108,97,116,32,32,32,32,32,32,32,61,32,0,68,73
-	DB 79,80,76,84,95,78,79,78,69,0,68,73,79,80,76
-	DB 84,95,68,73,83,75,73,79,0,68,73,79,80,76,84
-	DB 95,90,69,84,65,0,68,73,79,80,76,84,95,68,73
-	DB 68,69,0,68,73,79,80,76,84,95,78,56,0,68,73
-	DB 79,80,76,84,95,68,73,83,75,73,79,51,0,85,110
-	DB 107,110,111,119,110,0,37,115,46,118,100,117,109,111,100
-	DB 101,32,32,32,32,32,32,32,61,32,0,86,68,85,80
-	DB 76,84,95,78,79,78,69,0,86,68,85,80,76,84,95
-	DB 86,68,85,0,86,68,85,80,76,84,95,86,68,85,67
-	DB 0,86,68,85,80,76,84,95,80,82,79,80,73,79,0
-	DB 86,68,85,80,76,84,95,86,80,78,56,0,85,110,107
-	DB 110,111,119,110,33,33,0,37,115,46,114,111,109,115,105
-	DB 122,101,32,32,32,32,32,32,32,61,32,37,100,0,37
-	DB 115,46,114,97,109,115,105,122,101,32,32,32,32,32,32
-	DB 32,61,32,37,100,0
-	extrn	printf_
-	extrn	strcpy_
-	extrn	pager_
-	END
-

branches/dwg/Apps/crossdev/CNAMEPT2.ASM

@@ -1,480 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	cache_,17
-	PUBLIC cnamept2_
-cnamept2_:	lxi d,.2
-	call csave
-	LXI H,.1+0
-	PUSH H
-	LXI H,cache_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,31
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .3
-.5:
-	LXI H,.1+37
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.6:
-	LXI H,.1+47
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.7:
-	LXI H,.1+56
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.3:
-	CALL .swt
-	DW 3
-	DW 0,.5
-	DW 1,.6
-	DW 2,.7
-	DW .4
-.4:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+68
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,32
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .8
-.10:
-	LXI H,.1+88
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.11:
-	LXI H,.1+93
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.8:
-	CALL .swt
-	DW 2
-	DW 0,.11
-	DW 1,.10
-	DW .9
-.9:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+99
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,33
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .12
-.14:
-	LXI H,.1+119
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.15:
-	LXI H,.1+124
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.12:
-	CALL .swt
-	DW 2
-	DW 0,.15
-	DW 1,.14
-	DW .13
-.13:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+130
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,34
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .16
-.18:
-	LXI H,.1+150
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .17
-.19:
-	LXI H,.1+155
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .17
-.16:
-	CALL .swt
-	DW 2
-	DW 0,.19
-	DW 1,.18
-	DW .17
-.17:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+161
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,35
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .20
-.22:
-	LXI H,.1+181
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .21
-.23:
-	LXI H,.1+186
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .21
-.20:
-	CALL .swt
-	DW 2
-	DW 0,.23
-	DW 1,.22
-	DW .21
-.21:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,35
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .24
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+192
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,36
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .25
-.27:
-	LXI H,.1+212
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .26
-.28:
-	LXI H,.1+219
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .26
-.29:
-	LXI H,.1+232
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .26
-.30:
-	LXI H,.1+243
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .26
-.31:
-	LXI H,.1+254
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .26
-.25:
-	CALL .swt
-	DW 4
-	DW 0,.27
-	DW 1,.28
-	DW 2,.29
-	DW 3,.30
-	DW .31
-.26:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+264
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,37
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .32
-.34:
-	LXI H,.1+284
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+291
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .33
-.35:
-	LXI H,.1+329
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+336
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .33
-.36:
-	LXI H,.1+376
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+383
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .33
-.37:
-	LXI H,.1+422
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+429
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .33
-.38:
-	LXI H,.1+468
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .33
-.32:
-	CALL .swt
-	DW 4
-	DW 0,.34
-	DW 1,.35
-	DW 2,.36
-	DW 3,.37
-	DW .38
-.33:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+478
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,38
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .39
-.41:
-	LXI H,.1+498
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+505
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.42:
-	LXI H,.1+543
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+550
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.43:
-	LXI H,.1+590
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+597
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.44:
-	LXI H,.1+636
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+643
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.39:
-	CALL .swt
-	DW 4
-	DW 0,.41
-	DW 1,.42
-	DW 2,.43
-	DW 3,.44
-	DW .40
-.40:
-	CALL pager_
-.24:
-	RET
-.2 EQU 0
-.1:
-	DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
-	DB 97,0,37,115,46,99,108,114,114,97,109,100,107,32,32
-	DB 32,32,32,32,61,32,0,67,76,82,95,78,69,86,69
-	DB 82,0,67,76,82,95,65,85,84,79,0,67,76,82,95
-	DB 65,76,76,87,65,89,83,0,37,115,46,100,115,107,121
-	DB 101,110,97,98,108,101,32,32,32,32,61,32,0,84,82
-	DB 85,69,0,70,65,76,83,69,0,37,115,46,117,97,114
-	DB 116,101,110,97,98,108,101,32,32,32,32,61,32,0,84
-	DB 82,85,69,0,70,65,76,83,69,0,37,115,46,118,100
-	DB 117,101,110,97,98,108,101,32,32,32,32,32,61,32,0
-	DB 84,82,85,69,0,70,65,76,83,69,0,37,115,46,102
-	DB 100,101,110,97,98,108,101,32,32,32,32,32,32,61,32
-	DB 0,84,82,85,69,0,70,65,76,83,69,0,37,115,46
-	DB 102,100,116,114,97,99,101,32,32,32,32,32,32,32,61
-	DB 32,0,83,105,108,101,110,116,0,70,97,116,97,108,32
-	DB 69,114,114,111,114,115,0,65,108,108,32,69,114,114,111
-	DB 114,115,0,69,118,101,114,121,116,104,105,110,103,0,85
-	DB 110,107,110,111,119,110,33,33,0,37,115,46,102,100,109
-	DB 101,100,105,97,32,32,32,32,32,32,32,61,32,0,70
-	DB 68,77,55,50,48,0,32,32,51,46,53,32,55,50,48
-	DB 75,66,32,50,45,115,105,100,101,100,32,56,48,32,84
-	DB 114,107,115,32,57,32,83,101,99,116,111,114,115,0,70
-	DB 68,77,49,52,52,0,32,32,51,46,53,32,49,46,52
-	DB 52,77,66,32,50,45,115,105,100,101,100,32,56,48,32
-	DB 84,114,107,115,32,49,56,32,83,101,99,116,111,114,115
-	DB 0,70,68,77,51,54,48,0,32,32,53,46,50,53,32
-	DB 51,54,48,75,66,32,50,45,115,105,100,101,100,32,52
-	DB 48,32,84,114,107,115,32,57,32,83,101,99,116,111,114
-	DB 115,0,70,68,77,49,50,48,0,32,32,51,46,53,32
-	DB 49,46,50,77,66,32,50,45,115,105,100,101,100,32,56
-	DB 48,32,84,114,107,115,32,49,53,32,83,101,99,116,111
-	DB 114,115,0,85,110,107,110,111,119,110,33,33,0,37,115
-	DB 46,102,100,109,101,100,105,97,97,108,116,32,32,32,32
-	DB 61,32,0,70,68,77,55,50,48,0,32,32,51,46,53
-	DB 32,55,50,48,75,66,32,50,45,115,105,100,101,100,32
-	DB 56,48,32,84,114,107,115,32,57,32,83,101,99,116,111
-	DB 114,115,0,70,68,77,49,52,52,0,32,32,51,46,53
-	DB 32,49,46,52,52,77,66,32,50,45,115,105,100,101,100
-	DB 32,56,48,32,84,114,107,115,32,49,56,32,83,101,99
-	DB 116,111,114,115,0,70,68,77,51,54,48,0,32,32,53
-	DB 46,50,53,32,51,54,48,75,66,32,50,45,115,105,100
-	DB 101,100,32,52,48,32,84,114,107,115,32,57,32,83,101
-	DB 99,116,111,114,115,0,70,68,77,49,50,48,0,32,32
-	DB 51,46,53,32,49,46,50,77,66,32,50,45,115,105,100
-	DB 101,100,32,56,48,32,84,114,107,115,32,49,53,32,83
-	DB 101,99,116,111,114,115,0
-	extrn	printf_
-	extrn	strcpy_
-	extrn	pager_
-	extrn	.eq
-	END
-

branches/dwg/Apps/crossdev/CNAMEPT3.ASM

@@ -1,794 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	cache_,17
-	PUBLIC cnamept3_
-cnamept3_:	lxi d,.2
-	call csave
-	LXI H,.1+0
-	PUSH H
-	LXI H,cache_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,39
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .3
-.5:
-	LXI H,.1+37
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.6:
-	LXI H,.1+42
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .4
-.3:
-	CALL .swt
-	DW 2
-	DW 0,.6
-	DW 1,.5
-	DW .4
-.4:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+48
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,40
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .7
-.9:
-	LXI H,.1+68
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.10:
-	LXI H,.1+73
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.7:
-	CALL .swt
-	DW 2
-	DW 0,.10
-	DW 1,.9
-	DW .8
-.8:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,40
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .11
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+79
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,41
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .12
-.14:
-	LXI H,.1+95
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.15:
-	LXI H,.1+102
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.16:
-	LXI H,.1+109
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.17:
-	LXI H,.1+120
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .13
-.12:
-	CALL .swt
-	DW 3
-	DW 0,.14
-	DW 1,.15
-	DW 2,.16
-	DW .17
-.13:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+130
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,42
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .18
-.20:
-	LXI H,.1+149
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .19
-.21:
-	LXI H,.1+154
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .19
-.22:
-	LXI H,.1+160
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .19
-.18:
-	CALL .swt
-	DW 2
-	DW 0,.21
-	DW 1,.20
-	DW .22
-.19:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,43
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+170
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-.11:
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+194
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,45
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .23
-.25:
-	LXI H,.1+214
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .24
-.26:
-	LXI H,.1+219
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .24
-.23:
-	CALL .swt
-	DW 2
-	DW 0,.26
-	DW 1,.25
-	DW .24
-.24:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,45
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .27
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+225
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,46
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .28
-.30:
-	LXI H,.1+245
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .29
-.31:
-	LXI H,.1+252
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .29
-.32:
-	LXI H,.1+259
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .29
-.33:
-	LXI H,.1+270
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .29
-.28:
-	CALL .swt
-	DW 3
-	DW 0,.30
-	DW 1,.31
-	DW 2,.32
-	DW .33
-.29:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+280
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,47
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .34
-.36:
-	LXI H,.1+300
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .35
-.37:
-	LXI H,.1+305
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .35
-.38:
-	LXI H,.1+311
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .35
-.34:
-	CALL .swt
-	DW 2
-	DW 0,.37
-	DW 1,.36
-	DW .38
-.35:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,48
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+321
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+345
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .39
-.41:
-	LXI H,.1+365
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.42:
-	LXI H,.1+370
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.43:
-	LXI H,.1+376
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.39:
-	CALL .swt
-	DW 2
-	DW 0,.42
-	DW 1,.41
-	DW .43
-.40:
-	CALL pager_
-.27:
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+386
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,51
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .44
-.46:
-	LXI H,.1+406
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .45
-.47:
-	LXI H,.1+414
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .45
-.44:
-	CALL .swt
-	DW 2
-	DW 1,.46
-	DW 2,.47
-	DW .45
-.45:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,52
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+422
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,53
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+452
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,54
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,10-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,54
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+475
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,24
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,3
-	POP D
-	CALL .eq
-	JZ .48
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,56
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+511
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,57
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+533
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,58
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+559
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,59
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+585
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,60
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+611
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+637
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,61
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .49
-.51:
-	LXI H,.1+657
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .50
-.52:
-	LXI H,.1+662
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .50
-.53:
-	LXI H,.1+668
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .50
-.49:
-	CALL .swt
-	DW 2
-	DW 0,.52
-	DW 1,.51
-	DW .53
-.50:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+678
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,62
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .54
-.56:
-	LXI H,.1+698
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .55
-.57:
-	LXI H,.1+703
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .55
-.58:
-	LXI H,.1+709
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .55
-.54:
-	CALL .swt
-	DW 2
-	DW 0,.57
-	DW 1,.56
-	DW .58
-.55:
-	CALL pager_
-.48:
-	RET
-.2 EQU 0
-.1:
-	DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
-	DB 97,0,37,115,46,102,100,109,97,117,116,111,32,32,32
-	DB 32,32,32,32,61,32,0,84,82,85,69,0,70,65,76
-	DB 83,69,0,37,115,46,105,100,101,101,110,97,98,108,101
-	DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65
-	DB 76,83,69,0,37,115,46,105,100,101,116,114,97,99,101
-	DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82
-	DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0
-	DB 85,110,107,110,111,119,110,33,33,0,37,115,46,100,101
-	DB 56,98,105,116,32,32,32,32,32,32,32,61,32,0,84
-	DB 82,85,69,0,70,65,76,83,69,0,85,110,107,110,111
-	DB 119,110,33,33,0,37,115,46,105,100,101,99,97,112,97
-	DB 99,105,116,121,32,32,32,61,32,37,100,77,66,0,37
-	DB 115,46,112,112,105,100,101,101,110,97,98,108,101,32,32
-	DB 32,61,32,0,84,82,85,69,0,70,65,76,83,69,0
-	DB 37,115,46,112,112,105,100,101,116,114,97,99,101,32,32
-	DB 32,32,61,32,0,83,73,76,69,78,84,0,69,82,82
-	DB 79,82,83,0,69,86,69,82,89,84,72,73,78,71,0
-	DB 85,110,107,110,111,119,110,33,33,0,37,115,46,112,112
-	DB 105,100,101,56,98,105,116,32,32,32,32,32,61,32,0
-	DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110
-	DB 111,119,110,33,33,0,37,115,46,112,112,105,100,101,99
-	DB 97,112,97,99,105,116,121,32,61,32,37,100,75,66,0
-	DB 37,115,46,112,112,105,100,101,115,108,111,119,32,32,32
-	DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69
-	DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,98
-	DB 111,111,116,116,121,112,101,32,32,32,32,32,32,61,32
-	DB 0,66,84,95,77,69,78,85,0,66,84,95,65,85,84
-	DB 79,0,37,115,46,98,111,111,116,116,105,109,101,111,117
-	DB 116,32,32,32,61,32,37,100,32,115,101,99,111,110,100
-	DB 115,0,37,115,46,98,111,111,116,100,101,102,97,117,108
-	DB 116,32,32,32,61,32,37,99,58,0,37,115,46,98,97
-	DB 117,100,114,97,116,101,32,32,32,32,32,32,61,32,37
-	DB 117,32,40,48,120,37,48,52,120,41,32,66,97,117,100
-	DB 0,37,115,46,99,107,100,105,118,32,32,32,32,32,32
-	DB 32,32,32,61,32,37,100,0,37,115,46,109,101,109,119
-	DB 97,105,116,32,32,32,32,32,32,32,61,32,48,120,37
-	DB 48,50,120,0,37,115,46,105,111,119,97,105,116,32,32
-	DB 32,32,32,32,32,32,61,32,48,120,37,48,50,120,0
-	DB 37,115,46,99,110,116,108,98,48,32,32,32,32,32,32
-	DB 32,32,61,32,48,120,37,48,50,120,0,37,115,46,99
-	DB 110,116,108,98,49,32,32,32,32,32,32,32,32,61,32
-	DB 48,120,37,48,50,120,0,37,115,46,115,100,101,110,97
-	DB 98,108,101,32,32,32,32,32,32,61,32,0,84,82,85
-	DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
-	DB 33,33,0,37,115,46,115,100,116,114,97,99,101,32,32
-	DB 32,32,32,32,32,61,32,0,84,82,85,69,0,70,65
-	DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0
-	extrn	printf_
-	extrn	strcpy_
-	extrn	pager_
-	extrn	.eq
-	END
-

branches/dwg/Apps/crossdev/CNAMEPT4.ASM

@@ -1,742 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	cache_,17
-	PUBLIC cnamept4_
-cnamept4_:	lxi d,.2
-	call csave
-	LXI H,.1+0
-	PUSH H
-	LXI H,cache_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,24
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,3
-	POP D
-	CALL .eq
-	JZ .3
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,63
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+41
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .4
-.6:
-	LXI H,.1+61
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .5
-.7:
-	LXI H,.1+66
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .5
-.8:
-	LXI H,.1+72
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .5
-.4:
-	CALL .swt
-	DW 2
-	DW 0,.7
-	DW 1,.6
-	DW .8
-.5:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+82
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,66
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .9
-.11:
-	LXI H,.1+102
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .10
-.12:
-	LXI H,.1+107
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .10
-.13:
-	LXI H,.1+113
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .10
-.9:
-	CALL .swt
-	DW 2
-	DW 0,.12
-	DW 1,.11
-	DW .13
-.10:
-	CALL pager_
-.3:
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,67
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+123
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+149
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .14
-.16:
-	LXI H,.1+169
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .15
-.17:
-	LXI H,.1+178
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .15
-.18:
-	LXI H,.1+188
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .15
-.19:
-	LXI H,.1+198
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .15
-.20:
-	LXI H,.1+208
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .15
-.14:
-	CALL .swt
-	DW 4
-	DW 0,.16
-	DW 1,.17
-	DW 2,.18
-	DW 3,.19
-	DW .20
-.15:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,69
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+218
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+240
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,84
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .21
-.23:
-	LXI H,.1+260
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.24:
-	LXI H,.1+265
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.25:
-	LXI H,.1+271
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .22
-.21:
-	CALL .swt
-	DW 2
-	DW 0,.24
-	DW 1,.23
-	DW .25
-.22:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,84
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .26
-	LXI H,.1+281
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,71
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .27
-.29:
-	LXI H,.1+301
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .28
-.30:
-	LXI H,.1+306
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .28
-.31:
-	LXI H,.1+312
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .28
-.27:
-	CALL .swt
-	DW 2
-	DW 0,.30
-	DW 1,.29
-	DW .31
-.28:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,71
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .32
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+322
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,72
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .33
-.35:
-	LXI H,.1+342
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .34
-.36:
-	LXI H,.1+349
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .34
-.37:
-	LXI H,.1+356
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .34
-.38:
-	LXI H,.1+367
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .34
-.33:
-	CALL .swt
-	DW 3
-	DW 0,.35
-	DW 1,.36
-	DW 2,.37
-	DW .38
-.34:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+377
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+397
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,75
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .39
-.41:
-	LXI H,.1+417
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.42:
-	LXI H,.1+422
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.43:
-	LXI H,.1+428
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .40
-.39:
-	CALL .swt
-	DW 2
-	DW 0,.42
-	DW 1,.41
-	DW .43
-.40:
-	CALL pager_
-.32:
-.26:
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,76
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+438
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+460
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,78
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .44
-.46:
-	LXI H,.1+480
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .45
-.47:
-	LXI H,.1+485
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .45
-.48:
-	LXI H,.1+491
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .45
-.44:
-	CALL .swt
-	DW 2
-	DW 0,.47
-	DW 1,.46
-	DW .48
-.45:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,78
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .49
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+501
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,79
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .50
-.52:
-	LXI H,.1+520
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .51
-.53:
-	LXI H,.1+525
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .51
-.54:
-	LXI H,.1+531
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .51
-.50:
-	CALL .swt
-	DW 2
-	DW 0,.53
-	DW 1,.52
-	DW .54
-.51:
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+541
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,80
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .55
-.57:
-	LXI H,.1+561
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .56
-.58:
-	LXI H,.1+568
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .56
-.59:
-	LXI H,.1+575
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .56
-.60:
-	LXI H,.1+586
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .56
-.55:
-	CALL .swt
-	DW 3
-	DW 0,.57
-	DW 1,.58
-	DW 2,.59
-	DW .60
-.56:
-	CALL pager_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,73
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+596
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	CALL pager_
-	LXI H,cache_
-	PUSH H
-	LXI H,.1+618
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,83
-	DAD D
-	MOV E,M
-	MVI	D,0
-	XCHG
-	JMP .61
-.63:
-	LXI H,.1+638
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .62
-.64:
-	LXI H,.1+643
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .62
-.65:
-	LXI H,.1+649
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .62
-.61:
-	CALL .swt
-	DW 2
-	DW 0,.64
-	DW 1,.63
-	DW .65
-.62:
-	CALL pager_
-.49:
-	RET
-.2 EQU 0
-.1:
-	DB 115,121,115,99,102,103,45,62,99,110,102,103,100,97,116
-	DB 97,0,37,115,46,115,100,99,97,112,97,99,105,116,121
-	DB 32,32,32,32,61,32,37,117,75,66,0,37,115,46,115
-	DB 100,99,115,105,111,32,32,32,32,32,32,32,32,61,32
-	DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107
-	DB 110,111,119,110,33,33,0,37,115,46,115,100,99,115,105
-	DB 111,102,97,115,116,32,32,32,32,61,32,0,84,82,85
-	DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
-	DB 33,33,0,37,115,46,100,101,102,105,111,98,121,116,101
-	DB 32,32,32,32,32,61,32,48,120,37,48,50,120,0,37
-	DB 115,46,116,101,114,109,116,121,112,101,32,32,32,32,32
-	DB 32,61,32,0,84,69,82,77,95,84,84,89,0,84,69
-	DB 82,77,95,65,78,83,73,0,84,69,82,77,95,87,89
-	DB 83,69,0,84,69,82,77,95,86,84,53,50,0,85,110
-	DB 107,110,111,119,110,33,33,0,37,115,46,114,101,118,105
-	DB 115,105,111,110,32,32,32,32,32,32,61,32,37,100,0
-	DB 37,115,46,112,114,112,101,110,97,98,108,101,32,32,32
-	DB 32,32,61,32,0,84,82,85,69,0,70,65,76,83,69
-	DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112
-	DB 114,112,115,100,101,110,97,98,108,101,32,32,32,61,32
-	DB 0,84,82,85,69,0,70,65,76,83,69,0,85,110,107
-	DB 110,111,119,110,33,33,0,37,115,46,112,114,112,115,100
-	DB 116,114,97,99,101,32,32,32,32,61,32,0,83,73,76
-	DB 69,78,84,0,69,82,82,79,82,83,0,69,86,69,82
-	DB 89,84,72,73,78,71,0,85,110,107,110,111,119,110,33
-	DB 33,0,37,115,46,112,114,112,115,100,99,97,112,97,99
-	DB 105,116,121,32,61,32,0,37,115,46,112,114,112,99,111
-	DB 110,101,110,97,98,108,101,32,32,61,32,0,84,82,85
-	DB 69,0,70,65,76,83,69,0,85,110,107,110,111,119,110
-	DB 33,33,0,37,115,46,98,105,111,115,115,105,122,101,32
-	DB 32,32,32,32,32,61,32,37,100,0,37,115,46,112,112
-	DB 112,101,110,97,98,108,101,32,32,32,32,32,61,32,0
-	DB 84,82,85,69,0,70,65,76,83,69,0,85,110,107,110
-	DB 111,119,110,33,33,0,37,115,46,112,112,112,115,100,101
-	DB 110,97,98,108,101,32,32,61,32,0,84,82,85,69,0
-	DB 70,65,76,83,69,0,85,110,107,110,111,119,110,33,33
-	DB 0,37,115,46,112,112,112,115,100,116,114,97,99,101,32
-	DB 32,32,32,61,32,0,83,73,76,69,78,84,0,69,82
-	DB 82,79,82,83,0,69,86,69,82,89,84,72,73,78,71
-	DB 0,85,110,107,110,111,119,110,33,33,0,37,115,46,112
-	DB 112,112,99,97,112,97,99,105,116,121,32,32,32,61,32
-	DB 37,100,0,37,115,46,112,112,112,99,111,110,101,110,97
-	DB 98,108,101,32,32,61,32,0,84,82,85,69,0,70,65
-	DB 76,83,69,0,85,110,107,110,111,119,110,33,33,0
-	extrn	printf_
-	extrn	strcpy_
-	extrn	pager_
-	extrn	.eq
-	END
-

branches/dwg/Apps/crossdev/CPMNAME.ASM

@@ -1,164 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	pINFOLIS_,2
-	global	pSYSCFG_,2
-	global	line_,2
-	PUBLIC main_
-main_:	lxi d,.2
-	call csave
-	LXI H,5
-	SHLD line_
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,3
-	PUSH H
-	LXI H,2
-	PUSH H
-	LXI H,2013
-	PUSH H
-	LXI H,16
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,16
-	DAD SP
-	SPHL
-	LXI H,.1+36
-	PUSH H
-	CALL printf_
-	POP D
-	CALL pager_
-	CALL pager_
-	LXI H,-6596
-	SHLD ireghl_
-	CALL bioscall_
-	LHLD ireghl_
-	SHLD pINFOLIS_
-	LXI H,.1+72
-	PUSH H
-	CALL printf_
-	POP D
-	LHLD pINFOLIS_
-	INX H
-	INX H
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD dregde_
-	LXI H,9
-	SHLD dregbc_
-	CALL bdoscall_
-	CALL pager_
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	PUSH H
-	CALL cnamept1_
-	POP D
-	LHLD pSYSCFG_
-	PUSH H
-	CALL cnamept2_
-	POP D
-	LHLD pSYSCFG_
-	PUSH H
-	CALL cnamept3_
-	POP D
-	LHLD pSYSCFG_
-	PUSH H
-	CALL cnamept4_
-	POP D
-	RET
-.2 EQU -7
-.1:
-	DB 67,80,77,78,65,77,69,46,67,79,77,32,37,100,47
-	DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100
-	DB 32,40,37,100,41,0,32,100,119,103,32,45,32,68,105
-	DB 115,112,108,97,121,32,83,121,115,116,101,109,32,67,111
-	DB 110,102,105,103,117,114,97,116,105,111,110,0,112,73,78
-	DB 70,79,76,73,83,84,45,62,98,97,110,112,116,114,32
-	DB 61,61,62,32,0
-	PUBLIC pager_
-pager_:	lxi d,.4
-	call csave
-	LHLD line_
-	INX H
-	SHLD line_
-	LXI H,.3+0
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,24
-	XCHG
-	LHLD line_
-	CALL .eq
-	JZ .5
-	LXI H,.3+2
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,1
-	SHLD dregbc_
-	CALL bdoscall_
-	LXI H,1
-	SHLD line_
-.5:
-	RET
-.4 EQU 0
-.3:
-	DB 10,0,32,32,32,32,32,112,114,101,115,115,32,97,110
-	DB 121,32,107,101,121,32,116,111,32,99,111,110,116,105,110
-	DB 117,101,0
-	extrn	printf_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	extrn	cnamept4_
-	extrn	cnamept3_
-	extrn	cnamept2_
-	extrn	cnamept1_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	bdoscall_
-	extrn	dregde_
-	extrn	dregbc_
-	extrn	bioscall_
-	extrn	ireghl_
-	extrn	.eq
-	END
-

branches/dwg/Apps/crossdev/CTERMCAP.ASM

@@ -1,334 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	termtype_,1
-	DSEG
-	public	wy50row_
-wy50row_:
-	DB 32
-	DB 33
-	DB 34
-	DB 35
-	DB 36
-	DB 37
-	DB 38
-	DB 39
-	DB 40
-	DB 41
-	DB 42
-	DB 43
-	DB 44
-	DB 45
-	DB 46
-	DB 47
-	DB 48
-	DB 49
-	DB 50
-	DB 51
-	DB 52
-	DB 53
-	DB 54
-	DB 55
-	CSEG
-	DSEG
-	public	wy50col_
-wy50col_:
-	DB 32
-	DB 33
-	DB 34
-	DB 35
-	DB 36
-	DB 37
-	DB 38
-	DB 39
-	DB 40
-	DB 41
-	DB 42
-	DB 43
-	DB 44
-	DB 45
-	DB 46
-	DB 47
-	DB 48
-	DB 49
-	DB 50
-	DB 51
-	DB 52
-	DB 53
-	DB 54
-	DB 55
-	DB 56
-	DB 57
-	DB 58
-	DB 59
-	DB 60
-	DB 61
-	DB 62
-	DB 63
-	DB 64
-	DB 65
-	DB 66
-	DB 67
-	DB 68
-	DB 69
-	DB 70
-	DB 71
-	DB 72
-	DB 73
-	DB 74
-	DB 75
-	DB 76
-	DB 77
-	DB 78
-	DB 79
-	DB 80
-	DB 81
-	DB 82
-	DB 83
-	DB 84
-	DB 85
-	DB 86
-	DB 87
-	DB 88
-	DB 89
-	DB 90
-	DB 91
-	DB 92
-	DB 93
-	DB 94
-	DB 95
-	DB 96
-	DB 97
-	DB 98
-	DB 99
-	DB 100
-	DB 101
-	DB 102
-	DB 103
-	DB 104
-	DB 105
-	DB 106
-	DB 107
-	DB 108
-	DB 109
-	DB 110
-	DB 111
-	CSEG
-	PUBLIC crtinit_
-crtinit_:	lxi d,.2
-	call csave
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	XCHG
-	MOV A,L
-	STA termtype_
-	RET
-.2 EQU 0
-	PUBLIC crtclr_
-crtclr_:	lxi d,.3
-	call csave
-	LDA termtype_
-	MOV L,A
-	MVI	H,0
-	JMP .4
-.6:
-	LXI H,0
-	XCHG
-	LXI H,2-.3
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .8
-.7:
-	LXI H,2-.3
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.8:
-	LXI H,2-.3
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,43
-	CALL .lt
-	JZ .9
-	LXI H,10
-	PUSH H
-	LXI H,13
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	JMP .7
-.9:
-	JMP .5
-.10:
-	LXI H,27
-	PUSH H
-	LXI H,.1+5
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .5
-.11:
-	LXI H,27
-	PUSH H
-	LXI H,.1+11
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .5
-.12:
-	LXI H,27
-	PUSH H
-	LXI H,27
-	PUSH H
-	LXI H,.1+15
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	JMP .5
-.4:
-	CALL .swt
-	DW 4
-	DW 0,.6
-	DW 1,.10
-	DW 2,.11
-	DW 3,.12
-	DW .5
-.5:
-	RET
-.3 EQU -2
-.1:
-	DB 37,99,37,99,0,37,99,91,50,74,0,37,99,43,0
-	DB 37,99,74,37,99,72,0
-	PUBLIC crtlc_
-crtlc_:	lxi d,.14
-	call csave
-	LDA termtype_
-	MOV L,A
-	MVI	H,0
-	JMP .15
-.17:
-	JMP .16
-.18:
-	LXI H,102
-	PUSH H
-	LXI H,12-.14
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,12-.14
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,27
-	PUSH H
-	LXI H,.13+0
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,10
-	DAD SP
-	SPHL
-	JMP .16
-.19:
-	LXI H,10-.14
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,wy50col_
-	DAD D
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,10-.14
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,wy50row_
-	DAD D
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,27
-	PUSH H
-	LXI H,.13+11
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	JMP .16
-.20:
-	LXI H,10-.14
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,32
-	DAD D
-	PUSH H
-	LXI H,10-.14
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,32
-	DAD D
-	PUSH H
-	LXI H,27
-	PUSH H
-	LXI H,.13+19
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	JMP .16
-.15:
-	CALL .swt
-	DW 4
-	DW 0,.17
-	DW 1,.18
-	DW 2,.19
-	DW 3,.20
-	DW .16
-.16:
-	RET
-.14 EQU -2
-.13:
-	DB 37,99,91,37,100,59,37,100,37,99,0,37,99,61,37
-	DB 99,37,99,0,37,99,89,37,99,37,99,0
-	extrn	printf_
-	extrn	.lt
-	END
-

branches/dwg/Apps/crossdev/FLIP.ASM

@@ -1,428 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	PUBLIC vdaini_
-vdaini_:	lxi d,.2
-	call csave
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16384
-	CALL .or
-	SHLD hregbc_
-	LHLD hregbc_
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,10-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD hregde_
-	LHLD hregde_
-	PUSH H
-	LXI H,.1+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD hreghl_
-	LHLD hreghl_
-	PUSH H
-	LXI H,.1+34
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL diagnose_
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.1+51
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	RET
-.2 EQU 0
-.1:
-	DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
-	DB 10,0,104,114,101,103,100,101,32,61,32,48,120,37,48
-	DB 52,120,10,0,104,114,101,103,104,108,32,61,32,48,120
-	DB 37,48,52,120,10,0,86,68,65,73,78,73,32,99,97
-	DB 108,108,101,100,44,32,114,101,116,117,114,110,32,99,111
-	DB 100,101,32,119,97,115,32,48,120,37,48,50,120,10,0
-	PUBLIC bitlook_
-bitlook_:	lxi d,.4
-	call csave
-	LXI H,-32768
-	XCHG
-	LXI H,2-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,0-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .6
-.5:
-	LXI H,0-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.6:
-	LXI H,0-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,256
-	CALL .lt
-	JZ .7
-	LXI H,0-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.3+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,-2-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .9
-.8:
-	LXI H,-2-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.9:
-	LXI H,-2-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,8
-	CALL .lt
-	JZ .10
-	LXI H,2-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,.3+16
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .8
-.10:
-	LXI H,.3+24
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .5
-.7:
-	RET
-.4 EQU -6
-.3:
-	DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32
-	DB 0,48,120,37,48,50,120,32,0,10,0
-	PUBLIC vdaqry_
-vdaqry_:	lxi d,.12
-	call csave
-	LXI H,8-.12
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16640
-	CALL .or
-	SHLD hregbc_
-	LHLD hregbc_
-	PUSH H
-	LXI H,.11+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,10-.12
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD hreghl_
-	LHLD hreghl_
-	LXI D,-32768
-	CALL .ne
-	JZ .13
-	LXI H,.11+17
-	PUSH H
-	CALL printf_
-	POP D
-.13:
-	CALL diagnose_
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.11+43
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD hregbc_
-	LXI D,255
-	CALL .an
-	PUSH H
-	LXI H,.11+83
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD hregde_
-	LXI D,8
-	XCHG
-	CALL .ur
-	PUSH H
-	LHLD hregde_
-	LXI D,8
-	XCHG
-	CALL .ur
-	PUSH H
-	LXI H,.11+123
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LHLD hregde_
-	LXI D,255
-	CALL .an
-	PUSH H
-	LHLD hregde_
-	LXI D,255
-	CALL .an
-	PUSH H
-	LXI H,.11+167
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	RET
-.12 EQU 0
-.11:
-	DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
-	DB 10,0,118,100,97,113,114,121,32,115,97,121,115,32,104
-	DB 108,32,33,61,32,48,120,56,48,48,48,10,0,86,68
-	DB 65,81,82,89,32,99,97,108,108,101,100,44,32,115,116
-	DB 97,116,117,115,32,32,32,32,32,32,32,119,97,115,32
-	DB 48,120,37,48,50,120,10,0,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,118,105,100,101,111,32,109
-	DB 111,100,101,32,32,32,119,97,115,32,48,120,37,48,50
-	DB 120,10,0,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,114,111,119,32,99,111,117,110,116,32,32,32
-	DB 32,119,97,115,32,48,120,37,48,50,120,40,37,100,41
-	DB 10,0,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,99,111,108,117,109,110,32,99,111,117,110,116,32
-	DB 119,97,115,32,48,120,37,48,50,120,40,37,100,41,10
-	DB 0
-	PUBLIC main_
-main_:	lxi d,.15
-	call csave
-	LXI H,.14+0
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,-32768
-	PUSH H
-	LXI H,64
-	PUSH H
-	CALL vdaqry_
-	POP D
-	POP D
-	XCHG
-	LXI H,-3-.15
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,-32768
-	XCHG
-	LXI H,2-.15
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,-1-.15
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .17
-.16:
-	LXI H,-1-.15
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.17:
-	LXI H,-1-.15
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2048
-	CALL .lt
-	JZ .18
-	LXI H,2-.15
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	MOV E,M
-	LXI H,1-.15
-	DAD SP
-	MOV M,E
-	LXI H,1-.15
-	DAD SP
-	MOV E,M
-	MVI	D,0
-	LXI H,255
-	CALL .xr
-	XCHG
-	LXI H,1-.15
-	DAD SP
-	MOV M,E
-	LXI H,1-.15
-	DAD SP
-	MOV E,M
-	PUSH D
-	LXI H,4-.15
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	POP D
-	MOV M,E
-	LXI H,2-.15
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .16
-.18:
-	LXI H,-32768
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,64
-	PUSH H
-	CALL vdaini_
-	POP D
-	POP D
-	POP D
-	RET
-.15 EQU -7
-.14:
-	DB 102,108,105,112,46,99,111,109,40,99,41,32,49,49,47
-	DB 49,53,47,50,48,49,50,32,100,119,103,32,45,32,10
-	DB 10,0
-	extrn	printf_
-	extrn	diagnose_
-	extrn	hreghl_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	hrega_
-	extrn	.or
-	extrn	.xr
-	extrn	.an
-	extrn	.ne
-	extrn	.lt
-	extrn	.ur
-	END
-

branches/dwg/Apps/crossdev/FORM.ASM

@@ -1,646 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	pDPHMAP_,2
-	global	pDPHVEC_,16
-	DSEG
-	public	pSYSCFG_
-pSYSCFG_:
-	DW -16384
-	CSEG
-	DSEG
-	public	form_
-form_:
-	DW 6
-	DW 3
-	DW 6
-	DB 102
-	DB 105
-	DB 101
-	DB 108
-	DB 100
-	DB 49
-	DB 0
-	DW 6
-	DW 13
-	DB 100
-	DB 101
-	DB 102
-	DB 97
-	DB 117
-	DB 108
-	DB 116
-	DB 49
-	DB 0
-	ds 24
-	DW 7
-	DW 3
-	DW 6
-	DB 102
-	DB 105
-	DB 101
-	DB 108
-	DB 100
-	DB 50
-	DB 0
-	DW 7
-	DW 13
-	DB 100
-	DB 101
-	DB 102
-	DB 97
-	DB 117
-	DB 108
-	DB 116
-	DB 50
-	DB 0
-	ds 24
-	CSEG
-	PUBLIC main_
-main_:	lxi d,.2
-	call csave
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.1+0
-	PUSH H
-	CALL banner_
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .4
-.3:
-	LXI H,2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.4:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2
-	CALL .lt
-	JZ .5
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+2
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+6
-	DAD D
-	PUSH H
-	LXI H,.1+5
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+15
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+13
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,0-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .7
-.6:
-	LXI H,0-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.7:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+17
-	DAD D
-	PUSH H
-	CALL strlen_
-	POP D
-	PUSH H
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	POP H
-	CALL .lt
-	JZ .8
-	LXI H,.1+8
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .6
-.8:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+15
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+13
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+17
-	DAD D
-	PUSH H
-	LXI H,.1+10
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .3
-.5:
-	LXI H,0
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .10
-.9:
-	LXI H,2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.10:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2
-	CALL .lt
-	JZ .11
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+15
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+13
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,34
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,-30-.2
-	DAD SP
-	PUSH H
-	CALL memset_
-	POP D
-	POP D
-	POP D
-	LXI H,10
-	SHLD dregbc_
-	LXI H,-34-.2
-	DAD SP
-	SHLD dregde_
-	LXI H,31
-	XCHG
-	LXI H,-34-.2
-	DAD SP
-	MOV M,E
-	LXI H,0
-	XCHG
-	LXI H,-33-.2
-	DAD SP
-	MOV M,E
-	CALL bdoscall_
-	LXI H,-33-.2
-	DAD SP
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,0
-	POP D
-	XCHG
-	CALL .lt
-	JZ .12
-	LXI H,32
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,6-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+17
-	DAD D
-	PUSH H
-	CALL memset_
-	POP D
-	POP D
-	POP D
-	LXI H,-32-.2
-	DAD SP
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+17
-	DAD D
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-.12:
-	JMP .9
-.11:
-	LXI H,0
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .14
-.13:
-	LXI H,2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.14:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2
-	CALL .lt
-	JZ .15
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+2
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+6
-	DAD D
-	PUSH H
-	LXI H,.1+13
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+15
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+13
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,0-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .17
-.16:
-	LXI H,0-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.17:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+17
-	DAD D
-	PUSH H
-	CALL strlen_
-	POP D
-	PUSH H
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	POP H
-	CALL .lt
-	JZ .18
-	LXI H,.1+16
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .16
-.18:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+15
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+13
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,50
-	CALL .ml
-	LXI D,form_+17
-	DAD D
-	PUSH H
-	LXI H,.1+18
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .13
-.15:
-	RET
-.2 EQU -38
-.1:
-	DB 70,79,82,77,0,37,115,0,95,0,37,115,0,37,115
-	DB 0,32,0,37,115,0
-	extrn	strcpy_
-	extrn	memset_
-	extrn	strlen_
-	extrn	printf_
-	extrn	banner_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	bdoscall_
-	extrn	dregde_
-	extrn	dregbc_
-	extrn	.lt
-	extrn	.ml
-	END
-

branches/dwg/Apps/crossdev/META.ASM

@@ -1,750 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	metadata_,128
-	global	bRunning_,2
-	global	deflu_,2
-	global	drive_,2
-	global	logunit_,2
-	global	numlu_,2
-	DSEG
-	public	pSYSCFG_
-pSYSCFG_:
-	DW -16384
-	CSEG
-	PUBLIC display_
-display_:	lxi d,.2
-	call csave
-	LHLD logunit_
-	PUSH H
-	LHLD drive_
-	PUSH H
-	CALL luscur_
-	POP D
-	POP D
-	LXI H,metadata_
-	PUSH H
-	LXI H,11
-	PUSH H
-	LXI H,0
-	PUSH H
-	LHLD drive_
-	PUSH H
-	CALL rdsector_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,0
-	PUSH H
-	LXI H,7
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD metadata_
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,8
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LDA metadata_+2
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.1+28
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,9
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.1+56
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .4
-.3:
-	LXI H,2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.4:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,8
-	CALL .lt
-	JZ .5
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,metadata_+4
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,.1+79
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .3
-.5:
-	LXI H,.1+82
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,10
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LDA metadata_+12
-	MOV L,A
-	MVI	H,0
-	LXI D,65
-	DAD D
-	PUSH H
-	LXI H,.1+84
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD metadata_+13
-	XCHG
-	LHLD logunit_
-	CALL .ne
-	JZ .6
-	LHLD logunit_
-	SHLD metadata_+13
-	LHLD metadata_+97
-	INX H
-	SHLD metadata_+97
-	LXI H,metadata_
-	PUSH H
-	LXI H,11
-	PUSH H
-	LXI H,0
-	PUSH H
-	LHLD drive_
-	PUSH H
-	CALL wrsector_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-.6:
-	LXI H,0
-	PUSH H
-	LXI H,11
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD numlu_
-	PUSH H
-	LHLD metadata_+13
-	PUSH H
-	LXI H,.1+109
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,12
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.1+150
-	PUSH H
-	CALL printf_
-	POP D
-	LDA metadata_+96
-	MOV L,A
-	MVI	H,0
-	JMP .7
-.9:
-	LXI H,.1+172
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.10:
-	LXI H,.1+178
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.11:
-	LXI H,.1+184
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .8
-.7:
-	CALL .swt
-	DW 2
-	DW 0,.10
-	DW 1,.9
-	DW .11
-.8:
-	LXI H,0
-	PUSH H
-	LXI H,13
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD metadata_+97
-	PUSH H
-	LXI H,.1+190
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,14
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LDA metadata_+101
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LDA metadata_+101
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LDA metadata_+100
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LDA metadata_+99
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.1+214
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,10
-	DAD SP
-	SPHL
-	LXI H,0
-	PUSH H
-	LXI H,15
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.1+247
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .13
-.12:
-	LXI H,2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.13:
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16
-	CALL .lt
-	JZ .14
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,metadata_+103
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,.1+270
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .12
-.14:
-	LXI H,.1+273
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,16
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD metadata_+120
-	PUSH H
-	LXI H,.1+275
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,17
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD metadata_+122
-	PUSH H
-	LXI H,.1+303
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,18
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD metadata_+124
-	PUSH H
-	LXI H,.1+331
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,19
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD metadata_+126
-	PUSH H
-	LXI H,.1+359
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	RET
-.2 EQU -2
-.1:
-	DB 109,101,116,97,100,97,116,97,46,115,105,103,110,97,116
-	DB 117,114,101,32,61,32,48,120,37,48,52,120,0,109,101
-	DB 116,97,100,97,116,97,46,112,108,97,116,102,111,114,109
-	DB 32,32,61,32,48,120,37,48,50,120,0,109,101,116,97
-	DB 100,97,116,97,46,102,111,114,109,97,116,116,101,114,32
-	DB 61,32,34,0,37,99,0,34,0,109,101,116,97,100,97
-	DB 116,97,46,100,114,105,118,101,32,32,32,32,32,61,32
-	DB 37,99,58,0,109,101,116,97,100,97,116,97,46,108,111
-	DB 103,117,110,105,116,32,32,32,61,32,37,100,40,114,101
-	DB 108,48,41,32,111,102,32,37,100,32,32,32,32,32,0
-	DB 109,101,116,97,100,97,116,97,46,119,114,105,116,101,112
-	DB 114,111,116,32,61,32,0,84,82,85,69,32,0,70,65
-	DB 76,83,69,0,85,110,107,33,33,0,109,101,116,97,100
-	DB 97,116,97,46,117,112,100,97,116,101,32,32,32,32,61
-	DB 32,37,100,0,109,101,116,97,100,97,116,97,46,123,118
-	DB 101,114,125,32,32,32,32,32,61,32,37,100,46,37,100
-	DB 46,37,100,46,37,100,0,109,101,116,97,100,97,116,97
-	DB 46,108,97,98,101,108,32,32,32,32,32,61,32,34,0
-	DB 37,99,0,34,0,109,101,116,97,100,97,116,97,46,105
-	DB 110,102,108,111,99,32,32,32,32,61,32,48,120,37,48
-	DB 52,120,0,109,101,116,97,100,97,116,97,46,99,112,109
-	DB 108,111,99,32,32,32,32,61,32,48,120,37,48,52,120
-	DB 0,109,101,116,97,100,97,116,97,46,99,112,109,101,110
-	DB 100,32,32,32,32,61,32,48,120,37,48,52,120,0,109
-	DB 101,116,97,100,97,116,97,46,99,112,109,101,110,116,32
-	DB 32,32,32,61,32,48,120,37,48,52,120,0
-	PUBLIC menu_
-menu_:	lxi d,.16
-	call csave
-	LXI H,0
-	PUSH H
-	LXI H,21
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.15+0
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.15+40
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,21
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.15+80
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	XCHG
-	LHLD logunit_
-	CALL .lt
-	JZ .17
-	LXI H,.15+90
-	PUSH H
-	CALL printf_
-	POP D
-.17:
-	LHLD numlu_
-	DCX H
-	PUSH H
-	LHLD logunit_
-	POP D
-	XCHG
-	CALL .lt
-	JZ .18
-	LXI H,.15+102
-	PUSH H
-	CALL printf_
-	POP D
-.18:
-	LDA metadata_+96
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .19
-	LXI H,.15+114
-	PUSH H
-	CALL printf_
-	POP D
-.19:
-	lda metadata_+96
-	ora a
-	JNZ .20
-	LXI H,.15+127
-	PUSH H
-	CALL printf_
-	POP D
-.20:
-	LXI H,.15+138
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,1
-	SHLD dregbc_
-	CALL bdoscall_
-	LXI H,1
-	XCHG
-	LXI H,2-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LDA drega_
-	MOV L,A
-	MVI	H,0
-	JMP .21
-.23:
-.24:
-	LXI H,0
-	XCHG
-	LXI H,2-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .22
-.25:
-	LHLD numlu_
-	DCX H
-	PUSH H
-	LHLD logunit_
-	POP D
-	XCHG
-	CALL .lt
-	JZ .26
-	LHLD logunit_
-	INX H
-	SHLD logunit_
-	JMP .27
-.26:
-	LXI H,7
-	PUSH H
-	LXI H,.15+151
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-.27:
-	JMP .22
-.28:
-	LXI H,0
-	XCHG
-	LHLD logunit_
-	CALL .lt
-	JZ .29
-	LHLD logunit_
-	DCX H
-	SHLD logunit_
-	JMP .30
-.29:
-	LXI H,7
-	PUSH H
-	LXI H,.15+154
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-.30:
-	JMP .22
-.31:
-	LXI H,1
-	MOV A,L
-	STA metadata_+96
-	LHLD metadata_+97
-	INX H
-	SHLD metadata_+97
-	LXI H,metadata_
-	PUSH H
-	LXI H,11
-	PUSH H
-	LXI H,0
-	PUSH H
-	LHLD drive_
-	PUSH H
-	CALL wrsector_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	JMP .22
-.32:
-	LXI H,0
-	MOV A,L
-	STA metadata_+96
-	LHLD metadata_+97
-	INX H
-	SHLD metadata_+97
-	LXI H,metadata_
-	PUSH H
-	LXI H,11
-	PUSH H
-	LXI H,0
-	PUSH H
-	LHLD drive_
-	PUSH H
-	CALL wrsector_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	JMP .22
-.33:
-	LXI H,7
-	PUSH H
-	LXI H,.15+157
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .22
-.21:
-	CALL .swt
-	DW 6
-	DW 43,.25
-	DW 45,.28
-	DW 88,.23
-	DW 112,.31
-	DW 117,.32
-	DW 120,.24
-	DW .33
-.22:
-	LXI H,2-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	RET
-.16 EQU -2
-.15:
-	DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,32,0,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,32,0,79,112,116,105,111,110,115,40,32,0
-	DB 32,45,123,112,114,101,118,32,108,117,125,0,32,43,123
-	DB 110,101,120,116,32,108,117,125,0,32,117,123,110,112,114
-	DB 111,116,101,99,116,125,0,32,112,123,114,111,116,101,99
-	DB 116,125,0,32,120,123,113,117,105,116,125,32,41,58,32
-	DB 0,37,99,0,37,99,0,37,99,0
-	PUBLIC main_
-main_:	lxi d,.35
-	call csave
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.34+0
-	PUSH H
-	CALL banner_
-	POP D
-	LXI H,25
-	SHLD dregbc_
-	CALL bdoscall_
-	LDA drega_
-	MOV L,A
-	MVI	H,0
-	SHLD drive_
-	LHLD drive_
-	PUSH H
-	CALL lugnum_
-	POP D
-	SHLD numlu_
-	LHLD drive_
-	PUSH H
-	CALL lugcur_
-	POP D
-	SHLD deflu_
-	LHLD deflu_
-	SHLD logunit_
-	LXI H,1
-	SHLD bRunning_
-.36:
-	LXI H,1
-	XCHG
-	LHLD bRunning_
-	CALL .eq
-	JZ .37
-	CALL display_
-	LXI H,1
-	PUSH H
-	CALL menu_
-	POP D
-	SHLD bRunning_
-	JMP .36
-.37:
-	LHLD deflu_
-	PUSH H
-	LHLD drive_
-	PUSH H
-	CALL luscur_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,23
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	RET
-.35 EQU 0
-.34:
-	DB 77,69,84,65,0
-	extrn	banner_
-	extrn	printf_
-	extrn	lugnum_
-	extrn	luscur_
-	extrn	lugcur_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	wrsector_
-	extrn	rdsector_
-	extrn	bdoscall_
-	extrn	dregbc_
-	extrn	drega_
-	extrn	.eq
-	extrn	.ne
-	extrn	.lt
-	END
-

branches/dwg/Apps/crossdev/METADATA.ASM

@@ -1,523 +0,0 @@
-; metadata.asm 7/30/2012 dwg - set c=0 for BIOS WRITE calls per Wayne
-; metadata.asm 2/17/2012 dwg - review for release 1.5.1.0
-; metadata.asm 2/11/2012 dwg - review for release 1.5
-; metadata.asm 2/ 4/2012 dwg - metadata library implementation
-
-; Copyright (C) 2011-2012 Douglas Goodall Licensed under GPL Ver 3.
-;
-; This file is part of NuBiosDWG and is free software: you can
-; redistribute it and/or modify it under the terms of the GNU
-; General Public License as published by the Free Software Foundation,
-; either version 3 of the License, or (at your option) any later version.
-; This file is distributed in the hope that it will be useful,
-; but WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-; GNU General Public License for more details.
-; You should have received a copy of the GNU General Public License
-; along with it.  If not, see <http://www.gnu.org/licenses/>.
-
-
-	maclib	portab
-	maclib	globals
-	maclib	cpmbios
-	maclib	cpmbdos
-	maclib	memory		; has x$memset
-	maclib	applvers	; has A$RMJ, A$RMN, A$RUP, A$RTP
-	maclib	printers
-	maclib	stdlib		; SUCCESS and FAILURE
-
-; metadata.lib 1/31/2012 dwg - macros to manipulate drive metadata
-;
-; update$meta       buffer	|	x$u$meta hl -> buffer
-;   init$meta	    buffer	|	x$i$meta hl -> buffer
-;    get$meta drive,buffer	| 	x$g$meta hl -> buffer, c = drivenum
-;    put$meta drive,buffer	| 	x$p$meta hl -> buffer, c = drivenum
-;   prot$meta drive		| 	x$pr$meta c = drivenum
-; unprot$meta drive		|	x$un$meta c = drivenum
-;
-;-------------------------------------------
-
-;meta$debug	equ	TRUE
-meta$debug	equ	FALSE
-
-meta$sig5a	equ	0
-meta$siga5	equ	1
-meta$prot	equ	128-8-1-16-7
-meta$updates	equ	128-8-1-16-6
-meta$rmj	equ	128-8-1-16-4
-meta$rmn	equ	128-8-1-16-3
-meta$rup	equ	128-8-1-16-2
-meta$rtp	equ	128-8-1-16-1
-meta$label	equ	128-8-1-16
-meta$term	equ	128-8-1
-meta$info$loc	equ	128-8
-meta$cpm$loc	equ	128-6
-meta$dat$end	equ	128-4
-meta$cpm$ent	equ	128-2
-meta$label$len	equ	meta$term-meta$label
-
-;-----------------------------
-crlf	db	CR,LF,'$'
-;-----------------------------
-
-	page
-
-	public	x$u$meta
-x$u$meta:
-	shld	x$u$bufptr
-
-;	lhld	x$u$bufptr
-	lxi	d,meta$prot
-	dad	d
-	mov	a,m
-	cpi	TRUE		; is metadata write protected
-	jz	x$u$proterr	; if so go around update code
-
-	; increment the update count
-	lhld	x$u$bufptr
-	lxi	d,meta$updates
-	dad	d
-	mov	e,m	; pick up LO byte into E
-	inx	h
-	mov	d,m	; pick up HO byte into D
-	inx	d	; increment DE
-	mov	m,d
-	dcx	h
-	mov	m,e
-
-	; update last written version quad
-	lhld	x$u$bufptr
-	lxi	d,meta$rmj
-	dad	d
-	mvi	a,A$RMJ
-	mov	m,a
-	inx	h
-	mvi	a,A$RMN
-	mov	m,a
-	inx	h
-	mvi	a,A$RUP
-	mov	m,a
-	inx	h
-	mvi	a,A$RTP
-	mov	m,a
-
-	lhld	x$u$bufptr
-	lxi	d,meta$term
-	dad	d
-	mov	a,m
-	cpi	'$'
-	jz	x$u$end
-
-	lhld	x$u$bufptr
-	lxi	d,meta$label
-	dad	d
-	mvi	a,' '
-	mvi	c,16
-	call	x$memset
-
-	lhld	x$u$bufptr
-	lxi	d,meta$term
-	dad	d
-	mvi	a,'$'
-	mov	m,a
-
-x$u$end:
-	mvi	a,SUCCESS
-	ret
-
-x$u$proterr:
-	mvi	a,FAILURE
-	ret
-
-x$u$bufptr ds 2
-
-
-;-----------------------------
-
-	page
-	
-	public	x$i$meta
-x$i$meta:
-	shld	x$i$bufptr
-
-	lhld	x$i$bufptr
-	lxi	d,meta$sig5a
-	dad	d
-	mvi	a,05ah
-	mov	m,a
-	inx	h
-	mvi	a,0a5h
-	mov	m,a
-
-	lhld	x$i$bufptr
-	lxi	d,meta$prot
-	dad	d
-	mvi	a,FALSE
-	mov	m,a
-
-	lhld	x$i$bufptr
-	lxi	d,meta$updates
-	dad	d
-	mvi	a,0
-	mov	m,a
-	inx	h
-	mov	m,a
-
-	lhld	x$i$bufptr
-	lxi	d,meta$label
-	dad	d		; hl -> dest
-	mvi	a,' '
-	mvi	c,meta$label$len
-	call	x$memset
-
-	lhld	x$i$bufptr
-	lxi	d,meta$term
-	dad	d
-	mvi	a,'$'
-	mov	m,a
-
-	lhld	x$i$bufptr
-	lxi	d,meta$updates
-	dad	d
-	mvi	a,0
-	mov	m,a
-	inx	h
-	mov	m,a
-
-	lhld	x$i$bufptr
-	call	x$u$meta
-
-	ret
-
-x$i$bufptr	ds	2
-
-;-------------------------------------------
-
-	page
-
-	public	x$g$meta
-x$g$meta;
-
-	shld	x$g$bufptr	; entry hl has bufptr
-	mov	a,c		; entry c  has drivenum
-	sta	x$g$drivenum
-
-;	lda	x$g$drivenum
-	mov	c,a
-	call	BISELDSK
-
-	lxi	b,0
-	call	BISETTRK
-
-	lxi	b,11
-	call	BISETSEC
-
-	lhld	x$g$bufptr
-	push	h
-	pop	b
-	call	BISETDMA
-
-	call	BIREAD
-
-	lhld	x$g$bufptr
-	lxi	d,meta$siga5
-	dad	d
-	mov	a,m
-	cpi	0a5h
-	jnz	x$g$needs$init
-	
-	lhld	x$g$bufptr
-	lxi	d,meta$sig5a
-	dad	d
-	mov	a,m
-	cpi	05ah
-	jnz	x$g$needs$init
-
-	jmp	x$g$fini
-
-x$g$needs$init:
-
-	lhld	x$g$bufptr
-	call	x$i$meta
-
-	mvi	c,0		; default to 0 per Wayne
-	call	BIWRITE
-
-x$g$fini:	
-	mvi	c,13
-	call	BDOS
-	ret
-
-x$g$bufptr	ds	2
-x$g$drivenum	ds	1
-
-;-----------------------------------
-
-	page
-
-	public	x$p$meta
-x$p$meta:
-	shld	x$p$bufptr
-	mov	a,c
-	sta	x$p$drivenum
-
-	IF meta$debug eq TRUE
-	conout	'x'
-	conout	'$'
-	conout	'p'
-	conout	'$'
-	printf	'meta called, drive='
-	lda	x$p$drivenum
-	mov	l,a
-	mvi	h,0
-	call	pr$d$word
-	printf	', buffer='
-	lhld	x$p$bufptr
-	call	pr$h$word
-	print	crlf
-	ENDIF
-
-	; increment the update count
-	lhld	x$p$bufptr	; hl -> buffer
-	lxi	d,meta$updates	; de = offset to updates word
-	dad	d		; hl -> updates word
-	mov	e,m		; e = LO byte of updates
-	inx	h		; hl -> HO byte
-	mov	d,m		; d = HO byte of updates
-	inx	d		; increment DE (updates)
-	mov	m,d		; put back HO byte
-	dcx	h		; back up ptr
-	mov	m,e		; put back LO byte
-
-	; update last written version quad
-	lhld	x$p$bufptr
-	lxi	d,meta$rmj
-	dad	d
-	mvi	a,A$RMJ
-	mov	m,a
-	inx	h
-	mvi	a,A$RMN
-	mov	m,a
-	inx	h
-	mov	a,A$RUP
-	mov	m,a
-	inx	h
-	mvi	a,A$RTP
-	mov	m,a
-
-	lhld	x$p$bufptr
-	lxi	d,meta$prot
-	dad	d
-	mov	a,m
-	cpi	TRUE		; if metadata is write protected
-	jz	x$p$fini	; jump around update code
-	lda	x$p$drivenum
-	mov	c,a	
-	call	BISELDSK
-	lxi	b,0
-	call	BISETTRK
-	lxi	b,11
-	call	BISETSEC
-	lhld	x$p$bufptr
-	push	h
-	pop	b
-	call	BISETDMA
-
-	mvi	c,0		; default to 0 per Wayne
-	call	BIWRITE
-
-	IF meta$debug eq TRUE
-	printf	'return from BIWRITE is '
-	mov	l,a
-	mvi	h,0
-	call	pr$h$word
-	print	crlf
-	ENDIF
-
-x$p$fini:
-	ret
-
-x$p$bufptr	ds	2
-x$p$drivenum	ds	1
-
-;-----------------------
-
-	page
-
-	public	x$pr$meta
-x$pr$meta:
-	mov	a,c
-	sta	x$pr$drivenum
-
-	IF meta$debug eq TRUE
-	conout	'x'
-	conout	'$'
-	printf	'pr'
-	conout	'$'
-	printf	'meta called, drive='
-	lda	x$pr$drivenum
-	mov	l,a
-	mvi	h,0
-	call	pr$d$word
-	print	crlf
-	ENDIF
-
-	lda	x$pr$drivenum
-	mov	c,a
-	call	BISELDSK
-	lxi	b,0
-	call	BISETTRK
-	lxi	b,11
-	call	BISETSEC
-	lxi	b,x$pr$buffer
-	call	BISETDMA
-	call	BIREAD
-
-	IF meta$debug eq TRUE
-	printf	'return from BIREAD is '
-	mov	l,a
-	mvi	h,0
-	call	pr$h$word
-	print	crlf
-	ENDIF
-
-	lxi	h,x$pr$buffer
-	lxi	d,meta$prot
-	dad	d
-	mvi	a,TRUE
-	mov	m,a
-
-
-	lxi	h,x$pr$buffer
-	lxi	d,meta$updates
-	dad	d
-	mov	e,m
-	inx	h
-	mov	d,m
-	inx	d
-	mov	m,d
-	dcx	h
-	mov	m,e
-
-	lda	x$pr$drivenum
-	mov	c,a
-	call	BISELDSK
-	lxi	b,0
-	call	BISETTRK
-	lxi	b,11
-	call	BISETSEC
-	lxi	b,x$pr$buffer
-	call	BISETDMA
-	
-	mvi	c,0		; default to 0 per Wayne
-	call	BIWRITE
-
-	IF meta$debug eq TRUE
-	printf	'return from BIWRITE is '
-	mov	l,a
-	mvi	h,0
-	call	pr$h$word
-	print	crlf
-	ENDIF
-
-	mvi	c,13
-	call	BDOS
-
-	ret
-
-
-x$pr$drivenum	ds	1
-x$pr$buffer	ds	128
-
-;-----------------------
-
-	page
-
-	public	x$un$meta
-x$un$meta:
-	mov	a,c
-	sta	x$un$drivenum
-
-	IF meta$debug eq TRUE
-	conout	'x'
-	conout	'$'
-	printf	'un'
-	conout	'$'
-	printf	'meta called, drive='
-	lda	x$un$drivenum
-	mov	l,a
-	mvi	h,0
-	call	pr$d$word
-	print	crlf
-	ENDIF
-
-	lda	x$un$drivenum
-	mov	c,a
-	call	BISELDSK
-	lxi	b,0
-	call	BISETTRK
-	lxi	b,11
-	call	BISETSEC
-	lxi	b,x$un$buffer
-	call	BISETDMA
-	call	BIREAD
-
-	IF meta$debug eq TRUE
-	printf	'return from BIREAD is '
-	mov	l,a
-	mvi	h,0
-	call	pr$h$word
-	print	crlf
-	ENDIF
-
-	lxi	h,x$un$buffer
-	lxi	d,meta$prot
-	dad	d
-	mvi	a,FALSE
-	mov	m,a
-
-
-	lxi	h,x$un$buffer
-	lxi	d,meta$updates
-	dad	d
-	mov	e,m
-	inx	h
-	mov	d,m
-	inx	d
-	mov	m,d
-	dcx	h
-	mov	m,e
-
-	lda	x$un$drivenum
-	mov	c,a
-	call	BISELDSK
-	lxi	b,0
-	call	BISETTRK
-	lxi	b,11
-	call	BISETSEC
-	lxi	b,x$un$buffer
-	call	BISETDMA
-	
-	mvi	c,0		; default to 0 per Wayne
-	call	BIWRITE
-
-	IF meta$debug eq TRUE
-	printf	'return from BIWRITE is '
-	mov	l,a
-	mvi	h,0
-	call	pr$h$word
-	print	crlf
-	ENDIF
-
-	mvi	c,13
-	call	BDOS
-
-	ret
-
-x$un$drivenum	ds	1
-x$un$buffer	ds	128
-
-;-----------------------
-
-; eof - metadata.asm
-

branches/dwg/Apps/crossdev/N8VIDTST.ASM

@@ -1,609 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	style_,1
-	global	vdp_rege_,960
-	global	szTemp_,128
-	global	linenum_,1
-	global	counter_,1
-	global	outer_,1
-	global	inner_,1
-	global	limit_,1
-	global	index_,2
-	PUBLIC main_
-main_:	lxi d,.2
-	call csave
-	CALL vdp_clr1_
-	CALL vdp_setr_
-	CALL vdp_mode_
-	CALL vdp_pnt_
-	CALL vdp_pgt_
-	CALL vdp_colo_
-	CALL vdp_load_
-	LDA outer_
-	MOV L,A
-	MVI	H,0
-	LXI D,3
-	CALL .eq
-	JZ .3
-	LXI H,0
-	MOV A,L
-	STA style_
-.3:
-	LXI H,.1+0
-	PUSH H
-	CALL vdp_main_
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,-63-.2
-	DAD SP
-	MOV M,E
-	LXI H,0
-	MOV A,L
-	STA outer_
-	JMP .5
-.4:
-	LDA outer_
-	MOV L,A
-	INX H
-	MOV A,L
-	STA outer_
-.5:
-	LDA outer_
-	MOV L,A
-	MVI	H,0
-	LXI D,4
-	XCHG
-	CALL .lt
-	JZ .6
-	LXI H,4
-	MOV A,L
-	STA linenum_
-	LXI H,0
-	MOV A,L
-	STA inner_
-	JMP .8
-.7:
-	LDA inner_
-	MOV L,A
-	INX H
-	MOV A,L
-	STA inner_
-.8:
-	LDA inner_
-	MOV L,A
-	MVI	H,0
-	LXI D,6
-	XCHG
-	CALL .lt
-	JZ .9
-	LDA inner_
-	MOV L,A
-	MVI	H,0
-	LXI D,5
-	XCHG
-	CALL .lt
-	JZ .10
-	LXI H,11
-	MOV A,L
-	STA limit_
-	JMP .11
-.10:
-	LXI H,9
-	MOV A,L
-	STA limit_
-.11:
-	LXI H,0
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .13
-.12:
-	LXI H,2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.13:
-	LDA limit_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	POP H
-	CALL .lt
-	JZ .14
-	LXI H,-63-.2
-	DAD SP
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,.1+14
-	PUSH H
-	LXI H,-58-.2
-	DAD SP
-	PUSH H
-	CALL sprintf_
-	POP D
-	POP D
-	POP D
-	LXI H,-62-.2
-	DAD SP
-	PUSH H
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,3
-	CALL .ml
-	INX H
-	INX H
-	PUSH H
-	LDA linenum_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	CALL vdp_disp_
-	POP D
-	POP D
-	POP D
-	LXI H,-63-.2
-	DAD SP
-	PUSH H
-	MOV L,M
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	XCHG
-	DCX H
-	MVI	H,0
-	PUSH H
-	LXI H,.1+17
-	PUSH H
-	LXI H,-58-.2
-	DAD SP
-	PUSH H
-	CALL sprintf_
-	POP D
-	POP D
-	POP D
-	LXI H,-62-.2
-	DAD SP
-	PUSH H
-	LXI H,4-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,3
-	CALL .ml
-	INX H
-	INX H
-	PUSH H
-	LDA linenum_
-	MOV L,A
-	MVI	H,0
-	INX H
-	PUSH H
-	CALL vdp_disp_
-	POP D
-	POP D
-	POP D
-	JMP .12
-.14:
-	LXI H,3
-	XCHG
-	LDA linenum_
-	MOV L,A
-	mvi	h,0
-	DAD D
-	MOV A,L
-	STA linenum_
-	LDA inner_
-	MOV L,A
-	MVI	H,0
-	LXI D,5
-	CALL .eq
-	JZ .15
-	LDA outer_
-	MOV L,A
-	MVI	H,0
-	INX H
-	PUSH H
-	LXI H,.1+22
-	PUSH H
-	LXI H,-58-.2
-	DAD SP
-	PUSH H
-	CALL sprintf_
-	POP D
-	POP D
-	POP D
-	LXI H,-62-.2
-	DAD SP
-	PUSH H
-	LXI H,29
-	PUSH H
-	LXI H,20
-	PUSH H
-	CALL vdp_disp_
-	POP D
-	POP D
-	POP D
-.15:
-	JMP .7
-.9:
-	LDA outer_
-	MOV L,A
-	MVI	H,0
-	LXI D,3
-	XCHG
-	CALL .lt
-	JZ .16
-	LXI H,.1+30
-	PUSH H
-	LXI H,2
-	PUSH H
-	LXI H,22
-	PUSH H
-	CALL vdp_disp_
-	POP D
-	POP D
-	POP D
-	LXI H,-62-.2
-	DAD SP
-	PUSH H
-	CALL gets_
-	POP D
-.16:
-	JMP .4
-.6:
-	LXI H,.1+57
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,22
-	PUSH H
-	CALL vdp_disp_
-	POP D
-	POP D
-	POP D
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2
-	CALL .eq
-	JZ .17
-	LXI H,10-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	INX H
-	INX H
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL atoi_
-	POP D
-	PUSH H
-	LXI H,.1+93
-	PUSH H
-	LXI H,-58-.2
-	DAD SP
-	PUSH H
-	CALL sprintf_
-	POP D
-	POP D
-	POP D
-	LXI H,-62-.2
-	DAD SP
-	PUSH H
-	LXI H,35
-	PUSH H
-	LXI H,1
-	PUSH H
-	CALL vdp_disp_
-	POP D
-	POP D
-	POP D
-.17:
-	LXI H,charset_
-	XCHG
-	LXI H,-65-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,.1+108
-	PUSH H
-	LXI H,.1+96
-	PUSH H
-	CALL fopen_
-	POP D
-	POP D
-	XCHG
-	LXI H,-67-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,.1+110
-	PUSH H
-	LXI H,-65-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fprintf_
-	POP D
-	POP D
-	LXI H,0
-	SHLD index_
-	JMP .19
-.18:
-	LHLD index_
-	INX H
-	SHLD index_
-.19:
-	LHLD index_
-	LXI D,256
-	XCHG
-	CALL .lt
-	JZ .20
-	LXI H,.1+163
-	PUSH H
-	LXI H,-65-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fprintf_
-	POP D
-	POP D
-	LHLD index_
-	PUSH H
-	LHLD index_
-	PUSH H
-	LXI H,-61-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-59-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-57-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-55-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-53-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-51-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-49-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,-47-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,.1+169
-	PUSH H
-	LXI H,-45-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fprintf_
-	XCHG
-	LXI H,24
-	DAD SP
-	SPHL
-	JMP .18
-.20:
-	LXI H,.1+231
-	PUSH H
-	LXI H,-65-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fprintf_
-	POP D
-	POP D
-	LXI H,-67-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fclose_
-	POP D
-	RET
-.2 EQU -71
-.1:
-	DB 78,56,86,73,68,84,83,84,40,100,119,103,41,0,37
-	DB 99,0,37,48,50,120,0,80,103,32,37,100,47,52,0
-	DB 32,80,114,101,115,115,32,97,110,121,32,107,101,121,32
-	DB 116,111,32,99,111,110,116,105,110,117,101,0,69,120,101
-	DB 99,117,116,105,111,110,32,99,111,109,112,108,101,116,101
-	DB 44,114,101,116,117,114,110,101,100,32,116,111,32,67,80
-	DB 47,77,0,37,99,0,110,56,99,104,97,114,115,46,105
-	DB 110,99,0,119,0,59,32,110,56,99,104,97,114,115,46
-	DB 105,110,99,32,45,32,97,117,116,111,109,97,116,105,99
-	DB 97,108,108,121,32,103,101,110,101,114,97,116,101,100,32
-	DB 98,121,32,110,56,118,105,100,116,115,116,10,0,9,46
-	DB 68,66,9,0,37,48,51,120,104,44,37,48,51,120,104
-	DB 44,37,48,51,120,104,44,37,48,51,120,104,44,37,48
-	DB 51,120,104,44,37,48,51,120,104,44,37,48,51,120,104
-	DB 44,37,48,51,120,104,9,59,32,48,120,37,48,50,120
-	DB 40,37,100,41,10,0,59,32,101,111,102,32,45,32,110
-	DB 56,99,104,97,114,115,46,105,110,99,10,0
-	extrn	fclose_
-	extrn	fprintf_
-	extrn	atoi_
-	extrn	gets_
-	extrn	sprintf_
-	extrn	vdp_load_
-	extrn	vdp_colo_
-	extrn	vdp_pgt_
-	extrn	vdp_pnt_
-	extrn	vdp_mode_
-	extrn	vdp_setr_
-	extrn	vdp_clr1_
-	extrn	vdp_main_
-	extrn	vdp_disp_
-	extrn	charset_
-	extrn	fopen_
-	extrn	.eq
-	extrn	.lt
-	extrn	.ml
-	END
-

branches/dwg/Apps/crossdev/PUTC.ASM

@@ -1,185 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	PUBLIC copyup_
-copyup_:	lxi d,.2
-	call csave
-	LXI H,-32768
-	XCHG
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,0-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .4
-.3:
-	LXI H,0-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.4:
-	LXI H,0-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,256
-	CALL .lt
-	JZ .5
-	LXI H,0
-	XCHG
-	LXI H,-2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .7
-.6:
-	LXI H,-2-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.7:
-	LXI H,-2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,8
-	CALL .lt
-	JZ .8
-	LXI H,0-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	DAD H
-	DAD H
-	DAD H
-	LXI D,7
-	DAD D
-	XCHG
-	LXI H,-2-.2
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .sb
-	LXI D,charset_
-	DAD D
-	MOV E,M
-	PUSH D
-	LXI H,4-.2
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	POP D
-	MOV M,E
-	JMP .6
-.8:
-	JMP .3
-.5:
-	RET
-.2 EQU -6
-	PUBLIC main_
-main_:	lxi d,.9
-	call csave
-	CALL copyup_
-	LXI H,16448
-	SHLD hregbc_
-	LXI H,0
-	SHLD hregde_
-	LXI H,-32768
-	SHLD hreghl_
-	CALL diagnose_
-	LXI H,17472
-	SHLD hregbc_
-	LXI H,3084
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,0
-	XCHG
-	LXI H,2-.9
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .11
-.10:
-	LXI H,2-.9
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.11:
-	LXI H,2-.9
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,600
-	CALL .lt
-	JZ .12
-	LXI H,18240
-	SHLD hregbc_
-	LXI H,63
-	SHLD hregde_
-	CALL diagnose_
-	JMP .10
-.12:
-	RET
-.9 EQU -2
-	extrn	charset_
-	extrn	diagnose_
-	extrn	hreghl_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	.lt
-	extrn	.sb
-	END
-

branches/dwg/Apps/crossdev/README.1ST

@@ -1,20 +0,0 @@
-This directory has the files that comprise a cross development
-environment for building C utility programs.
-
-The program files located here are not current but rather represent
-a snapshot from a recent time. If you wanted to compile any of the
-current apps from RomWBW, you would have too unpack the sources in
-/RomWBW/trunk/Apps/apps-srcs and copy them to this folder, being careful
-to usde upper case filenames.
-
-The build is set up in sort of a microsoft-like folder arrangement
-with files generated being placed in either the DEBUG or RELEASE folder.
-
-The actual apps for RomWBW are generated directly on CP/M-80- v2.2
-using native language tools, it's the "CP/M way".
-
-Have fun,
-
-Douglas Goodall
-Santa Maria, CA
-douglas_goodall@mac.com

branches/dwg/Apps/crossdev/REMOTE.ASM

@@ -1,246 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	style_,1
-	global	vdp_rege_,960
-	global	pINFOLIS_,2
-	global	metadata_,128
-	global	szTemp_,128
-	global	linenum_,1
-	global	counter_,1
-	global	outer_,1
-	global	inner_,1
-	global	limit_,1
-	global	index_,2
-	global	line_,2
-	global	ubyte_,1
-	global	bitmask_,1
-	global	row_,2
-	global	bit_,2
-	global	ascii_,2
-	global	bool_,2
-	global	pCNFGDAT_,2
-	global	pSYSCFG_,2
-	global	fd_,2
-	PUBLIC main_
-main_:	lxi d,.2
-	call csave
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,-16384
-	SHLD pSYSCFG_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	CALL vdp_wrvr_
-	POP D
-	LXI H,152
-	PUSH H
-	CALL in_
-	POP D
-	LXI H,152
-	PUSH H
-	CALL in_
-	POP D
-	LXI H,0
-	SHLD line_
-	JMP .4
-.3:
-	LHLD line_
-	INX H
-	SHLD line_
-.4:
-	LHLD line_
-	LXI D,24
-	XCHG
-	CALL .ul
-	JZ .5
-	LXI H,0
-	PUSH H
-	LHLD line_
-	INX H
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LHLD line_
-	INX H
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,3-.2
-	DAD SP
-	MOV M,E
-	JMP .7
-.6:
-	LXI H,3-.2
-	DAD SP
-	PUSH H
-	MOV L,M
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-.7:
-	LXI H,3-.2
-	DAD SP
-	MOV E,M
-	MVI	D,0
-	LXI H,40
-	CALL .lt
-	JZ .8
-	LXI H,152
-	PUSH H
-	CALL in_
-	POP D
-	MOV A,L
-	STA ubyte_
-	LDA ubyte_
-	MOV L,A
-	MVI	H,0
-	JMP .9
-.11:
-	LXI H,0
-	MOV A,L
-	STA ubyte_
-	JMP .10
-.12:
-	LXI H,0
-	MOV A,L
-	STA ubyte_
-	JMP .10
-.13:
-	LXI H,0
-	MOV A,L
-	STA ubyte_
-	JMP .10
-.14:
-	LXI H,32
-	MOV A,L
-	STA ubyte_
-	JMP .10
-.9:
-	CALL .swt
-	DW 4
-	DW 0,.14
-	DW 9,.13
-	DW 10,.12
-	DW 13,.11
-	DW .10
-.10:
-	lda ubyte_
-	ora a
-	JZ .15
-	LDA ubyte_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.1+11
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-.15:
-	JMP .6
-.8:
-	LXI H,50
-	PUSH H
-	LHLD line_
-	INX H
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,.1+14
-	PUSH H
-	CALL printf_
-	POP D
-	LHLD line_
-	MOV A,H
-	ORA L
-	JNZ .16
-	LXI H,.1+16
-	PUSH H
-	CALL printf_
-	POP D
-.16:
-	LHLD line_
-	LXI D,1
-	CALL .eq
-	JZ .17
-	LXI H,.1+43
-	PUSH H
-	CALL printf_
-	POP D
-.17:
-	LHLD line_
-	LXI D,4
-	CALL .eq
-	JZ .18
-	LXI H,.1+70
-	PUSH H
-	CALL printf_
-	POP D
-.18:
-	LHLD line_
-	LXI D,5
-	CALL .eq
-	JZ .19
-	LXI H,.1+97
-	PUSH H
-	CALL printf_
-	POP D
-.19:
-	JMP .3
-.5:
-	LXI H,.1+117
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,1
-	SHLD dregbc_
-	CALL bdoscall_
-	RET
-.2 EQU -1
-.1:
-	DB 108,105,110,101,32,37,50,100,32,124,0,37,99,0,124
-	DB 0,32,114,101,109,111,116,101,46,99,111,109,32,49,49
-	DB 47,50,49,47,50,48,49,50,32,100,119,103,0,32,32
-	DB 32,32,100,105,115,112,108,97,121,32,116,109,115,57,57
-	DB 49,56,32,115,99,114,101,101,110,0,32,32,32,78,111
-	DB 116,101,58,32,115,101,109,105,45,103,114,97,112,104,105
-	DB 99,115,32,110,111,116,0,32,32,32,32,32,32,32,32
-	DB 32,115,117,112,112,111,114,116,101,100,46,0,32,40,112
-	DB 114,101,115,115,32,101,110,116,101,114,32,116,111,32,101
-	DB 120,105,116,41,0
-	extrn	printf_
-	extrn	in_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	bdoscall_
-	extrn	dregbc_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	extrn	vdp_wrvr_
-	extrn	.eq
-	extrn	.lt
-	extrn	.ul
-	END
-

branches/dwg/Apps/crossdev/SECTORIO.ASM

@@ -1,117 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	PUBLIC rdsector_
-rdsector_:	lxi d,.2
-	call csave
-	LXI H,-6629
-	SHLD ireghl_
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	LXI H,0
-	SHLD iregde_
-	CALL bioscall_
-	LXI H,-6626
-	SHLD ireghl_
-	LXI H,10-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LXI H,-6623
-	SHLD ireghl_
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LXI H,-6620
-	SHLD ireghl_
-	LXI H,14-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LXI H,-6617
-	SHLD ireghl_
-	CALL bioscall_
-	LDA irega_
-	MOV L,A
-	MVI	H,0
-	RET
-.2 EQU 0
-	PUBLIC wrsector_
-wrsector_:	lxi d,.3
-	call csave
-	LXI H,-6629
-	SHLD ireghl_
-	LXI H,8-.3
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	LXI H,0
-	SHLD iregde_
-	CALL bioscall_
-	LXI H,-6626
-	SHLD ireghl_
-	LXI H,10-.3
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LXI H,-6623
-	SHLD ireghl_
-	LXI H,12-.3
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LXI H,-6620
-	SHLD ireghl_
-	LXI H,14-.3
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LXI H,-6614
-	SHLD ireghl_
-	LXI H,0
-	SHLD iregbc_
-	CALL bioscall_
-	LDA irega_
-	MOV L,A
-	MVI	H,0
-	RET
-.3 EQU 0
-	extrn	bioscall_
-	extrn	ireghl_
-	extrn	iregde_
-	extrn	iregbc_
-	extrn	irega_
-	END
-

branches/dwg/Apps/crossdev/SYSGEN.ASM

@@ -1,982 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	global	pDPHMAP_,2
-	global	pDPHVEC_,24
-	global	pINFOLIS_,2
-	global	pDPH_,2
-	global	pDPB_,2
-	DSEG
-	public	pSYSCFG_
-pSYSCFG_:
-	DW -16384
-	CSEG
-	global	filespec_,32
-	global	pBUFFER_,2
-	global	szDrive_,32
-	global	szTemp_,128
-	PUBLIC rdimage_
-rdimage_:	lxi d,.2
-	call csave
-	LXI H,.1+0
-	PUSH H
-	LXI H,10-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fopen_
-	POP D
-	POP D
-	XCHG
-	LXI H,0-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0-.2
-	DAD SP
-	mov a,m
-	inx h
-	ora m
-	JNZ .3
-	LXI H,0
-	RET
-.3:
-	LXI H,0-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,1
-	PUSH H
-	LXI H,16-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fread_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,2-.2
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL fclose_
-	POP D
-	LXI H,2-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	RET
-.2 EQU -4
-.1:
-	DB 114,0
-	PUBLIC strupr_
-strupr_:	lxi d,.5
-	call csave
-	LXI H,0
-	XCHG
-	LXI H,2-.5
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .7
-.6:
-	LXI H,2-.5
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.7:
-	LXI H,8-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL strlen_
-	POP D
-	PUSH H
-	LXI H,4-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	POP H
-	CALL .lt
-	JZ .8
-	LXI H,8-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2-.5
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	MOV E,M
-	MVI	D,0
-	LXI H,97
-	CALL .ge
-	JZ .9
-	LXI H,8-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2-.5
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	MOV E,M
-	MVI	D,0
-	LXI H,122
-	CALL .le
-	JZ .10
-	LXI H,8-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2-.5
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	MOV E,M
-	MVI	D,0
-	LXI H,223
-	CALL .an
-	PUSH H
-	LXI H,10-.5
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,4-.5
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	POP D
-	MOV M,E
-.10:
-.9:
-	JMP .6
-.8:
-	RET
-.5 EQU -2
-	PUBLIC sysgen_
-sysgen_:	lxi d,.11
-	call csave
-.12:
-	LXI H,0
-	XCHG
-	LXI H,18-.11
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .lt
-	JZ .13
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL wrsector_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,14-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	PUSH H
-	LXI H,.4+0
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,10
-	DAD SP
-	SPHL
-	LXI H,13
-	PUSH H
-	LXI H,.4+43
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,128
-	XCHG
-	LXI H,14-.11
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DAD D
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,12-.11
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,12-.11
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16-.11
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .eq
-	JZ .14
-	LXI H,10-.11
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,12-.11
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-.14:
-	LXI H,18-.11
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	DCX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .12
-.13:
-	LXI H,.4+46
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,13
-	PUSH H
-	LXI H,.4+87
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	RET
-.11 EQU 0
-.4:
-	DB 100,114,105,118,101,61,37,99,58,44,32,116,114,107,61
-	DB 37,100,44,32,115,101,99,61,37,51,100,44,32,32,112
-	DB 116,114,61,48,120,48,37,52,120,32,32,32,0,37,99
-	DB 0,32,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,32,32,32,0,37,99,0
-	PUBLIC main_
-main_:	lxi d,.16
-	call csave
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	CALL crtinit_
-	POP D
-	CALL crtclr_
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	CALL crtlc_
-	POP D
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,3
-	PUSH H
-	LXI H,2
-	PUSH H
-	LXI H,2013
-	PUSH H
-	LXI H,16
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,.15+0
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,16
-	DAD SP
-	SPHL
-	LXI H,.15+33
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,25
-	SHLD dregbc_
-	CALL bdoscall_
-	LDA drega_
-	MOV L,A
-	MVI	H,0
-	XCHG
-	LXI H,-14-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,-32768
-	SHLD pBUFFER_
-	LXI H,1
-	XCHG
-	LXI H,8-.16
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .eq
-	JZ .17
-	LXI H,0
-	XCHG
-	LXI H,-12-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .19
-.18:
-	LXI H,-12-.16
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.19:
-	LXI H,-12-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,12
-	CALL .lt
-	JZ .20
-	LXI H,-6602
-	SHLD ireghl_
-	LXI H,-12-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	CALL bioscall_
-	LHLD iregbc_
-	LXI D,8
-	XCHG
-	CALL .ur
-	JNZ .21
-	JMP .20
-.21:
-	JMP .18
-.20:
-	LXI H,-12-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	PUSH H
-	LXI H,.15+77
-	PUSH H
-	LXI H,filespec_
-	PUSH H
-	CALL sprintf_
-	POP D
-	POP D
-	POP D
-	LXI H,16383
-	PUSH H
-	LHLD pBUFFER_
-	PUSH H
-	LXI H,filespec_
-	PUSH H
-	CALL rdimage_
-	POP D
-	POP D
-	POP D
-	XCHG
-	LXI H,0-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0-.16
-	DAD SP
-	mov a,m
-	inx h
-	ora m
-	JNZ .22
-	LXI H,-12-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	PUSH H
-	LXI H,.15+88
-	PUSH H
-	LXI H,filespec_
-	PUSH H
-	CALL sprintf_
-	POP D
-	POP D
-	POP D
-	LXI H,16383
-	PUSH H
-	LHLD pBUFFER_
-	PUSH H
-	LXI H,filespec_
-	PUSH H
-	CALL rdimage_
-	POP D
-	POP D
-	POP D
-	XCHG
-	LXI H,0-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0-.16
-	DAD SP
-	mov a,m
-	inx h
-	ora m
-	JNZ .23
-	LXI H,.15+100
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,1
-	PUSH H
-	CALL exit_
-	POP D
-.23:
-.22:
-.17:
-	LXI H,2
-	XCHG
-	LXI H,8-.16
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .eq
-	JZ .24
-	LXI H,10-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	INX H
-	INX H
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,filespec_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,16383
-	PUSH H
-	LHLD pBUFFER_
-	PUSH H
-	LXI H,filespec_
-	PUSH H
-	CALL rdimage_
-	POP D
-	POP D
-	POP D
-	XCHG
-	LXI H,0-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-.24:
-	LXI H,3
-	XCHG
-	LXI H,8-.16
-	DAD SP
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	CALL .eq
-	JZ .25
-	LXI H,10-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	INX H
-	INX H
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,filespec_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,10-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,4
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,szDrive_
-	PUSH H
-	CALL strcpy_
-	POP D
-	POP D
-	LXI H,szDrive_
-	PUSH H
-	CALL strupr_
-	POP D
-	LDA szDrive_
-	MOV L,A
-	MVI	H,0
-	LXI D,-65
-	DAD D
-	XCHG
-	LXI H,-14-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,16383
-	PUSH H
-	LHLD pBUFFER_
-	PUSH H
-	LXI H,filespec_
-	PUSH H
-	CALL rdimage_
-	POP D
-	POP D
-	POP D
-	XCHG
-	LXI H,0-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-.25:
-	LXI H,-6629
-	SHLD ireghl_
-	LXI H,-14-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD iregbc_
-	LXI H,0
-	SHLD iregde_
-	CALL bioscall_
-	LHLD ireghl_
-	SHLD pDPH_
-	LHLD pDPH_
-	LXI D,10
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD pDPB_
-	LHLD pDPB_
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,-4-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LHLD pDPB_
-	LXI D,13
-	DAD D
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,-16-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,-6-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,-8-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LHLD pBUFFER_
-	XCHG
-	LXI H,-146-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,128
-	CALL .dv
-	XCHG
-	LXI H,-10-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,-16-.16
-	DAD SP
-	mov a,m
-	inx h
-	ora m
-	JNZ .26
-	LXI H,-14-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	PUSH H
-	LXI H,.15+142
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,1
-	PUSH H
-	CALL exit_
-	POP D
-.26:
-	LXI H,.15+190
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,filespec_
-	PUSH H
-	LXI H,-10-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	PUSH H
-	LXI H,.15+242
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LXI H,.15+277
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.15+302
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,1
-	SHLD dregbc_
-	CALL bdoscall_
-	LDA drega_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,89
-	POP D
-	CALL .ne
-	JZ .27
-	LXI H,.15+304
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,1
-	PUSH H
-	CALL exit_
-	POP D
-.27:
-	LXI H,-10-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-2-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LHLD pBUFFER_
-	PUSH H
-	LXI H,-2-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,2-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-4-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	CALL sysgen_
-	XCHG
-	LXI H,12
-	DAD SP
-	SPHL
-	LXI H,-14-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,65
-	DAD D
-	PUSH H
-	LXI H,.15+350
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	RET
-.16 EQU -152
-.15:
-	DB 83,89,83,71,69,78,46,67,79,77,32,37,100,47,37
-	DB 100,47,37,100,32,118,37,100,46,37,100,46,37,100,46
-	DB 37,100,0,32,100,119,103,32,45,32,87,114,105,116,101
-	DB 32,83,121,115,116,101,109,32,73,109,97,103,101,32,116
-	DB 111,32,83,116,111,114,97,103,101,32,77,101,100,105,97
-	DB 10,0,37,99,58,67,80,77,46,83,89,83,0,37,99
-	DB 58,90,83,89,83,46,83,89,83,0,83,111,114,114,121
-	DB 44,32,99,111,117,108,100,32,110,111,116,32,114,101,97
-	DB 100,32,100,101,102,97,117,108,116,32,115,121,115,116,101
-	DB 109,32,102,105,108,101,0,83,111,114,114,121,44,32,37
-	DB 99,58,32,68,114,105,118,101,32,100,111,101,115,32,110
-	DB 111,116,32,104,97,118,101,32,114,101,115,101,114,118,101
-	DB 100,32,116,114,97,99,107,115,10,0,80,114,101,112,97
-	DB 114,105,110,103,32,116,111,32,116,114,97,110,115,102,101
-	DB 114,32,116,104,101,32,67,80,47,77,32,115,121,115,116
-	DB 101,109,32,105,109,97,103,101,32,116,111,32,116,104,101
-	DB 32,0,37,99,58,32,100,114,105,118,101,32,102,114,111
-	DB 109,32,37,115,10,102,105,108,101,32,119,104,105,99,104
-	DB 32,105,115,32,37,100,0,32,98,121,116,101,115,32,108
-	DB 111,110,103,44,32,79,75,63,32,40,89,47,110,41,58
-	DB 32,0,10,0,83,121,115,103,101,110,32,111,112,101,114
-	DB 97,116,105,111,110,32,99,97,110,99,101,108,108,101,100
-	DB 32,112,101,114,32,121,111,117,114,32,114,101,113,117,101
-	DB 115,116,46,10,0,37,99,58,32,100,114,105,118,101,32
-	DB 115,104,111,117,108,100,32,98,101,32,98,111,111,116,97
-	DB 98,108,101,32,110,111,119,32,58,45,41,0
-	extrn	strcpy_
-	extrn	exit_
-	extrn	sprintf_
-	extrn	printf_
-	extrn	strlen_
-	extrn	fclose_
-	extrn	fread_
-	extrn	wrsector_
-	extrn	crtlc_
-	extrn	crtclr_
-	extrn	crtinit_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	bdoscall_
-	extrn	dregbc_
-	extrn	drega_
-	extrn	bioscall_
-	extrn	ireghl_
-	extrn	iregde_
-	extrn	iregbc_
-	extrn	fopen_
-	extrn	.an
-	extrn	.eq
-	extrn	.ne
-	extrn	.lt
-	extrn	.le
-	extrn	.ge
-	extrn	.ur
-	extrn	.dv
-	END
-

branches/dwg/Apps/crossdev/TERMTYPE.ASM

@@ -1,448 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	DSEG
-	public	pPriFcb_
-pPriFcb_:
-	DW 92
-	CSEG
-	DSEG
-	public	pSecFcb_
-pSecFcb_:
-	DW 108
-	CSEG
-	DSEG
-	public	pDefBuf_
-pDefBuf_:
-	DW 128
-	CSEG
-	DSEG
-	public	pBIOS_
-pBIOS_:
-	DW -6656
-	CSEG
-	global	pDPB_,2
-	global	pDPH_,2
-	global	pINFOLIS_,2
-	global	pCNFGDAT_,2
-	DSEG
-	public	pSYSCFG_
-pSYSCFG_:
-	DW -16384
-	CSEG
-	DSEG
-	public	bRun_
-bRun_:
-	DB 1
-	CSEG
-	global	c_,1
-	DSEG
-	public	newtt_
-newtt_:
-	DB 255
-	CSEG
-	global	tt_,1
-	global	i_,2
-	PUBLIC main_
-main_:	lxi d,.2
-	call csave
-	LXI H,-4096
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-	LXI H,0
-	SHLD i_
-	JMP .4
-.3:
-	LHLD i_
-	INX H
-	SHLD i_
-.4:
-	LHLD i_
-	LXI D,25
-	XCHG
-	CALL .lt
-	JZ .5
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .3
-.5:
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,3
-	PUSH H
-	LXI H,2
-	PUSH H
-	LXI H,2013
-	PUSH H
-	LXI H,16
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,.1+2
-	PUSH H
-	CALL printf_
-	XCHG
-	LXI H,16
-	DAD SP
-	SPHL
-.6:
-	LDA bRun_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,1
-	POP D
-	CALL .eq
-	JZ .7
-	LXI H,.1+72
-	PUSH H
-	CALL printf_
-	POP D
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	MOV E,M
-	XCHG
-	MOV A,L
-	STA tt_
-	LDA tt_
-	MOV L,A
-	MVI	H,0
-	JMP .8
-.10:
-	LXI H,.1+95
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.11:
-	LXI H,.1+143
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.12:
-	LXI H,.1+191
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.13:
-	LXI H,.1+239
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.14:
-	LXI H,.1+287
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,.1+306
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .9
-.8:
-	CALL .swt
-	DW 4
-	DW 0,.10
-	DW 1,.11
-	DW 2,.12
-	DW 3,.13
-	DW .14
-.9:
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,1
-	PUSH H
-	LXI H,5
-	PUSH H
-	CALL asmif_
-	XCHG
-	LXI H,8
-	DAD SP
-	SPHL
-	LDA xrega_
-	MOV L,A
-	MOV A,L
-	STA c_
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,113
-	POP D
-	CALL .eq
-	JZ .15
-	LXI H,0
-	MOV A,L
-	STA bRun_
-.15:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,120
-	POP D
-	CALL .eq
-	JZ .16
-	LXI H,0
-	MOV A,L
-	STA bRun_
-.16:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,81
-	POP D
-	CALL .eq
-	JZ .17
-	LXI H,0
-	MOV A,L
-	STA bRun_
-.17:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,88
-	POP D
-	CALL .eq
-	JZ .18
-	LXI H,0
-	MOV A,L
-	STA bRun_
-.18:
-	LDA tt_
-	MOV L,A
-	MVI	H,0
-	JMP .19
-.21:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	JMP .22
-.24:
-.25:
-	LXI H,1
-	MOV A,L
-	STA newtt_
-	JMP .23
-.26:
-.27:
-	LXI H,2
-	MOV A,L
-	STA newtt_
-	JMP .23
-.28:
-.29:
-	LXI H,3
-	MOV A,L
-	STA newtt_
-	JMP .23
-.22:
-	CALL .swt
-	DW 6
-	DW 65,.25
-	DW 86,.29
-	DW 87,.27
-	DW 97,.24
-	DW 118,.28
-	DW 119,.26
-	DW .23
-.23:
-	JMP .20
-.30:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	JMP .31
-.33:
-.34:
-	LXI H,0
-	MOV A,L
-	STA newtt_
-	JMP .32
-.35:
-.36:
-	LXI H,2
-	MOV A,L
-	STA newtt_
-	JMP .32
-.37:
-.38:
-	LXI H,3
-	MOV A,L
-	STA newtt_
-	JMP .32
-.31:
-	CALL .swt
-	DW 6
-	DW 84,.34
-	DW 86,.38
-	DW 87,.36
-	DW 116,.33
-	DW 118,.37
-	DW 119,.35
-	DW .32
-.32:
-	JMP .20
-.39:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	JMP .40
-.42:
-.43:
-	LXI H,0
-	MOV A,L
-	STA newtt_
-	JMP .41
-.44:
-.45:
-	LXI H,1
-	MOV A,L
-	STA newtt_
-	JMP .41
-.46:
-.47:
-	LXI H,3
-	MOV A,L
-	STA newtt_
-	JMP .41
-.40:
-	CALL .swt
-	DW 6
-	DW 65,.45
-	DW 84,.43
-	DW 86,.47
-	DW 97,.44
-	DW 116,.42
-	DW 118,.46
-	DW .41
-.41:
-	JMP .20
-.48:
-	LDA c_
-	MOV L,A
-	MVI	H,0
-	JMP .49
-.51:
-.52:
-	LXI H,0
-	MOV A,L
-	STA newtt_
-	JMP .50
-.53:
-.54:
-	LXI H,1
-	MOV A,L
-	STA newtt_
-	JMP .50
-.55:
-.56:
-	LXI H,2
-	MOV A,L
-	STA newtt_
-	JMP .50
-.49:
-	CALL .swt
-	DW 6
-	DW 65,.54
-	DW 84,.52
-	DW 87,.56
-	DW 97,.53
-	DW 116,.51
-	DW 119,.55
-	DW .50
-.50:
-	JMP .20
-.57:
-	LXI H,7
-	PUSH H
-	LXI H,.1+347
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .20
-.19:
-	CALL .swt
-	DW 4
-	DW 0,.21
-	DW 1,.30
-	DW 2,.39
-	DW 3,.48
-	DW .57
-.20:
-	LDA newtt_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,255
-	POP D
-	CALL .ne
-	JZ .58
-	LDA newtt_
-	MOV L,A
-	PUSH H
-	LHLD pSYSCFG_
-	LXI D,68
-	DAD D
-	POP D
-	MOV M,E
-	LXI H,-3840
-	SHLD hregbc_
-	LXI H,-16384
-	SHLD hregde_
-	CALL diagnose_
-.58:
-	JMP .6
-.7:
-	RET
-.2 EQU 0
-.1:
-	DB 10,0,84,69,82,77,84,89,80,69,46,67,79,77,32
-	DB 37,100,47,37,100,47,37,100,32,37,100,46,37,100,46
-	DB 37,100,46,37,100,32,100,119,103,32,45,32,68,105,115
-	DB 112,108,97,121,47,67,104,97,110,103,101,32,84,101,114
-	DB 109,105,110,97,108,32,84,121,112,101,10,0,10,84,104
-	DB 101,32,84,101,114,109,105,110,97,108,32,84,121,112,101
-	DB 32,105,115,32,0,32,84,84,89,44,32,79,112,116,105
-	DB 111,110,115,58,32,97,40,110,115,105,41,44,32,119,40
-	DB 121,115,101,41,44,32,118,40,116,53,50,41,44,32,113
-	DB 40,117,105,116,41,32,63,0,65,78,83,73,44,32,79
-	DB 112,116,105,111,110,115,58,32,116,40,116,121,41,44,32
-	DB 32,119,40,121,115,101,41,44,32,118,40,116,53,50,41
-	DB 44,32,113,40,117,105,116,41,32,63,0,87,89,83,69
-	DB 44,32,79,112,116,105,111,110,115,58,32,116,40,116,121
-	DB 41,44,32,32,97,40,110,115,105,41,44,32,118,40,116
-	DB 53,50,41,44,32,113,40,117,105,116,41,32,63,0,86
-	DB 84,53,50,44,32,79,112,116,105,111,110,115,58,32,116
-	DB 40,116,121,41,44,32,32,97,40,110,115,105,41,44,32
-	DB 119,40,121,115,101,41,44,32,113,40,117,105,116,41,32
-	DB 63,0,85,110,107,110,111,119,110,44,32,79,112,116,105
-	DB 111,110,115,58,32,0,116,40,116,121,41,44,32,32,97
-	DB 40,110,115,105,41,44,32,119,40,121,115,101,41,44,32
-	DB 118,40,116,53,50,41,44,32,113,40,117,105,116,41,32
-	DB 63,0,37,99,0
-	extrn	printf_
-	extrn	asmif_
-	extrn	xrega_
-	extrn	diagnose_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	.eq
-	extrn	.ne
-	extrn	.lt
-	END
-

branches/dwg/Apps/crossdev/VIDEO.ASM

@@ -1,500 +0,0 @@
-	extrn	.begin,.chl,.swt
-	extrn	csave,cret,.move
-	PUBLIC vdaini_
-vdaini_:	lxi d,.2
-	call csave
-	LXI H,8-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16384
-	CALL .or
-	SHLD hregbc_
-	LHLD hregbc_
-	PUSH H
-	LXI H,.1+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,10-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD hregde_
-	LHLD hregde_
-	PUSH H
-	LXI H,.1+17
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,12-.2
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD hreghl_
-	LHLD hreghl_
-	PUSH H
-	LXI H,.1+34
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	CALL diagnose_
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.1+51
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	RET
-.2 EQU 0
-.1:
-	DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
-	DB 10,0,104,114,101,103,100,101,32,61,32,48,120,37,48
-	DB 52,120,10,0,104,114,101,103,104,108,32,61,32,48,120
-	DB 37,48,52,120,10,0,86,68,65,73,78,73,32,99,97
-	DB 108,108,101,100,44,32,114,101,116,117,114,110,32,99,111
-	DB 100,101,32,119,97,115,32,48,120,37,48,50,120,10,0
-	PUBLIC bitlook_
-bitlook_:	lxi d,.4
-	call csave
-	LXI H,-32768
-	XCHG
-	LXI H,2-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,0-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .6
-.5:
-	LXI H,0-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.6:
-	LXI H,0-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,256
-	CALL .lt
-	JZ .7
-	LXI H,0-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.3+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,0
-	XCHG
-	LXI H,-2-.4
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .9
-.8:
-	LXI H,-2-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.9:
-	LXI H,-2-.4
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,8
-	CALL .lt
-	JZ .10
-	LXI H,2-.4
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	XCHG
-	DCX H
-	MOV E,M
-	MVI	D,0
-	PUSH D
-	LXI H,.3+16
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	JMP .8
-.10:
-	LXI H,.3+24
-	PUSH H
-	CALL printf_
-	POP D
-	JMP .5
-.7:
-	RET
-.4 EQU -6
-.3:
-	DB 97,115,99,105,105,32,61,32,48,120,37,48,50,120,32
-	DB 0,48,120,37,48,50,120,32,0,10,0
-	PUBLIC vdaqry_
-vdaqry_:	lxi d,.12
-	call csave
-	LXI H,8-.12
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,16640
-	CALL .or
-	SHLD hregbc_
-	LHLD hregbc_
-	PUSH H
-	LXI H,.11+0
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LXI H,10-.12
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	SHLD hreghl_
-	LHLD hreghl_
-	LXI D,-32768
-	CALL .ne
-	JZ .13
-	LXI H,.11+17
-	PUSH H
-	CALL printf_
-	POP D
-.13:
-	CALL diagnose_
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	PUSH H
-	LXI H,.11+43
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD hregbc_
-	LXI D,255
-	CALL .an
-	PUSH H
-	LXI H,.11+83
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	LHLD hregde_
-	LXI D,8
-	XCHG
-	CALL .ur
-	PUSH H
-	LHLD hregde_
-	LXI D,8
-	XCHG
-	CALL .ur
-	PUSH H
-	LXI H,.11+123
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LHLD hregde_
-	LXI D,255
-	CALL .an
-	PUSH H
-	LHLD hregde_
-	LXI D,255
-	CALL .an
-	PUSH H
-	LXI H,.11+167
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LXI H,10-.12
-	DAD SP
-	mov a,m
-	inx h
-	ora m
-	JZ .14
-	LXI H,.11+211
-	PUSH H
-	CALL printf_
-	POP D
-	CALL bitlook_
-.14:
-	LDA hrega_
-	MOV L,A
-	MVI	H,0
-	RET
-.12 EQU 0
-.11:
-	DB 104,114,101,103,98,99,32,61,32,48,120,37,48,52,120
-	DB 10,0,118,100,97,113,114,121,32,115,97,121,115,32,104
-	DB 108,32,33,61,32,48,120,56,48,48,48,10,0,86,68
-	DB 65,81,82,89,32,99,97,108,108,101,100,44,32,115,116
-	DB 97,116,117,115,32,32,32,32,32,32,32,119,97,115,32
-	DB 48,120,37,48,50,120,10,0,32,32,32,32,32,32,32
-	DB 32,32,32,32,32,32,32,32,118,105,100,101,111,32,109
-	DB 111,100,101,32,32,32,119,97,115,32,48,120,37,48,50
-	DB 120,10,0,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,32,114,111,119,32,99,111,117,110,116,32,32,32
-	DB 32,119,97,115,32,48,120,37,48,50,120,40,37,100,41
-	DB 10,0,32,32,32,32,32,32,32,32,32,32,32,32,32
-	DB 32,32,99,111,108,117,109,110,32,99,111,117,110,116,32
-	DB 119,97,115,32,48,120,37,48,50,120,40,37,100,41,10
-	DB 0,118,100,97,113,114,121,32,99,97,108,108,101,100,32
-	DB 119,105,116,104,32,98,105,116,109,97,112,32,112,111,105
-	DB 110,116,101,114,10,0
-	PUBLIC main_
-main_:	lxi d,.16
-	call csave
-	LXI H,.15+0
-	PUSH H
-	CALL printf_
-	POP D
-	LXI H,0
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,64
-	PUSH H
-	CALL vdaini_
-	POP D
-	POP D
-	POP D
-	XCHG
-	LXI H,-3-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,-3-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-1-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.15+33
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LXI H,-32768
-	PUSH H
-	LXI H,64
-	PUSH H
-	CALL vdaqry_
-	POP D
-	POP D
-	XCHG
-	LXI H,-3-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,-3-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,-1-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	PUSH D
-	LXI H,.15+77
-	PUSH H
-	CALL printf_
-	POP D
-	POP D
-	POP D
-	LXI H,-32768
-	XCHG
-	LXI H,2-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	LXI H,0
-	XCHG
-	LXI H,-1-.16
-	DAD SP
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .18
-.17:
-	LXI H,-1-.16
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-.18:
-	LXI H,-1-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	LXI H,2048
-	CALL .lt
-	JZ .19
-	LXI H,2-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	MOV E,M
-	LXI H,1-.16
-	DAD SP
-	MOV M,E
-	LXI H,1-.16
-	DAD SP
-	MOV E,M
-	MVI	D,0
-	LXI H,255
-	CALL .xr
-	XCHG
-	LXI H,1-.16
-	DAD SP
-	MOV M,E
-	LXI H,1-.16
-	DAD SP
-	MOV E,M
-	PUSH D
-	LXI H,4-.16
-	DAD SP
-	MOV E,M
-	INX H
-	MOV D,M
-	XCHG
-	POP D
-	MOV M,E
-	LXI H,2-.16
-	DAD SP
-	PUSH H
-	MOV A,M
-	INX H
-	MOV H,M
-	MOV L,A
-	INX H
-	XCHG
-	POP H
-	MOV M,E
-	INX H
-	MOV M,D
-	JMP .17
-.19:
-	LXI H,-32768
-	PUSH H
-	LXI H,0
-	PUSH H
-	LXI H,64
-	PUSH H
-	CALL vdaini_
-	POP D
-	POP D
-	POP D
-	RET
-.16 EQU -7
-.15:
-	DB 118,105,100,101,111,46,99,111,109,40,99,41,32,49,49
-	DB 47,49,53,47,50,48,49,50,32,100,119,103,32,45,32
-	DB 10,10,0,115,116,97,116,117,115,32,114,101,116,117,114
-	DB 110,101,100,32,102,114,111,109,32,118,100,97,105,110,105
-	DB 32,119,97,115,32,48,120,37,48,52,120,40,37,100,41
-	DB 10,0,115,116,97,116,117,115,32,114,101,116,117,114,110
-	DB 101,100,32,102,114,111,109,32,118,100,97,113,114,121,32
-	DB 119,97,115,32,48,120,37,48,52,120,40,37,100,41,10
-	DB 0
-	extrn	printf_
-	extrn	diagnose_
-	extrn	hreghl_
-	extrn	hregde_
-	extrn	hregbc_
-	extrn	hrega_
-	extrn	.or
-	extrn	.xr
-	extrn	.an
-	extrn	.ne
-	extrn	.lt
-	extrn	.ur
-	END
-