Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0101/nonlin.mc4
There are 2 other files named nonlin.mc4 in the archive. Click here to see a list.
;      NONLIN.;MC4 FOR USE WITH F40 COMPILER.                           ;MC4 0010
       TITLE   DEPBYT                                                   ;MC4 0020
       ENTRY   DEPSIT                                                   ;MC4 0030
DEPSIT: 0                                                               ;MC4 0040
        MOVE    6,@0(16)                                                ;MC4 0050
       MOVE    7,@1(16)                                                 ;MC4 0060
       MOVE    8,@2(16)                                                 ;MC4 0070
       MOVEM   8,DATA                                                   ;MC4 0080
       LSH     6,-35                                                    ;MC4 0090
       DPB     6,PTR(7)                                                 ;MC4 0100
       MOVE    8,DATA                                                   ;MC4 0110
       MOVEM   8,@2(16)                                                 ;MC4 0120
        JRA      16,2(16)                                               ;MC4 0130
PTR:   0                                                                ;MC4 0140
       POINT   7,DATA,6                                                 ;MC4 0150
       POINT   7,DATA,13                                                ;MC4 0160
       POINT   7,DATA,20                                                ;MC4 0170
       POINT   7,DATA,27                                                ;MC4 0180
       POINT   7,DATA,34                                                ;MC4 0190
DATA:  0                                                                ;MC4 0200
       END                                                              ;MC4 0210