; bgprint.sub  usage: EX BGPRINT   5/16/85
; This EX script creates a new BGPRINT.COM
;
rmac bgprint $$pz    ;;assemble high module
link bgprint[op]     ;;link to prl format
rmac loadbgpr $$pz   ;;assemble loader
link ldbg=loadbgpr   ;;link with new name to keep SYM file
;;
;;use debugger to place module into loader
;;read module prl file to 800h
;;move CODELEN word to reloc instruction
;;move code and bitmap down 1 page
;;
ddt ldbg.com
ibgprint.prl
r700
m801 802 701
m900,3000,800
g0
era bgprint.com      ;;erase any old copy
save 11 bgprint.com  ;;save new COM file