; 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