Listing of file='MSEC50.MAC;03' on disk='vmedia/eprom_programmer-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; 50 MILLISECOND DELAY ROUTINE ; ; VALUES ON ENTRY ARE IRRELEVANT. ; ALL REGISTERS ARE PRESERVED EXCEPT A. ; STIM EQU 63 ;FUDGE FACTOR FOR DELAY-LOOP TIMING ENTRY MSEC50 MSEC50: MVI A,10 ; USES THE 'WAIT SHORT' FROM FCS - 0.5 MSEC/COUNT WATS: PUSH PSW MVI A,STIM WS1: DCR A JNZ WS1 POP PSW DCR A JNZ WATS RET END