.TITLE R2ATM ; JEFFREY KODOSKY ARL NOV75 ; ; UTILITY: MAKE A FLOATING POINT ATOM ; ENTRY: 1 ARG (SP) 2-WD FLOATING POINT NUMBER ; EXIT: 1 ARG ; ERRORS: NONE ; CALLS: GETC ; R2,R3 PRESERVED .GLOBL R2ATM,QGETC R2ATM: QGETC MOV @R5,R0 TST (R0)+ MOV (SP)+,@R0 ;EXPONENT QGETC MOV (R5)+,R0 MOV #2,(R0)+ MOV (SP)+,@R0 ;MANTISSA MOV R0,@(R5)+ ;CHAIN TO EXPONENT CELL TST -(R5) JMP @-(R4) .END