Listing of file='MARK.MAC;04' on disk='vmedia/asm_utility_4-sideB-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; MARK A DISKETTE WITH A COPYRIGHT NOTICE ; EXTRN JMPVEC,OSTR EXTRN FILVEC,FCS EXTRN HEXOUT ESC EQU 27 KBCHA EQU 81FEH MARK: CALL JMPVEC CALL FILVEC LXI D,NOTICE MOV A,D LXI H,ADDR CALL HEXOUT MOV A,E LXI H,ADDR+2 CALL HEXOUT MARK10: XRA A STA KBCHA LXI H,DRVMSG CALL OSTR GETDIG: LDA KBCHA ORA A JZ GETDIG CPI '0' JZ OKDRV CPI '1' JZ OKDRV CPI ESC JZ EXIT JMP MARK10 OKDRV: STA DRIVE LXI H,WRITE CALL FCS JMP MARK10 EXIT: MVI B,0 RET DRVMSG: DB 11,6,3,'DRIVE: ',6,2,239 WRITE: DB 'WRITE CD' DRIVE: DB '0' DB ': 18F,' ADDR: DB 'A000' DB ',80',0 NOTICE: DB 6,6,'COPYRIGHT (C) ',6,5,'1980 ',6,6,'BY ' DB 6,4,'TREVOR TAYLOR',13,10,239 DS 100 END MARK