Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0100/lincur.mc1
There are no other files named lincur.mc1 in the archive.
;      LINCUR.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