FSAVEASM;Programm FSAVE 0000H 009BH ;-------------------------- ; ; reassembliert von FSAVE.KCC ; der CAOS-Diskette ; ; ` ml 13.09.1990 ;--------------------------------------- ARGN EQU 0B781H ARG1 EQU ARGN+1 ARG2 EQU ARGN+3 PV1 EQU 0F003H WAIT EQU 14H INLIN EQU 17H ERRM EQU 19H AHEX EQU 1CH OSTR EQU 23H ;-------------------------- ORG 0 DEFW 07F7FH DEFM 'FSAVE' DEFB 1 LD A,(ARGN) CP 2 JR C,ERANZ ; < 2 Arg. CALL PV1 DEFB OSTR DEFM 'Name :' DEFB 0 CALL PV1 DEFB INLIN LD HL,6 ADD HL,DE ;Beginn Name LD E,0CH ;L{nge LD BC,82F3H ;Portadr. Name NAMWR LD A,M OUT (C),A INC HL INC B DEC E JR NZ,NAMWR LD HL,ARGN LD DE,0B0BH ;Anzahl LD BC,91F2H ;Portadr. Daten SCHR OUTI INC B INC B DEC E JR NZ,SCHR LD BC,80F3H ;n{chsten Block OUT (C),D ;D=0BH bei Name NFERT PUSH BC LD A,1 CALL PV1 DEFB WAIT POP BC IN A,(C) BIT 0,A JR NZ,NFERT BIT 7,A JR Z,KERR ERN LD BC,81F3H ;Fehlernummer IN A,(C) CALL PV1 DEFB AHEX ERANZ CALL PV1 DEFB ERRM RET KERR LD BC,81F2H BIT 3,D JR Z,N3 LD HL,(ARG1) ;Anfangsadresse N3 PUSH HL LD DE,(ARG2) ;Endadresse AND A SBC HL,DE POP HL LD BC,81F2H LD DE,0380H JR NC,END JR SCHR END LD BC,80F3H LD A,43H ;Ende-Zeichen OUT (C),A NEND PUSH BC LD A,1 CALL PV1 DEFB WAIT POP BC IN A,(C) BIT 0,A JR NZ,NEND BIT 7,A JR NZ,ERN ;Fehlernummer RET ;009BH lf`[VQLHD@<9630MELO1§(>2’·MELO2§(>2’·ÍðÉ"—·* ·%."”·ý*—·ý~õåýå*”·" ·áõÍðñÍðÍð,áñæ( !ÿ__~