Listing of file='INCCNT.MAC;02' on disk='vmedia/laser_gun_joystick-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; INCCNT - INCREMENT AN ASCII COUNT ; ; VALUES ON ENTRY: ; HL => LOW ORDER DIGIT OF THE COUNT ; NOTE: SUFFICIENT SPACE MUST BE ALLOCATED FOR THE ; NUMBER BECAUSE IT WILL GROW INDEFINITELY. ; ; RETURNS NOTHING - COUNT UPDATED ; ; DESTROYS: ; A, HL ; ENTRY INCCNT INCCNT: MOV A,M ANI 15 ;FORCE IT TO BE ASCII ORI '0' INR A CPI '9'+1 JNZ INC10 MVI M,'0' DCX H JMP INCCNT INC10: MOV M,A RET END