; 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