9.7. A SIMPLE DIGITAL VOLTMETER 101
JSR OUTLHLF
LDAA #’.
JSR OUTA
PULA *GET THE SAVED VALUE
JSR OUTRHLF
JSR OUTCRLF
; BACK FOR MORE UNLESS USER TYPES AN ESCAPE
JSR INPUT
CMPA #27
BNE LOOP
SWI
;FUNCTION TO CONVERT HEX TO BCD
;
HEX2BCD
PSHB
TAB *COPY A TO B
H2B.LT
CMPB #10 *IS B < 10
BLO H2B.DONE *IF SO WE ARE DONE
SUBB #10 *B <- B-10
ADDA #6 *A <- A+6
BRA H2B.LT
H2B.DONE
PULB
RTS
;;;;;;;;;;;;;;;;;;;;;End: A/D code ;;;;;;;;;;;;;;;;;;;;;;
Comentarios a estos manuales