±JSAVESTARDOC ØSAVETB ASM ŒuSAVETB COMK•SAVEWS ASM@ïSAVEWS COM-Ùÿ ÿ SAVESTAR.DOC SAVESTAR IS BY D. WEINBERGER (C) 1985 CF. FEBRUARY, 1986 PROFILE ARTICLE AND THE .ASM FILE. SO YOU GET HUNG UP IN WORDSTAR: SIMPLEY HIT THE RESET BUTTON. AT THE A> TYPE IN "SAVEWS" ----> A>SAVEWS AND YOU GET THE FOLLOWING NOTE: SAVESTAR mini-version for WS3.3 THEN WHEN SAVEWS IS FINISHED WORKING, YOU WILL GET: ==> Saved text written to B:-SAVED SAVEWS IS WHAT I RENAMED SAVESTAR SINCE YOU CAN CONFIGURE IT FOR WS OR FOR TURBO. SEE THE PROFILE ARTICLE. I THINK IT WILL SAVE ABOUT 24K OF A FILE FROM MY PLAYING WITH IT. IT SAVED AN 18K FILE ENTIRELY. IF THE FILE IS LARGER THEN 24K; IT SAVES PART OF THE DOCUMENT-- THE LAST PART. *** NOTE WELL: THAT THE SIMPLE INSTRUCTIONS ARE APPLICABLE ONLY IF YOU HAVE HAD THE FORESIGHT TO PUT SAVEWS.COM ON YOUR WS DISK! YOU SHOULD HAVE SAVEWS.COM SAVEWS.ASM AND SAVESTAR.DOC. I SIMPLY TYPED THE .ASM FILE FROM THE PROFILE ARTICLE AND THEN ASSEMBLED AND LOADED IT INTO A COM FILE. The .DOC file is my ramblings. HAVE FUN. Maury Smith; SAVESTAR.ASM by David Weinberger cf Profile Feb 1986 p. 48-54 ; boot equ 0000h bdos equ 0005h deletef equ 19 makef equ 22 writef equ 21 closef equ 16 ctrlZ equ 1AH endfill equ 0000H FFfill equ 00FFH prnt equ 9 cr equ 13 lf equ 10 memax equ 00ECH ; ; Where text is stored in various programs: choose ONE ; cf Profile Feb 86 for more info ; ; BEGTEXT equ 846DH ;WS v. 3.3 BEGTEXT equ 802CH ;TURBO V. 2 with error msg.s ; GEBTEXT equ 7474h ;Turbo v. 2 without error msg.s ; org 100h lxi sp,stack ; lxi d,sinon mvi c,prnt call bdos ; lxi d,tfcb mvi c,deletef call bdos ; lxi d,tfcb mvi c,makef call bdos ; cpi 0FFh jz fuldir ; lxi h,begtext mspot: push h ; xchg mvi c,1AH call bdos ; lxi d,tfcb mvi c,writef call bdos ; cpi 0 jnz filled ; pop h mvi a,memax cmp h jz finis ; lxi d,127 dad d mov a,m ; cpi ctrlz jz finis cpi endfill jz finis cpi FFfill jz finis ; inx h jmp mspot ; FINIS: lxi d,donemsg mvi c,prnt call bdos ; clsf: lxi d,tfcb mvi c,closef call bdos mvi c,boot call bdos ; filled: lxi d,fulldsk mvi c,prnt call bdos ; jmp clsf ; fuldir: lxi d,fuldr mvi c,prnt call bdos ; mvi c,boot call bdos ; ; MESSAGES: ; sinon db 'SAVESTAR mini-version for TURBO V2 WITH MSG.S$' donemsg db cr,lf,'==> Saved text written to B:-SAVED$' fulldsk db 7,'++ Disk Full. Erase a file or use a new disk.' db ' Try again ++',cr,lf,'$' fuldr db 7,'++ Directory Full. Erase a file or use new disk.' db ' Try again ++',cr,lf,'$' ; the 2 in tfcb causes -SAVED to be put on drive B: ; 1 would put it on A: and 0 for whichever drive your logged on. tfcb db 2,'-SAVED ',0,0,0,0,0,0,0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0,0,0,0,0 ds 64 stack db 0 ; end 1¾ƒ ÍXÍXÍþÿÊv!,€åëÍXÍþÂká>ì¼ÊV~þÊVþÊVþÿÊV#Ã#² ÍXÍÍ× ÍÃ^ ÍÍSAVESTAR mini-version for TURBO V2 WITH MSG.S$ ==> Saved text written to B:-SAVED$++ Disk Full. Erase a file or use a new disk. Try again ++ $++ Directory Full. Erase a file or use new disk. Try again ++ $-SAVED ÍSAVESTAR mini-version for TURBO V2 WITH MSG.S$ ==> Saved ; SAVESTAR.ASM by David Weinberger cf Profile Feb 1986 p. 48-54 ; boot equ 0000h bdos equ 0005h deletef equ 19 makef equ 22 writef equ 21 closef equ 16 ctrlZ equ 1AH endfill equ 0000H FFfill equ 00FFH prnt equ 9 cr equ 13 lf equ 10 memax equ 00ECH ; ; Where text is stored in various programs: choose ONE ; cf Profile Feb 86 for more info ; BEGTEXT equ 846DH ;WS v. 3.3 ; BEGTEXT equ 802CH ;TURBO V. 2 with error msg.s ; GEBTEXT equ 7474h ;Turbo v. 2 without error msg.s ; org 100h lxi sp,stack ; lxi d,sinon mvi c,prnt call bdos ; lxi d,tfcb mvi c,deletef call bdos ; lxi d,tfcb mvi c,makef call bdos ; cpi 0FFh jz fuldir ; lxi h,begtext mspot: push h ; xchg mvi c,1AH call bdos ; lxi d,tfcb mvi c,writef call bdos ; cpi 0 jnz filled ; pop h mvi a,memax cmp h jz finis ; lxi d,127 dad d mov a,m ; cpi ctrlz jz finis cpi endfill jz finis cpi FFfill jz finis ; inx h jmp mspot ; FINIS: lxi d,donemsg mvi c,prnt call bdos ; clsf: lxi d,tfcb mvi c,closef call bdos mvi c,boot call bdos ; filled: lxi d,fulldsk mvi c,prnt call bdos ; jmp clsf ; fuldir: lxi d,fuldr mvi c,prnt call bdos ; mvi c,boot call bdos ; ; MESSAGES: ; sinon db 'SAVESTAR mini-version for WS3.3$' donemsg db cr,lf,'==> Saved text written to B:-SAVED$' fulldsk db 7,'++ Disk Full. Erase a file or use a new disk.' db ' Try again ++',cr,lf,'$' fuldr db 7,'++ Directory Full. Erase a file or use new disk.' db ' Try again ++',cr,lf,'$' ; the 2 in tfcb causes -SAVED to be put on drive B: ; 1 would put it on A: and 0 for whichever drive your logged on. tfcb db 2,'-SAVED ',0,0,0,0,0,0,0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0,0,0,0,0 ds 64 stack db 0 ; end your logged on. tfcb db 2,'-SAVED ',0,0,0,0,0,0,0,0,0,0,0,0,0,0 db 0,0,0,0,0,0,0,0,0,1°ƒ ÍJÍJÍþÿÊv!m„åëÍJÍþÂká>ì¼ÊV~þÊVþÊVþÿÊV#Ã#¤ ÍJÍÍÉ ÍÃ^ ÍÍSAVESTAR mini-version for WS3.3$ ==> Saved text written to B:-SAVED$++ Disk Full. Erase a file or use a new disk. Try again ++ $++ Directory Full. Erase a file or use new disk. Try again ++ $-SAVED ÍÃ^ ÍÍSAVESTAR mini-version for WS3.3$ ==> Saved