Google
 

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