an exclusive or of the toggle;
;byte to turn on or off ^P.

; NOTE: If xsub is to be active in the submit file, ^P must be turned on     ;
; BEFORE executing xsub. To turn off ^P in a submit file in which xsub is    ;
; active, execute a program that deactivates xsub, such as the DEXSUB program;
; which is listed following this program.                                    ;
;                 Doug Huskey & Dave Brown II                                ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	org	0100h		;stay above base page
bdos	equ	5h		;BDOS jump instruction
bdosa	equ	bdos+1		;BDOS entry address
pstr	equ	9		;print string function
testoff	equ	2feh		;offest for verification
listcp	equ	0dh		;^P offset in page
mvic	equ	3eh		;MVI C,x instruction
cr	equ	0dh		;carriage return
lf	equ	0ah		;line feed

	lhld	bdosa		;pick up address of BDOS
	lxi	d,testoff	;offset of ^P page
	dad	d		;HL = compare area in BDOS
	lxi	d,string	;DE = compare string
compare:
	ldax