| |
| | [No title] |
 | | bne 60$ movb (r3)+,r0 call num mov r1,PREC(r5) ; ; %r Remote format ; 60$: cmp r0,#'r bne 90$ mov @ARGP(r5),ARGP(r5) mov @ARGP(r5),r3 add #2,ARGP(r5) br prf01 ; ; Get the data. |
 | | If there is an 'l' in ; the format copy a long to HORD and ; LORD. |
 | | bne 250$ 10$: mov @ARGP(r5),r1 add #2,ARGP(r5) movb (r3)+,r0 br 270$ 250$: clr r1 260$: cmp r0,#'0 blo 270$ cmp r0,#'9 bhi 270$ asl r1 mov r1,-(sp) asl r1 asl r1 add (sp)+,r1 add r0,r1 sub #'0,r1 movb (r3)+,r0 br 260$ 270$: return.end |
| www.ibiblio.org /pub/academic/computer-science/history/pdp-11/rsx/decus/rsx85b/005025/format.mac (785 words) |
|