.TITLE ITOASC .PSECT UTILS .GLOBL INTASC ITOASC:: ; CONVERTS THE INTEGER, THE ADDRESS OF WHICH IS SUPPLIED ; IN THE CALL, TO ASCII AND PUTS THE RESULT IN THE ; LOCATION SPECIFIED BY THE SECOND ARGUMENT IN THE CALL. ; INTENDED TO BE CALLED BY THE OPERATION OF THE MACRO, ; "ITOASC". WILL RETURN WITH C BIT SET IF ANY ERRORS ; ARE DETECTED DURING THE CONVERSION. TST (R5)+ ;WE'LL GET INTGER LATER. ;PUT TERMINATING NULL INTO DESTINATION. MOV R0,-(SP) ;SAVE R0. MOV (R5),R0 ;GET DEST ADRS. ADD #6.,R0 ;POINT TO 7TH BYTE. CLRB (R0) ;MAKE TERMINATING NULL. MOV (SP)+,R0 ;RESTORE R0. ;PREPARE THE STACK FOR CALL TO INTASC. MOV (R5)+,-(SP) ;GET ASCII DEST ADDRESS. MOV #6.,-(SP) ;NBR OF CHARACTERS. MOV @-4(R5),-(SP) ;VALUE TO BE CONVERTED. JSR PC,INTASC ;CONVERT, PUT IN PLACE. ;C BIT WILL HAVE BEEN SET BY INTASC, IF ERROR. RTS R5 ;RETURN. .END