home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / DRIPAK.ZIP / CPM_3-0 / BIOS / DRI-UTIL.LBR < prev   
Text File  |  1999-03-22  |  4KB  |  25 lines
  1.  an exclusive or of the toggle;
  2. ;byte to turn on or off ^P.
  3.  
  4. ; NOTE: If xsub is to be active in the submit file, ^P must be turned on     ;
  5. ; BEFORE executing xsub. To turn off ^P in a submit file in which xsub is    ;
  6. ; active, execute a program that deactivates xsub, such as the DEXSUB program;
  7. ; which is listed following this program.                                    ;
  8. ;                 Doug Huskey & Dave Brown II                                ;
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;σσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσσ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10.     org    0100h        ;stay above base page
  11. bdos    equ    5h        ;BDOS jump instruction
  12. bdosa    equ    bdos+1        ;BDOS entry address
  13. pstr    equ    9        ;print string function
  14. testoff    equ    2feh        ;offest for verification
  15. listcp    equ    0dh        ;^P offset in page
  16. mvic    equ    3eh        ;MVI C,x instruction
  17. cr    equ    0dh        ;carriage return
  18. lf    equ    0ah        ;line feed
  19.  
  20.     lhld    bdosa        ;pick up address of BDOS
  21.     lxi    d,testoff    ;offset of ^P page
  22.     dad    d        ;HL = compare area in BDOS
  23.     lxi    d,string    ;DE = compare string
  24. compare:
  25.     ldax